?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Imported Debian patch 0.13.1-3
[pkg-lisaac.git] / install_lisaac.c
blobfdf95f38017cc049e314554d819cf4ead9dd208f
1 // C code generated by Lisaac compiler (www.isaacOS.com) //
2 int arg_count;
3 char **arg_vector;
4
5 //==========================//
6 // EXTERNAL //
7 //==========================//
8
9 // INSTALL_LISAAC
10 #include <unistd.h>
11 // MEMORY
12
13 #define MINIMUM_SIZE 256
14 void *table_size[MINIMUM_SIZE/sizeof(void *)];
15 void *last_block[64];
16
17 // SYSTEM_IO
18
19 #include <stdio.h>
20 #include <stdlib.h>
21
22 // Hardware 'print_char'
23 void print_char(char car)
24 {
25 fputc(car,stdout);
26 }
27
28 // Hardware 'exit'
29 int die_with_code(int code)
30 {
31 exit(code);
32 }
33
34
35 // SYSTEM
36 #include <time.h>
37
38 //==========================//
39 // TYPE //
40 //==========================//
41
42 // Generic Object
43 struct ___OBJ {
44 unsigned long __id;
45 };
46
47 // NULL
48 #ifndef NULL
49 #define NULL ((void *)0)
50 #endif
51
52 // POINTER
53 typedef void * __POINTER;
54
55 // UINTEGER_32
56 typedef unsigned long __UINTEGER_32;
57
58 // CHARACTER
59 typedef char __CHARACTER;
60
61 // INTEGER
62 typedef int __INTEGER;
63
64 // STRING_CONSTANT
65 #define __STRING_CONSTANT__ 4
66 typedef struct STRING_CONSTANT_struct __STRING_CONSTANT;
67 struct STRING_CONSTANT_struct {
68 unsigned long __id;
69 __INTEGER count__AD;
70 __CHARACTER *storage__0ZB;
71 };
72 __STRING_CONSTANT STRING_CONSTANT_={__STRING_CONSTANT__};
73 #define STRING_CONSTANT__ (&STRING_CONSTANT_)
74
75 // STRING
76 #define __STRING__ 5
77 typedef struct STRING_struct __STRING;
78 struct STRING_struct {
79 unsigned long __id;
80 __INTEGER count__CB;
81 __INTEGER capacity__3BD;
82 __CHARACTER *storage__0CD;
83 };
84 __STRING STRING_={__STRING__};
85 #define STRING__ (&STRING_)
86
87 // BOOLEAN
88 typedef char __BOOLEAN;
89
90 // MEMORY
91 #define __MEMORY__ 0
92 typedef struct MEMORY_struct __MEMORY;
93 struct MEMORY_struct {
94 volatile __UINTEGER_32 previous_linear__5T;
95 volatile __UINTEGER_32 size_and_id__AU;
96 __MEMORY *next_free__BU;
97 __MEMORY *previous_free__CU;
98 } __attribute__ ((packed));
99 __MEMORY MEMORY_;
100 #define MEMORY__ (&MEMORY_)
101
102 // NUMERIC
103 #define __NUMERIC__ 1
104 typedef struct NUMERIC_struct __NUMERIC;
105 struct NUMERIC_struct {
106 void *Nothing;
107 };
108 __NUMERIC NUMERIC_;
109 #define NUMERIC__ (&NUMERIC_)
110
111 // OBJECT
112 #define __OBJECT__ 2
113 typedef struct OBJECT_struct __OBJECT;
114 struct OBJECT_struct {
115 void *Nothing;
116 };
117 __OBJECT OBJECT_;
118 #define OBJECT__ (&OBJECT_)
119
120 // INSTALL_LISAAC
121 #define __INSTALL_LISAAC__ 3
122 typedef struct INSTALL_LISAAC_struct __INSTALL_LISAAC;
123 struct INSTALL_LISAAC_struct {
124 void *Nothing;
125 };
126 __INSTALL_LISAAC INSTALL_LISAAC_;
127 #define INSTALL_LISAAC__ (&INSTALL_LISAAC_)
128
129 // TRUE
130 #define TRUE__ 1
131
132 // FALSE
133 #define FALSE__ 0
134
135 // INTEGER_8
136 typedef signed char __INTEGER_8;
137
138
139 void *table_type[4];
140
141 //==========================//
142 // GLOBAL //
143 //==========================//
144
145 void *parent_numeric__G;
146 __POINTER begin_memory__EAC;
147 __UINTEGER_32 nb_page__0QC;
148 __UINTEGER_32 capacity_max__CCF;
149 __MEMORY *first_free__NMI;
150 __UINTEGER_32 clone_allocation_size__VT;
151 void *string_tmp__2;
152 void *path_current__GB;
153 void *path_home__KB;
154 void *shell__MB;
155 __INTEGER step_count__0C;
156 void *system__FE;
157
158 //==========================//
159 // STRING CONSTANT //
160 //==========================//
161
162 __STRING_CONSTANT __string_1={__STRING_CONSTANT__,106,"\t\t=================\
163 ===============\n\t\t= Auto-Install Lisaac Compiler =\n\t\t=================\
164 ===============\n\n"};
165 __STRING_CONSTANT __string_2={__STRING_CONSTANT__,4,"HOME"};
166 __STRING_CONSTANT __string_3={__STRING_CONSTANT__,5,"SHELL"};
167 __STRING_CONSTANT __string_4={__STRING_CONSTANT__,17,"Detection system."};
168 __STRING_CONSTANT __string_5={__STRING_CONSTANT__,48," Error : SHELL enviro\
169 nment variable is empty !\n"};
170 __STRING_CONSTANT __string_6={__STRING_CONSTANT__,7,"Unknown"};
171 __STRING_CONSTANT __string_7={__STRING_CONSTANT__,4,"bash"};
172 __STRING_CONSTANT __string_8={__STRING_CONSTANT__,8,"/.bashrc"};
173 __STRING_CONSTANT __string_9={__STRING_CONSTANT__,11,"Unix - bash"};
174 __STRING_CONSTANT __string_10={__STRING_CONSTANT__,29,"\n# **** LISAAC COMPI\
175 LER ****\n"};
176 __STRING_CONSTANT __string_11={__STRING_CONSTANT__,12,"export PATH="};
177 __STRING_CONSTANT __string_12={__STRING_CONSTANT__,12,"/bin:$PATH\n\n"};
178 __STRING_CONSTANT __string_13={__STRING_CONSTANT__,4,"tcsh"};
179 __STRING_CONSTANT __string_14={__STRING_CONSTANT__,7,"/.cshrc"};
180 __STRING_CONSTANT __string_15={__STRING_CONSTANT__,11,"Unix - tcsh"};
181 __STRING_CONSTANT __string_16={__STRING_CONSTANT__,10,"set path=("};
182 __STRING_CONSTANT __string_17={__STRING_CONSTANT__,13,"/bin $path)\n\n"};
183 __STRING_CONSTANT __string_18={__STRING_CONSTANT__,3,"zsh"};
184 __STRING_CONSTANT __string_19={__STRING_CONSTANT__,8,"/.zshenv"};
185 __STRING_CONSTANT __string_20={__STRING_CONSTANT__,10,"Unix - zsh"};
186 __STRING_CONSTANT __string_21={__STRING_CONSTANT__,24," Shell not recognize\
187 d: "};
188 __STRING_CONSTANT __string_22={__STRING_CONSTANT__,12,"C:\\msdos.sys"};
189 __STRING_CONSTANT __string_23={__STRING_CONSTANT__,15,"C:\\autoexec.bat"};
190 __STRING_CONSTANT __string_24={__STRING_CONSTANT__,13,"Windows - DOS"};
191 __STRING_CONSTANT __string_25={__STRING_CONSTANT__,33,"\r\nREM **** LISAAC C\
192 OMPILER ****\r\n"};
193 __STRING_CONSTANT __string_26={__STRING_CONSTANT__,9,"set path="};
194 __STRING_CONSTANT __string_27={__STRING_CONSTANT__,15,"\\bin;%path%\r\n\r\n"};
195 __STRING_CONSTANT __string_28={__STRING_CONSTANT__,17," System detect: "};
196 __STRING_CONSTANT __string_29={__STRING_CONSTANT__,7,"path.li"};
197 __STRING_CONSTANT __string_30={__STRING_CONSTANT__,10," + target"};
198 __STRING_CONSTANT __string_31={__STRING_CONSTANT__,23," + target := WINDOWS\
199 ;\n"};
200 __STRING_CONSTANT __string_32={__STRING_CONSTANT__,34,"\n Note: Use `mingw'\
201 for Windows.\n"};
202 __STRING_CONSTANT __string_33={__STRING_CONSTANT__,20," + target := UNIX;\n"};
203 __STRING_CONSTANT __string_34={__STRING_CONSTANT__,49,"\n Search path for `\
204 libX11.a' : (please wait...)\n"};
205 __STRING_CONSTANT __string_35={__STRING_CONSTANT__,55,"find /usr -name \"lib\
206 X11.a\" 2> /dev/null > xlib_path.txt"};
207 __STRING_CONSTANT __string_36={__STRING_CONSTANT__,13,"xlib_path.txt"};
208 __STRING_CONSTANT __string_37={__STRING_CONSTANT__,33," Error : `libX11.a' n\
209 ot found !\n\n"};
210 __STRING_CONSTANT __string_38={__STRING_CONSTANT__,21," + path_lib_x11 := \""};
211 __STRING_CONSTANT __string_39={__STRING_CONSTANT__,3,"\";\n"};
212 __STRING_CONSTANT __string_40={__STRING_CONSTANT__,16," + path_lib_x11"};
213 __STRING_CONSTANT __string_41={__STRING_CONSTANT__,19,"rm -f xlib_path.txt"};
214 __STRING_CONSTANT __string_42={__STRING_CONSTANT__,38,"Installation of envir\
215 onment variables."};
216 __STRING_CONSTANT __string_43={__STRING_CONSTANT__,98," Auto-install fail !\
217 \n You have to change your environment variables as following: \n set pa\
218 th="};
219 __STRING_CONSTANT __string_44={__STRING_CONSTANT__,13,"\\bin;%path%\n\n"};
220 __STRING_CONSTANT __string_45={__STRING_CONSTANT__,36,"Installation of Lisaa\
221 c library path."};
222 __STRING_CONSTANT __string_46={__STRING_CONSTANT__,26,"#define LISAAC_DIRECT\
223 ORY \""};
224 __STRING_CONSTANT __string_47={__STRING_CONSTANT__,2,"\"\n"};
225 __STRING_CONSTANT __string_48={__STRING_CONSTANT__,10,"bin/path.h"};
226 __STRING_CONSTANT __string_49={__STRING_CONSTANT__,24,"#define LISAAC_DIRECT\
227 ORY"};
228 __STRING_CONSTANT __string_50={__STRING_CONSTANT__,10,"src/path.h"};
229 __STRING_CONSTANT __string_51={__STRING_CONSTANT__,40,"Installation of `lisa\
230 ac-mode' for Emacs."};
231 __STRING_CONSTANT __string_52={__STRING_CONSTANT__,61," Do you want to inst\
232 all the `lisaac-mode' for Emacs editor ?"};
233 __STRING_CONSTANT __string_53={__STRING_CONSTANT__,47," Not install `lisaac\
234 -mode' for Emacs editor.\n\n"};
235 __STRING_CONSTANT __string_54={__STRING_CONSTANT__,2,"C:"};
236 __STRING_CONSTANT __string_55={__STRING_CONSTANT__,7,"/.emacs"};
237 __STRING_CONSTANT __string_56={__STRING_CONSTANT__,24,";; **** LISAAC MODE *\
238 ***"};
239 __STRING_CONSTANT __string_57={__STRING_CONSTANT__,24,"\n(setq load-path (co\
240 ns \""};
241 __STRING_CONSTANT __string_58={__STRING_CONSTANT__,28,"/editor/emacs/\" load\
242 -path))\n"};
243 __STRING_CONSTANT __string_59={__STRING_CONSTANT__,133,"(add-to-list 'auto-m\
244 ode-alist '(\"\\\\.li\\\\'\" . lisaac-mode))\n(autoload 'lisaac-mode \"lisaa\
245 c-mode\" \"Major mode for Lisaac Programs\" t)\n\n"};
246 __STRING_CONSTANT __string_60={__STRING_CONSTANT__,41,"Installation of `lisa\
247 ac_v2.xml' for Kate."};
248 __STRING_CONSTANT __string_61={__STRING_CONSTANT__,39," Sorry, not Kate edi\
249 tor for windows.\n\n"};
250 __STRING_CONSTANT __string_62={__STRING_CONSTANT__,62," Do you want to inst\
251 all the `lisaac_v2.xml' for Kate editor ?"};
252 __STRING_CONSTANT __string_63={__STRING_CONSTANT__,48," Not install `lisaac\
253 _v2.xml' for Kate editor.\n\n"};
254 __STRING_CONSTANT __string_64={__STRING_CONSTANT__,42,"mkdir -p ~/.kde/share\
255 /apps/katepart/syntax"};
256 __STRING_CONSTANT __string_65={__STRING_CONSTANT__,67,"cp -f editor/kate/lis\
257 aac_v2.xml ~/.kde/share/apps/katepart/syntax/."};
258 __STRING_CONSTANT __string_66={__STRING_CONSTANT__,3," `"};
259 __STRING_CONSTANT __string_67={__STRING_CONSTANT__,2,"'\t"};
260 __STRING_CONSTANT __string_68={__STRING_CONSTANT__,79,"\n Sorry, auto-insta\
261 ll fail !\n You can to read the `editor/kate/README' file.\n"};
262 __STRING_CONSTANT __string_69={__STRING_CONSTANT__,4,"OK.\n"};
263 __STRING_CONSTANT __string_70={__STRING_CONSTANT__,37,"Installation of `lisa\
264 ac.vim' for Vim."};
265 __STRING_CONSTANT __string_71={__STRING_CONSTANT__,38," Sorry, not Vim edit\
266 or for windows.\n\n"};
267 __STRING_CONSTANT __string_72={__STRING_CONSTANT__,60," Do you want to inst\
268 all the Lisaac support for Vim editor ?"};
269 __STRING_CONSTANT __string_73={__STRING_CONSTANT__,44," Not install `lisaac\
270 .vim' for Vim editor.\n\n"};
271 __STRING_CONSTANT __string_74={__STRING_CONSTANT__,22,"mkdir -p ~/.vim/syntax"};
272 __STRING_CONSTANT __string_75={__STRING_CONSTANT__,22,"mkdir -p ~/.vim/indent"};
273 __STRING_CONSTANT __string_76={__STRING_CONSTANT__,22,"mkdir -p ~/.vim/backup"};
274 __STRING_CONSTANT __string_77={__STRING_CONSTANT__,20,"mkdir -p ~/.vim/temp"};
275 __STRING_CONSTANT __string_78={__STRING_CONSTANT__,49,"cp -f editor/vim/synt\
276 ax/lisaac.vim ~/.vim/syntax/"};
277 __STRING_CONSTANT __string_79={__STRING_CONSTANT__,90,"\n Sorry, auto-insta\
278 ll fail !\n You can read the `editor/vim/install_vim_plugin.sh' file.\n"};
279 __STRING_CONSTANT __string_80={__STRING_CONSTANT__,49,"cp -f editor/vim/inde\
280 nt/lisaac.vim ~/.vim/indent/"};
281 __STRING_CONSTANT __string_81={__STRING_CONSTANT__,297,"\n It is recommande\
282 d to install the default vimrc file provided by the \n lisaac installer. \
283 \n\n If you choose not \
284 doing this action, your vimrc will only be updated \n Do you want to ins\
285 tall the default config provided by lisaac installer ?"};
286 __STRING_CONSTANT __string_82={__STRING_CONSTANT__,7,"/.vimrc"};
287 __STRING_CONSTANT __string_83={__STRING_CONSTANT__,155,"\nsyntax on \
288 \nfiletype plugin on \nfiletype indent \
289 on \nau BufNewFile,BufRead *.li setf lisaac\n"};
290 __STRING_CONSTANT __string_84={__STRING_CONSTANT__,31,"cp -f editor/vim/vimr\
291 c ~/.vimrc"};
292 __STRING_CONSTANT __string_85={__STRING_CONSTANT__,31,"Compilation of Lisaac\
293 compiler."};
294 __STRING_CONSTANT __string_86={__STRING_CONSTANT__,12,"gcc -O2 bin/"};
295 __STRING_CONSTANT __string_87={__STRING_CONSTANT__,6,"lisaac"};
296 __STRING_CONSTANT __string_88={__STRING_CONSTANT__,10,".c -o bin/"};
297 __STRING_CONSTANT __string_89={__STRING_CONSTANT__,19," Execute command `"};
298 __STRING_CONSTANT __string_90={__STRING_CONSTANT__,20,"' (please wait ...)\n"};
299 __STRING_CONSTANT __string_91={__STRING_CONSTANT__,51," Auto-install fail !\
300 \n You want to compile a `bin/"};
301 __STRING_CONSTANT __string_92={__STRING_CONSTANT__,10,".c' file.\n"};
302 __STRING_CONSTANT __string_93={__STRING_CONSTANT__,28,"Compilation of Shorte\
303 r tool."};
304 __STRING_CONSTANT __string_94={__STRING_CONSTANT__,7,"shorter"};
305 __STRING_CONSTANT __string_95={__STRING_CONSTANT__,31,"Build a librarie docu\
306 mentation."};
307 __STRING_CONSTANT __string_96={__STRING_CONSTANT__,54," Do you want to buil\
308 d a HTML librarie documentation ?"};
309 __STRING_CONSTANT __string_97={__STRING_CONSTANT__,39," Not install librari\
310 e documentation.\n\n"};
311 __STRING_CONSTANT __string_98={__STRING_CONSTANT__,38,"bin\\shorter -r -f ht\
312 ml lib -o lib_html"};
313 __STRING_CONSTANT __string_99={__STRING_CONSTANT__,38,"bin/shorter -r -f htm\
314 l lib -o lib_html"};
315 __STRING_CONSTANT __string_100={__STRING_CONSTANT__,12," Execute: `"};
316 __STRING_CONSTANT __string_101={__STRING_CONSTANT__,2,"'\n"};
317 __STRING_CONSTANT __string_102={__STRING_CONSTANT__,60," OK, you found this\
318 documentation in `lib_html/index.html'\n"};
319 __STRING_CONSTANT __string_103={__STRING_CONSTANT__,29,"Welcome to the Lisaa\
320 c World !"};
321 __STRING_CONSTANT __string_104={__STRING_CONSTANT__,314," Installation succ\
322 essfull. \n Run `lisaac' to compile. \
323 \n\n Note: You'll have to reboot or reloaded environne\
324 ment \n to acknowledge the changes. \n Note:\
325 For bash users, doing a `source ~/.bashrc' should \n do the job.\n"};
326 __STRING_CONSTANT __string_105={__STRING_CONSTANT__,5,"Step "};
327 __STRING_CONSTANT __string_106={__STRING_CONSTANT__,3," : "};
328 __STRING_CONSTANT __string_107={__STRING_CONSTANT__,1,"="};
329 __STRING_CONSTANT __string_108={__STRING_CONSTANT__,5," A `"};
330 __STRING_CONSTANT __string_109={__STRING_CONSTANT__,50,"' file has no need t\
331 o change. Current version is:\n"};
332 __STRING_CONSTANT __string_110={__STRING_CONSTANT__,39,"' file has been upda\
333 ted. Old value is:\n"};
334 __STRING_CONSTANT __string_111={__STRING_CONSTANT__,16," New value is:\n"};
335 __STRING_CONSTANT __string_112={__STRING_CONSTANT__,30,"' file has been upda\
336 ted with:\n"};
337 __STRING_CONSTANT __string_113={__STRING_CONSTANT__,30,"' file has been crea\
338 ted with:\n"};
339 __STRING_CONSTANT __string_114={__STRING_CONSTANT__,7,"Error: "};
340 __STRING_CONSTANT __string_115={__STRING_CONSTANT__,16,"Not create file!"};
341 __STRING_CONSTANT __string_116={__STRING_CONSTANT__,16," Confirmation ?"};
342 __STRING_CONSTANT __string_117={__STRING_CONSTANT__,34,"Not open file (Write\
343 protection) !"};
344 __STRING_CONSTANT __string_118={__STRING_CONSTANT__,7," (y/n) "};
345 __STRING_CONSTANT __string_119={__STRING_CONSTANT__,19,"Not enough memory.\n"};
346
347 //==========================//
348 // FUNCTION HEADER //
349 //==========================//
350
351 // Debug Manager
352 void print_string(char *str);
353 // Source code
354 static __POINTER new_lab__IQC(__UINTEGER_32 t__KQC);
355 static __CHARACTER* create__AIH(__INTEGER nb_elements__CIH);
356 static void print__PB(__STRING_CONSTANT *Self__QB);
357 static __CHARACTER* realloc__with__3IH(__CHARACTER *Self__4IH,__INTEGER old_nb_elts__5IH,__INTEGER new_nb_elts__AJH);
358 static void from_external__KDD(__STRING *Self__LDD,__CHARACTER *p__MDD);
359 static void copy__AFD(__STRING *Self__BFD,void *other__CFD);
360 static void title__XC(void *str__ZC);
361 static __INTEGER first_substring_index__COD(__STRING *Self__DOD,void *other__EOD);
362 static void append__OID(__STRING *Self__PID,void *other__QID);
363 static void put_string__XR(void *s__ZR);
364 static void update__idf__with__confirmation__DZ(void *file__FZ,void *id__GZ,void *new_text__HZ,__BOOLEAN conf__IZ);
365 static __INTEGER execute_command__X4(void *system_command_line__Z4);
366 static void move__to__by__2LF(__CHARACTER *Self__3LF,__INTEGER lower__4LF,__INTEGER upper__5LF,__INTEGER offset__AMF);
367 static void replace_all__with__BMD(__STRING *Self__CMD);
368 static __CHARACTER question__E3(void *str__G3);
369 static __MEMORY* new_page__YBF();
370 static __MEMORY* search__KLI(__UINTEGER_32 new_size__MLI);
371 static void to_busy__index__G0J(__MEMORY *Self__H0J,__UINTEGER_32 sz__I0J,__UINTEGER_32 idx__J0J);
372 static void print_positif__OAL(__INTEGER Self__PAL);
373 static __INTEGER fast_occurrences__until__ZDC(__CHARACTER *Self__0DC,__INTEGER upper__2DC);
374
375 //==========================//
376 // SOURCE CODE //
377 //==========================//
378
379 int main(int argc,char **argv)
380 {
381 __STRING *result__RGS,*Self__PGS,*Self__0GS,*result__EHS,*Self__CHS;
382 __STRING *result__QHS,*Self__OHS,*Self__ZHS,*result__AIS,*result__MIS;
383 __STRING *Self__KIS,*Self__VIS,*result__2IS,*result__IJS,*Self__GJS;
384 __STRING *Self__RJS,*result__1JS,*Self__ZJS,*Self__EKS,*result__OKS;
385 __STRING *Self__MKS,*Self__YBD,*Self__MSD,*Self__E3R,*result__3KS;
386 __STRING *Self__1KS,*result__JLS,*Self__HLS,*Self__HHD,*result__VLS;
387 __STRING *Self__TLS,*result__BMS,*Self__5LS,*result__5S,*Self__KGD;
388 __POINTER ptr__SGS,ptr_table__TQS,next__SQS,result__UQS;
389 __POINTER ptr_table__0QS,next__ZQS,result__1QS,ptr__FHS;
390 __POINTER ptr_table__BRS,next__ARS,result__CRS,ptr_table__IRS;
391 __POINTER next__HRS,result__JRS,ptr__RHS,ptr_table__PRS,next__ORS;
392 __POINTER result__QRS,ptr_table__WRS,next__VRS,result__XRS,ptr__BIS;
393 __POINTER ptr_table__3RS,next__2RS,result__4RS,ptr_table__ESS;
394 __POINTER next__DSS,result__FSS,ptr__NIS,ptr_table__LSS,next__KSS;
395 __POINTER result__MSS,ptr_table__SSS,next__RSS,result__TSS,ptr__3IS;
396 __POINTER ptr_table__ZSS,next__YSS,result__0SS,ptr_table__ATS;
397 __POINTER next__5SS,result__BTS,std_file__MD,ptr__JJS,ptr_table__HTS;
398 __POINTER next__GTS,result__ITS,ptr_table__OTS,next__NTS,result__PTS;
399 __POINTER ptr__2JS,ptr_table__VTS,next__UTS,result__WTS;
400 __POINTER ptr_table__2TS,next__1TS,result__3TS,ptr__PKS;
401 __POINTER ptr_table__DUS,next__CUS,result__EUS,ptr_table__KUS;
402 __POINTER next__JUS,result__LUS,ptr__4KS,ptr_table__3US,next__2US;
403 __POINTER result__4US,ptr_table__EVS,next__DVS,result__FVS,ptr__KLS;
404 __POINTER ptr_table__LVS,next__KVS,result__MVS,ptr_table__SVS;
405 __POINTER next__RVS,result__TVS,ptr__WLS,ptr_table__FWS,next__EWS;
406 __POINTER result__GWS,ptr_table__MWS,next__LWS,result__NWS,ptr__CMS;
407 __POINTER ptr_table__TWS,next__SWS,result__UWS,ptr_table__0WS;
408 __POINTER next__ZWS,result__1WS,ptr__AT,ptr_table__BXS,next__AXS;
409 __POINTER result__CXS,ptr_table__K4B,next__P4B,result__N4B;
410 __INTEGER typ_id__TGS,new_capacity__4GS,needed_capacity__DHS;
411 __INTEGER typ_id__GHS,needed_capacity__PHS,typ_id__SHS;
412 __INTEGER new_capacity__3HS,typ_id__CIS,needed_capacity__LIS;
413 __INTEGER typ_id__OIS,new_capacity__ZIS,typ_id__4IS;
414 __INTEGER needed_capacity__HJS,typ_id__KJS,new_capacity__VJS;
415 __INTEGER needed_capacity__0JS,typ_id__3JS,new_capacity__IKS;
416 __INTEGER result__FAQ,typ_id__QKS,new_capacity__XKS,i__F3R,j__H3R;
417 __INTEGER new_count__QUS,lower__SUS,upper__VUS,Self__TUS,Self__YUS;
418 __INTEGER needed_capacity__2KS,typ_id__5KS,needed_capacity__ILS;
419 __INTEGER typ_id__LLS,i__JHD,j__KHD,new_count__YVS,lower__0VS;
420 __INTEGER upper__3VS,Self__1VS,Self__AWS,typ_id__XLS;
421 __INTEGER needed_capacity__AMS,typ_id__DMS,typ_id__HT;
422 __UINTEGER_32 sz__UGS,a__WGS,new_size__XGS,t__YGS,a__ZGS;
423 __UINTEGER_32 new_size__3QS,lab_type__2QS,sz__HHS,a__JHS;
424 __UINTEGER_32 new_size__KHS,t__LHS,a__MHS,new_size__LRS,lab_type__KRS;
425 __UINTEGER_32 sz__THS,a__VHS,new_size__WHS,t__XHS,a__YHS;
426 __UINTEGER_32 new_size__ZRS,lab_type__YRS,sz__DIS,a__FIS;
427 __UINTEGER_32 new_size__GIS,t__HIS,a__IIS,new_size__HSS,lab_type__GSS;
428 __UINTEGER_32 sz__PIS,a__RIS,new_size__SIS,t__TIS,a__UIS;
429 __UINTEGER_32 new_size__VSS,lab_type__USS,sz__5IS,a__BJS;
430 __UINTEGER_32 new_size__CJS,t__DJS,a__EJS,new_size__DTS,lab_type__CTS;
431 __UINTEGER_32 sz__LJS,a__NJS,new_size__OJS,t__PJS,a__QJS;
432 __UINTEGER_32 new_size__RTS,lab_type__QTS,sz__4JS,a__AKS;
433 __UINTEGER_32 new_size__BKS,t__CKS,a__DKS,new_size__5TS,lab_type__4TS;
434 __UINTEGER_32 sz__RKS,a__TKS,new_size__UKS,t__VKS,a__WKS;
435 __UINTEGER_32 new_size__NUS,lab_type__MUS,sz__ALS,a__CLS;
436 __UINTEGER_32 new_size__DLS,t__ELS,a__FLS,new_size__HVS,lab_type__GVS;
437 __UINTEGER_32 sz__MLS,a__OLS,new_size__PLS,t__QLS,a__RLS;
438 __UINTEGER_32 new_size__VVS,lab_type__UVS,sz__YLS,a__0LS;
439 __UINTEGER_32 new_size__1LS,t__2LS,a__3LS,new_size__PWS,lab_type__OWS;
440 __UINTEGER_32 sz__EMS,a__GMS,new_size__HMS,t__IMS,a__JMS;
441 __UINTEGER_32 new_size__3WS,lab_type__2WS,sz__ET,a__QBS,new_size__RBS;
442 __UINTEGER_32 t__JYB,a__F5R,new_size__J4B,lab_type__L4B;
443 void *result__HBS,*result__EC,*file__PD;
444 void *comment__QD,*path__RD,*path_next__SD;
445 void *str__52R,*str__M3R;
446 __CHARACTER *cwd__Y,*p__KBS,*p__FC,*ptr__URQ,*Self__UUS,*Self__ZUS;
447 __CHARACTER *model__0US,*Self__2VS,*Self__BWS,*model__CWS;
448 __BOOLEAN __tmp__HE,__tmp__5E,result__XKB,__tmp__WF,result__ELB;
449 __CHARACTER char__WM;
450 arg_count = argc;
451 arg_vector = argv;
452 parent_numeric__G=NUMERIC__;
453 STRING_CONSTANT__->count__AD=((__INTEGER )((0)));
454 STRING__->count__CB= 0;
455 STRING_CONSTANT__->storage__0ZB=((__CHARACTER *)(NULL));
456 STRING__->storage__0CD=NULL;
457 clone_allocation_size__VT= 0;
458 nb_page__0QC= 0;
459 MEMORY__->size_and_id__AU= 0;
460 capacity_max__CCF= 0;
461 begin_memory__EAC=((__POINTER )(NULL));
462 MEMORY__->previous_linear__5T= 0;
463 first_free__NMI=NULL;
464 MEMORY__->next_free__BU=NULL;
465 MEMORY__->previous_free__CU=NULL;
466 STRING__->capacity__3BD= 0;
467 result__RGS=NULL;
468 ptr__SGS=((__POINTER )(NULL));
469 typ_id__TGS= 0;
470 sz__UGS=((__UINTEGER_32 )sizeof(__STRING));
471 if ((sz__UGS == 0)) {
472 result__RGS=STRING__;
473 } else {
474 typ_id__TGS=-1;
475 clone_allocation_size__VT=sz__UGS;
476 if ((typ_id__TGS == (__INTEGER)(- 1))) {
477 a__WGS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
478 new_size__XGS=(__UINTEGER_32)((__UINTEGER_32)(sz__UGS + a__WGS) & (__UINTEGER_32)(~ a__WGS));
479 ptr_table__TQS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XGS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
480 next__SQS=((__POINTER )(NULL));
481 result__UQS=((__POINTER *)ptr_table__TQS)[ 0];
482 if ((result__UQS == (void *)NULL)) {
483 result__UQS=new_lab__IQC(new_size__XGS);
484 next__SQS=(void *)((unsigned long)result__UQS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XGS)));
485 ((__POINTER *)next__SQS)[ 0]=NULL;
486 ((__POINTER *)ptr_table__TQS)[ 0]=next__SQS;
487 } else {
488 next__SQS=((__POINTER *)result__UQS)[ 0];
489 if ((next__SQS == (void *)NULL)) {
490 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UQS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__XGS << 1)) <= 4096)) {
491 next__SQS=(void *)((unsigned long)result__UQS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XGS)));
492 } else {
493 next__SQS=new_lab__IQC(new_size__XGS);
494 };
495 ((__POINTER *)next__SQS)[ 0]=NULL;
496 ((__POINTER *)ptr_table__TQS)[ 0]=next__SQS;
497 } else {
498 ((__POINTER *)result__UQS)[ 0]=(void *)((unsigned long)((__POINTER *)next__SQS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
499 result__UQS=next__SQS;
500 };
501 };
502 ptr__SGS=result__UQS;
503 } else {
504 t__YGS=((__UINTEGER_32 )typ_id__TGS);
505 a__ZGS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
506 new_size__3QS=(__UINTEGER_32)((__UINTEGER_32)(sz__UGS + a__ZGS) & (__UINTEGER_32)(~ a__ZGS));
507 ptr_table__0QS=((__POINTER )(&(table_type[(t__YGS)])));
508 lab_type__2QS=(__UINTEGER_32)(t__YGS | 1);
509 next__ZQS=((__POINTER )(NULL));
510 result__1QS=((__POINTER *)ptr_table__0QS)[ 0];
511 if ((result__1QS == (void *)NULL)) {
512 result__1QS=new_lab__IQC(lab_type__2QS);
513 next__ZQS=(void *)((unsigned long)result__1QS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3QS)));
514 ((__POINTER *)next__ZQS)[ 0]=NULL;
515 ((__POINTER *)ptr_table__0QS)[ 0]=next__ZQS;
516 } else {
517 next__ZQS=((__POINTER *)result__1QS)[ 0];
518 if ((next__ZQS == (void *)NULL)) {
519 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1QS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__3QS << 1)) <= 4096)) {
520 next__ZQS=(void *)((unsigned long)result__1QS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3QS)));
521 } else {
522 next__ZQS=new_lab__IQC(lab_type__2QS);
523 };
524 ((__POINTER *)next__ZQS)[ 0]=NULL;
525 ((__POINTER *)ptr_table__0QS)[ 0]=next__ZQS;
526 } else {
527 ((__POINTER *)result__1QS)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZQS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
528 result__1QS=next__ZQS;
529 };
530 };
531 ptr__SGS=result__1QS;
532 };
533 result__RGS=((__STRING *)ptr__SGS);
534 *(result__RGS) = *(STRING__);
535 };
536 Self__PGS=((__STRING *)result__RGS);
537 if ((Self__PGS->capacity__3BD < 256)) {
538 Self__PGS->storage__0CD=create__AIH( 256);
539 Self__PGS->capacity__3BD= 256;
540 };
541 Self__PGS->count__CB= 0;
542 string_tmp__2=result__RGS;
543 path_current__GB=NULL;
544 path_home__KB=NULL;
545 shell__MB=NULL;
546 step_count__0C= 0;
547 system__FE=NULL;
548 print__PB((&__string_1));
549 ((__STRING *)result__RGS)->count__CB= 0;
550 Self__0GS=((__STRING *)result__RGS);
551 if ((Self__0GS->capacity__3BD > Self__0GS->count__CB)) {
552 Self__0GS->count__CB=(__INTEGER)(Self__0GS->count__CB + 1);
553 if ((((__CHARACTER *)Self__0GS->storage__0CD)[(__INTEGER)(Self__0GS->count__CB - 1)] != '\0')) {
554 ((__CHARACTER *)Self__0GS->storage__0CD)[(__INTEGER)(Self__0GS->count__CB - 1)]='\0';
555 };
556 } else {
557 new_capacity__4GS= 0;
558 if ((Self__0GS->capacity__3BD <= Self__0GS->count__CB)) {
559 if ((Self__0GS->capacity__3BD == 0)) {
560 Self__0GS->capacity__3BD= 32;
561 Self__0GS->storage__0CD=create__AIH( 32);
562 } else {
563 new_capacity__4GS=(__INTEGER)(Self__0GS->capacity__3BD << 1);
564 Self__0GS->storage__0CD=realloc__with__3IH(Self__0GS->storage__0CD,Self__0GS->capacity__3BD,new_capacity__4GS);
565 Self__0GS->capacity__3BD=new_capacity__4GS;
566 };
567 };
568 ((__CHARACTER *)Self__0GS->storage__0CD)[Self__0GS->count__CB]='\0';
569 Self__0GS->count__CB=(__INTEGER)(Self__0GS->count__CB + 1);
570 };
571 Self__0GS->count__CB=(__INTEGER)(Self__0GS->count__CB - 1);
572 cwd__Y=Self__0GS->storage__0CD;
573 getcwd((cwd__Y),255);
574 from_external__KDD(result__RGS,cwd__Y);
575 needed_capacity__DHS=result__RGS->count__CB;
576 result__EHS=NULL;
577 ptr__FHS=((__POINTER )(NULL));
578 typ_id__GHS= 0;
579 sz__HHS=((__UINTEGER_32 )sizeof(__STRING));
580 if ((sz__HHS == 0)) {
581 result__EHS=STRING__;
582 } else {
583 typ_id__GHS=-1;
584 clone_allocation_size__VT=(__UINTEGER_32)(clone_allocation_size__VT + sz__HHS);
585 if ((typ_id__GHS == (__INTEGER)(- 1))) {
586 a__JHS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
587 new_size__KHS=(__UINTEGER_32)((__UINTEGER_32)(sz__HHS + a__JHS) & (__UINTEGER_32)(~ a__JHS));
588 ptr_table__BRS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KHS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
589 next__ARS=((__POINTER )(NULL));
590 result__CRS=((__POINTER *)ptr_table__BRS)[ 0];
591 if ((result__CRS == (void *)NULL)) {
592 result__CRS=new_lab__IQC(new_size__KHS);
593 next__ARS=(void *)((unsigned long)result__CRS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KHS)));
594 ((__POINTER *)next__ARS)[ 0]=NULL;
595 ((__POINTER *)ptr_table__BRS)[ 0]=next__ARS;
596 } else {
597 next__ARS=((__POINTER *)result__CRS)[ 0];
598 if ((next__ARS == (void *)NULL)) {
599 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CRS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__KHS << 1)) <= 4096)) {
600 next__ARS=(void *)((unsigned long)result__CRS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KHS)));
601 } else {
602 next__ARS=new_lab__IQC(new_size__KHS);
603 };
604 ((__POINTER *)next__ARS)[ 0]=NULL;
605 ((__POINTER *)ptr_table__BRS)[ 0]=next__ARS;
606 } else {
607 ((__POINTER *)result__CRS)[ 0]=(void *)((unsigned long)((__POINTER *)next__ARS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
608 result__CRS=next__ARS;
609 };
610 };
611 ptr__FHS=result__CRS;
612 } else {
613 t__LHS=((__UINTEGER_32 )typ_id__GHS);
614 a__MHS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
615 new_size__LRS=(__UINTEGER_32)((__UINTEGER_32)(sz__HHS + a__MHS) & (__UINTEGER_32)(~ a__MHS));
616 ptr_table__IRS=((__POINTER )(&(table_type[(t__LHS)])));
617 lab_type__KRS=(__UINTEGER_32)(t__LHS | 1);
618 next__HRS=((__POINTER )(NULL));
619 result__JRS=((__POINTER *)ptr_table__IRS)[ 0];
620 if ((result__JRS == (void *)NULL)) {
621 result__JRS=new_lab__IQC(lab_type__KRS);
622 next__HRS=(void *)((unsigned long)result__JRS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LRS)));
623 ((__POINTER *)next__HRS)[ 0]=NULL;
624 ((__POINTER *)ptr_table__IRS)[ 0]=next__HRS;
625 } else {
626 next__HRS=((__POINTER *)result__JRS)[ 0];
627 if ((next__HRS == (void *)NULL)) {
628 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JRS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__LRS << 1)) <= 4096)) {
629 next__HRS=(void *)((unsigned long)result__JRS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LRS)));
630 } else {
631 next__HRS=new_lab__IQC(lab_type__KRS);
632 };
633 ((__POINTER *)next__HRS)[ 0]=NULL;
634 ((__POINTER *)ptr_table__IRS)[ 0]=next__HRS;
635 } else {
636 ((__POINTER *)result__JRS)[ 0]=(void *)((unsigned long)((__POINTER *)next__HRS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
637 result__JRS=next__HRS;
638 };
639 };
640 ptr__FHS=result__JRS;
641 };
642 result__EHS=((__STRING *)ptr__FHS);
643 *(result__EHS) = *(STRING__);
644 };
645 Self__CHS=((__STRING *)result__EHS);
646 if ((needed_capacity__DHS > 0)) {
647 if ((Self__CHS->capacity__3BD < needed_capacity__DHS)) {
648 Self__CHS->storage__0CD=create__AIH(needed_capacity__DHS);
649 Self__CHS->capacity__3BD=needed_capacity__DHS;
650 };
651 };
652 Self__CHS->count__CB= 0;
653 path_current__GB=result__EHS;
654 copy__AFD(result__EHS,result__RGS);
655 result__HBS=NULL;
656 needed_capacity__PHS=((__STRING_CONSTANT *)(&__string_2))->count__AD;
657 result__QHS=NULL;
658 ptr__RHS=((__POINTER )(NULL));
659 typ_id__SHS= 0;
660 sz__THS=((__UINTEGER_32 )sizeof(__STRING));
661 if ((sz__THS == 0)) {
662 result__QHS=STRING__;
663 } else {
664 typ_id__SHS=-1;
665 clone_allocation_size__VT=(__UINTEGER_32)(clone_allocation_size__VT + sz__THS);
666 if ((typ_id__SHS == (__INTEGER)(- 1))) {
667 a__VHS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
668 new_size__WHS=(__UINTEGER_32)((__UINTEGER_32)(sz__THS + a__VHS) & (__UINTEGER_32)(~ a__VHS));
669 ptr_table__PRS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WHS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
670 next__ORS=((__POINTER )(NULL));
671 result__QRS=((__POINTER *)ptr_table__PRS)[ 0];
672 if ((result__QRS == (void *)NULL)) {
673 result__QRS=new_lab__IQC(new_size__WHS);
674 next__ORS=(void *)((unsigned long)result__QRS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WHS)));
675 ((__POINTER *)next__ORS)[ 0]=NULL;
676 ((__POINTER *)ptr_table__PRS)[ 0]=next__ORS;
677 } else {
678 next__ORS=((__POINTER *)result__QRS)[ 0];
679 if ((next__ORS == (void *)NULL)) {
680 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QRS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__WHS << 1)) <= 4096)) {
681 next__ORS=(void *)((unsigned long)result__QRS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WHS)));
682 } else {
683 next__ORS=new_lab__IQC(new_size__WHS);
684 };
685 ((__POINTER *)next__ORS)[ 0]=NULL;
686 ((__POINTER *)ptr_table__PRS)[ 0]=next__ORS;
687 } else {
688 ((__POINTER *)result__QRS)[ 0]=(void *)((unsigned long)((__POINTER *)next__ORS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
689 result__QRS=next__ORS;
690 };
691 };
692 ptr__RHS=result__QRS;
693 } else {
694 t__XHS=((__UINTEGER_32 )typ_id__SHS);
695 a__YHS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
696 new_size__ZRS=(__UINTEGER_32)((__UINTEGER_32)(sz__THS + a__YHS) & (__UINTEGER_32)(~ a__YHS));
697 ptr_table__WRS=((__POINTER )(&(table_type[(t__XHS)])));
698 lab_type__YRS=(__UINTEGER_32)(t__XHS | 1);
699 next__VRS=((__POINTER )(NULL));
700 result__XRS=((__POINTER *)ptr_table__WRS)[ 0];
701 if ((result__XRS == (void *)NULL)) {
702 result__XRS=new_lab__IQC(lab_type__YRS);
703 next__VRS=(void *)((unsigned long)result__XRS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZRS)));
704 ((__POINTER *)next__VRS)[ 0]=NULL;
705 ((__POINTER *)ptr_table__WRS)[ 0]=next__VRS;
706 } else {
707 next__VRS=((__POINTER *)result__XRS)[ 0];
708 if ((next__VRS == (void *)NULL)) {
709 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XRS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__ZRS << 1)) <= 4096)) {
710 next__VRS=(void *)((unsigned long)result__XRS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZRS)));
711 } else {
712 next__VRS=new_lab__IQC(lab_type__YRS);
713 };
714 ((__POINTER *)next__VRS)[ 0]=NULL;
715 ((__POINTER *)ptr_table__WRS)[ 0]=next__VRS;
716 } else {
717 ((__POINTER *)result__XRS)[ 0]=(void *)((unsigned long)((__POINTER *)next__VRS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
718 result__XRS=next__VRS;
719 };
720 };
721 ptr__RHS=result__XRS;
722 };
723 result__QHS=((__STRING *)ptr__RHS);
724 *(result__QHS) = *(STRING__);
725 };
726 Self__OHS=((__STRING *)result__QHS);
727 if ((needed_capacity__PHS > 0)) {
728 if ((Self__OHS->capacity__3BD < needed_capacity__PHS)) {
729 Self__OHS->storage__0CD=create__AIH(needed_capacity__PHS);
730 Self__OHS->capacity__3BD=needed_capacity__PHS;
731 };
732 };
733 Self__OHS->count__CB= 0;
734 copy__AFD(result__QHS,(&__string_2));
735 Self__ZHS=((__STRING *)result__QHS);
736 if ((Self__ZHS->capacity__3BD > Self__ZHS->count__CB)) {
737 Self__ZHS->count__CB=(__INTEGER)(Self__ZHS->count__CB + 1);
738 if ((((__CHARACTER *)Self__ZHS->storage__0CD)[(__INTEGER)(Self__ZHS->count__CB - 1)] != '\0')) {
739 ((__CHARACTER *)Self__ZHS->storage__0CD)[(__INTEGER)(Self__ZHS->count__CB - 1)]='\0';
740 };
741 } else {
742 new_capacity__3HS= 0;
743 if ((Self__ZHS->capacity__3BD <= Self__ZHS->count__CB)) {
744 if ((Self__ZHS->capacity__3BD == 0)) {
745 Self__ZHS->capacity__3BD= 32;
746 Self__ZHS->storage__0CD=create__AIH( 32);
747 } else {
748 new_capacity__3HS=(__INTEGER)(Self__ZHS->capacity__3BD << 1);
749 Self__ZHS->storage__0CD=realloc__with__3IH(Self__ZHS->storage__0CD,Self__ZHS->capacity__3BD,new_capacity__3HS);
750 Self__ZHS->capacity__3BD=new_capacity__3HS;
751 };
752 };
753 ((__CHARACTER *)Self__ZHS->storage__0CD)[Self__ZHS->count__CB]='\0';
754 Self__ZHS->count__CB=(__INTEGER)(Self__ZHS->count__CB + 1);
755 };
756 Self__ZHS->count__CB=(__INTEGER)(Self__ZHS->count__CB - 1);
757 p__KBS=((__CHARACTER *)(getenv((char*)(Self__ZHS->storage__0CD))));
758 if (((void *)p__KBS != (void *)NULL)) {
759 result__AIS=NULL;
760 ptr__BIS=((__POINTER )(NULL));
761 typ_id__CIS= 0;
762 sz__DIS=((__UINTEGER_32 )sizeof(__STRING));
763 if ((sz__DIS == 0)) {
764 result__AIS=STRING__;
765 } else {
766 typ_id__CIS=-1;
767 clone_allocation_size__VT=(__UINTEGER_32)(clone_allocation_size__VT + sz__DIS);
768 if ((typ_id__CIS == (__INTEGER)(- 1))) {
769 a__FIS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
770 new_size__GIS=(__UINTEGER_32)((__UINTEGER_32)(sz__DIS + a__FIS) & (__UINTEGER_32)(~ a__FIS));
771 ptr_table__3RS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GIS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
772 next__2RS=((__POINTER )(NULL));
773 result__4RS=((__POINTER *)ptr_table__3RS)[ 0];
774 if ((result__4RS == (void *)NULL)) {
775 result__4RS=new_lab__IQC(new_size__GIS);
776 next__2RS=(void *)((unsigned long)result__4RS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GIS)));
777 ((__POINTER *)next__2RS)[ 0]=NULL;
778 ((__POINTER *)ptr_table__3RS)[ 0]=next__2RS;
779 } else {
780 next__2RS=((__POINTER *)result__4RS)[ 0];
781 if ((next__2RS == (void *)NULL)) {
782 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4RS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__GIS << 1)) <= 4096)) {
783 next__2RS=(void *)((unsigned long)result__4RS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GIS)));
784 } else {
785 next__2RS=new_lab__IQC(new_size__GIS);
786 };
787 ((__POINTER *)next__2RS)[ 0]=NULL;
788 ((__POINTER *)ptr_table__3RS)[ 0]=next__2RS;
789 } else {
790 ((__POINTER *)result__4RS)[ 0]=(void *)((unsigned long)((__POINTER *)next__2RS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
791 result__4RS=next__2RS;
792 };
793 };
794 ptr__BIS=result__4RS;
795 } else {
796 t__HIS=((__UINTEGER_32 )typ_id__CIS);
797 a__IIS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
798 new_size__HSS=(__UINTEGER_32)((__UINTEGER_32)(sz__DIS + a__IIS) & (__UINTEGER_32)(~ a__IIS));
799 ptr_table__ESS=((__POINTER )(&(table_type[(t__HIS)])));
800 lab_type__GSS=(__UINTEGER_32)(t__HIS | 1);
801 next__DSS=((__POINTER )(NULL));
802 result__FSS=((__POINTER *)ptr_table__ESS)[ 0];
803 if ((result__FSS == (void *)NULL)) {
804 result__FSS=new_lab__IQC(lab_type__GSS);
805 next__DSS=(void *)((unsigned long)result__FSS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HSS)));
806 ((__POINTER *)next__DSS)[ 0]=NULL;
807 ((__POINTER *)ptr_table__ESS)[ 0]=next__DSS;
808 } else {
809 next__DSS=((__POINTER *)result__FSS)[ 0];
810 if ((next__DSS == (void *)NULL)) {
811 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FSS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__HSS << 1)) <= 4096)) {
812 next__DSS=(void *)((unsigned long)result__FSS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HSS)));
813 } else {
814 next__DSS=new_lab__IQC(lab_type__GSS);
815 };
816 ((__POINTER *)next__DSS)[ 0]=NULL;
817 ((__POINTER *)ptr_table__ESS)[ 0]=next__DSS;
818 } else {
819 ((__POINTER *)result__FSS)[ 0]=(void *)((unsigned long)((__POINTER *)next__DSS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
820 result__FSS=next__DSS;
821 };
822 };
823 ptr__BIS=result__FSS;
824 };
825 result__AIS=((__STRING *)ptr__BIS);
826 *(result__AIS) = *(STRING__);
827 };
828 result__HBS=result__AIS;
829 from_external__KDD(result__AIS,p__KBS);
830 };
831 path_home__KB=result__HBS;
832 result__EC=NULL;
833 needed_capacity__LIS=((__STRING_CONSTANT *)(&__string_3))->count__AD;
834 result__MIS=NULL;
835 ptr__NIS=((__POINTER )(NULL));
836 typ_id__OIS= 0;
837 sz__PIS=((__UINTEGER_32 )sizeof(__STRING));
838 if ((sz__PIS == 0)) {
839 result__MIS=STRING__;
840 } else {
841 typ_id__OIS=-1;
842 clone_allocation_size__VT=(__UINTEGER_32)(clone_allocation_size__VT + sz__PIS);
843 if ((typ_id__OIS == (__INTEGER)(- 1))) {
844 a__RIS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
845 new_size__SIS=(__UINTEGER_32)((__UINTEGER_32)(sz__PIS + a__RIS) & (__UINTEGER_32)(~ a__RIS));
846 ptr_table__LSS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SIS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
847 next__KSS=((__POINTER )(NULL));
848 result__MSS=((__POINTER *)ptr_table__LSS)[ 0];
849 if ((result__MSS == (void *)NULL)) {
850 result__MSS=new_lab__IQC(new_size__SIS);
851 next__KSS=(void *)((unsigned long)result__MSS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SIS)));
852 ((__POINTER *)next__KSS)[ 0]=NULL;
853 ((__POINTER *)ptr_table__LSS)[ 0]=next__KSS;
854 } else {
855 next__KSS=((__POINTER *)result__MSS)[ 0];
856 if ((next__KSS == (void *)NULL)) {
857 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MSS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__SIS << 1)) <= 4096)) {
858 next__KSS=(void *)((unsigned long)result__MSS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SIS)));
859 } else {
860 next__KSS=new_lab__IQC(new_size__SIS);
861 };
862 ((__POINTER *)next__KSS)[ 0]=NULL;
863 ((__POINTER *)ptr_table__LSS)[ 0]=next__KSS;
864 } else {
865 ((__POINTER *)result__MSS)[ 0]=(void *)((unsigned long)((__POINTER *)next__KSS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
866 result__MSS=next__KSS;
867 };
868 };
869 ptr__NIS=result__MSS;
870 } else {
871 t__TIS=((__UINTEGER_32 )typ_id__OIS);
872 a__UIS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
873 new_size__VSS=(__UINTEGER_32)((__UINTEGER_32)(sz__PIS + a__UIS) & (__UINTEGER_32)(~ a__UIS));
874 ptr_table__SSS=((__POINTER )(&(table_type[(t__TIS)])));
875 lab_type__USS=(__UINTEGER_32)(t__TIS | 1);
876 next__RSS=((__POINTER )(NULL));
877 result__TSS=((__POINTER *)ptr_table__SSS)[ 0];
878 if ((result__TSS == (void *)NULL)) {
879 result__TSS=new_lab__IQC(lab_type__USS);
880 next__RSS=(void *)((unsigned long)result__TSS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VSS)));
881 ((__POINTER *)next__RSS)[ 0]=NULL;
882 ((__POINTER *)ptr_table__SSS)[ 0]=next__RSS;
883 } else {
884 next__RSS=((__POINTER *)result__TSS)[ 0];
885 if ((next__RSS == (void *)NULL)) {
886 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TSS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__VSS << 1)) <= 4096)) {
887 next__RSS=(void *)((unsigned long)result__TSS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VSS)));
888 } else {
889 next__RSS=new_lab__IQC(lab_type__USS);
890 };
891 ((__POINTER *)next__RSS)[ 0]=NULL;
892 ((__POINTER *)ptr_table__SSS)[ 0]=next__RSS;
893 } else {
894 ((__POINTER *)result__TSS)[ 0]=(void *)((unsigned long)((__POINTER *)next__RSS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
895 result__TSS=next__RSS;
896 };
897 };
898 ptr__NIS=result__TSS;
899 };
900 result__MIS=((__STRING *)ptr__NIS);
901 *(result__MIS) = *(STRING__);
902 };
903 Self__KIS=((__STRING *)result__MIS);
904 if ((needed_capacity__LIS > 0)) {
905 if ((Self__KIS->capacity__3BD < needed_capacity__LIS)) {
906 Self__KIS->storage__0CD=create__AIH(needed_capacity__LIS);
907 Self__KIS->capacity__3BD=needed_capacity__LIS;
908 };
909 };
910 Self__KIS->count__CB= 0;
911 copy__AFD(result__MIS,(&__string_3));
912 Self__VIS=((__STRING *)result__MIS);
913 if ((Self__VIS->capacity__3BD > Self__VIS->count__CB)) {
914 Self__VIS->count__CB=(__INTEGER)(Self__VIS->count__CB + 1);
915 if ((((__CHARACTER *)Self__VIS->storage__0CD)[(__INTEGER)(Self__VIS->count__CB - 1)] != '\0')) {
916 ((__CHARACTER *)Self__VIS->storage__0CD)[(__INTEGER)(Self__VIS->count__CB - 1)]='\0';
917 };
918 } else {
919 new_capacity__ZIS= 0;
920 if ((Self__VIS->capacity__3BD <= Self__VIS->count__CB)) {
921 if ((Self__VIS->capacity__3BD == 0)) {
922 Self__VIS->capacity__3BD= 32;
923 Self__VIS->storage__0CD=create__AIH( 32);
924 } else {
925 new_capacity__ZIS=(__INTEGER)(Self__VIS->capacity__3BD << 1);
926 Self__VIS->storage__0CD=realloc__with__3IH(Self__VIS->storage__0CD,Self__VIS->capacity__3BD,new_capacity__ZIS);
927 Self__VIS->capacity__3BD=new_capacity__ZIS;
928 };
929 };
930 ((__CHARACTER *)Self__VIS->storage__0CD)[Self__VIS->count__CB]='\0';
931 Self__VIS->count__CB=(__INTEGER)(Self__VIS->count__CB + 1);
932 };
933 Self__VIS->count__CB=(__INTEGER)(Self__VIS->count__CB - 1);
934 p__FC=((__CHARACTER *)(getenv((char*)(Self__VIS->storage__0CD))));
935 if (((void *)p__FC != (void *)NULL)) {
936 result__2IS=NULL;
937 ptr__3IS=((__POINTER )(NULL));
938 typ_id__4IS= 0;
939 sz__5IS=((__UINTEGER_32 )sizeof(__STRING));
940 if ((sz__5IS == 0)) {
941 result__2IS=STRING__;
942 } else {
943 typ_id__4IS=-1;
944 clone_allocation_size__VT=(__UINTEGER_32)(clone_allocation_size__VT + sz__5IS);
945 if ((typ_id__4IS == (__INTEGER)(- 1))) {
946 a__BJS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
947 new_size__CJS=(__UINTEGER_32)((__UINTEGER_32)(sz__5IS + a__BJS) & (__UINTEGER_32)(~ a__BJS));
948 ptr_table__ZSS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CJS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
949 next__YSS=((__POINTER )(NULL));
950 result__0SS=((__POINTER *)ptr_table__ZSS)[ 0];
951 if ((result__0SS == (void *)NULL)) {
952 result__0SS=new_lab__IQC(new_size__CJS);
953 next__YSS=(void *)((unsigned long)result__0SS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CJS)));
954 ((__POINTER *)next__YSS)[ 0]=NULL;
955 ((__POINTER *)ptr_table__ZSS)[ 0]=next__YSS;
956 } else {
957 next__YSS=((__POINTER *)result__0SS)[ 0];
958 if ((next__YSS == (void *)NULL)) {
959 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0SS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__CJS << 1)) <= 4096)) {
960 next__YSS=(void *)((unsigned long)result__0SS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CJS)));
961 } else {
962 next__YSS=new_lab__IQC(new_size__CJS);
963 };
964 ((__POINTER *)next__YSS)[ 0]=NULL;
965 ((__POINTER *)ptr_table__ZSS)[ 0]=next__YSS;
966 } else {
967 ((__POINTER *)result__0SS)[ 0]=(void *)((unsigned long)((__POINTER *)next__YSS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
968 result__0SS=next__YSS;
969 };
970 };
971 ptr__3IS=result__0SS;
972 } else {
973 t__DJS=((__UINTEGER_32 )typ_id__4IS);
974 a__EJS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
975 new_size__DTS=(__UINTEGER_32)((__UINTEGER_32)(sz__5IS + a__EJS) & (__UINTEGER_32)(~ a__EJS));
976 ptr_table__ATS=((__POINTER )(&(table_type[(t__DJS)])));
977 lab_type__CTS=(__UINTEGER_32)(t__DJS | 1);
978 next__5SS=((__POINTER )(NULL));
979 result__BTS=((__POINTER *)ptr_table__ATS)[ 0];
980 if ((result__BTS == (void *)NULL)) {
981 result__BTS=new_lab__IQC(lab_type__CTS);
982 next__5SS=(void *)((unsigned long)result__BTS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DTS)));
983 ((__POINTER *)next__5SS)[ 0]=NULL;
984 ((__POINTER *)ptr_table__ATS)[ 0]=next__5SS;
985 } else {
986 next__5SS=((__POINTER *)result__BTS)[ 0];
987 if ((next__5SS == (void *)NULL)) {
988 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BTS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__DTS << 1)) <= 4096)) {
989 next__5SS=(void *)((unsigned long)result__BTS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DTS)));
990 } else {
991 next__5SS=new_lab__IQC(lab_type__CTS);
992 };
993 ((__POINTER *)next__5SS)[ 0]=NULL;
994 ((__POINTER *)ptr_table__ATS)[ 0]=next__5SS;
995 } else {
996 ((__POINTER *)result__BTS)[ 0]=(void *)((unsigned long)((__POINTER *)next__5SS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
997 result__BTS=next__5SS;
998 };
999 };
1000 ptr__3IS=result__BTS;
1001 };
1002 result__2IS=((__STRING *)ptr__3IS);
1003 *(result__2IS) = *(STRING__);
1004 };
1005 result__EC=result__2IS;
1006 from_external__KDD(result__2IS,p__FC);
1007 };
1008 shell__MB=result__EC;
1009 title__XC((&__string_4));
1010 std_file__MD=((__POINTER )(NULL));
1011 file__PD=NULL;
1012 comment__QD=NULL;
1013 path__RD=NULL;
1014 path_next__SD=NULL;
1015 if (((void *)shell__MB != (void *)NULL)) {
1016 str__52R=path_home__KB;
1017 needed_capacity__HJS=((__STRING *)path_home__KB)->count__CB;
1018 result__IJS=NULL;
1019 ptr__JJS=((__POINTER )(NULL));
1020 typ_id__KJS= 0;
1021 sz__LJS=((__UINTEGER_32 )sizeof(__STRING));
1022 if ((sz__LJS == 0)) {
1023 result__IJS=STRING__;
1024 } else {
1025 typ_id__KJS=-1;
1026 clone_allocation_size__VT=(__UINTEGER_32)(clone_allocation_size__VT + sz__LJS);
1027 if ((typ_id__KJS == (__INTEGER)(- 1))) {
1028 a__NJS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
1029 new_size__OJS=(__UINTEGER_32)((__UINTEGER_32)(sz__LJS + a__NJS) & (__UINTEGER_32)(~ a__NJS));
1030 ptr_table__HTS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__OJS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
1031 next__GTS=((__POINTER )(NULL));
1032 result__ITS=((__POINTER *)ptr_table__HTS)[ 0];
1033 if ((result__ITS == (void *)NULL)) {
1034 result__ITS=new_lab__IQC(new_size__OJS);
1035 next__GTS=(void *)((unsigned long)result__ITS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OJS)));
1036 ((__POINTER *)next__GTS)[ 0]=NULL;
1037 ((__POINTER *)ptr_table__HTS)[ 0]=next__GTS;
1038 } else {
1039 next__GTS=((__POINTER *)result__ITS)[ 0];
1040 if ((next__GTS == (void *)NULL)) {
1041 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ITS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__OJS << 1)) <= 4096)) {
1042 next__GTS=(void *)((unsigned long)result__ITS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OJS)));
1043 } else {
1044 next__GTS=new_lab__IQC(new_size__OJS);
1045 };
1046 ((__POINTER *)next__GTS)[ 0]=NULL;
1047 ((__POINTER *)ptr_table__HTS)[ 0]=next__GTS;
1048 } else {
1049 ((__POINTER *)result__ITS)[ 0]=(void *)((unsigned long)((__POINTER *)next__GTS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
1050 result__ITS=next__GTS;
1051 };
1052 };
1053 ptr__JJS=result__ITS;
1054 } else {
1055 t__PJS=((__UINTEGER_32 )typ_id__KJS);
1056 a__QJS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
1057 new_size__RTS=(__UINTEGER_32)((__UINTEGER_32)(sz__LJS + a__QJS) & (__UINTEGER_32)(~ a__QJS));
1058 ptr_table__OTS=((__POINTER )(&(table_type[(t__PJS)])));
1059 lab_type__QTS=(__UINTEGER_32)(t__PJS | 1);
1060 next__NTS=((__POINTER )(NULL));
1061 result__PTS=((__POINTER *)ptr_table__OTS)[ 0];
1062 if ((result__PTS == (void *)NULL)) {
1063 result__PTS=new_lab__IQC(lab_type__QTS);
1064 next__NTS=(void *)((unsigned long)result__PTS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RTS)));
1065 ((__POINTER *)next__NTS)[ 0]=NULL;
1066 ((__POINTER *)ptr_table__OTS)[ 0]=next__NTS;
1067 } else {
1068 next__NTS=((__POINTER *)result__PTS)[ 0];
1069 if ((next__NTS == (void *)NULL)) {
1070 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PTS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__RTS << 1)) <= 4096)) {
1071 next__NTS=(void *)((unsigned long)result__PTS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RTS)));
1072 } else {
1073 next__NTS=new_lab__IQC(lab_type__QTS);
1074 };
1075 ((__POINTER *)next__NTS)[ 0]=NULL;
1076 ((__POINTER *)ptr_table__OTS)[ 0]=next__NTS;
1077 } else {
1078 ((__POINTER *)result__PTS)[ 0]=(void *)((unsigned long)((__POINTER *)next__NTS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
1079 result__PTS=next__NTS;
1080 };
1081 };
1082 ptr__JJS=result__PTS;
1083 };
1084 result__IJS=((__STRING *)ptr__JJS);
1085 *(result__IJS) = *(STRING__);
1086 };
1087 Self__GJS=((__STRING *)result__IJS);
1088 if ((needed_capacity__HJS > 0)) {
1089 if ((Self__GJS->capacity__3BD < needed_capacity__HJS)) {
1090 Self__GJS->storage__0CD=create__AIH(needed_capacity__HJS);
1091 Self__GJS->capacity__3BD=needed_capacity__HJS;
1092 };
1093 };
1094 Self__GJS->count__CB= 0;
1095 copy__AFD(result__IJS,str__52R);
1096 file__PD=result__IJS;
1097 if ((((__STRING *)shell__MB)->count__CB == 0)) {
1098 print__PB((&__string_5));
1099 system__FE=(&__string_6);
1100 __tmp__HE=TRUE__;
1101 } else {
1102 __tmp__HE=FALSE__;
1103 };
1104 if (__tmp__HE) {
1105 __tmp__5E=TRUE__;
1106 } else {
1107 result__XKB=(first_substring_index__COD(((__STRING *)shell__MB),(&__string_7)) != 0);
1108 if (result__XKB) {
1109 append__OID(result__IJS,(&__string_8));
1110 system__FE=(&__string_9);
1111 comment__QD=(&__string_10);
1112 path__RD=(&__string_11);
1113 path_next__SD=(&__string_12);
1114 };
1115 __tmp__5E=result__XKB;
1116 };
1117 if (__tmp__5E) {
1118 __tmp__WF=TRUE__;
1119 } else {
1120 result__ELB=(first_substring_index__COD(((__STRING *)shell__MB),(&__string_13)) != 0);
1121 if (result__ELB) {
1122 append__OID(result__IJS,(&__string_14));
1123 system__FE=(&__string_15);
1124 comment__QD=(&__string_10);
1125 path__RD=(&__string_16);
1126 path_next__SD=(&__string_17);
1127 };
1128 __tmp__WF=result__ELB;
1129 };
1130 if ((! __tmp__WF)) {
1131 if ((first_substring_index__COD(((__STRING *)shell__MB),(&__string_18)) != 0)) {
1132 append__OID(result__IJS,(&__string_19));
1133 system__FE=(&__string_20);
1134 comment__QD=(&__string_10);
1135 path__RD=(&__string_11);
1136 path_next__SD=(&__string_12);
1137 } else {
1138 print__PB((&__string_21));
1139 put_string__XR(((__STRING *)shell__MB));
1140 fputc((int)('\n'),stdout);
1141 system__FE=(&__string_6);
1142 };
1143 };
1144 } else {
1145 copy__AFD(result__RGS,(&__string_22));
1146 Self__RJS=((__STRING *)result__RGS);
1147 if ((Self__RJS->capacity__3BD > Self__RJS->count__CB)) {
1148 Self__RJS->count__CB=(__INTEGER)(Self__RJS->count__CB + 1);
1149 if ((((__CHARACTER *)Self__RJS->storage__0CD)[(__INTEGER)(Self__RJS->count__CB - 1)] != '\0')) {
1150 ((__CHARACTER *)Self__RJS->storage__0CD)[(__INTEGER)(Self__RJS->count__CB - 1)]='\0';
1151 };
1152 } else {
1153 new_capacity__VJS= 0;
1154 if ((Self__RJS->capacity__3BD <= Self__RJS->count__CB)) {
1155 if ((Self__RJS->capacity__3BD == 0)) {
1156 Self__RJS->capacity__3BD= 32;
1157 Self__RJS->storage__0CD=create__AIH( 32);
1158 } else {
1159 new_capacity__VJS=(__INTEGER)(Self__RJS->capacity__3BD << 1);
1160 Self__RJS->storage__0CD=realloc__with__3IH(Self__RJS->storage__0CD,Self__RJS->capacity__3BD,new_capacity__VJS);
1161 Self__RJS->capacity__3BD=new_capacity__VJS;
1162 };
1163 };
1164 ((__CHARACTER *)Self__RJS->storage__0CD)[Self__RJS->count__CB]='\0';
1165 Self__RJS->count__CB=(__INTEGER)(Self__RJS->count__CB + 1);
1166 };
1167 Self__RJS->count__CB=(__INTEGER)(Self__RJS->count__CB - 1);
1168 std_file__MD=((__POINTER )(fopen((char*)(Self__RJS->storage__0CD),"rb")));
1169 if ((std_file__MD != (void *)NULL)) {
1170 fclose((FILE*)((std_file__MD)));
1171 needed_capacity__0JS=((__STRING_CONSTANT *)(&__string_23))->count__AD;
1172 result__1JS=NULL;
1173 ptr__2JS=((__POINTER )(NULL));
1174 typ_id__3JS= 0;
1175 sz__4JS=((__UINTEGER_32 )sizeof(__STRING));
1176 if ((sz__4JS == 0)) {
1177 result__1JS=STRING__;
1178 } else {
1179 typ_id__3JS=-1;
1180 clone_allocation_size__VT=(__UINTEGER_32)(clone_allocation_size__VT + sz__4JS);
1181 if ((typ_id__3JS == (__INTEGER)(- 1))) {
1182 a__AKS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
1183 new_size__BKS=(__UINTEGER_32)((__UINTEGER_32)(sz__4JS + a__AKS) & (__UINTEGER_32)(~ a__AKS));
1184 ptr_table__VTS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__BKS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
1185 next__UTS=((__POINTER )(NULL));
1186 result__WTS=((__POINTER *)ptr_table__VTS)[ 0];
1187 if ((result__WTS == (void *)NULL)) {
1188 result__WTS=new_lab__IQC(new_size__BKS);
1189 next__UTS=(void *)((unsigned long)result__WTS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BKS)));
1190 ((__POINTER *)next__UTS)[ 0]=NULL;
1191 ((__POINTER *)ptr_table__VTS)[ 0]=next__UTS;
1192 } else {
1193 next__UTS=((__POINTER *)result__WTS)[ 0];
1194 if ((next__UTS == (void *)NULL)) {
1195 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WTS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__BKS << 1)) <= 4096)) {
1196 next__UTS=(void *)((unsigned long)result__WTS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BKS)));
1197 } else {
1198 next__UTS=new_lab__IQC(new_size__BKS);
1199 };
1200 ((__POINTER *)next__UTS)[ 0]=NULL;
1201 ((__POINTER *)ptr_table__VTS)[ 0]=next__UTS;
1202 } else {
1203 ((__POINTER *)result__WTS)[ 0]=(void *)((unsigned long)((__POINTER *)next__UTS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
1204 result__WTS=next__UTS;
1205 };
1206 };
1207 ptr__2JS=result__WTS;
1208 } else {
1209 t__CKS=((__UINTEGER_32 )typ_id__3JS);
1210 a__DKS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
1211 new_size__5TS=(__UINTEGER_32)((__UINTEGER_32)(sz__4JS + a__DKS) & (__UINTEGER_32)(~ a__DKS));
1212 ptr_table__2TS=((__POINTER )(&(table_type[(t__CKS)])));
1213 lab_type__4TS=(__UINTEGER_32)(t__CKS | 1);
1214 next__1TS=((__POINTER )(NULL));
1215 result__3TS=((__POINTER *)ptr_table__2TS)[ 0];
1216 if ((result__3TS == (void *)NULL)) {
1217 result__3TS=new_lab__IQC(lab_type__4TS);
1218 next__1TS=(void *)((unsigned long)result__3TS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5TS)));
1219 ((__POINTER *)next__1TS)[ 0]=NULL;
1220 ((__POINTER *)ptr_table__2TS)[ 0]=next__1TS;
1221 } else {
1222 next__1TS=((__POINTER *)result__3TS)[ 0];
1223 if ((next__1TS == (void *)NULL)) {
1224 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3TS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__5TS << 1)) <= 4096)) {
1225 next__1TS=(void *)((unsigned long)result__3TS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5TS)));
1226 } else {
1227 next__1TS=new_lab__IQC(lab_type__4TS);
1228 };
1229 ((__POINTER *)next__1TS)[ 0]=NULL;
1230 ((__POINTER *)ptr_table__2TS)[ 0]=next__1TS;
1231 } else {
1232 ((__POINTER *)result__3TS)[ 0]=(void *)((unsigned long)((__POINTER *)next__1TS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
1233 result__3TS=next__1TS;
1234 };
1235 };
1236 ptr__2JS=result__3TS;
1237 };
1238 result__1JS=((__STRING *)ptr__2JS);
1239 *(result__1JS) = *(STRING__);
1240 };
1241 Self__ZJS=((__STRING *)result__1JS);
1242 if ((needed_capacity__0JS > 0)) {
1243 if ((Self__ZJS->capacity__3BD < needed_capacity__0JS)) {
1244 Self__ZJS->storage__0CD=create__AIH(needed_capacity__0JS);
1245 Self__ZJS->capacity__3BD=needed_capacity__0JS;
1246 };
1247 };
1248 Self__ZJS->count__CB= 0;
1249 copy__AFD(result__1JS,(&__string_23));
1250 file__PD=result__1JS;
1251 system__FE=(&__string_24);
1252 comment__QD=(&__string_25);
1253 path__RD=(&__string_26);
1254 path_next__SD=(&__string_27);
1255 } else {
1256 system__FE=(&__string_6);
1257 };
1258 };
1259 print__PB((&__string_28));
1260 print__PB(system__FE);
1261 fputc((int)('\n'),stdout);
1262 if (((void *)system__FE != (void *)(&__string_6))) {
1263 if (((void *)system__FE == (void *)(&__string_24))) {
1264 update__idf__with__confirmation__DZ((&__string_29),(&__string_30),(&__string_31),FALSE__);
1265 print__PB((&__string_32));
1266 } else {
1267 update__idf__with__confirmation__DZ((&__string_29),(&__string_30),(&__string_33),FALSE__);
1268 print__PB((&__string_34));
1269 execute_command__X4((&__string_35));
1270 copy__AFD(result__RGS,(&__string_36));
1271 Self__EKS=((__STRING *)result__RGS);
1272 if ((Self__EKS->capacity__3BD > Self__EKS->count__CB)) {
1273 Self__EKS->count__CB=(__INTEGER)(Self__EKS->count__CB + 1);
1274 if ((((__CHARACTER *)Self__EKS->storage__0CD)[(__INTEGER)(Self__EKS->count__CB - 1)] != '\0')) {
1275 ((__CHARACTER *)Self__EKS->storage__0CD)[(__INTEGER)(Self__EKS->count__CB - 1)]='\0';
1276 };
1277 } else {
1278 new_capacity__IKS= 0;
1279 if ((Self__EKS->capacity__3BD <= Self__EKS->count__CB)) {
1280 if ((Self__EKS->capacity__3BD == 0)) {
1281 Self__EKS->capacity__3BD= 32;
1282 Self__EKS->storage__0CD=create__AIH( 32);
1283 } else {
1284 new_capacity__IKS=(__INTEGER)(Self__EKS->capacity__3BD << 1);
1285 Self__EKS->storage__0CD=realloc__with__3IH(Self__EKS->storage__0CD,Self__EKS->capacity__3BD,new_capacity__IKS);
1286 Self__EKS->capacity__3BD=new_capacity__IKS;
1287 };
1288 };
1289 ((__CHARACTER *)Self__EKS->storage__0CD)[Self__EKS->count__CB]='\0';
1290 Self__EKS->count__CB=(__INTEGER)(Self__EKS->count__CB + 1);
1291 };
1292 Self__EKS->count__CB=(__INTEGER)(Self__EKS->count__CB - 1);
1293 std_file__MD=((__POINTER )(fopen((char*)(Self__EKS->storage__0CD),"rb")));
1294 fseek((FILE*)((std_file__MD)),0,SEEK_END);
1295 result__FAQ=((__INTEGER )(ftell((FILE *)(std_file__MD))));
1296 fseek((FILE*)((std_file__MD)),0,SEEK_SET);
1297 if ((result__FAQ == 0)) {
1298 print__PB((&__string_37));
1299 } else {
1300 result__OKS=NULL;
1301 ptr__PKS=((__POINTER )(NULL));
1302 typ_id__QKS= 0;
1303 sz__RKS=((__UINTEGER_32 )sizeof(__STRING));
1304 if ((sz__RKS == 0)) {
1305 result__OKS=STRING__;
1306 } else {
1307 typ_id__QKS=-1;
1308 clone_allocation_size__VT=(__UINTEGER_32)(clone_allocation_size__VT + sz__RKS);
1309 if ((typ_id__QKS == (__INTEGER)(- 1))) {
1310 a__TKS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
1311 new_size__UKS=(__UINTEGER_32)((__UINTEGER_32)(sz__RKS + a__TKS) & (__UINTEGER_32)(~ a__TKS));
1312 ptr_table__DUS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__UKS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
1313 next__CUS=((__POINTER )(NULL));
1314 result__EUS=((__POINTER *)ptr_table__DUS)[ 0];
1315 if ((result__EUS == (void *)NULL)) {
1316 result__EUS=new_lab__IQC(new_size__UKS);
1317 next__CUS=(void *)((unsigned long)result__EUS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UKS)));
1318 ((__POINTER *)next__CUS)[ 0]=NULL;
1319 ((__POINTER *)ptr_table__DUS)[ 0]=next__CUS;
1320 } else {
1321 next__CUS=((__POINTER *)result__EUS)[ 0];
1322 if ((next__CUS == (void *)NULL)) {
1323 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EUS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__UKS << 1)) <= 4096)) {
1324 next__CUS=(void *)((unsigned long)result__EUS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UKS)));
1325 } else {
1326 next__CUS=new_lab__IQC(new_size__UKS);
1327 };
1328 ((__POINTER *)next__CUS)[ 0]=NULL;
1329 ((__POINTER *)ptr_table__DUS)[ 0]=next__CUS;
1330 } else {
1331 ((__POINTER *)result__EUS)[ 0]=(void *)((unsigned long)((__POINTER *)next__CUS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
1332 result__EUS=next__CUS;
1333 };
1334 };
1335 ptr__PKS=result__EUS;
1336 } else {
1337 t__VKS=((__UINTEGER_32 )typ_id__QKS);
1338 a__WKS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
1339 new_size__NUS=(__UINTEGER_32)((__UINTEGER_32)(sz__RKS + a__WKS) & (__UINTEGER_32)(~ a__WKS));
1340 ptr_table__KUS=((__POINTER )(&(table_type[(t__VKS)])));
1341 lab_type__MUS=(__UINTEGER_32)(t__VKS | 1);
1342 next__JUS=((__POINTER )(NULL));
1343 result__LUS=((__POINTER *)ptr_table__KUS)[ 0];
1344 if ((result__LUS == (void *)NULL)) {
1345 result__LUS=new_lab__IQC(lab_type__MUS);
1346 next__JUS=(void *)((unsigned long)result__LUS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NUS)));
1347 ((__POINTER *)next__JUS)[ 0]=NULL;
1348 ((__POINTER *)ptr_table__KUS)[ 0]=next__JUS;
1349 } else {
1350 next__JUS=((__POINTER *)result__LUS)[ 0];
1351 if ((next__JUS == (void *)NULL)) {
1352 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LUS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__NUS << 1)) <= 4096)) {
1353 next__JUS=(void *)((unsigned long)result__LUS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NUS)));
1354 } else {
1355 next__JUS=new_lab__IQC(lab_type__MUS);
1356 };
1357 ((__POINTER *)next__JUS)[ 0]=NULL;
1358 ((__POINTER *)ptr_table__KUS)[ 0]=next__JUS;
1359 } else {
1360 ((__POINTER *)result__LUS)[ 0]=(void *)((unsigned long)((__POINTER *)next__JUS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
1361 result__LUS=next__JUS;
1362 };
1363 };
1364 ptr__PKS=result__LUS;
1365 };
1366 result__OKS=((__STRING *)ptr__PKS);
1367 *(result__OKS) = *(STRING__);
1368 };
1369 Self__MKS=((__STRING *)result__OKS);
1370 if ((result__FAQ > 0)) {
1371 if ((Self__MKS->capacity__3BD < result__FAQ)) {
1372 Self__MKS->storage__0CD=create__AIH(result__FAQ);
1373 Self__MKS->capacity__3BD=result__FAQ;
1374 };
1375 };
1376 Self__MKS->count__CB= 0;
1377 Self__YBD=((__STRING *)result__OKS);
1378 if ((Self__YBD->capacity__3BD > Self__YBD->count__CB)) {
1379 Self__YBD->count__CB=(__INTEGER)(Self__YBD->count__CB + 1);
1380 if ((((__CHARACTER *)Self__YBD->storage__0CD)[(__INTEGER)(Self__YBD->count__CB - 1)] != '\0')) {
1381 ((__CHARACTER *)Self__YBD->storage__0CD)[(__INTEGER)(Self__YBD->count__CB - 1)]='\0';
1382 };
1383 } else {
1384 new_capacity__XKS= 0;
1385 if ((Self__YBD->capacity__3BD <= Self__YBD->count__CB)) {
1386 if ((Self__YBD->capacity__3BD == 0)) {
1387 Self__YBD->capacity__3BD= 32;
1388 Self__YBD->storage__0CD=create__AIH( 32);
1389 } else {
1390 new_capacity__XKS=(__INTEGER)(Self__YBD->capacity__3BD << 1);
1391 Self__YBD->storage__0CD=realloc__with__3IH(Self__YBD->storage__0CD,Self__YBD->capacity__3BD,new_capacity__XKS);
1392 Self__YBD->capacity__3BD=new_capacity__XKS;
1393 };
1394 };
1395 ((__CHARACTER *)Self__YBD->storage__0CD)[Self__YBD->count__CB]='\0';
1396 Self__YBD->count__CB=(__INTEGER)(Self__YBD->count__CB + 1);
1397 };
1398 Self__YBD->count__CB=(__INTEGER)(Self__YBD->count__CB - 1);
1399 ptr__URQ=Self__YBD->storage__0CD;
1400 fread((void *)((ptr__URQ)),(size_t)(1), (size_t)((result__FAQ)),(FILE*)((std_file__MD)));
1401 from_external__KDD(result__OKS,ptr__URQ);
1402 Self__MSD=((__STRING *)result__OKS);
1403 if (( 10 > Self__MSD->count__CB)) {
1404 Self__MSD->count__CB= 0;
1405 } else {
1406 Self__MSD->count__CB=(__INTEGER)(Self__MSD->count__CB - 10);
1407 };
1408 Self__E3R=((__STRING *)result__OKS);
1409 i__F3R=Self__E3R->count__CB;
1410 j__H3R=((__STRING_CONSTANT *)(&__string_38))->count__AD;
1411 new_count__QUS=(__INTEGER)(i__F3R + j__H3R);
1412 if ((! (new_count__QUS <= Self__E3R->count__CB))) {
1413 if ((Self__E3R->capacity__3BD < new_count__QUS)) {
1414 if ((Self__E3R->capacity__3BD == 0)) {
1415 Self__E3R->storage__0CD=create__AIH(new_count__QUS);
1416 } else {
1417 Self__E3R->storage__0CD=realloc__with__3IH(Self__E3R->storage__0CD,Self__E3R->capacity__3BD,new_count__QUS);
1418 };
1419 Self__E3R->capacity__3BD=new_count__QUS;
1420 } else {
1421 Self__UUS=((__CHARACTER *)Self__E3R->storage__0CD);
1422 lower__SUS=Self__E3R->count__CB;
1423 upper__VUS=(__INTEGER)(new_count__QUS - 1);
1424 Self__TUS=lower__SUS;
1425 while ((Self__TUS <= upper__VUS)) {
1426 Self__UUS[Self__TUS]='\0';
1427 Self__TUS=(__INTEGER)(Self__TUS + 1);
1428 };
1429 };
1430 };
1431 Self__E3R->count__CB=new_count__QUS;
1432 if (((i__F3R > 0) && (j__H3R > 0))) {
1433 move__to__by__2LF(Self__E3R->storage__0CD, 0,(__INTEGER)(i__F3R - 1),j__H3R);
1434 };
1435 Self__ZUS=((__CHARACTER *)Self__E3R->storage__0CD);
1436 model__0US=((__STRING_CONSTANT *)(&__string_38))->storage__0ZB;
1437 Self__YUS=(__INTEGER)(j__H3R - 1);
1438 while ((Self__YUS >= 0)) {
1439 Self__ZUS[Self__YUS]=((__CHARACTER *)model__0US)[Self__YUS];
1440 Self__YUS=(__INTEGER)(Self__YUS - 1);
1441 };
1442 append__OID(result__OKS,(&__string_39));
1443 update__idf__with__confirmation__DZ((&__string_29),(&__string_40),result__OKS,FALSE__);
1444 };
1445 fclose((FILE*)((std_file__MD)));
1446 execute_command__X4((&__string_41));
1447 };
1448 };
1449 fputc((int)('\n'),stdout);
1450 title__XC((&__string_42));
1451 if (((void *)system__FE == (void *)(&__string_6))) {
1452 print__PB((&__string_43));
1453 put_string__XR(((__STRING *)path_current__GB));
1454 print__PB((&__string_44));
1455 } else {
1456 needed_capacity__2KS=((__STRING_CONSTANT *)comment__QD)->count__AD;
1457 result__3KS=NULL;
1458 ptr__4KS=((__POINTER )(NULL));
1459 typ_id__5KS= 0;
1460 sz__ALS=((__UINTEGER_32 )sizeof(__STRING));
1461 if ((sz__ALS == 0)) {
1462 result__3KS=STRING__;
1463 } else {
1464 typ_id__5KS=-1;
1465 clone_allocation_size__VT=(__UINTEGER_32)(clone_allocation_size__VT + sz__ALS);
1466 if ((typ_id__5KS == (__INTEGER)(- 1))) {
1467 a__CLS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
1468 new_size__DLS=(__UINTEGER_32)((__UINTEGER_32)(sz__ALS + a__CLS) & (__UINTEGER_32)(~ a__CLS));
1469 ptr_table__3US=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__DLS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
1470 next__2US=((__POINTER )(NULL));
1471 result__4US=((__POINTER *)ptr_table__3US)[ 0];
1472 if ((result__4US == (void *)NULL)) {
1473 result__4US=new_lab__IQC(new_size__DLS);
1474 next__2US=(void *)((unsigned long)result__4US - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DLS)));
1475 ((__POINTER *)next__2US)[ 0]=NULL;
1476 ((__POINTER *)ptr_table__3US)[ 0]=next__2US;
1477 } else {
1478 next__2US=((__POINTER *)result__4US)[ 0];
1479 if ((next__2US == (void *)NULL)) {
1480 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4US - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__DLS << 1)) <= 4096)) {
1481 next__2US=(void *)((unsigned long)result__4US - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DLS)));
1482 } else {
1483 next__2US=new_lab__IQC(new_size__DLS);
1484 };
1485 ((__POINTER *)next__2US)[ 0]=NULL;
1486 ((__POINTER *)ptr_table__3US)[ 0]=next__2US;
1487 } else {
1488 ((__POINTER *)result__4US)[ 0]=(void *)((unsigned long)((__POINTER *)next__2US)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
1489 result__4US=next__2US;
1490 };
1491 };
1492 ptr__4KS=result__4US;
1493 } else {
1494 t__ELS=((__UINTEGER_32 )typ_id__5KS);
1495 a__FLS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
1496 new_size__HVS=(__UINTEGER_32)((__UINTEGER_32)(sz__ALS + a__FLS) & (__UINTEGER_32)(~ a__FLS));
1497 ptr_table__EVS=((__POINTER )(&(table_type[(t__ELS)])));
1498 lab_type__GVS=(__UINTEGER_32)(t__ELS | 1);
1499 next__DVS=((__POINTER )(NULL));
1500 result__FVS=((__POINTER *)ptr_table__EVS)[ 0];
1501 if ((result__FVS == (void *)NULL)) {
1502 result__FVS=new_lab__IQC(lab_type__GVS);
1503 next__DVS=(void *)((unsigned long)result__FVS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HVS)));
1504 ((__POINTER *)next__DVS)[ 0]=NULL;
1505 ((__POINTER *)ptr_table__EVS)[ 0]=next__DVS;
1506 } else {
1507 next__DVS=((__POINTER *)result__FVS)[ 0];
1508 if ((next__DVS == (void *)NULL)) {
1509 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FVS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__HVS << 1)) <= 4096)) {
1510 next__DVS=(void *)((unsigned long)result__FVS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HVS)));
1511 } else {
1512 next__DVS=new_lab__IQC(lab_type__GVS);
1513 };
1514 ((__POINTER *)next__DVS)[ 0]=NULL;
1515 ((__POINTER *)ptr_table__EVS)[ 0]=next__DVS;
1516 } else {
1517 ((__POINTER *)result__FVS)[ 0]=(void *)((unsigned long)((__POINTER *)next__DVS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
1518 result__FVS=next__DVS;
1519 };
1520 };
1521 ptr__4KS=result__FVS;
1522 };
1523 result__3KS=((__STRING *)ptr__4KS);
1524 *(result__3KS) = *(STRING__);
1525 };
1526 Self__1KS=((__STRING *)result__3KS);
1527 if ((needed_capacity__2KS > 0)) {
1528 if ((Self__1KS->capacity__3BD < needed_capacity__2KS)) {
1529 Self__1KS->storage__0CD=create__AIH(needed_capacity__2KS);
1530 Self__1KS->capacity__3BD=needed_capacity__2KS;
1531 };
1532 };
1533 Self__1KS->count__CB= 0;
1534 copy__AFD(result__3KS,comment__QD);
1535 append__OID(result__3KS,path__RD);
1536 append__OID(result__3KS,path_current__GB);
1537 append__OID(result__3KS,path_next__SD);
1538 update__idf__with__confirmation__DZ(file__PD,comment__QD,result__3KS,TRUE__);
1539 };
1540 title__XC((&__string_45));
1541 str__M3R=path_current__GB;
1542 needed_capacity__ILS=((__STRING *)path_current__GB)->count__CB;
1543 result__JLS=NULL;
1544 ptr__KLS=((__POINTER )(NULL));
1545 typ_id__LLS= 0;
1546 sz__MLS=((__UINTEGER_32 )sizeof(__STRING));
1547 if ((sz__MLS == 0)) {
1548 result__JLS=STRING__;
1549 } else {
1550 typ_id__LLS=-1;
1551 clone_allocation_size__VT=(__UINTEGER_32)(clone_allocation_size__VT + sz__MLS);
1552 if ((typ_id__LLS == (__INTEGER)(- 1))) {
1553 a__OLS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
1554 new_size__PLS=(__UINTEGER_32)((__UINTEGER_32)(sz__MLS + a__OLS) & (__UINTEGER_32)(~ a__OLS));
1555 ptr_table__LVS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PLS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
1556 next__KVS=((__POINTER )(NULL));
1557 result__MVS=((__POINTER *)ptr_table__LVS)[ 0];
1558 if ((result__MVS == (void *)NULL)) {
1559 result__MVS=new_lab__IQC(new_size__PLS);
1560 next__KVS=(void *)((unsigned long)result__MVS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PLS)));
1561 ((__POINTER *)next__KVS)[ 0]=NULL;
1562 ((__POINTER *)ptr_table__LVS)[ 0]=next__KVS;
1563 } else {
1564 next__KVS=((__POINTER *)result__MVS)[ 0];
1565 if ((next__KVS == (void *)NULL)) {
1566 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MVS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__PLS << 1)) <= 4096)) {
1567 next__KVS=(void *)((unsigned long)result__MVS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PLS)));
1568 } else {
1569 next__KVS=new_lab__IQC(new_size__PLS);
1570 };
1571 ((__POINTER *)next__KVS)[ 0]=NULL;
1572 ((__POINTER *)ptr_table__LVS)[ 0]=next__KVS;
1573 } else {
1574 ((__POINTER *)result__MVS)[ 0]=(void *)((unsigned long)((__POINTER *)next__KVS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
1575 result__MVS=next__KVS;
1576 };
1577 };
1578 ptr__KLS=result__MVS;
1579 } else {
1580 t__QLS=((__UINTEGER_32 )typ_id__LLS);
1581 a__RLS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
1582 new_size__VVS=(__UINTEGER_32)((__UINTEGER_32)(sz__MLS + a__RLS) & (__UINTEGER_32)(~ a__RLS));
1583 ptr_table__SVS=((__POINTER )(&(table_type[(t__QLS)])));
1584 lab_type__UVS=(__UINTEGER_32)(t__QLS | 1);
1585 next__RVS=((__POINTER )(NULL));
1586 result__TVS=((__POINTER *)ptr_table__SVS)[ 0];
1587 if ((result__TVS == (void *)NULL)) {
1588 result__TVS=new_lab__IQC(lab_type__UVS);
1589 next__RVS=(void *)((unsigned long)result__TVS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VVS)));
1590 ((__POINTER *)next__RVS)[ 0]=NULL;
1591 ((__POINTER *)ptr_table__SVS)[ 0]=next__RVS;
1592 } else {
1593 next__RVS=((__POINTER *)result__TVS)[ 0];
1594 if ((next__RVS == (void *)NULL)) {
1595 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TVS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__VVS << 1)) <= 4096)) {
1596 next__RVS=(void *)((unsigned long)result__TVS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VVS)));
1597 } else {
1598 next__RVS=new_lab__IQC(lab_type__UVS);
1599 };
1600 ((__POINTER *)next__RVS)[ 0]=NULL;
1601 ((__POINTER *)ptr_table__SVS)[ 0]=next__RVS;
1602 } else {
1603 ((__POINTER *)result__TVS)[ 0]=(void *)((unsigned long)((__POINTER *)next__RVS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
1604 result__TVS=next__RVS;
1605 };
1606 };
1607 ptr__KLS=result__TVS;
1608 };
1609 result__JLS=((__STRING *)ptr__KLS);
1610 *(result__JLS) = *(STRING__);
1611 };
1612 Self__HLS=((__STRING *)result__JLS);
1613 if ((needed_capacity__ILS > 0)) {
1614 if ((Self__HLS->capacity__3BD < needed_capacity__ILS)) {
1615 Self__HLS->storage__0CD=create__AIH(needed_capacity__ILS);
1616 Self__HLS->capacity__3BD=needed_capacity__ILS;
1617 };
1618 };
1619 Self__HLS->count__CB= 0;
1620 copy__AFD(result__JLS,str__M3R);
1621 if (((void *)system__FE == (void *)(&__string_24))) {
1622 replace_all__with__BMD(result__JLS);
1623 };
1624 Self__HHD=((__STRING *)result__JLS);
1625 i__JHD=Self__HHD->count__CB;
1626 j__KHD=((__STRING_CONSTANT *)(&__string_46))->count__AD;
1627 new_count__YVS=(__INTEGER)(i__JHD + j__KHD);
1628 if ((! (new_count__YVS <= Self__HHD->count__CB))) {
1629 if ((Self__HHD->capacity__3BD < new_count__YVS)) {
1630 if ((Self__HHD->capacity__3BD == 0)) {
1631 Self__HHD->storage__0CD=create__AIH(new_count__YVS);
1632 } else {
1633 Self__HHD->storage__0CD=realloc__with__3IH(Self__HHD->storage__0CD,Self__HHD->capacity__3BD,new_count__YVS);
1634 };
1635 Self__HHD->capacity__3BD=new_count__YVS;
1636 } else {
1637 Self__2VS=((__CHARACTER *)Self__HHD->storage__0CD);
1638 lower__0VS=Self__HHD->count__CB;
1639 upper__3VS=(__INTEGER)(new_count__YVS - 1);
1640 Self__1VS=lower__0VS;
1641 while ((Self__1VS <= upper__3VS)) {
1642 Self__2VS[Self__1VS]='\0';
1643 Self__1VS=(__INTEGER)(Self__1VS + 1);
1644 };
1645 };
1646 };
1647 Self__HHD->count__CB=new_count__YVS;
1648 if (((i__JHD > 0) && (j__KHD > 0))) {
1649 move__to__by__2LF(Self__HHD->storage__0CD, 0,(__INTEGER)(i__JHD - 1),j__KHD);
1650 };
1651 Self__BWS=((__CHARACTER *)Self__HHD->storage__0CD);
1652 model__CWS=((__STRING_CONSTANT *)(&__string_46))->storage__0ZB;
1653 Self__AWS=(__INTEGER)(j__KHD - 1);
1654 while ((Self__AWS >= 0)) {
1655 Self__BWS[Self__AWS]=((__CHARACTER *)model__CWS)[Self__AWS];
1656 Self__AWS=(__INTEGER)(Self__AWS - 1);
1657 };
1658 append__OID(result__JLS,(&__string_47));
1659 update__idf__with__confirmation__DZ((&__string_48),(&__string_49),result__JLS,FALSE__);
1660 fputc((int)('\n'),stdout);
1661 update__idf__with__confirmation__DZ((&__string_50),(&__string_49),result__JLS,FALSE__);
1662 fputc((int)('\n'),stdout);
1663 title__XC((&__string_51));
1664 if ((question__E3((&__string_52)) == 'n')) {
1665 print__PB((&__string_53));
1666 } else {
1667 result__VLS=NULL;
1668 ptr__WLS=((__POINTER )(NULL));
1669 typ_id__XLS= 0;
1670 sz__YLS=((__UINTEGER_32 )sizeof(__STRING));
1671 if ((sz__YLS == 0)) {
1672 result__VLS=STRING__;
1673 } else {
1674 typ_id__XLS=-1;
1675 clone_allocation_size__VT=(__UINTEGER_32)(clone_allocation_size__VT + sz__YLS);
1676 if ((typ_id__XLS == (__INTEGER)(- 1))) {
1677 a__0LS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
1678 new_size__1LS=(__UINTEGER_32)((__UINTEGER_32)(sz__YLS + a__0LS) & (__UINTEGER_32)(~ a__0LS));
1679 ptr_table__FWS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1LS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
1680 next__EWS=((__POINTER )(NULL));
1681 result__GWS=((__POINTER *)ptr_table__FWS)[ 0];
1682 if ((result__GWS == (void *)NULL)) {
1683 result__GWS=new_lab__IQC(new_size__1LS);
1684 next__EWS=(void *)((unsigned long)result__GWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1LS)));
1685 ((__POINTER *)next__EWS)[ 0]=NULL;
1686 ((__POINTER *)ptr_table__FWS)[ 0]=next__EWS;
1687 } else {
1688 next__EWS=((__POINTER *)result__GWS)[ 0];
1689 if ((next__EWS == (void *)NULL)) {
1690 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GWS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__1LS << 1)) <= 4096)) {
1691 next__EWS=(void *)((unsigned long)result__GWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1LS)));
1692 } else {
1693 next__EWS=new_lab__IQC(new_size__1LS);
1694 };
1695 ((__POINTER *)next__EWS)[ 0]=NULL;
1696 ((__POINTER *)ptr_table__FWS)[ 0]=next__EWS;
1697 } else {
1698 ((__POINTER *)result__GWS)[ 0]=(void *)((unsigned long)((__POINTER *)next__EWS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
1699 result__GWS=next__EWS;
1700 };
1701 };
1702 ptr__WLS=result__GWS;
1703 } else {
1704 t__2LS=((__UINTEGER_32 )typ_id__XLS);
1705 a__3LS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
1706 new_size__PWS=(__UINTEGER_32)((__UINTEGER_32)(sz__YLS + a__3LS) & (__UINTEGER_32)(~ a__3LS));
1707 ptr_table__MWS=((__POINTER )(&(table_type[(t__2LS)])));
1708 lab_type__OWS=(__UINTEGER_32)(t__2LS | 1);
1709 next__LWS=((__POINTER )(NULL));
1710 result__NWS=((__POINTER *)ptr_table__MWS)[ 0];
1711 if ((result__NWS == (void *)NULL)) {
1712 result__NWS=new_lab__IQC(lab_type__OWS);
1713 next__LWS=(void *)((unsigned long)result__NWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PWS)));
1714 ((__POINTER *)next__LWS)[ 0]=NULL;
1715 ((__POINTER *)ptr_table__MWS)[ 0]=next__LWS;
1716 } else {
1717 next__LWS=((__POINTER *)result__NWS)[ 0];
1718 if ((next__LWS == (void *)NULL)) {
1719 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NWS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__PWS << 1)) <= 4096)) {
1720 next__LWS=(void *)((unsigned long)result__NWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PWS)));
1721 } else {
1722 next__LWS=new_lab__IQC(lab_type__OWS);
1723 };
1724 ((__POINTER *)next__LWS)[ 0]=NULL;
1725 ((__POINTER *)ptr_table__MWS)[ 0]=next__LWS;
1726 } else {
1727 ((__POINTER *)result__NWS)[ 0]=(void *)((unsigned long)((__POINTER *)next__LWS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
1728 result__NWS=next__LWS;
1729 };
1730 };
1731 ptr__WLS=result__NWS;
1732 };
1733 result__VLS=((__STRING *)ptr__WLS);
1734 *(result__VLS) = *(STRING__);
1735 };
1736 Self__TLS=((__STRING *)result__VLS);
1737 if ((Self__TLS->capacity__3BD < 100)) {
1738 Self__TLS->storage__0CD=create__AIH( 100);
1739 Self__TLS->capacity__3BD= 100;
1740 };
1741 Self__TLS->count__CB= 0;
1742 if (((void *)path_home__KB == (void *)NULL)) {
1743 copy__AFD(result__VLS,(&__string_54));
1744 } else {
1745 copy__AFD(result__VLS,path_home__KB);
1746 };
1747 append__OID(result__VLS,(&__string_55));
1748 needed_capacity__AMS=((__STRING_CONSTANT *)(&__string_56))->count__AD;
1749 result__BMS=NULL;
1750 ptr__CMS=((__POINTER )(NULL));
1751 typ_id__DMS= 0;
1752 sz__EMS=((__UINTEGER_32 )sizeof(__STRING));
1753 if ((sz__EMS == 0)) {
1754 result__BMS=STRING__;
1755 } else {
1756 typ_id__DMS=-1;
1757 clone_allocation_size__VT=(__UINTEGER_32)(clone_allocation_size__VT + sz__EMS);
1758 if ((typ_id__DMS == (__INTEGER)(- 1))) {
1759 a__GMS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
1760 new_size__HMS=(__UINTEGER_32)((__UINTEGER_32)(sz__EMS + a__GMS) & (__UINTEGER_32)(~ a__GMS));
1761 ptr_table__TWS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HMS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
1762 next__SWS=((__POINTER )(NULL));
1763 result__UWS=((__POINTER *)ptr_table__TWS)[ 0];
1764 if ((result__UWS == (void *)NULL)) {
1765 result__UWS=new_lab__IQC(new_size__HMS);
1766 next__SWS=(void *)((unsigned long)result__UWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HMS)));
1767 ((__POINTER *)next__SWS)[ 0]=NULL;
1768 ((__POINTER *)ptr_table__TWS)[ 0]=next__SWS;
1769 } else {
1770 next__SWS=((__POINTER *)result__UWS)[ 0];
1771 if ((next__SWS == (void *)NULL)) {
1772 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UWS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__HMS << 1)) <= 4096)) {
1773 next__SWS=(void *)((unsigned long)result__UWS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HMS)));
1774 } else {
1775 next__SWS=new_lab__IQC(new_size__HMS);
1776 };
1777 ((__POINTER *)next__SWS)[ 0]=NULL;
1778 ((__POINTER *)ptr_table__TWS)[ 0]=next__SWS;
1779 } else {
1780 ((__POINTER *)result__UWS)[ 0]=(void *)((unsigned long)((__POINTER *)next__SWS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
1781 result__UWS=next__SWS;
1782 };
1783 };
1784 ptr__CMS=result__UWS;
1785 } else {
1786 t__IMS=((__UINTEGER_32 )typ_id__DMS);
1787 a__JMS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
1788 new_size__3WS=(__UINTEGER_32)((__UINTEGER_32)(sz__EMS + a__JMS) & (__UINTEGER_32)(~ a__JMS));
1789 ptr_table__0WS=((__POINTER )(&(table_type[(t__IMS)])));
1790 lab_type__2WS=(__UINTEGER_32)(t__IMS | 1);
1791 next__ZWS=((__POINTER )(NULL));
1792 result__1WS=((__POINTER *)ptr_table__0WS)[ 0];
1793 if ((result__1WS == (void *)NULL)) {
1794 result__1WS=new_lab__IQC(lab_type__2WS);
1795 next__ZWS=(void *)((unsigned long)result__1WS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3WS)));
1796 ((__POINTER *)next__ZWS)[ 0]=NULL;
1797 ((__POINTER *)ptr_table__0WS)[ 0]=next__ZWS;
1798 } else {
1799 next__ZWS=((__POINTER *)result__1WS)[ 0];
1800 if ((next__ZWS == (void *)NULL)) {
1801 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1WS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__3WS << 1)) <= 4096)) {
1802 next__ZWS=(void *)((unsigned long)result__1WS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3WS)));
1803 } else {
1804 next__ZWS=new_lab__IQC(lab_type__2WS);
1805 };
1806 ((__POINTER *)next__ZWS)[ 0]=NULL;
1807 ((__POINTER *)ptr_table__0WS)[ 0]=next__ZWS;
1808 } else {
1809 ((__POINTER *)result__1WS)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZWS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
1810 result__1WS=next__ZWS;
1811 };
1812 };
1813 ptr__CMS=result__1WS;
1814 };
1815 result__BMS=((__STRING *)ptr__CMS);
1816 *(result__BMS) = *(STRING__);
1817 };
1818 Self__5LS=((__STRING *)result__BMS);
1819 if ((needed_capacity__AMS > 0)) {
1820 if ((Self__5LS->capacity__3BD < needed_capacity__AMS)) {
1821 Self__5LS->storage__0CD=create__AIH(needed_capacity__AMS);
1822 Self__5LS->capacity__3BD=needed_capacity__AMS;
1823 };
1824 };
1825 Self__5LS->count__CB= 0;
1826 copy__AFD(result__BMS,(&__string_56));
1827 append__OID(result__BMS,(&__string_57));
1828 append__OID(result__BMS,path_current__GB);
1829 if (((void *)system__FE == (void *)(&__string_24))) {
1830 replace_all__with__BMD(result__BMS);
1831 };
1832 append__OID(result__BMS,(&__string_58));
1833 append__OID(result__BMS,(&__string_59));
1834 update__idf__with__confirmation__DZ(result__VLS,(&__string_56),result__BMS,TRUE__);
1835 };
1836 title__XC((&__string_60));
1837 if (((void *)system__FE == (void *)(&__string_24))) {
1838 print__PB((&__string_61));
1839 } else {
1840 if ((question__E3((&__string_62)) == 'n')) {
1841 print__PB((&__string_63));
1842 } else {
1843 execute_command__X4((&__string_64));
1844 copy__AFD(result__RGS,(&__string_65));
1845 print__PB((&__string_66));
1846 put_string__XR(((__STRING *)result__RGS));
1847 print__PB((&__string_67));
1848 if ((execute_command__X4(result__RGS) != 0)) {
1849 print__PB((&__string_68));
1850 } else {
1851 print__PB((&__string_69));
1852 };
1853 };
1854 fputc((int)('\n'),stdout);
1855 };
1856 title__XC((&__string_70));
1857 char__WM='\0';
1858 if (((void *)system__FE == (void *)(&__string_24))) {
1859 print__PB((&__string_71));
1860 } else {
1861 char__WM=question__E3((&__string_72));
1862 if ((char__WM == 'n')) {
1863 print__PB((&__string_73));
1864 } else {
1865 execute_command__X4((&__string_74));
1866 execute_command__X4((&__string_75));
1867 execute_command__X4((&__string_76));
1868 execute_command__X4((&__string_77));
1869 copy__AFD(result__RGS,(&__string_78));
1870 print__PB((&__string_66));
1871 put_string__XR(((__STRING *)result__RGS));
1872 print__PB((&__string_67));
1873 if ((execute_command__X4(result__RGS) != 0)) {
1874 print__PB((&__string_79));
1875 } else {
1876 print__PB((&__string_69));
1877 };
1878 copy__AFD(result__RGS,(&__string_80));
1879 print__PB((&__string_66));
1880 put_string__XR(((__STRING *)result__RGS));
1881 print__PB((&__string_67));
1882 if ((execute_command__X4(result__RGS) != 0)) {
1883 print__PB((&__string_79));
1884 } else {
1885 print__PB((&__string_69));
1886 };
1887 char__WM=question__E3((&__string_81));
1888 if ((char__WM == 'n')) {
1889 result__5S=NULL;
1890 ptr__AT=((__POINTER )(NULL));
1891 typ_id__HT= 0;
1892 sz__ET=((__UINTEGER_32 )sizeof(__STRING));
1893 if ((sz__ET == 0)) {
1894 result__5S=STRING__;
1895 } else {
1896 typ_id__HT=-1;
1897 clone_allocation_size__VT=(__UINTEGER_32)(clone_allocation_size__VT + sz__ET);
1898 if ((typ_id__HT == (__INTEGER)(- 1))) {
1899 a__QBS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
1900 new_size__RBS=(__UINTEGER_32)((__UINTEGER_32)(sz__ET + a__QBS) & (__UINTEGER_32)(~ a__QBS));
1901 ptr_table__BXS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__RBS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
1902 next__AXS=((__POINTER )(NULL));
1903 result__CXS=((__POINTER *)ptr_table__BXS)[ 0];
1904 if ((result__CXS == (void *)NULL)) {
1905 result__CXS=new_lab__IQC(new_size__RBS);
1906 next__AXS=(void *)((unsigned long)result__CXS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RBS)));
1907 ((__POINTER *)next__AXS)[ 0]=NULL;
1908 ((__POINTER *)ptr_table__BXS)[ 0]=next__AXS;
1909 } else {
1910 next__AXS=((__POINTER *)result__CXS)[ 0];
1911 if ((next__AXS == (void *)NULL)) {
1912 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CXS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__RBS << 1)) <= 4096)) {
1913 next__AXS=(void *)((unsigned long)result__CXS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RBS)));
1914 } else {
1915 next__AXS=new_lab__IQC(new_size__RBS);
1916 };
1917 ((__POINTER *)next__AXS)[ 0]=NULL;
1918 ((__POINTER *)ptr_table__BXS)[ 0]=next__AXS;
1919 } else {
1920 ((__POINTER *)result__CXS)[ 0]=(void *)((unsigned long)((__POINTER *)next__AXS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
1921 result__CXS=next__AXS;
1922 };
1923 };
1924 ptr__AT=result__CXS;
1925 } else {
1926 t__JYB=((__UINTEGER_32 )typ_id__HT);
1927 a__F5R=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
1928 new_size__J4B=(__UINTEGER_32)((__UINTEGER_32)(sz__ET + a__F5R) & (__UINTEGER_32)(~ a__F5R));
1929 ptr_table__K4B=((__POINTER )(&(table_type[(t__JYB)])));
1930 lab_type__L4B=(__UINTEGER_32)(t__JYB | 1);
1931 next__P4B=((__POINTER )(NULL));
1932 result__N4B=((__POINTER *)ptr_table__K4B)[ 0];
1933 if ((result__N4B == (void *)NULL)) {
1934 result__N4B=new_lab__IQC(lab_type__L4B);
1935 next__P4B=(void *)((unsigned long)result__N4B - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J4B)));
1936 ((__POINTER *)next__P4B)[ 0]=NULL;
1937 ((__POINTER *)ptr_table__K4B)[ 0]=next__P4B;
1938 } else {
1939 next__P4B=((__POINTER *)result__N4B)[ 0];
1940 if ((next__P4B == (void *)NULL)) {
1941 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__N4B - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__J4B << 1)) <= 4096)) {
1942 next__P4B=(void *)((unsigned long)result__N4B - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J4B)));
1943 } else {
1944 next__P4B=new_lab__IQC(lab_type__L4B);
1945 };
1946 ((__POINTER *)next__P4B)[ 0]=NULL;
1947 ((__POINTER *)ptr_table__K4B)[ 0]=next__P4B;
1948 } else {
1949 ((__POINTER *)result__N4B)[ 0]=(void *)((unsigned long)((__POINTER *)next__P4B)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
1950 result__N4B=next__P4B;
1951 };
1952 };
1953 ptr__AT=result__N4B;
1954 };
1955 result__5S=((__STRING *)ptr__AT);
1956 *(result__5S) = *(STRING__);
1957 };
1958 Self__KGD=((__STRING *)result__5S);
1959 if ((Self__KGD->capacity__3BD < 100)) {
1960 Self__KGD->storage__0CD=create__AIH( 100);
1961 Self__KGD->capacity__3BD= 100;
1962 };
1963 Self__KGD->count__CB= 0;
1964 if (((void *)path_home__KB == (void *)NULL)) {
1965 copy__AFD(result__5S,(&__string_54));
1966 } else {
1967 copy__AFD(result__5S,path_home__KB);
1968 };
1969 append__OID(result__5S,(&__string_82));
1970 update__idf__with__confirmation__DZ(result__5S,(&__string_83),(&__string_83),TRUE__);
1971 } else {
1972 copy__AFD(result__RGS,(&__string_84));
1973 print__PB((&__string_66));
1974 put_string__XR(((__STRING *)result__RGS));
1975 print__PB((&__string_67));
1976 if ((execute_command__X4(result__RGS) != 0)) {
1977 print__PB((&__string_79));
1978 } else {
1979 print__PB((&__string_69));
1980 };
1981 };
1982 };
1983 fputc((int)('\n'),stdout);
1984 };
1985 title__XC((&__string_85));
1986 copy__AFD(result__RGS,(&__string_86));
1987 append__OID(result__RGS,(&__string_87));
1988 append__OID(result__RGS,(&__string_88));
1989 append__OID(result__RGS,(&__string_87));
1990 print__PB((&__string_89));
1991 put_string__XR(((__STRING *)result__RGS));
1992 print__PB((&__string_90));
1993 if ((execute_command__X4(result__RGS) != 0)) {
1994 print__PB((&__string_91));
1995 print__PB((&__string_87));
1996 print__PB((&__string_92));
1997 };
1998 fputc((int)('\n'),stdout);
1999 title__XC((&__string_93));
2000 copy__AFD(result__RGS,(&__string_86));
2001 append__OID(result__RGS,(&__string_94));
2002 append__OID(result__RGS,(&__string_88));
2003 append__OID(result__RGS,(&__string_94));
2004 print__PB((&__string_89));
2005 put_string__XR(((__STRING *)result__RGS));
2006 print__PB((&__string_90));
2007 if ((execute_command__X4(result__RGS) != 0)) {
2008 print__PB((&__string_91));
2009 print__PB((&__string_94));
2010 print__PB((&__string_92));
2011 };
2012 fputc((int)('\n'),stdout);
2013 title__XC((&__string_95));
2014 if ((question__E3((&__string_96)) == 'n')) {
2015 print__PB((&__string_97));
2016 } else {
2017 ((__STRING *)result__RGS)->count__CB= 0;
2018 if (((void *)system__FE == (void *)(&__string_24))) {
2019 copy__AFD(result__RGS,(&__string_98));
2020 } else {
2021 copy__AFD(result__RGS,(&__string_99));
2022 };
2023 print__PB((&__string_100));
2024 put_string__XR(((__STRING *)result__RGS));
2025 print__PB((&__string_101));
2026 execute_command__X4(result__RGS);
2027 print__PB((&__string_102));
2028 };
2029 fputc((int)('\n'),stdout);
2030 title__XC((&__string_103));
2031 print__PB((&__string_104));
2032 return( 0);
2033 }
2034
2035 static __POINTER new_lab__IQC(__UINTEGER_32 t__KQC)
2036 // ({UINTEGER_32}) With resultNo recursive, No inlinable.
2037 {
2038 __UINTEGER_32 idx__MQC,pv__TQC;
2039 __MEMORY *blc__PQC,*prev__QQC,*Self__NPR,*Self__Q2R,*prev__R2R;
2040 __MEMORY *next__S2R;
2041 __POINTER result__RQC;
2042 __BOOLEAN __tmp__TRC;
2043 idx__MQC= 0;
2044 blc__PQC=NULL;
2045 prev__QQC=NULL;
2046 pv__TQC= 0;
2047 while_do__LVC:
2048 {
2049 if ((idx__MQC < nb_page__0QC)) {
2050 blc__PQC=((__MEMORY *)(last_block[(idx__MQC)]));
2051 __tmp__TRC=(((__UINTEGER_32)(((__MEMORY *)blc__PQC)->size_and_id__AU & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__PQC)->size_and_id__AU & 1) == 1));
2052 } else {
2053 __tmp__TRC=FALSE__;
2054 };
2055 if (__tmp__TRC) {
2056 idx__MQC=(__UINTEGER_32)(idx__MQC + 1);
2057 goto while_do__LVC;
2058 };
2059 };
2060 if ((idx__MQC >= nb_page__0QC)) {
2061 blc__PQC=new_page__YBF();
2062 };
2063 ((__MEMORY *)blc__PQC)->size_and_id__AU=(__UINTEGER_32)(blc__PQC->size_and_id__AU - 4096);
2064 Self__NPR=((__MEMORY *)blc__PQC);
2065 result__RQC=((__POINTER )((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__NPR) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__NPR->size_and_id__AU & 4294967292LU))))));
2066 if (((__UINTEGER_32)(((__MEMORY *)blc__PQC)->size_and_id__AU & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
2067 Self__Q2R=((__MEMORY *)blc__PQC);
2068 prev__R2R=Self__Q2R->previous_free__CU;
2069 next__S2R=Self__Q2R->next_free__BU;
2070 if (((void *)prev__R2R == (void *)NULL)) {
2071 first_free__NMI=next__S2R;
2072 } else {
2073 ((__MEMORY *)prev__R2R)->next_free__BU=next__S2R;
2074 };
2075 if (((void *)next__S2R != (void *)NULL)) {
2076 ((__MEMORY *)next__S2R)->previous_free__CU=prev__R2R;
2077 };
2078 pv__TQC=blc__PQC->previous_linear__5T;
2079 if ((pv__TQC != 4294967295LU)) {
2080 prev__QQC=((__MEMORY *)(void *)((unsigned long)begin_memory__EAC - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__TQC))));
2081 ((__MEMORY *)prev__QQC)->size_and_id__AU=(__UINTEGER_32)((__UINTEGER_32)(prev__QQC->size_and_id__AU + blc__PQC->size_and_id__AU) + 8);
2082 last_block[(idx__MQC)] = (prev__QQC);
2083 };
2084 };
2085 ((__POINTER *)result__RQC)[ 0]=((__POINTER )t__KQC);
2086 return((void *)((unsigned long)result__RQC - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))))));
2087 }
2088
2089 static __CHARACTER* create__AIH(__INTEGER nb_elements__CIH)
2090 // ({INTEGER}) With resultNo recursive, No inlinable.
2091 {
2092 __UINTEGER_32 sz__I5R,a__K5R,new_size__L5R,new_size2__M5R,a__UFS;
2093 __UINTEGER_32 new_size__VFS;
2094 __POINTER result__H5R,ptr_table__LMS,next__KMS,result__MMS;
2095 __INTEGER Self__KDK;
2096 __CHARACTER *Result__1NH;
2097 sz__I5R=((__UINTEGER_32 )nb_elements__CIH);
2098 result__H5R=((__POINTER )(NULL));
2099 a__K5R=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
2100 new_size__L5R=(__UINTEGER_32)((__UINTEGER_32)(sz__I5R + a__K5R) & (__UINTEGER_32)(~ a__K5R));
2101 new_size2__M5R=(__UINTEGER_32)(new_size__L5R + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
2102 if ((new_size2__M5R <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
2103 a__UFS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
2104 new_size__VFS=(__UINTEGER_32)((__UINTEGER_32)(new_size2__M5R + a__UFS) & (__UINTEGER_32)(~ a__UFS));
2105 ptr_table__LMS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VFS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
2106 next__KMS=((__POINTER )(NULL));
2107 result__MMS=((__POINTER *)ptr_table__LMS)[ 0];
2108 if ((result__MMS == (void *)NULL)) {
2109 result__MMS=new_lab__IQC(new_size__VFS);
2110 next__KMS=(void *)((unsigned long)result__MMS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VFS)));
2111 ((__POINTER *)next__KMS)[ 0]=NULL;
2112 ((__POINTER *)ptr_table__LMS)[ 0]=next__KMS;
2113 } else {
2114 next__KMS=((__POINTER *)result__MMS)[ 0];
2115 if ((next__KMS == (void *)NULL)) {
2116 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MMS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__VFS << 1)) <= 4096)) {
2117 next__KMS=(void *)((unsigned long)result__MMS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VFS)));
2118 } else {
2119 next__KMS=new_lab__IQC(new_size__VFS);
2120 };
2121 ((__POINTER *)next__KMS)[ 0]=NULL;
2122 ((__POINTER *)ptr_table__LMS)[ 0]=next__KMS;
2123 } else {
2124 ((__POINTER *)result__MMS)[ 0]=(void *)((unsigned long)((__POINTER *)next__KMS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
2125 result__MMS=next__KMS;
2126 };
2127 };
2128 ((__POINTER *)result__MMS)[ 0]=((__POINTER ) 3);
2129 result__H5R=(void *)((unsigned long)result__MMS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
2130 } else {
2131 result__H5R=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__KLI(new_size__L5R))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
2132 };
2133 Result__1NH=((__CHARACTER *)result__H5R);
2134 Self__KDK=(__INTEGER)(nb_elements__CIH - 1);
2135 while ((Self__KDK >= 0)) {
2136 Result__1NH[Self__KDK]='\0';
2137 Self__KDK=(__INTEGER)(Self__KDK - 1);
2138 };
2139 return(Result__1NH);
2140 }
2141
2142 static void print__PB(__STRING_CONSTANT *Self__QB)
2143 // ({STRING_CONSTANT}) VoidRecursive, No inlinable.
2144 {
2145 put_string__XR(Self__QB);
2146 }
2147
2148 static __CHARACTER* realloc__with__3IH(__CHARACTER *Self__4IH,__INTEGER old_nb_elts__5IH,__INTEGER new_nb_elts__AJH)
2149 // ({NATIVE_ARRAYoExpanded_CHARACTERo},{INTEGER},{INTEGER}) With resultNo recursive, No inlinable.
2150 {
2151 __POINTER old_ptr__XJH,result__2SH,result__2XH,ptr_table__SMS;
2152 __POINTER next__RMS,result__TMS,p__PFI,last__QRI,src__JEI,dst__KEI;
2153 __UINTEGER_32 __tmp__DKH,__tmp__FKH,a__S5R,old_size__SSH;
2154 __UINTEGER_32 old_size2__VSH,a__W5R,new_size__YSH,a__K2R;
2155 __UINTEGER_32 new_size__WXH,new_size2__ZXH,a__H2B,new_size__AXB;
2156 __UINTEGER_32 a__05R,__tmp__NUH,sz__LHI,old_size__IHI,prev__2DJ;
2157 __UINTEGER_32 new_size__5DJ;
2158 __MEMORY *mem__1SH,*Self__CHI,*nxt__GHI,*result__HHI,*next__1DJ;
2159 __MEMORY *new_free__0DJ,*prev__IAS,*next__JAS;
2160 __INTEGER siz__JXS,Self__OXS,siz__OEI,Self__DPI,upper__TXS,Self__RXS;
2161 __POINTER *na_src__LXS,*na_dst__NXS,*na_src__MEI,*na_dst__NEI;
2162 __CHARACTER *new__WJH;
2163 old_ptr__XJH=((__POINTER )Self__4IH);
2164 __tmp__DKH=((__UINTEGER_32 )old_nb_elts__5IH);
2165 __tmp__FKH=((__UINTEGER_32 )new_nb_elts__AJH);
2166 mem__1SH=NULL;
2167 result__2SH=((__POINTER )(NULL));
2168 a__S5R=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
2169 old_size__SSH=(__UINTEGER_32)((__UINTEGER_32)(__tmp__DKH + a__S5R) & (__UINTEGER_32)(~ a__S5R));
2170 old_size2__VSH=(__UINTEGER_32)(old_size__SSH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
2171 a__W5R=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
2172 new_size__YSH=(__UINTEGER_32)((__UINTEGER_32)(__tmp__FKH + a__W5R) & (__UINTEGER_32)(~ a__W5R));
2173 if ((old_size2__VSH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
2174 result__2XH=((__POINTER )(NULL));
2175 a__K2R=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
2176 new_size__WXH=(__UINTEGER_32)((__UINTEGER_32)(new_size__YSH + a__K2R) & (__UINTEGER_32)(~ a__K2R));
2177 new_size2__ZXH=(__UINTEGER_32)(new_size__WXH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
2178 if ((new_size2__ZXH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
2179 a__H2B=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
2180 new_size__AXB=(__UINTEGER_32)((__UINTEGER_32)(new_size2__ZXH + a__H2B) & (__UINTEGER_32)(~ a__H2B));
2181 ptr_table__SMS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__AXB / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
2182 next__RMS=((__POINTER )(NULL));
2183 result__TMS=((__POINTER *)ptr_table__SMS)[ 0];
2184 if ((result__TMS == (void *)NULL)) {
2185 result__TMS=new_lab__IQC(new_size__AXB);
2186 next__RMS=(void *)((unsigned long)result__TMS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AXB)));
2187 ((__POINTER *)next__RMS)[ 0]=NULL;
2188 ((__POINTER *)ptr_table__SMS)[ 0]=next__RMS;
2189 } else {
2190 next__RMS=((__POINTER *)result__TMS)[ 0];
2191 if ((next__RMS == (void *)NULL)) {
2192 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TMS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__AXB << 1)) <= 4096)) {
2193 next__RMS=(void *)((unsigned long)result__TMS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AXB)));
2194 } else {
2195 next__RMS=new_lab__IQC(new_size__AXB);
2196 };
2197 ((__POINTER *)next__RMS)[ 0]=NULL;
2198 ((__POINTER *)ptr_table__SMS)[ 0]=next__RMS;
2199 } else {
2200 ((__POINTER *)result__TMS)[ 0]=(void *)((unsigned long)((__POINTER *)next__RMS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
2201 result__TMS=next__RMS;
2202 };
2203 };
2204 ((__POINTER *)result__TMS)[ 0]=((__POINTER ) 3);
2205 result__2XH=(void *)((unsigned long)result__TMS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
2206 } else {
2207 result__2XH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__KLI(new_size__WXH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
2208 };
2209 result__2SH=result__2XH;
2210 siz__JXS=((__INTEGER )old_size__SSH);
2211 siz__JXS=(__INTEGER)(siz__JXS / ((__INTEGER )(sizeof(void *))));
2212 na_src__LXS=((__POINTER *)old_ptr__XJH);
2213 na_dst__NXS=((__POINTER *)result__2XH);
2214 Self__OXS=(__INTEGER)(siz__JXS - 1);
2215 while ((Self__OXS >= 0)) {
2216 na_dst__NXS[Self__OXS]=na_src__LXS[Self__OXS];
2217 Self__OXS=(__INTEGER)(Self__OXS - 1);
2218 };
2219 p__PFI=(void *)((unsigned long)old_ptr__XJH - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))));
2220 a__05R=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
2221 last__QRI=((__POINTER *)((__POINTER )(&(table_size[((__UINTEGER_32)((__UINTEGER_32)((__UINTEGER_32)(old_size2__VSH + a__05R) & (__UINTEGER_32)(~ a__05R)) / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))))[ 0];
2222 ((__POINTER *)p__PFI)[ 0]=(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)(void *)((unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER *)last__QRI)[ 0]) - (unsigned long)((__POINTER ) 1)) & (unsigned long)(void *)((unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 3)) - (unsigned long)((__POINTER ) 1)))) - (unsigned long)((__POINTER ) 1));
2223 ((__POINTER *)last__QRI)[ 0]=p__PFI;
2224 } else {
2225 mem__1SH=((__MEMORY *)(void *)((unsigned long)old_ptr__XJH - (unsigned long)((__POINTER ) 8)));
2226 __tmp__NUH=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)old_ptr__XJH - (unsigned long)begin_memory__EAC)))) >> 26);
2227 Self__CHI=((__MEMORY *)mem__1SH);
2228 nxt__GHI=NULL;
2229 result__HHI=NULL;
2230 sz__LHI= 0;
2231 old_size__IHI=(__UINTEGER_32)(Self__CHI->size_and_id__AU & 4294967292LU);
2232 if ((new_size__YSH > old_size__IHI)) {
2233 if ((! ((__UINTEGER_32)(Self__CHI->size_and_id__AU & 2) != 0))) {
2234 nxt__GHI=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__CHI) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__CHI->size_and_id__AU & 4294967292LU)))));
2235 sz__LHI=(__UINTEGER_32)((__UINTEGER_32)(new_size__YSH - old_size__IHI) - 8);
2236 if ((((__UINTEGER_32)(((__MEMORY *)nxt__GHI)->size_and_id__AU & 1) == 0) && ((__UINTEGER_32)(((__MEMORY *)nxt__GHI)->size_and_id__AU & 4294967292LU) >= sz__LHI))) {
2237 to_busy__index__G0J(nxt__GHI,sz__LHI,__tmp__NUH);
2238 Self__CHI->size_and_id__AU=(__UINTEGER_32)((__UINTEGER_32)(Self__CHI->size_and_id__AU + (__UINTEGER_32)(nxt__GHI->size_and_id__AU & 4294967294LU)) + 8);
2239 if (((__UINTEGER_32)(Self__CHI->size_and_id__AU & 2) != 0)) {
2240 last_block[(__tmp__NUH)] = (Self__CHI);
2241 } else {
2242 nxt__GHI=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__CHI) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__CHI->size_and_id__AU & 4294967292LU)))));
2243 ((__MEMORY *)nxt__GHI)->previous_linear__5T=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__CHI) - (unsigned long)begin_memory__EAC))));
2244 };
2245 result__HHI=Self__CHI;
2246 };
2247 };
2248 if (((void *)result__HHI == (void *)NULL)) {
2249 result__HHI=search__KLI(new_size__YSH);
2250 src__JEI=(void *)((unsigned long)((__POINTER )Self__CHI) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
2251 dst__KEI=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__HHI)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
2252 siz__OEI=((__INTEGER )old_size__IHI);
2253 siz__OEI=(__INTEGER)(siz__OEI / ((__INTEGER )(sizeof(void *))));
2254 na_src__MEI=((__POINTER *)src__JEI);
2255 na_dst__NEI=((__POINTER *)dst__KEI);
2256 Self__DPI=(__INTEGER)(siz__OEI - 1);
2257 while ((Self__DPI >= 0)) {
2258 na_dst__NEI[Self__DPI]=na_src__MEI[Self__DPI];
2259 Self__DPI=(__INTEGER)(Self__DPI - 1);
2260 };
2261 prev__2DJ=Self__CHI->previous_linear__5T;
2262 next__1DJ=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__CHI) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__CHI->size_and_id__AU & 4294967292LU)))));
2263 new_free__0DJ=((__MEMORY *)(void *)((unsigned long)begin_memory__EAC - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )prev__2DJ))));
2264 new_size__5DJ=(__UINTEGER_32)(Self__CHI->size_and_id__AU & 4294967294LU);
2265 if (((prev__2DJ == 4294967295LU) || ((__UINTEGER_32)(new_free__0DJ->size_and_id__AU & 1) != 0))) {
2266 new_free__0DJ=Self__CHI;
2267 Self__CHI->next_free__BU=first_free__NMI;
2268 Self__CHI->previous_free__CU=NULL;
2269 if (((void *)first_free__NMI != (void *)NULL)) {
2270 ((__MEMORY *)first_free__NMI)->previous_free__CU=Self__CHI;
2271 };
2272 first_free__NMI=Self__CHI;
2273 } else {
2274 new_size__5DJ=(__UINTEGER_32)((__UINTEGER_32)(new_size__5DJ + new_free__0DJ->size_and_id__AU) + 8);
2275 };
2276 if (((! ((__UINTEGER_32)(Self__CHI->size_and_id__AU & 2) != 0)) && ((__UINTEGER_32)(next__1DJ->size_and_id__AU & 1) == 0))) {
2277 new_size__5DJ=(__UINTEGER_32)((__UINTEGER_32)(new_size__5DJ + next__1DJ->size_and_id__AU) + 8);
2278 prev__IAS=next__1DJ->previous_free__CU;
2279 next__JAS=next__1DJ->next_free__BU;
2280 if (((void *)prev__IAS == (void *)NULL)) {
2281 first_free__NMI=next__JAS;
2282 } else {
2283 ((__MEMORY *)prev__IAS)->next_free__BU=next__JAS;
2284 };
2285 if (((void *)next__JAS != (void *)NULL)) {
2286 ((__MEMORY *)next__JAS)->previous_free__CU=prev__IAS;
2287 };
2288 };
2289 new_free__0DJ->size_and_id__AU=new_size__5DJ;
2290 if (((__UINTEGER_32)(new_free__0DJ->size_and_id__AU & 2) != 0)) {
2291 last_block[(__tmp__NUH)] = (new_free__0DJ);
2292 } else {
2293 next__1DJ=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__CHI) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__CHI->size_and_id__AU & 4294967292LU)))));
2294 next__1DJ->previous_linear__5T=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )new_free__0DJ) - (unsigned long)begin_memory__EAC))));
2295 };
2296 };
2297 } else {
2298 result__HHI=Self__CHI;
2299 };
2300 result__2SH=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__HHI)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
2301 };
2302 new__WJH=((__CHARACTER *)result__2SH);
2303 upper__TXS=(__INTEGER)(new_nb_elts__AJH - 1);
2304 Self__RXS=old_nb_elts__5IH;
2305 while ((Self__RXS <= upper__TXS)) {
2306 new__WJH[Self__RXS]='\0';
2307 Self__RXS=(__INTEGER)(Self__RXS + 1);
2308 };
2309 return(new__WJH);
2310 }
2311
2312 static void from_external__KDD(__STRING *Self__LDD,__CHARACTER *p__MDD)
2313 // ({STRING},{NULLxNATIVE_ARRAYoExpanded_CHARACTERo}) VoidNo recursive, No inlinable.
2314 {
2315 Self__LDD->count__CB= 0;
2316 while ((((__CHARACTER *)p__MDD)[Self__LDD->count__CB] != '\0')) {
2317 Self__LDD->count__CB=(__INTEGER)(Self__LDD->count__CB + 1);
2318 };
2319 if (((void *)Self__LDD->storage__0CD != (void *)p__MDD)) {
2320 Self__LDD->storage__0CD=p__MDD;
2321 Self__LDD->capacity__3BD=(__INTEGER)(Self__LDD->count__CB + 1);
2322 };
2323 }
2324
2325 static void copy__AFD(__STRING *Self__BFD,void *other__CFD)
2326 // ({STRING},{NULLxSTRING_CONSTANTxSTRING}) VoidNo recursive, No inlinable.
2327 {
2328 __INTEGER __tmp__DFD,Self__WZF;
2329 __CHARACTER *__tmp__YFD,*__tmp__0FD,*Self__WGF,*model__XGF;
2330 if (((struct ___OBJ *)other__CFD)->__id==__STRING_CONSTANT__) {
2331 __tmp__DFD=((__STRING_CONSTANT *)other__CFD)->count__AD;
2332 } else {
2333 __tmp__DFD=((__STRING *)other__CFD)->count__CB;
2334 };
2335 Self__BFD->count__CB=__tmp__DFD;
2336 if ((__tmp__DFD > 0)) {
2337 if ((Self__BFD->capacity__3BD < __tmp__DFD)) {
2338 Self__BFD->storage__0CD=create__AIH(__tmp__DFD);
2339 Self__BFD->capacity__3BD=Self__BFD->count__CB;
2340 };
2341 __tmp__YFD=Self__BFD->storage__0CD;
2342 if (((struct ___OBJ *)other__CFD)->__id==__STRING_CONSTANT__) {
2343 __tmp__0FD=((__STRING_CONSTANT *)other__CFD)->storage__0ZB;
2344 } else {
2345 __tmp__0FD=((__STRING *)other__CFD)->storage__0CD;
2346 };
2347 Self__WGF=((__CHARACTER *)__tmp__YFD);
2348 model__XGF=__tmp__0FD;
2349 Self__WZF=(__INTEGER)(Self__BFD->count__CB - 1);
2350 while ((Self__WZF >= 0)) {
2351 Self__WGF[Self__WZF]=((__CHARACTER *)model__XGF)[Self__WZF];
2352 Self__WZF=(__INTEGER)(Self__WZF - 1);
2353 };
2354 };
2355 }
2356
2357 static void title__XC(void *str__ZC)
2358 // ({STRING_CONSTANT}) VoidNo recursive, No inlinable.
2359 {
2360 __INTEGER Self__WXS,Self__JX,limit_up__KX;
2361 __BOOLEAN __tmp__VXS;
2362 step_count__0C=(__INTEGER)(step_count__0C + 1);
2363 print__PB((&__string_105));
2364 Self__WXS=step_count__0C;
2365 if ((step_count__0C == 0)) {
2366 fputc((int)('0'),stdout);
2367 __tmp__VXS=TRUE__;
2368 } else {
2369 __tmp__VXS=FALSE__;
2370 };
2371 if ((! __tmp__VXS)) {
2372 if ((step_count__0C < 0)) {
2373 fputc((int)('-'),stdout);
2374 print_positif__OAL((__INTEGER)(- step_count__0C));
2375 } else {
2376 print_positif__OAL(Self__WXS);
2377 };
2378 };
2379 fputc((int)('/'),stdout);
2380 print_positif__OAL( 10);
2381 print__PB((&__string_106));
2382 print__PB(str__ZC);
2383 fputc((int)('\n'),stdout);
2384 Self__JX= 1;
2385 limit_up__KX=(__INTEGER)(((__STRING_CONSTANT *)str__ZC)->count__AD + 11);
2386 while ((Self__JX <= limit_up__KX)) {
2387 print__PB((&__string_107));
2388 Self__JX=(__INTEGER)(Self__JX + 1);
2389 };
2390 fputc((int)('\n'),stdout);
2391 }
2392
2393 static __INTEGER first_substring_index__COD(__STRING *Self__DOD,void *other__EOD)
2394 // ({STRING},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
2395 {
2396 __INTEGER i__HJE,result__JJE,s__IJE,__tmp__D4R,__tmp__E4R,__tmp__F4R;
2397 __INTEGER __tmp__H4R;
2398 __CHARACTER *__tmp__G4R,*__tmp__TBS;
2399 i__HJE= 0;
2400 result__JJE= 0;
2401 s__IJE= 1;
2402 __tmp__D4R=((__STRING_CONSTANT *)other__EOD)->count__AD;
2403 __tmp__E4R=Self__DOD->count__CB;
2404 __tmp__F4R=((__STRING_CONSTANT *)other__EOD)->count__AD;
2405 __tmp__G4R=Self__DOD->storage__0CD;
2406 __tmp__H4R=((__STRING_CONSTANT *)other__EOD)->count__AD;
2407 __tmp__TBS=((__STRING_CONSTANT *)other__EOD)->storage__0ZB;
2408 while ((! ((result__JJE != 0) || ((__INTEGER)((__INTEGER)(s__IJE + __tmp__D4R) - 1) > __tmp__E4R)))) {
2409 i__HJE= 1;
2410 while ((! ((i__HJE > __tmp__F4R) || (((__CHARACTER *)__tmp__G4R)[(__INTEGER)((__INTEGER)((__INTEGER)(s__IJE + i__HJE) - 1) - 1)] != ((__CHARACTER *)__tmp__TBS)[(__INTEGER)(i__HJE - 1)])))) {
2411 i__HJE=(__INTEGER)(i__HJE + 1);
2412 };
2413 if ((i__HJE > __tmp__H4R)) {
2414 result__JJE=s__IJE;
2415 } else {
2416 s__IJE=(__INTEGER)(s__IJE + 1);
2417 };
2418 };
2419 return(result__JJE);
2420 }
2421
2422 static void append__OID(__STRING *Self__PID,void *other__QID)
2423 // ({STRING},{NULLxSTRING_CONSTANTxSTRING}) VoidNo recursive, No inlinable.
2424 {
2425 __INTEGER __tmp__ZID,needed_capacity__SID,dest__YXS,src_capacity__2XS;
2426 __INTEGER i2__XXS,i1__ZXS;
2427 __CHARACTER *__tmp__WJD,*__tmp__XJD,*Self__0XS,*src__1XS;
2428 if (((struct ___OBJ *)other__QID)->__id==__STRING_CONSTANT__) {
2429 __tmp__ZID=((__STRING_CONSTANT *)other__QID)->count__AD;
2430 } else {
2431 __tmp__ZID=((__STRING *)other__QID)->count__CB;
2432 };
2433 needed_capacity__SID=(__INTEGER)(Self__PID->count__CB + __tmp__ZID);
2434 if ((Self__PID->capacity__3BD < needed_capacity__SID)) {
2435 if ((Self__PID->capacity__3BD == 0)) {
2436 Self__PID->capacity__3BD=needed_capacity__SID;
2437 Self__PID->storage__0CD=create__AIH(needed_capacity__SID);
2438 } else {
2439 Self__PID->storage__0CD=realloc__with__3IH(Self__PID->storage__0CD,Self__PID->capacity__3BD,needed_capacity__SID);
2440 Self__PID->capacity__3BD=needed_capacity__SID;
2441 };
2442 };
2443 __tmp__WJD=Self__PID->storage__0CD;
2444 if (((struct ___OBJ *)other__QID)->__id==__STRING_CONSTANT__) {
2445 __tmp__XJD=((__STRING_CONSTANT *)other__QID)->storage__0ZB;
2446 } else {
2447 __tmp__XJD=((__STRING *)other__QID)->storage__0CD;
2448 };
2449 Self__0XS=((__CHARACTER *)__tmp__WJD);
2450 src__1XS=__tmp__XJD;
2451 dest__YXS=Self__PID->count__CB;
2452 src_capacity__2XS=__tmp__ZID;
2453 i2__XXS= 0;
2454 i1__ZXS=dest__YXS;
2455 while ((i2__XXS != src_capacity__2XS)) {
2456 Self__0XS[i1__ZXS]=((__CHARACTER *)src__1XS)[i2__XXS];
2457 i2__XXS=(__INTEGER)(i2__XXS + 1);
2458 i1__ZXS=(__INTEGER)(i1__ZXS + 1);
2459 };
2460 Self__PID->count__CB=needed_capacity__SID;
2461 }
2462
2463 static void put_string__XR(void *s__ZR)
2464 // ({STRING_CONSTANTxSTRING}) VoidNo recursive, No inlinable.
2465 {
2466 __INTEGER __tmp__MS,Self__IBB,limit_up__JBB;
2467 __CHARACTER *__tmp__UBS,*__tmp__VBS;
2468 __CHARACTER __tmp__TS;
2469 if (((struct ___OBJ *)s__ZR)->__id==__STRING_CONSTANT__) {
2470 };
2471 if (((struct ___OBJ *)s__ZR)->__id==__STRING_CONSTANT__) {
2472 __tmp__MS=((__STRING_CONSTANT *)s__ZR)->count__AD;
2473 } else {
2474 __tmp__MS=((__STRING *)s__ZR)->count__CB;
2475 };
2476 Self__IBB= 1;
2477 limit_up__JBB=__tmp__MS;
2478 __tmp__UBS=((__STRING_CONSTANT *)s__ZR)->storage__0ZB;
2479 __tmp__VBS=((__STRING *)s__ZR)->storage__0CD;
2480 while ((Self__IBB <= limit_up__JBB)) {
2481 if (((struct ___OBJ *)s__ZR)->__id==__STRING_CONSTANT__) {
2482 __tmp__TS=((__CHARACTER *)__tmp__UBS)[(__INTEGER)(Self__IBB - 1)];
2483 } else {
2484 __tmp__TS=((__CHARACTER *)__tmp__VBS)[(__INTEGER)(Self__IBB - 1)];
2485 };
2486 fputc((int)(__tmp__TS),stdout);
2487 Self__IBB=(__INTEGER)(Self__IBB + 1);
2488 };
2489 }
2490
2491 static void update__idf__with__confirmation__DZ(void *file__FZ,void *id__GZ,void *new_text__HZ,__BOOLEAN conf__IZ)
2492 // ({NULLxSTRING_CONSTANTxSTRING},{NULLxSTRING_CONSTANT},{NULLxSTRING_CONSTANTxSTRING},{TRUExFALSE}) VoidNo recursive, No inlinable.
2493 {
2494 __INTEGER index__JZ,new_capacity__YMS,result__2QB,__tmp__WZ;
2495 __INTEGER needed_capacity__2BS,typ_id__5BS,new_capacity__JNS;
2496 __INTEGER typ_id__PCS,__tmp__C0,Self__C0B,limit_up__D0B;
2497 __INTEGER new_capacity__0NS,__tmp__5XS,__tmp__BYS,Self__CYS;
2498 __INTEGER new_capacity__3NS,__tmp__OAG,__tmp__PAG,Self__0FH;
2499 __INTEGER __tmp__IRD,__tmp__JRD,__tmp__3RD,i__LOG,j__XOD,__tmp__KPD;
2500 __INTEGER new_count__DDE,lower__1XJ,upper__2XJ,Self__JFK,dest__FRJ;
2501 __INTEGER src_capacity__GRJ,i2__WRJ,i1__VRJ,needed_capacity__YCS;
2502 __INTEGER typ_id__1CS,needed_capacity__EDS,typ_id__HDS;
2503 __INTEGER needed_capacity__QDS,typ_id__TDS,needed_capacity__2DS;
2504 __INTEGER typ_id__5DS,new_capacity__YPS,new_capacity__1PS;
2505 __INTEGER new_capacity__4PS;
2506 void *old_buffer__KZ,*input__LZ;
2507 __STRING *Self__WBS,*result__3BS,*Self__1BS,*Self__GCS,*result__NCS;
2508 __STRING *Self__LCS,*Self__ZUQ,*Self__1NS,*Self__AYS,*Self__4NS;
2509 __STRING *Self__TOF,*Self__4QD,*Self__UOD,*result__ZCS,*Self__XCS;
2510 __STRING *__tmp__U1,*result__FDS,*Self__DDS,*result__RDS,*Self__PDS;
2511 __STRING *__tmp__W1,*result__3DS,*Self__1DS,*Self__GES,*Self__KES;
2512 __STRING *Self__OES;
2513 __POINTER std_file__MZ,ptr__4BS,ptr_table__2MS,next__1MS,result__3MS;
2514 __POINTER ptr_table__DNS,next__CNS,result__ENS,ptr__OCS;
2515 __POINTER ptr_table__NNS,next__MNS,result__ONS,ptr_table__UNS;
2516 __POINTER next__TNS,result__VNS,ptr__0CS,ptr_table__BOS,next__AOS;
2517 __POINTER result__COS,ptr_table__IOS,next__HOS,result__JOS,ptr__GDS;
2518 __POINTER ptr_table__POS,next__OOS,result__QOS,ptr_table__WOS;
2519 __POINTER next__VOS,result__XOS,ptr__SDS,ptr_table__3OS,next__2OS;
2520 __POINTER result__4OS,ptr_table__EPS,next__DPS,result__FPS,ptr__4DS;
2521 __POINTER ptr_table__LPS,next__KPS,result__MPS,ptr_table__SPS;
2522 __POINTER next__RPS,result__TPS,stream__0RB;
2523 __UINTEGER_32 sz__ACS,a__CCS,new_size__DCS,t__ECS,a__FCS;
2524 __UINTEGER_32 new_size__GNS,lab_type__FNS,sz__QCS,a__SCS;
2525 __UINTEGER_32 new_size__TCS,t__UCS,a__VCS,new_size__XNS,lab_type__WNS;
2526 __UINTEGER_32 sz__2CS,a__4CS,new_size__5CS,t__ADS,a__BDS;
2527 __UINTEGER_32 new_size__LOS,lab_type__KOS,sz__IDS,a__KDS;
2528 __UINTEGER_32 new_size__LDS,t__MDS,a__NDS,new_size__ZOS,lab_type__YOS;
2529 __UINTEGER_32 sz__UDS,a__WDS,new_size__XDS,t__YDS,a__ZDS;
2530 __UINTEGER_32 new_size__HPS,lab_type__GPS,sz__AES,a__CES;
2531 __UINTEGER_32 new_size__DES,t__EES,a__FES,new_size__VPS,lab_type__UPS;
2532 __STRING_CONSTANT *Self__XZB,*Self__MVQ,*Self__PVQ;
2533 void *str__NVR,*str__QVR;
2534 __CHARACTER *ptr__FRB,*__tmp__DYS,*__tmp__EYS,*__tmp__TAS,*__tmp__UAS;
2535 __CHARACTER *__tmp__0RD,*__tmp__1RD,*Self__XNG,*other__YNG,*Self__0XJ;
2536 __CHARACTER *__tmp__0PD,*__tmp__1PD,*Self__DRJ,*src__ERJ;
2537 __CHARACTER ch__2NS,ch__5NS;
2538 __BOOLEAN result__BRD,result__2RB;
2539 index__JZ= 0;
2540 old_buffer__KZ=NULL;
2541 input__LZ=NULL;
2542 print__PB((&__string_108));
2543 if (((struct ___OBJ *)file__FZ)->__id==__STRING_CONSTANT__) {
2544 print__PB(file__FZ);
2545 } else {
2546 put_string__XR(((__STRING *)file__FZ));
2547 };
2548 copy__AFD(string_tmp__2,file__FZ);
2549 Self__WBS=((__STRING *)string_tmp__2);
2550 if ((Self__WBS->capacity__3BD > Self__WBS->count__CB)) {
2551 Self__WBS->count__CB=(__INTEGER)(Self__WBS->count__CB + 1);
2552 if ((((__CHARACTER *)Self__WBS->storage__0CD)[(__INTEGER)(Self__WBS->count__CB - 1)] != '\0')) {
2553 ((__CHARACTER *)Self__WBS->storage__0CD)[(__INTEGER)(Self__WBS->count__CB - 1)]='\0';
2554 };
2555 } else {
2556 new_capacity__YMS= 0;
2557 if ((Self__WBS->capacity__3BD <= Self__WBS->count__CB)) {
2558 if ((Self__WBS->capacity__3BD == 0)) {
2559 Self__WBS->capacity__3BD= 32;
2560 Self__WBS->storage__0CD=create__AIH( 32);
2561 } else {
2562 new_capacity__YMS=(__INTEGER)(Self__WBS->capacity__3BD << 1);
2563 Self__WBS->storage__0CD=realloc__with__3IH(Self__WBS->storage__0CD,Self__WBS->capacity__3BD,new_capacity__YMS);
2564 Self__WBS->capacity__3BD=new_capacity__YMS;
2565 };
2566 };
2567 ((__CHARACTER *)Self__WBS->storage__0CD)[Self__WBS->count__CB]='\0';
2568 Self__WBS->count__CB=(__INTEGER)(Self__WBS->count__CB + 1);
2569 };
2570 Self__WBS->count__CB=(__INTEGER)(Self__WBS->count__CB - 1);
2571 std_file__MZ=((__POINTER )(fopen((char*)(Self__WBS->storage__0CD),"rb")));
2572 if ((std_file__MZ != (void *)NULL)) {
2573 fseek((FILE*)((std_file__MZ)),0,SEEK_END);
2574 result__2QB=((__INTEGER )(ftell((FILE *)(std_file__MZ))));
2575 fseek((FILE*)((std_file__MZ)),0,SEEK_SET);
2576 if (((struct ___OBJ *)new_text__HZ)->__id==__STRING_CONSTANT__) {
2577 __tmp__WZ=((__STRING_CONSTANT *)new_text__HZ)->count__AD;
2578 } else {
2579 __tmp__WZ=((__STRING *)new_text__HZ)->count__CB;
2580 };
2581 needed_capacity__2BS=(__INTEGER)(result__2QB + __tmp__WZ);
2582 result__3BS=NULL;
2583 ptr__4BS=((__POINTER )(NULL));
2584 typ_id__5BS= 0;
2585 sz__ACS=((__UINTEGER_32 )sizeof(__STRING));
2586 if ((sz__ACS == 0)) {
2587 result__3BS=STRING__;
2588 } else {
2589 typ_id__5BS=-1;
2590 clone_allocation_size__VT=(__UINTEGER_32)(clone_allocation_size__VT + sz__ACS);
2591 if ((typ_id__5BS == (__INTEGER)(- 1))) {
2592 a__CCS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
2593 new_size__DCS=(__UINTEGER_32)((__UINTEGER_32)(sz__ACS + a__CCS) & (__UINTEGER_32)(~ a__CCS));
2594 ptr_table__2MS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__DCS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
2595 next__1MS=((__POINTER )(NULL));
2596 result__3MS=((__POINTER *)ptr_table__2MS)[ 0];
2597 if ((result__3MS == (void *)NULL)) {
2598 result__3MS=new_lab__IQC(new_size__DCS);
2599 next__1MS=(void *)((unsigned long)result__3MS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DCS)));
2600 ((__POINTER *)next__1MS)[ 0]=NULL;
2601 ((__POINTER *)ptr_table__2MS)[ 0]=next__1MS;
2602 } else {
2603 next__1MS=((__POINTER *)result__3MS)[ 0];
2604 if ((next__1MS == (void *)NULL)) {
2605 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3MS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__DCS << 1)) <= 4096)) {
2606 next__1MS=(void *)((unsigned long)result__3MS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DCS)));
2607 } else {
2608 next__1MS=new_lab__IQC(new_size__DCS);
2609 };
2610 ((__POINTER *)next__1MS)[ 0]=NULL;
2611 ((__POINTER *)ptr_table__2MS)[ 0]=next__1MS;
2612 } else {
2613 ((__POINTER *)result__3MS)[ 0]=(void *)((unsigned long)((__POINTER *)next__1MS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
2614 result__3MS=next__1MS;
2615 };
2616 };
2617 ptr__4BS=result__3MS;
2618 } else {
2619 t__ECS=((__UINTEGER_32 )typ_id__5BS);
2620 a__FCS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
2621 new_size__GNS=(__UINTEGER_32)((__UINTEGER_32)(sz__ACS + a__FCS) & (__UINTEGER_32)(~ a__FCS));
2622 ptr_table__DNS=((__POINTER )(&(table_type[(t__ECS)])));
2623 lab_type__FNS=(__UINTEGER_32)(t__ECS | 1);
2624 next__CNS=((__POINTER )(NULL));
2625 result__ENS=((__POINTER *)ptr_table__DNS)[ 0];
2626 if ((result__ENS == (void *)NULL)) {
2627 result__ENS=new_lab__IQC(lab_type__FNS);
2628 next__CNS=(void *)((unsigned long)result__ENS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GNS)));
2629 ((__POINTER *)next__CNS)[ 0]=NULL;
2630 ((__POINTER *)ptr_table__DNS)[ 0]=next__CNS;
2631 } else {
2632 next__CNS=((__POINTER *)result__ENS)[ 0];
2633 if ((next__CNS == (void *)NULL)) {
2634 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ENS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__GNS << 1)) <= 4096)) {
2635 next__CNS=(void *)((unsigned long)result__ENS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GNS)));
2636 } else {
2637 next__CNS=new_lab__IQC(lab_type__FNS);
2638 };
2639 ((__POINTER *)next__CNS)[ 0]=NULL;
2640 ((__POINTER *)ptr_table__DNS)[ 0]=next__CNS;
2641 } else {
2642 ((__POINTER *)result__ENS)[ 0]=(void *)((unsigned long)((__POINTER *)next__CNS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
2643 result__ENS=next__CNS;
2644 };
2645 };
2646 ptr__4BS=result__ENS;
2647 };
2648 result__3BS=((__STRING *)ptr__4BS);
2649 *(result__3BS) = *(STRING__);
2650 };
2651 Self__1BS=((__STRING *)result__3BS);
2652 if ((needed_capacity__2BS > 0)) {
2653 if ((Self__1BS->capacity__3BD < needed_capacity__2BS)) {
2654 Self__1BS->storage__0CD=create__AIH(needed_capacity__2BS);
2655 Self__1BS->capacity__3BD=needed_capacity__2BS;
2656 };
2657 };
2658 Self__1BS->count__CB= 0;
2659 input__LZ=result__3BS;
2660 Self__GCS=((__STRING *)result__3BS);
2661 if ((Self__GCS->capacity__3BD > Self__GCS->count__CB)) {
2662 Self__GCS->count__CB=(__INTEGER)(Self__GCS->count__CB + 1);
2663 if ((((__CHARACTER *)Self__GCS->storage__0CD)[(__INTEGER)(Self__GCS->count__CB - 1)] != '\0')) {
2664 ((__CHARACTER *)Self__GCS->storage__0CD)[(__INTEGER)(Self__GCS->count__CB - 1)]='\0';
2665 };
2666 } else {
2667 new_capacity__JNS= 0;
2668 if ((Self__GCS->capacity__3BD <= Self__GCS->count__CB)) {
2669 if ((Self__GCS->capacity__3BD == 0)) {
2670 Self__GCS->capacity__3BD= 32;
2671 Self__GCS->storage__0CD=create__AIH( 32);
2672 } else {
2673 new_capacity__JNS=(__INTEGER)(Self__GCS->capacity__3BD << 1);
2674 Self__GCS->storage__0CD=realloc__with__3IH(Self__GCS->storage__0CD,Self__GCS->capacity__3BD,new_capacity__JNS);
2675 Self__GCS->capacity__3BD=new_capacity__JNS;
2676 };
2677 };
2678 ((__CHARACTER *)Self__GCS->storage__0CD)[Self__GCS->count__CB]='\0';
2679 Self__GCS->count__CB=(__INTEGER)(Self__GCS->count__CB + 1);
2680 };
2681 Self__GCS->count__CB=(__INTEGER)(Self__GCS->count__CB - 1);
2682 ptr__FRB=Self__GCS->storage__0CD;
2683 fread((void *)((ptr__FRB)),(size_t)(1), (size_t)((result__2QB)),(FILE*)((std_file__MZ)));
2684 from_external__KDD(result__3BS,ptr__FRB);
2685 fclose((FILE*)((std_file__MZ)));
2686 index__JZ=first_substring_index__COD(result__3BS,id__GZ);
2687 if ((index__JZ != 0)) {
2688 result__NCS=NULL;
2689 ptr__OCS=((__POINTER )(NULL));
2690 typ_id__PCS= 0;
2691 sz__QCS=((__UINTEGER_32 )sizeof(__STRING));
2692 if ((sz__QCS == 0)) {
2693 result__NCS=STRING__;
2694 } else {
2695 typ_id__PCS=-1;
2696 clone_allocation_size__VT=(__UINTEGER_32)(clone_allocation_size__VT + sz__QCS);
2697 if ((typ_id__PCS == (__INTEGER)(- 1))) {
2698 a__SCS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
2699 new_size__TCS=(__UINTEGER_32)((__UINTEGER_32)(sz__QCS + a__SCS) & (__UINTEGER_32)(~ a__SCS));
2700 ptr_table__NNS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__TCS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
2701 next__MNS=((__POINTER )(NULL));
2702 result__ONS=((__POINTER *)ptr_table__NNS)[ 0];
2703 if ((result__ONS == (void *)NULL)) {
2704 result__ONS=new_lab__IQC(new_size__TCS);
2705 next__MNS=(void *)((unsigned long)result__ONS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TCS)));
2706 ((__POINTER *)next__MNS)[ 0]=NULL;
2707 ((__POINTER *)ptr_table__NNS)[ 0]=next__MNS;
2708 } else {
2709 next__MNS=((__POINTER *)result__ONS)[ 0];
2710 if ((next__MNS == (void *)NULL)) {
2711 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ONS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__TCS << 1)) <= 4096)) {
2712 next__MNS=(void *)((unsigned long)result__ONS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TCS)));
2713 } else {
2714 next__MNS=new_lab__IQC(new_size__TCS);
2715 };
2716 ((__POINTER *)next__MNS)[ 0]=NULL;
2717 ((__POINTER *)ptr_table__NNS)[ 0]=next__MNS;
2718 } else {
2719 ((__POINTER *)result__ONS)[ 0]=(void *)((unsigned long)((__POINTER *)next__MNS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
2720 result__ONS=next__MNS;
2721 };
2722 };
2723 ptr__OCS=result__ONS;
2724 } else {
2725 t__UCS=((__UINTEGER_32 )typ_id__PCS);
2726 a__VCS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
2727 new_size__XNS=(__UINTEGER_32)((__UINTEGER_32)(sz__QCS + a__VCS) & (__UINTEGER_32)(~ a__VCS));
2728 ptr_table__UNS=((__POINTER )(&(table_type[(t__UCS)])));
2729 lab_type__WNS=(__UINTEGER_32)(t__UCS | 1);
2730 next__TNS=((__POINTER )(NULL));
2731 result__VNS=((__POINTER *)ptr_table__UNS)[ 0];
2732 if ((result__VNS == (void *)NULL)) {
2733 result__VNS=new_lab__IQC(lab_type__WNS);
2734 next__TNS=(void *)((unsigned long)result__VNS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XNS)));
2735 ((__POINTER *)next__TNS)[ 0]=NULL;
2736 ((__POINTER *)ptr_table__UNS)[ 0]=next__TNS;
2737 } else {
2738 next__TNS=((__POINTER *)result__VNS)[ 0];
2739 if ((next__TNS == (void *)NULL)) {
2740 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VNS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__XNS << 1)) <= 4096)) {
2741 next__TNS=(void *)((unsigned long)result__VNS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XNS)));
2742 } else {
2743 next__TNS=new_lab__IQC(lab_type__WNS);
2744 };
2745 ((__POINTER *)next__TNS)[ 0]=NULL;
2746 ((__POINTER *)ptr_table__UNS)[ 0]=next__TNS;
2747 } else {
2748 ((__POINTER *)result__VNS)[ 0]=(void *)((unsigned long)((__POINTER *)next__TNS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
2749 result__VNS=next__TNS;
2750 };
2751 };
2752 ptr__OCS=result__VNS;
2753 };
2754 result__NCS=((__STRING *)ptr__OCS);
2755 *(result__NCS) = *(STRING__);
2756 };
2757 Self__LCS=((__STRING *)result__NCS);
2758 if ((Self__LCS->capacity__3BD < 200)) {
2759 Self__LCS->storage__0CD=create__AIH( 200);
2760 Self__LCS->capacity__3BD= 200;
2761 };
2762 Self__LCS->count__CB= 0;
2763 old_buffer__KZ=result__NCS;
2764 if (((struct ___OBJ *)new_text__HZ)->__id==__STRING_CONSTANT__) {
2765 Self__XZB=((__STRING_CONSTANT *)new_text__HZ);
2766 __tmp__C0=fast_occurrences__until__ZDC(Self__XZB->storage__0ZB,(__INTEGER)(Self__XZB->count__AD - 1));
2767 } else {
2768 Self__ZUQ=((__STRING *)new_text__HZ);
2769 __tmp__C0=fast_occurrences__until__ZDC(Self__ZUQ->storage__0CD,(__INTEGER)(Self__ZUQ->count__CB - 1));
2770 };
2771 Self__C0B= 1;
2772 limit_up__D0B=__tmp__C0;
2773 while ((Self__C0B <= limit_up__D0B)) {
2774 while ((((__CHARACTER *)((__STRING *)input__LZ)->storage__0CD)[(__INTEGER)(index__JZ - 1)] != '\n')) {
2775 Self__1NS=((__STRING *)old_buffer__KZ);
2776 ch__2NS=((__CHARACTER *)((__STRING *)input__LZ)->storage__0CD)[(__INTEGER)(index__JZ - 1)];
2777 new_capacity__0NS= 0;
2778 if ((Self__1NS->capacity__3BD <= Self__1NS->count__CB)) {
2779 if ((Self__1NS->capacity__3BD == 0)) {
2780 Self__1NS->capacity__3BD= 32;
2781 Self__1NS->storage__0CD=create__AIH( 32);
2782 } else {
2783 new_capacity__0NS=(__INTEGER)(Self__1NS->capacity__3BD << 1);
2784 Self__1NS->storage__0CD=realloc__with__3IH(Self__1NS->storage__0CD,Self__1NS->capacity__3BD,new_capacity__0NS);
2785 Self__1NS->capacity__3BD=new_capacity__0NS;
2786 };
2787 };
2788 ((__CHARACTER *)Self__1NS->storage__0CD)[Self__1NS->count__CB]=ch__2NS;
2789 Self__1NS->count__CB=(__INTEGER)(Self__1NS->count__CB + 1);
2790 Self__AYS=((__STRING *)input__LZ);
2791 __tmp__5XS=(__INTEGER)(index__JZ + 1);
2792 __tmp__BYS=Self__AYS->count__CB;
2793 Self__CYS=__tmp__5XS;
2794 __tmp__DYS=Self__AYS->storage__0CD;
2795 __tmp__EYS=Self__AYS->storage__0CD;
2796 while ((Self__CYS <= __tmp__BYS)) {
2797 ((__CHARACTER *)__tmp__EYS)[(__INTEGER)((__INTEGER)(Self__CYS - 1) - 1)]=((__CHARACTER *)__tmp__DYS)[(__INTEGER)(Self__CYS - 1)];
2798 Self__CYS=(__INTEGER)(Self__CYS + 1);
2799 };
2800 Self__AYS->count__CB=(__INTEGER)(Self__AYS->count__CB - 1);
2801 };
2802 Self__4NS=((__STRING *)old_buffer__KZ);
2803 ch__5NS=((__CHARACTER *)((__STRING *)input__LZ)->storage__0CD)[(__INTEGER)(index__JZ - 1)];
2804 new_capacity__3NS= 0;
2805 if ((Self__4NS->capacity__3BD <= Self__4NS->count__CB)) {
2806 if ((Self__4NS->capacity__3BD == 0)) {
2807 Self__4NS->capacity__3BD= 32;
2808 Self__4NS->storage__0CD=create__AIH( 32);
2809 } else {
2810 new_capacity__3NS=(__INTEGER)(Self__4NS->capacity__3BD << 1);
2811 Self__4NS->storage__0CD=realloc__with__3IH(Self__4NS->storage__0CD,Self__4NS->capacity__3BD,new_capacity__3NS);
2812 Self__4NS->capacity__3BD=new_capacity__3NS;
2813 };
2814 };
2815 ((__CHARACTER *)Self__4NS->storage__0CD)[Self__4NS->count__CB]=ch__5NS;
2816 Self__4NS->count__CB=(__INTEGER)(Self__4NS->count__CB + 1);
2817 Self__TOF=((__STRING *)input__LZ);
2818 __tmp__OAG=(__INTEGER)(index__JZ + 1);
2819 __tmp__PAG=Self__TOF->count__CB;
2820 Self__0FH=__tmp__OAG;
2821 __tmp__TAS=Self__TOF->storage__0CD;
2822 __tmp__UAS=Self__TOF->storage__0CD;
2823 while ((Self__0FH <= __tmp__PAG)) {
2824 ((__CHARACTER *)__tmp__UAS)[(__INTEGER)((__INTEGER)(Self__0FH - 1) - 1)]=((__CHARACTER *)__tmp__TAS)[(__INTEGER)(Self__0FH - 1)];
2825 Self__0FH=(__INTEGER)(Self__0FH + 1);
2826 };
2827 Self__TOF->count__CB=(__INTEGER)(Self__TOF->count__CB - 1);
2828 Self__C0B=(__INTEGER)(Self__C0B + 1);
2829 };
2830 Self__4QD=((__STRING *)result__NCS);
2831 result__BRD=FALSE__;
2832 __tmp__IRD=Self__4QD->count__CB;
2833 if (((struct ___OBJ *)new_text__HZ)->__id==__STRING_CONSTANT__) {
2834 __tmp__JRD=((__STRING_CONSTANT *)new_text__HZ)->count__AD;
2835 } else {
2836 __tmp__JRD=((__STRING *)new_text__HZ)->count__CB;
2837 };
2838 if ((__tmp__IRD == __tmp__JRD)) {
2839 if ((Self__4QD->count__CB == 0)) {
2840 result__BRD=TRUE__;
2841 } else {
2842 __tmp__0RD=Self__4QD->storage__0CD;
2843 if (((struct ___OBJ *)new_text__HZ)->__id==__STRING_CONSTANT__) {
2844 __tmp__1RD=((__STRING_CONSTANT *)new_text__HZ)->storage__0ZB;
2845 } else {
2846 __tmp__1RD=((__STRING *)new_text__HZ)->storage__0CD;
2847 };
2848 __tmp__3RD=Self__4QD->count__CB;
2849 Self__XNG=((__CHARACTER *)__tmp__0RD);
2850 other__YNG=__tmp__1RD;
2851 i__LOG=(__INTEGER)(__tmp__3RD - 1);
2852 while (((i__LOG >= 0) && (Self__XNG[i__LOG] == ((__CHARACTER *)other__YNG)[i__LOG]))) {
2853 i__LOG=(__INTEGER)(i__LOG - 1);
2854 };
2855 result__BRD=(i__LOG < 0);
2856 };
2857 };
2858 if (result__BRD) {
2859 print__PB((&__string_109));
2860 } else {
2861 print__PB((&__string_110));
2862 put_string__XR(((__STRING *)result__NCS));
2863 print__PB((&__string_111));
2864 };
2865 } else {
2866 print__PB((&__string_112));
2867 index__JZ=(__INTEGER)(((__STRING *)result__3BS)->count__CB + 1);
2868 };
2869 if (((struct ___OBJ *)new_text__HZ)->__id==__STRING_CONSTANT__) {
2870 print__PB(new_text__HZ);
2871 } else {
2872 put_string__XR(((__STRING *)new_text__HZ));
2873 };
2874 Self__UOD=((__STRING *)result__3BS);
2875 j__XOD=Self__UOD->count__CB;
2876 if (((struct ___OBJ *)new_text__HZ)->__id==__STRING_CONSTANT__) {
2877 __tmp__KPD=((__STRING_CONSTANT *)new_text__HZ)->count__AD;
2878 } else {
2879 __tmp__KPD=((__STRING *)new_text__HZ)->count__CB;
2880 };
2881 new_count__DDE=(__INTEGER)(j__XOD + __tmp__KPD);
2882 if ((! (new_count__DDE <= Self__UOD->count__CB))) {
2883 if ((Self__UOD->capacity__3BD < new_count__DDE)) {
2884 if ((Self__UOD->capacity__3BD == 0)) {
2885 Self__UOD->storage__0CD=create__AIH(new_count__DDE);
2886 } else {
2887 Self__UOD->storage__0CD=realloc__with__3IH(Self__UOD->storage__0CD,Self__UOD->capacity__3BD,new_count__DDE);
2888 };
2889 Self__UOD->capacity__3BD=new_count__DDE;
2890 } else {
2891 Self__0XJ=((__CHARACTER *)Self__UOD->storage__0CD);
2892 lower__1XJ=Self__UOD->count__CB;
2893 upper__2XJ=(__INTEGER)(new_count__DDE - 1);
2894 Self__JFK=lower__1XJ;
2895 while ((Self__JFK <= upper__2XJ)) {
2896 Self__0XJ[Self__JFK]='\0';
2897 Self__JFK=(__INTEGER)(Self__JFK + 1);
2898 };
2899 };
2900 };
2901 Self__UOD->count__CB=new_count__DDE;
2902 if ((index__JZ <= j__XOD)) {
2903 move__to__by__2LF(Self__UOD->storage__0CD,(__INTEGER)(index__JZ - 1),(__INTEGER)(j__XOD - 1),__tmp__KPD);
2904 };
2905 __tmp__0PD=Self__UOD->storage__0CD;
2906 if (((struct ___OBJ *)new_text__HZ)->__id==__STRING_CONSTANT__) {
2907 __tmp__1PD=((__STRING_CONSTANT *)new_text__HZ)->storage__0ZB;
2908 } else {
2909 __tmp__1PD=((__STRING *)new_text__HZ)->storage__0CD;
2910 };
2911 Self__DRJ=((__CHARACTER *)__tmp__0PD);
2912 src__ERJ=__tmp__1PD;
2913 dest__FRJ=(__INTEGER)(index__JZ - 1);
2914 src_capacity__GRJ=__tmp__KPD;
2915 i2__WRJ= 0;
2916 i1__VRJ=dest__FRJ;
2917 while ((i2__WRJ != src_capacity__GRJ)) {
2918 Self__DRJ[i1__VRJ]=((__CHARACTER *)src__ERJ)[i2__WRJ];
2919 i2__WRJ=(__INTEGER)(i2__WRJ + 1);
2920 i1__VRJ=(__INTEGER)(i1__VRJ + 1);
2921 };
2922 } else {
2923 print__PB((&__string_113));
2924 if (((struct ___OBJ *)new_text__HZ)->__id==__STRING_CONSTANT__) {
2925 print__PB(new_text__HZ);
2926 } else {
2927 put_string__XR(((__STRING *)new_text__HZ));
2928 };
2929 if (((struct ___OBJ *)new_text__HZ)->__id==__STRING_CONSTANT__) {
2930 Self__MVQ=((__STRING_CONSTANT *)new_text__HZ);
2931 needed_capacity__YCS=Self__MVQ->count__AD;
2932 result__ZCS=NULL;
2933 ptr__0CS=((__POINTER )(NULL));
2934 typ_id__1CS= 0;
2935 sz__2CS=((__UINTEGER_32 )sizeof(__STRING));
2936 if ((sz__2CS == 0)) {
2937 result__ZCS=STRING__;
2938 } else {
2939 typ_id__1CS=-1;
2940 clone_allocation_size__VT=(__UINTEGER_32)(clone_allocation_size__VT + sz__2CS);
2941 if ((typ_id__1CS == (__INTEGER)(- 1))) {
2942 a__4CS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
2943 new_size__5CS=(__UINTEGER_32)((__UINTEGER_32)(sz__2CS + a__4CS) & (__UINTEGER_32)(~ a__4CS));
2944 ptr_table__BOS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5CS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
2945 next__AOS=((__POINTER )(NULL));
2946 result__COS=((__POINTER *)ptr_table__BOS)[ 0];
2947 if ((result__COS == (void *)NULL)) {
2948 result__COS=new_lab__IQC(new_size__5CS);
2949 next__AOS=(void *)((unsigned long)result__COS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5CS)));
2950 ((__POINTER *)next__AOS)[ 0]=NULL;
2951 ((__POINTER *)ptr_table__BOS)[ 0]=next__AOS;
2952 } else {
2953 next__AOS=((__POINTER *)result__COS)[ 0];
2954 if ((next__AOS == (void *)NULL)) {
2955 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__COS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__5CS << 1)) <= 4096)) {
2956 next__AOS=(void *)((unsigned long)result__COS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5CS)));
2957 } else {
2958 next__AOS=new_lab__IQC(new_size__5CS);
2959 };
2960 ((__POINTER *)next__AOS)[ 0]=NULL;
2961 ((__POINTER *)ptr_table__BOS)[ 0]=next__AOS;
2962 } else {
2963 ((__POINTER *)result__COS)[ 0]=(void *)((unsigned long)((__POINTER *)next__AOS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
2964 result__COS=next__AOS;
2965 };
2966 };
2967 ptr__0CS=result__COS;
2968 } else {
2969 t__ADS=((__UINTEGER_32 )typ_id__1CS);
2970 a__BDS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
2971 new_size__LOS=(__UINTEGER_32)((__UINTEGER_32)(sz__2CS + a__BDS) & (__UINTEGER_32)(~ a__BDS));
2972 ptr_table__IOS=((__POINTER )(&(table_type[(t__ADS)])));
2973 lab_type__KOS=(__UINTEGER_32)(t__ADS | 1);
2974 next__HOS=((__POINTER )(NULL));
2975 result__JOS=((__POINTER *)ptr_table__IOS)[ 0];
2976 if ((result__JOS == (void *)NULL)) {
2977 result__JOS=new_lab__IQC(lab_type__KOS);
2978 next__HOS=(void *)((unsigned long)result__JOS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LOS)));
2979 ((__POINTER *)next__HOS)[ 0]=NULL;
2980 ((__POINTER *)ptr_table__IOS)[ 0]=next__HOS;
2981 } else {
2982 next__HOS=((__POINTER *)result__JOS)[ 0];
2983 if ((next__HOS == (void *)NULL)) {
2984 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JOS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__LOS << 1)) <= 4096)) {
2985 next__HOS=(void *)((unsigned long)result__JOS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LOS)));
2986 } else {
2987 next__HOS=new_lab__IQC(lab_type__KOS);
2988 };
2989 ((__POINTER *)next__HOS)[ 0]=NULL;
2990 ((__POINTER *)ptr_table__IOS)[ 0]=next__HOS;
2991 } else {
2992 ((__POINTER *)result__JOS)[ 0]=(void *)((unsigned long)((__POINTER *)next__HOS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
2993 result__JOS=next__HOS;
2994 };
2995 };
2996 ptr__0CS=result__JOS;
2997 };
2998 result__ZCS=((__STRING *)ptr__0CS);
2999 *(result__ZCS) = *(STRING__);
3000 };
3001 Self__XCS=((__STRING *)result__ZCS);
3002 if ((needed_capacity__YCS > 0)) {
3003 if ((Self__XCS->capacity__3BD < needed_capacity__YCS)) {
3004 Self__XCS->storage__0CD=create__AIH(needed_capacity__YCS);
3005 Self__XCS->capacity__3BD=needed_capacity__YCS;
3006 };
3007 };
3008 Self__XCS->count__CB= 0;
3009 copy__AFD(result__ZCS,Self__MVQ);
3010 __tmp__U1=result__ZCS;
3011 } else {
3012 str__NVR=((__STRING *)new_text__HZ);
3013 needed_capacity__EDS=((__STRING *)str__NVR)->count__CB;
3014 result__FDS=NULL;
3015 ptr__GDS=((__POINTER )(NULL));
3016 typ_id__HDS= 0;
3017 sz__IDS=((__UINTEGER_32 )sizeof(__STRING));
3018 if ((sz__IDS == 0)) {
3019 result__FDS=STRING__;
3020 } else {
3021 typ_id__HDS=-1;
3022 clone_allocation_size__VT=(__UINTEGER_32)(clone_allocation_size__VT + sz__IDS);
3023 if ((typ_id__HDS == (__INTEGER)(- 1))) {
3024 a__KDS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
3025 new_size__LDS=(__UINTEGER_32)((__UINTEGER_32)(sz__IDS + a__KDS) & (__UINTEGER_32)(~ a__KDS));
3026 ptr_table__POS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__LDS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
3027 next__OOS=((__POINTER )(NULL));
3028 result__QOS=((__POINTER *)ptr_table__POS)[ 0];
3029 if ((result__QOS == (void *)NULL)) {
3030 result__QOS=new_lab__IQC(new_size__LDS);
3031 next__OOS=(void *)((unsigned long)result__QOS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LDS)));
3032 ((__POINTER *)next__OOS)[ 0]=NULL;
3033 ((__POINTER *)ptr_table__POS)[ 0]=next__OOS;
3034 } else {
3035 next__OOS=((__POINTER *)result__QOS)[ 0];
3036 if ((next__OOS == (void *)NULL)) {
3037 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QOS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__LDS << 1)) <= 4096)) {
3038 next__OOS=(void *)((unsigned long)result__QOS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LDS)));
3039 } else {
3040 next__OOS=new_lab__IQC(new_size__LDS);
3041 };
3042 ((__POINTER *)next__OOS)[ 0]=NULL;
3043 ((__POINTER *)ptr_table__POS)[ 0]=next__OOS;
3044 } else {
3045 ((__POINTER *)result__QOS)[ 0]=(void *)((unsigned long)((__POINTER *)next__OOS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
3046 result__QOS=next__OOS;
3047 };
3048 };
3049 ptr__GDS=result__QOS;
3050 } else {
3051 t__MDS=((__UINTEGER_32 )typ_id__HDS);
3052 a__NDS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
3053 new_size__ZOS=(__UINTEGER_32)((__UINTEGER_32)(sz__IDS + a__NDS) & (__UINTEGER_32)(~ a__NDS));
3054 ptr_table__WOS=((__POINTER )(&(table_type[(t__MDS)])));
3055 lab_type__YOS=(__UINTEGER_32)(t__MDS | 1);
3056 next__VOS=((__POINTER )(NULL));
3057 result__XOS=((__POINTER *)ptr_table__WOS)[ 0];
3058 if ((result__XOS == (void *)NULL)) {
3059 result__XOS=new_lab__IQC(lab_type__YOS);
3060 next__VOS=(void *)((unsigned long)result__XOS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZOS)));
3061 ((__POINTER *)next__VOS)[ 0]=NULL;
3062 ((__POINTER *)ptr_table__WOS)[ 0]=next__VOS;
3063 } else {
3064 next__VOS=((__POINTER *)result__XOS)[ 0];
3065 if ((next__VOS == (void *)NULL)) {
3066 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XOS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__ZOS << 1)) <= 4096)) {
3067 next__VOS=(void *)((unsigned long)result__XOS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZOS)));
3068 } else {
3069 next__VOS=new_lab__IQC(lab_type__YOS);
3070 };
3071 ((__POINTER *)next__VOS)[ 0]=NULL;
3072 ((__POINTER *)ptr_table__WOS)[ 0]=next__VOS;
3073 } else {
3074 ((__POINTER *)result__XOS)[ 0]=(void *)((unsigned long)((__POINTER *)next__VOS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
3075 result__XOS=next__VOS;
3076 };
3077 };
3078 ptr__GDS=result__XOS;
3079 };
3080 result__FDS=((__STRING *)ptr__GDS);
3081 *(result__FDS) = *(STRING__);
3082 };
3083 Self__DDS=((__STRING *)result__FDS);
3084 if ((needed_capacity__EDS > 0)) {
3085 if ((Self__DDS->capacity__3BD < needed_capacity__EDS)) {
3086 Self__DDS->storage__0CD=create__AIH(needed_capacity__EDS);
3087 Self__DDS->capacity__3BD=needed_capacity__EDS;
3088 };
3089 };
3090 Self__DDS->count__CB= 0;
3091 copy__AFD(result__FDS,str__NVR);
3092 __tmp__U1=result__FDS;
3093 };
3094 input__LZ=__tmp__U1;
3095 if (((struct ___OBJ *)file__FZ)->__id==__STRING_CONSTANT__) {
3096 Self__PVQ=((__STRING_CONSTANT *)file__FZ);
3097 needed_capacity__QDS=Self__PVQ->count__AD;
3098 result__RDS=NULL;
3099 ptr__SDS=((__POINTER )(NULL));
3100 typ_id__TDS= 0;
3101 sz__UDS=((__UINTEGER_32 )sizeof(__STRING));
3102 if ((sz__UDS == 0)) {
3103 result__RDS=STRING__;
3104 } else {
3105 typ_id__TDS=-1;
3106 clone_allocation_size__VT=(__UINTEGER_32)(clone_allocation_size__VT + sz__UDS);
3107 if ((typ_id__TDS == (__INTEGER)(- 1))) {
3108 a__WDS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
3109 new_size__XDS=(__UINTEGER_32)((__UINTEGER_32)(sz__UDS + a__WDS) & (__UINTEGER_32)(~ a__WDS));
3110 ptr_table__3OS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XDS / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
3111 next__2OS=((__POINTER )(NULL));
3112 result__4OS=((__POINTER *)ptr_table__3OS)[ 0];
3113 if ((result__4OS == (void *)NULL)) {
3114 result__4OS=new_lab__IQC(new_size__XDS);
3115 next__2OS=(void *)((unsigned long)result__4OS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XDS)));
3116 ((__POINTER *)next__2OS)[ 0]=NULL;
3117 ((__POINTER *)ptr_table__3OS)[ 0]=next__2OS;
3118 } else {
3119 next__2OS=((__POINTER *)result__4OS)[ 0];
3120 if ((next__2OS == (void *)NULL)) {
3121 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4OS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__XDS << 1)) <= 4096)) {
3122 next__2OS=(void *)((unsigned long)result__4OS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XDS)));
3123 } else {
3124 next__2OS=new_lab__IQC(new_size__XDS);
3125 };
3126 ((__POINTER *)next__2OS)[ 0]=NULL;
3127 ((__POINTER *)ptr_table__3OS)[ 0]=next__2OS;
3128 } else {
3129 ((__POINTER *)result__4OS)[ 0]=(void *)((unsigned long)((__POINTER *)next__2OS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
3130 result__4OS=next__2OS;
3131 };
3132 };
3133 ptr__SDS=result__4OS;
3134 } else {
3135 t__YDS=((__UINTEGER_32 )typ_id__TDS);
3136 a__ZDS=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
3137 new_size__HPS=(__UINTEGER_32)((__UINTEGER_32)(sz__UDS + a__ZDS) & (__UINTEGER_32)(~ a__ZDS));
3138 ptr_table__EPS=((__POINTER )(&(table_type[(t__YDS)])));
3139 lab_type__GPS=(__UINTEGER_32)(t__YDS | 1);
3140 next__DPS=((__POINTER )(NULL));
3141 result__FPS=((__POINTER *)ptr_table__EPS)[ 0];
3142 if ((result__FPS == (void *)NULL)) {
3143 result__FPS=new_lab__IQC(lab_type__GPS);
3144 next__DPS=(void *)((unsigned long)result__FPS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HPS)));
3145 ((__POINTER *)next__DPS)[ 0]=NULL;
3146 ((__POINTER *)ptr_table__EPS)[ 0]=next__DPS;
3147 } else {
3148 next__DPS=((__POINTER *)result__FPS)[ 0];
3149 if ((next__DPS == (void *)NULL)) {
3150 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FPS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__HPS << 1)) <= 4096)) {
3151 next__DPS=(void *)((unsigned long)result__FPS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HPS)));
3152 } else {
3153 next__DPS=new_lab__IQC(lab_type__GPS);
3154 };
3155 ((__POINTER *)next__DPS)[ 0]=NULL;
3156 ((__POINTER *)ptr_table__EPS)[ 0]=next__DPS;
3157 } else {
3158 ((__POINTER *)result__FPS)[ 0]=(void *)((unsigned long)((__POINTER *)next__DPS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
3159 result__FPS=next__DPS;
3160 };
3161 };
3162 ptr__SDS=result__FPS;
3163 };
3164 result__RDS=((__STRING *)ptr__SDS);
3165 *(result__RDS) = *(STRING__);
3166 };
3167 Self__PDS=((__STRING *)result__RDS);
3168 if ((needed_capacity__QDS > 0)) {
3169 if ((Self__PDS->capacity__3BD < needed_capacity__QDS)) {
3170 Self__PDS->storage__0CD=create__AIH(needed_capacity__QDS);
3171 Self__PDS->capacity__3BD=needed_capacity__QDS;
3172 };
3173 };
3174 Self__PDS->count__CB= 0;
3175 copy__AFD(result__RDS,Self__PVQ);
3176 __tmp__W1=result__RDS;
3177 } else {
3178 str__QVR=((__STRING *)file__FZ);
3179 needed_capacity__2DS=((__STRING *)str__QVR)->count__CB;
3180 result__3DS=NULL;
3181 ptr__4DS=((__POINTER )(NULL));
3182 typ_id__5DS= 0;
3183 sz__AES=((__UINTEGER_32 )sizeof(__STRING));
3184 if ((sz__AES == 0)) {
3185 result__3DS=STRING__;
3186 } else {
3187 typ_id__5DS=-1;
3188 clone_allocation_size__VT=(__UINTEGER_32)(clone_allocation_size__VT + sz__AES);
3189 if ((typ_id__5DS == (__INTEGER)(- 1))) {
3190 a__CES=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
3191 new_size__DES=(__UINTEGER_32)((__UINTEGER_32)(sz__AES + a__CES) & (__UINTEGER_32)(~ a__CES));
3192 ptr_table__LPS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__DES / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
3193 next__KPS=((__POINTER )(NULL));
3194 result__MPS=((__POINTER *)ptr_table__LPS)[ 0];
3195 if ((result__MPS == (void *)NULL)) {
3196 result__MPS=new_lab__IQC(new_size__DES);
3197 next__KPS=(void *)((unsigned long)result__MPS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DES)));
3198 ((__POINTER *)next__KPS)[ 0]=NULL;
3199 ((__POINTER *)ptr_table__LPS)[ 0]=next__KPS;
3200 } else {
3201 next__KPS=((__POINTER *)result__MPS)[ 0];
3202 if ((next__KPS == (void *)NULL)) {
3203 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MPS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__DES << 1)) <= 4096)) {
3204 next__KPS=(void *)((unsigned long)result__MPS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DES)));
3205 } else {
3206 next__KPS=new_lab__IQC(new_size__DES);
3207 };
3208 ((__POINTER *)next__KPS)[ 0]=NULL;
3209 ((__POINTER *)ptr_table__LPS)[ 0]=next__KPS;
3210 } else {
3211 ((__POINTER *)result__MPS)[ 0]=(void *)((unsigned long)((__POINTER *)next__KPS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
3212 result__MPS=next__KPS;
3213 };
3214 };
3215 ptr__4DS=result__MPS;
3216 } else {
3217 t__EES=((__UINTEGER_32 )typ_id__5DS);
3218 a__FES=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
3219 new_size__VPS=(__UINTEGER_32)((__UINTEGER_32)(sz__AES + a__FES) & (__UINTEGER_32)(~ a__FES));
3220 ptr_table__SPS=((__POINTER )(&(table_type[(t__EES)])));
3221 lab_type__UPS=(__UINTEGER_32)(t__EES | 1);
3222 next__RPS=((__POINTER )(NULL));
3223 result__TPS=((__POINTER *)ptr_table__SPS)[ 0];
3224 if ((result__TPS == (void *)NULL)) {
3225 result__TPS=new_lab__IQC(lab_type__UPS);
3226 next__RPS=(void *)((unsigned long)result__TPS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VPS)));
3227 ((__POINTER *)next__RPS)[ 0]=NULL;
3228 ((__POINTER *)ptr_table__SPS)[ 0]=next__RPS;
3229 } else {
3230 next__RPS=((__POINTER *)result__TPS)[ 0];
3231 if ((next__RPS == (void *)NULL)) {
3232 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TPS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__VPS << 1)) <= 4096)) {
3233 next__RPS=(void *)((unsigned long)result__TPS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VPS)));
3234 } else {
3235 next__RPS=new_lab__IQC(lab_type__UPS);
3236 };
3237 ((__POINTER *)next__RPS)[ 0]=NULL;
3238 ((__POINTER *)ptr_table__SPS)[ 0]=next__RPS;
3239 } else {
3240 ((__POINTER *)result__TPS)[ 0]=(void *)((unsigned long)((__POINTER *)next__RPS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
3241 result__TPS=next__RPS;
3242 };
3243 };
3244 ptr__4DS=result__TPS;
3245 };
3246 result__3DS=((__STRING *)ptr__4DS);
3247 *(result__3DS) = *(STRING__);
3248 };
3249 Self__1DS=((__STRING *)result__3DS);
3250 if ((needed_capacity__2DS > 0)) {
3251 if ((Self__1DS->capacity__3BD < needed_capacity__2DS)) {
3252 Self__1DS->storage__0CD=create__AIH(needed_capacity__2DS);
3253 Self__1DS->capacity__3BD=needed_capacity__2DS;
3254 };
3255 };
3256 Self__1DS->count__CB= 0;
3257 copy__AFD(result__3DS,str__QVR);
3258 __tmp__W1=result__3DS;
3259 };
3260 Self__GES=((__STRING *)__tmp__W1);
3261 if ((Self__GES->capacity__3BD > Self__GES->count__CB)) {
3262 Self__GES->count__CB=(__INTEGER)(Self__GES->count__CB + 1);
3263 if ((((__CHARACTER *)Self__GES->storage__0CD)[(__INTEGER)(Self__GES->count__CB - 1)] != '\0')) {
3264 ((__CHARACTER *)Self__GES->storage__0CD)[(__INTEGER)(Self__GES->count__CB - 1)]='\0';
3265 };
3266 } else {
3267 new_capacity__YPS= 0;
3268 if ((Self__GES->capacity__3BD <= Self__GES->count__CB)) {
3269 if ((Self__GES->capacity__3BD == 0)) {
3270 Self__GES->capacity__3BD= 32;
3271 Self__GES->storage__0CD=create__AIH( 32);
3272 } else {
3273 new_capacity__YPS=(__INTEGER)(Self__GES->capacity__3BD << 1);
3274 Self__GES->storage__0CD=realloc__with__3IH(Self__GES->storage__0CD,Self__GES->capacity__3BD,new_capacity__YPS);
3275 Self__GES->capacity__3BD=new_capacity__YPS;
3276 };
3277 };
3278 ((__CHARACTER *)Self__GES->storage__0CD)[Self__GES->count__CB]='\0';
3279 Self__GES->count__CB=(__INTEGER)(Self__GES->count__CB + 1);
3280 };
3281 Self__GES->count__CB=(__INTEGER)(Self__GES->count__CB - 1);
3282 stream__0RB=((__POINTER )(fopen((char*)(Self__GES->storage__0CD),"w+b")));
3283 result__2RB=(stream__0RB != (void *)NULL);
3284 if (result__2RB) {
3285 fclose((FILE*)((stream__0RB)));
3286 };
3287 if ((! result__2RB)) {
3288 print__PB((&__string_114));
3289 print__PB((&__string_115));
3290 exit(( 1));
3291 };
3292 };
3293 if (((! conf__IZ) || (question__E3((&__string_116)) == 'y'))) {
3294 if (conf__IZ) {
3295 fputc((int)('\n'),stdout);
3296 };
3297 copy__AFD(string_tmp__2,file__FZ);
3298 Self__KES=((__STRING *)string_tmp__2);
3299 if ((Self__KES->capacity__3BD > Self__KES->count__CB)) {
3300 Self__KES->count__CB=(__INTEGER)(Self__KES->count__CB + 1);
3301 if ((((__CHARACTER *)Self__KES->storage__0CD)[(__INTEGER)(Self__KES->count__CB - 1)] != '\0')) {
3302 ((__CHARACTER *)Self__KES->storage__0CD)[(__INTEGER)(Self__KES->count__CB - 1)]='\0';
3303 };
3304 } else {
3305 new_capacity__1PS= 0;
3306 if ((Self__KES->capacity__3BD <= Self__KES->count__CB)) {
3307 if ((Self__KES->capacity__3BD == 0)) {
3308 Self__KES->capacity__3BD= 32;
3309 Self__KES->storage__0CD=create__AIH( 32);
3310 } else {
3311 new_capacity__1PS=(__INTEGER)(Self__KES->capacity__3BD << 1);
3312 Self__KES->storage__0CD=realloc__with__3IH(Self__KES->storage__0CD,Self__KES->capacity__3BD,new_capacity__1PS);
3313 Self__KES->capacity__3BD=new_capacity__1PS;
3314 };
3315 };
3316 ((__CHARACTER *)Self__KES->storage__0CD)[Self__KES->count__CB]='\0';
3317 Self__KES->count__CB=(__INTEGER)(Self__KES->count__CB + 1);
3318 };
3319 Self__KES->count__CB=(__INTEGER)(Self__KES->count__CB - 1);
3320 std_file__MZ=((__POINTER )(fopen((char*)(Self__KES->storage__0CD),"wb")));
3321 if ((std_file__MZ == (void *)NULL)) {
3322 print__PB((&__string_114));
3323 print__PB((&__string_117));
3324 exit(( 1));
3325 };
3326 Self__OES=((__STRING *)input__LZ);
3327 if ((Self__OES->capacity__3BD > Self__OES->count__CB)) {
3328 Self__OES->count__CB=(__INTEGER)(Self__OES->count__CB + 1);
3329 if ((((__CHARACTER *)Self__OES->storage__0CD)[(__INTEGER)(Self__OES->count__CB - 1)] != '\0')) {
3330 ((__CHARACTER *)Self__OES->storage__0CD)[(__INTEGER)(Self__OES->count__CB - 1)]='\0';
3331 };
3332 } else {
3333 new_capacity__4PS= 0;
3334 if ((Self__OES->capacity__3BD <= Self__OES->count__CB)) {
3335 if ((Self__OES->capacity__3BD == 0)) {
3336 Self__OES->capacity__3BD= 32;
3337 Self__OES->storage__0CD=create__AIH( 32);
3338 } else {
3339 new_capacity__4PS=(__INTEGER)(Self__OES->capacity__3BD << 1);
3340 Self__OES->storage__0CD=realloc__with__3IH(Self__OES->storage__0CD,Self__OES->capacity__3BD,new_capacity__4PS);
3341 Self__OES->capacity__3BD=new_capacity__4PS;
3342 };
3343 };
3344 ((__CHARACTER *)Self__OES->storage__0CD)[Self__OES->count__CB]='\0';
3345 Self__OES->count__CB=(__INTEGER)(Self__OES->count__CB + 1);
3346 };
3347 Self__OES->count__CB=(__INTEGER)(Self__OES->count__CB - 1);
3348 fwrite((void *)((Self__OES->storage__0CD)),(size_t)(1), (size_t)((((__STRING *)input__LZ)->count__CB)),(FILE*)((std_file__MZ)));
3349 fclose((FILE*)((std_file__MZ)));
3350 };
3351 }
3352
3353 static __INTEGER execute_command__X4(void *system_command_line__Z4)
3354 // ({NULLxSTRING_CONSTANTxSTRING}) With resultNo recursive, No inlinable.
3355 {
3356 __STRING_CONSTANT *Self__IV;
3357 __INTEGER needed_capacity__UES,typ_id__XES,new_capacity__PQS;
3358 __INTEGER new_capacity__FFF;
3359 __STRING *result__VES,*Self__TES,*Self__4ES,*Self__CFS;
3360 __POINTER ptr__WES,ptr_table__CQS,next__BQS,result__DQS;
3361 __POINTER ptr_table__JQS,next__IQS,result__KQS;
3362 __UINTEGER_32 sz__YES,a__0ES,new_size__1ES,t__2ES,a__3ES;
3363 __UINTEGER_32 new_size__MQS,lab_type__LQS;
3364 __CHARACTER *__tmp__B5;
3365 if (((struct ___OBJ *)system_command_line__Z4)->__id==__STRING_CONSTANT__) {
3366 Self__IV=((__STRING_CONSTANT *)system_command_line__Z4);
3367 needed_capacity__UES=Self__IV->count__AD;
3368 result__VES=NULL;
3369 ptr__WES=((__POINTER )(NULL));
3370 typ_id__XES= 0;
3371 sz__YES=((__UINTEGER_32 )sizeof(__STRING));
3372 if ((sz__YES == 0)) {
3373 result__VES=STRING__;
3374 } else {
3375 typ_id__XES=-1;
3376 clone_allocation_size__VT=(__UINTEGER_32)(clone_allocation_size__VT + sz__YES);
3377 if ((typ_id__XES == (__INTEGER)(- 1))) {
3378 a__0ES=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
3379 new_size__1ES=(__UINTEGER_32)((__UINTEGER_32)(sz__YES + a__0ES) & (__UINTEGER_32)(~ a__0ES));
3380 ptr_table__CQS=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1ES / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
3381 next__BQS=((__POINTER )(NULL));
3382 result__DQS=((__POINTER *)ptr_table__CQS)[ 0];
3383 if ((result__DQS == (void *)NULL)) {
3384 result__DQS=new_lab__IQC(new_size__1ES);
3385 next__BQS=(void *)((unsigned long)result__DQS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1ES)));
3386 ((__POINTER *)next__BQS)[ 0]=NULL;
3387 ((__POINTER *)ptr_table__CQS)[ 0]=next__BQS;
3388 } else {
3389 next__BQS=((__POINTER *)result__DQS)[ 0];
3390 if ((next__BQS == (void *)NULL)) {
3391 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DQS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__1ES << 1)) <= 4096)) {
3392 next__BQS=(void *)((unsigned long)result__DQS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1ES)));
3393 } else {
3394 next__BQS=new_lab__IQC(new_size__1ES);
3395 };
3396 ((__POINTER *)next__BQS)[ 0]=NULL;
3397 ((__POINTER *)ptr_table__CQS)[ 0]=next__BQS;
3398 } else {
3399 ((__POINTER *)result__DQS)[ 0]=(void *)((unsigned long)((__POINTER *)next__BQS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
3400 result__DQS=next__BQS;
3401 };
3402 };
3403 ptr__WES=result__DQS;
3404 } else {
3405 t__2ES=((__UINTEGER_32 )typ_id__XES);
3406 a__3ES=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
3407 new_size__MQS=(__UINTEGER_32)((__UINTEGER_32)(sz__YES + a__3ES) & (__UINTEGER_32)(~ a__3ES));
3408 ptr_table__JQS=((__POINTER )(&(table_type[(t__2ES)])));
3409 lab_type__LQS=(__UINTEGER_32)(t__2ES | 1);
3410 next__IQS=((__POINTER )(NULL));
3411 result__KQS=((__POINTER *)ptr_table__JQS)[ 0];
3412 if ((result__KQS == (void *)NULL)) {
3413 result__KQS=new_lab__IQC(lab_type__LQS);
3414 next__IQS=(void *)((unsigned long)result__KQS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MQS)));
3415 ((__POINTER *)next__IQS)[ 0]=NULL;
3416 ((__POINTER *)ptr_table__JQS)[ 0]=next__IQS;
3417 } else {
3418 next__IQS=((__POINTER *)result__KQS)[ 0];
3419 if ((next__IQS == (void *)NULL)) {
3420 if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KQS - (unsigned long)begin_memory__EAC)))) & 4095) + (__UINTEGER_32)(new_size__MQS << 1)) <= 4096)) {
3421 next__IQS=(void *)((unsigned long)result__KQS - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MQS)));
3422 } else {
3423 next__IQS=new_lab__IQC(lab_type__LQS);
3424 };
3425 ((__POINTER *)next__IQS)[ 0]=NULL;
3426 ((__POINTER *)ptr_table__JQS)[ 0]=next__IQS;
3427 } else {
3428 ((__POINTER *)result__KQS)[ 0]=(void *)((unsigned long)((__POINTER *)next__IQS)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
3429 result__KQS=next__IQS;
3430 };
3431 };
3432 ptr__WES=result__KQS;
3433 };
3434 result__VES=((__STRING *)ptr__WES);
3435 *(result__VES) = *(STRING__);
3436 };
3437 Self__TES=((__STRING *)result__VES);
3438 if ((needed_capacity__UES > 0)) {
3439 if ((Self__TES->capacity__3BD < needed_capacity__UES)) {
3440 Self__TES->storage__0CD=create__AIH(needed_capacity__UES);
3441 Self__TES->capacity__3BD=needed_capacity__UES;
3442 };
3443 };
3444 Self__TES->count__CB= 0;
3445 copy__AFD(result__VES,Self__IV);
3446 Self__4ES=((__STRING *)result__VES);
3447 if ((Self__4ES->capacity__3BD > Self__4ES->count__CB)) {
3448 Self__4ES->count__CB=(__INTEGER)(Self__4ES->count__CB + 1);
3449 if ((((__CHARACTER *)Self__4ES->storage__0CD)[(__INTEGER)(Self__4ES->count__CB - 1)] != '\0')) {
3450 ((__CHARACTER *)Self__4ES->storage__0CD)[(__INTEGER)(Self__4ES->count__CB - 1)]='\0';
3451 };
3452 } else {
3453 new_capacity__PQS= 0;
3454 if ((Self__4ES->capacity__3BD <= Self__4ES->count__CB)) {
3455 if ((Self__4ES->capacity__3BD == 0)) {
3456 Self__4ES->capacity__3BD= 32;
3457 Self__4ES->storage__0CD=create__AIH( 32);
3458 } else {
3459 new_capacity__PQS=(__INTEGER)(Self__4ES->capacity__3BD << 1);
3460 Self__4ES->storage__0CD=realloc__with__3IH(Self__4ES->storage__0CD,Self__4ES->capacity__3BD,new_capacity__PQS);
3461 Self__4ES->capacity__3BD=new_capacity__PQS;
3462 };
3463 };
3464 ((__CHARACTER *)Self__4ES->storage__0CD)[Self__4ES->count__CB]='\0';
3465 Self__4ES->count__CB=(__INTEGER)(Self__4ES->count__CB + 1);
3466 };
3467 Self__4ES->count__CB=(__INTEGER)(Self__4ES->count__CB - 1);
3468 __tmp__B5=Self__4ES->storage__0CD;
3469 } else {
3470 Self__CFS=((__STRING *)system_command_line__Z4);
3471 if ((Self__CFS->capacity__3BD > Self__CFS->count__CB)) {
3472 Self__CFS->count__CB=(__INTEGER)(Self__CFS->count__CB + 1);
3473 if ((((__CHARACTER *)Self__CFS->storage__0CD)[(__INTEGER)(Self__CFS->count__CB - 1)] != '\0')) {
3474 ((__CHARACTER *)Self__CFS->storage__0CD)[(__INTEGER)(Self__CFS->count__CB - 1)]='\0';
3475 };
3476 } else {
3477 new_capacity__FFF= 0;
3478 if ((Self__CFS->capacity__3BD <= Self__CFS->count__CB)) {
3479 if ((Self__CFS->capacity__3BD == 0)) {
3480 Self__CFS->capacity__3BD= 32;
3481 Self__CFS->storage__0CD=create__AIH( 32);
3482 } else {
3483 new_capacity__FFF=(__INTEGER)(Self__CFS->capacity__3BD << 1);
3484 Self__CFS->storage__0CD=realloc__with__3IH(Self__CFS->storage__0CD,Self__CFS->capacity__3BD,new_capacity__FFF);
3485 Self__CFS->capacity__3BD=new_capacity__FFF;
3486 };
3487 };
3488 ((__CHARACTER *)Self__CFS->storage__0CD)[Self__CFS->count__CB]='\0';
3489 Self__CFS->count__CB=(__INTEGER)(Self__CFS->count__CB + 1);
3490 };
3491 Self__CFS->count__CB=(__INTEGER)(Self__CFS->count__CB - 1);
3492 __tmp__B5=Self__CFS->storage__0CD;
3493 };
3494 return(((__INTEGER )(system(((char*)((__tmp__B5)))))));
3495 }
3496
3497 static void move__to__by__2LF(__CHARACTER *Self__3LF,__INTEGER lower__4LF,__INTEGER upper__5LF,__INTEGER offset__AMF)
3498 // ({NATIVE_ARRAYoExpanded_CHARACTERo},{INTEGER},{INTEGER},{INTEGER}) VoidNo recursive, No inlinable.
3499 {
3500 __INTEGER Self__PTK,Self__4TK;
3501 if ((offset__AMF != 0)) {
3502 if ((offset__AMF < 0)) {
3503 Self__PTK=lower__4LF;
3504 while ((Self__PTK <= upper__5LF)) {
3505 Self__3LF[(__INTEGER)(Self__PTK + offset__AMF)]=Self__3LF[Self__PTK];
3506 Self__PTK=(__INTEGER)(Self__PTK + 1);
3507 };
3508 } else {
3509 Self__4TK=upper__5LF;
3510 while ((Self__4TK >= lower__4LF)) {
3511 Self__3LF[(__INTEGER)(Self__4TK + offset__AMF)]=Self__3LF[Self__4TK];
3512 Self__4TK=(__INTEGER)(Self__4TK - 1);
3513 };
3514 };
3515 };
3516 }
3517
3518 static void replace_all__with__BMD(__STRING *Self__CMD)
3519 // ({STRING}) VoidNo recursive, No inlinable.
3520 {
3521 __INTEGER __tmp__KMD,Self__DCK;
3522 __CHARACTER *__tmp__HMD,*Self__HSJ;
3523 __tmp__HMD=Self__CMD->storage__0CD;
3524 __tmp__KMD=(__INTEGER)(Self__CMD->count__CB - 1);
3525 Self__HSJ=((__CHARACTER *)__tmp__HMD);
3526 Self__DCK=__tmp__KMD;
3527 while ((Self__DCK >= 0)) {
3528 if (('\\' == Self__HSJ[Self__DCK])) {
3529 Self__HSJ[Self__DCK]='/';
3530 };
3531 Self__DCK=(__INTEGER)(Self__DCK - 1);
3532 };
3533 }
3534
3535 static __CHARACTER question__E3(void *str__G3)
3536 // ({STRING_CONSTANT}) With resultNo recursive, No inlinable.
3537 {
3538 __CHARACTER result__I3;
3539 result__I3='\0';
3540 print__PB(str__G3);
3541 print__PB((&__string_118));
3542 while (((result__I3 != 'y') && (result__I3 != 'n'))) {
3543 result__I3=((__CHARACTER )(fgetc(stdin)));
3544 };
3545 return(result__I3);
3546 }
3547
3548 static __MEMORY* new_page__YBF()
3549 // () With resultNo recursive, No inlinable.
3550 {
3551 __POINTER mem__5TG;
3552 __UINTEGER_32 cap__2TG,old_size__1BF;
3553 __MEMORY *block__BCF;
3554 if ((capacity_max__CCF == 0)) {
3555 mem__5TG=((__POINTER )(NULL));
3556 cap__2TG= 33554432;
3557 do {
3558 cap__2TG=(__UINTEGER_32)(cap__2TG << 1);
3559 mem__5TG=((__POINTER )(malloc((cap__2TG))));
3560 if ((mem__5TG != (void *)NULL)) {
3561 free((mem__5TG));
3562 };
3563 } while ((! ((mem__5TG == (void *)NULL) || (cap__2TG == 2147483648LU))));
3564 if ((mem__5TG == (void *)NULL)) {
3565 cap__2TG=(__UINTEGER_32)(cap__2TG >> 1);
3566 };
3567 capacity_max__CCF=cap__2TG;
3568 begin_memory__EAC=((__POINTER )(malloc((cap__2TG))));
3569 };
3570 old_size__1BF=(__UINTEGER_32)(nb_page__0QC << 26);
3571 nb_page__0QC=(__UINTEGER_32)(nb_page__0QC + 1);
3572 if (((__UINTEGER_32)(old_size__1BF + 67108864) > capacity_max__CCF)) {
3573 print__PB((&__string_119));
3574 exit(( 1));
3575 };
3576 block__BCF=((__MEMORY *)(void *)((unsigned long)begin_memory__EAC - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )old_size__1BF))));
3577 block__BCF->previous_linear__5T= 4294967295LU;
3578 block__BCF->size_and_id__AU= 67108858;
3579 block__BCF->next_free__BU=first_free__NMI;
3580 block__BCF->previous_free__CU=NULL;
3581 if (((void *)first_free__NMI != (void *)NULL)) {
3582 ((__MEMORY *)first_free__NMI)->previous_free__CU=block__BCF;
3583 };
3584 first_free__NMI=block__BCF;
3585 last_block[((__UINTEGER_32)(nb_page__0QC - 1))] = (block__BCF);
3586 return(block__BCF);
3587 }
3588
3589 static __MEMORY* search__KLI(__UINTEGER_32 new_size__MLI)
3590 // ({UINTEGER_32}) With resultNo recursive, No inlinable.
3591 {
3592 __MEMORY *result__OLI;
3593 result__OLI=first_free__NMI;
3594 while ((((void *)result__OLI != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__OLI)->size_and_id__AU & 4294967292LU) < new_size__MLI))) {
3595 result__OLI=result__OLI->next_free__BU;
3596 };
3597 if (((void *)result__OLI == (void *)NULL)) {
3598 result__OLI=new_page__YBF();
3599 };
3600 to_busy__index__G0J(result__OLI,new_size__MLI,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__OLI)) - (unsigned long)begin_memory__EAC)))) >> 26));
3601 return(result__OLI);
3602 }
3603
3604 static void to_busy__index__G0J(__MEMORY *Self__H0J,__UINTEGER_32 sz__I0J,__UINTEGER_32 idx__J0J)
3605 // ({MEMORY},{UINTEGER_32},{UINTEGER_32}) VoidNo recursive, No inlinable.
3606 {
3607 __MEMORY *new__Q0J,*prev__LJK,*next__MJK,*Self__WMJ,*Self__JLR;
3608 __UINTEGER_32 siz__K0J,new_size__N0J;
3609 new__Q0J=NULL;
3610 prev__LJK=Self__H0J->previous_free__CU;
3611 next__MJK=Self__H0J->next_free__BU;
3612 if (((void *)prev__LJK == (void *)NULL)) {
3613 first_free__NMI=next__MJK;
3614 } else {
3615 ((__MEMORY *)prev__LJK)->next_free__BU=next__MJK;
3616 };
3617 if (((void *)next__MJK != (void *)NULL)) {
3618 ((__MEMORY *)next__MJK)->previous_free__CU=prev__LJK;
3619 };
3620 siz__K0J=Self__H0J->size_and_id__AU;
3621 new_size__N0J=(__UINTEGER_32)(siz__K0J - sz__I0J);
3622 if ((new_size__N0J > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
3623 siz__K0J=sz__I0J;
3624 new__Q0J=((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__H0J) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )sz__I0J))));
3625 ((__MEMORY *)new__Q0J)->previous_linear__5T=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__H0J) - (unsigned long)begin_memory__EAC))));
3626 ((__MEMORY *)new__Q0J)->size_and_id__AU=(__UINTEGER_32)(new_size__N0J - 8);
3627 Self__WMJ=((__MEMORY *)new__Q0J);
3628 Self__WMJ->next_free__BU=first_free__NMI;
3629 Self__WMJ->previous_free__CU=NULL;
3630 if (((void *)first_free__NMI != (void *)NULL)) {
3631 ((__MEMORY *)first_free__NMI)->previous_free__CU=Self__WMJ;
3632 };
3633 first_free__NMI=Self__WMJ;
3634 if (((__UINTEGER_32)(((__MEMORY *)new__Q0J)->size_and_id__AU & 2) != 0)) {
3635 last_block[(idx__J0J)] = (new__Q0J);
3636 } else {
3637 Self__JLR=((__MEMORY *)new__Q0J);
3638 ((__MEMORY *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__JLR) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__JLR->size_and_id__AU & 4294967292LU)))))->previous_linear__5T=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__Q0J)) - (unsigned long)begin_memory__EAC))));
3639 };
3640 };
3641 Self__H0J->size_and_id__AU=(__UINTEGER_32)(siz__K0J | 1);
3642 }
3643
3644 static void print_positif__OAL(__INTEGER Self__PAL)
3645 // ({INTEGER}) VoidRecursive, No inlinable.
3646 {
3647 __INTEGER val__YAL;
3648 __CHARACTER Result__KZL;
3649 Result__KZL=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER)(Self__PAL % 10)) + ((__INTEGER_8 )'0')))));
3650 val__YAL=(__INTEGER)(Self__PAL / 10);
3651 if ((val__YAL != 0)) {
3652 print_positif__OAL(val__YAL);
3653 };
3654 fputc((int)(Result__KZL),stdout);
3655 }
3656
3657 static __INTEGER fast_occurrences__until__ZDC(__CHARACTER *Self__0DC,__INTEGER upper__2DC)
3658 // ({NATIVE_ARRAYoExpanded_CHARACTERo},{INTEGER}) With resultNo recursive, No inlinable.
3659 {
3660 __INTEGER count__GEC,Self__OMC;
3661 count__GEC= 0;
3662 Self__OMC=upper__2DC;
3663 while ((Self__OMC >= 0)) {
3664 if (('\n' == Self__0DC[Self__OMC])) {
3665 count__GEC=(__INTEGER)(count__GEC + 1);
3666 };
3667 Self__OMC=(__INTEGER)(Self__OMC - 1);
3668 };
3669 return(count__GEC);
3670 }
3671
3672 //==========================//
3673 // DEBUG MANAGER //
3674 //==========================//
3675
3676 void print_string(char *str)
3677 {
3678 while (*str!=0) {
3679 print_char(*str);
3680 str++;
3681 };
3682 }
3683
Debian packaging of the lisaac compilator