[SCM] Lisaac compiler branch, stable, updated. lisaac-0.12-471-g1ce2677
Picca Frederic-Emmanuel (none)
picca at mordor.
Sat Sep 5 20:16:21 UTC 2009
The following commit has been merged in the stable branch:
commit 1ce2677846dd266fb5f79cfb82cc874c7de49673
Author: Picca Frederic-Emmanuel <picca at mordor.(none)>
Date: Sat Sep 5 19:38:52 2009 +0200
* remove the bin/shorter.c file obsoleted by the bin/shorter Makefile targer
diff --git a/bin/shorter.c b/bin/shorter.c
deleted file mode 100644
index 8fb1814..0000000
--- a/bin/shorter.c
+++ /dev/null
@@ -1,40100 +0,0 @@
-// C code generated by Lisaac compiler (www.isaacOS.com) //
-int arg_count;
-char **arg_vector;
-
-//==========================//
-// EXTERNAL //
-//==========================//
-
-// SHORTER
-#include "path.h"
-// FILE_SYSTEM
-#include <unistd.h>
-// SYSTEM
-#include <time.h>
-// MEMORY
-
-#define MINIMUM_SIZE 256
-void *table_size[MINIMUM_SIZE/sizeof(void *)];
-void *last_block[64];
-
-// DIRECTORY_UNIX
-
-#include <dirent.h>
-#include <sys/stat.h>
-#include <sys/types.h>
-
-// FLOAT_REAL
-#include <math.h>
-// FS_MIN
-#include <unistd.h>
-// SYSTEM_IO
-
-#include <stdio.h>
-#include <stdlib.h>
-
-// Hardware 'print_char'
-void print_char(char car)
-{
- fputc(car,stdout);
-}
-
-// Hardware 'exit'
-int die_with_code(int code)
-{
- exit(code);
-}
-
-
-
-//==========================//
-// TYPE //
-//==========================//
-
-// Generic Object
-struct ___OBJ {
- unsigned long __id;
-};
-
-// NULL
-#ifndef NULL
-#define NULL ((void *)0)
-#endif
-
-// INTEGER
-typedef int __INTEGER;
-
-// CHARACTER
-typedef char __CHARACTER;
-
-// STRING
-#define __STRING__ 4
-typedef struct STRING_struct __STRING;
-struct STRING_struct {
- unsigned long __id;
- __INTEGER count__SGC;
- __INTEGER capacity__UCS;
- __CHARACTER *storage__3CS;
-};
-__STRING STRING_={__STRING__};
-#define STRING__ (&STRING_)
-
-// POINTER
-typedef void * __POINTER;
-
-// UINTEGER_32
-typedef unsigned long __UINTEGER_32;
-
-// ARRAYED_COLLECTION[STRING]
-#define __ARRAYED_COLLECTIONoSTRINGo__ 0
-typedef struct ARRAYED_COLLECTIONoSTRINGo_struct __ARRAYED_COLLECTIONoSTRINGo;
-struct ARRAYED_COLLECTIONoSTRINGo_struct {
- __INTEGER upper__CLC;
- __INTEGER capacity__JGT;
- void **storage__UGT;
-};
-__ARRAYED_COLLECTIONoSTRINGo ARRAYED_COLLECTIONoSTRINGo_;
-#define ARRAYED_COLLECTIONoSTRINGo__ (&ARRAYED_COLLECTIONoSTRINGo_)
-
-// FAST_ARRAY[STRING]
-#define __FAST_ARRAYoSTRINGo__ 1
-typedef struct FAST_ARRAYoSTRINGo_struct __FAST_ARRAYoSTRINGo;
-struct FAST_ARRAYoSTRINGo_struct {
- __ARRAYED_COLLECTIONoSTRINGo parent_arrayed_collection__5KC;
-};
-__FAST_ARRAYoSTRINGo FAST_ARRAYoSTRINGo_;
-#define FAST_ARRAYoSTRINGo__ (&FAST_ARRAYoSTRINGo_)
-
-// ITM_TYPE_MONO
-#define __ITM_TYPE_MONO__ 2
-typedef struct ITM_TYPE_MONO_struct __ITM_TYPE_MONO;
-struct ITM_TYPE_MONO_struct {
- void *Nothing;
-};
-__ITM_TYPE_MONO ITM_TYPE_MONO_;
-#define ITM_TYPE_MONO__ (&ITM_TYPE_MONO_)
-
-// ARRAYED_COLLECTION[ITM_TYPE_MONO]
-#define __ARRAYED_COLLECTIONoITM_TYPE_MONOo__ 3
-typedef struct ARRAYED_COLLECTIONoITM_TYPE_MONOo_struct __ARRAYED_COLLECTIONoITM_TYPE_MONOo;
-struct ARRAYED_COLLECTIONoITM_TYPE_MONOo_struct {
- __INTEGER upper__4HV;
- __INTEGER capacity__TNV;
- void **storage__FMV;
-};
-__ARRAYED_COLLECTIONoITM_TYPE_MONOo ARRAYED_COLLECTIONoITM_TYPE_MONOo_;
-#define ARRAYED_COLLECTIONoITM_TYPE_MONOo__ (&ARRAYED_COLLECTIONoITM_TYPE_MONOo_)
-
-// FAST_ARRAY[ITM_TYPE_MONO]
-#define __FAST_ARRAYoITM_TYPE_MONOo__ 4
-typedef struct FAST_ARRAYoITM_TYPE_MONOo_struct __FAST_ARRAYoITM_TYPE_MONOo;
-struct FAST_ARRAYoITM_TYPE_MONOo_struct {
- __ARRAYED_COLLECTIONoITM_TYPE_MONOo parent_arrayed_collection__SYC;
-};
-__FAST_ARRAYoITM_TYPE_MONOo FAST_ARRAYoITM_TYPE_MONOo_;
-#define FAST_ARRAYoITM_TYPE_MONOo__ (&FAST_ARRAYoITM_TYPE_MONOo_)
-
-// HASHED_DICTIONARY_NODE[ITM_TYPE_SIMPLE,STRING_CONSTANT]
-#define __HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo__ 5
-typedef struct HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo_struct __HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo;
-struct HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo_struct {
- void *key__R4T;
- void *item__E5T;
- void *next__24T;
-};
-__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo_;
-#define HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo__ (&HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo_)
-
-// HASHED_DICTIONARY[ITM_TYPE_SIMPLE,STRING_CONSTANT]
-#define __HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo__ 6
-typedef struct HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo_struct __HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo;
-struct HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo_struct {
- __INTEGER capacity__A4T;
- __INTEGER count__CGZ;
- void **buckets__F4T;
-};
-__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo_;
-#define HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo__ (&HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo_)
-
-// STRING_CONSTANT
-#define __STRING_CONSTANT__ 5
-typedef struct STRING_CONSTANT_struct __STRING_CONSTANT;
-struct STRING_CONSTANT_struct {
- unsigned long __id;
- __INTEGER count__DD;
- __CHARACTER *storage__RRO;
-};
-__STRING_CONSTANT STRING_CONSTANT_={__STRING_CONSTANT__};
-#define STRING_CONSTANT__ (&STRING_CONSTANT_)
-
-// ARRAYED_COLLECTION[STRING_CONSTANT]
-#define __ARRAYED_COLLECTIONoSTRING_CONSTANTo__ 7
-typedef struct ARRAYED_COLLECTIONoSTRING_CONSTANTo_struct __ARRAYED_COLLECTIONoSTRING_CONSTANTo;
-struct ARRAYED_COLLECTIONoSTRING_CONSTANTo_struct {
- __INTEGER upper__2CPD;
- __INTEGER capacity__XEPD;
- void **storage__SFPD;
-};
-__ARRAYED_COLLECTIONoSTRING_CONSTANTo ARRAYED_COLLECTIONoSTRING_CONSTANTo_;
-#define ARRAYED_COLLECTIONoSTRING_CONSTANTo__ (&ARRAYED_COLLECTIONoSTRING_CONSTANTo_)
-
-// FAST_ARRAY[STRING_CONSTANT]
-#define __FAST_ARRAYoSTRING_CONSTANTo__ 8
-typedef struct FAST_ARRAYoSTRING_CONSTANTo_struct __FAST_ARRAYoSTRING_CONSTANTo;
-struct FAST_ARRAYoSTRING_CONSTANTo_struct {
- __ARRAYED_COLLECTIONoSTRING_CONSTANTo parent_arrayed_collection__MBJ;
-};
-__FAST_ARRAYoSTRING_CONSTANTo FAST_ARRAYoSTRING_CONSTANTo_;
-#define FAST_ARRAYoSTRING_CONSTANTo__ (&FAST_ARRAYoSTRING_CONSTANTo_)
-
-// HASHED_SET_NODE[ABSTRACT_STRING]
-#define __HASHED_SET_NODEoABSTRACT_STRINGo__ 9
-typedef struct HASHED_SET_NODEoABSTRACT_STRINGo_struct __HASHED_SET_NODEoABSTRACT_STRINGo;
-struct HASHED_SET_NODEoABSTRACT_STRINGo_struct {
- void *item__G0R;
- void *next__S0R;
-};
-__HASHED_SET_NODEoABSTRACT_STRINGo HASHED_SET_NODEoABSTRACT_STRINGo_;
-#define HASHED_SET_NODEoABSTRACT_STRINGo__ (&HASHED_SET_NODEoABSTRACT_STRINGo_)
-
-// HASHED_SET[ABSTRACT_STRING]
-#define __HASHED_SEToABSTRACT_STRINGo__ 10
-typedef struct HASHED_SEToABSTRACT_STRINGo_struct __HASHED_SEToABSTRACT_STRINGo;
-struct HASHED_SEToABSTRACT_STRINGo_struct {
- __INTEGER capacity__VZR;
- __INTEGER count__10R;
- void **buckets__0ZR;
-};
-__HASHED_SEToABSTRACT_STRINGo HASHED_SEToABSTRACT_STRINGo_;
-#define HASHED_SEToABSTRACT_STRINGo__ (&HASHED_SEToABSTRACT_STRINGo_)
-
-// POSITION
-typedef unsigned long __POSITION;
-
-// ITM_OBJECT
-#define __ITM_OBJECT__ 11
-typedef struct ITM_OBJECT_struct __ITM_OBJECT;
-struct ITM_OBJECT_struct {
- __POSITION position__SFJ;
-};
-__ITM_OBJECT ITM_OBJECT_;
-#define ITM_OBJECT__ (&ITM_OBJECT_)
-
-// NAMED
-#define __NAMED__ 12
-typedef struct NAMED_struct __NAMED;
-struct NAMED_struct {
- __ITM_OBJECT parent_itm_object__4;
- void *name__LI;
- __CHARACTER style__0FU;
-};
-__NAMED NAMED_;
-#define NAMED__ (&NAMED_)
-
-// PROTOTYPE
-#define __PROTOTYPE__ 13
-typedef struct PROTOTYPE_struct __PROTOTYPE;
-struct PROTOTYPE_struct {
- __NAMED parent_named__5;
- void *source__3BC;
- void *last_slot__J3C;
- void *type_style__S4C;
- void *shortname__3JE;
- void *default_value__LWE;
- void *type_c__GYE;
- __INTEGER index__GPG;
- void *filename__FSG;
- void *first_slot__2DZB;
- void *comment_header__Q4QC;
- void *comment_slot__YRTC;
- void *idf_generic_list__MOE;
- void *slot_list__YVS;
-};
-__PROTOTYPE PROTOTYPE_;
-#define PROTOTYPE__ (&PROTOTYPE_)
-
-// BOOLEAN
-typedef char __BOOLEAN;
-
-// HASHED_DICTIONARY_NODE[LINKED_LIST[STRING_CONSTANT],STRING_CONSTANT]
-#define __HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__ 14
-typedef struct HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo_struct __HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo;
-struct HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo_struct {
- void *key__HET;
- void *next__SET;
- void *item__KW3;
-};
-__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo_;
-#define HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__ (&HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo_)
-
-// HASHED_DICTIONARY[LINKED_LIST[STRING_CONSTANT],STRING_CONSTANT]
-#define __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__ 15
-typedef struct HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo_struct __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo;
-struct HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo_struct {
- __INTEGER capacity__WDT;
- __INTEGER count__4MY;
- void **buckets__1DT;
-};
-__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo_;
-#define HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__ (&HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo_)
-
-// HASHED_DICTIONARY_NODE[TYPE,STRING_CONSTANT]
-#define __HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo__ 16
-typedef struct HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo_struct __HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo;
-struct HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo_struct {
- void *key__V3R;
- void *next__A4R;
-};
-__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo_;
-#define HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo__ (&HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo_)
-
-// HASHED_DICTIONARY[TYPE,STRING_CONSTANT]
-#define __HASHED_DICTIONARYoTYPExSTRING_CONSTANTo__ 17
-typedef struct HASHED_DICTIONARYoTYPExSTRING_CONSTANTo_struct __HASHED_DICTIONARYoTYPExSTRING_CONSTANTo;
-struct HASHED_DICTIONARYoTYPExSTRING_CONSTANTo_struct {
- __INTEGER capacity__E3R;
- __INTEGER count__J4R;
- void **buckets__J3R;
-};
-__HASHED_DICTIONARYoTYPExSTRING_CONSTANTo HASHED_DICTIONARYoTYPExSTRING_CONSTANTo_;
-#define HASHED_DICTIONARYoTYPExSTRING_CONSTANTo__ (&HASHED_DICTIONARYoTYPExSTRING_CONSTANTo_)
-
-// UINTEGER_8
-typedef unsigned char __UINTEGER_8;
-
-// TYPE_FULL
-#define __TYPE_FULL__ 18
-typedef struct TYPE_FULL_struct __TYPE_FULL;
-struct TYPE_FULL_struct {
- __UINTEGER_8 flag__UGS;
-};
-__TYPE_FULL TYPE_FULL_;
-#define TYPE_FULL__ (&TYPE_FULL_)
-
-// TYPE_ID
-#define __TYPE_ID__ 6
-typedef struct TYPE_ID_struct __TYPE_ID;
-struct TYPE_ID_struct {
- unsigned long __id;
-};
-__TYPE_ID TYPE_ID_={__TYPE_ID__};
-#define TYPE_ID__ (&TYPE_ID_)
-
-// ARRAYED_COLLECTION[TYPE_ID]
-#define __ARRAYED_COLLECTIONoTYPE_IDo__ 19
-typedef struct ARRAYED_COLLECTIONoTYPE_IDo_struct __ARRAYED_COLLECTIONoTYPE_IDo;
-struct ARRAYED_COLLECTIONoTYPE_IDo_struct {
- __INTEGER upper__O5R;
- __INTEGER capacity__Q5R;
- void **storage__MAS;
-};
-__ARRAYED_COLLECTIONoTYPE_IDo ARRAYED_COLLECTIONoTYPE_IDo_;
-#define ARRAYED_COLLECTIONoTYPE_IDo__ (&ARRAYED_COLLECTIONoTYPE_IDo_)
-
-// FAST_ARRAY[TYPE_ID]
-#define __FAST_ARRAYoTYPE_IDo__ 20
-typedef struct FAST_ARRAYoTYPE_IDo_struct __FAST_ARRAYoTYPE_IDo;
-struct FAST_ARRAYoTYPE_IDo_struct {
- __ARRAYED_COLLECTIONoTYPE_IDo parent_arrayed_collection__ABB;
-};
-__FAST_ARRAYoTYPE_IDo FAST_ARRAYoTYPE_IDo_;
-#define FAST_ARRAYoTYPE_IDo__ (&FAST_ARRAYoTYPE_IDo_)
-
-// ENTRY
-#define __ENTRY__ 21
-typedef struct ENTRY_struct __ENTRY;
-struct ENTRY_struct {
- void *path__BD;
- void *name__OPT;
-};
-__ENTRY ENTRY_;
-#define ENTRY__ (&ENTRY_)
-
-// ENTRY_UNIX
-#define __ENTRY_UNIX__ 22
-typedef struct ENTRY_UNIX_struct __ENTRY_UNIX;
-struct ENTRY_UNIX_struct {
- __ENTRY parent_entry__QGD;
-};
-__ENTRY_UNIX ENTRY_UNIX_;
-#define ENTRY_UNIX__ (&ENTRY_UNIX_)
-
-// DIRECTORY
-#define __DIRECTORY__ 23
-typedef struct DIRECTORY_struct __DIRECTORY;
-struct DIRECTORY_struct {
- void *list__FIRD;
-};
-__DIRECTORY DIRECTORY_;
-#define DIRECTORY__ (&DIRECTORY_)
-
-// DIRECTORY_UNIX
-#define __DIRECTORY_UNIX__ 7
-typedef struct DIRECTORY_UNIX_struct __DIRECTORY_UNIX;
-struct DIRECTORY_UNIX_struct {
- unsigned long __id;
- __ENTRY_UNIX parent_entry_unix__RGD;
- __DIRECTORY parent_directory__SGD;
-};
-__DIRECTORY_UNIX DIRECTORY_UNIX_={__DIRECTORY_UNIX__};
-#define DIRECTORY_UNIX__ (&DIRECTORY_UNIX_)
-
-// INTEGER_8
-typedef signed char __INTEGER_8;
-
-// ITM_SLOT
-#define __ITM_SLOT__ 8
-typedef struct ITM_SLOT_struct __ITM_SLOT;
-struct ITM_SLOT_struct {
- unsigned long __id;
- __NAMED parent_named__15;
- void *id_section__T3C;
- void *comment__WZOB;
- void *result_type__A4FC;
- void *next__YGHC;
- void *comment_chapter__S0HC;
- __CHARACTER affect__P5FC;
- void *argument_list__QDHC;
- __INTEGER_8 stat_shorter__4OTD;
-};
-__ITM_SLOT ITM_SLOT_={__ITM_SLOT__};
-#define ITM_SLOT__ (&ITM_SLOT_)
-
-// ITM_SLOT_OPERATOR
-#define __ITM_SLOT_OPERATOR__ 9
-typedef struct ITM_SLOT_OPERATOR_struct __ITM_SLOT_OPERATOR;
-struct ITM_SLOT_OPERATOR_struct {
- unsigned long __id;
- __ITM_SLOT parent_itm_slot__0S5B;
- __INTEGER priority_and_level__UZHC;
- void *pretty_name__5ZHC;
-};
-__ITM_SLOT_OPERATOR ITM_SLOT_OPERATOR_={__ITM_SLOT_OPERATOR__};
-#define ITM_SLOT_OPERATOR__ (&ITM_SLOT_OPERATOR_)
-
-// SECTION_
-#define __SECTION___ 24
-typedef struct SECTION__struct __SECTION_;
-struct SECTION__struct {
- void *name__MYDC;
- void *type_list__1WFC;
-};
-__SECTION_ SECTION__;
-#define SECTION___ (&SECTION__)
-
-// MEMORY
-#define __MEMORY__ 25
-typedef struct MEMORY_struct __MEMORY;
-struct MEMORY_struct {
- volatile __UINTEGER_32 map_previous_linear__XTB;
- volatile __UINTEGER_32 map_size_and_id__YTB;
- void *map_next_free__ZTB;
- void *map_previous_free__0TB;
-} __attribute__ ((packed));
-__MEMORY MEMORY_;
-#define MEMORY__ (&MEMORY_)
-
-// HASHED_DICTIONARY_NODE[ENTRY,ABSTRACT_STRING]
-#define __HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__ 26
-typedef struct HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo_struct __HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo;
-struct HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo_struct {
- void *key__N2S;
- void *item__TPOB;
- void *next__Z2S;
-};
-__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo_;
-#define HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__ (&HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo_)
-
-// HASHED_DICTIONARY[ENTRY,ABSTRACT_STRING]
-#define __HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__ 27
-typedef struct HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo_struct __HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo;
-struct HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo_struct {
- __INTEGER capacity__21S;
- __INTEGER count__C3S;
- void **buckets__B2S;
-};
-__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo_;
-#define HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__ (&HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo_)
-
-// LINKED_COLLECTION[STRING_CONSTANT]
-#define __LINKED_COLLECTIONoSTRING_CONSTANTo__ 28
-typedef struct LINKED_COLLECTIONoSTRING_CONSTANTo_struct __LINKED_COLLECTIONoSTRING_CONSTANTo;
-struct LINKED_COLLECTIONoSTRING_CONSTANTo_struct {
- __INTEGER upper__0ED;
-};
-__LINKED_COLLECTIONoSTRING_CONSTANTo LINKED_COLLECTIONoSTRING_CONSTANTo_;
-#define LINKED_COLLECTIONoSTRING_CONSTANTo__ (&LINKED_COLLECTIONoSTRING_CONSTANTo_)
-
-// LINKED_LIST[STRING_CONSTANT]
-#define __LINKED_LISToSTRING_CONSTANTo__ 29
-typedef struct LINKED_LISToSTRING_CONSTANTo_struct __LINKED_LISToSTRING_CONSTANTo;
-struct LINKED_LISToSTRING_CONSTANTo_struct {
- __LINKED_COLLECTIONoSTRING_CONSTANTo parent_linked_collection__LD;
- __INTEGER mem_idx__YTEC;
- void *first_link__OTEC;
- void *last_link__XTEC;
- void *mem_lnk__0TEC;
-};
-__LINKED_LISToSTRING_CONSTANTo LINKED_LISToSTRING_CONSTANTo_;
-#define LINKED_LISToSTRING_CONSTANTo__ (&LINKED_LISToSTRING_CONSTANTo_)
-
-// PARSER
-#define __PARSER__ 30
-typedef struct PARSER_struct __PARSER;
-struct PARSER_struct {
- void *Nothing;
-};
-__PARSER PARSER_;
-#define PARSER__ (&PARSER_)
-
-// ITM_ARGUMENT
-#define __ITM_ARGUMENT__ 31
-typedef struct ITM_ARGUMENT_struct __ITM_ARGUMENT;
-struct ITM_ARGUMENT_struct {
- __ITM_OBJECT parent_itm_code__O5M;
-};
-__ITM_ARGUMENT ITM_ARGUMENT_;
-#define ITM_ARGUMENT__ (&ITM_ARGUMENT_)
-
-// ARRAYED_COLLECTION[ITM_ARGUMENT]
-#define __ARRAYED_COLLECTIONoITM_ARGUMENTo__ 32
-typedef struct ARRAYED_COLLECTIONoITM_ARGUMENTo_struct __ARRAYED_COLLECTIONoITM_ARGUMENTo;
-struct ARRAYED_COLLECTIONoITM_ARGUMENTo_struct {
- __INTEGER upper__I5GC;
- __INTEGER capacity__K5GC;
- void **storage__GAHC;
-};
-__ARRAYED_COLLECTIONoITM_ARGUMENTo ARRAYED_COLLECTIONoITM_ARGUMENTo_;
-#define ARRAYED_COLLECTIONoITM_ARGUMENTo__ (&ARRAYED_COLLECTIONoITM_ARGUMENTo_)
-
-// FAST_ARRAY[ITM_ARGUMENT]
-#define __FAST_ARRAYoITM_ARGUMENTo__ 33
-typedef struct FAST_ARRAYoITM_ARGUMENTo_struct __FAST_ARRAYoITM_ARGUMENTo;
-struct FAST_ARRAYoITM_ARGUMENTo_struct {
- __ARRAYED_COLLECTIONoITM_ARGUMENTo parent_arrayed_collection__Z5YB;
-};
-__FAST_ARRAYoITM_ARGUMENTo FAST_ARRAYoITM_ARGUMENTo_;
-#define FAST_ARRAYoITM_ARGUMENTo__ (&FAST_ARRAYoITM_ARGUMENTo_)
-
-// ITM_TYPE_MULTI
-#define __ITM_TYPE_MULTI__ 10
-typedef struct ITM_TYPE_MULTI_struct __ITM_TYPE_MULTI;
-struct ITM_TYPE_MULTI_struct {
- unsigned long __id;
- void *list_type__2KP;
-};
-__ITM_TYPE_MULTI ITM_TYPE_MULTI_={__ITM_TYPE_MULTI__};
-#define ITM_TYPE_MULTI__ (&ITM_TYPE_MULTI_)
-
-// ITM_EXPRESSION
-#define __ITM_EXPRESSION__ 11
-typedef struct ITM_EXPRESSION_struct __ITM_EXPRESSION;
-struct ITM_EXPRESSION_struct {
- unsigned long __id;
- void *value_list__PJV;
-};
-__ITM_EXPRESSION ITM_EXPRESSION_={__ITM_EXPRESSION__};
-#define ITM_EXPRESSION__ (&ITM_EXPRESSION_)
-
-// ITM_RESULT
-#define __ITM_RESULT__ 12
-typedef struct ITM_RESULT_struct __ITM_RESULT;
-struct ITM_RESULT_struct {
- unsigned long __id;
- void *value__WKFC;
-};
-__ITM_RESULT ITM_RESULT_={__ITM_RESULT__};
-#define ITM_RESULT__ (&ITM_RESULT_)
-
-// HASHED_DICTIONARY_NODE[ITM_SLOT,STRING_CONSTANT]
-#define __HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__ 34
-typedef struct HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo_struct __HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo;
-struct HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo_struct {
- void *key__ZAGC;
- void *item__MBGC;
- void *next__EBGC;
-};
-__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo_;
-#define HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__ (&HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo_)
-
-// HASHED_DICTIONARY[ITM_SLOT,STRING_CONSTANT]
-#define __HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__ 35
-typedef struct HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo_struct __HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo;
-struct HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo_struct {
- __INTEGER capacity__W3BC;
- __INTEGER count__YOGC;
- void **buckets__NAGC;
-};
-__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo_;
-#define HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__ (&HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo_)
-
-// ITM_TYPE_BLOCK
-#define __ITM_TYPE_BLOCK__ 13
-typedef struct ITM_TYPE_BLOCK_struct __ITM_TYPE_BLOCK;
-struct ITM_TYPE_BLOCK_struct {
- unsigned long __id;
- void *type_argument__SNN;
- void *type_result__2NN;
-};
-__ITM_TYPE_BLOCK ITM_TYPE_BLOCK_={__ITM_TYPE_BLOCK__};
-#define ITM_TYPE_BLOCK__ (&ITM_TYPE_BLOCK_)
-
-// ITM_TYPE_SIMPLE
-#define __ITM_TYPE_SIMPLE__ 14
-typedef struct ITM_TYPE_SIMPLE_struct __ITM_TYPE_SIMPLE;
-struct ITM_TYPE_SIMPLE_struct {
- unsigned long __id;
- void *name__GZP;
-};
-__ITM_TYPE_SIMPLE ITM_TYPE_SIMPLE_={__ITM_TYPE_SIMPLE__};
-#define ITM_TYPE_SIMPLE__ (&ITM_TYPE_SIMPLE_)
-
-// ITM_TYPE_STYLE
-#define __ITM_TYPE_STYLE__ 15
-typedef struct ITM_TYPE_STYLE_struct __ITM_TYPE_STYLE;
-struct ITM_TYPE_STYLE_struct {
- unsigned long __id;
- __ITM_TYPE_SIMPLE parent_itm_type_simple__3SN;
- void *style__PZP;
-};
-__ITM_TYPE_STYLE ITM_TYPE_STYLE_={__ITM_TYPE_STYLE__};
-#define ITM_TYPE_STYLE__ (&ITM_TYPE_STYLE_)
-
-// ITM_TYPE_GENERIC
-#define __ITM_TYPE_GENERIC__ 16
-typedef struct ITM_TYPE_GENERIC_struct __ITM_TYPE_GENERIC;
-struct ITM_TYPE_GENERIC_struct {
- unsigned long __id;
- __ITM_TYPE_STYLE parent_itm_type_style__4SN;
- void *list_type__ZZP;
-};
-__ITM_TYPE_GENERIC ITM_TYPE_GENERIC_={__ITM_TYPE_GENERIC__};
-#define ITM_TYPE_GENERIC__ (&ITM_TYPE_GENERIC_)
-
-// ITM_ARG
-#define __ITM_ARG__ 17
-typedef struct ITM_ARG_struct __ITM_ARG;
-struct ITM_ARG_struct {
- unsigned long __id;
- __ITM_ARGUMENT parent_itm_argument__SEHB;
- void *name__F0HC;
- void *type__G0HC;
-};
-__ITM_ARG ITM_ARG_={__ITM_ARG__};
-#define ITM_ARG__ (&ITM_ARG_)
-
-// ITM_ARGS
-#define __ITM_ARGS__ 18
-typedef struct ITM_ARGS_struct __ITM_ARGS;
-struct ITM_ARGS_struct {
- unsigned long __id;
- __ITM_ARGUMENT parent_itm_argument__CEFE;
- void *type__YDQF;
- void *name__XDQF;
-};
-__ITM_ARGS ITM_ARGS_={__ITM_ARGS__};
-#define ITM_ARGS__ (&ITM_ARGS_)
-
-// ITM_TYPE_PARAMETER
-#define __ITM_TYPE_PARAMETER__ 19
-typedef struct ITM_TYPE_PARAMETER_struct __ITM_TYPE_PARAMETER;
-struct ITM_TYPE_PARAMETER_struct {
- unsigned long __id;
- __ITM_TYPE_SIMPLE parent_itm_type__VFE;
-};
-__ITM_TYPE_PARAMETER ITM_TYPE_PARAMETER_={__ITM_TYPE_PARAMETER__};
-#define ITM_TYPE_PARAMETER__ (&ITM_TYPE_PARAMETER_)
-
-// FILE_UNIX
-#define __FILE_UNIX__ 20
-typedef struct FILE_UNIX_struct __FILE_UNIX;
-struct FILE_UNIX_struct {
- unsigned long __id;
- __ENTRY_UNIX parent_entry_unix__EFF;
- __POINTER stream__BMRD;
-};
-__FILE_UNIX FILE_UNIX_={__FILE_UNIX__};
-#define FILE_UNIX__ (&FILE_UNIX_)
-
-// ARRAYED_COLLECTION[ITM_TYPE_PARAMETER]
-#define __ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo__ 36
-typedef struct ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo_struct __ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo;
-struct ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo_struct {
- __INTEGER upper__RABC;
- __INTEGER capacity__TABC;
- void **storage__PBBC;
-};
-__ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo_;
-#define ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo__ (&ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo_)
-
-// FAST_ARRAY[ITM_TYPE_PARAMETER]
-#define __FAST_ARRAYoITM_TYPE_PARAMETERo__ 37
-typedef struct FAST_ARRAYoITM_TYPE_PARAMETERo_struct __FAST_ARRAYoITM_TYPE_PARAMETERo;
-struct FAST_ARRAYoITM_TYPE_PARAMETERo_struct {
- __ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo parent_arrayed_collection__LOE;
-};
-__FAST_ARRAYoITM_TYPE_PARAMETERo FAST_ARRAYoITM_TYPE_PARAMETERo_;
-#define FAST_ARRAYoITM_TYPE_PARAMETERo__ (&FAST_ARRAYoITM_TYPE_PARAMETERo_)
-
-// LIP_CODE
-#define __LIP_CODE__ 38
-typedef struct LIP_CODE_struct __LIP_CODE;
-struct LIP_CODE_struct {
- __ITM_OBJECT parent_itm_object__XFE;
-};
-__LIP_CODE LIP_CODE_;
-#define LIP_CODE__ (&LIP_CODE_)
-
-// LIP_AFFECT
-#define __LIP_AFFECT__ 21
-typedef struct LIP_AFFECT_struct __LIP_AFFECT;
-struct LIP_AFFECT_struct {
- unsigned long __id;
- __LIP_CODE parent_lip_code__YSPB;
- void *name__AGFC;
- void *value__SGFC;
-};
-__LIP_AFFECT LIP_AFFECT_={__LIP_AFFECT__};
-#define LIP_AFFECT__ (&LIP_AFFECT_)
-
-// LIP_CALL
-#define __LIP_CALL__ 22
-typedef struct LIP_CALL_struct __LIP_CALL;
-struct LIP_CALL_struct {
- unsigned long __id;
- __LIP_CODE parent_lip_code__XZ4B;
- void *argument__4QUE;
- void *name__JRUE;
-};
-__LIP_CALL LIP_CALL_={__LIP_CALL__};
-#define LIP_CALL__ (&LIP_CALL_)
-
-// LIP_IF
-#define __LIP_IF__ 23
-typedef struct LIP_IF_struct __LIP_IF;
-struct LIP_IF_struct {
- unsigned long __id;
- __LIP_CODE parent_lip_code__PQYC;
- void *condition__3FQD;
- void *then__TGQD;
- void *else__KHQD;
-};
-__LIP_IF LIP_IF_={__LIP_IF__};
-#define LIP_IF__ (&LIP_IF_)
-
-// LIP_PRINT
-#define __LIP_PRINT__ 24
-typedef struct LIP_PRINT_struct __LIP_PRINT;
-struct LIP_PRINT_struct {
- unsigned long __id;
- __LIP_CODE parent_lip_code__BRYC;
- void *message__NVUE;
-};
-__LIP_PRINT LIP_PRINT_={__LIP_PRINT__};
-#define LIP_PRINT__ (&LIP_PRINT_)
-
-// HASHED_SET_NODE[STRING_CONSTANT]
-#define __HASHED_SET_NODEoSTRING_CONSTANTo__ 39
-typedef struct HASHED_SET_NODEoSTRING_CONSTANTo_struct __HASHED_SET_NODEoSTRING_CONSTANTo;
-struct HASHED_SET_NODEoSTRING_CONSTANTo_struct {
- void *item__PEV;
- void *next__0EV;
-};
-__HASHED_SET_NODEoSTRING_CONSTANTo HASHED_SET_NODEoSTRING_CONSTANTo_;
-#define HASHED_SET_NODEoSTRING_CONSTANTo__ (&HASHED_SET_NODEoSTRING_CONSTANTo_)
-
-// HASHED_SET[STRING_CONSTANT]
-#define __HASHED_SEToSTRING_CONSTANTo__ 40
-typedef struct HASHED_SEToSTRING_CONSTANTo_struct __HASHED_SEToSTRING_CONSTANTo;
-struct HASHED_SEToSTRING_CONSTANTo_struct {
- __INTEGER capacity__HIT;
- __INTEGER count__1FY;
- void **buckets__DEV;
-};
-__HASHED_SEToSTRING_CONSTANTo HASHED_SEToSTRING_CONSTANTo_;
-#define HASHED_SEToSTRING_CONSTANTo__ (&HASHED_SEToSTRING_CONSTANTo_)
-
-// HASHED_SET_NODE[FAST_ARRAY[STRING_CONSTANT]]
-#define __HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__ 41
-typedef struct HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo_struct __HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo;
-struct HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo_struct {
- void *item__3LQF;
- void *next__JMQF;
-};
-__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo_;
-#define HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__ (&HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo_)
-
-// HASHED_SET[FAST_ARRAY[STRING_CONSTANT]]
-#define __HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__ 42
-typedef struct HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo_struct __HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo;
-struct HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo_struct {
- __INTEGER capacity__MLQF;
- __INTEGER count__DQQF;
- void **buckets__RLQF;
-};
-__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo_;
-#define HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__ (&HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo_)
-
-// ITM_CODE
-#define __ITM_CODE__ 43
-typedef struct ITM_CODE_struct __ITM_CODE;
-struct ITM_CODE_struct {
- __ITM_OBJECT parent_itm_object__PFE;
-};
-__ITM_CODE ITM_CODE_;
-#define ITM_CODE__ (&ITM_CODE_)
-
-// ARRAYED_COLLECTION[ITM_CODE]
-#define __ARRAYED_COLLECTIONoITM_CODEo__ 44
-typedef struct ARRAYED_COLLECTIONoITM_CODEo_struct __ARRAYED_COLLECTIONoITM_CODEo;
-struct ARRAYED_COLLECTIONoITM_CODEo_struct {
- __INTEGER upper__NJL;
- __INTEGER capacity__TZT;
- void **storage__4ZT;
-};
-__ARRAYED_COLLECTIONoITM_CODEo ARRAYED_COLLECTIONoITM_CODEo_;
-#define ARRAYED_COLLECTIONoITM_CODEo__ (&ARRAYED_COLLECTIONoITM_CODEo_)
-
-// FAST_ARRAY[ITM_CODE]
-#define __FAST_ARRAYoITM_CODEo__ 45
-typedef struct FAST_ARRAYoITM_CODEo_struct __FAST_ARRAYoITM_CODEo;
-struct FAST_ARRAYoITM_CODEo_struct {
- __ARRAYED_COLLECTIONoITM_CODEo parent_arrayed_collection__JWF;
-};
-__FAST_ARRAYoITM_CODEo FAST_ARRAYoITM_CODEo_;
-#define FAST_ARRAYoITM_CODEo__ (&FAST_ARRAYoITM_CODEo_)
-
-// ARRAYED_COLLECTION[LIP_CODE]
-#define __ARRAYED_COLLECTIONoLIP_CODEo__ 46
-typedef struct ARRAYED_COLLECTIONoLIP_CODEo_struct __ARRAYED_COLLECTIONoLIP_CODEo;
-struct ARRAYED_COLLECTIONoLIP_CODEo_struct {
- __INTEGER upper__ZGQD;
- __INTEGER capacity__1UTD;
- void **storage__GVTD;
-};
-__ARRAYED_COLLECTIONoLIP_CODEo ARRAYED_COLLECTIONoLIP_CODEo_;
-#define ARRAYED_COLLECTIONoLIP_CODEo__ (&ARRAYED_COLLECTIONoLIP_CODEo_)
-
-// FAST_ARRAY[LIP_CODE]
-#define __FAST_ARRAYoLIP_CODEo__ 47
-typedef struct FAST_ARRAYoLIP_CODEo_struct __FAST_ARRAYoLIP_CODEo;
-struct FAST_ARRAYoLIP_CODEo_struct {
- __ARRAYED_COLLECTIONoLIP_CODEo parent_arrayed_collection__4MYC;
-};
-__FAST_ARRAYoLIP_CODEo FAST_ARRAYoLIP_CODEo_;
-#define FAST_ARRAYoLIP_CODEo__ (&FAST_ARRAYoLIP_CODEo_)
-
-// HASHED_DICTIONARY_NODE[LIP_SLOT_DATA,STRING_CONSTANT]
-#define __HASHED_DICTIONARY_NODEoLIP_SLOT_DATAxSTRING_CONSTANTo__ 48
-typedef struct HASHED_DICTIONARY_NODEoLIP_SLOT_DATAxSTRING_CONSTANTo_struct __HASHED_DICTIONARY_NODEoLIP_SLOT_DATAxSTRING_CONSTANTo;
-struct HASHED_DICTIONARY_NODEoLIP_SLOT_DATAxSTRING_CONSTANTo_struct {
- void *Nothing;
-};
-__HASHED_DICTIONARY_NODEoLIP_SLOT_DATAxSTRING_CONSTANTo HASHED_DICTIONARY_NODEoLIP_SLOT_DATAxSTRING_CONSTANTo_;
-#define HASHED_DICTIONARY_NODEoLIP_SLOT_DATAxSTRING_CONSTANTo__ (&HASHED_DICTIONARY_NODEoLIP_SLOT_DATAxSTRING_CONSTANTo_)
-
-// HASHED_DICTIONARY[LIP_SLOT_DATA,STRING_CONSTANT]
-#define __HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo__ 49
-typedef struct HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo_struct __HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo;
-struct HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo_struct {
- __INTEGER capacity__4XRD;
- void **buckets__DYRD;
-};
-__HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo_;
-#define HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo__ (&HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo_)
-
-// LIP_BINARY
-#define __LIP_BINARY__ 25
-typedef struct LIP_BINARY_struct __LIP_BINARY;
-struct LIP_BINARY_struct {
- unsigned long __id;
- __LIP_CODE parent_lip_code__WNZB;
- void *left__J2QD;
- void *right__M2QD;
- __CHARACTER operator__P2QD;
-};
-__LIP_BINARY LIP_BINARY_={__LIP_BINARY__};
-#define LIP_BINARY__ (&LIP_BINARY_)
-
-// LIP_UNARY
-#define __LIP_UNARY__ 26
-typedef struct LIP_UNARY_struct __LIP_UNARY;
-struct LIP_UNARY_struct {
- unsigned long __id;
- __LIP_CODE parent_lip_code__FZ4B;
- void *value__G5QD;
- __CHARACTER operator__J5QD;
-};
-__LIP_UNARY LIP_UNARY_={__LIP_UNARY__};
-#define LIP_UNARY__ (&LIP_UNARY_)
-
-// LIP_INTEGER
-#define __LIP_INTEGER__ 27
-typedef struct LIP_INTEGER_struct __LIP_INTEGER;
-struct LIP_INTEGER_struct {
- unsigned long __id;
- __INTEGER value__FP4F;
-};
-__LIP_INTEGER LIP_INTEGER_={__LIP_INTEGER__};
-#define LIP_INTEGER__ (&LIP_INTEGER_)
-
-// LIP_STRING
-#define __LIP_STRING__ 28
-typedef struct LIP_STRING_struct __LIP_STRING;
-struct LIP_STRING_struct {
- unsigned long __id;
- void *value__WSUE;
-};
-__LIP_STRING LIP_STRING_={__LIP_STRING__};
-#define LIP_STRING__ (&LIP_STRING_)
-
-// HASHED_SET_NODE[FAST_ARRAY[ITM_TYPE_MONO]]
-#define __HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo__ 50
-typedef struct HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo_struct __HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo;
-struct HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo_struct {
- void *item__W5V;
- void *next__CAW;
-};
-__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo_;
-#define HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo__ (&HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo_)
-
-// HASHED_SET[FAST_ARRAY[ITM_TYPE_MONO]]
-#define __HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__ 51
-typedef struct HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo_struct __HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo;
-struct HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo_struct {
- __INTEGER capacity__F5V;
- __INTEGER count__ZHW;
- void **buckets__K5V;
-};
-__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo_;
-#define HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__ (&HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo_)
-
-// ITM_LOCAL
-#define __ITM_LOCAL__ 52
-typedef struct ITM_LOCAL_struct __ITM_LOCAL;
-struct ITM_LOCAL_struct {
- __ITM_OBJECT parent_itm_object__O3H;
- void *name__P4K;
-};
-__ITM_LOCAL ITM_LOCAL_;
-#define ITM_LOCAL__ (&ITM_LOCAL_)
-
-// ARRAYED_COLLECTION[ITM_LOCAL]
-#define __ARRAYED_COLLECTIONoITM_LOCALo__ 53
-typedef struct ARRAYED_COLLECTIONoITM_LOCALo_struct __ARRAYED_COLLECTIONoITM_LOCALo;
-struct ARRAYED_COLLECTIONoITM_LOCALo_struct {
- __INTEGER upper__M2K;
- __INTEGER capacity__IMU;
- void **storage__TMU;
-};
-__ARRAYED_COLLECTIONoITM_LOCALo ARRAYED_COLLECTIONoITM_LOCALo_;
-#define ARRAYED_COLLECTIONoITM_LOCALo__ (&ARRAYED_COLLECTIONoITM_LOCALo_)
-
-// FAST_ARRAY[ITM_LOCAL]
-#define __FAST_ARRAYoITM_LOCALo__ 54
-typedef struct FAST_ARRAYoITM_LOCALo_struct __FAST_ARRAYoITM_LOCALo;
-struct FAST_ARRAYoITM_LOCALo_struct {
- __ARRAYED_COLLECTIONoITM_LOCALo parent_arrayed_collection__T3H;
-};
-__FAST_ARRAYoITM_LOCALo FAST_ARRAYoITM_LOCALo_;
-#define FAST_ARRAYoITM_LOCALo__ (&FAST_ARRAYoITM_LOCALo_)
-
-// NUMERIC
-#define __NUMERIC__ 55
-typedef struct NUMERIC_struct __NUMERIC;
-struct NUMERIC_struct {
- void *Nothing;
-};
-__NUMERIC NUMERIC_;
-#define NUMERIC__ (&NUMERIC_)
-
-// OBJECT
-#define __OBJECT__ 56
-typedef struct OBJECT_struct __OBJECT;
-struct OBJECT_struct {
- void *Nothing;
-};
-__OBJECT OBJECT_;
-#define OBJECT__ (&OBJECT_)
-
-// SYSTEM
-#define __SYSTEM__ 57
-typedef struct SYSTEM_struct __SYSTEM;
-struct SYSTEM_struct {
- void *Nothing;
-};
-__SYSTEM SYSTEM_;
-#define SYSTEM__ (&SYSTEM_)
-
-// ALIAS_STR
-#define __ALIAS_STR__ 58
-typedef struct ALIAS_STR_struct __ALIAS_STR;
-struct ALIAS_STR_struct {
- void *Nothing;
-};
-__ALIAS_STR ALIAS_STR_;
-#define ALIAS_STR__ (&ALIAS_STR_)
-
-// ANY
-#define __ANY__ 59
-typedef struct ANY_struct __ANY;
-struct ANY_struct {
- void *Nothing;
-};
-__ANY ANY_;
-#define ANY__ (&ANY_)
-
-// ANY_OPTION
-#define __ANY_OPTION__ 60
-typedef struct ANY_OPTION_struct __ANY_OPTION;
-struct ANY_OPTION_struct {
- void *Nothing;
-};
-__ANY_OPTION ANY_OPTION_;
-#define ANY_OPTION__ (&ANY_OPTION_)
-
-// FALSE
-#define FALSE__ 0
-
-// SHORTER
-#define __SHORTER__ 61
-typedef struct SHORTER_struct __SHORTER;
-struct SHORTER_struct {
- void *Nothing;
-};
-__SHORTER SHORTER_;
-#define SHORTER__ (&SHORTER_)
-
-// FILE_SYSTEM
-#define __FILE_SYSTEM__ 62
-typedef struct FILE_SYSTEM_struct __FILE_SYSTEM;
-struct FILE_SYSTEM_struct {
- void *parent_directory__GHD;
- int parent_directory__HHD;
-};
-__FILE_SYSTEM FILE_SYSTEM_;
-#define FILE_SYSTEM__ (&FILE_SYSTEM_)
-
-// HASHED_DICTIONARY_NODE[PROTOTYPE,STRING_CONSTANT]
-#define __HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__ 63
-typedef struct HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo_struct __HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo;
-struct HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo_struct {
- void *key__1MBC;
- void *item__NBHD;
- void *next__GNBC;
-};
-__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo_;
-#define HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__ (&HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo_)
-
-// HASHED_DICTIONARY[PROTOTYPE,STRING_CONSTANT]
-#define __HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__ 64
-typedef struct HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo_struct __HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo;
-struct HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo_struct {
- __INTEGER capacity__KMBC;
- __INTEGER count__PNBC;
- void **buckets__PMBC;
-};
-__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo_;
-#define HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__ (&HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo_)
-
-// ARRAYED_COLLECTION[PROTOTYPE]
-#define __ARRAYED_COLLECTIONoPROTOTYPEo__ 65
-typedef struct ARRAYED_COLLECTIONoPROTOTYPEo_struct __ARRAYED_COLLECTIONoPROTOTYPEo;
-struct ARRAYED_COLLECTIONoPROTOTYPEo_struct {
- __INTEGER upper__HJ;
- __INTEGER capacity__WEU;
- void **storage__DVT;
-};
-__ARRAYED_COLLECTIONoPROTOTYPEo ARRAYED_COLLECTIONoPROTOTYPEo_;
-#define ARRAYED_COLLECTIONoPROTOTYPEo__ (&ARRAYED_COLLECTIONoPROTOTYPEo_)
-
-// FAST_ARRAY[PROTOTYPE]
-#define __FAST_ARRAYoPROTOTYPEo__ 66
-typedef struct FAST_ARRAYoPROTOTYPEo_struct __FAST_ARRAYoPROTOTYPEo;
-struct FAST_ARRAYoPROTOTYPEo_struct {
- __ARRAYED_COLLECTIONoPROTOTYPEo parent_arrayed_collection__AJ;
-};
-__FAST_ARRAYoPROTOTYPEo FAST_ARRAYoPROTOTYPEo_;
-#define FAST_ARRAYoPROTOTYPEo__ (&FAST_ARRAYoPROTOTYPEo_)
-
-// FS_MIN
-#define __FS_MIN__ 67
-typedef struct FS_MIN_struct __FS_MIN;
-struct FS_MIN_struct {
- void *Nothing;
-};
-__FS_MIN FS_MIN_;
-#define FS_MIN__ (&FS_MIN_)
-
-// LINKED_LIST_NODE[STRING_CONSTANT]
-#define __LINKED_LIST_NODEoSTRING_CONSTANTo__ 68
-typedef struct LINKED_LIST_NODEoSTRING_CONSTANTo_struct __LINKED_LIST_NODEoSTRING_CONSTANTo;
-struct LINKED_LIST_NODEoSTRING_CONSTANTo_struct {
- void *item__L0HD;
- void *next__JROD;
-};
-__LINKED_LIST_NODEoSTRING_CONSTANTo LINKED_LIST_NODEoSTRING_CONSTANTo_;
-#define LINKED_LIST_NODEoSTRING_CONSTANTo__ (&LINKED_LIST_NODEoSTRING_CONSTANTo_)
-
-// TYPE
-#define __TYPE__ 69
-typedef struct TYPE_struct __TYPE;
-struct TYPE_struct {
- void *Nothing;
-};
-__TYPE TYPE_;
-#define TYPE__ (&TYPE_)
-
-// ARRAYED_COLLECTION[SLOT]
-#define __ARRAYED_COLLECTIONoSLOTo__ 70
-typedef struct ARRAYED_COLLECTIONoSLOTo_struct __ARRAYED_COLLECTIONoSLOTo;
-struct ARRAYED_COLLECTIONoSLOTo_struct {
- __INTEGER capacity__QFS;
-};
-__ARRAYED_COLLECTIONoSLOTo ARRAYED_COLLECTIONoSLOTo_;
-#define ARRAYED_COLLECTIONoSLOTo__ (&ARRAYED_COLLECTIONoSLOTo_)
-
-// FAST_ARRAY[SLOT]
-#define __FAST_ARRAYoSLOTo__ 71
-typedef struct FAST_ARRAYoSLOTo_struct __FAST_ARRAYoSLOTo;
-struct FAST_ARRAYoSLOTo_struct {
- __ARRAYED_COLLECTIONoSLOTo parent_arrayed_collection__BAB;
-};
-__FAST_ARRAYoSLOTo FAST_ARRAYoSLOTo_;
-#define FAST_ARRAYoSLOTo__ (&FAST_ARRAYoSLOTo_)
-
-// LINKED_COLLECTION[ENTRY]
-#define __LINKED_COLLECTIONoENTRYo__ 72
-typedef struct LINKED_COLLECTIONoENTRYo_struct __LINKED_COLLECTIONoENTRYo;
-struct LINKED_COLLECTIONoENTRYo_struct {
- __INTEGER upper__HR3D;
-};
-__LINKED_COLLECTIONoENTRYo LINKED_COLLECTIONoENTRYo_;
-#define LINKED_COLLECTIONoENTRYo__ (&LINKED_COLLECTIONoENTRYo_)
-
-// LINKED_LIST[ENTRY]
-#define __LINKED_LISToENTRYo__ 73
-typedef struct LINKED_LISToENTRYo_struct __LINKED_LISToENTRYo;
-struct LINKED_LISToENTRYo_struct {
- __LINKED_COLLECTIONoENTRYo parent_linked_collection__EIRD;
- __INTEGER mem_idx__VMWE;
- void *first_link__OMWE;
- void *mem_lnk__WMWE;
- void *last_link__XMWE;
-};
-__LINKED_LISToENTRYo LINKED_LISToENTRYo_;
-#define LINKED_LISToENTRYo__ (&LINKED_LISToENTRYo_)
-
-// LINKED_LIST_NODE[ENTRY]
-#define __LINKED_LIST_NODEoENTRYo__ 74
-typedef struct LINKED_LIST_NODEoENTRYo_struct __LINKED_LIST_NODEoENTRYo;
-struct LINKED_LIST_NODEoENTRYo_struct {
- void *item__IAXE;
- void *next__G3FF;
-};
-__LINKED_LIST_NODEoENTRYo LINKED_LIST_NODEoENTRYo_;
-#define LINKED_LIST_NODEoENTRYo__ (&LINKED_LIST_NODEoENTRYo_)
-
-// ARRAYED_COLLECTION[FAST_ARRAY[ITM_TYPE_MONO]]
-#define __ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo__ 75
-typedef struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo_struct __ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo;
-struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo_struct {
- __INTEGER upper__ZUV;
- __INTEGER capacity__UYV;
- void **storage__PZV;
-};
-__ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo_;
-#define ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo__ (&ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo_)
-
-// FAST_ARRAY[FAST_ARRAY[ITM_TYPE_MONO]]
-#define __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo__ 76
-typedef struct FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo_struct __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo;
-struct FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo_struct {
- __ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo parent_arrayed_collection__FVP;
-};
-__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo_;
-#define FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo__ (&FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo_)
-
-// ALIAS_ARRAY[ITM_TYPE_MONO]
-#define __ALIAS_ARRAYoITM_TYPE_MONOo__ 77
-typedef struct ALIAS_ARRAYoITM_TYPE_MONOo_struct __ALIAS_ARRAYoITM_TYPE_MONOo;
-struct ALIAS_ARRAYoITM_TYPE_MONOo_struct {
- void *Nothing;
-};
-__ALIAS_ARRAYoITM_TYPE_MONOo ALIAS_ARRAYoITM_TYPE_MONOo_;
-#define ALIAS_ARRAYoITM_TYPE_MONOo__ (&ALIAS_ARRAYoITM_TYPE_MONOo_)
-
-// ARRAYED_COLLECTION[ITM_TYPE_MULTI]
-#define __ARRAYED_COLLECTIONoITM_TYPE_MULTIo__ 78
-typedef struct ARRAYED_COLLECTIONoITM_TYPE_MULTIo_struct __ARRAYED_COLLECTIONoITM_TYPE_MULTIo;
-struct ARRAYED_COLLECTIONoITM_TYPE_MULTIo_struct {
- __INTEGER upper__SKP;
- __INTEGER capacity__R1V;
- void **storage__21V;
-};
-__ARRAYED_COLLECTIONoITM_TYPE_MULTIo ARRAYED_COLLECTIONoITM_TYPE_MULTIo_;
-#define ARRAYED_COLLECTIONoITM_TYPE_MULTIo__ (&ARRAYED_COLLECTIONoITM_TYPE_MULTIo_)
-
-// FAST_ARRAY[ITM_TYPE_MULTI]
-#define __FAST_ARRAYoITM_TYPE_MULTIo__ 79
-typedef struct FAST_ARRAYoITM_TYPE_MULTIo_struct __FAST_ARRAYoITM_TYPE_MULTIo;
-struct FAST_ARRAYoITM_TYPE_MULTIo_struct {
- __ARRAYED_COLLECTIONoITM_TYPE_MULTIo parent_arrayed_collection__IKP;
-};
-__FAST_ARRAYoITM_TYPE_MULTIo FAST_ARRAYoITM_TYPE_MULTIo_;
-#define FAST_ARRAYoITM_TYPE_MULTIo__ (&FAST_ARRAYoITM_TYPE_MULTIo_)
-
-// ARRAYED_COLLECTION[ITM_TYPE_BLOCK]
-#define __ARRAYED_COLLECTIONoITM_TYPE_BLOCKo__ 80
-typedef struct ARRAYED_COLLECTIONoITM_TYPE_BLOCKo_struct __ARRAYED_COLLECTIONoITM_TYPE_BLOCKo;
-struct ARRAYED_COLLECTIONoITM_TYPE_BLOCKo_struct {
- __INTEGER upper__ENN;
- __INTEGER capacity__0JV;
- void **storage__FKV;
-};
-__ARRAYED_COLLECTIONoITM_TYPE_BLOCKo ARRAYED_COLLECTIONoITM_TYPE_BLOCKo_;
-#define ARRAYED_COLLECTIONoITM_TYPE_BLOCKo__ (&ARRAYED_COLLECTIONoITM_TYPE_BLOCKo_)
-
-// FAST_ARRAY[ITM_TYPE_BLOCK]
-#define __FAST_ARRAYoITM_TYPE_BLOCKo__ 81
-typedef struct FAST_ARRAYoITM_TYPE_BLOCKo_struct __FAST_ARRAYoITM_TYPE_BLOCKo;
-struct FAST_ARRAYoITM_TYPE_BLOCKo_struct {
- __ARRAYED_COLLECTIONoITM_TYPE_BLOCKo parent_arrayed_collection__0MN;
-};
-__FAST_ARRAYoITM_TYPE_BLOCKo FAST_ARRAYoITM_TYPE_BLOCKo_;
-#define FAST_ARRAYoITM_TYPE_BLOCKo__ (&FAST_ARRAYoITM_TYPE_BLOCKo_)
-
-// ITM_CONSTANT
-#define __ITM_CONSTANT__ 82
-typedef struct ITM_CONSTANT_struct __ITM_CONSTANT;
-struct ITM_CONSTANT_struct {
- __ITM_CODE parent_itm_code__TYF;
-};
-__ITM_CONSTANT ITM_CONSTANT_;
-#define ITM_CONSTANT__ (&ITM_CONSTANT_)
-
-// ITM_REAL
-#define __ITM_REAL__ 29
-typedef struct ITM_REAL_struct __ITM_REAL;
-struct ITM_REAL_struct {
- unsigned long __id;
- __ITM_CONSTANT parent_itm_constant__BSO;
-};
-__ITM_REAL ITM_REAL_={__ITM_REAL__};
-#define ITM_REAL__ (&ITM_REAL_)
-
-// ITM_NUMBER
-#define __ITM_NUMBER__ 30
-typedef struct ITM_NUMBER_struct __ITM_NUMBER;
-struct ITM_NUMBER_struct {
- unsigned long __id;
- __ITM_CONSTANT parent_itm_constant__TSO;
-};
-__ITM_NUMBER ITM_NUMBER_={__ITM_NUMBER__};
-#define ITM_NUMBER__ (&ITM_NUMBER_)
-
-// ITM_CHARACTER
-#define __ITM_CHARACTER__ 31
-typedef struct ITM_CHARACTER_struct __ITM_CHARACTER;
-struct ITM_CHARACTER_struct {
- unsigned long __id;
- __ITM_CONSTANT parent_itm_constant__FTO;
-};
-__ITM_CHARACTER ITM_CHARACTER_={__ITM_CHARACTER__};
-#define ITM_CHARACTER__ (&ITM_CHARACTER_)
-
-// ITM_STRING
-#define __ITM_STRING__ 32
-typedef struct ITM_STRING_struct __ITM_STRING;
-struct ITM_STRING_struct {
- unsigned long __id;
- __ITM_CONSTANT parent_itm_constant__WTO;
-};
-__ITM_STRING ITM_STRING_={__ITM_STRING__};
-#define ITM_STRING__ (&ITM_STRING_)
-
-// ARRAYED_COLLECTION[ITM_TYPE_GENERIC]
-#define __ARRAYED_COLLECTIONoITM_TYPE_GENERICo__ 83
-typedef struct ARRAYED_COLLECTIONoITM_TYPE_GENERICo_struct __ARRAYED_COLLECTIONoITM_TYPE_GENERICo;
-struct ARRAYED_COLLECTIONoITM_TYPE_GENERICo_struct {
- __INTEGER upper__2YP;
- __INTEGER capacity__HBW;
- void **storage__SBW;
-};
-__ARRAYED_COLLECTIONoITM_TYPE_GENERICo ARRAYED_COLLECTIONoITM_TYPE_GENERICo_;
-#define ARRAYED_COLLECTIONoITM_TYPE_GENERICo__ (&ARRAYED_COLLECTIONoITM_TYPE_GENERICo_)
-
-// FAST_ARRAY[ITM_TYPE_GENERIC]
-#define __FAST_ARRAYoITM_TYPE_GENERICo__ 84
-typedef struct FAST_ARRAYoITM_TYPE_GENERICo_struct __FAST_ARRAYoITM_TYPE_GENERICo;
-struct FAST_ARRAYoITM_TYPE_GENERICo_struct {
- __ARRAYED_COLLECTIONoITM_TYPE_GENERICo parent_arrayed_collection__SYP;
-};
-__FAST_ARRAYoITM_TYPE_GENERICo FAST_ARRAYoITM_TYPE_GENERICo_;
-#define FAST_ARRAYoITM_TYPE_GENERICo__ (&FAST_ARRAYoITM_TYPE_GENERICo_)
-
-// ARRAYED_COLLECTION[ITM_TYPE_STYLE]
-#define __ARRAYED_COLLECTIONoITM_TYPE_STYLEo__ 85
-typedef struct ARRAYED_COLLECTIONoITM_TYPE_STYLEo_struct __ARRAYED_COLLECTIONoITM_TYPE_STYLEo;
-struct ARRAYED_COLLECTIONoITM_TYPE_STYLEo_struct {
- __INTEGER upper__LPR;
- __INTEGER capacity__PLW;
- void **storage__0LW;
-};
-__ARRAYED_COLLECTIONoITM_TYPE_STYLEo ARRAYED_COLLECTIONoITM_TYPE_STYLEo_;
-#define ARRAYED_COLLECTIONoITM_TYPE_STYLEo__ (&ARRAYED_COLLECTIONoITM_TYPE_STYLEo_)
-
-// FAST_ARRAY[ITM_TYPE_STYLE]
-#define __FAST_ARRAYoITM_TYPE_STYLEo__ 86
-typedef struct FAST_ARRAYoITM_TYPE_STYLEo_struct __FAST_ARRAYoITM_TYPE_STYLEo;
-struct FAST_ARRAYoITM_TYPE_STYLEo_struct {
- __ARRAYED_COLLECTIONoITM_TYPE_STYLEo parent_arrayed_collection__BPR;
-};
-__FAST_ARRAYoITM_TYPE_STYLEo FAST_ARRAYoITM_TYPE_STYLEo_;
-#define FAST_ARRAYoITM_TYPE_STYLEo__ (&FAST_ARRAYoITM_TYPE_STYLEo_)
-
-// ITM_LIST
-#define __ITM_LIST__ 33
-typedef struct ITM_LIST_struct __ITM_LIST;
-struct ITM_LIST_struct {
- unsigned long __id;
- __ITM_CODE parent_itm_code__SBF;
-};
-__ITM_LIST ITM_LIST_={__ITM_LIST__};
-#define ITM_LIST__ (&ITM_LIST_)
-
-// ARRAYED_COLLECTION[FAST_ARRAY[ITM_LOCAL]]
-#define __ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo__ 87
-typedef struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo_struct __ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo;
-struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo_struct {
- __INTEGER upper__C3T;
- __INTEGER capacity__NKU;
- void **storage__YKU;
-};
-__ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo_;
-#define ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo__ (&ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo_)
-
-// FAST_ARRAY[FAST_ARRAY[ITM_LOCAL]]
-#define __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo__ 88
-typedef struct FAST_ARRAYoFAST_ARRAYoITM_LOCALoo_struct __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo;
-struct FAST_ARRAYoFAST_ARRAYoITM_LOCALoo_struct {
- __ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo parent_arrayed_collection__ZTI;
-};
-__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo FAST_ARRAYoFAST_ARRAYoITM_LOCALoo_;
-#define FAST_ARRAYoFAST_ARRAYoITM_LOCALoo__ (&FAST_ARRAYoFAST_ARRAYoITM_LOCALoo_)
-
-// ALIAS_ARRAY[ITM_LOCAL]
-#define __ALIAS_ARRAYoITM_LOCALo__ 89
-typedef struct ALIAS_ARRAYoITM_LOCALo_struct __ALIAS_ARRAYoITM_LOCALo;
-struct ALIAS_ARRAYoITM_LOCALo_struct {
- void *Nothing;
-};
-__ALIAS_ARRAYoITM_LOCALo ALIAS_ARRAYoITM_LOCALo_;
-#define ALIAS_ARRAYoITM_LOCALo__ (&ALIAS_ARRAYoITM_LOCALo_)
-
-// ARRAYED_COLLECTION[FAST_ARRAY[ITM_CODE]]
-#define __ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo__ 90
-typedef struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo_struct __ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo;
-struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo_struct {
- __INTEGER upper__BYT;
- __INTEGER capacity__TBU;
- void **storage__PCU;
-};
-__ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo_;
-#define ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo__ (&ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo_)
-
-// FAST_ARRAY[FAST_ARRAY[ITM_CODE]]
-#define __FAST_ARRAYoFAST_ARRAYoITM_CODEoo__ 91
-typedef struct FAST_ARRAYoFAST_ARRAYoITM_CODEoo_struct __FAST_ARRAYoFAST_ARRAYoITM_CODEoo;
-struct FAST_ARRAYoFAST_ARRAYoITM_CODEoo_struct {
- __ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo parent_arrayed_collection__PAI;
-};
-__FAST_ARRAYoFAST_ARRAYoITM_CODEoo FAST_ARRAYoFAST_ARRAYoITM_CODEoo_;
-#define FAST_ARRAYoFAST_ARRAYoITM_CODEoo__ (&FAST_ARRAYoFAST_ARRAYoITM_CODEoo_)
-
-// ALIAS_ARRAY[ITM_CODE]
-#define __ALIAS_ARRAYoITM_CODEo__ 92
-typedef struct ALIAS_ARRAYoITM_CODEo_struct __ALIAS_ARRAYoITM_CODEo;
-struct ALIAS_ARRAYoITM_CODEo_struct {
- void *Nothing;
-};
-__ALIAS_ARRAYoITM_CODEo ALIAS_ARRAYoITM_CODEo_;
-#define ALIAS_ARRAYoITM_CODEo__ (&ALIAS_ARRAYoITM_CODEo_)
-
-// ARRAYED_COLLECTION[FAST_ARRAY[STRING_CONSTANT]]
-#define __ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo__ 93
-typedef struct ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo_struct __ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo;
-struct ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo_struct {
- __INTEGER upper__LUU;
- __INTEGER capacity__QWU;
- void **storage__1WU;
-};
-__ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo_;
-#define ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo__ (&ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo_)
-
-// FAST_ARRAY[FAST_ARRAY[STRING_CONSTANT]]
-#define __FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo__ 94
-typedef struct FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo_struct __FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo;
-struct FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo_struct {
- __ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo parent_arrayed_collection__0AL;
-};
-__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo_;
-#define FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo__ (&FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo_)
-
-// ALIAS_ARRAY[STRING_CONSTANT]
-#define __ALIAS_ARRAYoSTRING_CONSTANTo__ 95
-typedef struct ALIAS_ARRAYoSTRING_CONSTANTo_struct __ALIAS_ARRAYoSTRING_CONSTANTo;
-struct ALIAS_ARRAYoSTRING_CONSTANTo_struct {
- void *Nothing;
-};
-__ALIAS_ARRAYoSTRING_CONSTANTo ALIAS_ARRAYoSTRING_CONSTANTo_;
-#define ALIAS_ARRAYoSTRING_CONSTANTo__ (&ALIAS_ARRAYoSTRING_CONSTANTo_)
-
-// ITM_LIST_IDF
-#define __ITM_LIST_IDF__ 34
-typedef struct ITM_LIST_IDF_struct __ITM_LIST_IDF;
-struct ITM_LIST_IDF_struct {
- unsigned long __id;
- __ITM_CODE parent_itm_code__1EJ;
-};
-__ITM_LIST_IDF ITM_LIST_IDF_={__ITM_LIST_IDF__};
-#define ITM_LIST_IDF__ (&ITM_LIST_IDF_)
-
-// ITM_LDOTS
-#define __ITM_LDOTS__ 35
-typedef struct ITM_LDOTS_struct __ITM_LDOTS;
-struct ITM_LDOTS_struct {
- unsigned long __id;
- __ITM_CODE parent_itm_constant__IXF;
-};
-__ITM_LDOTS ITM_LDOTS_={__ITM_LDOTS__};
-#define ITM_LDOTS__ (&ITM_LDOTS_)
-
-// ITM_PROTOTYPE
-#define __ITM_PROTOTYPE__ 36
-typedef struct ITM_PROTOTYPE_struct __ITM_PROTOTYPE;
-struct ITM_PROTOTYPE_struct {
- unsigned long __id;
- __ITM_CONSTANT parent_itm_constant__UYF;
-};
-__ITM_PROTOTYPE ITM_PROTOTYPE_={__ITM_PROTOTYPE__};
-#define ITM_PROTOTYPE__ (&ITM_PROTOTYPE_)
-
-// ITM_WRITE
-#define __ITM_WRITE__ 96
-typedef struct ITM_WRITE_struct __ITM_WRITE;
-struct ITM_WRITE_struct {
- __ITM_CODE parent_itm_code__QFJ;
-};
-__ITM_WRITE ITM_WRITE_;
-#define ITM_WRITE__ (&ITM_WRITE_)
-
-// ITM_WRITE_VALUE
-#define __ITM_WRITE_VALUE__ 37
-typedef struct ITM_WRITE_VALUE_struct __ITM_WRITE_VALUE;
-struct ITM_WRITE_VALUE_struct {
- unsigned long __id;
- __ITM_WRITE parent_itm_write__RFJ;
-};
-__ITM_WRITE_VALUE ITM_WRITE_VALUE_={__ITM_WRITE_VALUE__};
-#define ITM_WRITE_VALUE__ (&ITM_WRITE_VALUE_)
-
-// ITM_WRITE_CAST
-#define __ITM_WRITE_CAST__ 38
-typedef struct ITM_WRITE_CAST_struct __ITM_WRITE_CAST;
-struct ITM_WRITE_CAST_struct {
- unsigned long __id;
- __ITM_WRITE parent_itm_write__IGJ;
-};
-__ITM_WRITE_CAST ITM_WRITE_CAST_={__ITM_WRITE_CAST__};
-#define ITM_WRITE_CAST__ (&ITM_WRITE_CAST_)
-
-// ITM_READ
-#define __ITM_READ__ 39
-typedef struct ITM_READ_struct __ITM_READ;
-struct ITM_READ_struct {
- unsigned long __id;
- __ITM_CODE parent_itm_code__VIJ;
-};
-__ITM_READ ITM_READ_={__ITM_READ__};
-#define ITM_READ__ (&ITM_READ_)
-
-// ITM_WRITE_CODE
-#define __ITM_WRITE_CODE__ 40
-typedef struct ITM_WRITE_CODE_struct __ITM_WRITE_CODE;
-struct ITM_WRITE_CODE_struct {
- unsigned long __id;
- __ITM_WRITE parent_itm_write__TJJ;
-};
-__ITM_WRITE_CODE ITM_WRITE_CODE_={__ITM_WRITE_CODE__};
-#define ITM_WRITE_CODE__ (&ITM_WRITE_CODE_)
-
-// ITM_OPERATOR
-#define __ITM_OPERATOR__ 41
-typedef struct ITM_OPERATOR_struct __ITM_OPERATOR;
-struct ITM_OPERATOR_struct {
- unsigned long __id;
- __ITM_CODE parent_itm_code__VGL;
- void *name__AKL;
-};
-__ITM_OPERATOR ITM_OPERATOR_={__ITM_OPERATOR__};
-#define ITM_OPERATOR__ (&ITM_OPERATOR_)
-
-// ITM_READ_ARG1
-#define __ITM_READ_ARG1__ 42
-typedef struct ITM_READ_ARG1_struct __ITM_READ_ARG1;
-struct ITM_READ_ARG1_struct {
- unsigned long __id;
- __ITM_READ parent_itm_read__1JL;
-};
-__ITM_READ_ARG1 ITM_READ_ARG1_={__ITM_READ_ARG1__};
-#define ITM_READ_ARG1__ (&ITM_READ_ARG1_)
-
-// ITM_READ_ARG2
-#define __ITM_READ_ARG2__ 43
-typedef struct ITM_READ_ARG2_struct __ITM_READ_ARG2;
-struct ITM_READ_ARG2_struct {
- unsigned long __id;
- __ITM_READ parent_itm_read__IML;
-};
-__ITM_READ_ARG2 ITM_READ_ARG2_={__ITM_READ_ARG2__};
-#define ITM_READ_ARG2__ (&ITM_READ_ARG2_)
-
-// ITM_OLD
-#define __ITM_OLD__ 44
-typedef struct ITM_OLD_struct __ITM_OLD;
-struct ITM_OLD_struct {
- unsigned long __id;
- __ITM_CODE parent_itm_code__W3L;
-};
-__ITM_OLD ITM_OLD_={__ITM_OLD__};
-#define ITM_OLD__ (&ITM_OLD_)
-
-// ITM_EXTERN
-#define __ITM_EXTERN__ 97
-typedef struct ITM_EXTERN_struct __ITM_EXTERN;
-struct ITM_EXTERN_struct {
- __ITM_CODE parent_itm_code__K5M;
-};
-__ITM_EXTERN ITM_EXTERN_;
-#define ITM_EXTERN__ (&ITM_EXTERN_)
-
-// ITM_EXTERNAL_TYPE
-#define __ITM_EXTERNAL_TYPE__ 45
-typedef struct ITM_EXTERNAL_TYPE_struct __ITM_EXTERNAL_TYPE;
-struct ITM_EXTERNAL_TYPE_struct {
- unsigned long __id;
- __ITM_EXTERN parent_itm_extern__L5M;
- __BOOLEAN is_persistant__IIN;
-};
-__ITM_EXTERNAL_TYPE ITM_EXTERNAL_TYPE_={__ITM_EXTERNAL_TYPE__};
-#define ITM_EXTERNAL_TYPE__ (&ITM_EXTERNAL_TYPE_)
-
-// ITM_BLOCK
-#define __ITM_BLOCK__ 46
-typedef struct ITM_BLOCK_struct __ITM_BLOCK;
-struct ITM_BLOCK_struct {
- unsigned long __id;
- void *list__KMDC;
-};
-__ITM_BLOCK ITM_BLOCK_={__ITM_BLOCK__};
-#define ITM_BLOCK__ (&ITM_BLOCK_)
-
-// ITM_EXTERNAL
-#define __ITM_EXTERNAL__ 47
-typedef struct ITM_EXTERNAL_struct __ITM_EXTERNAL;
-struct ITM_EXTERNAL_struct {
- unsigned long __id;
- __ITM_EXTERN parent_itm_extern__QGN;
-};
-__ITM_EXTERNAL ITM_EXTERNAL_={__ITM_EXTERNAL__};
-#define ITM_EXTERNAL__ (&ITM_EXTERNAL_)
-
-// ITM_READ_ARGS
-#define __ITM_READ_ARGS__ 48
-typedef struct ITM_READ_ARGS_struct __ITM_READ_ARGS;
-struct ITM_READ_ARGS_struct {
- unsigned long __id;
- __ITM_READ parent_itm_read__GEO;
-};
-__ITM_READ_ARGS ITM_READ_ARGS_={__ITM_READ_ARGS__};
-#define ITM_READ_ARGS__ (&ITM_READ_ARGS_)
-
-// ARRAYED_COLLECTION[LIP_INTEGER]
-#define __ARRAYED_COLLECTIONoLIP_INTEGERo__ 98
-typedef struct ARRAYED_COLLECTIONoLIP_INTEGERo_struct __ARRAYED_COLLECTIONoLIP_INTEGERo;
-struct ARRAYED_COLLECTIONoLIP_INTEGERo_struct {
- __INTEGER upper__GIXE;
- __INTEGER capacity__IMXE;
- void **storage__TMXE;
-};
-__ARRAYED_COLLECTIONoLIP_INTEGERo ARRAYED_COLLECTIONoLIP_INTEGERo_;
-#define ARRAYED_COLLECTIONoLIP_INTEGERo__ (&ARRAYED_COLLECTIONoLIP_INTEGERo_)
-
-// FAST_ARRAY[LIP_INTEGER]
-#define __FAST_ARRAYoLIP_INTEGERo__ 99
-typedef struct FAST_ARRAYoLIP_INTEGERo_struct __FAST_ARRAYoLIP_INTEGERo;
-struct FAST_ARRAYoLIP_INTEGERo_struct {
- __ARRAYED_COLLECTIONoLIP_INTEGERo parent_arrayed_collection__3YSE;
-};
-__FAST_ARRAYoLIP_INTEGERo FAST_ARRAYoLIP_INTEGERo_;
-#define FAST_ARRAYoLIP_INTEGERo__ (&FAST_ARRAYoLIP_INTEGERo_)
-
-// ARRAYED_COLLECTION[LIP_STRING]
-#define __ARRAYED_COLLECTIONoLIP_STRINGo__ 100
-typedef struct ARRAYED_COLLECTIONoLIP_STRINGo_struct __ARRAYED_COLLECTIONoLIP_STRINGo;
-struct ARRAYED_COLLECTIONoLIP_STRINGo_struct {
- __INTEGER upper__WZPF;
- __INTEGER capacity__4AQF;
- void **storage__JBQF;
-};
-__ARRAYED_COLLECTIONoLIP_STRINGo ARRAYED_COLLECTIONoLIP_STRINGo_;
-#define ARRAYED_COLLECTIONoLIP_STRINGo__ (&ARRAYED_COLLECTIONoLIP_STRINGo_)
-
-// FAST_ARRAY[LIP_STRING]
-#define __FAST_ARRAYoLIP_STRINGo__ 101
-typedef struct FAST_ARRAYoLIP_STRINGo_struct __FAST_ARRAYoLIP_STRINGo;
-struct FAST_ARRAYoLIP_STRINGo_struct {
- __ARRAYED_COLLECTIONoLIP_STRINGo parent_arrayed_collection__G5FF;
-};
-__FAST_ARRAYoLIP_STRINGo FAST_ARRAYoLIP_STRINGo_;
-#define FAST_ARRAYoLIP_STRINGo__ (&FAST_ARRAYoLIP_STRINGo_)
-
-// LIP_BOOLEAN
-#define __LIP_BOOLEAN__ 49
-typedef struct LIP_BOOLEAN_struct __LIP_BOOLEAN;
-struct LIP_BOOLEAN_struct {
- unsigned long __id;
- __BOOLEAN value__MGQD;
-};
-__LIP_BOOLEAN LIP_BOOLEAN_={__LIP_BOOLEAN__};
-#define LIP_BOOLEAN__ (&LIP_BOOLEAN_)
-
-// TRUE
-#define TRUE__ 1
-
-// LIP_VALUE
-#define __LIP_VALUE__ 50
-typedef struct LIP_VALUE_struct __LIP_VALUE;
-struct LIP_VALUE_struct {
- unsigned long __id;
- __LIP_CODE parent_lip_code__1IFE;
- void *value__I1UE;
-};
-__LIP_VALUE LIP_VALUE_={__LIP_VALUE__};
-#define LIP_VALUE__ (&LIP_VALUE_)
-
-// ARRAYED_COLLECTION[FAST_ARRAY[LIP_CODE]]
-#define __ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo__ 102
-typedef struct ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo_struct __ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo;
-struct ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo_struct {
- __INTEGER upper__PTTD;
- __INTEGER capacity__QFUD;
- void **storage__MGUD;
-};
-__ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo_;
-#define ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo__ (&ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo_)
-
-// FAST_ARRAY[FAST_ARRAY[LIP_CODE]]
-#define __FAST_ARRAYoFAST_ARRAYoLIP_CODEoo__ 103
-typedef struct FAST_ARRAYoFAST_ARRAYoLIP_CODEoo_struct __FAST_ARRAYoFAST_ARRAYoLIP_CODEoo;
-struct FAST_ARRAYoFAST_ARRAYoLIP_CODEoo_struct {
- __ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo parent_arrayed_collection__WOID;
-};
-__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo FAST_ARRAYoFAST_ARRAYoLIP_CODEoo_;
-#define FAST_ARRAYoFAST_ARRAYoLIP_CODEoo__ (&FAST_ARRAYoFAST_ARRAYoLIP_CODEoo_)
-
-// ALIAS_ARRAY[LIP_CODE]
-#define __ALIAS_ARRAYoLIP_CODEo__ 104
-typedef struct ALIAS_ARRAYoLIP_CODEo_struct __ALIAS_ARRAYoLIP_CODEo;
-struct ALIAS_ARRAYoLIP_CODEo_struct {
- void *Nothing;
-};
-__ALIAS_ARRAYoLIP_CODEo ALIAS_ARRAYoLIP_CODEo_;
-#define ALIAS_ARRAYoLIP_CODEo__ (&ALIAS_ARRAYoLIP_CODEo_)
-
-// INPUT_STREAM
-#define __INPUT_STREAM__ 105
-typedef struct INPUT_STREAM_struct __INPUT_STREAM;
-struct INPUT_STREAM_struct {
- void *Nothing;
-};
-__INPUT_STREAM INPUT_STREAM_;
-#define INPUT_STREAM__ (&INPUT_STREAM_)
-
-// STD_INPUT
-#define __STD_INPUT__ 106
-typedef struct STD_INPUT_struct __STD_INPUT;
-struct STD_INPUT_struct {
- void *Nothing;
-};
-__STD_INPUT STD_INPUT_;
-#define STD_INPUT__ (&STD_INPUT_)
-
-// LIP_SLOT_DATA
-#define __LIP_SLOT_DATA__ 107
-typedef struct LIP_SLOT_DATA_struct __LIP_SLOT_DATA;
-struct LIP_SLOT_DATA_struct {
- void *Nothing;
-};
-__LIP_SLOT_DATA LIP_SLOT_DATA_;
-#define LIP_SLOT_DATA__ (&LIP_SLOT_DATA_)
-
-// ARRAYED_COLLECTION[LIP_SLOT_DATA]
-#define __ARRAYED_COLLECTIONoLIP_SLOT_DATAo__ 108
-typedef struct ARRAYED_COLLECTIONoLIP_SLOT_DATAo_struct __ARRAYED_COLLECTIONoLIP_SLOT_DATAo;
-struct ARRAYED_COLLECTIONoLIP_SLOT_DATAo_struct {
- __INTEGER upper__ADQF;
- __INTEGER capacity__HJQF;
- void **storage__SJQF;
-};
-__ARRAYED_COLLECTIONoLIP_SLOT_DATAo ARRAYED_COLLECTIONoLIP_SLOT_DATAo_;
-#define ARRAYED_COLLECTIONoLIP_SLOT_DATAo__ (&ARRAYED_COLLECTIONoLIP_SLOT_DATAo_)
-
-// FAST_ARRAY[LIP_SLOT_DATA]
-#define __FAST_ARRAYoLIP_SLOT_DATAo__ 109
-typedef struct FAST_ARRAYoLIP_SLOT_DATAo_struct __FAST_ARRAYoLIP_SLOT_DATAo;
-struct FAST_ARRAYoLIP_SLOT_DATAo_struct {
- __ARRAYED_COLLECTIONoLIP_SLOT_DATAo parent_arrayed_collection__H0UE;
-};
-__FAST_ARRAYoLIP_SLOT_DATAo FAST_ARRAYoLIP_SLOT_DATAo_;
-#define FAST_ARRAYoLIP_SLOT_DATAo__ (&FAST_ARRAYoLIP_SLOT_DATAo_)
-
-// LIP_SLOT_CODE
-#define __LIP_SLOT_CODE__ 110
-typedef struct LIP_SLOT_CODE_struct __LIP_SLOT_CODE;
-struct LIP_SLOT_CODE_struct {
- void *Nothing;
-};
-__LIP_SLOT_CODE LIP_SLOT_CODE_;
-#define LIP_SLOT_CODE__ (&LIP_SLOT_CODE_)
-
-// ARRAYED_COLLECTION[LIP_SLOT_CODE]
-#define __ARRAYED_COLLECTIONoLIP_SLOT_CODEo__ 111
-typedef struct ARRAYED_COLLECTIONoLIP_SLOT_CODEo_struct __ARRAYED_COLLECTIONoLIP_SLOT_CODEo;
-struct ARRAYED_COLLECTIONoLIP_SLOT_CODEo_struct {
- __INTEGER upper__M2KF;
- __INTEGER capacity__IEQF;
- void **storage__TEQF;
-};
-__ARRAYED_COLLECTIONoLIP_SLOT_CODEo ARRAYED_COLLECTIONoLIP_SLOT_CODEo_;
-#define ARRAYED_COLLECTIONoLIP_SLOT_CODEo__ (&ARRAYED_COLLECTIONoLIP_SLOT_CODEo_)
-
-// FAST_ARRAY[LIP_SLOT_CODE]
-#define __FAST_ARRAYoLIP_SLOT_CODEo__ 112
-typedef struct FAST_ARRAYoLIP_SLOT_CODEo_struct __FAST_ARRAYoLIP_SLOT_CODEo;
-struct FAST_ARRAYoLIP_SLOT_CODEo_struct {
- __ARRAYED_COLLECTIONoLIP_SLOT_CODEo parent_arrayed_collection__C2KF;
-};
-__FAST_ARRAYoLIP_SLOT_CODEo FAST_ARRAYoLIP_SLOT_CODEo_;
-#define FAST_ARRAYoLIP_SLOT_CODEo__ (&FAST_ARRAYoLIP_SLOT_CODEo_)
-
-// HASHED_DICTIONARY_NODE[SECTION_,STRING_CONSTANT]
-#define __HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__ 113
-typedef struct HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo_struct __HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo;
-struct HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo_struct {
- void *key__YOEC;
- void *item__LPEC;
- void *next__DPEC;
-};
-__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo_;
-#define HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__ (&HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo_)
-
-// HASHED_DICTIONARY[SECTION_,STRING_CONSTANT]
-#define __HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__ 114
-typedef struct HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo_struct __HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo;
-struct HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo_struct {
- __INTEGER capacity__HOEC;
- __INTEGER count__JYFC;
- void **buckets__MOEC;
-};
-__HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo_;
-#define HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__ (&HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo_)
-
-// HASHED_DICTIONARY_NODE[SECTION_,FAST_ARRAY[ITM_TYPE_MONO]]
-#define __HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__ 115
-typedef struct HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo_struct __HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo;
-struct HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo_struct {
- void *item__RREC;
- void *key__4QEC;
- void *next__JREC;
-};
-__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo_;
-#define HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__ (&HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo_)
-
-// HASHED_DICTIONARY[SECTION_,FAST_ARRAY[ITM_TYPE_MONO]]
-#define __HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__ 116
-typedef struct HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo_struct __HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo;
-struct HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo_struct {
- __INTEGER capacity__NQEC;
- __INTEGER count__D1FC;
- void **buckets__SQEC;
-};
-__HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo_;
-#define HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__ (&HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo_)
-
-// ARRAYED_COLLECTION[FAST_ARRAY[ITM_ARGUMENT]]
-#define __ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo__ 117
-typedef struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo_struct __ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo;
-struct ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo_struct {
- __INTEGER upper__0SGC;
- __INTEGER capacity__CKHC;
- void **storage__NKHC;
-};
-__ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo_;
-#define ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo__ (&ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo_)
-
-// FAST_ARRAY[FAST_ARRAY[ITM_ARGUMENT]]
-#define __FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo__ 118
-typedef struct FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo_struct __FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo;
-struct FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo_struct {
- __ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo parent_arrayed_collection__PS1B;
-};
-__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo_;
-#define FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo__ (&FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo_)
-
-// ALIAS_ARRAY[ITM_ARGUMENT]
-#define __ALIAS_ARRAYoITM_ARGUMENTo__ 119
-typedef struct ALIAS_ARRAYoITM_ARGUMENTo_struct __ALIAS_ARRAYoITM_ARGUMENTo;
-struct ALIAS_ARRAYoITM_ARGUMENTo_struct {
- void *Nothing;
-};
-__ALIAS_ARRAYoITM_ARGUMENTo ALIAS_ARRAYoITM_ARGUMENTo_;
-#define ALIAS_ARRAYoITM_ARGUMENTo__ (&ALIAS_ARRAYoITM_ARGUMENTo_)
-
-// ARRAYED_COLLECTION[ITM_SLOT]
-#define __ARRAYED_COLLECTIONoITM_SLOTo__ 120
-typedef struct ARRAYED_COLLECTIONoITM_SLOTo_struct __ARRAYED_COLLECTIONoITM_SLOTo;
-struct ARRAYED_COLLECTIONoITM_SLOTo_struct {
- __INTEGER upper__UOTD;
- __INTEGER capacity__RCWE;
- void **storage__UPWE;
-};
-__ARRAYED_COLLECTIONoITM_SLOTo ARRAYED_COLLECTIONoITM_SLOTo_;
-#define ARRAYED_COLLECTIONoITM_SLOTo__ (&ARRAYED_COLLECTIONoITM_SLOTo_)
-
-// FAST_ARRAY[ITM_SLOT]
-#define __FAST_ARRAYoITM_SLOTo__ 121
-typedef struct FAST_ARRAYoITM_SLOTo_struct __FAST_ARRAYoITM_SLOTo;
-struct FAST_ARRAYoITM_SLOTo_struct {
- __ARRAYED_COLLECTIONoITM_SLOTo parent_arrayed_collection__XNTD;
-};
-__FAST_ARRAYoITM_SLOTo FAST_ARRAYoITM_SLOTo_;
-#define FAST_ARRAYoITM_SLOTo__ (&FAST_ARRAYoITM_SLOTo_)
-
-// TYPE_NULL
-#define __TYPE_NULL__ 51
-typedef struct TYPE_NULL_struct __TYPE_NULL;
-struct TYPE_NULL_struct {
- unsigned long __id;
-};
-__TYPE_NULL TYPE_NULL_={__TYPE_NULL__};
-#define TYPE_NULL__ (&TYPE_NULL_)
-
-// TYPE_VOID
-#define __TYPE_VOID__ 52
-typedef struct TYPE_VOID_struct __TYPE_VOID;
-struct TYPE_VOID_struct {
- unsigned long __id;
-};
-__TYPE_VOID TYPE_VOID_={__TYPE_VOID__};
-#define TYPE_VOID__ (&TYPE_VOID_)
-
-// TYPE_CONTEXT
-#define __TYPE_CONTEXT__ 53
-typedef struct TYPE_CONTEXT_struct __TYPE_CONTEXT;
-struct TYPE_CONTEXT_struct {
- unsigned long __id;
-};
-__TYPE_CONTEXT TYPE_CONTEXT_={__TYPE_CONTEXT__};
-#define TYPE_CONTEXT__ (&TYPE_CONTEXT_)
-
-// INTEGER_32
-typedef signed long __INTEGER_32;
-
-// UINTEGER_64
-typedef unsigned long long __UINTEGER_64;
-
-// INTEGER_64
-typedef signed long long __INTEGER_64;
-
-
-void *table_type[122];
-
-//==========================//
-// GLOBAL //
-//==========================//
-
-void *parent_numeric__J;
-__INTEGER type_error__5PG;
-void *msg_err__AQG;
-void *prototype_list__BJ;
-void *prototype_dico__LUS;
-void *list_tmp__YNTD;
-void *str_tmp__PP4E;
-void *str_tmp2__RR4E;
-void *str_tmp3__RV4E;
-void *list_id__CBB;
-void *string_tmp__LGD;
-void *string_tmp2__JZAC;
-void *alias__2GD;
-void *string_tmp3__PZAC;
-void *bucket_name__2ROB;
-void *bucket_list__XTOB;
-__POINTER begin_memory__4XH;
-__UINTEGER_32 nb_page__DUJ;
-__UINTEGER_64 capacity_max__R54;
-void *first_free__0BVB;
-void *short_dico__QD;
-void *object__ZBC;
-void *source__5BC;
-__INTEGER position__CCC;
-__INTEGER pos_cur__FCC;
-__INTEGER pos_line__GCC;
-__INTEGER pos_col__HCC;
-__BOOLEAN is_active_short__OCC;
-__INTEGER short_derive__PCC;
-void *short_local__XCC;
-void *last_comment_extern__XZC;
-void *last_string__D2C;
-void *last_section__S2C;
-void *token__BED;
-__BOOLEAN skip_comment__ZBE;
-void *last_comment_slot__LCE;
-__INTEGER begin_position__BDE;
-__BOOLEAN is_parameter_type__AME;
-void *last_group__TWF;
-__INTEGER old_position__ITI;
-__INTEGER old_pos_cur__KTI;
-__INTEGER old_pos_line__MTI;
-__INTEGER old_pos_col__OTI;
-__INTEGER old_short_derive__QTI;
-__INTEGER_64 last_integer__VSO;
-void *last_slot__VUOB;
-void *dico__JKP;
-void *dico__1MN;
-void *type_void__WYF;
-void *dico__XVI;
-void *type_self__DVN;
-void *type_null__1VN;
-void *dico__CPR;
-void *dico__TYP;
-void *list_data__HONC;
-void *stack__I0UE;
-void *list_method__D2KF;
-void *storage__4YSE;
-void *storage__H5FF;
-__UINTEGER_32 clone_allocation_size__NTB;
-__POINTER get_begin_memory__RAQB;
-void *list__FK;
-void *free__3OP;
-void *string_tmp__VH;
-void *output_code__SI;
-void *string_tmp3__HUD;
-void *string_tmp4__JUD;
-void *output_decl__VHE;
-void *string_tmp2__GCJ;
-void *path_file__1FXF;
-__BOOLEAN is_short_recursive__JB;
-__BOOLEAN is_shorter2__VI;
-__BOOLEAN is_shorter__LZ;
-__BOOLEAN is_short_code__11;
-__BOOLEAN is_short_private__J2;
-void *directory_list__YB;
-void *file_list__0B;
-void *current_list__2B;
-void *input_name__3B;
-void *proto_input__BI;
-void *output_name__DI;
-void *format_name__N1;
-void *string_tmp__4VX;
-__INTEGER index_count__P5;
-void *free_list__GVP;
-void *empty_list__NWP;
-void *bucket__YWP;
-void *free_list__0TI;
-void *free_list__QAI;
-void *free_list__1AL;
-void *empty_list__IOMF;
-void *bucket__SOMF;
-void *true__5YLF;
-void *free_list__XOID;
-__INTEGER last_integer__AZUE;
-void *last_string__SZUE;
-__BOOLEAN push_back_flag__P0MF;
-__CHARACTER memory__OGMF;
-void *free_list__QS1B;
-
-//==========================//
-// STRING CONSTANT //
-//==========================//
-
-__STRING_CONSTANT __string_1={__STRING_CONSTANT__,4,"SELF"};
-__STRING_CONSTANT __string_2={__STRING_CONSTANT__,4,"NULL"};
-__STRING_CONSTANT __string_3={__STRING_CONSTANT__,4,"VOID"};
-__STRING_CONSTANT __string_4={__STRING_CONSTANT__,7,"Section"};
-__STRING_CONSTANT __string_5={__STRING_CONSTANT__,5,"Right"};
-__STRING_CONSTANT __string_6={__STRING_CONSTANT__,4,"Left"};
-__STRING_CONSTANT __string_7={__STRING_CONSTANT__,3,"..."};
-__STRING_CONSTANT __string_8={__STRING_CONSTANT__,3,"Old"};
-__STRING_CONSTANT __string_9={__STRING_CONSTANT__,8,"Expanded"};
-__STRING_CONSTANT __string_10={__STRING_CONSTANT__,6,"Strict"};
-__STRING_CONSTANT __string_11={__STRING_CONSTANT__,6,"Result"};
-__STRING_CONSTANT __string_12={__STRING_CONSTANT__,2,":="};
-__STRING_CONSTANT __string_13={__STRING_CONSTANT__,2,"?="};
-__STRING_CONSTANT __string_14={__STRING_CONSTANT__,2,"<-"};
-__STRING_CONSTANT __string_15={__STRING_CONSTANT__,2,"->"};
-__STRING_CONSTANT __string_16={__STRING_CONSTANT__,1,"="};
-__STRING_CONSTANT __string_17={__STRING_CONSTANT__,2,"!="};
-__STRING_CONSTANT __string_18={__STRING_CONSTANT__,1,">"};
-__STRING_CONSTANT __string_19={__STRING_CONSTANT__,2,">="};
-__STRING_CONSTANT __string_20={__STRING_CONSTANT__,1,"<"};
-__STRING_CONSTANT __string_21={__STRING_CONSTANT__,2,"<="};
-__STRING_CONSTANT __string_22={__STRING_CONSTANT__,6,"Header"};
-__STRING_CONSTANT __string_23={__STRING_CONSTANT__,7,"Inherit"};
-__STRING_CONSTANT __string_24={__STRING_CONSTANT__,6,"Insert"};
-__STRING_CONSTANT __string_25={__STRING_CONSTANT__,9,"Interrupt"};
-__STRING_CONSTANT __string_26={__STRING_CONSTANT__,7,"Private"};
-__STRING_CONSTANT __string_27={__STRING_CONSTANT__,6,"Public"};
-__STRING_CONSTANT __string_28={__STRING_CONSTANT__,7,"Mapping"};
-__STRING_CONSTANT __string_29={__STRING_CONSTANT__,9,"Directory"};
-__STRING_CONSTANT __string_30={__STRING_CONSTANT__,8,"External"};
-__STRING_CONSTANT __string_31={__STRING_CONSTANT__,7,"DEFAULT"};
-__STRING_CONSTANT __string_32={__STRING_CONSTANT__,6,"Common"};
-__STRING_CONSTANT __string_33={__STRING_CONSTANT__,7,"INTEGER"};
-__STRING_CONSTANT __string_34={__STRING_CONSTANT__,4,"REAL"};
-__STRING_CONSTANT __string_35={__STRING_CONSTANT__,9,"CHARACTER"};
-__STRING_CONSTANT __string_36={__STRING_CONSTANT__,15,"STRING_CONSTANT"};
-__STRING_CONSTANT __string_37={__STRING_CONSTANT__,6,"STRING"};
-__STRING_CONSTANT __string_38={__STRING_CONSTANT__,12,"NATIVE_ARRAY"};
-__STRING_CONSTANT __string_39={__STRING_CONSTANT__,21,"NATIVE_ARRAY_VOLATILE"};
-__STRING_CONSTANT __string_40={__STRING_CONSTANT__,5,"BLOCK"};
-__STRING_CONSTANT __string_41={__STRING_CONSTANT__,7,"BOOLEAN"};
-__STRING_CONSTANT __string_42={__STRING_CONSTANT__,4,"TRUE"};
-__STRING_CONSTANT __string_43={__STRING_CONSTANT__,5,"FALSE"};
-__STRING_CONSTANT __string_44={__STRING_CONSTANT__,7,"POINTER"};
-__STRING_CONSTANT __string_45={__STRING_CONSTANT__,10,"___CONTEXT"};
-__STRING_CONSTANT __string_46={__STRING_CONSTANT__,10,"___GENERIC"};
-__STRING_CONSTANT __string_47={__STRING_CONSTANT__,10,"___TYPE_ID"};
-__STRING_CONSTANT __string_48={__STRING_CONSTANT__,11,"UINTEGER_64"};
-__STRING_CONSTANT __string_49={__STRING_CONSTANT__,11,"UINTEGER_32"};
-__STRING_CONSTANT __string_50={__STRING_CONSTANT__,11,"UINTEGER_16"};
-__STRING_CONSTANT __string_51={__STRING_CONSTANT__,10,"UINTEGER_8"};
-__STRING_CONSTANT __string_52={__STRING_CONSTANT__,10,"INTEGER_64"};
-__STRING_CONSTANT __string_53={__STRING_CONSTANT__,10,"INTEGER_32"};
-__STRING_CONSTANT __string_54={__STRING_CONSTANT__,10,"INTEGER_16"};
-__STRING_CONSTANT __string_55={__STRING_CONSTANT__,9,"INTEGER_8"};
-__STRING_CONSTANT __string_56={__STRING_CONSTANT__,23,"NATIVE_ARRAY__CHARACT\
-ER"};
-__STRING_CONSTANT __string_57={__STRING_CONSTANT__,37,"NATIVE_ARRAY__NATIVE_\
-ARRAY__CHARACTER"};
-__STRING_CONSTANT __string_58={__STRING_CONSTANT__,4,"Self"};
-__STRING_CONSTANT __string_59={__STRING_CONSTANT__,5,"__pos"};
-__STRING_CONSTANT __string_60={__STRING_CONSTANT__,5,"__tmp"};
-__STRING_CONSTANT __string_61={__STRING_CONSTANT__,6,"lisaac"};
-__STRING_CONSTANT __string_62={__STRING_CONSTANT__,4,"name"};
-__STRING_CONSTANT __string_63={__STRING_CONSTANT__,6,"export"};
-__STRING_CONSTANT __string_64={__STRING_CONSTANT__,6,"import"};
-__STRING_CONSTANT __string_65={__STRING_CONSTANT__,8,"external"};
-__STRING_CONSTANT __string_66={__STRING_CONSTANT__,7,"default"};
-__STRING_CONSTANT __string_67={__STRING_CONSTANT__,4,"type"};
-__STRING_CONSTANT __string_68={__STRING_CONSTANT__,7,"version"};
-__STRING_CONSTANT __string_69={__STRING_CONSTANT__,4,"date"};
-__STRING_CONSTANT __string_70={__STRING_CONSTANT__,7,"comment"};
-__STRING_CONSTANT __string_71={__STRING_CONSTANT__,6,"author"};
-__STRING_CONSTANT __string_72={__STRING_CONSTANT__,12,"bibliography"};
-__STRING_CONSTANT __string_73={__STRING_CONSTANT__,8,"language"};
-__STRING_CONSTANT __string_74={__STRING_CONSTANT__,9,"copyright"};
-__STRING_CONSTANT __string_75={__STRING_CONSTANT__,10,"bug_report"};
-__STRING_CONSTANT __string_76={__STRING_CONSTANT__,5,"value"};
-__STRING_CONSTANT __string_77={__STRING_CONSTANT__,4,"self"};
-__STRING_CONSTANT __string_78={__STRING_CONSTANT__,4,"__id"};
-__STRING_CONSTANT __string_79={__STRING_CONSTANT__,5,"clone"};
-__STRING_CONSTANT __string_80={__STRING_CONSTANT__,4,"main"};
-__STRING_CONSTANT __string_81={__STRING_CONSTANT__,7,"__infix"};
-__STRING_CONSTANT __string_82={__STRING_CONSTANT__,9,"__postfix"};
-__STRING_CONSTANT __string_83={__STRING_CONSTANT__,8,"__prefix"};
-__STRING_CONSTANT __string_84={__STRING_CONSTANT__,3,"to_"};
-__STRING_CONSTANT __string_85={__STRING_CONSTANT__,5,"from_"};
-__STRING_CONSTANT __string_86={__STRING_CONSTANT__,7,"storage"};
-__STRING_CONSTANT __string_87={__STRING_CONSTANT__,5,"count"};
-__STRING_CONSTANT __string_88={__STRING_CONSTANT__,3,"lip"};
-__STRING_CONSTANT __string_89={__STRING_CONSTANT__,2,"if"};
-__STRING_CONSTANT __string_90={__STRING_CONSTANT__,4,"else"};
-__STRING_CONSTANT __string_91={__STRING_CONSTANT__,5,"print"};
-__STRING_CONSTANT __string_92={__STRING_CONSTANT__,4,"exit"};
-__STRING_CONSTANT __string_93={__STRING_CONSTANT__,3,"run"};
-__STRING_CONSTANT __string_94={__STRING_CONSTANT__,4,"path"};
-__STRING_CONSTANT __string_95={__STRING_CONSTANT__,9,"front_end"};
-__STRING_CONSTANT __string_96={__STRING_CONSTANT__,8,"back_end"};
-__STRING_CONSTANT __string_97={__STRING_CONSTANT__,10,"input_file"};
-__STRING_CONSTANT __string_98={__STRING_CONSTANT__,11,"debug_level"};
-__STRING_CONSTANT __string_99={__STRING_CONSTANT__,15,"debug_with_code"};
-__STRING_CONSTANT __string_100={__STRING_CONSTANT__,14,"is_all_warning"};
-__STRING_CONSTANT __string_101={__STRING_CONSTANT__,15,"is_optimization"};
-__STRING_CONSTANT __string_102={__STRING_CONSTANT__,12,"inline_level"};
-__STRING_CONSTANT __string_103={__STRING_CONSTANT__,7,"is_java"};
-__STRING_CONSTANT __string_104={__STRING_CONSTANT__,12,"is_statistic"};
-__STRING_CONSTANT __string_105={__STRING_CONSTANT__,8,"is_quiet"};
-__STRING_CONSTANT __string_106={__STRING_CONSTANT__,11,"get_integer"};
-__STRING_CONSTANT __string_107={__STRING_CONSTANT__,10,"get_string"};
-__STRING_CONSTANT __string_108={__STRING_CONSTANT__,6,"is_cop"};
-__STRING_CONSTANT __string_109={__STRING_CONSTANT__,4,"void"};
-__STRING_CONSTANT __string_110={__STRING_CONSTANT__,9,"struct __"};
-__STRING_CONSTANT __string_111={__STRING_CONSTANT__,13,"/* NOTHING */"};
-__STRING_CONSTANT __string_112={__STRING_CONSTANT__,2,"__"};
-__STRING_CONSTANT __string_113={__STRING_CONSTANT__,22,"__PATH_LISAAC_SYSTEM\
-__"};
-__STRING_CONSTANT __string_114={__STRING_CONSTANT__,23,"__SHORT_LISAAC_FORMA\
-T__"};
-__STRING_CONSTANT __string_115={__STRING_CONSTANT__,5,"token"};
-__STRING_CONSTANT __string_116={__STRING_CONSTANT__,9,"type_file"};
-__STRING_CONSTANT __string_117={__STRING_CONSTANT__,5,"begin"};
-__STRING_CONSTANT __string_118={__STRING_CONSTANT__,3,"end"};
-__STRING_CONSTANT __string_119={__STRING_CONSTANT__,7,"keyword"};
-__STRING_CONSTANT __string_120={__STRING_CONSTANT__,15,"keyword_section"};
-__STRING_CONSTANT __string_121={__STRING_CONSTANT__,7,"integer"};
-__STRING_CONSTANT __string_122={__STRING_CONSTANT__,9,"character"};
-__STRING_CONSTANT __string_123={__STRING_CONSTANT__,6,"string"};
-__STRING_CONSTANT __string_124={__STRING_CONSTANT__,8,"operator"};
-__STRING_CONSTANT __string_125={__STRING_CONSTANT__,9,"prototype"};
-__STRING_CONSTANT __string_126={__STRING_CONSTANT__,12,"keyprototype"};
-__STRING_CONSTANT __string_127={__STRING_CONSTANT__,12,"comment_line"};
-__STRING_CONSTANT __string_128={__STRING_CONSTANT__,17,"comment_slot_line"};
-__STRING_CONSTANT __string_129={__STRING_CONSTANT__,19,"comment_header_line"};
-__STRING_CONSTANT __string_130={__STRING_CONSTANT__,4,"slot"};
-__STRING_CONSTANT __string_131={__STRING_CONSTANT__,9,"slot_call"};
-__STRING_CONSTANT __string_132={__STRING_CONSTANT__,10,"slot_style"};
-__STRING_CONSTANT __string_133={__STRING_CONSTANT__,5,"block"};
-__STRING_CONSTANT __string_134={__STRING_CONSTANT__,5,"local"};
-__STRING_CONSTANT __string_135={__STRING_CONSTANT__,7,"warning"};
-__STRING_CONSTANT __string_136={__STRING_CONSTANT__,10,"identifier"};
-__STRING_CONSTANT __string_137={__STRING_CONSTANT__,15,"identifier_slot"};
-__STRING_CONSTANT __string_138={__STRING_CONSTANT__,23,"prototype_comment_li\
-ght"};
-__STRING_CONSTANT __string_139={__STRING_CONSTANT__,17,"prototype_comment"};
-__STRING_CONSTANT __string_140={__STRING_CONSTANT__,5,"title"};
-__STRING_CONSTANT __string_141={__STRING_CONSTANT__,11,"table_begin"};
-__STRING_CONSTANT __string_142={__STRING_CONSTANT__,10,"table_item"};
-__STRING_CONSTANT __string_143={__STRING_CONSTANT__,15,"table_slot_name"};
-__STRING_CONSTANT __string_144={__STRING_CONSTANT__,18,"table_slot_comment"};
-__STRING_CONSTANT __string_145={__STRING_CONSTANT__,9,"table_end"};
-__STRING_CONSTANT __string_146={__STRING_CONSTANT__,9,"sub_title"};
-__STRING_CONSTANT __string_147={__STRING_CONSTANT__,10,"slot_title"};
-__STRING_CONSTANT __string_148={__STRING_CONSTANT__,12,"subsub_title"};
-__STRING_CONSTANT __string_149={__STRING_CONSTANT__,14,"prototype_path"};
-__STRING_CONSTANT __string_150={__STRING_CONSTANT__,5,"index"};
-__STRING_CONSTANT __string_151={__STRING_CONSTANT__,20,"directory_list_begin"};
-__STRING_CONSTANT __string_152={__STRING_CONSTANT__,19,"directory_list_item"};
-__STRING_CONSTANT __string_153={__STRING_CONSTANT__,18,"directory_list_end"};
-__STRING_CONSTANT __string_154={__STRING_CONSTANT__,15,"file_list_begin"};
-__STRING_CONSTANT __string_155={__STRING_CONSTANT__,14,"file_list_item"};
-__STRING_CONSTANT __string_156={__STRING_CONSTANT__,13,"file_list_end"};
-__STRING_CONSTANT __string_157={__STRING_CONSTANT__,1976,"------------------\
-----------------------------------------------\n-- Lisaac \
-source Shorter --\n-- LORIA - LSIIT - ULP - CN\
-RS - FRANCE --\n-- Benoit SONNTAG - sonntag at icps.u-stras\
-bg.fr --\n-- http://www.IsaacOS.com \
- --\n----------------------------------------------------------------\nUs\
-age: \n shorter <input\
-_file[.li]> [Options] \n \
- \nOptions: \
- \n -o <output> : output file or directory \
- \n (default: <input_file.ext>) \n -p \
- : include `Section Private' \n -c : inc\
-lude code source \n -r : recursive builder\
- documentation \n -f <format_file> : formatting description file \
- \n (see `/lisaac/shorter/') \n -d\
- : Lisaac doc style (no -c, -r) \n \
- \nExamples: \
- \n * Output format file: \
- \n shorter -c -p -f latex hello_world.li \
-\n \n * Build ht\
-ml documentation: \n shorter -r -f html ~/l\
-isaac/lib \n \
- \n * Build html documentation style JavaDoc: \
- \n shorter -d -f belinda ~/lisaac/lib \n \
- \nBug report: \
- \n post in : https://gna.\
-org/bugs/?group=isaac \n mail to : sonntag at icps.u-strasbg.fr \
- \n"};
-__STRING_CONSTANT __string_158={__STRING_CONSTANT__,8,"shorter/"};
-__STRING_CONSTANT __string_159={__STRING_CONSTANT__,3,".li"};
-__STRING_CONSTANT __string_160={__STRING_CONSTANT__,20,"Error: File format `"};
-__STRING_CONSTANT __string_161={__STRING_CONSTANT__,16,"' is not open !\n"};
-__STRING_CONSTANT __string_162={__STRING_CONSTANT__,26,"Incorrect slot ident\
-ifier."};
-__STRING_CONSTANT __string_163={__STRING_CONSTANT__,23,"Double definition sl\
-ot."};
-__STRING_CONSTANT __string_164={__STRING_CONSTANT__,26,"Assignment ':=' is n\
-eeded."};
-__STRING_CONSTANT __string_165={__STRING_CONSTANT__,28,"Incorrect format exp\
-ression."};
-__STRING_CONSTANT __string_166={__STRING_CONSTANT__,21,"Incorrect definition."};
-__STRING_CONSTANT __string_167={__STRING_CONSTANT__,20,"Added ';' is needed."};
-__STRING_CONSTANT __string_168={__STRING_CONSTANT__,17,"Incorrect symbol."};
-__STRING_CONSTANT __string_169={__STRING_CONSTANT__,18,"Error: directory `"};
-__STRING_CONSTANT __string_170={__STRING_CONSTANT__,13,"\' not found.\n"};
-__STRING_CONSTANT __string_171={__STRING_CONSTANT__,12,"\' not open.\n"};
-__STRING_CONSTANT __string_172={__STRING_CONSTANT__,4,".txt"};
-__STRING_CONSTANT __string_173={__STRING_CONSTANT__,14,"directory_list"};
-__STRING_CONSTANT __string_174={__STRING_CONSTANT__,9,"file_list"};
-__STRING_CONSTANT __string_175={__STRING_CONSTANT__,22,"Inherit/Insert Summa\
-ry"};
-__STRING_CONSTANT __string_176={__STRING_CONSTANT__,12,"Slot Summary"};
-__STRING_CONSTANT __string_177={__STRING_CONSTANT__,7,"inherit"};
-__STRING_CONSTANT __string_178={__STRING_CONSTANT__,6,"insert"};
-__STRING_CONSTANT __string_179={__STRING_CONSTANT__,14," No developed."};
-__STRING_CONSTANT __string_180={__STRING_CONSTANT__,6,"create"};
-__STRING_CONSTANT __string_181={__STRING_CONSTANT__,19,"Constructor Summary"};
-__STRING_CONSTANT __string_182={__STRING_CONSTANT__,21,"Inherit/Insert Detail"};
-__STRING_CONSTANT __string_183={__STRING_CONSTANT__,11,"Detail slot"};
-__STRING_CONSTANT __string_184={__STRING_CONSTANT__,7," line #"};
-__STRING_CONSTANT __string_185={__STRING_CONSTANT__,8,"Section:"};
-__STRING_CONSTANT __string_186={__STRING_CONSTANT__,8,"Profile:"};
-__STRING_CONSTANT __string_187={__STRING_CONSTANT__,18,"Constructor Detail"};
-__STRING_CONSTANT __string_188={__STRING_CONSTANT__,4,"_add"};
-__STRING_CONSTANT __string_189={__STRING_CONSTANT__,4,"_sub"};
-__STRING_CONSTANT __string_190={__STRING_CONSTANT__,9,"_logicnot"};
-__STRING_CONSTANT __string_191={__STRING_CONSTANT__,4,"_not"};
-__STRING_CONSTANT __string_192={__STRING_CONSTANT__,4,"_div"};
-__STRING_CONSTANT __string_193={__STRING_CONSTANT__,4,"_mul"};
-__STRING_CONSTANT __string_194={__STRING_CONSTANT__,4,"_xor"};
-__STRING_CONSTANT __string_195={__STRING_CONSTANT__,4,"_mod"};
-__STRING_CONSTANT __string_196={__STRING_CONSTANT__,8,"_greater"};
-__STRING_CONSTANT __string_197={__STRING_CONSTANT__,5,"_less"};
-__STRING_CONSTANT __string_198={__STRING_CONSTANT__,6,"_equal"};
-__STRING_CONSTANT __string_199={__STRING_CONSTANT__,7,"_notdiv"};
-__STRING_CONSTANT __string_200={__STRING_CONSTANT__,3,"_or"};
-__STRING_CONSTANT __string_201={__STRING_CONSTANT__,4,"_and"};
-__STRING_CONSTANT __string_202={__STRING_CONSTANT__,7,"_dollar"};
-__STRING_CONSTANT __string_203={__STRING_CONSTANT__,6,"_diese"};
-__STRING_CONSTANT __string_204={__STRING_CONSTANT__,3,"_at"};
-__STRING_CONSTANT __string_205={__STRING_CONSTANT__,4,"_ask"};
-__STRING_CONSTANT __string_206={__STRING_CONSTANT__,26,"End of comment not f\
-ound !"};
-__STRING_CONSTANT __string_207={__STRING_CONSTANT__,24,"Identifier is incorr\
-ect."};
-__STRING_CONSTANT __string_208={__STRING_CONSTANT__,22,"Line counter overflo\
-w."};
-__STRING_CONSTANT __string_209={__STRING_CONSTANT__,40,"Column counter overf\
-low (line too long)."};
-__STRING_CONSTANT __string_210={__STRING_CONSTANT__,20,"--SYNTAX-----------\n"};
-__STRING_CONSTANT __string_211={__STRING_CONSTANT__,20,"--SEMANTIC---------\n"};
-__STRING_CONSTANT __string_212={__STRING_CONSTANT__,20,"--WARNING----------\n"};
-__STRING_CONSTANT __string_213={__STRING_CONSTANT__,20,"--MESSAGE----------\n"};
-__STRING_CONSTANT __string_214={__STRING_CONSTANT__,6,"\nLine "};
-__STRING_CONSTANT __string_215={__STRING_CONSTANT__,8," column "};
-__STRING_CONSTANT __string_216={__STRING_CONSTANT__,4," in "};
-__STRING_CONSTANT __string_217={__STRING_CONSTANT__,3,"):\n"};
-__STRING_CONSTANT __string_218={__STRING_CONSTANT__,2,"^\n"};
-__STRING_CONSTANT __string_219={__STRING_CONSTANT__,21,"Variable not `token'."};
-__STRING_CONSTANT __string_220={__STRING_CONSTANT__,13,"Crash system."};
-__STRING_CONSTANT __string_221={__STRING_CONSTANT__,1,"."};
-__STRING_CONSTANT __string_222={__STRING_CONSTANT__,20,"Warning: directory `"};
-__STRING_CONSTANT __string_223={__STRING_CONSTANT__,36,"Error: Double defini\
-tion prototype:\n"};
-__STRING_CONSTANT __string_224={__STRING_CONSTANT__,12,"Error: File "};
-__STRING_CONSTANT __string_225={__STRING_CONSTANT__,18," is not created !\n"};
-__STRING_CONSTANT __string_226={__STRING_CONSTANT__,15," is not open !\n"};
-__STRING_CONSTANT __string_227={__STRING_CONSTANT__,20,"`Section' is needed."};
-__STRING_CONSTANT __string_228={__STRING_CONSTANT__,27,"Section `Header' is \
-needed."};
-__STRING_CONSTANT __string_229={__STRING_CONSTANT__,22,"Slot `name' not foun\
-d."};
-__STRING_CONSTANT __string_230={__STRING_CONSTANT__,23,"Incorrect type secti\
-on."};
-__STRING_CONSTANT __string_231={__STRING_CONSTANT__,50,"`Section Inherit/Ins\
-ert' must to be first section."};
-__STRING_CONSTANT __string_232={__STRING_CONSTANT__,78,"`Section Inherit' is\
- not possible with Expanded object (Use `Section Insert')."};
-__STRING_CONSTANT __string_233={__STRING_CONSTANT__,31,"No argument for inte\
-rrupt slot."};
-__STRING_CONSTANT __string_234={__STRING_CONSTANT__,33,"No argument for inhe\
-ritance slot."};
-__STRING_CONSTANT __string_235={__STRING_CONSTANT__,27,"Incorrect slot decla\
-ration."};
-__STRING_CONSTANT __string_236={__STRING_CONSTANT__,22,"Incorrect result typ\
-e."};
-__STRING_CONSTANT __string_237={__STRING_CONSTANT__,20,"Added ')' is needed."};
-__STRING_CONSTANT __string_238={__STRING_CONSTANT__,36,"Incorrect type for i\
-nheritance slot."};
-__STRING_CONSTANT __string_239={__STRING_CONSTANT__,21,"Incorrect expression."};
-__STRING_CONSTANT __string_240={__STRING_CONSTANT__,7,"__init_"};
-__STRING_CONSTANT __string_241={__STRING_CONSTANT__,10,"Added ';'."};
-__STRING_CONSTANT __string_242={__STRING_CONSTANT__,24,"Double slot declarat\
-ion."};
-__STRING_CONSTANT __string_243={__STRING_CONSTANT__,38,"Invariant: Sorry, No\
-t yet implemented."};
-__STRING_CONSTANT __string_244={__STRING_CONSTANT__,9,"Postfix '"};
-__STRING_CONSTANT __string_245={__STRING_CONSTANT__,7,"Infix '"};
-__STRING_CONSTANT __string_246={__STRING_CONSTANT__,8,"Prefix '"};
-__STRING_CONSTANT __string_247={__STRING_CONSTANT__,12,"Description:"};
-__STRING_CONSTANT __string_248={__STRING_CONSTANT__,1,"+"};
-__STRING_CONSTANT __string_249={__STRING_CONSTANT__,1,"-"};
-__STRING_CONSTANT __string_250={__STRING_CONSTANT__,19,"Not enough memory.\n"};
-__STRING_CONSTANT __string_251={__STRING_CONSTANT__,29,"Unterminated string \
-constant."};
-__STRING_CONSTANT __string_252={__STRING_CONSTANT__,27,"Incorrect style slot\
- ('-')."};
-__STRING_CONSTANT __string_253={__STRING_CONSTANT__,2509,"#include <pthread.\
-h>\n#include <limits.h>\n\nvoid print_char(char car);\nint die_with_code(int\
- code);\n\nstatic pthread_key_t current_thread;\nstatic pthread_attr_t threa\
-d_attr;\npthread_t c_thread;\nint thread_counter;\n\nstatic char thread_stac\
-k[512][PTHREAD_STACK_MIN];\n\ntypedef struct lith_object_struct lith_object;\
-\ntypedef struct lith_node_struct lith_node;\nstruct lith_node_struct {\n p\
-thread_mutex_t mutex;\n lith_node *next;\n lith_object *object;\n};\nstruc\
-t lith_object_struct {\n unsigned long __id; // Just for late binding.\n l\
-ith_node *first;\n lith_node *last;\n lith_object *(*procedure)(lith_objec\
-t *obj,pthread_mutex_t *mutex);\n pthread_mutex_t mutex;\n};\nstruct {\n l\
-ith_node *first;\n pthread_mutex_t mutex;\n} pool;\n\nvoid *thread_life(voi\
-d *ptr)\n{ lith_node node,*n;\n lith_object *obj,*new_obj;\n\n pthread_mut\
-ex_init(&node.mutex,NULL);\n pthread_mutex_lock(&node.mutex);\n node.objec\
-t = (lith_object *)ptr;\n do {\n // Append fifo object.\n obj = node.\
-object;\n node.next = NULL;\n n = obj->last;\n if (n == NULL) {\n \
- obj->first = &node;\n pthread_mutex_unlock(&node.mutex);\n } els\
-e {\n n->next = &node;\n };\n obj->last = &node;\n pthread_set\
-specific(current_thread,(void *)obj);\n // Run procedure.\n new_obj = \
-obj->procedure(obj,&node.mutex);\n // Remove fifo object.\n pthread_mu\
-tex_lock(&obj->mutex);\n n = obj->first->next;\n if (n != NULL) {\n \
- pthread_mutex_unlock(&n->mutex);\n } else {\n obj->last = NULL;\n\
- };\n obj->first = n;\n pthread_mutex_unlock(&obj->mutex);\n if \
-(new_obj != NULL) {\n node.object = new_obj;\n } else {\n // Ad\
-d in pool.\n pthread_mutex_lock(&pool.mutex);\n node.next = pool.f\
-irst;\n pool.first = &node;\n pthread_mutex_unlock(&pool.mutex);\n\
- // Sleep.\n pthread_mutex_lock(&node.mutex);\n };\n } while (\
-1);\n return NULL;\n};\n\nvoid run_procedure(lith_object *obj)\n{ lith_node\
- *node;\n char *msg=\"COP Error!\\n\";\n // Pool manager.\n pthread_mutex\
-_lock(&pool.mutex);\n node = pool.first;\n if (node != NULL) {\n pool.f\
-irst = node->next;\n };\n pthread_mutex_unlock(&pool.mutex);\n // Run thr\
-ead.\n if (node == NULL) {\n pthread_attr_setstack(&thread_attr, thread_\
-stack[thread_counter++],PTHREAD_STACK_MIN);\n if ((thread_counter>512) ||\
- pthread_create(&c_thread,&thread_attr, thread_life, (void *)obj)) {\n \
-while (*msg != 0) print_char(*(msg++));\n die_with_code(1);\n };\n \
-} else {\n node->object = obj;\n pthread_mutex_unlock(&node->mutex);\n\
- };\n};\n\n"};
-__STRING_CONSTANT __string_254={__STRING_CONSTANT__,11,"Added ':='."};
-__STRING_CONSTANT __string_255={__STRING_CONSTANT__,31,"Prototype identifier\
- is needed."};
-__STRING_CONSTANT __string_256={__STRING_CONSTANT__,34,"Incorrect name (file\
-name != name)."};
-__STRING_CONSTANT __string_257={__STRING_CONSTANT__,24,"Object can't be gene\
-ric."};
-__STRING_CONSTANT __string_258={__STRING_CONSTANT__,10,"Added ':'."};
-__STRING_CONSTANT __string_259={__STRING_CONSTANT__,12,"Type needed."};
-__STRING_CONSTANT __string_260={__STRING_CONSTANT__,27,"Sorry, not yet imple\
-mented."};
-__STRING_CONSTANT __string_261={__STRING_CONSTANT__,36,"Identifier parameter\
- type is needed."};
-__STRING_CONSTANT __string_262={__STRING_CONSTANT__,10,"Added ')'."};
-__STRING_CONSTANT __string_263={__STRING_CONSTANT__,28,"Invalid generic list\
- number."};
-__STRING_CONSTANT __string_264={__STRING_CONSTANT__,34,"Slot `name' must to \
-be first slot."};
-__STRING_CONSTANT __string_265={__STRING_CONSTANT__,20,"Incorrect type list."};
-__STRING_CONSTANT __string_266={__STRING_CONSTANT__,19,"Incorrect external."};
-__STRING_CONSTANT __string_267={__STRING_CONSTANT__,3,"// "};
-__STRING_CONSTANT __string_268={__STRING_CONSTANT__,15,"Incorrect expr."};
-__STRING_CONSTANT __string_269={__STRING_CONSTANT__,33,"Double `default' slo\
-t definition."};
-__STRING_CONSTANT __string_270={__STRING_CONSTANT__,30,"Double `type' slot d\
-efinition."};
-__STRING_CONSTANT __string_271={__STRING_CONSTANT__,17,"Incorrect number."};
-__STRING_CONSTANT __string_272={__STRING_CONSTANT__,21,"Added '<-' is needed."};
-__STRING_CONSTANT __string_273={__STRING_CONSTANT__,20,"Added '(' is needed."};
-__STRING_CONSTANT __string_274={__STRING_CONSTANT__,17,"Unreachable code."};
-__STRING_CONSTANT __string_275={__STRING_CONSTANT__,17,"Incorrect string."};
-__STRING_CONSTANT __string_276={__STRING_CONSTANT__,15,"Incorrect slot."};
-__STRING_CONSTANT __string_277={__STRING_CONSTANT__,59,"For a section, the p\
-rototype name only (without '['...']')."};
-__STRING_CONSTANT __string_278={__STRING_CONSTANT__,14,"Slot deferred."};
-__STRING_CONSTANT __string_279={__STRING_CONSTANT__,15,"Incorrect type."};
-__STRING_CONSTANT __string_280={__STRING_CONSTANT__,22,"Type `SELF' is neede\
-d."};
-__STRING_CONSTANT __string_281={__STRING_CONSTANT__,20,"Added ':' is needed."};
-__STRING_CONSTANT __string_282={__STRING_CONSTANT__,30,"Incorrect argument i\
-dentifier."};
-__STRING_CONSTANT __string_283={__STRING_CONSTANT__,24,"Incorrect argument t\
-ype."};
-__STRING_CONSTANT __string_284={__STRING_CONSTANT__,30,"Incorrect argument d\
-efinition."};
-__STRING_CONSTANT __string_285={__STRING_CONSTANT__,19,"Operator is needed."};
-__STRING_CONSTANT __string_286={__STRING_CONSTANT__,19,"Incorrect operator."};
-__STRING_CONSTANT __string_287={__STRING_CONSTANT__,10,"Added `''."};
-__STRING_CONSTANT __string_288={__STRING_CONSTANT__,29,"Operator declaration\
- invalid."};
-__STRING_CONSTANT __string_289={__STRING_CONSTANT__,39,"Not associativity fo\
-r postfix operator."};
-__STRING_CONSTANT __string_290={__STRING_CONSTANT__,38,"Not associativity fo\
-r prefix operator."};
-__STRING_CONSTANT __string_291={__STRING_CONSTANT__,32,"Incorrect in `Sectio\
-n External'."};
-__STRING_CONSTANT __string_292={__STRING_CONSTANT__,7,"Added '"};
-__STRING_CONSTANT __string_293={__STRING_CONSTANT__,2,"'."};
-__STRING_CONSTANT __string_294={__STRING_CONSTANT__,10,"Added '}'."};
-__STRING_CONSTANT __string_295={__STRING_CONSTANT__,27,"`Expanded' is not po\
-ssible."};
-__STRING_CONSTANT __string_296={__STRING_CONSTANT__,10,"Added ']'."};
-__STRING_CONSTANT __string_297={__STRING_CONSTANT__,45,"Impossible '<-' styl\
-e assignment with vector."};
-__STRING_CONSTANT __string_298={__STRING_CONSTANT__,28,"Sorry, Not yet imple\
-mented !"};
-__STRING_CONSTANT __string_299={__STRING_CONSTANT__,1,"{"};
-__STRING_CONSTANT __string_300={__STRING_CONSTANT__,1,"}"};
-__STRING_CONSTANT __string_301={__STRING_CONSTANT__,24,"Unknown escape seque\
-nce."};
-__STRING_CONSTANT __string_302={__STRING_CONSTANT__,39,"Invalid range charac\
-ter number [0,255]."};
-__STRING_CONSTANT __string_303={__STRING_CONSTANT__,23,"Character '\' is nee\
-ded."};
-__STRING_CONSTANT __string_304={__STRING_CONSTANT__,24,"Incorrect Result num\
-ber."};
-__STRING_CONSTANT __string_305={__STRING_CONSTANT__,25,"Incorrect live type \
-list."};
-__STRING_CONSTANT __string_306={__STRING_CONSTANT__,23,"Incorrect octal numb\
-er."};
-__STRING_CONSTANT __string_307={__STRING_CONSTANT__,24,"Incorrect binary num\
-ber."};
-__STRING_CONSTANT __string_308={__STRING_CONSTANT__,25,"Incorrect decimal nu\
-mber."};
-__STRING_CONSTANT __string_309={__STRING_CONSTANT__,6,"Slot `"};
-__STRING_CONSTANT __string_310={__STRING_CONSTANT__,12,"' not found."};
-__STRING_CONSTANT __string_311={__STRING_CONSTANT__,30,"No argument for `exi\
-t' method."};
-__STRING_CONSTANT __string_312={__STRING_CONSTANT__,23,"String argument need\
-ed."};
-__STRING_CONSTANT __string_313={__STRING_CONSTANT__,17,"Invalid argument."};
-__STRING_CONSTANT __string_314={__STRING_CONSTANT__,21,"No expression result."};
-__STRING_CONSTANT __string_315={__STRING_CONSTANT__,15,"BOOLEAN needed."};
-__STRING_CONSTANT __string_316={__STRING_CONSTANT__,18,"!@#$%^&<|*-+=~/?\\>"};
-__STRING_CONSTANT __string_317={__STRING_CONSTANT__,22,"Prototype name neede\
-d."};
-__STRING_CONSTANT __string_318={__STRING_CONSTANT__,30,"1) Sorry, not yet im\
-plemented."};
-__STRING_CONSTANT __string_319={__STRING_CONSTANT__,30,"2) Sorry, not yet im\
-plemented."};
-__STRING_CONSTANT __string_320={__STRING_CONSTANT__,7,"Style `"};
-__STRING_CONSTANT __string_321={__STRING_CONSTANT__,32,"' for parameter type\
- is ignored."};
-__STRING_CONSTANT __string_322={__STRING_CONSTANT__,10,"' ignored."};
-__STRING_CONSTANT __string_323={__STRING_CONSTANT__,21,"Incorrect identifier."};
-__STRING_CONSTANT __string_324={__STRING_CONSTANT__,21,"Incorrect local type."};
-__STRING_CONSTANT __string_325={__STRING_CONSTANT__,27,"Incorrect `Old' expr\
-ession."};
-__STRING_CONSTANT __string_326={__STRING_CONSTANT__,18,"Incorrect message."};
-__STRING_CONSTANT __string_327={__STRING_CONSTANT__,22,"Incorrect real numbe\
-r."};
-__STRING_CONSTANT __string_328={__STRING_CONSTANT__,28,"Character constant t\
-oo long."};
-__STRING_CONSTANT __string_329={__STRING_CONSTANT__,32,"Unterminated charact\
-er constant."};
-__STRING_CONSTANT __string_330={__STRING_CONSTANT__,37,"Incorrect multiple r\
-esult expression."};
-__STRING_CONSTANT __string_331={__STRING_CONSTANT__,36,"Error in INPUT_STREA\
-M.read_integer.\n"};
-__STRING_CONSTANT __string_332={__STRING_CONSTANT__,21,"Incorrect directory `"};
-__STRING_CONSTANT __string_333={__STRING_CONSTANT__,19,"Incorrect argument."};
-__STRING_CONSTANT __string_334={__STRING_CONSTANT__,15,"Type incorrect."};
-
-//==========================//
-// FUNCTION HEADER //
-//==========================//
-
-// Debug Manager
-void print_string(char *str);
-// Source code
-static __STRING* create__ZBB(__INTEGER needed_capacity__1BB);
-static __POINTER new_lab__RTJ(__UINTEGER_32 t__TTJ);
-static void** create__2DRB(__INTEGER nb_elements__4DRB);
-static __INTEGER fast_first_index_of__until__OLC(__CHARACTER *Self__PLC);
-static __CHARACTER* create__YIEB(__INTEGER nb_elements__0IEB);
-static __POINTER realloc_dynamic__old_size__new_size__KELC(__POINTER p__MELC,__UINTEGER_32 old_sz__NELC,__UINTEGER_32 new_sz__OELC);
-static void add_last__URV(__FAST_ARRAYoSTRINGo *Self__VRV,void *element__WRV);
-static __INTEGER prime_number_ceiling__021(__INTEGER integer__221);
-static void** create__QA4(__INTEGER nb_elements__SA4);
-static void** create__ZITC(__INTEGER nb_elements__1ITC);
-static void** create__JDSB(__INTEGER nb_elements__LDSB);
-static void** create__0E4(__INTEGER nb_elements__2E4);
-static void** create__PX2(__INTEGER nb_elements__RX2);
-static void** create__PHRB(__INTEGER nb_elements__RHRB);
-static __FAST_ARRAYoITM_TYPE_MONOo* create_with_capacity__EGR(__INTEGER new_count__GGR);
-static void** create__SWBB(__INTEGER nb_elements__UWBB);
-static void** create__PJXB(__INTEGER nb_elements__RJXB);
-static void** create__KSWB(__INTEGER nb_elements__MSWB);
-static void** create__JQXB(__INTEGER nb_elements__LQXB);
-static void** create__OG5(__INTEGER nb_elements__QG5);
-static void fast_put__to__JPZ(__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *Self__KPZ,void *v__LPZ,void *k__MPZ);
-static void** create__VFYB(__INTEGER nb_elements__XFYB);
-static void* get__IVI(void *n__KVI);
-static void** create__NFQB(__INTEGER nb_elements__PFQB);
-static void** create__3ZPB(__INTEGER nb_elements__5ZPB);
-static void** create__Z1ZB(__INTEGER nb_elements__11ZB);
-static __FAST_ARRAYoSTRING_CONSTANTo* create_with_capacity__THRC(__INTEGER new_count__VHRC);
-static void** create__FNUF(__INTEGER nb_elements__HNUF);
-static void** create__JPGF(__INTEGER nb_elements__LPGF);
-static void** create__ARYF(__INTEGER nb_elements__CRYF);
-static void** create__R2IE(__INTEGER nb_elements__T2IE);
-static void* search__XAVB(__UINTEGER_32 new_size__ZAVB);
-static void** create__C3XC(__INTEGER nb_elements__E3XC);
-static void** create__FCYC(__INTEGER nb_elements__HCYC);
-static void** create__3MBD(__INTEGER nb_elements__5MBD);
-static void** create__BJFF(__INTEGER nb_elements__DJFF);
-static void** create__EI2(__INTEGER nb_elements__GI2);
-static void add__EZR(__HASHED_SEToABSTRACT_STRINGo *Self__FZR,void *e__GZR);
-static void* operator__name__GHB(void *op__JHB);
-static void print__OJD(__STRING_CONSTANT *Self__PJD);
-static void* get__YWB(void *str__0WB);
-static void copy__VDS(__STRING *Self__WDS,void *other__XDS);
-static void append__3OS(__STRING *Self__4OS,void *other__5OS);
-static void* parent_directory__GGD();
-static void* get_entry__DZAC(void *p__FZAC);
-static void put_string__33F(void *s__53F);
-static __PROTOTYPE* create__name__generic_count__JBC(void *f__LBC,void *n__MBC);
-static __BOOLEAN read_space__XTD();
-static __BOOLEAN read_identifier__2BL();
-static __POSITION current_position__B0F();
-static void put_error__text__1PG(__INTEGER type__3PG,void *txt__4PG);
-static void put_position__FRG(__POSITION Self__GRG);
-static __BOOLEAN fast_has__IDT(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__JDT,void *k__KDT);
-static __INTEGER hash_code__RNW(__STRING_CONSTANT *Self__SNW);
-static __BOOLEAN read_symbol__4YJ(void *st__AZJ);
-static __BOOLEAN read_short_elt__EIKB();
-static void fast_put__to__U2R(__HASHED_DICTIONARYoTYPExSTRING_CONSTANTo *Self__V2R,void *k__X2R);
-static __TYPE_FULL* create__with__CRB(void *typ__ERB,__UINTEGER_8 code__FRB);
-static void** create__1VNB(__INTEGER nb_elements__3VNB);
-static void add_last__K5R(__FAST_ARRAYoTYPE_IDo *Self__L5R,void *element__M5R);
-static __BOOLEAN open__WHRD(__DIRECTORY_UNIX *Self__XHRD);
-static void check_in__begin__ZQQC(void *entry__1QQC,__INTEGER n__2QQC);
-static void* fast_at__LV3(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__MV3,void *k__NV3);
-static void save_file__with__3DC(void *n__5DC,void *buf__AEC);
-static void resize__1VZ(__STRING *Self__2VZ,__INTEGER new_count__3VZ);
-static void move__to__by__LVCC(__CHARACTER *Self__MVCC,__INTEGER lower__NVCC,__INTEGER upper__OVCC,__INTEGER offset__PVCC);
-static __BOOLEAN __infix_equal_equal__V2DB(__STRING_CONSTANT *Self__W2DB,void *other__X2DB);
-static void* at__JK4(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__KK4,void *k__LK4);
-static __BOOLEAN has_suffix__QJS(__STRING_CONSTANT *Self__RJS);
-static void replace_all__with__CRS(__STRING *Self__DRS,__CHARACTER old_char__ERS,__CHARACTER new_char__FRS);
-static __INTEGER last_index__NTC(void *n__PTC,__CHARACTER c__QTC);
-static void remove_between__to__MIT(__STRING *Self__NIT,__INTEGER start__OIT,__INTEGER end__PIT);
-static void to_upper__PTS(__STRING *Self__QTS);
-static void go_on__SBC(void *obj__UBC);
-static void put__to__like__X4XD(void *tok__Z4XD,void *buf__04XD,void *key__14XD);
-static void shorter_get_all_slot_in__ZAYD(__PROTOTYPE *Self__0AYD,void *lst__1AYD);
-static void pretty_name_in__FY4F(__ITM_SLOT *Self__GY4F,void *buffer__HY4F);
-static void pretty_name_in__0Z4F(__ITM_SLOT_OPERATOR *Self__1Z4F,void *buffer__2Z4F);
-static __BOOLEAN has_prefix__OTTF(__STRING_CONSTANT *Self__PTTF,void *p__QTTF);
-static void get_all_comment_slot__in__PL4E(__PROTOTYPE *Self__QL4E,void *n__RL4E,void *buf__SL4E);
-static void shorter_comment__in__light__CP4E(void *str__EP4E,void *buf__FP4E,__BOOLEAN is_light__GP4E);
-static void append_in__5KH(__UINTEGER_32 Self__ALH,void *buffer__BLH);
-static void append_in__S14F(__SECTION_ *Self__T14F,void *buf__U14F);
-static void shorter_profile_in__U24F(__ITM_SLOT *Self__V24F,void *buf__W24F);
-static void shorter_profile_in__R34F(__ITM_SLOT_OPERATOR *Self__S34F,void *buf__T34F);
-static void* new_page__H54();
-static void to_busy__index__3SFC(__MEMORY *Self__4SFC,__UINTEGER_32 sz__5SFC,__UINTEGER_32 idx__ATFC);
-static void** create__W5QB(__INTEGER nb_elements__Y5QB);
-static void* fast_reference_at__R3T(__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *Self__S3T,void *k__T3T);
-static void** create__QMHE(__INTEGER nb_elements__SMHE);
-static __BOOLEAN has__PPW(__HASHED_SEToABSTRACT_STRINGo *Self__QPW,void *e__RPW);
-static void increase_capacity__XONB(__HASHED_SEToABSTRACT_STRINGo *Self__YONB);
-static void put_string__AKF(void *s__CKF);
-static __INTEGER hash_code__UFX(__STRING *Self__VFX);
-static __BOOLEAN fast_has__CAY(__HASHED_SEToABSTRACT_STRINGo *Self__DAY,void *e__EAY);
-static void from_external__YZS(__STRING *Self__ZZS,__CHARACTER *p__0ZS);
-static void* physical_get_entry__REF(void *new_path__TEF);
-static void put__to__N1S(__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *Self__O1S,void *v__P1S,void *k__Q1S);
-static void reduce_path__J3HC(void *st__L3HC);
-static void* reference_at__VV0C(__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *Self__WV0C,void *k__XV0C);
-static __INTEGER fast_reverse_index_of__from__KA3(__CHARACTER *Self__LA3,__CHARACTER element__MA3,__INTEGER upper__NA3);
-static void* physical_get_entry__JY0C(void *new_path__LY0C);
-static void** create__G01C(__INTEGER nb_elements__I01C);
-static void** create__PRSC(__INTEGER nb_elements__RRSC);
-static void short__token__to__GDD(void *key__IDD,__INTEGER beg__JDD,__INTEGER end__KDD);
-static __INTEGER first_substring_index__W0ZE(__STRING *Self__X0ZE);
-static __BOOLEAN read_string__HGQ();
-static __BOOLEAN fast_memcmp__until__FYYB(__CHARACTER *Self__GYYB,__CHARACTER *other__HYYB,__INTEGER capacity__IYYB);
-static void reduce_path__UO3E(void *st__WO3E);
-static void* item__V3PE(__DIRECTORY_UNIX *Self__W3PE,__INTEGER i__X3PE);
-static void* item__X3ND(__LINKED_LISToSTRING_CONSTANTo *Self__Y3ND,__INTEGER i__Z3ND);
-static void** create__KZ3(__INTEGER nb_elements__MZ3);
-static __BOOLEAN read_word__ISF(void *st__KSF);
-static __BOOLEAN read_slot_header__KFE(__BOOLEAN first__MFE);
-static void* get_name__TROB(void *n__VROB);
-static void* read_type_list__ENO(__PARSER *Self__FNO,__BOOLEAN is_section__GNO);
-static __INTEGER hash_code__S30(__FAST_ARRAYoITM_TYPE_MONOo *Self__T30);
-static __CHARACTER read_style__PUF();
-static __FAST_ARRAYoITM_ARGUMENTo* create_with_capacity__LJ5B(__INTEGER new_count__NJ5B);
-static void* read_loc_arg__with_self__BBHB(__PARSER *Self__CBHB,__BOOLEAN mute__DBHB,__BOOLEAN self_first__EBHB);
-static void* read_slot_operator__RS5B(void *list_arg__TS5B);
-static void add_last__E5GC(__FAST_ARRAYoITM_ARGUMENTo *Self__F5GC,void *element__G5GC);
-static void* read_slot_keyword__4X5B(void *list_arg__AY5B);
-static void** create__PRBD(__INTEGER nb_elements__RRBD);
-static void set_argument_list__5BHC(__ITM_SLOT *Self__ACHC,void *p__BCHC);
-static __ITM_TYPE_MULTI* get__4JP(void *lt__AKP);
-static void* read_type__CDM(__PARSER *Self__DDM,__BOOLEAN is_local__EDM);
-static void set_result_type__W2FC(__ITM_SLOT *Self__X2FC,void *t__Y2FC);
-static void* read_contract__5VF(__PARSER *Self__AWF);
-static void* read_expr__DBJ(__PARSER *Self__EBJ);
-static void set_value__type__DFHC(__ITM_SLOT *Self__EFHC,void *e__FFHC,void *p__GFHC);
-static __POSITION position__5A5B(__ITM_EXPRESSION *Self__AB5B);
-static __POSITION position__PIHC(__ITM_RESULT *Self__QIHC);
-static void fast_put__to__LNGC(__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo *Self__MNGC,void *v__NNGC,void *k__ONGC);
-static void* fast_reference_at__05FC(__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo *Self__15FC,void *k__25FC);
-static void* fast_reference_at__CMNE(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__DMNE,void *k__EMNE);
-static void append_in__PJPD(__ITM_TYPE_BLOCK *Self__QJPD,void *buffer__RJPD);
-static void append_in__TKPD(__ITM_TYPE_GENERIC *Self__UKPD,void *buffer__VKPD);
-static void put__to__like__JNBG(void *tok__LNBG,void *buf__MNBG,void *key__NNBG);
-static void shorter_in__KKBG(__ITM_ARG *Self__LKBG,void *buf__MKBG);
-static void shorter_in__BLBG(__ITM_ARGS *Self__CLBG,void *buf__DLBG);
-static void shorter_in__0TDG(__ITM_TYPE_PARAMETER *Self__1TDG,void *buf__2TDG);
-static void shorter_in__LUDG(__ITM_TYPE_SIMPLE *Self__MUDG,void *buf__NUDG);
-static void shorter_raw_in__M2FG(__ITM_TYPE_MULTI *Self__N2FG,void *buf__O2FG);
-static void shorter_in__2UDG(__ITM_TYPE_BLOCK *Self__3UDG,void *buf__4UDG);
-static void shorter_in__EWDG(__ITM_TYPE_GENERIC *Self__FWDG,void *buf__GWDG);
-static void put__to__like__I0FG(void *tok__K0FG,void *buf__L0FG,void *key__M0FG);
-static void put__to__like__S0DG(void *tok__U0DG,void *buf__V0DG,void *key__W0DG);
-static void set_path__HPT(__DIRECTORY_UNIX *Self__IPT,void *n__JPT);
-static void set_path__CQT(__FILE_UNIX *Self__DQT,void *n__EQT);
-static __INTEGER last_index_of__since__KPGD(__STRING *Self__LPGD,__INTEGER start_index__NPGD);
-static void insert_string__to__OXU(__STRING *Self__PXU,void *s__QXU,__INTEGER i__RXU);
-static void read_escape_character__AALF();
-static __BOOLEAN read_cap_identifier__N1J();
-static void add_last__NABC(__FAST_ARRAYoITM_TYPE_PARAMETERo *Self__OABC,void *element__PABC);
-static __BOOLEAN read_external__2TO();
-static void* read_expr_primary__E5M(__PARSER *Self__F5M);
-static __BOOLEAN read_integer__22P();
-static void* readlip_expr__YRPB();
-static void run__0FFC(__LIP_AFFECT *Self__1FFC);
-static void run__WQUE(__LIP_CALL *Self__XQUE);
-static void run__ZFQD(__LIP_IF *Self__0FQD);
-static void run__KVUE(__LIP_PRINT *Self__LVUE);
-static void add_last__ONV(__FAST_ARRAYoITM_TYPE_MONOo *Self__PNV,void *element__QNV);
-static void* alias__CWP(void *tmp__EWP);
-static void add__1IHB(__HASHED_SEToSTRING_CONSTANTo *Self__2IHB,void *e__3IHB);
-static void add_last__SEPD(__FAST_ARRAYoSTRING_CONSTANTo *Self__TEPD,void *element__UEPD);
-static void free__TR5(void *tmp__VR5);
-static void free__YNQ(void *tmp__0NQ);
-static __INTEGER hash_code__NVRF(__FAST_ARRAYoSTRING_CONSTANTo *Self__OVRF);
-static void copy__BASD(__FAST_ARRAYoSTRING_CONSTANTo *Self__CASD,void *other__DASD);
-static __BOOLEAN fast_has__H4RF(__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *Self__I4RF,void *e__J4RF);
-static __BOOLEAN read_operator__GOM();
-static void* operator__name__ZEO(void *typ__1EO,void *op__2EO);
-static void append_in__MHBC(__ITM_TYPE_MULTI *Self__NHBC,void *buffer__OHBC);
-static void* read_prototype__DPN(__PARSER *Self__EPN,void *styl__FPN);
-static void read_def_local__M3H(__PARSER *Self__N3H);
-static __FAST_ARRAYoITM_CODEo* create_with_capacity__XXI(__INTEGER new_count__ZXI);
-static void add_last__I5U(__FAST_ARRAYoITM_CODEo *Self__J5U,void *element__K5U);
-static void* copy__5BI(void *tmp__BCI);
-static __BOOLEAN fast_has__RDV(__HASHED_SEToSTRING_CONSTANTo *Self__SDV,void *e__TDV);
-static void restore_context__EFL();
-static void* read_expr_message__LXL(__PARSER *Self__MXL);
-static void free__3XI(void *tmp__5XI);
-static void display_raw__MLIC(__ITM_TYPE_MULTI *Self__NLIC,void *buffer__OLIC);
-static void put__to__like__URGG(void *tok__WRGG,void *buf__XRGG,void *key__YRGG);
-static void put__to__like__NYDG(void *tok__PYDG,void *buf__QYDG,void *key__RYDG);
-static void put__to__like__GVFG(void *tok__IVFG,void *buf__JVFG);
-static void put__to__like__ZXFG(void *tok__1XFG,void *buf__2XFG,void *key__3XFG);
-static __BOOLEAN is_hexadecimal_digit__DQJE(__CHARACTER Self__EQJE);
-static void* read_constant__XRO();
-static void* read_group__C4GB(__PARSER *Self__D4GB);
-static void* readlip_expr_operator__GMZB(__PARSER *Self__HMZB);
-static __FAST_ARRAYoLIP_CODEo* create_with_capacity__DWKD(__INTEGER new_count__FWKD);
-static void add_last__JOUD(__FAST_ARRAYoLIP_CODEo *Self__KOUD,void *element__LOUD);
-static void* copy__ZPID(void *tmp__1PID);
-static void* fast_reference_at__PXRD(__HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo *Self__QXRD,void *k__RXRD);
-static void* run_expr__D2QD(__LIP_BINARY *Self__E2QD);
-static void* run_expr__C5QD(__LIP_UNARY *Self__D5QD);
-static void* run_expr__IXUE(__LIP_CALL *Self__JXUE);
-static void* get__UYSE(__LIP_INTEGER *Self__VYSE,__INTEGER i__WYSE);
-static void* get__34FF(__LIP_STRING *Self__44FF,void *str__54FF);
-static void free__3D4F(__LIP_INTEGER *Self__4D4F);
-static void free__LIIG(__LIP_STRING *Self__MIIG);
-static void load_directory__is_recursive__LEXF(__LIP_CALL *Self__MEXF,void *path__NEXF,__BOOLEAN is_rec__OEXF);
-static void append_in__FPIG(__LIP_STRING *Self__GPIG,void *str__HPIG);
-static void print_positif__VHLG(__INTEGER Self__WHLG);
-static __BOOLEAN fast_has__1K1(__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *Self__2K1,void *e__3K1);
-static __BOOLEAN has__MIMB(__HASHED_SEToSTRING_CONSTANTo *Self__NIMB,void *e__OIMB);
-static __FAST_ARRAYoITM_LOCALo* create_with_capacity__LLK(__INTEGER new_count__NLK);
-static void add_last__Z1U(__FAST_ARRAYoITM_LOCALo *Self__01U,void *element__11U);
-static void free__RLK(void *tmp__TLK);
-static void* copy__05J(void *tmp__25J);
-static void append_collection__RDPD(__FAST_ARRAYoITM_LOCALo *Self__SDPD,void *other__TDPD);
-static void** create__KRQB(__INTEGER nb_elements__MRQB);
-static void* read_send_msg__I5N(__PARSER *Self__J5N,void *first_arg__K5N);
-static void* readlip_expr_cmp__0Y1B(__PARSER *Self__1Y1B);
-static void** create__3WIE(__INTEGER nb_elements__5WIE);
-static void** create__KPQB(__INTEGER nb_elements__MPQB);
-static void* read_argument__PPP(__PARSER *Self__QPP);
-static void* readlip_expr_binary__XL3B(__PARSER *Self__YL3B);
-static void* readlip_expr_unary__YX4B(__PARSER *Self__ZX4B);
-static void* readlip_expr_base__QHFE(__PARSER *Self__RHFE);
-
-//==========================//
-// SOURCE CODE //
-//==========================//
-
-int main(int argc,char **argv)
-{
- void *str__1ID,*cmd__HZ;
- __INTEGER new_count__DNLH,typ_id__2MLH,Self__PJF,limit_up__QJF;
- __INTEGER i__5KEB,new_capacity__UUIH,old_nb_elts__XUIH,upper__RNLH;
- __INTEGER Self__PNLH,typ_id__SWG,new_capacity__ZKY,typ_id__50DB;
- __INTEGER new_capacity__DVJC,typ_id__PPJ,typ_id__CQH;
- __INTEGER new_capacity__ZMY,typ_id__PPC,new_capacity__UKX,typ_id__D1Q;
- __INTEGER typ_id__AFR,new_capacity__3G1,typ_id__QTQ,typ_id__W1O;
- __INTEGER typ_id__33Q,typ_id__KNK,new_capacity__3FZ,typ_id__NXQ;
- __INTEGER typ_id__JWR,typ_id__HKK,typ_id__QAK,typ_id__KMM;
- __INTEGER typ_id__ZJOF,new_capacity__U0RF,typ_id__QAG,typ_id__SVTE;
- __INTEGER typ_id__MTMF,typ_id__W5NF,typ_id__BZMD,typ_id__YXED;
- __INTEGER new_capacity__PFXD,Self__EPYE,typ_id__S0NF,Self__HQAG;
- __INTEGER typ_id__PLNF,Self__APAG,typ_id__E1YB,new_capacity__ZFOC;
- __INTEGER typ_id__J4YB,new_capacity__UJOC,typ_id__DI5B,typ_id__3CIE;
- __INTEGER typ_id__ZUB,new_capacity__QZW,j__IZ,__tmp__P4,typ_id__2UIH;
- __INTEGER new_capacity__WNT,old_nb_elts__WBFH,upper__CQ3C,Self__KWDD;
- __INTEGER typ_id__DEKB,h__WMEB,idx__XMEB,idx__YFZB,new_capacity__ZFZB;
- __INTEGER i__0FZB,typ_id__HIZB,typ_id__EVIH,typ_id__OVIH,typ_id__YVIH;
- __INTEGER typ_id__ORED,typ_id__CZB,Self__BQWD,typ_id__E3B;
- __INTEGER typ_id__CWIH,typ_id__W4B,i__QHHH,j__SHHH,Self__I1LH,i__UHHH;
- __INTEGER j__WHHH,Self__N1LH,i__BAC,n__3VGH,Self__30QC,limit_up__40QC;
- __INTEGER __tmp__GHYD,Self__2G5D,__tmp__5LYD,Self__OH5D,__tmp__WOTD;
- __INTEGER Self__PQYD,__tmp__2BRE,Self__GKSE,__tmp__HRYD,Self__JI5D;
- __INTEGER __tmp__DUYD,Self__YI5D,__tmp__LQTD,Self__WWYD,__tmp__VGRE;
- __INTEGER Self__YKSE,__tmp__LRTD,Self__FXYD;
- __POINTER ptr__1MLH,ptr_table__FNLH,next__ENLH,result__GNLH;
- __POINTER ptr_table__KNLH,next__JNLH,result__LNLH,ptr__NWG;
- __POINTER ptr_table__UNLH,next__TNLH,result__VNLH,ptr_table__ZNLH;
- __POINTER next__YNLH,result__0NLH,ptr__00DB,ptr_table__4NLH;
- __POINTER next__3NLH,result__5NLH,ptr_table__DOLH,next__COLH;
- __POINTER result__EOLH,ptr__KPJ,ptr_table__IOLH,next__HOLH;
- __POINTER result__JOLH,ptr_table__NOLH,next__MOLH,result__OOLH;
- __POINTER ptr__3PH,ptr_table__SOLH,next__ROLH,result__TOLH;
- __POINTER ptr_table__XOLH,next__WOLH,result__YOLH,ptr__KPC;
- __POINTER ptr_table__2OLH,next__1OLH,result__3OLH,ptr_table__BPLH;
- __POINTER next__APLH,result__CPLH,ptr__40Q,ptr_table__GPLH,next__FPLH;
- __POINTER result__HPLH,ptr_table__LPLH,next__KPLH,result__MPLH;
- __POINTER ptr__1ER,ptr_table__QPLH,next__PPLH,result__RPLH;
- __POINTER ptr_table__VPLH,next__UPLH,result__WPLH,ptr__LTQ;
- __POINTER ptr_table__0PLH,next__ZPLH,result__1PLH,ptr_table__5PLH;
- __POINTER next__4PLH,result__AQLH,ptr__R1O,ptr_table__EQLH,next__DQLH;
- __POINTER result__FQLH,ptr_table__JQLH,next__IQLH,result__KQLH;
- __POINTER ptr__Y3Q,ptr_table__OQLH,next__NQLH,result__PQLH;
- __POINTER ptr_table__TQLH,next__SQLH,result__UQLH,ptr__FNK;
- __POINTER ptr_table__YQLH,next__XQLH,result__ZQLH,ptr_table__3QLH;
- __POINTER next__2QLH,result__4QLH,ptr__IXQ,ptr_table__CRLH,next__BRLH;
- __POINTER result__DRLH,ptr_table__HRLH,next__GRLH,result__IRLH;
- __POINTER ptr__EWR,ptr_table__MRLH,next__LRLH,result__NRLH;
- __POINTER ptr_table__RRLH,next__QRLH,result__SRLH,ptr__CKK;
- __POINTER ptr_table__WRLH,next__VRLH,result__XRLH,ptr_table__1RLH;
- __POINTER next__0RLH,result__2RLH,ptr__LAK,ptr_table__ASLH,next__5RLH;
- __POINTER result__BSLH,ptr_table__FSLH,next__ESLH,result__GSLH;
- __POINTER ptr__FMM,ptr_table__KSLH,next__JSLH,result__LSLH;
- __POINTER ptr_table__PSLH,next__OSLH,result__QSLH,ptr__UJOF;
- __POINTER ptr_table__USLH,next__TSLH,result__VSLH,ptr_table__ZSLH;
- __POINTER next__YSLH,result__0SLH,ptr__LAG,ptr_table__4SLH,next__3SLH;
- __POINTER result__5SLH,ptr_table__DTLH,next__CTLH,result__ETLH;
- __POINTER ptr__NVTE,ptr_table__ITLH,next__HTLH,result__JTLH;
- __POINTER ptr_table__NTLH,next__MTLH,result__OTLH,ptr__HTMF;
- __POINTER ptr_table__STLH,next__RTLH,result__TTLH,ptr_table__XTLH;
- __POINTER next__WTLH,result__YTLH,ptr__R5NF,ptr_table__2TLH;
- __POINTER next__1TLH,result__3TLH,ptr_table__BULH,next__AULH;
- __POINTER result__CULH,ptr__2YMD,ptr_table__GULH,next__FULH;
- __POINTER result__HULH,ptr_table__LULH,next__KULH,result__MULH;
- __POINTER ptr__TXED,ptr_table__QULH,next__PULH,result__RULH;
- __POINTER ptr_table__VULH,next__UULH,result__WULH,result__PGHH;
- __POINTER ptr_table__0ULH,next__ZULH,result__1ULH,ptr__N0NF;
- __POINTER ptr_table__5ULH,next__4ULH,result__AVLH,ptr_table__EVLH;
- __POINTER next__DVLH,result__FVLH,result__XGHH,ptr_table__JVLH;
- __POINTER next__IVLH,result__KVLH,ptr__KLNF,ptr_table__OVLH;
- __POINTER next__NVLH,result__PVLH,ptr_table__TVLH,next__SVLH;
- __POINTER result__UVLH,result__5GHH,ptr_table__YVLH,next__XVLH;
- __POINTER result__ZVLH,ptr__50YB,ptr_table__3VLH,next__2VLH;
- __POINTER result__4VLH,ptr_table__CWLH,next__BWLH,result__DWLH;
- __POINTER ptr__E4YB,ptr_table__HWLH,next__GWLH,result__IWLH;
- __POINTER ptr_table__MWLH,next__LWLH,result__NWLH,ptr__4H5B;
- __POINTER ptr_table__RWLH,next__QWLH,result__SWLH,ptr_table__WWLH;
- __POINTER next__VWLH,result__XWLH,ptr__YCIE,ptr_table__1WLH;
- __POINTER next__0WLH,result__2WLH,ptr_table__AXLH,next__5WLH;
- __POINTER result__BXLH,ptr__UUB,ptr_table__FXLH,next__EXLH;
- __POINTER result__GXLH,ptr_table__KXLH,next__JXLH,result__LXLH;
- __POINTER ptr__1UIH,ptr_table__PXLH,next__OXLH,result__QXLH;
- __POINTER ptr_table__UXLH,next__TXLH,result__VXLH,ptr__4DKB;
- __POINTER ptr_table__2XLH,next__1XLH,result__3XLH,ptr_table__BYLH;
- __POINTER next__AYLH,result__CYLH,ptr__CIZB,ptr_table__GYLH;
- __POINTER next__FYLH,result__HYLH,ptr_table__LYLH,next__KYLH;
- __POINTER result__MYLH,ptr__DVIH,ptr_table__QYLH,next__PYLH;
- __POINTER result__RYLH,ptr_table__VYLH,next__UYLH,result__WYLH;
- __POINTER ptr__NVIH,ptr_table__0YLH,next__ZYLH,result__1YLH;
- __POINTER ptr_table__5YLH,next__4YLH,result__AZLH,ptr__XVIH;
- __POINTER ptr_table__HZLH,next__GZLH,result__IZLH,ptr_table__MZLH;
- __POINTER next__LZLH,result__NZLH,ptr__JRED,ptr_table__RZLH;
- __POINTER next__QZLH,result__SZLH,ptr_table__WZLH,next__VZLH;
- __POINTER result__XZLH,ptr__3YB,ptr_table__1ZLH,next__0ZLH;
- __POINTER result__2ZLH,ptr_table__A0LH,next__5ZLH,result__B0LH;
- __POINTER result__HHHH,ptr_table__F0LH,next__E0LH,result__G0LH;
- __POINTER ptr__52B,ptr_table__K0LH,next__J0LH,result__L0LH;
- __POINTER ptr_table__P0LH,next__O0LH,result__Q0LH,ptr__BWIH;
- __POINTER ptr_table__U0LH,next__T0LH,result__V0LH,ptr_table__Z0LH;
- __POINTER next__Y0LH,result__00LH,ptr__R4B,ptr_table__40LH,next__30LH;
- __POINTER result__50LH,ptr_table__D1LH,next__C1LH,result__E1LH;
- __UINTEGER_32 sz__3MLH,a__4MLH,new_size__5MLH,t__ANLH,a__BNLH;
- __UINTEGER_32 new_size__NNLH,lab_type__MNLH,sz__PWG,a__ONGH;
- __UINTEGER_32 new_size__PNGH,t__TNGH,a__SNGH,new_size__2NLH;
- __UINTEGER_32 lab_type__1NLH,sz__20DB,a__WNGH,new_size__XNGH,t__1NGH;
- __UINTEGER_32 a__0NGH,new_size__GOLH,lab_type__FOLH,sz__MPJ,a__4NGH;
- __UINTEGER_32 new_size__5NGH,t__DOGH,a__COGH,new_size__QOLH;
- __UINTEGER_32 lab_type__POLH,sz__5PH,a__GOGH,new_size__HOGH,t__LOGH;
- __UINTEGER_32 a__KOGH,new_size__0OLH,lab_type__ZOLH,sz__MPC,a__OOGH;
- __UINTEGER_32 new_size__POGH,t__TOGH,a__SOGH,new_size__EPLH;
- __UINTEGER_32 lab_type__DPLH,sz__A1Q,a__WOGH,new_size__XOGH,t__1OGH;
- __UINTEGER_32 a__0OGH,new_size__OPLH,lab_type__NPLH,sz__3ER,a__4OGH;
- __UINTEGER_32 new_size__5OGH,t__DPGH,a__CPGH,new_size__YPLH;
- __UINTEGER_32 lab_type__XPLH,sz__NTQ,a__GPGH,new_size__HPGH,t__LPGH;
- __UINTEGER_32 a__KPGH,new_size__CQLH,lab_type__BQLH,sz__T1O,a__OPGH;
- __UINTEGER_32 new_size__PPGH,t__TPGH,a__SPGH,new_size__MQLH;
- __UINTEGER_32 lab_type__LQLH,sz__03Q,a__WPGH,new_size__XPGH,t__1PGH;
- __UINTEGER_32 a__0PGH,new_size__WQLH,lab_type__VQLH,sz__HNK,a__4PGH;
- __UINTEGER_32 new_size__5PGH,t__DQGH,a__CQGH,new_size__ARLH;
- __UINTEGER_32 lab_type__5QLH,sz__KXQ,a__NCFH,new_size__OCFH,t__SCFH;
- __UINTEGER_32 a__RCFH,new_size__KRLH,lab_type__JRLH,sz__GWR,a__GQGH;
- __UINTEGER_32 new_size__HQGH,t__LQGH,a__KQGH,new_size__URLH;
- __UINTEGER_32 lab_type__TRLH,sz__EKK,a__OQGH,new_size__PQGH,t__TQGH;
- __UINTEGER_32 a__SQGH,new_size__4RLH,lab_type__3RLH,sz__NAK,a__WQGH;
- __UINTEGER_32 new_size__XQGH,t__1QGH,a__0QGH,new_size__ISLH;
- __UINTEGER_32 lab_type__HSLH,sz__HMM,a__4QGH,new_size__5QGH,t__DRGH;
- __UINTEGER_32 a__CRGH,new_size__SSLH,lab_type__RSLH,sz__WJOF,a__GRGH;
- __UINTEGER_32 new_size__HRGH,t__LRGH,a__KRGH,new_size__2SLH;
- __UINTEGER_32 lab_type__1SLH,sz__NAG,a__1BFH,new_size__L0G,t__U1G;
- __UINTEGER_32 a__BCFH,new_size__GTLH,lab_type__FTLH,sz__PVTE,a__ORGH;
- __UINTEGER_32 new_size__PRGH,t__TRGH,a__SRGH,new_size__QTLH;
- __UINTEGER_32 lab_type__PTLH,sz__JTMF,a__WRGH,new_size__XRGH,t__1RGH;
- __UINTEGER_32 a__0RGH,new_size__0TLH,lab_type__ZTLH,sz__T5NF,a__4RGH;
- __UINTEGER_32 new_size__5RGH,t__DSGH,a__CSGH,new_size__EULH;
- __UINTEGER_32 lab_type__DULH,sz__4YMD,a__GSGH,new_size__HSGH,t__LSGH;
- __UINTEGER_32 a__KSGH,new_size__OULH,lab_type__NULH,sz__VXED,a__OSGH;
- __UINTEGER_32 new_size__PSGH,t__TSGH,a__SSGH,new_size__YULH;
- __UINTEGER_32 lab_type__XULH,sz__RGHH,a__QGHH,new_size__SGHH;
- __UINTEGER_32 new_size2__TGHH,a__UGHH,new_size__VGHH,sz__P0NF,a__WSGH;
- __UINTEGER_32 new_size__XSGH,t__1SGH,a__0SGH,new_size__HVLH;
- __UINTEGER_32 lab_type__GVLH,sz__ZGHH,a__YGHH,new_size__0GHH;
- __UINTEGER_32 new_size2__1GHH,a__2GHH,new_size__3GHH,sz__MLNF,a__4SGH;
- __UINTEGER_32 new_size__5SGH,t__DTGH,a__CTGH,new_size__WVLH;
- __UINTEGER_32 lab_type__VVLH,sz__BHHH,a__AHHH,new_size__CHHH;
- __UINTEGER_32 new_size2__DHHH,a__EHHH,new_size__FHHH,sz__B1YB,a__GTGH;
- __UINTEGER_32 new_size__HTGH,t__LTGH,a__KTGH,new_size__FWLH;
- __UINTEGER_32 lab_type__EWLH,sz__G4YB,a__OTGH,new_size__PTGH,t__TTGH;
- __UINTEGER_32 a__STGH,new_size__PWLH,lab_type__OWLH,sz__AI5B,a__WTGH;
- __UINTEGER_32 new_size__XTGH,t__1TGH,a__0TGH,new_size__ZWLH;
- __UINTEGER_32 lab_type__YWLH,sz__0CIE,a__4TGH,new_size__5TGH,t__DUGH;
- __UINTEGER_32 a__CUGH,new_size__DXLH,lab_type__CXLH,sz__WUB,a__GUGH;
- __UINTEGER_32 new_size__HUGH,t__LUGH,a__KUGH,new_size__NXLH;
- __UINTEGER_32 lab_type__MXLH,sz__3UIH,a__4UIH,new_size__5UIH,t__AVIH;
- __UINTEGER_32 a__BVIH,new_size__XXLH,lab_type__WXLH,sz__AEKB,a__PUGH;
- __UINTEGER_32 new_size__QUGH,t__UUGH,a__TUGH,new_size__EYLH;
- __UINTEGER_32 lab_type__DYLH,sz__EIZB,a__0UGH,new_size__1UGH,t__5UGH;
- __UINTEGER_32 a__4UGH,new_size__OYLH,lab_type__NYLH,sz__FVIH,a__GVIH;
- __UINTEGER_32 new_size__HVIH,t__IVIH,a__JVIH,new_size__YYLH;
- __UINTEGER_32 lab_type__XYLH,sz__PVIH,a__QVIH,new_size__RVIH,t__SVIH;
- __UINTEGER_32 a__TVIH,new_size__CZLH,lab_type__BZLH,sz__ZVIH,a__0VIH;
- __UINTEGER_32 new_size__1VIH,t__2VIH,a__3VIH,new_size__PZLH;
- __UINTEGER_32 lab_type__OZLH,sz__LRED,a__QQFH,new_size__RQFH,t__VQFH;
- __UINTEGER_32 a__UQFH,new_size__ZZLH,lab_type__YZLH,sz__5YB,a__IVGH;
- __UINTEGER_32 new_size__JVGH,t__NVGH,a__MVGH,new_size__D0LH;
- __UINTEGER_32 lab_type__C0LH,sz__JHHH,a__IHHH,new_size__KHHH;
- __UINTEGER_32 new_size2__LHHH,a__MHHH,new_size__NHHH,sz__B3B,a__QVGH;
- __UINTEGER_32 new_size__RVGH,t__VVGH,a__UVGH,new_size__S0LH;
- __UINTEGER_32 lab_type__R0LH,sz__DWIH,a__EWIH,new_size__FWIH,t__GWIH;
- __UINTEGER_32 a__HWIH,new_size__20LH,lab_type__10LH,sz__T4B,a__MIFH;
- __UINTEGER_32 new_size__NIFH,t__RIFH,a__QIFH,new_size__G1LH;
- __UINTEGER_32 lab_type__F1LH;
- __STRING *Self__3KEB,*Self__UNT,*new__IX1G,*new__KX1G,*Self__PHHH;
- __STRING *Self__THHH,*Self__XHHH,*Self__2VGH;
- __ITM_TYPE_PARAMETER *result__HXQ,*Self__52V;
- __LIP_BOOLEAN *result__Q5NF;
- void *txt__1,*fmt_name__GOC,*__tmp__UPD,*k__PMEB,*element__EVGH;
- void *i__LVIH,*element__KTEC,*i__5VIH,*__tmp__4B,*__tmp__2H;
- void *title__ZMTD,*__tmp__RJYD,*__tmp__4JYD,*__tmp__HKYD,*__tmp__2KYD;
- void *__tmp__LOTD,*__tmp__KOYD,*__tmp__XOYD,*__tmp__APYD,*__tmp__VPYD;
- void *__tmp__FPTD,*t__VBRE,*__tmp__MPTD,*__tmp__HERE,*__tmp__UERE;
- void *__tmp__3ERE,*__tmp__SFRE,*__tmp__RTYD,*__tmp__CQTD,*__tmp__NWYD;
- void *__tmp__ZQTD,*t__OGRE,*__tmp__ARTD,*__tmp__5IRE;
- void *p__AB;
- __STRING_CONSTANT *result__0UIH,*Self__JXS,*Self__MUGH,*Self__AOS;
- __STRING_CONSTANT *Self__HX1G,*Self__JX1G;
- __POSITION pos__2S1G,pos__GT1G,pos__YU1G,pos__0U1G,pos__2U1G;
- __POSITION pos__4U1G,pos__AV1G,__tmp__1SYD,__tmp__ATYD,__tmp__XVYD;
- __POSITION __tmp__2VYD,__tmp__JIRE,__tmp__OIRE;
- __TYPE_ID *result__AWIH,*result__Q4B;
- void *ent__TB;
- __DIRECTORY_UNIX *Self__NLSD;
- void *dir__PLSD,*dir__XLSD,*__tmp__AD,*dir__SB;
- __FILE_UNIX *Self__1LRD;
- __PROTOTYPE *Self__XMTD;
- void *s__0MTD,*s__CHYD,*s__1LYD,*s__YBRE,*s__DRYD,*s__5TYD,*s__RGRE;
- void *__tmp__SRTD;
- void *__tmp__BOTD,*__tmp__1IYD,*__tmp__UNYD,*__tmp__RDRE,*__tmp__YPTD;
- void *__tmp__JTYD,*__tmp__FWYD,*__tmp__XIRE;
- __SECTION_ *Self__RL2G,*Self__SL2G,*Self__TL2G,*Self__UL2G,*Self__VL2G;
- void *__tmp__JJYD,*__tmp__COYD,*__tmp__5DRE;
- void *__tmp__LJYD,*ts__IJYD,*__tmp__EOYD,*ts__BOYD,*__tmp__BERE;
- void *ts__4DRE;
- __CHARACTER *arg__0ID,*p__4KEB,*Self__WUIH,*new__YUIH,*path__KZ;
- __CHARACTER *Self__VBFH,*new__YBFH,*Self__J1LH,*model__K1LH;
- __CHARACTER *Self__O1LH,*model__P1LH;
- __FAST_ARRAYoSTRINGo *result__0MLH,*Self__CNLH,*result__KAG,*Self__AGT;
- void *result__ZID;
- __CHARACTER ch__ZUIH,result__ZXLH,result__EZLH,result__4VDH;
- __CHARACTER result__BMDH,__tmp__CJYD,__tmp__1NYD,__tmp__YDRE;
- __HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *result__MWG,*Self__SKT;
- __HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *result__Z0DB;
- __HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *Self__ULCC;
- __FAST_ARRAYoPROTOTYPEo *result__JPJ,*Self__NEU;
- __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *result__2PH;
- __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__ZOT;
- __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__NMEB;
- __HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__CUVB;
- __HASHED_DICTIONARYoTYPExSTRING_CONSTANTo *result__JPC,*Self__KQS;
- __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *result__30Q,*Self__L3V;
- __HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *result__0ER,*Self__3EW;
- __FAST_ARRAYoITM_TYPE_MULTIo *result__KTQ,*Self__I1V;
- __FAST_ARRAYoITM_TYPE_BLOCKo *result__Q1O,*Self__RJV;
- __FAST_ARRAYoITM_TYPE_GENERICo *result__X3Q,*Self__4AW;
- __HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *result__ENK;
- __HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *Self__ANU;
- __FAST_ARRAYoITM_TYPE_STYLEo *result__DWR,*Self__GLW;
- __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *result__BKK,*Self__EKU;
- __FAST_ARRAYoFAST_ARRAYoITM_CODEoo *result__KAK,*Self__BHU;
- __FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *result__EMM,*Self__HWU;
- __HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *result__TJOF,*Self__DOQF;
- __FAST_ARRAYoLIP_INTEGERo *result__MVTE,*Self__5LXE;
- __FAST_ARRAYoLIP_STRINGo *result__GTMF,*Self__VAQF;
- __FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *result__1YMD,*Self__KKUD;
- __HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo *result__SXED;
- __HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo *Self__1OSD;
- void **Result__UWHE;
- __FAST_ARRAYoLIP_SLOT_DATAo *result__M0NF,*Self__4IQF;
- void **Result__SK1F;
- __FAST_ARRAYoLIP_SLOT_CODEo *result__JLNF,*Self__5DQF;
- void **Result__ZF1F;
- __HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *result__40YB;
- __HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *Self__MWFC;
- __HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *result__D4YB;
- __HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *Self__LZFC;
- __FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *result__3H5B,*Self__ZJHC;
- __FAST_ARRAYoITM_SLOTo *result__XCIE,*Self__BPWE;
- __HASHED_SEToABSTRACT_STRINGo *result__TUB,*Self__DDS;
- __BOOLEAN __tmp__U0,__tmp__P1,result__Y2NB,__tmp__31,result__K3NB;
- __BOOLEAN __tmp__L2,result__23NB,__tmp__Y2,result__O4NB,__tmp__14;
- __BOOLEAN result__YXLH,result__5OEB,result__DZLH,result__MJG;
- __BOOLEAN __tmp__JC,__tmp__FC,__tmp__UC,is_first_cur__BHYD;
- __BOOLEAN __tmp__WHYD,__tmp__YJYD,__tmp__VJYD,__tmp__MKYD,__tmp__NKYD;
- __BOOLEAN __tmp__QKYD,is_first_cur__0LYD,__tmp__PMYD,__tmp__ROYD;
- __BOOLEAN __tmp__OOYD,__tmp__FPYD,__tmp__GPYD,__tmp__JPYD;
- __BOOLEAN is_first_cur__XBRE,__tmp__MCRE,__tmp__OERE,__tmp__LERE;
- __BOOLEAN __tmp__CFRE,__tmp__DFRE,__tmp__GFRE,is_first__CRYD;
- __BOOLEAN __tmp__XRYD,is_first__4TYD,__tmp__TUYD,is_first__QGRE;
- __BOOLEAN __tmp__FHRE;
- __LINKED_LISToSTRING_CONSTANTo *result__3DKB,*Self__FVGH,*Self__JTEC;
- void *node__YMEB,*node1__2FZB,*node2__3FZB,*__tmp__FOEB,*node__MUVB;
- void **old_buckets__1FZB;
- __HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *result__BIZB;
- __HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__FDGC;
- void *def__3OEB;
- __LINKED_LIST_NODEoSTRING_CONSTANTo *result__CVIH,*Self__KVIH;
- __LINKED_LIST_NODEoSTRING_CONSTANTo *result__MVIH,*Self__UVIH;
- __LINKED_LIST_NODEoSTRING_CONSTANTo *result__WVIH,*Self__4VIH;
- __LINKED_LIST_NODEoSTRING_CONSTANTo *result__IRED,*Self__JOSD;
- __FAST_ARRAYoSLOTo *result__2YB,*Self__HFS;
- void **Result__3J1C;
- __FAST_ARRAYoTYPE_IDo *result__42B,*Self__GIS;
- __INTEGER_8 __tmp__THYD,__tmp__MMYD,__tmp__5OTD,__tmp__JCRE;
- __INTEGER_8 __tmp__URYD,__tmp__QUYD,__tmp__TQTD,__tmp__CHRE;
- void **__tmp__4VGH;
- arg_count = argc;
- arg_vector = argv;
- parent_numeric__J=NUMERIC__;
- clone_allocation_size__NTB= 0;
- STRING_CONSTANT__->count__DD=((__INTEGER )((0)));
- STRING__->count__SGC= 0;
- STRING_CONSTANT__->storage__RRO=((__CHARACTER *)(NULL));
- STRING__->storage__3CS=NULL;
- nb_page__DUJ= 0;
- MEMORY__->map_size_and_id__YTB= 0;
- capacity_max__R54= 0;
- get_begin_memory__RAQB=((__POINTER )(NULL));
- begin_memory__4XH=((__POINTER )(NULL));
- MEMORY__->map_previous_linear__XTB= 0;
- first_free__0BVB=NULL;
- MEMORY__->map_next_free__ZTB=NULL;
- MEMORY__->map_previous_free__0TB=NULL;
- STRING__->capacity__UCS= 0;
- HASHED_SEToABSTRACT_STRINGo__->buckets__0ZR=NULL;
- HASHED_SEToABSTRACT_STRINGo__->capacity__VZR= 0;
- HASHED_SEToABSTRACT_STRINGo__->count__10R= 0;
- list__FK=NULL;
- HASHED_SET_NODEoABSTRACT_STRINGo__->item__G0R=NULL;
- HASHED_SET_NODEoABSTRACT_STRINGo__->next__S0R=NULL;
- string_tmp__VH=create__ZBB( 256);
- is_shorter__LZ=FALSE__;
- ARRAYED_COLLECTIONoSTRINGo__->upper__CLC= 0;
- ARRAYED_COLLECTIONoSTRINGo__->capacity__JGT= 0;
- ARRAYED_COLLECTIONoSTRINGo__->storage__UGT=NULL;
- FAST_ARRAYoSTRINGo__->parent_arrayed_collection__5KC=(*ARRAYED_COLLECTIONoSTRINGo__);
- arg__0ID=NULL;
- str__1ID=NULL;
- new_count__DNLH=((__INTEGER )(arg_count));
- result__0MLH=NULL;
- ptr__1MLH=((__POINTER )(NULL));
- typ_id__2MLH= 0;
- sz__3MLH=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSTRINGo));
- if ((sz__3MLH == 0)) {
- result__0MLH=FAST_ARRAYoSTRINGo__;
- } else {
- typ_id__2MLH=__FAST_ARRAYoSTRINGo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__3MLH);
- if ((typ_id__2MLH == (__INTEGER)(- 1))) {
- a__4MLH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5MLH=(__UINTEGER_32)((__UINTEGER_32)(sz__3MLH + a__4MLH) & (__UINTEGER_32)(~ a__4MLH));
- ptr_table__FNLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5MLH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__ENLH=((__POINTER )(NULL));
- result__GNLH=((__POINTER *)ptr_table__FNLH)[ 0];
- if ((result__GNLH == (void *)NULL)) {
- result__GNLH=new_lab__RTJ(new_size__5MLH);
- next__ENLH=(void *)((unsigned long)result__GNLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5MLH)));
- ((__POINTER *)next__ENLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__FNLH)[ 0]=next__ENLH;
- } else {
- next__ENLH=((__POINTER *)result__GNLH)[ 0];
- if ((next__ENLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GNLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__5MLH << 1)) <= 4096)) {
- next__ENLH=(void *)((unsigned long)result__GNLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5MLH)));
- } else {
- next__ENLH=new_lab__RTJ(new_size__5MLH);
- };
- ((__POINTER *)next__ENLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__FNLH)[ 0]=next__ENLH;
- } else {
- ((__POINTER *)result__GNLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ENLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__GNLH=next__ENLH;
- };
- };
- ptr__1MLH=result__GNLH;
- } else {
- t__ANLH=((__UINTEGER_32 )typ_id__2MLH);
- a__BNLH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__NNLH=(__UINTEGER_32)((__UINTEGER_32)(sz__3MLH + a__BNLH) & (__UINTEGER_32)(~ a__BNLH));
- ptr_table__KNLH=((__POINTER )(&(table_type[(t__ANLH)])));
- lab_type__MNLH=(__UINTEGER_32)(t__ANLH | 1);
- next__JNLH=((__POINTER )(NULL));
- result__LNLH=((__POINTER *)ptr_table__KNLH)[ 0];
- if ((result__LNLH == (void *)NULL)) {
- result__LNLH=new_lab__RTJ(lab_type__MNLH);
- next__JNLH=(void *)((unsigned long)result__LNLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NNLH)));
- ((__POINTER *)next__JNLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__KNLH)[ 0]=next__JNLH;
- } else {
- next__JNLH=((__POINTER *)result__LNLH)[ 0];
- if ((next__JNLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LNLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__NNLH << 1)) <= 4096)) {
- next__JNLH=(void *)((unsigned long)result__LNLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NNLH)));
- } else {
- next__JNLH=new_lab__RTJ(lab_type__MNLH);
- };
- ((__POINTER *)next__JNLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__KNLH)[ 0]=next__JNLH;
- } else {
- ((__POINTER *)result__LNLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JNLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__LNLH=next__JNLH;
- };
- };
- ptr__1MLH=result__LNLH;
- };
- result__0MLH=((__FAST_ARRAYoSTRINGo *)ptr__1MLH);
- *(result__0MLH) = *(FAST_ARRAYoSTRINGo__);
- };
- Self__CNLH=((__FAST_ARRAYoSTRINGo *)result__0MLH);
- if ((Self__CNLH->parent_arrayed_collection__5KC.capacity__JGT < new_count__DNLH)) {
- Self__CNLH->parent_arrayed_collection__5KC.storage__UGT=create__2DRB(new_count__DNLH);
- Self__CNLH->parent_arrayed_collection__5KC.capacity__JGT=new_count__DNLH;
- };
- Self__CNLH->parent_arrayed_collection__5KC.upper__CLC=(__INTEGER)(- 1);
- result__ZID=result__0MLH;
- Self__PJF= 0;
- limit_up__QJF=(__INTEGER)(((__INTEGER )(arg_count)) - 1);
- while ((Self__PJF <= limit_up__QJF)) {
- arg__0ID=((__CHARACTER *)(arg_vector[(Self__PJF)]));
- str__1ID=create__ZBB(fast_first_index_of__until__OLC(arg__0ID));
- Self__3KEB=((__STRING *)str__1ID);
- p__4KEB=arg__0ID;
- i__5KEB= 0;
- Self__3KEB->count__SGC= 0;
- while ((((__CHARACTER *)p__4KEB)[i__5KEB] != '\0')) {
- ch__ZUIH=((__CHARACTER *)p__4KEB)[i__5KEB];
- new_capacity__UUIH= 0;
- if ((Self__3KEB->capacity__UCS <= Self__3KEB->count__SGC)) {
- if ((Self__3KEB->capacity__UCS == 0)) {
- Self__3KEB->capacity__UCS= 32;
- Self__3KEB->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__UUIH=(__INTEGER)(Self__3KEB->capacity__UCS << 1);
- Self__WUIH=((__CHARACTER *)Self__3KEB->storage__3CS);
- old_nb_elts__XUIH=Self__3KEB->capacity__UCS;
- new__YUIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__WUIH),((__UINTEGER_32 )old_nb_elts__XUIH),((__UINTEGER_32 )new_capacity__UUIH)));
- upper__RNLH=(__INTEGER)(new_capacity__UUIH - 1);
- Self__PNLH=old_nb_elts__XUIH;
- while ((Self__PNLH <= upper__RNLH)) {
- new__YUIH[Self__PNLH]='\0';
- Self__PNLH=(__INTEGER)(Self__PNLH + 1);
- };
- Self__3KEB->storage__3CS=new__YUIH;
- Self__3KEB->capacity__UCS=new_capacity__UUIH;
- };
- };
- ((__CHARACTER *)Self__3KEB->storage__3CS)[Self__3KEB->count__SGC]=ch__ZUIH;
- Self__3KEB->count__SGC=(__INTEGER)(Self__3KEB->count__SGC + 1);
- i__5KEB=(__INTEGER)(i__5KEB + 1);
- };
- add_last__URV(result__ZID,str__1ID);
- Self__PJF=(__INTEGER)(Self__PJF + 1);
- };
- output_name__DI=NULL;
- format_name__N1=NULL;
- is_short_code__11=FALSE__;
- is_short_private__J2=FALSE__;
- is_short_recursive__JB=FALSE__;
- is_shorter2__VI=FALSE__;
- input_name__3B=NULL;
- FILE_SYSTEM__->parent_directory__HHD=1;
- string_tmp__LGD=create__ZBB( 255);
- ENTRY__->path__BD=NULL;
- ENTRY__->name__OPT=NULL;
- ENTRY_UNIX__->parent_entry__QGD=(*ENTRY__);
- FILE_UNIX__->parent_entry_unix__EFF=(*ENTRY_UNIX__);
- DIRECTORY_UNIX__->parent_entry_unix__RGD=(*ENTRY_UNIX__);
- DIRECTORY__->list__FIRD=NULL;
- DIRECTORY_UNIX__->parent_directory__SGD=(*DIRECTORY__);
- HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__->buckets__B2S=NULL;
- HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__->capacity__21S= 0;
- HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__->count__C3S= 0;
- result__MWG=NULL;
- ptr__NWG=((__POINTER )(NULL));
- typ_id__SWG= 0;
- sz__PWG=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo));
- if ((sz__PWG == 0)) {
- result__MWG=HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__;
- } else {
- typ_id__SWG=__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__PWG);
- if ((typ_id__SWG == (__INTEGER)(- 1))) {
- a__ONGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__PNGH=(__UINTEGER_32)((__UINTEGER_32)(sz__PWG + a__ONGH) & (__UINTEGER_32)(~ a__ONGH));
- ptr_table__UNLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PNGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__TNLH=((__POINTER )(NULL));
- result__VNLH=((__POINTER *)ptr_table__UNLH)[ 0];
- if ((result__VNLH == (void *)NULL)) {
- result__VNLH=new_lab__RTJ(new_size__PNGH);
- next__TNLH=(void *)((unsigned long)result__VNLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PNGH)));
- ((__POINTER *)next__TNLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__UNLH)[ 0]=next__TNLH;
- } else {
- next__TNLH=((__POINTER *)result__VNLH)[ 0];
- if ((next__TNLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VNLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__PNGH << 1)) <= 4096)) {
- next__TNLH=(void *)((unsigned long)result__VNLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PNGH)));
- } else {
- next__TNLH=new_lab__RTJ(new_size__PNGH);
- };
- ((__POINTER *)next__TNLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__UNLH)[ 0]=next__TNLH;
- } else {
- ((__POINTER *)result__VNLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TNLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__VNLH=next__TNLH;
- };
- };
- ptr__NWG=result__VNLH;
- } else {
- t__TNGH=((__UINTEGER_32 )typ_id__SWG);
- a__SNGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__2NLH=(__UINTEGER_32)((__UINTEGER_32)(sz__PWG + a__SNGH) & (__UINTEGER_32)(~ a__SNGH));
- ptr_table__ZNLH=((__POINTER )(&(table_type[(t__TNGH)])));
- lab_type__1NLH=(__UINTEGER_32)(t__TNGH | 1);
- next__YNLH=((__POINTER )(NULL));
- result__0NLH=((__POINTER *)ptr_table__ZNLH)[ 0];
- if ((result__0NLH == (void *)NULL)) {
- result__0NLH=new_lab__RTJ(lab_type__1NLH);
- next__YNLH=(void *)((unsigned long)result__0NLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2NLH)));
- ((__POINTER *)next__YNLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__ZNLH)[ 0]=next__YNLH;
- } else {
- next__YNLH=((__POINTER *)result__0NLH)[ 0];
- if ((next__YNLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0NLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__2NLH << 1)) <= 4096)) {
- next__YNLH=(void *)((unsigned long)result__0NLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2NLH)));
- } else {
- next__YNLH=new_lab__RTJ(lab_type__1NLH);
- };
- ((__POINTER *)next__YNLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__ZNLH)[ 0]=next__YNLH;
- } else {
- ((__POINTER *)result__0NLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YNLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__0NLH=next__YNLH;
- };
- };
- ptr__NWG=result__0NLH;
- };
- result__MWG=((__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *)ptr__NWG);
- *(result__MWG) = *(HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo__);
- };
- Self__SKT=((__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *)result__MWG);
- new_capacity__ZKY=prime_number_ceiling__021( 193);
- Self__SKT->buckets__B2S=create__QA4(new_capacity__ZKY);
- Self__SKT->capacity__21S=new_capacity__ZKY;
- Self__SKT->count__C3S= 0;
- alias__2GD=result__MWG;
- HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__->key__N2S=NULL;
- HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__->next__Z2S=NULL;
- HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__->item__TPOB=NULL;
- string_tmp2__JZAC=create__ZBB( 255);
- string_tmp3__PZAC=create__ZBB( 255);
- ITM_OBJECT__->position__SFJ=((__POSITION ) 0);
- NAMED__->parent_itm_object__4=(*ITM_OBJECT__);
- NAMED__->name__LI=NULL;
- NAMED__->style__0FU='\0';
- PROTOTYPE__->parent_named__5=(*NAMED__);
- HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__->buckets__PMBC=NULL;
- HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__->capacity__KMBC= 0;
- HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__->count__PNBC= 0;
- result__Z0DB=NULL;
- ptr__00DB=((__POINTER )(NULL));
- typ_id__50DB= 0;
- sz__20DB=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo));
- if ((sz__20DB == 0)) {
- result__Z0DB=HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__;
- } else {
- typ_id__50DB=__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__20DB);
- if ((typ_id__50DB == (__INTEGER)(- 1))) {
- a__WNGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__XNGH=(__UINTEGER_32)((__UINTEGER_32)(sz__20DB + a__WNGH) & (__UINTEGER_32)(~ a__WNGH));
- ptr_table__4NLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XNGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__3NLH=((__POINTER )(NULL));
- result__5NLH=((__POINTER *)ptr_table__4NLH)[ 0];
- if ((result__5NLH == (void *)NULL)) {
- result__5NLH=new_lab__RTJ(new_size__XNGH);
- next__3NLH=(void *)((unsigned long)result__5NLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XNGH)));
- ((__POINTER *)next__3NLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__4NLH)[ 0]=next__3NLH;
- } else {
- next__3NLH=((__POINTER *)result__5NLH)[ 0];
- if ((next__3NLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5NLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__XNGH << 1)) <= 4096)) {
- next__3NLH=(void *)((unsigned long)result__5NLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XNGH)));
- } else {
- next__3NLH=new_lab__RTJ(new_size__XNGH);
- };
- ((__POINTER *)next__3NLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__4NLH)[ 0]=next__3NLH;
- } else {
- ((__POINTER *)result__5NLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3NLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__5NLH=next__3NLH;
- };
- };
- ptr__00DB=result__5NLH;
- } else {
- t__1NGH=((__UINTEGER_32 )typ_id__50DB);
- a__0NGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__GOLH=(__UINTEGER_32)((__UINTEGER_32)(sz__20DB + a__0NGH) & (__UINTEGER_32)(~ a__0NGH));
- ptr_table__DOLH=((__POINTER )(&(table_type[(t__1NGH)])));
- lab_type__FOLH=(__UINTEGER_32)(t__1NGH | 1);
- next__COLH=((__POINTER )(NULL));
- result__EOLH=((__POINTER *)ptr_table__DOLH)[ 0];
- if ((result__EOLH == (void *)NULL)) {
- result__EOLH=new_lab__RTJ(lab_type__FOLH);
- next__COLH=(void *)((unsigned long)result__EOLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GOLH)));
- ((__POINTER *)next__COLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__DOLH)[ 0]=next__COLH;
- } else {
- next__COLH=((__POINTER *)result__EOLH)[ 0];
- if ((next__COLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EOLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__GOLH << 1)) <= 4096)) {
- next__COLH=(void *)((unsigned long)result__EOLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GOLH)));
- } else {
- next__COLH=new_lab__RTJ(lab_type__FOLH);
- };
- ((__POINTER *)next__COLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__DOLH)[ 0]=next__COLH;
- } else {
- ((__POINTER *)result__EOLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__COLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__EOLH=next__COLH;
- };
- };
- ptr__00DB=result__EOLH;
- };
- result__Z0DB=((__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *)ptr__00DB);
- *(result__Z0DB) = *(HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo__);
- };
- Self__ULCC=((__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *)result__Z0DB);
- new_capacity__DVJC=prime_number_ceiling__021( 193);
- Self__ULCC->buckets__PMBC=create__ZITC(new_capacity__DVJC);
- Self__ULCC->capacity__KMBC=new_capacity__DVJC;
- Self__ULCC->count__PNBC= 0;
- prototype_dico__LUS=result__Z0DB;
- HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__->key__1MBC=NULL;
- HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__->next__GNBC=NULL;
- PROTOTYPE__->filename__FSG=NULL;
- PROTOTYPE__->shortname__3JE=NULL;
- ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo__->upper__RABC= 0;
- ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo__->capacity__TABC= 0;
- ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo__->storage__PBBC=NULL;
- FAST_ARRAYoITM_TYPE_PARAMETERo__->parent_arrayed_collection__LOE=(*ARRAYED_COLLECTIONoITM_TYPE_PARAMETERo__);
- ITM_TYPE_SIMPLE__->name__GZP=NULL;
- ITM_TYPE_PARAMETER__->parent_itm_type__VFE=(*ITM_TYPE_SIMPLE__);
- PROTOTYPE__->idf_generic_list__MOE=NULL;
- ARRAYED_COLLECTIONoPROTOTYPEo__->upper__HJ= 0;
- ARRAYED_COLLECTIONoPROTOTYPEo__->storage__DVT=NULL;
- ARRAYED_COLLECTIONoPROTOTYPEo__->capacity__WEU= 0;
- FAST_ARRAYoPROTOTYPEo__->parent_arrayed_collection__AJ=(*ARRAYED_COLLECTIONoPROTOTYPEo__);
- result__JPJ=NULL;
- ptr__KPJ=((__POINTER )(NULL));
- typ_id__PPJ= 0;
- sz__MPJ=((__UINTEGER_32 )sizeof(__FAST_ARRAYoPROTOTYPEo));
- if ((sz__MPJ == 0)) {
- result__JPJ=FAST_ARRAYoPROTOTYPEo__;
- } else {
- typ_id__PPJ=__FAST_ARRAYoPROTOTYPEo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__MPJ);
- if ((typ_id__PPJ == (__INTEGER)(- 1))) {
- a__4NGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5NGH=(__UINTEGER_32)((__UINTEGER_32)(sz__MPJ + a__4NGH) & (__UINTEGER_32)(~ a__4NGH));
- ptr_table__IOLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5NGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__HOLH=((__POINTER )(NULL));
- result__JOLH=((__POINTER *)ptr_table__IOLH)[ 0];
- if ((result__JOLH == (void *)NULL)) {
- result__JOLH=new_lab__RTJ(new_size__5NGH);
- next__HOLH=(void *)((unsigned long)result__JOLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5NGH)));
- ((__POINTER *)next__HOLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__IOLH)[ 0]=next__HOLH;
- } else {
- next__HOLH=((__POINTER *)result__JOLH)[ 0];
- if ((next__HOLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JOLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__5NGH << 1)) <= 4096)) {
- next__HOLH=(void *)((unsigned long)result__JOLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5NGH)));
- } else {
- next__HOLH=new_lab__RTJ(new_size__5NGH);
- };
- ((__POINTER *)next__HOLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__IOLH)[ 0]=next__HOLH;
- } else {
- ((__POINTER *)result__JOLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HOLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__JOLH=next__HOLH;
- };
- };
- ptr__KPJ=result__JOLH;
- } else {
- t__DOGH=((__UINTEGER_32 )typ_id__PPJ);
- a__COGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__QOLH=(__UINTEGER_32)((__UINTEGER_32)(sz__MPJ + a__COGH) & (__UINTEGER_32)(~ a__COGH));
- ptr_table__NOLH=((__POINTER )(&(table_type[(t__DOGH)])));
- lab_type__POLH=(__UINTEGER_32)(t__DOGH | 1);
- next__MOLH=((__POINTER )(NULL));
- result__OOLH=((__POINTER *)ptr_table__NOLH)[ 0];
- if ((result__OOLH == (void *)NULL)) {
- result__OOLH=new_lab__RTJ(lab_type__POLH);
- next__MOLH=(void *)((unsigned long)result__OOLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QOLH)));
- ((__POINTER *)next__MOLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__NOLH)[ 0]=next__MOLH;
- } else {
- next__MOLH=((__POINTER *)result__OOLH)[ 0];
- if ((next__MOLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OOLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__QOLH << 1)) <= 4096)) {
- next__MOLH=(void *)((unsigned long)result__OOLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QOLH)));
- } else {
- next__MOLH=new_lab__RTJ(lab_type__POLH);
- };
- ((__POINTER *)next__MOLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__NOLH)[ 0]=next__MOLH;
- } else {
- ((__POINTER *)result__OOLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MOLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__OOLH=next__MOLH;
- };
- };
- ptr__KPJ=result__OOLH;
- };
- result__JPJ=((__FAST_ARRAYoPROTOTYPEo *)ptr__KPJ);
- *(result__JPJ) = *(FAST_ARRAYoPROTOTYPEo__);
- };
- Self__NEU=((__FAST_ARRAYoPROTOTYPEo *)result__JPJ);
- if ((Self__NEU->parent_arrayed_collection__AJ.capacity__WEU < 512)) {
- Self__NEU->parent_arrayed_collection__AJ.storage__DVT=create__JDSB( 512);
- Self__NEU->parent_arrayed_collection__AJ.capacity__WEU= 512;
- };
- Self__NEU->parent_arrayed_collection__AJ.upper__HJ=(__INTEGER)(- 1);
- prototype_list__BJ=result__JPJ;
- PROTOTYPE__->index__GPG= 0;
- HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__->item__NBHD=NULL;
- string_tmp__4VX=create__ZBB( 128);
- PROTOTYPE__->source__3BC=NULL;
- HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__->buckets__NAGC=NULL;
- HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__->capacity__W3BC= 0;
- HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__->count__YOGC= 0;
- PROTOTYPE__->slot_list__YVS=NULL;
- object__ZBC=NULL;
- source__5BC=NULL;
- position__CCC= 0;
- pos_cur__FCC= 0;
- pos_line__GCC= 0;
- pos_col__HCC= 0;
- string_tmp3__HUD=create__ZBB( 256);
- string_tmp4__JUD=create__ZBB( 256);
- short_derive__PCC= 0;
- output_code__SI=create__ZBB( 4000000);
- is_active_short__OCC=FALSE__;
- HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__->buckets__1DT=NULL;
- HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__->capacity__WDT= 0;
- HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__->count__4MY= 0;
- result__2PH=NULL;
- ptr__3PH=((__POINTER )(NULL));
- typ_id__CQH= 0;
- sz__5PH=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo));
- if ((sz__5PH == 0)) {
- result__2PH=HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__;
- } else {
- typ_id__CQH=__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__5PH);
- if ((typ_id__CQH == (__INTEGER)(- 1))) {
- a__GOGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HOGH=(__UINTEGER_32)((__UINTEGER_32)(sz__5PH + a__GOGH) & (__UINTEGER_32)(~ a__GOGH));
- ptr_table__SOLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HOGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__ROLH=((__POINTER )(NULL));
- result__TOLH=((__POINTER *)ptr_table__SOLH)[ 0];
- if ((result__TOLH == (void *)NULL)) {
- result__TOLH=new_lab__RTJ(new_size__HOGH);
- next__ROLH=(void *)((unsigned long)result__TOLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HOGH)));
- ((__POINTER *)next__ROLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__SOLH)[ 0]=next__ROLH;
- } else {
- next__ROLH=((__POINTER *)result__TOLH)[ 0];
- if ((next__ROLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TOLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__HOGH << 1)) <= 4096)) {
- next__ROLH=(void *)((unsigned long)result__TOLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HOGH)));
- } else {
- next__ROLH=new_lab__RTJ(new_size__HOGH);
- };
- ((__POINTER *)next__ROLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__SOLH)[ 0]=next__ROLH;
- } else {
- ((__POINTER *)result__TOLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ROLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__TOLH=next__ROLH;
- };
- };
- ptr__3PH=result__TOLH;
- } else {
- t__LOGH=((__UINTEGER_32 )typ_id__CQH);
- a__KOGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__0OLH=(__UINTEGER_32)((__UINTEGER_32)(sz__5PH + a__KOGH) & (__UINTEGER_32)(~ a__KOGH));
- ptr_table__XOLH=((__POINTER )(&(table_type[(t__LOGH)])));
- lab_type__ZOLH=(__UINTEGER_32)(t__LOGH | 1);
- next__WOLH=((__POINTER )(NULL));
- result__YOLH=((__POINTER *)ptr_table__XOLH)[ 0];
- if ((result__YOLH == (void *)NULL)) {
- result__YOLH=new_lab__RTJ(lab_type__ZOLH);
- next__WOLH=(void *)((unsigned long)result__YOLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0OLH)));
- ((__POINTER *)next__WOLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__XOLH)[ 0]=next__WOLH;
- } else {
- next__WOLH=((__POINTER *)result__YOLH)[ 0];
- if ((next__WOLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YOLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__0OLH << 1)) <= 4096)) {
- next__WOLH=(void *)((unsigned long)result__YOLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0OLH)));
- } else {
- next__WOLH=new_lab__RTJ(lab_type__ZOLH);
- };
- ((__POINTER *)next__WOLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__XOLH)[ 0]=next__WOLH;
- } else {
- ((__POINTER *)result__YOLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WOLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__YOLH=next__WOLH;
- };
- };
- ptr__3PH=result__YOLH;
- };
- result__2PH=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)ptr__3PH);
- *(result__2PH) = *(HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__);
- };
- Self__ZOT=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__2PH);
- new_capacity__ZMY=prime_number_ceiling__021( 193);
- Self__ZOT->buckets__1DT=create__0E4(new_capacity__ZMY);
- Self__ZOT->capacity__WDT=new_capacity__ZMY;
- Self__ZOT->count__4MY= 0;
- short_dico__QD=result__2PH;
- HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__->key__HET=NULL;
- HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__->next__SET=NULL;
- token__BED=create__ZBB( 100);
- HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__->item__KW3=NULL;
- LINKED_COLLECTIONoSTRING_CONSTANTo__->upper__0ED= 0;
- LINKED_LISToSTRING_CONSTANTo__->parent_linked_collection__LD=(*LINKED_COLLECTIONoSTRING_CONSTANTo__);
- LINKED_LISToSTRING_CONSTANTo__->mem_idx__YTEC= 0;
- LINKED_LISToSTRING_CONSTANTo__->mem_lnk__0TEC=NULL;
- LINKED_LISToSTRING_CONSTANTo__->first_link__OTEC=NULL;
- LINKED_LIST_NODEoSTRING_CONSTANTo__->next__JROD=NULL;
- LINKED_LIST_NODEoSTRING_CONSTANTo__->item__L0HD=NULL;
- type_error__5PG= 0;
- msg_err__AQG=create__ZBB( 256);
- skip_comment__ZBE=FALSE__;
- last_comment_slot__LCE=NULL;
- last_comment_extern__XZC=NULL;
- begin_position__BDE= 0;
- last_string__D2C=NULL;
- string_tmp2__GCJ=create__ZBB( 256);
- last_integer__VSO= 0;
- LINKED_LISToSTRING_CONSTANTo__->last_link__XTEC=NULL;
- index_count__P5= 0;
- HASHED_DICTIONARYoTYPExSTRING_CONSTANTo__->buckets__J3R=NULL;
- HASHED_DICTIONARYoTYPExSTRING_CONSTANTo__->capacity__E3R= 0;
- HASHED_DICTIONARYoTYPExSTRING_CONSTANTo__->count__J4R= 0;
- result__JPC=NULL;
- ptr__KPC=((__POINTER )(NULL));
- typ_id__PPC= 0;
- sz__MPC=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoTYPExSTRING_CONSTANTo));
- if ((sz__MPC == 0)) {
- result__JPC=HASHED_DICTIONARYoTYPExSTRING_CONSTANTo__;
- } else {
- typ_id__PPC=__HASHED_DICTIONARYoTYPExSTRING_CONSTANTo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__MPC);
- if ((typ_id__PPC == (__INTEGER)(- 1))) {
- a__OOGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__POGH=(__UINTEGER_32)((__UINTEGER_32)(sz__MPC + a__OOGH) & (__UINTEGER_32)(~ a__OOGH));
- ptr_table__2OLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__POGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__1OLH=((__POINTER )(NULL));
- result__3OLH=((__POINTER *)ptr_table__2OLH)[ 0];
- if ((result__3OLH == (void *)NULL)) {
- result__3OLH=new_lab__RTJ(new_size__POGH);
- next__1OLH=(void *)((unsigned long)result__3OLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__POGH)));
- ((__POINTER *)next__1OLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__2OLH)[ 0]=next__1OLH;
- } else {
- next__1OLH=((__POINTER *)result__3OLH)[ 0];
- if ((next__1OLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3OLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__POGH << 1)) <= 4096)) {
- next__1OLH=(void *)((unsigned long)result__3OLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__POGH)));
- } else {
- next__1OLH=new_lab__RTJ(new_size__POGH);
- };
- ((__POINTER *)next__1OLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__2OLH)[ 0]=next__1OLH;
- } else {
- ((__POINTER *)result__3OLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1OLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__3OLH=next__1OLH;
- };
- };
- ptr__KPC=result__3OLH;
- } else {
- t__TOGH=((__UINTEGER_32 )typ_id__PPC);
- a__SOGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__EPLH=(__UINTEGER_32)((__UINTEGER_32)(sz__MPC + a__SOGH) & (__UINTEGER_32)(~ a__SOGH));
- ptr_table__BPLH=((__POINTER )(&(table_type[(t__TOGH)])));
- lab_type__DPLH=(__UINTEGER_32)(t__TOGH | 1);
- next__APLH=((__POINTER )(NULL));
- result__CPLH=((__POINTER *)ptr_table__BPLH)[ 0];
- if ((result__CPLH == (void *)NULL)) {
- result__CPLH=new_lab__RTJ(lab_type__DPLH);
- next__APLH=(void *)((unsigned long)result__CPLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EPLH)));
- ((__POINTER *)next__APLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__BPLH)[ 0]=next__APLH;
- } else {
- next__APLH=((__POINTER *)result__CPLH)[ 0];
- if ((next__APLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CPLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__EPLH << 1)) <= 4096)) {
- next__APLH=(void *)((unsigned long)result__CPLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EPLH)));
- } else {
- next__APLH=new_lab__RTJ(lab_type__DPLH);
- };
- ((__POINTER *)next__APLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__BPLH)[ 0]=next__APLH;
- } else {
- ((__POINTER *)result__CPLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__APLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__CPLH=next__APLH;
- };
- };
- ptr__KPC=result__CPLH;
- };
- result__JPC=((__HASHED_DICTIONARYoTYPExSTRING_CONSTANTo *)ptr__KPC);
- *(result__JPC) = *(HASHED_DICTIONARYoTYPExSTRING_CONSTANTo__);
- };
- Self__KQS=((__HASHED_DICTIONARYoTYPExSTRING_CONSTANTo *)result__JPC);
- new_capacity__UKX=prime_number_ceiling__021( 193);
- Self__KQS->buckets__J3R=create__PX2(new_capacity__UKX);
- Self__KQS->capacity__E3R=new_capacity__UKX;
- Self__KQS->count__J4R= 0;
- HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo__->key__V3R=NULL;
- HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo__->next__A4R=NULL;
- ARRAYED_COLLECTIONoSLOTo__->capacity__QFS= 0;
- FAST_ARRAYoSLOTo__->parent_arrayed_collection__BAB=(*ARRAYED_COLLECTIONoSLOTo__);
- ITM_SLOT__->parent_named__15=(*NAMED__);
- TYPE_FULL__->flag__UGS= 0;
- ARRAYED_COLLECTIONoTYPE_IDo__->upper__O5R= 0;
- ARRAYED_COLLECTIONoTYPE_IDo__->capacity__Q5R= 0;
- ARRAYED_COLLECTIONoTYPE_IDo__->storage__MAS=NULL;
- FAST_ARRAYoTYPE_IDo__->parent_arrayed_collection__ABB=(*ARRAYED_COLLECTIONoTYPE_IDo__);
- list_id__CBB=NULL;
- directory_list__YB=NULL;
- file_list__0B=NULL;
- current_list__2B=NULL;
- LINKED_COLLECTIONoENTRYo__->upper__HR3D= 0;
- LINKED_LISToENTRYo__->parent_linked_collection__EIRD=(*LINKED_COLLECTIONoENTRYo__);
- LINKED_LISToENTRYo__->first_link__OMWE=NULL;
- LINKED_LISToENTRYo__->mem_idx__VMWE= 0;
- LINKED_LISToENTRYo__->mem_lnk__WMWE=NULL;
- LINKED_LISToENTRYo__->last_link__XMWE=NULL;
- LINKED_LIST_NODEoENTRYo__->item__IAXE=NULL;
- LINKED_LIST_NODEoENTRYo__->next__G3FF=NULL;
- FILE_UNIX__->stream__BMRD=((__POINTER )(NULL));
- proto_input__BI=NULL;
- HASHED_SEToSTRING_CONSTANTo__->buckets__DEV=NULL;
- HASHED_SEToSTRING_CONSTANTo__->capacity__HIT= 0;
- HASHED_SEToSTRING_CONSTANTo__->count__1FY= 0;
- short_local__XCC=NULL;
- output_decl__VHE=create__ZBB( 60000);
- PROTOTYPE__->type_style__S4C=NULL;
- is_parameter_type__AME=FALSE__;
- ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo__->upper__ZUV= 0;
- ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo__->capacity__UYV= 0;
- ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo__->storage__PZV=NULL;
- FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo__->parent_arrayed_collection__FVP=(*ARRAYED_COLLECTIONoFAST_ARRAYoITM_TYPE_MONOoo__);
- ARRAYED_COLLECTIONoITM_TYPE_MONOo__->upper__4HV= 0;
- ARRAYED_COLLECTIONoITM_TYPE_MONOo__->storage__FMV=NULL;
- ARRAYED_COLLECTIONoITM_TYPE_MONOo__->capacity__TNV= 0;
- FAST_ARRAYoITM_TYPE_MONOo__->parent_arrayed_collection__SYC=(*ARRAYED_COLLECTIONoITM_TYPE_MONOo__);
- result__30Q=NULL;
- ptr__40Q=((__POINTER )(NULL));
- typ_id__D1Q= 0;
- sz__A1Q=((__UINTEGER_32 )sizeof(__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo));
- if ((sz__A1Q == 0)) {
- result__30Q=FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo__;
- } else {
- typ_id__D1Q=__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__A1Q);
- if ((typ_id__D1Q == (__INTEGER)(- 1))) {
- a__WOGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__XOGH=(__UINTEGER_32)((__UINTEGER_32)(sz__A1Q + a__WOGH) & (__UINTEGER_32)(~ a__WOGH));
- ptr_table__GPLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XOGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__FPLH=((__POINTER )(NULL));
- result__HPLH=((__POINTER *)ptr_table__GPLH)[ 0];
- if ((result__HPLH == (void *)NULL)) {
- result__HPLH=new_lab__RTJ(new_size__XOGH);
- next__FPLH=(void *)((unsigned long)result__HPLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XOGH)));
- ((__POINTER *)next__FPLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__GPLH)[ 0]=next__FPLH;
- } else {
- next__FPLH=((__POINTER *)result__HPLH)[ 0];
- if ((next__FPLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HPLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__XOGH << 1)) <= 4096)) {
- next__FPLH=(void *)((unsigned long)result__HPLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XOGH)));
- } else {
- next__FPLH=new_lab__RTJ(new_size__XOGH);
- };
- ((__POINTER *)next__FPLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__GPLH)[ 0]=next__FPLH;
- } else {
- ((__POINTER *)result__HPLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FPLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__HPLH=next__FPLH;
- };
- };
- ptr__40Q=result__HPLH;
- } else {
- t__1OGH=((__UINTEGER_32 )typ_id__D1Q);
- a__0OGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__OPLH=(__UINTEGER_32)((__UINTEGER_32)(sz__A1Q + a__0OGH) & (__UINTEGER_32)(~ a__0OGH));
- ptr_table__LPLH=((__POINTER )(&(table_type[(t__1OGH)])));
- lab_type__NPLH=(__UINTEGER_32)(t__1OGH | 1);
- next__KPLH=((__POINTER )(NULL));
- result__MPLH=((__POINTER *)ptr_table__LPLH)[ 0];
- if ((result__MPLH == (void *)NULL)) {
- result__MPLH=new_lab__RTJ(lab_type__NPLH);
- next__KPLH=(void *)((unsigned long)result__MPLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OPLH)));
- ((__POINTER *)next__KPLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__LPLH)[ 0]=next__KPLH;
- } else {
- next__KPLH=((__POINTER *)result__MPLH)[ 0];
- if ((next__KPLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MPLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__OPLH << 1)) <= 4096)) {
- next__KPLH=(void *)((unsigned long)result__MPLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OPLH)));
- } else {
- next__KPLH=new_lab__RTJ(lab_type__NPLH);
- };
- ((__POINTER *)next__KPLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__LPLH)[ 0]=next__KPLH;
- } else {
- ((__POINTER *)result__MPLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KPLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__MPLH=next__KPLH;
- };
- };
- ptr__40Q=result__MPLH;
- };
- result__30Q=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)ptr__40Q);
- *(result__30Q) = *(FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo__);
- };
- Self__L3V=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)result__30Q);
- if ((Self__L3V->parent_arrayed_collection__FVP.capacity__UYV < 5)) {
- Self__L3V->parent_arrayed_collection__FVP.storage__PZV=create__PHRB( 5);
- Self__L3V->parent_arrayed_collection__FVP.capacity__UYV= 5;
- };
- Self__L3V->parent_arrayed_collection__FVP.upper__ZUV=(__INTEGER)(- 1);
- free_list__GVP=result__30Q;
- empty_list__NWP=create_with_capacity__EGR( 0);
- HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__->buckets__K5V=NULL;
- HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__->capacity__F5V= 0;
- HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__->count__ZHW= 0;
- result__0ER=NULL;
- ptr__1ER=((__POINTER )(NULL));
- typ_id__AFR= 0;
- sz__3ER=((__UINTEGER_32 )sizeof(__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo));
- if ((sz__3ER == 0)) {
- result__0ER=HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__;
- } else {
- typ_id__AFR=__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__3ER);
- if ((typ_id__AFR == (__INTEGER)(- 1))) {
- a__4OGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5OGH=(__UINTEGER_32)((__UINTEGER_32)(sz__3ER + a__4OGH) & (__UINTEGER_32)(~ a__4OGH));
- ptr_table__QPLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5OGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__PPLH=((__POINTER )(NULL));
- result__RPLH=((__POINTER *)ptr_table__QPLH)[ 0];
- if ((result__RPLH == (void *)NULL)) {
- result__RPLH=new_lab__RTJ(new_size__5OGH);
- next__PPLH=(void *)((unsigned long)result__RPLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5OGH)));
- ((__POINTER *)next__PPLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__QPLH)[ 0]=next__PPLH;
- } else {
- next__PPLH=((__POINTER *)result__RPLH)[ 0];
- if ((next__PPLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RPLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__5OGH << 1)) <= 4096)) {
- next__PPLH=(void *)((unsigned long)result__RPLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5OGH)));
- } else {
- next__PPLH=new_lab__RTJ(new_size__5OGH);
- };
- ((__POINTER *)next__PPLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__QPLH)[ 0]=next__PPLH;
- } else {
- ((__POINTER *)result__RPLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PPLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__RPLH=next__PPLH;
- };
- };
- ptr__1ER=result__RPLH;
- } else {
- t__DPGH=((__UINTEGER_32 )typ_id__AFR);
- a__CPGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__YPLH=(__UINTEGER_32)((__UINTEGER_32)(sz__3ER + a__CPGH) & (__UINTEGER_32)(~ a__CPGH));
- ptr_table__VPLH=((__POINTER )(&(table_type[(t__DPGH)])));
- lab_type__XPLH=(__UINTEGER_32)(t__DPGH | 1);
- next__UPLH=((__POINTER )(NULL));
- result__WPLH=((__POINTER *)ptr_table__VPLH)[ 0];
- if ((result__WPLH == (void *)NULL)) {
- result__WPLH=new_lab__RTJ(lab_type__XPLH);
- next__UPLH=(void *)((unsigned long)result__WPLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YPLH)));
- ((__POINTER *)next__UPLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__VPLH)[ 0]=next__UPLH;
- } else {
- next__UPLH=((__POINTER *)result__WPLH)[ 0];
- if ((next__UPLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WPLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__YPLH << 1)) <= 4096)) {
- next__UPLH=(void *)((unsigned long)result__WPLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YPLH)));
- } else {
- next__UPLH=new_lab__RTJ(lab_type__XPLH);
- };
- ((__POINTER *)next__UPLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__VPLH)[ 0]=next__UPLH;
- } else {
- ((__POINTER *)result__WPLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UPLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__WPLH=next__UPLH;
- };
- };
- ptr__1ER=result__WPLH;
- };
- result__0ER=((__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *)ptr__1ER);
- *(result__0ER) = *(HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo__);
- };
- Self__3EW=((__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *)result__0ER);
- new_capacity__3G1=prime_number_ceiling__021( 53);
- Self__3EW->buckets__K5V=create__SWBB(new_capacity__3G1);
- Self__3EW->capacity__F5V=new_capacity__3G1;
- Self__3EW->count__ZHW= 0;
- bucket__YWP=result__0ER;
- ITM_TYPE_STYLE__->parent_itm_type_simple__3SN=(*ITM_TYPE_SIMPLE__);
- ITM_TYPE_STYLE__->style__PZP=NULL;
- ITM_TYPE_GENERIC__->parent_itm_type_style__4SN=(*ITM_TYPE_STYLE__);
- HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo__->item__W5V=NULL;
- HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo__->next__CAW=NULL;
- ARRAYED_COLLECTIONoITM_TYPE_MULTIo__->upper__SKP= 0;
- ARRAYED_COLLECTIONoITM_TYPE_MULTIo__->capacity__R1V= 0;
- ARRAYED_COLLECTIONoITM_TYPE_MULTIo__->storage__21V=NULL;
- FAST_ARRAYoITM_TYPE_MULTIo__->parent_arrayed_collection__IKP=(*ARRAYED_COLLECTIONoITM_TYPE_MULTIo__);
- result__KTQ=NULL;
- ptr__LTQ=((__POINTER )(NULL));
- typ_id__QTQ= 0;
- sz__NTQ=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_TYPE_MULTIo));
- if ((sz__NTQ == 0)) {
- result__KTQ=FAST_ARRAYoITM_TYPE_MULTIo__;
- } else {
- typ_id__QTQ=__FAST_ARRAYoITM_TYPE_MULTIo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__NTQ);
- if ((typ_id__QTQ == (__INTEGER)(- 1))) {
- a__GPGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HPGH=(__UINTEGER_32)((__UINTEGER_32)(sz__NTQ + a__GPGH) & (__UINTEGER_32)(~ a__GPGH));
- ptr_table__0PLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HPGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__ZPLH=((__POINTER )(NULL));
- result__1PLH=((__POINTER *)ptr_table__0PLH)[ 0];
- if ((result__1PLH == (void *)NULL)) {
- result__1PLH=new_lab__RTJ(new_size__HPGH);
- next__ZPLH=(void *)((unsigned long)result__1PLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HPGH)));
- ((__POINTER *)next__ZPLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__0PLH)[ 0]=next__ZPLH;
- } else {
- next__ZPLH=((__POINTER *)result__1PLH)[ 0];
- if ((next__ZPLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1PLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__HPGH << 1)) <= 4096)) {
- next__ZPLH=(void *)((unsigned long)result__1PLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HPGH)));
- } else {
- next__ZPLH=new_lab__RTJ(new_size__HPGH);
- };
- ((__POINTER *)next__ZPLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__0PLH)[ 0]=next__ZPLH;
- } else {
- ((__POINTER *)result__1PLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZPLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__1PLH=next__ZPLH;
- };
- };
- ptr__LTQ=result__1PLH;
- } else {
- t__LPGH=((__UINTEGER_32 )typ_id__QTQ);
- a__KPGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__CQLH=(__UINTEGER_32)((__UINTEGER_32)(sz__NTQ + a__KPGH) & (__UINTEGER_32)(~ a__KPGH));
- ptr_table__5PLH=((__POINTER )(&(table_type[(t__LPGH)])));
- lab_type__BQLH=(__UINTEGER_32)(t__LPGH | 1);
- next__4PLH=((__POINTER )(NULL));
- result__AQLH=((__POINTER *)ptr_table__5PLH)[ 0];
- if ((result__AQLH == (void *)NULL)) {
- result__AQLH=new_lab__RTJ(lab_type__BQLH);
- next__4PLH=(void *)((unsigned long)result__AQLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CQLH)));
- ((__POINTER *)next__4PLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__5PLH)[ 0]=next__4PLH;
- } else {
- next__4PLH=((__POINTER *)result__AQLH)[ 0];
- if ((next__4PLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__AQLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__CQLH << 1)) <= 4096)) {
- next__4PLH=(void *)((unsigned long)result__AQLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CQLH)));
- } else {
- next__4PLH=new_lab__RTJ(lab_type__BQLH);
- };
- ((__POINTER *)next__4PLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__5PLH)[ 0]=next__4PLH;
- } else {
- ((__POINTER *)result__AQLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4PLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__AQLH=next__4PLH;
- };
- };
- ptr__LTQ=result__AQLH;
- };
- result__KTQ=((__FAST_ARRAYoITM_TYPE_MULTIo *)ptr__LTQ);
- *(result__KTQ) = *(FAST_ARRAYoITM_TYPE_MULTIo__);
- };
- Self__I1V=((__FAST_ARRAYoITM_TYPE_MULTIo *)result__KTQ);
- if ((Self__I1V->parent_arrayed_collection__IKP.capacity__R1V < 32)) {
- Self__I1V->parent_arrayed_collection__IKP.storage__21V=create__PJXB( 32);
- Self__I1V->parent_arrayed_collection__IKP.capacity__R1V= 32;
- };
- Self__I1V->parent_arrayed_collection__IKP.upper__SKP=(__INTEGER)(- 1);
- dico__JKP=result__KTQ;
- ITM_TYPE_MULTI__->list_type__2KP=NULL;
- ITM_TYPE_BLOCK__->type_argument__SNN=NULL;
- ITM_TYPE_GENERIC__->list_type__ZZP=NULL;
- ITM_TYPE_BLOCK__->type_result__2NN=NULL;
- ARRAYED_COLLECTIONoITM_TYPE_BLOCKo__->upper__ENN= 0;
- ARRAYED_COLLECTIONoITM_TYPE_BLOCKo__->capacity__0JV= 0;
- ARRAYED_COLLECTIONoITM_TYPE_BLOCKo__->storage__FKV=NULL;
- FAST_ARRAYoITM_TYPE_BLOCKo__->parent_arrayed_collection__0MN=(*ARRAYED_COLLECTIONoITM_TYPE_BLOCKo__);
- result__Q1O=NULL;
- ptr__R1O=((__POINTER )(NULL));
- typ_id__W1O= 0;
- sz__T1O=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_TYPE_BLOCKo));
- if ((sz__T1O == 0)) {
- result__Q1O=FAST_ARRAYoITM_TYPE_BLOCKo__;
- } else {
- typ_id__W1O=__FAST_ARRAYoITM_TYPE_BLOCKo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__T1O);
- if ((typ_id__W1O == (__INTEGER)(- 1))) {
- a__OPGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__PPGH=(__UINTEGER_32)((__UINTEGER_32)(sz__T1O + a__OPGH) & (__UINTEGER_32)(~ a__OPGH));
- ptr_table__EQLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PPGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__DQLH=((__POINTER )(NULL));
- result__FQLH=((__POINTER *)ptr_table__EQLH)[ 0];
- if ((result__FQLH == (void *)NULL)) {
- result__FQLH=new_lab__RTJ(new_size__PPGH);
- next__DQLH=(void *)((unsigned long)result__FQLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PPGH)));
- ((__POINTER *)next__DQLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__EQLH)[ 0]=next__DQLH;
- } else {
- next__DQLH=((__POINTER *)result__FQLH)[ 0];
- if ((next__DQLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FQLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__PPGH << 1)) <= 4096)) {
- next__DQLH=(void *)((unsigned long)result__FQLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PPGH)));
- } else {
- next__DQLH=new_lab__RTJ(new_size__PPGH);
- };
- ((__POINTER *)next__DQLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__EQLH)[ 0]=next__DQLH;
- } else {
- ((__POINTER *)result__FQLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DQLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__FQLH=next__DQLH;
- };
- };
- ptr__R1O=result__FQLH;
- } else {
- t__TPGH=((__UINTEGER_32 )typ_id__W1O);
- a__SPGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__MQLH=(__UINTEGER_32)((__UINTEGER_32)(sz__T1O + a__SPGH) & (__UINTEGER_32)(~ a__SPGH));
- ptr_table__JQLH=((__POINTER )(&(table_type[(t__TPGH)])));
- lab_type__LQLH=(__UINTEGER_32)(t__TPGH | 1);
- next__IQLH=((__POINTER )(NULL));
- result__KQLH=((__POINTER *)ptr_table__JQLH)[ 0];
- if ((result__KQLH == (void *)NULL)) {
- result__KQLH=new_lab__RTJ(lab_type__LQLH);
- next__IQLH=(void *)((unsigned long)result__KQLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MQLH)));
- ((__POINTER *)next__IQLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__JQLH)[ 0]=next__IQLH;
- } else {
- next__IQLH=((__POINTER *)result__KQLH)[ 0];
- if ((next__IQLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KQLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__MQLH << 1)) <= 4096)) {
- next__IQLH=(void *)((unsigned long)result__KQLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MQLH)));
- } else {
- next__IQLH=new_lab__RTJ(lab_type__LQLH);
- };
- ((__POINTER *)next__IQLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__JQLH)[ 0]=next__IQLH;
- } else {
- ((__POINTER *)result__KQLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__IQLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__KQLH=next__IQLH;
- };
- };
- ptr__R1O=result__KQLH;
- };
- result__Q1O=((__FAST_ARRAYoITM_TYPE_BLOCKo *)ptr__R1O);
- *(result__Q1O) = *(FAST_ARRAYoITM_TYPE_BLOCKo__);
- };
- Self__RJV=((__FAST_ARRAYoITM_TYPE_BLOCKo *)result__Q1O);
- if ((Self__RJV->parent_arrayed_collection__0MN.capacity__0JV < 32)) {
- Self__RJV->parent_arrayed_collection__0MN.storage__FKV=create__KSWB( 32);
- Self__RJV->parent_arrayed_collection__0MN.capacity__0JV= 32;
- };
- Self__RJV->parent_arrayed_collection__0MN.upper__ENN=(__INTEGER)(- 1);
- dico__1MN=result__Q1O;
- ITM_CODE__->parent_itm_object__PFE=(*ITM_OBJECT__);
- ITM_CONSTANT__->parent_itm_code__TYF=(*ITM_CODE__);
- ITM_REAL__->parent_itm_constant__BSO=(*ITM_CONSTANT__);
- ITM_NUMBER__->parent_itm_constant__TSO=(*ITM_CONSTANT__);
- ITM_CHARACTER__->parent_itm_constant__FTO=(*ITM_CONSTANT__);
- ITM_STRING__->parent_itm_constant__WTO=(*ITM_CONSTANT__);
- ARRAYED_COLLECTIONoITM_TYPE_GENERICo__->upper__2YP= 0;
- ARRAYED_COLLECTIONoITM_TYPE_GENERICo__->capacity__HBW= 0;
- ARRAYED_COLLECTIONoITM_TYPE_GENERICo__->storage__SBW=NULL;
- FAST_ARRAYoITM_TYPE_GENERICo__->parent_arrayed_collection__SYP=(*ARRAYED_COLLECTIONoITM_TYPE_GENERICo__);
- result__X3Q=NULL;
- ptr__Y3Q=((__POINTER )(NULL));
- typ_id__33Q= 0;
- sz__03Q=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_TYPE_GENERICo));
- if ((sz__03Q == 0)) {
- result__X3Q=FAST_ARRAYoITM_TYPE_GENERICo__;
- } else {
- typ_id__33Q=__FAST_ARRAYoITM_TYPE_GENERICo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__03Q);
- if ((typ_id__33Q == (__INTEGER)(- 1))) {
- a__WPGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__XPGH=(__UINTEGER_32)((__UINTEGER_32)(sz__03Q + a__WPGH) & (__UINTEGER_32)(~ a__WPGH));
- ptr_table__OQLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XPGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__NQLH=((__POINTER )(NULL));
- result__PQLH=((__POINTER *)ptr_table__OQLH)[ 0];
- if ((result__PQLH == (void *)NULL)) {
- result__PQLH=new_lab__RTJ(new_size__XPGH);
- next__NQLH=(void *)((unsigned long)result__PQLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XPGH)));
- ((__POINTER *)next__NQLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__OQLH)[ 0]=next__NQLH;
- } else {
- next__NQLH=((__POINTER *)result__PQLH)[ 0];
- if ((next__NQLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PQLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__XPGH << 1)) <= 4096)) {
- next__NQLH=(void *)((unsigned long)result__PQLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XPGH)));
- } else {
- next__NQLH=new_lab__RTJ(new_size__XPGH);
- };
- ((__POINTER *)next__NQLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__OQLH)[ 0]=next__NQLH;
- } else {
- ((__POINTER *)result__PQLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NQLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__PQLH=next__NQLH;
- };
- };
- ptr__Y3Q=result__PQLH;
- } else {
- t__1PGH=((__UINTEGER_32 )typ_id__33Q);
- a__0PGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__WQLH=(__UINTEGER_32)((__UINTEGER_32)(sz__03Q + a__0PGH) & (__UINTEGER_32)(~ a__0PGH));
- ptr_table__TQLH=((__POINTER )(&(table_type[(t__1PGH)])));
- lab_type__VQLH=(__UINTEGER_32)(t__1PGH | 1);
- next__SQLH=((__POINTER )(NULL));
- result__UQLH=((__POINTER *)ptr_table__TQLH)[ 0];
- if ((result__UQLH == (void *)NULL)) {
- result__UQLH=new_lab__RTJ(lab_type__VQLH);
- next__SQLH=(void *)((unsigned long)result__UQLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WQLH)));
- ((__POINTER *)next__SQLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__TQLH)[ 0]=next__SQLH;
- } else {
- next__SQLH=((__POINTER *)result__UQLH)[ 0];
- if ((next__SQLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UQLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__WQLH << 1)) <= 4096)) {
- next__SQLH=(void *)((unsigned long)result__UQLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WQLH)));
- } else {
- next__SQLH=new_lab__RTJ(lab_type__VQLH);
- };
- ((__POINTER *)next__SQLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__TQLH)[ 0]=next__SQLH;
- } else {
- ((__POINTER *)result__UQLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__SQLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__UQLH=next__SQLH;
- };
- };
- ptr__Y3Q=result__UQLH;
- };
- result__X3Q=((__FAST_ARRAYoITM_TYPE_GENERICo *)ptr__Y3Q);
- *(result__X3Q) = *(FAST_ARRAYoITM_TYPE_GENERICo__);
- };
- Self__4AW=((__FAST_ARRAYoITM_TYPE_GENERICo *)result__X3Q);
- if ((Self__4AW->parent_arrayed_collection__SYP.capacity__HBW < 32)) {
- Self__4AW->parent_arrayed_collection__SYP.storage__SBW=create__JQXB( 32);
- Self__4AW->parent_arrayed_collection__SYP.capacity__HBW= 32;
- };
- Self__4AW->parent_arrayed_collection__SYP.upper__2YP=(__INTEGER)(- 1);
- dico__TYP=result__X3Q;
- HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo__->buckets__F4T=NULL;
- HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo__->capacity__A4T= 0;
- HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo__->count__CGZ= 0;
- result__ENK=NULL;
- ptr__FNK=((__POINTER )(NULL));
- typ_id__KNK= 0;
- sz__HNK=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo));
- if ((sz__HNK == 0)) {
- result__ENK=HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo__;
- } else {
- typ_id__KNK=__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__HNK);
- if ((typ_id__KNK == (__INTEGER)(- 1))) {
- a__4PGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5PGH=(__UINTEGER_32)((__UINTEGER_32)(sz__HNK + a__4PGH) & (__UINTEGER_32)(~ a__4PGH));
- ptr_table__YQLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5PGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__XQLH=((__POINTER )(NULL));
- result__ZQLH=((__POINTER *)ptr_table__YQLH)[ 0];
- if ((result__ZQLH == (void *)NULL)) {
- result__ZQLH=new_lab__RTJ(new_size__5PGH);
- next__XQLH=(void *)((unsigned long)result__ZQLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5PGH)));
- ((__POINTER *)next__XQLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__YQLH)[ 0]=next__XQLH;
- } else {
- next__XQLH=((__POINTER *)result__ZQLH)[ 0];
- if ((next__XQLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZQLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__5PGH << 1)) <= 4096)) {
- next__XQLH=(void *)((unsigned long)result__ZQLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5PGH)));
- } else {
- next__XQLH=new_lab__RTJ(new_size__5PGH);
- };
- ((__POINTER *)next__XQLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__YQLH)[ 0]=next__XQLH;
- } else {
- ((__POINTER *)result__ZQLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XQLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__ZQLH=next__XQLH;
- };
- };
- ptr__FNK=result__ZQLH;
- } else {
- t__DQGH=((__UINTEGER_32 )typ_id__KNK);
- a__CQGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ARLH=(__UINTEGER_32)((__UINTEGER_32)(sz__HNK + a__CQGH) & (__UINTEGER_32)(~ a__CQGH));
- ptr_table__3QLH=((__POINTER )(&(table_type[(t__DQGH)])));
- lab_type__5QLH=(__UINTEGER_32)(t__DQGH | 1);
- next__2QLH=((__POINTER )(NULL));
- result__4QLH=((__POINTER *)ptr_table__3QLH)[ 0];
- if ((result__4QLH == (void *)NULL)) {
- result__4QLH=new_lab__RTJ(lab_type__5QLH);
- next__2QLH=(void *)((unsigned long)result__4QLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ARLH)));
- ((__POINTER *)next__2QLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__3QLH)[ 0]=next__2QLH;
- } else {
- next__2QLH=((__POINTER *)result__4QLH)[ 0];
- if ((next__2QLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4QLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__ARLH << 1)) <= 4096)) {
- next__2QLH=(void *)((unsigned long)result__4QLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ARLH)));
- } else {
- next__2QLH=new_lab__RTJ(lab_type__5QLH);
- };
- ((__POINTER *)next__2QLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__3QLH)[ 0]=next__2QLH;
- } else {
- ((__POINTER *)result__4QLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2QLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__4QLH=next__2QLH;
- };
- };
- ptr__FNK=result__4QLH;
- };
- result__ENK=((__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *)ptr__FNK);
- *(result__ENK) = *(HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo__);
- };
- Self__ANU=((__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *)result__ENK);
- new_capacity__3FZ=prime_number_ceiling__021( 193);
- Self__ANU->buckets__F4T=create__OG5(new_capacity__3FZ);
- Self__ANU->capacity__A4T=new_capacity__3FZ;
- Self__ANU->count__CGZ= 0;
- dico__XVI=result__ENK;
- HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo__->key__R4T=NULL;
- HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo__->next__24T=NULL;
- HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo__->item__E5T=NULL;
- result__HXQ=NULL;
- ptr__IXQ=((__POINTER )(NULL));
- typ_id__NXQ= 0;
- sz__KXQ=((__UINTEGER_32 )sizeof(__ITM_TYPE_PARAMETER));
- if ((sz__KXQ == 0)) {
- result__HXQ=ITM_TYPE_PARAMETER__;
- } else {
- typ_id__NXQ=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__KXQ);
- if ((typ_id__NXQ == (__INTEGER)(- 1))) {
- a__NCFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__OCFH=(__UINTEGER_32)((__UINTEGER_32)(sz__KXQ + a__NCFH) & (__UINTEGER_32)(~ a__NCFH));
- ptr_table__CRLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__OCFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__BRLH=((__POINTER )(NULL));
- result__DRLH=((__POINTER *)ptr_table__CRLH)[ 0];
- if ((result__DRLH == (void *)NULL)) {
- result__DRLH=new_lab__RTJ(new_size__OCFH);
- next__BRLH=(void *)((unsigned long)result__DRLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OCFH)));
- ((__POINTER *)next__BRLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__CRLH)[ 0]=next__BRLH;
- } else {
- next__BRLH=((__POINTER *)result__DRLH)[ 0];
- if ((next__BRLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DRLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__OCFH << 1)) <= 4096)) {
- next__BRLH=(void *)((unsigned long)result__DRLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OCFH)));
- } else {
- next__BRLH=new_lab__RTJ(new_size__OCFH);
- };
- ((__POINTER *)next__BRLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__CRLH)[ 0]=next__BRLH;
- } else {
- ((__POINTER *)result__DRLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BRLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__DRLH=next__BRLH;
- };
- };
- ptr__IXQ=result__DRLH;
- } else {
- t__SCFH=((__UINTEGER_32 )typ_id__NXQ);
- a__RCFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__KRLH=(__UINTEGER_32)((__UINTEGER_32)(sz__KXQ + a__RCFH) & (__UINTEGER_32)(~ a__RCFH));
- ptr_table__HRLH=((__POINTER )(&(table_type[(t__SCFH)])));
- lab_type__JRLH=(__UINTEGER_32)(t__SCFH | 1);
- next__GRLH=((__POINTER )(NULL));
- result__IRLH=((__POINTER *)ptr_table__HRLH)[ 0];
- if ((result__IRLH == (void *)NULL)) {
- result__IRLH=new_lab__RTJ(lab_type__JRLH);
- next__GRLH=(void *)((unsigned long)result__IRLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KRLH)));
- ((__POINTER *)next__GRLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__HRLH)[ 0]=next__GRLH;
- } else {
- next__GRLH=((__POINTER *)result__IRLH)[ 0];
- if ((next__GRLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IRLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__KRLH << 1)) <= 4096)) {
- next__GRLH=(void *)((unsigned long)result__IRLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KRLH)));
- } else {
- next__GRLH=new_lab__RTJ(lab_type__JRLH);
- };
- ((__POINTER *)next__GRLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__HRLH)[ 0]=next__GRLH;
- } else {
- ((__POINTER *)result__IRLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GRLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__IRLH=next__GRLH;
- };
- };
- ptr__IXQ=result__IRLH;
- };
- result__HXQ=((__ITM_TYPE_PARAMETER *)ptr__IXQ);
- *(result__HXQ) = *(ITM_TYPE_PARAMETER__);
- };
- Self__52V=((__ITM_TYPE_PARAMETER *)result__HXQ);
- Self__52V->parent_itm_type__VFE.name__GZP=(&__string_1);
- fast_put__to__JPZ(result__ENK,Self__52V,(&__string_1));
- type_self__DVN=result__HXQ;
- ARRAYED_COLLECTIONoITM_TYPE_STYLEo__->upper__LPR= 0;
- ARRAYED_COLLECTIONoITM_TYPE_STYLEo__->capacity__PLW= 0;
- ARRAYED_COLLECTIONoITM_TYPE_STYLEo__->storage__0LW=NULL;
- FAST_ARRAYoITM_TYPE_STYLEo__->parent_arrayed_collection__BPR=(*ARRAYED_COLLECTIONoITM_TYPE_STYLEo__);
- result__DWR=NULL;
- ptr__EWR=((__POINTER )(NULL));
- typ_id__JWR= 0;
- sz__GWR=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_TYPE_STYLEo));
- if ((sz__GWR == 0)) {
- result__DWR=FAST_ARRAYoITM_TYPE_STYLEo__;
- } else {
- typ_id__JWR=__FAST_ARRAYoITM_TYPE_STYLEo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__GWR);
- if ((typ_id__JWR == (__INTEGER)(- 1))) {
- a__GQGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HQGH=(__UINTEGER_32)((__UINTEGER_32)(sz__GWR + a__GQGH) & (__UINTEGER_32)(~ a__GQGH));
- ptr_table__MRLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HQGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__LRLH=((__POINTER )(NULL));
- result__NRLH=((__POINTER *)ptr_table__MRLH)[ 0];
- if ((result__NRLH == (void *)NULL)) {
- result__NRLH=new_lab__RTJ(new_size__HQGH);
- next__LRLH=(void *)((unsigned long)result__NRLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HQGH)));
- ((__POINTER *)next__LRLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__MRLH)[ 0]=next__LRLH;
- } else {
- next__LRLH=((__POINTER *)result__NRLH)[ 0];
- if ((next__LRLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NRLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__HQGH << 1)) <= 4096)) {
- next__LRLH=(void *)((unsigned long)result__NRLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HQGH)));
- } else {
- next__LRLH=new_lab__RTJ(new_size__HQGH);
- };
- ((__POINTER *)next__LRLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__MRLH)[ 0]=next__LRLH;
- } else {
- ((__POINTER *)result__NRLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LRLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__NRLH=next__LRLH;
- };
- };
- ptr__EWR=result__NRLH;
- } else {
- t__LQGH=((__UINTEGER_32 )typ_id__JWR);
- a__KQGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__URLH=(__UINTEGER_32)((__UINTEGER_32)(sz__GWR + a__KQGH) & (__UINTEGER_32)(~ a__KQGH));
- ptr_table__RRLH=((__POINTER )(&(table_type[(t__LQGH)])));
- lab_type__TRLH=(__UINTEGER_32)(t__LQGH | 1);
- next__QRLH=((__POINTER )(NULL));
- result__SRLH=((__POINTER *)ptr_table__RRLH)[ 0];
- if ((result__SRLH == (void *)NULL)) {
- result__SRLH=new_lab__RTJ(lab_type__TRLH);
- next__QRLH=(void *)((unsigned long)result__SRLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__URLH)));
- ((__POINTER *)next__QRLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__RRLH)[ 0]=next__QRLH;
- } else {
- next__QRLH=((__POINTER *)result__SRLH)[ 0];
- if ((next__QRLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SRLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__URLH << 1)) <= 4096)) {
- next__QRLH=(void *)((unsigned long)result__SRLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__URLH)));
- } else {
- next__QRLH=new_lab__RTJ(lab_type__TRLH);
- };
- ((__POINTER *)next__QRLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__RRLH)[ 0]=next__QRLH;
- } else {
- ((__POINTER *)result__SRLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QRLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__SRLH=next__QRLH;
- };
- };
- ptr__EWR=result__SRLH;
- };
- result__DWR=((__FAST_ARRAYoITM_TYPE_STYLEo *)ptr__EWR);
- *(result__DWR) = *(FAST_ARRAYoITM_TYPE_STYLEo__);
- };
- Self__GLW=((__FAST_ARRAYoITM_TYPE_STYLEo *)result__DWR);
- if ((Self__GLW->parent_arrayed_collection__BPR.capacity__PLW < 32)) {
- Self__GLW->parent_arrayed_collection__BPR.storage__0LW=create__VFYB( 32);
- Self__GLW->parent_arrayed_collection__BPR.capacity__PLW= 32;
- };
- Self__GLW->parent_arrayed_collection__BPR.upper__LPR=(__INTEGER)(- 1);
- dico__CPR=result__DWR;
- type_null__1VN=get__IVI((&__string_2));
- ITM_LIST__->parent_itm_code__SBF=(*ITM_CODE__);
- last_group__TWF=NULL;
- old_position__ITI= 0;
- old_pos_cur__KTI= 0;
- old_pos_line__MTI= 0;
- old_pos_col__OTI= 0;
- old_short_derive__QTI= 0;
- ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo__->upper__C3T= 0;
- ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo__->capacity__NKU= 0;
- ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo__->storage__YKU=NULL;
- FAST_ARRAYoFAST_ARRAYoITM_LOCALoo__->parent_arrayed_collection__ZTI=(*ARRAYED_COLLECTIONoFAST_ARRAYoITM_LOCALoo__);
- ARRAYED_COLLECTIONoITM_LOCALo__->upper__M2K= 0;
- ARRAYED_COLLECTIONoITM_LOCALo__->capacity__IMU= 0;
- ARRAYED_COLLECTIONoITM_LOCALo__->storage__TMU=NULL;
- FAST_ARRAYoITM_LOCALo__->parent_arrayed_collection__T3H=(*ARRAYED_COLLECTIONoITM_LOCALo__);
- result__BKK=NULL;
- ptr__CKK=((__POINTER )(NULL));
- typ_id__HKK= 0;
- sz__EKK=((__UINTEGER_32 )sizeof(__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo));
- if ((sz__EKK == 0)) {
- result__BKK=FAST_ARRAYoFAST_ARRAYoITM_LOCALoo__;
- } else {
- typ_id__HKK=__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__EKK);
- if ((typ_id__HKK == (__INTEGER)(- 1))) {
- a__OQGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__PQGH=(__UINTEGER_32)((__UINTEGER_32)(sz__EKK + a__OQGH) & (__UINTEGER_32)(~ a__OQGH));
- ptr_table__WRLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PQGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__VRLH=((__POINTER )(NULL));
- result__XRLH=((__POINTER *)ptr_table__WRLH)[ 0];
- if ((result__XRLH == (void *)NULL)) {
- result__XRLH=new_lab__RTJ(new_size__PQGH);
- next__VRLH=(void *)((unsigned long)result__XRLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PQGH)));
- ((__POINTER *)next__VRLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__WRLH)[ 0]=next__VRLH;
- } else {
- next__VRLH=((__POINTER *)result__XRLH)[ 0];
- if ((next__VRLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XRLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__PQGH << 1)) <= 4096)) {
- next__VRLH=(void *)((unsigned long)result__XRLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PQGH)));
- } else {
- next__VRLH=new_lab__RTJ(new_size__PQGH);
- };
- ((__POINTER *)next__VRLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__WRLH)[ 0]=next__VRLH;
- } else {
- ((__POINTER *)result__XRLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VRLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__XRLH=next__VRLH;
- };
- };
- ptr__CKK=result__XRLH;
- } else {
- t__TQGH=((__UINTEGER_32 )typ_id__HKK);
- a__SQGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__4RLH=(__UINTEGER_32)((__UINTEGER_32)(sz__EKK + a__SQGH) & (__UINTEGER_32)(~ a__SQGH));
- ptr_table__1RLH=((__POINTER )(&(table_type[(t__TQGH)])));
- lab_type__3RLH=(__UINTEGER_32)(t__TQGH | 1);
- next__0RLH=((__POINTER )(NULL));
- result__2RLH=((__POINTER *)ptr_table__1RLH)[ 0];
- if ((result__2RLH == (void *)NULL)) {
- result__2RLH=new_lab__RTJ(lab_type__3RLH);
- next__0RLH=(void *)((unsigned long)result__2RLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4RLH)));
- ((__POINTER *)next__0RLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__1RLH)[ 0]=next__0RLH;
- } else {
- next__0RLH=((__POINTER *)result__2RLH)[ 0];
- if ((next__0RLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2RLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__4RLH << 1)) <= 4096)) {
- next__0RLH=(void *)((unsigned long)result__2RLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4RLH)));
- } else {
- next__0RLH=new_lab__RTJ(lab_type__3RLH);
- };
- ((__POINTER *)next__0RLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__1RLH)[ 0]=next__0RLH;
- } else {
- ((__POINTER *)result__2RLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0RLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__2RLH=next__0RLH;
- };
- };
- ptr__CKK=result__2RLH;
- };
- result__BKK=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)ptr__CKK);
- *(result__BKK) = *(FAST_ARRAYoFAST_ARRAYoITM_LOCALoo__);
- };
- Self__EKU=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)result__BKK);
- if ((Self__EKU->parent_arrayed_collection__ZTI.capacity__NKU < 5)) {
- Self__EKU->parent_arrayed_collection__ZTI.storage__YKU=create__NFQB( 5);
- Self__EKU->parent_arrayed_collection__ZTI.capacity__NKU= 5;
- };
- Self__EKU->parent_arrayed_collection__ZTI.upper__C3T=(__INTEGER)(- 1);
- free_list__0TI=result__BKK;
- ITM_LOCAL__->parent_itm_object__O3H=(*ITM_OBJECT__);
- ITM_LOCAL__->name__P4K=NULL;
- HASHED_SET_NODEoSTRING_CONSTANTo__->item__PEV=NULL;
- HASHED_SET_NODEoSTRING_CONSTANTo__->next__0EV=NULL;
- ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo__->upper__BYT= 0;
- ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo__->capacity__TBU= 0;
- ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo__->storage__PCU=NULL;
- FAST_ARRAYoFAST_ARRAYoITM_CODEoo__->parent_arrayed_collection__PAI=(*ARRAYED_COLLECTIONoFAST_ARRAYoITM_CODEoo__);
- ARRAYED_COLLECTIONoITM_CODEo__->upper__NJL= 0;
- ARRAYED_COLLECTIONoITM_CODEo__->capacity__TZT= 0;
- ARRAYED_COLLECTIONoITM_CODEo__->storage__4ZT=NULL;
- FAST_ARRAYoITM_CODEo__->parent_arrayed_collection__JWF=(*ARRAYED_COLLECTIONoITM_CODEo__);
- result__KAK=NULL;
- ptr__LAK=((__POINTER )(NULL));
- typ_id__QAK= 0;
- sz__NAK=((__UINTEGER_32 )sizeof(__FAST_ARRAYoFAST_ARRAYoITM_CODEoo));
- if ((sz__NAK == 0)) {
- result__KAK=FAST_ARRAYoFAST_ARRAYoITM_CODEoo__;
- } else {
- typ_id__QAK=__FAST_ARRAYoFAST_ARRAYoITM_CODEoo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__NAK);
- if ((typ_id__QAK == (__INTEGER)(- 1))) {
- a__WQGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__XQGH=(__UINTEGER_32)((__UINTEGER_32)(sz__NAK + a__WQGH) & (__UINTEGER_32)(~ a__WQGH));
- ptr_table__ASLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XQGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__5RLH=((__POINTER )(NULL));
- result__BSLH=((__POINTER *)ptr_table__ASLH)[ 0];
- if ((result__BSLH == (void *)NULL)) {
- result__BSLH=new_lab__RTJ(new_size__XQGH);
- next__5RLH=(void *)((unsigned long)result__BSLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XQGH)));
- ((__POINTER *)next__5RLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__ASLH)[ 0]=next__5RLH;
- } else {
- next__5RLH=((__POINTER *)result__BSLH)[ 0];
- if ((next__5RLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BSLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__XQGH << 1)) <= 4096)) {
- next__5RLH=(void *)((unsigned long)result__BSLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XQGH)));
- } else {
- next__5RLH=new_lab__RTJ(new_size__XQGH);
- };
- ((__POINTER *)next__5RLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__ASLH)[ 0]=next__5RLH;
- } else {
- ((__POINTER *)result__BSLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5RLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__BSLH=next__5RLH;
- };
- };
- ptr__LAK=result__BSLH;
- } else {
- t__1QGH=((__UINTEGER_32 )typ_id__QAK);
- a__0QGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ISLH=(__UINTEGER_32)((__UINTEGER_32)(sz__NAK + a__0QGH) & (__UINTEGER_32)(~ a__0QGH));
- ptr_table__FSLH=((__POINTER )(&(table_type[(t__1QGH)])));
- lab_type__HSLH=(__UINTEGER_32)(t__1QGH | 1);
- next__ESLH=((__POINTER )(NULL));
- result__GSLH=((__POINTER *)ptr_table__FSLH)[ 0];
- if ((result__GSLH == (void *)NULL)) {
- result__GSLH=new_lab__RTJ(lab_type__HSLH);
- next__ESLH=(void *)((unsigned long)result__GSLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ISLH)));
- ((__POINTER *)next__ESLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__FSLH)[ 0]=next__ESLH;
- } else {
- next__ESLH=((__POINTER *)result__GSLH)[ 0];
- if ((next__ESLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GSLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__ISLH << 1)) <= 4096)) {
- next__ESLH=(void *)((unsigned long)result__GSLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ISLH)));
- } else {
- next__ESLH=new_lab__RTJ(lab_type__HSLH);
- };
- ((__POINTER *)next__ESLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__FSLH)[ 0]=next__ESLH;
- } else {
- ((__POINTER *)result__GSLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ESLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__GSLH=next__ESLH;
- };
- };
- ptr__LAK=result__GSLH;
- };
- result__KAK=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)ptr__LAK);
- *(result__KAK) = *(FAST_ARRAYoFAST_ARRAYoITM_CODEoo__);
- };
- Self__BHU=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)result__KAK);
- if ((Self__BHU->parent_arrayed_collection__PAI.capacity__TBU < 5)) {
- Self__BHU->parent_arrayed_collection__PAI.storage__PCU=create__3ZPB( 5);
- Self__BHU->parent_arrayed_collection__PAI.capacity__TBU= 5;
- };
- Self__BHU->parent_arrayed_collection__PAI.upper__BYT=(__INTEGER)(- 1);
- free_list__QAI=result__KAK;
- ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo__->upper__LUU= 0;
- ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo__->capacity__QWU= 0;
- ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo__->storage__1WU=NULL;
- FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo__->parent_arrayed_collection__0AL=(*ARRAYED_COLLECTIONoFAST_ARRAYoSTRING_CONSTANToo__);
- ARRAYED_COLLECTIONoSTRING_CONSTANTo__->upper__2CPD= 0;
- ARRAYED_COLLECTIONoSTRING_CONSTANTo__->capacity__XEPD= 0;
- ARRAYED_COLLECTIONoSTRING_CONSTANTo__->storage__SFPD=NULL;
- FAST_ARRAYoSTRING_CONSTANTo__->parent_arrayed_collection__MBJ=(*ARRAYED_COLLECTIONoSTRING_CONSTANTo__);
- result__EMM=NULL;
- ptr__FMM=((__POINTER )(NULL));
- typ_id__KMM= 0;
- sz__HMM=((__UINTEGER_32 )sizeof(__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo));
- if ((sz__HMM == 0)) {
- result__EMM=FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo__;
- } else {
- typ_id__KMM=__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__HMM);
- if ((typ_id__KMM == (__INTEGER)(- 1))) {
- a__4QGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5QGH=(__UINTEGER_32)((__UINTEGER_32)(sz__HMM + a__4QGH) & (__UINTEGER_32)(~ a__4QGH));
- ptr_table__KSLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5QGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__JSLH=((__POINTER )(NULL));
- result__LSLH=((__POINTER *)ptr_table__KSLH)[ 0];
- if ((result__LSLH == (void *)NULL)) {
- result__LSLH=new_lab__RTJ(new_size__5QGH);
- next__JSLH=(void *)((unsigned long)result__LSLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5QGH)));
- ((__POINTER *)next__JSLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__KSLH)[ 0]=next__JSLH;
- } else {
- next__JSLH=((__POINTER *)result__LSLH)[ 0];
- if ((next__JSLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LSLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__5QGH << 1)) <= 4096)) {
- next__JSLH=(void *)((unsigned long)result__LSLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5QGH)));
- } else {
- next__JSLH=new_lab__RTJ(new_size__5QGH);
- };
- ((__POINTER *)next__JSLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__KSLH)[ 0]=next__JSLH;
- } else {
- ((__POINTER *)result__LSLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JSLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__LSLH=next__JSLH;
- };
- };
- ptr__FMM=result__LSLH;
- } else {
- t__DRGH=((__UINTEGER_32 )typ_id__KMM);
- a__CRGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__SSLH=(__UINTEGER_32)((__UINTEGER_32)(sz__HMM + a__CRGH) & (__UINTEGER_32)(~ a__CRGH));
- ptr_table__PSLH=((__POINTER )(&(table_type[(t__DRGH)])));
- lab_type__RSLH=(__UINTEGER_32)(t__DRGH | 1);
- next__OSLH=((__POINTER )(NULL));
- result__QSLH=((__POINTER *)ptr_table__PSLH)[ 0];
- if ((result__QSLH == (void *)NULL)) {
- result__QSLH=new_lab__RTJ(lab_type__RSLH);
- next__OSLH=(void *)((unsigned long)result__QSLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SSLH)));
- ((__POINTER *)next__OSLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__PSLH)[ 0]=next__OSLH;
- } else {
- next__OSLH=((__POINTER *)result__QSLH)[ 0];
- if ((next__OSLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QSLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__SSLH << 1)) <= 4096)) {
- next__OSLH=(void *)((unsigned long)result__QSLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SSLH)));
- } else {
- next__OSLH=new_lab__RTJ(lab_type__RSLH);
- };
- ((__POINTER *)next__OSLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__PSLH)[ 0]=next__OSLH;
- } else {
- ((__POINTER *)result__QSLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OSLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__QSLH=next__OSLH;
- };
- };
- ptr__FMM=result__QSLH;
- };
- result__EMM=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)ptr__FMM);
- *(result__EMM) = *(FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo__);
- };
- Self__HWU=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)result__EMM);
- if ((Self__HWU->parent_arrayed_collection__0AL.capacity__QWU < 5)) {
- Self__HWU->parent_arrayed_collection__0AL.storage__1WU=create__Z1ZB( 5);
- Self__HWU->parent_arrayed_collection__0AL.capacity__QWU= 5;
- };
- Self__HWU->parent_arrayed_collection__0AL.upper__LUU=(__INTEGER)(- 1);
- free_list__1AL=result__EMM;
- ITM_LIST_IDF__->parent_itm_code__1EJ=(*ITM_CODE__);
- ITM_LDOTS__->parent_itm_constant__IXF=(*ITM_CODE__);
- ITM_PROTOTYPE__->parent_itm_constant__UYF=(*ITM_CONSTANT__);
- ITM_WRITE__->parent_itm_code__QFJ=(*ITM_CODE__);
- ITM_WRITE_VALUE__->parent_itm_write__RFJ=(*ITM_WRITE__);
- ITM_WRITE_CAST__->parent_itm_write__IGJ=(*ITM_WRITE__);
- ITM_READ__->parent_itm_code__VIJ=(*ITM_CODE__);
- ITM_WRITE_CODE__->parent_itm_write__TJJ=(*ITM_WRITE__);
- ITM_OPERATOR__->parent_itm_code__VGL=(*ITM_CODE__);
- ITM_READ_ARG1__->parent_itm_read__1JL=(*ITM_READ__);
- ITM_READ_ARG2__->parent_itm_read__IML=(*ITM_READ__);
- ITM_EXPRESSION__->value_list__PJV=NULL;
- ITM_OLD__->parent_itm_code__W3L=(*ITM_CODE__);
- ITM_EXTERN__->parent_itm_code__K5M=(*ITM_CODE__);
- ITM_EXTERNAL_TYPE__->parent_itm_extern__L5M=(*ITM_EXTERN__);
- ITM_BLOCK__->list__KMDC=NULL;
- ITM_EXTERNAL__->parent_itm_extern__QGN=(*ITM_EXTERN__);
- ITM_READ_ARGS__->parent_itm_read__GEO=(*ITM_READ__);
- ITM_RESULT__->value__WKFC=NULL;
- ITM_OPERATOR__->name__AKL=NULL;
- ITM_ARGUMENT__->parent_itm_code__O5M=(*ITM_OBJECT__);
- ITM_ARG__->parent_itm_argument__SEHB=(*ITM_ARGUMENT__);
- ITM_ARG__->name__F0HC=NULL;
- ITM_ARG__->type__G0HC=NULL;
- empty_list__IOMF=create_with_capacity__THRC( 0);
- HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__->buckets__RLQF=NULL;
- HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__->capacity__MLQF= 0;
- HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__->count__DQQF= 0;
- result__TJOF=NULL;
- ptr__UJOF=((__POINTER )(NULL));
- typ_id__ZJOF= 0;
- sz__WJOF=((__UINTEGER_32 )sizeof(__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo));
- if ((sz__WJOF == 0)) {
- result__TJOF=HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__;
- } else {
- typ_id__ZJOF=__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__WJOF);
- if ((typ_id__ZJOF == (__INTEGER)(- 1))) {
- a__GRGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HRGH=(__UINTEGER_32)((__UINTEGER_32)(sz__WJOF + a__GRGH) & (__UINTEGER_32)(~ a__GRGH));
- ptr_table__USLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HRGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__TSLH=((__POINTER )(NULL));
- result__VSLH=((__POINTER *)ptr_table__USLH)[ 0];
- if ((result__VSLH == (void *)NULL)) {
- result__VSLH=new_lab__RTJ(new_size__HRGH);
- next__TSLH=(void *)((unsigned long)result__VSLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HRGH)));
- ((__POINTER *)next__TSLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__USLH)[ 0]=next__TSLH;
- } else {
- next__TSLH=((__POINTER *)result__VSLH)[ 0];
- if ((next__TSLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VSLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__HRGH << 1)) <= 4096)) {
- next__TSLH=(void *)((unsigned long)result__VSLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HRGH)));
- } else {
- next__TSLH=new_lab__RTJ(new_size__HRGH);
- };
- ((__POINTER *)next__TSLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__USLH)[ 0]=next__TSLH;
- } else {
- ((__POINTER *)result__VSLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TSLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__VSLH=next__TSLH;
- };
- };
- ptr__UJOF=result__VSLH;
- } else {
- t__LRGH=((__UINTEGER_32 )typ_id__ZJOF);
- a__KRGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__2SLH=(__UINTEGER_32)((__UINTEGER_32)(sz__WJOF + a__KRGH) & (__UINTEGER_32)(~ a__KRGH));
- ptr_table__ZSLH=((__POINTER )(&(table_type[(t__LRGH)])));
- lab_type__1SLH=(__UINTEGER_32)(t__LRGH | 1);
- next__YSLH=((__POINTER )(NULL));
- result__0SLH=((__POINTER *)ptr_table__ZSLH)[ 0];
- if ((result__0SLH == (void *)NULL)) {
- result__0SLH=new_lab__RTJ(lab_type__1SLH);
- next__YSLH=(void *)((unsigned long)result__0SLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2SLH)));
- ((__POINTER *)next__YSLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__ZSLH)[ 0]=next__YSLH;
- } else {
- next__YSLH=((__POINTER *)result__0SLH)[ 0];
- if ((next__YSLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0SLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__2SLH << 1)) <= 4096)) {
- next__YSLH=(void *)((unsigned long)result__0SLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2SLH)));
- } else {
- next__YSLH=new_lab__RTJ(lab_type__1SLH);
- };
- ((__POINTER *)next__YSLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__ZSLH)[ 0]=next__YSLH;
- } else {
- ((__POINTER *)result__0SLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YSLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__0SLH=next__YSLH;
- };
- };
- ptr__UJOF=result__0SLH;
- };
- result__TJOF=((__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *)ptr__UJOF);
- *(result__TJOF) = *(HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo__);
- };
- Self__DOQF=((__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *)result__TJOF);
- new_capacity__U0RF=prime_number_ceiling__021( 53);
- Self__DOQF->buckets__RLQF=create__FNUF(new_capacity__U0RF);
- Self__DOQF->capacity__MLQF=new_capacity__U0RF;
- Self__DOQF->count__DQQF= 0;
- bucket__SOMF=result__TJOF;
- HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__->item__3LQF=NULL;
- HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__->next__JMQF=NULL;
- ITM_ARGS__->parent_itm_argument__CEFE=(*ITM_ARGUMENT__);
- ITM_ARGS__->name__XDQF=NULL;
- ITM_ARGS__->type__YDQF=NULL;
- ITM_EXTERNAL_TYPE__->is_persistant__IIN=FALSE__;
- result__KAG=NULL;
- ptr__LAG=((__POINTER )(NULL));
- typ_id__QAG= 0;
- sz__NAG=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSTRINGo));
- if ((sz__NAG == 0)) {
- result__KAG=FAST_ARRAYoSTRINGo__;
- } else {
- typ_id__QAG=__FAST_ARRAYoSTRINGo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__NAG);
- if ((typ_id__QAG == (__INTEGER)(- 1))) {
- a__1BFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__L0G=(__UINTEGER_32)((__UINTEGER_32)(sz__NAG + a__1BFH) & (__UINTEGER_32)(~ a__1BFH));
- ptr_table__4SLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__L0G / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__3SLH=((__POINTER )(NULL));
- result__5SLH=((__POINTER *)ptr_table__4SLH)[ 0];
- if ((result__5SLH == (void *)NULL)) {
- result__5SLH=new_lab__RTJ(new_size__L0G);
- next__3SLH=(void *)((unsigned long)result__5SLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__L0G)));
- ((__POINTER *)next__3SLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__4SLH)[ 0]=next__3SLH;
- } else {
- next__3SLH=((__POINTER *)result__5SLH)[ 0];
- if ((next__3SLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5SLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__L0G << 1)) <= 4096)) {
- next__3SLH=(void *)((unsigned long)result__5SLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__L0G)));
- } else {
- next__3SLH=new_lab__RTJ(new_size__L0G);
- };
- ((__POINTER *)next__3SLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__4SLH)[ 0]=next__3SLH;
- } else {
- ((__POINTER *)result__5SLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3SLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__5SLH=next__3SLH;
- };
- };
- ptr__LAG=result__5SLH;
- } else {
- t__U1G=((__UINTEGER_32 )typ_id__QAG);
- a__BCFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__GTLH=(__UINTEGER_32)((__UINTEGER_32)(sz__NAG + a__BCFH) & (__UINTEGER_32)(~ a__BCFH));
- ptr_table__DTLH=((__POINTER )(&(table_type[(t__U1G)])));
- lab_type__FTLH=(__UINTEGER_32)(t__U1G | 1);
- next__CTLH=((__POINTER )(NULL));
- result__ETLH=((__POINTER *)ptr_table__DTLH)[ 0];
- if ((result__ETLH == (void *)NULL)) {
- result__ETLH=new_lab__RTJ(lab_type__FTLH);
- next__CTLH=(void *)((unsigned long)result__ETLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GTLH)));
- ((__POINTER *)next__CTLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__DTLH)[ 0]=next__CTLH;
- } else {
- next__CTLH=((__POINTER *)result__ETLH)[ 0];
- if ((next__CTLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ETLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__GTLH << 1)) <= 4096)) {
- next__CTLH=(void *)((unsigned long)result__ETLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GTLH)));
- } else {
- next__CTLH=new_lab__RTJ(lab_type__FTLH);
- };
- ((__POINTER *)next__CTLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__DTLH)[ 0]=next__CTLH;
- } else {
- ((__POINTER *)result__ETLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CTLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__ETLH=next__CTLH;
- };
- };
- ptr__LAG=result__ETLH;
- };
- result__KAG=((__FAST_ARRAYoSTRINGo *)ptr__LAG);
- *(result__KAG) = *(FAST_ARRAYoSTRINGo__);
- };
- Self__AGT=((__FAST_ARRAYoSTRINGo *)result__KAG);
- if ((Self__AGT->parent_arrayed_collection__5KC.capacity__JGT < 5)) {
- Self__AGT->parent_arrayed_collection__5KC.storage__UGT=create__2DRB( 5);
- Self__AGT->parent_arrayed_collection__5KC.capacity__JGT= 5;
- };
- Self__AGT->parent_arrayed_collection__5KC.upper__CLC=(__INTEGER)(- 1);
- free__3OP=result__KAG;
- type_void__WYF=get__IVI((&__string_3));
- PROTOTYPE__->default_value__LWE=NULL;
- PROTOTYPE__->type_c__GYE=NULL;
- LIP_CODE__->parent_itm_object__XFE=(*ITM_OBJECT__);
- LIP_UNARY__->parent_lip_code__FZ4B=(*LIP_CODE__);
- LIP_UNARY__->operator__J5QD='\0';
- LIP_UNARY__->value__G5QD=NULL;
- LIP_CALL__->parent_lip_code__XZ4B=(*LIP_CODE__);
- LIP_CALL__->name__JRUE=NULL;
- LIP_CALL__->argument__4QUE=NULL;
- ARRAYED_COLLECTIONoLIP_INTEGERo__->upper__GIXE= 0;
- ARRAYED_COLLECTIONoLIP_INTEGERo__->capacity__IMXE= 0;
- ARRAYED_COLLECTIONoLIP_INTEGERo__->storage__TMXE=NULL;
- FAST_ARRAYoLIP_INTEGERo__->parent_arrayed_collection__3YSE=(*ARRAYED_COLLECTIONoLIP_INTEGERo__);
- result__MVTE=NULL;
- ptr__NVTE=((__POINTER )(NULL));
- typ_id__SVTE= 0;
- sz__PVTE=((__UINTEGER_32 )sizeof(__FAST_ARRAYoLIP_INTEGERo));
- if ((sz__PVTE == 0)) {
- result__MVTE=FAST_ARRAYoLIP_INTEGERo__;
- } else {
- typ_id__SVTE=__FAST_ARRAYoLIP_INTEGERo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__PVTE);
- if ((typ_id__SVTE == (__INTEGER)(- 1))) {
- a__ORGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__PRGH=(__UINTEGER_32)((__UINTEGER_32)(sz__PVTE + a__ORGH) & (__UINTEGER_32)(~ a__ORGH));
- ptr_table__ITLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PRGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__HTLH=((__POINTER )(NULL));
- result__JTLH=((__POINTER *)ptr_table__ITLH)[ 0];
- if ((result__JTLH == (void *)NULL)) {
- result__JTLH=new_lab__RTJ(new_size__PRGH);
- next__HTLH=(void *)((unsigned long)result__JTLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PRGH)));
- ((__POINTER *)next__HTLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__ITLH)[ 0]=next__HTLH;
- } else {
- next__HTLH=((__POINTER *)result__JTLH)[ 0];
- if ((next__HTLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JTLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__PRGH << 1)) <= 4096)) {
- next__HTLH=(void *)((unsigned long)result__JTLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PRGH)));
- } else {
- next__HTLH=new_lab__RTJ(new_size__PRGH);
- };
- ((__POINTER *)next__HTLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__ITLH)[ 0]=next__HTLH;
- } else {
- ((__POINTER *)result__JTLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HTLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__JTLH=next__HTLH;
- };
- };
- ptr__NVTE=result__JTLH;
- } else {
- t__TRGH=((__UINTEGER_32 )typ_id__SVTE);
- a__SRGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__QTLH=(__UINTEGER_32)((__UINTEGER_32)(sz__PVTE + a__SRGH) & (__UINTEGER_32)(~ a__SRGH));
- ptr_table__NTLH=((__POINTER )(&(table_type[(t__TRGH)])));
- lab_type__PTLH=(__UINTEGER_32)(t__TRGH | 1);
- next__MTLH=((__POINTER )(NULL));
- result__OTLH=((__POINTER *)ptr_table__NTLH)[ 0];
- if ((result__OTLH == (void *)NULL)) {
- result__OTLH=new_lab__RTJ(lab_type__PTLH);
- next__MTLH=(void *)((unsigned long)result__OTLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QTLH)));
- ((__POINTER *)next__MTLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__NTLH)[ 0]=next__MTLH;
- } else {
- next__MTLH=((__POINTER *)result__OTLH)[ 0];
- if ((next__MTLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OTLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__QTLH << 1)) <= 4096)) {
- next__MTLH=(void *)((unsigned long)result__OTLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QTLH)));
- } else {
- next__MTLH=new_lab__RTJ(lab_type__PTLH);
- };
- ((__POINTER *)next__MTLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__NTLH)[ 0]=next__MTLH;
- } else {
- ((__POINTER *)result__OTLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MTLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__OTLH=next__MTLH;
- };
- };
- ptr__NVTE=result__OTLH;
- };
- result__MVTE=((__FAST_ARRAYoLIP_INTEGERo *)ptr__NVTE);
- *(result__MVTE) = *(FAST_ARRAYoLIP_INTEGERo__);
- };
- Self__5LXE=((__FAST_ARRAYoLIP_INTEGERo *)result__MVTE);
- if ((Self__5LXE->parent_arrayed_collection__3YSE.capacity__IMXE < 10)) {
- Self__5LXE->parent_arrayed_collection__3YSE.storage__TMXE=create__JPGF( 10);
- Self__5LXE->parent_arrayed_collection__3YSE.capacity__IMXE= 10;
- };
- Self__5LXE->parent_arrayed_collection__3YSE.upper__GIXE=(__INTEGER)(- 1);
- storage__4YSE=result__MVTE;
- LIP_INTEGER__->value__FP4F= 0;
- ARRAYED_COLLECTIONoLIP_STRINGo__->upper__WZPF= 0;
- ARRAYED_COLLECTIONoLIP_STRINGo__->capacity__4AQF= 0;
- ARRAYED_COLLECTIONoLIP_STRINGo__->storage__JBQF=NULL;
- FAST_ARRAYoLIP_STRINGo__->parent_arrayed_collection__G5FF=(*ARRAYED_COLLECTIONoLIP_STRINGo__);
- result__GTMF=NULL;
- ptr__HTMF=((__POINTER )(NULL));
- typ_id__MTMF= 0;
- sz__JTMF=((__UINTEGER_32 )sizeof(__FAST_ARRAYoLIP_STRINGo));
- if ((sz__JTMF == 0)) {
- result__GTMF=FAST_ARRAYoLIP_STRINGo__;
- } else {
- typ_id__MTMF=__FAST_ARRAYoLIP_STRINGo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__JTMF);
- if ((typ_id__MTMF == (__INTEGER)(- 1))) {
- a__WRGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__XRGH=(__UINTEGER_32)((__UINTEGER_32)(sz__JTMF + a__WRGH) & (__UINTEGER_32)(~ a__WRGH));
- ptr_table__STLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XRGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__RTLH=((__POINTER )(NULL));
- result__TTLH=((__POINTER *)ptr_table__STLH)[ 0];
- if ((result__TTLH == (void *)NULL)) {
- result__TTLH=new_lab__RTJ(new_size__XRGH);
- next__RTLH=(void *)((unsigned long)result__TTLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XRGH)));
- ((__POINTER *)next__RTLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__STLH)[ 0]=next__RTLH;
- } else {
- next__RTLH=((__POINTER *)result__TTLH)[ 0];
- if ((next__RTLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TTLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__XRGH << 1)) <= 4096)) {
- next__RTLH=(void *)((unsigned long)result__TTLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XRGH)));
- } else {
- next__RTLH=new_lab__RTJ(new_size__XRGH);
- };
- ((__POINTER *)next__RTLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__STLH)[ 0]=next__RTLH;
- } else {
- ((__POINTER *)result__TTLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RTLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__TTLH=next__RTLH;
- };
- };
- ptr__HTMF=result__TTLH;
- } else {
- t__1RGH=((__UINTEGER_32 )typ_id__MTMF);
- a__0RGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__0TLH=(__UINTEGER_32)((__UINTEGER_32)(sz__JTMF + a__0RGH) & (__UINTEGER_32)(~ a__0RGH));
- ptr_table__XTLH=((__POINTER )(&(table_type[(t__1RGH)])));
- lab_type__ZTLH=(__UINTEGER_32)(t__1RGH | 1);
- next__WTLH=((__POINTER )(NULL));
- result__YTLH=((__POINTER *)ptr_table__XTLH)[ 0];
- if ((result__YTLH == (void *)NULL)) {
- result__YTLH=new_lab__RTJ(lab_type__ZTLH);
- next__WTLH=(void *)((unsigned long)result__YTLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0TLH)));
- ((__POINTER *)next__WTLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__XTLH)[ 0]=next__WTLH;
- } else {
- next__WTLH=((__POINTER *)result__YTLH)[ 0];
- if ((next__WTLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YTLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__0TLH << 1)) <= 4096)) {
- next__WTLH=(void *)((unsigned long)result__YTLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0TLH)));
- } else {
- next__WTLH=new_lab__RTJ(lab_type__ZTLH);
- };
- ((__POINTER *)next__WTLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__XTLH)[ 0]=next__WTLH;
- } else {
- ((__POINTER *)result__YTLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WTLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__YTLH=next__WTLH;
- };
- };
- ptr__HTMF=result__YTLH;
- };
- result__GTMF=((__FAST_ARRAYoLIP_STRINGo *)ptr__HTMF);
- *(result__GTMF) = *(FAST_ARRAYoLIP_STRINGo__);
- };
- Self__VAQF=((__FAST_ARRAYoLIP_STRINGo *)result__GTMF);
- if ((Self__VAQF->parent_arrayed_collection__G5FF.capacity__4AQF < 10)) {
- Self__VAQF->parent_arrayed_collection__G5FF.storage__JBQF=create__ARYF( 10);
- Self__VAQF->parent_arrayed_collection__G5FF.capacity__4AQF= 10;
- };
- Self__VAQF->parent_arrayed_collection__G5FF.upper__WZPF=(__INTEGER)(- 1);
- storage__H5FF=result__GTMF;
- LIP_STRING__->value__WSUE=NULL;
- LIP_BOOLEAN__->value__MGQD=FALSE__;
- result__Q5NF=NULL;
- ptr__R5NF=((__POINTER )(NULL));
- typ_id__W5NF= 0;
- sz__T5NF=((__UINTEGER_32 )sizeof(__LIP_BOOLEAN));
- if ((sz__T5NF == 0)) {
- result__Q5NF=LIP_BOOLEAN__;
- } else {
- typ_id__W5NF=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__T5NF);
- if ((typ_id__W5NF == (__INTEGER)(- 1))) {
- a__4RGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5RGH=(__UINTEGER_32)((__UINTEGER_32)(sz__T5NF + a__4RGH) & (__UINTEGER_32)(~ a__4RGH));
- ptr_table__2TLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5RGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__1TLH=((__POINTER )(NULL));
- result__3TLH=((__POINTER *)ptr_table__2TLH)[ 0];
- if ((result__3TLH == (void *)NULL)) {
- result__3TLH=new_lab__RTJ(new_size__5RGH);
- next__1TLH=(void *)((unsigned long)result__3TLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5RGH)));
- ((__POINTER *)next__1TLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__2TLH)[ 0]=next__1TLH;
- } else {
- next__1TLH=((__POINTER *)result__3TLH)[ 0];
- if ((next__1TLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3TLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__5RGH << 1)) <= 4096)) {
- next__1TLH=(void *)((unsigned long)result__3TLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5RGH)));
- } else {
- next__1TLH=new_lab__RTJ(new_size__5RGH);
- };
- ((__POINTER *)next__1TLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__2TLH)[ 0]=next__1TLH;
- } else {
- ((__POINTER *)result__3TLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1TLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__3TLH=next__1TLH;
- };
- };
- ptr__R5NF=result__3TLH;
- } else {
- t__DSGH=((__UINTEGER_32 )typ_id__W5NF);
- a__CSGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__EULH=(__UINTEGER_32)((__UINTEGER_32)(sz__T5NF + a__CSGH) & (__UINTEGER_32)(~ a__CSGH));
- ptr_table__BULH=((__POINTER )(&(table_type[(t__DSGH)])));
- lab_type__DULH=(__UINTEGER_32)(t__DSGH | 1);
- next__AULH=((__POINTER )(NULL));
- result__CULH=((__POINTER *)ptr_table__BULH)[ 0];
- if ((result__CULH == (void *)NULL)) {
- result__CULH=new_lab__RTJ(lab_type__DULH);
- next__AULH=(void *)((unsigned long)result__CULH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EULH)));
- ((__POINTER *)next__AULH)[ 0]=NULL;
- ((__POINTER *)ptr_table__BULH)[ 0]=next__AULH;
- } else {
- next__AULH=((__POINTER *)result__CULH)[ 0];
- if ((next__AULH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CULH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__EULH << 1)) <= 4096)) {
- next__AULH=(void *)((unsigned long)result__CULH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EULH)));
- } else {
- next__AULH=new_lab__RTJ(lab_type__DULH);
- };
- ((__POINTER *)next__AULH)[ 0]=NULL;
- ((__POINTER *)ptr_table__BULH)[ 0]=next__AULH;
- } else {
- ((__POINTER *)result__CULH)[ 0]=(void *)((unsigned long)((__POINTER *)next__AULH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__CULH=next__AULH;
- };
- };
- ptr__R5NF=result__CULH;
- };
- result__Q5NF=((__LIP_BOOLEAN *)ptr__R5NF);
- *(result__Q5NF) = *(LIP_BOOLEAN__);
- };
- ((__LIP_BOOLEAN *)result__Q5NF)->value__MGQD=TRUE__;
- true__5YLF=result__Q5NF;
- LIP_VALUE__->parent_lip_code__1IFE=(*LIP_CODE__);
- LIP_VALUE__->value__I1UE=NULL;
- LIP_BINARY__->parent_lip_code__WNZB=(*LIP_CODE__);
- LIP_BINARY__->left__J2QD=NULL;
- LIP_BINARY__->right__M2QD=NULL;
- LIP_BINARY__->operator__P2QD='\0';
- LIP_AFFECT__->parent_lip_code__YSPB=(*LIP_CODE__);
- LIP_AFFECT__->name__AGFC=NULL;
- LIP_AFFECT__->value__SGFC=NULL;
- ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo__->upper__PTTD= 0;
- ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo__->capacity__QFUD= 0;
- ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo__->storage__MGUD=NULL;
- FAST_ARRAYoFAST_ARRAYoLIP_CODEoo__->parent_arrayed_collection__WOID=(*ARRAYED_COLLECTIONoFAST_ARRAYoLIP_CODEoo__);
- ARRAYED_COLLECTIONoLIP_CODEo__->upper__ZGQD= 0;
- ARRAYED_COLLECTIONoLIP_CODEo__->capacity__1UTD= 0;
- ARRAYED_COLLECTIONoLIP_CODEo__->storage__GVTD=NULL;
- FAST_ARRAYoLIP_CODEo__->parent_arrayed_collection__4MYC=(*ARRAYED_COLLECTIONoLIP_CODEo__);
- result__1YMD=NULL;
- ptr__2YMD=((__POINTER )(NULL));
- typ_id__BZMD= 0;
- sz__4YMD=((__UINTEGER_32 )sizeof(__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo));
- if ((sz__4YMD == 0)) {
- result__1YMD=FAST_ARRAYoFAST_ARRAYoLIP_CODEoo__;
- } else {
- typ_id__BZMD=__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__4YMD);
- if ((typ_id__BZMD == (__INTEGER)(- 1))) {
- a__GSGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HSGH=(__UINTEGER_32)((__UINTEGER_32)(sz__4YMD + a__GSGH) & (__UINTEGER_32)(~ a__GSGH));
- ptr_table__GULH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HSGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__FULH=((__POINTER )(NULL));
- result__HULH=((__POINTER *)ptr_table__GULH)[ 0];
- if ((result__HULH == (void *)NULL)) {
- result__HULH=new_lab__RTJ(new_size__HSGH);
- next__FULH=(void *)((unsigned long)result__HULH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HSGH)));
- ((__POINTER *)next__FULH)[ 0]=NULL;
- ((__POINTER *)ptr_table__GULH)[ 0]=next__FULH;
- } else {
- next__FULH=((__POINTER *)result__HULH)[ 0];
- if ((next__FULH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HULH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__HSGH << 1)) <= 4096)) {
- next__FULH=(void *)((unsigned long)result__HULH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HSGH)));
- } else {
- next__FULH=new_lab__RTJ(new_size__HSGH);
- };
- ((__POINTER *)next__FULH)[ 0]=NULL;
- ((__POINTER *)ptr_table__GULH)[ 0]=next__FULH;
- } else {
- ((__POINTER *)result__HULH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FULH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__HULH=next__FULH;
- };
- };
- ptr__2YMD=result__HULH;
- } else {
- t__LSGH=((__UINTEGER_32 )typ_id__BZMD);
- a__KSGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__OULH=(__UINTEGER_32)((__UINTEGER_32)(sz__4YMD + a__KSGH) & (__UINTEGER_32)(~ a__KSGH));
- ptr_table__LULH=((__POINTER )(&(table_type[(t__LSGH)])));
- lab_type__NULH=(__UINTEGER_32)(t__LSGH | 1);
- next__KULH=((__POINTER )(NULL));
- result__MULH=((__POINTER *)ptr_table__LULH)[ 0];
- if ((result__MULH == (void *)NULL)) {
- result__MULH=new_lab__RTJ(lab_type__NULH);
- next__KULH=(void *)((unsigned long)result__MULH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OULH)));
- ((__POINTER *)next__KULH)[ 0]=NULL;
- ((__POINTER *)ptr_table__LULH)[ 0]=next__KULH;
- } else {
- next__KULH=((__POINTER *)result__MULH)[ 0];
- if ((next__KULH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MULH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__OULH << 1)) <= 4096)) {
- next__KULH=(void *)((unsigned long)result__MULH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OULH)));
- } else {
- next__KULH=new_lab__RTJ(lab_type__NULH);
- };
- ((__POINTER *)next__KULH)[ 0]=NULL;
- ((__POINTER *)ptr_table__LULH)[ 0]=next__KULH;
- } else {
- ((__POINTER *)result__MULH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KULH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__MULH=next__KULH;
- };
- };
- ptr__2YMD=result__MULH;
- };
- result__1YMD=((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)ptr__2YMD);
- *(result__1YMD) = *(FAST_ARRAYoFAST_ARRAYoLIP_CODEoo__);
- };
- Self__KKUD=((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)result__1YMD);
- if ((Self__KKUD->parent_arrayed_collection__WOID.capacity__QFUD < 5)) {
- Self__KKUD->parent_arrayed_collection__WOID.storage__MGUD=create__R2IE( 5);
- Self__KKUD->parent_arrayed_collection__WOID.capacity__QFUD= 5;
- };
- Self__KKUD->parent_arrayed_collection__WOID.upper__PTTD=(__INTEGER)(- 1);
- free_list__XOID=result__1YMD;
- LIP_IF__->parent_lip_code__PQYC=(*LIP_CODE__);
- LIP_IF__->condition__3FQD=NULL;
- LIP_IF__->then__TGQD=NULL;
- LIP_IF__->else__KHQD=NULL;
- LIP_PRINT__->parent_lip_code__BRYC=(*LIP_CODE__);
- LIP_PRINT__->message__NVUE=NULL;
- HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo__->buckets__DYRD=NULL;
- HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo__->capacity__4XRD= 0;
- result__SXED=NULL;
- ptr__TXED=((__POINTER )(NULL));
- typ_id__YXED= 0;
- sz__VXED=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo));
- if ((sz__VXED == 0)) {
- result__SXED=HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo__;
- } else {
- typ_id__YXED=__HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__VXED);
- if ((typ_id__YXED == (__INTEGER)(- 1))) {
- a__OSGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__PSGH=(__UINTEGER_32)((__UINTEGER_32)(sz__VXED + a__OSGH) & (__UINTEGER_32)(~ a__OSGH));
- ptr_table__QULH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PSGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__PULH=((__POINTER )(NULL));
- result__RULH=((__POINTER *)ptr_table__QULH)[ 0];
- if ((result__RULH == (void *)NULL)) {
- result__RULH=new_lab__RTJ(new_size__PSGH);
- next__PULH=(void *)((unsigned long)result__RULH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PSGH)));
- ((__POINTER *)next__PULH)[ 0]=NULL;
- ((__POINTER *)ptr_table__QULH)[ 0]=next__PULH;
- } else {
- next__PULH=((__POINTER *)result__RULH)[ 0];
- if ((next__PULH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RULH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__PSGH << 1)) <= 4096)) {
- next__PULH=(void *)((unsigned long)result__RULH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PSGH)));
- } else {
- next__PULH=new_lab__RTJ(new_size__PSGH);
- };
- ((__POINTER *)next__PULH)[ 0]=NULL;
- ((__POINTER *)ptr_table__QULH)[ 0]=next__PULH;
- } else {
- ((__POINTER *)result__RULH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PULH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__RULH=next__PULH;
- };
- };
- ptr__TXED=result__RULH;
- } else {
- t__TSGH=((__UINTEGER_32 )typ_id__YXED);
- a__SSGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__YULH=(__UINTEGER_32)((__UINTEGER_32)(sz__VXED + a__SSGH) & (__UINTEGER_32)(~ a__SSGH));
- ptr_table__VULH=((__POINTER )(&(table_type[(t__TSGH)])));
- lab_type__XULH=(__UINTEGER_32)(t__TSGH | 1);
- next__UULH=((__POINTER )(NULL));
- result__WULH=((__POINTER *)ptr_table__VULH)[ 0];
- if ((result__WULH == (void *)NULL)) {
- result__WULH=new_lab__RTJ(lab_type__XULH);
- next__UULH=(void *)((unsigned long)result__WULH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YULH)));
- ((__POINTER *)next__UULH)[ 0]=NULL;
- ((__POINTER *)ptr_table__VULH)[ 0]=next__UULH;
- } else {
- next__UULH=((__POINTER *)result__WULH)[ 0];
- if ((next__UULH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WULH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__YULH << 1)) <= 4096)) {
- next__UULH=(void *)((unsigned long)result__WULH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YULH)));
- } else {
- next__UULH=new_lab__RTJ(lab_type__XULH);
- };
- ((__POINTER *)next__UULH)[ 0]=NULL;
- ((__POINTER *)ptr_table__VULH)[ 0]=next__UULH;
- } else {
- ((__POINTER *)result__WULH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UULH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__WULH=next__UULH;
- };
- };
- ptr__TXED=result__WULH;
- };
- result__SXED=((__HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo *)ptr__TXED);
- *(result__SXED) = *(HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo__);
- };
- Self__1OSD=((__HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo *)result__SXED);
- new_capacity__PFXD=prime_number_ceiling__021( 193);
- sz__RGHH=((__UINTEGER_32 )(__INTEGER)(new_capacity__PFXD * ((__INTEGER )(sizeof(void *)))));
- result__PGHH=((__POINTER )(NULL));
- a__QGHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__SGHH=(__UINTEGER_32)((__UINTEGER_32)(sz__RGHH + a__QGHH) & (__UINTEGER_32)(~ a__QGHH));
- new_size2__TGHH=(__UINTEGER_32)(new_size__SGHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__TGHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__UGHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__VGHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__TGHH + a__UGHH) & (__UINTEGER_32)(~ a__UGHH));
- ptr_table__0ULH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VGHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__ZULH=((__POINTER )(NULL));
- result__1ULH=((__POINTER *)ptr_table__0ULH)[ 0];
- if ((result__1ULH == (void *)NULL)) {
- result__1ULH=new_lab__RTJ(new_size__VGHH);
- next__ZULH=(void *)((unsigned long)result__1ULH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VGHH)));
- ((__POINTER *)next__ZULH)[ 0]=NULL;
- ((__POINTER *)ptr_table__0ULH)[ 0]=next__ZULH;
- } else {
- next__ZULH=((__POINTER *)result__1ULH)[ 0];
- if ((next__ZULH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1ULH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__VGHH << 1)) <= 4096)) {
- next__ZULH=(void *)((unsigned long)result__1ULH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VGHH)));
- } else {
- next__ZULH=new_lab__RTJ(new_size__VGHH);
- };
- ((__POINTER *)next__ZULH)[ 0]=NULL;
- ((__POINTER *)ptr_table__0ULH)[ 0]=next__ZULH;
- } else {
- ((__POINTER *)result__1ULH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZULH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__1ULH=next__ZULH;
- };
- };
- ((__POINTER *)result__1ULH)[ 0]=((__POINTER ) 3);
- result__PGHH=(void *)((unsigned long)result__1ULH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__PGHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__SGHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__UWHE=((void **)result__PGHH);
- Self__EPYE=(__INTEGER)(new_capacity__PFXD - 1);
- while ((Self__EPYE >= 0)) {
- Result__UWHE[Self__EPYE]=NULL;
- Self__EPYE=(__INTEGER)(Self__EPYE - 1);
- };
- Self__1OSD->buckets__DYRD=Result__UWHE;
- Self__1OSD->capacity__4XRD=new_capacity__PFXD;
- list_data__HONC=result__SXED;
- push_back_flag__P0MF=FALSE__;
- memory__OGMF='\0';
- last_integer__AZUE= 0;
- last_string__SZUE=create__ZBB( 1024);
- ARRAYED_COLLECTIONoLIP_SLOT_DATAo__->upper__ADQF= 0;
- ARRAYED_COLLECTIONoLIP_SLOT_DATAo__->capacity__HJQF= 0;
- ARRAYED_COLLECTIONoLIP_SLOT_DATAo__->storage__SJQF=NULL;
- FAST_ARRAYoLIP_SLOT_DATAo__->parent_arrayed_collection__H0UE=(*ARRAYED_COLLECTIONoLIP_SLOT_DATAo__);
- result__M0NF=NULL;
- ptr__N0NF=((__POINTER )(NULL));
- typ_id__S0NF= 0;
- sz__P0NF=((__UINTEGER_32 )sizeof(__FAST_ARRAYoLIP_SLOT_DATAo));
- if ((sz__P0NF == 0)) {
- result__M0NF=FAST_ARRAYoLIP_SLOT_DATAo__;
- } else {
- typ_id__S0NF=__FAST_ARRAYoLIP_SLOT_DATAo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__P0NF);
- if ((typ_id__S0NF == (__INTEGER)(- 1))) {
- a__WSGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__XSGH=(__UINTEGER_32)((__UINTEGER_32)(sz__P0NF + a__WSGH) & (__UINTEGER_32)(~ a__WSGH));
- ptr_table__5ULH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XSGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__4ULH=((__POINTER )(NULL));
- result__AVLH=((__POINTER *)ptr_table__5ULH)[ 0];
- if ((result__AVLH == (void *)NULL)) {
- result__AVLH=new_lab__RTJ(new_size__XSGH);
- next__4ULH=(void *)((unsigned long)result__AVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XSGH)));
- ((__POINTER *)next__4ULH)[ 0]=NULL;
- ((__POINTER *)ptr_table__5ULH)[ 0]=next__4ULH;
- } else {
- next__4ULH=((__POINTER *)result__AVLH)[ 0];
- if ((next__4ULH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__AVLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__XSGH << 1)) <= 4096)) {
- next__4ULH=(void *)((unsigned long)result__AVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XSGH)));
- } else {
- next__4ULH=new_lab__RTJ(new_size__XSGH);
- };
- ((__POINTER *)next__4ULH)[ 0]=NULL;
- ((__POINTER *)ptr_table__5ULH)[ 0]=next__4ULH;
- } else {
- ((__POINTER *)result__AVLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4ULH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__AVLH=next__4ULH;
- };
- };
- ptr__N0NF=result__AVLH;
- } else {
- t__1SGH=((__UINTEGER_32 )typ_id__S0NF);
- a__0SGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HVLH=(__UINTEGER_32)((__UINTEGER_32)(sz__P0NF + a__0SGH) & (__UINTEGER_32)(~ a__0SGH));
- ptr_table__EVLH=((__POINTER )(&(table_type[(t__1SGH)])));
- lab_type__GVLH=(__UINTEGER_32)(t__1SGH | 1);
- next__DVLH=((__POINTER )(NULL));
- result__FVLH=((__POINTER *)ptr_table__EVLH)[ 0];
- if ((result__FVLH == (void *)NULL)) {
- result__FVLH=new_lab__RTJ(lab_type__GVLH);
- next__DVLH=(void *)((unsigned long)result__FVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HVLH)));
- ((__POINTER *)next__DVLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__EVLH)[ 0]=next__DVLH;
- } else {
- next__DVLH=((__POINTER *)result__FVLH)[ 0];
- if ((next__DVLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FVLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__HVLH << 1)) <= 4096)) {
- next__DVLH=(void *)((unsigned long)result__FVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HVLH)));
- } else {
- next__DVLH=new_lab__RTJ(lab_type__GVLH);
- };
- ((__POINTER *)next__DVLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__EVLH)[ 0]=next__DVLH;
- } else {
- ((__POINTER *)result__FVLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DVLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__FVLH=next__DVLH;
- };
- };
- ptr__N0NF=result__FVLH;
- };
- result__M0NF=((__FAST_ARRAYoLIP_SLOT_DATAo *)ptr__N0NF);
- *(result__M0NF) = *(FAST_ARRAYoLIP_SLOT_DATAo__);
- };
- Self__4IQF=((__FAST_ARRAYoLIP_SLOT_DATAo *)result__M0NF);
- if ((Self__4IQF->parent_arrayed_collection__H0UE.capacity__HJQF < 8)) {
- sz__ZGHH=((__UINTEGER_32 )(__INTEGER)(((__INTEGER )(sizeof(void *))) << 3));
- result__XGHH=((__POINTER )(NULL));
- a__YGHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__0GHH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZGHH + a__YGHH) & (__UINTEGER_32)(~ a__YGHH));
- new_size2__1GHH=(__UINTEGER_32)(new_size__0GHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__1GHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__2GHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__3GHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__1GHH + a__2GHH) & (__UINTEGER_32)(~ a__2GHH));
- ptr_table__JVLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3GHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__IVLH=((__POINTER )(NULL));
- result__KVLH=((__POINTER *)ptr_table__JVLH)[ 0];
- if ((result__KVLH == (void *)NULL)) {
- result__KVLH=new_lab__RTJ(new_size__3GHH);
- next__IVLH=(void *)((unsigned long)result__KVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3GHH)));
- ((__POINTER *)next__IVLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__JVLH)[ 0]=next__IVLH;
- } else {
- next__IVLH=((__POINTER *)result__KVLH)[ 0];
- if ((next__IVLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KVLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__3GHH << 1)) <= 4096)) {
- next__IVLH=(void *)((unsigned long)result__KVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3GHH)));
- } else {
- next__IVLH=new_lab__RTJ(new_size__3GHH);
- };
- ((__POINTER *)next__IVLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__JVLH)[ 0]=next__IVLH;
- } else {
- ((__POINTER *)result__KVLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__IVLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__KVLH=next__IVLH;
- };
- };
- ((__POINTER *)result__KVLH)[ 0]=((__POINTER ) 3);
- result__XGHH=(void *)((unsigned long)result__KVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__XGHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__0GHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__SK1F=((void **)result__XGHH);
- Self__HQAG= 7;
- while ((Self__HQAG >= 0)) {
- Result__SK1F[Self__HQAG]=NULL;
- Self__HQAG=(__INTEGER)(Self__HQAG - 1);
- };
- Self__4IQF->parent_arrayed_collection__H0UE.storage__SJQF=Result__SK1F;
- Self__4IQF->parent_arrayed_collection__H0UE.capacity__HJQF= 8;
- };
- Self__4IQF->parent_arrayed_collection__H0UE.upper__ADQF=(__INTEGER)(- 1);
- stack__I0UE=result__M0NF;
- path_file__1FXF=create_with_capacity__THRC( 3000);
- ARRAYED_COLLECTIONoLIP_SLOT_CODEo__->upper__M2KF= 0;
- ARRAYED_COLLECTIONoLIP_SLOT_CODEo__->capacity__IEQF= 0;
- ARRAYED_COLLECTIONoLIP_SLOT_CODEo__->storage__TEQF=NULL;
- FAST_ARRAYoLIP_SLOT_CODEo__->parent_arrayed_collection__C2KF=(*ARRAYED_COLLECTIONoLIP_SLOT_CODEo__);
- result__JLNF=NULL;
- ptr__KLNF=((__POINTER )(NULL));
- typ_id__PLNF= 0;
- sz__MLNF=((__UINTEGER_32 )sizeof(__FAST_ARRAYoLIP_SLOT_CODEo));
- if ((sz__MLNF == 0)) {
- result__JLNF=FAST_ARRAYoLIP_SLOT_CODEo__;
- } else {
- typ_id__PLNF=__FAST_ARRAYoLIP_SLOT_CODEo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__MLNF);
- if ((typ_id__PLNF == (__INTEGER)(- 1))) {
- a__4SGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5SGH=(__UINTEGER_32)((__UINTEGER_32)(sz__MLNF + a__4SGH) & (__UINTEGER_32)(~ a__4SGH));
- ptr_table__OVLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5SGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__NVLH=((__POINTER )(NULL));
- result__PVLH=((__POINTER *)ptr_table__OVLH)[ 0];
- if ((result__PVLH == (void *)NULL)) {
- result__PVLH=new_lab__RTJ(new_size__5SGH);
- next__NVLH=(void *)((unsigned long)result__PVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5SGH)));
- ((__POINTER *)next__NVLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__OVLH)[ 0]=next__NVLH;
- } else {
- next__NVLH=((__POINTER *)result__PVLH)[ 0];
- if ((next__NVLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PVLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__5SGH << 1)) <= 4096)) {
- next__NVLH=(void *)((unsigned long)result__PVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5SGH)));
- } else {
- next__NVLH=new_lab__RTJ(new_size__5SGH);
- };
- ((__POINTER *)next__NVLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__OVLH)[ 0]=next__NVLH;
- } else {
- ((__POINTER *)result__PVLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NVLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__PVLH=next__NVLH;
- };
- };
- ptr__KLNF=result__PVLH;
- } else {
- t__DTGH=((__UINTEGER_32 )typ_id__PLNF);
- a__CTGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__WVLH=(__UINTEGER_32)((__UINTEGER_32)(sz__MLNF + a__CTGH) & (__UINTEGER_32)(~ a__CTGH));
- ptr_table__TVLH=((__POINTER )(&(table_type[(t__DTGH)])));
- lab_type__VVLH=(__UINTEGER_32)(t__DTGH | 1);
- next__SVLH=((__POINTER )(NULL));
- result__UVLH=((__POINTER *)ptr_table__TVLH)[ 0];
- if ((result__UVLH == (void *)NULL)) {
- result__UVLH=new_lab__RTJ(lab_type__VVLH);
- next__SVLH=(void *)((unsigned long)result__UVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WVLH)));
- ((__POINTER *)next__SVLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__TVLH)[ 0]=next__SVLH;
- } else {
- next__SVLH=((__POINTER *)result__UVLH)[ 0];
- if ((next__SVLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UVLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__WVLH << 1)) <= 4096)) {
- next__SVLH=(void *)((unsigned long)result__UVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WVLH)));
- } else {
- next__SVLH=new_lab__RTJ(lab_type__VVLH);
- };
- ((__POINTER *)next__SVLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__TVLH)[ 0]=next__SVLH;
- } else {
- ((__POINTER *)result__UVLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__SVLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__UVLH=next__SVLH;
- };
- };
- ptr__KLNF=result__UVLH;
- };
- result__JLNF=((__FAST_ARRAYoLIP_SLOT_CODEo *)ptr__KLNF);
- *(result__JLNF) = *(FAST_ARRAYoLIP_SLOT_CODEo__);
- };
- Self__5DQF=((__FAST_ARRAYoLIP_SLOT_CODEo *)result__JLNF);
- if ((Self__5DQF->parent_arrayed_collection__C2KF.capacity__IEQF < 32)) {
- sz__BHHH=((__UINTEGER_32 )(__INTEGER)(((__INTEGER )(sizeof(void *))) << 5));
- result__5GHH=((__POINTER )(NULL));
- a__AHHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__CHHH=(__UINTEGER_32)((__UINTEGER_32)(sz__BHHH + a__AHHH) & (__UINTEGER_32)(~ a__AHHH));
- new_size2__DHHH=(__UINTEGER_32)(new_size__CHHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__DHHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__EHHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__FHHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__DHHH + a__EHHH) & (__UINTEGER_32)(~ a__EHHH));
- ptr_table__YVLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__FHHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__XVLH=((__POINTER )(NULL));
- result__ZVLH=((__POINTER *)ptr_table__YVLH)[ 0];
- if ((result__ZVLH == (void *)NULL)) {
- result__ZVLH=new_lab__RTJ(new_size__FHHH);
- next__XVLH=(void *)((unsigned long)result__ZVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FHHH)));
- ((__POINTER *)next__XVLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__YVLH)[ 0]=next__XVLH;
- } else {
- next__XVLH=((__POINTER *)result__ZVLH)[ 0];
- if ((next__XVLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZVLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__FHHH << 1)) <= 4096)) {
- next__XVLH=(void *)((unsigned long)result__ZVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FHHH)));
- } else {
- next__XVLH=new_lab__RTJ(new_size__FHHH);
- };
- ((__POINTER *)next__XVLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__YVLH)[ 0]=next__XVLH;
- } else {
- ((__POINTER *)result__ZVLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XVLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__ZVLH=next__XVLH;
- };
- };
- ((__POINTER *)result__ZVLH)[ 0]=((__POINTER ) 3);
- result__5GHH=(void *)((unsigned long)result__ZVLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__5GHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__CHHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__ZF1F=((void **)result__5GHH);
- Self__APAG= 31;
- while ((Self__APAG >= 0)) {
- Result__ZF1F[Self__APAG]=NULL;
- Self__APAG=(__INTEGER)(Self__APAG - 1);
- };
- Self__5DQF->parent_arrayed_collection__C2KF.storage__TEQF=Result__ZF1F;
- Self__5DQF->parent_arrayed_collection__C2KF.capacity__IEQF= 32;
- };
- Self__5DQF->parent_arrayed_collection__C2KF.upper__M2KF=(__INTEGER)(- 1);
- list_method__D2KF=result__JLNF;
- PROTOTYPE__->comment_slot__YRTC=NULL;
- PROTOTYPE__->comment_header__Q4QC=NULL;
- HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__->buckets__MOEC=NULL;
- HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__->capacity__HOEC= 0;
- HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__->count__JYFC= 0;
- result__40YB=NULL;
- ptr__50YB=((__POINTER )(NULL));
- typ_id__E1YB= 0;
- sz__B1YB=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo));
- if ((sz__B1YB == 0)) {
- result__40YB=HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__;
- } else {
- typ_id__E1YB=__HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__B1YB);
- if ((typ_id__E1YB == (__INTEGER)(- 1))) {
- a__GTGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HTGH=(__UINTEGER_32)((__UINTEGER_32)(sz__B1YB + a__GTGH) & (__UINTEGER_32)(~ a__GTGH));
- ptr_table__3VLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HTGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__2VLH=((__POINTER )(NULL));
- result__4VLH=((__POINTER *)ptr_table__3VLH)[ 0];
- if ((result__4VLH == (void *)NULL)) {
- result__4VLH=new_lab__RTJ(new_size__HTGH);
- next__2VLH=(void *)((unsigned long)result__4VLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HTGH)));
- ((__POINTER *)next__2VLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__3VLH)[ 0]=next__2VLH;
- } else {
- next__2VLH=((__POINTER *)result__4VLH)[ 0];
- if ((next__2VLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4VLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__HTGH << 1)) <= 4096)) {
- next__2VLH=(void *)((unsigned long)result__4VLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HTGH)));
- } else {
- next__2VLH=new_lab__RTJ(new_size__HTGH);
- };
- ((__POINTER *)next__2VLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__3VLH)[ 0]=next__2VLH;
- } else {
- ((__POINTER *)result__4VLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2VLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__4VLH=next__2VLH;
- };
- };
- ptr__50YB=result__4VLH;
- } else {
- t__LTGH=((__UINTEGER_32 )typ_id__E1YB);
- a__KTGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__FWLH=(__UINTEGER_32)((__UINTEGER_32)(sz__B1YB + a__KTGH) & (__UINTEGER_32)(~ a__KTGH));
- ptr_table__CWLH=((__POINTER )(&(table_type[(t__LTGH)])));
- lab_type__EWLH=(__UINTEGER_32)(t__LTGH | 1);
- next__BWLH=((__POINTER )(NULL));
- result__DWLH=((__POINTER *)ptr_table__CWLH)[ 0];
- if ((result__DWLH == (void *)NULL)) {
- result__DWLH=new_lab__RTJ(lab_type__EWLH);
- next__BWLH=(void *)((unsigned long)result__DWLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FWLH)));
- ((__POINTER *)next__BWLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__CWLH)[ 0]=next__BWLH;
- } else {
- next__BWLH=((__POINTER *)result__DWLH)[ 0];
- if ((next__BWLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DWLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__FWLH << 1)) <= 4096)) {
- next__BWLH=(void *)((unsigned long)result__DWLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FWLH)));
- } else {
- next__BWLH=new_lab__RTJ(lab_type__EWLH);
- };
- ((__POINTER *)next__BWLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__CWLH)[ 0]=next__BWLH;
- } else {
- ((__POINTER *)result__DWLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BWLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__DWLH=next__BWLH;
- };
- };
- ptr__50YB=result__DWLH;
- };
- result__40YB=((__HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *)ptr__50YB);
- *(result__40YB) = *(HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo__);
- };
- Self__MWFC=((__HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *)result__40YB);
- new_capacity__ZFOC=prime_number_ceiling__021( 193);
- Self__MWFC->buckets__MOEC=create__C3XC(new_capacity__ZFOC);
- Self__MWFC->capacity__HOEC=new_capacity__ZFOC;
- Self__MWFC->count__JYFC= 0;
- bucket_name__2ROB=result__40YB;
- HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__->key__YOEC=NULL;
- HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__->next__DPEC=NULL;
- HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__->item__LPEC=NULL;
- SECTION___->name__MYDC=NULL;
- SECTION___->type_list__1WFC=NULL;
- last_section__S2C=NULL;
- PROTOTYPE__->last_slot__J3C=NULL;
- ITM_SLOT__->id_section__T3C=NULL;
- ITM_SLOT__->comment__WZOB=NULL;
- ITM_SLOT__->result_type__A4FC=NULL;
- ITM_SLOT__->affect__P5FC='\0';
- ITM_SLOT__->argument_list__QDHC=NULL;
- ITM_SLOT__->next__YGHC=NULL;
- ITM_SLOT__->comment_chapter__S0HC=NULL;
- ITM_SLOT__->stat_shorter__4OTD= 0;
- ITM_SLOT_OPERATOR__->parent_itm_slot__0S5B=(*ITM_SLOT__);
- HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__->buckets__SQEC=NULL;
- HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__->capacity__NQEC= 0;
- HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__->count__D1FC= 0;
- result__D4YB=NULL;
- ptr__E4YB=((__POINTER )(NULL));
- typ_id__J4YB= 0;
- sz__G4YB=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo));
- if ((sz__G4YB == 0)) {
- result__D4YB=HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__;
- } else {
- typ_id__J4YB=__HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__G4YB);
- if ((typ_id__J4YB == (__INTEGER)(- 1))) {
- a__OTGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__PTGH=(__UINTEGER_32)((__UINTEGER_32)(sz__G4YB + a__OTGH) & (__UINTEGER_32)(~ a__OTGH));
- ptr_table__HWLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PTGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__GWLH=((__POINTER )(NULL));
- result__IWLH=((__POINTER *)ptr_table__HWLH)[ 0];
- if ((result__IWLH == (void *)NULL)) {
- result__IWLH=new_lab__RTJ(new_size__PTGH);
- next__GWLH=(void *)((unsigned long)result__IWLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PTGH)));
- ((__POINTER *)next__GWLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__HWLH)[ 0]=next__GWLH;
- } else {
- next__GWLH=((__POINTER *)result__IWLH)[ 0];
- if ((next__GWLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IWLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__PTGH << 1)) <= 4096)) {
- next__GWLH=(void *)((unsigned long)result__IWLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PTGH)));
- } else {
- next__GWLH=new_lab__RTJ(new_size__PTGH);
- };
- ((__POINTER *)next__GWLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__HWLH)[ 0]=next__GWLH;
- } else {
- ((__POINTER *)result__IWLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GWLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__IWLH=next__GWLH;
- };
- };
- ptr__E4YB=result__IWLH;
- } else {
- t__TTGH=((__UINTEGER_32 )typ_id__J4YB);
- a__STGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__PWLH=(__UINTEGER_32)((__UINTEGER_32)(sz__G4YB + a__STGH) & (__UINTEGER_32)(~ a__STGH));
- ptr_table__MWLH=((__POINTER )(&(table_type[(t__TTGH)])));
- lab_type__OWLH=(__UINTEGER_32)(t__TTGH | 1);
- next__LWLH=((__POINTER )(NULL));
- result__NWLH=((__POINTER *)ptr_table__MWLH)[ 0];
- if ((result__NWLH == (void *)NULL)) {
- result__NWLH=new_lab__RTJ(lab_type__OWLH);
- next__LWLH=(void *)((unsigned long)result__NWLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PWLH)));
- ((__POINTER *)next__LWLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__MWLH)[ 0]=next__LWLH;
- } else {
- next__LWLH=((__POINTER *)result__NWLH)[ 0];
- if ((next__LWLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NWLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__PWLH << 1)) <= 4096)) {
- next__LWLH=(void *)((unsigned long)result__NWLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PWLH)));
- } else {
- next__LWLH=new_lab__RTJ(lab_type__OWLH);
- };
- ((__POINTER *)next__LWLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__MWLH)[ 0]=next__LWLH;
- } else {
- ((__POINTER *)result__NWLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LWLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__NWLH=next__LWLH;
- };
- };
- ptr__E4YB=result__NWLH;
- };
- result__D4YB=((__HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)ptr__E4YB);
- *(result__D4YB) = *(HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__);
- };
- Self__LZFC=((__HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)result__D4YB);
- new_capacity__UJOC=prime_number_ceiling__021( 193);
- Self__LZFC->buckets__SQEC=create__FCYC(new_capacity__UJOC);
- Self__LZFC->capacity__NQEC=new_capacity__UJOC;
- Self__LZFC->count__D1FC= 0;
- bucket_list__XTOB=result__D4YB;
- HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__->key__4QEC=NULL;
- HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__->next__JREC=NULL;
- HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__->item__RREC=NULL;
- ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo__->upper__0SGC= 0;
- ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo__->capacity__CKHC= 0;
- ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo__->storage__NKHC=NULL;
- FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo__->parent_arrayed_collection__PS1B=(*ARRAYED_COLLECTIONoFAST_ARRAYoITM_ARGUMENToo__);
- ARRAYED_COLLECTIONoITM_ARGUMENTo__->upper__I5GC= 0;
- ARRAYED_COLLECTIONoITM_ARGUMENTo__->capacity__K5GC= 0;
- ARRAYED_COLLECTIONoITM_ARGUMENTo__->storage__GAHC=NULL;
- FAST_ARRAYoITM_ARGUMENTo__->parent_arrayed_collection__Z5YB=(*ARRAYED_COLLECTIONoITM_ARGUMENTo__);
- result__3H5B=NULL;
- ptr__4H5B=((__POINTER )(NULL));
- typ_id__DI5B= 0;
- sz__AI5B=((__UINTEGER_32 )sizeof(__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo));
- if ((sz__AI5B == 0)) {
- result__3H5B=FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo__;
- } else {
- typ_id__DI5B=__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__AI5B);
- if ((typ_id__DI5B == (__INTEGER)(- 1))) {
- a__WTGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__XTGH=(__UINTEGER_32)((__UINTEGER_32)(sz__AI5B + a__WTGH) & (__UINTEGER_32)(~ a__WTGH));
- ptr_table__RWLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XTGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__QWLH=((__POINTER )(NULL));
- result__SWLH=((__POINTER *)ptr_table__RWLH)[ 0];
- if ((result__SWLH == (void *)NULL)) {
- result__SWLH=new_lab__RTJ(new_size__XTGH);
- next__QWLH=(void *)((unsigned long)result__SWLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XTGH)));
- ((__POINTER *)next__QWLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__RWLH)[ 0]=next__QWLH;
- } else {
- next__QWLH=((__POINTER *)result__SWLH)[ 0];
- if ((next__QWLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SWLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__XTGH << 1)) <= 4096)) {
- next__QWLH=(void *)((unsigned long)result__SWLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XTGH)));
- } else {
- next__QWLH=new_lab__RTJ(new_size__XTGH);
- };
- ((__POINTER *)next__QWLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__RWLH)[ 0]=next__QWLH;
- } else {
- ((__POINTER *)result__SWLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QWLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__SWLH=next__QWLH;
- };
- };
- ptr__4H5B=result__SWLH;
- } else {
- t__1TGH=((__UINTEGER_32 )typ_id__DI5B);
- a__0TGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ZWLH=(__UINTEGER_32)((__UINTEGER_32)(sz__AI5B + a__0TGH) & (__UINTEGER_32)(~ a__0TGH));
- ptr_table__WWLH=((__POINTER )(&(table_type[(t__1TGH)])));
- lab_type__YWLH=(__UINTEGER_32)(t__1TGH | 1);
- next__VWLH=((__POINTER )(NULL));
- result__XWLH=((__POINTER *)ptr_table__WWLH)[ 0];
- if ((result__XWLH == (void *)NULL)) {
- result__XWLH=new_lab__RTJ(lab_type__YWLH);
- next__VWLH=(void *)((unsigned long)result__XWLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZWLH)));
- ((__POINTER *)next__VWLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__WWLH)[ 0]=next__VWLH;
- } else {
- next__VWLH=((__POINTER *)result__XWLH)[ 0];
- if ((next__VWLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XWLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__ZWLH << 1)) <= 4096)) {
- next__VWLH=(void *)((unsigned long)result__XWLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZWLH)));
- } else {
- next__VWLH=new_lab__RTJ(lab_type__YWLH);
- };
- ((__POINTER *)next__VWLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__WWLH)[ 0]=next__VWLH;
- } else {
- ((__POINTER *)result__XWLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VWLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__XWLH=next__VWLH;
- };
- };
- ptr__4H5B=result__XWLH;
- };
- result__3H5B=((__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *)ptr__4H5B);
- *(result__3H5B) = *(FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo__);
- };
- Self__ZJHC=((__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *)result__3H5B);
- if ((Self__ZJHC->parent_arrayed_collection__PS1B.capacity__CKHC < 5)) {
- Self__ZJHC->parent_arrayed_collection__PS1B.storage__NKHC=create__3MBD( 5);
- Self__ZJHC->parent_arrayed_collection__PS1B.capacity__CKHC= 5;
- };
- Self__ZJHC->parent_arrayed_collection__PS1B.upper__0SGC=(__INTEGER)(- 1);
- free_list__QS1B=result__3H5B;
- ITM_SLOT_OPERATOR__->priority_and_level__UZHC= 0;
- ITM_SLOT_OPERATOR__->pretty_name__5ZHC=NULL;
- last_slot__VUOB=NULL;
- HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__->key__ZAGC=NULL;
- HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__->next__EBGC=NULL;
- HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__->item__MBGC=NULL;
- PROTOTYPE__->first_slot__2DZB=NULL;
- ARRAYED_COLLECTIONoITM_SLOTo__->upper__UOTD= 0;
- ARRAYED_COLLECTIONoITM_SLOTo__->capacity__RCWE= 0;
- ARRAYED_COLLECTIONoITM_SLOTo__->storage__UPWE=NULL;
- FAST_ARRAYoITM_SLOTo__->parent_arrayed_collection__XNTD=(*ARRAYED_COLLECTIONoITM_SLOTo__);
- result__XCIE=NULL;
- ptr__YCIE=((__POINTER )(NULL));
- typ_id__3CIE= 0;
- sz__0CIE=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_SLOTo));
- if ((sz__0CIE == 0)) {
- result__XCIE=FAST_ARRAYoITM_SLOTo__;
- } else {
- typ_id__3CIE=__FAST_ARRAYoITM_SLOTo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__0CIE);
- if ((typ_id__3CIE == (__INTEGER)(- 1))) {
- a__4TGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5TGH=(__UINTEGER_32)((__UINTEGER_32)(sz__0CIE + a__4TGH) & (__UINTEGER_32)(~ a__4TGH));
- ptr_table__1WLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5TGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__0WLH=((__POINTER )(NULL));
- result__2WLH=((__POINTER *)ptr_table__1WLH)[ 0];
- if ((result__2WLH == (void *)NULL)) {
- result__2WLH=new_lab__RTJ(new_size__5TGH);
- next__0WLH=(void *)((unsigned long)result__2WLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5TGH)));
- ((__POINTER *)next__0WLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__1WLH)[ 0]=next__0WLH;
- } else {
- next__0WLH=((__POINTER *)result__2WLH)[ 0];
- if ((next__0WLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2WLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__5TGH << 1)) <= 4096)) {
- next__0WLH=(void *)((unsigned long)result__2WLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5TGH)));
- } else {
- next__0WLH=new_lab__RTJ(new_size__5TGH);
- };
- ((__POINTER *)next__0WLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__1WLH)[ 0]=next__0WLH;
- } else {
- ((__POINTER *)result__2WLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0WLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__2WLH=next__0WLH;
- };
- };
- ptr__YCIE=result__2WLH;
- } else {
- t__DUGH=((__UINTEGER_32 )typ_id__3CIE);
- a__CUGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__DXLH=(__UINTEGER_32)((__UINTEGER_32)(sz__0CIE + a__CUGH) & (__UINTEGER_32)(~ a__CUGH));
- ptr_table__AXLH=((__POINTER )(&(table_type[(t__DUGH)])));
- lab_type__CXLH=(__UINTEGER_32)(t__DUGH | 1);
- next__5WLH=((__POINTER )(NULL));
- result__BXLH=((__POINTER *)ptr_table__AXLH)[ 0];
- if ((result__BXLH == (void *)NULL)) {
- result__BXLH=new_lab__RTJ(lab_type__CXLH);
- next__5WLH=(void *)((unsigned long)result__BXLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DXLH)));
- ((__POINTER *)next__5WLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__AXLH)[ 0]=next__5WLH;
- } else {
- next__5WLH=((__POINTER *)result__BXLH)[ 0];
- if ((next__5WLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BXLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__DXLH << 1)) <= 4096)) {
- next__5WLH=(void *)((unsigned long)result__BXLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DXLH)));
- } else {
- next__5WLH=new_lab__RTJ(lab_type__CXLH);
- };
- ((__POINTER *)next__5WLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__AXLH)[ 0]=next__5WLH;
- } else {
- ((__POINTER *)result__BXLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5WLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__BXLH=next__5WLH;
- };
- };
- ptr__YCIE=result__BXLH;
- };
- result__XCIE=((__FAST_ARRAYoITM_SLOTo *)ptr__YCIE);
- *(result__XCIE) = *(FAST_ARRAYoITM_SLOTo__);
- };
- Self__BPWE=((__FAST_ARRAYoITM_SLOTo *)result__XCIE);
- if ((Self__BPWE->parent_arrayed_collection__XNTD.capacity__RCWE < 256)) {
- Self__BPWE->parent_arrayed_collection__XNTD.storage__UPWE=create__BJFF( 256);
- Self__BPWE->parent_arrayed_collection__XNTD.capacity__RCWE= 256;
- };
- Self__BPWE->parent_arrayed_collection__XNTD.upper__UOTD=(__INTEGER)(- 1);
- list_tmp__YNTD=result__XCIE;
- str_tmp__PP4E=create__ZBB( 512);
- str_tmp2__RR4E=create__ZBB( 64);
- str_tmp3__RV4E=create__ZBB( 64);
- txt__1=NULL;
- p__AB=NULL;
- create__ZBB( 255);
- result__TUB=NULL;
- ptr__UUB=((__POINTER )(NULL));
- typ_id__ZUB= 0;
- sz__WUB=((__UINTEGER_32 )sizeof(__HASHED_SEToABSTRACT_STRINGo));
- if ((sz__WUB == 0)) {
- result__TUB=HASHED_SEToABSTRACT_STRINGo__;
- } else {
- typ_id__ZUB=__HASHED_SEToABSTRACT_STRINGo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__WUB);
- if ((typ_id__ZUB == (__INTEGER)(- 1))) {
- a__GUGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HUGH=(__UINTEGER_32)((__UINTEGER_32)(sz__WUB + a__GUGH) & (__UINTEGER_32)(~ a__GUGH));
- ptr_table__FXLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HUGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__EXLH=((__POINTER )(NULL));
- result__GXLH=((__POINTER *)ptr_table__FXLH)[ 0];
- if ((result__GXLH == (void *)NULL)) {
- result__GXLH=new_lab__RTJ(new_size__HUGH);
- next__EXLH=(void *)((unsigned long)result__GXLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HUGH)));
- ((__POINTER *)next__EXLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__FXLH)[ 0]=next__EXLH;
- } else {
- next__EXLH=((__POINTER *)result__GXLH)[ 0];
- if ((next__EXLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GXLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__HUGH << 1)) <= 4096)) {
- next__EXLH=(void *)((unsigned long)result__GXLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HUGH)));
- } else {
- next__EXLH=new_lab__RTJ(new_size__HUGH);
- };
- ((__POINTER *)next__EXLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__FXLH)[ 0]=next__EXLH;
- } else {
- ((__POINTER *)result__GXLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EXLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__GXLH=next__EXLH;
- };
- };
- ptr__UUB=result__GXLH;
- } else {
- t__LUGH=((__UINTEGER_32 )typ_id__ZUB);
- a__KUGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__NXLH=(__UINTEGER_32)((__UINTEGER_32)(sz__WUB + a__KUGH) & (__UINTEGER_32)(~ a__KUGH));
- ptr_table__KXLH=((__POINTER )(&(table_type[(t__LUGH)])));
- lab_type__MXLH=(__UINTEGER_32)(t__LUGH | 1);
- next__JXLH=((__POINTER )(NULL));
- result__LXLH=((__POINTER *)ptr_table__KXLH)[ 0];
- if ((result__LXLH == (void *)NULL)) {
- result__LXLH=new_lab__RTJ(lab_type__MXLH);
- next__JXLH=(void *)((unsigned long)result__LXLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NXLH)));
- ((__POINTER *)next__JXLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__KXLH)[ 0]=next__JXLH;
- } else {
- next__JXLH=((__POINTER *)result__LXLH)[ 0];
- if ((next__JXLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LXLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__NXLH << 1)) <= 4096)) {
- next__JXLH=(void *)((unsigned long)result__LXLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NXLH)));
- } else {
- next__JXLH=new_lab__RTJ(lab_type__MXLH);
- };
- ((__POINTER *)next__JXLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__KXLH)[ 0]=next__JXLH;
- } else {
- ((__POINTER *)result__LXLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JXLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__LXLH=next__JXLH;
- };
- };
- ptr__UUB=result__LXLH;
- };
- result__TUB=((__HASHED_SEToABSTRACT_STRINGo *)ptr__UUB);
- *(result__TUB) = *(HASHED_SEToABSTRACT_STRINGo__);
- };
- Self__DDS=((__HASHED_SEToABSTRACT_STRINGo *)result__TUB);
- new_capacity__QZW=prime_number_ceiling__021( 53);
- Self__DDS->buckets__0ZR=create__EI2(new_capacity__QZW);
- Self__DDS->capacity__VZR=new_capacity__QZW;
- Self__DDS->count__10R= 0;
- list__FK=result__TUB;
- add__EZR(result__TUB,(&__string_4));
- add__EZR(list__FK,(&__string_5));
- add__EZR(list__FK,(&__string_6));
- add__EZR(list__FK,(&__string_7));
- add__EZR(list__FK,(&__string_8));
- add__EZR(list__FK,(&__string_9));
- add__EZR(list__FK,(&__string_10));
- add__EZR(list__FK,(&__string_11));
- add__EZR(list__FK,(&__string_12));
- add__EZR(list__FK,(&__string_13));
- add__EZR(list__FK,(&__string_14));
- add__EZR(list__FK,(&__string_15));
- add__EZR(list__FK,(&__string_16));
- add__EZR(list__FK,(&__string_17));
- add__EZR(list__FK,(&__string_18));
- add__EZR(list__FK,(&__string_19));
- add__EZR(list__FK,(&__string_20));
- add__EZR(list__FK,(&__string_21));
- add__EZR(list__FK,(&__string_22));
- add__EZR(list__FK,(&__string_23));
- add__EZR(list__FK,(&__string_24));
- add__EZR(list__FK,(&__string_25));
- add__EZR(list__FK,(&__string_26));
- add__EZR(list__FK,(&__string_27));
- add__EZR(list__FK,(&__string_28));
- add__EZR(list__FK,(&__string_29));
- add__EZR(list__FK,(&__string_30));
- add__EZR(list__FK,(&__string_31));
- add__EZR(list__FK,(&__string_32));
- add__EZR(list__FK,(&__string_33));
- add__EZR(list__FK,(&__string_34));
- add__EZR(list__FK,(&__string_35));
- add__EZR(list__FK,(&__string_36));
- add__EZR(list__FK,(&__string_37));
- add__EZR(list__FK,(&__string_38));
- add__EZR(list__FK,(&__string_39));
- add__EZR(list__FK,(&__string_40));
- add__EZR(list__FK,(&__string_41));
- add__EZR(list__FK,(&__string_42));
- add__EZR(list__FK,(&__string_43));
- add__EZR(list__FK,(&__string_44));
- add__EZR(list__FK,(&__string_45));
- add__EZR(list__FK,(&__string_46));
- add__EZR(list__FK,(&__string_47));
- add__EZR(list__FK,(&__string_1));
- add__EZR(list__FK,(&__string_48));
- add__EZR(list__FK,(&__string_49));
- add__EZR(list__FK,(&__string_50));
- add__EZR(list__FK,(&__string_51));
- add__EZR(list__FK,(&__string_52));
- add__EZR(list__FK,(&__string_53));
- add__EZR(list__FK,(&__string_54));
- add__EZR(list__FK,(&__string_55));
- add__EZR(list__FK,(&__string_56));
- add__EZR(list__FK,(&__string_57));
- add__EZR(list__FK,(&__string_58));
- add__EZR(list__FK,(&__string_59));
- add__EZR(list__FK,(&__string_2));
- add__EZR(list__FK,(&__string_3));
- add__EZR(list__FK,(&__string_60));
- add__EZR(list__FK,(&__string_61));
- add__EZR(list__FK,(&__string_62));
- add__EZR(list__FK,(&__string_63));
- add__EZR(list__FK,(&__string_64));
- add__EZR(list__FK,(&__string_65));
- add__EZR(list__FK,(&__string_66));
- add__EZR(list__FK,(&__string_67));
- add__EZR(list__FK,(&__string_68));
- add__EZR(list__FK,(&__string_69));
- add__EZR(list__FK,(&__string_70));
- add__EZR(list__FK,(&__string_71));
- add__EZR(list__FK,(&__string_72));
- add__EZR(list__FK,(&__string_73));
- add__EZR(list__FK,(&__string_74));
- add__EZR(list__FK,(&__string_75));
- add__EZR(list__FK,(&__string_76));
- add__EZR(list__FK,(&__string_77));
- add__EZR(list__FK,(&__string_78));
- add__EZR(list__FK,(&__string_79));
- add__EZR(list__FK,(&__string_80));
- add__EZR(list__FK,(&__string_81));
- add__EZR(list__FK,(&__string_82));
- add__EZR(list__FK,(&__string_83));
- add__EZR(list__FK,(&__string_84));
- add__EZR(list__FK,(&__string_85));
- add__EZR(list__FK,(&__string_86));
- add__EZR(list__FK,(&__string_87));
- add__EZR(list__FK,(&__string_88));
- add__EZR(list__FK,(&__string_89));
- add__EZR(list__FK,(&__string_90));
- add__EZR(list__FK,(&__string_91));
- add__EZR(list__FK,(&__string_92));
- add__EZR(list__FK,(&__string_93));
- add__EZR(list__FK,(&__string_94));
- add__EZR(list__FK,(&__string_95));
- add__EZR(list__FK,(&__string_96));
- add__EZR(list__FK,(&__string_97));
- add__EZR(list__FK,(&__string_98));
- add__EZR(list__FK,(&__string_99));
- add__EZR(list__FK,(&__string_100));
- add__EZR(list__FK,(&__string_101));
- add__EZR(list__FK,(&__string_102));
- add__EZR(list__FK,(&__string_103));
- add__EZR(list__FK,(&__string_104));
- add__EZR(list__FK,(&__string_105));
- add__EZR(list__FK,(&__string_106));
- add__EZR(list__FK,(&__string_107));
- add__EZR(list__FK,(&__string_108));
- add__EZR(list__FK,(&__string_109));
- add__EZR(list__FK,(&__string_110));
- add__EZR(list__FK,(&__string_111));
- add__EZR(list__FK,(&__string_112));
- add__EZR(list__FK,(&__string_113));
- add__EZR(list__FK,(&__string_114));
- add__EZR(list__FK,(&__string_115));
- add__EZR(list__FK,(&__string_116));
- add__EZR(list__FK,(&__string_117));
- add__EZR(list__FK,(&__string_118));
- add__EZR(list__FK,(&__string_119));
- add__EZR(list__FK,(&__string_120));
- add__EZR(list__FK,(&__string_121));
- add__EZR(list__FK,(&__string_122));
- add__EZR(list__FK,(&__string_123));
- add__EZR(list__FK,(&__string_124));
- add__EZR(list__FK,(&__string_125));
- add__EZR(list__FK,(&__string_126));
- add__EZR(list__FK,(&__string_127));
- add__EZR(list__FK,(&__string_128));
- add__EZR(list__FK,(&__string_129));
- add__EZR(list__FK,(&__string_70));
- add__EZR(list__FK,(&__string_130));
- add__EZR(list__FK,(&__string_131));
- add__EZR(list__FK,(&__string_132));
- add__EZR(list__FK,(&__string_133));
- add__EZR(list__FK,(&__string_65));
- add__EZR(list__FK,(&__string_134));
- add__EZR(list__FK,(&__string_135));
- add__EZR(list__FK,(&__string_136));
- add__EZR(list__FK,(&__string_137));
- add__EZR(list__FK,(&__string_138));
- add__EZR(list__FK,(&__string_139));
- add__EZR(list__FK,(&__string_140));
- add__EZR(list__FK,(&__string_141));
- add__EZR(list__FK,(&__string_142));
- add__EZR(list__FK,(&__string_143));
- add__EZR(list__FK,(&__string_144));
- add__EZR(list__FK,(&__string_145));
- add__EZR(list__FK,(&__string_146));
- add__EZR(list__FK,(&__string_147));
- add__EZR(list__FK,(&__string_148));
- add__EZR(list__FK,(&__string_149));
- add__EZR(list__FK,(&__string_150));
- add__EZR(list__FK,(&__string_66));
- add__EZR(list__FK,(&__string_151));
- add__EZR(list__FK,(&__string_152));
- add__EZR(list__FK,(&__string_153));
- add__EZR(list__FK,(&__string_154));
- add__EZR(list__FK,(&__string_155));
- add__EZR(list__FK,(&__string_156));
- operator__name__GHB((&__string_16));
- operator__name__GHB((&__string_17));
- cmd__HZ=NULL;
- path__KZ=NULL;
- is_shorter__LZ=TRUE__;
- j__IZ= 1;
- while ((j__IZ <= ((__FAST_ARRAYoSTRINGo *)result__ZID)->parent_arrayed_collection__5KC.upper__CLC)) {
- cmd__HZ=((void **)((__FAST_ARRAYoSTRINGo *)result__ZID)->parent_arrayed_collection__5KC.storage__UGT)[j__IZ];
- if ((((__CHARACTER *)((__STRING *)cmd__HZ)->storage__3CS)[ 0] == '-')) {
- if ((((__CHARACTER *)((__STRING *)cmd__HZ)->storage__3CS)[ 1] == 'o')) {
- j__IZ=(__INTEGER)(j__IZ + 1);
- if ((j__IZ > (__INTEGER)(((__FAST_ARRAYoSTRINGo *)result__ZID)->parent_arrayed_collection__5KC.upper__CLC + 1))) {
- print__OJD((&__string_157));
- exit(( 1));
- };
- output_name__DI=get__YWB(((void **)((__FAST_ARRAYoSTRINGo *)result__ZID)->parent_arrayed_collection__5KC.storage__UGT)[j__IZ]);
- __tmp__U0=TRUE__;
- } else {
- __tmp__U0=FALSE__;
- };
- if (__tmp__U0) {
- __tmp__P1=TRUE__;
- } else {
- result__Y2NB=(((__CHARACTER *)((__STRING *)cmd__HZ)->storage__3CS)[ 1] == 'f');
- if (result__Y2NB) {
- j__IZ=(__INTEGER)(j__IZ + 1);
- if ((j__IZ > (__INTEGER)(((__FAST_ARRAYoSTRINGo *)result__ZID)->parent_arrayed_collection__5KC.upper__CLC + 1))) {
- print__OJD((&__string_157));
- exit(( 1));
- };
- format_name__N1=get__YWB(((void **)((__FAST_ARRAYoSTRINGo *)result__ZID)->parent_arrayed_collection__5KC.storage__UGT)[j__IZ]);
- };
- __tmp__P1=result__Y2NB;
- };
- if (__tmp__P1) {
- __tmp__31=TRUE__;
- } else {
- result__K3NB=(((__CHARACTER *)((__STRING *)cmd__HZ)->storage__3CS)[ 1] == 'c');
- if (result__K3NB) {
- is_short_code__11=TRUE__;
- };
- __tmp__31=result__K3NB;
- };
- if (__tmp__31) {
- __tmp__L2=TRUE__;
- } else {
- result__23NB=(((__CHARACTER *)((__STRING *)cmd__HZ)->storage__3CS)[ 1] == 'p');
- if (result__23NB) {
- is_short_private__J2=TRUE__;
- };
- __tmp__L2=result__23NB;
- };
- if (__tmp__L2) {
- __tmp__Y2=TRUE__;
- } else {
- result__O4NB=(((__CHARACTER *)((__STRING *)cmd__HZ)->storage__3CS)[ 1] == 'r');
- if (result__O4NB) {
- is_short_recursive__JB=TRUE__;
- };
- __tmp__Y2=result__O4NB;
- };
- if ((! __tmp__Y2)) {
- if ((((__CHARACTER *)((__STRING *)cmd__HZ)->storage__3CS)[ 1] == 'd')) {
- is_shorter__LZ=FALSE__;
- is_shorter2__VI=TRUE__;
- is_short_recursive__JB=TRUE__;
- } else {
- print__OJD((&__string_157));
- exit(( 1));
- };
- };
- } else {
- if (((void *)input_name__3B != (void *)NULL)) {
- print__OJD((&__string_157));
- exit(( 1));
- };
- copy__VDS(string_tmp__VH,((void **)((__FAST_ARRAYoSTRINGo *)result__ZID)->parent_arrayed_collection__5KC.storage__UGT)[j__IZ]);
- input_name__3B=get__YWB(string_tmp__VH);
- };
- j__IZ=(__INTEGER)(j__IZ + 1);
- };
- if (((void *)input_name__3B == (void *)NULL)) {
- print__OJD((&__string_157));
- exit(( 1));
- };
- if (((void *)format_name__N1 != (void *)NULL)) {
- path__KZ=((__CHARACTER *)(LISAAC_DIRECTORY));
- __tmp__P4=fast_first_index_of__until__OLC(path__KZ);
- result__0UIH=NULL;
- ptr__1UIH=((__POINTER )(NULL));
- typ_id__2UIH= 0;
- sz__3UIH=((__UINTEGER_32 )sizeof(__STRING_CONSTANT));
- if ((sz__3UIH == 0)) {
- result__0UIH=STRING_CONSTANT__;
- } else {
- typ_id__2UIH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__3UIH);
- if ((typ_id__2UIH == (__INTEGER)(- 1))) {
- a__4UIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5UIH=(__UINTEGER_32)((__UINTEGER_32)(sz__3UIH + a__4UIH) & (__UINTEGER_32)(~ a__4UIH));
- ptr_table__PXLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5UIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__OXLH=((__POINTER )(NULL));
- result__QXLH=((__POINTER *)ptr_table__PXLH)[ 0];
- if ((result__QXLH == (void *)NULL)) {
- result__QXLH=new_lab__RTJ(new_size__5UIH);
- next__OXLH=(void *)((unsigned long)result__QXLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5UIH)));
- ((__POINTER *)next__OXLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__PXLH)[ 0]=next__OXLH;
- } else {
- next__OXLH=((__POINTER *)result__QXLH)[ 0];
- if ((next__OXLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QXLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__5UIH << 1)) <= 4096)) {
- next__OXLH=(void *)((unsigned long)result__QXLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5UIH)));
- } else {
- next__OXLH=new_lab__RTJ(new_size__5UIH);
- };
- ((__POINTER *)next__OXLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__PXLH)[ 0]=next__OXLH;
- } else {
- ((__POINTER *)result__QXLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OXLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__QXLH=next__OXLH;
- };
- };
- ptr__1UIH=result__QXLH;
- } else {
- t__AVIH=((__UINTEGER_32 )typ_id__2UIH);
- a__BVIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__XXLH=(__UINTEGER_32)((__UINTEGER_32)(sz__3UIH + a__BVIH) & (__UINTEGER_32)(~ a__BVIH));
- ptr_table__UXLH=((__POINTER )(&(table_type[(t__AVIH)])));
- lab_type__WXLH=(__UINTEGER_32)(t__AVIH | 1);
- next__TXLH=((__POINTER )(NULL));
- result__VXLH=((__POINTER *)ptr_table__UXLH)[ 0];
- if ((result__VXLH == (void *)NULL)) {
- result__VXLH=new_lab__RTJ(lab_type__WXLH);
- next__TXLH=(void *)((unsigned long)result__VXLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XXLH)));
- ((__POINTER *)next__TXLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__UXLH)[ 0]=next__TXLH;
- } else {
- next__TXLH=((__POINTER *)result__VXLH)[ 0];
- if ((next__TXLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VXLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__XXLH << 1)) <= 4096)) {
- next__TXLH=(void *)((unsigned long)result__VXLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XXLH)));
- } else {
- next__TXLH=new_lab__RTJ(lab_type__WXLH);
- };
- ((__POINTER *)next__TXLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__UXLH)[ 0]=next__TXLH;
- } else {
- ((__POINTER *)result__VXLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TXLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__VXLH=next__TXLH;
- };
- };
- ptr__1UIH=result__VXLH;
- };
- result__0UIH=((__STRING_CONSTANT *)ptr__1UIH);
- *(result__0UIH) = *(STRING_CONSTANT__);
- };
- Self__JXS=((__STRING_CONSTANT *)result__0UIH);
- Self__JXS->storage__RRO=path__KZ;
- Self__JXS->count__DD=__tmp__P4;
- copy__VDS(string_tmp__VH,result__0UIH);
- Self__MUGH=((__STRING_CONSTANT *)result__0UIH);
- if ((((__CHARACTER *)Self__MUGH->storage__RRO)[(__INTEGER)(Self__MUGH->count__DD - 1)] != '/')) {
- Self__AOS=((__STRING_CONSTANT *)result__0UIH);
- __tmp__14=(((__CHARACTER *)Self__AOS->storage__RRO)[(__INTEGER)(Self__AOS->count__DD - 1)] != '\\');
- } else {
- __tmp__14=FALSE__;
- };
- if (__tmp__14) {
- Self__UNT=((__STRING *)string_tmp__VH);
- new_capacity__WNT= 0;
- if ((Self__UNT->capacity__UCS <= Self__UNT->count__SGC)) {
- if ((Self__UNT->capacity__UCS == 0)) {
- Self__UNT->capacity__UCS= 32;
- Self__UNT->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__WNT=(__INTEGER)(Self__UNT->capacity__UCS << 1);
- Self__VBFH=((__CHARACTER *)Self__UNT->storage__3CS);
- old_nb_elts__WBFH=Self__UNT->capacity__UCS;
- new__YBFH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__VBFH),((__UINTEGER_32 )old_nb_elts__WBFH),((__UINTEGER_32 )new_capacity__WNT)));
- upper__CQ3C=(__INTEGER)(new_capacity__WNT - 1);
- Self__KWDD=old_nb_elts__WBFH;
- while ((Self__KWDD <= upper__CQ3C)) {
- new__YBFH[Self__KWDD]='\0';
- Self__KWDD=(__INTEGER)(Self__KWDD + 1);
- };
- Self__UNT->storage__3CS=new__YBFH;
- Self__UNT->capacity__UCS=new_capacity__WNT;
- };
- };
- ((__CHARACTER *)Self__UNT->storage__3CS)[Self__UNT->count__SGC]='/';
- Self__UNT->count__SGC=(__INTEGER)(Self__UNT->count__SGC + 1);
- };
- append__3OS(string_tmp__VH,(&__string_158));
- append__3OS(string_tmp__VH,format_name__N1);
- append__3OS(string_tmp__VH,(&__string_159));
- fmt_name__GOC=get__YWB(string_tmp__VH);
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- if (((void *)get_entry__DZAC(fmt_name__GOC) == (void *)NULL)) {
- put_string__33F((&__string_160));
- put_string__33F(fmt_name__GOC);
- put_string__33F((&__string_161));
- exit(( 1));
- };
- object__ZBC=create__name__generic_count__JBC(fmt_name__GOC,(&__string_114));
- source__5BC=((__PROTOTYPE *)object__ZBC)->source__3BC;
- position__CCC= 1;
- pos_cur__FCC= 1;
- pos_line__GCC= 1;
- pos_col__HCC= 0;
- while_do__LMF:
- {
- result__YXLH=FALSE__;
- if ((! read_space__XTD())) {
- result__YXLH=FALSE__;
- } else {
- result__ZXLH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__ZXLH=((__CHARACTER )(( 0)));
- } else {
- result__ZXLH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__ZXLH == '-')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__YXLH=TRUE__;
- };
- };
- if (result__YXLH) {
- if ((! read_identifier__2BL())) {
- pos__2S1G=current_position__B0F();
- put_error__text__1PG( 0,(&__string_162));
- put_position__FRG(pos__2S1G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- result__3DKB=NULL;
- ptr__4DKB=((__POINTER )(NULL));
- typ_id__DEKB= 0;
- sz__AEKB=((__UINTEGER_32 )sizeof(__LINKED_LISToSTRING_CONSTANTo));
- if ((sz__AEKB == 0)) {
- result__3DKB=LINKED_LISToSTRING_CONSTANTo__;
- } else {
- typ_id__DEKB=__LINKED_LISToSTRING_CONSTANTo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__AEKB);
- if ((typ_id__DEKB == (__INTEGER)(- 1))) {
- a__PUGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__QUGH=(__UINTEGER_32)((__UINTEGER_32)(sz__AEKB + a__PUGH) & (__UINTEGER_32)(~ a__PUGH));
- ptr_table__2XLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QUGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__1XLH=((__POINTER )(NULL));
- result__3XLH=((__POINTER *)ptr_table__2XLH)[ 0];
- if ((result__3XLH == (void *)NULL)) {
- result__3XLH=new_lab__RTJ(new_size__QUGH);
- next__1XLH=(void *)((unsigned long)result__3XLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QUGH)));
- ((__POINTER *)next__1XLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__2XLH)[ 0]=next__1XLH;
- } else {
- next__1XLH=((__POINTER *)result__3XLH)[ 0];
- if ((next__1XLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3XLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__QUGH << 1)) <= 4096)) {
- next__1XLH=(void *)((unsigned long)result__3XLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QUGH)));
- } else {
- next__1XLH=new_lab__RTJ(new_size__QUGH);
- };
- ((__POINTER *)next__1XLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__2XLH)[ 0]=next__1XLH;
- } else {
- ((__POINTER *)result__3XLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1XLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__3XLH=next__1XLH;
- };
- };
- ptr__4DKB=result__3XLH;
- } else {
- t__UUGH=((__UINTEGER_32 )typ_id__DEKB);
- a__TUGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__EYLH=(__UINTEGER_32)((__UINTEGER_32)(sz__AEKB + a__TUGH) & (__UINTEGER_32)(~ a__TUGH));
- ptr_table__BYLH=((__POINTER )(&(table_type[(t__UUGH)])));
- lab_type__DYLH=(__UINTEGER_32)(t__UUGH | 1);
- next__AYLH=((__POINTER )(NULL));
- result__CYLH=((__POINTER *)ptr_table__BYLH)[ 0];
- if ((result__CYLH == (void *)NULL)) {
- result__CYLH=new_lab__RTJ(lab_type__DYLH);
- next__AYLH=(void *)((unsigned long)result__CYLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EYLH)));
- ((__POINTER *)next__AYLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__BYLH)[ 0]=next__AYLH;
- } else {
- next__AYLH=((__POINTER *)result__CYLH)[ 0];
- if ((next__AYLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CYLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__EYLH << 1)) <= 4096)) {
- next__AYLH=(void *)((unsigned long)result__CYLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EYLH)));
- } else {
- next__AYLH=new_lab__RTJ(lab_type__DYLH);
- };
- ((__POINTER *)next__AYLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__BYLH)[ 0]=next__AYLH;
- } else {
- ((__POINTER *)result__CYLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__AYLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__CYLH=next__AYLH;
- };
- };
- ptr__4DKB=result__CYLH;
- };
- result__3DKB=((__LINKED_LISToSTRING_CONSTANTo *)ptr__4DKB);
- *(result__3DKB) = *(LINKED_LISToSTRING_CONSTANTo__);
- };
- if (fast_has__IDT(short_dico__QD,last_string__D2C)) {
- pos__GT1G=current_position__B0F();
- put_error__text__1PG( 0,(&__string_163));
- put_position__FRG(pos__GT1G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- __tmp__UPD=last_string__D2C;
- Self__NMEB=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)short_dico__QD);
- k__PMEB=last_string__D2C;
- h__WMEB=hash_code__RNW(last_string__D2C);
- idx__XMEB=(__INTEGER)(h__WMEB % Self__NMEB->capacity__WDT);
- node__YMEB=((void **)Self__NMEB->buckets__1DT)[idx__XMEB];
- while ((! (((void *)node__YMEB == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__YMEB)->key__HET == (void *)k__PMEB)))) {
- node__YMEB=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__YMEB)->next__SET;
- };
- if (((void *)node__YMEB == (void *)NULL)) {
- if ((Self__NMEB->capacity__WDT == Self__NMEB->count__4MY)) {
- idx__YFZB= 0;
- node1__2FZB=NULL;
- node2__3FZB=NULL;
- old_buckets__1FZB=Self__NMEB->buckets__1DT;
- new_capacity__ZFZB=prime_number_ceiling__021((__INTEGER)(Self__NMEB->capacity__WDT + 1));
- Self__NMEB->buckets__1DT=create__0E4(new_capacity__ZFZB);
- i__0FZB=(__INTEGER)(Self__NMEB->capacity__WDT - 1);
- Self__NMEB->capacity__WDT=new_capacity__ZFZB;
- while ((i__0FZB >= 0)) {
- node1__2FZB=((void **)old_buckets__1FZB)[i__0FZB];
- while (((void *)node1__2FZB != (void *)NULL)) {
- node2__3FZB=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node1__2FZB)->next__SET;
- idx__YFZB=(__INTEGER)(hash_code__RNW(((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node1__2FZB)->key__HET) % Self__NMEB->capacity__WDT);
- ((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node1__2FZB)->next__SET=((void **)Self__NMEB->buckets__1DT)[idx__YFZB];
- ((void **)Self__NMEB->buckets__1DT)[idx__YFZB]=node1__2FZB;
- node1__2FZB=node2__3FZB;
- };
- i__0FZB=(__INTEGER)(i__0FZB - 1);
- };
- idx__XMEB=(__INTEGER)(h__WMEB % Self__NMEB->capacity__WDT);
- };
- __tmp__FOEB=((void **)Self__NMEB->buckets__1DT)[idx__XMEB];
- result__BIZB=NULL;
- ptr__CIZB=((__POINTER )(NULL));
- typ_id__HIZB= 0;
- sz__EIZB=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo));
- if ((sz__EIZB == 0)) {
- result__BIZB=HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__;
- } else {
- typ_id__HIZB=__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__EIZB);
- if ((typ_id__HIZB == (__INTEGER)(- 1))) {
- a__0UGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__1UGH=(__UINTEGER_32)((__UINTEGER_32)(sz__EIZB + a__0UGH) & (__UINTEGER_32)(~ a__0UGH));
- ptr_table__GYLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1UGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__FYLH=((__POINTER )(NULL));
- result__HYLH=((__POINTER *)ptr_table__GYLH)[ 0];
- if ((result__HYLH == (void *)NULL)) {
- result__HYLH=new_lab__RTJ(new_size__1UGH);
- next__FYLH=(void *)((unsigned long)result__HYLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1UGH)));
- ((__POINTER *)next__FYLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__GYLH)[ 0]=next__FYLH;
- } else {
- next__FYLH=((__POINTER *)result__HYLH)[ 0];
- if ((next__FYLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HYLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__1UGH << 1)) <= 4096)) {
- next__FYLH=(void *)((unsigned long)result__HYLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1UGH)));
- } else {
- next__FYLH=new_lab__RTJ(new_size__1UGH);
- };
- ((__POINTER *)next__FYLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__GYLH)[ 0]=next__FYLH;
- } else {
- ((__POINTER *)result__HYLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FYLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__HYLH=next__FYLH;
- };
- };
- ptr__CIZB=result__HYLH;
- } else {
- t__5UGH=((__UINTEGER_32 )typ_id__HIZB);
- a__4UGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__OYLH=(__UINTEGER_32)((__UINTEGER_32)(sz__EIZB + a__4UGH) & (__UINTEGER_32)(~ a__4UGH));
- ptr_table__LYLH=((__POINTER )(&(table_type[(t__5UGH)])));
- lab_type__NYLH=(__UINTEGER_32)(t__5UGH | 1);
- next__KYLH=((__POINTER )(NULL));
- result__MYLH=((__POINTER *)ptr_table__LYLH)[ 0];
- if ((result__MYLH == (void *)NULL)) {
- result__MYLH=new_lab__RTJ(lab_type__NYLH);
- next__KYLH=(void *)((unsigned long)result__MYLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OYLH)));
- ((__POINTER *)next__KYLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__LYLH)[ 0]=next__KYLH;
- } else {
- next__KYLH=((__POINTER *)result__MYLH)[ 0];
- if ((next__KYLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MYLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__OYLH << 1)) <= 4096)) {
- next__KYLH=(void *)((unsigned long)result__MYLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OYLH)));
- } else {
- next__KYLH=new_lab__RTJ(lab_type__NYLH);
- };
- ((__POINTER *)next__KYLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__LYLH)[ 0]=next__KYLH;
- } else {
- ((__POINTER *)result__MYLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KYLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__MYLH=next__KYLH;
- };
- };
- ptr__CIZB=result__MYLH;
- };
- result__BIZB=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)ptr__CIZB);
- *(result__BIZB) = *(HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo__);
- };
- Self__FDGC=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__BIZB);
- Self__FDGC->item__KW3=result__3DKB;
- Self__FDGC->key__HET=__tmp__UPD;
- Self__FDGC->next__SET=__tmp__FOEB;
- node__YMEB=result__BIZB;
- ((void **)Self__NMEB->buckets__1DT)[idx__XMEB]=result__BIZB;
- Self__NMEB->count__4MY=(__INTEGER)(Self__NMEB->count__4MY + 1);
- } else {
- ((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__YMEB)->item__KW3=result__3DKB;
- };
- if ((! read_symbol__4YJ((&__string_12)))) {
- pos__YU1G=current_position__B0F();
- put_error__text__1PG( 0,(&__string_164));
- put_position__FRG(pos__YU1G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- def__3OEB=result__3DKB;
- result__5OEB=FALSE__;
- if (read_short_elt__EIKB()) {
- result__5OEB=TRUE__;
- Self__FVGH=((__LINKED_LISToSTRING_CONSTANTo *)result__3DKB);
- element__EVGH=last_string__D2C;
- if (((void *)Self__FVGH->first_link__OTEC == (void *)NULL)) {
- i__LVIH=last_string__D2C;
- result__CVIH=NULL;
- ptr__DVIH=((__POINTER )(NULL));
- typ_id__EVIH= 0;
- sz__FVIH=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoSTRING_CONSTANTo));
- if ((sz__FVIH == 0)) {
- result__CVIH=LINKED_LIST_NODEoSTRING_CONSTANTo__;
- } else {
- typ_id__EVIH=__LINKED_LIST_NODEoSTRING_CONSTANTo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__FVIH);
- if ((typ_id__EVIH == (__INTEGER)(- 1))) {
- a__GVIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HVIH=(__UINTEGER_32)((__UINTEGER_32)(sz__FVIH + a__GVIH) & (__UINTEGER_32)(~ a__GVIH));
- ptr_table__QYLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HVIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__PYLH=((__POINTER )(NULL));
- result__RYLH=((__POINTER *)ptr_table__QYLH)[ 0];
- if ((result__RYLH == (void *)NULL)) {
- result__RYLH=new_lab__RTJ(new_size__HVIH);
- next__PYLH=(void *)((unsigned long)result__RYLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HVIH)));
- ((__POINTER *)next__PYLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__QYLH)[ 0]=next__PYLH;
- } else {
- next__PYLH=((__POINTER *)result__RYLH)[ 0];
- if ((next__PYLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RYLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__HVIH << 1)) <= 4096)) {
- next__PYLH=(void *)((unsigned long)result__RYLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HVIH)));
- } else {
- next__PYLH=new_lab__RTJ(new_size__HVIH);
- };
- ((__POINTER *)next__PYLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__QYLH)[ 0]=next__PYLH;
- } else {
- ((__POINTER *)result__RYLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PYLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__RYLH=next__PYLH;
- };
- };
- ptr__DVIH=result__RYLH;
- } else {
- t__IVIH=((__UINTEGER_32 )typ_id__EVIH);
- a__JVIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__YYLH=(__UINTEGER_32)((__UINTEGER_32)(sz__FVIH + a__JVIH) & (__UINTEGER_32)(~ a__JVIH));
- ptr_table__VYLH=((__POINTER )(&(table_type[(t__IVIH)])));
- lab_type__XYLH=(__UINTEGER_32)(t__IVIH | 1);
- next__UYLH=((__POINTER )(NULL));
- result__WYLH=((__POINTER *)ptr_table__VYLH)[ 0];
- if ((result__WYLH == (void *)NULL)) {
- result__WYLH=new_lab__RTJ(lab_type__XYLH);
- next__UYLH=(void *)((unsigned long)result__WYLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YYLH)));
- ((__POINTER *)next__UYLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__VYLH)[ 0]=next__UYLH;
- } else {
- next__UYLH=((__POINTER *)result__WYLH)[ 0];
- if ((next__UYLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WYLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__YYLH << 1)) <= 4096)) {
- next__UYLH=(void *)((unsigned long)result__WYLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YYLH)));
- } else {
- next__UYLH=new_lab__RTJ(lab_type__XYLH);
- };
- ((__POINTER *)next__UYLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__VYLH)[ 0]=next__UYLH;
- } else {
- ((__POINTER *)result__WYLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UYLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__WYLH=next__UYLH;
- };
- };
- ptr__DVIH=result__WYLH;
- };
- result__CVIH=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)ptr__DVIH);
- *(result__CVIH) = *(LINKED_LIST_NODEoSTRING_CONSTANTo__);
- };
- Self__KVIH=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)result__CVIH);
- Self__KVIH->item__L0HD=i__LVIH;
- Self__KVIH->next__JROD=NULL;
- Self__FVGH->first_link__OTEC=result__CVIH;
- Self__FVGH->parent_linked_collection__LD.upper__0ED= 1;
- Self__FVGH->last_link__XTEC=result__CVIH;
- Self__FVGH->mem_idx__YTEC= 1;
- Self__FVGH->mem_lnk__0TEC=result__CVIH;
- } else {
- result__MVIH=NULL;
- ptr__NVIH=((__POINTER )(NULL));
- typ_id__OVIH= 0;
- sz__PVIH=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoSTRING_CONSTANTo));
- if ((sz__PVIH == 0)) {
- result__MVIH=LINKED_LIST_NODEoSTRING_CONSTANTo__;
- } else {
- typ_id__OVIH=__LINKED_LIST_NODEoSTRING_CONSTANTo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__PVIH);
- if ((typ_id__OVIH == (__INTEGER)(- 1))) {
- a__QVIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__RVIH=(__UINTEGER_32)((__UINTEGER_32)(sz__PVIH + a__QVIH) & (__UINTEGER_32)(~ a__QVIH));
- ptr_table__0YLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__RVIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__ZYLH=((__POINTER )(NULL));
- result__1YLH=((__POINTER *)ptr_table__0YLH)[ 0];
- if ((result__1YLH == (void *)NULL)) {
- result__1YLH=new_lab__RTJ(new_size__RVIH);
- next__ZYLH=(void *)((unsigned long)result__1YLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RVIH)));
- ((__POINTER *)next__ZYLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__0YLH)[ 0]=next__ZYLH;
- } else {
- next__ZYLH=((__POINTER *)result__1YLH)[ 0];
- if ((next__ZYLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1YLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__RVIH << 1)) <= 4096)) {
- next__ZYLH=(void *)((unsigned long)result__1YLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RVIH)));
- } else {
- next__ZYLH=new_lab__RTJ(new_size__RVIH);
- };
- ((__POINTER *)next__ZYLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__0YLH)[ 0]=next__ZYLH;
- } else {
- ((__POINTER *)result__1YLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZYLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__1YLH=next__ZYLH;
- };
- };
- ptr__NVIH=result__1YLH;
- } else {
- t__SVIH=((__UINTEGER_32 )typ_id__OVIH);
- a__TVIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__CZLH=(__UINTEGER_32)((__UINTEGER_32)(sz__PVIH + a__TVIH) & (__UINTEGER_32)(~ a__TVIH));
- ptr_table__5YLH=((__POINTER )(&(table_type[(t__SVIH)])));
- lab_type__BZLH=(__UINTEGER_32)(t__SVIH | 1);
- next__4YLH=((__POINTER )(NULL));
- result__AZLH=((__POINTER *)ptr_table__5YLH)[ 0];
- if ((result__AZLH == (void *)NULL)) {
- result__AZLH=new_lab__RTJ(lab_type__BZLH);
- next__4YLH=(void *)((unsigned long)result__AZLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CZLH)));
- ((__POINTER *)next__4YLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__5YLH)[ 0]=next__4YLH;
- } else {
- next__4YLH=((__POINTER *)result__AZLH)[ 0];
- if ((next__4YLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__AZLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__CZLH << 1)) <= 4096)) {
- next__4YLH=(void *)((unsigned long)result__AZLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CZLH)));
- } else {
- next__4YLH=new_lab__RTJ(lab_type__BZLH);
- };
- ((__POINTER *)next__4YLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__5YLH)[ 0]=next__4YLH;
- } else {
- ((__POINTER *)result__AZLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4YLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__AZLH=next__4YLH;
- };
- };
- ptr__NVIH=result__AZLH;
- };
- result__MVIH=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)ptr__NVIH);
- *(result__MVIH) = *(LINKED_LIST_NODEoSTRING_CONSTANTo__);
- };
- Self__UVIH=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)result__MVIH);
- Self__UVIH->item__L0HD=element__EVGH;
- Self__UVIH->next__JROD=NULL;
- ((__LINKED_LIST_NODEoSTRING_CONSTANTo *)Self__FVGH->last_link__XTEC)->next__JROD=result__MVIH;
- Self__FVGH->parent_linked_collection__LD.upper__0ED=(__INTEGER)(Self__FVGH->parent_linked_collection__LD.upper__0ED + 1);
- Self__FVGH->last_link__XTEC=result__MVIH;
- };
- while_do__FQSB:
- {
- result__DZLH=FALSE__;
- if ((! read_space__XTD())) {
- result__DZLH=FALSE__;
- } else {
- result__EZLH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__EZLH=((__CHARACTER )(( 0)));
- } else {
- result__EZLH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__EZLH == '+')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__DZLH=TRUE__;
- };
- };
- if (result__DZLH) {
- if ((! read_short_elt__EIKB())) {
- pos__0U1G=current_position__B0F();
- put_error__text__1PG( 0,(&__string_165));
- put_position__FRG(pos__0U1G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- Self__JTEC=((__LINKED_LISToSTRING_CONSTANTo *)def__3OEB);
- element__KTEC=last_string__D2C;
- if (((void *)Self__JTEC->first_link__OTEC == (void *)NULL)) {
- i__5VIH=last_string__D2C;
- result__WVIH=NULL;
- ptr__XVIH=((__POINTER )(NULL));
- typ_id__YVIH= 0;
- sz__ZVIH=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoSTRING_CONSTANTo));
- if ((sz__ZVIH == 0)) {
- result__WVIH=LINKED_LIST_NODEoSTRING_CONSTANTo__;
- } else {
- typ_id__YVIH=__LINKED_LIST_NODEoSTRING_CONSTANTo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__ZVIH);
- if ((typ_id__YVIH == (__INTEGER)(- 1))) {
- a__0VIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__1VIH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZVIH + a__0VIH) & (__UINTEGER_32)(~ a__0VIH));
- ptr_table__HZLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1VIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__GZLH=((__POINTER )(NULL));
- result__IZLH=((__POINTER *)ptr_table__HZLH)[ 0];
- if ((result__IZLH == (void *)NULL)) {
- result__IZLH=new_lab__RTJ(new_size__1VIH);
- next__GZLH=(void *)((unsigned long)result__IZLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1VIH)));
- ((__POINTER *)next__GZLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__HZLH)[ 0]=next__GZLH;
- } else {
- next__GZLH=((__POINTER *)result__IZLH)[ 0];
- if ((next__GZLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IZLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__1VIH << 1)) <= 4096)) {
- next__GZLH=(void *)((unsigned long)result__IZLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1VIH)));
- } else {
- next__GZLH=new_lab__RTJ(new_size__1VIH);
- };
- ((__POINTER *)next__GZLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__HZLH)[ 0]=next__GZLH;
- } else {
- ((__POINTER *)result__IZLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GZLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__IZLH=next__GZLH;
- };
- };
- ptr__XVIH=result__IZLH;
- } else {
- t__2VIH=((__UINTEGER_32 )typ_id__YVIH);
- a__3VIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__PZLH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZVIH + a__3VIH) & (__UINTEGER_32)(~ a__3VIH));
- ptr_table__MZLH=((__POINTER )(&(table_type[(t__2VIH)])));
- lab_type__OZLH=(__UINTEGER_32)(t__2VIH | 1);
- next__LZLH=((__POINTER )(NULL));
- result__NZLH=((__POINTER *)ptr_table__MZLH)[ 0];
- if ((result__NZLH == (void *)NULL)) {
- result__NZLH=new_lab__RTJ(lab_type__OZLH);
- next__LZLH=(void *)((unsigned long)result__NZLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PZLH)));
- ((__POINTER *)next__LZLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__MZLH)[ 0]=next__LZLH;
- } else {
- next__LZLH=((__POINTER *)result__NZLH)[ 0];
- if ((next__LZLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NZLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__PZLH << 1)) <= 4096)) {
- next__LZLH=(void *)((unsigned long)result__NZLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PZLH)));
- } else {
- next__LZLH=new_lab__RTJ(lab_type__OZLH);
- };
- ((__POINTER *)next__LZLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__MZLH)[ 0]=next__LZLH;
- } else {
- ((__POINTER *)result__NZLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LZLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__NZLH=next__LZLH;
- };
- };
- ptr__XVIH=result__NZLH;
- };
- result__WVIH=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)ptr__XVIH);
- *(result__WVIH) = *(LINKED_LIST_NODEoSTRING_CONSTANTo__);
- };
- Self__4VIH=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)result__WVIH);
- Self__4VIH->item__L0HD=i__5VIH;
- Self__4VIH->next__JROD=NULL;
- Self__JTEC->first_link__OTEC=result__WVIH;
- Self__JTEC->parent_linked_collection__LD.upper__0ED= 1;
- Self__JTEC->last_link__XTEC=result__WVIH;
- Self__JTEC->mem_idx__YTEC= 1;
- Self__JTEC->mem_lnk__0TEC=result__WVIH;
- } else {
- result__IRED=NULL;
- ptr__JRED=((__POINTER )(NULL));
- typ_id__ORED= 0;
- sz__LRED=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoSTRING_CONSTANTo));
- if ((sz__LRED == 0)) {
- result__IRED=LINKED_LIST_NODEoSTRING_CONSTANTo__;
- } else {
- typ_id__ORED=__LINKED_LIST_NODEoSTRING_CONSTANTo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__LRED);
- if ((typ_id__ORED == (__INTEGER)(- 1))) {
- a__QQFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__RQFH=(__UINTEGER_32)((__UINTEGER_32)(sz__LRED + a__QQFH) & (__UINTEGER_32)(~ a__QQFH));
- ptr_table__RZLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__RQFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__QZLH=((__POINTER )(NULL));
- result__SZLH=((__POINTER *)ptr_table__RZLH)[ 0];
- if ((result__SZLH == (void *)NULL)) {
- result__SZLH=new_lab__RTJ(new_size__RQFH);
- next__QZLH=(void *)((unsigned long)result__SZLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RQFH)));
- ((__POINTER *)next__QZLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__RZLH)[ 0]=next__QZLH;
- } else {
- next__QZLH=((__POINTER *)result__SZLH)[ 0];
- if ((next__QZLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SZLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__RQFH << 1)) <= 4096)) {
- next__QZLH=(void *)((unsigned long)result__SZLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RQFH)));
- } else {
- next__QZLH=new_lab__RTJ(new_size__RQFH);
- };
- ((__POINTER *)next__QZLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__RZLH)[ 0]=next__QZLH;
- } else {
- ((__POINTER *)result__SZLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QZLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__SZLH=next__QZLH;
- };
- };
- ptr__JRED=result__SZLH;
- } else {
- t__VQFH=((__UINTEGER_32 )typ_id__ORED);
- a__UQFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ZZLH=(__UINTEGER_32)((__UINTEGER_32)(sz__LRED + a__UQFH) & (__UINTEGER_32)(~ a__UQFH));
- ptr_table__WZLH=((__POINTER )(&(table_type[(t__VQFH)])));
- lab_type__YZLH=(__UINTEGER_32)(t__VQFH | 1);
- next__VZLH=((__POINTER )(NULL));
- result__XZLH=((__POINTER *)ptr_table__WZLH)[ 0];
- if ((result__XZLH == (void *)NULL)) {
- result__XZLH=new_lab__RTJ(lab_type__YZLH);
- next__VZLH=(void *)((unsigned long)result__XZLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZZLH)));
- ((__POINTER *)next__VZLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__WZLH)[ 0]=next__VZLH;
- } else {
- next__VZLH=((__POINTER *)result__XZLH)[ 0];
- if ((next__VZLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XZLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__ZZLH << 1)) <= 4096)) {
- next__VZLH=(void *)((unsigned long)result__XZLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZZLH)));
- } else {
- next__VZLH=new_lab__RTJ(lab_type__YZLH);
- };
- ((__POINTER *)next__VZLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__WZLH)[ 0]=next__VZLH;
- } else {
- ((__POINTER *)result__XZLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VZLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__XZLH=next__VZLH;
- };
- };
- ptr__JRED=result__XZLH;
- };
- result__IRED=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)ptr__JRED);
- *(result__IRED) = *(LINKED_LIST_NODEoSTRING_CONSTANTo__);
- };
- Self__JOSD=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)result__IRED);
- Self__JOSD->item__L0HD=element__KTEC;
- Self__JOSD->next__JROD=NULL;
- ((__LINKED_LIST_NODEoSTRING_CONSTANTo *)Self__JTEC->last_link__XTEC)->next__JROD=result__IRED;
- Self__JTEC->parent_linked_collection__LD.upper__0ED=(__INTEGER)(Self__JTEC->parent_linked_collection__LD.upper__0ED + 1);
- Self__JTEC->last_link__XTEC=result__IRED;
- };
- goto while_do__FQSB;
- };
- };
- };
- if ((! result__5OEB)) {
- pos__2U1G=current_position__B0F();
- put_error__text__1PG( 0,(&__string_166));
- put_position__FRG(pos__2U1G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- result__MJG=FALSE__;
- if ((! read_space__XTD())) {
- result__MJG=FALSE__;
- } else {
- result__4VDH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__4VDH=((__CHARACTER )(( 0)));
- } else {
- result__4VDH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__4VDH == ';')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__MJG=TRUE__;
- };
- };
- if ((! result__MJG)) {
- pos__4U1G=current_position__B0F();
- put_error__text__1PG( 2,(&__string_167));
- put_position__FRG(pos__4U1G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- goto while_do__LMF;
- };
- };
- read_space__XTD();
- result__BMDH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__BMDH=((__CHARACTER )(( 0)));
- } else {
- result__BMDH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__BMDH != ((__CHARACTER )(( 0))))) {
- pos__AV1G=current_position__B0F();
- put_error__text__1PG( 0,(&__string_168));
- put_position__FRG(pos__AV1G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- object__ZBC=NULL;
- };
- index_count__P5=(__INTEGER)(index_count__P5 + 1);
- fast_put__to__U2R(result__JPC,(&__string_2));
- result__2YB=NULL;
- ptr__3YB=((__POINTER )(NULL));
- typ_id__CZB= 0;
- sz__5YB=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSLOTo));
- if ((sz__5YB == 0)) {
- result__2YB=FAST_ARRAYoSLOTo__;
- } else {
- typ_id__CZB=__FAST_ARRAYoSLOTo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__5YB);
- if ((typ_id__CZB == (__INTEGER)(- 1))) {
- a__IVGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__JVGH=(__UINTEGER_32)((__UINTEGER_32)(sz__5YB + a__IVGH) & (__UINTEGER_32)(~ a__IVGH));
- ptr_table__1ZLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__JVGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__0ZLH=((__POINTER )(NULL));
- result__2ZLH=((__POINTER *)ptr_table__1ZLH)[ 0];
- if ((result__2ZLH == (void *)NULL)) {
- result__2ZLH=new_lab__RTJ(new_size__JVGH);
- next__0ZLH=(void *)((unsigned long)result__2ZLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JVGH)));
- ((__POINTER *)next__0ZLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__1ZLH)[ 0]=next__0ZLH;
- } else {
- next__0ZLH=((__POINTER *)result__2ZLH)[ 0];
- if ((next__0ZLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2ZLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__JVGH << 1)) <= 4096)) {
- next__0ZLH=(void *)((unsigned long)result__2ZLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JVGH)));
- } else {
- next__0ZLH=new_lab__RTJ(new_size__JVGH);
- };
- ((__POINTER *)next__0ZLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__1ZLH)[ 0]=next__0ZLH;
- } else {
- ((__POINTER *)result__2ZLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0ZLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__2ZLH=next__0ZLH;
- };
- };
- ptr__3YB=result__2ZLH;
- } else {
- t__NVGH=((__UINTEGER_32 )typ_id__CZB);
- a__MVGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__D0LH=(__UINTEGER_32)((__UINTEGER_32)(sz__5YB + a__MVGH) & (__UINTEGER_32)(~ a__MVGH));
- ptr_table__A0LH=((__POINTER )(&(table_type[(t__NVGH)])));
- lab_type__C0LH=(__UINTEGER_32)(t__NVGH | 1);
- next__5ZLH=((__POINTER )(NULL));
- result__B0LH=((__POINTER *)ptr_table__A0LH)[ 0];
- if ((result__B0LH == (void *)NULL)) {
- result__B0LH=new_lab__RTJ(lab_type__C0LH);
- next__5ZLH=(void *)((unsigned long)result__B0LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__D0LH)));
- ((__POINTER *)next__5ZLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__A0LH)[ 0]=next__5ZLH;
- } else {
- next__5ZLH=((__POINTER *)result__B0LH)[ 0];
- if ((next__5ZLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__B0LH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__D0LH << 1)) <= 4096)) {
- next__5ZLH=(void *)((unsigned long)result__B0LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__D0LH)));
- } else {
- next__5ZLH=new_lab__RTJ(lab_type__C0LH);
- };
- ((__POINTER *)next__5ZLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__A0LH)[ 0]=next__5ZLH;
- } else {
- ((__POINTER *)result__B0LH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5ZLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__B0LH=next__5ZLH;
- };
- };
- ptr__3YB=result__B0LH;
- };
- result__2YB=((__FAST_ARRAYoSLOTo *)ptr__3YB);
- *(result__2YB) = *(FAST_ARRAYoSLOTo__);
- };
- Self__HFS=((__FAST_ARRAYoSLOTo *)result__2YB);
- if ((Self__HFS->parent_arrayed_collection__BAB.capacity__QFS < 1)) {
- sz__JHHH=((__UINTEGER_32 )((__INTEGER )(sizeof(void *))));
- result__HHHH=((__POINTER )(NULL));
- a__IHHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__KHHH=(__UINTEGER_32)((__UINTEGER_32)(sz__JHHH + a__IHHH) & (__UINTEGER_32)(~ a__IHHH));
- new_size2__LHHH=(__UINTEGER_32)(new_size__KHHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__LHHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__MHHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__NHHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__LHHH + a__MHHH) & (__UINTEGER_32)(~ a__MHHH));
- ptr_table__F0LH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NHHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__E0LH=((__POINTER )(NULL));
- result__G0LH=((__POINTER *)ptr_table__F0LH)[ 0];
- if ((result__G0LH == (void *)NULL)) {
- result__G0LH=new_lab__RTJ(new_size__NHHH);
- next__E0LH=(void *)((unsigned long)result__G0LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NHHH)));
- ((__POINTER *)next__E0LH)[ 0]=NULL;
- ((__POINTER *)ptr_table__F0LH)[ 0]=next__E0LH;
- } else {
- next__E0LH=((__POINTER *)result__G0LH)[ 0];
- if ((next__E0LH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__G0LH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__NHHH << 1)) <= 4096)) {
- next__E0LH=(void *)((unsigned long)result__G0LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NHHH)));
- } else {
- next__E0LH=new_lab__RTJ(new_size__NHHH);
- };
- ((__POINTER *)next__E0LH)[ 0]=NULL;
- ((__POINTER *)ptr_table__F0LH)[ 0]=next__E0LH;
- } else {
- ((__POINTER *)result__G0LH)[ 0]=(void *)((unsigned long)((__POINTER *)next__E0LH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__G0LH=next__E0LH;
- };
- };
- ((__POINTER *)result__G0LH)[ 0]=((__POINTER ) 3);
- result__HHHH=(void *)((unsigned long)result__G0LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__HHHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__KHHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__3J1C=((void **)result__HHHH);
- Self__BQWD= 0;
- while ((Self__BQWD >= 0)) {
- Result__3J1C[Self__BQWD]=NULL;
- Self__BQWD=(__INTEGER)(Self__BQWD - 1);
- };
- Self__HFS->parent_arrayed_collection__BAB.capacity__QFS= 1;
- };
- create__with__CRB(TYPE_NULL__, 0);
- fast_put__to__U2R(result__JPC,(&__string_3));
- create__with__CRB(TYPE_VOID__, 0);
- fast_put__to__U2R(result__JPC,(&__string_45));
- create__with__CRB(TYPE_CONTEXT__, 1);
- result__42B=NULL;
- ptr__52B=((__POINTER )(NULL));
- typ_id__E3B= 0;
- sz__B3B=((__UINTEGER_32 )sizeof(__FAST_ARRAYoTYPE_IDo));
- if ((sz__B3B == 0)) {
- result__42B=FAST_ARRAYoTYPE_IDo__;
- } else {
- typ_id__E3B=__FAST_ARRAYoTYPE_IDo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__B3B);
- if ((typ_id__E3B == (__INTEGER)(- 1))) {
- a__QVGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__RVGH=(__UINTEGER_32)((__UINTEGER_32)(sz__B3B + a__QVGH) & (__UINTEGER_32)(~ a__QVGH));
- ptr_table__K0LH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__RVGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__J0LH=((__POINTER )(NULL));
- result__L0LH=((__POINTER *)ptr_table__K0LH)[ 0];
- if ((result__L0LH == (void *)NULL)) {
- result__L0LH=new_lab__RTJ(new_size__RVGH);
- next__J0LH=(void *)((unsigned long)result__L0LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RVGH)));
- ((__POINTER *)next__J0LH)[ 0]=NULL;
- ((__POINTER *)ptr_table__K0LH)[ 0]=next__J0LH;
- } else {
- next__J0LH=((__POINTER *)result__L0LH)[ 0];
- if ((next__J0LH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__L0LH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__RVGH << 1)) <= 4096)) {
- next__J0LH=(void *)((unsigned long)result__L0LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RVGH)));
- } else {
- next__J0LH=new_lab__RTJ(new_size__RVGH);
- };
- ((__POINTER *)next__J0LH)[ 0]=NULL;
- ((__POINTER *)ptr_table__K0LH)[ 0]=next__J0LH;
- } else {
- ((__POINTER *)result__L0LH)[ 0]=(void *)((unsigned long)((__POINTER *)next__J0LH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__L0LH=next__J0LH;
- };
- };
- ptr__52B=result__L0LH;
- } else {
- t__VVGH=((__UINTEGER_32 )typ_id__E3B);
- a__UVGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__S0LH=(__UINTEGER_32)((__UINTEGER_32)(sz__B3B + a__UVGH) & (__UINTEGER_32)(~ a__UVGH));
- ptr_table__P0LH=((__POINTER )(&(table_type[(t__VVGH)])));
- lab_type__R0LH=(__UINTEGER_32)(t__VVGH | 1);
- next__O0LH=((__POINTER )(NULL));
- result__Q0LH=((__POINTER *)ptr_table__P0LH)[ 0];
- if ((result__Q0LH == (void *)NULL)) {
- result__Q0LH=new_lab__RTJ(lab_type__R0LH);
- next__O0LH=(void *)((unsigned long)result__Q0LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__S0LH)));
- ((__POINTER *)next__O0LH)[ 0]=NULL;
- ((__POINTER *)ptr_table__P0LH)[ 0]=next__O0LH;
- } else {
- next__O0LH=((__POINTER *)result__Q0LH)[ 0];
- if ((next__O0LH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Q0LH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__S0LH << 1)) <= 4096)) {
- next__O0LH=(void *)((unsigned long)result__Q0LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__S0LH)));
- } else {
- next__O0LH=new_lab__RTJ(lab_type__R0LH);
- };
- ((__POINTER *)next__O0LH)[ 0]=NULL;
- ((__POINTER *)ptr_table__P0LH)[ 0]=next__O0LH;
- } else {
- ((__POINTER *)result__Q0LH)[ 0]=(void *)((unsigned long)((__POINTER *)next__O0LH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__Q0LH=next__O0LH;
- };
- };
- ptr__52B=result__Q0LH;
- };
- result__42B=((__FAST_ARRAYoTYPE_IDo *)ptr__52B);
- *(result__42B) = *(FAST_ARRAYoTYPE_IDo__);
- };
- Self__GIS=((__FAST_ARRAYoTYPE_IDo *)result__42B);
- if ((Self__GIS->parent_arrayed_collection__ABB.capacity__Q5R < 3)) {
- Self__GIS->parent_arrayed_collection__ABB.storage__MAS=create__1VNB( 3);
- Self__GIS->parent_arrayed_collection__ABB.capacity__Q5R= 3;
- };
- Self__GIS->parent_arrayed_collection__ABB.upper__O5R=(__INTEGER)(- 1);
- list_id__CBB=result__42B;
- result__AWIH=NULL;
- ptr__BWIH=((__POINTER )(NULL));
- typ_id__CWIH= 0;
- sz__DWIH=((__UINTEGER_32 )sizeof(__TYPE_ID));
- if ((sz__DWIH == 0)) {
- result__AWIH=TYPE_ID__;
- } else {
- typ_id__CWIH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__DWIH);
- if ((typ_id__CWIH == (__INTEGER)(- 1))) {
- a__EWIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__FWIH=(__UINTEGER_32)((__UINTEGER_32)(sz__DWIH + a__EWIH) & (__UINTEGER_32)(~ a__EWIH));
- ptr_table__U0LH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__FWIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__T0LH=((__POINTER )(NULL));
- result__V0LH=((__POINTER *)ptr_table__U0LH)[ 0];
- if ((result__V0LH == (void *)NULL)) {
- result__V0LH=new_lab__RTJ(new_size__FWIH);
- next__T0LH=(void *)((unsigned long)result__V0LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FWIH)));
- ((__POINTER *)next__T0LH)[ 0]=NULL;
- ((__POINTER *)ptr_table__U0LH)[ 0]=next__T0LH;
- } else {
- next__T0LH=((__POINTER *)result__V0LH)[ 0];
- if ((next__T0LH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__V0LH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__FWIH << 1)) <= 4096)) {
- next__T0LH=(void *)((unsigned long)result__V0LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FWIH)));
- } else {
- next__T0LH=new_lab__RTJ(new_size__FWIH);
- };
- ((__POINTER *)next__T0LH)[ 0]=NULL;
- ((__POINTER *)ptr_table__U0LH)[ 0]=next__T0LH;
- } else {
- ((__POINTER *)result__V0LH)[ 0]=(void *)((unsigned long)((__POINTER *)next__T0LH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__V0LH=next__T0LH;
- };
- };
- ptr__BWIH=result__V0LH;
- } else {
- t__GWIH=((__UINTEGER_32 )typ_id__CWIH);
- a__HWIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__20LH=(__UINTEGER_32)((__UINTEGER_32)(sz__DWIH + a__HWIH) & (__UINTEGER_32)(~ a__HWIH));
- ptr_table__Z0LH=((__POINTER )(&(table_type[(t__GWIH)])));
- lab_type__10LH=(__UINTEGER_32)(t__GWIH | 1);
- next__Y0LH=((__POINTER )(NULL));
- result__00LH=((__POINTER *)ptr_table__Z0LH)[ 0];
- if ((result__00LH == (void *)NULL)) {
- result__00LH=new_lab__RTJ(lab_type__10LH);
- next__Y0LH=(void *)((unsigned long)result__00LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__20LH)));
- ((__POINTER *)next__Y0LH)[ 0]=NULL;
- ((__POINTER *)ptr_table__Z0LH)[ 0]=next__Y0LH;
- } else {
- next__Y0LH=((__POINTER *)result__00LH)[ 0];
- if ((next__Y0LH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__00LH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__20LH << 1)) <= 4096)) {
- next__Y0LH=(void *)((unsigned long)result__00LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__20LH)));
- } else {
- next__Y0LH=new_lab__RTJ(lab_type__10LH);
- };
- ((__POINTER *)next__Y0LH)[ 0]=NULL;
- ((__POINTER *)ptr_table__Z0LH)[ 0]=next__Y0LH;
- } else {
- ((__POINTER *)result__00LH)[ 0]=(void *)((unsigned long)((__POINTER *)next__Y0LH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__00LH=next__Y0LH;
- };
- };
- ptr__BWIH=result__00LH;
- };
- result__AWIH=((__TYPE_ID *)ptr__BWIH);
- *(result__AWIH) = *(TYPE_ID__);
- };
- create__with__CRB(((__TYPE_ID *)result__AWIH), 0);
- add_last__K5R(result__42B,result__AWIH);
- result__Q4B=NULL;
- ptr__R4B=((__POINTER )(NULL));
- typ_id__W4B= 0;
- sz__T4B=((__UINTEGER_32 )sizeof(__TYPE_ID));
- if ((sz__T4B == 0)) {
- result__Q4B=TYPE_ID__;
- } else {
- typ_id__W4B=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__T4B);
- if ((typ_id__W4B == (__INTEGER)(- 1))) {
- a__MIFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__NIFH=(__UINTEGER_32)((__UINTEGER_32)(sz__T4B + a__MIFH) & (__UINTEGER_32)(~ a__MIFH));
- ptr_table__40LH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NIFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__30LH=((__POINTER )(NULL));
- result__50LH=((__POINTER *)ptr_table__40LH)[ 0];
- if ((result__50LH == (void *)NULL)) {
- result__50LH=new_lab__RTJ(new_size__NIFH);
- next__30LH=(void *)((unsigned long)result__50LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NIFH)));
- ((__POINTER *)next__30LH)[ 0]=NULL;
- ((__POINTER *)ptr_table__40LH)[ 0]=next__30LH;
- } else {
- next__30LH=((__POINTER *)result__50LH)[ 0];
- if ((next__30LH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__50LH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__NIFH << 1)) <= 4096)) {
- next__30LH=(void *)((unsigned long)result__50LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NIFH)));
- } else {
- next__30LH=new_lab__RTJ(new_size__NIFH);
- };
- ((__POINTER *)next__30LH)[ 0]=NULL;
- ((__POINTER *)ptr_table__40LH)[ 0]=next__30LH;
- } else {
- ((__POINTER *)result__50LH)[ 0]=(void *)((unsigned long)((__POINTER *)next__30LH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__50LH=next__30LH;
- };
- };
- ptr__R4B=result__50LH;
- } else {
- t__RIFH=((__UINTEGER_32 )typ_id__W4B);
- a__QIFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__G1LH=(__UINTEGER_32)((__UINTEGER_32)(sz__T4B + a__QIFH) & (__UINTEGER_32)(~ a__QIFH));
- ptr_table__D1LH=((__POINTER )(&(table_type[(t__RIFH)])));
- lab_type__F1LH=(__UINTEGER_32)(t__RIFH | 1);
- next__C1LH=((__POINTER )(NULL));
- result__E1LH=((__POINTER *)ptr_table__D1LH)[ 0];
- if ((result__E1LH == (void *)NULL)) {
- result__E1LH=new_lab__RTJ(lab_type__F1LH);
- next__C1LH=(void *)((unsigned long)result__E1LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__G1LH)));
- ((__POINTER *)next__C1LH)[ 0]=NULL;
- ((__POINTER *)ptr_table__D1LH)[ 0]=next__C1LH;
- } else {
- next__C1LH=((__POINTER *)result__E1LH)[ 0];
- if ((next__C1LH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__E1LH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__G1LH << 1)) <= 4096)) {
- next__C1LH=(void *)((unsigned long)result__E1LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__G1LH)));
- } else {
- next__C1LH=new_lab__RTJ(lab_type__F1LH);
- };
- ((__POINTER *)next__C1LH)[ 0]=NULL;
- ((__POINTER *)ptr_table__D1LH)[ 0]=next__C1LH;
- } else {
- ((__POINTER *)result__E1LH)[ 0]=(void *)((unsigned long)((__POINTER *)next__C1LH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__E1LH=next__C1LH;
- };
- };
- ptr__R4B=result__E1LH;
- };
- result__Q4B=((__TYPE_ID *)ptr__R4B);
- *(result__Q4B) = *(TYPE_ID__);
- };
- create__with__CRB(((__TYPE_ID *)result__Q4B), 0);
- add_last__K5R(list_id__CBB,result__Q4B);
- if (is_short_recursive__JB) {
- directory_list__YB=create__ZBB( 100);
- file_list__0B=create__ZBB( 100);
- current_list__2B=create__ZBB( 100);
- __tmp__4B=input_name__3B;
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- ent__TB=get_entry__DZAC(__tmp__4B);
- if (((void *)ent__TB == (void *)NULL)) {
- __tmp__JC=TRUE__;
- } else {
- if (((struct ___OBJ *)ent__TB)->__id==__DIRECTORY_UNIX__) {
- Self__NLSD=((__DIRECTORY_UNIX *)ent__TB);
- dir__PLSD=Self__NLSD;
- __tmp__FC=((void *)Self__NLSD != (void *)NULL);
- } else {
- dir__XLSD=NULL;
- __tmp__FC=FALSE__;
- };
- __tmp__JC=(! __tmp__FC);
- };
- if (__tmp__JC) {
- print__OJD((&__string_169));
- print__OJD(input_name__3B);
- print__OJD((&__string_170));
- exit(( 1));
- };
- if (((struct ___OBJ *)ent__TB)->__id==__DIRECTORY_UNIX__) {
- __tmp__UC=open__WHRD(ent__TB);
- } else {
- Self__1LRD=((__FILE_UNIX *)ent__TB);
- Self__1LRD->stream__BMRD=((__POINTER )(fopen((char*)(((__STRING_CONSTANT *)Self__1LRD->parent_entry_unix__EFF.parent_entry__QGD.path__BD)->storage__RRO),"r+b")));
- __tmp__UC=(Self__1LRD->stream__BMRD != (void *)NULL);
- };
- if ((! __tmp__UC)) {
- print__OJD((&__string_169));
- print__OJD(input_name__3B);
- print__OJD((&__string_171));
- exit(( 1));
- };
- if (ent__TB==NULL) {
- __tmp__AD=NULL;
- } else {
- switch (((struct ___OBJ *)ent__TB)->__id) {
- case __DIRECTORY_UNIX__: {
- __tmp__AD=((void *)ent__TB);
- } break;
- case __FILE_UNIX__: {
- __tmp__AD=NULL;
- } break;
- }
- };
- dir__SB=__tmp__AD;
- check_in__begin__ZQQC(__tmp__AD,(__INTEGER)(((__STRING_CONSTANT *)((__DIRECTORY_UNIX *)__tmp__AD)->parent_entry_unix__RGD.parent_entry__QGD.path__BD)->count__DD + 1));
- if (fast_has__IDT(result__2PH,(&__string_150))) {
- txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(result__2PH,(&__string_150)))->first_link__OTEC)->item__L0HD;
- Self__HX1G=((__STRING_CONSTANT *)txt__1);
- new__IX1G=create__ZBB(Self__HX1G->count__DD);
- copy__VDS(new__IX1G,Self__HX1G);
- copy__VDS(string_tmp__VH,(&__string_150));
- if (fast_has__IDT(result__2PH,(&__string_116))) {
- append__3OS(string_tmp__VH,((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(result__2PH,(&__string_116)))->first_link__OTEC)->item__L0HD);
- } else {
- append__3OS(string_tmp__VH,(&__string_172));
- };
- save_file__with__3DC(get__YWB(string_tmp__VH),new__IX1G);
- };
- if (fast_has__IDT(result__2PH,(&__string_66))) {
- txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(result__2PH,(&__string_66)))->first_link__OTEC)->item__L0HD;
- Self__JX1G=((__STRING_CONSTANT *)txt__1);
- new__KX1G=create__ZBB(Self__JX1G->count__DD);
- copy__VDS(new__KX1G,Self__JX1G);
- copy__VDS(string_tmp__VH,(&__string_66));
- if (fast_has__IDT(result__2PH,(&__string_116))) {
- append__3OS(string_tmp__VH,((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(result__2PH,(&__string_116)))->first_link__OTEC)->item__L0HD);
- } else {
- append__3OS(string_tmp__VH,(&__string_172));
- };
- save_file__with__3DC(get__YWB(string_tmp__VH),new__KX1G);
- };
- if (fast_has__IDT(result__2PH,(&__string_151))) {
- txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(result__2PH,(&__string_151)))->first_link__OTEC)->item__L0HD;
- Self__PHHH=((__STRING *)directory_list__YB);
- i__QHHH=Self__PHHH->count__SGC;
- j__SHHH=((__STRING_CONSTANT *)txt__1)->count__DD;
- resize__1VZ(Self__PHHH,(__INTEGER)(i__QHHH + j__SHHH));
- if (((i__QHHH > 0) && (j__SHHH > 0))) {
- move__to__by__LVCC(Self__PHHH->storage__3CS, 0,(__INTEGER)(i__QHHH - 1),j__SHHH);
- };
- Self__J1LH=((__CHARACTER *)Self__PHHH->storage__3CS);
- model__K1LH=((__STRING_CONSTANT *)txt__1)->storage__RRO;
- Self__I1LH=(__INTEGER)(j__SHHH - 1);
- while ((Self__I1LH >= 0)) {
- Self__J1LH[Self__I1LH]=((__CHARACTER *)model__K1LH)[Self__I1LH];
- Self__I1LH=(__INTEGER)(Self__I1LH - 1);
- };
- };
- Self__CUVB=((__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)result__2PH);
- node__MUVB=((void **)Self__CUVB->buckets__1DT)[(__INTEGER)(hash_code__RNW((&__string_153)) % Self__CUVB->capacity__WDT)];
- while ((! (((void *)node__MUVB == (void *)NULL) || __infix_equal_equal__V2DB(((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__MUVB)->key__HET,(&__string_153))))) {
- node__MUVB=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__MUVB)->next__SET;
- };
- if (((void *)node__MUVB != (void *)NULL)) {
- txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)at__JK4(result__2PH,(&__string_153)))->first_link__OTEC)->item__L0HD;
- append__3OS(directory_list__YB,txt__1);
- };
- copy__VDS(string_tmp__VH,(&__string_173));
- if (fast_has__IDT(result__2PH,(&__string_116))) {
- append__3OS(string_tmp__VH,((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(result__2PH,(&__string_116)))->first_link__OTEC)->item__L0HD);
- } else {
- append__3OS(string_tmp__VH,(&__string_172));
- };
- save_file__with__3DC(get__YWB(string_tmp__VH),directory_list__YB);
- if (fast_has__IDT(result__2PH,(&__string_154))) {
- txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(result__2PH,(&__string_154)))->first_link__OTEC)->item__L0HD;
- Self__THHH=((__STRING *)file_list__0B);
- i__UHHH=Self__THHH->count__SGC;
- j__WHHH=((__STRING_CONSTANT *)txt__1)->count__DD;
- resize__1VZ(Self__THHH,(__INTEGER)(i__UHHH + j__WHHH));
- if (((i__UHHH > 0) && (j__WHHH > 0))) {
- move__to__by__LVCC(Self__THHH->storage__3CS, 0,(__INTEGER)(i__UHHH - 1),j__WHHH);
- };
- Self__O1LH=((__CHARACTER *)Self__THHH->storage__3CS);
- model__P1LH=((__STRING_CONSTANT *)txt__1)->storage__RRO;
- Self__N1LH=(__INTEGER)(j__WHHH - 1);
- while ((Self__N1LH >= 0)) {
- Self__O1LH[Self__N1LH]=((__CHARACTER *)model__P1LH)[Self__N1LH];
- Self__N1LH=(__INTEGER)(Self__N1LH - 1);
- };
- };
- if (fast_has__IDT(result__2PH,(&__string_156))) {
- txt__1=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(result__2PH,(&__string_156)))->first_link__OTEC)->item__L0HD;
- append__3OS(file_list__0B,txt__1);
- };
- copy__VDS(string_tmp__VH,(&__string_174));
- if (fast_has__IDT(result__2PH,(&__string_116))) {
- append__3OS(string_tmp__VH,((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(result__2PH,(&__string_116)))->first_link__OTEC)->item__L0HD);
- } else {
- append__3OS(string_tmp__VH,(&__string_172));
- };
- save_file__with__3DC(get__YWB(string_tmp__VH),file_list__0B);
- } else {
- if ((! has_suffix__QJS(input_name__3B))) {
- copy__VDS(string_tmp__VH,input_name__3B);
- append__3OS(string_tmp__VH,(&__string_159));
- input_name__3B=get__YWB(string_tmp__VH);
- };
- __tmp__2H=input_name__3B;
- copy__VDS(string_tmp__VH,input_name__3B);
- replace_all__with__CRS(string_tmp__VH,'\\','/');
- i__BAC=last_index__NTC(string_tmp__VH,'/');
- if ((i__BAC >= 1)) {
- Self__XHHH=((__STRING *)string_tmp__VH);
- if ((i__BAC > Self__XHHH->count__SGC)) {
- Self__XHHH->count__SGC= 0;
- } else {
- if ((i__BAC > 0)) {
- remove_between__to__MIT(Self__XHHH, 1,i__BAC);
- };
- };
- };
- i__BAC=last_index__NTC(string_tmp__VH,'.');
- Self__2VGH=((__STRING *)string_tmp__VH);
- n__3VGH=(__INTEGER)((__INTEGER)(((__STRING *)string_tmp__VH)->count__SGC - i__BAC) + 1);
- if ((n__3VGH > Self__2VGH->count__SGC)) {
- Self__2VGH->count__SGC= 0;
- } else {
- Self__2VGH->count__SGC=(__INTEGER)(Self__2VGH->count__SGC - n__3VGH);
- };
- to_upper__PTS(string_tmp__VH);
- proto_input__BI=create__name__generic_count__JBC(__tmp__2H,get__YWB(string_tmp__VH));
- go_on__SBC(proto_input__BI);
- if (((void *)output_name__DI == (void *)NULL)) {
- copy__VDS(string_tmp__VH,((__PROTOTYPE *)proto_input__BI)->parent_named__5.name__LI);
- if (fast_has__IDT(result__2PH,(&__string_116))) {
- append__3OS(string_tmp__VH,((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(result__2PH,(&__string_116)))->first_link__OTEC)->item__L0HD);
- } else {
- append__3OS(string_tmp__VH,(&__string_172));
- };
- output_name__DI=get__YWB(string_tmp__VH);
- };
- save_file__with__3DC(output_name__DI,output_code__SI);
- };
- if (is_shorter2__VI) {
- Self__30QC= 0;
- limit_up__40QC=result__JPJ->parent_arrayed_collection__AJ.upper__HJ;
- while ((Self__30QC <= limit_up__40QC)) {
- p__AB=((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__DVT)[Self__30QC];
- ((__STRING *)output_code__SI)->count__SGC= 0;
- Self__XMTD=((__PROTOTYPE *)p__AB);
- title__ZMTD=NULL;
- s__0MTD=NULL;
- put__to__like__X4XD(Self__XMTD->parent_named__5.name__LI,output_code__SI,(&__string_140));
- if (((void *)Self__XMTD->comment_slot__YRTC != (void *)NULL)) {
- put__to__like__X4XD(Self__XMTD->comment_slot__YRTC,output_code__SI,(&__string_138));
- };
- if (((void *)Self__XMTD->comment_header__Q4QC != (void *)NULL)) {
- put__to__like__X4XD(Self__XMTD->comment_header__Q4QC,output_code__SI,(&__string_139));
- };
- ((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.upper__UOTD=(__INTEGER)(- 1);
- shorter_get_all_slot_in__ZAYD(Self__XMTD,list_tmp__YNTD);
- s__CHYD=NULL;
- is_first_cur__BHYD=TRUE__;
- __tmp__GHYD=((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.upper__UOTD;
- Self__2G5D= 0;
- while ((Self__2G5D <= __tmp__GHYD)) {
- s__CHYD=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.storage__UPWE)[Self__2G5D];
- if (((struct ___OBJ *)s__CHYD)->__id==__ITM_SLOT__) {
- __tmp__BOTD=((__ITM_SLOT *)s__CHYD)->id_section__T3C;
- } else {
- __tmp__BOTD=((__ITM_SLOT_OPERATOR *)s__CHYD)->parent_itm_slot__0S5B.id_section__T3C;
- };
- Self__RL2G=((__SECTION_ *)__tmp__BOTD);
- if ((((void *)Self__RL2G->name__MYDC == (void *)(&__string_23)) || ((void *)Self__RL2G->name__MYDC == (void *)(&__string_24)))) {
- if (((struct ___OBJ *)s__CHYD)->__id==__ITM_SLOT__) {
- __tmp__THYD=((__ITM_SLOT *)s__CHYD)->stat_shorter__4OTD;
- } else {
- __tmp__THYD=((__ITM_SLOT_OPERATOR *)s__CHYD)->parent_itm_slot__0S5B.stat_shorter__4OTD;
- };
- __tmp__WHYD=(__tmp__THYD == 0);
- } else {
- __tmp__WHYD=FALSE__;
- };
- if (__tmp__WHYD) {
- if (is_first_cur__BHYD) {
- if (((void *)(&__string_175) == (void *)NULL)) {
- put__to__like__X4XD((&__string_176),output_code__SI,(&__string_141));
- } else {
- put__to__like__X4XD((&__string_175),output_code__SI,(&__string_141));
- };
- is_first_cur__BHYD=FALSE__;
- };
- if (((struct ___OBJ *)s__CHYD)->__id==__ITM_SLOT__) {
- ((__ITM_SLOT *)s__CHYD)->stat_shorter__4OTD= 1;
- } else {
- ((__ITM_SLOT_OPERATOR *)s__CHYD)->parent_itm_slot__0S5B.stat_shorter__4OTD= 1;
- };
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- ((__STRING *)string_tmp2__GCJ)->count__SGC= 0;
- if (((struct ___OBJ *)s__CHYD)->__id==__ITM_SLOT__) {
- pretty_name_in__FY4F(s__CHYD,string_tmp2__GCJ);
- } else {
- pretty_name_in__0Z4F(s__CHYD,string_tmp2__GCJ);
- };
- put__to__like__X4XD(string_tmp2__GCJ,string_tmp__VH,(&__string_143));
- if (((struct ___OBJ *)s__CHYD)->__id==__ITM_SLOT__) {
- __tmp__1IYD=((__ITM_SLOT *)s__CHYD)->id_section__T3C;
- } else {
- __tmp__1IYD=((__ITM_SLOT_OPERATOR *)s__CHYD)->parent_itm_slot__0S5B.id_section__T3C;
- };
- Self__SL2G=((__SECTION_ *)__tmp__1IYD);
- if ((((void *)Self__SL2G->name__MYDC == (void *)(&__string_23)) || ((void *)Self__SL2G->name__MYDC == (void *)(&__string_24)))) {
- if (((struct ___OBJ *)s__CHYD)->__id==__ITM_SLOT__) {
- __tmp__CJYD=((__ITM_SLOT *)s__CHYD)->parent_named__15.style__0FU;
- } else {
- __tmp__CJYD=((__ITM_SLOT_OPERATOR *)s__CHYD)->parent_itm_slot__0S5B.parent_named__15.style__0FU;
- };
- if ((__tmp__CJYD != '+')) {
- __tmp__YJYD=TRUE__;
- } else {
- if (((struct ___OBJ *)s__CHYD)->__id==__ITM_SLOT__) {
- __tmp__JJYD=((__ITM_SLOT *)s__CHYD)->result_type__A4FC;
- } else {
- __tmp__JJYD=((__ITM_SLOT_OPERATOR *)s__CHYD)->parent_itm_slot__0S5B.result_type__A4FC;
- };
- if (__tmp__JJYD==NULL) {
- __tmp__LJYD=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__JJYD)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- __tmp__LJYD=((void *)__tmp__JJYD);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- __tmp__LJYD=((void *)__tmp__JJYD);
- } break;
- case __ITM_TYPE_MULTI__: {
- __tmp__LJYD=NULL;
- } break;
- case __ITM_TYPE_BLOCK__: {
- __tmp__LJYD=NULL;
- } break;
- case __ITM_TYPE_GENERIC__: {
- __tmp__LJYD=((void *)__tmp__JJYD);
- } break;
- case __ITM_TYPE_STYLE__: {
- __tmp__LJYD=((void *)__tmp__JJYD);
- } break;
- }
- };
- ts__IJYD=__tmp__LJYD;
- if (((void *)__tmp__LJYD == (void *)NULL)) {
- __tmp__VJYD=TRUE__;
- } else {
- switch (((struct ___OBJ *)__tmp__LJYD)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- __tmp__RJYD=NULL;
- } break;
- case __ITM_TYPE_SIMPLE__: {
- __tmp__RJYD=NULL;
- } break;
- case __ITM_TYPE_GENERIC__: {
- __tmp__RJYD=((__ITM_TYPE_GENERIC *)__tmp__LJYD)->parent_itm_type_style__4SN.style__PZP;
- } break;
- case __ITM_TYPE_STYLE__: {
- __tmp__RJYD=((__ITM_TYPE_STYLE *)__tmp__LJYD)->style__PZP;
- } break;
- };
- __tmp__VJYD=((void *)__tmp__RJYD != (void *)(&__string_9));
- };
- __tmp__YJYD=__tmp__VJYD;
- };
- if (__tmp__YJYD) {
- if (((struct ___OBJ *)s__CHYD)->__id==__ITM_SLOT__) {
- __tmp__4JYD=((__ITM_SLOT *)s__CHYD)->parent_named__15.name__LI;
- } else {
- __tmp__4JYD=((__ITM_SLOT_OPERATOR *)s__CHYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
- };
- __tmp__MKYD=(! has_prefix__OTTF(__tmp__4JYD,(&__string_177)));
- } else {
- __tmp__MKYD=FALSE__;
- };
- if (__tmp__MKYD) {
- if (((struct ___OBJ *)s__CHYD)->__id==__ITM_SLOT__) {
- __tmp__HKYD=((__ITM_SLOT *)s__CHYD)->parent_named__15.name__LI;
- } else {
- __tmp__HKYD=((__ITM_SLOT_OPERATOR *)s__CHYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
- };
- __tmp__NKYD=(! has_prefix__OTTF(__tmp__HKYD,(&__string_178)));
- } else {
- __tmp__NKYD=FALSE__;
- };
- __tmp__QKYD=__tmp__NKYD;
- } else {
- __tmp__QKYD=FALSE__;
- };
- if (__tmp__QKYD) {
- put__to__like__X4XD((&__string_179),string_tmp__VH,(&__string_135));
- };
- ((__STRING *)string_tmp2__GCJ)->count__SGC= 0;
- if (((struct ___OBJ *)s__CHYD)->__id==__ITM_SLOT__) {
- __tmp__2KYD=((__ITM_SLOT *)s__CHYD)->parent_named__15.name__LI;
- } else {
- __tmp__2KYD=((__ITM_SLOT_OPERATOR *)s__CHYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
- };
- get_all_comment_slot__in__PL4E(Self__XMTD,__tmp__2KYD,string_tmp2__GCJ);
- ((__STRING *)string_tmp3__HUD)->count__SGC= 0;
- shorter_comment__in__light__CP4E(string_tmp2__GCJ,string_tmp3__HUD,TRUE__);
- put__to__like__X4XD(string_tmp3__HUD,string_tmp__VH,(&__string_144));
- put__to__like__X4XD(string_tmp__VH,output_code__SI,(&__string_142));
- };
- Self__2G5D=(__INTEGER)(Self__2G5D + 1);
- };
- if ((! is_first_cur__BHYD)) {
- put__to__like__X4XD(NULL,output_code__SI,(&__string_145));
- };
- s__1LYD=NULL;
- is_first_cur__0LYD=TRUE__;
- __tmp__5LYD=((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.upper__UOTD;
- Self__OH5D= 0;
- while ((Self__OH5D <= __tmp__5LYD)) {
- s__1LYD=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.storage__UPWE)[Self__OH5D];
- if (((struct ___OBJ *)s__1LYD)->__id==__ITM_SLOT__) {
- __tmp__LOTD=((__ITM_SLOT *)s__1LYD)->parent_named__15.name__LI;
- } else {
- __tmp__LOTD=((__ITM_SLOT_OPERATOR *)s__1LYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
- };
- if (has_prefix__OTTF(__tmp__LOTD,(&__string_180))) {
- if (((struct ___OBJ *)s__1LYD)->__id==__ITM_SLOT__) {
- __tmp__MMYD=((__ITM_SLOT *)s__1LYD)->stat_shorter__4OTD;
- } else {
- __tmp__MMYD=((__ITM_SLOT_OPERATOR *)s__1LYD)->parent_itm_slot__0S5B.stat_shorter__4OTD;
- };
- __tmp__PMYD=(__tmp__MMYD == 0);
- } else {
- __tmp__PMYD=FALSE__;
- };
- if (__tmp__PMYD) {
- if (is_first_cur__0LYD) {
- if (((void *)(&__string_181) == (void *)NULL)) {
- put__to__like__X4XD((&__string_176),output_code__SI,(&__string_141));
- } else {
- put__to__like__X4XD((&__string_181),output_code__SI,(&__string_141));
- };
- is_first_cur__0LYD=FALSE__;
- };
- if (((struct ___OBJ *)s__1LYD)->__id==__ITM_SLOT__) {
- ((__ITM_SLOT *)s__1LYD)->stat_shorter__4OTD= 1;
- } else {
- ((__ITM_SLOT_OPERATOR *)s__1LYD)->parent_itm_slot__0S5B.stat_shorter__4OTD= 1;
- };
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- ((__STRING *)string_tmp2__GCJ)->count__SGC= 0;
- if (((struct ___OBJ *)s__1LYD)->__id==__ITM_SLOT__) {
- pretty_name_in__FY4F(s__1LYD,string_tmp2__GCJ);
- } else {
- pretty_name_in__0Z4F(s__1LYD,string_tmp2__GCJ);
- };
- put__to__like__X4XD(string_tmp2__GCJ,string_tmp__VH,(&__string_143));
- if (((struct ___OBJ *)s__1LYD)->__id==__ITM_SLOT__) {
- __tmp__UNYD=((__ITM_SLOT *)s__1LYD)->id_section__T3C;
- } else {
- __tmp__UNYD=((__ITM_SLOT_OPERATOR *)s__1LYD)->parent_itm_slot__0S5B.id_section__T3C;
- };
- Self__TL2G=((__SECTION_ *)__tmp__UNYD);
- if ((((void *)Self__TL2G->name__MYDC == (void *)(&__string_23)) || ((void *)Self__TL2G->name__MYDC == (void *)(&__string_24)))) {
- if (((struct ___OBJ *)s__1LYD)->__id==__ITM_SLOT__) {
- __tmp__1NYD=((__ITM_SLOT *)s__1LYD)->parent_named__15.style__0FU;
- } else {
- __tmp__1NYD=((__ITM_SLOT_OPERATOR *)s__1LYD)->parent_itm_slot__0S5B.parent_named__15.style__0FU;
- };
- if ((__tmp__1NYD != '+')) {
- __tmp__ROYD=TRUE__;
- } else {
- if (((struct ___OBJ *)s__1LYD)->__id==__ITM_SLOT__) {
- __tmp__COYD=((__ITM_SLOT *)s__1LYD)->result_type__A4FC;
- } else {
- __tmp__COYD=((__ITM_SLOT_OPERATOR *)s__1LYD)->parent_itm_slot__0S5B.result_type__A4FC;
- };
- if (__tmp__COYD==NULL) {
- __tmp__EOYD=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__COYD)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- __tmp__EOYD=((void *)__tmp__COYD);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- __tmp__EOYD=((void *)__tmp__COYD);
- } break;
- case __ITM_TYPE_MULTI__: {
- __tmp__EOYD=NULL;
- } break;
- case __ITM_TYPE_BLOCK__: {
- __tmp__EOYD=NULL;
- } break;
- case __ITM_TYPE_GENERIC__: {
- __tmp__EOYD=((void *)__tmp__COYD);
- } break;
- case __ITM_TYPE_STYLE__: {
- __tmp__EOYD=((void *)__tmp__COYD);
- } break;
- }
- };
- ts__BOYD=__tmp__EOYD;
- if (((void *)__tmp__EOYD == (void *)NULL)) {
- __tmp__OOYD=TRUE__;
- } else {
- switch (((struct ___OBJ *)__tmp__EOYD)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- __tmp__KOYD=NULL;
- } break;
- case __ITM_TYPE_SIMPLE__: {
- __tmp__KOYD=NULL;
- } break;
- case __ITM_TYPE_GENERIC__: {
- __tmp__KOYD=((__ITM_TYPE_GENERIC *)__tmp__EOYD)->parent_itm_type_style__4SN.style__PZP;
- } break;
- case __ITM_TYPE_STYLE__: {
- __tmp__KOYD=((__ITM_TYPE_STYLE *)__tmp__EOYD)->style__PZP;
- } break;
- };
- __tmp__OOYD=((void *)__tmp__KOYD != (void *)(&__string_9));
- };
- __tmp__ROYD=__tmp__OOYD;
- };
- if (__tmp__ROYD) {
- if (((struct ___OBJ *)s__1LYD)->__id==__ITM_SLOT__) {
- __tmp__XOYD=((__ITM_SLOT *)s__1LYD)->parent_named__15.name__LI;
- } else {
- __tmp__XOYD=((__ITM_SLOT_OPERATOR *)s__1LYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
- };
- __tmp__FPYD=(! has_prefix__OTTF(__tmp__XOYD,(&__string_177)));
- } else {
- __tmp__FPYD=FALSE__;
- };
- if (__tmp__FPYD) {
- if (((struct ___OBJ *)s__1LYD)->__id==__ITM_SLOT__) {
- __tmp__APYD=((__ITM_SLOT *)s__1LYD)->parent_named__15.name__LI;
- } else {
- __tmp__APYD=((__ITM_SLOT_OPERATOR *)s__1LYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
- };
- __tmp__GPYD=(! has_prefix__OTTF(__tmp__APYD,(&__string_178)));
- } else {
- __tmp__GPYD=FALSE__;
- };
- __tmp__JPYD=__tmp__GPYD;
- } else {
- __tmp__JPYD=FALSE__;
- };
- if (__tmp__JPYD) {
- put__to__like__X4XD((&__string_179),string_tmp__VH,(&__string_135));
- };
- ((__STRING *)string_tmp2__GCJ)->count__SGC= 0;
- if (((struct ___OBJ *)s__1LYD)->__id==__ITM_SLOT__) {
- __tmp__VPYD=((__ITM_SLOT *)s__1LYD)->parent_named__15.name__LI;
- } else {
- __tmp__VPYD=((__ITM_SLOT_OPERATOR *)s__1LYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
- };
- get_all_comment_slot__in__PL4E(Self__XMTD,__tmp__VPYD,string_tmp2__GCJ);
- ((__STRING *)string_tmp3__HUD)->count__SGC= 0;
- shorter_comment__in__light__CP4E(string_tmp2__GCJ,string_tmp3__HUD,TRUE__);
- put__to__like__X4XD(string_tmp3__HUD,string_tmp__VH,(&__string_144));
- put__to__like__X4XD(string_tmp__VH,output_code__SI,(&__string_142));
- };
- Self__OH5D=(__INTEGER)(Self__OH5D + 1);
- };
- if ((! is_first_cur__0LYD)) {
- put__to__like__X4XD(NULL,output_code__SI,(&__string_145));
- };
- __tmp__WOTD=((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.upper__UOTD;
- Self__PQYD= 0;
- while ((Self__PQYD <= __tmp__WOTD)) {
- s__0MTD=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.storage__UPWE)[Self__PQYD];
- if (((struct ___OBJ *)s__0MTD)->__id==__ITM_SLOT__) {
- __tmp__5OTD=((__ITM_SLOT *)s__0MTD)->stat_shorter__4OTD;
- } else {
- __tmp__5OTD=((__ITM_SLOT_OPERATOR *)s__0MTD)->parent_itm_slot__0S5B.stat_shorter__4OTD;
- };
- if ((__tmp__5OTD == 0)) {
- if (((struct ___OBJ *)s__0MTD)->__id==__ITM_SLOT__) {
- __tmp__FPTD=((__ITM_SLOT *)s__0MTD)->comment_chapter__S0HC;
- } else {
- __tmp__FPTD=((__ITM_SLOT_OPERATOR *)s__0MTD)->parent_itm_slot__0S5B.comment_chapter__S0HC;
- };
- title__ZMTD=__tmp__FPTD;
- t__VBRE=__tmp__FPTD;
- s__YBRE=NULL;
- is_first_cur__XBRE=TRUE__;
- __tmp__2BRE=((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.upper__UOTD;
- Self__GKSE= 0;
- while ((Self__GKSE <= __tmp__2BRE)) {
- s__YBRE=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.storage__UPWE)[Self__GKSE];
- if (((struct ___OBJ *)s__YBRE)->__id==__ITM_SLOT__) {
- __tmp__MPTD=((__ITM_SLOT *)s__YBRE)->comment_chapter__S0HC;
- } else {
- __tmp__MPTD=((__ITM_SLOT_OPERATOR *)s__YBRE)->parent_itm_slot__0S5B.comment_chapter__S0HC;
- };
- if (((void *)__tmp__MPTD == (void *)title__ZMTD)) {
- if (((struct ___OBJ *)s__YBRE)->__id==__ITM_SLOT__) {
- __tmp__JCRE=((__ITM_SLOT *)s__YBRE)->stat_shorter__4OTD;
- } else {
- __tmp__JCRE=((__ITM_SLOT_OPERATOR *)s__YBRE)->parent_itm_slot__0S5B.stat_shorter__4OTD;
- };
- __tmp__MCRE=(__tmp__JCRE == 0);
- } else {
- __tmp__MCRE=FALSE__;
- };
- if (__tmp__MCRE) {
- if (is_first_cur__XBRE) {
- if (((void *)t__VBRE == (void *)NULL)) {
- put__to__like__X4XD((&__string_176),output_code__SI,(&__string_141));
- } else {
- put__to__like__X4XD(t__VBRE,output_code__SI,(&__string_141));
- };
- is_first_cur__XBRE=FALSE__;
- };
- if (((struct ___OBJ *)s__YBRE)->__id==__ITM_SLOT__) {
- ((__ITM_SLOT *)s__YBRE)->stat_shorter__4OTD= 1;
- } else {
- ((__ITM_SLOT_OPERATOR *)s__YBRE)->parent_itm_slot__0S5B.stat_shorter__4OTD= 1;
- };
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- ((__STRING *)string_tmp2__GCJ)->count__SGC= 0;
- if (((struct ___OBJ *)s__YBRE)->__id==__ITM_SLOT__) {
- pretty_name_in__FY4F(s__YBRE,string_tmp2__GCJ);
- } else {
- pretty_name_in__0Z4F(s__YBRE,string_tmp2__GCJ);
- };
- put__to__like__X4XD(string_tmp2__GCJ,string_tmp__VH,(&__string_143));
- if (((struct ___OBJ *)s__YBRE)->__id==__ITM_SLOT__) {
- __tmp__RDRE=((__ITM_SLOT *)s__YBRE)->id_section__T3C;
- } else {
- __tmp__RDRE=((__ITM_SLOT_OPERATOR *)s__YBRE)->parent_itm_slot__0S5B.id_section__T3C;
- };
- Self__UL2G=((__SECTION_ *)__tmp__RDRE);
- if ((((void *)Self__UL2G->name__MYDC == (void *)(&__string_23)) || ((void *)Self__UL2G->name__MYDC == (void *)(&__string_24)))) {
- if (((struct ___OBJ *)s__YBRE)->__id==__ITM_SLOT__) {
- __tmp__YDRE=((__ITM_SLOT *)s__YBRE)->parent_named__15.style__0FU;
- } else {
- __tmp__YDRE=((__ITM_SLOT_OPERATOR *)s__YBRE)->parent_itm_slot__0S5B.parent_named__15.style__0FU;
- };
- if ((__tmp__YDRE != '+')) {
- __tmp__OERE=TRUE__;
- } else {
- if (((struct ___OBJ *)s__YBRE)->__id==__ITM_SLOT__) {
- __tmp__5DRE=((__ITM_SLOT *)s__YBRE)->result_type__A4FC;
- } else {
- __tmp__5DRE=((__ITM_SLOT_OPERATOR *)s__YBRE)->parent_itm_slot__0S5B.result_type__A4FC;
- };
- if (__tmp__5DRE==NULL) {
- __tmp__BERE=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__5DRE)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- __tmp__BERE=((void *)__tmp__5DRE);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- __tmp__BERE=((void *)__tmp__5DRE);
- } break;
- case __ITM_TYPE_MULTI__: {
- __tmp__BERE=NULL;
- } break;
- case __ITM_TYPE_BLOCK__: {
- __tmp__BERE=NULL;
- } break;
- case __ITM_TYPE_GENERIC__: {
- __tmp__BERE=((void *)__tmp__5DRE);
- } break;
- case __ITM_TYPE_STYLE__: {
- __tmp__BERE=((void *)__tmp__5DRE);
- } break;
- }
- };
- ts__4DRE=__tmp__BERE;
- if (((void *)__tmp__BERE == (void *)NULL)) {
- __tmp__LERE=TRUE__;
- } else {
- switch (((struct ___OBJ *)__tmp__BERE)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- __tmp__HERE=NULL;
- } break;
- case __ITM_TYPE_SIMPLE__: {
- __tmp__HERE=NULL;
- } break;
- case __ITM_TYPE_GENERIC__: {
- __tmp__HERE=((__ITM_TYPE_GENERIC *)__tmp__BERE)->parent_itm_type_style__4SN.style__PZP;
- } break;
- case __ITM_TYPE_STYLE__: {
- __tmp__HERE=((__ITM_TYPE_STYLE *)__tmp__BERE)->style__PZP;
- } break;
- };
- __tmp__LERE=((void *)__tmp__HERE != (void *)(&__string_9));
- };
- __tmp__OERE=__tmp__LERE;
- };
- if (__tmp__OERE) {
- if (((struct ___OBJ *)s__YBRE)->__id==__ITM_SLOT__) {
- __tmp__UERE=((__ITM_SLOT *)s__YBRE)->parent_named__15.name__LI;
- } else {
- __tmp__UERE=((__ITM_SLOT_OPERATOR *)s__YBRE)->parent_itm_slot__0S5B.parent_named__15.name__LI;
- };
- __tmp__CFRE=(! has_prefix__OTTF(__tmp__UERE,(&__string_177)));
- } else {
- __tmp__CFRE=FALSE__;
- };
- if (__tmp__CFRE) {
- if (((struct ___OBJ *)s__YBRE)->__id==__ITM_SLOT__) {
- __tmp__3ERE=((__ITM_SLOT *)s__YBRE)->parent_named__15.name__LI;
- } else {
- __tmp__3ERE=((__ITM_SLOT_OPERATOR *)s__YBRE)->parent_itm_slot__0S5B.parent_named__15.name__LI;
- };
- __tmp__DFRE=(! has_prefix__OTTF(__tmp__3ERE,(&__string_178)));
- } else {
- __tmp__DFRE=FALSE__;
- };
- __tmp__GFRE=__tmp__DFRE;
- } else {
- __tmp__GFRE=FALSE__;
- };
- if (__tmp__GFRE) {
- put__to__like__X4XD((&__string_179),string_tmp__VH,(&__string_135));
- };
- ((__STRING *)string_tmp2__GCJ)->count__SGC= 0;
- if (((struct ___OBJ *)s__YBRE)->__id==__ITM_SLOT__) {
- __tmp__SFRE=((__ITM_SLOT *)s__YBRE)->parent_named__15.name__LI;
- } else {
- __tmp__SFRE=((__ITM_SLOT_OPERATOR *)s__YBRE)->parent_itm_slot__0S5B.parent_named__15.name__LI;
- };
- get_all_comment_slot__in__PL4E(Self__XMTD,__tmp__SFRE,string_tmp2__GCJ);
- ((__STRING *)string_tmp3__HUD)->count__SGC= 0;
- shorter_comment__in__light__CP4E(string_tmp2__GCJ,string_tmp3__HUD,TRUE__);
- put__to__like__X4XD(string_tmp3__HUD,string_tmp__VH,(&__string_144));
- put__to__like__X4XD(string_tmp__VH,output_code__SI,(&__string_142));
- };
- Self__GKSE=(__INTEGER)(Self__GKSE + 1);
- };
- if ((! is_first_cur__XBRE)) {
- put__to__like__X4XD(NULL,output_code__SI,(&__string_145));
- };
- };
- Self__PQYD=(__INTEGER)(Self__PQYD + 1);
- };
- s__DRYD=NULL;
- is_first__CRYD=TRUE__;
- __tmp__HRYD=((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.upper__UOTD;
- Self__JI5D= 0;
- while ((Self__JI5D <= __tmp__HRYD)) {
- s__DRYD=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.storage__UPWE)[Self__JI5D];
- if (((struct ___OBJ *)s__DRYD)->__id==__ITM_SLOT__) {
- __tmp__YPTD=((__ITM_SLOT *)s__DRYD)->id_section__T3C;
- } else {
- __tmp__YPTD=((__ITM_SLOT_OPERATOR *)s__DRYD)->parent_itm_slot__0S5B.id_section__T3C;
- };
- Self__VL2G=((__SECTION_ *)__tmp__YPTD);
- if ((((void *)Self__VL2G->name__MYDC == (void *)(&__string_23)) || ((void *)Self__VL2G->name__MYDC == (void *)(&__string_24)))) {
- if (((struct ___OBJ *)s__DRYD)->__id==__ITM_SLOT__) {
- __tmp__URYD=((__ITM_SLOT *)s__DRYD)->stat_shorter__4OTD;
- } else {
- __tmp__URYD=((__ITM_SLOT_OPERATOR *)s__DRYD)->parent_itm_slot__0S5B.stat_shorter__4OTD;
- };
- __tmp__XRYD=(__tmp__URYD == 1);
- } else {
- __tmp__XRYD=FALSE__;
- };
- if (__tmp__XRYD) {
- if (is_first__CRYD) {
- if (((void *)(&__string_182) == (void *)NULL)) {
- put__to__like__X4XD((&__string_183),output_code__SI,(&__string_146));
- } else {
- put__to__like__X4XD((&__string_182),output_code__SI,(&__string_146));
- };
- is_first__CRYD=FALSE__;
- };
- if (((struct ___OBJ *)s__DRYD)->__id==__ITM_SLOT__) {
- ((__ITM_SLOT *)s__DRYD)->stat_shorter__4OTD= 2;
- } else {
- ((__ITM_SLOT_OPERATOR *)s__DRYD)->parent_itm_slot__0S5B.stat_shorter__4OTD= 2;
- };
- ((__STRING *)string_tmp2__GCJ)->count__SGC= 0;
- if (((struct ___OBJ *)s__DRYD)->__id==__ITM_SLOT__) {
- pretty_name_in__FY4F(s__DRYD,string_tmp2__GCJ);
- } else {
- pretty_name_in__0Z4F(s__DRYD,string_tmp2__GCJ);
- };
- put__to__like__X4XD(string_tmp2__GCJ,output_code__SI,(&__string_147));
- if (((struct ___OBJ *)s__DRYD)->__id==__ITM_SLOT__) {
- __tmp__1SYD=((__ITM_SLOT *)s__DRYD)->parent_named__15.parent_itm_object__4.position__SFJ;
- } else {
- __tmp__1SYD=((__ITM_SLOT_OPERATOR *)s__DRYD)->parent_itm_slot__0S5B.parent_named__15.parent_itm_object__4.position__SFJ;
- };
- copy__VDS(string_tmp__VH,((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__DVT)[(__INTEGER)(((__INTEGER )((__UINTEGER_32 )__tmp__1SYD)) & 511)])->filename__FSG);
- append__3OS(string_tmp__VH,(&__string_184));
- if (((struct ___OBJ *)s__DRYD)->__id==__ITM_SLOT__) {
- __tmp__ATYD=((__ITM_SLOT *)s__DRYD)->parent_named__15.parent_itm_object__4.position__SFJ;
- } else {
- __tmp__ATYD=((__ITM_SLOT_OPERATOR *)s__DRYD)->parent_itm_slot__0S5B.parent_named__15.parent_itm_object__4.position__SFJ;
- };
- append_in__5KH((__UINTEGER_32)(((__UINTEGER_32 )__tmp__ATYD) >> 17),string_tmp__VH);
- put__to__like__X4XD(string_tmp__VH,output_code__SI,(&__string_149));
- put__to__like__X4XD((&__string_185),output_code__SI,(&__string_148));
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- if (((struct ___OBJ *)s__DRYD)->__id==__ITM_SLOT__) {
- __tmp__JTYD=((__ITM_SLOT *)s__DRYD)->id_section__T3C;
- } else {
- __tmp__JTYD=((__ITM_SLOT_OPERATOR *)s__DRYD)->parent_itm_slot__0S5B.id_section__T3C;
- };
- append_in__S14F(__tmp__JTYD,string_tmp__VH);
- put__to__like__X4XD(string_tmp__VH,output_code__SI,(&__string_120));
- put__to__like__X4XD((&__string_186),output_code__SI,(&__string_148));
- if (((struct ___OBJ *)s__DRYD)->__id==__ITM_SLOT__) {
- shorter_profile_in__U24F(s__DRYD,output_code__SI);
- } else {
- shorter_profile_in__R34F(s__DRYD,output_code__SI);
- };
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- if (((struct ___OBJ *)s__DRYD)->__id==__ITM_SLOT__) {
- __tmp__RTYD=((__ITM_SLOT *)s__DRYD)->parent_named__15.name__LI;
- } else {
- __tmp__RTYD=((__ITM_SLOT_OPERATOR *)s__DRYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
- };
- get_all_comment_slot__in__PL4E(Self__XMTD,__tmp__RTYD,string_tmp__VH);
- shorter_comment__in__light__CP4E(string_tmp__VH,output_code__SI,FALSE__);
- };
- Self__JI5D=(__INTEGER)(Self__JI5D + 1);
- };
- s__5TYD=NULL;
- is_first__4TYD=TRUE__;
- __tmp__DUYD=((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.upper__UOTD;
- Self__YI5D= 0;
- while ((Self__YI5D <= __tmp__DUYD)) {
- s__5TYD=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.storage__UPWE)[Self__YI5D];
- if (((struct ___OBJ *)s__5TYD)->__id==__ITM_SLOT__) {
- __tmp__CQTD=((__ITM_SLOT *)s__5TYD)->parent_named__15.name__LI;
- } else {
- __tmp__CQTD=((__ITM_SLOT_OPERATOR *)s__5TYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
- };
- if (has_prefix__OTTF(__tmp__CQTD,(&__string_180))) {
- if (((struct ___OBJ *)s__5TYD)->__id==__ITM_SLOT__) {
- __tmp__QUYD=((__ITM_SLOT *)s__5TYD)->stat_shorter__4OTD;
- } else {
- __tmp__QUYD=((__ITM_SLOT_OPERATOR *)s__5TYD)->parent_itm_slot__0S5B.stat_shorter__4OTD;
- };
- __tmp__TUYD=(__tmp__QUYD == 1);
- } else {
- __tmp__TUYD=FALSE__;
- };
- if (__tmp__TUYD) {
- if (is_first__4TYD) {
- if (((void *)(&__string_187) == (void *)NULL)) {
- put__to__like__X4XD((&__string_183),output_code__SI,(&__string_146));
- } else {
- put__to__like__X4XD((&__string_187),output_code__SI,(&__string_146));
- };
- is_first__4TYD=FALSE__;
- };
- if (((struct ___OBJ *)s__5TYD)->__id==__ITM_SLOT__) {
- ((__ITM_SLOT *)s__5TYD)->stat_shorter__4OTD= 2;
- } else {
- ((__ITM_SLOT_OPERATOR *)s__5TYD)->parent_itm_slot__0S5B.stat_shorter__4OTD= 2;
- };
- ((__STRING *)string_tmp2__GCJ)->count__SGC= 0;
- if (((struct ___OBJ *)s__5TYD)->__id==__ITM_SLOT__) {
- pretty_name_in__FY4F(s__5TYD,string_tmp2__GCJ);
- } else {
- pretty_name_in__0Z4F(s__5TYD,string_tmp2__GCJ);
- };
- put__to__like__X4XD(string_tmp2__GCJ,output_code__SI,(&__string_147));
- if (((struct ___OBJ *)s__5TYD)->__id==__ITM_SLOT__) {
- __tmp__XVYD=((__ITM_SLOT *)s__5TYD)->parent_named__15.parent_itm_object__4.position__SFJ;
- } else {
- __tmp__XVYD=((__ITM_SLOT_OPERATOR *)s__5TYD)->parent_itm_slot__0S5B.parent_named__15.parent_itm_object__4.position__SFJ;
- };
- copy__VDS(string_tmp__VH,((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__DVT)[(__INTEGER)(((__INTEGER )((__UINTEGER_32 )__tmp__XVYD)) & 511)])->filename__FSG);
- append__3OS(string_tmp__VH,(&__string_184));
- if (((struct ___OBJ *)s__5TYD)->__id==__ITM_SLOT__) {
- __tmp__2VYD=((__ITM_SLOT *)s__5TYD)->parent_named__15.parent_itm_object__4.position__SFJ;
- } else {
- __tmp__2VYD=((__ITM_SLOT_OPERATOR *)s__5TYD)->parent_itm_slot__0S5B.parent_named__15.parent_itm_object__4.position__SFJ;
- };
- append_in__5KH((__UINTEGER_32)(((__UINTEGER_32 )__tmp__2VYD) >> 17),string_tmp__VH);
- put__to__like__X4XD(string_tmp__VH,output_code__SI,(&__string_149));
- put__to__like__X4XD((&__string_185),output_code__SI,(&__string_148));
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- if (((struct ___OBJ *)s__5TYD)->__id==__ITM_SLOT__) {
- __tmp__FWYD=((__ITM_SLOT *)s__5TYD)->id_section__T3C;
- } else {
- __tmp__FWYD=((__ITM_SLOT_OPERATOR *)s__5TYD)->parent_itm_slot__0S5B.id_section__T3C;
- };
- append_in__S14F(__tmp__FWYD,string_tmp__VH);
- put__to__like__X4XD(string_tmp__VH,output_code__SI,(&__string_120));
- put__to__like__X4XD((&__string_186),output_code__SI,(&__string_148));
- if (((struct ___OBJ *)s__5TYD)->__id==__ITM_SLOT__) {
- shorter_profile_in__U24F(s__5TYD,output_code__SI);
- } else {
- shorter_profile_in__R34F(s__5TYD,output_code__SI);
- };
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- if (((struct ___OBJ *)s__5TYD)->__id==__ITM_SLOT__) {
- __tmp__NWYD=((__ITM_SLOT *)s__5TYD)->parent_named__15.name__LI;
- } else {
- __tmp__NWYD=((__ITM_SLOT_OPERATOR *)s__5TYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
- };
- get_all_comment_slot__in__PL4E(Self__XMTD,__tmp__NWYD,string_tmp__VH);
- shorter_comment__in__light__CP4E(string_tmp__VH,output_code__SI,FALSE__);
- };
- Self__YI5D=(__INTEGER)(Self__YI5D + 1);
- };
- __tmp__LQTD=((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.upper__UOTD;
- Self__WWYD= 0;
- while ((Self__WWYD <= __tmp__LQTD)) {
- s__0MTD=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.storage__UPWE)[Self__WWYD];
- if (((struct ___OBJ *)s__0MTD)->__id==__ITM_SLOT__) {
- __tmp__TQTD=((__ITM_SLOT *)s__0MTD)->stat_shorter__4OTD;
- } else {
- __tmp__TQTD=((__ITM_SLOT_OPERATOR *)s__0MTD)->parent_itm_slot__0S5B.stat_shorter__4OTD;
- };
- if ((__tmp__TQTD == 1)) {
- if (((struct ___OBJ *)s__0MTD)->__id==__ITM_SLOT__) {
- __tmp__ZQTD=((__ITM_SLOT *)s__0MTD)->comment_chapter__S0HC;
- } else {
- __tmp__ZQTD=((__ITM_SLOT_OPERATOR *)s__0MTD)->parent_itm_slot__0S5B.comment_chapter__S0HC;
- };
- title__ZMTD=__tmp__ZQTD;
- t__OGRE=__tmp__ZQTD;
- s__RGRE=NULL;
- is_first__QGRE=TRUE__;
- __tmp__VGRE=((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.upper__UOTD;
- Self__YKSE= 0;
- while ((Self__YKSE <= __tmp__VGRE)) {
- s__RGRE=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.storage__UPWE)[Self__YKSE];
- if (((struct ___OBJ *)s__RGRE)->__id==__ITM_SLOT__) {
- __tmp__ARTD=((__ITM_SLOT *)s__RGRE)->comment_chapter__S0HC;
- } else {
- __tmp__ARTD=((__ITM_SLOT_OPERATOR *)s__RGRE)->parent_itm_slot__0S5B.comment_chapter__S0HC;
- };
- if (((void *)__tmp__ARTD == (void *)title__ZMTD)) {
- if (((struct ___OBJ *)s__RGRE)->__id==__ITM_SLOT__) {
- __tmp__CHRE=((__ITM_SLOT *)s__RGRE)->stat_shorter__4OTD;
- } else {
- __tmp__CHRE=((__ITM_SLOT_OPERATOR *)s__RGRE)->parent_itm_slot__0S5B.stat_shorter__4OTD;
- };
- __tmp__FHRE=(__tmp__CHRE == 1);
- } else {
- __tmp__FHRE=FALSE__;
- };
- if (__tmp__FHRE) {
- if (is_first__QGRE) {
- if (((void *)t__OGRE == (void *)NULL)) {
- put__to__like__X4XD((&__string_183),output_code__SI,(&__string_146));
- } else {
- put__to__like__X4XD(t__OGRE,output_code__SI,(&__string_146));
- };
- is_first__QGRE=FALSE__;
- };
- if (((struct ___OBJ *)s__RGRE)->__id==__ITM_SLOT__) {
- ((__ITM_SLOT *)s__RGRE)->stat_shorter__4OTD= 2;
- } else {
- ((__ITM_SLOT_OPERATOR *)s__RGRE)->parent_itm_slot__0S5B.stat_shorter__4OTD= 2;
- };
- ((__STRING *)string_tmp2__GCJ)->count__SGC= 0;
- if (((struct ___OBJ *)s__RGRE)->__id==__ITM_SLOT__) {
- pretty_name_in__FY4F(s__RGRE,string_tmp2__GCJ);
- } else {
- pretty_name_in__0Z4F(s__RGRE,string_tmp2__GCJ);
- };
- put__to__like__X4XD(string_tmp2__GCJ,output_code__SI,(&__string_147));
- if (((struct ___OBJ *)s__RGRE)->__id==__ITM_SLOT__) {
- __tmp__JIRE=((__ITM_SLOT *)s__RGRE)->parent_named__15.parent_itm_object__4.position__SFJ;
- } else {
- __tmp__JIRE=((__ITM_SLOT_OPERATOR *)s__RGRE)->parent_itm_slot__0S5B.parent_named__15.parent_itm_object__4.position__SFJ;
- };
- copy__VDS(string_tmp__VH,((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__DVT)[(__INTEGER)(((__INTEGER )((__UINTEGER_32 )__tmp__JIRE)) & 511)])->filename__FSG);
- append__3OS(string_tmp__VH,(&__string_184));
- if (((struct ___OBJ *)s__RGRE)->__id==__ITM_SLOT__) {
- __tmp__OIRE=((__ITM_SLOT *)s__RGRE)->parent_named__15.parent_itm_object__4.position__SFJ;
- } else {
- __tmp__OIRE=((__ITM_SLOT_OPERATOR *)s__RGRE)->parent_itm_slot__0S5B.parent_named__15.parent_itm_object__4.position__SFJ;
- };
- append_in__5KH((__UINTEGER_32)(((__UINTEGER_32 )__tmp__OIRE) >> 17),string_tmp__VH);
- put__to__like__X4XD(string_tmp__VH,output_code__SI,(&__string_149));
- put__to__like__X4XD((&__string_185),output_code__SI,(&__string_148));
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- if (((struct ___OBJ *)s__RGRE)->__id==__ITM_SLOT__) {
- __tmp__XIRE=((__ITM_SLOT *)s__RGRE)->id_section__T3C;
- } else {
- __tmp__XIRE=((__ITM_SLOT_OPERATOR *)s__RGRE)->parent_itm_slot__0S5B.id_section__T3C;
- };
- append_in__S14F(__tmp__XIRE,string_tmp__VH);
- put__to__like__X4XD(string_tmp__VH,output_code__SI,(&__string_120));
- put__to__like__X4XD((&__string_186),output_code__SI,(&__string_148));
- if (((struct ___OBJ *)s__RGRE)->__id==__ITM_SLOT__) {
- shorter_profile_in__U24F(s__RGRE,output_code__SI);
- } else {
- shorter_profile_in__R34F(s__RGRE,output_code__SI);
- };
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- if (((struct ___OBJ *)s__RGRE)->__id==__ITM_SLOT__) {
- __tmp__5IRE=((__ITM_SLOT *)s__RGRE)->parent_named__15.name__LI;
- } else {
- __tmp__5IRE=((__ITM_SLOT_OPERATOR *)s__RGRE)->parent_itm_slot__0S5B.parent_named__15.name__LI;
- };
- get_all_comment_slot__in__PL4E(Self__XMTD,__tmp__5IRE,string_tmp__VH);
- shorter_comment__in__light__CP4E(string_tmp__VH,output_code__SI,FALSE__);
- };
- Self__YKSE=(__INTEGER)(Self__YKSE + 1);
- };
- };
- Self__WWYD=(__INTEGER)(Self__WWYD + 1);
- };
- __tmp__LRTD=((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.upper__UOTD;
- Self__FXYD= 0;
- __tmp__4VGH=((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.storage__UPWE;
- while ((Self__FXYD <= __tmp__LRTD)) {
- __tmp__SRTD=((void **)__tmp__4VGH)[Self__FXYD];
- if (((struct ___OBJ *)__tmp__SRTD)->__id==__ITM_SLOT__) {
- ((__ITM_SLOT *)__tmp__SRTD)->stat_shorter__4OTD= 0;
- } else {
- ((__ITM_SLOT_OPERATOR *)__tmp__SRTD)->parent_itm_slot__0S5B.stat_shorter__4OTD= 0;
- };
- Self__FXYD=(__INTEGER)(Self__FXYD + 1);
- };
- copy__VDS(string_tmp__VH,((__PROTOTYPE *)p__AB)->parent_named__5.name__LI);
- if (fast_has__IDT(short_dico__QD,(&__string_116))) {
- append__3OS(string_tmp__VH,((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(short_dico__QD,(&__string_116)))->first_link__OTEC)->item__L0HD);
- } else {
- append__3OS(string_tmp__VH,(&__string_172));
- };
- save_file__with__3DC(get__YWB(string_tmp__VH),output_code__SI);
- Self__30QC=(__INTEGER)(Self__30QC + 1);
- };
- };
- return( 0);
-}
-
-static __STRING* create__ZBB(__INTEGER needed_capacity__1BB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __STRING *result__YSB,*Self__FCS;
- __POINTER ptr__ZSB,ptr_table__S1LH,next__R1LH,result__T1LH;
- __POINTER ptr_table__X1LH,next__W1LH,result__Y1LH;
- __INTEGER typ_id__5SB;
- __UINTEGER_32 sz__2SB,a__BWGH,new_size__CWGH,t__GWGH,a__FWGH;
- __UINTEGER_32 new_size__01LH,lab_type__Z1LH;
- result__YSB=NULL;
- ptr__ZSB=((__POINTER )(NULL));
- typ_id__5SB= 0;
- sz__2SB=((__UINTEGER_32 )sizeof(__STRING));
- if ((sz__2SB == 0)) {
- result__YSB=STRING__;
- } else {
- typ_id__5SB=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__2SB);
- if ((typ_id__5SB == (__INTEGER)(- 1))) {
- a__BWGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__CWGH=(__UINTEGER_32)((__UINTEGER_32)(sz__2SB + a__BWGH) & (__UINTEGER_32)(~ a__BWGH));
- ptr_table__S1LH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CWGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__R1LH=((__POINTER )(NULL));
- result__T1LH=((__POINTER *)ptr_table__S1LH)[ 0];
- if ((result__T1LH == (void *)NULL)) {
- result__T1LH=new_lab__RTJ(new_size__CWGH);
- next__R1LH=(void *)((unsigned long)result__T1LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CWGH)));
- ((__POINTER *)next__R1LH)[ 0]=NULL;
- ((__POINTER *)ptr_table__S1LH)[ 0]=next__R1LH;
- } else {
- next__R1LH=((__POINTER *)result__T1LH)[ 0];
- if ((next__R1LH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__T1LH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__CWGH << 1)) <= 4096)) {
- next__R1LH=(void *)((unsigned long)result__T1LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CWGH)));
- } else {
- next__R1LH=new_lab__RTJ(new_size__CWGH);
- };
- ((__POINTER *)next__R1LH)[ 0]=NULL;
- ((__POINTER *)ptr_table__S1LH)[ 0]=next__R1LH;
- } else {
- ((__POINTER *)result__T1LH)[ 0]=(void *)((unsigned long)((__POINTER *)next__R1LH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__T1LH=next__R1LH;
- };
- };
- ptr__ZSB=result__T1LH;
- } else {
- t__GWGH=((__UINTEGER_32 )typ_id__5SB);
- a__FWGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__01LH=(__UINTEGER_32)((__UINTEGER_32)(sz__2SB + a__FWGH) & (__UINTEGER_32)(~ a__FWGH));
- ptr_table__X1LH=((__POINTER )(&(table_type[(t__GWGH)])));
- lab_type__Z1LH=(__UINTEGER_32)(t__GWGH | 1);
- next__W1LH=((__POINTER )(NULL));
- result__Y1LH=((__POINTER *)ptr_table__X1LH)[ 0];
- if ((result__Y1LH == (void *)NULL)) {
- result__Y1LH=new_lab__RTJ(lab_type__Z1LH);
- next__W1LH=(void *)((unsigned long)result__Y1LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__01LH)));
- ((__POINTER *)next__W1LH)[ 0]=NULL;
- ((__POINTER *)ptr_table__X1LH)[ 0]=next__W1LH;
- } else {
- next__W1LH=((__POINTER *)result__Y1LH)[ 0];
- if ((next__W1LH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Y1LH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__01LH << 1)) <= 4096)) {
- next__W1LH=(void *)((unsigned long)result__Y1LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__01LH)));
- } else {
- next__W1LH=new_lab__RTJ(lab_type__Z1LH);
- };
- ((__POINTER *)next__W1LH)[ 0]=NULL;
- ((__POINTER *)ptr_table__X1LH)[ 0]=next__W1LH;
- } else {
- ((__POINTER *)result__Y1LH)[ 0]=(void *)((unsigned long)((__POINTER *)next__W1LH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__Y1LH=next__W1LH;
- };
- };
- ptr__ZSB=result__Y1LH;
- };
- result__YSB=((__STRING *)ptr__ZSB);
- *(result__YSB) = *(STRING__);
- };
- Self__FCS=((__STRING *)result__YSB);
- if ((needed_capacity__1BB > 0)) {
- if ((Self__FCS->capacity__UCS < needed_capacity__1BB)) {
- Self__FCS->storage__3CS=create__YIEB(needed_capacity__1BB);
- Self__FCS->capacity__UCS=needed_capacity__1BB;
- };
- };
- Self__FCS->count__SGC= 0;
- return(result__YSB);
-}
-
-static __POINTER new_lab__RTJ(__UINTEGER_32 t__TTJ)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 idx__VTJ,pv__2TJ;
- void *blc__YTJ,*prev__ZTJ,*prev__L3HH,*next__M3HH;
- __MEMORY *Self__4NAH,*Self__K3HH;
- __POINTER result__0TJ;
- __BOOLEAN __tmp__2UJ;
- idx__VTJ= 0;
- blc__YTJ=NULL;
- prev__ZTJ=NULL;
- pv__2TJ= 0;
- while_do__YEK:
- {
- if ((idx__VTJ < nb_page__DUJ)) {
- blc__YTJ=((void *)(last_block[(idx__VTJ)]));
- __tmp__2UJ=(((__UINTEGER_32)(((__MEMORY *)blc__YTJ)->map_size_and_id__YTB & 4294967292LU) < 4096) || ((__UINTEGER_32)(((__MEMORY *)blc__YTJ)->map_size_and_id__YTB & 1) == 1));
- } else {
- __tmp__2UJ=FALSE__;
- };
- if (__tmp__2UJ) {
- idx__VTJ=(__UINTEGER_32)(idx__VTJ + 1);
- goto while_do__YEK;
- };
- };
- if ((idx__VTJ >= nb_page__DUJ)) {
- blc__YTJ=new_page__H54();
- };
- ((__MEMORY *)blc__YTJ)->map_size_and_id__YTB=(__UINTEGER_32)(((__MEMORY *)blc__YTJ)->map_size_and_id__YTB - 4096);
- Self__4NAH=((__MEMORY *)blc__YTJ);
- result__0TJ=((__POINTER )((void *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__4NAH) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__4NAH->map_size_and_id__YTB & 4294967292LU))))));
- if (((__UINTEGER_32)(((__MEMORY *)blc__YTJ)->map_size_and_id__YTB & 4294967292LU) < ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- Self__K3HH=((__MEMORY *)blc__YTJ);
- prev__L3HH=Self__K3HH->map_previous_free__0TB;
- next__M3HH=Self__K3HH->map_next_free__ZTB;
- if (((void *)prev__L3HH == (void *)NULL)) {
- first_free__0BVB=next__M3HH;
- } else {
- ((__MEMORY *)prev__L3HH)->map_next_free__ZTB=next__M3HH;
- };
- if (((void *)next__M3HH != (void *)NULL)) {
- ((__MEMORY *)next__M3HH)->map_previous_free__0TB=prev__L3HH;
- };
- pv__2TJ=((__MEMORY *)blc__YTJ)->map_previous_linear__XTB;
- if ((pv__2TJ != 4294967295LU)) {
- prev__ZTJ=((void *)(void *)((unsigned long)begin_memory__4XH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )pv__2TJ))));
- ((__MEMORY *)prev__ZTJ)->map_size_and_id__YTB=(__UINTEGER_32)((__UINTEGER_32)(((__MEMORY *)prev__ZTJ)->map_size_and_id__YTB + ((__MEMORY *)blc__YTJ)->map_size_and_id__YTB) + 8);
- last_block[(idx__VTJ)] = (prev__ZTJ);
- };
- };
- ((__POINTER *)result__0TJ)[ 0]=((__POINTER )t__TTJ);
- return((void *)((unsigned long)result__0TJ - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))))));
-}
-
-static void** create__2DRB(__INTEGER nb_elements__4DRB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__HCHH,a__GCHH,new_size__ICHH,new_size2__JCHH,a__KCHH;
- __UINTEGER_32 new_size__LCHH;
- __POINTER result__FCHH,ptr_table__JTJH,next__ITJH,result__KTJH;
- __INTEGER Self__EANC;
- void **Result__ECUB;
- sz__HCHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__4DRB * ((__INTEGER )(sizeof(void *)))));
- result__FCHH=((__POINTER )(NULL));
- a__GCHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ICHH=(__UINTEGER_32)((__UINTEGER_32)(sz__HCHH + a__GCHH) & (__UINTEGER_32)(~ a__GCHH));
- new_size2__JCHH=(__UINTEGER_32)(new_size__ICHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__JCHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__KCHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__LCHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__JCHH + a__KCHH) & (__UINTEGER_32)(~ a__KCHH));
- ptr_table__JTJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__LCHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__ITJH=((__POINTER )(NULL));
- result__KTJH=((__POINTER *)ptr_table__JTJH)[ 0];
- if ((result__KTJH == (void *)NULL)) {
- result__KTJH=new_lab__RTJ(new_size__LCHH);
- next__ITJH=(void *)((unsigned long)result__KTJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LCHH)));
- ((__POINTER *)next__ITJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__JTJH)[ 0]=next__ITJH;
- } else {
- next__ITJH=((__POINTER *)result__KTJH)[ 0];
- if ((next__ITJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KTJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__LCHH << 1)) <= 4096)) {
- next__ITJH=(void *)((unsigned long)result__KTJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LCHH)));
- } else {
- next__ITJH=new_lab__RTJ(new_size__LCHH);
- };
- ((__POINTER *)next__ITJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__JTJH)[ 0]=next__ITJH;
- } else {
- ((__POINTER *)result__KTJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ITJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__KTJH=next__ITJH;
- };
- };
- ((__POINTER *)result__KTJH)[ 0]=((__POINTER ) 3);
- result__FCHH=(void *)((unsigned long)result__KTJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__FCHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__ICHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__ECUB=((void **)result__FCHH);
- Self__EANC=(__INTEGER)(nb_elements__4DRB - 1);
- while ((Self__EANC >= 0)) {
- Result__ECUB[Self__EANC]=NULL;
- Self__EANC=(__INTEGER)(Self__EANC - 1);
- };
- return(Result__ECUB);
-}
-
-static __INTEGER fast_first_index_of__until__OLC(__CHARACTER *Self__PLC)
-// ({NATIVE_ARRAYoExpanded_CHARACTERo}) With resultNo recursive, No inlinable.
-{
- __INTEGER idx__1LC;
- idx__1LC= 0;
- while ((! ((idx__1LC > 1024) || ('\0' == Self__PLC[idx__1LC])))) {
- idx__1LC=(__INTEGER)(idx__1LC + 1);
- };
- return(idx__1LC);
-}
-
-static __CHARACTER* create__YIEB(__INTEGER nb_elements__0IEB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__5BHH,a__4BHH,new_size__ACHH,new_size2__BCHH,a__CCHH;
- __UINTEGER_32 new_size__DCHH;
- __POINTER result__3BHH,ptr_table__21LH,next__11LH,result__31LH;
- __INTEGER Self__KUKC;
- __CHARACTER *Result__13JB;
- sz__5BHH=((__UINTEGER_32 )nb_elements__0IEB);
- result__3BHH=((__POINTER )(NULL));
- a__4BHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ACHH=(__UINTEGER_32)((__UINTEGER_32)(sz__5BHH + a__4BHH) & (__UINTEGER_32)(~ a__4BHH));
- new_size2__BCHH=(__UINTEGER_32)(new_size__ACHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__BCHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__CCHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__DCHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__BCHH + a__CCHH) & (__UINTEGER_32)(~ a__CCHH));
- ptr_table__21LH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__DCHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__11LH=((__POINTER )(NULL));
- result__31LH=((__POINTER *)ptr_table__21LH)[ 0];
- if ((result__31LH == (void *)NULL)) {
- result__31LH=new_lab__RTJ(new_size__DCHH);
- next__11LH=(void *)((unsigned long)result__31LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DCHH)));
- ((__POINTER *)next__11LH)[ 0]=NULL;
- ((__POINTER *)ptr_table__21LH)[ 0]=next__11LH;
- } else {
- next__11LH=((__POINTER *)result__31LH)[ 0];
- if ((next__11LH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__31LH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__DCHH << 1)) <= 4096)) {
- next__11LH=(void *)((unsigned long)result__31LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DCHH)));
- } else {
- next__11LH=new_lab__RTJ(new_size__DCHH);
- };
- ((__POINTER *)next__11LH)[ 0]=NULL;
- ((__POINTER *)ptr_table__21LH)[ 0]=next__11LH;
- } else {
- ((__POINTER *)result__31LH)[ 0]=(void *)((unsigned long)((__POINTER *)next__11LH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__31LH=next__11LH;
- };
- };
- ((__POINTER *)result__31LH)[ 0]=((__POINTER ) 3);
- result__3BHH=(void *)((unsigned long)result__31LH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__3BHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__ACHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__13JB=((__CHARACTER *)result__3BHH);
- Self__KUKC=(__INTEGER)(nb_elements__0IEB - 1);
- while ((Self__KUKC >= 0)) {
- Result__13JB[Self__KUKC]='\0';
- Self__KUKC=(__INTEGER)(Self__KUKC - 1);
- };
- return(Result__13JB);
-}
-
-static __POINTER realloc_dynamic__old_size__new_size__KELC(__POINTER p__MELC,__UINTEGER_32 old_sz__NELC,__UINTEGER_32 new_sz__OELC)
-// ({POINTER},{UINTEGER_32},{UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- void *mem__ZELC,*nxt__RFED,*result__SFED,*next__WFND,*new_free__VFND;
- void *prev__I3HH,*next__J3HH;
- __POINTER result__0ELC,result__NCHH,ptr_table__EWH,next__JWH;
- __POINTER result__HWH,__tmp__4FLC,last__3SHD,src__3CED,dst__4CED;
- __UINTEGER_32 a__BNFH,old_size__QELC,old_size2__TELC,a__FNFH;
- __UINTEGER_32 new_size__WELC,a__OCHH,new_size__QCHH,new_size2__RCHH;
- __UINTEGER_32 a__SCHH,new_size__TCHH,a__BUH,__tmp__LGLC,sz__WFED;
- __UINTEGER_32 old_size__TFED,prev__XFND,new_size__0FND;
- __INTEGER siz__B2LH,Self__G2LH,siz__CDED,Self__QQHD;
- __MEMORY *Self__NFED;
- __POINTER *na_src__D2LH,*na_dst__F2LH,*na_src__ADED,*na_dst__BDED;
- mem__ZELC=NULL;
- result__0ELC=((__POINTER )(NULL));
- a__BNFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- old_size__QELC=(__UINTEGER_32)((__UINTEGER_32)(old_sz__NELC + a__BNFH) & (__UINTEGER_32)(~ a__BNFH));
- old_size2__TELC=(__UINTEGER_32)(old_size__QELC + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- a__FNFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__WELC=(__UINTEGER_32)((__UINTEGER_32)(new_sz__OELC + a__FNFH) & (__UINTEGER_32)(~ a__FNFH));
- if ((old_size2__TELC <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- result__NCHH=((__POINTER )(NULL));
- a__OCHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__QCHH=(__UINTEGER_32)((__UINTEGER_32)(new_size__WELC + a__OCHH) & (__UINTEGER_32)(~ a__OCHH));
- new_size2__RCHH=(__UINTEGER_32)(new_size__QCHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__RCHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__SCHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__TCHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__RCHH + a__SCHH) & (__UINTEGER_32)(~ a__SCHH));
- ptr_table__EWH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__TCHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__JWH=((__POINTER )(NULL));
- result__HWH=((__POINTER *)ptr_table__EWH)[ 0];
- if ((result__HWH == (void *)NULL)) {
- result__HWH=new_lab__RTJ(new_size__TCHH);
- next__JWH=(void *)((unsigned long)result__HWH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TCHH)));
- ((__POINTER *)next__JWH)[ 0]=NULL;
- ((__POINTER *)ptr_table__EWH)[ 0]=next__JWH;
- } else {
- next__JWH=((__POINTER *)result__HWH)[ 0];
- if ((next__JWH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HWH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__TCHH << 1)) <= 4096)) {
- next__JWH=(void *)((unsigned long)result__HWH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TCHH)));
- } else {
- next__JWH=new_lab__RTJ(new_size__TCHH);
- };
- ((__POINTER *)next__JWH)[ 0]=NULL;
- ((__POINTER *)ptr_table__EWH)[ 0]=next__JWH;
- } else {
- ((__POINTER *)result__HWH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JWH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__HWH=next__JWH;
- };
- };
- ((__POINTER *)result__HWH)[ 0]=((__POINTER ) 3);
- result__NCHH=(void *)((unsigned long)result__HWH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__NCHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__QCHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- result__0ELC=result__NCHH;
- siz__B2LH=((__INTEGER )old_size__QELC);
- siz__B2LH=(__INTEGER)(siz__B2LH / ((__INTEGER )(sizeof(void *))));
- na_src__D2LH=((__POINTER *)p__MELC);
- na_dst__F2LH=((__POINTER *)result__NCHH);
- Self__G2LH=(__INTEGER)(siz__B2LH - 1);
- while ((Self__G2LH >= 0)) {
- na_dst__F2LH[Self__G2LH]=na_src__D2LH[Self__G2LH];
- Self__G2LH=(__INTEGER)(Self__G2LH - 1);
- };
- __tmp__4FLC=(void *)((unsigned long)p__MELC - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *)))));
- a__BUH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- last__3SHD=((__POINTER *)((__POINTER )(&(table_size[((__UINTEGER_32)((__UINTEGER_32)((__UINTEGER_32)(old_size2__TELC + a__BUH) & (__UINTEGER_32)(~ a__BUH)) / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1]))))[ 0];
- ((__POINTER *)__tmp__4FLC)[ 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__3SHD)[ 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));
- ((__POINTER *)last__3SHD)[ 0]=__tmp__4FLC;
- } else {
- mem__ZELC=((void *)(void *)((unsigned long)p__MELC - (unsigned long)((__POINTER ) 8)));
- __tmp__LGLC=(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)p__MELC - (unsigned long)begin_memory__4XH)))) >> 26);
- Self__NFED=((__MEMORY *)mem__ZELC);
- nxt__RFED=NULL;
- result__SFED=NULL;
- sz__WFED= 0;
- old_size__TFED=(__UINTEGER_32)(Self__NFED->map_size_and_id__YTB & 4294967292LU);
- if ((new_size__WELC > old_size__TFED)) {
- if ((! ((__UINTEGER_32)(Self__NFED->map_size_and_id__YTB & 2) != 0))) {
- nxt__RFED=((void *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__NFED) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__NFED->map_size_and_id__YTB & 4294967292LU)))));
- sz__WFED=(__UINTEGER_32)((__UINTEGER_32)(new_size__WELC - old_size__TFED) - 8);
- if ((((__UINTEGER_32)(((__MEMORY *)nxt__RFED)->map_size_and_id__YTB & 1) == 0) && ((__UINTEGER_32)(((__MEMORY *)nxt__RFED)->map_size_and_id__YTB & 4294967292LU) >= sz__WFED))) {
- to_busy__index__3SFC(nxt__RFED,sz__WFED,__tmp__LGLC);
- Self__NFED->map_size_and_id__YTB=(__UINTEGER_32)((__UINTEGER_32)(Self__NFED->map_size_and_id__YTB + (__UINTEGER_32)(((__MEMORY *)nxt__RFED)->map_size_and_id__YTB & 4294967294LU)) + 8);
- if (((__UINTEGER_32)(Self__NFED->map_size_and_id__YTB & 2) != 0)) {
- last_block[(__tmp__LGLC)] = (Self__NFED);
- } else {
- nxt__RFED=((void *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__NFED) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__NFED->map_size_and_id__YTB & 4294967292LU)))));
- ((__MEMORY *)nxt__RFED)->map_previous_linear__XTB=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__NFED) - (unsigned long)begin_memory__4XH))));
- };
- result__SFED=Self__NFED;
- };
- };
- if (((void *)result__SFED == (void *)NULL)) {
- result__SFED=search__XAVB(new_size__WELC);
- src__3CED=(void *)((unsigned long)((__POINTER )Self__NFED) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- dst__4CED=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__SFED)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- siz__CDED=((__INTEGER )old_size__TFED);
- siz__CDED=(__INTEGER)(siz__CDED / ((__INTEGER )(sizeof(void *))));
- na_src__ADED=((__POINTER *)src__3CED);
- na_dst__BDED=((__POINTER *)dst__4CED);
- Self__QQHD=(__INTEGER)(siz__CDED - 1);
- while ((Self__QQHD >= 0)) {
- na_dst__BDED[Self__QQHD]=na_src__ADED[Self__QQHD];
- Self__QQHD=(__INTEGER)(Self__QQHD - 1);
- };
- prev__XFND=Self__NFED->map_previous_linear__XTB;
- next__WFND=((void *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__NFED) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__NFED->map_size_and_id__YTB & 4294967292LU)))));
- new_free__VFND=((void *)(void *)((unsigned long)begin_memory__4XH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )prev__XFND))));
- new_size__0FND=(__UINTEGER_32)(Self__NFED->map_size_and_id__YTB & 4294967294LU);
- if (((prev__XFND == 4294967295LU) || ((__UINTEGER_32)(((__MEMORY *)new_free__VFND)->map_size_and_id__YTB & 1) != 0))) {
- new_free__VFND=Self__NFED;
- Self__NFED->map_next_free__ZTB=first_free__0BVB;
- Self__NFED->map_previous_free__0TB=NULL;
- if (((void *)first_free__0BVB != (void *)NULL)) {
- ((__MEMORY *)first_free__0BVB)->map_previous_free__0TB=Self__NFED;
- };
- first_free__0BVB=Self__NFED;
- } else {
- new_size__0FND=(__UINTEGER_32)((__UINTEGER_32)(new_size__0FND + ((__MEMORY *)new_free__VFND)->map_size_and_id__YTB) + 8);
- };
- if (((! ((__UINTEGER_32)(Self__NFED->map_size_and_id__YTB & 2) != 0)) && ((__UINTEGER_32)(((__MEMORY *)next__WFND)->map_size_and_id__YTB & 1) == 0))) {
- new_size__0FND=(__UINTEGER_32)((__UINTEGER_32)(new_size__0FND + ((__MEMORY *)next__WFND)->map_size_and_id__YTB) + 8);
- prev__I3HH=((__MEMORY *)next__WFND)->map_previous_free__0TB;
- next__J3HH=((__MEMORY *)next__WFND)->map_next_free__ZTB;
- if (((void *)prev__I3HH == (void *)NULL)) {
- first_free__0BVB=next__J3HH;
- } else {
- ((__MEMORY *)prev__I3HH)->map_next_free__ZTB=next__J3HH;
- };
- if (((void *)next__J3HH != (void *)NULL)) {
- ((__MEMORY *)next__J3HH)->map_previous_free__0TB=prev__I3HH;
- };
- };
- ((__MEMORY *)new_free__VFND)->map_size_and_id__YTB=new_size__0FND;
- if (((__UINTEGER_32)(((__MEMORY *)new_free__VFND)->map_size_and_id__YTB & 2) != 0)) {
- last_block[(__tmp__LGLC)] = (new_free__VFND);
- } else {
- next__WFND=((void *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__NFED) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__NFED->map_size_and_id__YTB & 4294967292LU)))));
- ((__MEMORY *)next__WFND)->map_previous_linear__XTB=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )new_free__VFND) - (unsigned long)begin_memory__4XH))));
- };
- };
- } else {
- result__SFED=Self__NFED;
- };
- result__0ELC=(void *)((unsigned long)((__POINTER )((__MEMORY *)result__SFED)) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- return(result__0ELC);
-}
-
-static void add_last__URV(__FAST_ARRAYoSTRINGo *Self__VRV,void *element__WRV)
-// ({FAST_ARRAYoSTRINGo},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
- __INTEGER new_capacity__XRV,__tmp__1SV,__tmp__XHEC,Self__HQVD;
- __BOOLEAN __tmp__FSV;
- void **__tmp__0SV,**new__DHEC;
- new_capacity__XRV= 0;
- if (((__INTEGER)(Self__VRV->parent_arrayed_collection__5KC.upper__CLC + 1) <= (__INTEGER)(Self__VRV->parent_arrayed_collection__5KC.capacity__JGT - 1))) {
- Self__VRV->parent_arrayed_collection__5KC.upper__CLC=(__INTEGER)(Self__VRV->parent_arrayed_collection__5KC.upper__CLC + 1);
- __tmp__FSV=TRUE__;
- } else {
- __tmp__FSV=FALSE__;
- };
- if ((! __tmp__FSV)) {
- if ((Self__VRV->parent_arrayed_collection__5KC.capacity__JGT == 0)) {
- Self__VRV->parent_arrayed_collection__5KC.storage__UGT=create__2DRB( 2);
- Self__VRV->parent_arrayed_collection__5KC.capacity__JGT= 2;
- Self__VRV->parent_arrayed_collection__5KC.upper__CLC= 0;
- } else {
- new_capacity__XRV=(__INTEGER)(Self__VRV->parent_arrayed_collection__5KC.capacity__JGT << 1);
- __tmp__0SV=Self__VRV->parent_arrayed_collection__5KC.storage__UGT;
- __tmp__1SV=Self__VRV->parent_arrayed_collection__5KC.capacity__JGT;
- new__DHEC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__0SV)),((__UINTEGER_32 )(__INTEGER)(__tmp__1SV * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__XRV * ((__INTEGER )(sizeof(void *)))))));
- __tmp__XHEC=(__INTEGER)(new_capacity__XRV - 1);
- Self__HQVD=__tmp__1SV;
- while ((Self__HQVD <= __tmp__XHEC)) {
- new__DHEC[Self__HQVD]=NULL;
- Self__HQVD=(__INTEGER)(Self__HQVD + 1);
- };
- Self__VRV->parent_arrayed_collection__5KC.storage__UGT=new__DHEC;
- Self__VRV->parent_arrayed_collection__5KC.capacity__JGT=new_capacity__XRV;
- Self__VRV->parent_arrayed_collection__5KC.upper__CLC=(__INTEGER)(Self__VRV->parent_arrayed_collection__5KC.upper__CLC + 1);
- };
- };
- ((void **)Self__VRV->parent_arrayed_collection__5KC.storage__UGT)[Self__VRV->parent_arrayed_collection__5KC.upper__CLC]=element__WRV;
-}
-
-static __INTEGER prime_number_ceiling__021(__INTEGER integer__221)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __INTEGER result__421;
- __BOOLEAN __tmp__G31,__tmp__T31,result__TNCB,__tmp__A41,result__FOCB;
- __BOOLEAN __tmp__N41,result__XOCB,__tmp__041,result__JPCB,__tmp__H51;
- __BOOLEAN result__1PCB,__tmp__U51,result__NQCB,__tmp__BA2;
- __BOOLEAN result__5QCB,__tmp__OA2,result__RRCB,__tmp__1A2;
- __BOOLEAN result__DSCB,__tmp__IB2,result__VSCB,__tmp__VB2;
- __BOOLEAN result__HTCB,__tmp__CC2,result__ZTCB,__tmp__PC2;
- __BOOLEAN result__LUCB,__tmp__2C2,result__3UCB,__tmp__JD2;
- __BOOLEAN result__PVCB,__tmp__WD2,result__BWCB,__tmp__DE2;
- __BOOLEAN result__TWCB,__tmp__QE2,result__FXCB,__tmp__3E2;
- __BOOLEAN result__XXCB,__tmp__KF2,result__JYCB,__tmp__XF2;
- __BOOLEAN result__1YCB,__tmp__EG2,result__NZCB,__tmp__RG2;
- __BOOLEAN result__5ZCB,__tmp__4G2,result__R0CB,__tmp__LH2;
- __BOOLEAN result__D1CB;
- result__421= 0;
- if ((integer__221 <= 11)) {
- result__421= 11;
- __tmp__G31=TRUE__;
- } else {
- __tmp__G31=FALSE__;
- };
- if (__tmp__G31) {
- __tmp__T31=TRUE__;
- } else {
- result__TNCB=(integer__221 <= 23);
- if (result__TNCB) {
- result__421= 23;
- };
- __tmp__T31=result__TNCB;
- };
- if (__tmp__T31) {
- __tmp__A41=TRUE__;
- } else {
- result__FOCB=(integer__221 <= 53);
- if (result__FOCB) {
- result__421= 53;
- };
- __tmp__A41=result__FOCB;
- };
- if (__tmp__A41) {
- __tmp__N41=TRUE__;
- } else {
- result__XOCB=(integer__221 <= 97);
- if (result__XOCB) {
- result__421= 97;
- };
- __tmp__N41=result__XOCB;
- };
- if (__tmp__N41) {
- __tmp__041=TRUE__;
- } else {
- result__JPCB=(integer__221 <= 193);
- if (result__JPCB) {
- result__421= 193;
- };
- __tmp__041=result__JPCB;
- };
- if (__tmp__041) {
- __tmp__H51=TRUE__;
- } else {
- result__1PCB=(integer__221 <= 389);
- if (result__1PCB) {
- result__421= 389;
- };
- __tmp__H51=result__1PCB;
- };
- if (__tmp__H51) {
- __tmp__U51=TRUE__;
- } else {
- result__NQCB=(integer__221 <= 769);
- if (result__NQCB) {
- result__421= 769;
- };
- __tmp__U51=result__NQCB;
- };
- if (__tmp__U51) {
- __tmp__BA2=TRUE__;
- } else {
- result__5QCB=(integer__221 <= 1543);
- if (result__5QCB) {
- result__421= 1543;
- };
- __tmp__BA2=result__5QCB;
- };
- if (__tmp__BA2) {
- __tmp__OA2=TRUE__;
- } else {
- result__RRCB=(integer__221 <= 3079);
- if (result__RRCB) {
- result__421= 3079;
- };
- __tmp__OA2=result__RRCB;
- };
- if (__tmp__OA2) {
- __tmp__1A2=TRUE__;
- } else {
- result__DSCB=(integer__221 <= 6151);
- if (result__DSCB) {
- result__421= 6151;
- };
- __tmp__1A2=result__DSCB;
- };
- if (__tmp__1A2) {
- __tmp__IB2=TRUE__;
- } else {
- result__VSCB=(integer__221 <= 12289);
- if (result__VSCB) {
- result__421= 12289;
- };
- __tmp__IB2=result__VSCB;
- };
- if (__tmp__IB2) {
- __tmp__VB2=TRUE__;
- } else {
- result__HTCB=(integer__221 <= 24593);
- if (result__HTCB) {
- result__421= 24593;
- };
- __tmp__VB2=result__HTCB;
- };
- if (__tmp__VB2) {
- __tmp__CC2=TRUE__;
- } else {
- result__ZTCB=(integer__221 <= 49157);
- if (result__ZTCB) {
- result__421= 49157;
- };
- __tmp__CC2=result__ZTCB;
- };
- if (__tmp__CC2) {
- __tmp__PC2=TRUE__;
- } else {
- result__LUCB=(integer__221 <= 98317);
- if (result__LUCB) {
- result__421= 98317;
- };
- __tmp__PC2=result__LUCB;
- };
- if (__tmp__PC2) {
- __tmp__2C2=TRUE__;
- } else {
- result__3UCB=(integer__221 <= 196613);
- if (result__3UCB) {
- result__421= 196613;
- };
- __tmp__2C2=result__3UCB;
- };
- if (__tmp__2C2) {
- __tmp__JD2=TRUE__;
- } else {
- result__PVCB=(integer__221 <= 393241);
- if (result__PVCB) {
- result__421= 393241;
- };
- __tmp__JD2=result__PVCB;
- };
- if (__tmp__JD2) {
- __tmp__WD2=TRUE__;
- } else {
- result__BWCB=(integer__221 <= 786433);
- if (result__BWCB) {
- result__421= 786433;
- };
- __tmp__WD2=result__BWCB;
- };
- if (__tmp__WD2) {
- __tmp__DE2=TRUE__;
- } else {
- result__TWCB=(integer__221 <= 1572869);
- if (result__TWCB) {
- result__421= 1572869;
- };
- __tmp__DE2=result__TWCB;
- };
- if (__tmp__DE2) {
- __tmp__QE2=TRUE__;
- } else {
- result__FXCB=(integer__221 <= 3145739);
- if (result__FXCB) {
- result__421= 3145739;
- };
- __tmp__QE2=result__FXCB;
- };
- if (__tmp__QE2) {
- __tmp__3E2=TRUE__;
- } else {
- result__XXCB=(integer__221 <= 6291469);
- if (result__XXCB) {
- result__421= 6291469;
- };
- __tmp__3E2=result__XXCB;
- };
- if (__tmp__3E2) {
- __tmp__KF2=TRUE__;
- } else {
- result__JYCB=(integer__221 <= 12582917);
- if (result__JYCB) {
- result__421= 12582917;
- };
- __tmp__KF2=result__JYCB;
- };
- if (__tmp__KF2) {
- __tmp__XF2=TRUE__;
- } else {
- result__1YCB=(integer__221 <= 25165843);
- if (result__1YCB) {
- result__421= 25165843;
- };
- __tmp__XF2=result__1YCB;
- };
- if (__tmp__XF2) {
- __tmp__EG2=TRUE__;
- } else {
- result__NZCB=(integer__221 <= 50331653);
- if (result__NZCB) {
- result__421= 50331653;
- };
- __tmp__EG2=result__NZCB;
- };
- if (__tmp__EG2) {
- __tmp__RG2=TRUE__;
- } else {
- result__5ZCB=(integer__221 <= 100663319);
- if (result__5ZCB) {
- result__421= 100663319;
- };
- __tmp__RG2=result__5ZCB;
- };
- if (__tmp__RG2) {
- __tmp__4G2=TRUE__;
- } else {
- result__R0CB=(integer__221 <= 201326611);
- if (result__R0CB) {
- result__421= 201326611;
- };
- __tmp__4G2=result__R0CB;
- };
- if (__tmp__4G2) {
- __tmp__LH2=TRUE__;
- } else {
- result__D1CB=(integer__221 <= 402653189);
- if (result__D1CB) {
- result__421= 402653189;
- };
- __tmp__LH2=result__D1CB;
- };
- if ((! __tmp__LH2)) {
- if ((integer__221 <= 805306457)) {
- result__421= 805306457;
- } else {
- result__421= 1610612741;
- };
- };
- return(result__421);
-}
-
-static void** create__QA4(__INTEGER nb_elements__SA4)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__1HHH,a__0HHH,new_size__2HHH,new_size2__3HHH,a__4HHH;
- __UINTEGER_32 new_size__5HHH;
- __POINTER result__ZHHH,ptr_table__PWIH,next__OWIH,result__QWIH;
- __INTEGER Self__C1JC;
- void **Result__WWEB;
- sz__1HHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__SA4 * ((__INTEGER )(sizeof(void *)))));
- result__ZHHH=((__POINTER )(NULL));
- a__0HHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__2HHH=(__UINTEGER_32)((__UINTEGER_32)(sz__1HHH + a__0HHH) & (__UINTEGER_32)(~ a__0HHH));
- new_size2__3HHH=(__UINTEGER_32)(new_size__2HHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__3HHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__4HHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5HHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__3HHH + a__4HHH) & (__UINTEGER_32)(~ a__4HHH));
- ptr_table__PWIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5HHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__OWIH=((__POINTER )(NULL));
- result__QWIH=((__POINTER *)ptr_table__PWIH)[ 0];
- if ((result__QWIH == (void *)NULL)) {
- result__QWIH=new_lab__RTJ(new_size__5HHH);
- next__OWIH=(void *)((unsigned long)result__QWIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5HHH)));
- ((__POINTER *)next__OWIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__PWIH)[ 0]=next__OWIH;
- } else {
- next__OWIH=((__POINTER *)result__QWIH)[ 0];
- if ((next__OWIH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QWIH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__5HHH << 1)) <= 4096)) {
- next__OWIH=(void *)((unsigned long)result__QWIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5HHH)));
- } else {
- next__OWIH=new_lab__RTJ(new_size__5HHH);
- };
- ((__POINTER *)next__OWIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__PWIH)[ 0]=next__OWIH;
- } else {
- ((__POINTER *)result__QWIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OWIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__QWIH=next__OWIH;
- };
- };
- ((__POINTER *)result__QWIH)[ 0]=((__POINTER ) 3);
- result__ZHHH=(void *)((unsigned long)result__QWIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__ZHHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__2HHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__WWEB=((void **)result__ZHHH);
- Self__C1JC=(__INTEGER)(nb_elements__SA4 - 1);
- while ((Self__C1JC >= 0)) {
- Result__WWEB[Self__C1JC]=NULL;
- Self__C1JC=(__INTEGER)(Self__C1JC - 1);
- };
- return(Result__WWEB);
-}
-
-static void** create__ZITC(__INTEGER nb_elements__1ITC)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__DIHH,a__CIHH,new_size__EIHH,new_size2__FIHH,a__GIHH;
- __UINTEGER_32 new_size__HIHH;
- __POINTER result__BIHH,ptr_table__UWIH,next__TWIH,result__VWIH;
- __INTEGER Self__CVWD;
- void **Result__EF3C;
- sz__DIHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__1ITC * ((__INTEGER )(sizeof(void *)))));
- result__BIHH=((__POINTER )(NULL));
- a__CIHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__EIHH=(__UINTEGER_32)((__UINTEGER_32)(sz__DIHH + a__CIHH) & (__UINTEGER_32)(~ a__CIHH));
- new_size2__FIHH=(__UINTEGER_32)(new_size__EIHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__FIHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__GIHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HIHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__FIHH + a__GIHH) & (__UINTEGER_32)(~ a__GIHH));
- ptr_table__UWIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HIHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__TWIH=((__POINTER )(NULL));
- result__VWIH=((__POINTER *)ptr_table__UWIH)[ 0];
- if ((result__VWIH == (void *)NULL)) {
- result__VWIH=new_lab__RTJ(new_size__HIHH);
- next__TWIH=(void *)((unsigned long)result__VWIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HIHH)));
- ((__POINTER *)next__TWIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__UWIH)[ 0]=next__TWIH;
- } else {
- next__TWIH=((__POINTER *)result__VWIH)[ 0];
- if ((next__TWIH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VWIH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__HIHH << 1)) <= 4096)) {
- next__TWIH=(void *)((unsigned long)result__VWIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HIHH)));
- } else {
- next__TWIH=new_lab__RTJ(new_size__HIHH);
- };
- ((__POINTER *)next__TWIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__UWIH)[ 0]=next__TWIH;
- } else {
- ((__POINTER *)result__VWIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TWIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__VWIH=next__TWIH;
- };
- };
- ((__POINTER *)result__VWIH)[ 0]=((__POINTER ) 3);
- result__BIHH=(void *)((unsigned long)result__VWIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__BIHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__EIHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__EF3C=((void **)result__BIHH);
- Self__CVWD=(__INTEGER)(nb_elements__1ITC - 1);
- while ((Self__CVWD >= 0)) {
- Result__EF3C[Self__CVWD]=NULL;
- Self__CVWD=(__INTEGER)(Self__CVWD - 1);
- };
- return(Result__EF3C);
-}
-
-static void** create__JDSB(__INTEGER nb_elements__LDSB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__LIHH,a__KIHH,new_size__MIHH,new_size2__NIHH,a__OIHH;
- __UINTEGER_32 new_size__PIHH;
- __POINTER result__JIHH,ptr_table__ZWIH,next__YWIH,result__0WIH;
- __INTEGER Self__KHNC;
- void **Result__CIVB;
- sz__LIHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__LDSB * ((__INTEGER )(sizeof(void *)))));
- result__JIHH=((__POINTER )(NULL));
- a__KIHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__MIHH=(__UINTEGER_32)((__UINTEGER_32)(sz__LIHH + a__KIHH) & (__UINTEGER_32)(~ a__KIHH));
- new_size2__NIHH=(__UINTEGER_32)(new_size__MIHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__NIHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__OIHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__PIHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__NIHH + a__OIHH) & (__UINTEGER_32)(~ a__OIHH));
- ptr_table__ZWIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PIHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__YWIH=((__POINTER )(NULL));
- result__0WIH=((__POINTER *)ptr_table__ZWIH)[ 0];
- if ((result__0WIH == (void *)NULL)) {
- result__0WIH=new_lab__RTJ(new_size__PIHH);
- next__YWIH=(void *)((unsigned long)result__0WIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PIHH)));
- ((__POINTER *)next__YWIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__ZWIH)[ 0]=next__YWIH;
- } else {
- next__YWIH=((__POINTER *)result__0WIH)[ 0];
- if ((next__YWIH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0WIH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__PIHH << 1)) <= 4096)) {
- next__YWIH=(void *)((unsigned long)result__0WIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PIHH)));
- } else {
- next__YWIH=new_lab__RTJ(new_size__PIHH);
- };
- ((__POINTER *)next__YWIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__ZWIH)[ 0]=next__YWIH;
- } else {
- ((__POINTER *)result__0WIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YWIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__0WIH=next__YWIH;
- };
- };
- ((__POINTER *)result__0WIH)[ 0]=((__POINTER ) 3);
- result__JIHH=(void *)((unsigned long)result__0WIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__JIHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__MIHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__CIVB=((void **)result__JIHH);
- Self__KHNC=(__INTEGER)(nb_elements__LDSB - 1);
- while ((Self__KHNC >= 0)) {
- Result__CIVB[Self__KHNC]=NULL;
- Self__KHNC=(__INTEGER)(Self__KHNC - 1);
- };
- return(Result__CIVB);
-}
-
-static void** create__0E4(__INTEGER nb_elements__2E4)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__TIHH,a__SIHH,new_size__UIHH,new_size2__VIHH,a__WIHH;
- __UINTEGER_32 new_size__XIHH;
- __POINTER result__RIHH,ptr_table__4WIH,next__3WIH,result__5WIH;
- __INTEGER Self__J2JC;
- void **Result__X2EB;
- sz__TIHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__2E4 * ((__INTEGER )(sizeof(void *)))));
- result__RIHH=((__POINTER )(NULL));
- a__SIHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__UIHH=(__UINTEGER_32)((__UINTEGER_32)(sz__TIHH + a__SIHH) & (__UINTEGER_32)(~ a__SIHH));
- new_size2__VIHH=(__UINTEGER_32)(new_size__UIHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__VIHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__WIHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__XIHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__VIHH + a__WIHH) & (__UINTEGER_32)(~ a__WIHH));
- ptr_table__4WIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XIHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__3WIH=((__POINTER )(NULL));
- result__5WIH=((__POINTER *)ptr_table__4WIH)[ 0];
- if ((result__5WIH == (void *)NULL)) {
- result__5WIH=new_lab__RTJ(new_size__XIHH);
- next__3WIH=(void *)((unsigned long)result__5WIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XIHH)));
- ((__POINTER *)next__3WIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__4WIH)[ 0]=next__3WIH;
- } else {
- next__3WIH=((__POINTER *)result__5WIH)[ 0];
- if ((next__3WIH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5WIH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__XIHH << 1)) <= 4096)) {
- next__3WIH=(void *)((unsigned long)result__5WIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XIHH)));
- } else {
- next__3WIH=new_lab__RTJ(new_size__XIHH);
- };
- ((__POINTER *)next__3WIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__4WIH)[ 0]=next__3WIH;
- } else {
- ((__POINTER *)result__5WIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3WIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__5WIH=next__3WIH;
- };
- };
- ((__POINTER *)result__5WIH)[ 0]=((__POINTER ) 3);
- result__RIHH=(void *)((unsigned long)result__5WIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__RIHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__UIHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__X2EB=((void **)result__RIHH);
- Self__J2JC=(__INTEGER)(nb_elements__2E4 - 1);
- while ((Self__J2JC >= 0)) {
- Result__X2EB[Self__J2JC]=NULL;
- Self__J2JC=(__INTEGER)(Self__J2JC - 1);
- };
- return(Result__X2EB);
-}
-
-static void** create__PX2(__INTEGER nb_elements__RX2)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__1IHH,a__0IHH,new_size__2IHH,new_size2__3IHH,a__4IHH;
- __UINTEGER_32 new_size__5IHH;
- __POINTER result__ZIHH,ptr_table__DXIH,next__CXIH,result__EXIH;
- __INTEGER Self__LUJC;
- void **Result__0NDB;
- sz__1IHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__RX2 * ((__INTEGER )(sizeof(void *)))));
- result__ZIHH=((__POINTER )(NULL));
- a__0IHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__2IHH=(__UINTEGER_32)((__UINTEGER_32)(sz__1IHH + a__0IHH) & (__UINTEGER_32)(~ a__0IHH));
- new_size2__3IHH=(__UINTEGER_32)(new_size__2IHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__3IHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__4IHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5IHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__3IHH + a__4IHH) & (__UINTEGER_32)(~ a__4IHH));
- ptr_table__DXIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5IHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__CXIH=((__POINTER )(NULL));
- result__EXIH=((__POINTER *)ptr_table__DXIH)[ 0];
- if ((result__EXIH == (void *)NULL)) {
- result__EXIH=new_lab__RTJ(new_size__5IHH);
- next__CXIH=(void *)((unsigned long)result__EXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5IHH)));
- ((__POINTER *)next__CXIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__DXIH)[ 0]=next__CXIH;
- } else {
- next__CXIH=((__POINTER *)result__EXIH)[ 0];
- if ((next__CXIH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EXIH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__5IHH << 1)) <= 4096)) {
- next__CXIH=(void *)((unsigned long)result__EXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5IHH)));
- } else {
- next__CXIH=new_lab__RTJ(new_size__5IHH);
- };
- ((__POINTER *)next__CXIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__DXIH)[ 0]=next__CXIH;
- } else {
- ((__POINTER *)result__EXIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CXIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__EXIH=next__CXIH;
- };
- };
- ((__POINTER *)result__EXIH)[ 0]=((__POINTER ) 3);
- result__ZIHH=(void *)((unsigned long)result__EXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__ZIHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__2IHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__0NDB=((void **)result__ZIHH);
- Self__LUJC=(__INTEGER)(nb_elements__RX2 - 1);
- while ((Self__LUJC >= 0)) {
- Result__0NDB[Self__LUJC]=NULL;
- Self__LUJC=(__INTEGER)(Self__LUJC - 1);
- };
- return(Result__0NDB);
-}
-
-static void** create__PHRB(__INTEGER nb_elements__RHRB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__DJHH,a__CJHH,new_size__EJHH,new_size2__FJHH,a__GJHH;
- __UINTEGER_32 new_size__HJHH;
- __POINTER result__BJHH,ptr_table__IXIH,next__HXIH,result__JXIH;
- __INTEGER Self__LBNC;
- void **Result__ZGUB;
- sz__DJHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__RHRB * ((__INTEGER )(sizeof(void *)))));
- result__BJHH=((__POINTER )(NULL));
- a__CJHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__EJHH=(__UINTEGER_32)((__UINTEGER_32)(sz__DJHH + a__CJHH) & (__UINTEGER_32)(~ a__CJHH));
- new_size2__FJHH=(__UINTEGER_32)(new_size__EJHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__FJHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__GJHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HJHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__FJHH + a__GJHH) & (__UINTEGER_32)(~ a__GJHH));
- ptr_table__IXIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HJHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__HXIH=((__POINTER )(NULL));
- result__JXIH=((__POINTER *)ptr_table__IXIH)[ 0];
- if ((result__JXIH == (void *)NULL)) {
- result__JXIH=new_lab__RTJ(new_size__HJHH);
- next__HXIH=(void *)((unsigned long)result__JXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HJHH)));
- ((__POINTER *)next__HXIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__IXIH)[ 0]=next__HXIH;
- } else {
- next__HXIH=((__POINTER *)result__JXIH)[ 0];
- if ((next__HXIH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JXIH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__HJHH << 1)) <= 4096)) {
- next__HXIH=(void *)((unsigned long)result__JXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HJHH)));
- } else {
- next__HXIH=new_lab__RTJ(new_size__HJHH);
- };
- ((__POINTER *)next__HXIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__IXIH)[ 0]=next__HXIH;
- } else {
- ((__POINTER *)result__JXIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HXIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__JXIH=next__HXIH;
- };
- };
- ((__POINTER *)result__JXIH)[ 0]=((__POINTER ) 3);
- result__BJHH=(void *)((unsigned long)result__JXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__BJHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__EJHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__ZGUB=((void **)result__BJHH);
- Self__LBNC=(__INTEGER)(nb_elements__RHRB - 1);
- while ((Self__LBNC >= 0)) {
- Result__ZGUB[Self__LBNC]=NULL;
- Self__LBNC=(__INTEGER)(Self__LBNC - 1);
- };
- return(Result__ZGUB);
-}
-
-static __FAST_ARRAYoITM_TYPE_MONOo* create_with_capacity__EGR(__INTEGER new_count__GGR)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __POINTER ptr__CMR,ptr_table__NXIH,next__MXIH,result__OXIH;
- __POINTER ptr_table__SXIH,next__RXIH,result__TXIH;
- __INTEGER typ_id__HMR;
- __UINTEGER_32 sz__EMR,a__FCFH,new_size__GCFH,t__KCFH,a__JCFH;
- __UINTEGER_32 new_size__VXIH,lab_type__UXIH;
- __FAST_ARRAYoITM_TYPE_MONOo *result__BMR,*Self__TJW;
- result__BMR=NULL;
- ptr__CMR=((__POINTER )(NULL));
- typ_id__HMR= 0;
- sz__EMR=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_TYPE_MONOo));
- if ((sz__EMR == 0)) {
- result__BMR=FAST_ARRAYoITM_TYPE_MONOo__;
- } else {
- typ_id__HMR=__FAST_ARRAYoITM_TYPE_MONOo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__EMR);
- if ((typ_id__HMR == (__INTEGER)(- 1))) {
- a__FCFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__GCFH=(__UINTEGER_32)((__UINTEGER_32)(sz__EMR + a__FCFH) & (__UINTEGER_32)(~ a__FCFH));
- ptr_table__NXIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GCFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__MXIH=((__POINTER )(NULL));
- result__OXIH=((__POINTER *)ptr_table__NXIH)[ 0];
- if ((result__OXIH == (void *)NULL)) {
- result__OXIH=new_lab__RTJ(new_size__GCFH);
- next__MXIH=(void *)((unsigned long)result__OXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GCFH)));
- ((__POINTER *)next__MXIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__NXIH)[ 0]=next__MXIH;
- } else {
- next__MXIH=((__POINTER *)result__OXIH)[ 0];
- if ((next__MXIH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OXIH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__GCFH << 1)) <= 4096)) {
- next__MXIH=(void *)((unsigned long)result__OXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GCFH)));
- } else {
- next__MXIH=new_lab__RTJ(new_size__GCFH);
- };
- ((__POINTER *)next__MXIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__NXIH)[ 0]=next__MXIH;
- } else {
- ((__POINTER *)result__OXIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MXIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__OXIH=next__MXIH;
- };
- };
- ptr__CMR=result__OXIH;
- } else {
- t__KCFH=((__UINTEGER_32 )typ_id__HMR);
- a__JCFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__VXIH=(__UINTEGER_32)((__UINTEGER_32)(sz__EMR + a__JCFH) & (__UINTEGER_32)(~ a__JCFH));
- ptr_table__SXIH=((__POINTER )(&(table_type[(t__KCFH)])));
- lab_type__UXIH=(__UINTEGER_32)(t__KCFH | 1);
- next__RXIH=((__POINTER )(NULL));
- result__TXIH=((__POINTER *)ptr_table__SXIH)[ 0];
- if ((result__TXIH == (void *)NULL)) {
- result__TXIH=new_lab__RTJ(lab_type__UXIH);
- next__RXIH=(void *)((unsigned long)result__TXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VXIH)));
- ((__POINTER *)next__RXIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__SXIH)[ 0]=next__RXIH;
- } else {
- next__RXIH=((__POINTER *)result__TXIH)[ 0];
- if ((next__RXIH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TXIH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__VXIH << 1)) <= 4096)) {
- next__RXIH=(void *)((unsigned long)result__TXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VXIH)));
- } else {
- next__RXIH=new_lab__RTJ(lab_type__UXIH);
- };
- ((__POINTER *)next__RXIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__SXIH)[ 0]=next__RXIH;
- } else {
- ((__POINTER *)result__TXIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RXIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__TXIH=next__RXIH;
- };
- };
- ptr__CMR=result__TXIH;
- };
- result__BMR=((__FAST_ARRAYoITM_TYPE_MONOo *)ptr__CMR);
- *(result__BMR) = *(FAST_ARRAYoITM_TYPE_MONOo__);
- };
- Self__TJW=((__FAST_ARRAYoITM_TYPE_MONOo *)result__BMR);
- if ((Self__TJW->parent_arrayed_collection__SYC.capacity__TNV < new_count__GGR)) {
- Self__TJW->parent_arrayed_collection__SYC.storage__FMV=create__W5QB(new_count__GGR);
- Self__TJW->parent_arrayed_collection__SYC.capacity__TNV=new_count__GGR;
- };
- Self__TJW->parent_arrayed_collection__SYC.upper__4HV=(__INTEGER)(- 1);
- return(result__BMR);
-}
-
-static void** create__SWBB(__INTEGER nb_elements__UWBB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__LJHH,a__KJHH,new_size__MJHH,new_size2__NJHH,a__OJHH;
- __UINTEGER_32 new_size__PJHH;
- __POINTER result__JJHH,ptr_table__XXIH,next__WXIH,result__YXIH;
- __INTEGER Self__3LKC;
- void **Result__AVIB;
- sz__LJHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__UWBB * ((__INTEGER )(sizeof(void *)))));
- result__JJHH=((__POINTER )(NULL));
- a__KJHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__MJHH=(__UINTEGER_32)((__UINTEGER_32)(sz__LJHH + a__KJHH) & (__UINTEGER_32)(~ a__KJHH));
- new_size2__NJHH=(__UINTEGER_32)(new_size__MJHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__NJHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__OJHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__PJHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__NJHH + a__OJHH) & (__UINTEGER_32)(~ a__OJHH));
- ptr_table__XXIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PJHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__WXIH=((__POINTER )(NULL));
- result__YXIH=((__POINTER *)ptr_table__XXIH)[ 0];
- if ((result__YXIH == (void *)NULL)) {
- result__YXIH=new_lab__RTJ(new_size__PJHH);
- next__WXIH=(void *)((unsigned long)result__YXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PJHH)));
- ((__POINTER *)next__WXIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__XXIH)[ 0]=next__WXIH;
- } else {
- next__WXIH=((__POINTER *)result__YXIH)[ 0];
- if ((next__WXIH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YXIH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__PJHH << 1)) <= 4096)) {
- next__WXIH=(void *)((unsigned long)result__YXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PJHH)));
- } else {
- next__WXIH=new_lab__RTJ(new_size__PJHH);
- };
- ((__POINTER *)next__WXIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__XXIH)[ 0]=next__WXIH;
- } else {
- ((__POINTER *)result__YXIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WXIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__YXIH=next__WXIH;
- };
- };
- ((__POINTER *)result__YXIH)[ 0]=((__POINTER ) 3);
- result__JJHH=(void *)((unsigned long)result__YXIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__JJHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__MJHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__AVIB=((void **)result__JJHH);
- Self__3LKC=(__INTEGER)(nb_elements__UWBB - 1);
- while ((Self__3LKC >= 0)) {
- Result__AVIB[Self__3LKC]=NULL;
- Self__3LKC=(__INTEGER)(Self__3LKC - 1);
- };
- return(Result__AVIB);
-}
-
-static void** create__PJXB(__INTEGER nb_elements__RJXB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__TJHH,a__SJHH,new_size__UJHH,new_size2__VJHH,a__WJHH;
- __UINTEGER_32 new_size__XJHH;
- __POINTER result__RJHH,ptr_table__2XIH,next__1XIH,result__3XIH;
- __INTEGER Self__KZOC;
- void **Result__CV0B;
- sz__TJHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__RJXB * ((__INTEGER )(sizeof(void *)))));
- result__RJHH=((__POINTER )(NULL));
- a__SJHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__UJHH=(__UINTEGER_32)((__UINTEGER_32)(sz__TJHH + a__SJHH) & (__UINTEGER_32)(~ a__SJHH));
- new_size2__VJHH=(__UINTEGER_32)(new_size__UJHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__VJHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__WJHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__XJHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__VJHH + a__WJHH) & (__UINTEGER_32)(~ a__WJHH));
- ptr_table__2XIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XJHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__1XIH=((__POINTER )(NULL));
- result__3XIH=((__POINTER *)ptr_table__2XIH)[ 0];
- if ((result__3XIH == (void *)NULL)) {
- result__3XIH=new_lab__RTJ(new_size__XJHH);
- next__1XIH=(void *)((unsigned long)result__3XIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XJHH)));
- ((__POINTER *)next__1XIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__2XIH)[ 0]=next__1XIH;
- } else {
- next__1XIH=((__POINTER *)result__3XIH)[ 0];
- if ((next__1XIH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3XIH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__XJHH << 1)) <= 4096)) {
- next__1XIH=(void *)((unsigned long)result__3XIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XJHH)));
- } else {
- next__1XIH=new_lab__RTJ(new_size__XJHH);
- };
- ((__POINTER *)next__1XIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__2XIH)[ 0]=next__1XIH;
- } else {
- ((__POINTER *)result__3XIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1XIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__3XIH=next__1XIH;
- };
- };
- ((__POINTER *)result__3XIH)[ 0]=((__POINTER ) 3);
- result__RJHH=(void *)((unsigned long)result__3XIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__RJHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__UJHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__CV0B=((void **)result__RJHH);
- Self__KZOC=(__INTEGER)(nb_elements__RJXB - 1);
- while ((Self__KZOC >= 0)) {
- Result__CV0B[Self__KZOC]=NULL;
- Self__KZOC=(__INTEGER)(Self__KZOC - 1);
- };
- return(Result__CV0B);
-}
-
-static void** create__KSWB(__INTEGER nb_elements__MSWB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__1JHH,a__0JHH,new_size__2JHH,new_size2__3JHH,a__4JHH;
- __UINTEGER_32 new_size__5JHH;
- __POINTER result__ZJHH,ptr_table__BYIH,next__AYIH,result__CYIH;
- __INTEGER Self__DYOC;
- void **Result__LH0B;
- sz__1JHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__MSWB * ((__INTEGER )(sizeof(void *)))));
- result__ZJHH=((__POINTER )(NULL));
- a__0JHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__2JHH=(__UINTEGER_32)((__UINTEGER_32)(sz__1JHH + a__0JHH) & (__UINTEGER_32)(~ a__0JHH));
- new_size2__3JHH=(__UINTEGER_32)(new_size__2JHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__3JHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__4JHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5JHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__3JHH + a__4JHH) & (__UINTEGER_32)(~ a__4JHH));
- ptr_table__BYIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5JHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__AYIH=((__POINTER )(NULL));
- result__CYIH=((__POINTER *)ptr_table__BYIH)[ 0];
- if ((result__CYIH == (void *)NULL)) {
- result__CYIH=new_lab__RTJ(new_size__5JHH);
- next__AYIH=(void *)((unsigned long)result__CYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5JHH)));
- ((__POINTER *)next__AYIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__BYIH)[ 0]=next__AYIH;
- } else {
- next__AYIH=((__POINTER *)result__CYIH)[ 0];
- if ((next__AYIH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CYIH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__5JHH << 1)) <= 4096)) {
- next__AYIH=(void *)((unsigned long)result__CYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5JHH)));
- } else {
- next__AYIH=new_lab__RTJ(new_size__5JHH);
- };
- ((__POINTER *)next__AYIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__BYIH)[ 0]=next__AYIH;
- } else {
- ((__POINTER *)result__CYIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__AYIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__CYIH=next__AYIH;
- };
- };
- ((__POINTER *)result__CYIH)[ 0]=((__POINTER ) 3);
- result__ZJHH=(void *)((unsigned long)result__CYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__ZJHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__2JHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__LH0B=((void **)result__ZJHH);
- Self__DYOC=(__INTEGER)(nb_elements__MSWB - 1);
- while ((Self__DYOC >= 0)) {
- Result__LH0B[Self__DYOC]=NULL;
- Self__DYOC=(__INTEGER)(Self__DYOC - 1);
- };
- return(Result__LH0B);
-}
-
-static void** create__JQXB(__INTEGER nb_elements__LQXB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__DKHH,a__CKHH,new_size__EKHH,new_size2__FKHH,a__GKHH;
- __UINTEGER_32 new_size__HKHH;
- __POINTER result__BKHH,ptr_table__GYIH,next__FYIH,result__HYIH;
- __INTEGER Self__R0OC;
- void **Result__Y20B;
- sz__DKHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__LQXB * ((__INTEGER )(sizeof(void *)))));
- result__BKHH=((__POINTER )(NULL));
- a__CKHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__EKHH=(__UINTEGER_32)((__UINTEGER_32)(sz__DKHH + a__CKHH) & (__UINTEGER_32)(~ a__CKHH));
- new_size2__FKHH=(__UINTEGER_32)(new_size__EKHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__FKHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__GKHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HKHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__FKHH + a__GKHH) & (__UINTEGER_32)(~ a__GKHH));
- ptr_table__GYIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HKHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__FYIH=((__POINTER )(NULL));
- result__HYIH=((__POINTER *)ptr_table__GYIH)[ 0];
- if ((result__HYIH == (void *)NULL)) {
- result__HYIH=new_lab__RTJ(new_size__HKHH);
- next__FYIH=(void *)((unsigned long)result__HYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HKHH)));
- ((__POINTER *)next__FYIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__GYIH)[ 0]=next__FYIH;
- } else {
- next__FYIH=((__POINTER *)result__HYIH)[ 0];
- if ((next__FYIH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HYIH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__HKHH << 1)) <= 4096)) {
- next__FYIH=(void *)((unsigned long)result__HYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HKHH)));
- } else {
- next__FYIH=new_lab__RTJ(new_size__HKHH);
- };
- ((__POINTER *)next__FYIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__GYIH)[ 0]=next__FYIH;
- } else {
- ((__POINTER *)result__HYIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FYIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__HYIH=next__FYIH;
- };
- };
- ((__POINTER *)result__HYIH)[ 0]=((__POINTER ) 3);
- result__BKHH=(void *)((unsigned long)result__HYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__BKHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__EKHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__Y20B=((void **)result__BKHH);
- Self__R0OC=(__INTEGER)(nb_elements__LQXB - 1);
- while ((Self__R0OC >= 0)) {
- Result__Y20B[Self__R0OC]=NULL;
- Self__R0OC=(__INTEGER)(Self__R0OC - 1);
- };
- return(Result__Y20B);
-}
-
-static void** create__OG5(__INTEGER nb_elements__QG5)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__LKHH,a__KKHH,new_size__MKHH,new_size2__NKHH,a__OKHH;
- __UINTEGER_32 new_size__PKHH;
- __POINTER result__JKHH,ptr_table__LYIH,next__KYIH,result__MYIH;
- __INTEGER Self__GAKC;
- void **Result__Y4FB;
- sz__LKHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__QG5 * ((__INTEGER )(sizeof(void *)))));
- result__JKHH=((__POINTER )(NULL));
- a__KKHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__MKHH=(__UINTEGER_32)((__UINTEGER_32)(sz__LKHH + a__KKHH) & (__UINTEGER_32)(~ a__KKHH));
- new_size2__NKHH=(__UINTEGER_32)(new_size__MKHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__NKHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__OKHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__PKHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__NKHH + a__OKHH) & (__UINTEGER_32)(~ a__OKHH));
- ptr_table__LYIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PKHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__KYIH=((__POINTER )(NULL));
- result__MYIH=((__POINTER *)ptr_table__LYIH)[ 0];
- if ((result__MYIH == (void *)NULL)) {
- result__MYIH=new_lab__RTJ(new_size__PKHH);
- next__KYIH=(void *)((unsigned long)result__MYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PKHH)));
- ((__POINTER *)next__KYIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__LYIH)[ 0]=next__KYIH;
- } else {
- next__KYIH=((__POINTER *)result__MYIH)[ 0];
- if ((next__KYIH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MYIH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__PKHH << 1)) <= 4096)) {
- next__KYIH=(void *)((unsigned long)result__MYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PKHH)));
- } else {
- next__KYIH=new_lab__RTJ(new_size__PKHH);
- };
- ((__POINTER *)next__KYIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__LYIH)[ 0]=next__KYIH;
- } else {
- ((__POINTER *)result__MYIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KYIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__MYIH=next__KYIH;
- };
- };
- ((__POINTER *)result__MYIH)[ 0]=((__POINTER ) 3);
- result__JKHH=(void *)((unsigned long)result__MYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__JKHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__MKHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__Y4FB=((void **)result__JKHH);
- Self__GAKC=(__INTEGER)(nb_elements__QG5 - 1);
- while ((Self__GAKC >= 0)) {
- Result__Y4FB[Self__GAKC]=NULL;
- Self__GAKC=(__INTEGER)(Self__GAKC - 1);
- };
- return(Result__Y4FB);
-}
-
-static void fast_put__to__JPZ(__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *Self__KPZ,void *v__LPZ,void *k__MPZ)
-// ({HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo},{ITM_TYPE_PARAMETERxITM_TYPE_SIMPLE},{NULLxSTRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
- __INTEGER h__TPZ,idx__UPZ,idx__WATB,new_capacity__XATB,i__YATB;
- __INTEGER typ_id__FDTB;
- __POINTER ptr__ADTB,ptr_table__QYIH,next__PYIH,result__RYIH;
- __POINTER ptr_table__VYIH,next__UYIH,result__WYIH;
- __UINTEGER_32 sz__CDTB,a__NOFH,new_size__OOFH,t__SOFH,a__ROFH;
- __UINTEGER_32 new_size__YYIH,lab_type__XYIH;
- void *node__VPZ,*node1__0ATB,*node2__1ATB,*__tmp__CRZ;
- void **old_buckets__ZATB;
- __HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *result__5CTB;
- __HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *Self__WWEC;
- h__TPZ=hash_code__RNW(k__MPZ);
- idx__UPZ=(__INTEGER)(h__TPZ % Self__KPZ->capacity__A4T);
- node__VPZ=((void **)Self__KPZ->buckets__F4T)[idx__UPZ];
- while ((! (((void *)node__VPZ == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node__VPZ)->key__R4T == (void *)k__MPZ)))) {
- node__VPZ=((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node__VPZ)->next__24T;
- };
- if (((void *)node__VPZ == (void *)NULL)) {
- if ((Self__KPZ->capacity__A4T == Self__KPZ->count__CGZ)) {
- idx__WATB= 0;
- node1__0ATB=NULL;
- node2__1ATB=NULL;
- old_buckets__ZATB=Self__KPZ->buckets__F4T;
- new_capacity__XATB=prime_number_ceiling__021((__INTEGER)(Self__KPZ->capacity__A4T + 1));
- Self__KPZ->buckets__F4T=create__OG5(new_capacity__XATB);
- i__YATB=(__INTEGER)(Self__KPZ->capacity__A4T - 1);
- Self__KPZ->capacity__A4T=new_capacity__XATB;
- while ((i__YATB >= 0)) {
- node1__0ATB=((void **)old_buckets__ZATB)[i__YATB];
- while (((void *)node1__0ATB != (void *)NULL)) {
- node2__1ATB=((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node1__0ATB)->next__24T;
- idx__WATB=(__INTEGER)(hash_code__RNW(((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node1__0ATB)->key__R4T) % Self__KPZ->capacity__A4T);
- ((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node1__0ATB)->next__24T=((void **)Self__KPZ->buckets__F4T)[idx__WATB];
- ((void **)Self__KPZ->buckets__F4T)[idx__WATB]=node1__0ATB;
- node1__0ATB=node2__1ATB;
- };
- i__YATB=(__INTEGER)(i__YATB - 1);
- };
- idx__UPZ=(__INTEGER)(h__TPZ % Self__KPZ->capacity__A4T);
- };
- __tmp__CRZ=((void **)Self__KPZ->buckets__F4T)[idx__UPZ];
- result__5CTB=NULL;
- ptr__ADTB=((__POINTER )(NULL));
- typ_id__FDTB= 0;
- sz__CDTB=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo));
- if ((sz__CDTB == 0)) {
- result__5CTB=HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo__;
- } else {
- typ_id__FDTB=__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__CDTB);
- if ((typ_id__FDTB == (__INTEGER)(- 1))) {
- a__NOFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__OOFH=(__UINTEGER_32)((__UINTEGER_32)(sz__CDTB + a__NOFH) & (__UINTEGER_32)(~ a__NOFH));
- ptr_table__QYIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__OOFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__PYIH=((__POINTER )(NULL));
- result__RYIH=((__POINTER *)ptr_table__QYIH)[ 0];
- if ((result__RYIH == (void *)NULL)) {
- result__RYIH=new_lab__RTJ(new_size__OOFH);
- next__PYIH=(void *)((unsigned long)result__RYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OOFH)));
- ((__POINTER *)next__PYIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__QYIH)[ 0]=next__PYIH;
- } else {
- next__PYIH=((__POINTER *)result__RYIH)[ 0];
- if ((next__PYIH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RYIH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__OOFH << 1)) <= 4096)) {
- next__PYIH=(void *)((unsigned long)result__RYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OOFH)));
- } else {
- next__PYIH=new_lab__RTJ(new_size__OOFH);
- };
- ((__POINTER *)next__PYIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__QYIH)[ 0]=next__PYIH;
- } else {
- ((__POINTER *)result__RYIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PYIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__RYIH=next__PYIH;
- };
- };
- ptr__ADTB=result__RYIH;
- } else {
- t__SOFH=((__UINTEGER_32 )typ_id__FDTB);
- a__ROFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__YYIH=(__UINTEGER_32)((__UINTEGER_32)(sz__CDTB + a__ROFH) & (__UINTEGER_32)(~ a__ROFH));
- ptr_table__VYIH=((__POINTER )(&(table_type[(t__SOFH)])));
- lab_type__XYIH=(__UINTEGER_32)(t__SOFH | 1);
- next__UYIH=((__POINTER )(NULL));
- result__WYIH=((__POINTER *)ptr_table__VYIH)[ 0];
- if ((result__WYIH == (void *)NULL)) {
- result__WYIH=new_lab__RTJ(lab_type__XYIH);
- next__UYIH=(void *)((unsigned long)result__WYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YYIH)));
- ((__POINTER *)next__UYIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__VYIH)[ 0]=next__UYIH;
- } else {
- next__UYIH=((__POINTER *)result__WYIH)[ 0];
- if ((next__UYIH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WYIH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__YYIH << 1)) <= 4096)) {
- next__UYIH=(void *)((unsigned long)result__WYIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YYIH)));
- } else {
- next__UYIH=new_lab__RTJ(lab_type__XYIH);
- };
- ((__POINTER *)next__UYIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__VYIH)[ 0]=next__UYIH;
- } else {
- ((__POINTER *)result__WYIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UYIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__WYIH=next__UYIH;
- };
- };
- ptr__ADTB=result__WYIH;
- };
- result__5CTB=((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)ptr__ADTB);
- *(result__5CTB) = *(HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo__);
- };
- Self__WWEC=((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)result__5CTB);
- Self__WWEC->item__E5T=v__LPZ;
- Self__WWEC->key__R4T=k__MPZ;
- Self__WWEC->next__24T=__tmp__CRZ;
- node__VPZ=result__5CTB;
- ((void **)Self__KPZ->buckets__F4T)[idx__UPZ]=result__5CTB;
- Self__KPZ->count__CGZ=(__INTEGER)(Self__KPZ->count__CGZ + 1);
- } else {
- ((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node__VPZ)->item__E5T=v__LPZ;
- };
-}
-
-static void** create__VFYB(__INTEGER nb_elements__XFYB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__TKHH,a__SKHH,new_size__UKHH,new_size2__VKHH,a__WKHH;
- __UINTEGER_32 new_size__XKHH;
- __POINTER result__RKHH,ptr_table__0YIH,next__ZYIH,result__1YIH;
- __INTEGER Self__Y1OC;
- void **Result__WG1B;
- sz__TKHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__XFYB * ((__INTEGER )(sizeof(void *)))));
- result__RKHH=((__POINTER )(NULL));
- a__SKHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__UKHH=(__UINTEGER_32)((__UINTEGER_32)(sz__TKHH + a__SKHH) & (__UINTEGER_32)(~ a__SKHH));
- new_size2__VKHH=(__UINTEGER_32)(new_size__UKHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__VKHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__WKHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__XKHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__VKHH + a__WKHH) & (__UINTEGER_32)(~ a__WKHH));
- ptr_table__0YIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XKHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__ZYIH=((__POINTER )(NULL));
- result__1YIH=((__POINTER *)ptr_table__0YIH)[ 0];
- if ((result__1YIH == (void *)NULL)) {
- result__1YIH=new_lab__RTJ(new_size__XKHH);
- next__ZYIH=(void *)((unsigned long)result__1YIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XKHH)));
- ((__POINTER *)next__ZYIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__0YIH)[ 0]=next__ZYIH;
- } else {
- next__ZYIH=((__POINTER *)result__1YIH)[ 0];
- if ((next__ZYIH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1YIH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__XKHH << 1)) <= 4096)) {
- next__ZYIH=(void *)((unsigned long)result__1YIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XKHH)));
- } else {
- next__ZYIH=new_lab__RTJ(new_size__XKHH);
- };
- ((__POINTER *)next__ZYIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__0YIH)[ 0]=next__ZYIH;
- } else {
- ((__POINTER *)result__1YIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZYIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__1YIH=next__ZYIH;
- };
- };
- ((__POINTER *)result__1YIH)[ 0]=((__POINTER ) 3);
- result__RKHH=(void *)((unsigned long)result__1YIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__RKHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__UKHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__WG1B=((void **)result__RKHH);
- Self__Y1OC=(__INTEGER)(nb_elements__XFYB - 1);
- while ((Self__Y1OC >= 0)) {
- Result__WG1B[Self__Y1OC]=NULL;
- Self__Y1OC=(__INTEGER)(Self__Y1OC - 1);
- };
- return(Result__WG1B);
-}
-
-static void* get__IVI(void *n__KVI)
-// ({NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
- void *result__SVI;
- __ITM_TYPE_SIMPLE *result__2NL,*Self__DTU;
- __POINTER ptr__3NL,ptr_table__5YIH,next__4YIH,result__AZIH;
- __POINTER ptr_table__EZIH,next__DZIH,result__FZIH;
- __INTEGER typ_id__COL;
- __UINTEGER_32 sz__5NL,a__VCFH,new_size__WCFH,t__0CFH,a__ZCFH;
- __UINTEGER_32 new_size__HZIH,lab_type__GZIH;
- result__SVI=fast_reference_at__R3T(dico__XVI,n__KVI);
- if (((void *)result__SVI == (void *)NULL)) {
- result__2NL=NULL;
- ptr__3NL=((__POINTER )(NULL));
- typ_id__COL= 0;
- sz__5NL=((__UINTEGER_32 )sizeof(__ITM_TYPE_SIMPLE));
- if ((sz__5NL == 0)) {
- result__2NL=ITM_TYPE_SIMPLE__;
- } else {
- typ_id__COL=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__5NL);
- if ((typ_id__COL == (__INTEGER)(- 1))) {
- a__VCFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__WCFH=(__UINTEGER_32)((__UINTEGER_32)(sz__5NL + a__VCFH) & (__UINTEGER_32)(~ a__VCFH));
- ptr_table__5YIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WCFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__4YIH=((__POINTER )(NULL));
- result__AZIH=((__POINTER *)ptr_table__5YIH)[ 0];
- if ((result__AZIH == (void *)NULL)) {
- result__AZIH=new_lab__RTJ(new_size__WCFH);
- next__4YIH=(void *)((unsigned long)result__AZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WCFH)));
- ((__POINTER *)next__4YIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__5YIH)[ 0]=next__4YIH;
- } else {
- next__4YIH=((__POINTER *)result__AZIH)[ 0];
- if ((next__4YIH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__AZIH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__WCFH << 1)) <= 4096)) {
- next__4YIH=(void *)((unsigned long)result__AZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WCFH)));
- } else {
- next__4YIH=new_lab__RTJ(new_size__WCFH);
- };
- ((__POINTER *)next__4YIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__5YIH)[ 0]=next__4YIH;
- } else {
- ((__POINTER *)result__AZIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4YIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__AZIH=next__4YIH;
- };
- };
- ptr__3NL=result__AZIH;
- } else {
- t__0CFH=((__UINTEGER_32 )typ_id__COL);
- a__ZCFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HZIH=(__UINTEGER_32)((__UINTEGER_32)(sz__5NL + a__ZCFH) & (__UINTEGER_32)(~ a__ZCFH));
- ptr_table__EZIH=((__POINTER )(&(table_type[(t__0CFH)])));
- lab_type__GZIH=(__UINTEGER_32)(t__0CFH | 1);
- next__DZIH=((__POINTER )(NULL));
- result__FZIH=((__POINTER *)ptr_table__EZIH)[ 0];
- if ((result__FZIH == (void *)NULL)) {
- result__FZIH=new_lab__RTJ(lab_type__GZIH);
- next__DZIH=(void *)((unsigned long)result__FZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HZIH)));
- ((__POINTER *)next__DZIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__EZIH)[ 0]=next__DZIH;
- } else {
- next__DZIH=((__POINTER *)result__FZIH)[ 0];
- if ((next__DZIH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FZIH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__HZIH << 1)) <= 4096)) {
- next__DZIH=(void *)((unsigned long)result__FZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HZIH)));
- } else {
- next__DZIH=new_lab__RTJ(lab_type__GZIH);
- };
- ((__POINTER *)next__DZIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__EZIH)[ 0]=next__DZIH;
- } else {
- ((__POINTER *)result__FZIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DZIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__FZIH=next__DZIH;
- };
- };
- ptr__3NL=result__FZIH;
- };
- result__2NL=((__ITM_TYPE_SIMPLE *)ptr__3NL);
- *(result__2NL) = *(ITM_TYPE_SIMPLE__);
- };
- Self__DTU=((__ITM_TYPE_SIMPLE *)result__2NL);
- Self__DTU->name__GZP=n__KVI;
- fast_put__to__JPZ(dico__XVI,Self__DTU,n__KVI);
- result__SVI=result__2NL;
- };
- return(result__SVI);
-}
-
-static void** create__NFQB(__INTEGER nb_elements__PFQB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__1KHH,a__0KHH,new_size__2KHH,new_size2__3KHH,a__4KHH;
- __UINTEGER_32 new_size__5KHH;
- __POINTER result__ZKHH,ptr_table__JZIH,next__IZIH,result__KZIH;
- __INTEGER Self__3WMC;
- void **Result__W4SB;
- sz__1KHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__PFQB * ((__INTEGER )(sizeof(void *)))));
- result__ZKHH=((__POINTER )(NULL));
- a__0KHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__2KHH=(__UINTEGER_32)((__UINTEGER_32)(sz__1KHH + a__0KHH) & (__UINTEGER_32)(~ a__0KHH));
- new_size2__3KHH=(__UINTEGER_32)(new_size__2KHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__3KHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__4KHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5KHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__3KHH + a__4KHH) & (__UINTEGER_32)(~ a__4KHH));
- ptr_table__JZIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5KHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__IZIH=((__POINTER )(NULL));
- result__KZIH=((__POINTER *)ptr_table__JZIH)[ 0];
- if ((result__KZIH == (void *)NULL)) {
- result__KZIH=new_lab__RTJ(new_size__5KHH);
- next__IZIH=(void *)((unsigned long)result__KZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5KHH)));
- ((__POINTER *)next__IZIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__JZIH)[ 0]=next__IZIH;
- } else {
- next__IZIH=((__POINTER *)result__KZIH)[ 0];
- if ((next__IZIH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KZIH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__5KHH << 1)) <= 4096)) {
- next__IZIH=(void *)((unsigned long)result__KZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5KHH)));
- } else {
- next__IZIH=new_lab__RTJ(new_size__5KHH);
- };
- ((__POINTER *)next__IZIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__JZIH)[ 0]=next__IZIH;
- } else {
- ((__POINTER *)result__KZIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__IZIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__KZIH=next__IZIH;
- };
- };
- ((__POINTER *)result__KZIH)[ 0]=((__POINTER ) 3);
- result__ZKHH=(void *)((unsigned long)result__KZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__ZKHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__2KHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__W4SB=((void **)result__ZKHH);
- Self__3WMC=(__INTEGER)(nb_elements__PFQB - 1);
- while ((Self__3WMC >= 0)) {
- Result__W4SB[Self__3WMC]=NULL;
- Self__3WMC=(__INTEGER)(Self__3WMC - 1);
- };
- return(Result__W4SB);
-}
-
-static void** create__3ZPB(__INTEGER nb_elements__5ZPB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__DLHH,a__CLHH,new_size__ELHH,new_size2__FLHH,a__GLHH;
- __UINTEGER_32 new_size__HLHH;
- __POINTER result__BLHH,ptr_table__OZIH,next__NZIH,result__PZIH;
- __INTEGER Self__WVMC;
- void **Result__LWSB;
- sz__DLHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__5ZPB * ((__INTEGER )(sizeof(void *)))));
- result__BLHH=((__POINTER )(NULL));
- a__CLHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ELHH=(__UINTEGER_32)((__UINTEGER_32)(sz__DLHH + a__CLHH) & (__UINTEGER_32)(~ a__CLHH));
- new_size2__FLHH=(__UINTEGER_32)(new_size__ELHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__FLHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__GLHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HLHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__FLHH + a__GLHH) & (__UINTEGER_32)(~ a__GLHH));
- ptr_table__OZIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HLHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__NZIH=((__POINTER )(NULL));
- result__PZIH=((__POINTER *)ptr_table__OZIH)[ 0];
- if ((result__PZIH == (void *)NULL)) {
- result__PZIH=new_lab__RTJ(new_size__HLHH);
- next__NZIH=(void *)((unsigned long)result__PZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HLHH)));
- ((__POINTER *)next__NZIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__OZIH)[ 0]=next__NZIH;
- } else {
- next__NZIH=((__POINTER *)result__PZIH)[ 0];
- if ((next__NZIH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PZIH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__HLHH << 1)) <= 4096)) {
- next__NZIH=(void *)((unsigned long)result__PZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HLHH)));
- } else {
- next__NZIH=new_lab__RTJ(new_size__HLHH);
- };
- ((__POINTER *)next__NZIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__OZIH)[ 0]=next__NZIH;
- } else {
- ((__POINTER *)result__PZIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NZIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__PZIH=next__NZIH;
- };
- };
- ((__POINTER *)result__PZIH)[ 0]=((__POINTER ) 3);
- result__BLHH=(void *)((unsigned long)result__PZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__BLHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__ELHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__LWSB=((void **)result__BLHH);
- Self__WVMC=(__INTEGER)(nb_elements__5ZPB - 1);
- while ((Self__WVMC >= 0)) {
- Result__LWSB[Self__WVMC]=NULL;
- Self__WVMC=(__INTEGER)(Self__WVMC - 1);
- };
- return(Result__LWSB);
-}
-
-static void** create__Z1ZB(__INTEGER nb_elements__11ZB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__LLHH,a__KLHH,new_size__MLHH,new_size2__NLHH,a__OLHH;
- __UINTEGER_32 new_size__PLHH;
- __POINTER result__JLHH,ptr_table__TZIH,next__SZIH,result__UZIH;
- __INTEGER Self__E5OC;
- void **Result__RC2B;
- sz__LLHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__11ZB * ((__INTEGER )(sizeof(void *)))));
- result__JLHH=((__POINTER )(NULL));
- a__KLHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__MLHH=(__UINTEGER_32)((__UINTEGER_32)(sz__LLHH + a__KLHH) & (__UINTEGER_32)(~ a__KLHH));
- new_size2__NLHH=(__UINTEGER_32)(new_size__MLHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__NLHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__OLHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__PLHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__NLHH + a__OLHH) & (__UINTEGER_32)(~ a__OLHH));
- ptr_table__TZIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PLHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__SZIH=((__POINTER )(NULL));
- result__UZIH=((__POINTER *)ptr_table__TZIH)[ 0];
- if ((result__UZIH == (void *)NULL)) {
- result__UZIH=new_lab__RTJ(new_size__PLHH);
- next__SZIH=(void *)((unsigned long)result__UZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PLHH)));
- ((__POINTER *)next__SZIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__TZIH)[ 0]=next__SZIH;
- } else {
- next__SZIH=((__POINTER *)result__UZIH)[ 0];
- if ((next__SZIH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UZIH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__PLHH << 1)) <= 4096)) {
- next__SZIH=(void *)((unsigned long)result__UZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PLHH)));
- } else {
- next__SZIH=new_lab__RTJ(new_size__PLHH);
- };
- ((__POINTER *)next__SZIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__TZIH)[ 0]=next__SZIH;
- } else {
- ((__POINTER *)result__UZIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__SZIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__UZIH=next__SZIH;
- };
- };
- ((__POINTER *)result__UZIH)[ 0]=((__POINTER ) 3);
- result__JLHH=(void *)((unsigned long)result__UZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__JLHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__MLHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__RC2B=((void **)result__JLHH);
- Self__E5OC=(__INTEGER)(nb_elements__11ZB - 1);
- while ((Self__E5OC >= 0)) {
- Result__RC2B[Self__E5OC]=NULL;
- Self__E5OC=(__INTEGER)(Self__E5OC - 1);
- };
- return(Result__RC2B);
-}
-
-static __FAST_ARRAYoSTRING_CONSTANTo* create_with_capacity__THRC(__INTEGER new_count__VHRC)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __POINTER ptr__ZD1C,ptr_table__YZIH,next__XZIH,result__ZZIH;
- __POINTER ptr_table__3ZIH,next__2ZIH,result__4ZIH;
- __INTEGER typ_id__4D1C;
- __UINTEGER_32 sz__1D1C,a__3CFH,new_size__4CFH,t__CDFH,a__BDFH;
- __UINTEGER_32 new_size__A0IH,lab_type__5ZIH;
- __FAST_ARRAYoSTRING_CONSTANTo *result__YD1C,*Self__DBSD;
- result__YD1C=NULL;
- ptr__ZD1C=((__POINTER )(NULL));
- typ_id__4D1C= 0;
- sz__1D1C=((__UINTEGER_32 )sizeof(__FAST_ARRAYoSTRING_CONSTANTo));
- if ((sz__1D1C == 0)) {
- result__YD1C=FAST_ARRAYoSTRING_CONSTANTo__;
- } else {
- typ_id__4D1C=__FAST_ARRAYoSTRING_CONSTANTo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__1D1C);
- if ((typ_id__4D1C == (__INTEGER)(- 1))) {
- a__3CFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__4CFH=(__UINTEGER_32)((__UINTEGER_32)(sz__1D1C + a__3CFH) & (__UINTEGER_32)(~ a__3CFH));
- ptr_table__YZIH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4CFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__XZIH=((__POINTER )(NULL));
- result__ZZIH=((__POINTER *)ptr_table__YZIH)[ 0];
- if ((result__ZZIH == (void *)NULL)) {
- result__ZZIH=new_lab__RTJ(new_size__4CFH);
- next__XZIH=(void *)((unsigned long)result__ZZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4CFH)));
- ((__POINTER *)next__XZIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__YZIH)[ 0]=next__XZIH;
- } else {
- next__XZIH=((__POINTER *)result__ZZIH)[ 0];
- if ((next__XZIH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZZIH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__4CFH << 1)) <= 4096)) {
- next__XZIH=(void *)((unsigned long)result__ZZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4CFH)));
- } else {
- next__XZIH=new_lab__RTJ(new_size__4CFH);
- };
- ((__POINTER *)next__XZIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__YZIH)[ 0]=next__XZIH;
- } else {
- ((__POINTER *)result__ZZIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XZIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__ZZIH=next__XZIH;
- };
- };
- ptr__ZD1C=result__ZZIH;
- } else {
- t__CDFH=((__UINTEGER_32 )typ_id__4D1C);
- a__BDFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__A0IH=(__UINTEGER_32)((__UINTEGER_32)(sz__1D1C + a__BDFH) & (__UINTEGER_32)(~ a__BDFH));
- ptr_table__3ZIH=((__POINTER )(&(table_type[(t__CDFH)])));
- lab_type__5ZIH=(__UINTEGER_32)(t__CDFH | 1);
- next__2ZIH=((__POINTER )(NULL));
- result__4ZIH=((__POINTER *)ptr_table__3ZIH)[ 0];
- if ((result__4ZIH == (void *)NULL)) {
- result__4ZIH=new_lab__RTJ(lab_type__5ZIH);
- next__2ZIH=(void *)((unsigned long)result__4ZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A0IH)));
- ((__POINTER *)next__2ZIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__3ZIH)[ 0]=next__2ZIH;
- } else {
- next__2ZIH=((__POINTER *)result__4ZIH)[ 0];
- if ((next__2ZIH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4ZIH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__A0IH << 1)) <= 4096)) {
- next__2ZIH=(void *)((unsigned long)result__4ZIH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A0IH)));
- } else {
- next__2ZIH=new_lab__RTJ(lab_type__5ZIH);
- };
- ((__POINTER *)next__2ZIH)[ 0]=NULL;
- ((__POINTER *)ptr_table__3ZIH)[ 0]=next__2ZIH;
- } else {
- ((__POINTER *)result__4ZIH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2ZIH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__4ZIH=next__2ZIH;
- };
- };
- ptr__ZD1C=result__4ZIH;
- };
- result__YD1C=((__FAST_ARRAYoSTRING_CONSTANTo *)ptr__ZD1C);
- *(result__YD1C) = *(FAST_ARRAYoSTRING_CONSTANTo__);
- };
- Self__DBSD=((__FAST_ARRAYoSTRING_CONSTANTo *)result__YD1C);
- if ((Self__DBSD->parent_arrayed_collection__MBJ.capacity__XEPD < new_count__VHRC)) {
- Self__DBSD->parent_arrayed_collection__MBJ.storage__SFPD=create__QMHE(new_count__VHRC);
- Self__DBSD->parent_arrayed_collection__MBJ.capacity__XEPD=new_count__VHRC;
- };
- Self__DBSD->parent_arrayed_collection__MBJ.upper__2CPD=(__INTEGER)(- 1);
- return(result__YD1C);
-}
-
-static void** create__FNUF(__INTEGER nb_elements__HNUF)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__TLHH,a__SLHH,new_size__ULHH,new_size2__VLHH,a__WLHH;
- __UINTEGER_32 new_size__XLHH;
- __POINTER result__RLHH,ptr_table__C0IH,next__B0IH,result__D0IH;
- __INTEGER Self__5JAG;
- void **Result__P3YF;
- sz__TLHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__HNUF * ((__INTEGER )(sizeof(void *)))));
- result__RLHH=((__POINTER )(NULL));
- a__SLHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ULHH=(__UINTEGER_32)((__UINTEGER_32)(sz__TLHH + a__SLHH) & (__UINTEGER_32)(~ a__SLHH));
- new_size2__VLHH=(__UINTEGER_32)(new_size__ULHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__VLHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__WLHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__XLHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__VLHH + a__WLHH) & (__UINTEGER_32)(~ a__WLHH));
- ptr_table__C0IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XLHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__B0IH=((__POINTER )(NULL));
- result__D0IH=((__POINTER *)ptr_table__C0IH)[ 0];
- if ((result__D0IH == (void *)NULL)) {
- result__D0IH=new_lab__RTJ(new_size__XLHH);
- next__B0IH=(void *)((unsigned long)result__D0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XLHH)));
- ((__POINTER *)next__B0IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__C0IH)[ 0]=next__B0IH;
- } else {
- next__B0IH=((__POINTER *)result__D0IH)[ 0];
- if ((next__B0IH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__D0IH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__XLHH << 1)) <= 4096)) {
- next__B0IH=(void *)((unsigned long)result__D0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XLHH)));
- } else {
- next__B0IH=new_lab__RTJ(new_size__XLHH);
- };
- ((__POINTER *)next__B0IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__C0IH)[ 0]=next__B0IH;
- } else {
- ((__POINTER *)result__D0IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__B0IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__D0IH=next__B0IH;
- };
- };
- ((__POINTER *)result__D0IH)[ 0]=((__POINTER ) 3);
- result__RLHH=(void *)((unsigned long)result__D0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__RLHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__ULHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__P3YF=((void **)result__RLHH);
- Self__5JAG=(__INTEGER)(nb_elements__HNUF - 1);
- while ((Self__5JAG >= 0)) {
- Result__P3YF[Self__5JAG]=NULL;
- Self__5JAG=(__INTEGER)(Self__5JAG - 1);
- };
- return(Result__P3YF);
-}
-
-static void** create__JPGF(__INTEGER nb_elements__LPGF)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__1LHH,a__0LHH,new_size__2LHH,new_size2__3LHH,a__4LHH;
- __UINTEGER_32 new_size__5LHH;
- __POINTER result__ZLHH,ptr_table__H0IH,next__G0IH,result__I0IH;
- __INTEGER Self__ECRF;
- void **Result__CWKF;
- sz__1LHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__LPGF * ((__INTEGER )(sizeof(void *)))));
- result__ZLHH=((__POINTER )(NULL));
- a__0LHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__2LHH=(__UINTEGER_32)((__UINTEGER_32)(sz__1LHH + a__0LHH) & (__UINTEGER_32)(~ a__0LHH));
- new_size2__3LHH=(__UINTEGER_32)(new_size__2LHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__3LHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__4LHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5LHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__3LHH + a__4LHH) & (__UINTEGER_32)(~ a__4LHH));
- ptr_table__H0IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5LHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__G0IH=((__POINTER )(NULL));
- result__I0IH=((__POINTER *)ptr_table__H0IH)[ 0];
- if ((result__I0IH == (void *)NULL)) {
- result__I0IH=new_lab__RTJ(new_size__5LHH);
- next__G0IH=(void *)((unsigned long)result__I0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5LHH)));
- ((__POINTER *)next__G0IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__H0IH)[ 0]=next__G0IH;
- } else {
- next__G0IH=((__POINTER *)result__I0IH)[ 0];
- if ((next__G0IH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__I0IH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__5LHH << 1)) <= 4096)) {
- next__G0IH=(void *)((unsigned long)result__I0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5LHH)));
- } else {
- next__G0IH=new_lab__RTJ(new_size__5LHH);
- };
- ((__POINTER *)next__G0IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__H0IH)[ 0]=next__G0IH;
- } else {
- ((__POINTER *)result__I0IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__G0IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__I0IH=next__G0IH;
- };
- };
- ((__POINTER *)result__I0IH)[ 0]=((__POINTER ) 3);
- result__ZLHH=(void *)((unsigned long)result__I0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__ZLHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__2LHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__CWKF=((void **)result__ZLHH);
- Self__ECRF=(__INTEGER)(nb_elements__LPGF - 1);
- while ((Self__ECRF >= 0)) {
- Result__CWKF[Self__ECRF]=NULL;
- Self__ECRF=(__INTEGER)(Self__ECRF - 1);
- };
- return(Result__CWKF);
-}
-
-static void** create__ARYF(__INTEGER nb_elements__CRYF)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__DMHH,a__CMHH,new_size__EMHH,new_size2__FMHH,a__GMHH;
- __UINTEGER_32 new_size__HMHH;
- __POINTER result__BMHH,ptr_table__M0IH,next__L0IH,result__N0IH;
- __INTEGER Self__ZNAG;
- void **Result__GC1F;
- sz__DMHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__CRYF * ((__INTEGER )(sizeof(void *)))));
- result__BMHH=((__POINTER )(NULL));
- a__CMHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__EMHH=(__UINTEGER_32)((__UINTEGER_32)(sz__DMHH + a__CMHH) & (__UINTEGER_32)(~ a__CMHH));
- new_size2__FMHH=(__UINTEGER_32)(new_size__EMHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__FMHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__GMHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HMHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__FMHH + a__GMHH) & (__UINTEGER_32)(~ a__GMHH));
- ptr_table__M0IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HMHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__L0IH=((__POINTER )(NULL));
- result__N0IH=((__POINTER *)ptr_table__M0IH)[ 0];
- if ((result__N0IH == (void *)NULL)) {
- result__N0IH=new_lab__RTJ(new_size__HMHH);
- next__L0IH=(void *)((unsigned long)result__N0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HMHH)));
- ((__POINTER *)next__L0IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__M0IH)[ 0]=next__L0IH;
- } else {
- next__L0IH=((__POINTER *)result__N0IH)[ 0];
- if ((next__L0IH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__N0IH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__HMHH << 1)) <= 4096)) {
- next__L0IH=(void *)((unsigned long)result__N0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HMHH)));
- } else {
- next__L0IH=new_lab__RTJ(new_size__HMHH);
- };
- ((__POINTER *)next__L0IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__M0IH)[ 0]=next__L0IH;
- } else {
- ((__POINTER *)result__N0IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__L0IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__N0IH=next__L0IH;
- };
- };
- ((__POINTER *)result__N0IH)[ 0]=((__POINTER ) 3);
- result__BMHH=(void *)((unsigned long)result__N0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__BMHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__EMHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__GC1F=((void **)result__BMHH);
- Self__ZNAG=(__INTEGER)(nb_elements__CRYF - 1);
- while ((Self__ZNAG >= 0)) {
- Result__GC1F[Self__ZNAG]=NULL;
- Self__ZNAG=(__INTEGER)(Self__ZNAG - 1);
- };
- return(Result__GC1F);
-}
-
-static void** create__R2IE(__INTEGER nb_elements__T2IE)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__LLJB,a__FDFH,new_size__NLJB,new_size2__QLJB,a__JDFH;
- __UINTEGER_32 new_size__KDFH;
- __POINTER result__TLJB,ptr_table__R0IH,next__Q0IH,result__S0IH;
- __INTEGER Self__IYYE;
- void **Result__AAOE;
- sz__LLJB=((__UINTEGER_32 )(__INTEGER)(nb_elements__T2IE * ((__INTEGER )(sizeof(void *)))));
- result__TLJB=((__POINTER )(NULL));
- a__FDFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__NLJB=(__UINTEGER_32)((__UINTEGER_32)(sz__LLJB + a__FDFH) & (__UINTEGER_32)(~ a__FDFH));
- new_size2__QLJB=(__UINTEGER_32)(new_size__NLJB + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__QLJB <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__JDFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__KDFH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__QLJB + a__JDFH) & (__UINTEGER_32)(~ a__JDFH));
- ptr_table__R0IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KDFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__Q0IH=((__POINTER )(NULL));
- result__S0IH=((__POINTER *)ptr_table__R0IH)[ 0];
- if ((result__S0IH == (void *)NULL)) {
- result__S0IH=new_lab__RTJ(new_size__KDFH);
- next__Q0IH=(void *)((unsigned long)result__S0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KDFH)));
- ((__POINTER *)next__Q0IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__R0IH)[ 0]=next__Q0IH;
- } else {
- next__Q0IH=((__POINTER *)result__S0IH)[ 0];
- if ((next__Q0IH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__S0IH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__KDFH << 1)) <= 4096)) {
- next__Q0IH=(void *)((unsigned long)result__S0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KDFH)));
- } else {
- next__Q0IH=new_lab__RTJ(new_size__KDFH);
- };
- ((__POINTER *)next__Q0IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__R0IH)[ 0]=next__Q0IH;
- } else {
- ((__POINTER *)result__S0IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__Q0IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__S0IH=next__Q0IH;
- };
- };
- ((__POINTER *)result__S0IH)[ 0]=((__POINTER ) 3);
- result__TLJB=(void *)((unsigned long)result__S0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__TLJB=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__NLJB))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__AAOE=((void **)result__TLJB);
- Self__IYYE=(__INTEGER)(nb_elements__T2IE - 1);
- while ((Self__IYYE >= 0)) {
- Result__AAOE[Self__IYYE]=NULL;
- Self__IYYE=(__INTEGER)(Self__IYYE - 1);
- };
- return(Result__AAOE);
-}
-
-static void* search__XAVB(__UINTEGER_32 new_size__ZAVB)
-// ({UINTEGER_32}) With resultNo recursive, No inlinable.
-{
- void *result__1AVB;
- result__1AVB=first_free__0BVB;
- while ((((void *)result__1AVB != (void *)NULL) && ((__UINTEGER_32)(((__MEMORY *)result__1AVB)->map_size_and_id__YTB & 4294967292LU) < new_size__ZAVB))) {
- result__1AVB=((__MEMORY *)result__1AVB)->map_next_free__ZTB;
- };
- if (((void *)result__1AVB == (void *)NULL)) {
- result__1AVB=new_page__H54();
- };
- to_busy__index__3SFC(result__1AVB,new_size__ZAVB,(__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)result__1AVB)) - (unsigned long)begin_memory__4XH)))) >> 26));
- return(result__1AVB);
-}
-
-static void** create__C3XC(__INTEGER nb_elements__E3XC)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__MAHH,a__LAHH,new_size__NAHH,new_size2__OAHH,a__PAHH;
- __UINTEGER_32 new_size__QAHH;
- __POINTER result__KAHH,ptr_table__W0IH,next__V0IH,result__X0IH;
- __INTEGER Self__BXWD;
- void **Result__0U5C;
- sz__MAHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__E3XC * ((__INTEGER )(sizeof(void *)))));
- result__KAHH=((__POINTER )(NULL));
- a__LAHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__NAHH=(__UINTEGER_32)((__UINTEGER_32)(sz__MAHH + a__LAHH) & (__UINTEGER_32)(~ a__LAHH));
- new_size2__OAHH=(__UINTEGER_32)(new_size__NAHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__OAHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__PAHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__QAHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__OAHH + a__PAHH) & (__UINTEGER_32)(~ a__PAHH));
- ptr_table__W0IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QAHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__V0IH=((__POINTER )(NULL));
- result__X0IH=((__POINTER *)ptr_table__W0IH)[ 0];
- if ((result__X0IH == (void *)NULL)) {
- result__X0IH=new_lab__RTJ(new_size__QAHH);
- next__V0IH=(void *)((unsigned long)result__X0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QAHH)));
- ((__POINTER *)next__V0IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__W0IH)[ 0]=next__V0IH;
- } else {
- next__V0IH=((__POINTER *)result__X0IH)[ 0];
- if ((next__V0IH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__X0IH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__QAHH << 1)) <= 4096)) {
- next__V0IH=(void *)((unsigned long)result__X0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QAHH)));
- } else {
- next__V0IH=new_lab__RTJ(new_size__QAHH);
- };
- ((__POINTER *)next__V0IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__W0IH)[ 0]=next__V0IH;
- } else {
- ((__POINTER *)result__X0IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__V0IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__X0IH=next__V0IH;
- };
- };
- ((__POINTER *)result__X0IH)[ 0]=((__POINTER ) 3);
- result__KAHH=(void *)((unsigned long)result__X0IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__KAHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__NAHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__0U5C=((void **)result__KAHH);
- Self__BXWD=(__INTEGER)(nb_elements__E3XC - 1);
- while ((Self__BXWD >= 0)) {
- Result__0U5C[Self__BXWD]=NULL;
- Self__BXWD=(__INTEGER)(Self__BXWD - 1);
- };
- return(Result__0U5C);
-}
-
-static void** create__FCYC(__INTEGER nb_elements__HCYC)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__UAHH,a__TAHH,new_size__VAHH,new_size2__WAHH,a__XAHH;
- __UINTEGER_32 new_size__YAHH;
- __POINTER result__SAHH,ptr_table__10IH,next__00IH,result__20IH;
- __INTEGER Self__10WD;
- void **Result__E05C;
- sz__UAHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__HCYC * ((__INTEGER )(sizeof(void *)))));
- result__SAHH=((__POINTER )(NULL));
- a__TAHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__VAHH=(__UINTEGER_32)((__UINTEGER_32)(sz__UAHH + a__TAHH) & (__UINTEGER_32)(~ a__TAHH));
- new_size2__WAHH=(__UINTEGER_32)(new_size__VAHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__WAHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__XAHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__YAHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__WAHH + a__XAHH) & (__UINTEGER_32)(~ a__XAHH));
- ptr_table__10IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__YAHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__00IH=((__POINTER )(NULL));
- result__20IH=((__POINTER *)ptr_table__10IH)[ 0];
- if ((result__20IH == (void *)NULL)) {
- result__20IH=new_lab__RTJ(new_size__YAHH);
- next__00IH=(void *)((unsigned long)result__20IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YAHH)));
- ((__POINTER *)next__00IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__10IH)[ 0]=next__00IH;
- } else {
- next__00IH=((__POINTER *)result__20IH)[ 0];
- if ((next__00IH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__20IH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__YAHH << 1)) <= 4096)) {
- next__00IH=(void *)((unsigned long)result__20IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YAHH)));
- } else {
- next__00IH=new_lab__RTJ(new_size__YAHH);
- };
- ((__POINTER *)next__00IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__10IH)[ 0]=next__00IH;
- } else {
- ((__POINTER *)result__20IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__00IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__20IH=next__00IH;
- };
- };
- ((__POINTER *)result__20IH)[ 0]=((__POINTER ) 3);
- result__SAHH=(void *)((unsigned long)result__20IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__SAHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__VAHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__E05C=((void **)result__SAHH);
- Self__10WD=(__INTEGER)(nb_elements__HCYC - 1);
- while ((Self__10WD >= 0)) {
- Result__E05C[Self__10WD]=NULL;
- Self__10WD=(__INTEGER)(Self__10WD - 1);
- };
- return(Result__E05C);
-}
-
-static void** create__3MBD(__INTEGER nb_elements__5MBD)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__2AHH,a__1AHH,new_size__3AHH,new_size2__4AHH,a__5AHH;
- __UINTEGER_32 new_size__ABHH;
- __POINTER result__0AHH,ptr_table__A1IH,next__50IH,result__B1IH;
- __INTEGER Self__GJXD;
- void **Result__JCGD;
- sz__2AHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__5MBD * ((__INTEGER )(sizeof(void *)))));
- result__0AHH=((__POINTER )(NULL));
- a__1AHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__3AHH=(__UINTEGER_32)((__UINTEGER_32)(sz__2AHH + a__1AHH) & (__UINTEGER_32)(~ a__1AHH));
- new_size2__4AHH=(__UINTEGER_32)(new_size__3AHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__4AHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__5AHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ABHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__4AHH + a__5AHH) & (__UINTEGER_32)(~ a__5AHH));
- ptr_table__A1IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ABHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__50IH=((__POINTER )(NULL));
- result__B1IH=((__POINTER *)ptr_table__A1IH)[ 0];
- if ((result__B1IH == (void *)NULL)) {
- result__B1IH=new_lab__RTJ(new_size__ABHH);
- next__50IH=(void *)((unsigned long)result__B1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ABHH)));
- ((__POINTER *)next__50IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__A1IH)[ 0]=next__50IH;
- } else {
- next__50IH=((__POINTER *)result__B1IH)[ 0];
- if ((next__50IH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__B1IH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__ABHH << 1)) <= 4096)) {
- next__50IH=(void *)((unsigned long)result__B1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ABHH)));
- } else {
- next__50IH=new_lab__RTJ(new_size__ABHH);
- };
- ((__POINTER *)next__50IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__A1IH)[ 0]=next__50IH;
- } else {
- ((__POINTER *)result__B1IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__50IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__B1IH=next__50IH;
- };
- };
- ((__POINTER *)result__B1IH)[ 0]=((__POINTER ) 3);
- result__0AHH=(void *)((unsigned long)result__B1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__0AHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__3AHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__JCGD=((void **)result__0AHH);
- Self__GJXD=(__INTEGER)(nb_elements__5MBD - 1);
- while ((Self__GJXD >= 0)) {
- Result__JCGD[Self__GJXD]=NULL;
- Self__GJXD=(__INTEGER)(Self__GJXD - 1);
- };
- return(Result__JCGD);
-}
-
-static void** create__BJFF(__INTEGER nb_elements__DJFF)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__EBHH,a__DBHH,new_size__FBHH,new_size2__GBHH,a__HBHH;
- __UINTEGER_32 new_size__IBHH;
- __POINTER result__CBHH,ptr_table__F1IH,next__E1IH,result__G1IH;
- __INTEGER Self__55QF;
- void **Result__QZJF;
- sz__EBHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__DJFF * ((__INTEGER )(sizeof(void *)))));
- result__CBHH=((__POINTER )(NULL));
- a__DBHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__FBHH=(__UINTEGER_32)((__UINTEGER_32)(sz__EBHH + a__DBHH) & (__UINTEGER_32)(~ a__DBHH));
- new_size2__GBHH=(__UINTEGER_32)(new_size__FBHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__GBHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__HBHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__IBHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__GBHH + a__HBHH) & (__UINTEGER_32)(~ a__HBHH));
- ptr_table__F1IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__IBHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__E1IH=((__POINTER )(NULL));
- result__G1IH=((__POINTER *)ptr_table__F1IH)[ 0];
- if ((result__G1IH == (void *)NULL)) {
- result__G1IH=new_lab__RTJ(new_size__IBHH);
- next__E1IH=(void *)((unsigned long)result__G1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IBHH)));
- ((__POINTER *)next__E1IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__F1IH)[ 0]=next__E1IH;
- } else {
- next__E1IH=((__POINTER *)result__G1IH)[ 0];
- if ((next__E1IH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__G1IH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__IBHH << 1)) <= 4096)) {
- next__E1IH=(void *)((unsigned long)result__G1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IBHH)));
- } else {
- next__E1IH=new_lab__RTJ(new_size__IBHH);
- };
- ((__POINTER *)next__E1IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__F1IH)[ 0]=next__E1IH;
- } else {
- ((__POINTER *)result__G1IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__E1IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__G1IH=next__E1IH;
- };
- };
- ((__POINTER *)result__G1IH)[ 0]=((__POINTER ) 3);
- result__CBHH=(void *)((unsigned long)result__G1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__CBHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__FBHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__QZJF=((void **)result__CBHH);
- Self__55QF=(__INTEGER)(nb_elements__DJFF - 1);
- while ((Self__55QF >= 0)) {
- Result__QZJF[Self__55QF]=NULL;
- Self__55QF=(__INTEGER)(Self__55QF - 1);
- };
- return(Result__QZJF);
-}
-
-static void** create__EI2(__INTEGER nb_elements__GI2)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__MBHH,a__LBHH,new_size__NBHH,new_size2__OBHH,a__PBHH;
- __UINTEGER_32 new_size__QBHH;
- __POINTER result__KBHH,ptr_table__K1IH,next__J1IH,result__L1IH;
- __INTEGER Self__ETJC;
- void **Result__P3CB;
- sz__MBHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__GI2 * ((__INTEGER )(sizeof(void *)))));
- result__KBHH=((__POINTER )(NULL));
- a__LBHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__NBHH=(__UINTEGER_32)((__UINTEGER_32)(sz__MBHH + a__LBHH) & (__UINTEGER_32)(~ a__LBHH));
- new_size2__OBHH=(__UINTEGER_32)(new_size__NBHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__OBHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__PBHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__QBHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__OBHH + a__PBHH) & (__UINTEGER_32)(~ a__PBHH));
- ptr_table__K1IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QBHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__J1IH=((__POINTER )(NULL));
- result__L1IH=((__POINTER *)ptr_table__K1IH)[ 0];
- if ((result__L1IH == (void *)NULL)) {
- result__L1IH=new_lab__RTJ(new_size__QBHH);
- next__J1IH=(void *)((unsigned long)result__L1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QBHH)));
- ((__POINTER *)next__J1IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__K1IH)[ 0]=next__J1IH;
- } else {
- next__J1IH=((__POINTER *)result__L1IH)[ 0];
- if ((next__J1IH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__L1IH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__QBHH << 1)) <= 4096)) {
- next__J1IH=(void *)((unsigned long)result__L1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QBHH)));
- } else {
- next__J1IH=new_lab__RTJ(new_size__QBHH);
- };
- ((__POINTER *)next__J1IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__K1IH)[ 0]=next__J1IH;
- } else {
- ((__POINTER *)result__L1IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__J1IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__L1IH=next__J1IH;
- };
- };
- ((__POINTER *)result__L1IH)[ 0]=((__POINTER ) 3);
- result__KBHH=(void *)((unsigned long)result__L1IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__KBHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__NBHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__P3CB=((void **)result__KBHH);
- Self__ETJC=(__INTEGER)(nb_elements__GI2 - 1);
- while ((Self__ETJC >= 0)) {
- Result__P3CB[Self__ETJC]=NULL;
- Self__ETJC=(__INTEGER)(Self__ETJC - 1);
- };
- return(Result__P3CB);
-}
-
-static void add__EZR(__HASHED_SEToABSTRACT_STRINGo *Self__FZR,void *e__GZR)
-// ({HASHED_SEToABSTRACT_STRINGo},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
- __INTEGER h__NZR,idx__OZR,typ_id__Q1IH;
- __POINTER ptr__P1IH,ptr_table__01IH,next__Z1IH,result__11IH;
- __POINTER ptr_table__51IH,next__41IH,result__A2IH;
- __UINTEGER_32 sz__R1IH,a__S1IH,new_size__T1IH,t__U1IH,a__V1IH;
- __UINTEGER_32 new_size__C2IH,lab_type__B2IH;
- void *node__RZR,*n__Y1IH;
- __HASHED_SET_NODEoABSTRACT_STRINGo *result__O1IH,*Self__W1IH;
- has__PPW(Self__FZR,e__GZR);
- has__PPW(Self__FZR,e__GZR);
- h__NZR=hash_code__RNW(e__GZR);
- idx__OZR=(__INTEGER)(h__NZR % Self__FZR->capacity__VZR);
- node__RZR=((void **)Self__FZR->buckets__0ZR)[idx__OZR];
- while ((! (((void *)node__RZR == (void *)NULL) || __infix_equal_equal__V2DB(((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__RZR)->item__G0R,e__GZR)))) {
- node__RZR=((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__RZR)->next__S0R;
- };
- if (((void *)node__RZR == (void *)NULL)) {
- if ((Self__FZR->capacity__VZR == Self__FZR->count__10R)) {
- increase_capacity__XONB(Self__FZR);
- idx__OZR=(__INTEGER)(h__NZR % Self__FZR->capacity__VZR);
- };
- n__Y1IH=((void **)Self__FZR->buckets__0ZR)[idx__OZR];
- result__O1IH=NULL;
- ptr__P1IH=((__POINTER )(NULL));
- typ_id__Q1IH= 0;
- sz__R1IH=((__UINTEGER_32 )sizeof(__HASHED_SET_NODEoABSTRACT_STRINGo));
- if ((sz__R1IH == 0)) {
- result__O1IH=HASHED_SET_NODEoABSTRACT_STRINGo__;
- } else {
- typ_id__Q1IH=__HASHED_SET_NODEoABSTRACT_STRINGo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__R1IH);
- if ((typ_id__Q1IH == (__INTEGER)(- 1))) {
- a__S1IH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__T1IH=(__UINTEGER_32)((__UINTEGER_32)(sz__R1IH + a__S1IH) & (__UINTEGER_32)(~ a__S1IH));
- ptr_table__01IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__T1IH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__Z1IH=((__POINTER )(NULL));
- result__11IH=((__POINTER *)ptr_table__01IH)[ 0];
- if ((result__11IH == (void *)NULL)) {
- result__11IH=new_lab__RTJ(new_size__T1IH);
- next__Z1IH=(void *)((unsigned long)result__11IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__T1IH)));
- ((__POINTER *)next__Z1IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__01IH)[ 0]=next__Z1IH;
- } else {
- next__Z1IH=((__POINTER *)result__11IH)[ 0];
- if ((next__Z1IH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__11IH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__T1IH << 1)) <= 4096)) {
- next__Z1IH=(void *)((unsigned long)result__11IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__T1IH)));
- } else {
- next__Z1IH=new_lab__RTJ(new_size__T1IH);
- };
- ((__POINTER *)next__Z1IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__01IH)[ 0]=next__Z1IH;
- } else {
- ((__POINTER *)result__11IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__Z1IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__11IH=next__Z1IH;
- };
- };
- ptr__P1IH=result__11IH;
- } else {
- t__U1IH=((__UINTEGER_32 )typ_id__Q1IH);
- a__V1IH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__C2IH=(__UINTEGER_32)((__UINTEGER_32)(sz__R1IH + a__V1IH) & (__UINTEGER_32)(~ a__V1IH));
- ptr_table__51IH=((__POINTER )(&(table_type[(t__U1IH)])));
- lab_type__B2IH=(__UINTEGER_32)(t__U1IH | 1);
- next__41IH=((__POINTER )(NULL));
- result__A2IH=((__POINTER *)ptr_table__51IH)[ 0];
- if ((result__A2IH == (void *)NULL)) {
- result__A2IH=new_lab__RTJ(lab_type__B2IH);
- next__41IH=(void *)((unsigned long)result__A2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__C2IH)));
- ((__POINTER *)next__41IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__51IH)[ 0]=next__41IH;
- } else {
- next__41IH=((__POINTER *)result__A2IH)[ 0];
- if ((next__41IH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__A2IH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__C2IH << 1)) <= 4096)) {
- next__41IH=(void *)((unsigned long)result__A2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__C2IH)));
- } else {
- next__41IH=new_lab__RTJ(lab_type__B2IH);
- };
- ((__POINTER *)next__41IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__51IH)[ 0]=next__41IH;
- } else {
- ((__POINTER *)result__A2IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__41IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__A2IH=next__41IH;
- };
- };
- ptr__P1IH=result__A2IH;
- };
- result__O1IH=((__HASHED_SET_NODEoABSTRACT_STRINGo *)ptr__P1IH);
- *(result__O1IH) = *(HASHED_SET_NODEoABSTRACT_STRINGo__);
- };
- Self__W1IH=((__HASHED_SET_NODEoABSTRACT_STRINGo *)result__O1IH);
- Self__W1IH->item__G0R=e__GZR;
- Self__W1IH->next__S0R=n__Y1IH;
- node__RZR=result__O1IH;
- ((void **)Self__FZR->buckets__0ZR)[idx__OZR]=result__O1IH;
- Self__FZR->count__10R=(__INTEGER)(Self__FZR->count__10R + 1);
- };
-}
-
-static void* operator__name__GHB(void *op__JHB)
-// ({STRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
- __INTEGER __tmp__RHB,Self__KWB;
- __CHARACTER c__LHB;
- __BOOLEAN __tmp__5HB,__tmp__MIB,result__PCDB,__tmp__ZIB,result__BDDB;
- __BOOLEAN __tmp__GJB,result__TDDB,__tmp__TJB,result__FEDB,__tmp__AKB;
- __BOOLEAN result__XEDB,__tmp__NKB,result__JFDB,__tmp__0KB;
- __BOOLEAN result__1FDB,__tmp__HLB,result__NGDB,__tmp__ULB;
- __BOOLEAN result__5GDB,__tmp__BMB,result__RHDB,__tmp__OMB;
- __BOOLEAN result__DIDB,__tmp__1MB,result__VIDB,__tmp__INB;
- __BOOLEAN result__HJDB,__tmp__VNB,result__ZJDB,__tmp__COB;
- __BOOLEAN result__LKDB,__tmp__POB,result__3KDB;
- c__LHB='\0';
- copy__VDS(string_tmp__VH,(&__string_81));
- __tmp__RHB=((__STRING_CONSTANT *)op__JHB)->count__DD;
- Self__KWB= 1;
- while ((Self__KWB <= __tmp__RHB)) {
- c__LHB=((__CHARACTER *)((__STRING_CONSTANT *)op__JHB)->storage__RRO)[(__INTEGER)(Self__KWB - 1)];
- if ((c__LHB == '+')) {
- append__3OS(string_tmp__VH,(&__string_188));
- __tmp__5HB=TRUE__;
- } else {
- __tmp__5HB=FALSE__;
- };
- if (__tmp__5HB) {
- __tmp__MIB=TRUE__;
- } else {
- result__PCDB=(c__LHB == '-');
- if (result__PCDB) {
- append__3OS(string_tmp__VH,(&__string_189));
- };
- __tmp__MIB=result__PCDB;
- };
- if (__tmp__MIB) {
- __tmp__ZIB=TRUE__;
- } else {
- result__BDDB=(c__LHB == '~');
- if (result__BDDB) {
- append__3OS(string_tmp__VH,(&__string_190));
- };
- __tmp__ZIB=result__BDDB;
- };
- if (__tmp__ZIB) {
- __tmp__GJB=TRUE__;
- } else {
- result__TDDB=(c__LHB == '!');
- if (result__TDDB) {
- append__3OS(string_tmp__VH,(&__string_191));
- };
- __tmp__GJB=result__TDDB;
- };
- if (__tmp__GJB) {
- __tmp__TJB=TRUE__;
- } else {
- result__FEDB=(c__LHB == '/');
- if (result__FEDB) {
- append__3OS(string_tmp__VH,(&__string_192));
- };
- __tmp__TJB=result__FEDB;
- };
- if (__tmp__TJB) {
- __tmp__AKB=TRUE__;
- } else {
- result__XEDB=(c__LHB == '*');
- if (result__XEDB) {
- append__3OS(string_tmp__VH,(&__string_193));
- };
- __tmp__AKB=result__XEDB;
- };
- if (__tmp__AKB) {
- __tmp__NKB=TRUE__;
- } else {
- result__JFDB=(c__LHB == '^');
- if (result__JFDB) {
- append__3OS(string_tmp__VH,(&__string_194));
- };
- __tmp__NKB=result__JFDB;
- };
- if (__tmp__NKB) {
- __tmp__0KB=TRUE__;
- } else {
- result__1FDB=(c__LHB == '%');
- if (result__1FDB) {
- append__3OS(string_tmp__VH,(&__string_195));
- };
- __tmp__0KB=result__1FDB;
- };
- if (__tmp__0KB) {
- __tmp__HLB=TRUE__;
- } else {
- result__NGDB=(c__LHB == '>');
- if (result__NGDB) {
- append__3OS(string_tmp__VH,(&__string_196));
- };
- __tmp__HLB=result__NGDB;
- };
- if (__tmp__HLB) {
- __tmp__ULB=TRUE__;
- } else {
- result__5GDB=(c__LHB == '<');
- if (result__5GDB) {
- append__3OS(string_tmp__VH,(&__string_197));
- };
- __tmp__ULB=result__5GDB;
- };
- if (__tmp__ULB) {
- __tmp__BMB=TRUE__;
- } else {
- result__RHDB=(c__LHB == '=');
- if (result__RHDB) {
- append__3OS(string_tmp__VH,(&__string_198));
- };
- __tmp__BMB=result__RHDB;
- };
- if (__tmp__BMB) {
- __tmp__OMB=TRUE__;
- } else {
- result__DIDB=(c__LHB == '\\');
- if (result__DIDB) {
- append__3OS(string_tmp__VH,(&__string_199));
- };
- __tmp__OMB=result__DIDB;
- };
- if (__tmp__OMB) {
- __tmp__1MB=TRUE__;
- } else {
- result__VIDB=(c__LHB == '|');
- if (result__VIDB) {
- append__3OS(string_tmp__VH,(&__string_200));
- };
- __tmp__1MB=result__VIDB;
- };
- if (__tmp__1MB) {
- __tmp__INB=TRUE__;
- } else {
- result__HJDB=(c__LHB == '&');
- if (result__HJDB) {
- append__3OS(string_tmp__VH,(&__string_201));
- };
- __tmp__INB=result__HJDB;
- };
- if (__tmp__INB) {
- __tmp__VNB=TRUE__;
- } else {
- result__ZJDB=(c__LHB == '$');
- if (result__ZJDB) {
- append__3OS(string_tmp__VH,(&__string_202));
- };
- __tmp__VNB=result__ZJDB;
- };
- if (__tmp__VNB) {
- __tmp__COB=TRUE__;
- } else {
- result__LKDB=(c__LHB == '#');
- if (result__LKDB) {
- append__3OS(string_tmp__VH,(&__string_203));
- };
- __tmp__COB=result__LKDB;
- };
- if (__tmp__COB) {
- __tmp__POB=TRUE__;
- } else {
- result__3KDB=(c__LHB == '@');
- if (result__3KDB) {
- append__3OS(string_tmp__VH,(&__string_204));
- };
- __tmp__POB=result__3KDB;
- };
- if ((! __tmp__POB)) {
- if ((c__LHB == '?')) {
- append__3OS(string_tmp__VH,(&__string_205));
- };
- };
- Self__KWB=(__INTEGER)(Self__KWB + 1);
- };
- return(get__YWB(string_tmp__VH));
-}
-
-static void print__OJD(__STRING_CONSTANT *Self__PJD)
-// ({STRING_CONSTANT}) VoidRecursive, No inlinable.
-{
- put_string__AKF(Self__PJD);
-}
-
-static void* get__YWB(void *str__0WB)
-// ({NULLxSTRING}) With resultNo recursive, No inlinable.
-{
- void *result__2WB,*__tmp__0XB;
- void *result__LMS;
- __STRING_CONSTANT *result__ZMD,*result__AJF,*Self__LFT;
- __POINTER ptr__0MD,ptr_table__E2IH,next__D2IH,result__F2IH;
- __POINTER ptr_table__J2IH,next__I2IH,result__K2IH,ptr__2CJB;
- __POINTER ptr_table__O2IH,next__N2IH,result__P2IH,ptr_table__T2IH;
- __POINTER next__S2IH,result__U2IH;
- __INTEGER typ_id__5MD,c__NFT,Self__J2LH,h__M4S,idx__N4S,typ_id__BDJB;
- __UINTEGER_32 sz__2MD,a__AEFH,new_size__BEFH,t__FEFH,a__EEFH;
- __UINTEGER_32 new_size__M2IH,lab_type__L2IH,sz__4CJB,a__1OFH;
- __UINTEGER_32 new_size__2OFH,t__APFH,a__5OFH,new_size__W2IH;
- __UINTEGER_32 lab_type__V2IH;
- __HASHED_SEToABSTRACT_STRINGo *Self__YLS,*Self__E4S;
- void *node__KMS,*node__O4S,*n__4GCB;
- __CHARACTER *Self__K2LH,*model__L2LH;
- __HASHED_SET_NODEoABSTRACT_STRINGo *result__1CJB,*Self__V5CC;
- result__2WB=NULL;
- Self__YLS=((__HASHED_SEToABSTRACT_STRINGo *)list__FK);
- result__LMS=NULL;
- node__KMS=((void **)Self__YLS->buckets__0ZR)[(__INTEGER)(hash_code__UFX(str__0WB) % Self__YLS->capacity__VZR)];
- while ((! (((void *)node__KMS == (void *)NULL) || __infix_equal_equal__V2DB(((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__KMS)->item__G0R,str__0WB)))) {
- node__KMS=((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__KMS)->next__S0R;
- };
- if (((void *)node__KMS != (void *)NULL)) {
- result__LMS=((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__KMS)->item__G0R;
- };
- if (((void *)result__LMS == (void *)NULL)) {
- result__ZMD=NULL;
- ptr__0MD=((__POINTER )(NULL));
- typ_id__5MD= 0;
- sz__2MD=((__UINTEGER_32 )sizeof(__STRING_CONSTANT));
- if ((sz__2MD == 0)) {
- result__ZMD=STRING_CONSTANT__;
- } else {
- typ_id__5MD=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__2MD);
- if ((typ_id__5MD == (__INTEGER)(- 1))) {
- a__AEFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__BEFH=(__UINTEGER_32)((__UINTEGER_32)(sz__2MD + a__AEFH) & (__UINTEGER_32)(~ a__AEFH));
- ptr_table__E2IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__BEFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__D2IH=((__POINTER )(NULL));
- result__F2IH=((__POINTER *)ptr_table__E2IH)[ 0];
- if ((result__F2IH == (void *)NULL)) {
- result__F2IH=new_lab__RTJ(new_size__BEFH);
- next__D2IH=(void *)((unsigned long)result__F2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BEFH)));
- ((__POINTER *)next__D2IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__E2IH)[ 0]=next__D2IH;
- } else {
- next__D2IH=((__POINTER *)result__F2IH)[ 0];
- if ((next__D2IH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__F2IH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__BEFH << 1)) <= 4096)) {
- next__D2IH=(void *)((unsigned long)result__F2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BEFH)));
- } else {
- next__D2IH=new_lab__RTJ(new_size__BEFH);
- };
- ((__POINTER *)next__D2IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__E2IH)[ 0]=next__D2IH;
- } else {
- ((__POINTER *)result__F2IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__D2IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__F2IH=next__D2IH;
- };
- };
- ptr__0MD=result__F2IH;
- } else {
- t__FEFH=((__UINTEGER_32 )typ_id__5MD);
- a__EEFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__M2IH=(__UINTEGER_32)((__UINTEGER_32)(sz__2MD + a__EEFH) & (__UINTEGER_32)(~ a__EEFH));
- ptr_table__J2IH=((__POINTER )(&(table_type[(t__FEFH)])));
- lab_type__L2IH=(__UINTEGER_32)(t__FEFH | 1);
- next__I2IH=((__POINTER )(NULL));
- result__K2IH=((__POINTER *)ptr_table__J2IH)[ 0];
- if ((result__K2IH == (void *)NULL)) {
- result__K2IH=new_lab__RTJ(lab_type__L2IH);
- next__I2IH=(void *)((unsigned long)result__K2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M2IH)));
- ((__POINTER *)next__I2IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__J2IH)[ 0]=next__I2IH;
- } else {
- next__I2IH=((__POINTER *)result__K2IH)[ 0];
- if ((next__I2IH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__K2IH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__M2IH << 1)) <= 4096)) {
- next__I2IH=(void *)((unsigned long)result__K2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M2IH)));
- } else {
- next__I2IH=new_lab__RTJ(lab_type__L2IH);
- };
- ((__POINTER *)next__I2IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__J2IH)[ 0]=next__I2IH;
- } else {
- ((__POINTER *)result__K2IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__I2IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__K2IH=next__I2IH;
- };
- };
- ptr__0MD=result__K2IH;
- };
- result__ZMD=((__STRING_CONSTANT *)ptr__0MD);
- *(result__ZMD) = *(STRING_CONSTANT__);
- };
- result__AJF=result__ZMD;
- Self__LFT=((__STRING_CONSTANT *)result__ZMD);
- c__NFT=((__STRING *)str__0WB)->count__SGC;
- if ((c__NFT != 0)) {
- Self__LFT->storage__RRO=create__YIEB((__INTEGER)(c__NFT + 1));
- Self__K2LH=((__CHARACTER *)Self__LFT->storage__RRO);
- model__L2LH=((__STRING *)str__0WB)->storage__3CS;
- Self__J2LH=(__INTEGER)(c__NFT - 1);
- while ((Self__J2LH >= 0)) {
- Self__K2LH[Self__J2LH]=((__CHARACTER *)model__L2LH)[Self__J2LH];
- Self__J2LH=(__INTEGER)(Self__J2LH - 1);
- };
- ((__CHARACTER *)Self__LFT->storage__RRO)[c__NFT]='\0';
- Self__LFT->count__DD=c__NFT;
- };
- result__2WB=result__ZMD;
- Self__E4S=((__HASHED_SEToABSTRACT_STRINGo *)list__FK);
- fast_has__CAY(Self__E4S,result__ZMD);
- fast_has__CAY(Self__E4S,result__ZMD);
- h__M4S=hash_code__RNW(result__ZMD);
- idx__N4S=(__INTEGER)(h__M4S % Self__E4S->capacity__VZR);
- node__O4S=((void **)Self__E4S->buckets__0ZR)[idx__N4S];
- while ((! (((void *)node__O4S == (void *)NULL) || ((void *)((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__O4S)->item__G0R == (void *)result__AJF)))) {
- node__O4S=((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__O4S)->next__S0R;
- };
- if (((void *)node__O4S == (void *)NULL)) {
- if ((Self__E4S->capacity__VZR == Self__E4S->count__10R)) {
- increase_capacity__XONB(Self__E4S);
- idx__N4S=(__INTEGER)(h__M4S % Self__E4S->capacity__VZR);
- };
- n__4GCB=((void **)Self__E4S->buckets__0ZR)[idx__N4S];
- result__1CJB=NULL;
- ptr__2CJB=((__POINTER )(NULL));
- typ_id__BDJB= 0;
- sz__4CJB=((__UINTEGER_32 )sizeof(__HASHED_SET_NODEoABSTRACT_STRINGo));
- if ((sz__4CJB == 0)) {
- result__1CJB=HASHED_SET_NODEoABSTRACT_STRINGo__;
- } else {
- typ_id__BDJB=__HASHED_SET_NODEoABSTRACT_STRINGo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__4CJB);
- if ((typ_id__BDJB == (__INTEGER)(- 1))) {
- a__1OFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__2OFH=(__UINTEGER_32)((__UINTEGER_32)(sz__4CJB + a__1OFH) & (__UINTEGER_32)(~ a__1OFH));
- ptr_table__O2IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__2OFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__N2IH=((__POINTER )(NULL));
- result__P2IH=((__POINTER *)ptr_table__O2IH)[ 0];
- if ((result__P2IH == (void *)NULL)) {
- result__P2IH=new_lab__RTJ(new_size__2OFH);
- next__N2IH=(void *)((unsigned long)result__P2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2OFH)));
- ((__POINTER *)next__N2IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__O2IH)[ 0]=next__N2IH;
- } else {
- next__N2IH=((__POINTER *)result__P2IH)[ 0];
- if ((next__N2IH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__P2IH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__2OFH << 1)) <= 4096)) {
- next__N2IH=(void *)((unsigned long)result__P2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2OFH)));
- } else {
- next__N2IH=new_lab__RTJ(new_size__2OFH);
- };
- ((__POINTER *)next__N2IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__O2IH)[ 0]=next__N2IH;
- } else {
- ((__POINTER *)result__P2IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__N2IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__P2IH=next__N2IH;
- };
- };
- ptr__2CJB=result__P2IH;
- } else {
- t__APFH=((__UINTEGER_32 )typ_id__BDJB);
- a__5OFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__W2IH=(__UINTEGER_32)((__UINTEGER_32)(sz__4CJB + a__5OFH) & (__UINTEGER_32)(~ a__5OFH));
- ptr_table__T2IH=((__POINTER )(&(table_type[(t__APFH)])));
- lab_type__V2IH=(__UINTEGER_32)(t__APFH | 1);
- next__S2IH=((__POINTER )(NULL));
- result__U2IH=((__POINTER *)ptr_table__T2IH)[ 0];
- if ((result__U2IH == (void *)NULL)) {
- result__U2IH=new_lab__RTJ(lab_type__V2IH);
- next__S2IH=(void *)((unsigned long)result__U2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W2IH)));
- ((__POINTER *)next__S2IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__T2IH)[ 0]=next__S2IH;
- } else {
- next__S2IH=((__POINTER *)result__U2IH)[ 0];
- if ((next__S2IH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__U2IH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__W2IH << 1)) <= 4096)) {
- next__S2IH=(void *)((unsigned long)result__U2IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W2IH)));
- } else {
- next__S2IH=new_lab__RTJ(lab_type__V2IH);
- };
- ((__POINTER *)next__S2IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__T2IH)[ 0]=next__S2IH;
- } else {
- ((__POINTER *)result__U2IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__S2IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__U2IH=next__S2IH;
- };
- };
- ptr__2CJB=result__U2IH;
- };
- result__1CJB=((__HASHED_SET_NODEoABSTRACT_STRINGo *)ptr__2CJB);
- *(result__1CJB) = *(HASHED_SET_NODEoABSTRACT_STRINGo__);
- };
- Self__V5CC=((__HASHED_SET_NODEoABSTRACT_STRINGo *)result__1CJB);
- Self__V5CC->item__G0R=result__ZMD;
- Self__V5CC->next__S0R=n__4GCB;
- node__O4S=result__1CJB;
- ((void **)Self__E4S->buckets__0ZR)[idx__N4S]=result__1CJB;
- Self__E4S->count__10R=(__INTEGER)(Self__E4S->count__10R + 1);
- };
- } else {
- if (result__LMS==NULL) {
- __tmp__0XB=NULL;
- } else {
- __tmp__0XB=((void *)result__LMS);
- };
- result__2WB=__tmp__0XB;
- };
- return(result__2WB);
-}
-
-static void copy__VDS(__STRING *Self__WDS,void *other__XDS)
-// ({STRING},{NULLxSTRING_CONSTANTxSTRING}) VoidNo recursive, No inlinable.
-{
- __INTEGER __tmp__YDS,Self__O2LH;
- __CHARACTER *__tmp__NES,*__tmp__PES,*Self__P2LH,*model__Q2LH;
- if (((struct ___OBJ *)other__XDS)->__id==__STRING_CONSTANT__) {
- __tmp__YDS=((__STRING_CONSTANT *)other__XDS)->count__DD;
- } else {
- __tmp__YDS=((__STRING *)other__XDS)->count__SGC;
- };
- Self__WDS->count__SGC=__tmp__YDS;
- if ((__tmp__YDS > 0)) {
- if ((Self__WDS->capacity__UCS < __tmp__YDS)) {
- Self__WDS->storage__3CS=create__YIEB(__tmp__YDS);
- Self__WDS->capacity__UCS=Self__WDS->count__SGC;
- };
- __tmp__NES=Self__WDS->storage__3CS;
- if (((struct ___OBJ *)other__XDS)->__id==__STRING_CONSTANT__) {
- __tmp__PES=((__STRING_CONSTANT *)other__XDS)->storage__RRO;
- } else {
- __tmp__PES=((__STRING *)other__XDS)->storage__3CS;
- };
- Self__P2LH=((__CHARACTER *)__tmp__NES);
- model__Q2LH=__tmp__PES;
- Self__O2LH=(__INTEGER)(Self__WDS->count__SGC - 1);
- while ((Self__O2LH >= 0)) {
- Self__P2LH[Self__O2LH]=((__CHARACTER *)model__Q2LH)[Self__O2LH];
- Self__O2LH=(__INTEGER)(Self__O2LH - 1);
- };
- };
-}
-
-static void append__3OS(__STRING *Self__4OS,void *other__5OS)
-// ({STRING},{NULLxSTRING_CONSTANTxSTRING}) VoidNo recursive, No inlinable.
-{
- __INTEGER __tmp__IPS,needed_capacity__BPS,old_nb_elts__D0DC;
- __INTEGER upper__02IH,Self__Y2IH,dest__5JBC,src_capacity__AKBC;
- __INTEGER i2__QKBC,i1__PKBC;
- __CHARACTER *Self__C0DC,*new__00DC,*__tmp__FQS,*__tmp__GQS,*Self__3JBC;
- __CHARACTER *src__4JBC;
- if (((struct ___OBJ *)other__5OS)->__id==__STRING_CONSTANT__) {
- __tmp__IPS=((__STRING_CONSTANT *)other__5OS)->count__DD;
- } else {
- __tmp__IPS=((__STRING *)other__5OS)->count__SGC;
- };
- needed_capacity__BPS=(__INTEGER)(Self__4OS->count__SGC + __tmp__IPS);
- if ((Self__4OS->capacity__UCS < needed_capacity__BPS)) {
- if ((Self__4OS->capacity__UCS == 0)) {
- Self__4OS->capacity__UCS=needed_capacity__BPS;
- Self__4OS->storage__3CS=create__YIEB(needed_capacity__BPS);
- } else {
- Self__C0DC=((__CHARACTER *)Self__4OS->storage__3CS);
- old_nb_elts__D0DC=Self__4OS->capacity__UCS;
- new__00DC=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__C0DC),((__UINTEGER_32 )old_nb_elts__D0DC),((__UINTEGER_32 )needed_capacity__BPS)));
- upper__02IH=(__INTEGER)(needed_capacity__BPS - 1);
- Self__Y2IH=old_nb_elts__D0DC;
- while ((Self__Y2IH <= upper__02IH)) {
- new__00DC[Self__Y2IH]='\0';
- Self__Y2IH=(__INTEGER)(Self__Y2IH + 1);
- };
- Self__4OS->storage__3CS=new__00DC;
- Self__4OS->capacity__UCS=needed_capacity__BPS;
- };
- };
- __tmp__FQS=Self__4OS->storage__3CS;
- if (((struct ___OBJ *)other__5OS)->__id==__STRING_CONSTANT__) {
- __tmp__GQS=((__STRING_CONSTANT *)other__5OS)->storage__RRO;
- } else {
- __tmp__GQS=((__STRING *)other__5OS)->storage__3CS;
- };
- Self__3JBC=((__CHARACTER *)__tmp__FQS);
- src__4JBC=__tmp__GQS;
- dest__5JBC=Self__4OS->count__SGC;
- src_capacity__AKBC=__tmp__IPS;
- i2__QKBC= 0;
- i1__PKBC=dest__5JBC;
- while ((i2__QKBC != src_capacity__AKBC)) {
- Self__3JBC[i1__PKBC]=((__CHARACTER *)src__4JBC)[i2__QKBC];
- i2__QKBC=(__INTEGER)(i2__QKBC + 1);
- i1__PKBC=(__INTEGER)(i1__PKBC + 1);
- };
- Self__4OS->count__SGC=needed_capacity__BPS;
-}
-
-static void* parent_directory__GGD()
-// () With resultNo recursive, No inlinable.
-{
- __STRING *Self__SBHH;
- __INTEGER new_capacity__JMHH,old_nb_elts__MMHH,upper__52IH,Self__32IH;
- void *__tmp__WGD;
- void *__tmp__XGD,*result__KGD;
- __CHARACTER *Self__LMHH,*new__NMHH,*cwd__JGD;
- ((__STRING *)string_tmp__LGD)->count__SGC= 0;
- Self__SBHH=((__STRING *)string_tmp__LGD);
- if ((Self__SBHH->capacity__UCS > Self__SBHH->count__SGC)) {
- ((__CHARACTER *)Self__SBHH->storage__3CS)[Self__SBHH->count__SGC]='\0';
- } else {
- new_capacity__JMHH= 0;
- if ((Self__SBHH->capacity__UCS <= Self__SBHH->count__SGC)) {
- if ((Self__SBHH->capacity__UCS == 0)) {
- Self__SBHH->capacity__UCS= 32;
- Self__SBHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__JMHH=(__INTEGER)(Self__SBHH->capacity__UCS << 1);
- Self__LMHH=((__CHARACTER *)Self__SBHH->storage__3CS);
- old_nb_elts__MMHH=Self__SBHH->capacity__UCS;
- new__NMHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__LMHH),((__UINTEGER_32 )old_nb_elts__MMHH),((__UINTEGER_32 )new_capacity__JMHH)));
- upper__52IH=(__INTEGER)(new_capacity__JMHH - 1);
- Self__32IH=old_nb_elts__MMHH;
- while ((Self__32IH <= upper__52IH)) {
- new__NMHH[Self__32IH]='\0';
- Self__32IH=(__INTEGER)(Self__32IH + 1);
- };
- Self__SBHH->storage__3CS=new__NMHH;
- Self__SBHH->capacity__UCS=new_capacity__JMHH;
- };
- };
- ((__CHARACTER *)Self__SBHH->storage__3CS)[Self__SBHH->count__SGC]='\0';
- Self__SBHH->count__SGC=(__INTEGER)(Self__SBHH->count__SGC + 1);
- Self__SBHH->count__SGC=(__INTEGER)(Self__SBHH->count__SGC - 1);
- };
- cwd__JGD=Self__SBHH->storage__3CS;
- getcwd((cwd__JGD),255);
- from_external__YZS(string_tmp__LGD,cwd__JGD);
- __tmp__WGD=physical_get_entry__REF(string_tmp__LGD);
- if (__tmp__WGD==NULL) {
- __tmp__XGD=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__WGD)->__id) {
- case __DIRECTORY_UNIX__: {
- __tmp__XGD=((void *)__tmp__WGD);
- } break;
- case __FILE_UNIX__: {
- __tmp__XGD=NULL;
- } break;
- }
- };
- result__KGD=__tmp__XGD;
- put__to__N1S(alias__2GD,__tmp__XGD,((__DIRECTORY_UNIX *)__tmp__XGD)->parent_entry_unix__RGD.parent_entry__QGD.path__BD);
- FILE_SYSTEM__->parent_directory__GHD=__tmp__XGD;
- FILE_SYSTEM__->parent_directory__HHD=0;
- return(__tmp__XGD);
-}
-
-static void* get_entry__DZAC(void *p__FZAC)
-// ({NULLxSTRING_CONSTANTxSTRING}) With resultNo recursive, No inlinable.
-{
- void *result__HZAC;
- __INTEGER idx__IZAC,new_capacity__PMHH,old_nb_elts__SMHH,upper__E3IH;
- __INTEGER Self__C3IH,n__WMHH,n__XMHH,__tmp__S1AC;
- void *__tmp__CFIC,*__tmp__31AC,*dir__11AC;
- __STRING *Self__QMHH,*Self__GEFH,*Self__VMHH;
- __CHARACTER *Self__RMHH,*new__TMHH;
- __BOOLEAN __tmp__B1AC,__tmp__M1AC;
- result__HZAC=NULL;
- idx__IZAC= 0;
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- __tmp__CFIC=FILE_SYSTEM__->parent_directory__GHD;
- } else {
- __tmp__CFIC=parent_directory__GGD();
- };
- copy__VDS(string_tmp2__JZAC,((__DIRECTORY_UNIX *)__tmp__CFIC)->parent_entry_unix__RGD.parent_entry__QGD.path__BD);
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- Self__QMHH=((__STRING *)string_tmp2__JZAC);
- new_capacity__PMHH= 0;
- if ((Self__QMHH->capacity__UCS <= Self__QMHH->count__SGC)) {
- if ((Self__QMHH->capacity__UCS == 0)) {
- Self__QMHH->capacity__UCS= 32;
- Self__QMHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__PMHH=(__INTEGER)(Self__QMHH->capacity__UCS << 1);
- Self__RMHH=((__CHARACTER *)Self__QMHH->storage__3CS);
- old_nb_elts__SMHH=Self__QMHH->capacity__UCS;
- new__TMHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__RMHH),((__UINTEGER_32 )old_nb_elts__SMHH),((__UINTEGER_32 )new_capacity__PMHH)));
- upper__E3IH=(__INTEGER)(new_capacity__PMHH - 1);
- Self__C3IH=old_nb_elts__SMHH;
- while ((Self__C3IH <= upper__E3IH)) {
- new__TMHH[Self__C3IH]='\0';
- Self__C3IH=(__INTEGER)(Self__C3IH + 1);
- };
- Self__QMHH->storage__3CS=new__TMHH;
- Self__QMHH->capacity__UCS=new_capacity__PMHH;
- };
- };
- ((__CHARACTER *)Self__QMHH->storage__3CS)[Self__QMHH->count__SGC]='/';
- Self__QMHH->count__SGC=(__INTEGER)(Self__QMHH->count__SGC + 1);
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- append__3OS(string_tmp2__JZAC,p__FZAC);
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- reduce_path__J3HC(string_tmp2__JZAC);
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- copy__VDS(string_tmp3__PZAC,string_tmp2__JZAC);
- do {
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- result__HZAC=reference_at__VV0C(alias__2GD,string_tmp2__JZAC);
- if (((void *)result__HZAC == (void *)NULL)) {
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- Self__GEFH=((__STRING *)string_tmp2__JZAC);
- idx__IZAC=(__INTEGER)( 1 + fast_reverse_index_of__from__KA3(Self__GEFH->storage__3CS,'/',(__INTEGER)(Self__GEFH->count__SGC - 1)));
- if ((idx__IZAC > 0)) {
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- Self__VMHH=((__STRING *)string_tmp2__JZAC);
- n__WMHH=(__INTEGER)(idx__IZAC - 1);
- if ((n__WMHH < Self__VMHH->count__SGC)) {
- n__XMHH=(__INTEGER)(Self__VMHH->count__SGC - n__WMHH);
- if ((n__XMHH > Self__VMHH->count__SGC)) {
- Self__VMHH->count__SGC= 0;
- } else {
- Self__VMHH->count__SGC=(__INTEGER)(Self__VMHH->count__SGC - n__XMHH);
- };
- };
- } else {
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- ((__STRING *)string_tmp2__JZAC)->count__SGC= 0;
- };
- };
- if (((void *)result__HZAC == (void *)NULL)) {
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- __tmp__B1AC=(((__STRING *)string_tmp2__JZAC)->count__SGC != 0);
- } else {
- __tmp__B1AC=FALSE__;
- };
- } while (__tmp__B1AC);
- if (((void *)result__HZAC == (void *)NULL)) {
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- result__HZAC=physical_get_entry__JY0C(string_tmp3__PZAC);
- __tmp__M1AC=TRUE__;
- } else {
- __tmp__M1AC=FALSE__;
- };
- if ((! __tmp__M1AC)) {
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- __tmp__S1AC=((__STRING *)string_tmp3__PZAC)->count__SGC;
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- if ((__tmp__S1AC != ((__STRING *)string_tmp2__JZAC)->count__SGC)) {
- if (result__HZAC==NULL) {
- __tmp__31AC=NULL;
- } else {
- switch (((struct ___OBJ *)result__HZAC)->__id) {
- case __DIRECTORY_UNIX__: {
- __tmp__31AC=((void *)result__HZAC);
- } break;
- case __FILE_UNIX__: {
- __tmp__31AC=NULL;
- } break;
- }
- };
- dir__11AC=__tmp__31AC;
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- result__HZAC=physical_get_entry__REF(string_tmp3__PZAC);
- };
- };
- return(result__HZAC);
-}
-
-static void put_string__33F(void *s__53F)
-// ({NULLxSTRING_CONSTANTxSTRING}) VoidNo recursive, No inlinable.
-{
- __INTEGER __tmp__O4F,__tmp__Q4F,Self__JZG,limit_up__KZG;
- __CHARACTER *__tmp__NEFH,*__tmp__0XGH;
- __CHARACTER __tmp__X4F;
- if (((struct ___OBJ *)s__53F)->__id==__STRING_CONSTANT__) {
- __tmp__O4F= 1;
- } else {
- __tmp__O4F= 1;
- };
- if (((struct ___OBJ *)s__53F)->__id==__STRING_CONSTANT__) {
- __tmp__Q4F=((__STRING_CONSTANT *)s__53F)->count__DD;
- } else {
- __tmp__Q4F=((__STRING *)s__53F)->count__SGC;
- };
- Self__JZG=__tmp__O4F;
- limit_up__KZG=__tmp__Q4F;
- __tmp__NEFH=((__STRING *)s__53F)->storage__3CS;
- __tmp__0XGH=((__STRING_CONSTANT *)s__53F)->storage__RRO;
- while ((Self__JZG <= limit_up__KZG)) {
- if (((struct ___OBJ *)s__53F)->__id==__STRING_CONSTANT__) {
- __tmp__X4F=((__CHARACTER *)__tmp__0XGH)[(__INTEGER)(Self__JZG - 1)];
- } else {
- __tmp__X4F=((__CHARACTER *)__tmp__NEFH)[(__INTEGER)(Self__JZG - 1)];
- };
- fputc((int)(__tmp__X4F),stderr);
- Self__JZG=(__INTEGER)(Self__JZG + 1);
- };
-}
-
-static __PROTOTYPE* create__name__generic_count__JBC(void *f__LBC,void *n__MBC)
-// ({NULLxSTRING_CONSTANT},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
- __PROTOTYPE *result__XVC,*Self__2TS;
- __POINTER ptr__YVC,ptr_table__H3IH,next__G3IH,result__I3IH;
- __POINTER ptr_table__M3IH,next__L3IH,result__N3IH,ptr__JD3;
- __POINTER ptr_table__R3IH,next__Q3IH,result__S3IH,ptr_table__W3IH;
- __POINTER next__V3IH,result__X3IH,ptr__E5GD,ptr_table__13IH;
- __POINTER next__03IH,result__23IH,ptr_table__A4IH,next__53IH;
- __POINTER result__B4IH,file__AUS,ptr__OJ3,ptr_table__P4IH,next__O4IH;
- __POINTER result__Q4IH,ptr_table__U4IH,next__T4IH,result__V4IH;
- __INTEGER typ_id__3VC,idx__DUS,typ_id__OD3,new_capacity__GTX;
- __INTEGER __tmp__KUX,__tmp__LNEC,Self__FUVD,h__FMBC,idx__GMBC;
- __INTEGER idx__Z2GD,new_capacity__02GD,i__12GD,typ_id__J5GD;
- __INTEGER new_capacity__0MHH,old_nb_elts__3MHH,upper__H4IH,Self__F4IH;
- __INTEGER result__HWX,new_capacity__ANHH,old_nb_elts__DNHH;
- __INTEGER upper__M4IH,Self__K4IH,typ_id__TJ3,new_capacity__MMJC;
- __UINTEGER_32 sz__0VC,a__QEFH,new_size__REFH,t__VEFH,a__UEFH;
- __UINTEGER_32 new_size__P3IH,lab_type__O3IH,sz__LD3,a__YEFH;
- __UINTEGER_32 new_size__ZEFH,t__3EFH,a__2EFH,new_size__Z3IH;
- __UINTEGER_32 lab_type__Y3IH,sz__G5GD,a__PFFH,new_size__QFFH,t__UFFH;
- __UINTEGER_32 a__TFFH,new_size__D4IH,lab_type__C4IH,sz__QJ3,a__XFFH;
- __UINTEGER_32 new_size__YFFH,t__2FFH,a__1FFH,new_size__X4IH;
- __UINTEGER_32 lab_type__W4IH;
- __STRING_CONSTANT *Self__MRX;
- __STRING *Self__YMHH,*Self__TBHH,*Self__UBHH;
- void *__tmp__RVS;
- __FAST_ARRAYoITM_TYPE_PARAMETERo *result__ID3,*Self__Z1BC;
- __FAST_ARRAYoPROTOTYPEo *Self__ETX;
- __BOOLEAN __tmp__UTX;
- void **__tmp__JUX,**new__XMEC;
- __HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *Self__2LBC;
- void *node__IMBC,*node1__32GD,*node2__42GD,*__tmp__2NBC;
- void **old_buckets__22GD;
- __HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *result__D5GD;
- __HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *Self__0ATD;
- __CHARACTER *Self__2MHH,*new__4MHH,*Self__CNHH,*new__ENHH,*ptr__QWX;
- __HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo *result__NJ3,*Self__P3BC;
- result__XVC=NULL;
- ptr__YVC=((__POINTER )(NULL));
- typ_id__3VC= 0;
- sz__0VC=((__UINTEGER_32 )sizeof(__PROTOTYPE));
- if ((sz__0VC == 0)) {
- result__XVC=PROTOTYPE__;
- } else {
- typ_id__3VC=__PROTOTYPE__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__0VC);
- if ((typ_id__3VC == (__INTEGER)(- 1))) {
- a__QEFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__REFH=(__UINTEGER_32)((__UINTEGER_32)(sz__0VC + a__QEFH) & (__UINTEGER_32)(~ a__QEFH));
- ptr_table__H3IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__REFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__G3IH=((__POINTER )(NULL));
- result__I3IH=((__POINTER *)ptr_table__H3IH)[ 0];
- if ((result__I3IH == (void *)NULL)) {
- result__I3IH=new_lab__RTJ(new_size__REFH);
- next__G3IH=(void *)((unsigned long)result__I3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__REFH)));
- ((__POINTER *)next__G3IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__H3IH)[ 0]=next__G3IH;
- } else {
- next__G3IH=((__POINTER *)result__I3IH)[ 0];
- if ((next__G3IH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__I3IH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__REFH << 1)) <= 4096)) {
- next__G3IH=(void *)((unsigned long)result__I3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__REFH)));
- } else {
- next__G3IH=new_lab__RTJ(new_size__REFH);
- };
- ((__POINTER *)next__G3IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__H3IH)[ 0]=next__G3IH;
- } else {
- ((__POINTER *)result__I3IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__G3IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__I3IH=next__G3IH;
- };
- };
- ptr__YVC=result__I3IH;
- } else {
- t__VEFH=((__UINTEGER_32 )typ_id__3VC);
- a__UEFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__P3IH=(__UINTEGER_32)((__UINTEGER_32)(sz__0VC + a__UEFH) & (__UINTEGER_32)(~ a__UEFH));
- ptr_table__M3IH=((__POINTER )(&(table_type[(t__VEFH)])));
- lab_type__O3IH=(__UINTEGER_32)(t__VEFH | 1);
- next__L3IH=((__POINTER )(NULL));
- result__N3IH=((__POINTER *)ptr_table__M3IH)[ 0];
- if ((result__N3IH == (void *)NULL)) {
- result__N3IH=new_lab__RTJ(lab_type__O3IH);
- next__L3IH=(void *)((unsigned long)result__N3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__P3IH)));
- ((__POINTER *)next__L3IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__M3IH)[ 0]=next__L3IH;
- } else {
- next__L3IH=((__POINTER *)result__N3IH)[ 0];
- if ((next__L3IH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__N3IH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__P3IH << 1)) <= 4096)) {
- next__L3IH=(void *)((unsigned long)result__N3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__P3IH)));
- } else {
- next__L3IH=new_lab__RTJ(lab_type__O3IH);
- };
- ((__POINTER *)next__L3IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__M3IH)[ 0]=next__L3IH;
- } else {
- ((__POINTER *)result__N3IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__L3IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__N3IH=next__L3IH;
- };
- };
- ptr__YVC=result__N3IH;
- };
- result__XVC=((__PROTOTYPE *)ptr__YVC);
- *(result__XVC) = *(PROTOTYPE__);
- };
- Self__2TS=((__PROTOTYPE *)result__XVC);
- Self__2TS->filename__FSG=f__LBC;
- Self__2TS->parent_named__5.name__LI=n__MBC;
- Self__MRX=((__STRING_CONSTANT *)n__MBC);
- idx__DUS=(__INTEGER)( 1 + fast_reverse_index_of__from__KA3(Self__MRX->storage__RRO,'.',(__INTEGER)(Self__MRX->count__DD - 1)));
- if ((idx__DUS != 0)) {
- copy__VDS(string_tmp__VH,n__MBC);
- Self__YMHH=((__STRING *)string_tmp__VH);
- if ((idx__DUS > Self__YMHH->count__SGC)) {
- Self__YMHH->count__SGC= 0;
- } else {
- if ((idx__DUS > 0)) {
- remove_between__to__MIT(Self__YMHH, 1,idx__DUS);
- };
- };
- Self__2TS->shortname__3JE=get__YWB(string_tmp__VH);
- } else {
- Self__2TS->shortname__3JE=n__MBC;
- };
- result__ID3=NULL;
- ptr__JD3=((__POINTER )(NULL));
- typ_id__OD3= 0;
- sz__LD3=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_TYPE_PARAMETERo));
- if ((sz__LD3 == 0)) {
- result__ID3=FAST_ARRAYoITM_TYPE_PARAMETERo__;
- } else {
- typ_id__OD3=__FAST_ARRAYoITM_TYPE_PARAMETERo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__LD3);
- if ((typ_id__OD3 == (__INTEGER)(- 1))) {
- a__YEFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ZEFH=(__UINTEGER_32)((__UINTEGER_32)(sz__LD3 + a__YEFH) & (__UINTEGER_32)(~ a__YEFH));
- ptr_table__R3IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ZEFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__Q3IH=((__POINTER )(NULL));
- result__S3IH=((__POINTER *)ptr_table__R3IH)[ 0];
- if ((result__S3IH == (void *)NULL)) {
- result__S3IH=new_lab__RTJ(new_size__ZEFH);
- next__Q3IH=(void *)((unsigned long)result__S3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZEFH)));
- ((__POINTER *)next__Q3IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__R3IH)[ 0]=next__Q3IH;
- } else {
- next__Q3IH=((__POINTER *)result__S3IH)[ 0];
- if ((next__Q3IH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__S3IH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__ZEFH << 1)) <= 4096)) {
- next__Q3IH=(void *)((unsigned long)result__S3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZEFH)));
- } else {
- next__Q3IH=new_lab__RTJ(new_size__ZEFH);
- };
- ((__POINTER *)next__Q3IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__R3IH)[ 0]=next__Q3IH;
- } else {
- ((__POINTER *)result__S3IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__Q3IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__S3IH=next__Q3IH;
- };
- };
- ptr__JD3=result__S3IH;
- } else {
- t__3EFH=((__UINTEGER_32 )typ_id__OD3);
- a__2EFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__Z3IH=(__UINTEGER_32)((__UINTEGER_32)(sz__LD3 + a__2EFH) & (__UINTEGER_32)(~ a__2EFH));
- ptr_table__W3IH=((__POINTER )(&(table_type[(t__3EFH)])));
- lab_type__Y3IH=(__UINTEGER_32)(t__3EFH | 1);
- next__V3IH=((__POINTER )(NULL));
- result__X3IH=((__POINTER *)ptr_table__W3IH)[ 0];
- if ((result__X3IH == (void *)NULL)) {
- result__X3IH=new_lab__RTJ(lab_type__Y3IH);
- next__V3IH=(void *)((unsigned long)result__X3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Z3IH)));
- ((__POINTER *)next__V3IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__W3IH)[ 0]=next__V3IH;
- } else {
- next__V3IH=((__POINTER *)result__X3IH)[ 0];
- if ((next__V3IH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__X3IH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__Z3IH << 1)) <= 4096)) {
- next__V3IH=(void *)((unsigned long)result__X3IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Z3IH)));
- } else {
- next__V3IH=new_lab__RTJ(lab_type__Y3IH);
- };
- ((__POINTER *)next__V3IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__W3IH)[ 0]=next__V3IH;
- } else {
- ((__POINTER *)result__X3IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__V3IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__X3IH=next__V3IH;
- };
- };
- ptr__JD3=result__X3IH;
- };
- result__ID3=((__FAST_ARRAYoITM_TYPE_PARAMETERo *)ptr__JD3);
- *(result__ID3) = *(FAST_ARRAYoITM_TYPE_PARAMETERo__);
- };
- Self__Z1BC=((__FAST_ARRAYoITM_TYPE_PARAMETERo *)result__ID3);
- if ((Self__Z1BC->parent_arrayed_collection__LOE.capacity__TABC < 0)) {
- Self__Z1BC->parent_arrayed_collection__LOE.storage__PBBC=create__G01C( 0);
- Self__Z1BC->parent_arrayed_collection__LOE.capacity__TABC= 0;
- };
- Self__Z1BC->parent_arrayed_collection__LOE.upper__RABC=(__INTEGER)(- 1);
- Self__2TS->idf_generic_list__MOE=result__ID3;
- Self__2TS->index__GPG=(__INTEGER)(((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.upper__HJ + 1);
- Self__ETX=((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ);
- new_capacity__GTX= 0;
- if (((__INTEGER)(Self__ETX->parent_arrayed_collection__AJ.upper__HJ + 1) <= (__INTEGER)(Self__ETX->parent_arrayed_collection__AJ.capacity__WEU - 1))) {
- Self__ETX->parent_arrayed_collection__AJ.upper__HJ=(__INTEGER)(Self__ETX->parent_arrayed_collection__AJ.upper__HJ + 1);
- __tmp__UTX=TRUE__;
- } else {
- __tmp__UTX=FALSE__;
- };
- if ((! __tmp__UTX)) {
- if ((Self__ETX->parent_arrayed_collection__AJ.capacity__WEU == 0)) {
- Self__ETX->parent_arrayed_collection__AJ.storage__DVT=create__JDSB( 2);
- Self__ETX->parent_arrayed_collection__AJ.capacity__WEU= 2;
- Self__ETX->parent_arrayed_collection__AJ.upper__HJ= 0;
- } else {
- new_capacity__GTX=(__INTEGER)(Self__ETX->parent_arrayed_collection__AJ.capacity__WEU << 1);
- __tmp__JUX=Self__ETX->parent_arrayed_collection__AJ.storage__DVT;
- __tmp__KUX=Self__ETX->parent_arrayed_collection__AJ.capacity__WEU;
- new__XMEC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__JUX)),((__UINTEGER_32 )(__INTEGER)(__tmp__KUX * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__GTX * ((__INTEGER )(sizeof(void *)))))));
- __tmp__LNEC=(__INTEGER)(new_capacity__GTX - 1);
- Self__FUVD=__tmp__KUX;
- while ((Self__FUVD <= __tmp__LNEC)) {
- new__XMEC[Self__FUVD]=NULL;
- Self__FUVD=(__INTEGER)(Self__FUVD + 1);
- };
- Self__ETX->parent_arrayed_collection__AJ.storage__DVT=new__XMEC;
- Self__ETX->parent_arrayed_collection__AJ.capacity__WEU=new_capacity__GTX;
- Self__ETX->parent_arrayed_collection__AJ.upper__HJ=(__INTEGER)(Self__ETX->parent_arrayed_collection__AJ.upper__HJ + 1);
- };
- };
- ((void **)Self__ETX->parent_arrayed_collection__AJ.storage__DVT)[Self__ETX->parent_arrayed_collection__AJ.upper__HJ]=Self__2TS;
- Self__2LBC=((__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *)prototype_dico__LUS);
- h__FMBC=hash_code__RNW(f__LBC);
- idx__GMBC=(__INTEGER)(h__FMBC % Self__2LBC->capacity__KMBC);
- node__IMBC=((void **)Self__2LBC->buckets__PMBC)[idx__GMBC];
- while ((! (((void *)node__IMBC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__IMBC)->key__1MBC == (void *)f__LBC)))) {
- node__IMBC=((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__IMBC)->next__GNBC;
- };
- if (((void *)node__IMBC == (void *)NULL)) {
- if ((Self__2LBC->capacity__KMBC == Self__2LBC->count__PNBC)) {
- idx__Z2GD= 0;
- node1__32GD=NULL;
- node2__42GD=NULL;
- old_buckets__22GD=Self__2LBC->buckets__PMBC;
- new_capacity__02GD=prime_number_ceiling__021((__INTEGER)(Self__2LBC->capacity__KMBC + 1));
- Self__2LBC->buckets__PMBC=create__ZITC(new_capacity__02GD);
- i__12GD=(__INTEGER)(Self__2LBC->capacity__KMBC - 1);
- Self__2LBC->capacity__KMBC=new_capacity__02GD;
- while ((i__12GD >= 0)) {
- node1__32GD=((void **)old_buckets__22GD)[i__12GD];
- while (((void *)node1__32GD != (void *)NULL)) {
- node2__42GD=((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node1__32GD)->next__GNBC;
- idx__Z2GD=(__INTEGER)(hash_code__RNW(((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node1__32GD)->key__1MBC) % Self__2LBC->capacity__KMBC);
- ((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node1__32GD)->next__GNBC=((void **)Self__2LBC->buckets__PMBC)[idx__Z2GD];
- ((void **)Self__2LBC->buckets__PMBC)[idx__Z2GD]=node1__32GD;
- node1__32GD=node2__42GD;
- };
- i__12GD=(__INTEGER)(i__12GD - 1);
- };
- idx__GMBC=(__INTEGER)(h__FMBC % Self__2LBC->capacity__KMBC);
- };
- __tmp__2NBC=((void **)Self__2LBC->buckets__PMBC)[idx__GMBC];
- result__D5GD=NULL;
- ptr__E5GD=((__POINTER )(NULL));
- typ_id__J5GD= 0;
- sz__G5GD=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo));
- if ((sz__G5GD == 0)) {
- result__D5GD=HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__;
- } else {
- typ_id__J5GD=__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__G5GD);
- if ((typ_id__J5GD == (__INTEGER)(- 1))) {
- a__PFFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__QFFH=(__UINTEGER_32)((__UINTEGER_32)(sz__G5GD + a__PFFH) & (__UINTEGER_32)(~ a__PFFH));
- ptr_table__13IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QFFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__03IH=((__POINTER )(NULL));
- result__23IH=((__POINTER *)ptr_table__13IH)[ 0];
- if ((result__23IH == (void *)NULL)) {
- result__23IH=new_lab__RTJ(new_size__QFFH);
- next__03IH=(void *)((unsigned long)result__23IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QFFH)));
- ((__POINTER *)next__03IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__13IH)[ 0]=next__03IH;
- } else {
- next__03IH=((__POINTER *)result__23IH)[ 0];
- if ((next__03IH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__23IH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__QFFH << 1)) <= 4096)) {
- next__03IH=(void *)((unsigned long)result__23IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QFFH)));
- } else {
- next__03IH=new_lab__RTJ(new_size__QFFH);
- };
- ((__POINTER *)next__03IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__13IH)[ 0]=next__03IH;
- } else {
- ((__POINTER *)result__23IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__03IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__23IH=next__03IH;
- };
- };
- ptr__E5GD=result__23IH;
- } else {
- t__UFFH=((__UINTEGER_32 )typ_id__J5GD);
- a__TFFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__D4IH=(__UINTEGER_32)((__UINTEGER_32)(sz__G5GD + a__TFFH) & (__UINTEGER_32)(~ a__TFFH));
- ptr_table__A4IH=((__POINTER )(&(table_type[(t__UFFH)])));
- lab_type__C4IH=(__UINTEGER_32)(t__UFFH | 1);
- next__53IH=((__POINTER )(NULL));
- result__B4IH=((__POINTER *)ptr_table__A4IH)[ 0];
- if ((result__B4IH == (void *)NULL)) {
- result__B4IH=new_lab__RTJ(lab_type__C4IH);
- next__53IH=(void *)((unsigned long)result__B4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__D4IH)));
- ((__POINTER *)next__53IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__A4IH)[ 0]=next__53IH;
- } else {
- next__53IH=((__POINTER *)result__B4IH)[ 0];
- if ((next__53IH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__B4IH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__D4IH << 1)) <= 4096)) {
- next__53IH=(void *)((unsigned long)result__B4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__D4IH)));
- } else {
- next__53IH=new_lab__RTJ(lab_type__C4IH);
- };
- ((__POINTER *)next__53IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__A4IH)[ 0]=next__53IH;
- } else {
- ((__POINTER *)result__B4IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__53IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__B4IH=next__53IH;
- };
- };
- ptr__E5GD=result__B4IH;
- };
- result__D5GD=((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)ptr__E5GD);
- *(result__D5GD) = *(HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo__);
- };
- Self__0ATD=((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)result__D5GD);
- Self__0ATD->item__NBHD=Self__2TS;
- Self__0ATD->key__1MBC=f__LBC;
- Self__0ATD->next__GNBC=__tmp__2NBC;
- node__IMBC=result__D5GD;
- ((void **)Self__2LBC->buckets__PMBC)[idx__GMBC]=result__D5GD;
- Self__2LBC->count__PNBC=(__INTEGER)(Self__2LBC->count__PNBC + 1);
- } else {
- ((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__IMBC)->item__NBHD=Self__2TS;
- };
- copy__VDS(string_tmp__4VX,f__LBC);
- Self__TBHH=((__STRING *)string_tmp__4VX);
- if ((Self__TBHH->capacity__UCS > Self__TBHH->count__SGC)) {
- ((__CHARACTER *)Self__TBHH->storage__3CS)[Self__TBHH->count__SGC]='\0';
- } else {
- new_capacity__0MHH= 0;
- if ((Self__TBHH->capacity__UCS <= Self__TBHH->count__SGC)) {
- if ((Self__TBHH->capacity__UCS == 0)) {
- Self__TBHH->capacity__UCS= 32;
- Self__TBHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__0MHH=(__INTEGER)(Self__TBHH->capacity__UCS << 1);
- Self__2MHH=((__CHARACTER *)Self__TBHH->storage__3CS);
- old_nb_elts__3MHH=Self__TBHH->capacity__UCS;
- new__4MHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__2MHH),((__UINTEGER_32 )old_nb_elts__3MHH),((__UINTEGER_32 )new_capacity__0MHH)));
- upper__H4IH=(__INTEGER)(new_capacity__0MHH - 1);
- Self__F4IH=old_nb_elts__3MHH;
- while ((Self__F4IH <= upper__H4IH)) {
- new__4MHH[Self__F4IH]='\0';
- Self__F4IH=(__INTEGER)(Self__F4IH + 1);
- };
- Self__TBHH->storage__3CS=new__4MHH;
- Self__TBHH->capacity__UCS=new_capacity__0MHH;
- };
- };
- ((__CHARACTER *)Self__TBHH->storage__3CS)[Self__TBHH->count__SGC]='\0';
- Self__TBHH->count__SGC=(__INTEGER)(Self__TBHH->count__SGC + 1);
- Self__TBHH->count__SGC=(__INTEGER)(Self__TBHH->count__SGC - 1);
- };
- file__AUS=((__POINTER )(fopen((char*)(Self__TBHH->storage__3CS),"rb")));
- fseek((FILE*)((file__AUS)),0,SEEK_END);
- result__HWX=((__INTEGER )(ftell((FILE *)(file__AUS))));
- fseek((FILE*)((file__AUS)),0,SEEK_SET);
- Self__2TS->source__3BC=create__ZBB((__INTEGER)(result__HWX + 1));
- __tmp__RVS=Self__2TS->source__3BC;
- Self__UBHH=((__STRING *)__tmp__RVS);
- if ((Self__UBHH->capacity__UCS > Self__UBHH->count__SGC)) {
- ((__CHARACTER *)Self__UBHH->storage__3CS)[Self__UBHH->count__SGC]='\0';
- } else {
- new_capacity__ANHH= 0;
- if ((Self__UBHH->capacity__UCS <= Self__UBHH->count__SGC)) {
- if ((Self__UBHH->capacity__UCS == 0)) {
- Self__UBHH->capacity__UCS= 32;
- Self__UBHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__ANHH=(__INTEGER)(Self__UBHH->capacity__UCS << 1);
- Self__CNHH=((__CHARACTER *)Self__UBHH->storage__3CS);
- old_nb_elts__DNHH=Self__UBHH->capacity__UCS;
- new__ENHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__CNHH),((__UINTEGER_32 )old_nb_elts__DNHH),((__UINTEGER_32 )new_capacity__ANHH)));
- upper__M4IH=(__INTEGER)(new_capacity__ANHH - 1);
- Self__K4IH=old_nb_elts__DNHH;
- while ((Self__K4IH <= upper__M4IH)) {
- new__ENHH[Self__K4IH]='\0';
- Self__K4IH=(__INTEGER)(Self__K4IH + 1);
- };
- Self__UBHH->storage__3CS=new__ENHH;
- Self__UBHH->capacity__UCS=new_capacity__ANHH;
- };
- };
- ((__CHARACTER *)Self__UBHH->storage__3CS)[Self__UBHH->count__SGC]='\0';
- Self__UBHH->count__SGC=(__INTEGER)(Self__UBHH->count__SGC + 1);
- Self__UBHH->count__SGC=(__INTEGER)(Self__UBHH->count__SGC - 1);
- };
- ptr__QWX=Self__UBHH->storage__3CS;
- fread((void *)((ptr__QWX)),(size_t)(1), (size_t)((result__HWX)),(FILE*)((file__AUS)));
- ((__CHARACTER *)ptr__QWX)[result__HWX]='\0';
- from_external__YZS(__tmp__RVS,ptr__QWX);
- fclose((FILE*)((file__AUS)));
- result__NJ3=NULL;
- ptr__OJ3=((__POINTER )(NULL));
- typ_id__TJ3= 0;
- sz__QJ3=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo));
- if ((sz__QJ3 == 0)) {
- result__NJ3=HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__;
- } else {
- typ_id__TJ3=__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__QJ3);
- if ((typ_id__TJ3 == (__INTEGER)(- 1))) {
- a__XFFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__YFFH=(__UINTEGER_32)((__UINTEGER_32)(sz__QJ3 + a__XFFH) & (__UINTEGER_32)(~ a__XFFH));
- ptr_table__P4IH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__YFFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__O4IH=((__POINTER )(NULL));
- result__Q4IH=((__POINTER *)ptr_table__P4IH)[ 0];
- if ((result__Q4IH == (void *)NULL)) {
- result__Q4IH=new_lab__RTJ(new_size__YFFH);
- next__O4IH=(void *)((unsigned long)result__Q4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YFFH)));
- ((__POINTER *)next__O4IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__P4IH)[ 0]=next__O4IH;
- } else {
- next__O4IH=((__POINTER *)result__Q4IH)[ 0];
- if ((next__O4IH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Q4IH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__YFFH << 1)) <= 4096)) {
- next__O4IH=(void *)((unsigned long)result__Q4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YFFH)));
- } else {
- next__O4IH=new_lab__RTJ(new_size__YFFH);
- };
- ((__POINTER *)next__O4IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__P4IH)[ 0]=next__O4IH;
- } else {
- ((__POINTER *)result__Q4IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__O4IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__Q4IH=next__O4IH;
- };
- };
- ptr__OJ3=result__Q4IH;
- } else {
- t__2FFH=((__UINTEGER_32 )typ_id__TJ3);
- a__1FFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__X4IH=(__UINTEGER_32)((__UINTEGER_32)(sz__QJ3 + a__1FFH) & (__UINTEGER_32)(~ a__1FFH));
- ptr_table__U4IH=((__POINTER )(&(table_type[(t__2FFH)])));
- lab_type__W4IH=(__UINTEGER_32)(t__2FFH | 1);
- next__T4IH=((__POINTER )(NULL));
- result__V4IH=((__POINTER *)ptr_table__U4IH)[ 0];
- if ((result__V4IH == (void *)NULL)) {
- result__V4IH=new_lab__RTJ(lab_type__W4IH);
- next__T4IH=(void *)((unsigned long)result__V4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X4IH)));
- ((__POINTER *)next__T4IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__U4IH)[ 0]=next__T4IH;
- } else {
- next__T4IH=((__POINTER *)result__V4IH)[ 0];
- if ((next__T4IH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__V4IH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__X4IH << 1)) <= 4096)) {
- next__T4IH=(void *)((unsigned long)result__V4IH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X4IH)));
- } else {
- next__T4IH=new_lab__RTJ(lab_type__W4IH);
- };
- ((__POINTER *)next__T4IH)[ 0]=NULL;
- ((__POINTER *)ptr_table__U4IH)[ 0]=next__T4IH;
- } else {
- ((__POINTER *)result__V4IH)[ 0]=(void *)((unsigned long)((__POINTER *)next__T4IH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__V4IH=next__T4IH;
- };
- };
- ptr__OJ3=result__V4IH;
- };
- result__NJ3=((__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo *)ptr__OJ3);
- *(result__NJ3) = *(HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo__);
- };
- Self__P3BC=((__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo *)result__NJ3);
- new_capacity__MMJC=prime_number_ceiling__021( 193);
- Self__P3BC->buckets__NAGC=create__PRSC(new_capacity__MMJC);
- Self__P3BC->capacity__W3BC=new_capacity__MMJC;
- Self__P3BC->count__YOGC= 0;
- Self__2TS->slot_list__YVS=result__NJ3;
- Self__2TS->parent_named__5.parent_itm_object__4.position__SFJ=((__POSITION )(__UINTEGER_32)(((__UINTEGER_32 )Self__2TS->index__GPG) | 131072));
- return(result__XVC);
-}
-
-static __BOOLEAN read_space__XTD()
-// () With resultNo recursive, No inlinable.
-{
- __INTEGER pos2__2TD,level_comment__3TD,stat__4TD,pos__1TD,posold__0TD;
- __INTEGER __tmp__K1DH,__tmp__L1DH,__tmp__M1DH,Self__1RDD;
- __INTEGER new_capacity__SQHH,old_nb_elts__VQHH,upper__VBJH,Self__TBJH;
- __INTEGER new_capacity__YQHH,old_nb_elts__1QHH,upper__0BJH,Self__YBJH;
- __INTEGER new_capacity__4QHH,old_nb_elts__BRHH,upper__5BJH,Self__3BJH;
- __INTEGER new_capacity__ERHH,old_nb_elts__HRHH,upper__ECJH,Self__CCJH;
- __INTEGER Self__KCEB,up__MCEB,nb__I1D,p__J1D,__tmp__44DH,__tmp__54DH;
- __INTEGER __tmp__A5DH;
- __STRING *Self__TQHH,*Self__ZQHH,*Self__5QHH,*Self__FRHH;
- __POSITION pos__A1VG;
- __CHARACTER *__tmp__YYGH,*__tmp__ZYGH,*__tmp__0YGH,*Self__UQHH;
- __CHARACTER *new__WQHH,*Self__0QHH,*new__2QHH,*Self__ARHH,*new__CRHH;
- __CHARACTER *Self__GRHH,*new__IRHH,*__tmp__NHFH,*__tmp__OHFH;
- __CHARACTER *__tmp__PHFH,*__tmp__QHFH,*__tmp__1YGH,*__tmp__2YGH;
- __CHARACTER *__tmp__3YGH;
- __CHARACTER result__L0DH,result__Y0DH,result__B1DH,result__N1DH;
- __CHARACTER result__01DH,result__H2DH,result__Q2DH,result__Z2DH;
- __CHARACTER result__K3DH,result__X3DH,result__E4DH,result__R4DH;
- __CHARACTER result__ACF;
- __BOOLEAN __tmp__IVD,__tmp__LYD,__tmp__25D;
- pos2__2TD= 0;
- level_comment__3TD= 0;
- stat__4TD= 0;
- pos__1TD=position__CCC;
- posold__0TD=(__INTEGER)(- 1);
- if (is_shorter2__VI) {
- ((__STRING *)string_tmp3__HUD)->count__SGC= 0;
- ((__STRING *)string_tmp4__JUD)->count__SGC= 0;
- };
- while ((posold__0TD != position__CCC)) {
- posold__0TD=position__CCC;
- __tmp__K1DH=((__STRING *)source__5BC)->count__SGC;
- __tmp__L1DH=((__STRING *)source__5BC)->count__SGC;
- __tmp__M1DH=((__STRING *)source__5BC)->count__SGC;
- __tmp__YYGH=((__STRING *)source__5BC)->storage__3CS;
- __tmp__ZYGH=((__STRING *)source__5BC)->storage__3CS;
- __tmp__0YGH=((__STRING *)source__5BC)->storage__3CS;
- until_do__YPI:
- {
- result__L0DH='\0';
- if ((position__CCC > __tmp__K1DH)) {
- result__L0DH=((__CHARACTER )(( 0)));
- } else {
- result__L0DH=((__CHARACTER *)__tmp__YYGH)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__L0DH == ((__CHARACTER )(( 0))))) {
- __tmp__IVD=TRUE__;
- } else {
- result__Y0DH='\0';
- if ((position__CCC > __tmp__L1DH)) {
- result__Y0DH=((__CHARACTER )(( 0)));
- } else {
- result__Y0DH=((__CHARACTER *)__tmp__ZYGH)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__IVD=(((__INTEGER_8 )result__Y0DH) > ((__INTEGER_8 )' '));
- };
- if ((! __tmp__IVD)) {
- if ((is_shorter2__VI | is_shorter__LZ)) {
- result__B1DH='\0';
- if ((position__CCC > __tmp__M1DH)) {
- result__B1DH=((__CHARACTER )(( 0)));
- } else {
- result__B1DH=((__CHARACTER *)__tmp__0YGH)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__B1DH == '\n')) {
- Self__1RDD=stat__4TD;
- if ((stat__4TD == 0)) {
- stat__4TD= 1;
- };
- if ((Self__1RDD == 1)) {
- stat__4TD= 2;
- };
- };
- };
- position__CCC=(__INTEGER)(position__CCC + 1);
- goto until_do__YPI;
- };
- };
- if ((position__CCC < ((__STRING *)source__5BC)->count__SGC)) {
- result__N1DH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__N1DH=((__CHARACTER )(( 0)));
- } else {
- result__N1DH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if (((result__N1DH == '/') && (((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)((__INTEGER)(position__CCC + 1) - 1)] == '/'))) {
- position__CCC=(__INTEGER)(position__CCC + 2);
- pos2__2TD=position__CCC;
- until_do__ZX2D:
- {
- result__01DH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__01DH=((__CHARACTER )(( 0)));
- } else {
- result__01DH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__01DH == ((__CHARACTER )(( 0))))) {
- __tmp__LYD=TRUE__;
- } else {
- result__H2DH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__H2DH=((__CHARACTER )(( 0)));
- } else {
- result__H2DH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__LYD=(result__H2DH == '\n');
- };
- if ((! __tmp__LYD)) {
- if (is_shorter2__VI) {
- if (((stat__4TD == 0) || (stat__4TD == 1))) {
- result__Q2DH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__Q2DH=((__CHARACTER )(( 0)));
- } else {
- result__Q2DH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- Self__TQHH=((__STRING *)string_tmp3__HUD);
- new_capacity__SQHH= 0;
- if ((Self__TQHH->capacity__UCS <= Self__TQHH->count__SGC)) {
- if ((Self__TQHH->capacity__UCS == 0)) {
- Self__TQHH->capacity__UCS= 32;
- Self__TQHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__SQHH=(__INTEGER)(Self__TQHH->capacity__UCS << 1);
- Self__UQHH=((__CHARACTER *)Self__TQHH->storage__3CS);
- old_nb_elts__VQHH=Self__TQHH->capacity__UCS;
- new__WQHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__UQHH),((__UINTEGER_32 )old_nb_elts__VQHH),((__UINTEGER_32 )new_capacity__SQHH)));
- upper__VBJH=(__INTEGER)(new_capacity__SQHH - 1);
- Self__TBJH=old_nb_elts__VQHH;
- while ((Self__TBJH <= upper__VBJH)) {
- new__WQHH[Self__TBJH]='\0';
- Self__TBJH=(__INTEGER)(Self__TBJH + 1);
- };
- Self__TQHH->storage__3CS=new__WQHH;
- Self__TQHH->capacity__UCS=new_capacity__SQHH;
- };
- };
- ((__CHARACTER *)Self__TQHH->storage__3CS)[Self__TQHH->count__SGC]=result__Q2DH;
- Self__TQHH->count__SGC=(__INTEGER)(Self__TQHH->count__SGC + 1);
- };
- if ((stat__4TD == 2)) {
- result__Z2DH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__Z2DH=((__CHARACTER )(( 0)));
- } else {
- result__Z2DH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- Self__ZQHH=((__STRING *)string_tmp4__JUD);
- new_capacity__YQHH= 0;
- if ((Self__ZQHH->capacity__UCS <= Self__ZQHH->count__SGC)) {
- if ((Self__ZQHH->capacity__UCS == 0)) {
- Self__ZQHH->capacity__UCS= 32;
- Self__ZQHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__YQHH=(__INTEGER)(Self__ZQHH->capacity__UCS << 1);
- Self__0QHH=((__CHARACTER *)Self__ZQHH->storage__3CS);
- old_nb_elts__1QHH=Self__ZQHH->capacity__UCS;
- new__2QHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__0QHH),((__UINTEGER_32 )old_nb_elts__1QHH),((__UINTEGER_32 )new_capacity__YQHH)));
- upper__0BJH=(__INTEGER)(new_capacity__YQHH - 1);
- Self__YBJH=old_nb_elts__1QHH;
- while ((Self__YBJH <= upper__0BJH)) {
- new__2QHH[Self__YBJH]='\0';
- Self__YBJH=(__INTEGER)(Self__YBJH + 1);
- };
- Self__ZQHH->storage__3CS=new__2QHH;
- Self__ZQHH->capacity__UCS=new_capacity__YQHH;
- };
- };
- ((__CHARACTER *)Self__ZQHH->storage__3CS)[Self__ZQHH->count__SGC]=result__Z2DH;
- Self__ZQHH->count__SGC=(__INTEGER)(Self__ZQHH->count__SGC + 1);
- };
- };
- position__CCC=(__INTEGER)(position__CCC + 1);
- goto until_do__ZX2D;
- };
- };
- if (is_shorter2__VI) {
- if (((stat__4TD == 0) || (stat__4TD == 1))) {
- Self__5QHH=((__STRING *)string_tmp3__HUD);
- new_capacity__4QHH= 0;
- if ((Self__5QHH->capacity__UCS <= Self__5QHH->count__SGC)) {
- if ((Self__5QHH->capacity__UCS == 0)) {
- Self__5QHH->capacity__UCS= 32;
- Self__5QHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__4QHH=(__INTEGER)(Self__5QHH->capacity__UCS << 1);
- Self__ARHH=((__CHARACTER *)Self__5QHH->storage__3CS);
- old_nb_elts__BRHH=Self__5QHH->capacity__UCS;
- new__CRHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__ARHH),((__UINTEGER_32 )old_nb_elts__BRHH),((__UINTEGER_32 )new_capacity__4QHH)));
- upper__5BJH=(__INTEGER)(new_capacity__4QHH - 1);
- Self__3BJH=old_nb_elts__BRHH;
- while ((Self__3BJH <= upper__5BJH)) {
- new__CRHH[Self__3BJH]='\0';
- Self__3BJH=(__INTEGER)(Self__3BJH + 1);
- };
- Self__5QHH->storage__3CS=new__CRHH;
- Self__5QHH->capacity__UCS=new_capacity__4QHH;
- };
- };
- ((__CHARACTER *)Self__5QHH->storage__3CS)[Self__5QHH->count__SGC]='\n';
- Self__5QHH->count__SGC=(__INTEGER)(Self__5QHH->count__SGC + 1);
- };
- if ((stat__4TD == 2)) {
- Self__FRHH=((__STRING *)string_tmp4__JUD);
- new_capacity__ERHH= 0;
- if ((Self__FRHH->capacity__UCS <= Self__FRHH->count__SGC)) {
- if ((Self__FRHH->capacity__UCS == 0)) {
- Self__FRHH->capacity__UCS= 32;
- Self__FRHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__ERHH=(__INTEGER)(Self__FRHH->capacity__UCS << 1);
- Self__GRHH=((__CHARACTER *)Self__FRHH->storage__3CS);
- old_nb_elts__HRHH=Self__FRHH->capacity__UCS;
- new__IRHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__GRHH),((__UINTEGER_32 )old_nb_elts__HRHH),((__UINTEGER_32 )new_capacity__ERHH)));
- upper__ECJH=(__INTEGER)(new_capacity__ERHH - 1);
- Self__CCJH=old_nb_elts__HRHH;
- while ((Self__CCJH <= upper__ECJH)) {
- new__IRHH[Self__CCJH]='\0';
- Self__CCJH=(__INTEGER)(Self__CCJH + 1);
- };
- Self__FRHH->storage__3CS=new__IRHH;
- Self__FRHH->capacity__UCS=new_capacity__ERHH;
- };
- };
- ((__CHARACTER *)Self__FRHH->storage__3CS)[Self__FRHH->count__SGC]='\n';
- Self__FRHH->count__SGC=(__INTEGER)(Self__FRHH->count__SGC + 1);
- };
- };
- if (is_shorter__LZ) {
- Self__KCEB=(__INTEGER)((__INTEGER)(pos2__2TD - 2) + short_derive__PCC);
- up__MCEB=((__STRING *)output_code__SI)->count__SGC;
- if ((( 1 <= Self__KCEB) && (up__MCEB >= Self__KCEB))) {
- remove_between__to__MIT(output_code__SI,(__INTEGER)((__INTEGER)(pos2__2TD - 2) + short_derive__PCC),(__INTEGER)((__INTEGER)(pos2__2TD - 1) + short_derive__PCC));
- short_derive__PCC=(__INTEGER)(short_derive__PCC - 2);
- };
- nb__I1D= 0;
- p__J1D=(__INTEGER)(pos2__2TD - 3);
- __tmp__NHFH=((__STRING *)source__5BC)->storage__3CS;
- __tmp__OHFH=((__STRING *)source__5BC)->storage__3CS;
- while (((p__J1D >= 1) && (((__INTEGER_8 )((__CHARACTER *)__tmp__NHFH)[(__INTEGER)(p__J1D - 1)]) <= ((__INTEGER_8 )' ')))) {
- if ((((__CHARACTER *)__tmp__OHFH)[(__INTEGER)(p__J1D - 1)] == '\n')) {
- nb__I1D=(__INTEGER)(nb__I1D + 1);
- };
- p__J1D=(__INTEGER)(p__J1D - 1);
- };
- if ((nb__I1D > 1)) {
- stat__4TD= 2;
- };
- if (((stat__4TD == 0) || (stat__4TD == 1))) {
- short__token__to__GDD((&__string_128),pos2__2TD,position__CCC);
- };
- if ((stat__4TD == 2)) {
- short__token__to__GDD((&__string_127),pos2__2TD,position__CCC);
- };
- };
- position__CCC=(__INTEGER)(position__CCC + 1);
- };
- };
- if ((position__CCC < ((__STRING *)source__5BC)->count__SGC)) {
- pos2__2TD=position__CCC;
- result__K3DH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__K3DH=((__CHARACTER )(( 0)));
- } else {
- result__K3DH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if (((result__K3DH == '/') && (((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)((__INTEGER)(position__CCC + 1) - 1)] == '*'))) {
- position__CCC=(__INTEGER)(position__CCC + 2);
- level_comment__3TD= 1;
- __tmp__44DH=((__STRING *)source__5BC)->count__SGC;
- __tmp__54DH=((__STRING *)source__5BC)->count__SGC;
- __tmp__A5DH=((__STRING *)source__5BC)->count__SGC;
- __tmp__PHFH=((__STRING *)source__5BC)->storage__3CS;
- __tmp__QHFH=((__STRING *)source__5BC)->storage__3CS;
- __tmp__1YGH=((__STRING *)source__5BC)->storage__3CS;
- __tmp__2YGH=((__STRING *)source__5BC)->storage__3CS;
- __tmp__3YGH=((__STRING *)source__5BC)->storage__3CS;
- until_do__1Y2D:
- {
- result__X3DH='\0';
- if ((position__CCC > __tmp__44DH)) {
- result__X3DH=((__CHARACTER )(( 0)));
- } else {
- result__X3DH=((__CHARACTER *)__tmp__PHFH)[(__INTEGER)(position__CCC - 1)];
- };
- if ((! ((result__X3DH == ((__CHARACTER )(( 0)))) || (level_comment__3TD == 0)))) {
- result__E4DH='\0';
- if ((position__CCC > __tmp__54DH)) {
- result__E4DH=((__CHARACTER )(( 0)));
- } else {
- result__E4DH=((__CHARACTER *)__tmp__QHFH)[(__INTEGER)(position__CCC - 1)];
- };
- if (((result__E4DH == '/') && (((__CHARACTER *)__tmp__1YGH)[(__INTEGER)((__INTEGER)(position__CCC + 1) - 1)] == '*'))) {
- level_comment__3TD=(__INTEGER)(level_comment__3TD + 1);
- position__CCC=(__INTEGER)(position__CCC + 2);
- __tmp__25D=TRUE__;
- } else {
- __tmp__25D=FALSE__;
- };
- if ((! __tmp__25D)) {
- result__R4DH='\0';
- if ((position__CCC > __tmp__A5DH)) {
- result__R4DH=((__CHARACTER )(( 0)));
- } else {
- result__R4DH=((__CHARACTER *)__tmp__2YGH)[(__INTEGER)(position__CCC - 1)];
- };
- if (((result__R4DH == '*') && (((__CHARACTER *)__tmp__3YGH)[(__INTEGER)((__INTEGER)(position__CCC + 1) - 1)] == '/'))) {
- level_comment__3TD=(__INTEGER)(level_comment__3TD - 1);
- position__CCC=(__INTEGER)(position__CCC + 2);
- } else {
- position__CCC=(__INTEGER)(position__CCC + 1);
- };
- };
- goto until_do__1Y2D;
- };
- };
- if ((level_comment__3TD != 0)) {
- position__CCC=pos2__2TD;
- pos__A1VG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_206));
- put_position__FRG(pos__A1VG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- short__token__to__GDD((&__string_70),pos2__2TD,position__CCC);
- };
- };
- };
- if ((is_shorter2__VI && (! skip_comment__ZBE))) {
- if ((((__STRING *)string_tmp3__HUD)->count__SGC == 0)) {
- last_comment_slot__LCE=NULL;
- } else {
- last_comment_slot__LCE=get__YWB(string_tmp3__HUD);
- };
- if ((((__STRING *)string_tmp4__JUD)->count__SGC != 0)) {
- last_comment_extern__XZC=get__YWB(string_tmp4__JUD);
- };
- };
- begin_position__BDE=position__CCC;
- result__ACF='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__ACF=((__CHARACTER )(( 0)));
- } else {
- result__ACF=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- return(((position__CCC != pos__1TD) | (result__ACF != ((__CHARACTER )(( 0))))));
-}
-
-static __BOOLEAN read_identifier__2BL()
-// () With resultNo recursive, No inlinable.
-{
- __INTEGER posold__ACL,idx__BCL,new_capacity__GNHH,old_nb_elts__JNHH;
- __INTEGER upper__14IH,Self__Z4IH;
- __STRING *Self__HNHH;
- __POSITION pos__J31G;
- __BOOLEAN result__5BL,__tmp__OCL,result__3FFH,__tmp__4DL,result__AGFH;
- __BOOLEAN result__JYGH,__tmp__0DL,__tmp__1DL;
- __CHARACTER result__HWDH,result__VWDH,result__CXDH,result__LXDH;
- __CHARACTER result__UXDH,result__3XDH;
- __CHARACTER *Self__INHH,*new__KNHH;
- result__5BL=FALSE__;
- posold__ACL= 0;
- idx__BCL= 0;
- if ((! read_space__XTD())) {
- __tmp__OCL=TRUE__;
- } else {
- result__HWDH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__HWDH=((__CHARACTER )(( 0)));
- } else {
- result__HWDH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- result__3FFH=FALSE__;
- if ((((__INTEGER_8 )result__HWDH) >= ((__INTEGER_8 )'a'))) {
- result__3FFH=(((__INTEGER_8 )result__HWDH) <= ((__INTEGER_8 )'z'));
- };
- __tmp__OCL=(! result__3FFH);
- };
- if (__tmp__OCL) {
- result__5BL=FALSE__;
- } else {
- posold__ACL=position__CCC;
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- until_do__P1ZE:
- {
- result__VWDH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__VWDH=((__CHARACTER )(( 0)));
- } else {
- result__VWDH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__VWDH == ((__CHARACTER )(( 0))))) {
- __tmp__4DL=TRUE__;
- } else {
- result__CXDH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__CXDH=((__CHARACTER )(( 0)));
- } else {
- result__CXDH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- result__AGFH=FALSE__;
- if ((((__INTEGER_8 )result__CXDH) >= ((__INTEGER_8 )'a'))) {
- result__AGFH=(((__INTEGER_8 )result__CXDH) <= ((__INTEGER_8 )'z'));
- };
- if ((! result__AGFH)) {
- result__LXDH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__LXDH=((__CHARACTER )(( 0)));
- } else {
- result__LXDH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- result__JYGH=FALSE__;
- if ((((__INTEGER_8 )result__LXDH) >= ((__INTEGER_8 )'0'))) {
- result__JYGH=(((__INTEGER_8 )result__LXDH) <= ((__INTEGER_8 )'9'));
- };
- __tmp__0DL=(! result__JYGH);
- } else {
- __tmp__0DL=FALSE__;
- };
- if (__tmp__0DL) {
- result__UXDH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__UXDH=((__CHARACTER )(( 0)));
- } else {
- result__UXDH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__1DL=(result__UXDH != '_');
- } else {
- __tmp__1DL=FALSE__;
- };
- __tmp__4DL=__tmp__1DL;
- };
- if ((! __tmp__4DL)) {
- result__3XDH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__3XDH=((__CHARACTER )(( 0)));
- } else {
- result__3XDH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- Self__HNHH=((__STRING *)string_tmp__VH);
- new_capacity__GNHH= 0;
- if ((Self__HNHH->capacity__UCS <= Self__HNHH->count__SGC)) {
- if ((Self__HNHH->capacity__UCS == 0)) {
- Self__HNHH->capacity__UCS= 32;
- Self__HNHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__GNHH=(__INTEGER)(Self__HNHH->capacity__UCS << 1);
- Self__INHH=((__CHARACTER *)Self__HNHH->storage__3CS);
- old_nb_elts__JNHH=Self__HNHH->capacity__UCS;
- new__KNHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__INHH),((__UINTEGER_32 )old_nb_elts__JNHH),((__UINTEGER_32 )new_capacity__GNHH)));
- upper__14IH=(__INTEGER)(new_capacity__GNHH - 1);
- Self__Z4IH=old_nb_elts__JNHH;
- while ((Self__Z4IH <= upper__14IH)) {
- new__KNHH[Self__Z4IH]='\0';
- Self__Z4IH=(__INTEGER)(Self__Z4IH + 1);
- };
- Self__HNHH->storage__3CS=new__KNHH;
- Self__HNHH->capacity__UCS=new_capacity__GNHH;
- };
- };
- ((__CHARACTER *)Self__HNHH->storage__3CS)[Self__HNHH->count__SGC]=result__3XDH;
- Self__HNHH->count__SGC=(__INTEGER)(Self__HNHH->count__SGC + 1);
- position__CCC=(__INTEGER)(position__CCC + 1);
- goto until_do__P1ZE;
- };
- };
- if ((((__STRING *)string_tmp__VH)->count__SGC != 0)) {
- idx__BCL=first_substring_index__W0ZE(string_tmp__VH);
- if ((idx__BCL != 0)) {
- position__CCC=(__INTEGER)(posold__ACL + idx__BCL);
- pos__J31G=current_position__B0F();
- put_error__text__1PG( 0,(&__string_207));
- put_position__FRG(pos__J31G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- last_string__D2C=get__YWB(string_tmp__VH);
- result__5BL=TRUE__;
- };
- };
- return(result__5BL);
-}
-
-static __POSITION current_position__B0F()
-// () With resultNo recursive, No inlinable.
-{
- __POSITION result__E0F;
- __CHARACTER *__tmp__LYGH;
- result__E0F=((__POSITION ) 0);
- __tmp__LYGH=((__STRING *)source__5BC)->storage__3CS;
- while ((pos_cur__FCC != position__CCC)) {
- if ((((__CHARACTER *)__tmp__LYGH)[(__INTEGER)(pos_cur__FCC - 1)] == '\n')) {
- pos_col__HCC= 0;
- pos_line__GCC=(__INTEGER)(pos_line__GCC + 1);
- } else {
- pos_col__HCC=(__INTEGER)(pos_col__HCC + 1);
- };
- pos_cur__FCC=(__INTEGER)(pos_cur__FCC + 1);
- };
- if ((pos_line__GCC > 32767)) {
- result__E0F=((__POSITION )(__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((__PROTOTYPE *)object__ZBC)->index__GPG) | ((__UINTEGER_32 )(__INTEGER)(pos_col__HCC << 9))) | 4294836224LU));
- put_error__text__1PG( 0,(&__string_208));
- put_position__FRG(result__E0F);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- if ((pos_col__HCC > 255)) {
- result__E0F=((__POSITION )(__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((__PROTOTYPE *)object__ZBC)->index__GPG) | 130560) | ((__UINTEGER_32 )(__INTEGER)(pos_line__GCC << 17))));
- put_error__text__1PG( 0,(&__string_209));
- put_position__FRG(result__E0F);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- return(((__POSITION )(__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((__PROTOTYPE *)object__ZBC)->index__GPG) | ((__UINTEGER_32 )(__INTEGER)(pos_col__HCC << 9))) | ((__UINTEGER_32 )(__INTEGER)(pos_line__GCC << 17)))));
-}
-
-static void put_error__text__1PG(__INTEGER type__3PG,void *txt__4PG)
-// ({INTEGER},{NULLxSTRING_CONSTANTxSTRING}) VoidNo recursive, No inlinable.
-{
- type_error__5PG=type__3PG;
- ((__STRING *)msg_err__AQG)->count__SGC= 0;
- if ((type__3PG == 0)) {
- append__3OS(msg_err__AQG,(&__string_210));
- };
- if ((type__3PG == 1)) {
- append__3OS(msg_err__AQG,(&__string_211));
- };
- if ((type__3PG == 2)) {
- append__3OS(msg_err__AQG,(&__string_212));
- };
- if ((type__3PG == 3)) {
- append__3OS(msg_err__AQG,(&__string_213));
- };
- append__3OS(msg_err__AQG,txt__4PG);
-}
-
-static void put_position__FRG(__POSITION Self__GRG)
-// ({POSITION}) VoidNo recursive, No inlinable.
-{
- __UINTEGER_32 c__IRG,__tmp__QSG,cols__LRG;
- __STRING *Self__NNHH,*Self__TNHH,*Self__ZNHH,*Self__5NHH,*Self__FOHH;
- __INTEGER new_capacity__MNHH,old_nb_elts__PNHH,upper__A5IH,Self__44IH;
- __INTEGER pos__HRG,Self__3NH,limit_up__4NH,new_capacity__SNHH;
- __INTEGER old_nb_elts__VNHH,upper__F5IH,Self__D5IH,new_capacity__YNHH;
- __INTEGER old_nb_elts__1NHH,upper__K5IH,Self__I5IH,new_capacity__4NHH;
- __INTEGER old_nb_elts__BOHH,upper__P5IH,Self__N5IH,new_capacity__EOHH;
- __INTEGER old_nb_elts__HOHH,upper__U5IH,Self__S5IH;
- void *src__ORG;
- __CHARACTER char__PRG;
- __CHARACTER *Self__ONHH,*new__QNHH,*__tmp__TGFH,*Self__UNHH,*new__WNHH;
- __CHARACTER *Self__0NHH,*new__2NHH,*Self__AOHH,*new__COHH,*Self__GOHH;
- __CHARACTER *new__IOHH;
- c__IRG= 0;
- char__PRG='\0';
- append__3OS(msg_err__AQG,(&__string_214));
- append_in__5KH((__UINTEGER_32)(((__UINTEGER_32 )Self__GRG) >> 17),msg_err__AQG);
- append__3OS(msg_err__AQG,(&__string_215));
- append_in__5KH((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )Self__GRG) >> 9) & 255),msg_err__AQG);
- append__3OS(msg_err__AQG,(&__string_216));
- append__3OS(msg_err__AQG,((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__DVT)[(__INTEGER)(((__INTEGER )((__UINTEGER_32 )Self__GRG)) & 511)])->parent_named__5.name__LI);
- Self__NNHH=((__STRING *)msg_err__AQG);
- new_capacity__MNHH= 0;
- if ((Self__NNHH->capacity__UCS <= Self__NNHH->count__SGC)) {
- if ((Self__NNHH->capacity__UCS == 0)) {
- Self__NNHH->capacity__UCS= 32;
- Self__NNHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__MNHH=(__INTEGER)(Self__NNHH->capacity__UCS << 1);
- Self__ONHH=((__CHARACTER *)Self__NNHH->storage__3CS);
- old_nb_elts__PNHH=Self__NNHH->capacity__UCS;
- new__QNHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__ONHH),((__UINTEGER_32 )old_nb_elts__PNHH),((__UINTEGER_32 )new_capacity__MNHH)));
- upper__A5IH=(__INTEGER)(new_capacity__MNHH - 1);
- Self__44IH=old_nb_elts__PNHH;
- while ((Self__44IH <= upper__A5IH)) {
- new__QNHH[Self__44IH]='\0';
- Self__44IH=(__INTEGER)(Self__44IH + 1);
- };
- Self__NNHH->storage__3CS=new__QNHH;
- Self__NNHH->capacity__UCS=new_capacity__MNHH;
- };
- };
- ((__CHARACTER *)Self__NNHH->storage__3CS)[Self__NNHH->count__SGC]='(';
- Self__NNHH->count__SGC=(__INTEGER)(Self__NNHH->count__SGC + 1);
- append__3OS(msg_err__AQG,((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__DVT)[(__INTEGER)(((__INTEGER )((__UINTEGER_32 )Self__GRG)) & 511)])->filename__FSG);
- append__3OS(msg_err__AQG,(&__string_217));
- src__ORG=((__PROTOTYPE *)((void **)((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__DVT)[(__INTEGER)(((__INTEGER )((__UINTEGER_32 )Self__GRG)) & 511)])->source__3BC;
- pos__HRG= 1;
- __tmp__QSG=(__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )Self__GRG) >> 17) - 1);
- Self__3NH= 1;
- limit_up__4NH=((__INTEGER )__tmp__QSG);
- __tmp__TGFH=((__STRING *)src__ORG)->storage__3CS;
- while ((Self__3NH <= limit_up__4NH)) {
- while ((((__CHARACTER *)__tmp__TGFH)[(__INTEGER)(pos__HRG - 1)] != '\n')) {
- pos__HRG=(__INTEGER)(pos__HRG + 1);
- };
- pos__HRG=(__INTEGER)(pos__HRG + 1);
- Self__3NH=(__INTEGER)(Self__3NH + 1);
- };
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- cols__LRG=(__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )Self__GRG) >> 9) & 255);
- while ((! ((pos__HRG > ((__STRING *)src__ORG)->count__SGC) || (((__CHARACTER *)((__STRING *)src__ORG)->storage__3CS)[(__INTEGER)(pos__HRG - 1)] == '\n')))) {
- char__PRG=((__CHARACTER *)((__STRING *)src__ORG)->storage__3CS)[(__INTEGER)(pos__HRG - 1)];
- Self__TNHH=((__STRING *)msg_err__AQG);
- new_capacity__SNHH= 0;
- if ((Self__TNHH->capacity__UCS <= Self__TNHH->count__SGC)) {
- if ((Self__TNHH->capacity__UCS == 0)) {
- Self__TNHH->capacity__UCS= 32;
- Self__TNHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__SNHH=(__INTEGER)(Self__TNHH->capacity__UCS << 1);
- Self__UNHH=((__CHARACTER *)Self__TNHH->storage__3CS);
- old_nb_elts__VNHH=Self__TNHH->capacity__UCS;
- new__WNHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__UNHH),((__UINTEGER_32 )old_nb_elts__VNHH),((__UINTEGER_32 )new_capacity__SNHH)));
- upper__F5IH=(__INTEGER)(new_capacity__SNHH - 1);
- Self__D5IH=old_nb_elts__VNHH;
- while ((Self__D5IH <= upper__F5IH)) {
- new__WNHH[Self__D5IH]='\0';
- Self__D5IH=(__INTEGER)(Self__D5IH + 1);
- };
- Self__TNHH->storage__3CS=new__WNHH;
- Self__TNHH->capacity__UCS=new_capacity__SNHH;
- };
- };
- ((__CHARACTER *)Self__TNHH->storage__3CS)[Self__TNHH->count__SGC]=char__PRG;
- Self__TNHH->count__SGC=(__INTEGER)(Self__TNHH->count__SGC + 1);
- if ((c__IRG < cols__LRG)) {
- if ((char__PRG == '\t')) {
- Self__ZNHH=((__STRING *)string_tmp__VH);
- new_capacity__YNHH= 0;
- if ((Self__ZNHH->capacity__UCS <= Self__ZNHH->count__SGC)) {
- if ((Self__ZNHH->capacity__UCS == 0)) {
- Self__ZNHH->capacity__UCS= 32;
- Self__ZNHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__YNHH=(__INTEGER)(Self__ZNHH->capacity__UCS << 1);
- Self__0NHH=((__CHARACTER *)Self__ZNHH->storage__3CS);
- old_nb_elts__1NHH=Self__ZNHH->capacity__UCS;
- new__2NHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__0NHH),((__UINTEGER_32 )old_nb_elts__1NHH),((__UINTEGER_32 )new_capacity__YNHH)));
- upper__K5IH=(__INTEGER)(new_capacity__YNHH - 1);
- Self__I5IH=old_nb_elts__1NHH;
- while ((Self__I5IH <= upper__K5IH)) {
- new__2NHH[Self__I5IH]='\0';
- Self__I5IH=(__INTEGER)(Self__I5IH + 1);
- };
- Self__ZNHH->storage__3CS=new__2NHH;
- Self__ZNHH->capacity__UCS=new_capacity__YNHH;
- };
- };
- ((__CHARACTER *)Self__ZNHH->storage__3CS)[Self__ZNHH->count__SGC]='\t';
- Self__ZNHH->count__SGC=(__INTEGER)(Self__ZNHH->count__SGC + 1);
- } else {
- Self__5NHH=((__STRING *)string_tmp__VH);
- new_capacity__4NHH= 0;
- if ((Self__5NHH->capacity__UCS <= Self__5NHH->count__SGC)) {
- if ((Self__5NHH->capacity__UCS == 0)) {
- Self__5NHH->capacity__UCS= 32;
- Self__5NHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__4NHH=(__INTEGER)(Self__5NHH->capacity__UCS << 1);
- Self__AOHH=((__CHARACTER *)Self__5NHH->storage__3CS);
- old_nb_elts__BOHH=Self__5NHH->capacity__UCS;
- new__COHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__AOHH),((__UINTEGER_32 )old_nb_elts__BOHH),((__UINTEGER_32 )new_capacity__4NHH)));
- upper__P5IH=(__INTEGER)(new_capacity__4NHH - 1);
- Self__N5IH=old_nb_elts__BOHH;
- while ((Self__N5IH <= upper__P5IH)) {
- new__COHH[Self__N5IH]='\0';
- Self__N5IH=(__INTEGER)(Self__N5IH + 1);
- };
- Self__5NHH->storage__3CS=new__COHH;
- Self__5NHH->capacity__UCS=new_capacity__4NHH;
- };
- };
- ((__CHARACTER *)Self__5NHH->storage__3CS)[Self__5NHH->count__SGC]=' ';
- Self__5NHH->count__SGC=(__INTEGER)(Self__5NHH->count__SGC + 1);
- };
- };
- c__IRG=(__UINTEGER_32)(c__IRG + 1);
- pos__HRG=(__INTEGER)(pos__HRG + 1);
- };
- Self__FOHH=((__STRING *)msg_err__AQG);
- new_capacity__EOHH= 0;
- if ((Self__FOHH->capacity__UCS <= Self__FOHH->count__SGC)) {
- if ((Self__FOHH->capacity__UCS == 0)) {
- Self__FOHH->capacity__UCS= 32;
- Self__FOHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__EOHH=(__INTEGER)(Self__FOHH->capacity__UCS << 1);
- Self__GOHH=((__CHARACTER *)Self__FOHH->storage__3CS);
- old_nb_elts__HOHH=Self__FOHH->capacity__UCS;
- new__IOHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__GOHH),((__UINTEGER_32 )old_nb_elts__HOHH),((__UINTEGER_32 )new_capacity__EOHH)));
- upper__U5IH=(__INTEGER)(new_capacity__EOHH - 1);
- Self__S5IH=old_nb_elts__HOHH;
- while ((Self__S5IH <= upper__U5IH)) {
- new__IOHH[Self__S5IH]='\0';
- Self__S5IH=(__INTEGER)(Self__S5IH + 1);
- };
- Self__FOHH->storage__3CS=new__IOHH;
- Self__FOHH->capacity__UCS=new_capacity__EOHH;
- };
- };
- ((__CHARACTER *)Self__FOHH->storage__3CS)[Self__FOHH->count__SGC]='\n';
- Self__FOHH->count__SGC=(__INTEGER)(Self__FOHH->count__SGC + 1);
- append__3OS(msg_err__AQG,string_tmp__VH);
- append__3OS(msg_err__AQG,(&__string_218));
-}
-
-static __BOOLEAN fast_has__IDT(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__JDT,void *k__KDT)
-// ({HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
- void *node__UDT;
- node__UDT=((void **)Self__JDT->buckets__1DT)[(__INTEGER)(hash_code__RNW(k__KDT) % Self__JDT->capacity__WDT)];
- while ((! (((void *)node__UDT == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__UDT)->key__HET == (void *)k__KDT)))) {
- node__UDT=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__UDT)->next__SET;
- };
- return(((void *)node__UDT != (void *)NULL));
-}
-
-static __INTEGER hash_code__RNW(__STRING_CONSTANT *Self__SNW)
-// ({STRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
- __INTEGER result__UNW,__tmp__VNW,Self__0R1;
- __CHARACTER *__tmp__YGFH;
- result__UNW= 0;
- __tmp__VNW=Self__SNW->count__DD;
- Self__0R1= 1;
- __tmp__YGFH=Self__SNW->storage__RRO;
- while ((Self__0R1 <= __tmp__VNW)) {
- result__UNW=(__INTEGER)((__INTEGER)( 5 * result__UNW) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)__tmp__YGFH)[(__INTEGER)(Self__0R1 - 1)])));
- Self__0R1=(__INTEGER)(Self__0R1 + 1);
- };
- if ((result__UNW < 0)) {
- result__UNW=(__INTEGER)(~ result__UNW);
- };
- return(result__UNW);
-}
-
-static __BOOLEAN read_symbol__4YJ(void *st__AZJ)
-// ({STRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
- __INTEGER posold__CZJ,j__DZJ,__tmp__3GFH,__tmp__4GFH,__tmp__5GFH;
- __BOOLEAN result__EZJ,__tmp__M0J,__tmp__J0J;
- __CHARACTER *__tmp__AHFH,*__tmp__WYGH,*__tmp__XYGH;
- __CHARACTER result__DZDH,result__QZDH;
- posold__CZJ= 0;
- j__DZJ= 0;
- result__EZJ=FALSE__;
- if ((! read_space__XTD())) {
- result__EZJ=FALSE__;
- } else {
- posold__CZJ=position__CCC;
- j__DZJ= 1;
- __tmp__3GFH=((__STRING *)source__5BC)->count__SGC;
- __tmp__4GFH=((__STRING_CONSTANT *)st__AZJ)->count__DD;
- __tmp__5GFH=((__STRING *)source__5BC)->count__SGC;
- __tmp__AHFH=((__STRING_CONSTANT *)st__AZJ)->storage__RRO;
- __tmp__WYGH=((__STRING *)source__5BC)->storage__3CS;
- __tmp__XYGH=((__STRING *)source__5BC)->storage__3CS;
- until_do__XB5:
- {
- result__DZDH='\0';
- if ((position__CCC > __tmp__3GFH)) {
- result__DZDH=((__CHARACTER )(( 0)));
- } else {
- result__DZDH=((__CHARACTER *)__tmp__WYGH)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__DZDH == ((__CHARACTER )(( 0))))) {
- __tmp__M0J=TRUE__;
- } else {
- if ((j__DZJ > __tmp__4GFH)) {
- __tmp__J0J=TRUE__;
- } else {
- result__QZDH='\0';
- if ((position__CCC > __tmp__5GFH)) {
- result__QZDH=((__CHARACTER )(( 0)));
- } else {
- result__QZDH=((__CHARACTER *)__tmp__XYGH)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__J0J=(result__QZDH != ((__CHARACTER *)__tmp__AHFH)[(__INTEGER)(j__DZJ - 1)]);
- };
- __tmp__M0J=__tmp__J0J;
- };
- if ((! __tmp__M0J)) {
- j__DZJ=(__INTEGER)(j__DZJ + 1);
- position__CCC=(__INTEGER)(position__CCC + 1);
- goto until_do__XB5;
- };
- };
- if ((j__DZJ > ((__STRING_CONSTANT *)st__AZJ)->count__DD)) {
- result__EZJ=TRUE__;
- last_string__D2C=st__AZJ;
- } else {
- position__CCC=posold__CZJ;
- result__EZJ=FALSE__;
- };
- };
- return(result__EZJ);
-}
-
-static __BOOLEAN read_short_elt__EIKB()
-// () With resultNo recursive, No inlinable.
-{
- __INTEGER j__IIKB,new_capacity__KOHH,old_nb_elts__NOHH,upper__Z5IH;
- __INTEGER Self__X5IH,new_capacity__QOHH,old_nb_elts__TOHH,upper__45IH;
- __INTEGER Self__25IH,new_capacity__WOHH,old_nb_elts__ZOHH,upper__DAJH;
- __INTEGER Self__BAJH,new_capacity__2OHH,old_nb_elts__5OHH,upper__IAJH;
- __INTEGER Self__GAJH,new_capacity__CPHH,old_nb_elts__FPHH,upper__NAJH;
- __INTEGER Self__LAJH,new_capacity__IPHH,old_nb_elts__LPHH,upper__SAJH;
- __INTEGER Self__QAJH,new_capacity__OPHH,old_nb_elts__RPHH,upper__XAJH;
- __INTEGER Self__VAJH,new_capacity__UPHH,old_nb_elts__XPHH,upper__2AJH;
- __INTEGER Self__0AJH,new_capacity__0PHH,old_nb_elts__3PHH,upper__BBJH;
- __INTEGER Self__5AJH,new_capacity__AQHH,old_nb_elts__DQHH,upper__GBJH;
- __INTEGER Self__EBJH,new_capacity__GQHH,old_nb_elts__JQHH,upper__LBJH;
- __INTEGER Self__JBJH,new_capacity__MQHH,old_nb_elts__PQHH,upper__QBJH;
- __INTEGER Self__OBJH;
- __POSITION pos__LLG;
- __STRING *Self__LOHH,*Self__ROHH,*Self__XOHH,*Self__3OHH,*Self__DPHH;
- __STRING *Self__JPHH,*Self__PPHH,*Self__VPHH,*Self__1PHH,*Self__BQHH;
- __STRING *Self__HQHH,*Self__NQHH;
- __BOOLEAN result__HIKB,__tmp__1IKB;
- __CHARACTER __tmp__AKKB,ch__RQHH;
- __CHARACTER *Self__MOHH,*new__OOHH,*Self__SOHH,*new__UOHH,*Self__YOHH;
- __CHARACTER *new__0OHH,*Self__4OHH,*new__APHH,*Self__EPHH,*new__GPHH;
- __CHARACTER *Self__KPHH,*new__MPHH,*Self__QPHH,*new__SPHH,*Self__WPHH;
- __CHARACTER *new__YPHH,*Self__2PHH,*new__4PHH,*Self__CQHH,*new__EQHH;
- __CHARACTER *Self__IQHH,*new__KQHH,*Self__OQHH,*new__QQHH;
- result__HIKB=FALSE__;
- j__IIKB= 0;
- if (read_identifier__2BL()) {
- if (((void *)last_string__D2C != (void *)(&__string_115))) {
- pos__LLG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_219));
- put_position__FRG(pos__LLG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- last_string__D2C=NULL;
- result__HIKB=TRUE__;
- __tmp__1IKB=TRUE__;
- } else {
- __tmp__1IKB=FALSE__;
- };
- if ((! __tmp__1IKB)) {
- if (read_string__HGQ()) {
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- j__IIKB= 1;
- while ((j__IIKB <= ((__STRING_CONSTANT *)last_string__D2C)->count__DD)) {
- if ((((__CHARACTER *)((__STRING_CONSTANT *)last_string__D2C)->storage__RRO)[(__INTEGER)(j__IIKB - 1)] == '\\')) {
- j__IIKB=(__INTEGER)(j__IIKB + 1);
- __tmp__AKKB=((__CHARACTER *)((__STRING_CONSTANT *)last_string__D2C)->storage__RRO)[(__INTEGER)(j__IIKB - 1)];
- if ((__tmp__AKKB == 'a')) {
- Self__LOHH=((__STRING *)string_tmp__VH);
- new_capacity__KOHH= 0;
- if ((Self__LOHH->capacity__UCS <= Self__LOHH->count__SGC)) {
- if ((Self__LOHH->capacity__UCS == 0)) {
- Self__LOHH->capacity__UCS= 32;
- Self__LOHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__KOHH=(__INTEGER)(Self__LOHH->capacity__UCS << 1);
- Self__MOHH=((__CHARACTER *)Self__LOHH->storage__3CS);
- old_nb_elts__NOHH=Self__LOHH->capacity__UCS;
- new__OOHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__MOHH),((__UINTEGER_32 )old_nb_elts__NOHH),((__UINTEGER_32 )new_capacity__KOHH)));
- upper__Z5IH=(__INTEGER)(new_capacity__KOHH - 1);
- Self__X5IH=old_nb_elts__NOHH;
- while ((Self__X5IH <= upper__Z5IH)) {
- new__OOHH[Self__X5IH]='\0';
- Self__X5IH=(__INTEGER)(Self__X5IH + 1);
- };
- Self__LOHH->storage__3CS=new__OOHH;
- Self__LOHH->capacity__UCS=new_capacity__KOHH;
- };
- };
- ((__CHARACTER *)Self__LOHH->storage__3CS)[Self__LOHH->count__SGC]='\a';
- Self__LOHH->count__SGC=(__INTEGER)(Self__LOHH->count__SGC + 1);
- };
- if ((__tmp__AKKB == 'b')) {
- Self__ROHH=((__STRING *)string_tmp__VH);
- new_capacity__QOHH= 0;
- if ((Self__ROHH->capacity__UCS <= Self__ROHH->count__SGC)) {
- if ((Self__ROHH->capacity__UCS == 0)) {
- Self__ROHH->capacity__UCS= 32;
- Self__ROHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__QOHH=(__INTEGER)(Self__ROHH->capacity__UCS << 1);
- Self__SOHH=((__CHARACTER *)Self__ROHH->storage__3CS);
- old_nb_elts__TOHH=Self__ROHH->capacity__UCS;
- new__UOHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__SOHH),((__UINTEGER_32 )old_nb_elts__TOHH),((__UINTEGER_32 )new_capacity__QOHH)));
- upper__45IH=(__INTEGER)(new_capacity__QOHH - 1);
- Self__25IH=old_nb_elts__TOHH;
- while ((Self__25IH <= upper__45IH)) {
- new__UOHH[Self__25IH]='\0';
- Self__25IH=(__INTEGER)(Self__25IH + 1);
- };
- Self__ROHH->storage__3CS=new__UOHH;
- Self__ROHH->capacity__UCS=new_capacity__QOHH;
- };
- };
- ((__CHARACTER *)Self__ROHH->storage__3CS)[Self__ROHH->count__SGC]='\b';
- Self__ROHH->count__SGC=(__INTEGER)(Self__ROHH->count__SGC + 1);
- };
- if ((__tmp__AKKB == 'f')) {
- Self__XOHH=((__STRING *)string_tmp__VH);
- new_capacity__WOHH= 0;
- if ((Self__XOHH->capacity__UCS <= Self__XOHH->count__SGC)) {
- if ((Self__XOHH->capacity__UCS == 0)) {
- Self__XOHH->capacity__UCS= 32;
- Self__XOHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__WOHH=(__INTEGER)(Self__XOHH->capacity__UCS << 1);
- Self__YOHH=((__CHARACTER *)Self__XOHH->storage__3CS);
- old_nb_elts__ZOHH=Self__XOHH->capacity__UCS;
- new__0OHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__YOHH),((__UINTEGER_32 )old_nb_elts__ZOHH),((__UINTEGER_32 )new_capacity__WOHH)));
- upper__DAJH=(__INTEGER)(new_capacity__WOHH - 1);
- Self__BAJH=old_nb_elts__ZOHH;
- while ((Self__BAJH <= upper__DAJH)) {
- new__0OHH[Self__BAJH]='\0';
- Self__BAJH=(__INTEGER)(Self__BAJH + 1);
- };
- Self__XOHH->storage__3CS=new__0OHH;
- Self__XOHH->capacity__UCS=new_capacity__WOHH;
- };
- };
- ((__CHARACTER *)Self__XOHH->storage__3CS)[Self__XOHH->count__SGC]='\f';
- Self__XOHH->count__SGC=(__INTEGER)(Self__XOHH->count__SGC + 1);
- };
- if ((__tmp__AKKB == 'n')) {
- Self__3OHH=((__STRING *)string_tmp__VH);
- new_capacity__2OHH= 0;
- if ((Self__3OHH->capacity__UCS <= Self__3OHH->count__SGC)) {
- if ((Self__3OHH->capacity__UCS == 0)) {
- Self__3OHH->capacity__UCS= 32;
- Self__3OHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__2OHH=(__INTEGER)(Self__3OHH->capacity__UCS << 1);
- Self__4OHH=((__CHARACTER *)Self__3OHH->storage__3CS);
- old_nb_elts__5OHH=Self__3OHH->capacity__UCS;
- new__APHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__4OHH),((__UINTEGER_32 )old_nb_elts__5OHH),((__UINTEGER_32 )new_capacity__2OHH)));
- upper__IAJH=(__INTEGER)(new_capacity__2OHH - 1);
- Self__GAJH=old_nb_elts__5OHH;
- while ((Self__GAJH <= upper__IAJH)) {
- new__APHH[Self__GAJH]='\0';
- Self__GAJH=(__INTEGER)(Self__GAJH + 1);
- };
- Self__3OHH->storage__3CS=new__APHH;
- Self__3OHH->capacity__UCS=new_capacity__2OHH;
- };
- };
- ((__CHARACTER *)Self__3OHH->storage__3CS)[Self__3OHH->count__SGC]='\n';
- Self__3OHH->count__SGC=(__INTEGER)(Self__3OHH->count__SGC + 1);
- };
- if ((__tmp__AKKB == 'r')) {
- Self__DPHH=((__STRING *)string_tmp__VH);
- new_capacity__CPHH= 0;
- if ((Self__DPHH->capacity__UCS <= Self__DPHH->count__SGC)) {
- if ((Self__DPHH->capacity__UCS == 0)) {
- Self__DPHH->capacity__UCS= 32;
- Self__DPHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__CPHH=(__INTEGER)(Self__DPHH->capacity__UCS << 1);
- Self__EPHH=((__CHARACTER *)Self__DPHH->storage__3CS);
- old_nb_elts__FPHH=Self__DPHH->capacity__UCS;
- new__GPHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__EPHH),((__UINTEGER_32 )old_nb_elts__FPHH),((__UINTEGER_32 )new_capacity__CPHH)));
- upper__NAJH=(__INTEGER)(new_capacity__CPHH - 1);
- Self__LAJH=old_nb_elts__FPHH;
- while ((Self__LAJH <= upper__NAJH)) {
- new__GPHH[Self__LAJH]='\0';
- Self__LAJH=(__INTEGER)(Self__LAJH + 1);
- };
- Self__DPHH->storage__3CS=new__GPHH;
- Self__DPHH->capacity__UCS=new_capacity__CPHH;
- };
- };
- ((__CHARACTER *)Self__DPHH->storage__3CS)[Self__DPHH->count__SGC]='\r';
- Self__DPHH->count__SGC=(__INTEGER)(Self__DPHH->count__SGC + 1);
- };
- if ((__tmp__AKKB == 't')) {
- Self__JPHH=((__STRING *)string_tmp__VH);
- new_capacity__IPHH= 0;
- if ((Self__JPHH->capacity__UCS <= Self__JPHH->count__SGC)) {
- if ((Self__JPHH->capacity__UCS == 0)) {
- Self__JPHH->capacity__UCS= 32;
- Self__JPHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__IPHH=(__INTEGER)(Self__JPHH->capacity__UCS << 1);
- Self__KPHH=((__CHARACTER *)Self__JPHH->storage__3CS);
- old_nb_elts__LPHH=Self__JPHH->capacity__UCS;
- new__MPHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__KPHH),((__UINTEGER_32 )old_nb_elts__LPHH),((__UINTEGER_32 )new_capacity__IPHH)));
- upper__SAJH=(__INTEGER)(new_capacity__IPHH - 1);
- Self__QAJH=old_nb_elts__LPHH;
- while ((Self__QAJH <= upper__SAJH)) {
- new__MPHH[Self__QAJH]='\0';
- Self__QAJH=(__INTEGER)(Self__QAJH + 1);
- };
- Self__JPHH->storage__3CS=new__MPHH;
- Self__JPHH->capacity__UCS=new_capacity__IPHH;
- };
- };
- ((__CHARACTER *)Self__JPHH->storage__3CS)[Self__JPHH->count__SGC]='\t';
- Self__JPHH->count__SGC=(__INTEGER)(Self__JPHH->count__SGC + 1);
- };
- if ((__tmp__AKKB == 'v')) {
- Self__PPHH=((__STRING *)string_tmp__VH);
- new_capacity__OPHH= 0;
- if ((Self__PPHH->capacity__UCS <= Self__PPHH->count__SGC)) {
- if ((Self__PPHH->capacity__UCS == 0)) {
- Self__PPHH->capacity__UCS= 32;
- Self__PPHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__OPHH=(__INTEGER)(Self__PPHH->capacity__UCS << 1);
- Self__QPHH=((__CHARACTER *)Self__PPHH->storage__3CS);
- old_nb_elts__RPHH=Self__PPHH->capacity__UCS;
- new__SPHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__QPHH),((__UINTEGER_32 )old_nb_elts__RPHH),((__UINTEGER_32 )new_capacity__OPHH)));
- upper__XAJH=(__INTEGER)(new_capacity__OPHH - 1);
- Self__VAJH=old_nb_elts__RPHH;
- while ((Self__VAJH <= upper__XAJH)) {
- new__SPHH[Self__VAJH]='\0';
- Self__VAJH=(__INTEGER)(Self__VAJH + 1);
- };
- Self__PPHH->storage__3CS=new__SPHH;
- Self__PPHH->capacity__UCS=new_capacity__OPHH;
- };
- };
- ((__CHARACTER *)Self__PPHH->storage__3CS)[Self__PPHH->count__SGC]='\v';
- Self__PPHH->count__SGC=(__INTEGER)(Self__PPHH->count__SGC + 1);
- };
- if ((__tmp__AKKB == '\\')) {
- Self__VPHH=((__STRING *)string_tmp__VH);
- new_capacity__UPHH= 0;
- if ((Self__VPHH->capacity__UCS <= Self__VPHH->count__SGC)) {
- if ((Self__VPHH->capacity__UCS == 0)) {
- Self__VPHH->capacity__UCS= 32;
- Self__VPHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__UPHH=(__INTEGER)(Self__VPHH->capacity__UCS << 1);
- Self__WPHH=((__CHARACTER *)Self__VPHH->storage__3CS);
- old_nb_elts__XPHH=Self__VPHH->capacity__UCS;
- new__YPHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__WPHH),((__UINTEGER_32 )old_nb_elts__XPHH),((__UINTEGER_32 )new_capacity__UPHH)));
- upper__2AJH=(__INTEGER)(new_capacity__UPHH - 1);
- Self__0AJH=old_nb_elts__XPHH;
- while ((Self__0AJH <= upper__2AJH)) {
- new__YPHH[Self__0AJH]='\0';
- Self__0AJH=(__INTEGER)(Self__0AJH + 1);
- };
- Self__VPHH->storage__3CS=new__YPHH;
- Self__VPHH->capacity__UCS=new_capacity__UPHH;
- };
- };
- ((__CHARACTER *)Self__VPHH->storage__3CS)[Self__VPHH->count__SGC]='\\';
- Self__VPHH->count__SGC=(__INTEGER)(Self__VPHH->count__SGC + 1);
- };
- if ((__tmp__AKKB == '?')) {
- Self__1PHH=((__STRING *)string_tmp__VH);
- new_capacity__0PHH= 0;
- if ((Self__1PHH->capacity__UCS <= Self__1PHH->count__SGC)) {
- if ((Self__1PHH->capacity__UCS == 0)) {
- Self__1PHH->capacity__UCS= 32;
- Self__1PHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__0PHH=(__INTEGER)(Self__1PHH->capacity__UCS << 1);
- Self__2PHH=((__CHARACTER *)Self__1PHH->storage__3CS);
- old_nb_elts__3PHH=Self__1PHH->capacity__UCS;
- new__4PHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__2PHH),((__UINTEGER_32 )old_nb_elts__3PHH),((__UINTEGER_32 )new_capacity__0PHH)));
- upper__BBJH=(__INTEGER)(new_capacity__0PHH - 1);
- Self__5AJH=old_nb_elts__3PHH;
- while ((Self__5AJH <= upper__BBJH)) {
- new__4PHH[Self__5AJH]='\0';
- Self__5AJH=(__INTEGER)(Self__5AJH + 1);
- };
- Self__1PHH->storage__3CS=new__4PHH;
- Self__1PHH->capacity__UCS=new_capacity__0PHH;
- };
- };
- ((__CHARACTER *)Self__1PHH->storage__3CS)[Self__1PHH->count__SGC]='\?';
- Self__1PHH->count__SGC=(__INTEGER)(Self__1PHH->count__SGC + 1);
- };
- if ((__tmp__AKKB == '\'')) {
- Self__BQHH=((__STRING *)string_tmp__VH);
- new_capacity__AQHH= 0;
- if ((Self__BQHH->capacity__UCS <= Self__BQHH->count__SGC)) {
- if ((Self__BQHH->capacity__UCS == 0)) {
- Self__BQHH->capacity__UCS= 32;
- Self__BQHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__AQHH=(__INTEGER)(Self__BQHH->capacity__UCS << 1);
- Self__CQHH=((__CHARACTER *)Self__BQHH->storage__3CS);
- old_nb_elts__DQHH=Self__BQHH->capacity__UCS;
- new__EQHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__CQHH),((__UINTEGER_32 )old_nb_elts__DQHH),((__UINTEGER_32 )new_capacity__AQHH)));
- upper__GBJH=(__INTEGER)(new_capacity__AQHH - 1);
- Self__EBJH=old_nb_elts__DQHH;
- while ((Self__EBJH <= upper__GBJH)) {
- new__EQHH[Self__EBJH]='\0';
- Self__EBJH=(__INTEGER)(Self__EBJH + 1);
- };
- Self__BQHH->storage__3CS=new__EQHH;
- Self__BQHH->capacity__UCS=new_capacity__AQHH;
- };
- };
- ((__CHARACTER *)Self__BQHH->storage__3CS)[Self__BQHH->count__SGC]='\'';
- Self__BQHH->count__SGC=(__INTEGER)(Self__BQHH->count__SGC + 1);
- };
- if ((__tmp__AKKB == '\"')) {
- Self__HQHH=((__STRING *)string_tmp__VH);
- new_capacity__GQHH= 0;
- if ((Self__HQHH->capacity__UCS <= Self__HQHH->count__SGC)) {
- if ((Self__HQHH->capacity__UCS == 0)) {
- Self__HQHH->capacity__UCS= 32;
- Self__HQHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__GQHH=(__INTEGER)(Self__HQHH->capacity__UCS << 1);
- Self__IQHH=((__CHARACTER *)Self__HQHH->storage__3CS);
- old_nb_elts__JQHH=Self__HQHH->capacity__UCS;
- new__KQHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__IQHH),((__UINTEGER_32 )old_nb_elts__JQHH),((__UINTEGER_32 )new_capacity__GQHH)));
- upper__LBJH=(__INTEGER)(new_capacity__GQHH - 1);
- Self__JBJH=old_nb_elts__JQHH;
- while ((Self__JBJH <= upper__LBJH)) {
- new__KQHH[Self__JBJH]='\0';
- Self__JBJH=(__INTEGER)(Self__JBJH + 1);
- };
- Self__HQHH->storage__3CS=new__KQHH;
- Self__HQHH->capacity__UCS=new_capacity__GQHH;
- };
- };
- ((__CHARACTER *)Self__HQHH->storage__3CS)[Self__HQHH->count__SGC]='\"';
- Self__HQHH->count__SGC=(__INTEGER)(Self__HQHH->count__SGC + 1);
- };
- } else {
- Self__NQHH=((__STRING *)string_tmp__VH);
- ch__RQHH=((__CHARACTER *)((__STRING_CONSTANT *)last_string__D2C)->storage__RRO)[(__INTEGER)(j__IIKB - 1)];
- new_capacity__MQHH= 0;
- if ((Self__NQHH->capacity__UCS <= Self__NQHH->count__SGC)) {
- if ((Self__NQHH->capacity__UCS == 0)) {
- Self__NQHH->capacity__UCS= 32;
- Self__NQHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__MQHH=(__INTEGER)(Self__NQHH->capacity__UCS << 1);
- Self__OQHH=((__CHARACTER *)Self__NQHH->storage__3CS);
- old_nb_elts__PQHH=Self__NQHH->capacity__UCS;
- new__QQHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__OQHH),((__UINTEGER_32 )old_nb_elts__PQHH),((__UINTEGER_32 )new_capacity__MQHH)));
- upper__QBJH=(__INTEGER)(new_capacity__MQHH - 1);
- Self__OBJH=old_nb_elts__PQHH;
- while ((Self__OBJH <= upper__QBJH)) {
- new__QQHH[Self__OBJH]='\0';
- Self__OBJH=(__INTEGER)(Self__OBJH + 1);
- };
- Self__NQHH->storage__3CS=new__QQHH;
- Self__NQHH->capacity__UCS=new_capacity__MQHH;
- };
- };
- ((__CHARACTER *)Self__NQHH->storage__3CS)[Self__NQHH->count__SGC]=ch__RQHH;
- Self__NQHH->count__SGC=(__INTEGER)(Self__NQHH->count__SGC + 1);
- };
- j__IIKB=(__INTEGER)(j__IIKB + 1);
- };
- last_string__D2C=get__YWB(string_tmp__VH);
- result__HIKB=TRUE__;
- };
- };
- return(result__HIKB);
-}
-
-static void fast_put__to__U2R(__HASHED_DICTIONARYoTYPExSTRING_CONSTANTo *Self__V2R,void *k__X2R)
-// ({HASHED_DICTIONARYoTYPExSTRING_CONSTANTo},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
- __INTEGER h__42R,idx__52R,idx__ERNB,new_capacity__FRNB,i__GRNB;
- __INTEGER typ_id__VTNB;
- __POINTER ptr__QTNB,ptr_table__HCJH,next__GCJH,result__ICJH;
- __POINTER ptr_table__MCJH,next__LCJH,result__NCJH;
- __UINTEGER_32 sz__STNB,a__2HFH,new_size__3HFH,t__BIFH,a__AIFH;
- __UINTEGER_32 new_size__PCJH,lab_type__OCJH;
- void *node__C3R,*node1__IRNB,*node2__JRNB,*__tmp__W4R;
- void **old_buckets__HRNB;
- __HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *result__PTNB;
- __HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *Self__BTDC;
- h__42R=hash_code__RNW(k__X2R);
- idx__52R=(__INTEGER)(h__42R % Self__V2R->capacity__E3R);
- node__C3R=((void **)Self__V2R->buckets__J3R)[idx__52R];
- while ((! (((void *)node__C3R == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)node__C3R)->key__V3R == (void *)k__X2R)))) {
- node__C3R=((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)node__C3R)->next__A4R;
- };
- if (((void *)node__C3R == (void *)NULL)) {
- if ((Self__V2R->capacity__E3R == Self__V2R->count__J4R)) {
- idx__ERNB= 0;
- node1__IRNB=NULL;
- node2__JRNB=NULL;
- old_buckets__HRNB=Self__V2R->buckets__J3R;
- new_capacity__FRNB=prime_number_ceiling__021((__INTEGER)(Self__V2R->capacity__E3R + 1));
- Self__V2R->buckets__J3R=create__PX2(new_capacity__FRNB);
- i__GRNB=(__INTEGER)(Self__V2R->capacity__E3R - 1);
- Self__V2R->capacity__E3R=new_capacity__FRNB;
- while ((i__GRNB >= 0)) {
- node1__IRNB=((void **)old_buckets__HRNB)[i__GRNB];
- while (((void *)node1__IRNB != (void *)NULL)) {
- node2__JRNB=((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)node1__IRNB)->next__A4R;
- idx__ERNB=(__INTEGER)(hash_code__RNW(((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)node1__IRNB)->key__V3R) % Self__V2R->capacity__E3R);
- ((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)node1__IRNB)->next__A4R=((void **)Self__V2R->buckets__J3R)[idx__ERNB];
- ((void **)Self__V2R->buckets__J3R)[idx__ERNB]=node1__IRNB;
- node1__IRNB=node2__JRNB;
- };
- i__GRNB=(__INTEGER)(i__GRNB - 1);
- };
- idx__52R=(__INTEGER)(h__42R % Self__V2R->capacity__E3R);
- };
- __tmp__W4R=((void **)Self__V2R->buckets__J3R)[idx__52R];
- result__PTNB=NULL;
- ptr__QTNB=((__POINTER )(NULL));
- typ_id__VTNB= 0;
- sz__STNB=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo));
- if ((sz__STNB == 0)) {
- result__PTNB=HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo__;
- } else {
- typ_id__VTNB=__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__STNB);
- if ((typ_id__VTNB == (__INTEGER)(- 1))) {
- a__2HFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__3HFH=(__UINTEGER_32)((__UINTEGER_32)(sz__STNB + a__2HFH) & (__UINTEGER_32)(~ a__2HFH));
- ptr_table__HCJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3HFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__GCJH=((__POINTER )(NULL));
- result__ICJH=((__POINTER *)ptr_table__HCJH)[ 0];
- if ((result__ICJH == (void *)NULL)) {
- result__ICJH=new_lab__RTJ(new_size__3HFH);
- next__GCJH=(void *)((unsigned long)result__ICJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3HFH)));
- ((__POINTER *)next__GCJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__HCJH)[ 0]=next__GCJH;
- } else {
- next__GCJH=((__POINTER *)result__ICJH)[ 0];
- if ((next__GCJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ICJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__3HFH << 1)) <= 4096)) {
- next__GCJH=(void *)((unsigned long)result__ICJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3HFH)));
- } else {
- next__GCJH=new_lab__RTJ(new_size__3HFH);
- };
- ((__POINTER *)next__GCJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__HCJH)[ 0]=next__GCJH;
- } else {
- ((__POINTER *)result__ICJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GCJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__ICJH=next__GCJH;
- };
- };
- ptr__QTNB=result__ICJH;
- } else {
- t__BIFH=((__UINTEGER_32 )typ_id__VTNB);
- a__AIFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__PCJH=(__UINTEGER_32)((__UINTEGER_32)(sz__STNB + a__AIFH) & (__UINTEGER_32)(~ a__AIFH));
- ptr_table__MCJH=((__POINTER )(&(table_type[(t__BIFH)])));
- lab_type__OCJH=(__UINTEGER_32)(t__BIFH | 1);
- next__LCJH=((__POINTER )(NULL));
- result__NCJH=((__POINTER *)ptr_table__MCJH)[ 0];
- if ((result__NCJH == (void *)NULL)) {
- result__NCJH=new_lab__RTJ(lab_type__OCJH);
- next__LCJH=(void *)((unsigned long)result__NCJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PCJH)));
- ((__POINTER *)next__LCJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__MCJH)[ 0]=next__LCJH;
- } else {
- next__LCJH=((__POINTER *)result__NCJH)[ 0];
- if ((next__LCJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NCJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__PCJH << 1)) <= 4096)) {
- next__LCJH=(void *)((unsigned long)result__NCJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PCJH)));
- } else {
- next__LCJH=new_lab__RTJ(lab_type__OCJH);
- };
- ((__POINTER *)next__LCJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__MCJH)[ 0]=next__LCJH;
- } else {
- ((__POINTER *)result__NCJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LCJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__NCJH=next__LCJH;
- };
- };
- ptr__QTNB=result__NCJH;
- };
- result__PTNB=((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)ptr__QTNB);
- *(result__PTNB) = *(HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo__);
- };
- Self__BTDC=((__HASHED_DICTIONARY_NODEoTYPExSTRING_CONSTANTo *)result__PTNB);
- Self__BTDC->key__V3R=k__X2R;
- Self__BTDC->next__A4R=__tmp__W4R;
- node__C3R=result__PTNB;
- ((void **)Self__V2R->buckets__J3R)[idx__52R]=result__PTNB;
- Self__V2R->count__J4R=(__INTEGER)(Self__V2R->count__J4R + 1);
- };
-}
-
-static __TYPE_FULL* create__with__CRB(void *typ__ERB,__UINTEGER_8 code__FRB)
-// ({TYPE_NULLxTYPE_VOIDxTYPE_CONTEXTxTYPE_ID},{UINTEGER_8}) With resultNo recursive, No inlinable.
-{
- __TYPE_FULL *result__L1B,*Self__QGS;
- __POINTER ptr__M1B,ptr_table__RCJH,next__QCJH,result__SCJH;
- __POINTER ptr_table__WCJH,next__VCJH,result__XCJH;
- __INTEGER typ_id__R1B;
- __UINTEGER_32 sz__O1B,a__EIFH,new_size__FIFH,t__JIFH,a__IIFH;
- __UINTEGER_32 new_size__ZCJH,lab_type__YCJH;
- void *__tmp__2GS,*__tmp__EHS;
- __BOOLEAN __tmp__QHS,__tmp__RHS;
- result__L1B=NULL;
- ptr__M1B=((__POINTER )(NULL));
- typ_id__R1B= 0;
- sz__O1B=((__UINTEGER_32 )sizeof(__TYPE_FULL));
- if ((sz__O1B == 0)) {
- result__L1B=TYPE_FULL__;
- } else {
- typ_id__R1B=__TYPE_FULL__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__O1B);
- if ((typ_id__R1B == (__INTEGER)(- 1))) {
- a__EIFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__FIFH=(__UINTEGER_32)((__UINTEGER_32)(sz__O1B + a__EIFH) & (__UINTEGER_32)(~ a__EIFH));
- ptr_table__RCJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__FIFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__QCJH=((__POINTER )(NULL));
- result__SCJH=((__POINTER *)ptr_table__RCJH)[ 0];
- if ((result__SCJH == (void *)NULL)) {
- result__SCJH=new_lab__RTJ(new_size__FIFH);
- next__QCJH=(void *)((unsigned long)result__SCJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FIFH)));
- ((__POINTER *)next__QCJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__RCJH)[ 0]=next__QCJH;
- } else {
- next__QCJH=((__POINTER *)result__SCJH)[ 0];
- if ((next__QCJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SCJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__FIFH << 1)) <= 4096)) {
- next__QCJH=(void *)((unsigned long)result__SCJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FIFH)));
- } else {
- next__QCJH=new_lab__RTJ(new_size__FIFH);
- };
- ((__POINTER *)next__QCJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__RCJH)[ 0]=next__QCJH;
- } else {
- ((__POINTER *)result__SCJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QCJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__SCJH=next__QCJH;
- };
- };
- ptr__M1B=result__SCJH;
- } else {
- t__JIFH=((__UINTEGER_32 )typ_id__R1B);
- a__IIFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ZCJH=(__UINTEGER_32)((__UINTEGER_32)(sz__O1B + a__IIFH) & (__UINTEGER_32)(~ a__IIFH));
- ptr_table__WCJH=((__POINTER )(&(table_type[(t__JIFH)])));
- lab_type__YCJH=(__UINTEGER_32)(t__JIFH | 1);
- next__VCJH=((__POINTER )(NULL));
- result__XCJH=((__POINTER *)ptr_table__WCJH)[ 0];
- if ((result__XCJH == (void *)NULL)) {
- result__XCJH=new_lab__RTJ(lab_type__YCJH);
- next__VCJH=(void *)((unsigned long)result__XCJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZCJH)));
- ((__POINTER *)next__VCJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__WCJH)[ 0]=next__VCJH;
- } else {
- next__VCJH=((__POINTER *)result__XCJH)[ 0];
- if ((next__VCJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XCJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__ZCJH << 1)) <= 4096)) {
- next__VCJH=(void *)((unsigned long)result__XCJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZCJH)));
- } else {
- next__VCJH=new_lab__RTJ(lab_type__YCJH);
- };
- ((__POINTER *)next__VCJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__WCJH)[ 0]=next__VCJH;
- } else {
- ((__POINTER *)result__XCJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VCJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__XCJH=next__VCJH;
- };
- };
- ptr__M1B=result__XCJH;
- };
- result__L1B=((__TYPE_FULL *)ptr__M1B);
- *(result__L1B) = *(TYPE_FULL__);
- };
- Self__QGS=((__TYPE_FULL *)result__L1B);
- Self__QGS->flag__UGS=code__FRB;
- if (((void *)typ__ERB != (void *)NULL)) {
- switch (((struct ___OBJ *)typ__ERB)->__id) {
- case __TYPE_NULL__: {
- __tmp__2GS=(&__string_2);
- } break;
- case __TYPE_VOID__: {
- __tmp__2GS=(&__string_3);
- } break;
- case __TYPE_CONTEXT__: {
- __tmp__2GS=(&__string_45);
- } break;
- case __TYPE_ID__: {
- __tmp__2GS=(&__string_47);
- } break;
- };
- __tmp__QHS=((void *)__tmp__2GS != (void *)NULL);
- } else {
- __tmp__QHS=FALSE__;
- };
- if (__tmp__QHS) {
- switch (((struct ___OBJ *)typ__ERB)->__id) {
- case __TYPE_NULL__: {
- __tmp__EHS=(&__string_2);
- } break;
- case __TYPE_VOID__: {
- __tmp__EHS=(&__string_3);
- } break;
- case __TYPE_CONTEXT__: {
- __tmp__EHS=(&__string_45);
- } break;
- case __TYPE_ID__: {
- __tmp__EHS=(&__string_47);
- } break;
- };
- __tmp__RHS=__infix_equal_equal__V2DB(__tmp__EHS,(&__string_33));
- } else {
- __tmp__RHS=FALSE__;
- };
- if ((__tmp__RHS && (! ((__UINTEGER_8)(Self__QGS->flag__UGS & 1) != 0)))) {
- print__OJD((&__string_220));
- fputc((int)('\n'),stdout);
- exit(( 1));
- };
- return(result__L1B);
-}
-
-static void** create__1VNB(__INTEGER nb_elements__3VNB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__XBHH,a__WBHH,new_size__YBHH,new_size2__ZBHH,a__0BHH;
- __UINTEGER_32 new_size__1BHH;
- __POINTER result__VBHH,ptr_table__1CJH,next__0CJH,result__2CJH;
- __INTEGER Self__UFMC;
- void **Result__I2RB;
- sz__XBHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__3VNB * ((__INTEGER )(sizeof(void *)))));
- result__VBHH=((__POINTER )(NULL));
- a__WBHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__YBHH=(__UINTEGER_32)((__UINTEGER_32)(sz__XBHH + a__WBHH) & (__UINTEGER_32)(~ a__WBHH));
- new_size2__ZBHH=(__UINTEGER_32)(new_size__YBHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__ZBHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__0BHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__1BHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__ZBHH + a__0BHH) & (__UINTEGER_32)(~ a__0BHH));
- ptr_table__1CJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1BHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__0CJH=((__POINTER )(NULL));
- result__2CJH=((__POINTER *)ptr_table__1CJH)[ 0];
- if ((result__2CJH == (void *)NULL)) {
- result__2CJH=new_lab__RTJ(new_size__1BHH);
- next__0CJH=(void *)((unsigned long)result__2CJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1BHH)));
- ((__POINTER *)next__0CJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__1CJH)[ 0]=next__0CJH;
- } else {
- next__0CJH=((__POINTER *)result__2CJH)[ 0];
- if ((next__0CJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2CJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__1BHH << 1)) <= 4096)) {
- next__0CJH=(void *)((unsigned long)result__2CJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1BHH)));
- } else {
- next__0CJH=new_lab__RTJ(new_size__1BHH);
- };
- ((__POINTER *)next__0CJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__1CJH)[ 0]=next__0CJH;
- } else {
- ((__POINTER *)result__2CJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0CJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__2CJH=next__0CJH;
- };
- };
- ((__POINTER *)result__2CJH)[ 0]=((__POINTER ) 3);
- result__VBHH=(void *)((unsigned long)result__2CJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__VBHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__YBHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__I2RB=((void **)result__VBHH);
- Self__UFMC=(__INTEGER)(nb_elements__3VNB - 1);
- while ((Self__UFMC >= 0)) {
- Result__I2RB[Self__UFMC]=NULL;
- Self__UFMC=(__INTEGER)(Self__UFMC - 1);
- };
- return(Result__I2RB);
-}
-
-static void add_last__K5R(__FAST_ARRAYoTYPE_IDo *Self__L5R,void *element__M5R)
-// ({FAST_ARRAYoTYPE_IDo},{NULLxTYPE_ID}) VoidNo recursive, No inlinable.
-{
- __INTEGER new_capacity__N5R,__tmp__WAS,__tmp__HVDC,Self__NEVD;
- __BOOLEAN __tmp__35R;
- void **__tmp__VAS,**new__TUDC;
- new_capacity__N5R= 0;
- if (((__INTEGER)(Self__L5R->parent_arrayed_collection__ABB.upper__O5R + 1) <= (__INTEGER)(Self__L5R->parent_arrayed_collection__ABB.capacity__Q5R - 1))) {
- Self__L5R->parent_arrayed_collection__ABB.upper__O5R=(__INTEGER)(Self__L5R->parent_arrayed_collection__ABB.upper__O5R + 1);
- __tmp__35R=TRUE__;
- } else {
- __tmp__35R=FALSE__;
- };
- if ((! __tmp__35R)) {
- if ((Self__L5R->parent_arrayed_collection__ABB.capacity__Q5R == 0)) {
- Self__L5R->parent_arrayed_collection__ABB.storage__MAS=create__1VNB( 2);
- Self__L5R->parent_arrayed_collection__ABB.capacity__Q5R= 2;
- Self__L5R->parent_arrayed_collection__ABB.upper__O5R= 0;
- } else {
- new_capacity__N5R=(__INTEGER)(Self__L5R->parent_arrayed_collection__ABB.capacity__Q5R << 1);
- __tmp__VAS=Self__L5R->parent_arrayed_collection__ABB.storage__MAS;
- __tmp__WAS=Self__L5R->parent_arrayed_collection__ABB.capacity__Q5R;
- new__TUDC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__VAS)),((__UINTEGER_32 )(__INTEGER)(__tmp__WAS * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__N5R * ((__INTEGER )(sizeof(void *)))))));
- __tmp__HVDC=(__INTEGER)(new_capacity__N5R - 1);
- Self__NEVD=__tmp__WAS;
- while ((Self__NEVD <= __tmp__HVDC)) {
- new__TUDC[Self__NEVD]=NULL;
- Self__NEVD=(__INTEGER)(Self__NEVD + 1);
- };
- Self__L5R->parent_arrayed_collection__ABB.storage__MAS=new__TUDC;
- Self__L5R->parent_arrayed_collection__ABB.capacity__Q5R=new_capacity__N5R;
- Self__L5R->parent_arrayed_collection__ABB.upper__O5R=(__INTEGER)(Self__L5R->parent_arrayed_collection__ABB.upper__O5R + 1);
- };
- };
- ((void **)Self__L5R->parent_arrayed_collection__ABB.storage__MAS)[Self__L5R->parent_arrayed_collection__ABB.upper__O5R]=element__M5R;
-}
-
-static __BOOLEAN open__WHRD(__DIRECTORY_UNIX *Self__XHRD)
-// ({DIRECTORY_UNIX}) With resultNo recursive, No inlinable.
-{
- __POINTER dirent__3HRD,ptr__KXLE,ptr_table__ADJH,next__5CJH;
- __POINTER result__BDJH,ptr_table__FDJH,next__EDJH,result__GDJH;
- __POINTER dir__1HRD,ptr__ZDJH,ptr_table__DEJH,next__CEJH,result__EEJH;
- __POINTER ptr_table__IEJH,next__HEJH,result__JEJH,ptr__KFOF;
- __POINTER ptr_table__NEJH,next__MEJH,result__OEJH,ptr_table__SEJH;
- __POINTER next__REJH,result__TEJH;
- __INTEGER i__BIRD,typ_id__PXLE,new_capacity__KRHH,old_nb_elts__NRHH;
- __INTEGER upper__MDJH,Self__KDJH,new_capacity__TRHH,old_nb_elts__WRHH;
- __INTEGER upper__RDJH,Self__PDJH,Self__YVFF,i__0RHH,j__2RHH;
- __INTEGER Self__T2LH,idx__SV3E,new_capacity__3RHH,old_nb_elts__ASHH;
- __INTEGER upper__WDJH,Self__UDJH,n__GZTD,n__NQFH,typ_id__0DJH;
- __INTEGER typ_id__PFOF;
- __UINTEGER_32 sz__MXLE,a__UIFH,new_size__VIFH,t__ZIFH,a__YIFH;
- __UINTEGER_32 new_size__IDJH,lab_type__HDJH,sz__1DJH,a__2DJH;
- __UINTEGER_32 new_size__3DJH,t__4DJH,a__5DJH,new_size__LEJH;
- __UINTEGER_32 lab_type__KEJH,sz__MFOF,a__5QFH,new_size__ARFH,t__ERFH;
- __UINTEGER_32 a__DRFH,new_size__VEJH,lab_type__UEJH;
- __STRING *Self__LRHH,*new__EZQE,*Self__RRHH,*Self__MN3E,*Self__ZRHH;
- __STRING *Self__4RHH,*Self__C1SD,*Self__FZTD;
- void *other__1RHH;
- void *result__RV3E;
- void *__tmp__FY3E,*dir__DY3E;
- void *__tmp__QKRD;
- __CHARACTER *n__0HRD,*Self__MRHH,*new__ORHH,*Self__VRHH,*new__XRHH;
- __CHARACTER *__tmp__MZGH,*__tmp__NZGH,*Self__U2LH,*model__V2LH;
- __CHARACTER *Self__5RHH,*new__BSHH;
- __BOOLEAN result__AIRD,result__QRHH,__tmp__UX3E;
- __LINKED_LISToENTRYo *result__JXLE,*Self__MMWE,*Self__UQMF;
- __CHARACTER ch__PRHH;
- __LINKED_LIST_NODEoENTRYo *result__YDJH,*Self__AEJH,*result__JFOF;
- __LINKED_LIST_NODEoENTRYo *Self__RNQF;
- n__0HRD=NULL;
- dirent__3HRD=((__POINTER )(NULL));
- result__AIRD=FALSE__;
- i__BIRD= 0;
- if (((void *)Self__XHRD->parent_directory__SGD.list__FIRD == (void *)NULL)) {
- result__JXLE=NULL;
- ptr__KXLE=((__POINTER )(NULL));
- typ_id__PXLE= 0;
- sz__MXLE=((__UINTEGER_32 )sizeof(__LINKED_LISToENTRYo));
- if ((sz__MXLE == 0)) {
- result__JXLE=LINKED_LISToENTRYo__;
- } else {
- typ_id__PXLE=__LINKED_LISToENTRYo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__MXLE);
- if ((typ_id__PXLE == (__INTEGER)(- 1))) {
- a__UIFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__VIFH=(__UINTEGER_32)((__UINTEGER_32)(sz__MXLE + a__UIFH) & (__UINTEGER_32)(~ a__UIFH));
- ptr_table__ADJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VIFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__5CJH=((__POINTER )(NULL));
- result__BDJH=((__POINTER *)ptr_table__ADJH)[ 0];
- if ((result__BDJH == (void *)NULL)) {
- result__BDJH=new_lab__RTJ(new_size__VIFH);
- next__5CJH=(void *)((unsigned long)result__BDJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VIFH)));
- ((__POINTER *)next__5CJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__ADJH)[ 0]=next__5CJH;
- } else {
- next__5CJH=((__POINTER *)result__BDJH)[ 0];
- if ((next__5CJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BDJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__VIFH << 1)) <= 4096)) {
- next__5CJH=(void *)((unsigned long)result__BDJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VIFH)));
- } else {
- next__5CJH=new_lab__RTJ(new_size__VIFH);
- };
- ((__POINTER *)next__5CJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__ADJH)[ 0]=next__5CJH;
- } else {
- ((__POINTER *)result__BDJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5CJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__BDJH=next__5CJH;
- };
- };
- ptr__KXLE=result__BDJH;
- } else {
- t__ZIFH=((__UINTEGER_32 )typ_id__PXLE);
- a__YIFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__IDJH=(__UINTEGER_32)((__UINTEGER_32)(sz__MXLE + a__YIFH) & (__UINTEGER_32)(~ a__YIFH));
- ptr_table__FDJH=((__POINTER )(&(table_type[(t__ZIFH)])));
- lab_type__HDJH=(__UINTEGER_32)(t__ZIFH | 1);
- next__EDJH=((__POINTER )(NULL));
- result__GDJH=((__POINTER *)ptr_table__FDJH)[ 0];
- if ((result__GDJH == (void *)NULL)) {
- result__GDJH=new_lab__RTJ(lab_type__HDJH);
- next__EDJH=(void *)((unsigned long)result__GDJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IDJH)));
- ((__POINTER *)next__EDJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__FDJH)[ 0]=next__EDJH;
- } else {
- next__EDJH=((__POINTER *)result__GDJH)[ 0];
- if ((next__EDJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GDJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__IDJH << 1)) <= 4096)) {
- next__EDJH=(void *)((unsigned long)result__GDJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IDJH)));
- } else {
- next__EDJH=new_lab__RTJ(lab_type__HDJH);
- };
- ((__POINTER *)next__EDJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__FDJH)[ 0]=next__EDJH;
- } else {
- ((__POINTER *)result__GDJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EDJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__GDJH=next__EDJH;
- };
- };
- ptr__KXLE=result__GDJH;
- };
- result__JXLE=((__LINKED_LISToENTRYo *)ptr__KXLE);
- *(result__JXLE) = *(LINKED_LISToENTRYo__);
- };
- Self__XHRD->parent_directory__SGD.list__FIRD=result__JXLE;
- } else {
- Self__MMWE=((__LINKED_LISToENTRYo *)Self__XHRD->parent_directory__SGD.list__FIRD);
- if (((void *)Self__MMWE->first_link__OMWE != (void *)NULL)) {
- Self__MMWE->first_link__OMWE=NULL;
- Self__MMWE->mem_idx__VMWE= 0;
- Self__MMWE->mem_lnk__WMWE=NULL;
- Self__MMWE->parent_linked_collection__EIRD.upper__HR3D= 0;
- Self__MMWE->last_link__XMWE=NULL;
- };
- };
- dir__1HRD=((__POINTER )(opendir((((__STRING_CONSTANT *)Self__XHRD->parent_entry_unix__RGD.parent_entry__QGD.path__BD)->storage__RRO))));
- if ((dir__1HRD != (void *)NULL)) {
- result__AIRD=TRUE__;
- do {
- dirent__3HRD=((__POINTER )(readdir((dir__1HRD))));
- if ((dirent__3HRD != (void *)NULL)) {
- n__0HRD=((__CHARACTER *)(((struct dirent *)(dirent__3HRD))->d_name));
- ((__STRING *)string_tmp__LGD)->count__SGC= 0;
- i__BIRD= 0;
- while ((((__CHARACTER *)n__0HRD)[i__BIRD] != '\0')) {
- Self__LRHH=((__STRING *)string_tmp__LGD);
- ch__PRHH=((__CHARACTER *)n__0HRD)[i__BIRD];
- new_capacity__KRHH= 0;
- if ((Self__LRHH->capacity__UCS <= Self__LRHH->count__SGC)) {
- if ((Self__LRHH->capacity__UCS == 0)) {
- Self__LRHH->capacity__UCS= 32;
- Self__LRHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__KRHH=(__INTEGER)(Self__LRHH->capacity__UCS << 1);
- Self__MRHH=((__CHARACTER *)Self__LRHH->storage__3CS);
- old_nb_elts__NRHH=Self__LRHH->capacity__UCS;
- new__ORHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__MRHH),((__UINTEGER_32 )old_nb_elts__NRHH),((__UINTEGER_32 )new_capacity__KRHH)));
- upper__MDJH=(__INTEGER)(new_capacity__KRHH - 1);
- Self__KDJH=old_nb_elts__NRHH;
- while ((Self__KDJH <= upper__MDJH)) {
- new__ORHH[Self__KDJH]='\0';
- Self__KDJH=(__INTEGER)(Self__KDJH + 1);
- };
- Self__LRHH->storage__3CS=new__ORHH;
- Self__LRHH->capacity__UCS=new_capacity__KRHH;
- };
- };
- ((__CHARACTER *)Self__LRHH->storage__3CS)[Self__LRHH->count__SGC]=ch__PRHH;
- Self__LRHH->count__SGC=(__INTEGER)(Self__LRHH->count__SGC + 1);
- i__BIRD=(__INTEGER)(i__BIRD + 1);
- };
- new__EZQE=create__ZBB(((__STRING_CONSTANT *)(&__string_221))->count__DD);
- copy__VDS(new__EZQE,(&__string_221));
- Self__RRHH=((__STRING *)string_tmp__LGD);
- result__QRHH=FALSE__;
- if ((Self__RRHH->count__SGC == new__EZQE->count__SGC)) {
- result__QRHH=((Self__RRHH->count__SGC == 0) || fast_memcmp__until__FYYB(Self__RRHH->storage__3CS,new__EZQE->storage__3CS,Self__RRHH->count__SGC));
- };
- if ((! result__QRHH)) {
- Self__MN3E=((__STRING *)string_tmp__LGD);
- new_capacity__TRHH= 0;
- if ((Self__MN3E->capacity__UCS <= Self__MN3E->count__SGC)) {
- if ((Self__MN3E->capacity__UCS == 0)) {
- Self__MN3E->capacity__UCS= 32;
- Self__MN3E->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__TRHH=(__INTEGER)(Self__MN3E->capacity__UCS << 1);
- Self__VRHH=((__CHARACTER *)Self__MN3E->storage__3CS);
- old_nb_elts__WRHH=Self__MN3E->capacity__UCS;
- new__XRHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__VRHH),((__UINTEGER_32 )old_nb_elts__WRHH),((__UINTEGER_32 )new_capacity__TRHH)));
- upper__RDJH=(__INTEGER)(new_capacity__TRHH - 1);
- Self__PDJH=old_nb_elts__WRHH;
- while ((Self__PDJH <= upper__RDJH)) {
- new__XRHH[Self__PDJH]='\0';
- Self__PDJH=(__INTEGER)(Self__PDJH + 1);
- };
- Self__MN3E->storage__3CS=new__XRHH;
- Self__MN3E->capacity__UCS=new_capacity__TRHH;
- };
- };
- ((__CHARACTER *)Self__MN3E->storage__3CS)[Self__MN3E->count__SGC]=' ';
- Self__MN3E->count__SGC=(__INTEGER)(Self__MN3E->count__SGC + 1);
- Self__YVFF=Self__MN3E->count__SGC;
- __tmp__MZGH=Self__MN3E->storage__3CS;
- __tmp__NZGH=Self__MN3E->storage__3CS;
- while ((Self__YVFF >= 2)) {
- ((__CHARACTER *)__tmp__NZGH)[(__INTEGER)(Self__YVFF - 1)]=((__CHARACTER *)__tmp__MZGH)[(__INTEGER)((__INTEGER)(Self__YVFF - 1) - 1)];
- Self__YVFF=(__INTEGER)(Self__YVFF - 1);
- };
- ((__CHARACTER *)Self__MN3E->storage__3CS)[ 0]='/';
- Self__ZRHH=((__STRING *)string_tmp__LGD);
- other__1RHH=Self__XHRD->parent_entry_unix__RGD.parent_entry__QGD.path__BD;
- i__0RHH=Self__ZRHH->count__SGC;
- j__2RHH=((__STRING_CONSTANT *)other__1RHH)->count__DD;
- resize__1VZ(Self__ZRHH,(__INTEGER)(i__0RHH + j__2RHH));
- if (((i__0RHH > 0) && (j__2RHH > 0))) {
- move__to__by__LVCC(Self__ZRHH->storage__3CS, 0,(__INTEGER)(i__0RHH - 1),j__2RHH);
- };
- Self__U2LH=((__CHARACTER *)Self__ZRHH->storage__3CS);
- model__V2LH=((__STRING_CONSTANT *)other__1RHH)->storage__RRO;
- Self__T2LH=(__INTEGER)(j__2RHH - 1);
- while ((Self__T2LH >= 0)) {
- Self__U2LH[Self__T2LH]=((__CHARACTER *)model__V2LH)[Self__T2LH];
- Self__T2LH=(__INTEGER)(Self__T2LH - 1);
- };
- reduce_path__UO3E(string_tmp__LGD);
- result__RV3E=NULL;
- idx__SV3E= 0;
- copy__VDS(string_tmp2__JZAC,Self__XHRD->parent_entry_unix__RGD.parent_entry__QGD.path__BD);
- Self__4RHH=((__STRING *)string_tmp2__JZAC);
- new_capacity__3RHH= 0;
- if ((Self__4RHH->capacity__UCS <= Self__4RHH->count__SGC)) {
- if ((Self__4RHH->capacity__UCS == 0)) {
- Self__4RHH->capacity__UCS= 32;
- Self__4RHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__3RHH=(__INTEGER)(Self__4RHH->capacity__UCS << 1);
- Self__5RHH=((__CHARACTER *)Self__4RHH->storage__3CS);
- old_nb_elts__ASHH=Self__4RHH->capacity__UCS;
- new__BSHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__5RHH),((__UINTEGER_32 )old_nb_elts__ASHH),((__UINTEGER_32 )new_capacity__3RHH)));
- upper__WDJH=(__INTEGER)(new_capacity__3RHH - 1);
- Self__UDJH=old_nb_elts__ASHH;
- while ((Self__UDJH <= upper__WDJH)) {
- new__BSHH[Self__UDJH]='\0';
- Self__UDJH=(__INTEGER)(Self__UDJH + 1);
- };
- Self__4RHH->storage__3CS=new__BSHH;
- Self__4RHH->capacity__UCS=new_capacity__3RHH;
- };
- };
- ((__CHARACTER *)Self__4RHH->storage__3CS)[Self__4RHH->count__SGC]='/';
- Self__4RHH->count__SGC=(__INTEGER)(Self__4RHH->count__SGC + 1);
- append__3OS(string_tmp2__JZAC,string_tmp__LGD);
- reduce_path__UO3E(string_tmp2__JZAC);
- copy__VDS(string_tmp3__PZAC,string_tmp2__JZAC);
- do {
- result__RV3E=reference_at__VV0C(alias__2GD,string_tmp2__JZAC);
- if (((void *)result__RV3E == (void *)NULL)) {
- Self__C1SD=((__STRING *)string_tmp2__JZAC);
- idx__SV3E=(__INTEGER)( 1 + fast_reverse_index_of__from__KA3(Self__C1SD->storage__3CS,'/',(__INTEGER)(Self__C1SD->count__SGC - 1)));
- if ((idx__SV3E > 0)) {
- Self__FZTD=((__STRING *)string_tmp2__JZAC);
- n__GZTD=(__INTEGER)(idx__SV3E - 1);
- if ((n__GZTD < Self__FZTD->count__SGC)) {
- n__NQFH=(__INTEGER)(Self__FZTD->count__SGC - n__GZTD);
- if ((n__NQFH > Self__FZTD->count__SGC)) {
- Self__FZTD->count__SGC= 0;
- } else {
- Self__FZTD->count__SGC=(__INTEGER)(Self__FZTD->count__SGC - n__NQFH);
- };
- };
- } else {
- ((__STRING *)string_tmp2__JZAC)->count__SGC= 0;
- };
- };
- } while ((((void *)result__RV3E == (void *)NULL) && (((__STRING *)string_tmp2__JZAC)->count__SGC != 0)));
- if (((void *)result__RV3E == (void *)NULL)) {
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- result__RV3E=physical_get_entry__JY0C(string_tmp3__PZAC);
- __tmp__UX3E=TRUE__;
- } else {
- __tmp__UX3E=FALSE__;
- };
- if ((! __tmp__UX3E)) {
- if ((((__STRING *)string_tmp3__PZAC)->count__SGC != ((__STRING *)string_tmp2__JZAC)->count__SGC)) {
- if (result__RV3E==NULL) {
- __tmp__FY3E=NULL;
- } else {
- switch (((struct ___OBJ *)result__RV3E)->__id) {
- case __DIRECTORY_UNIX__: {
- __tmp__FY3E=((void *)result__RV3E);
- } break;
- case __FILE_UNIX__: {
- __tmp__FY3E=NULL;
- } break;
- }
- };
- dir__DY3E=__tmp__FY3E;
- result__RV3E=physical_get_entry__REF(string_tmp3__PZAC);
- };
- };
- if (((void *)result__RV3E == (void *)NULL)) {
- result__AIRD=FALSE__;
- } else {
- if (((struct ___OBJ *)result__RV3E)->__id==__DIRECTORY_UNIX__) {
- __tmp__QKRD=((__DIRECTORY_UNIX *)result__RV3E)->parent_entry_unix__RGD.parent_entry__QGD.path__BD;
- } else {
- __tmp__QKRD=((__FILE_UNIX *)result__RV3E)->parent_entry_unix__EFF.parent_entry__QGD.path__BD;
- };
- if ((((__STRING_CONSTANT *)__tmp__QKRD)->count__DD >= ((__STRING_CONSTANT *)Self__XHRD->parent_entry_unix__RGD.parent_entry__QGD.path__BD)->count__DD)) {
- Self__UQMF=((__LINKED_LISToENTRYo *)Self__XHRD->parent_directory__SGD.list__FIRD);
- if (((void *)Self__UQMF->first_link__OMWE == (void *)NULL)) {
- result__YDJH=NULL;
- ptr__ZDJH=((__POINTER )(NULL));
- typ_id__0DJH= 0;
- sz__1DJH=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoENTRYo));
- if ((sz__1DJH == 0)) {
- result__YDJH=LINKED_LIST_NODEoENTRYo__;
- } else {
- typ_id__0DJH=__LINKED_LIST_NODEoENTRYo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__1DJH);
- if ((typ_id__0DJH == (__INTEGER)(- 1))) {
- a__2DJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__3DJH=(__UINTEGER_32)((__UINTEGER_32)(sz__1DJH + a__2DJH) & (__UINTEGER_32)(~ a__2DJH));
- ptr_table__DEJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3DJH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__CEJH=((__POINTER )(NULL));
- result__EEJH=((__POINTER *)ptr_table__DEJH)[ 0];
- if ((result__EEJH == (void *)NULL)) {
- result__EEJH=new_lab__RTJ(new_size__3DJH);
- next__CEJH=(void *)((unsigned long)result__EEJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3DJH)));
- ((__POINTER *)next__CEJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__DEJH)[ 0]=next__CEJH;
- } else {
- next__CEJH=((__POINTER *)result__EEJH)[ 0];
- if ((next__CEJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EEJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__3DJH << 1)) <= 4096)) {
- next__CEJH=(void *)((unsigned long)result__EEJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3DJH)));
- } else {
- next__CEJH=new_lab__RTJ(new_size__3DJH);
- };
- ((__POINTER *)next__CEJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__DEJH)[ 0]=next__CEJH;
- } else {
- ((__POINTER *)result__EEJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CEJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__EEJH=next__CEJH;
- };
- };
- ptr__ZDJH=result__EEJH;
- } else {
- t__4DJH=((__UINTEGER_32 )typ_id__0DJH);
- a__5DJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__LEJH=(__UINTEGER_32)((__UINTEGER_32)(sz__1DJH + a__5DJH) & (__UINTEGER_32)(~ a__5DJH));
- ptr_table__IEJH=((__POINTER )(&(table_type[(t__4DJH)])));
- lab_type__KEJH=(__UINTEGER_32)(t__4DJH | 1);
- next__HEJH=((__POINTER )(NULL));
- result__JEJH=((__POINTER *)ptr_table__IEJH)[ 0];
- if ((result__JEJH == (void *)NULL)) {
- result__JEJH=new_lab__RTJ(lab_type__KEJH);
- next__HEJH=(void *)((unsigned long)result__JEJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LEJH)));
- ((__POINTER *)next__HEJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__IEJH)[ 0]=next__HEJH;
- } else {
- next__HEJH=((__POINTER *)result__JEJH)[ 0];
- if ((next__HEJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JEJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__LEJH << 1)) <= 4096)) {
- next__HEJH=(void *)((unsigned long)result__JEJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LEJH)));
- } else {
- next__HEJH=new_lab__RTJ(lab_type__KEJH);
- };
- ((__POINTER *)next__HEJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__IEJH)[ 0]=next__HEJH;
- } else {
- ((__POINTER *)result__JEJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HEJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__JEJH=next__HEJH;
- };
- };
- ptr__ZDJH=result__JEJH;
- };
- result__YDJH=((__LINKED_LIST_NODEoENTRYo *)ptr__ZDJH);
- *(result__YDJH) = *(LINKED_LIST_NODEoENTRYo__);
- };
- Self__AEJH=((__LINKED_LIST_NODEoENTRYo *)result__YDJH);
- Self__AEJH->item__IAXE=result__RV3E;
- Self__AEJH->next__G3FF=NULL;
- Self__UQMF->first_link__OMWE=result__YDJH;
- Self__UQMF->parent_linked_collection__EIRD.upper__HR3D= 1;
- Self__UQMF->last_link__XMWE=result__YDJH;
- Self__UQMF->mem_idx__VMWE= 1;
- Self__UQMF->mem_lnk__WMWE=result__YDJH;
- } else {
- result__JFOF=NULL;
- ptr__KFOF=((__POINTER )(NULL));
- typ_id__PFOF= 0;
- sz__MFOF=((__UINTEGER_32 )sizeof(__LINKED_LIST_NODEoENTRYo));
- if ((sz__MFOF == 0)) {
- result__JFOF=LINKED_LIST_NODEoENTRYo__;
- } else {
- typ_id__PFOF=__LINKED_LIST_NODEoENTRYo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__MFOF);
- if ((typ_id__PFOF == (__INTEGER)(- 1))) {
- a__5QFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ARFH=(__UINTEGER_32)((__UINTEGER_32)(sz__MFOF + a__5QFH) & (__UINTEGER_32)(~ a__5QFH));
- ptr_table__NEJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ARFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__MEJH=((__POINTER )(NULL));
- result__OEJH=((__POINTER *)ptr_table__NEJH)[ 0];
- if ((result__OEJH == (void *)NULL)) {
- result__OEJH=new_lab__RTJ(new_size__ARFH);
- next__MEJH=(void *)((unsigned long)result__OEJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ARFH)));
- ((__POINTER *)next__MEJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__NEJH)[ 0]=next__MEJH;
- } else {
- next__MEJH=((__POINTER *)result__OEJH)[ 0];
- if ((next__MEJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OEJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__ARFH << 1)) <= 4096)) {
- next__MEJH=(void *)((unsigned long)result__OEJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ARFH)));
- } else {
- next__MEJH=new_lab__RTJ(new_size__ARFH);
- };
- ((__POINTER *)next__MEJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__NEJH)[ 0]=next__MEJH;
- } else {
- ((__POINTER *)result__OEJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MEJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__OEJH=next__MEJH;
- };
- };
- ptr__KFOF=result__OEJH;
- } else {
- t__ERFH=((__UINTEGER_32 )typ_id__PFOF);
- a__DRFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__VEJH=(__UINTEGER_32)((__UINTEGER_32)(sz__MFOF + a__DRFH) & (__UINTEGER_32)(~ a__DRFH));
- ptr_table__SEJH=((__POINTER )(&(table_type[(t__ERFH)])));
- lab_type__UEJH=(__UINTEGER_32)(t__ERFH | 1);
- next__REJH=((__POINTER )(NULL));
- result__TEJH=((__POINTER *)ptr_table__SEJH)[ 0];
- if ((result__TEJH == (void *)NULL)) {
- result__TEJH=new_lab__RTJ(lab_type__UEJH);
- next__REJH=(void *)((unsigned long)result__TEJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VEJH)));
- ((__POINTER *)next__REJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__SEJH)[ 0]=next__REJH;
- } else {
- next__REJH=((__POINTER *)result__TEJH)[ 0];
- if ((next__REJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TEJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__VEJH << 1)) <= 4096)) {
- next__REJH=(void *)((unsigned long)result__TEJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VEJH)));
- } else {
- next__REJH=new_lab__RTJ(lab_type__UEJH);
- };
- ((__POINTER *)next__REJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__SEJH)[ 0]=next__REJH;
- } else {
- ((__POINTER *)result__TEJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__REJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__TEJH=next__REJH;
- };
- };
- ptr__KFOF=result__TEJH;
- };
- result__JFOF=((__LINKED_LIST_NODEoENTRYo *)ptr__KFOF);
- *(result__JFOF) = *(LINKED_LIST_NODEoENTRYo__);
- };
- Self__RNQF=((__LINKED_LIST_NODEoENTRYo *)result__JFOF);
- Self__RNQF->item__IAXE=result__RV3E;
- Self__RNQF->next__G3FF=NULL;
- ((__LINKED_LIST_NODEoENTRYo *)Self__UQMF->last_link__XMWE)->next__G3FF=result__JFOF;
- Self__UQMF->parent_linked_collection__EIRD.upper__HR3D=(__INTEGER)(Self__UQMF->parent_linked_collection__EIRD.upper__HR3D + 1);
- Self__UQMF->last_link__XMWE=result__JFOF;
- };
- };
- };
- };
- };
- } while (((dirent__3HRD != (void *)NULL) & result__AIRD));
- closedir((dir__1HRD));
- };
- return(result__AIRD);
-}
-
-static void check_in__begin__ZQQC(void *entry__1QQC,__INTEGER n__2QQC)
-// ({NULLxDIRECTORY_UNIXxFILE_UNIX},{INTEGER}) VoidRecursive, No inlinable.
-{
- void *tok__4QQC,*__tmp__IRQC,*__tmp__YSQC,*k__3VDC,*k__2CFG;
- void *__tmp__EVQC,*__tmp__JVQC;
- void *dir__ARQC,*__tmp__PRQC;
- __FILE_UNIX *Self__423G;
- __INTEGER __tmp__URQC,Self__LR3D,__tmp__JSQC,Self__2R3D,__tmp__UTQC;
- __INTEGER Self__MCFG,new_capacity__DSHH,old_nb_elts__GSHH,upper__ZEJH;
- __INTEGER Self__XEJH,new_capacity__JSHH,old_nb_elts__MSHH,upper__4EJH;
- __INTEGER Self__2EJH,i__B0BD,j__C0BD,Self__HAKB,__tmp__CYQC;
- __INTEGER Self__UGSE,new_capacity__PSHH,old_nb_elts__SSHH,upper__EFJH;
- __INTEGER Self__CFJH;
- void *__tmp__0RQC,*__tmp__PSQC,*__tmp__XSQC,*__tmp__DVQC,*__tmp__IVQC;
- __STRING *Self__KSS,*Self__ESHH,*Self__KSHH,*Self__5ZBD,*Self__212;
- __STRING *Self__QSHH;
- void *tok_lst__5QQC;
- __BOOLEAN __tmp__BRQC,__tmp__1RQC,__tmp__QSQC;
- __CHARACTER *Self__FSHH,*new__HSHH,*Self__LSHH,*new__NSHH,*Self__SJEB;
- __CHARACTER *model__TJEB,*Self__RSHH,*new__TSHH;
- __HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *Self__2VDC,*Self__1CFG;
- void *node__GWDC,*node__GDFG;
- tok__4QQC=NULL;
- tok_lst__5QQC=NULL;
- dir__ARQC=NULL;
- if (((struct ___OBJ *)entry__1QQC)->__id==__DIRECTORY_UNIX__) {
- __tmp__BRQC=open__WHRD(entry__1QQC);
- } else {
- Self__423G=((__FILE_UNIX *)entry__1QQC);
- Self__423G->stream__BMRD=((__POINTER )(fopen((char*)(((__STRING_CONSTANT *)Self__423G->parent_entry_unix__EFF.parent_entry__QGD.path__BD)->storage__RRO),"r+b")));
- __tmp__BRQC=(Self__423G->stream__BMRD != (void *)NULL);
- };
- if ((! __tmp__BRQC)) {
- print__OJD((&__string_222));
- if (((struct ___OBJ *)entry__1QQC)->__id==__DIRECTORY_UNIX__) {
- __tmp__IRQC=((__DIRECTORY_UNIX *)entry__1QQC)->parent_entry_unix__RGD.parent_entry__QGD.path__BD;
- } else {
- __tmp__IRQC=((__FILE_UNIX *)entry__1QQC)->parent_entry_unix__EFF.parent_entry__QGD.path__BD;
- };
- print__OJD(__tmp__IRQC);
- print__OJD((&__string_171));
- } else {
- if (entry__1QQC==NULL) {
- __tmp__PRQC=NULL;
- } else {
- switch (((struct ___OBJ *)entry__1QQC)->__id) {
- case __DIRECTORY_UNIX__: {
- __tmp__PRQC=((void *)entry__1QQC);
- } break;
- case __FILE_UNIX__: {
- __tmp__PRQC=NULL;
- } break;
- }
- };
- dir__ARQC=__tmp__PRQC;
- __tmp__URQC=((__LINKED_LISToENTRYo *)((__DIRECTORY_UNIX *)__tmp__PRQC)->parent_directory__SGD.list__FIRD)->parent_linked_collection__EIRD.upper__HR3D;
- Self__LR3D= 1;
- while ((Self__LR3D <= __tmp__URQC)) {
- __tmp__0RQC=item__V3PE(dir__ARQC,Self__LR3D);
- if (((struct ___OBJ *)__tmp__0RQC)->__id==__DIRECTORY_UNIX__) {
- __tmp__1RQC=((void *)((__DIRECTORY_UNIX *)__tmp__0RQC) != (void *)NULL);
- } else {
- __tmp__1RQC=FALSE__;
- };
- if (__tmp__1RQC) {
- check_in__begin__ZQQC(item__V3PE(dir__ARQC,Self__LR3D),n__2QQC);
- };
- Self__LR3D=(__INTEGER)(Self__LR3D + 1);
- };
- __tmp__JSQC=((__LINKED_LISToENTRYo *)((__DIRECTORY_UNIX *)__tmp__PRQC)->parent_directory__SGD.list__FIRD)->parent_linked_collection__EIRD.upper__HR3D;
- Self__2R3D= 1;
- while ((Self__2R3D <= __tmp__JSQC)) {
- __tmp__PSQC=item__V3PE(dir__ARQC,Self__2R3D);
- if (((struct ___OBJ *)__tmp__PSQC)->__id==__DIRECTORY_UNIX__) {
- __tmp__QSQC=((void *)((__DIRECTORY_UNIX *)__tmp__PSQC) != (void *)NULL);
- } else {
- __tmp__QSQC=FALSE__;
- };
- if ((! __tmp__QSQC)) {
- __tmp__XSQC=item__V3PE(dir__ARQC,Self__2R3D);
- if (((struct ___OBJ *)__tmp__XSQC)->__id==__DIRECTORY_UNIX__) {
- __tmp__YSQC=((__DIRECTORY_UNIX *)__tmp__XSQC)->parent_entry_unix__RGD.parent_entry__QGD.name__OPT;
- } else {
- __tmp__YSQC=((__FILE_UNIX *)__tmp__XSQC)->parent_entry_unix__EFF.parent_entry__QGD.name__OPT;
- };
- if (has_suffix__QJS(__tmp__YSQC)) {
- copy__VDS(string_tmp__VH,__tmp__YSQC);
- Self__KSS=((__STRING *)string_tmp__VH);
- if (( 3 > Self__KSS->count__SGC)) {
- Self__KSS->count__SGC= 0;
- } else {
- Self__KSS->count__SGC=(__INTEGER)(Self__KSS->count__SGC - 3);
- };
- to_upper__PTS(string_tmp__VH);
- tok__4QQC=get__YWB(string_tmp__VH);
- if (fast_has__IDT(short_dico__QD,(&__string_155))) {
- tok_lst__5QQC=fast_at__LV3(short_dico__QD,(&__string_155));
- __tmp__UTQC=((__LINKED_LISToSTRING_CONSTANTo *)tok_lst__5QQC)->parent_linked_collection__LD.upper__0ED;
- Self__MCFG= 1;
- while ((Self__MCFG <= __tmp__UTQC)) {
- if (((void *)item__X3ND(tok_lst__5QQC,Self__MCFG) == (void *)NULL)) {
- append__3OS(current_list__2B,tok__4QQC);
- append__3OS(file_list__0B,tok__4QQC);
- } else {
- append__3OS(current_list__2B,item__X3ND(tok_lst__5QQC,Self__MCFG));
- append__3OS(file_list__0B,item__X3ND(tok_lst__5QQC,Self__MCFG));
- };
- Self__MCFG=(__INTEGER)(Self__MCFG + 1);
- };
- } else {
- append__3OS(current_list__2B,tok__4QQC);
- Self__ESHH=((__STRING *)current_list__2B);
- new_capacity__DSHH= 0;
- if ((Self__ESHH->capacity__UCS <= Self__ESHH->count__SGC)) {
- if ((Self__ESHH->capacity__UCS == 0)) {
- Self__ESHH->capacity__UCS= 32;
- Self__ESHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__DSHH=(__INTEGER)(Self__ESHH->capacity__UCS << 1);
- Self__FSHH=((__CHARACTER *)Self__ESHH->storage__3CS);
- old_nb_elts__GSHH=Self__ESHH->capacity__UCS;
- new__HSHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__FSHH),((__UINTEGER_32 )old_nb_elts__GSHH),((__UINTEGER_32 )new_capacity__DSHH)));
- upper__ZEJH=(__INTEGER)(new_capacity__DSHH - 1);
- Self__XEJH=old_nb_elts__GSHH;
- while ((Self__XEJH <= upper__ZEJH)) {
- new__HSHH[Self__XEJH]='\0';
- Self__XEJH=(__INTEGER)(Self__XEJH + 1);
- };
- Self__ESHH->storage__3CS=new__HSHH;
- Self__ESHH->capacity__UCS=new_capacity__DSHH;
- };
- };
- ((__CHARACTER *)Self__ESHH->storage__3CS)[Self__ESHH->count__SGC]='\n';
- Self__ESHH->count__SGC=(__INTEGER)(Self__ESHH->count__SGC + 1);
- append__3OS(file_list__0B,tok__4QQC);
- Self__KSHH=((__STRING *)file_list__0B);
- new_capacity__JSHH= 0;
- if ((Self__KSHH->capacity__UCS <= Self__KSHH->count__SGC)) {
- if ((Self__KSHH->capacity__UCS == 0)) {
- Self__KSHH->capacity__UCS= 32;
- Self__KSHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__JSHH=(__INTEGER)(Self__KSHH->capacity__UCS << 1);
- Self__LSHH=((__CHARACTER *)Self__KSHH->storage__3CS);
- old_nb_elts__MSHH=Self__KSHH->capacity__UCS;
- new__NSHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__LSHH),((__UINTEGER_32 )old_nb_elts__MSHH),((__UINTEGER_32 )new_capacity__JSHH)));
- upper__4EJH=(__INTEGER)(new_capacity__JSHH - 1);
- Self__2EJH=old_nb_elts__MSHH;
- while ((Self__2EJH <= upper__4EJH)) {
- new__NSHH[Self__2EJH]='\0';
- Self__2EJH=(__INTEGER)(Self__2EJH + 1);
- };
- Self__KSHH->storage__3CS=new__NSHH;
- Self__KSHH->capacity__UCS=new_capacity__JSHH;
- };
- };
- ((__CHARACTER *)Self__KSHH->storage__3CS)[Self__KSHH->count__SGC]='\n';
- Self__KSHH->count__SGC=(__INTEGER)(Self__KSHH->count__SGC + 1);
- };
- Self__2VDC=((__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *)prototype_dico__LUS);
- k__3VDC=tok__4QQC;
- node__GWDC=((void **)Self__2VDC->buckets__PMBC)[(__INTEGER)(hash_code__RNW(tok__4QQC) % Self__2VDC->capacity__KMBC)];
- while ((! (((void *)node__GWDC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__GWDC)->key__1MBC == (void *)k__3VDC)))) {
- node__GWDC=((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__GWDC)->next__GNBC;
- };
- if (((void *)node__GWDC != (void *)NULL)) {
- print__OJD((&__string_223));
- Self__1CFG=((__HASHED_DICTIONARYoPROTOTYPExSTRING_CONSTANTo *)prototype_dico__LUS);
- k__2CFG=tok__4QQC;
- node__GDFG=((void **)Self__1CFG->buckets__PMBC)[(__INTEGER)(hash_code__RNW(tok__4QQC) % Self__1CFG->capacity__KMBC)];
- while (((void *)((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__GDFG)->key__1MBC != (void *)k__2CFG)) {
- node__GDFG=((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__GDFG)->next__GNBC;
- };
- print__OJD(((__PROTOTYPE *)((__HASHED_DICTIONARY_NODEoPROTOTYPExSTRING_CONSTANTo *)node__GDFG)->item__NBHD)->filename__FSG);
- fputc((int)('\n'),stdout);
- __tmp__DVQC=item__V3PE(dir__ARQC,Self__2R3D);
- if (((struct ___OBJ *)__tmp__DVQC)->__id==__DIRECTORY_UNIX__) {
- __tmp__EVQC=((__DIRECTORY_UNIX *)__tmp__DVQC)->parent_entry_unix__RGD.parent_entry__QGD.path__BD;
- } else {
- __tmp__EVQC=((__FILE_UNIX *)__tmp__DVQC)->parent_entry_unix__EFF.parent_entry__QGD.path__BD;
- };
- print__OJD(__tmp__EVQC);
- fputc((int)('\n'),stdout);
- exit(( 1));
- };
- __tmp__IVQC=item__V3PE(dir__ARQC,Self__2R3D);
- if (((struct ___OBJ *)__tmp__IVQC)->__id==__DIRECTORY_UNIX__) {
- __tmp__JVQC=((__DIRECTORY_UNIX *)__tmp__IVQC)->parent_entry_unix__RGD.parent_entry__QGD.path__BD;
- } else {
- __tmp__JVQC=((__FILE_UNIX *)__tmp__IVQC)->parent_entry_unix__EFF.parent_entry__QGD.path__BD;
- };
- proto_input__BI=create__name__generic_count__JBC(__tmp__JVQC,tok__4QQC);
- go_on__SBC(proto_input__BI);
- if (is_shorter__LZ) {
- copy__VDS(string_tmp__VH,tok__4QQC);
- if (fast_has__IDT(short_dico__QD,(&__string_116))) {
- append__3OS(string_tmp__VH,((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(short_dico__QD,(&__string_116)))->first_link__OTEC)->item__L0HD);
- } else {
- append__3OS(string_tmp__VH,(&__string_172));
- };
- save_file__with__3DC(get__YWB(string_tmp__VH),output_code__SI);
- };
- };
- };
- Self__2R3D=(__INTEGER)(Self__2R3D + 1);
- };
- if ((((__STRING *)current_list__2B)->count__SGC != 0)) {
- if (fast_has__IDT(short_dico__QD,(&__string_154))) {
- tok__4QQC=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(short_dico__QD,(&__string_154)))->first_link__OTEC)->item__L0HD;
- Self__5ZBD=((__STRING *)current_list__2B);
- i__B0BD=Self__5ZBD->count__SGC;
- j__C0BD=((__STRING_CONSTANT *)tok__4QQC)->count__DD;
- resize__1VZ(Self__5ZBD,(__INTEGER)(i__B0BD + j__C0BD));
- if (((i__B0BD > 0) && (j__C0BD > 0))) {
- move__to__by__LVCC(Self__5ZBD->storage__3CS, 0,(__INTEGER)(i__B0BD - 1),j__C0BD);
- };
- Self__SJEB=((__CHARACTER *)Self__5ZBD->storage__3CS);
- model__TJEB=((__STRING_CONSTANT *)tok__4QQC)->storage__RRO;
- Self__HAKB=(__INTEGER)(j__C0BD - 1);
- while ((Self__HAKB >= 0)) {
- Self__SJEB[Self__HAKB]=((__CHARACTER *)model__TJEB)[Self__HAKB];
- Self__HAKB=(__INTEGER)(Self__HAKB - 1);
- };
- };
- if (fast_has__IDT(short_dico__QD,(&__string_156))) {
- tok__4QQC=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(short_dico__QD,(&__string_156)))->first_link__OTEC)->item__L0HD;
- append__3OS(current_list__2B,tok__4QQC);
- };
- copy__VDS(string_tmp__VH,((__DIRECTORY_UNIX *)__tmp__PRQC)->parent_entry_unix__RGD.parent_entry__QGD.path__BD);
- Self__212=((__STRING *)string_tmp__VH);
- if ((n__2QQC > Self__212->count__SGC)) {
- Self__212->count__SGC= 0;
- } else {
- if ((n__2QQC > 0)) {
- remove_between__to__MIT(Self__212, 1,n__2QQC);
- };
- };
- if ((((__STRING *)string_tmp__VH)->count__SGC != 0)) {
- replace_all__with__CRS(string_tmp__VH,'/','-');
- tok__4QQC=get__YWB(string_tmp__VH);
- if (fast_has__IDT(short_dico__QD,(&__string_152))) {
- tok_lst__5QQC=fast_at__LV3(short_dico__QD,(&__string_152));
- __tmp__CYQC=((__LINKED_LISToSTRING_CONSTANTo *)tok_lst__5QQC)->parent_linked_collection__LD.upper__0ED;
- Self__UGSE= 1;
- while ((Self__UGSE <= __tmp__CYQC)) {
- if (((void *)item__X3ND(tok_lst__5QQC,Self__UGSE) == (void *)NULL)) {
- append__3OS(directory_list__YB,tok__4QQC);
- } else {
- append__3OS(directory_list__YB,item__X3ND(tok_lst__5QQC,Self__UGSE));
- };
- Self__UGSE=(__INTEGER)(Self__UGSE + 1);
- };
- } else {
- append__3OS(directory_list__YB,tok__4QQC);
- Self__QSHH=((__STRING *)directory_list__YB);
- new_capacity__PSHH= 0;
- if ((Self__QSHH->capacity__UCS <= Self__QSHH->count__SGC)) {
- if ((Self__QSHH->capacity__UCS == 0)) {
- Self__QSHH->capacity__UCS= 32;
- Self__QSHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__PSHH=(__INTEGER)(Self__QSHH->capacity__UCS << 1);
- Self__RSHH=((__CHARACTER *)Self__QSHH->storage__3CS);
- old_nb_elts__SSHH=Self__QSHH->capacity__UCS;
- new__TSHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__RSHH),((__UINTEGER_32 )old_nb_elts__SSHH),((__UINTEGER_32 )new_capacity__PSHH)));
- upper__EFJH=(__INTEGER)(new_capacity__PSHH - 1);
- Self__CFJH=old_nb_elts__SSHH;
- while ((Self__CFJH <= upper__EFJH)) {
- new__TSHH[Self__CFJH]='\0';
- Self__CFJH=(__INTEGER)(Self__CFJH + 1);
- };
- Self__QSHH->storage__3CS=new__TSHH;
- Self__QSHH->capacity__UCS=new_capacity__PSHH;
- };
- };
- ((__CHARACTER *)Self__QSHH->storage__3CS)[Self__QSHH->count__SGC]='\n';
- Self__QSHH->count__SGC=(__INTEGER)(Self__QSHH->count__SGC + 1);
- };
- copy__VDS(string_tmp__VH,tok__4QQC);
- if (fast_has__IDT(short_dico__QD,(&__string_116))) {
- append__3OS(string_tmp__VH,((__LINKED_LIST_NODEoSTRING_CONSTANTo *)((__LINKED_LISToSTRING_CONSTANTo *)fast_at__LV3(short_dico__QD,(&__string_116)))->first_link__OTEC)->item__L0HD);
- } else {
- append__3OS(string_tmp__VH,(&__string_172));
- };
- save_file__with__3DC(get__YWB(string_tmp__VH),current_list__2B);
- ((__STRING *)current_list__2B)->count__SGC= 0;
- };
- };
- };
-}
-
-static void* fast_at__LV3(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__MV3,void *k__NV3)
-// ({HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
- void *node__XV3;
- node__XV3=((void **)Self__MV3->buckets__1DT)[(__INTEGER)(hash_code__RNW(k__NV3) % Self__MV3->capacity__WDT)];
- while (((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__XV3)->key__HET != (void *)k__NV3)) {
- node__XV3=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__XV3)->next__SET;
- };
- return(((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__XV3)->item__KW3);
-}
-
-static void save_file__with__3DC(void *n__5DC,void *buf__AEC)
-// ({NULLxSTRING_CONSTANT},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
- __STRING *Self__4IFH,*Self__U1BD,*Self__WSHH,*Self__2SHH,*Self__TYS;
- __INTEGER new_capacity__VSHH,old_nb_elts__YSHH,upper__JFJH,Self__HFJH;
- __INTEGER new_capacity__1SHH,old_nb_elts__4SHH,upper__OFJH,Self__MFJH;
- __INTEGER new_capacity__BTHH,old_nb_elts__ETHH,upper__TFJH,Self__RFJH;
- __INTEGER __tmp__UGC;
- void *result__BYAC,*__tmp__RYAC,*__tmp__PGC,*file__CEC;
- void *__tmp__02HC;
- __POINTER stream__IEIC,ptr__2NPF;
- void *__tmp__QYAC;
- __FILE_UNIX *Self__S33G,*Self__QIUE,*Self__ZJUE;
- __BOOLEAN __tmp__3EC,result__KEIC;
- __CHARACTER *Self__XSHH,*new__ZSHH,*Self__3SHH,*new__5SHH,*Self__DTHH;
- __CHARACTER *new__FTHH;
- if (is_short_recursive__JB) {
- if (((void *)output_name__DI != (void *)NULL)) {
- copy__VDS(string_tmp__VH,output_name__DI);
- Self__4IFH=((__STRING *)string_tmp__VH);
- if ((((__CHARACTER *)Self__4IFH->storage__3CS)[(__INTEGER)(Self__4IFH->count__SGC - 1)] != '/')) {
- __tmp__3EC=TRUE__;
- } else {
- Self__U1BD=((__STRING *)string_tmp__VH);
- __tmp__3EC=(((__CHARACTER *)Self__U1BD->storage__3CS)[(__INTEGER)(Self__U1BD->count__SGC - 1)] != '\\');
- };
- if (__tmp__3EC) {
- Self__WSHH=((__STRING *)string_tmp__VH);
- new_capacity__VSHH= 0;
- if ((Self__WSHH->capacity__UCS <= Self__WSHH->count__SGC)) {
- if ((Self__WSHH->capacity__UCS == 0)) {
- Self__WSHH->capacity__UCS= 32;
- Self__WSHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__VSHH=(__INTEGER)(Self__WSHH->capacity__UCS << 1);
- Self__XSHH=((__CHARACTER *)Self__WSHH->storage__3CS);
- old_nb_elts__YSHH=Self__WSHH->capacity__UCS;
- new__ZSHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__XSHH),((__UINTEGER_32 )old_nb_elts__YSHH),((__UINTEGER_32 )new_capacity__VSHH)));
- upper__JFJH=(__INTEGER)(new_capacity__VSHH - 1);
- Self__HFJH=old_nb_elts__YSHH;
- while ((Self__HFJH <= upper__JFJH)) {
- new__ZSHH[Self__HFJH]='\0';
- Self__HFJH=(__INTEGER)(Self__HFJH + 1);
- };
- Self__WSHH->storage__3CS=new__ZSHH;
- Self__WSHH->capacity__UCS=new_capacity__VSHH;
- };
- };
- ((__CHARACTER *)Self__WSHH->storage__3CS)[Self__WSHH->count__SGC]='/';
- Self__WSHH->count__SGC=(__INTEGER)(Self__WSHH->count__SGC + 1);
- };
- } else {
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- };
- append__3OS(string_tmp__VH,n__5DC);
- } else {
- copy__VDS(string_tmp__VH,output_name__DI);
- };
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- result__BYAC=NULL;
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- __tmp__02HC=FILE_SYSTEM__->parent_directory__GHD;
- } else {
- __tmp__02HC=parent_directory__GGD();
- };
- copy__VDS(string_tmp__LGD,((__DIRECTORY_UNIX *)__tmp__02HC)->parent_entry_unix__RGD.parent_entry__QGD.path__BD);
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- Self__2SHH=((__STRING *)string_tmp__LGD);
- new_capacity__1SHH= 0;
- if ((Self__2SHH->capacity__UCS <= Self__2SHH->count__SGC)) {
- if ((Self__2SHH->capacity__UCS == 0)) {
- Self__2SHH->capacity__UCS= 32;
- Self__2SHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__1SHH=(__INTEGER)(Self__2SHH->capacity__UCS << 1);
- Self__3SHH=((__CHARACTER *)Self__2SHH->storage__3CS);
- old_nb_elts__4SHH=Self__2SHH->capacity__UCS;
- new__5SHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__3SHH),((__UINTEGER_32 )old_nb_elts__4SHH),((__UINTEGER_32 )new_capacity__1SHH)));
- upper__OFJH=(__INTEGER)(new_capacity__1SHH - 1);
- Self__MFJH=old_nb_elts__4SHH;
- while ((Self__MFJH <= upper__OFJH)) {
- new__5SHH[Self__MFJH]='\0';
- Self__MFJH=(__INTEGER)(Self__MFJH + 1);
- };
- Self__2SHH->storage__3CS=new__5SHH;
- Self__2SHH->capacity__UCS=new_capacity__1SHH;
- };
- };
- ((__CHARACTER *)Self__2SHH->storage__3CS)[Self__2SHH->count__SGC]='/';
- Self__2SHH->count__SGC=(__INTEGER)(Self__2SHH->count__SGC + 1);
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- append__3OS(string_tmp__LGD,string_tmp__VH);
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- reduce_path__J3HC(string_tmp__LGD);
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- result__KEIC=FALSE__;
- Self__TYS=((__STRING *)string_tmp__LGD);
- if ((Self__TYS->capacity__UCS > Self__TYS->count__SGC)) {
- ((__CHARACTER *)Self__TYS->storage__3CS)[Self__TYS->count__SGC]='\0';
- } else {
- new_capacity__BTHH= 0;
- if ((Self__TYS->capacity__UCS <= Self__TYS->count__SGC)) {
- if ((Self__TYS->capacity__UCS == 0)) {
- Self__TYS->capacity__UCS= 32;
- Self__TYS->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__BTHH=(__INTEGER)(Self__TYS->capacity__UCS << 1);
- Self__DTHH=((__CHARACTER *)Self__TYS->storage__3CS);
- old_nb_elts__ETHH=Self__TYS->capacity__UCS;
- new__FTHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__DTHH),((__UINTEGER_32 )old_nb_elts__ETHH),((__UINTEGER_32 )new_capacity__BTHH)));
- upper__TFJH=(__INTEGER)(new_capacity__BTHH - 1);
- Self__RFJH=old_nb_elts__ETHH;
- while ((Self__RFJH <= upper__TFJH)) {
- new__FTHH[Self__RFJH]='\0';
- Self__RFJH=(__INTEGER)(Self__RFJH + 1);
- };
- Self__TYS->storage__3CS=new__FTHH;
- Self__TYS->capacity__UCS=new_capacity__BTHH;
- };
- };
- ((__CHARACTER *)Self__TYS->storage__3CS)[Self__TYS->count__SGC]='\0';
- Self__TYS->count__SGC=(__INTEGER)(Self__TYS->count__SGC + 1);
- Self__TYS->count__SGC=(__INTEGER)(Self__TYS->count__SGC - 1);
- };
- stream__IEIC=((__POINTER )(fopen((char*)(Self__TYS->storage__3CS),"w+b")));
- if ((stream__IEIC != (void *)NULL)) {
- result__KEIC=(((__INTEGER )(fclose((FILE*)(stream__IEIC)))) == 0);
- };
- if (result__KEIC) {
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- __tmp__QYAC=get_entry__DZAC(string_tmp__LGD);
- if (__tmp__QYAC==NULL) {
- __tmp__RYAC=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__QYAC)->__id) {
- case __DIRECTORY_UNIX__: {
- __tmp__RYAC=NULL;
- } break;
- case __FILE_UNIX__: {
- __tmp__RYAC=((void *)__tmp__QYAC);
- } break;
- }
- };
- result__BYAC=__tmp__RYAC;
- };
- if (((void *)result__BYAC == (void *)NULL)) {
- put_string__33F((&__string_224));
- put_string__33F(string_tmp__VH);
- put_string__33F((&__string_225));
- exit(( 1));
- };
- Self__S33G=((__FILE_UNIX *)result__BYAC);
- Self__S33G->stream__BMRD=((__POINTER )(fopen((char*)(((__STRING_CONSTANT *)Self__S33G->parent_entry_unix__EFF.parent_entry__QGD.path__BD)->storage__RRO),"r+b")));
- if ((! (Self__S33G->stream__BMRD != (void *)NULL))) {
- put_string__33F((&__string_224));
- put_string__33F(string_tmp__VH);
- put_string__33F((&__string_226));
- exit(( 1));
- };
- if (result__BYAC==NULL) {
- __tmp__PGC=NULL;
- } else {
- __tmp__PGC=((void *)result__BYAC);
- };
- file__CEC=__tmp__PGC;
- __tmp__UGC=((__STRING *)buf__AEC)->count__SGC;
- Self__QIUE=((__FILE_UNIX *)__tmp__PGC);
- ptr__2NPF=((__POINTER )((__UINTEGER_8 *)((__STRING *)buf__AEC)->storage__3CS));
- ptr__2NPF=(void *)((unsigned long)ptr__2NPF - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 0)));
- fwrite((void *)((((__UINTEGER_8 *)ptr__2NPF))),(size_t)(1), (size_t)((__tmp__UGC)),(FILE*)((Self__QIUE->stream__BMRD)));
- Self__ZJUE=((__FILE_UNIX *)__tmp__PGC);
- fclose((FILE*)((Self__ZJUE->stream__BMRD)));
- Self__ZJUE->stream__BMRD=NULL;
-}
-
-static void resize__1VZ(__STRING *Self__2VZ,__INTEGER new_count__3VZ)
-// ({STRING},{INTEGER}) VoidNo recursive, No inlinable.
-{
- __INTEGER old_nb_elts__GIEH,upper__YFJH,Self__WFJH,lower__0FJH;
- __INTEGER upper__3FJH,Self__1FJH;
- __CHARACTER *Self__FIEH,*new__IIEH,*Self__2FJH;
- if ((! (new_count__3VZ <= Self__2VZ->count__SGC))) {
- if ((Self__2VZ->capacity__UCS < new_count__3VZ)) {
- if ((Self__2VZ->capacity__UCS == 0)) {
- Self__2VZ->storage__3CS=create__YIEB(new_count__3VZ);
- } else {
- Self__FIEH=((__CHARACTER *)Self__2VZ->storage__3CS);
- old_nb_elts__GIEH=Self__2VZ->capacity__UCS;
- new__IIEH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__FIEH),((__UINTEGER_32 )old_nb_elts__GIEH),((__UINTEGER_32 )new_count__3VZ)));
- upper__YFJH=(__INTEGER)(new_count__3VZ - 1);
- Self__WFJH=old_nb_elts__GIEH;
- while ((Self__WFJH <= upper__YFJH)) {
- new__IIEH[Self__WFJH]='\0';
- Self__WFJH=(__INTEGER)(Self__WFJH + 1);
- };
- Self__2VZ->storage__3CS=new__IIEH;
- };
- Self__2VZ->capacity__UCS=new_count__3VZ;
- } else {
- Self__2FJH=((__CHARACTER *)Self__2VZ->storage__3CS);
- lower__0FJH=Self__2VZ->count__SGC;
- upper__3FJH=(__INTEGER)(new_count__3VZ - 1);
- Self__1FJH=lower__0FJH;
- while ((Self__1FJH <= upper__3FJH)) {
- Self__2FJH[Self__1FJH]='\0';
- Self__1FJH=(__INTEGER)(Self__1FJH + 1);
- };
- };
- };
- Self__2VZ->count__SGC=new_count__3VZ;
-}
-
-static void move__to__by__LVCC(__CHARACTER *Self__MVCC,__INTEGER lower__NVCC,__INTEGER upper__OVCC,__INTEGER offset__PVCC)
-// ({NATIVE_ARRAYoExpanded_CHARACTERo},{INTEGER},{INTEGER},{INTEGER}) VoidNo recursive, No inlinable.
-{
- __INTEGER Self__0NHD,Self__JOHD;
- if ((offset__PVCC != 0)) {
- if ((offset__PVCC < 0)) {
- Self__0NHD=lower__NVCC;
- while ((Self__0NHD <= upper__OVCC)) {
- Self__MVCC[(__INTEGER)(Self__0NHD + offset__PVCC)]=Self__MVCC[Self__0NHD];
- Self__0NHD=(__INTEGER)(Self__0NHD + 1);
- };
- } else {
- Self__JOHD=upper__OVCC;
- while ((Self__JOHD >= lower__NVCC)) {
- Self__MVCC[(__INTEGER)(Self__JOHD + offset__PVCC)]=Self__MVCC[Self__JOHD];
- Self__JOHD=(__INTEGER)(Self__JOHD - 1);
- };
- };
- };
-}
-
-static __BOOLEAN __infix_equal_equal__V2DB(__STRING_CONSTANT *Self__W2DB,void *other__X2DB)
-// ({STRING_CONSTANT},{NULLxSTRING_CONSTANTxSTRING}) With resultNo recursive, No inlinable.
-{
- __INTEGER __tmp__A3DB,__tmp__B3DB;
- __BOOLEAN result__Z2DB;
- __CHARACTER *__tmp__S3DB,*__tmp__T3DB;
- result__Z2DB=FALSE__;
- __tmp__A3DB=Self__W2DB->count__DD;
- if (((struct ___OBJ *)other__X2DB)->__id==__STRING_CONSTANT__) {
- __tmp__B3DB=((__STRING_CONSTANT *)other__X2DB)->count__DD;
- } else {
- __tmp__B3DB=((__STRING *)other__X2DB)->count__SGC;
- };
- if ((__tmp__A3DB == __tmp__B3DB)) {
- if ((Self__W2DB->count__DD == 0)) {
- result__Z2DB=TRUE__;
- } else {
- __tmp__S3DB=Self__W2DB->storage__RRO;
- if (((struct ___OBJ *)other__X2DB)->__id==__STRING_CONSTANT__) {
- __tmp__T3DB=((__STRING_CONSTANT *)other__X2DB)->storage__RRO;
- } else {
- __tmp__T3DB=((__STRING *)other__X2DB)->storage__3CS;
- };
- result__Z2DB=fast_memcmp__until__FYYB(__tmp__S3DB,__tmp__T3DB,Self__W2DB->count__DD);
- };
- };
- return(result__Z2DB);
-}
-
-static void* at__JK4(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__KK4,void *k__LK4)
-// ({HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo},{STRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
- void *node__VK4;
- node__VK4=((void **)Self__KK4->buckets__1DT)[(__INTEGER)(hash_code__RNW(k__LK4) % Self__KK4->capacity__WDT)];
- while ((! __infix_equal_equal__V2DB(((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__VK4)->key__HET,k__LK4))) {
- node__VK4=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__VK4)->next__SET;
- };
- return(((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__VK4)->item__KW3);
-}
-
-static __BOOLEAN has_suffix__QJS(__STRING_CONSTANT *Self__RJS)
-// ({STRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
- __INTEGER i1__VJS,i2__WJS,__tmp__KJFH,__tmp__LJFH;
- __BOOLEAN result__UJS;
- __CHARACTER *__tmp__MJFH,*__tmp__NJFH;
- result__UJS=FALSE__;
- i1__VJS= 0;
- i2__WJS= 0;
- if ((((__STRING_CONSTANT *)(&__string_159))->count__DD <= Self__RJS->count__DD)) {
- i1__VJS=(__INTEGER)((__INTEGER)(Self__RJS->count__DD - ((__STRING_CONSTANT *)(&__string_159))->count__DD) + 1);
- i2__WJS= 1;
- __tmp__KJFH=Self__RJS->count__DD;
- __tmp__LJFH=((__STRING_CONSTANT *)(&__string_159))->count__DD;
- __tmp__MJFH=Self__RJS->storage__RRO;
- __tmp__NJFH=((__STRING_CONSTANT *)(&__string_159))->storage__RRO;
- while ((! (((i1__VJS > __tmp__KJFH) || (i2__WJS > __tmp__LJFH)) || (((__CHARACTER *)__tmp__MJFH)[(__INTEGER)(i1__VJS - 1)] != ((__CHARACTER *)__tmp__NJFH)[(__INTEGER)(i2__WJS - 1)])))) {
- i1__VJS=(__INTEGER)(i1__VJS + 1);
- i2__WJS=(__INTEGER)(i2__WJS + 1);
- };
- result__UJS=(i1__VJS > Self__RJS->count__DD);
- };
- return(result__UJS);
-}
-
-static void replace_all__with__CRS(__STRING *Self__DRS,__CHARACTER old_char__ERS,__CHARACTER new_char__FRS)
-// ({STRING},{CHARACTER},{CHARACTER}) VoidNo recursive, No inlinable.
-{
- __INTEGER __tmp__LRS,Self__BSIC;
- __CHARACTER *__tmp__IRS,*Self__BLBC;
- __tmp__IRS=Self__DRS->storage__3CS;
- __tmp__LRS=(__INTEGER)(Self__DRS->count__SGC - 1);
- Self__BLBC=((__CHARACTER *)__tmp__IRS);
- Self__BSIC=__tmp__LRS;
- while ((Self__BSIC >= 0)) {
- if ((old_char__ERS == Self__BLBC[Self__BSIC])) {
- Self__BLBC[Self__BSIC]=new_char__FRS;
- };
- Self__BSIC=(__INTEGER)(Self__BSIC - 1);
- };
-}
-
-static __INTEGER last_index__NTC(void *n__PTC,__CHARACTER c__QTC)
-// ({NULLxSTRING},{CHARACTER}) With resultNo recursive, No inlinable.
-{
- __INTEGER result__STC;
- __CHARACTER *__tmp__OJFH;
- result__STC=((__STRING *)n__PTC)->count__SGC;
- __tmp__OJFH=((__STRING *)n__PTC)->storage__3CS;
- while ((! ((result__STC < 1) || (((__CHARACTER *)__tmp__OJFH)[(__INTEGER)(result__STC - 1)] == c__QTC)))) {
- result__STC=(__INTEGER)(result__STC - 1);
- };
- return(result__STC);
-}
-
-static void remove_between__to__MIT(__STRING *Self__NIT,__INTEGER start__OIT,__INTEGER end__PIT)
-// ({STRING},{INTEGER},{INTEGER}) VoidNo recursive, No inlinable.
-{
- __INTEGER len__QIT,__tmp__NJT,__tmp__OJT,Self__XUEB;
- __CHARACTER *__tmp__E2GH,*__tmp__F2GH;
- len__QIT=(__INTEGER)((__INTEGER)(end__PIT - start__OIT) + 1);
- if ((len__QIT > 0)) {
- __tmp__NJT=(__INTEGER)(end__PIT + 1);
- __tmp__OJT=Self__NIT->count__SGC;
- Self__XUEB=__tmp__NJT;
- __tmp__E2GH=Self__NIT->storage__3CS;
- __tmp__F2GH=Self__NIT->storage__3CS;
- while ((Self__XUEB <= __tmp__OJT)) {
- ((__CHARACTER *)__tmp__F2GH)[(__INTEGER)((__INTEGER)(Self__XUEB - len__QIT) - 1)]=((__CHARACTER *)__tmp__E2GH)[(__INTEGER)(Self__XUEB - 1)];
- Self__XUEB=(__INTEGER)(Self__XUEB + 1);
- };
- Self__NIT->count__SGC=(__INTEGER)(Self__NIT->count__SGC - len__QIT);
- };
-}
-
-static void to_upper__PTS(__STRING *Self__QTS)
-// ({STRING}) VoidNo recursive, No inlinable.
-{
- __INTEGER Self__MPX;
- __CHARACTER *__tmp__4ZGH,*__tmp__5ZGH;
- __CHARACTER Self__3ZGH,result__2ZGH;
- Self__MPX=Self__QTS->count__SGC;
- __tmp__4ZGH=Self__QTS->storage__3CS;
- __tmp__5ZGH=Self__QTS->storage__3CS;
- while ((Self__MPX >= 1)) {
- Self__3ZGH=((__CHARACTER *)__tmp__4ZGH)[(__INTEGER)(Self__MPX - 1)];
- result__2ZGH='\0';
- if (((((__INTEGER_8 )Self__3ZGH) < 97) || (((__INTEGER_8 )Self__3ZGH) > 122))) {
- result__2ZGH=Self__3ZGH;
- } else {
- result__2ZGH=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )Self__3ZGH) - 32))));
- };
- ((__CHARACTER *)__tmp__5ZGH)[(__INTEGER)(Self__MPX - 1)]=result__2ZGH;
- Self__MPX=(__INTEGER)(Self__MPX - 1);
- };
-}
-
-static void go_on__SBC(void *obj__UBC)
-// ({NULLxPROTOTYPE}) VoidNo recursive, No inlinable.
-{
- __POINTER ptr__NHG,ptr_table__AGJH,next__5FJH,result__BGJH;
- __POINTER ptr_table__FGJH,next__EGJH,result__GGJH,ptr__ZGJH;
- __POINTER ptr_table__BHJH,next__AHJH,result__CHJH,ptr_table__GHJH;
- __POINTER next__FHJH,result__HHJH,ptr__JKID,ptr_table__LHJH;
- __POINTER next__KHJH,result__MHJH,ptr_table__QHJH,next__PHJH;
- __POINTER result__RHJH,ptr__YHJH,ptr_table__EIJH,next__DIJH;
- __POINTER result__FIJH,ptr_table__JIJH,next__IIJH,result__KIJH;
- __POINTER ptr__5IJH,ptr_table__LJJH,next__KJJH,result__MJJH;
- __POINTER ptr_table__QJJH,next__PJJH,result__RJJH,ptr__VJJH;
- __POINTER ptr_table__BKJH,next__AKJH,result__CKJH,ptr_table__GKJH;
- __POINTER next__FKJH,result__HKJH,ptr__LKJH,ptr_table__UKJH;
- __POINTER next__TKJH,result__VKJH,ptr_table__ZKJH,next__YKJH;
- __POINTER result__0KJH,ptr__4KJH,ptr_table__HLJH,next__GLJH;
- __POINTER result__ILJH,ptr_table__MLJH,next__LLJH,result__NLJH;
- __INTEGER typ_id__SHG,new_capacity__WFY,old_derive__LYC,pos_sec__KYC;
- __INTEGER new_capacity__HTHH,old_nb_elts__KTHH,upper__MGJH,Self__KGJH;
- __INTEGER new_capacity__NTHH,old_nb_elts__QTHH,upper__RGJH,Self__PGJH;
- __INTEGER new_capacity__TTHH,old_nb_elts__WTHH,upper__WGJH,Self__UGJH;
- __INTEGER typ_id__0GJH,h__A0FC,idx__B0FC,idx__5HID,new_capacity__AIID;
- __INTEGER i__BIID,typ_id__OKID,old_pos__LUOB,old_derive__MUOB;
- __INTEGER typ_id__ZHJH,new_capacity__YLHC,other_upper__XLHC;
- __INTEGER Self__IBXD,new_capacity__DUHC,__tmp__HVHC,__tmp__LMTD;
- __INTEGER Self__3GYE,__tmp__2DHC,typ_id__AJJH,typ_id__WJJH;
- __INTEGER typ_id__MKJH,typ_id__5KJH,__tmp__1CEH,__tmp__2CEH;
- __INTEGER __tmp__3CEH,__tmp__CI3B,Self__OZPC;
- __UINTEGER_32 sz__PHG,a__RJFH,new_size__SJFH,t__WJFH,a__VJFH;
- __UINTEGER_32 new_size__IGJH,lab_type__HGJH,sz__1GJH,a__2GJH;
- __UINTEGER_32 new_size__3GJH,t__4GJH,a__5GJH,new_size__JHJH;
- __UINTEGER_32 lab_type__IHJH,sz__LKID,a__IKFH,new_size__JKFH,t__NKFH;
- __UINTEGER_32 a__MKFH,new_size__THJH,lab_type__SHJH,sz__0HJH,a__1HJH;
- __UINTEGER_32 new_size__2HJH,t__3HJH,a__4HJH,new_size__MIJH;
- __UINTEGER_32 lab_type__LIJH,sz__BJJH,a__CJJH,new_size__DJJH,t__EJJH;
- __UINTEGER_32 a__FJJH,new_size__TJJH,lab_type__SJJH,sz__XJJH,a__YJJH;
- __UINTEGER_32 new_size__ZJJH,t__0JJH,a__1JJH,new_size__JKJH;
- __UINTEGER_32 lab_type__IKJH,sz__NKJH,a__OKJH,new_size__PKJH,t__QKJH;
- __UINTEGER_32 a__RKJH,new_size__2KJH,lab_type__1KJH,sz__ALJH,a__BLJH;
- __UINTEGER_32 new_size__CLJH,t__DLJH,a__ELJH,new_size__PLJH;
- __UINTEGER_32 lab_type__OLJH;
- __POSITION pos__KGWG,pos__MGWG,pos__OGWG,pos__ZGWG,pos__1GWG;
- __POSITION pos__4GWG,pos__AHWG,p__AIJH,__tmp__OEHC,__tmp__1EHC;
- __POSITION pos__PLWG,pos__RLWG,pos__TLWG,pos__VLWG,pos__C4ID;
- __POSITION pos__3LWG,__tmp__AGBD,__tmp__IGBD,__tmp__2GBD,__tmp__FHBD;
- __POSITION pos__HMWG,__tmp__A4OB,__tmp__C4OB,pos__CNWG,pos__ENWG;
- __STRING *Self__ITHH,*Self__OTHH,*Self__UTHH;
- void *n__XPOB,*__tmp__RYOB,*n__TFBD,*__tmp__XZOB,*__tmp__H0OB;
- void *__tmp__V3OB,*__tmp__0DZB;
- __SECTION_ *Self__1B4G,*Self__2B4G,*result__YGJH,*Self__RHWG;
- __SECTION_ *Self__TF4G,*Self__UF4G;
- void *__tmp__S3C,*s__NUOB,*result__U5YB,*__tmp__2XOB,*__tmp__LH3B;
- void *s__YDZB,*__tmp__IEZB;
- void *__tmp__U3C,*result__LQEC,*result__TTOB,*sec__UFBD;
- void *t__HUOB;
- void *arg__T5YB,*__tmp__1DHC,*__tmp__NEHC,*__tmp__0EHC;
- __ITM_ARG *result__XHJH,*Self__5HJH,*result__4IJH,*Self__GJJH;
- __ITM_SLOT_OPERATOR *Self__SDHC,*Self__C4FC,*Self__3FHC;
- void *tm__E4FC,*__tmp__N4FC;
- void *expr__4G3B;
- void *__tmp__MH3B;
- __ITM_SLOT *result__UJJH,*Self__2JJH;
- __ITM_PROTOTYPE *result__KKJH;
- __ITM_READ_ARG1 *result__3KJH;
- __PROTOTYPE *Self__XDZB;
- __HASHED_SEToSTRING_CONSTANTo *result__MHG,*Self__ZHT,*Self__3H3B;
- void *t__TYC,*k__AQEC,*k__ZZFC,*lt__IUOB;
- __BOOLEAN result__Y2LH,result__02LH,result__XDE,result__FDEB;
- __BOOLEAN __tmp__SDEB,result__QC5,result__XJFH,result__PW5;
- __BOOLEAN __tmp__KFEB,result__ESAB,__tmp__LFEB,__tmp__OFEB,__tmp__F4C;
- __BOOLEAN __tmp__03C,result__GUOB,result__UHJH,result__NIJH;
- __BOOLEAN __tmp__EBZB,result__QIJH,__tmp__RUHC,__tmp__AEHC;
- __BOOLEAN result__VIJH,__tmp__YVOB,result__YIJH,result__1IJH;
- __BOOLEAN result__QLJH,__tmp__L2OB,__tmp__M2OB;
- __CHARACTER result__KA4G,result__PA4G,result__UA4G,result__ZA4G;
- __CHARACTER result__4A4G,result__HB4G,result__MB4G,result__RB4G;
- __CHARACTER result__WB4G,affect__KUOB,style__JUOB,result__VHJH;
- __CHARACTER result__OIJH,result__RIJH,result__WIJH,result__ZIJH;
- __CHARACTER result__2IJH,result__RLJH,result__4F4G,result__HG4G;
- __CHARACTER result__MG4G,result__RG4G,result__IH4G;
- __CHARACTER *Self__JTHH,*new__LTHH,*Self__PTHH,*new__RTHH,*Self__VTHH;
- __CHARACTER *new__XTHH,*__tmp__Q0GH,*__tmp__R0GH,*__tmp__S0GH;
- __HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *Self__5PEC;
- __HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *Self__XZFC;
- void *node__KQEC,*node__C0FC,*node1__DIID,*node2__EIID,*__tmp__Q1FC;
- void **old_buckets__CIID;
- __HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *result__IKID;
- __HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *Self__KHTD;
- void *result__KS1B,*result__MS4B,*larg__VFBD;
- __FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *Self__HEZC,*Self__3EZC;
- __FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *Self__BUHC;
- __FAST_ARRAYoITM_ARGUMENTo *Self__VLHC,*Self__K0GH,*Self__N0GH;
- void **__tmp__LMHC,**__tmp__NMHC,**Self__JKSD;
- void **__tmp__GVHC,**new__XLTD;
- void *__tmp__T3OB,*__tmp__ZDZB;
- void **__tmp__5H3B,**Self__3GHC;
- object__ZBC=obj__UBC;
- source__5BC=((__PROTOTYPE *)obj__UBC)->source__3BC;
- position__CCC= 1;
- pos_cur__FCC= 1;
- pos_line__GCC= 1;
- pos_col__HCC= 0;
- if (is_shorter__LZ) {
- is_active_short__OCC=TRUE__;
- short_derive__PCC= 0;
- copy__VDS(output_code__SI,source__5BC);
- result__MHG=NULL;
- ptr__NHG=((__POINTER )(NULL));
- typ_id__SHG= 0;
- sz__PHG=((__UINTEGER_32 )sizeof(__HASHED_SEToSTRING_CONSTANTo));
- if ((sz__PHG == 0)) {
- result__MHG=HASHED_SEToSTRING_CONSTANTo__;
- } else {
- typ_id__SHG=__HASHED_SEToSTRING_CONSTANTo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__PHG);
- if ((typ_id__SHG == (__INTEGER)(- 1))) {
- a__RJFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__SJFH=(__UINTEGER_32)((__UINTEGER_32)(sz__PHG + a__RJFH) & (__UINTEGER_32)(~ a__RJFH));
- ptr_table__AGJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SJFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__5FJH=((__POINTER )(NULL));
- result__BGJH=((__POINTER *)ptr_table__AGJH)[ 0];
- if ((result__BGJH == (void *)NULL)) {
- result__BGJH=new_lab__RTJ(new_size__SJFH);
- next__5FJH=(void *)((unsigned long)result__BGJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SJFH)));
- ((__POINTER *)next__5FJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__AGJH)[ 0]=next__5FJH;
- } else {
- next__5FJH=((__POINTER *)result__BGJH)[ 0];
- if ((next__5FJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BGJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__SJFH << 1)) <= 4096)) {
- next__5FJH=(void *)((unsigned long)result__BGJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SJFH)));
- } else {
- next__5FJH=new_lab__RTJ(new_size__SJFH);
- };
- ((__POINTER *)next__5FJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__AGJH)[ 0]=next__5FJH;
- } else {
- ((__POINTER *)result__BGJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5FJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__BGJH=next__5FJH;
- };
- };
- ptr__NHG=result__BGJH;
- } else {
- t__WJFH=((__UINTEGER_32 )typ_id__SHG);
- a__VJFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__IGJH=(__UINTEGER_32)((__UINTEGER_32)(sz__PHG + a__VJFH) & (__UINTEGER_32)(~ a__VJFH));
- ptr_table__FGJH=((__POINTER )(&(table_type[(t__WJFH)])));
- lab_type__HGJH=(__UINTEGER_32)(t__WJFH | 1);
- next__EGJH=((__POINTER )(NULL));
- result__GGJH=((__POINTER *)ptr_table__FGJH)[ 0];
- if ((result__GGJH == (void *)NULL)) {
- result__GGJH=new_lab__RTJ(lab_type__HGJH);
- next__EGJH=(void *)((unsigned long)result__GGJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IGJH)));
- ((__POINTER *)next__EGJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__FGJH)[ 0]=next__EGJH;
- } else {
- next__EGJH=((__POINTER *)result__GGJH)[ 0];
- if ((next__EGJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GGJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__IGJH << 1)) <= 4096)) {
- next__EGJH=(void *)((unsigned long)result__GGJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IGJH)));
- } else {
- next__EGJH=new_lab__RTJ(lab_type__HGJH);
- };
- ((__POINTER *)next__EGJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__FGJH)[ 0]=next__EGJH;
- } else {
- ((__POINTER *)result__GGJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EGJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__GGJH=next__EGJH;
- };
- };
- ptr__NHG=result__GGJH;
- };
- result__MHG=((__HASHED_SEToSTRING_CONSTANTo *)ptr__NHG);
- *(result__MHG) = *(HASHED_SEToSTRING_CONSTANTo__);
- };
- Self__ZHT=((__HASHED_SEToSTRING_CONSTANTo *)result__MHG);
- new_capacity__WFY=prime_number_ceiling__021( 53);
- Self__ZHT->buckets__DEV=create__KZ3(new_capacity__WFY);
- Self__ZHT->capacity__HIT=new_capacity__WFY;
- Self__ZHT->count__1FY= 0;
- short_local__XCC=result__MHG;
- short__token__to__GDD((&__string_117), 1, 1);
- };
- t__TYC=NULL;
- old_derive__LYC=short_derive__PCC;
- read_space__XTD();
- if (is_shorter__LZ) {
- remove_between__to__MIT(output_code__SI,(__INTEGER)( 1 + old_derive__LYC),(__INTEGER)((__INTEGER)(position__CCC - 1) + short_derive__PCC));
- short_derive__PCC=(__INTEGER)(short_derive__PCC - (__INTEGER)((__INTEGER)(position__CCC + short_derive__PCC) - (__INTEGER)( 1 + old_derive__LYC)));
- };
- pos_sec__KYC=position__CCC;
- old_derive__LYC=short_derive__PCC;
- last_comment_extern__XZC=NULL;
- result__Y2LH=read_word__ISF((&__string_4));
- if (is_shorter__LZ) {
- if (result__Y2LH) {
- short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- };
- };
- if ((! result__Y2LH)) {
- pos__KGWG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_227));
- put_position__FRG(pos__KGWG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- result__02LH=read_word__ISF((&__string_22));
- if (is_shorter__LZ) {
- if (result__02LH) {
- if (((void *)(&__string_22) == (void *)(&__string_4))) {
- short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- } else {
- short__token__to__GDD((&__string_119),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- };
- };
- };
- if ((! result__02LH)) {
- pos__MGWG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_228));
- put_position__FRG(pos__MGWG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- if ((! read_slot_header__KFE(TRUE__))) {
- pos__OGWG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_229));
- put_position__FRG(pos__OGWG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- while (read_slot_header__KFE(FALSE__)) {
- };
- if (is_shorter2__VI) {
- ((__PROTOTYPE *)object__ZBC)->comment_header__Q4QC=last_comment_extern__XZC;
- };
- while_do__FBF:
- {
- result__XDE=read_word__ISF((&__string_4));
- if (is_shorter__LZ) {
- if (result__XDE) {
- short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- };
- };
- if (result__XDE) {
- last_comment_extern__XZC=NULL;
- result__FDEB=FALSE__;
- if ((! read_space__XTD())) {
- __tmp__SDEB=TRUE__;
- } else {
- result__KA4G='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__KA4G=((__CHARACTER )(( 0)));
- } else {
- result__KA4G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- result__QC5=FALSE__;
- if ((((__INTEGER_8 )result__KA4G) >= ((__INTEGER_8 )'A'))) {
- result__QC5=(((__INTEGER_8 )result__KA4G) <= ((__INTEGER_8 )'Z'));
- };
- __tmp__SDEB=(! result__QC5);
- };
- if (__tmp__SDEB) {
- result__FDEB=FALSE__;
- } else {
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- result__PA4G='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__PA4G=((__CHARACTER )(( 0)));
- } else {
- result__PA4G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- Self__ITHH=((__STRING *)string_tmp__VH);
- new_capacity__HTHH= 0;
- if ((Self__ITHH->capacity__UCS <= Self__ITHH->count__SGC)) {
- if ((Self__ITHH->capacity__UCS == 0)) {
- Self__ITHH->capacity__UCS= 32;
- Self__ITHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__HTHH=(__INTEGER)(Self__ITHH->capacity__UCS << 1);
- Self__JTHH=((__CHARACTER *)Self__ITHH->storage__3CS);
- old_nb_elts__KTHH=Self__ITHH->capacity__UCS;
- new__LTHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__JTHH),((__UINTEGER_32 )old_nb_elts__KTHH),((__UINTEGER_32 )new_capacity__HTHH)));
- upper__MGJH=(__INTEGER)(new_capacity__HTHH - 1);
- Self__KGJH=old_nb_elts__KTHH;
- while ((Self__KGJH <= upper__MGJH)) {
- new__LTHH[Self__KGJH]='\0';
- Self__KGJH=(__INTEGER)(Self__KGJH + 1);
- };
- Self__ITHH->storage__3CS=new__LTHH;
- Self__ITHH->capacity__UCS=new_capacity__HTHH;
- };
- };
- ((__CHARACTER *)Self__ITHH->storage__3CS)[Self__ITHH->count__SGC]=result__PA4G;
- Self__ITHH->count__SGC=(__INTEGER)(Self__ITHH->count__SGC + 1);
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__UA4G='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__UA4G=((__CHARACTER )(( 0)));
- } else {
- result__UA4G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- result__XJFH=FALSE__;
- if ((((__INTEGER_8 )result__UA4G) >= ((__INTEGER_8 )'a'))) {
- result__XJFH=(((__INTEGER_8 )result__UA4G) <= ((__INTEGER_8 )'z'));
- };
- if (result__XJFH) {
- result__ZA4G='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__ZA4G=((__CHARACTER )(( 0)));
- } else {
- result__ZA4G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- Self__OTHH=((__STRING *)string_tmp__VH);
- new_capacity__NTHH= 0;
- if ((Self__OTHH->capacity__UCS <= Self__OTHH->count__SGC)) {
- if ((Self__OTHH->capacity__UCS == 0)) {
- Self__OTHH->capacity__UCS= 32;
- Self__OTHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__NTHH=(__INTEGER)(Self__OTHH->capacity__UCS << 1);
- Self__PTHH=((__CHARACTER *)Self__OTHH->storage__3CS);
- old_nb_elts__QTHH=Self__OTHH->capacity__UCS;
- new__RTHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__PTHH),((__UINTEGER_32 )old_nb_elts__QTHH),((__UINTEGER_32 )new_capacity__NTHH)));
- upper__RGJH=(__INTEGER)(new_capacity__NTHH - 1);
- Self__PGJH=old_nb_elts__QTHH;
- while ((Self__PGJH <= upper__RGJH)) {
- new__RTHH[Self__PGJH]='\0';
- Self__PGJH=(__INTEGER)(Self__PGJH + 1);
- };
- Self__OTHH->storage__3CS=new__RTHH;
- Self__OTHH->capacity__UCS=new_capacity__NTHH;
- };
- };
- ((__CHARACTER *)Self__OTHH->storage__3CS)[Self__OTHH->count__SGC]=result__ZA4G;
- Self__OTHH->count__SGC=(__INTEGER)(Self__OTHH->count__SGC + 1);
- position__CCC=(__INTEGER)(position__CCC + 1);
- while_do__O1GF:
- {
- result__4A4G='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__4A4G=((__CHARACTER )(( 0)));
- } else {
- result__4A4G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__4A4G != ((__CHARACTER )(( 0))))) {
- result__HB4G='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__HB4G=((__CHARACTER )(( 0)));
- } else {
- result__HB4G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- result__PW5=FALSE__;
- if ((((__INTEGER_8 )result__HB4G) >= ((__INTEGER_8 )'a'))) {
- result__PW5=(((__INTEGER_8 )result__HB4G) <= ((__INTEGER_8 )'z'));
- };
- if (result__PW5) {
- __tmp__KFEB=TRUE__;
- } else {
- result__MB4G='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__MB4G=((__CHARACTER )(( 0)));
- } else {
- result__MB4G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- result__ESAB=FALSE__;
- if ((((__INTEGER_8 )result__MB4G) >= ((__INTEGER_8 )'0'))) {
- result__ESAB=(((__INTEGER_8 )result__MB4G) <= ((__INTEGER_8 )'9'));
- };
- __tmp__KFEB=result__ESAB;
- };
- if (__tmp__KFEB) {
- __tmp__LFEB=TRUE__;
- } else {
- result__RB4G='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__RB4G=((__CHARACTER )(( 0)));
- } else {
- result__RB4G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__LFEB=(result__RB4G == '_');
- };
- __tmp__OFEB=__tmp__LFEB;
- } else {
- __tmp__OFEB=FALSE__;
- };
- if (__tmp__OFEB) {
- result__WB4G='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__WB4G=((__CHARACTER )(( 0)));
- } else {
- result__WB4G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- Self__UTHH=((__STRING *)string_tmp__VH);
- new_capacity__TTHH= 0;
- if ((Self__UTHH->capacity__UCS <= Self__UTHH->count__SGC)) {
- if ((Self__UTHH->capacity__UCS == 0)) {
- Self__UTHH->capacity__UCS= 32;
- Self__UTHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__TTHH=(__INTEGER)(Self__UTHH->capacity__UCS << 1);
- Self__VTHH=((__CHARACTER *)Self__UTHH->storage__3CS);
- old_nb_elts__WTHH=Self__UTHH->capacity__UCS;
- new__XTHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__VTHH),((__UINTEGER_32 )old_nb_elts__WTHH),((__UINTEGER_32 )new_capacity__TTHH)));
- upper__WGJH=(__INTEGER)(new_capacity__TTHH - 1);
- Self__UGJH=old_nb_elts__WTHH;
- while ((Self__UGJH <= upper__WGJH)) {
- new__XTHH[Self__UGJH]='\0';
- Self__UGJH=(__INTEGER)(Self__UGJH + 1);
- };
- Self__UTHH->storage__3CS=new__XTHH;
- Self__UTHH->capacity__UCS=new_capacity__TTHH;
- };
- };
- ((__CHARACTER *)Self__UTHH->storage__3CS)[Self__UTHH->count__SGC]=result__WB4G;
- Self__UTHH->count__SGC=(__INTEGER)(Self__UTHH->count__SGC + 1);
- position__CCC=(__INTEGER)(position__CCC + 1);
- goto while_do__O1GF;
- };
- };
- last_string__D2C=get__YWB(string_tmp__VH);
- result__FDEB=TRUE__;
- short__token__to__GDD((&__string_119),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- } else {
- position__CCC=(__INTEGER)(position__CCC - 1);
- result__FDEB=FALSE__;
- };
- };
- if (result__FDEB) {
- n__XPOB=last_string__D2C;
- if ((! (((((((((void *)n__XPOB == (void *)(&__string_23)) || ((void *)n__XPOB == (void *)(&__string_24))) || ((void *)n__XPOB == (void *)(&__string_25))) || ((void *)n__XPOB == (void *)(&__string_26))) || ((void *)n__XPOB == (void *)(&__string_27))) || ((void *)n__XPOB == (void *)(&__string_28))) || ((void *)n__XPOB == (void *)(&__string_29))) || ((void *)n__XPOB == (void *)(&__string_30))))) {
- pos__ZGWG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_230));
- put_position__FRG(pos__ZGWG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- last_section__S2C=get_name__TROB(last_string__D2C);
- if (((void *)((__SECTION_ *)last_section__S2C)->name__MYDC == (void *)(&__string_28))) {
- __tmp__F4C=TRUE__;
- } else {
- Self__1B4G=((__SECTION_ *)last_section__S2C);
- if (((((void *)Self__1B4G->name__MYDC == (void *)(&__string_23)) || ((void *)Self__1B4G->name__MYDC == (void *)(&__string_24))) && ((void *)((__PROTOTYPE *)object__ZBC)->last_slot__J3C != (void *)NULL))) {
- __tmp__S3C=((__PROTOTYPE *)object__ZBC)->last_slot__J3C;
- if (((struct ___OBJ *)__tmp__S3C)->__id==__ITM_SLOT__) {
- __tmp__U3C=((__ITM_SLOT *)__tmp__S3C)->id_section__T3C;
- } else {
- __tmp__U3C=((__ITM_SLOT_OPERATOR *)__tmp__S3C)->parent_itm_slot__0S5B.id_section__T3C;
- };
- Self__2B4G=((__SECTION_ *)__tmp__U3C);
- __tmp__03C=(! (((void *)Self__2B4G->name__MYDC == (void *)(&__string_23)) || ((void *)Self__2B4G->name__MYDC == (void *)(&__string_24))));
- } else {
- __tmp__03C=FALSE__;
- };
- if (__tmp__03C) {
- pos__1GWG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_231));
- put_position__FRG(pos__1GWG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- __tmp__F4C=__tmp__03C;
- };
- if ((! __tmp__F4C)) {
- if ((((((void *)((__SECTION_ *)last_section__S2C)->name__MYDC == (void *)(&__string_23)) && ((void *)((__PROTOTYPE *)object__ZBC)->type_style__S4C == (void *)(&__string_9))) && ((void *)((__PROTOTYPE *)object__ZBC)->parent_named__5.name__LI != (void *)(&__string_42))) && ((void *)((__PROTOTYPE *)object__ZBC)->parent_named__5.name__LI != (void *)(&__string_43)))) {
- pos__4GWG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_232));
- put_position__FRG(pos__4GWG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- } else {
- t__TYC=read_type_list__ENO(PARSER__,TRUE__);
- if (((void *)t__TYC == (void *)NULL)) {
- pos__AHWG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_230));
- put_position__FRG(pos__AHWG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- Self__5PEC=((__HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)bucket_list__XTOB);
- k__AQEC=t__TYC;
- result__LQEC=NULL;
- node__KQEC=((void **)Self__5PEC->buckets__SQEC)[(__INTEGER)(hash_code__S30(t__TYC) % Self__5PEC->capacity__NQEC)];
- while ((! (((void *)node__KQEC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node__KQEC)->key__4QEC == (void *)k__AQEC)))) {
- node__KQEC=((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node__KQEC)->next__JREC;
- };
- if (((void *)node__KQEC != (void *)NULL)) {
- result__LQEC=((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node__KQEC)->item__RREC;
- };
- result__TTOB=result__LQEC;
- if (((void *)result__LQEC == (void *)NULL)) {
- result__YGJH=NULL;
- ptr__ZGJH=((__POINTER )(NULL));
- typ_id__0GJH= 0;
- sz__1GJH=((__UINTEGER_32 )sizeof(__SECTION_));
- if ((sz__1GJH == 0)) {
- result__YGJH=SECTION___;
- } else {
- typ_id__0GJH=__SECTION___;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__1GJH);
- if ((typ_id__0GJH == (__INTEGER)(- 1))) {
- a__2GJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__3GJH=(__UINTEGER_32)((__UINTEGER_32)(sz__1GJH + a__2GJH) & (__UINTEGER_32)(~ a__2GJH));
- ptr_table__BHJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3GJH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__AHJH=((__POINTER )(NULL));
- result__CHJH=((__POINTER *)ptr_table__BHJH)[ 0];
- if ((result__CHJH == (void *)NULL)) {
- result__CHJH=new_lab__RTJ(new_size__3GJH);
- next__AHJH=(void *)((unsigned long)result__CHJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3GJH)));
- ((__POINTER *)next__AHJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__BHJH)[ 0]=next__AHJH;
- } else {
- next__AHJH=((__POINTER *)result__CHJH)[ 0];
- if ((next__AHJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CHJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__3GJH << 1)) <= 4096)) {
- next__AHJH=(void *)((unsigned long)result__CHJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3GJH)));
- } else {
- next__AHJH=new_lab__RTJ(new_size__3GJH);
- };
- ((__POINTER *)next__AHJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__BHJH)[ 0]=next__AHJH;
- } else {
- ((__POINTER *)result__CHJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__AHJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__CHJH=next__AHJH;
- };
- };
- ptr__ZGJH=result__CHJH;
- } else {
- t__4GJH=((__UINTEGER_32 )typ_id__0GJH);
- a__5GJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__JHJH=(__UINTEGER_32)((__UINTEGER_32)(sz__1GJH + a__5GJH) & (__UINTEGER_32)(~ a__5GJH));
- ptr_table__GHJH=((__POINTER )(&(table_type[(t__4GJH)])));
- lab_type__IHJH=(__UINTEGER_32)(t__4GJH | 1);
- next__FHJH=((__POINTER )(NULL));
- result__HHJH=((__POINTER *)ptr_table__GHJH)[ 0];
- if ((result__HHJH == (void *)NULL)) {
- result__HHJH=new_lab__RTJ(lab_type__IHJH);
- next__FHJH=(void *)((unsigned long)result__HHJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JHJH)));
- ((__POINTER *)next__FHJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__GHJH)[ 0]=next__FHJH;
- } else {
- next__FHJH=((__POINTER *)result__HHJH)[ 0];
- if ((next__FHJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HHJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__JHJH << 1)) <= 4096)) {
- next__FHJH=(void *)((unsigned long)result__HHJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JHJH)));
- } else {
- next__FHJH=new_lab__RTJ(lab_type__IHJH);
- };
- ((__POINTER *)next__FHJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__GHJH)[ 0]=next__FHJH;
- } else {
- ((__POINTER *)result__HHJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FHJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__HHJH=next__FHJH;
- };
- };
- ptr__ZGJH=result__HHJH;
- };
- result__YGJH=((__SECTION_ *)ptr__ZGJH);
- *(result__YGJH) = *(SECTION___);
- };
- result__TTOB=result__YGJH;
- Self__RHWG=((__SECTION_ *)result__YGJH);
- Self__RHWG->name__MYDC=NULL;
- Self__RHWG->type_list__1WFC=t__TYC;
- Self__XZFC=((__HASHED_DICTIONARYoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)bucket_list__XTOB);
- k__ZZFC=t__TYC;
- h__A0FC=hash_code__S30(t__TYC);
- idx__B0FC=(__INTEGER)(h__A0FC % Self__XZFC->capacity__NQEC);
- node__C0FC=((void **)Self__XZFC->buckets__SQEC)[idx__B0FC];
- while ((! (((void *)node__C0FC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node__C0FC)->key__4QEC == (void *)k__ZZFC)))) {
- node__C0FC=((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node__C0FC)->next__JREC;
- };
- if (((void *)node__C0FC == (void *)NULL)) {
- if ((Self__XZFC->capacity__NQEC == Self__XZFC->count__D1FC)) {
- idx__5HID= 0;
- node1__DIID=NULL;
- node2__EIID=NULL;
- old_buckets__CIID=Self__XZFC->buckets__SQEC;
- new_capacity__AIID=prime_number_ceiling__021((__INTEGER)(Self__XZFC->capacity__NQEC + 1));
- Self__XZFC->buckets__SQEC=create__FCYC(new_capacity__AIID);
- i__BIID=(__INTEGER)(Self__XZFC->capacity__NQEC - 1);
- Self__XZFC->capacity__NQEC=new_capacity__AIID;
- while ((i__BIID >= 0)) {
- node1__DIID=((void **)old_buckets__CIID)[i__BIID];
- while (((void *)node1__DIID != (void *)NULL)) {
- node2__EIID=((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node1__DIID)->next__JREC;
- idx__5HID=(__INTEGER)(hash_code__S30(((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node1__DIID)->key__4QEC) % Self__XZFC->capacity__NQEC);
- ((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node1__DIID)->next__JREC=((void **)Self__XZFC->buckets__SQEC)[idx__5HID];
- ((void **)Self__XZFC->buckets__SQEC)[idx__5HID]=node1__DIID;
- node1__DIID=node2__EIID;
- };
- i__BIID=(__INTEGER)(i__BIID - 1);
- };
- idx__B0FC=(__INTEGER)(h__A0FC % Self__XZFC->capacity__NQEC);
- };
- __tmp__Q1FC=((void **)Self__XZFC->buckets__SQEC)[idx__B0FC];
- result__IKID=NULL;
- ptr__JKID=((__POINTER )(NULL));
- typ_id__OKID= 0;
- sz__LKID=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo));
- if ((sz__LKID == 0)) {
- result__IKID=HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__;
- } else {
- typ_id__OKID=__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__LKID);
- if ((typ_id__OKID == (__INTEGER)(- 1))) {
- a__IKFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__JKFH=(__UINTEGER_32)((__UINTEGER_32)(sz__LKID + a__IKFH) & (__UINTEGER_32)(~ a__IKFH));
- ptr_table__LHJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__JKFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__KHJH=((__POINTER )(NULL));
- result__MHJH=((__POINTER *)ptr_table__LHJH)[ 0];
- if ((result__MHJH == (void *)NULL)) {
- result__MHJH=new_lab__RTJ(new_size__JKFH);
- next__KHJH=(void *)((unsigned long)result__MHJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JKFH)));
- ((__POINTER *)next__KHJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__LHJH)[ 0]=next__KHJH;
- } else {
- next__KHJH=((__POINTER *)result__MHJH)[ 0];
- if ((next__KHJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MHJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__JKFH << 1)) <= 4096)) {
- next__KHJH=(void *)((unsigned long)result__MHJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JKFH)));
- } else {
- next__KHJH=new_lab__RTJ(new_size__JKFH);
- };
- ((__POINTER *)next__KHJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__LHJH)[ 0]=next__KHJH;
- } else {
- ((__POINTER *)result__MHJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KHJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__MHJH=next__KHJH;
- };
- };
- ptr__JKID=result__MHJH;
- } else {
- t__NKFH=((__UINTEGER_32 )typ_id__OKID);
- a__MKFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__THJH=(__UINTEGER_32)((__UINTEGER_32)(sz__LKID + a__MKFH) & (__UINTEGER_32)(~ a__MKFH));
- ptr_table__QHJH=((__POINTER )(&(table_type[(t__NKFH)])));
- lab_type__SHJH=(__UINTEGER_32)(t__NKFH | 1);
- next__PHJH=((__POINTER )(NULL));
- result__RHJH=((__POINTER *)ptr_table__QHJH)[ 0];
- if ((result__RHJH == (void *)NULL)) {
- result__RHJH=new_lab__RTJ(lab_type__SHJH);
- next__PHJH=(void *)((unsigned long)result__RHJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__THJH)));
- ((__POINTER *)next__PHJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__QHJH)[ 0]=next__PHJH;
- } else {
- next__PHJH=((__POINTER *)result__RHJH)[ 0];
- if ((next__PHJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RHJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__THJH << 1)) <= 4096)) {
- next__PHJH=(void *)((unsigned long)result__RHJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__THJH)));
- } else {
- next__PHJH=new_lab__RTJ(lab_type__SHJH);
- };
- ((__POINTER *)next__PHJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__QHJH)[ 0]=next__PHJH;
- } else {
- ((__POINTER *)result__RHJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PHJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__RHJH=next__PHJH;
- };
- };
- ptr__JKID=result__RHJH;
- };
- result__IKID=((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)ptr__JKID);
- *(result__IKID) = *(HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo__);
- };
- Self__KHTD=((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)result__IKID);
- Self__KHTD->item__RREC=result__YGJH;
- Self__KHTD->key__4QEC=t__TYC;
- Self__KHTD->next__JREC=__tmp__Q1FC;
- node__C0FC=result__IKID;
- ((void **)Self__XZFC->buckets__SQEC)[idx__B0FC]=result__IKID;
- Self__XZFC->count__D1FC=(__INTEGER)(Self__XZFC->count__D1FC + 1);
- } else {
- ((__HASHED_DICTIONARY_NODEoSECTION_xFAST_ARRAYoITM_TYPE_MONOoo *)node__C0FC)->item__RREC=result__YGJH;
- };
- };
- last_section__S2C=result__TTOB;
- };
- do {
- result__GUOB=FALSE__;
- t__HUOB=NULL;
- lt__IUOB=NULL;
- affect__KUOB='\0';
- old_pos__LUOB= 0;
- old_derive__MUOB= 0;
- s__NUOB=NULL;
- style__JUOB=read_style__PUF();
- if ((style__JUOB != ' ')) {
- result__GUOB=TRUE__;
- result__U5YB=NULL;
- result__KS1B=NULL;
- if ((((__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *)free_list__QS1B)->parent_arrayed_collection__PS1B.upper__0SGC < 0)) {
- result__KS1B=create_with_capacity__LJ5B( 16);
- } else {
- Self__HEZC=((__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *)free_list__QS1B);
- result__KS1B=((void **)Self__HEZC->parent_arrayed_collection__PS1B.storage__NKHC)[Self__HEZC->parent_arrayed_collection__PS1B.upper__0SGC];
- Self__3EZC=((__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *)free_list__QS1B);
- Self__3EZC->parent_arrayed_collection__PS1B.upper__0SGC=(__INTEGER)(Self__3EZC->parent_arrayed_collection__PS1B.upper__0SGC - 1);
- };
- arg__T5YB=read_loc_arg__with_self__BBHB(PARSER__,FALSE__,TRUE__);
- if (((void *)arg__T5YB == (void *)NULL)) {
- result__UHJH=FALSE__;
- if ((! read_space__XTD())) {
- result__UHJH=FALSE__;
- } else {
- result__VHJH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__VHJH=((__CHARACTER )(( 0)));
- } else {
- result__VHJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__VHJH == '\'')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__UHJH=TRUE__;
- };
- };
- if (result__UHJH) {
- result__U5YB=read_slot_operator__RS5B(result__KS1B);
- } else {
- p__AIJH=current_position__B0F();
- result__XHJH=NULL;
- ptr__YHJH=((__POINTER )(NULL));
- typ_id__ZHJH= 0;
- sz__0HJH=((__UINTEGER_32 )sizeof(__ITM_ARG));
- if ((sz__0HJH == 0)) {
- result__XHJH=ITM_ARG__;
- } else {
- typ_id__ZHJH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__0HJH);
- if ((typ_id__ZHJH == (__INTEGER)(- 1))) {
- a__1HJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__2HJH=(__UINTEGER_32)((__UINTEGER_32)(sz__0HJH + a__1HJH) & (__UINTEGER_32)(~ a__1HJH));
- ptr_table__EIJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__2HJH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__DIJH=((__POINTER )(NULL));
- result__FIJH=((__POINTER *)ptr_table__EIJH)[ 0];
- if ((result__FIJH == (void *)NULL)) {
- result__FIJH=new_lab__RTJ(new_size__2HJH);
- next__DIJH=(void *)((unsigned long)result__FIJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2HJH)));
- ((__POINTER *)next__DIJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__EIJH)[ 0]=next__DIJH;
- } else {
- next__DIJH=((__POINTER *)result__FIJH)[ 0];
- if ((next__DIJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FIJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__2HJH << 1)) <= 4096)) {
- next__DIJH=(void *)((unsigned long)result__FIJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2HJH)));
- } else {
- next__DIJH=new_lab__RTJ(new_size__2HJH);
- };
- ((__POINTER *)next__DIJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__EIJH)[ 0]=next__DIJH;
- } else {
- ((__POINTER *)result__FIJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DIJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__FIJH=next__DIJH;
- };
- };
- ptr__YHJH=result__FIJH;
- } else {
- t__3HJH=((__UINTEGER_32 )typ_id__ZHJH);
- a__4HJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__MIJH=(__UINTEGER_32)((__UINTEGER_32)(sz__0HJH + a__4HJH) & (__UINTEGER_32)(~ a__4HJH));
- ptr_table__JIJH=((__POINTER )(&(table_type[(t__3HJH)])));
- lab_type__LIJH=(__UINTEGER_32)(t__3HJH | 1);
- next__IIJH=((__POINTER )(NULL));
- result__KIJH=((__POINTER *)ptr_table__JIJH)[ 0];
- if ((result__KIJH == (void *)NULL)) {
- result__KIJH=new_lab__RTJ(lab_type__LIJH);
- next__IIJH=(void *)((unsigned long)result__KIJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MIJH)));
- ((__POINTER *)next__IIJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__JIJH)[ 0]=next__IIJH;
- } else {
- next__IIJH=((__POINTER *)result__KIJH)[ 0];
- if ((next__IIJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KIJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__MIJH << 1)) <= 4096)) {
- next__IIJH=(void *)((unsigned long)result__KIJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MIJH)));
- } else {
- next__IIJH=new_lab__RTJ(lab_type__LIJH);
- };
- ((__POINTER *)next__IIJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__JIJH)[ 0]=next__IIJH;
- } else {
- ((__POINTER *)result__KIJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__IIJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__KIJH=next__IIJH;
- };
- };
- ptr__YHJH=result__KIJH;
- };
- result__XHJH=((__ITM_ARG *)ptr__YHJH);
- *(result__XHJH) = *(ITM_ARG__);
- };
- Self__5HJH=((__ITM_ARG *)result__XHJH);
- Self__5HJH->parent_itm_argument__SEHB.parent_itm_code__O5M.position__SFJ=p__AIJH;
- Self__5HJH->name__F0HC=(&__string_58);
- Self__5HJH->type__G0HC=type_self__DVN;
- arg__T5YB=result__XHJH;
- add_last__E5GC(result__KS1B,result__XHJH);
- result__U5YB=read_slot_keyword__4X5B(result__KS1B);
- };
- } else {
- add_last__E5GC(result__KS1B,arg__T5YB);
- result__NIJH=FALSE__;
- if ((! read_space__XTD())) {
- result__NIJH=FALSE__;
- } else {
- result__OIJH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__OIJH=((__CHARACTER )(( 0)));
- } else {
- result__OIJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__OIJH == '.')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__NIJH=TRUE__;
- };
- };
- if (result__NIJH) {
- result__U5YB=read_slot_keyword__4X5B(result__KS1B);
- __tmp__EBZB=TRUE__;
- } else {
- __tmp__EBZB=FALSE__;
- };
- if ((! __tmp__EBZB)) {
- result__QIJH=FALSE__;
- if ((! read_space__XTD())) {
- result__QIJH=FALSE__;
- } else {
- result__RIJH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__RIJH=((__CHARACTER )(( 0)));
- } else {
- result__RIJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__RIJH == '\'')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__QIJH=TRUE__;
- };
- };
- if (result__QIJH) {
- result__U5YB=read_slot_operator__RS5B(result__KS1B);
- };
- };
- };
- if (((void *)result__U5YB != (void *)NULL)) {
- result__MS4B=create_with_capacity__LJ5B((__INTEGER)(((__FAST_ARRAYoITM_ARGUMENTo *)result__KS1B)->parent_arrayed_collection__Z5YB.upper__I5GC + 1));
- Self__VLHC=((__FAST_ARRAYoITM_ARGUMENTo *)result__MS4B);
- new_capacity__YLHC= 0;
- other_upper__XLHC=((__FAST_ARRAYoITM_ARGUMENTo *)result__KS1B)->parent_arrayed_collection__Z5YB.upper__I5GC;
- if ((other_upper__XLHC >= 0)) {
- new_capacity__YLHC=(__INTEGER)(other_upper__XLHC + 1);
- if ((Self__VLHC->parent_arrayed_collection__Z5YB.capacity__K5GC < new_capacity__YLHC)) {
- Self__VLHC->parent_arrayed_collection__Z5YB.storage__GAHC=create__PRBD(new_capacity__YLHC);
- Self__VLHC->parent_arrayed_collection__Z5YB.capacity__K5GC=new_capacity__YLHC;
- };
- __tmp__LMHC=Self__VLHC->parent_arrayed_collection__Z5YB.storage__GAHC;
- __tmp__NMHC=((__FAST_ARRAYoITM_ARGUMENTo *)result__KS1B)->parent_arrayed_collection__Z5YB.storage__GAHC;
- Self__JKSD=((void **)__tmp__LMHC);
- Self__IBXD=other_upper__XLHC;
- while ((Self__IBXD >= 0)) {
- Self__JKSD[Self__IBXD]=((void **)__tmp__NMHC)[Self__IBXD];
- Self__IBXD=(__INTEGER)(Self__IBXD - 1);
- };
- };
- Self__VLHC->parent_arrayed_collection__Z5YB.upper__I5GC=other_upper__XLHC;
- ((__FAST_ARRAYoITM_ARGUMENTo *)result__KS1B)->parent_arrayed_collection__Z5YB.upper__I5GC=(__INTEGER)(- 1);
- Self__BUHC=((__FAST_ARRAYoFAST_ARRAYoITM_ARGUMENToo *)free_list__QS1B);
- new_capacity__DUHC= 0;
- if (((__INTEGER)(Self__BUHC->parent_arrayed_collection__PS1B.upper__0SGC + 1) <= (__INTEGER)(Self__BUHC->parent_arrayed_collection__PS1B.capacity__CKHC - 1))) {
- Self__BUHC->parent_arrayed_collection__PS1B.upper__0SGC=(__INTEGER)(Self__BUHC->parent_arrayed_collection__PS1B.upper__0SGC + 1);
- __tmp__RUHC=TRUE__;
- } else {
- __tmp__RUHC=FALSE__;
- };
- if ((! __tmp__RUHC)) {
- if ((Self__BUHC->parent_arrayed_collection__PS1B.capacity__CKHC == 0)) {
- Self__BUHC->parent_arrayed_collection__PS1B.storage__NKHC=create__3MBD( 2);
- Self__BUHC->parent_arrayed_collection__PS1B.capacity__CKHC= 2;
- Self__BUHC->parent_arrayed_collection__PS1B.upper__0SGC= 0;
- } else {
- new_capacity__DUHC=(__INTEGER)(Self__BUHC->parent_arrayed_collection__PS1B.capacity__CKHC << 1);
- __tmp__GVHC=Self__BUHC->parent_arrayed_collection__PS1B.storage__NKHC;
- __tmp__HVHC=Self__BUHC->parent_arrayed_collection__PS1B.capacity__CKHC;
- new__XLTD=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__GVHC)),((__UINTEGER_32 )(__INTEGER)(__tmp__HVHC * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__DUHC * ((__INTEGER )(sizeof(void *)))))));
- __tmp__LMTD=(__INTEGER)(new_capacity__DUHC - 1);
- Self__3GYE=__tmp__HVHC;
- while ((Self__3GYE <= __tmp__LMTD)) {
- new__XLTD[Self__3GYE]=NULL;
- Self__3GYE=(__INTEGER)(Self__3GYE + 1);
- };
- Self__BUHC->parent_arrayed_collection__PS1B.storage__NKHC=new__XLTD;
- Self__BUHC->parent_arrayed_collection__PS1B.capacity__CKHC=new_capacity__DUHC;
- Self__BUHC->parent_arrayed_collection__PS1B.upper__0SGC=(__INTEGER)(Self__BUHC->parent_arrayed_collection__PS1B.upper__0SGC + 1);
- };
- };
- ((void **)Self__BUHC->parent_arrayed_collection__PS1B.storage__NKHC)[Self__BUHC->parent_arrayed_collection__PS1B.upper__0SGC]=result__KS1B;
- if (((struct ___OBJ *)result__U5YB)->__id==__ITM_SLOT__) {
- set_argument_list__5BHC(result__U5YB,result__MS4B);
- } else {
- Self__SDHC=((__ITM_SLOT_OPERATOR *)result__U5YB);
- if (((__INTEGER)(((__FAST_ARRAYoITM_ARGUMENTo *)result__MS4B)->parent_arrayed_collection__Z5YB.upper__I5GC + 1) > 1)) {
- __tmp__AEHC=TRUE__;
- } else {
- __tmp__1DHC=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)result__MS4B)->parent_arrayed_collection__Z5YB.storage__GAHC)[ 0];
- if (((struct ___OBJ *)__tmp__1DHC)->__id==__ITM_ARG__) {
- __tmp__2DHC= 1;
- } else {
- __tmp__2DHC=(__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)((__ITM_ARGS *)__tmp__1DHC)->name__XDQF)->parent_arrayed_collection__MBJ.upper__2CPD + 1);
- };
- __tmp__AEHC=(__tmp__2DHC > 1);
- };
- if (__tmp__AEHC) {
- if (((void *)((__SECTION_ *)Self__SDHC->parent_itm_slot__0S5B.id_section__T3C)->name__MYDC == (void *)(&__string_25))) {
- Self__K0GH=((__FAST_ARRAYoITM_ARGUMENTo *)result__MS4B);
- __tmp__NEHC=((void **)Self__K0GH->parent_arrayed_collection__Z5YB.storage__GAHC)[Self__K0GH->parent_arrayed_collection__Z5YB.upper__I5GC];
- if (((struct ___OBJ *)__tmp__NEHC)->__id==__ITM_ARG__) {
- __tmp__OEHC=((__ITM_ARG *)__tmp__NEHC)->parent_itm_argument__SEHB.parent_itm_code__O5M.position__SFJ;
- } else {
- __tmp__OEHC=((__ITM_ARGS *)__tmp__NEHC)->parent_itm_argument__CEFE.parent_itm_code__O5M.position__SFJ;
- };
- put_error__text__1PG( 1,(&__string_233));
- put_position__FRG(__tmp__OEHC);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- Self__TF4G=((__SECTION_ *)Self__SDHC->parent_itm_slot__0S5B.id_section__T3C);
- if ((((void *)Self__TF4G->name__MYDC == (void *)(&__string_23)) || ((void *)Self__TF4G->name__MYDC == (void *)(&__string_24)))) {
- Self__N0GH=((__FAST_ARRAYoITM_ARGUMENTo *)result__MS4B);
- __tmp__0EHC=((void **)Self__N0GH->parent_arrayed_collection__Z5YB.storage__GAHC)[Self__N0GH->parent_arrayed_collection__Z5YB.upper__I5GC];
- if (((struct ___OBJ *)__tmp__0EHC)->__id==__ITM_ARG__) {
- __tmp__1EHC=((__ITM_ARG *)__tmp__0EHC)->parent_itm_argument__SEHB.parent_itm_code__O5M.position__SFJ;
- } else {
- __tmp__1EHC=((__ITM_ARGS *)__tmp__0EHC)->parent_itm_argument__CEFE.parent_itm_code__O5M.position__SFJ;
- };
- put_error__text__1PG( 1,(&__string_234));
- put_position__FRG(__tmp__1EHC);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- Self__SDHC->parent_itm_slot__0S5B.argument_list__QDHC=result__MS4B;
- };
- };
- last_slot__VUOB=result__U5YB;
- if (((void *)result__U5YB == (void *)NULL)) {
- pos__PLWG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_235));
- put_position__FRG(pos__PLWG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- if (((struct ___OBJ *)last_slot__VUOB)->__id==__ITM_SLOT__) {
- ((__ITM_SLOT *)last_slot__VUOB)->parent_named__15.style__0FU=style__JUOB;
- } else {
- ((__ITM_SLOT_OPERATOR *)last_slot__VUOB)->parent_itm_slot__0S5B.parent_named__15.style__0FU=style__JUOB;
- };
- if (((read_symbol__4YJ((&__string_12)) || read_symbol__4YJ((&__string_13))) || read_symbol__4YJ((&__string_14)))) {
- affect__KUOB=((__CHARACTER *)((__STRING_CONSTANT *)last_string__D2C)->storage__RRO)[ 0];
- } else {
- affect__KUOB=' ';
- };
- if ((affect__KUOB == ' ')) {
- result__VIJH=FALSE__;
- if ((! read_space__XTD())) {
- result__VIJH=FALSE__;
- } else {
- result__WIJH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__WIJH=((__CHARACTER )(( 0)));
- } else {
- result__WIJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__WIJH == ':')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__VIJH=TRUE__;
- };
- };
- __tmp__YVOB=result__VIJH;
- } else {
- __tmp__YVOB=FALSE__;
- };
- if (__tmp__YVOB) {
- result__YIJH=FALSE__;
- if ((! read_space__XTD())) {
- result__YIJH=FALSE__;
- } else {
- result__ZIJH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__ZIJH=((__CHARACTER )(( 0)));
- } else {
- result__ZIJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__ZIJH == '(')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__YIJH=TRUE__;
- };
- };
- if (result__YIJH) {
- lt__IUOB=read_type_list__ENO(PARSER__,FALSE__);
- if (((void *)lt__IUOB == (void *)NULL)) {
- pos__RLWG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_236));
- put_position__FRG(pos__RLWG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- result__1IJH=FALSE__;
- if ((! read_space__XTD())) {
- result__1IJH=FALSE__;
- } else {
- result__2IJH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__2IJH=((__CHARACTER )(( 0)));
- } else {
- result__2IJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__2IJH == ')')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__1IJH=TRUE__;
- };
- };
- if ((! result__1IJH)) {
- pos__TLWG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_237));
- put_position__FRG(pos__TLWG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- t__HUOB=get__4JP(lt__IUOB);
- } else {
- t__HUOB=read_type__CDM(PARSER__,FALSE__);
- if (((void *)t__HUOB == (void *)NULL)) {
- pos__VLWG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_236));
- put_position__FRG(pos__VLWG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- if (((read_symbol__4YJ((&__string_12)) || read_symbol__4YJ((&__string_13))) || read_symbol__4YJ((&__string_14)))) {
- affect__KUOB=((__CHARACTER *)((__STRING_CONSTANT *)last_string__D2C)->storage__RRO)[ 0];
- };
- } else {
- t__HUOB=type_void__WYF;
- };
- __tmp__2XOB=last_slot__VUOB;
- if (((struct ___OBJ *)last_slot__VUOB)->__id==__ITM_SLOT__) {
- set_result_type__W2FC(last_slot__VUOB,t__HUOB);
- } else {
- Self__C4FC=((__ITM_SLOT_OPERATOR *)__tmp__2XOB);
- tm__E4FC=NULL;
- Self__UF4G=((__SECTION_ *)Self__C4FC->parent_itm_slot__0S5B.id_section__T3C);
- if ((((void *)Self__UF4G->name__MYDC == (void *)(&__string_23)) || ((void *)Self__UF4G->name__MYDC == (void *)(&__string_24)))) {
- if (t__HUOB==NULL) {
- __tmp__N4FC=NULL;
- } else {
- switch (((struct ___OBJ *)t__HUOB)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- __tmp__N4FC=((void *)t__HUOB);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- __tmp__N4FC=((void *)t__HUOB);
- } break;
- case __ITM_TYPE_MULTI__: {
- __tmp__N4FC=NULL;
- } break;
- case __ITM_TYPE_BLOCK__: {
- __tmp__N4FC=((void *)t__HUOB);
- } break;
- case __ITM_TYPE_GENERIC__: {
- __tmp__N4FC=((void *)t__HUOB);
- } break;
- case __ITM_TYPE_STYLE__: {
- __tmp__N4FC=((void *)t__HUOB);
- } break;
- }
- };
- tm__E4FC=__tmp__N4FC;
- if (((((void *)__tmp__N4FC == (void *)NULL) || ((void *)__tmp__N4FC == (void *)type_self__DVN)) || ((void *)__tmp__N4FC == (void *)type_void__WYF))) {
- pos__C4ID=Self__C4FC->parent_itm_slot__0S5B.parent_named__15.parent_itm_object__4.position__SFJ;
- put_error__text__1PG( 1,(&__string_238));
- put_position__FRG(pos__C4ID);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- Self__C4FC->parent_itm_slot__0S5B.result_type__A4FC=t__HUOB;
- };
- if (((struct ___OBJ *)last_slot__VUOB)->__id==__ITM_SLOT__) {
- ((__ITM_SLOT *)last_slot__VUOB)->affect__P5FC=affect__KUOB;
- } else {
- ((__ITM_SLOT_OPERATOR *)last_slot__VUOB)->parent_itm_slot__0S5B.affect__P5FC=affect__KUOB;
- };
- if ((affect__KUOB != ' ')) {
- read_space__XTD();
- if (is_shorter2__VI) {
- if (((void *)last_comment_slot__LCE != (void *)NULL)) {
- __tmp__RYOB=last_comment_slot__LCE;
- if (((struct ___OBJ *)last_slot__VUOB)->__id==__ITM_SLOT__) {
- ((__ITM_SLOT *)last_slot__VUOB)->comment__WZOB=__tmp__RYOB;
- } else {
- ((__ITM_SLOT_OPERATOR *)last_slot__VUOB)->parent_itm_slot__0S5B.comment__WZOB=__tmp__RYOB;
- };
- };
- if (((void *)last_comment_extern__XZC != (void *)NULL)) {
- if (((struct ___OBJ *)last_slot__VUOB)->__id==__ITM_SLOT__) {
- ((__ITM_SLOT *)last_slot__VUOB)->comment_chapter__S0HC=last_comment_extern__XZC;
- } else {
- ((__ITM_SLOT_OPERATOR *)last_slot__VUOB)->parent_itm_slot__0S5B.comment_chapter__S0HC=last_comment_extern__XZC;
- };
- };
- skip_comment__ZBE=TRUE__;
- };
- old_pos__LUOB=position__CCC;
- old_derive__MUOB=short_derive__PCC;
- if (((void *)read_contract__5VF(PARSER__) != (void *)NULL)) {
- if (((struct ___OBJ *)last_slot__VUOB)->__id==__ITM_SLOT__) {
- };
- };
- expr__4G3B=read_expr__DBJ(PARSER__);
- if (((void *)expr__4G3B == (void *)NULL)) {
- pos__3LWG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_239));
- put_position__FRG(pos__3LWG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- __tmp__LH3B=last_slot__VUOB;
- __tmp__MH3B=object__ZBC;
- if (((struct ___OBJ *)last_slot__VUOB)->__id==__ITM_SLOT__) {
- set_value__type__DFHC(last_slot__VUOB,expr__4G3B,object__ZBC);
- } else {
- Self__3FHC=((__ITM_SLOT_OPERATOR *)__tmp__LH3B);
- if ((Self__3FHC->parent_itm_slot__0S5B.affect__P5FC != '<')) {
- copy__VDS(string_tmp__VH,(&__string_240));
- append__3OS(string_tmp__VH,Self__3FHC->parent_itm_slot__0S5B.parent_named__15.name__LI);
- n__TFBD=get__YWB(string_tmp__VH);
- sec__UFBD=get_name__TROB((&__string_27));
- larg__VFBD=create_with_capacity__LJ5B( 1);
- switch (((struct ___OBJ *)expr__4G3B)->__id) {
- case __ITM_LIST__: {
- __tmp__AGBD=((__ITM_LIST *)expr__4G3B)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_LDOTS__: {
- __tmp__AGBD=((__ITM_LDOTS *)expr__4G3B)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_PROTOTYPE__: {
- __tmp__AGBD=((__ITM_PROTOTYPE *)expr__4G3B)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_LIST_IDF__: {
- __tmp__AGBD=((__ITM_LIST_IDF *)expr__4G3B)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_VALUE__: {
- __tmp__AGBD=((__ITM_WRITE_VALUE *)expr__4G3B)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_CAST__: {
- __tmp__AGBD=((__ITM_WRITE_CAST *)expr__4G3B)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ__: {
- __tmp__AGBD=((__ITM_READ *)expr__4G3B)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_CODE__: {
- __tmp__AGBD=((__ITM_WRITE_CODE *)expr__4G3B)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_OPERATOR__: {
- __tmp__AGBD=((__ITM_OPERATOR *)expr__4G3B)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARG1__: {
- __tmp__AGBD=((__ITM_READ_ARG1 *)expr__4G3B)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARG2__: {
- __tmp__AGBD=((__ITM_READ_ARG2 *)expr__4G3B)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXPRESSION__: {
- __tmp__AGBD=position__5A5B(expr__4G3B);
- } break;
- case __ITM_OLD__: {
- __tmp__AGBD=((__ITM_OLD *)expr__4G3B)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXTERNAL_TYPE__: {
- __tmp__AGBD=((__ITM_EXTERNAL_TYPE *)expr__4G3B)->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_BLOCK__: {
- __tmp__AGBD=((__ITM_LIST *)((__ITM_BLOCK *)expr__4G3B)->list__KMDC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXTERNAL__: {
- __tmp__AGBD=((__ITM_EXTERNAL *)expr__4G3B)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARGS__: {
- __tmp__AGBD=((__ITM_READ_ARGS *)expr__4G3B)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_REAL__: {
- __tmp__AGBD=((__ITM_REAL *)expr__4G3B)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_NUMBER__: {
- __tmp__AGBD=((__ITM_NUMBER *)expr__4G3B)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_CHARACTER__: {
- __tmp__AGBD=((__ITM_CHARACTER *)expr__4G3B)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_STRING__: {
- __tmp__AGBD=((__ITM_STRING *)expr__4G3B)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_RESULT__: {
- __tmp__AGBD=position__PIHC(expr__4G3B);
- } break;
- };
- result__4IJH=NULL;
- ptr__5IJH=((__POINTER )(NULL));
- typ_id__AJJH= 0;
- sz__BJJH=((__UINTEGER_32 )sizeof(__ITM_ARG));
- if ((sz__BJJH == 0)) {
- result__4IJH=ITM_ARG__;
- } else {
- typ_id__AJJH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__BJJH);
- if ((typ_id__AJJH == (__INTEGER)(- 1))) {
- a__CJJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__DJJH=(__UINTEGER_32)((__UINTEGER_32)(sz__BJJH + a__CJJH) & (__UINTEGER_32)(~ a__CJJH));
- ptr_table__LJJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__DJJH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__KJJH=((__POINTER )(NULL));
- result__MJJH=((__POINTER *)ptr_table__LJJH)[ 0];
- if ((result__MJJH == (void *)NULL)) {
- result__MJJH=new_lab__RTJ(new_size__DJJH);
- next__KJJH=(void *)((unsigned long)result__MJJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DJJH)));
- ((__POINTER *)next__KJJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__LJJH)[ 0]=next__KJJH;
- } else {
- next__KJJH=((__POINTER *)result__MJJH)[ 0];
- if ((next__KJJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MJJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__DJJH << 1)) <= 4096)) {
- next__KJJH=(void *)((unsigned long)result__MJJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DJJH)));
- } else {
- next__KJJH=new_lab__RTJ(new_size__DJJH);
- };
- ((__POINTER *)next__KJJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__LJJH)[ 0]=next__KJJH;
- } else {
- ((__POINTER *)result__MJJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KJJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__MJJH=next__KJJH;
- };
- };
- ptr__5IJH=result__MJJH;
- } else {
- t__EJJH=((__UINTEGER_32 )typ_id__AJJH);
- a__FJJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__TJJH=(__UINTEGER_32)((__UINTEGER_32)(sz__BJJH + a__FJJH) & (__UINTEGER_32)(~ a__FJJH));
- ptr_table__QJJH=((__POINTER )(&(table_type[(t__EJJH)])));
- lab_type__SJJH=(__UINTEGER_32)(t__EJJH | 1);
- next__PJJH=((__POINTER )(NULL));
- result__RJJH=((__POINTER *)ptr_table__QJJH)[ 0];
- if ((result__RJJH == (void *)NULL)) {
- result__RJJH=new_lab__RTJ(lab_type__SJJH);
- next__PJJH=(void *)((unsigned long)result__RJJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TJJH)));
- ((__POINTER *)next__PJJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__QJJH)[ 0]=next__PJJH;
- } else {
- next__PJJH=((__POINTER *)result__RJJH)[ 0];
- if ((next__PJJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RJJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__TJJH << 1)) <= 4096)) {
- next__PJJH=(void *)((unsigned long)result__RJJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TJJH)));
- } else {
- next__PJJH=new_lab__RTJ(lab_type__SJJH);
- };
- ((__POINTER *)next__PJJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__QJJH)[ 0]=next__PJJH;
- } else {
- ((__POINTER *)result__RJJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PJJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__RJJH=next__PJJH;
- };
- };
- ptr__5IJH=result__RJJH;
- };
- result__4IJH=((__ITM_ARG *)ptr__5IJH);
- *(result__4IJH) = *(ITM_ARG__);
- };
- Self__GJJH=((__ITM_ARG *)result__4IJH);
- Self__GJJH->parent_itm_argument__SEHB.parent_itm_code__O5M.position__SFJ=__tmp__AGBD;
- Self__GJJH->name__F0HC=(&__string_58);
- Self__GJJH->type__G0HC=type_self__DVN;
- add_last__E5GC(larg__VFBD,result__4IJH);
- switch (((struct ___OBJ *)expr__4G3B)->__id) {
- case __ITM_LIST__: {
- __tmp__IGBD=((__ITM_LIST *)expr__4G3B)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_LDOTS__: {
- __tmp__IGBD=((__ITM_LDOTS *)expr__4G3B)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_PROTOTYPE__: {
- __tmp__IGBD=((__ITM_PROTOTYPE *)expr__4G3B)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_LIST_IDF__: {
- __tmp__IGBD=((__ITM_LIST_IDF *)expr__4G3B)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_VALUE__: {
- __tmp__IGBD=((__ITM_WRITE_VALUE *)expr__4G3B)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_CAST__: {
- __tmp__IGBD=((__ITM_WRITE_CAST *)expr__4G3B)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ__: {
- __tmp__IGBD=((__ITM_READ *)expr__4G3B)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_CODE__: {
- __tmp__IGBD=((__ITM_WRITE_CODE *)expr__4G3B)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_OPERATOR__: {
- __tmp__IGBD=((__ITM_OPERATOR *)expr__4G3B)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARG1__: {
- __tmp__IGBD=((__ITM_READ_ARG1 *)expr__4G3B)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARG2__: {
- __tmp__IGBD=((__ITM_READ_ARG2 *)expr__4G3B)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXPRESSION__: {
- __tmp__IGBD=position__5A5B(expr__4G3B);
- } break;
- case __ITM_OLD__: {
- __tmp__IGBD=((__ITM_OLD *)expr__4G3B)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXTERNAL_TYPE__: {
- __tmp__IGBD=((__ITM_EXTERNAL_TYPE *)expr__4G3B)->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_BLOCK__: {
- __tmp__IGBD=((__ITM_LIST *)((__ITM_BLOCK *)expr__4G3B)->list__KMDC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXTERNAL__: {
- __tmp__IGBD=((__ITM_EXTERNAL *)expr__4G3B)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARGS__: {
- __tmp__IGBD=((__ITM_READ_ARGS *)expr__4G3B)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_REAL__: {
- __tmp__IGBD=((__ITM_REAL *)expr__4G3B)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_NUMBER__: {
- __tmp__IGBD=((__ITM_NUMBER *)expr__4G3B)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_CHARACTER__: {
- __tmp__IGBD=((__ITM_CHARACTER *)expr__4G3B)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_STRING__: {
- __tmp__IGBD=((__ITM_STRING *)expr__4G3B)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_RESULT__: {
- __tmp__IGBD=position__PIHC(expr__4G3B);
- } break;
- };
- result__UJJH=NULL;
- ptr__VJJH=((__POINTER )(NULL));
- typ_id__WJJH= 0;
- sz__XJJH=((__UINTEGER_32 )sizeof(__ITM_SLOT));
- if ((sz__XJJH == 0)) {
- result__UJJH=ITM_SLOT__;
- } else {
- typ_id__WJJH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__XJJH);
- if ((typ_id__WJJH == (__INTEGER)(- 1))) {
- a__YJJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ZJJH=(__UINTEGER_32)((__UINTEGER_32)(sz__XJJH + a__YJJH) & (__UINTEGER_32)(~ a__YJJH));
- ptr_table__BKJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ZJJH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__AKJH=((__POINTER )(NULL));
- result__CKJH=((__POINTER *)ptr_table__BKJH)[ 0];
- if ((result__CKJH == (void *)NULL)) {
- result__CKJH=new_lab__RTJ(new_size__ZJJH);
- next__AKJH=(void *)((unsigned long)result__CKJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZJJH)));
- ((__POINTER *)next__AKJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__BKJH)[ 0]=next__AKJH;
- } else {
- next__AKJH=((__POINTER *)result__CKJH)[ 0];
- if ((next__AKJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CKJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__ZJJH << 1)) <= 4096)) {
- next__AKJH=(void *)((unsigned long)result__CKJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZJJH)));
- } else {
- next__AKJH=new_lab__RTJ(new_size__ZJJH);
- };
- ((__POINTER *)next__AKJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__BKJH)[ 0]=next__AKJH;
- } else {
- ((__POINTER *)result__CKJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__AKJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__CKJH=next__AKJH;
- };
- };
- ptr__VJJH=result__CKJH;
- } else {
- t__0JJH=((__UINTEGER_32 )typ_id__WJJH);
- a__1JJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__JKJH=(__UINTEGER_32)((__UINTEGER_32)(sz__XJJH + a__1JJH) & (__UINTEGER_32)(~ a__1JJH));
- ptr_table__GKJH=((__POINTER )(&(table_type[(t__0JJH)])));
- lab_type__IKJH=(__UINTEGER_32)(t__0JJH | 1);
- next__FKJH=((__POINTER )(NULL));
- result__HKJH=((__POINTER *)ptr_table__GKJH)[ 0];
- if ((result__HKJH == (void *)NULL)) {
- result__HKJH=new_lab__RTJ(lab_type__IKJH);
- next__FKJH=(void *)((unsigned long)result__HKJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JKJH)));
- ((__POINTER *)next__FKJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__GKJH)[ 0]=next__FKJH;
- } else {
- next__FKJH=((__POINTER *)result__HKJH)[ 0];
- if ((next__FKJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HKJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__JKJH << 1)) <= 4096)) {
- next__FKJH=(void *)((unsigned long)result__HKJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JKJH)));
- } else {
- next__FKJH=new_lab__RTJ(lab_type__IKJH);
- };
- ((__POINTER *)next__FKJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__GKJH)[ 0]=next__FKJH;
- } else {
- ((__POINTER *)result__HKJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FKJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__HKJH=next__FKJH;
- };
- };
- ptr__VJJH=result__HKJH;
- };
- result__UJJH=((__ITM_SLOT *)ptr__VJJH);
- *(result__UJJH) = *(ITM_SLOT__);
- };
- Self__2JJH=((__ITM_SLOT *)result__UJJH);
- Self__2JJH->parent_named__15.name__LI=n__TFBD;
- Self__2JJH->parent_named__15.parent_itm_object__4.position__SFJ=__tmp__IGBD;
- Self__2JJH->id_section__T3C=sec__UFBD;
- ((__ITM_SLOT *)result__UJJH)->affect__P5FC='<';
- set_value__type__DFHC(result__UJJH,expr__4G3B,__tmp__MH3B);
- set_argument_list__5BHC(result__UJJH,larg__VFBD);
- set_result_type__W2FC(result__UJJH,Self__3FHC->parent_itm_slot__0S5B.result_type__A4FC);
- fast_put__to__LNGC(((__PROTOTYPE *)__tmp__MH3B)->slot_list__YVS,result__UJJH,result__UJJH->parent_named__15.name__LI);
- switch (((struct ___OBJ *)expr__4G3B)->__id) {
- case __ITM_LIST__: {
- __tmp__2GBD=((__ITM_LIST *)expr__4G3B)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_LDOTS__: {
- __tmp__2GBD=((__ITM_LDOTS *)expr__4G3B)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_PROTOTYPE__: {
- __tmp__2GBD=((__ITM_PROTOTYPE *)expr__4G3B)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_LIST_IDF__: {
- __tmp__2GBD=((__ITM_LIST_IDF *)expr__4G3B)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_VALUE__: {
- __tmp__2GBD=((__ITM_WRITE_VALUE *)expr__4G3B)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_CAST__: {
- __tmp__2GBD=((__ITM_WRITE_CAST *)expr__4G3B)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ__: {
- __tmp__2GBD=((__ITM_READ *)expr__4G3B)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_CODE__: {
- __tmp__2GBD=((__ITM_WRITE_CODE *)expr__4G3B)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_OPERATOR__: {
- __tmp__2GBD=((__ITM_OPERATOR *)expr__4G3B)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARG1__: {
- __tmp__2GBD=((__ITM_READ_ARG1 *)expr__4G3B)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARG2__: {
- __tmp__2GBD=((__ITM_READ_ARG2 *)expr__4G3B)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXPRESSION__: {
- __tmp__2GBD=position__5A5B(expr__4G3B);
- } break;
- case __ITM_OLD__: {
- __tmp__2GBD=((__ITM_OLD *)expr__4G3B)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXTERNAL_TYPE__: {
- __tmp__2GBD=((__ITM_EXTERNAL_TYPE *)expr__4G3B)->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_BLOCK__: {
- __tmp__2GBD=((__ITM_LIST *)((__ITM_BLOCK *)expr__4G3B)->list__KMDC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXTERNAL__: {
- __tmp__2GBD=((__ITM_EXTERNAL *)expr__4G3B)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARGS__: {
- __tmp__2GBD=((__ITM_READ_ARGS *)expr__4G3B)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_REAL__: {
- __tmp__2GBD=((__ITM_REAL *)expr__4G3B)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_NUMBER__: {
- __tmp__2GBD=((__ITM_NUMBER *)expr__4G3B)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_CHARACTER__: {
- __tmp__2GBD=((__ITM_CHARACTER *)expr__4G3B)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_STRING__: {
- __tmp__2GBD=((__ITM_STRING *)expr__4G3B)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_RESULT__: {
- __tmp__2GBD=position__PIHC(expr__4G3B);
- } break;
- };
- get__IVI(((__PROTOTYPE *)__tmp__MH3B)->parent_named__5.name__LI);
- result__KKJH=NULL;
- ptr__LKJH=((__POINTER )(NULL));
- typ_id__MKJH= 0;
- sz__NKJH=((__UINTEGER_32 )sizeof(__ITM_PROTOTYPE));
- if ((sz__NKJH == 0)) {
- result__KKJH=ITM_PROTOTYPE__;
- } else {
- typ_id__MKJH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__NKJH);
- if ((typ_id__MKJH == (__INTEGER)(- 1))) {
- a__OKJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__PKJH=(__UINTEGER_32)((__UINTEGER_32)(sz__NKJH + a__OKJH) & (__UINTEGER_32)(~ a__OKJH));
- ptr_table__UKJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PKJH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__TKJH=((__POINTER )(NULL));
- result__VKJH=((__POINTER *)ptr_table__UKJH)[ 0];
- if ((result__VKJH == (void *)NULL)) {
- result__VKJH=new_lab__RTJ(new_size__PKJH);
- next__TKJH=(void *)((unsigned long)result__VKJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PKJH)));
- ((__POINTER *)next__TKJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__UKJH)[ 0]=next__TKJH;
- } else {
- next__TKJH=((__POINTER *)result__VKJH)[ 0];
- if ((next__TKJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VKJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__PKJH << 1)) <= 4096)) {
- next__TKJH=(void *)((unsigned long)result__VKJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PKJH)));
- } else {
- next__TKJH=new_lab__RTJ(new_size__PKJH);
- };
- ((__POINTER *)next__TKJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__UKJH)[ 0]=next__TKJH;
- } else {
- ((__POINTER *)result__VKJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TKJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__VKJH=next__TKJH;
- };
- };
- ptr__LKJH=result__VKJH;
- } else {
- t__QKJH=((__UINTEGER_32 )typ_id__MKJH);
- a__RKJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__2KJH=(__UINTEGER_32)((__UINTEGER_32)(sz__NKJH + a__RKJH) & (__UINTEGER_32)(~ a__RKJH));
- ptr_table__ZKJH=((__POINTER )(&(table_type[(t__QKJH)])));
- lab_type__1KJH=(__UINTEGER_32)(t__QKJH | 1);
- next__YKJH=((__POINTER )(NULL));
- result__0KJH=((__POINTER *)ptr_table__ZKJH)[ 0];
- if ((result__0KJH == (void *)NULL)) {
- result__0KJH=new_lab__RTJ(lab_type__1KJH);
- next__YKJH=(void *)((unsigned long)result__0KJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2KJH)));
- ((__POINTER *)next__YKJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__ZKJH)[ 0]=next__YKJH;
- } else {
- next__YKJH=((__POINTER *)result__0KJH)[ 0];
- if ((next__YKJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0KJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__2KJH << 1)) <= 4096)) {
- next__YKJH=(void *)((unsigned long)result__0KJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2KJH)));
- } else {
- next__YKJH=new_lab__RTJ(lab_type__1KJH);
- };
- ((__POINTER *)next__YKJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__ZKJH)[ 0]=next__YKJH;
- } else {
- ((__POINTER *)result__0KJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YKJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__0KJH=next__YKJH;
- };
- };
- ptr__LKJH=result__0KJH;
- };
- result__KKJH=((__ITM_PROTOTYPE *)ptr__LKJH);
- *(result__KKJH) = *(ITM_PROTOTYPE__);
- };
- ((__ITM_PROTOTYPE *)result__KKJH)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ=__tmp__2GBD;
- switch (((struct ___OBJ *)expr__4G3B)->__id) {
- case __ITM_LIST__: {
- __tmp__FHBD=((__ITM_LIST *)expr__4G3B)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_LDOTS__: {
- __tmp__FHBD=((__ITM_LDOTS *)expr__4G3B)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_PROTOTYPE__: {
- __tmp__FHBD=((__ITM_PROTOTYPE *)expr__4G3B)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_LIST_IDF__: {
- __tmp__FHBD=((__ITM_LIST_IDF *)expr__4G3B)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_VALUE__: {
- __tmp__FHBD=((__ITM_WRITE_VALUE *)expr__4G3B)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_CAST__: {
- __tmp__FHBD=((__ITM_WRITE_CAST *)expr__4G3B)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ__: {
- __tmp__FHBD=((__ITM_READ *)expr__4G3B)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_CODE__: {
- __tmp__FHBD=((__ITM_WRITE_CODE *)expr__4G3B)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_OPERATOR__: {
- __tmp__FHBD=((__ITM_OPERATOR *)expr__4G3B)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARG1__: {
- __tmp__FHBD=((__ITM_READ_ARG1 *)expr__4G3B)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARG2__: {
- __tmp__FHBD=((__ITM_READ_ARG2 *)expr__4G3B)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXPRESSION__: {
- __tmp__FHBD=position__5A5B(expr__4G3B);
- } break;
- case __ITM_OLD__: {
- __tmp__FHBD=((__ITM_OLD *)expr__4G3B)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXTERNAL_TYPE__: {
- __tmp__FHBD=((__ITM_EXTERNAL_TYPE *)expr__4G3B)->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_BLOCK__: {
- __tmp__FHBD=((__ITM_LIST *)((__ITM_BLOCK *)expr__4G3B)->list__KMDC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXTERNAL__: {
- __tmp__FHBD=((__ITM_EXTERNAL *)expr__4G3B)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARGS__: {
- __tmp__FHBD=((__ITM_READ_ARGS *)expr__4G3B)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_REAL__: {
- __tmp__FHBD=((__ITM_REAL *)expr__4G3B)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_NUMBER__: {
- __tmp__FHBD=((__ITM_NUMBER *)expr__4G3B)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_CHARACTER__: {
- __tmp__FHBD=((__ITM_CHARACTER *)expr__4G3B)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_STRING__: {
- __tmp__FHBD=((__ITM_STRING *)expr__4G3B)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_RESULT__: {
- __tmp__FHBD=position__PIHC(expr__4G3B);
- } break;
- };
- result__3KJH=NULL;
- ptr__4KJH=((__POINTER )(NULL));
- typ_id__5KJH= 0;
- sz__ALJH=((__UINTEGER_32 )sizeof(__ITM_READ_ARG1));
- if ((sz__ALJH == 0)) {
- result__3KJH=ITM_READ_ARG1__;
- } else {
- typ_id__5KJH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__ALJH);
- if ((typ_id__5KJH == (__INTEGER)(- 1))) {
- a__BLJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__CLJH=(__UINTEGER_32)((__UINTEGER_32)(sz__ALJH + a__BLJH) & (__UINTEGER_32)(~ a__BLJH));
- ptr_table__HLJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CLJH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__GLJH=((__POINTER )(NULL));
- result__ILJH=((__POINTER *)ptr_table__HLJH)[ 0];
- if ((result__ILJH == (void *)NULL)) {
- result__ILJH=new_lab__RTJ(new_size__CLJH);
- next__GLJH=(void *)((unsigned long)result__ILJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CLJH)));
- ((__POINTER *)next__GLJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__HLJH)[ 0]=next__GLJH;
- } else {
- next__GLJH=((__POINTER *)result__ILJH)[ 0];
- if ((next__GLJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ILJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__CLJH << 1)) <= 4096)) {
- next__GLJH=(void *)((unsigned long)result__ILJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CLJH)));
- } else {
- next__GLJH=new_lab__RTJ(new_size__CLJH);
- };
- ((__POINTER *)next__GLJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__HLJH)[ 0]=next__GLJH;
- } else {
- ((__POINTER *)result__ILJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GLJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__ILJH=next__GLJH;
- };
- };
- ptr__4KJH=result__ILJH;
- } else {
- t__DLJH=((__UINTEGER_32 )typ_id__5KJH);
- a__ELJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__PLJH=(__UINTEGER_32)((__UINTEGER_32)(sz__ALJH + a__ELJH) & (__UINTEGER_32)(~ a__ELJH));
- ptr_table__MLJH=((__POINTER )(&(table_type[(t__DLJH)])));
- lab_type__OLJH=(__UINTEGER_32)(t__DLJH | 1);
- next__LLJH=((__POINTER )(NULL));
- result__NLJH=((__POINTER *)ptr_table__MLJH)[ 0];
- if ((result__NLJH == (void *)NULL)) {
- result__NLJH=new_lab__RTJ(lab_type__OLJH);
- next__LLJH=(void *)((unsigned long)result__NLJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PLJH)));
- ((__POINTER *)next__LLJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__MLJH)[ 0]=next__LLJH;
- } else {
- next__LLJH=((__POINTER *)result__NLJH)[ 0];
- if ((next__LLJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NLJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__PLJH << 1)) <= 4096)) {
- next__LLJH=(void *)((unsigned long)result__NLJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PLJH)));
- } else {
- next__LLJH=new_lab__RTJ(lab_type__OLJH);
- };
- ((__POINTER *)next__LLJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__MLJH)[ 0]=next__LLJH;
- } else {
- ((__POINTER *)result__NLJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LLJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__NLJH=next__LLJH;
- };
- };
- ptr__4KJH=result__NLJH;
- };
- result__3KJH=((__ITM_READ_ARG1 *)ptr__4KJH);
- *(result__3KJH) = *(ITM_READ_ARG1__);
- };
- ((__ITM_READ_ARG1 *)result__3KJH)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ=__tmp__FHBD;
- };
- };
- if (((void *)read_contract__5VF(PARSER__) != (void *)NULL)) {
- if (((struct ___OBJ *)last_slot__VUOB)->__id==__ITM_SLOT__) {
- };
- };
- };
- result__QLJH=FALSE__;
- if ((! read_space__XTD())) {
- result__QLJH=FALSE__;
- } else {
- result__RLJH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__RLJH=((__CHARACTER )(( 0)));
- } else {
- result__RLJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__RLJH == ';')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__QLJH=TRUE__;
- };
- };
- if ((! result__QLJH)) {
- pos__HMWG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_241));
- put_position__FRG(pos__HMWG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- if (is_shorter2__VI) {
- skip_comment__ZBE=FALSE__;
- read_space__XTD();
- if (((struct ___OBJ *)last_slot__VUOB)->__id==__ITM_SLOT__) {
- __tmp__XZOB=((__ITM_SLOT *)last_slot__VUOB)->comment__WZOB;
- } else {
- __tmp__XZOB=((__ITM_SLOT_OPERATOR *)last_slot__VUOB)->parent_itm_slot__0S5B.comment__WZOB;
- };
- if ((((void *)__tmp__XZOB == (void *)NULL) && ((void *)last_comment_slot__LCE != (void *)NULL))) {
- __tmp__H0OB=last_comment_slot__LCE;
- if (((struct ___OBJ *)last_slot__VUOB)->__id==__ITM_SLOT__) {
- ((__ITM_SLOT *)last_slot__VUOB)->comment__WZOB=__tmp__H0OB;
- } else {
- ((__ITM_SLOT_OPERATOR *)last_slot__VUOB)->parent_itm_slot__0S5B.comment__WZOB=__tmp__H0OB;
- };
- };
- };
- if (is_shorter__LZ) {
- if ((((! is_short_code__11) && (old_pos__LUOB != 0)) && ((void *)((__SECTION_ *)last_section__S2C)->name__MYDC != (void *)(&__string_22)))) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )current_position__B0F()) >> 9) & 255) < 5)) {
- __tmp__1CEH=((__STRING *)source__5BC)->count__SGC;
- __tmp__2CEH=((__STRING *)source__5BC)->count__SGC;
- __tmp__3CEH=((__STRING *)source__5BC)->count__SGC;
- __tmp__Q0GH=((__STRING *)source__5BC)->storage__3CS;
- __tmp__R0GH=((__STRING *)source__5BC)->storage__3CS;
- __tmp__S0GH=((__STRING *)source__5BC)->storage__3CS;
- while_do__EQLE:
- {
- result__4F4G='\0';
- if ((position__CCC > __tmp__1CEH)) {
- result__4F4G=((__CHARACTER )(( 0)));
- } else {
- result__4F4G=((__CHARACTER *)__tmp__Q0GH)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__4F4G != ((__CHARACTER )(( 0))))) {
- result__HG4G='\0';
- if ((position__CCC > __tmp__2CEH)) {
- result__HG4G=((__CHARACTER )(( 0)));
- } else {
- result__HG4G=((__CHARACTER *)__tmp__R0GH)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__L2OB=(((((((result__HG4G == ' ') || (result__HG4G == '\t')) || (result__HG4G == '\n')) || (result__HG4G == '\r')) || (result__HG4G == '\0')) || (result__HG4G == '\f')) || (result__HG4G == '\v'));
- } else {
- __tmp__L2OB=FALSE__;
- };
- if (__tmp__L2OB) {
- result__MG4G='\0';
- if ((position__CCC > __tmp__3CEH)) {
- result__MG4G=((__CHARACTER )(( 0)));
- } else {
- result__MG4G=((__CHARACTER *)__tmp__S0GH)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__M2OB=(result__MG4G != '\n');
- } else {
- __tmp__M2OB=FALSE__;
- };
- if (__tmp__M2OB) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- goto while_do__EQLE;
- };
- };
- result__RG4G='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__RG4G=((__CHARACTER )(( 0)));
- } else {
- result__RG4G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__RG4G == '\n')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- };
- };
- remove_between__to__MIT(output_code__SI,(__INTEGER)(old_pos__LUOB + old_derive__MUOB),(__INTEGER)((__INTEGER)(position__CCC + short_derive__PCC) - 1));
- short_derive__PCC=(__INTEGER)(old_derive__MUOB - (__INTEGER)(position__CCC - old_pos__LUOB));
- };
- };
- __tmp__T3OB=((__PROTOTYPE *)object__ZBC)->slot_list__YVS;
- if (((struct ___OBJ *)last_slot__VUOB)->__id==__ITM_SLOT__) {
- __tmp__V3OB=((__ITM_SLOT *)last_slot__VUOB)->parent_named__15.name__LI;
- } else {
- __tmp__V3OB=((__ITM_SLOT_OPERATOR *)last_slot__VUOB)->parent_itm_slot__0S5B.parent_named__15.name__LI;
- };
- s__NUOB=fast_reference_at__05FC(__tmp__T3OB,__tmp__V3OB);
- if (((void *)s__NUOB != (void *)NULL)) {
- put_error__text__1PG( 1,(&__string_242));
- if (((struct ___OBJ *)s__NUOB)->__id==__ITM_SLOT__) {
- __tmp__A4OB=((__ITM_SLOT *)s__NUOB)->parent_named__15.parent_itm_object__4.position__SFJ;
- } else {
- __tmp__A4OB=((__ITM_SLOT_OPERATOR *)s__NUOB)->parent_itm_slot__0S5B.parent_named__15.parent_itm_object__4.position__SFJ;
- };
- put_position__FRG(__tmp__A4OB);
- if (((struct ___OBJ *)last_slot__VUOB)->__id==__ITM_SLOT__) {
- __tmp__C4OB=((__ITM_SLOT *)last_slot__VUOB)->parent_named__15.parent_itm_object__4.position__SFJ;
- } else {
- __tmp__C4OB=((__ITM_SLOT_OPERATOR *)last_slot__VUOB)->parent_itm_slot__0S5B.parent_named__15.parent_itm_object__4.position__SFJ;
- };
- put_position__FRG(__tmp__C4OB);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- Self__XDZB=((__PROTOTYPE *)object__ZBC);
- s__YDZB=last_slot__VUOB;
- __tmp__ZDZB=Self__XDZB->slot_list__YVS;
- if (((struct ___OBJ *)last_slot__VUOB)->__id==__ITM_SLOT__) {
- __tmp__0DZB=((__ITM_SLOT *)last_slot__VUOB)->parent_named__15.name__LI;
- } else {
- __tmp__0DZB=((__ITM_SLOT_OPERATOR *)last_slot__VUOB)->parent_itm_slot__0S5B.parent_named__15.name__LI;
- };
- fast_put__to__LNGC(__tmp__ZDZB,last_slot__VUOB,__tmp__0DZB);
- if (((void *)Self__XDZB->first_slot__2DZB == (void *)NULL)) {
- Self__XDZB->first_slot__2DZB=s__YDZB;
- } else {
- __tmp__IEZB=Self__XDZB->last_slot__J3C;
- if (((struct ___OBJ *)__tmp__IEZB)->__id==__ITM_SLOT__) {
- ((__ITM_SLOT *)__tmp__IEZB)->next__YGHC=s__YDZB;
- } else {
- ((__ITM_SLOT_OPERATOR *)__tmp__IEZB)->parent_itm_slot__0S5B.next__YGHC=s__YDZB;
- };
- };
- Self__XDZB->last_slot__J3C=s__YDZB;
- if (is_shorter__LZ) {
- Self__3H3B=((__HASHED_SEToSTRING_CONSTANTo *)short_local__XCC);
- Self__3H3B->count__1FY= 0;
- __tmp__5H3B=Self__3H3B->buckets__DEV;
- __tmp__CI3B=(__INTEGER)(Self__3H3B->capacity__HIT - 1);
- Self__3GHC=((void **)__tmp__5H3B);
- Self__OZPC=__tmp__CI3B;
- while ((Self__OZPC >= 0)) {
- Self__3GHC[Self__OZPC]=NULL;
- Self__OZPC=(__INTEGER)(Self__OZPC - 1);
- };
- };
- };
- } while (result__GUOB);
- if (is_shorter__LZ) {
- if (((! is_short_private__J2) && ((void *)((__SECTION_ *)last_section__S2C)->name__MYDC == (void *)(&__string_26)))) {
- remove_between__to__MIT(output_code__SI,(__INTEGER)(pos_sec__KYC + old_derive__LYC),(__INTEGER)((__INTEGER)(position__CCC + short_derive__PCC) - 1));
- short_derive__PCC=(__INTEGER)(old_derive__LYC - (__INTEGER)(position__CCC - pos_sec__KYC));
- };
- pos_sec__KYC=position__CCC;
- old_derive__LYC=short_derive__PCC;
- };
- goto while_do__FBF;
- };
- };
- if (((void *)read_contract__5VF(PARSER__) != (void *)NULL)) {
- pos__CNWG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_243));
- put_position__FRG(pos__CNWG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- read_space__XTD();
- result__IH4G='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__IH4G=((__CHARACTER )(( 0)));
- } else {
- result__IH4G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__IH4G != ((__CHARACTER )(( 0))))) {
- pos__ENWG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_168));
- put_position__FRG(pos__ENWG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- short__token__to__GDD((&__string_118),((__STRING *)source__5BC)->count__SGC,((__STRING *)source__5BC)->count__SGC);
- object__ZBC=NULL;
-}
-
-static void put__to__like__X4XD(void *tok__Z4XD,void *buf__04XD,void *key__14XD)
-// ({NULLxSTRING_CONSTANTxSTRING},{NULLxSTRING},{NULLxSTRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
- __INTEGER __tmp__M5XD,Self__LIQE;
- void *lst__24XD;
- lst__24XD=NULL;
- if (((void *)key__14XD != (void *)NULL)) {
- lst__24XD=fast_reference_at__CMNE(short_dico__QD,key__14XD);
- if (((void *)lst__24XD != (void *)NULL)) {
- __tmp__M5XD=((__LINKED_LISToSTRING_CONSTANTo *)lst__24XD)->parent_linked_collection__LD.upper__0ED;
- Self__LIQE= 1;
- while ((Self__LIQE <= __tmp__M5XD)) {
- if (((void *)item__X3ND(lst__24XD,Self__LIQE) == (void *)NULL)) {
- append__3OS(buf__04XD,tok__Z4XD);
- } else {
- append__3OS(buf__04XD,item__X3ND(lst__24XD,Self__LIQE));
- };
- Self__LIQE=(__INTEGER)(Self__LIQE + 1);
- };
- };
- };
-}
-
-static void shorter_get_all_slot_in__ZAYD(__PROTOTYPE *Self__0AYD,void *lst__1AYD)
-// ({PROTOTYPE},{NULLxFAST_ARRAYoITM_SLOTo}) VoidRecursive, No inlinable.
-{
- void *ps__3AYD,*__tmp__ZDYD;
- void *p__4AYD;
- __INTEGER i__5AYD,__tmp__3KFH,new_capacity__3IXE,__tmp__BKXE;
- __INTEGER __tmp__Y5PF,Self__QGAG,__tmp__GLFH;
- void *s__2AYD,*__tmp__HCYD,*__tmp__ADYD,*__tmp__ZGYD;
- void *__tmp__QBYD,*__tmp__MDYD;
- void *__tmp__4KFH,*__tmp__5KFH,*__tmp__ICYD,*__tmp__JCYD,*__tmp__KEYD;
- void *__tmp__UEYD,*__tmp__2EYD,*__tmp__HLFH,*__tmp__ILFH,*__tmp__JLFH;
- void *__tmp__KLFH,*__tmp__DGYD,*__tmp__EGYD;
- __SECTION_ *Self__LBFC;
- void *__tmp__XDYD;
- __BOOLEAN __tmp__VBYD,__tmp__MCYD,__tmp__LJXE,__tmp__QDYD,__tmp__GQLF;
- __BOOLEAN __tmp__AFYD,__tmp__BFYD,__tmp__EFYD;
- void **__tmp__W0GH,**__tmp__AKXE,**new__E5PF;
- __FAST_ARRAYoITM_SLOTo *Self__1IXE;
- __CHARACTER __tmp__DEYD;
- void **__tmp__00GH,**__tmp__10GH;
- ps__3AYD=NULL;
- p__4AYD=NULL;
- i__5AYD= 0;
- s__2AYD=Self__0AYD->first_slot__2DZB;
- while (((void *)s__2AYD != (void *)NULL)) {
- if (is_short_private__J2) {
- __tmp__VBYD=TRUE__;
- } else {
- if (((struct ___OBJ *)s__2AYD)->__id==__ITM_SLOT__) {
- __tmp__QBYD=((__ITM_SLOT *)s__2AYD)->id_section__T3C;
- } else {
- __tmp__QBYD=((__ITM_SLOT_OPERATOR *)s__2AYD)->parent_itm_slot__0S5B.id_section__T3C;
- };
- __tmp__VBYD=((void *)((__SECTION_ *)__tmp__QBYD)->name__MYDC != (void *)(&__string_26));
- };
- if (__tmp__VBYD) {
- i__5AYD= 0;
- __tmp__3KFH=((__FAST_ARRAYoITM_SLOTo *)lst__1AYD)->parent_arrayed_collection__XNTD.upper__UOTD;
- __tmp__4KFH=((__ITM_SLOT *)s__2AYD)->parent_named__15.name__LI;
- __tmp__5KFH=((__ITM_SLOT_OPERATOR *)s__2AYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
- __tmp__W0GH=((__FAST_ARRAYoITM_SLOTo *)lst__1AYD)->parent_arrayed_collection__XNTD.storage__UPWE;
- while_do__RJSE:
- {
- if ((i__5AYD <= __tmp__3KFH)) {
- __tmp__HCYD=((void **)__tmp__W0GH)[i__5AYD];
- if (((struct ___OBJ *)__tmp__HCYD)->__id==__ITM_SLOT__) {
- __tmp__ICYD=((__ITM_SLOT *)__tmp__HCYD)->parent_named__15.name__LI;
- } else {
- __tmp__ICYD=((__ITM_SLOT_OPERATOR *)__tmp__HCYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
- };
- if (((struct ___OBJ *)s__2AYD)->__id==__ITM_SLOT__) {
- __tmp__JCYD=__tmp__4KFH;
- } else {
- __tmp__JCYD=__tmp__5KFH;
- };
- __tmp__MCYD=((void *)__tmp__ICYD != (void *)__tmp__JCYD);
- } else {
- __tmp__MCYD=FALSE__;
- };
- if (__tmp__MCYD) {
- i__5AYD=(__INTEGER)(i__5AYD + 1);
- goto while_do__RJSE;
- };
- };
- if ((i__5AYD > ((__FAST_ARRAYoITM_SLOTo *)lst__1AYD)->parent_arrayed_collection__XNTD.upper__UOTD)) {
- Self__1IXE=((__FAST_ARRAYoITM_SLOTo *)lst__1AYD);
- new_capacity__3IXE= 0;
- if (((__INTEGER)(Self__1IXE->parent_arrayed_collection__XNTD.upper__UOTD + 1) <= (__INTEGER)(Self__1IXE->parent_arrayed_collection__XNTD.capacity__RCWE - 1))) {
- Self__1IXE->parent_arrayed_collection__XNTD.upper__UOTD=(__INTEGER)(Self__1IXE->parent_arrayed_collection__XNTD.upper__UOTD + 1);
- __tmp__LJXE=TRUE__;
- } else {
- __tmp__LJXE=FALSE__;
- };
- if ((! __tmp__LJXE)) {
- if ((Self__1IXE->parent_arrayed_collection__XNTD.capacity__RCWE == 0)) {
- Self__1IXE->parent_arrayed_collection__XNTD.storage__UPWE=create__BJFF( 2);
- Self__1IXE->parent_arrayed_collection__XNTD.capacity__RCWE= 2;
- Self__1IXE->parent_arrayed_collection__XNTD.upper__UOTD= 0;
- } else {
- new_capacity__3IXE=(__INTEGER)(Self__1IXE->parent_arrayed_collection__XNTD.capacity__RCWE << 1);
- __tmp__AKXE=Self__1IXE->parent_arrayed_collection__XNTD.storage__UPWE;
- __tmp__BKXE=Self__1IXE->parent_arrayed_collection__XNTD.capacity__RCWE;
- new__E5PF=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__AKXE)),((__UINTEGER_32 )(__INTEGER)(__tmp__BKXE * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__3IXE * ((__INTEGER )(sizeof(void *)))))));
- __tmp__Y5PF=(__INTEGER)(new_capacity__3IXE - 1);
- Self__QGAG=__tmp__BKXE;
- while ((Self__QGAG <= __tmp__Y5PF)) {
- new__E5PF[Self__QGAG]=NULL;
- Self__QGAG=(__INTEGER)(Self__QGAG + 1);
- };
- Self__1IXE->parent_arrayed_collection__XNTD.storage__UPWE=new__E5PF;
- Self__1IXE->parent_arrayed_collection__XNTD.capacity__RCWE=new_capacity__3IXE;
- Self__1IXE->parent_arrayed_collection__XNTD.upper__UOTD=(__INTEGER)(Self__1IXE->parent_arrayed_collection__XNTD.upper__UOTD + 1);
- };
- };
- ((void **)Self__1IXE->parent_arrayed_collection__XNTD.storage__UPWE)[Self__1IXE->parent_arrayed_collection__XNTD.upper__UOTD]=s__2AYD;
- };
- };
- if (((struct ___OBJ *)s__2AYD)->__id==__ITM_SLOT__) {
- __tmp__ADYD=((__ITM_SLOT *)s__2AYD)->next__YGHC;
- } else {
- __tmp__ADYD=((__ITM_SLOT_OPERATOR *)s__2AYD)->parent_itm_slot__0S5B.next__YGHC;
- };
- s__2AYD=__tmp__ADYD;
- };
- s__2AYD=Self__0AYD->first_slot__2DZB;
- while_do__QG5D:
- {
- if (((void *)s__2AYD != (void *)NULL)) {
- if (((struct ___OBJ *)s__2AYD)->__id==__ITM_SLOT__) {
- __tmp__MDYD=((__ITM_SLOT *)s__2AYD)->id_section__T3C;
- } else {
- __tmp__MDYD=((__ITM_SLOT_OPERATOR *)s__2AYD)->parent_itm_slot__0S5B.id_section__T3C;
- };
- Self__LBFC=((__SECTION_ *)__tmp__MDYD);
- __tmp__QDYD=(((void *)Self__LBFC->name__MYDC == (void *)(&__string_23)) || ((void *)Self__LBFC->name__MYDC == (void *)(&__string_24)));
- } else {
- __tmp__QDYD=FALSE__;
- };
- if (__tmp__QDYD) {
- if (((struct ___OBJ *)s__2AYD)->__id==__ITM_SLOT__) {
- __tmp__XDYD=((__ITM_SLOT *)s__2AYD)->result_type__A4FC;
- } else {
- __tmp__XDYD=((__ITM_SLOT_OPERATOR *)s__2AYD)->parent_itm_slot__0S5B.result_type__A4FC;
- };
- if (__tmp__XDYD==NULL) {
- __tmp__ZDYD=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__XDYD)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- __tmp__ZDYD=((void *)__tmp__XDYD);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- __tmp__ZDYD=((void *)__tmp__XDYD);
- } break;
- case __ITM_TYPE_MULTI__: {
- __tmp__ZDYD=NULL;
- } break;
- case __ITM_TYPE_BLOCK__: {
- __tmp__ZDYD=NULL;
- } break;
- case __ITM_TYPE_GENERIC__: {
- __tmp__ZDYD=((void *)__tmp__XDYD);
- } break;
- case __ITM_TYPE_STYLE__: {
- __tmp__ZDYD=((void *)__tmp__XDYD);
- } break;
- }
- };
- ps__3AYD=__tmp__ZDYD;
- if (((void *)__tmp__ZDYD != (void *)NULL)) {
- if (((struct ___OBJ *)s__2AYD)->__id==__ITM_SLOT__) {
- __tmp__DEYD=((__ITM_SLOT *)s__2AYD)->parent_named__15.style__0FU;
- } else {
- __tmp__DEYD=((__ITM_SLOT_OPERATOR *)s__2AYD)->parent_itm_slot__0S5B.parent_named__15.style__0FU;
- };
- if ((__tmp__DEYD == '+')) {
- switch (((struct ___OBJ *)__tmp__ZDYD)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- __tmp__KEYD=NULL;
- } break;
- case __ITM_TYPE_SIMPLE__: {
- __tmp__KEYD=NULL;
- } break;
- case __ITM_TYPE_GENERIC__: {
- __tmp__KEYD=((__ITM_TYPE_GENERIC *)__tmp__ZDYD)->parent_itm_type_style__4SN.style__PZP;
- } break;
- case __ITM_TYPE_STYLE__: {
- __tmp__KEYD=((__ITM_TYPE_STYLE *)__tmp__ZDYD)->style__PZP;
- } break;
- };
- __tmp__GQLF=((void *)__tmp__KEYD == (void *)(&__string_9));
- } else {
- __tmp__GQLF=FALSE__;
- };
- if (__tmp__GQLF) {
- __tmp__AFYD=TRUE__;
- } else {
- if (((struct ___OBJ *)s__2AYD)->__id==__ITM_SLOT__) {
- __tmp__UEYD=((__ITM_SLOT *)s__2AYD)->parent_named__15.name__LI;
- } else {
- __tmp__UEYD=((__ITM_SLOT_OPERATOR *)s__2AYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
- };
- __tmp__AFYD=has_prefix__OTTF(__tmp__UEYD,(&__string_177));
- };
- if (__tmp__AFYD) {
- __tmp__BFYD=TRUE__;
- } else {
- if (((struct ___OBJ *)s__2AYD)->__id==__ITM_SLOT__) {
- __tmp__2EYD=((__ITM_SLOT *)s__2AYD)->parent_named__15.name__LI;
- } else {
- __tmp__2EYD=((__ITM_SLOT_OPERATOR *)s__2AYD)->parent_itm_slot__0S5B.parent_named__15.name__LI;
- };
- __tmp__BFYD=has_prefix__OTTF(__tmp__2EYD,(&__string_178));
- };
- __tmp__EFYD=__tmp__BFYD;
- } else {
- __tmp__EFYD=FALSE__;
- };
- if (__tmp__EFYD) {
- p__4AYD=NULL;
- i__5AYD= 0;
- __tmp__GLFH=((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.upper__HJ;
- __tmp__HLFH=((__ITM_TYPE_PARAMETER *)__tmp__ZDYD)->parent_itm_type__VFE.name__GZP;
- __tmp__ILFH=((__ITM_TYPE_SIMPLE *)__tmp__ZDYD)->name__GZP;
- __tmp__JLFH=((__ITM_TYPE_GENERIC *)__tmp__ZDYD)->parent_itm_type_style__4SN.parent_itm_type_simple__3SN.name__GZP;
- __tmp__KLFH=((__ITM_TYPE_STYLE *)__tmp__ZDYD)->parent_itm_type_simple__3SN.name__GZP;
- __tmp__00GH=((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__DVT;
- __tmp__10GH=((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__DVT;
- while (((i__5AYD <= __tmp__GLFH) && ((void *)p__4AYD == (void *)NULL))) {
- __tmp__DGYD=((__PROTOTYPE *)((void **)__tmp__00GH)[i__5AYD])->parent_named__5.name__LI;
- switch (((struct ___OBJ *)ps__3AYD)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- __tmp__EGYD=__tmp__HLFH;
- } break;
- case __ITM_TYPE_SIMPLE__: {
- __tmp__EGYD=__tmp__ILFH;
- } break;
- case __ITM_TYPE_GENERIC__: {
- __tmp__EGYD=__tmp__JLFH;
- } break;
- case __ITM_TYPE_STYLE__: {
- __tmp__EGYD=__tmp__KLFH;
- } break;
- };
- if (((void *)__tmp__DGYD == (void *)__tmp__EGYD)) {
- p__4AYD=((void **)__tmp__10GH)[i__5AYD];
- };
- i__5AYD=(__INTEGER)(i__5AYD + 1);
- };
- if (((void *)p__4AYD != (void *)NULL)) {
- shorter_get_all_slot_in__ZAYD(p__4AYD,lst__1AYD);
- };
- };
- if (((struct ___OBJ *)s__2AYD)->__id==__ITM_SLOT__) {
- __tmp__ZGYD=((__ITM_SLOT *)s__2AYD)->next__YGHC;
- } else {
- __tmp__ZGYD=((__ITM_SLOT_OPERATOR *)s__2AYD)->parent_itm_slot__0S5B.next__YGHC;
- };
- s__2AYD=__tmp__ZGYD;
- goto while_do__QG5D;
- };
- };
-}
-
-static void pretty_name_in__FY4F(__ITM_SLOT *Self__GY4F,void *buffer__HY4F)
-// ({ITM_SLOT},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
- __INTEGER j__IY4F,new_capacity__ZTHH,old_nb_elts__2THH,upper__WLJH;
- __INTEGER Self__ULJH,new_capacity__5THH,old_nb_elts__CUHH,upper__1LJH;
- __INTEGER Self__ZLJH,new_capacity__FUHH,old_nb_elts__IUHH,upper__AMJH;
- __INTEGER Self__4LJH;
- __STRING *Self__0THH,*Self__AUHH,*Self__GUHH;
- __STRING_CONSTANT *Self__XLFH;
- __CHARACTER *Self__1THH,*new__3THH,*Self__BUHH,*new__DUHH,*Self__HUHH;
- __CHARACTER *new__JUHH;
- __CHARACTER ch__EUHH,ch__KUHH;
- j__IY4F= 1;
- while ((j__IY4F < ((__STRING_CONSTANT *)Self__GY4F->parent_named__15.name__LI)->count__DD)) {
- if (((((__CHARACTER *)((__STRING_CONSTANT *)Self__GY4F->parent_named__15.name__LI)->storage__RRO)[(__INTEGER)(j__IY4F - 1)] == '_') && (((__CHARACTER *)((__STRING_CONSTANT *)Self__GY4F->parent_named__15.name__LI)->storage__RRO)[(__INTEGER)((__INTEGER)(j__IY4F + 1) - 1)] == '_'))) {
- Self__0THH=((__STRING *)buffer__HY4F);
- new_capacity__ZTHH= 0;
- if ((Self__0THH->capacity__UCS <= Self__0THH->count__SGC)) {
- if ((Self__0THH->capacity__UCS == 0)) {
- Self__0THH->capacity__UCS= 32;
- Self__0THH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__ZTHH=(__INTEGER)(Self__0THH->capacity__UCS << 1);
- Self__1THH=((__CHARACTER *)Self__0THH->storage__3CS);
- old_nb_elts__2THH=Self__0THH->capacity__UCS;
- new__3THH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__1THH),((__UINTEGER_32 )old_nb_elts__2THH),((__UINTEGER_32 )new_capacity__ZTHH)));
- upper__WLJH=(__INTEGER)(new_capacity__ZTHH - 1);
- Self__ULJH=old_nb_elts__2THH;
- while ((Self__ULJH <= upper__WLJH)) {
- new__3THH[Self__ULJH]='\0';
- Self__ULJH=(__INTEGER)(Self__ULJH + 1);
- };
- Self__0THH->storage__3CS=new__3THH;
- Self__0THH->capacity__UCS=new_capacity__ZTHH;
- };
- };
- ((__CHARACTER *)Self__0THH->storage__3CS)[Self__0THH->count__SGC]=' ';
- Self__0THH->count__SGC=(__INTEGER)(Self__0THH->count__SGC + 1);
- j__IY4F=(__INTEGER)(j__IY4F + 2);
- } else {
- Self__AUHH=((__STRING *)buffer__HY4F);
- ch__EUHH=((__CHARACTER *)((__STRING_CONSTANT *)Self__GY4F->parent_named__15.name__LI)->storage__RRO)[(__INTEGER)(j__IY4F - 1)];
- new_capacity__5THH= 0;
- if ((Self__AUHH->capacity__UCS <= Self__AUHH->count__SGC)) {
- if ((Self__AUHH->capacity__UCS == 0)) {
- Self__AUHH->capacity__UCS= 32;
- Self__AUHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__5THH=(__INTEGER)(Self__AUHH->capacity__UCS << 1);
- Self__BUHH=((__CHARACTER *)Self__AUHH->storage__3CS);
- old_nb_elts__CUHH=Self__AUHH->capacity__UCS;
- new__DUHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__BUHH),((__UINTEGER_32 )old_nb_elts__CUHH),((__UINTEGER_32 )new_capacity__5THH)));
- upper__1LJH=(__INTEGER)(new_capacity__5THH - 1);
- Self__ZLJH=old_nb_elts__CUHH;
- while ((Self__ZLJH <= upper__1LJH)) {
- new__DUHH[Self__ZLJH]='\0';
- Self__ZLJH=(__INTEGER)(Self__ZLJH + 1);
- };
- Self__AUHH->storage__3CS=new__DUHH;
- Self__AUHH->capacity__UCS=new_capacity__5THH;
- };
- };
- ((__CHARACTER *)Self__AUHH->storage__3CS)[Self__AUHH->count__SGC]=ch__EUHH;
- Self__AUHH->count__SGC=(__INTEGER)(Self__AUHH->count__SGC + 1);
- j__IY4F=(__INTEGER)(j__IY4F + 1);
- };
- };
- Self__XLFH=((__STRING_CONSTANT *)Self__GY4F->parent_named__15.name__LI);
- Self__GUHH=((__STRING *)buffer__HY4F);
- ch__KUHH=((__CHARACTER *)Self__XLFH->storage__RRO)[(__INTEGER)(Self__XLFH->count__DD - 1)];
- new_capacity__FUHH= 0;
- if ((Self__GUHH->capacity__UCS <= Self__GUHH->count__SGC)) {
- if ((Self__GUHH->capacity__UCS == 0)) {
- Self__GUHH->capacity__UCS= 32;
- Self__GUHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__FUHH=(__INTEGER)(Self__GUHH->capacity__UCS << 1);
- Self__HUHH=((__CHARACTER *)Self__GUHH->storage__3CS);
- old_nb_elts__IUHH=Self__GUHH->capacity__UCS;
- new__JUHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__HUHH),((__UINTEGER_32 )old_nb_elts__IUHH),((__UINTEGER_32 )new_capacity__FUHH)));
- upper__AMJH=(__INTEGER)(new_capacity__FUHH - 1);
- Self__4LJH=old_nb_elts__IUHH;
- while ((Self__4LJH <= upper__AMJH)) {
- new__JUHH[Self__4LJH]='\0';
- Self__4LJH=(__INTEGER)(Self__4LJH + 1);
- };
- Self__GUHH->storage__3CS=new__JUHH;
- Self__GUHH->capacity__UCS=new_capacity__FUHH;
- };
- };
- ((__CHARACTER *)Self__GUHH->storage__3CS)[Self__GUHH->count__SGC]=ch__KUHH;
- Self__GUHH->count__SGC=(__INTEGER)(Self__GUHH->count__SGC + 1);
-}
-
-static void pretty_name_in__0Z4F(__ITM_SLOT_OPERATOR *Self__1Z4F,void *buffer__2Z4F)
-// ({ITM_SLOT_OPERATOR},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
- __STRING *Self__MUHH;
- __INTEGER new_capacity__LUHH,old_nb_elts__OUHH,upper__FMJH,Self__DMJH;
- __BOOLEAN __tmp__H04F;
- __CHARACTER *Self__NUHH,*new__PUHH;
- if (has_prefix__OTTF(Self__1Z4F->parent_itm_slot__0S5B.parent_named__15.name__LI,(&__string_82))) {
- append__3OS(buffer__2Z4F,(&__string_244));
- __tmp__H04F=TRUE__;
- } else {
- __tmp__H04F=FALSE__;
- };
- if ((! __tmp__H04F)) {
- if (has_prefix__OTTF(Self__1Z4F->parent_itm_slot__0S5B.parent_named__15.name__LI,(&__string_81))) {
- append__3OS(buffer__2Z4F,(&__string_245));
- } else {
- append__3OS(buffer__2Z4F,(&__string_246));
- };
- };
- append__3OS(buffer__2Z4F,Self__1Z4F->pretty_name__5ZHC);
- Self__MUHH=((__STRING *)buffer__2Z4F);
- new_capacity__LUHH= 0;
- if ((Self__MUHH->capacity__UCS <= Self__MUHH->count__SGC)) {
- if ((Self__MUHH->capacity__UCS == 0)) {
- Self__MUHH->capacity__UCS= 32;
- Self__MUHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__LUHH=(__INTEGER)(Self__MUHH->capacity__UCS << 1);
- Self__NUHH=((__CHARACTER *)Self__MUHH->storage__3CS);
- old_nb_elts__OUHH=Self__MUHH->capacity__UCS;
- new__PUHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__NUHH),((__UINTEGER_32 )old_nb_elts__OUHH),((__UINTEGER_32 )new_capacity__LUHH)));
- upper__FMJH=(__INTEGER)(new_capacity__LUHH - 1);
- Self__DMJH=old_nb_elts__OUHH;
- while ((Self__DMJH <= upper__FMJH)) {
- new__PUHH[Self__DMJH]='\0';
- Self__DMJH=(__INTEGER)(Self__DMJH + 1);
- };
- Self__MUHH->storage__3CS=new__PUHH;
- Self__MUHH->capacity__UCS=new_capacity__LUHH;
- };
- };
- ((__CHARACTER *)Self__MUHH->storage__3CS)[Self__MUHH->count__SGC]='\'';
- Self__MUHH->count__SGC=(__INTEGER)(Self__MUHH->count__SGC + 1);
-}
-
-static __BOOLEAN has_prefix__OTTF(__STRING_CONSTANT *Self__PTTF,void *p__QTTF)
-// ({STRING_CONSTANT},{STRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
- __INTEGER i__TTTF;
- __BOOLEAN result__STTF;
- __CHARACTER *__tmp__AMFH,*__tmp__BMFH;
- result__STTF=FALSE__;
- i__TTTF= 0;
- if ((((__STRING_CONSTANT *)p__QTTF)->count__DD <= Self__PTTF->count__DD)) {
- i__TTTF=((__STRING_CONSTANT *)p__QTTF)->count__DD;
- __tmp__AMFH=Self__PTTF->storage__RRO;
- __tmp__BMFH=((__STRING_CONSTANT *)p__QTTF)->storage__RRO;
- while ((! ((i__TTTF == 0) || (((__CHARACTER *)__tmp__AMFH)[(__INTEGER)(i__TTTF - 1)] != ((__CHARACTER *)__tmp__BMFH)[(__INTEGER)(i__TTTF - 1)])))) {
- i__TTTF=(__INTEGER)(i__TTTF - 1);
- };
- result__STTF=(i__TTTF == 0);
- };
- return(result__STTF);
-}
-
-static void get_all_comment_slot__in__PL4E(__PROTOTYPE *Self__QL4E,void *n__RL4E,void *buf__SL4E)
-// ({PROTOTYPE},{NULLxSTRING_CONSTANT},{NULLxSTRING}) VoidRecursive, No inlinable.
-{
- void *ps__UL4E,*__tmp__CN4E;
- void *p__VL4E;
- __INTEGER i__WL4E,__tmp__FMFH;
- void *s__TL4E,*__tmp__XO4E;
- void *__tmp__4L4E,*__tmp__HM4E,*__tmp__GMFH,*__tmp__HMFH,*__tmp__IMFH;
- void *__tmp__JMFH,*__tmp__BO4E,*__tmp__CO4E;
- void *__tmp__VM4E;
- __SECTION_ *Self__U41G;
- void *__tmp__AN4E;
- __BOOLEAN __tmp__BM4E,__tmp__ZM4E;
- void **__tmp__20GH,**__tmp__30GH;
- ps__UL4E=NULL;
- p__VL4E=NULL;
- i__WL4E= 0;
- s__TL4E=fast_reference_at__05FC(Self__QL4E->slot_list__YVS,n__RL4E);
- if (((void *)s__TL4E != (void *)NULL)) {
- if (((struct ___OBJ *)s__TL4E)->__id==__ITM_SLOT__) {
- __tmp__4L4E=((__ITM_SLOT *)s__TL4E)->comment__WZOB;
- } else {
- __tmp__4L4E=((__ITM_SLOT_OPERATOR *)s__TL4E)->parent_itm_slot__0S5B.comment__WZOB;
- };
- __tmp__BM4E=((void *)__tmp__4L4E != (void *)NULL);
- } else {
- __tmp__BM4E=FALSE__;
- };
- if (__tmp__BM4E) {
- if (((struct ___OBJ *)s__TL4E)->__id==__ITM_SLOT__) {
- __tmp__HM4E=((__ITM_SLOT *)s__TL4E)->comment__WZOB;
- } else {
- __tmp__HM4E=((__ITM_SLOT_OPERATOR *)s__TL4E)->parent_itm_slot__0S5B.comment__WZOB;
- };
- append__3OS(buf__SL4E,__tmp__HM4E);
- };
- s__TL4E=Self__QL4E->first_slot__2DZB;
- while_do__QQGF:
- {
- if (((void *)s__TL4E != (void *)NULL)) {
- if (((struct ___OBJ *)s__TL4E)->__id==__ITM_SLOT__) {
- __tmp__VM4E=((__ITM_SLOT *)s__TL4E)->id_section__T3C;
- } else {
- __tmp__VM4E=((__ITM_SLOT_OPERATOR *)s__TL4E)->parent_itm_slot__0S5B.id_section__T3C;
- };
- Self__U41G=((__SECTION_ *)__tmp__VM4E);
- __tmp__ZM4E=(((void *)Self__U41G->name__MYDC == (void *)(&__string_23)) || ((void *)Self__U41G->name__MYDC == (void *)(&__string_24)));
- } else {
- __tmp__ZM4E=FALSE__;
- };
- if (__tmp__ZM4E) {
- if (((struct ___OBJ *)s__TL4E)->__id==__ITM_SLOT__) {
- __tmp__AN4E=((__ITM_SLOT *)s__TL4E)->result_type__A4FC;
- } else {
- __tmp__AN4E=((__ITM_SLOT_OPERATOR *)s__TL4E)->parent_itm_slot__0S5B.result_type__A4FC;
- };
- if (__tmp__AN4E==NULL) {
- __tmp__CN4E=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__AN4E)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- __tmp__CN4E=((void *)__tmp__AN4E);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- __tmp__CN4E=((void *)__tmp__AN4E);
- } break;
- case __ITM_TYPE_MULTI__: {
- __tmp__CN4E=NULL;
- } break;
- case __ITM_TYPE_BLOCK__: {
- __tmp__CN4E=NULL;
- } break;
- case __ITM_TYPE_GENERIC__: {
- __tmp__CN4E=((void *)__tmp__AN4E);
- } break;
- case __ITM_TYPE_STYLE__: {
- __tmp__CN4E=((void *)__tmp__AN4E);
- } break;
- }
- };
- ps__UL4E=__tmp__CN4E;
- if (((void *)__tmp__CN4E != (void *)NULL)) {
- p__VL4E=NULL;
- i__WL4E= 0;
- __tmp__FMFH=((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.upper__HJ;
- __tmp__GMFH=((__ITM_TYPE_PARAMETER *)__tmp__CN4E)->parent_itm_type__VFE.name__GZP;
- __tmp__HMFH=((__ITM_TYPE_SIMPLE *)__tmp__CN4E)->name__GZP;
- __tmp__IMFH=((__ITM_TYPE_GENERIC *)__tmp__CN4E)->parent_itm_type_style__4SN.parent_itm_type_simple__3SN.name__GZP;
- __tmp__JMFH=((__ITM_TYPE_STYLE *)__tmp__CN4E)->parent_itm_type_simple__3SN.name__GZP;
- __tmp__20GH=((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__DVT;
- __tmp__30GH=((__FAST_ARRAYoPROTOTYPEo *)prototype_list__BJ)->parent_arrayed_collection__AJ.storage__DVT;
- while (((i__WL4E <= __tmp__FMFH) && ((void *)p__VL4E == (void *)NULL))) {
- __tmp__BO4E=((__PROTOTYPE *)((void **)__tmp__20GH)[i__WL4E])->parent_named__5.name__LI;
- switch (((struct ___OBJ *)ps__UL4E)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- __tmp__CO4E=__tmp__GMFH;
- } break;
- case __ITM_TYPE_SIMPLE__: {
- __tmp__CO4E=__tmp__HMFH;
- } break;
- case __ITM_TYPE_GENERIC__: {
- __tmp__CO4E=__tmp__IMFH;
- } break;
- case __ITM_TYPE_STYLE__: {
- __tmp__CO4E=__tmp__JMFH;
- } break;
- };
- if (((void *)__tmp__BO4E == (void *)__tmp__CO4E)) {
- p__VL4E=((void **)__tmp__30GH)[i__WL4E];
- };
- i__WL4E=(__INTEGER)(i__WL4E + 1);
- };
- if (((void *)p__VL4E != (void *)NULL)) {
- get_all_comment_slot__in__PL4E(p__VL4E,n__RL4E,buf__SL4E);
- };
- };
- if (((struct ___OBJ *)s__TL4E)->__id==__ITM_SLOT__) {
- __tmp__XO4E=((__ITM_SLOT *)s__TL4E)->next__YGHC;
- } else {
- __tmp__XO4E=((__ITM_SLOT_OPERATOR *)s__TL4E)->parent_itm_slot__0S5B.next__YGHC;
- };
- s__TL4E=__tmp__XO4E;
- goto while_do__QQGF;
- };
- };
-}
-
-static void shorter_comment__in__light__CP4E(void *str__EP4E,void *buf__FP4E,__BOOLEAN is_light__GP4E)
-// ({NULLxSTRING},{NULLxSTRING},{TRUExFALSE}) VoidNo recursive, No inlinable.
-{
- __INTEGER stat__IP4E,old_stat__JP4E,i__LP4E,cur__HP4E,__tmp__5P4E;
- __INTEGER new_capacity__RUHH,old_nb_elts__UUHH,upper__KMJH,Self__IMJH;
- __INTEGER new_capacity__XUHH,old_nb_elts__0UHH,upper__PMJH,Self__NMJH;
- __INTEGER new_capacity__3UHH,old_nb_elts__AVHH,upper__UMJH,Self__SMJH;
- __INTEGER new_capacity__DVHH,old_nb_elts__GVHH,upper__ZMJH,Self__XMJH;
- __INTEGER new_capacity__JVHH,old_nb_elts__MVHH,upper__4MJH,Self__2MJH;
- __INTEGER new_capacity__PVHH,old_nb_elts__SVHH,upper__DNJH,Self__BNJH;
- void *code_balise__NP4E;
- __STRING *Self__SUHH,*Self__YUHH,*Self__4UHH,*Self__EVHH,*Self__A1GH;
- __STRING *Self__NCSE,*Self__KVHH,*Self__QVHH;
- void *__tmp__UV4E;
- __CHARACTER car__KP4E,result__40GH,result__3W2F,Self__PGOB;
- __CHARACTER result__RGOB;
- __BOOLEAN __tmp__GR4E,__tmp__LS4E,__tmp__DT4E,__tmp__0S4E;
- __BOOLEAN result__QCSE,__tmp__3V4E,__tmp__3X4E;
- __CHARACTER *Self__TUHH,*new__VUHH,*Self__ZUHH,*new__1UHH,*Self__5UHH;
- __CHARACTER *new__BVHH,*Self__FVHH,*new__HVHH,*Self__LVHH,*new__NVHH;
- __CHARACTER *Self__RVHH,*new__TVHH;
- stat__IP4E= 0;
- old_stat__JP4E= 0;
- car__KP4E='\0';
- i__LP4E= 0;
- cur__HP4E= 1;
- ((__STRING *)str_tmp__PP4E)->count__SGC= 0;
- code_balise__NP4E=(&__string_128);
- while ((cur__HP4E <= ((__STRING *)str__EP4E)->count__SGC)) {
- car__KP4E=((__CHARACTER *)((__STRING *)str__EP4E)->storage__3CS)[(__INTEGER)(cur__HP4E - 1)];
- __tmp__5P4E=stat__IP4E;
- if ((stat__IP4E == 0)) {
- if ((car__KP4E == '*')) {
- if ((((__STRING *)str_tmp__PP4E)->count__SGC > 1)) {
- if (is_light__GP4E) {
- append__3OS(buf__FP4E,str_tmp__PP4E);
- cur__HP4E=(__INTEGER)(((__STRING *)str__EP4E)->count__SGC + 1);
- } else {
- put__to__like__X4XD((&__string_247),buf__FP4E,(&__string_148));
- put__to__like__X4XD(str_tmp__PP4E,buf__FP4E,code_balise__NP4E);
- };
- };
- ((__STRING *)str_tmp__PP4E)->count__SGC= 0;
- stat__IP4E= 1;
- __tmp__GR4E=TRUE__;
- } else {
- __tmp__GR4E=FALSE__;
- };
- if ((! __tmp__GR4E)) {
- if ((car__KP4E == '`')) {
- old_stat__JP4E=stat__IP4E;
- stat__IP4E= 2;
- ((__STRING *)str_tmp2__RR4E)->count__SGC= 0;
- } else {
- Self__SUHH=((__STRING *)str_tmp__PP4E);
- new_capacity__RUHH= 0;
- if ((Self__SUHH->capacity__UCS <= Self__SUHH->count__SGC)) {
- if ((Self__SUHH->capacity__UCS == 0)) {
- Self__SUHH->capacity__UCS= 32;
- Self__SUHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__RUHH=(__INTEGER)(Self__SUHH->capacity__UCS << 1);
- Self__TUHH=((__CHARACTER *)Self__SUHH->storage__3CS);
- old_nb_elts__UUHH=Self__SUHH->capacity__UCS;
- new__VUHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__TUHH),((__UINTEGER_32 )old_nb_elts__UUHH),((__UINTEGER_32 )new_capacity__RUHH)));
- upper__KMJH=(__INTEGER)(new_capacity__RUHH - 1);
- Self__IMJH=old_nb_elts__UUHH;
- while ((Self__IMJH <= upper__KMJH)) {
- new__VUHH[Self__IMJH]='\0';
- Self__IMJH=(__INTEGER)(Self__IMJH + 1);
- };
- Self__SUHH->storage__3CS=new__VUHH;
- Self__SUHH->capacity__UCS=new_capacity__RUHH;
- };
- };
- ((__CHARACTER *)Self__SUHH->storage__3CS)[Self__SUHH->count__SGC]=car__KP4E;
- Self__SUHH->count__SGC=(__INTEGER)(Self__SUHH->count__SGC + 1);
- };
- };
- };
- if ((__tmp__5P4E == 1)) {
- result__40GH='\0';
- if (((((__INTEGER_8 )car__KP4E) < 65) || (((__INTEGER_8 )car__KP4E) > 90))) {
- result__40GH=car__KP4E;
- } else {
- result__40GH=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )car__KP4E) + 32))));
- };
- if (((((__INTEGER_8 )result__40GH) >= ((__INTEGER_8 )'a')) && (((__INTEGER_8 )result__40GH) <= ((__INTEGER_8 )'z')))) {
- result__3W2F='\0';
- if (((((__INTEGER_8 )car__KP4E) < 65) || (((__INTEGER_8 )car__KP4E) > 90))) {
- result__3W2F=car__KP4E;
- } else {
- result__3W2F=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )car__KP4E) + 32))));
- };
- Self__YUHH=((__STRING *)str_tmp__PP4E);
- new_capacity__XUHH= 0;
- if ((Self__YUHH->capacity__UCS <= Self__YUHH->count__SGC)) {
- if ((Self__YUHH->capacity__UCS == 0)) {
- Self__YUHH->capacity__UCS= 32;
- Self__YUHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__XUHH=(__INTEGER)(Self__YUHH->capacity__UCS << 1);
- Self__ZUHH=((__CHARACTER *)Self__YUHH->storage__3CS);
- old_nb_elts__0UHH=Self__YUHH->capacity__UCS;
- new__1UHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__ZUHH),((__UINTEGER_32 )old_nb_elts__0UHH),((__UINTEGER_32 )new_capacity__XUHH)));
- upper__PMJH=(__INTEGER)(new_capacity__XUHH - 1);
- Self__NMJH=old_nb_elts__0UHH;
- while ((Self__NMJH <= upper__PMJH)) {
- new__1UHH[Self__NMJH]='\0';
- Self__NMJH=(__INTEGER)(Self__NMJH + 1);
- };
- Self__YUHH->storage__3CS=new__1UHH;
- Self__YUHH->capacity__UCS=new_capacity__XUHH;
- };
- };
- ((__CHARACTER *)Self__YUHH->storage__3CS)[Self__YUHH->count__SGC]=result__3W2F;
- Self__YUHH->count__SGC=(__INTEGER)(Self__YUHH->count__SGC + 1);
- __tmp__LS4E=TRUE__;
- } else {
- __tmp__LS4E=FALSE__;
- };
- if (__tmp__LS4E) {
- __tmp__DT4E=TRUE__;
- } else {
- __tmp__0S4E=((car__KP4E == ' ') && (((__STRING *)str_tmp__PP4E)->count__SGC != 0));
- if (__tmp__0S4E) {
- Self__4UHH=((__STRING *)str_tmp__PP4E);
- new_capacity__3UHH= 0;
- if ((Self__4UHH->capacity__UCS <= Self__4UHH->count__SGC)) {
- if ((Self__4UHH->capacity__UCS == 0)) {
- Self__4UHH->capacity__UCS= 32;
- Self__4UHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__3UHH=(__INTEGER)(Self__4UHH->capacity__UCS << 1);
- Self__5UHH=((__CHARACTER *)Self__4UHH->storage__3CS);
- old_nb_elts__AVHH=Self__4UHH->capacity__UCS;
- new__BVHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__5UHH),((__UINTEGER_32 )old_nb_elts__AVHH),((__UINTEGER_32 )new_capacity__3UHH)));
- upper__UMJH=(__INTEGER)(new_capacity__3UHH - 1);
- Self__SMJH=old_nb_elts__AVHH;
- while ((Self__SMJH <= upper__UMJH)) {
- new__BVHH[Self__SMJH]='\0';
- Self__SMJH=(__INTEGER)(Self__SMJH + 1);
- };
- Self__4UHH->storage__3CS=new__BVHH;
- Self__4UHH->capacity__UCS=new_capacity__3UHH;
- };
- };
- ((__CHARACTER *)Self__4UHH->storage__3CS)[Self__4UHH->count__SGC]='_';
- Self__4UHH->count__SGC=(__INTEGER)(Self__4UHH->count__SGC + 1);
- };
- __tmp__DT4E=__tmp__0S4E;
- };
- if ((! __tmp__DT4E)) {
- if ((car__KP4E == ':')) {
- if ((((__STRING *)str_tmp__PP4E)->count__SGC != 0)) {
- code_balise__NP4E=get__YWB(str_tmp__PP4E);
- if (((void *)fast_reference_at__CMNE(short_dico__QD,code_balise__NP4E) == (void *)NULL)) {
- code_balise__NP4E=NULL;
- } else {
- replace_all__with__CRS(str_tmp__PP4E,'_',' ');
- Self__EVHH=((__STRING *)str_tmp__PP4E);
- new_capacity__DVHH= 0;
- if ((Self__EVHH->capacity__UCS <= Self__EVHH->count__SGC)) {
- if ((Self__EVHH->capacity__UCS == 0)) {
- Self__EVHH->capacity__UCS= 32;
- Self__EVHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__DVHH=(__INTEGER)(Self__EVHH->capacity__UCS << 1);
- Self__FVHH=((__CHARACTER *)Self__EVHH->storage__3CS);
- old_nb_elts__GVHH=Self__EVHH->capacity__UCS;
- new__HVHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__FVHH),((__UINTEGER_32 )old_nb_elts__GVHH),((__UINTEGER_32 )new_capacity__DVHH)));
- upper__ZMJH=(__INTEGER)(new_capacity__DVHH - 1);
- Self__XMJH=old_nb_elts__GVHH;
- while ((Self__XMJH <= upper__ZMJH)) {
- new__HVHH[Self__XMJH]='\0';
- Self__XMJH=(__INTEGER)(Self__XMJH + 1);
- };
- Self__EVHH->storage__3CS=new__HVHH;
- Self__EVHH->capacity__UCS=new_capacity__DVHH;
- };
- };
- ((__CHARACTER *)Self__EVHH->storage__3CS)[Self__EVHH->count__SGC]=':';
- Self__EVHH->count__SGC=(__INTEGER)(Self__EVHH->count__SGC + 1);
- Self__A1GH=((__STRING *)str_tmp__PP4E);
- Self__PGOB=((__CHARACTER *)((__STRING *)str_tmp__PP4E)->storage__3CS)[ 0];
- result__RGOB='\0';
- if (((((__INTEGER_8 )Self__PGOB) < 97) || (((__INTEGER_8 )Self__PGOB) > 122))) {
- result__RGOB=Self__PGOB;
- } else {
- result__RGOB=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )Self__PGOB) - 32))));
- };
- ((__CHARACTER *)Self__A1GH->storage__3CS)[ 0]=result__RGOB;
- put__to__like__X4XD(str_tmp__PP4E,buf__FP4E,(&__string_148));
- };
- };
- ((__STRING *)str_tmp__PP4E)->count__SGC= 0;
- stat__IP4E= 3;
- };
- };
- };
- if ((__tmp__5P4E == 2)) {
- if ((car__KP4E == '\'')) {
- if (((void *)code_balise__NP4E != (void *)NULL)) {
- i__LP4E= 0;
- while_do__H23F:
- {
- if ((i__LP4E <= ((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.upper__UOTD)) {
- ((__STRING *)str_tmp3__RV4E)->count__SGC= 0;
- __tmp__UV4E=((void **)((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.storage__UPWE)[i__LP4E];
- if (((struct ___OBJ *)__tmp__UV4E)->__id==__ITM_SLOT__) {
- pretty_name_in__FY4F(__tmp__UV4E,str_tmp3__RV4E);
- } else {
- pretty_name_in__0Z4F(__tmp__UV4E,str_tmp3__RV4E);
- };
- Self__NCSE=((__STRING *)str_tmp3__RV4E);
- result__QCSE=FALSE__;
- if ((Self__NCSE->count__SGC == ((__STRING *)str_tmp2__RR4E)->count__SGC)) {
- result__QCSE=((Self__NCSE->count__SGC == 0) || fast_memcmp__until__FYYB(Self__NCSE->storage__3CS,((__STRING *)str_tmp2__RR4E)->storage__3CS,Self__NCSE->count__SGC));
- };
- __tmp__3V4E=(! result__QCSE);
- } else {
- __tmp__3V4E=FALSE__;
- };
- if (__tmp__3V4E) {
- i__LP4E=(__INTEGER)(i__LP4E + 1);
- goto while_do__H23F;
- };
- };
- if ((i__LP4E <= ((__FAST_ARRAYoITM_SLOTo *)list_tmp__YNTD)->parent_arrayed_collection__XNTD.upper__UOTD)) {
- put__to__like__X4XD(str_tmp2__RR4E,str_tmp__PP4E,(&__string_137));
- } else {
- put__to__like__X4XD(str_tmp2__RR4E,str_tmp__PP4E,(&__string_136));
- };
- };
- stat__IP4E=old_stat__JP4E;
- } else {
- Self__KVHH=((__STRING *)str_tmp2__RR4E);
- new_capacity__JVHH= 0;
- if ((Self__KVHH->capacity__UCS <= Self__KVHH->count__SGC)) {
- if ((Self__KVHH->capacity__UCS == 0)) {
- Self__KVHH->capacity__UCS= 32;
- Self__KVHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__JVHH=(__INTEGER)(Self__KVHH->capacity__UCS << 1);
- Self__LVHH=((__CHARACTER *)Self__KVHH->storage__3CS);
- old_nb_elts__MVHH=Self__KVHH->capacity__UCS;
- new__NVHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__LVHH),((__UINTEGER_32 )old_nb_elts__MVHH),((__UINTEGER_32 )new_capacity__JVHH)));
- upper__4MJH=(__INTEGER)(new_capacity__JVHH - 1);
- Self__2MJH=old_nb_elts__MVHH;
- while ((Self__2MJH <= upper__4MJH)) {
- new__NVHH[Self__2MJH]='\0';
- Self__2MJH=(__INTEGER)(Self__2MJH + 1);
- };
- Self__KVHH->storage__3CS=new__NVHH;
- Self__KVHH->capacity__UCS=new_capacity__JVHH;
- };
- };
- ((__CHARACTER *)Self__KVHH->storage__3CS)[Self__KVHH->count__SGC]=car__KP4E;
- Self__KVHH->count__SGC=(__INTEGER)(Self__KVHH->count__SGC + 1);
- };
- };
- if ((__tmp__5P4E == 3)) {
- if ((car__KP4E == '*')) {
- if ((((__STRING *)str_tmp__PP4E)->count__SGC > 1)) {
- put__to__like__X4XD(str_tmp__PP4E,buf__FP4E,code_balise__NP4E);
- };
- ((__STRING *)str_tmp__PP4E)->count__SGC= 0;
- stat__IP4E= 1;
- __tmp__3X4E=TRUE__;
- } else {
- __tmp__3X4E=FALSE__;
- };
- if ((! __tmp__3X4E)) {
- if ((car__KP4E == '`')) {
- old_stat__JP4E=stat__IP4E;
- stat__IP4E= 2;
- ((__STRING *)str_tmp2__RR4E)->count__SGC= 0;
- } else {
- Self__QVHH=((__STRING *)str_tmp__PP4E);
- new_capacity__PVHH= 0;
- if ((Self__QVHH->capacity__UCS <= Self__QVHH->count__SGC)) {
- if ((Self__QVHH->capacity__UCS == 0)) {
- Self__QVHH->capacity__UCS= 32;
- Self__QVHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__PVHH=(__INTEGER)(Self__QVHH->capacity__UCS << 1);
- Self__RVHH=((__CHARACTER *)Self__QVHH->storage__3CS);
- old_nb_elts__SVHH=Self__QVHH->capacity__UCS;
- new__TVHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__RVHH),((__UINTEGER_32 )old_nb_elts__SVHH),((__UINTEGER_32 )new_capacity__PVHH)));
- upper__DNJH=(__INTEGER)(new_capacity__PVHH - 1);
- Self__BNJH=old_nb_elts__SVHH;
- while ((Self__BNJH <= upper__DNJH)) {
- new__TVHH[Self__BNJH]='\0';
- Self__BNJH=(__INTEGER)(Self__BNJH + 1);
- };
- Self__QVHH->storage__3CS=new__TVHH;
- Self__QVHH->capacity__UCS=new_capacity__PVHH;
- };
- };
- ((__CHARACTER *)Self__QVHH->storage__3CS)[Self__QVHH->count__SGC]=car__KP4E;
- Self__QVHH->count__SGC=(__INTEGER)(Self__QVHH->count__SGC + 1);
- };
- };
- };
- cur__HP4E=(__INTEGER)(cur__HP4E + 1);
- };
- if ((((__STRING *)str_tmp__PP4E)->count__SGC > 1)) {
- if (is_light__GP4E) {
- append__3OS(buf__FP4E,str_tmp__PP4E);
- } else {
- if ((stat__IP4E == 0)) {
- put__to__like__X4XD((&__string_247),buf__FP4E,(&__string_148));
- };
- put__to__like__X4XD(str_tmp__PP4E,buf__FP4E,code_balise__NP4E);
- };
- };
-}
-
-static void append_in__5KH(__UINTEGER_32 Self__ALH,void *buffer__BLH)
-// ({UINTEGER_32},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
- __UINTEGER_32 val__CLH;
- __INTEGER i__FLH,j__GLH,new_capacity__VVHH,old_nb_elts__YVHH;
- __INTEGER upper__INJH,Self__GNJH,new_capacity__1VHH,old_nb_elts__4VHH;
- __INTEGER upper__NNJH,Self__LNJH;
- __STRING *Self__WVHH,*Self__2VHH,*Self__F1GH;
- __CHARACTER *Self__XVHH,*new__ZVHH,*Self__3VHH,*new__5VHH;
- __CHARACTER ch__AWHH,tmp__H1GH;
- val__CLH= 0;
- i__FLH= 0;
- j__GLH= 0;
- if ((Self__ALH == 0)) {
- Self__WVHH=((__STRING *)buffer__BLH);
- new_capacity__VVHH= 0;
- if ((Self__WVHH->capacity__UCS <= Self__WVHH->count__SGC)) {
- if ((Self__WVHH->capacity__UCS == 0)) {
- Self__WVHH->capacity__UCS= 32;
- Self__WVHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__VVHH=(__INTEGER)(Self__WVHH->capacity__UCS << 1);
- Self__XVHH=((__CHARACTER *)Self__WVHH->storage__3CS);
- old_nb_elts__YVHH=Self__WVHH->capacity__UCS;
- new__ZVHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__XVHH),((__UINTEGER_32 )old_nb_elts__YVHH),((__UINTEGER_32 )new_capacity__VVHH)));
- upper__INJH=(__INTEGER)(new_capacity__VVHH - 1);
- Self__GNJH=old_nb_elts__YVHH;
- while ((Self__GNJH <= upper__INJH)) {
- new__ZVHH[Self__GNJH]='\0';
- Self__GNJH=(__INTEGER)(Self__GNJH + 1);
- };
- Self__WVHH->storage__3CS=new__ZVHH;
- Self__WVHH->capacity__UCS=new_capacity__VVHH;
- };
- };
- ((__CHARACTER *)Self__WVHH->storage__3CS)[Self__WVHH->count__SGC]='0';
- Self__WVHH->count__SGC=(__INTEGER)(Self__WVHH->count__SGC + 1);
- } else {
- i__FLH=(__INTEGER)(((__STRING *)buffer__BLH)->count__SGC + 1);
- val__CLH=Self__ALH;
- while ((val__CLH != 0)) {
- Self__2VHH=((__STRING *)buffer__BLH);
- ch__AWHH=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__UINTEGER_32)(val__CLH % 10)) + ((__INTEGER_8 )'0')))));
- new_capacity__1VHH= 0;
- if ((Self__2VHH->capacity__UCS <= Self__2VHH->count__SGC)) {
- if ((Self__2VHH->capacity__UCS == 0)) {
- Self__2VHH->capacity__UCS= 32;
- Self__2VHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__1VHH=(__INTEGER)(Self__2VHH->capacity__UCS << 1);
- Self__3VHH=((__CHARACTER *)Self__2VHH->storage__3CS);
- old_nb_elts__4VHH=Self__2VHH->capacity__UCS;
- new__5VHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__3VHH),((__UINTEGER_32 )old_nb_elts__4VHH),((__UINTEGER_32 )new_capacity__1VHH)));
- upper__NNJH=(__INTEGER)(new_capacity__1VHH - 1);
- Self__LNJH=old_nb_elts__4VHH;
- while ((Self__LNJH <= upper__NNJH)) {
- new__5VHH[Self__LNJH]='\0';
- Self__LNJH=(__INTEGER)(Self__LNJH + 1);
- };
- Self__2VHH->storage__3CS=new__5VHH;
- Self__2VHH->capacity__UCS=new_capacity__1VHH;
- };
- };
- ((__CHARACTER *)Self__2VHH->storage__3CS)[Self__2VHH->count__SGC]=ch__AWHH;
- Self__2VHH->count__SGC=(__INTEGER)(Self__2VHH->count__SGC + 1);
- val__CLH=(__UINTEGER_32)(val__CLH / 10);
- };
- j__GLH=((__STRING *)buffer__BLH)->count__SGC;
- while ((i__FLH < j__GLH)) {
- Self__F1GH=((__STRING *)buffer__BLH);
- tmp__H1GH=((__CHARACTER *)Self__F1GH->storage__3CS)[(__INTEGER)(i__FLH - 1)];
- ((__CHARACTER *)Self__F1GH->storage__3CS)[(__INTEGER)(i__FLH - 1)]=((__CHARACTER *)Self__F1GH->storage__3CS)[(__INTEGER)(j__GLH - 1)];
- ((__CHARACTER *)Self__F1GH->storage__3CS)[(__INTEGER)(j__GLH - 1)]=tmp__H1GH;
- j__GLH=(__INTEGER)(j__GLH - 1);
- i__FLH=(__INTEGER)(i__FLH + 1);
- };
- };
-}
-
-static void append_in__S14F(__SECTION_ *Self__T14F,void *buf__U14F)
-// ({SECTION_},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
- __INTEGER __tmp__H24F,Self__XSDG,new_capacity__DWHH,old_nb_elts__GWHH;
- __INTEGER upper__SNJH,Self__QNJH,new_capacity__JWHH,old_nb_elts__MWHH;
- __INTEGER upper__XNJH,Self__VNJH,new_capacity__PWHH,old_nb_elts__SWHH;
- __INTEGER upper__2NJH,Self__0NJH,new_capacity__XWHH,old_nb_elts__0WHH;
- __INTEGER upper__BOJH,Self__5NJH;
- void *__tmp__O24F,*__tmp__R24F;
- __ITM_TYPE_STYLE *Self__CWHH,*Self__WWHH;
- __STRING *Self__EWHH,*Self__KWHH,*Self__QWHH,*Self__YWHH;
- __CHARACTER *Self__FWHH,*new__HWHH,*Self__LWHH,*new__NWHH,*Self__RWHH;
- __CHARACTER *new__TWHH,*Self__ZWHH,*new__1WHH;
- __FAST_ARRAYoITM_TYPE_MONOo *Self__P1GH;
- if (((void *)Self__T14F->name__MYDC != (void *)NULL)) {
- append__3OS(buf__U14F,Self__T14F->name__MYDC);
- } else {
- __tmp__H24F=(__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)Self__T14F->type_list__1WFC)->parent_arrayed_collection__SYC.upper__4HV - 1);
- Self__XSDG= 0;
- while ((Self__XSDG <= __tmp__H24F)) {
- __tmp__O24F=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)Self__T14F->type_list__1WFC)->parent_arrayed_collection__SYC.storage__FMV)[Self__XSDG];
- switch (((struct ___OBJ *)__tmp__O24F)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- append__3OS(buf__U14F,((__ITM_TYPE_PARAMETER *)__tmp__O24F)->parent_itm_type__VFE.name__GZP);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- append__3OS(buf__U14F,((__ITM_TYPE_SIMPLE *)__tmp__O24F)->name__GZP);
- } break;
- case __ITM_TYPE_BLOCK__: {
- append_in__PJPD(__tmp__O24F,buf__U14F);
- } break;
- case __ITM_TYPE_GENERIC__: {
- append_in__TKPD(__tmp__O24F,buf__U14F);
- } break;
- case __ITM_TYPE_STYLE__: {
- Self__CWHH=((__ITM_TYPE_STYLE *)__tmp__O24F);
- if (((void *)Self__CWHH->style__PZP != (void *)NULL)) {
- append__3OS(buf__U14F,Self__CWHH->style__PZP);
- Self__EWHH=((__STRING *)buf__U14F);
- new_capacity__DWHH= 0;
- if ((Self__EWHH->capacity__UCS <= Self__EWHH->count__SGC)) {
- if ((Self__EWHH->capacity__UCS == 0)) {
- Self__EWHH->capacity__UCS= 32;
- Self__EWHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__DWHH=(__INTEGER)(Self__EWHH->capacity__UCS << 1);
- Self__FWHH=((__CHARACTER *)Self__EWHH->storage__3CS);
- old_nb_elts__GWHH=Self__EWHH->capacity__UCS;
- new__HWHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__FWHH),((__UINTEGER_32 )old_nb_elts__GWHH),((__UINTEGER_32 )new_capacity__DWHH)));
- upper__SNJH=(__INTEGER)(new_capacity__DWHH - 1);
- Self__QNJH=old_nb_elts__GWHH;
- while ((Self__QNJH <= upper__SNJH)) {
- new__HWHH[Self__QNJH]='\0';
- Self__QNJH=(__INTEGER)(Self__QNJH + 1);
- };
- Self__EWHH->storage__3CS=new__HWHH;
- Self__EWHH->capacity__UCS=new_capacity__DWHH;
- };
- };
- ((__CHARACTER *)Self__EWHH->storage__3CS)[Self__EWHH->count__SGC]=' ';
- Self__EWHH->count__SGC=(__INTEGER)(Self__EWHH->count__SGC + 1);
- };
- append__3OS(buf__U14F,Self__CWHH->parent_itm_type_simple__3SN.name__GZP);
- } break;
- };
- Self__KWHH=((__STRING *)buf__U14F);
- new_capacity__JWHH= 0;
- if ((Self__KWHH->capacity__UCS <= Self__KWHH->count__SGC)) {
- if ((Self__KWHH->capacity__UCS == 0)) {
- Self__KWHH->capacity__UCS= 32;
- Self__KWHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__JWHH=(__INTEGER)(Self__KWHH->capacity__UCS << 1);
- Self__LWHH=((__CHARACTER *)Self__KWHH->storage__3CS);
- old_nb_elts__MWHH=Self__KWHH->capacity__UCS;
- new__NWHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__LWHH),((__UINTEGER_32 )old_nb_elts__MWHH),((__UINTEGER_32 )new_capacity__JWHH)));
- upper__XNJH=(__INTEGER)(new_capacity__JWHH - 1);
- Self__VNJH=old_nb_elts__MWHH;
- while ((Self__VNJH <= upper__XNJH)) {
- new__NWHH[Self__VNJH]='\0';
- Self__VNJH=(__INTEGER)(Self__VNJH + 1);
- };
- Self__KWHH->storage__3CS=new__NWHH;
- Self__KWHH->capacity__UCS=new_capacity__JWHH;
- };
- };
- ((__CHARACTER *)Self__KWHH->storage__3CS)[Self__KWHH->count__SGC]=',';
- Self__KWHH->count__SGC=(__INTEGER)(Self__KWHH->count__SGC + 1);
- Self__QWHH=((__STRING *)buf__U14F);
- new_capacity__PWHH= 0;
- if ((Self__QWHH->capacity__UCS <= Self__QWHH->count__SGC)) {
- if ((Self__QWHH->capacity__UCS == 0)) {
- Self__QWHH->capacity__UCS= 32;
- Self__QWHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__PWHH=(__INTEGER)(Self__QWHH->capacity__UCS << 1);
- Self__RWHH=((__CHARACTER *)Self__QWHH->storage__3CS);
- old_nb_elts__SWHH=Self__QWHH->capacity__UCS;
- new__TWHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__RWHH),((__UINTEGER_32 )old_nb_elts__SWHH),((__UINTEGER_32 )new_capacity__PWHH)));
- upper__2NJH=(__INTEGER)(new_capacity__PWHH - 1);
- Self__0NJH=old_nb_elts__SWHH;
- while ((Self__0NJH <= upper__2NJH)) {
- new__TWHH[Self__0NJH]='\0';
- Self__0NJH=(__INTEGER)(Self__0NJH + 1);
- };
- Self__QWHH->storage__3CS=new__TWHH;
- Self__QWHH->capacity__UCS=new_capacity__PWHH;
- };
- };
- ((__CHARACTER *)Self__QWHH->storage__3CS)[Self__QWHH->count__SGC]=' ';
- Self__QWHH->count__SGC=(__INTEGER)(Self__QWHH->count__SGC + 1);
- Self__XSDG=(__INTEGER)(Self__XSDG + 1);
- };
- Self__P1GH=((__FAST_ARRAYoITM_TYPE_MONOo *)Self__T14F->type_list__1WFC);
- __tmp__R24F=((void **)Self__P1GH->parent_arrayed_collection__SYC.storage__FMV)[Self__P1GH->parent_arrayed_collection__SYC.upper__4HV];
- switch (((struct ___OBJ *)__tmp__R24F)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- append__3OS(buf__U14F,((__ITM_TYPE_PARAMETER *)__tmp__R24F)->parent_itm_type__VFE.name__GZP);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- append__3OS(buf__U14F,((__ITM_TYPE_SIMPLE *)__tmp__R24F)->name__GZP);
- } break;
- case __ITM_TYPE_BLOCK__: {
- append_in__PJPD(__tmp__R24F,buf__U14F);
- } break;
- case __ITM_TYPE_GENERIC__: {
- append_in__TKPD(__tmp__R24F,buf__U14F);
- } break;
- case __ITM_TYPE_STYLE__: {
- Self__WWHH=((__ITM_TYPE_STYLE *)__tmp__R24F);
- if (((void *)Self__WWHH->style__PZP != (void *)NULL)) {
- append__3OS(buf__U14F,Self__WWHH->style__PZP);
- Self__YWHH=((__STRING *)buf__U14F);
- new_capacity__XWHH= 0;
- if ((Self__YWHH->capacity__UCS <= Self__YWHH->count__SGC)) {
- if ((Self__YWHH->capacity__UCS == 0)) {
- Self__YWHH->capacity__UCS= 32;
- Self__YWHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__XWHH=(__INTEGER)(Self__YWHH->capacity__UCS << 1);
- Self__ZWHH=((__CHARACTER *)Self__YWHH->storage__3CS);
- old_nb_elts__0WHH=Self__YWHH->capacity__UCS;
- new__1WHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__ZWHH),((__UINTEGER_32 )old_nb_elts__0WHH),((__UINTEGER_32 )new_capacity__XWHH)));
- upper__BOJH=(__INTEGER)(new_capacity__XWHH - 1);
- Self__5NJH=old_nb_elts__0WHH;
- while ((Self__5NJH <= upper__BOJH)) {
- new__1WHH[Self__5NJH]='\0';
- Self__5NJH=(__INTEGER)(Self__5NJH + 1);
- };
- Self__YWHH->storage__3CS=new__1WHH;
- Self__YWHH->capacity__UCS=new_capacity__XWHH;
- };
- };
- ((__CHARACTER *)Self__YWHH->storage__3CS)[Self__YWHH->count__SGC]=' ';
- Self__YWHH->count__SGC=(__INTEGER)(Self__YWHH->count__SGC + 1);
- };
- append__3OS(buf__U14F,Self__WWHH->parent_itm_type_simple__3SN.name__GZP);
- } break;
- };
- };
-}
-
-static void shorter_profile_in__U24F(__ITM_SLOT *Self__V24F,void *buf__W24F)
-// ({ITM_SLOT},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
- __INTEGER j__O55F,new_capacity__3WHH,old_nb_elts__AXHH,upper__GOJH;
- __INTEGER Self__EOJH,i__P55F,new_capacity__DXHH,old_nb_elts__GXHH;
- __INTEGER upper__LOJH,Self__JOJH,new_capacity__JXHH,old_nb_elts__MXHH;
- __INTEGER upper__QOJH,Self__OOJH,new_capacity__PXHH,old_nb_elts__SXHH;
- __INTEGER upper__VOJH,Self__TOJH,new_capacity__VXHH,old_nb_elts__YXHH;
- __INTEGER upper__0OJH,Self__YOJH,new_capacity__1XHH,old_nb_elts__4XHH;
- __INTEGER upper__5OJH,Self__3OJH,new_capacity__BYHH,old_nb_elts__EYHH;
- __INTEGER upper__EPJH,Self__CPJH,new_capacity__HYHH,old_nb_elts__KYHH;
- __INTEGER upper__JPJH,Self__HPJH,new_capacity__NYHH,old_nb_elts__QYHH;
- __INTEGER upper__OPJH,Self__MPJH,new_capacity__TYHH,old_nb_elts__WYHH;
- __INTEGER upper__TPJH,Self__RPJH,new_capacity__1YHH,old_nb_elts__4YHH;
- __INTEGER upper__YPJH,Self__WPJH;
- void *__tmp__U55F,*__tmp__2AAG,*__tmp__2BAG;
- __STRING *Self__4WHH,*Self__EXHH,*Self__KXHH,*Self__QXHH,*Self__WXHH;
- __STRING *Self__2XHH,*Self__CYHH,*Self__IYHH,*Self__OYHH,*Self__UYHH;
- __STRING *Self__2YHH;
- __STRING_CONSTANT *Self__4MFH;
- void *__tmp__O34F;
- __ITM_TYPE_MULTI *Self__K51G;
- __ITM_TYPE_STYLE *Self__ZYHH;
- __CHARACTER *Self__5WHH,*new__BXHH,*Self__FXHH,*new__HXHH,*Self__LXHH;
- __CHARACTER *new__NXHH,*Self__RXHH,*new__TXHH,*Self__XXHH,*new__ZXHH;
- __CHARACTER *Self__3XHH,*new__5XHH,*Self__DYHH,*new__FYHH,*Self__JYHH;
- __CHARACTER *new__LYHH,*Self__PYHH,*new__RYHH,*Self__VYHH,*new__XYHH;
- __CHARACTER *Self__3YHH,*new__5YHH;
- __CHARACTER ch__UXHH,ch__0XHH;
- __FAST_ARRAYoITM_ARGUMENTo *Self__S1GH;
- if ((Self__V24F->parent_named__15.style__0FU == '+')) {
- put__to__like__JNBG((&__string_248),buf__W24F,(&__string_132));
- } else {
- put__to__like__JNBG((&__string_249),buf__W24F,(&__string_132));
- };
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- j__O55F= 1;
- __tmp__U55F=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)Self__V24F->argument_list__QDHC)->parent_arrayed_collection__Z5YB.storage__GAHC)[ 0];
- if (((struct ___OBJ *)__tmp__U55F)->__id==__ITM_ARG__) {
- shorter_in__KKBG(__tmp__U55F,buf__W24F);
- } else {
- shorter_in__BLBG(__tmp__U55F,buf__W24F);
- };
- Self__4WHH=((__STRING *)buf__W24F);
- new_capacity__3WHH= 0;
- if ((Self__4WHH->capacity__UCS <= Self__4WHH->count__SGC)) {
- if ((Self__4WHH->capacity__UCS == 0)) {
- Self__4WHH->capacity__UCS= 32;
- Self__4WHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__3WHH=(__INTEGER)(Self__4WHH->capacity__UCS << 1);
- Self__5WHH=((__CHARACTER *)Self__4WHH->storage__3CS);
- old_nb_elts__AXHH=Self__4WHH->capacity__UCS;
- new__BXHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__5WHH),((__UINTEGER_32 )old_nb_elts__AXHH),((__UINTEGER_32 )new_capacity__3WHH)));
- upper__GOJH=(__INTEGER)(new_capacity__3WHH - 1);
- Self__EOJH=old_nb_elts__AXHH;
- while ((Self__EOJH <= upper__GOJH)) {
- new__BXHH[Self__EOJH]='\0';
- Self__EOJH=(__INTEGER)(Self__EOJH + 1);
- };
- Self__4WHH->storage__3CS=new__BXHH;
- Self__4WHH->capacity__UCS=new_capacity__3WHH;
- };
- };
- ((__CHARACTER *)Self__4WHH->storage__3CS)[Self__4WHH->count__SGC]='.';
- Self__4WHH->count__SGC=(__INTEGER)(Self__4WHH->count__SGC + 1);
- i__P55F= 1;
- while ((j__O55F < ((__STRING_CONSTANT *)Self__V24F->parent_named__15.name__LI)->count__DD)) {
- if (((((__CHARACTER *)((__STRING_CONSTANT *)Self__V24F->parent_named__15.name__LI)->storage__RRO)[(__INTEGER)(j__O55F - 1)] == '_') && (((__CHARACTER *)((__STRING_CONSTANT *)Self__V24F->parent_named__15.name__LI)->storage__RRO)[(__INTEGER)((__INTEGER)(j__O55F + 1) - 1)] == '_'))) {
- put__to__like__JNBG(string_tmp__VH,buf__W24F,(&__string_130));
- Self__EXHH=((__STRING *)buf__W24F);
- new_capacity__DXHH= 0;
- if ((Self__EXHH->capacity__UCS <= Self__EXHH->count__SGC)) {
- if ((Self__EXHH->capacity__UCS == 0)) {
- Self__EXHH->capacity__UCS= 32;
- Self__EXHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__DXHH=(__INTEGER)(Self__EXHH->capacity__UCS << 1);
- Self__FXHH=((__CHARACTER *)Self__EXHH->storage__3CS);
- old_nb_elts__GXHH=Self__EXHH->capacity__UCS;
- new__HXHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__FXHH),((__UINTEGER_32 )old_nb_elts__GXHH),((__UINTEGER_32 )new_capacity__DXHH)));
- upper__LOJH=(__INTEGER)(new_capacity__DXHH - 1);
- Self__JOJH=old_nb_elts__GXHH;
- while ((Self__JOJH <= upper__LOJH)) {
- new__HXHH[Self__JOJH]='\0';
- Self__JOJH=(__INTEGER)(Self__JOJH + 1);
- };
- Self__EXHH->storage__3CS=new__HXHH;
- Self__EXHH->capacity__UCS=new_capacity__DXHH;
- };
- };
- ((__CHARACTER *)Self__EXHH->storage__3CS)[Self__EXHH->count__SGC]=' ';
- Self__EXHH->count__SGC=(__INTEGER)(Self__EXHH->count__SGC + 1);
- __tmp__2AAG=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)Self__V24F->argument_list__QDHC)->parent_arrayed_collection__Z5YB.storage__GAHC)[i__P55F];
- if (((struct ___OBJ *)__tmp__2AAG)->__id==__ITM_ARG__) {
- shorter_in__KKBG(__tmp__2AAG,buf__W24F);
- } else {
- shorter_in__BLBG(__tmp__2AAG,buf__W24F);
- };
- Self__KXHH=((__STRING *)buf__W24F);
- new_capacity__JXHH= 0;
- if ((Self__KXHH->capacity__UCS <= Self__KXHH->count__SGC)) {
- if ((Self__KXHH->capacity__UCS == 0)) {
- Self__KXHH->capacity__UCS= 32;
- Self__KXHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__JXHH=(__INTEGER)(Self__KXHH->capacity__UCS << 1);
- Self__LXHH=((__CHARACTER *)Self__KXHH->storage__3CS);
- old_nb_elts__MXHH=Self__KXHH->capacity__UCS;
- new__NXHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__LXHH),((__UINTEGER_32 )old_nb_elts__MXHH),((__UINTEGER_32 )new_capacity__JXHH)));
- upper__QOJH=(__INTEGER)(new_capacity__JXHH - 1);
- Self__OOJH=old_nb_elts__MXHH;
- while ((Self__OOJH <= upper__QOJH)) {
- new__NXHH[Self__OOJH]='\0';
- Self__OOJH=(__INTEGER)(Self__OOJH + 1);
- };
- Self__KXHH->storage__3CS=new__NXHH;
- Self__KXHH->capacity__UCS=new_capacity__JXHH;
- };
- };
- ((__CHARACTER *)Self__KXHH->storage__3CS)[Self__KXHH->count__SGC]=' ';
- Self__KXHH->count__SGC=(__INTEGER)(Self__KXHH->count__SGC + 1);
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- j__O55F=(__INTEGER)(j__O55F + 2);
- i__P55F=(__INTEGER)(i__P55F + 1);
- } else {
- Self__QXHH=((__STRING *)string_tmp__VH);
- ch__UXHH=((__CHARACTER *)((__STRING_CONSTANT *)Self__V24F->parent_named__15.name__LI)->storage__RRO)[(__INTEGER)(j__O55F - 1)];
- new_capacity__PXHH= 0;
- if ((Self__QXHH->capacity__UCS <= Self__QXHH->count__SGC)) {
- if ((Self__QXHH->capacity__UCS == 0)) {
- Self__QXHH->capacity__UCS= 32;
- Self__QXHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__PXHH=(__INTEGER)(Self__QXHH->capacity__UCS << 1);
- Self__RXHH=((__CHARACTER *)Self__QXHH->storage__3CS);
- old_nb_elts__SXHH=Self__QXHH->capacity__UCS;
- new__TXHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__RXHH),((__UINTEGER_32 )old_nb_elts__SXHH),((__UINTEGER_32 )new_capacity__PXHH)));
- upper__VOJH=(__INTEGER)(new_capacity__PXHH - 1);
- Self__TOJH=old_nb_elts__SXHH;
- while ((Self__TOJH <= upper__VOJH)) {
- new__TXHH[Self__TOJH]='\0';
- Self__TOJH=(__INTEGER)(Self__TOJH + 1);
- };
- Self__QXHH->storage__3CS=new__TXHH;
- Self__QXHH->capacity__UCS=new_capacity__PXHH;
- };
- };
- ((__CHARACTER *)Self__QXHH->storage__3CS)[Self__QXHH->count__SGC]=ch__UXHH;
- Self__QXHH->count__SGC=(__INTEGER)(Self__QXHH->count__SGC + 1);
- j__O55F=(__INTEGER)(j__O55F + 1);
- };
- };
- Self__4MFH=((__STRING_CONSTANT *)Self__V24F->parent_named__15.name__LI);
- Self__WXHH=((__STRING *)string_tmp__VH);
- ch__0XHH=((__CHARACTER *)Self__4MFH->storage__RRO)[(__INTEGER)(Self__4MFH->count__DD - 1)];
- new_capacity__VXHH= 0;
- if ((Self__WXHH->capacity__UCS <= Self__WXHH->count__SGC)) {
- if ((Self__WXHH->capacity__UCS == 0)) {
- Self__WXHH->capacity__UCS= 32;
- Self__WXHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__VXHH=(__INTEGER)(Self__WXHH->capacity__UCS << 1);
- Self__XXHH=((__CHARACTER *)Self__WXHH->storage__3CS);
- old_nb_elts__YXHH=Self__WXHH->capacity__UCS;
- new__ZXHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__XXHH),((__UINTEGER_32 )old_nb_elts__YXHH),((__UINTEGER_32 )new_capacity__VXHH)));
- upper__0OJH=(__INTEGER)(new_capacity__VXHH - 1);
- Self__YOJH=old_nb_elts__YXHH;
- while ((Self__YOJH <= upper__0OJH)) {
- new__ZXHH[Self__YOJH]='\0';
- Self__YOJH=(__INTEGER)(Self__YOJH + 1);
- };
- Self__WXHH->storage__3CS=new__ZXHH;
- Self__WXHH->capacity__UCS=new_capacity__VXHH;
- };
- };
- ((__CHARACTER *)Self__WXHH->storage__3CS)[Self__WXHH->count__SGC]=ch__0XHH;
- Self__WXHH->count__SGC=(__INTEGER)(Self__WXHH->count__SGC + 1);
- put__to__like__JNBG(string_tmp__VH,buf__W24F,(&__string_130));
- if ((i__P55F <= ((__FAST_ARRAYoITM_ARGUMENTo *)Self__V24F->argument_list__QDHC)->parent_arrayed_collection__Z5YB.upper__I5GC)) {
- Self__2XHH=((__STRING *)buf__W24F);
- new_capacity__1XHH= 0;
- if ((Self__2XHH->capacity__UCS <= Self__2XHH->count__SGC)) {
- if ((Self__2XHH->capacity__UCS == 0)) {
- Self__2XHH->capacity__UCS= 32;
- Self__2XHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__1XHH=(__INTEGER)(Self__2XHH->capacity__UCS << 1);
- Self__3XHH=((__CHARACTER *)Self__2XHH->storage__3CS);
- old_nb_elts__4XHH=Self__2XHH->capacity__UCS;
- new__5XHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__3XHH),((__UINTEGER_32 )old_nb_elts__4XHH),((__UINTEGER_32 )new_capacity__1XHH)));
- upper__5OJH=(__INTEGER)(new_capacity__1XHH - 1);
- Self__3OJH=old_nb_elts__4XHH;
- while ((Self__3OJH <= upper__5OJH)) {
- new__5XHH[Self__3OJH]='\0';
- Self__3OJH=(__INTEGER)(Self__3OJH + 1);
- };
- Self__2XHH->storage__3CS=new__5XHH;
- Self__2XHH->capacity__UCS=new_capacity__1XHH;
- };
- };
- ((__CHARACTER *)Self__2XHH->storage__3CS)[Self__2XHH->count__SGC]=' ';
- Self__2XHH->count__SGC=(__INTEGER)(Self__2XHH->count__SGC + 1);
- Self__S1GH=((__FAST_ARRAYoITM_ARGUMENTo *)Self__V24F->argument_list__QDHC);
- __tmp__2BAG=((void **)Self__S1GH->parent_arrayed_collection__Z5YB.storage__GAHC)[Self__S1GH->parent_arrayed_collection__Z5YB.upper__I5GC];
- if (((struct ___OBJ *)__tmp__2BAG)->__id==__ITM_ARG__) {
- shorter_in__KKBG(__tmp__2BAG,buf__W24F);
- } else {
- shorter_in__BLBG(__tmp__2BAG,buf__W24F);
- };
- Self__CYHH=((__STRING *)buf__W24F);
- new_capacity__BYHH= 0;
- if ((Self__CYHH->capacity__UCS <= Self__CYHH->count__SGC)) {
- if ((Self__CYHH->capacity__UCS == 0)) {
- Self__CYHH->capacity__UCS= 32;
- Self__CYHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__BYHH=(__INTEGER)(Self__CYHH->capacity__UCS << 1);
- Self__DYHH=((__CHARACTER *)Self__CYHH->storage__3CS);
- old_nb_elts__EYHH=Self__CYHH->capacity__UCS;
- new__FYHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__DYHH),((__UINTEGER_32 )old_nb_elts__EYHH),((__UINTEGER_32 )new_capacity__BYHH)));
- upper__EPJH=(__INTEGER)(new_capacity__BYHH - 1);
- Self__CPJH=old_nb_elts__EYHH;
- while ((Self__CPJH <= upper__EPJH)) {
- new__FYHH[Self__CPJH]='\0';
- Self__CPJH=(__INTEGER)(Self__CPJH + 1);
- };
- Self__CYHH->storage__3CS=new__FYHH;
- Self__CYHH->capacity__UCS=new_capacity__BYHH;
- };
- };
- ((__CHARACTER *)Self__CYHH->storage__3CS)[Self__CYHH->count__SGC]=' ';
- Self__CYHH->count__SGC=(__INTEGER)(Self__CYHH->count__SGC + 1);
- };
- if (((void *)Self__V24F->result_type__A4FC != (void *)type_void__WYF)) {
- Self__IYHH=((__STRING *)buf__W24F);
- new_capacity__HYHH= 0;
- if ((Self__IYHH->capacity__UCS <= Self__IYHH->count__SGC)) {
- if ((Self__IYHH->capacity__UCS == 0)) {
- Self__IYHH->capacity__UCS= 32;
- Self__IYHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__HYHH=(__INTEGER)(Self__IYHH->capacity__UCS << 1);
- Self__JYHH=((__CHARACTER *)Self__IYHH->storage__3CS);
- old_nb_elts__KYHH=Self__IYHH->capacity__UCS;
- new__LYHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__JYHH),((__UINTEGER_32 )old_nb_elts__KYHH),((__UINTEGER_32 )new_capacity__HYHH)));
- upper__JPJH=(__INTEGER)(new_capacity__HYHH - 1);
- Self__HPJH=old_nb_elts__KYHH;
- while ((Self__HPJH <= upper__JPJH)) {
- new__LYHH[Self__HPJH]='\0';
- Self__HPJH=(__INTEGER)(Self__HPJH + 1);
- };
- Self__IYHH->storage__3CS=new__LYHH;
- Self__IYHH->capacity__UCS=new_capacity__HYHH;
- };
- };
- ((__CHARACTER *)Self__IYHH->storage__3CS)[Self__IYHH->count__SGC]=':';
- Self__IYHH->count__SGC=(__INTEGER)(Self__IYHH->count__SGC + 1);
- __tmp__O34F=Self__V24F->result_type__A4FC;
- switch (((struct ___OBJ *)__tmp__O34F)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- shorter_in__0TDG(__tmp__O34F,buf__W24F);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- shorter_in__LUDG(__tmp__O34F,buf__W24F);
- } break;
- case __ITM_TYPE_MULTI__: {
- Self__K51G=((__ITM_TYPE_MULTI *)__tmp__O34F);
- Self__OYHH=((__STRING *)buf__W24F);
- new_capacity__NYHH= 0;
- if ((Self__OYHH->capacity__UCS <= Self__OYHH->count__SGC)) {
- if ((Self__OYHH->capacity__UCS == 0)) {
- Self__OYHH->capacity__UCS= 32;
- Self__OYHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__NYHH=(__INTEGER)(Self__OYHH->capacity__UCS << 1);
- Self__PYHH=((__CHARACTER *)Self__OYHH->storage__3CS);
- old_nb_elts__QYHH=Self__OYHH->capacity__UCS;
- new__RYHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__PYHH),((__UINTEGER_32 )old_nb_elts__QYHH),((__UINTEGER_32 )new_capacity__NYHH)));
- upper__OPJH=(__INTEGER)(new_capacity__NYHH - 1);
- Self__MPJH=old_nb_elts__QYHH;
- while ((Self__MPJH <= upper__OPJH)) {
- new__RYHH[Self__MPJH]='\0';
- Self__MPJH=(__INTEGER)(Self__MPJH + 1);
- };
- Self__OYHH->storage__3CS=new__RYHH;
- Self__OYHH->capacity__UCS=new_capacity__NYHH;
- };
- };
- ((__CHARACTER *)Self__OYHH->storage__3CS)[Self__OYHH->count__SGC]='(';
- Self__OYHH->count__SGC=(__INTEGER)(Self__OYHH->count__SGC + 1);
- shorter_raw_in__M2FG(Self__K51G,buf__W24F);
- Self__UYHH=((__STRING *)buf__W24F);
- new_capacity__TYHH= 0;
- if ((Self__UYHH->capacity__UCS <= Self__UYHH->count__SGC)) {
- if ((Self__UYHH->capacity__UCS == 0)) {
- Self__UYHH->capacity__UCS= 32;
- Self__UYHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__TYHH=(__INTEGER)(Self__UYHH->capacity__UCS << 1);
- Self__VYHH=((__CHARACTER *)Self__UYHH->storage__3CS);
- old_nb_elts__WYHH=Self__UYHH->capacity__UCS;
- new__XYHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__VYHH),((__UINTEGER_32 )old_nb_elts__WYHH),((__UINTEGER_32 )new_capacity__TYHH)));
- upper__TPJH=(__INTEGER)(new_capacity__TYHH - 1);
- Self__RPJH=old_nb_elts__WYHH;
- while ((Self__RPJH <= upper__TPJH)) {
- new__XYHH[Self__RPJH]='\0';
- Self__RPJH=(__INTEGER)(Self__RPJH + 1);
- };
- Self__UYHH->storage__3CS=new__XYHH;
- Self__UYHH->capacity__UCS=new_capacity__TYHH;
- };
- };
- ((__CHARACTER *)Self__UYHH->storage__3CS)[Self__UYHH->count__SGC]=')';
- Self__UYHH->count__SGC=(__INTEGER)(Self__UYHH->count__SGC + 1);
- } break;
- case __ITM_TYPE_BLOCK__: {
- shorter_in__2UDG(__tmp__O34F,buf__W24F);
- } break;
- case __ITM_TYPE_GENERIC__: {
- shorter_in__EWDG(__tmp__O34F,buf__W24F);
- } break;
- case __ITM_TYPE_STYLE__: {
- Self__ZYHH=((__ITM_TYPE_STYLE *)__tmp__O34F);
- if (((void *)Self__ZYHH->style__PZP != (void *)NULL)) {
- put__to__like__I0FG(Self__ZYHH->style__PZP,buf__W24F,(&__string_119));
- Self__2YHH=((__STRING *)buf__W24F);
- new_capacity__1YHH= 0;
- if ((Self__2YHH->capacity__UCS <= Self__2YHH->count__SGC)) {
- if ((Self__2YHH->capacity__UCS == 0)) {
- Self__2YHH->capacity__UCS= 32;
- Self__2YHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__1YHH=(__INTEGER)(Self__2YHH->capacity__UCS << 1);
- Self__3YHH=((__CHARACTER *)Self__2YHH->storage__3CS);
- old_nb_elts__4YHH=Self__2YHH->capacity__UCS;
- new__5YHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__3YHH),((__UINTEGER_32 )old_nb_elts__4YHH),((__UINTEGER_32 )new_capacity__1YHH)));
- upper__YPJH=(__INTEGER)(new_capacity__1YHH - 1);
- Self__WPJH=old_nb_elts__4YHH;
- while ((Self__WPJH <= upper__YPJH)) {
- new__5YHH[Self__WPJH]='\0';
- Self__WPJH=(__INTEGER)(Self__WPJH + 1);
- };
- Self__2YHH->storage__3CS=new__5YHH;
- Self__2YHH->capacity__UCS=new_capacity__1YHH;
- };
- };
- ((__CHARACTER *)Self__2YHH->storage__3CS)[Self__2YHH->count__SGC]=' ';
- Self__2YHH->count__SGC=(__INTEGER)(Self__2YHH->count__SGC + 1);
- };
- put__to__like__I0FG(Self__ZYHH->parent_itm_type_simple__3SN.name__GZP,buf__W24F,(&__string_125));
- } break;
- };
- };
-}
-
-static void shorter_profile_in__R34F(__ITM_SLOT_OPERATOR *Self__S34F,void *buf__T34F)
-// ({ITM_SLOT_OPERATOR},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
- void *__tmp__4CAG,*__tmp__TDAG,*__tmp__JEAG,*__tmp__TEAG;
- __STRING *Self__CZHH,*Self__IZHH,*Self__OZHH,*Self__UZHH,*Self__0ZHH;
- __STRING *Self__A0HH,*Self__G0HH,*Self__M0HH,*Self__S0HH,*Self__Y0HH;
- __STRING *Self__40HH,*Self__E1HH,*Self__LVFB,*Self__K1HH,*Self__Q1HH;
- __STRING *Self__W1HH,*Self__21HH,*Self__C2HH,*Self__I2HH,*Self__O2HH;
- __STRING *Self__U2HH,*Self__02HH,*Self__C3HH;
- __INTEGER new_capacity__BZHH,old_nb_elts__EZHH,upper__3PJH,Self__1PJH;
- __INTEGER new_capacity__HZHH,old_nb_elts__KZHH,upper__CQJH,Self__AQJH;
- __INTEGER new_capacity__NZHH,old_nb_elts__QZHH,upper__HQJH,Self__FQJH;
- __INTEGER new_capacity__TZHH,old_nb_elts__WZHH,upper__MQJH,Self__KQJH;
- __INTEGER new_capacity__ZZHH,old_nb_elts__2ZHH,upper__RQJH,Self__PQJH;
- __INTEGER new_capacity__5ZHH,old_nb_elts__C0HH,upper__WQJH,Self__UQJH;
- __INTEGER new_capacity__F0HH,old_nb_elts__I0HH,upper__1QJH,Self__ZQJH;
- __INTEGER new_capacity__L0HH,old_nb_elts__O0HH,upper__ARJH,Self__4QJH;
- __INTEGER new_capacity__R0HH,old_nb_elts__U0HH,upper__FRJH,Self__DRJH;
- __INTEGER Self__ZMMG,result__1MMG,i__LOMG,j__MOMG,new_capacity__X0HH;
- __INTEGER old_nb_elts__00HH,upper__KRJH,Self__IRJH,new_capacity__30HH;
- __INTEGER old_nb_elts__A1HH,upper__PRJH,Self__NRJH,new_capacity__D1HH;
- __INTEGER old_nb_elts__G1HH,upper__URJH,Self__SRJH,new_capacity__J1HH;
- __INTEGER old_nb_elts__M1HH,upper__ZRJH,Self__XRJH,new_capacity__P1HH;
- __INTEGER old_nb_elts__S1HH,upper__4RJH,Self__2RJH,new_capacity__V1HH;
- __INTEGER old_nb_elts__Y1HH,upper__DSJH,Self__BSJH,new_capacity__11HH;
- __INTEGER old_nb_elts__41HH,upper__ISJH,Self__GSJH,new_capacity__B2HH;
- __INTEGER old_nb_elts__E2HH,upper__NSJH,Self__LSJH,new_capacity__H2HH;
- __INTEGER old_nb_elts__K2HH,upper__SSJH,Self__QSJH,new_capacity__N2HH;
- __INTEGER old_nb_elts__Q2HH,upper__XSJH,Self__VSJH,new_capacity__T2HH;
- __INTEGER old_nb_elts__W2HH,upper__2SJH,Self__0SJH,new_capacity__Z2HH;
- __INTEGER old_nb_elts__22HH,upper__BTJH,Self__5SJH,new_capacity__B3HH;
- __INTEGER old_nb_elts__E3HH,upper__GTJH,Self__ETJH;
- void *result__XGMG;
- __INTEGER_32 Self__AOMG,val__IOMG;
- void *__tmp__L44F;
- __ITM_TYPE_MULTI *Self__L0DG;
- __ITM_TYPE_STYLE *Self__52HH;
- __CHARACTER *Self__DZHH,*new__FZHH,*Self__JZHH,*new__LZHH,*Self__PZHH;
- __CHARACTER *new__RZHH,*Self__VZHH,*new__XZHH,*Self__1ZHH,*new__3ZHH;
- __CHARACTER *Self__B0HH,*new__D0HH,*Self__H0HH,*new__J0HH,*Self__N0HH;
- __CHARACTER *new__P0HH,*Self__T0HH,*new__V0HH,*Self__Z0HH,*new__10HH;
- __CHARACTER *Self__50HH,*new__B1HH,*Self__F1HH,*new__H1HH,*Self__L1HH;
- __CHARACTER *new__N1HH,*Self__R1HH,*new__T1HH,*Self__X1HH,*new__Z1HH;
- __CHARACTER *Self__31HH,*new__51HH,*Self__D2HH,*new__F2HH,*Self__J2HH;
- __CHARACTER *new__L2HH,*Self__P2HH,*new__R2HH,*Self__V2HH,*new__X2HH;
- __CHARACTER *Self__12HH,*new__32HH,*Self__D3HH,*new__F3HH;
- __BOOLEAN __tmp__DDAG;
- __CHARACTER ch__I1HH,tmp__OVFB;
- if ((Self__S34F->parent_itm_slot__0S5B.parent_named__15.style__0FU == '+')) {
- put__to__like__S0DG((&__string_248),buf__T34F,(&__string_132));
- } else {
- put__to__like__S0DG((&__string_249),buf__T34F,(&__string_132));
- };
- if (has_prefix__OTTF(Self__S34F->parent_itm_slot__0S5B.parent_named__15.name__LI,(&__string_82))) {
- __tmp__4CAG=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)Self__S34F->parent_itm_slot__0S5B.argument_list__QDHC)->parent_arrayed_collection__Z5YB.storage__GAHC)[ 0];
- if (((struct ___OBJ *)__tmp__4CAG)->__id==__ITM_ARG__) {
- shorter_in__KKBG(__tmp__4CAG,buf__T34F);
- } else {
- shorter_in__BLBG(__tmp__4CAG,buf__T34F);
- };
- Self__CZHH=((__STRING *)buf__T34F);
- new_capacity__BZHH= 0;
- if ((Self__CZHH->capacity__UCS <= Self__CZHH->count__SGC)) {
- if ((Self__CZHH->capacity__UCS == 0)) {
- Self__CZHH->capacity__UCS= 32;
- Self__CZHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__BZHH=(__INTEGER)(Self__CZHH->capacity__UCS << 1);
- Self__DZHH=((__CHARACTER *)Self__CZHH->storage__3CS);
- old_nb_elts__EZHH=Self__CZHH->capacity__UCS;
- new__FZHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__DZHH),((__UINTEGER_32 )old_nb_elts__EZHH),((__UINTEGER_32 )new_capacity__BZHH)));
- upper__3PJH=(__INTEGER)(new_capacity__BZHH - 1);
- Self__1PJH=old_nb_elts__EZHH;
- while ((Self__1PJH <= upper__3PJH)) {
- new__FZHH[Self__1PJH]='\0';
- Self__1PJH=(__INTEGER)(Self__1PJH + 1);
- };
- Self__CZHH->storage__3CS=new__FZHH;
- Self__CZHH->capacity__UCS=new_capacity__BZHH;
- };
- };
- ((__CHARACTER *)Self__CZHH->storage__3CS)[Self__CZHH->count__SGC]=' ';
- Self__CZHH->count__SGC=(__INTEGER)(Self__CZHH->count__SGC + 1);
- Self__IZHH=((__STRING *)buf__T34F);
- new_capacity__HZHH= 0;
- if ((Self__IZHH->capacity__UCS <= Self__IZHH->count__SGC)) {
- if ((Self__IZHH->capacity__UCS == 0)) {
- Self__IZHH->capacity__UCS= 32;
- Self__IZHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__HZHH=(__INTEGER)(Self__IZHH->capacity__UCS << 1);
- Self__JZHH=((__CHARACTER *)Self__IZHH->storage__3CS);
- old_nb_elts__KZHH=Self__IZHH->capacity__UCS;
- new__LZHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__JZHH),((__UINTEGER_32 )old_nb_elts__KZHH),((__UINTEGER_32 )new_capacity__HZHH)));
- upper__CQJH=(__INTEGER)(new_capacity__HZHH - 1);
- Self__AQJH=old_nb_elts__KZHH;
- while ((Self__AQJH <= upper__CQJH)) {
- new__LZHH[Self__AQJH]='\0';
- Self__AQJH=(__INTEGER)(Self__AQJH + 1);
- };
- Self__IZHH->storage__3CS=new__LZHH;
- Self__IZHH->capacity__UCS=new_capacity__HZHH;
- };
- };
- ((__CHARACTER *)Self__IZHH->storage__3CS)[Self__IZHH->count__SGC]='\'';
- Self__IZHH->count__SGC=(__INTEGER)(Self__IZHH->count__SGC + 1);
- put__to__like__S0DG(Self__S34F->pretty_name__5ZHC,buf__T34F,(&__string_130));
- Self__OZHH=((__STRING *)buf__T34F);
- new_capacity__NZHH= 0;
- if ((Self__OZHH->capacity__UCS <= Self__OZHH->count__SGC)) {
- if ((Self__OZHH->capacity__UCS == 0)) {
- Self__OZHH->capacity__UCS= 32;
- Self__OZHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__NZHH=(__INTEGER)(Self__OZHH->capacity__UCS << 1);
- Self__PZHH=((__CHARACTER *)Self__OZHH->storage__3CS);
- old_nb_elts__QZHH=Self__OZHH->capacity__UCS;
- new__RZHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__PZHH),((__UINTEGER_32 )old_nb_elts__QZHH),((__UINTEGER_32 )new_capacity__NZHH)));
- upper__HQJH=(__INTEGER)(new_capacity__NZHH - 1);
- Self__FQJH=old_nb_elts__QZHH;
- while ((Self__FQJH <= upper__HQJH)) {
- new__RZHH[Self__FQJH]='\0';
- Self__FQJH=(__INTEGER)(Self__FQJH + 1);
- };
- Self__OZHH->storage__3CS=new__RZHH;
- Self__OZHH->capacity__UCS=new_capacity__NZHH;
- };
- };
- ((__CHARACTER *)Self__OZHH->storage__3CS)[Self__OZHH->count__SGC]='\'';
- Self__OZHH->count__SGC=(__INTEGER)(Self__OZHH->count__SGC + 1);
- Self__UZHH=((__STRING *)buf__T34F);
- new_capacity__TZHH= 0;
- if ((Self__UZHH->capacity__UCS <= Self__UZHH->count__SGC)) {
- if ((Self__UZHH->capacity__UCS == 0)) {
- Self__UZHH->capacity__UCS= 32;
- Self__UZHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__TZHH=(__INTEGER)(Self__UZHH->capacity__UCS << 1);
- Self__VZHH=((__CHARACTER *)Self__UZHH->storage__3CS);
- old_nb_elts__WZHH=Self__UZHH->capacity__UCS;
- new__XZHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__VZHH),((__UINTEGER_32 )old_nb_elts__WZHH),((__UINTEGER_32 )new_capacity__TZHH)));
- upper__MQJH=(__INTEGER)(new_capacity__TZHH - 1);
- Self__KQJH=old_nb_elts__WZHH;
- while ((Self__KQJH <= upper__MQJH)) {
- new__XZHH[Self__KQJH]='\0';
- Self__KQJH=(__INTEGER)(Self__KQJH + 1);
- };
- Self__UZHH->storage__3CS=new__XZHH;
- Self__UZHH->capacity__UCS=new_capacity__TZHH;
- };
- };
- ((__CHARACTER *)Self__UZHH->storage__3CS)[Self__UZHH->count__SGC]=' ';
- Self__UZHH->count__SGC=(__INTEGER)(Self__UZHH->count__SGC + 1);
- __tmp__DDAG=TRUE__;
- } else {
- __tmp__DDAG=FALSE__;
- };
- if ((! __tmp__DDAG)) {
- if (has_prefix__OTTF(Self__S34F->parent_itm_slot__0S5B.parent_named__15.name__LI,(&__string_81))) {
- __tmp__TDAG=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)Self__S34F->parent_itm_slot__0S5B.argument_list__QDHC)->parent_arrayed_collection__Z5YB.storage__GAHC)[ 0];
- if (((struct ___OBJ *)__tmp__TDAG)->__id==__ITM_ARG__) {
- shorter_in__KKBG(__tmp__TDAG,buf__T34F);
- } else {
- shorter_in__BLBG(__tmp__TDAG,buf__T34F);
- };
- Self__0ZHH=((__STRING *)buf__T34F);
- new_capacity__ZZHH= 0;
- if ((Self__0ZHH->capacity__UCS <= Self__0ZHH->count__SGC)) {
- if ((Self__0ZHH->capacity__UCS == 0)) {
- Self__0ZHH->capacity__UCS= 32;
- Self__0ZHH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__ZZHH=(__INTEGER)(Self__0ZHH->capacity__UCS << 1);
- Self__1ZHH=((__CHARACTER *)Self__0ZHH->storage__3CS);
- old_nb_elts__2ZHH=Self__0ZHH->capacity__UCS;
- new__3ZHH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__1ZHH),((__UINTEGER_32 )old_nb_elts__2ZHH),((__UINTEGER_32 )new_capacity__ZZHH)));
- upper__RQJH=(__INTEGER)(new_capacity__ZZHH - 1);
- Self__PQJH=old_nb_elts__2ZHH;
- while ((Self__PQJH <= upper__RQJH)) {
- new__3ZHH[Self__PQJH]='\0';
- Self__PQJH=(__INTEGER)(Self__PQJH + 1);
- };
- Self__0ZHH->storage__3CS=new__3ZHH;
- Self__0ZHH->capacity__UCS=new_capacity__ZZHH;
- };
- };
- ((__CHARACTER *)Self__0ZHH->storage__3CS)[Self__0ZHH->count__SGC]=' ';
- Self__0ZHH->count__SGC=(__INTEGER)(Self__0ZHH->count__SGC + 1);
- Self__A0HH=((__STRING *)buf__T34F);
- new_capacity__5ZHH= 0;
- if ((Self__A0HH->capacity__UCS <= Self__A0HH->count__SGC)) {
- if ((Self__A0HH->capacity__UCS == 0)) {
- Self__A0HH->capacity__UCS= 32;
- Self__A0HH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__5ZHH=(__INTEGER)(Self__A0HH->capacity__UCS << 1);
- Self__B0HH=((__CHARACTER *)Self__A0HH->storage__3CS);
- old_nb_elts__C0HH=Self__A0HH->capacity__UCS;
- new__D0HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__B0HH),((__UINTEGER_32 )old_nb_elts__C0HH),((__UINTEGER_32 )new_capacity__5ZHH)));
- upper__WQJH=(__INTEGER)(new_capacity__5ZHH - 1);
- Self__UQJH=old_nb_elts__C0HH;
- while ((Self__UQJH <= upper__WQJH)) {
- new__D0HH[Self__UQJH]='\0';
- Self__UQJH=(__INTEGER)(Self__UQJH + 1);
- };
- Self__A0HH->storage__3CS=new__D0HH;
- Self__A0HH->capacity__UCS=new_capacity__5ZHH;
- };
- };
- ((__CHARACTER *)Self__A0HH->storage__3CS)[Self__A0HH->count__SGC]='\'';
- Self__A0HH->count__SGC=(__INTEGER)(Self__A0HH->count__SGC + 1);
- put__to__like__S0DG(Self__S34F->pretty_name__5ZHC,buf__T34F,(&__string_130));
- Self__G0HH=((__STRING *)buf__T34F);
- new_capacity__F0HH= 0;
- if ((Self__G0HH->capacity__UCS <= Self__G0HH->count__SGC)) {
- if ((Self__G0HH->capacity__UCS == 0)) {
- Self__G0HH->capacity__UCS= 32;
- Self__G0HH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__F0HH=(__INTEGER)(Self__G0HH->capacity__UCS << 1);
- Self__H0HH=((__CHARACTER *)Self__G0HH->storage__3CS);
- old_nb_elts__I0HH=Self__G0HH->capacity__UCS;
- new__J0HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__H0HH),((__UINTEGER_32 )old_nb_elts__I0HH),((__UINTEGER_32 )new_capacity__F0HH)));
- upper__1QJH=(__INTEGER)(new_capacity__F0HH - 1);
- Self__ZQJH=old_nb_elts__I0HH;
- while ((Self__ZQJH <= upper__1QJH)) {
- new__J0HH[Self__ZQJH]='\0';
- Self__ZQJH=(__INTEGER)(Self__ZQJH + 1);
- };
- Self__G0HH->storage__3CS=new__J0HH;
- Self__G0HH->capacity__UCS=new_capacity__F0HH;
- };
- };
- ((__CHARACTER *)Self__G0HH->storage__3CS)[Self__G0HH->count__SGC]='\'';
- Self__G0HH->count__SGC=(__INTEGER)(Self__G0HH->count__SGC + 1);
- if ((Self__S34F->priority_and_level__UZHC != 0)) {
- Self__M0HH=((__STRING *)buf__T34F);
- new_capacity__L0HH= 0;
- if ((Self__M0HH->capacity__UCS <= Self__M0HH->count__SGC)) {
- if ((Self__M0HH->capacity__UCS == 0)) {
- Self__M0HH->capacity__UCS= 32;
- Self__M0HH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__L0HH=(__INTEGER)(Self__M0HH->capacity__UCS << 1);
- Self__N0HH=((__CHARACTER *)Self__M0HH->storage__3CS);
- old_nb_elts__O0HH=Self__M0HH->capacity__UCS;
- new__P0HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__N0HH),((__UINTEGER_32 )old_nb_elts__O0HH),((__UINTEGER_32 )new_capacity__L0HH)));
- upper__ARJH=(__INTEGER)(new_capacity__L0HH - 1);
- Self__4QJH=old_nb_elts__O0HH;
- while ((Self__4QJH <= upper__ARJH)) {
- new__P0HH[Self__4QJH]='\0';
- Self__4QJH=(__INTEGER)(Self__4QJH + 1);
- };
- Self__M0HH->storage__3CS=new__P0HH;
- Self__M0HH->capacity__UCS=new_capacity__L0HH;
- };
- };
- ((__CHARACTER *)Self__M0HH->storage__3CS)[Self__M0HH->count__SGC]=' ';
- Self__M0HH->count__SGC=(__INTEGER)(Self__M0HH->count__SGC + 1);
- result__XGMG=NULL;
- if ((Self__S34F->priority_and_level__UZHC >= 0)) {
- result__XGMG=(&__string_6);
- } else {
- result__XGMG=(&__string_5);
- };
- put__to__like__S0DG(result__XGMG,buf__T34F,(&__string_119));
- Self__S0HH=((__STRING *)buf__T34F);
- new_capacity__R0HH= 0;
- if ((Self__S0HH->capacity__UCS <= Self__S0HH->count__SGC)) {
- if ((Self__S0HH->capacity__UCS == 0)) {
- Self__S0HH->capacity__UCS= 32;
- Self__S0HH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__R0HH=(__INTEGER)(Self__S0HH->capacity__UCS << 1);
- Self__T0HH=((__CHARACTER *)Self__S0HH->storage__3CS);
- old_nb_elts__U0HH=Self__S0HH->capacity__UCS;
- new__V0HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__T0HH),((__UINTEGER_32 )old_nb_elts__U0HH),((__UINTEGER_32 )new_capacity__R0HH)));
- upper__FRJH=(__INTEGER)(new_capacity__R0HH - 1);
- Self__DRJH=old_nb_elts__U0HH;
- while ((Self__DRJH <= upper__FRJH)) {
- new__V0HH[Self__DRJH]='\0';
- Self__DRJH=(__INTEGER)(Self__DRJH + 1);
- };
- Self__S0HH->storage__3CS=new__V0HH;
- Self__S0HH->capacity__UCS=new_capacity__R0HH;
- };
- };
- ((__CHARACTER *)Self__S0HH->storage__3CS)[Self__S0HH->count__SGC]=' ';
- Self__S0HH->count__SGC=(__INTEGER)(Self__S0HH->count__SGC + 1);
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- Self__ZMMG=Self__S34F->priority_and_level__UZHC;
- result__1MMG= 0;
- if ((Self__ZMMG < 0)) {
- result__1MMG=(__INTEGER)(- Self__ZMMG);
- } else {
- result__1MMG=Self__ZMMG;
- };
- Self__AOMG=((__INTEGER_32 )result__1MMG);
- val__IOMG= 0;
- i__LOMG= 0;
- j__MOMG= 0;
- if ((Self__AOMG == 0)) {
- Self__Y0HH=((__STRING *)string_tmp__VH);
- new_capacity__X0HH= 0;
- if ((Self__Y0HH->capacity__UCS <= Self__Y0HH->count__SGC)) {
- if ((Self__Y0HH->capacity__UCS == 0)) {
- Self__Y0HH->capacity__UCS= 32;
- Self__Y0HH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__X0HH=(__INTEGER)(Self__Y0HH->capacity__UCS << 1);
- Self__Z0HH=((__CHARACTER *)Self__Y0HH->storage__3CS);
- old_nb_elts__00HH=Self__Y0HH->capacity__UCS;
- new__10HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__Z0HH),((__UINTEGER_32 )old_nb_elts__00HH),((__UINTEGER_32 )new_capacity__X0HH)));
- upper__KRJH=(__INTEGER)(new_capacity__X0HH - 1);
- Self__IRJH=old_nb_elts__00HH;
- while ((Self__IRJH <= upper__KRJH)) {
- new__10HH[Self__IRJH]='\0';
- Self__IRJH=(__INTEGER)(Self__IRJH + 1);
- };
- Self__Y0HH->storage__3CS=new__10HH;
- Self__Y0HH->capacity__UCS=new_capacity__X0HH;
- };
- };
- ((__CHARACTER *)Self__Y0HH->storage__3CS)[Self__Y0HH->count__SGC]='0';
- Self__Y0HH->count__SGC=(__INTEGER)(Self__Y0HH->count__SGC + 1);
- } else {
- if ((Self__AOMG > 0)) {
- val__IOMG=Self__AOMG;
- } else {
- val__IOMG=(__INTEGER_32)(- Self__AOMG);
- Self__40HH=((__STRING *)string_tmp__VH);
- new_capacity__30HH= 0;
- if ((Self__40HH->capacity__UCS <= Self__40HH->count__SGC)) {
- if ((Self__40HH->capacity__UCS == 0)) {
- Self__40HH->capacity__UCS= 32;
- Self__40HH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__30HH=(__INTEGER)(Self__40HH->capacity__UCS << 1);
- Self__50HH=((__CHARACTER *)Self__40HH->storage__3CS);
- old_nb_elts__A1HH=Self__40HH->capacity__UCS;
- new__B1HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__50HH),((__UINTEGER_32 )old_nb_elts__A1HH),((__UINTEGER_32 )new_capacity__30HH)));
- upper__PRJH=(__INTEGER)(new_capacity__30HH - 1);
- Self__NRJH=old_nb_elts__A1HH;
- while ((Self__NRJH <= upper__PRJH)) {
- new__B1HH[Self__NRJH]='\0';
- Self__NRJH=(__INTEGER)(Self__NRJH + 1);
- };
- Self__40HH->storage__3CS=new__B1HH;
- Self__40HH->capacity__UCS=new_capacity__30HH;
- };
- };
- ((__CHARACTER *)Self__40HH->storage__3CS)[Self__40HH->count__SGC]='-';
- Self__40HH->count__SGC=(__INTEGER)(Self__40HH->count__SGC + 1);
- };
- i__LOMG=(__INTEGER)(((__STRING *)string_tmp__VH)->count__SGC + 1);
- while ((val__IOMG != 0)) {
- Self__E1HH=((__STRING *)string_tmp__VH);
- ch__I1HH=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER_32)(val__IOMG % 10)) + ((__INTEGER_8 )'0')))));
- new_capacity__D1HH= 0;
- if ((Self__E1HH->capacity__UCS <= Self__E1HH->count__SGC)) {
- if ((Self__E1HH->capacity__UCS == 0)) {
- Self__E1HH->capacity__UCS= 32;
- Self__E1HH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__D1HH=(__INTEGER)(Self__E1HH->capacity__UCS << 1);
- Self__F1HH=((__CHARACTER *)Self__E1HH->storage__3CS);
- old_nb_elts__G1HH=Self__E1HH->capacity__UCS;
- new__H1HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__F1HH),((__UINTEGER_32 )old_nb_elts__G1HH),((__UINTEGER_32 )new_capacity__D1HH)));
- upper__URJH=(__INTEGER)(new_capacity__D1HH - 1);
- Self__SRJH=old_nb_elts__G1HH;
- while ((Self__SRJH <= upper__URJH)) {
- new__H1HH[Self__SRJH]='\0';
- Self__SRJH=(__INTEGER)(Self__SRJH + 1);
- };
- Self__E1HH->storage__3CS=new__H1HH;
- Self__E1HH->capacity__UCS=new_capacity__D1HH;
- };
- };
- ((__CHARACTER *)Self__E1HH->storage__3CS)[Self__E1HH->count__SGC]=ch__I1HH;
- Self__E1HH->count__SGC=(__INTEGER)(Self__E1HH->count__SGC + 1);
- val__IOMG=(__INTEGER_32)(val__IOMG / 10);
- };
- j__MOMG=((__STRING *)string_tmp__VH)->count__SGC;
- while ((i__LOMG < j__MOMG)) {
- Self__LVFB=((__STRING *)string_tmp__VH);
- tmp__OVFB=((__CHARACTER *)Self__LVFB->storage__3CS)[(__INTEGER)(i__LOMG - 1)];
- ((__CHARACTER *)Self__LVFB->storage__3CS)[(__INTEGER)(i__LOMG - 1)]=((__CHARACTER *)Self__LVFB->storage__3CS)[(__INTEGER)(j__MOMG - 1)];
- ((__CHARACTER *)Self__LVFB->storage__3CS)[(__INTEGER)(j__MOMG - 1)]=tmp__OVFB;
- j__MOMG=(__INTEGER)(j__MOMG - 1);
- i__LOMG=(__INTEGER)(i__LOMG + 1);
- };
- };
- put__to__like__S0DG(string_tmp__VH,buf__T34F,(&__string_119));
- };
- Self__K1HH=((__STRING *)buf__T34F);
- new_capacity__J1HH= 0;
- if ((Self__K1HH->capacity__UCS <= Self__K1HH->count__SGC)) {
- if ((Self__K1HH->capacity__UCS == 0)) {
- Self__K1HH->capacity__UCS= 32;
- Self__K1HH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__J1HH=(__INTEGER)(Self__K1HH->capacity__UCS << 1);
- Self__L1HH=((__CHARACTER *)Self__K1HH->storage__3CS);
- old_nb_elts__M1HH=Self__K1HH->capacity__UCS;
- new__N1HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__L1HH),((__UINTEGER_32 )old_nb_elts__M1HH),((__UINTEGER_32 )new_capacity__J1HH)));
- upper__ZRJH=(__INTEGER)(new_capacity__J1HH - 1);
- Self__XRJH=old_nb_elts__M1HH;
- while ((Self__XRJH <= upper__ZRJH)) {
- new__N1HH[Self__XRJH]='\0';
- Self__XRJH=(__INTEGER)(Self__XRJH + 1);
- };
- Self__K1HH->storage__3CS=new__N1HH;
- Self__K1HH->capacity__UCS=new_capacity__J1HH;
- };
- };
- ((__CHARACTER *)Self__K1HH->storage__3CS)[Self__K1HH->count__SGC]=' ';
- Self__K1HH->count__SGC=(__INTEGER)(Self__K1HH->count__SGC + 1);
- __tmp__JEAG=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)Self__S34F->parent_itm_slot__0S5B.argument_list__QDHC)->parent_arrayed_collection__Z5YB.storage__GAHC)[ 1];
- if (((struct ___OBJ *)__tmp__JEAG)->__id==__ITM_ARG__) {
- shorter_in__KKBG(__tmp__JEAG,buf__T34F);
- } else {
- shorter_in__BLBG(__tmp__JEAG,buf__T34F);
- };
- Self__Q1HH=((__STRING *)buf__T34F);
- new_capacity__P1HH= 0;
- if ((Self__Q1HH->capacity__UCS <= Self__Q1HH->count__SGC)) {
- if ((Self__Q1HH->capacity__UCS == 0)) {
- Self__Q1HH->capacity__UCS= 32;
- Self__Q1HH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__P1HH=(__INTEGER)(Self__Q1HH->capacity__UCS << 1);
- Self__R1HH=((__CHARACTER *)Self__Q1HH->storage__3CS);
- old_nb_elts__S1HH=Self__Q1HH->capacity__UCS;
- new__T1HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__R1HH),((__UINTEGER_32 )old_nb_elts__S1HH),((__UINTEGER_32 )new_capacity__P1HH)));
- upper__4RJH=(__INTEGER)(new_capacity__P1HH - 1);
- Self__2RJH=old_nb_elts__S1HH;
- while ((Self__2RJH <= upper__4RJH)) {
- new__T1HH[Self__2RJH]='\0';
- Self__2RJH=(__INTEGER)(Self__2RJH + 1);
- };
- Self__Q1HH->storage__3CS=new__T1HH;
- Self__Q1HH->capacity__UCS=new_capacity__P1HH;
- };
- };
- ((__CHARACTER *)Self__Q1HH->storage__3CS)[Self__Q1HH->count__SGC]=' ';
- Self__Q1HH->count__SGC=(__INTEGER)(Self__Q1HH->count__SGC + 1);
- } else {
- Self__W1HH=((__STRING *)buf__T34F);
- new_capacity__V1HH= 0;
- if ((Self__W1HH->capacity__UCS <= Self__W1HH->count__SGC)) {
- if ((Self__W1HH->capacity__UCS == 0)) {
- Self__W1HH->capacity__UCS= 32;
- Self__W1HH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__V1HH=(__INTEGER)(Self__W1HH->capacity__UCS << 1);
- Self__X1HH=((__CHARACTER *)Self__W1HH->storage__3CS);
- old_nb_elts__Y1HH=Self__W1HH->capacity__UCS;
- new__Z1HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__X1HH),((__UINTEGER_32 )old_nb_elts__Y1HH),((__UINTEGER_32 )new_capacity__V1HH)));
- upper__DSJH=(__INTEGER)(new_capacity__V1HH - 1);
- Self__BSJH=old_nb_elts__Y1HH;
- while ((Self__BSJH <= upper__DSJH)) {
- new__Z1HH[Self__BSJH]='\0';
- Self__BSJH=(__INTEGER)(Self__BSJH + 1);
- };
- Self__W1HH->storage__3CS=new__Z1HH;
- Self__W1HH->capacity__UCS=new_capacity__V1HH;
- };
- };
- ((__CHARACTER *)Self__W1HH->storage__3CS)[Self__W1HH->count__SGC]='\'';
- Self__W1HH->count__SGC=(__INTEGER)(Self__W1HH->count__SGC + 1);
- put__to__like__S0DG(Self__S34F->pretty_name__5ZHC,buf__T34F,(&__string_130));
- Self__21HH=((__STRING *)buf__T34F);
- new_capacity__11HH= 0;
- if ((Self__21HH->capacity__UCS <= Self__21HH->count__SGC)) {
- if ((Self__21HH->capacity__UCS == 0)) {
- Self__21HH->capacity__UCS= 32;
- Self__21HH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__11HH=(__INTEGER)(Self__21HH->capacity__UCS << 1);
- Self__31HH=((__CHARACTER *)Self__21HH->storage__3CS);
- old_nb_elts__41HH=Self__21HH->capacity__UCS;
- new__51HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__31HH),((__UINTEGER_32 )old_nb_elts__41HH),((__UINTEGER_32 )new_capacity__11HH)));
- upper__ISJH=(__INTEGER)(new_capacity__11HH - 1);
- Self__GSJH=old_nb_elts__41HH;
- while ((Self__GSJH <= upper__ISJH)) {
- new__51HH[Self__GSJH]='\0';
- Self__GSJH=(__INTEGER)(Self__GSJH + 1);
- };
- Self__21HH->storage__3CS=new__51HH;
- Self__21HH->capacity__UCS=new_capacity__11HH;
- };
- };
- ((__CHARACTER *)Self__21HH->storage__3CS)[Self__21HH->count__SGC]='\'';
- Self__21HH->count__SGC=(__INTEGER)(Self__21HH->count__SGC + 1);
- Self__C2HH=((__STRING *)buf__T34F);
- new_capacity__B2HH= 0;
- if ((Self__C2HH->capacity__UCS <= Self__C2HH->count__SGC)) {
- if ((Self__C2HH->capacity__UCS == 0)) {
- Self__C2HH->capacity__UCS= 32;
- Self__C2HH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__B2HH=(__INTEGER)(Self__C2HH->capacity__UCS << 1);
- Self__D2HH=((__CHARACTER *)Self__C2HH->storage__3CS);
- old_nb_elts__E2HH=Self__C2HH->capacity__UCS;
- new__F2HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__D2HH),((__UINTEGER_32 )old_nb_elts__E2HH),((__UINTEGER_32 )new_capacity__B2HH)));
- upper__NSJH=(__INTEGER)(new_capacity__B2HH - 1);
- Self__LSJH=old_nb_elts__E2HH;
- while ((Self__LSJH <= upper__NSJH)) {
- new__F2HH[Self__LSJH]='\0';
- Self__LSJH=(__INTEGER)(Self__LSJH + 1);
- };
- Self__C2HH->storage__3CS=new__F2HH;
- Self__C2HH->capacity__UCS=new_capacity__B2HH;
- };
- };
- ((__CHARACTER *)Self__C2HH->storage__3CS)[Self__C2HH->count__SGC]=' ';
- Self__C2HH->count__SGC=(__INTEGER)(Self__C2HH->count__SGC + 1);
- __tmp__TEAG=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)Self__S34F->parent_itm_slot__0S5B.argument_list__QDHC)->parent_arrayed_collection__Z5YB.storage__GAHC)[ 0];
- if (((struct ___OBJ *)__tmp__TEAG)->__id==__ITM_ARG__) {
- shorter_in__KKBG(__tmp__TEAG,buf__T34F);
- } else {
- shorter_in__BLBG(__tmp__TEAG,buf__T34F);
- };
- Self__I2HH=((__STRING *)buf__T34F);
- new_capacity__H2HH= 0;
- if ((Self__I2HH->capacity__UCS <= Self__I2HH->count__SGC)) {
- if ((Self__I2HH->capacity__UCS == 0)) {
- Self__I2HH->capacity__UCS= 32;
- Self__I2HH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__H2HH=(__INTEGER)(Self__I2HH->capacity__UCS << 1);
- Self__J2HH=((__CHARACTER *)Self__I2HH->storage__3CS);
- old_nb_elts__K2HH=Self__I2HH->capacity__UCS;
- new__L2HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__J2HH),((__UINTEGER_32 )old_nb_elts__K2HH),((__UINTEGER_32 )new_capacity__H2HH)));
- upper__SSJH=(__INTEGER)(new_capacity__H2HH - 1);
- Self__QSJH=old_nb_elts__K2HH;
- while ((Self__QSJH <= upper__SSJH)) {
- new__L2HH[Self__QSJH]='\0';
- Self__QSJH=(__INTEGER)(Self__QSJH + 1);
- };
- Self__I2HH->storage__3CS=new__L2HH;
- Self__I2HH->capacity__UCS=new_capacity__H2HH;
- };
- };
- ((__CHARACTER *)Self__I2HH->storage__3CS)[Self__I2HH->count__SGC]=' ';
- Self__I2HH->count__SGC=(__INTEGER)(Self__I2HH->count__SGC + 1);
- };
- };
- if (((void *)Self__S34F->parent_itm_slot__0S5B.result_type__A4FC != (void *)type_void__WYF)) {
- Self__O2HH=((__STRING *)buf__T34F);
- new_capacity__N2HH= 0;
- if ((Self__O2HH->capacity__UCS <= Self__O2HH->count__SGC)) {
- if ((Self__O2HH->capacity__UCS == 0)) {
- Self__O2HH->capacity__UCS= 32;
- Self__O2HH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__N2HH=(__INTEGER)(Self__O2HH->capacity__UCS << 1);
- Self__P2HH=((__CHARACTER *)Self__O2HH->storage__3CS);
- old_nb_elts__Q2HH=Self__O2HH->capacity__UCS;
- new__R2HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__P2HH),((__UINTEGER_32 )old_nb_elts__Q2HH),((__UINTEGER_32 )new_capacity__N2HH)));
- upper__XSJH=(__INTEGER)(new_capacity__N2HH - 1);
- Self__VSJH=old_nb_elts__Q2HH;
- while ((Self__VSJH <= upper__XSJH)) {
- new__R2HH[Self__VSJH]='\0';
- Self__VSJH=(__INTEGER)(Self__VSJH + 1);
- };
- Self__O2HH->storage__3CS=new__R2HH;
- Self__O2HH->capacity__UCS=new_capacity__N2HH;
- };
- };
- ((__CHARACTER *)Self__O2HH->storage__3CS)[Self__O2HH->count__SGC]=':';
- Self__O2HH->count__SGC=(__INTEGER)(Self__O2HH->count__SGC + 1);
- __tmp__L44F=Self__S34F->parent_itm_slot__0S5B.result_type__A4FC;
- switch (((struct ___OBJ *)__tmp__L44F)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- shorter_in__0TDG(__tmp__L44F,buf__T34F);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- shorter_in__LUDG(__tmp__L44F,buf__T34F);
- } break;
- case __ITM_TYPE_MULTI__: {
- Self__L0DG=((__ITM_TYPE_MULTI *)__tmp__L44F);
- Self__U2HH=((__STRING *)buf__T34F);
- new_capacity__T2HH= 0;
- if ((Self__U2HH->capacity__UCS <= Self__U2HH->count__SGC)) {
- if ((Self__U2HH->capacity__UCS == 0)) {
- Self__U2HH->capacity__UCS= 32;
- Self__U2HH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__T2HH=(__INTEGER)(Self__U2HH->capacity__UCS << 1);
- Self__V2HH=((__CHARACTER *)Self__U2HH->storage__3CS);
- old_nb_elts__W2HH=Self__U2HH->capacity__UCS;
- new__X2HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__V2HH),((__UINTEGER_32 )old_nb_elts__W2HH),((__UINTEGER_32 )new_capacity__T2HH)));
- upper__2SJH=(__INTEGER)(new_capacity__T2HH - 1);
- Self__0SJH=old_nb_elts__W2HH;
- while ((Self__0SJH <= upper__2SJH)) {
- new__X2HH[Self__0SJH]='\0';
- Self__0SJH=(__INTEGER)(Self__0SJH + 1);
- };
- Self__U2HH->storage__3CS=new__X2HH;
- Self__U2HH->capacity__UCS=new_capacity__T2HH;
- };
- };
- ((__CHARACTER *)Self__U2HH->storage__3CS)[Self__U2HH->count__SGC]='(';
- Self__U2HH->count__SGC=(__INTEGER)(Self__U2HH->count__SGC + 1);
- shorter_raw_in__M2FG(Self__L0DG,buf__T34F);
- Self__02HH=((__STRING *)buf__T34F);
- new_capacity__Z2HH= 0;
- if ((Self__02HH->capacity__UCS <= Self__02HH->count__SGC)) {
- if ((Self__02HH->capacity__UCS == 0)) {
- Self__02HH->capacity__UCS= 32;
- Self__02HH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__Z2HH=(__INTEGER)(Self__02HH->capacity__UCS << 1);
- Self__12HH=((__CHARACTER *)Self__02HH->storage__3CS);
- old_nb_elts__22HH=Self__02HH->capacity__UCS;
- new__32HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__12HH),((__UINTEGER_32 )old_nb_elts__22HH),((__UINTEGER_32 )new_capacity__Z2HH)));
- upper__BTJH=(__INTEGER)(new_capacity__Z2HH - 1);
- Self__5SJH=old_nb_elts__22HH;
- while ((Self__5SJH <= upper__BTJH)) {
- new__32HH[Self__5SJH]='\0';
- Self__5SJH=(__INTEGER)(Self__5SJH + 1);
- };
- Self__02HH->storage__3CS=new__32HH;
- Self__02HH->capacity__UCS=new_capacity__Z2HH;
- };
- };
- ((__CHARACTER *)Self__02HH->storage__3CS)[Self__02HH->count__SGC]=')';
- Self__02HH->count__SGC=(__INTEGER)(Self__02HH->count__SGC + 1);
- } break;
- case __ITM_TYPE_BLOCK__: {
- shorter_in__2UDG(__tmp__L44F,buf__T34F);
- } break;
- case __ITM_TYPE_GENERIC__: {
- shorter_in__EWDG(__tmp__L44F,buf__T34F);
- } break;
- case __ITM_TYPE_STYLE__: {
- Self__52HH=((__ITM_TYPE_STYLE *)__tmp__L44F);
- if (((void *)Self__52HH->style__PZP != (void *)NULL)) {
- put__to__like__I0FG(Self__52HH->style__PZP,buf__T34F,(&__string_119));
- Self__C3HH=((__STRING *)buf__T34F);
- new_capacity__B3HH= 0;
- if ((Self__C3HH->capacity__UCS <= Self__C3HH->count__SGC)) {
- if ((Self__C3HH->capacity__UCS == 0)) {
- Self__C3HH->capacity__UCS= 32;
- Self__C3HH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__B3HH=(__INTEGER)(Self__C3HH->capacity__UCS << 1);
- Self__D3HH=((__CHARACTER *)Self__C3HH->storage__3CS);
- old_nb_elts__E3HH=Self__C3HH->capacity__UCS;
- new__F3HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__D3HH),((__UINTEGER_32 )old_nb_elts__E3HH),((__UINTEGER_32 )new_capacity__B3HH)));
- upper__GTJH=(__INTEGER)(new_capacity__B3HH - 1);
- Self__ETJH=old_nb_elts__E3HH;
- while ((Self__ETJH <= upper__GTJH)) {
- new__F3HH[Self__ETJH]='\0';
- Self__ETJH=(__INTEGER)(Self__ETJH + 1);
- };
- Self__C3HH->storage__3CS=new__F3HH;
- Self__C3HH->capacity__UCS=new_capacity__B3HH;
- };
- };
- ((__CHARACTER *)Self__C3HH->storage__3CS)[Self__C3HH->count__SGC]=' ';
- Self__C3HH->count__SGC=(__INTEGER)(Self__C3HH->count__SGC + 1);
- };
- put__to__like__I0FG(Self__52HH->parent_itm_type_simple__3SN.name__GZP,buf__T34F,(&__string_125));
- } break;
- };
- };
-}
-
-static void* new_page__H54()
-// () With resultNo recursive, No inlinable.
-{
- __UINTEGER_64 cap__WZSB,old_size__K54;
- __POINTER mem__ZZSB;
- void *block__Q54;
- if ((capacity_max__R54 == 0)) {
- mem__ZZSB=((__POINTER )(NULL));
- cap__WZSB= 33554432;
- do {
- cap__WZSB=(__UINTEGER_64)(cap__WZSB << 1);
- mem__ZZSB=((__POINTER )(malloc((cap__WZSB))));
- if ((mem__ZZSB != (void *)NULL)) {
- free((mem__ZZSB));
- };
- } while ((! ((mem__ZZSB == (void *)NULL) || (cap__WZSB == ((__UINTEGER_64 )(2048LU << 20))))));
- if ((mem__ZZSB == (void *)NULL)) {
- cap__WZSB=(__UINTEGER_64)(cap__WZSB >> 1);
- };
- get_begin_memory__RAQB=((__POINTER )(malloc((cap__WZSB))));
- capacity_max__R54=cap__WZSB;
- begin_memory__4XH=get_begin_memory__RAQB;
- };
- old_size__K54=((__UINTEGER_64 )(__UINTEGER_32)(nb_page__DUJ << 26));
- nb_page__DUJ=(__UINTEGER_32)(nb_page__DUJ + 1);
- if (((__UINTEGER_64)(old_size__K54 + 67108864) > capacity_max__R54)) {
- print__OJD((&__string_250));
- exit(( 1));
- };
- block__Q54=((void *)(void *)((unsigned long)begin_memory__4XH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )old_size__K54)))));
- ((__MEMORY *)block__Q54)->map_previous_linear__XTB= 4294967295LU;
- ((__MEMORY *)block__Q54)->map_size_and_id__YTB= 67108858;
- ((__MEMORY *)block__Q54)->map_next_free__ZTB=first_free__0BVB;
- ((__MEMORY *)block__Q54)->map_previous_free__0TB=NULL;
- if (((void *)first_free__0BVB != (void *)NULL)) {
- ((__MEMORY *)first_free__0BVB)->map_previous_free__0TB=block__Q54;
- };
- first_free__0BVB=block__Q54;
- last_block[((__UINTEGER_32)(nb_page__DUJ - 1))] = (block__Q54);
- return(block__Q54);
-}
-
-static void to_busy__index__3SFC(__MEMORY *Self__4SFC,__UINTEGER_32 sz__5SFC,__UINTEGER_32 idx__ATFC)
-// ({MEMORY},{UINTEGER_32},{UINTEGER_32}) VoidNo recursive, No inlinable.
-{
- void *new__HTFC,*prev__CDOC,*next__DDOC;
- __UINTEGER_32 siz__BTFC,new_size__ETFC;
- __MEMORY *Self__NRCC,*Self__TNAH;
- new__HTFC=NULL;
- prev__CDOC=Self__4SFC->map_previous_free__0TB;
- next__DDOC=Self__4SFC->map_next_free__ZTB;
- if (((void *)prev__CDOC == (void *)NULL)) {
- first_free__0BVB=next__DDOC;
- } else {
- ((__MEMORY *)prev__CDOC)->map_next_free__ZTB=next__DDOC;
- };
- if (((void *)next__DDOC != (void *)NULL)) {
- ((__MEMORY *)next__DDOC)->map_previous_free__0TB=prev__CDOC;
- };
- siz__BTFC=Self__4SFC->map_size_and_id__YTB;
- new_size__ETFC=(__UINTEGER_32)(siz__BTFC - sz__5SFC);
- if ((new_size__ETFC > (__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )(MINIMUM_SIZE)) + 2) + 8))) {
- siz__BTFC=sz__5SFC;
- new__HTFC=((void *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__4SFC) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )sz__5SFC))));
- ((__MEMORY *)new__HTFC)->map_previous_linear__XTB=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )Self__4SFC) - (unsigned long)begin_memory__4XH))));
- ((__MEMORY *)new__HTFC)->map_size_and_id__YTB=(__UINTEGER_32)(new_size__ETFC - 8);
- Self__NRCC=((__MEMORY *)new__HTFC);
- Self__NRCC->map_next_free__ZTB=first_free__0BVB;
- Self__NRCC->map_previous_free__0TB=NULL;
- if (((void *)first_free__0BVB != (void *)NULL)) {
- ((__MEMORY *)first_free__0BVB)->map_previous_free__0TB=Self__NRCC;
- };
- first_free__0BVB=Self__NRCC;
- if (((__UINTEGER_32)(((__MEMORY *)new__HTFC)->map_size_and_id__YTB & 2) != 0)) {
- last_block[(idx__ATFC)] = (new__HTFC);
- } else {
- Self__TNAH=((__MEMORY *)new__HTFC);
- ((__MEMORY *)((void *)(void *)((unsigned long)(void *)((unsigned long)((__POINTER )Self__TNAH) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )(__UINTEGER_32)(Self__TNAH->map_size_and_id__YTB & 4294967292LU))))))->map_previous_linear__XTB=((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)((__POINTER )((__MEMORY *)new__HTFC)) - (unsigned long)begin_memory__4XH))));
- };
- };
- Self__4SFC->map_size_and_id__YTB=(__UINTEGER_32)(siz__BTFC | 1);
-}
-
-static void** create__W5QB(__INTEGER nb_elements__Y5QB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__XCHH,a__WCHH,new_size__YCHH,new_size2__ZCHH,a__0CHH;
- __UINTEGER_32 new_size__1CHH;
- __POINTER result__VCHH,ptr_table__OTJH,next__NTJH,result__PTJH;
- __INTEGER Self__34MC;
- void **Result__42TB;
- sz__XCHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__Y5QB * ((__INTEGER )(sizeof(void *)))));
- result__VCHH=((__POINTER )(NULL));
- a__WCHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__YCHH=(__UINTEGER_32)((__UINTEGER_32)(sz__XCHH + a__WCHH) & (__UINTEGER_32)(~ a__WCHH));
- new_size2__ZCHH=(__UINTEGER_32)(new_size__YCHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__ZCHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__0CHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__1CHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__ZCHH + a__0CHH) & (__UINTEGER_32)(~ a__0CHH));
- ptr_table__OTJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1CHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__NTJH=((__POINTER )(NULL));
- result__PTJH=((__POINTER *)ptr_table__OTJH)[ 0];
- if ((result__PTJH == (void *)NULL)) {
- result__PTJH=new_lab__RTJ(new_size__1CHH);
- next__NTJH=(void *)((unsigned long)result__PTJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1CHH)));
- ((__POINTER *)next__NTJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__OTJH)[ 0]=next__NTJH;
- } else {
- next__NTJH=((__POINTER *)result__PTJH)[ 0];
- if ((next__NTJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PTJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__1CHH << 1)) <= 4096)) {
- next__NTJH=(void *)((unsigned long)result__PTJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1CHH)));
- } else {
- next__NTJH=new_lab__RTJ(new_size__1CHH);
- };
- ((__POINTER *)next__NTJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__OTJH)[ 0]=next__NTJH;
- } else {
- ((__POINTER *)result__PTJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NTJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__PTJH=next__NTJH;
- };
- };
- ((__POINTER *)result__PTJH)[ 0]=((__POINTER ) 3);
- result__VCHH=(void *)((unsigned long)result__PTJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__VCHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__YCHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__42TB=((void **)result__VCHH);
- Self__34MC=(__INTEGER)(nb_elements__Y5QB - 1);
- while ((Self__34MC >= 0)) {
- Result__42TB[Self__34MC]=NULL;
- Self__34MC=(__INTEGER)(Self__34MC - 1);
- };
- return(Result__42TB);
-}
-
-static void* fast_reference_at__R3T(__HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo *Self__S3T,void *k__T3T)
-// ({HASHED_DICTIONARYoITM_TYPE_SIMPLExSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
- void *result__43T;
- void *node__33T;
- result__43T=NULL;
- node__33T=((void **)Self__S3T->buckets__F4T)[(__INTEGER)(hash_code__RNW(k__T3T) % Self__S3T->capacity__A4T)];
- while ((! (((void *)node__33T == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node__33T)->key__R4T == (void *)k__T3T)))) {
- node__33T=((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node__33T)->next__24T;
- };
- if (((void *)node__33T != (void *)NULL)) {
- result__43T=((__HASHED_DICTIONARY_NODEoITM_TYPE_SIMPLExSTRING_CONSTANTo *)node__33T)->item__E5T;
- };
- return(result__43T);
-}
-
-static void** create__QMHE(__INTEGER nb_elements__SMHE)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__5CHH,a__4CHH,new_size__ADHH,new_size2__BDHH,a__CDHH;
- __UINTEGER_32 new_size__DDHH;
- __POINTER result__3CHH,ptr_table__TTJH,next__STJH,result__UTJH;
- __INTEGER Self__AVYE;
- void **Result__J4ME;
- sz__5CHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__SMHE * ((__INTEGER )(sizeof(void *)))));
- result__3CHH=((__POINTER )(NULL));
- a__4CHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ADHH=(__UINTEGER_32)((__UINTEGER_32)(sz__5CHH + a__4CHH) & (__UINTEGER_32)(~ a__4CHH));
- new_size2__BDHH=(__UINTEGER_32)(new_size__ADHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__BDHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__CDHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__DDHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__BDHH + a__CDHH) & (__UINTEGER_32)(~ a__CDHH));
- ptr_table__TTJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__DDHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__STJH=((__POINTER )(NULL));
- result__UTJH=((__POINTER *)ptr_table__TTJH)[ 0];
- if ((result__UTJH == (void *)NULL)) {
- result__UTJH=new_lab__RTJ(new_size__DDHH);
- next__STJH=(void *)((unsigned long)result__UTJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DDHH)));
- ((__POINTER *)next__STJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__TTJH)[ 0]=next__STJH;
- } else {
- next__STJH=((__POINTER *)result__UTJH)[ 0];
- if ((next__STJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UTJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__DDHH << 1)) <= 4096)) {
- next__STJH=(void *)((unsigned long)result__UTJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DDHH)));
- } else {
- next__STJH=new_lab__RTJ(new_size__DDHH);
- };
- ((__POINTER *)next__STJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__TTJH)[ 0]=next__STJH;
- } else {
- ((__POINTER *)result__UTJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__STJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__UTJH=next__STJH;
- };
- };
- ((__POINTER *)result__UTJH)[ 0]=((__POINTER ) 3);
- result__3CHH=(void *)((unsigned long)result__UTJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__3CHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__ADHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__J4ME=((void **)result__3CHH);
- Self__AVYE=(__INTEGER)(nb_elements__SMHE - 1);
- while ((Self__AVYE >= 0)) {
- Result__J4ME[Self__AVYE]=NULL;
- Self__AVYE=(__INTEGER)(Self__AVYE - 1);
- };
- return(Result__J4ME);
-}
-
-static __BOOLEAN has__PPW(__HASHED_SEToABSTRACT_STRINGo *Self__QPW,void *e__RPW)
-// ({HASHED_SEToABSTRACT_STRINGo},{STRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
- void *node__0PW;
- node__0PW=((void **)Self__QPW->buckets__0ZR)[(__INTEGER)(hash_code__RNW(e__RPW) % Self__QPW->capacity__VZR)];
- while ((! (((void *)node__0PW == (void *)NULL) || __infix_equal_equal__V2DB(((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__0PW)->item__G0R,e__RPW)))) {
- node__0PW=((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__0PW)->next__S0R;
- };
- return(((void *)node__0PW != (void *)NULL));
-}
-
-static void increase_capacity__XONB(__HASHED_SEToABSTRACT_STRINGo *Self__YONB)
-// ({HASHED_SEToABSTRACT_STRINGo}) VoidNo recursive, No inlinable.
-{
- __INTEGER idx__0ONB,new_capacity__1ONB,i__ZONB;
- void *node1__3ONB,*node2__4ONB;
- void **old_buckets__2ONB;
- idx__0ONB= 0;
- node1__3ONB=NULL;
- node2__4ONB=NULL;
- new_capacity__1ONB=prime_number_ceiling__021((__INTEGER)(Self__YONB->capacity__VZR + 1));
- old_buckets__2ONB=Self__YONB->buckets__0ZR;
- Self__YONB->buckets__0ZR=create__EI2(new_capacity__1ONB);
- i__ZONB=(__INTEGER)(Self__YONB->capacity__VZR - 1);
- Self__YONB->capacity__VZR=new_capacity__1ONB;
- while ((i__ZONB >= 0)) {
- node1__3ONB=((void **)old_buckets__2ONB)[i__ZONB];
- while (((void *)node1__3ONB != (void *)NULL)) {
- node2__4ONB=((__HASHED_SET_NODEoABSTRACT_STRINGo *)node1__3ONB)->next__S0R;
- idx__0ONB=(__INTEGER)(hash_code__RNW(((__HASHED_SET_NODEoABSTRACT_STRINGo *)node1__3ONB)->item__G0R) % Self__YONB->capacity__VZR);
- ((__HASHED_SET_NODEoABSTRACT_STRINGo *)node1__3ONB)->next__S0R=((void **)Self__YONB->buckets__0ZR)[idx__0ONB];
- ((void **)Self__YONB->buckets__0ZR)[idx__0ONB]=node1__3ONB;
- node1__3ONB=node2__4ONB;
- };
- i__ZONB=(__INTEGER)(i__ZONB - 1);
- };
-}
-
-static void put_string__AKF(void *s__CKF)
-// ({STRING_CONSTANTxSTRING}) VoidNo recursive, No inlinable.
-{
- __INTEGER __tmp__TKF,Self__IDG,limit_up__JDG;
- __CHARACTER *__tmp__BPFH,*__tmp__41GH;
- __CHARACTER __tmp__0KF;
- if (((struct ___OBJ *)s__CKF)->__id==__STRING_CONSTANT__) {
- };
- if (((struct ___OBJ *)s__CKF)->__id==__STRING_CONSTANT__) {
- __tmp__TKF=((__STRING_CONSTANT *)s__CKF)->count__DD;
- } else {
- __tmp__TKF=((__STRING *)s__CKF)->count__SGC;
- };
- Self__IDG= 1;
- limit_up__JDG=__tmp__TKF;
- __tmp__BPFH=((__STRING *)s__CKF)->storage__3CS;
- __tmp__41GH=((__STRING_CONSTANT *)s__CKF)->storage__RRO;
- while ((Self__IDG <= limit_up__JDG)) {
- if (((struct ___OBJ *)s__CKF)->__id==__STRING_CONSTANT__) {
- __tmp__0KF=((__CHARACTER *)__tmp__41GH)[(__INTEGER)(Self__IDG - 1)];
- } else {
- __tmp__0KF=((__CHARACTER *)__tmp__BPFH)[(__INTEGER)(Self__IDG - 1)];
- };
- fputc((int)(__tmp__0KF),stdout);
- Self__IDG=(__INTEGER)(Self__IDG + 1);
- };
-}
-
-static __INTEGER hash_code__UFX(__STRING *Self__VFX)
-// ({STRING}) With resultNo recursive, No inlinable.
-{
- __INTEGER result__XFX,__tmp__YFX,Self__QT2;
- __CHARACTER *__tmp__HFEH;
- result__XFX= 0;
- __tmp__YFX=Self__VFX->count__SGC;
- Self__QT2= 1;
- __tmp__HFEH=Self__VFX->storage__3CS;
- while ((Self__QT2 <= __tmp__YFX)) {
- result__XFX=(__INTEGER)((__INTEGER)( 5 * result__XFX) + ((__INTEGER )((__INTEGER_8 )((__CHARACTER *)__tmp__HFEH)[(__INTEGER)(Self__QT2 - 1)])));
- Self__QT2=(__INTEGER)(Self__QT2 + 1);
- };
- if ((result__XFX < 0)) {
- result__XFX=(__INTEGER)(~ result__XFX);
- };
- return(result__XFX);
-}
-
-static __BOOLEAN fast_has__CAY(__HASHED_SEToABSTRACT_STRINGo *Self__DAY,void *e__EAY)
-// ({HASHED_SEToABSTRACT_STRINGo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
- void *node__NAY;
- node__NAY=((void **)Self__DAY->buckets__0ZR)[(__INTEGER)(hash_code__RNW(e__EAY) % Self__DAY->capacity__VZR)];
- while ((! (((void *)node__NAY == (void *)NULL) || ((void *)((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__NAY)->item__G0R == (void *)e__EAY)))) {
- node__NAY=((__HASHED_SET_NODEoABSTRACT_STRINGo *)node__NAY)->next__S0R;
- };
- return(((void *)node__NAY != (void *)NULL));
-}
-
-static void from_external__YZS(__STRING *Self__ZZS,__CHARACTER *p__0ZS)
-// ({STRING},{NULLxNATIVE_ARRAYoExpanded_CHARACTERo}) VoidNo recursive, No inlinable.
-{
- Self__ZZS->count__SGC= 0;
- while ((((__CHARACTER *)p__0ZS)[Self__ZZS->count__SGC] != '\0')) {
- Self__ZZS->count__SGC=(__INTEGER)(Self__ZZS->count__SGC + 1);
- };
- if (((void *)Self__ZZS->storage__3CS != (void *)p__0ZS)) {
- Self__ZZS->storage__3CS=p__0ZS;
- Self__ZZS->capacity__UCS=(__INTEGER)(Self__ZZS->count__SGC + 1);
- };
-}
-
-static void* physical_get_entry__REF(void *new_path__TEF)
-// ({NULLxSTRING}) With resultNo recursive, No inlinable.
-{
- void *result__WEF;
- __STRING *Self__51GH;
- __INTEGER new_capacity__N3HH,old_nb_elts__Q3HH,upper__0TJH,Self__YTJH;
- __INTEGER typ_id__4TJH,typ_id__QUJH;
- __FILE_UNIX *result__2TJH;
- __POINTER ptr__3TJH,ptr_table__FUJH,next__EUJH,result__GUJH;
- __POINTER ptr_table__KUJH,next__JUJH,result__LUJH,ptr__PUJH;
- __POINTER ptr_table__XUJH,next__WUJH,result__YUJH,ptr_table__2UJH;
- __POINTER next__1UJH,result__3UJH;
- __UINTEGER_32 sz__5TJH,a__AUJH,new_size__BUJH,t__CUJH,a__DUJH;
- __UINTEGER_32 new_size__NUJH,lab_type__MUJH,sz__RUJH,a__SUJH;
- __UINTEGER_32 new_size__TUJH,t__UUJH,a__VUJH,new_size__5UJH;
- __UINTEGER_32 lab_type__4UJH;
- __DIRECTORY_UNIX *result__OUJH;
- void *__tmp__PFF;
- __CHARACTER *Self__P3HH,*new__R3HH,*pe__VEF;
- result__WEF=NULL;
- Self__51GH=((__STRING *)new_path__TEF);
- if ((Self__51GH->capacity__UCS > Self__51GH->count__SGC)) {
- ((__CHARACTER *)Self__51GH->storage__3CS)[Self__51GH->count__SGC]='\0';
- } else {
- new_capacity__N3HH= 0;
- if ((Self__51GH->capacity__UCS <= Self__51GH->count__SGC)) {
- if ((Self__51GH->capacity__UCS == 0)) {
- Self__51GH->capacity__UCS= 32;
- Self__51GH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__N3HH=(__INTEGER)(Self__51GH->capacity__UCS << 1);
- Self__P3HH=((__CHARACTER *)Self__51GH->storage__3CS);
- old_nb_elts__Q3HH=Self__51GH->capacity__UCS;
- new__R3HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__P3HH),((__UINTEGER_32 )old_nb_elts__Q3HH),((__UINTEGER_32 )new_capacity__N3HH)));
- upper__0TJH=(__INTEGER)(new_capacity__N3HH - 1);
- Self__YTJH=old_nb_elts__Q3HH;
- while ((Self__YTJH <= upper__0TJH)) {
- new__R3HH[Self__YTJH]='\0';
- Self__YTJH=(__INTEGER)(Self__YTJH + 1);
- };
- Self__51GH->storage__3CS=new__R3HH;
- Self__51GH->capacity__UCS=new_capacity__N3HH;
- };
- };
- ((__CHARACTER *)Self__51GH->storage__3CS)[Self__51GH->count__SGC]='\0';
- Self__51GH->count__SGC=(__INTEGER)(Self__51GH->count__SGC + 1);
- Self__51GH->count__SGC=(__INTEGER)(Self__51GH->count__SGC - 1);
- };
- pe__VEF=Self__51GH->storage__3CS;
- { struct stat t;
- if ((((__INTEGER )(stat((pe__VEF),&t))) == 0)) {
- if ((((__INTEGER )(S_ISDIR(t.st_mode))) == 0)) {
- result__2TJH=NULL;
- ptr__3TJH=((__POINTER )(NULL));
- typ_id__4TJH= 0;
- sz__5TJH=((__UINTEGER_32 )sizeof(__FILE_UNIX));
- if ((sz__5TJH == 0)) {
- result__2TJH=FILE_UNIX__;
- } else {
- typ_id__4TJH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__5TJH);
- if ((typ_id__4TJH == (__INTEGER)(- 1))) {
- a__AUJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__BUJH=(__UINTEGER_32)((__UINTEGER_32)(sz__5TJH + a__AUJH) & (__UINTEGER_32)(~ a__AUJH));
- ptr_table__FUJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__BUJH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__EUJH=((__POINTER )(NULL));
- result__GUJH=((__POINTER *)ptr_table__FUJH)[ 0];
- if ((result__GUJH == (void *)NULL)) {
- result__GUJH=new_lab__RTJ(new_size__BUJH);
- next__EUJH=(void *)((unsigned long)result__GUJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BUJH)));
- ((__POINTER *)next__EUJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__FUJH)[ 0]=next__EUJH;
- } else {
- next__EUJH=((__POINTER *)result__GUJH)[ 0];
- if ((next__EUJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GUJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__BUJH << 1)) <= 4096)) {
- next__EUJH=(void *)((unsigned long)result__GUJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BUJH)));
- } else {
- next__EUJH=new_lab__RTJ(new_size__BUJH);
- };
- ((__POINTER *)next__EUJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__FUJH)[ 0]=next__EUJH;
- } else {
- ((__POINTER *)result__GUJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EUJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__GUJH=next__EUJH;
- };
- };
- ptr__3TJH=result__GUJH;
- } else {
- t__CUJH=((__UINTEGER_32 )typ_id__4TJH);
- a__DUJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__NUJH=(__UINTEGER_32)((__UINTEGER_32)(sz__5TJH + a__DUJH) & (__UINTEGER_32)(~ a__DUJH));
- ptr_table__KUJH=((__POINTER )(&(table_type[(t__CUJH)])));
- lab_type__MUJH=(__UINTEGER_32)(t__CUJH | 1);
- next__JUJH=((__POINTER )(NULL));
- result__LUJH=((__POINTER *)ptr_table__KUJH)[ 0];
- if ((result__LUJH == (void *)NULL)) {
- result__LUJH=new_lab__RTJ(lab_type__MUJH);
- next__JUJH=(void *)((unsigned long)result__LUJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NUJH)));
- ((__POINTER *)next__JUJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__KUJH)[ 0]=next__JUJH;
- } else {
- next__JUJH=((__POINTER *)result__LUJH)[ 0];
- if ((next__JUJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LUJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__NUJH << 1)) <= 4096)) {
- next__JUJH=(void *)((unsigned long)result__LUJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NUJH)));
- } else {
- next__JUJH=new_lab__RTJ(lab_type__MUJH);
- };
- ((__POINTER *)next__JUJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__KUJH)[ 0]=next__JUJH;
- } else {
- ((__POINTER *)result__LUJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JUJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__LUJH=next__JUJH;
- };
- };
- ptr__3TJH=result__LUJH;
- };
- result__2TJH=((__FILE_UNIX *)ptr__3TJH);
- *(result__2TJH) = *(FILE_UNIX__);
- };
- result__WEF=result__2TJH;
- } else {
- result__OUJH=NULL;
- ptr__PUJH=((__POINTER )(NULL));
- typ_id__QUJH= 0;
- sz__RUJH=((__UINTEGER_32 )sizeof(__DIRECTORY_UNIX));
- if ((sz__RUJH == 0)) {
- result__OUJH=DIRECTORY_UNIX__;
- } else {
- typ_id__QUJH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__RUJH);
- if ((typ_id__QUJH == (__INTEGER)(- 1))) {
- a__SUJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__TUJH=(__UINTEGER_32)((__UINTEGER_32)(sz__RUJH + a__SUJH) & (__UINTEGER_32)(~ a__SUJH));
- ptr_table__XUJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__TUJH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__WUJH=((__POINTER )(NULL));
- result__YUJH=((__POINTER *)ptr_table__XUJH)[ 0];
- if ((result__YUJH == (void *)NULL)) {
- result__YUJH=new_lab__RTJ(new_size__TUJH);
- next__WUJH=(void *)((unsigned long)result__YUJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TUJH)));
- ((__POINTER *)next__WUJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__XUJH)[ 0]=next__WUJH;
- } else {
- next__WUJH=((__POINTER *)result__YUJH)[ 0];
- if ((next__WUJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YUJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__TUJH << 1)) <= 4096)) {
- next__WUJH=(void *)((unsigned long)result__YUJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TUJH)));
- } else {
- next__WUJH=new_lab__RTJ(new_size__TUJH);
- };
- ((__POINTER *)next__WUJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__XUJH)[ 0]=next__WUJH;
- } else {
- ((__POINTER *)result__YUJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WUJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__YUJH=next__WUJH;
- };
- };
- ptr__PUJH=result__YUJH;
- } else {
- t__UUJH=((__UINTEGER_32 )typ_id__QUJH);
- a__VUJH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5UJH=(__UINTEGER_32)((__UINTEGER_32)(sz__RUJH + a__VUJH) & (__UINTEGER_32)(~ a__VUJH));
- ptr_table__2UJH=((__POINTER )(&(table_type[(t__UUJH)])));
- lab_type__4UJH=(__UINTEGER_32)(t__UUJH | 1);
- next__1UJH=((__POINTER )(NULL));
- result__3UJH=((__POINTER *)ptr_table__2UJH)[ 0];
- if ((result__3UJH == (void *)NULL)) {
- result__3UJH=new_lab__RTJ(lab_type__4UJH);
- next__1UJH=(void *)((unsigned long)result__3UJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5UJH)));
- ((__POINTER *)next__1UJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__2UJH)[ 0]=next__1UJH;
- } else {
- next__1UJH=((__POINTER *)result__3UJH)[ 0];
- if ((next__1UJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3UJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__5UJH << 1)) <= 4096)) {
- next__1UJH=(void *)((unsigned long)result__3UJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5UJH)));
- } else {
- next__1UJH=new_lab__RTJ(lab_type__4UJH);
- };
- ((__POINTER *)next__1UJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__2UJH)[ 0]=next__1UJH;
- } else {
- ((__POINTER *)result__3UJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1UJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__3UJH=next__1UJH;
- };
- };
- ptr__PUJH=result__3UJH;
- };
- result__OUJH=((__DIRECTORY_UNIX *)ptr__PUJH);
- *(result__OUJH) = *(DIRECTORY_UNIX__);
- };
- result__WEF=result__OUJH;
- };
- if (((struct ___OBJ *)result__WEF)->__id==__DIRECTORY_UNIX__) {
- set_path__HPT(result__WEF,new_path__TEF);
- } else {
- set_path__CQT(result__WEF,new_path__TEF);
- };
- if (((struct ___OBJ *)result__WEF)->__id==__DIRECTORY_UNIX__) {
- __tmp__PFF=((__DIRECTORY_UNIX *)result__WEF)->parent_entry_unix__RGD.parent_entry__QGD.path__BD;
- } else {
- __tmp__PFF=((__FILE_UNIX *)result__WEF)->parent_entry_unix__EFF.parent_entry__QGD.path__BD;
- };
- put__to__N1S(alias__2GD,result__WEF,__tmp__PFF);
- };
- };
- return(result__WEF);
-}
-
-static void put__to__N1S(__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *Self__O1S,void *v__P1S,void *k__Q1S)
-// ({HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo},{NULLxDIRECTORY_UNIXxFILE_UNIX},{NULLxSTRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
- __INTEGER h__X1S,idx__Y1S,idx__5KOB,new_capacity__ALOB,i__BLOB;
- __INTEGER typ_id__PNOB;
- __POINTER ptr__KNOB,ptr_table__BVJH,next__AVJH,result__CVJH;
- __POINTER ptr_table__GVJH,next__FVJH,result__HVJH;
- __UINTEGER_32 sz__MNOB,a__5PFH,new_size__AQFH,t__EQFH,a__DQFH;
- __UINTEGER_32 new_size__JVJH,lab_type__IVJH;
- void *node__01S,*node1__DLOB,*node2__ELOB,*__tmp__P3S;
- void **old_buckets__CLOB;
- __HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *result__JNOB;
- __HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *Self__QXDC;
- h__X1S=hash_code__RNW(k__Q1S);
- idx__Y1S=(__INTEGER)(h__X1S % Self__O1S->capacity__21S);
- node__01S=((void **)Self__O1S->buckets__B2S)[idx__Y1S];
- while ((! (((void *)node__01S == (void *)NULL) || __infix_equal_equal__V2DB(((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node__01S)->key__N2S,k__Q1S)))) {
- node__01S=((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node__01S)->next__Z2S;
- };
- if (((void *)node__01S == (void *)NULL)) {
- if ((Self__O1S->capacity__21S == Self__O1S->count__C3S)) {
- idx__5KOB= 0;
- node1__DLOB=NULL;
- node2__ELOB=NULL;
- old_buckets__CLOB=Self__O1S->buckets__B2S;
- new_capacity__ALOB=prime_number_ceiling__021((__INTEGER)(Self__O1S->capacity__21S + 1));
- Self__O1S->buckets__B2S=create__QA4(new_capacity__ALOB);
- i__BLOB=(__INTEGER)(Self__O1S->capacity__21S - 1);
- Self__O1S->capacity__21S=new_capacity__ALOB;
- while ((i__BLOB >= 0)) {
- node1__DLOB=((void **)old_buckets__CLOB)[i__BLOB];
- while (((void *)node1__DLOB != (void *)NULL)) {
- node2__ELOB=((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node1__DLOB)->next__Z2S;
- idx__5KOB=(__INTEGER)(hash_code__RNW(((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node1__DLOB)->key__N2S) % Self__O1S->capacity__21S);
- ((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node1__DLOB)->next__Z2S=((void **)Self__O1S->buckets__B2S)[idx__5KOB];
- ((void **)Self__O1S->buckets__B2S)[idx__5KOB]=node1__DLOB;
- node1__DLOB=node2__ELOB;
- };
- i__BLOB=(__INTEGER)(i__BLOB - 1);
- };
- idx__Y1S=(__INTEGER)(h__X1S % Self__O1S->capacity__21S);
- };
- __tmp__P3S=((void **)Self__O1S->buckets__B2S)[idx__Y1S];
- result__JNOB=NULL;
- ptr__KNOB=((__POINTER )(NULL));
- typ_id__PNOB= 0;
- sz__MNOB=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo));
- if ((sz__MNOB == 0)) {
- result__JNOB=HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__;
- } else {
- typ_id__PNOB=__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__MNOB);
- if ((typ_id__PNOB == (__INTEGER)(- 1))) {
- a__5PFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__AQFH=(__UINTEGER_32)((__UINTEGER_32)(sz__MNOB + a__5PFH) & (__UINTEGER_32)(~ a__5PFH));
- ptr_table__BVJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__AQFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__AVJH=((__POINTER )(NULL));
- result__CVJH=((__POINTER *)ptr_table__BVJH)[ 0];
- if ((result__CVJH == (void *)NULL)) {
- result__CVJH=new_lab__RTJ(new_size__AQFH);
- next__AVJH=(void *)((unsigned long)result__CVJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AQFH)));
- ((__POINTER *)next__AVJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__BVJH)[ 0]=next__AVJH;
- } else {
- next__AVJH=((__POINTER *)result__CVJH)[ 0];
- if ((next__AVJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CVJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__AQFH << 1)) <= 4096)) {
- next__AVJH=(void *)((unsigned long)result__CVJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AQFH)));
- } else {
- next__AVJH=new_lab__RTJ(new_size__AQFH);
- };
- ((__POINTER *)next__AVJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__BVJH)[ 0]=next__AVJH;
- } else {
- ((__POINTER *)result__CVJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__AVJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__CVJH=next__AVJH;
- };
- };
- ptr__KNOB=result__CVJH;
- } else {
- t__EQFH=((__UINTEGER_32 )typ_id__PNOB);
- a__DQFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__JVJH=(__UINTEGER_32)((__UINTEGER_32)(sz__MNOB + a__DQFH) & (__UINTEGER_32)(~ a__DQFH));
- ptr_table__GVJH=((__POINTER )(&(table_type[(t__EQFH)])));
- lab_type__IVJH=(__UINTEGER_32)(t__EQFH | 1);
- next__FVJH=((__POINTER )(NULL));
- result__HVJH=((__POINTER *)ptr_table__GVJH)[ 0];
- if ((result__HVJH == (void *)NULL)) {
- result__HVJH=new_lab__RTJ(lab_type__IVJH);
- next__FVJH=(void *)((unsigned long)result__HVJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JVJH)));
- ((__POINTER *)next__FVJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__GVJH)[ 0]=next__FVJH;
- } else {
- next__FVJH=((__POINTER *)result__HVJH)[ 0];
- if ((next__FVJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HVJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__JVJH << 1)) <= 4096)) {
- next__FVJH=(void *)((unsigned long)result__HVJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JVJH)));
- } else {
- next__FVJH=new_lab__RTJ(lab_type__IVJH);
- };
- ((__POINTER *)next__FVJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__GVJH)[ 0]=next__FVJH;
- } else {
- ((__POINTER *)result__HVJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FVJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__HVJH=next__FVJH;
- };
- };
- ptr__KNOB=result__HVJH;
- };
- result__JNOB=((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)ptr__KNOB);
- *(result__JNOB) = *(HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo__);
- };
- Self__QXDC=((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)result__JNOB);
- Self__QXDC->item__TPOB=v__P1S;
- Self__QXDC->key__N2S=k__Q1S;
- Self__QXDC->next__Z2S=__tmp__P3S;
- node__01S=result__JNOB;
- ((void **)Self__O1S->buckets__B2S)[idx__Y1S]=result__JNOB;
- Self__O1S->count__C3S=(__INTEGER)(Self__O1S->count__C3S + 1);
- } else {
- ((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node__01S)->item__TPOB=v__P1S;
- };
-}
-
-static void reduce_path__J3HC(void *st__L3HC)
-// ({NULLxSTRING}) VoidNo recursive, No inlinable.
-{
- __INTEGER stat__N3HC,i__M3HC,Self__ATOE,n__GDHH,idx__44HC,n__IDHH;
- __INTEGER Self__2MFF,n__KDHH,idx__EDIC,new_capacity__T3HH;
- __INTEGER old_nb_elts__W3HH,upper__QVJH,Self__OVJH;
- __STRING *Self__FDHH,*Self__HDHH,*Self__JDHH,*Self__IQFH,*Self__KQFH;
- __STRING *Self__U3HH;
- __CHARACTER car__O3HC,Self__LVJH;
- __BOOLEAN __tmp__V5HC,__tmp__0AIC,result__KLHE,result__KVJH;
- __BOOLEAN __tmp__MVJH,__tmp__1BIC;
- __CHARACTER *Self__V3HH,*new__X3HH;
- stat__N3HC= 0;
- car__O3HC='\0';
- replace_all__with__CRS(st__L3HC,'\\','/');
- i__M3HC= 1;
- while ((i__M3HC <= ((__STRING *)st__L3HC)->count__SGC)) {
- car__O3HC=((__CHARACTER *)((__STRING *)st__L3HC)->storage__3CS)[(__INTEGER)(i__M3HC - 1)];
- if ((car__O3HC == '/')) {
- Self__ATOE=stat__N3HC;
- if ((stat__N3HC == 0)) {
- stat__N3HC= 1;
- };
- if ((Self__ATOE == 1)) {
- Self__FDHH=((__STRING *)st__L3HC);
- n__GDHH=(__INTEGER)(i__M3HC - 1);
- if ((n__GDHH > Self__FDHH->count__SGC)) {
- Self__FDHH->count__SGC= 0;
- } else {
- if ((n__GDHH > 0)) {
- remove_between__to__MIT(Self__FDHH, 1,n__GDHH);
- };
- };
- i__M3HC= 1;
- };
- if ((Self__ATOE == 2)) {
- remove_between__to__MIT(st__L3HC,(__INTEGER)(i__M3HC - 1),i__M3HC);
- i__M3HC=(__INTEGER)(i__M3HC - 2);
- stat__N3HC= 1;
- };
- if ((Self__ATOE == 3)) {
- idx__44HC=last_index_of__since__KPGD(st__L3HC,(__INTEGER)(i__M3HC - 4));
- if ((idx__44HC == 0)) {
- Self__HDHH=((__STRING *)st__L3HC);
- n__IDHH=(__INTEGER)(i__M3HC - 1);
- if ((n__IDHH > Self__HDHH->count__SGC)) {
- Self__HDHH->count__SGC= 0;
- } else {
- if ((n__IDHH > 0)) {
- remove_between__to__MIT(Self__HDHH, 1,n__IDHH);
- };
- };
- i__M3HC= 1;
- } else {
- remove_between__to__MIT(st__L3HC,idx__44HC,(__INTEGER)(i__M3HC - 1));
- i__M3HC=idx__44HC;
- };
- stat__N3HC= 1;
- };
- __tmp__V5HC=TRUE__;
- } else {
- __tmp__V5HC=FALSE__;
- };
- if (__tmp__V5HC) {
- __tmp__0AIC=TRUE__;
- } else {
- result__KLHE=(car__O3HC == '.');
- if (result__KLHE) {
- Self__2MFF=stat__N3HC;
- if ((stat__N3HC == 1)) {
- stat__N3HC= 2;
- };
- if ((Self__2MFF == 2)) {
- stat__N3HC= 3;
- };
- if ((Self__2MFF == 3)) {
- stat__N3HC= 0;
- };
- };
- __tmp__0AIC=result__KLHE;
- };
- if ((! __tmp__0AIC)) {
- if (((car__O3HC == ':') && (i__M3HC > 2))) {
- Self__LVJH=((__CHARACTER *)((__STRING *)st__L3HC)->storage__3CS)[(__INTEGER)((__INTEGER)(i__M3HC - 1) - 1)];
- result__KVJH=FALSE__;
- if ((((__INTEGER_8 )Self__LVJH) >= ((__INTEGER_8 )'a'))) {
- result__KVJH=(((__INTEGER_8 )Self__LVJH) <= ((__INTEGER_8 )'z'));
- __tmp__MVJH=TRUE__;
- } else {
- __tmp__MVJH=FALSE__;
- };
- if ((! __tmp__MVJH)) {
- if ((((__INTEGER_8 )Self__LVJH) >= ((__INTEGER_8 )'A'))) {
- result__KVJH=(((__INTEGER_8 )Self__LVJH) <= ((__INTEGER_8 )'Z'));
- };
- };
- __tmp__1BIC=result__KVJH;
- } else {
- __tmp__1BIC=FALSE__;
- };
- if ((__tmp__1BIC && (((__CHARACTER *)((__STRING *)st__L3HC)->storage__3CS)[(__INTEGER)((__INTEGER)(i__M3HC - 2) - 1)] == '/'))) {
- Self__JDHH=((__STRING *)st__L3HC);
- n__KDHH=(__INTEGER)(i__M3HC - 2);
- if ((n__KDHH > Self__JDHH->count__SGC)) {
- Self__JDHH->count__SGC= 0;
- } else {
- if ((n__KDHH > 0)) {
- remove_between__to__MIT(Self__JDHH, 1,n__KDHH);
- };
- };
- i__M3HC= 1;
- } else {
- stat__N3HC= 0;
- };
- };
- i__M3HC=(__INTEGER)(i__M3HC + 1);
- };
- if ((stat__N3HC == 1)) {
- Self__IQFH=((__STRING *)st__L3HC);
- if (( 1 > Self__IQFH->count__SGC)) {
- Self__IQFH->count__SGC= 0;
- } else {
- Self__IQFH->count__SGC=(__INTEGER)(Self__IQFH->count__SGC - 1);
- };
- };
- if ((stat__N3HC == 2)) {
- Self__KQFH=((__STRING *)st__L3HC);
- if (( 2 > Self__KQFH->count__SGC)) {
- Self__KQFH->count__SGC= 0;
- } else {
- Self__KQFH->count__SGC=(__INTEGER)(Self__KQFH->count__SGC - 2);
- };
- };
- if ((stat__N3HC == 3)) {
- idx__EDIC=last_index_of__since__KPGD(st__L3HC,(__INTEGER)(i__M3HC - 4));
- if ((idx__EDIC == 0)) {
- ((__STRING *)st__L3HC)->count__SGC= 0;
- } else {
- remove_between__to__MIT(st__L3HC,idx__EDIC,(__INTEGER)(i__M3HC - 1));
- };
- };
- if ((((__STRING *)st__L3HC)->count__SGC == 0)) {
- Self__U3HH=((__STRING *)st__L3HC);
- new_capacity__T3HH= 0;
- if ((Self__U3HH->capacity__UCS <= Self__U3HH->count__SGC)) {
- if ((Self__U3HH->capacity__UCS == 0)) {
- Self__U3HH->capacity__UCS= 32;
- Self__U3HH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__T3HH=(__INTEGER)(Self__U3HH->capacity__UCS << 1);
- Self__V3HH=((__CHARACTER *)Self__U3HH->storage__3CS);
- old_nb_elts__W3HH=Self__U3HH->capacity__UCS;
- new__X3HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__V3HH),((__UINTEGER_32 )old_nb_elts__W3HH),((__UINTEGER_32 )new_capacity__T3HH)));
- upper__QVJH=(__INTEGER)(new_capacity__T3HH - 1);
- Self__OVJH=old_nb_elts__W3HH;
- while ((Self__OVJH <= upper__QVJH)) {
- new__X3HH[Self__OVJH]='\0';
- Self__OVJH=(__INTEGER)(Self__OVJH + 1);
- };
- Self__U3HH->storage__3CS=new__X3HH;
- Self__U3HH->capacity__UCS=new_capacity__T3HH;
- };
- };
- ((__CHARACTER *)Self__U3HH->storage__3CS)[Self__U3HH->count__SGC]='/';
- Self__U3HH->count__SGC=(__INTEGER)(Self__U3HH->count__SGC + 1);
- };
-}
-
-static void* reference_at__VV0C(__HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo *Self__WV0C,void *k__XV0C)
-// ({HASHED_DICTIONARYoENTRYxABSTRACT_STRINGo},{NULLxSTRING}) With resultNo recursive, No inlinable.
-{
- void *result__BW0C;
- void *node__AW0C;
- result__BW0C=NULL;
- node__AW0C=((void **)Self__WV0C->buckets__B2S)[(__INTEGER)(hash_code__UFX(k__XV0C) % Self__WV0C->capacity__21S)];
- while ((! (((void *)node__AW0C == (void *)NULL) || __infix_equal_equal__V2DB(((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node__AW0C)->key__N2S,k__XV0C)))) {
- node__AW0C=((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node__AW0C)->next__Z2S;
- };
- if (((void *)node__AW0C != (void *)NULL)) {
- result__BW0C=((__HASHED_DICTIONARY_NODEoENTRYxABSTRACT_STRINGo *)node__AW0C)->item__TPOB;
- };
- return(result__BW0C);
-}
-
-static __INTEGER fast_reverse_index_of__from__KA3(__CHARACTER *Self__LA3,__CHARACTER element__MA3,__INTEGER upper__NA3)
-// ({NATIVE_ARRAYoExpanded_CHARACTERo},{CHARACTER},{INTEGER}) With resultNo recursive, No inlinable.
-{
- __INTEGER idx__XA3;
- idx__XA3=upper__NA3;
- while ((! ((idx__XA3 < 0) || (element__MA3 == Self__LA3[idx__XA3])))) {
- idx__XA3=(__INTEGER)(idx__XA3 - 1);
- };
- return(idx__XA3);
-}
-
-static void* physical_get_entry__JY0C(void *new_path__LY0C)
-// ({NULLxSTRING}) With resultNo recursive, No inlinable.
-{
- void *result__OY0C;
- __STRING *Self__A2GH;
- __INTEGER new_capacity__Z3HH,old_nb_elts__23HH,upper__VVJH,Self__TVJH;
- __INTEGER typ_id__J0I,typ_id__01I;
- __FILE_UNIX *result__D0I;
- __POINTER ptr__E0I,ptr_table__YVJH,next__XVJH,result__ZVJH;
- __POINTER ptr_table__3VJH,next__2VJH,result__4VJH,ptr__V1I;
- __POINTER ptr_table__CWJH,next__BWJH,result__DWJH,ptr_table__HWJH;
- __POINTER next__GWJH,result__IWJH;
- __UINTEGER_32 sz__G0I,a__Y1FH,new_size__Z1FH,t__31FH,a__21FH;
- __UINTEGER_32 new_size__AWJH,lab_type__5VJH,sz__X1I,a__A2FH;
- __UINTEGER_32 new_size__B2FH,t__F2FH,a__E2FH,new_size__KWJH;
- __UINTEGER_32 lab_type__JWJH;
- __DIRECTORY_UNIX *result__U1I;
- void *__tmp__FZ0C;
- __CHARACTER *Self__13HH,*new__33HH,*pe__NY0C;
- result__OY0C=NULL;
- Self__A2GH=((__STRING *)new_path__LY0C);
- if ((Self__A2GH->capacity__UCS > Self__A2GH->count__SGC)) {
- ((__CHARACTER *)Self__A2GH->storage__3CS)[Self__A2GH->count__SGC]='\0';
- } else {
- new_capacity__Z3HH= 0;
- if ((Self__A2GH->capacity__UCS <= Self__A2GH->count__SGC)) {
- if ((Self__A2GH->capacity__UCS == 0)) {
- Self__A2GH->capacity__UCS= 32;
- Self__A2GH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__Z3HH=(__INTEGER)(Self__A2GH->capacity__UCS << 1);
- Self__13HH=((__CHARACTER *)Self__A2GH->storage__3CS);
- old_nb_elts__23HH=Self__A2GH->capacity__UCS;
- new__33HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__13HH),((__UINTEGER_32 )old_nb_elts__23HH),((__UINTEGER_32 )new_capacity__Z3HH)));
- upper__VVJH=(__INTEGER)(new_capacity__Z3HH - 1);
- Self__TVJH=old_nb_elts__23HH;
- while ((Self__TVJH <= upper__VVJH)) {
- new__33HH[Self__TVJH]='\0';
- Self__TVJH=(__INTEGER)(Self__TVJH + 1);
- };
- Self__A2GH->storage__3CS=new__33HH;
- Self__A2GH->capacity__UCS=new_capacity__Z3HH;
- };
- };
- ((__CHARACTER *)Self__A2GH->storage__3CS)[Self__A2GH->count__SGC]='\0';
- Self__A2GH->count__SGC=(__INTEGER)(Self__A2GH->count__SGC + 1);
- Self__A2GH->count__SGC=(__INTEGER)(Self__A2GH->count__SGC - 1);
- };
- pe__NY0C=Self__A2GH->storage__3CS;
- { struct stat t;
- if ((((__INTEGER )(stat((pe__NY0C),&t))) == 0)) {
- if ((((__INTEGER )(S_ISDIR(t.st_mode))) == 0)) {
- result__D0I=NULL;
- ptr__E0I=((__POINTER )(NULL));
- typ_id__J0I= 0;
- sz__G0I=((__UINTEGER_32 )sizeof(__FILE_UNIX));
- if ((sz__G0I == 0)) {
- result__D0I=FILE_UNIX__;
- } else {
- typ_id__J0I=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__G0I);
- if ((typ_id__J0I == (__INTEGER)(- 1))) {
- a__Y1FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__Z1FH=(__UINTEGER_32)((__UINTEGER_32)(sz__G0I + a__Y1FH) & (__UINTEGER_32)(~ a__Y1FH));
- ptr_table__YVJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__Z1FH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__XVJH=((__POINTER )(NULL));
- result__ZVJH=((__POINTER *)ptr_table__YVJH)[ 0];
- if ((result__ZVJH == (void *)NULL)) {
- result__ZVJH=new_lab__RTJ(new_size__Z1FH);
- next__XVJH=(void *)((unsigned long)result__ZVJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Z1FH)));
- ((__POINTER *)next__XVJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__YVJH)[ 0]=next__XVJH;
- } else {
- next__XVJH=((__POINTER *)result__ZVJH)[ 0];
- if ((next__XVJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZVJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__Z1FH << 1)) <= 4096)) {
- next__XVJH=(void *)((unsigned long)result__ZVJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Z1FH)));
- } else {
- next__XVJH=new_lab__RTJ(new_size__Z1FH);
- };
- ((__POINTER *)next__XVJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__YVJH)[ 0]=next__XVJH;
- } else {
- ((__POINTER *)result__ZVJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XVJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__ZVJH=next__XVJH;
- };
- };
- ptr__E0I=result__ZVJH;
- } else {
- t__31FH=((__UINTEGER_32 )typ_id__J0I);
- a__21FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__AWJH=(__UINTEGER_32)((__UINTEGER_32)(sz__G0I + a__21FH) & (__UINTEGER_32)(~ a__21FH));
- ptr_table__3VJH=((__POINTER )(&(table_type[(t__31FH)])));
- lab_type__5VJH=(__UINTEGER_32)(t__31FH | 1);
- next__2VJH=((__POINTER )(NULL));
- result__4VJH=((__POINTER *)ptr_table__3VJH)[ 0];
- if ((result__4VJH == (void *)NULL)) {
- result__4VJH=new_lab__RTJ(lab_type__5VJH);
- next__2VJH=(void *)((unsigned long)result__4VJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AWJH)));
- ((__POINTER *)next__2VJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__3VJH)[ 0]=next__2VJH;
- } else {
- next__2VJH=((__POINTER *)result__4VJH)[ 0];
- if ((next__2VJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4VJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__AWJH << 1)) <= 4096)) {
- next__2VJH=(void *)((unsigned long)result__4VJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AWJH)));
- } else {
- next__2VJH=new_lab__RTJ(lab_type__5VJH);
- };
- ((__POINTER *)next__2VJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__3VJH)[ 0]=next__2VJH;
- } else {
- ((__POINTER *)result__4VJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2VJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__4VJH=next__2VJH;
- };
- };
- ptr__E0I=result__4VJH;
- };
- result__D0I=((__FILE_UNIX *)ptr__E0I);
- *(result__D0I) = *(FILE_UNIX__);
- };
- result__OY0C=result__D0I;
- } else {
- result__U1I=NULL;
- ptr__V1I=((__POINTER )(NULL));
- typ_id__01I= 0;
- sz__X1I=((__UINTEGER_32 )sizeof(__DIRECTORY_UNIX));
- if ((sz__X1I == 0)) {
- result__U1I=DIRECTORY_UNIX__;
- } else {
- typ_id__01I=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__X1I);
- if ((typ_id__01I == (__INTEGER)(- 1))) {
- a__A2FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__B2FH=(__UINTEGER_32)((__UINTEGER_32)(sz__X1I + a__A2FH) & (__UINTEGER_32)(~ a__A2FH));
- ptr_table__CWJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__B2FH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__BWJH=((__POINTER )(NULL));
- result__DWJH=((__POINTER *)ptr_table__CWJH)[ 0];
- if ((result__DWJH == (void *)NULL)) {
- result__DWJH=new_lab__RTJ(new_size__B2FH);
- next__BWJH=(void *)((unsigned long)result__DWJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__B2FH)));
- ((__POINTER *)next__BWJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__CWJH)[ 0]=next__BWJH;
- } else {
- next__BWJH=((__POINTER *)result__DWJH)[ 0];
- if ((next__BWJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DWJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__B2FH << 1)) <= 4096)) {
- next__BWJH=(void *)((unsigned long)result__DWJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__B2FH)));
- } else {
- next__BWJH=new_lab__RTJ(new_size__B2FH);
- };
- ((__POINTER *)next__BWJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__CWJH)[ 0]=next__BWJH;
- } else {
- ((__POINTER *)result__DWJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BWJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__DWJH=next__BWJH;
- };
- };
- ptr__V1I=result__DWJH;
- } else {
- t__F2FH=((__UINTEGER_32 )typ_id__01I);
- a__E2FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__KWJH=(__UINTEGER_32)((__UINTEGER_32)(sz__X1I + a__E2FH) & (__UINTEGER_32)(~ a__E2FH));
- ptr_table__HWJH=((__POINTER )(&(table_type[(t__F2FH)])));
- lab_type__JWJH=(__UINTEGER_32)(t__F2FH | 1);
- next__GWJH=((__POINTER )(NULL));
- result__IWJH=((__POINTER *)ptr_table__HWJH)[ 0];
- if ((result__IWJH == (void *)NULL)) {
- result__IWJH=new_lab__RTJ(lab_type__JWJH);
- next__GWJH=(void *)((unsigned long)result__IWJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KWJH)));
- ((__POINTER *)next__GWJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__HWJH)[ 0]=next__GWJH;
- } else {
- next__GWJH=((__POINTER *)result__IWJH)[ 0];
- if ((next__GWJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IWJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__KWJH << 1)) <= 4096)) {
- next__GWJH=(void *)((unsigned long)result__IWJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KWJH)));
- } else {
- next__GWJH=new_lab__RTJ(lab_type__JWJH);
- };
- ((__POINTER *)next__GWJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__HWJH)[ 0]=next__GWJH;
- } else {
- ((__POINTER *)result__IWJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GWJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__IWJH=next__GWJH;
- };
- };
- ptr__V1I=result__IWJH;
- };
- result__U1I=((__DIRECTORY_UNIX *)ptr__V1I);
- *(result__U1I) = *(DIRECTORY_UNIX__);
- };
- result__OY0C=result__U1I;
- };
- if (((struct ___OBJ *)result__OY0C)->__id==__DIRECTORY_UNIX__) {
- set_path__HPT(result__OY0C,new_path__LY0C);
- } else {
- set_path__CQT(result__OY0C,new_path__LY0C);
- };
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- if (((struct ___OBJ *)result__OY0C)->__id==__DIRECTORY_UNIX__) {
- __tmp__FZ0C=((__DIRECTORY_UNIX *)result__OY0C)->parent_entry_unix__RGD.parent_entry__QGD.path__BD;
- } else {
- __tmp__FZ0C=((__FILE_UNIX *)result__OY0C)->parent_entry_unix__EFF.parent_entry__QGD.path__BD;
- };
- put__to__N1S(alias__2GD,result__OY0C,__tmp__FZ0C);
- };
- };
- return(result__OY0C);
-}
-
-static void** create__G01C(__INTEGER nb_elements__I01C)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__NDHH,a__MDHH,new_size__ODHH,new_size2__PDHH,a__QDHH;
- __UINTEGER_32 new_size__RDHH;
- __POINTER result__LDHH,ptr_table__MWJH,next__LWJH,result__NWJH;
- __INTEGER Self__VCXD;
- void **Result__5WCD;
- sz__NDHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__I01C * ((__INTEGER )(sizeof(void *)))));
- result__LDHH=((__POINTER )(NULL));
- a__MDHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ODHH=(__UINTEGER_32)((__UINTEGER_32)(sz__NDHH + a__MDHH) & (__UINTEGER_32)(~ a__MDHH));
- new_size2__PDHH=(__UINTEGER_32)(new_size__ODHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__PDHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__QDHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__RDHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__PDHH + a__QDHH) & (__UINTEGER_32)(~ a__QDHH));
- ptr_table__MWJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__RDHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__LWJH=((__POINTER )(NULL));
- result__NWJH=((__POINTER *)ptr_table__MWJH)[ 0];
- if ((result__NWJH == (void *)NULL)) {
- result__NWJH=new_lab__RTJ(new_size__RDHH);
- next__LWJH=(void *)((unsigned long)result__NWJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RDHH)));
- ((__POINTER *)next__LWJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__MWJH)[ 0]=next__LWJH;
- } else {
- next__LWJH=((__POINTER *)result__NWJH)[ 0];
- if ((next__LWJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NWJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__RDHH << 1)) <= 4096)) {
- next__LWJH=(void *)((unsigned long)result__NWJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RDHH)));
- } else {
- next__LWJH=new_lab__RTJ(new_size__RDHH);
- };
- ((__POINTER *)next__LWJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__MWJH)[ 0]=next__LWJH;
- } else {
- ((__POINTER *)result__NWJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LWJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__NWJH=next__LWJH;
- };
- };
- ((__POINTER *)result__NWJH)[ 0]=((__POINTER ) 3);
- result__LDHH=(void *)((unsigned long)result__NWJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__LDHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__ODHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__5WCD=((void **)result__LDHH);
- Self__VCXD=(__INTEGER)(nb_elements__I01C - 1);
- while ((Self__VCXD >= 0)) {
- Result__5WCD[Self__VCXD]=NULL;
- Self__VCXD=(__INTEGER)(Self__VCXD - 1);
- };
- return(Result__5WCD);
-}
-
-static void** create__PRSC(__INTEGER nb_elements__RRSC)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__VDHH,a__UDHH,new_size__WDHH,new_size2__XDHH,a__YDHH;
- __UINTEGER_32 new_size__ZDHH;
- __POINTER result__TDHH,ptr_table__RWJH,next__QWJH,result__SWJH;
- __INTEGER Self__1TWD;
- void **Result__H31C;
- sz__VDHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__RRSC * ((__INTEGER )(sizeof(void *)))));
- result__TDHH=((__POINTER )(NULL));
- a__UDHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__WDHH=(__UINTEGER_32)((__UINTEGER_32)(sz__VDHH + a__UDHH) & (__UINTEGER_32)(~ a__UDHH));
- new_size2__XDHH=(__UINTEGER_32)(new_size__WDHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__XDHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__YDHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ZDHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__XDHH + a__YDHH) & (__UINTEGER_32)(~ a__YDHH));
- ptr_table__RWJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ZDHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__QWJH=((__POINTER )(NULL));
- result__SWJH=((__POINTER *)ptr_table__RWJH)[ 0];
- if ((result__SWJH == (void *)NULL)) {
- result__SWJH=new_lab__RTJ(new_size__ZDHH);
- next__QWJH=(void *)((unsigned long)result__SWJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZDHH)));
- ((__POINTER *)next__QWJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__RWJH)[ 0]=next__QWJH;
- } else {
- next__QWJH=((__POINTER *)result__SWJH)[ 0];
- if ((next__QWJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SWJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__ZDHH << 1)) <= 4096)) {
- next__QWJH=(void *)((unsigned long)result__SWJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZDHH)));
- } else {
- next__QWJH=new_lab__RTJ(new_size__ZDHH);
- };
- ((__POINTER *)next__QWJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__RWJH)[ 0]=next__QWJH;
- } else {
- ((__POINTER *)result__SWJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QWJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__SWJH=next__QWJH;
- };
- };
- ((__POINTER *)result__SWJH)[ 0]=((__POINTER ) 3);
- result__TDHH=(void *)((unsigned long)result__SWJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__TDHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__WDHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__H31C=((void **)result__TDHH);
- Self__1TWD=(__INTEGER)(nb_elements__RRSC - 1);
- while ((Self__1TWD >= 0)) {
- Result__H31C[Self__1TWD]=NULL;
- Self__1TWD=(__INTEGER)(Self__1TWD - 1);
- };
- return(Result__H31C);
-}
-
-static void short__token__to__GDD(void *key__IDD,__INTEGER beg__JDD,__INTEGER end__KDD)
-// ({STRING_CONSTANT},{INTEGER},{INTEGER}) VoidNo recursive, No inlinable.
-{
- __INTEGER pos__LDD,__tmp__GED,Self__1J4,new_capacity__F4HH;
- __INTEGER old_nb_elts__I4HH,upper__3WJH,Self__1WJH,__tmp__2ED;
- __INTEGER Self__ML4,__tmp__SFD,__tmp__VFD;
- void *add_text__MDD;
- __STRING *Self__G4HH;
- void *fmt__NDD;
- __CHARACTER ch__K4HH;
- __CHARACTER *Self__H4HH,*new__J4HH;
- pos__LDD= 0;
- add_text__MDD=NULL;
- fmt__NDD=NULL;
- if (is_shorter__LZ) {
- if (is_active_short__OCC) {
- if (fast_has__IDT(short_dico__QD,key__IDD)) {
- ((__STRING *)token__BED)->count__SGC= 0;
- pos__LDD=(__INTEGER)(beg__JDD + short_derive__PCC);
- __tmp__GED=(__INTEGER)(end__KDD - 1);
- Self__1J4=beg__JDD;
- while ((Self__1J4 <= __tmp__GED)) {
- Self__G4HH=((__STRING *)token__BED);
- ch__K4HH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(Self__1J4 - 1)];
- new_capacity__F4HH= 0;
- if ((Self__G4HH->capacity__UCS <= Self__G4HH->count__SGC)) {
- if ((Self__G4HH->capacity__UCS == 0)) {
- Self__G4HH->capacity__UCS= 32;
- Self__G4HH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__F4HH=(__INTEGER)(Self__G4HH->capacity__UCS << 1);
- Self__H4HH=((__CHARACTER *)Self__G4HH->storage__3CS);
- old_nb_elts__I4HH=Self__G4HH->capacity__UCS;
- new__J4HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__H4HH),((__UINTEGER_32 )old_nb_elts__I4HH),((__UINTEGER_32 )new_capacity__F4HH)));
- upper__3WJH=(__INTEGER)(new_capacity__F4HH - 1);
- Self__1WJH=old_nb_elts__I4HH;
- while ((Self__1WJH <= upper__3WJH)) {
- new__J4HH[Self__1WJH]='\0';
- Self__1WJH=(__INTEGER)(Self__1WJH + 1);
- };
- Self__G4HH->storage__3CS=new__J4HH;
- Self__G4HH->capacity__UCS=new_capacity__F4HH;
- };
- };
- ((__CHARACTER *)Self__G4HH->storage__3CS)[Self__G4HH->count__SGC]=ch__K4HH;
- Self__G4HH->count__SGC=(__INTEGER)(Self__G4HH->count__SGC + 1);
- remove_between__to__MIT(((__STRING *)output_code__SI),pos__LDD,pos__LDD);
- Self__1J4=(__INTEGER)(Self__1J4 + 1);
- };
- short_derive__PCC=(__INTEGER)(short_derive__PCC - ((__STRING *)token__BED)->count__SGC);
- fmt__NDD=at__JK4(short_dico__QD,key__IDD);
- __tmp__2ED=((__LINKED_LISToSTRING_CONSTANTo *)fmt__NDD)->parent_linked_collection__LD.upper__0ED;
- Self__ML4= 1;
- while ((Self__ML4 <= __tmp__2ED)) {
- if (((void *)item__X3ND(fmt__NDD,Self__ML4) == (void *)NULL)) {
- add_text__MDD=token__BED;
- } else {
- add_text__MDD=item__X3ND(fmt__NDD,Self__ML4);
- };
- insert_string__to__OXU(output_code__SI,add_text__MDD,pos__LDD);
- if (((struct ___OBJ *)add_text__MDD)->__id==__STRING_CONSTANT__) {
- __tmp__SFD=((__STRING_CONSTANT *)add_text__MDD)->count__DD;
- } else {
- __tmp__SFD=((__STRING *)add_text__MDD)->count__SGC;
- };
- pos__LDD=(__INTEGER)(pos__LDD + __tmp__SFD);
- if (((struct ___OBJ *)add_text__MDD)->__id==__STRING_CONSTANT__) {
- __tmp__VFD=((__STRING_CONSTANT *)add_text__MDD)->count__DD;
- } else {
- __tmp__VFD=((__STRING *)add_text__MDD)->count__SGC;
- };
- short_derive__PCC=(__INTEGER)(short_derive__PCC + __tmp__VFD);
- Self__ML4=(__INTEGER)(Self__ML4 + 1);
- };
- };
- };
- };
-}
-
-static __INTEGER first_substring_index__W0ZE(__STRING *Self__X0ZE)
-// ({STRING}) With resultNo recursive, No inlinable.
-{
- __INTEGER i__OA5E,result__QA5E,s__PA5E,__tmp__LGEH,__tmp__MGEH;
- __INTEGER __tmp__NGEH,__tmp__QGEH;
- __CHARACTER *__tmp__OGEH,*__tmp__PGEH;
- i__OA5E= 0;
- result__QA5E= 0;
- s__PA5E= 1;
- __tmp__LGEH=((__STRING_CONSTANT *)(&__string_112))->count__DD;
- __tmp__MGEH=Self__X0ZE->count__SGC;
- __tmp__NGEH=((__STRING_CONSTANT *)(&__string_112))->count__DD;
- __tmp__OGEH=Self__X0ZE->storage__3CS;
- __tmp__PGEH=((__STRING_CONSTANT *)(&__string_112))->storage__RRO;
- __tmp__QGEH=((__STRING_CONSTANT *)(&__string_112))->count__DD;
- while ((! ((result__QA5E != 0) || ((__INTEGER)((__INTEGER)(s__PA5E + __tmp__LGEH) - 1) > __tmp__MGEH)))) {
- i__OA5E= 1;
- while ((! ((i__OA5E > __tmp__NGEH) || (((__CHARACTER *)__tmp__OGEH)[(__INTEGER)((__INTEGER)((__INTEGER)(s__PA5E + i__OA5E) - 1) - 1)] != ((__CHARACTER *)__tmp__PGEH)[(__INTEGER)(i__OA5E - 1)])))) {
- i__OA5E=(__INTEGER)(i__OA5E + 1);
- };
- if ((i__OA5E > __tmp__QGEH)) {
- result__QA5E=s__PA5E;
- } else {
- s__PA5E=(__INTEGER)(s__PA5E + 1);
- };
- };
- return(result__QA5E);
-}
-
-static __BOOLEAN read_string__HGQ()
-// () With resultNo recursive, No inlinable.
-{
- __INTEGER old_pos__LGQ,new_capacity__53HH,old_nb_elts__C4HH;
- __INTEGER upper__YWJH,Self__WWJH;
- __STRING *Self__A4HH;
- __POSITION pos__CSXG;
- __BOOLEAN result__KGQ,__tmp__VGQ,__tmp__UHQ,__tmp__VHQ;
- __CHARACTER result__4Q5G,result__IR5G,result__RR5G,result__WR5G;
- __CHARACTER result__1R5G,result__AS5G,result__FS5G;
- __CHARACTER *Self__B4HH,*new__D4HH;
- result__KGQ=FALSE__;
- old_pos__LGQ= 0;
- if (read_space__XTD()) {
- result__4Q5G='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__4Q5G=((__CHARACTER )(( 0)));
- } else {
- result__4Q5G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__VGQ=(result__4Q5G == '\"');
- } else {
- __tmp__VGQ=FALSE__;
- };
- if (__tmp__VGQ) {
- old_pos__LGQ=position__CCC;
- position__CCC=(__INTEGER)(position__CCC + 1);
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- until_do__QKRC:
- {
- result__IR5G='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__IR5G=((__CHARACTER )(( 0)));
- } else {
- result__IR5G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__IR5G == ((__CHARACTER )(( 0))))) {
- __tmp__UHQ=TRUE__;
- } else {
- result__RR5G='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__RR5G=((__CHARACTER )(( 0)));
- } else {
- result__RR5G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__UHQ=(result__RR5G == '\n');
- };
- if (__tmp__UHQ) {
- __tmp__VHQ=TRUE__;
- } else {
- result__WR5G='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__WR5G=((__CHARACTER )(( 0)));
- } else {
- result__WR5G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__VHQ=(result__WR5G == '\"');
- };
- if ((! __tmp__VHQ)) {
- result__1R5G='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__1R5G=((__CHARACTER )(( 0)));
- } else {
- result__1R5G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- Self__A4HH=((__STRING *)string_tmp__VH);
- new_capacity__53HH= 0;
- if ((Self__A4HH->capacity__UCS <= Self__A4HH->count__SGC)) {
- if ((Self__A4HH->capacity__UCS == 0)) {
- Self__A4HH->capacity__UCS= 32;
- Self__A4HH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__53HH=(__INTEGER)(Self__A4HH->capacity__UCS << 1);
- Self__B4HH=((__CHARACTER *)Self__A4HH->storage__3CS);
- old_nb_elts__C4HH=Self__A4HH->capacity__UCS;
- new__D4HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__B4HH),((__UINTEGER_32 )old_nb_elts__C4HH),((__UINTEGER_32 )new_capacity__53HH)));
- upper__YWJH=(__INTEGER)(new_capacity__53HH - 1);
- Self__WWJH=old_nb_elts__C4HH;
- while ((Self__WWJH <= upper__YWJH)) {
- new__D4HH[Self__WWJH]='\0';
- Self__WWJH=(__INTEGER)(Self__WWJH + 1);
- };
- Self__A4HH->storage__3CS=new__D4HH;
- Self__A4HH->capacity__UCS=new_capacity__53HH;
- };
- };
- ((__CHARACTER *)Self__A4HH->storage__3CS)[Self__A4HH->count__SGC]=result__1R5G;
- Self__A4HH->count__SGC=(__INTEGER)(Self__A4HH->count__SGC + 1);
- result__AS5G='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__AS5G=((__CHARACTER )(( 0)));
- } else {
- result__AS5G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__AS5G == '\\')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- read_escape_character__AALF();
- } else {
- position__CCC=(__INTEGER)(position__CCC + 1);
- };
- goto until_do__QKRC;
- };
- };
- result__FS5G='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__FS5G=((__CHARACTER )(( 0)));
- } else {
- result__FS5G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__FS5G == '\"')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- last_string__D2C=get__YWB(string_tmp__VH);
- result__KGQ=TRUE__;
- short__token__to__GDD((&__string_123),old_pos__LGQ,position__CCC);
- } else {
- position__CCC=begin_position__BDE;
- pos__CSXG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_251));
- put_position__FRG(pos__CSXG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- return(result__KGQ);
-}
-
-static __BOOLEAN fast_memcmp__until__FYYB(__CHARACTER *Self__GYYB,__CHARACTER *other__HYYB,__INTEGER capacity__IYYB)
-// ({NATIVE_ARRAYoExpanded_CHARACTERo},{NULLxNATIVE_ARRAYoExpanded_CHARACTERo},{INTEGER}) With resultNo recursive, No inlinable.
-{
- __INTEGER i__0YYB;
- i__0YYB=(__INTEGER)(capacity__IYYB - 1);
- while (((i__0YYB >= 0) && (Self__GYYB[i__0YYB] == ((__CHARACTER *)other__HYYB)[i__0YYB]))) {
- i__0YYB=(__INTEGER)(i__0YYB - 1);
- };
- return((i__0YYB < 0));
-}
-
-static void reduce_path__UO3E(void *st__WO3E)
-// ({NULLxSTRING}) VoidNo recursive, No inlinable.
-{
- __INTEGER stat__YO3E,i__XO3E,Self__JW1F,n__2DHH,idx__JQ3E,n__4DHH;
- __INTEGER Self__ETEG,n__AEHH,idx__PU3E,new_capacity__L4HH;
- __INTEGER old_nb_elts__O4HH,upper__CXJH,Self__AXJH;
- __STRING *Self__1DHH,*Self__3DHH,*Self__5DHH,*Self__ZQFH,*Self__1QFH;
- __STRING *Self__M4HH;
- __CHARACTER car__ZO3E,Self__3D3E;
- __BOOLEAN __tmp__AR3E,__tmp__FS3E,result__ZAYF,result__5D3E;
- __BOOLEAN __tmp__JE3E,__tmp__GT3E;
- __CHARACTER *Self__N4HH,*new__P4HH;
- stat__YO3E= 0;
- car__ZO3E='\0';
- replace_all__with__CRS(st__WO3E,'\\','/');
- i__XO3E= 1;
- while ((i__XO3E <= ((__STRING *)st__WO3E)->count__SGC)) {
- car__ZO3E=((__CHARACTER *)((__STRING *)st__WO3E)->storage__3CS)[(__INTEGER)(i__XO3E - 1)];
- if ((car__ZO3E == '/')) {
- Self__JW1F=stat__YO3E;
- if ((stat__YO3E == 0)) {
- stat__YO3E= 1;
- };
- if ((Self__JW1F == 1)) {
- Self__1DHH=((__STRING *)st__WO3E);
- n__2DHH=(__INTEGER)(i__XO3E - 1);
- if ((n__2DHH > Self__1DHH->count__SGC)) {
- Self__1DHH->count__SGC= 0;
- } else {
- if ((n__2DHH > 0)) {
- remove_between__to__MIT(Self__1DHH, 1,n__2DHH);
- };
- };
- i__XO3E= 1;
- };
- if ((Self__JW1F == 2)) {
- remove_between__to__MIT(st__WO3E,(__INTEGER)(i__XO3E - 1),i__XO3E);
- i__XO3E=(__INTEGER)(i__XO3E - 2);
- stat__YO3E= 1;
- };
- if ((Self__JW1F == 3)) {
- idx__JQ3E=last_index_of__since__KPGD(st__WO3E,(__INTEGER)(i__XO3E - 4));
- if ((idx__JQ3E == 0)) {
- Self__3DHH=((__STRING *)st__WO3E);
- n__4DHH=(__INTEGER)(i__XO3E - 1);
- if ((n__4DHH > Self__3DHH->count__SGC)) {
- Self__3DHH->count__SGC= 0;
- } else {
- if ((n__4DHH > 0)) {
- remove_between__to__MIT(Self__3DHH, 1,n__4DHH);
- };
- };
- i__XO3E= 1;
- } else {
- remove_between__to__MIT(st__WO3E,idx__JQ3E,(__INTEGER)(i__XO3E - 1));
- i__XO3E=idx__JQ3E;
- };
- stat__YO3E= 1;
- };
- __tmp__AR3E=TRUE__;
- } else {
- __tmp__AR3E=FALSE__;
- };
- if (__tmp__AR3E) {
- __tmp__FS3E=TRUE__;
- } else {
- result__ZAYF=(car__ZO3E == '.');
- if (result__ZAYF) {
- Self__ETEG=stat__YO3E;
- if ((stat__YO3E == 1)) {
- stat__YO3E= 2;
- };
- if ((Self__ETEG == 2)) {
- stat__YO3E= 3;
- };
- if ((Self__ETEG == 3)) {
- stat__YO3E= 0;
- };
- };
- __tmp__FS3E=result__ZAYF;
- };
- if ((! __tmp__FS3E)) {
- if (((car__ZO3E == ':') && (i__XO3E > 2))) {
- Self__3D3E=((__CHARACTER *)((__STRING *)st__WO3E)->storage__3CS)[(__INTEGER)((__INTEGER)(i__XO3E - 1) - 1)];
- result__5D3E=FALSE__;
- if ((((__INTEGER_8 )Self__3D3E) >= ((__INTEGER_8 )'a'))) {
- result__5D3E=(((__INTEGER_8 )Self__3D3E) <= ((__INTEGER_8 )'z'));
- __tmp__JE3E=TRUE__;
- } else {
- __tmp__JE3E=FALSE__;
- };
- if ((! __tmp__JE3E)) {
- if ((((__INTEGER_8 )Self__3D3E) >= ((__INTEGER_8 )'A'))) {
- result__5D3E=(((__INTEGER_8 )Self__3D3E) <= ((__INTEGER_8 )'Z'));
- };
- };
- __tmp__GT3E=result__5D3E;
- } else {
- __tmp__GT3E=FALSE__;
- };
- if ((__tmp__GT3E && (((__CHARACTER *)((__STRING *)st__WO3E)->storage__3CS)[(__INTEGER)((__INTEGER)(i__XO3E - 2) - 1)] == '/'))) {
- Self__5DHH=((__STRING *)st__WO3E);
- n__AEHH=(__INTEGER)(i__XO3E - 2);
- if ((n__AEHH > Self__5DHH->count__SGC)) {
- Self__5DHH->count__SGC= 0;
- } else {
- if ((n__AEHH > 0)) {
- remove_between__to__MIT(Self__5DHH, 1,n__AEHH);
- };
- };
- i__XO3E= 1;
- } else {
- stat__YO3E= 0;
- };
- };
- i__XO3E=(__INTEGER)(i__XO3E + 1);
- };
- if ((stat__YO3E == 1)) {
- Self__ZQFH=((__STRING *)st__WO3E);
- if (( 1 > Self__ZQFH->count__SGC)) {
- Self__ZQFH->count__SGC= 0;
- } else {
- Self__ZQFH->count__SGC=(__INTEGER)(Self__ZQFH->count__SGC - 1);
- };
- };
- if ((stat__YO3E == 2)) {
- Self__1QFH=((__STRING *)st__WO3E);
- if (( 2 > Self__1QFH->count__SGC)) {
- Self__1QFH->count__SGC= 0;
- } else {
- Self__1QFH->count__SGC=(__INTEGER)(Self__1QFH->count__SGC - 2);
- };
- };
- if ((stat__YO3E == 3)) {
- idx__PU3E=last_index_of__since__KPGD(st__WO3E,(__INTEGER)(i__XO3E - 4));
- if ((idx__PU3E == 0)) {
- ((__STRING *)st__WO3E)->count__SGC= 0;
- } else {
- remove_between__to__MIT(st__WO3E,idx__PU3E,(__INTEGER)(i__XO3E - 1));
- };
- };
- if ((((__STRING *)st__WO3E)->count__SGC == 0)) {
- Self__M4HH=((__STRING *)st__WO3E);
- new_capacity__L4HH= 0;
- if ((Self__M4HH->capacity__UCS <= Self__M4HH->count__SGC)) {
- if ((Self__M4HH->capacity__UCS == 0)) {
- Self__M4HH->capacity__UCS= 32;
- Self__M4HH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__L4HH=(__INTEGER)(Self__M4HH->capacity__UCS << 1);
- Self__N4HH=((__CHARACTER *)Self__M4HH->storage__3CS);
- old_nb_elts__O4HH=Self__M4HH->capacity__UCS;
- new__P4HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__N4HH),((__UINTEGER_32 )old_nb_elts__O4HH),((__UINTEGER_32 )new_capacity__L4HH)));
- upper__CXJH=(__INTEGER)(new_capacity__L4HH - 1);
- Self__AXJH=old_nb_elts__O4HH;
- while ((Self__AXJH <= upper__CXJH)) {
- new__P4HH[Self__AXJH]='\0';
- Self__AXJH=(__INTEGER)(Self__AXJH + 1);
- };
- Self__M4HH->storage__3CS=new__P4HH;
- Self__M4HH->capacity__UCS=new_capacity__L4HH;
- };
- };
- ((__CHARACTER *)Self__M4HH->storage__3CS)[Self__M4HH->count__SGC]='/';
- Self__M4HH->count__SGC=(__INTEGER)(Self__M4HH->count__SGC + 1);
- };
-}
-
-static void* item__V3PE(__DIRECTORY_UNIX *Self__W3PE,__INTEGER i__X3PE)
-// ({DIRECTORY_UNIX},{INTEGER}) With resultNo recursive, No inlinable.
-{
- __LINKED_LISToENTRYo *Self__V5WE;
- Self__V5WE=((__LINKED_LISToENTRYo *)Self__W3PE->parent_directory__SGD.list__FIRD);
- if ((i__X3PE != Self__V5WE->mem_idx__VMWE)) {
- if ((Self__V5WE->mem_idx__VMWE > i__X3PE)) {
- Self__V5WE->mem_idx__VMWE= 1;
- Self__V5WE->mem_lnk__WMWE=Self__V5WE->first_link__OMWE;
- };
- while ((i__X3PE != Self__V5WE->mem_idx__VMWE)) {
- Self__V5WE->mem_lnk__WMWE=((__LINKED_LIST_NODEoENTRYo *)Self__V5WE->mem_lnk__WMWE)->next__G3FF;
- Self__V5WE->mem_idx__VMWE=(__INTEGER)(Self__V5WE->mem_idx__VMWE + 1);
- };
- };
- return(((__LINKED_LIST_NODEoENTRYo *)Self__V5WE->mem_lnk__WMWE)->item__IAXE);
-}
-
-static void* item__X3ND(__LINKED_LISToSTRING_CONSTANTo *Self__Y3ND,__INTEGER i__Z3ND)
-// ({LINKED_LISToSTRING_CONSTANTo},{INTEGER}) With resultNo recursive, No inlinable.
-{
- if ((i__Z3ND != Self__Y3ND->mem_idx__YTEC)) {
- if ((Self__Y3ND->mem_idx__YTEC > i__Z3ND)) {
- Self__Y3ND->mem_idx__YTEC= 1;
- Self__Y3ND->mem_lnk__0TEC=Self__Y3ND->first_link__OTEC;
- };
- while ((i__Z3ND != Self__Y3ND->mem_idx__YTEC)) {
- Self__Y3ND->mem_lnk__0TEC=((__LINKED_LIST_NODEoSTRING_CONSTANTo *)Self__Y3ND->mem_lnk__0TEC)->next__JROD;
- Self__Y3ND->mem_idx__YTEC=(__INTEGER)(Self__Y3ND->mem_idx__YTEC + 1);
- };
- };
- return(((__LINKED_LIST_NODEoSTRING_CONSTANTo *)Self__Y3ND->mem_lnk__0TEC)->item__L0HD);
-}
-
-static void** create__KZ3(__INTEGER nb_elements__MZ3)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__DEHH,a__CEHH,new_size__EEHH,new_size2__FEHH,a__GEHH;
- __UINTEGER_32 new_size__HEHH;
- __POINTER result__BEHH,ptr_table__FXJH,next__EXJH,result__GXJH;
- __INTEGER Self__1ZJC;
- void **Result__WREB;
- sz__DEHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__MZ3 * ((__INTEGER )(sizeof(void *)))));
- result__BEHH=((__POINTER )(NULL));
- a__CEHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__EEHH=(__UINTEGER_32)((__UINTEGER_32)(sz__DEHH + a__CEHH) & (__UINTEGER_32)(~ a__CEHH));
- new_size2__FEHH=(__UINTEGER_32)(new_size__EEHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__FEHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__GEHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HEHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__FEHH + a__GEHH) & (__UINTEGER_32)(~ a__GEHH));
- ptr_table__FXJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HEHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__EXJH=((__POINTER )(NULL));
- result__GXJH=((__POINTER *)ptr_table__FXJH)[ 0];
- if ((result__GXJH == (void *)NULL)) {
- result__GXJH=new_lab__RTJ(new_size__HEHH);
- next__EXJH=(void *)((unsigned long)result__GXJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HEHH)));
- ((__POINTER *)next__EXJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__FXJH)[ 0]=next__EXJH;
- } else {
- next__EXJH=((__POINTER *)result__GXJH)[ 0];
- if ((next__EXJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GXJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__HEHH << 1)) <= 4096)) {
- next__EXJH=(void *)((unsigned long)result__GXJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HEHH)));
- } else {
- next__EXJH=new_lab__RTJ(new_size__HEHH);
- };
- ((__POINTER *)next__EXJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__FXJH)[ 0]=next__EXJH;
- } else {
- ((__POINTER *)result__GXJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EXJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__GXJH=next__EXJH;
- };
- };
- ((__POINTER *)result__GXJH)[ 0]=((__POINTER ) 3);
- result__BEHH=(void *)((unsigned long)result__GXJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__BEHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__EEHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__WREB=((void **)result__BEHH);
- Self__1ZJC=(__INTEGER)(nb_elements__MZ3 - 1);
- while ((Self__1ZJC >= 0)) {
- Result__WREB[Self__1ZJC]=NULL;
- Self__1ZJC=(__INTEGER)(Self__1ZJC - 1);
- };
- return(Result__WREB);
-}
-
-static __BOOLEAN read_word__ISF(void *st__KSF)
-// ({STRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
- __INTEGER posold__MSF,idx__NSF,__tmp__LOEH,__tmp__MOEH;
- __BOOLEAN result__OSF,__tmp__MTF;
- __CHARACTER *__tmp__NOEH,*__tmp__G4GH;
- __CHARACTER result__XXAH;
- posold__MSF= 0;
- idx__NSF= 0;
- result__OSF=FALSE__;
- if ((! read_space__XTD())) {
- result__OSF=FALSE__;
- } else {
- posold__MSF=position__CCC;
- idx__NSF= 1;
- __tmp__LOEH=((__STRING_CONSTANT *)st__KSF)->count__DD;
- __tmp__MOEH=((__STRING *)source__5BC)->count__SGC;
- __tmp__NOEH=((__STRING_CONSTANT *)st__KSF)->storage__RRO;
- __tmp__G4GH=((__STRING *)source__5BC)->storage__3CS;
- until_do__C53:
- {
- if ((idx__NSF > __tmp__LOEH)) {
- __tmp__MTF=TRUE__;
- } else {
- result__XXAH='\0';
- if ((position__CCC > __tmp__MOEH)) {
- result__XXAH=((__CHARACTER )(( 0)));
- } else {
- result__XXAH=((__CHARACTER *)__tmp__G4GH)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__MTF=(result__XXAH != ((__CHARACTER *)__tmp__NOEH)[(__INTEGER)(idx__NSF - 1)]);
- };
- if ((! __tmp__MTF)) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- idx__NSF=(__INTEGER)(idx__NSF + 1);
- goto until_do__C53;
- };
- };
- if ((idx__NSF > ((__STRING_CONSTANT *)st__KSF)->count__DD)) {
- last_string__D2C=st__KSF;
- result__OSF=TRUE__;
- } else {
- position__CCC=posold__MSF;
- };
- };
- return(result__OSF);
-}
-
-static __BOOLEAN read_slot_header__KFE(__BOOLEAN first__MFE)
-// ({TRUExFALSE}) With resultNo recursive, No inlinable.
-{
- void *v__QFE;
- void *instr__YFE;
- __POSITION pos__TZXG,pos__VZXG,pos__XZXG,pos__ZZXG,pos__1ZXG;
- __POSITION pos__3ZXG,pos__5ZXG,pos__MD2G,pos__B0XG,pos__D0XG;
- __POSITION pos__F0XG,pos__H0XG,pos__OD2G,pos__J0XG,pos__L0XG;
- __POSITION pos__N0XG,pos__P0XG,pos__R0XG,pos__T0XG,pos__V0XG;
- __POSITION pos__X0XG,pos__Z0XG,pos__10XG,pos__30XG,pos__QD2G;
- __POSITION pos__50XG,pos__B1XG,pos__BKM,pos__D1XG,pos__F1XG,pos__H1XG;
- __POSITION pos__J1XG,__tmp__SFQD,__tmp__XFQD,__tmp__SD2G,pos__L1XG;
- __POSITION pos__N1XG,pos__P1XG,pos__R1XG,pos__T1XG,pos__V1XG;
- void *res__UKE,*__tmp__WME;
- __INTEGER __tmp__NME,__tmp__PME,__tmp__RME,typ_id__T4HH,typ_id__34HH;
- __INTEGER new_capacity__F5HH,old_nb_elts__I5HH,upper__TYJH,Self__RYJH;
- __INTEGER new_capacity__L5HH,old_nb_elts__O5HH,upper__YYJH,Self__WYJH;
- void *n__LRFH,*n__KNGB;
- void *result__MRFH,*result__SNGB;
- __ITM_TYPE_PARAMETER *result__R4HH,*Self__Z4HH,*result__14HH;
- __ITM_TYPE_PARAMETER *Self__D5HH;
- __POINTER ptr__S4HH,ptr_table__UXJH,next__TXJH,result__VXJH;
- __POINTER ptr_table__ZXJH,next__YXJH,result__0XJH,ptr__24HH;
- __POINTER ptr_table__EYJH,next__DYJH,result__FYJH,ptr_table__JYJH;
- __POINTER next__IYJH,result__KYJH;
- __UINTEGER_32 sz__U4HH,a__V4HH,new_size__W4HH,t__X4HH,a__Y4HH;
- __UINTEGER_32 new_size__2XJH,lab_type__1XJH,sz__44HH,a__54HH;
- __UINTEGER_32 new_size__A5HH,t__B5HH,a__C5HH,new_size__MYJH;
- __UINTEGER_32 lab_type__LYJH;
- __STRING *Self__G5HH,*Self__M5HH;
- __BOOLEAN result__OFE,result__KXJH,__tmp__4IE,result__MXJH;
- __BOOLEAN result__NXJH,__tmp__WKE,result__QXJH,__tmp__GLE,__tmp__ULE;
- __BOOLEAN result__GUL,__tmp__CME,result__3XJH,result__AYJH;
- __BOOLEAN result__NYJH,__tmp__BRE,__tmp__HTE,__tmp__TRE,__tmp__3UE;
- __BOOLEAN result__RBH,__tmp__ZWE,result__DCH,__tmp__VYE,result__VCH;
- __BOOLEAN __tmp__C0E,result__HDH,__tmp__I2E,result__ZDH,result__0YJH;
- __BOOLEAN result__3YJH,result__AZJH,result__DZJH;
- __CHARACTER style__SFE,result__OXJH,result__RXJH,result__4XJH;
- __CHARACTER result__BYJH,result__OYJH,result__1YJH,result__4YJH;
- __CHARACTER result__BZJH,result__EZJH;
- __CHARACTER *Self__H5HH,*new__J5HH,*Self__N5HH,*new__P5HH;
- result__OFE=FALSE__;
- v__QFE=NULL;
- instr__YFE=NULL;
- style__SFE=read_style__PUF();
- if ((style__SFE != ' ')) {
- result__OFE=TRUE__;
- if (((! first__MFE) && (style__SFE == '+'))) {
- pos__TZXG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_252));
- put_position__FRG(pos__TZXG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- if (first__MFE) {
- if (read_word__ISF((&__string_62))) {
- if ((style__SFE == '-')) {
- append__3OS(output_decl__VHE,(&__string_253));
- };
- short__token__to__GDD((&__string_130),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- ((__PROTOTYPE *)object__ZBC)->parent_named__5.parent_itm_object__4.position__SFJ=current_position__B0F();
- ((__PROTOTYPE *)object__ZBC)->parent_named__5.style__0FU=style__SFE;
- if ((! read_symbol__4YJ((&__string_12)))) {
- pos__VZXG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_254));
- put_position__FRG(pos__VZXG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- result__KXJH=read_word__ISF((&__string_9));
- if (is_shorter__LZ) {
- if (result__KXJH) {
- if (((void *)(&__string_9) == (void *)(&__string_4))) {
- short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- } else {
- short__token__to__GDD((&__string_119),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- };
- };
- };
- if (result__KXJH) {
- __tmp__4IE=TRUE__;
- } else {
- result__MXJH=read_word__ISF((&__string_10));
- if (is_shorter__LZ) {
- if (result__MXJH) {
- if (((void *)(&__string_10) == (void *)(&__string_4))) {
- short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- } else {
- short__token__to__GDD((&__string_119),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- };
- };
- };
- __tmp__4IE=result__MXJH;
- };
- if (__tmp__4IE) {
- ((__PROTOTYPE *)object__ZBC)->type_style__S4C=last_string__D2C;
- };
- if ((! read_cap_identifier__N1J())) {
- pos__XZXG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_255));
- put_position__FRG(pos__XZXG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- short__token__to__GDD((&__string_125),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- if (((void *)((__PROTOTYPE *)object__ZBC)->shortname__3JE != (void *)last_string__D2C)) {
- pos__ZZXG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_256));
- put_position__FRG(pos__ZZXG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- result__NXJH=FALSE__;
- if ((! read_space__XTD())) {
- result__NXJH=FALSE__;
- } else {
- result__OXJH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__OXJH=((__CHARACTER )(( 0)));
- } else {
- result__OXJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__OXJH == '(')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__NXJH=TRUE__;
- };
- };
- if (result__NXJH) {
- if (((! is_shorter__LZ) && (! is_shorter2__VI))) {
- pos__1ZXG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_257));
- put_position__FRG(pos__1ZXG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- res__UKE=NULL;
- __tmp__WKE=read_identifier__2BL();
- if (__tmp__WKE) {
- result__QXJH=FALSE__;
- if ((! read_space__XTD())) {
- result__QXJH=FALSE__;
- } else {
- result__RXJH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__RXJH=((__CHARACTER )(( 0)));
- } else {
- result__RXJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__RXJH == ':')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__QXJH=TRUE__;
- };
- };
- if ((! result__QXJH)) {
- pos__3ZXG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_258));
- put_position__FRG(pos__3ZXG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- __tmp__GLE=((void *)read_type__CDM(PARSER__,TRUE__) == (void *)NULL);
- if (__tmp__GLE) {
- pos__5ZXG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_259));
- put_position__FRG(pos__5ZXG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- pos__MD2G=current_position__B0F();
- put_error__text__1PG( 1,(&__string_260));
- put_position__FRG(pos__MD2G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- __tmp__ULE=TRUE__;
- } else {
- __tmp__ULE=FALSE__;
- };
- if ((! __tmp__ULE)) {
- result__GUL=read_cap_identifier__N1J();
- if (result__GUL) {
- __tmp__CME=is_parameter_type__AME;
- if ((! __tmp__CME)) {
- pos__B0XG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_261));
- put_position__FRG(pos__B0XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- __tmp__NME=position__CCC;
- __tmp__PME=((__STRING_CONSTANT *)last_string__D2C)->count__DD;
- __tmp__RME=(__INTEGER)(__tmp__NME - __tmp__PME);
- short__token__to__GDD((&__string_126),__tmp__RME,position__CCC);
- n__LRFH=last_string__D2C;
- result__MRFH=fast_reference_at__R3T(dico__XVI,n__LRFH);
- if (((void *)result__MRFH == (void *)NULL)) {
- result__R4HH=NULL;
- ptr__S4HH=((__POINTER )(NULL));
- typ_id__T4HH= 0;
- sz__U4HH=((__UINTEGER_32 )sizeof(__ITM_TYPE_PARAMETER));
- if ((sz__U4HH == 0)) {
- result__R4HH=ITM_TYPE_PARAMETER__;
- } else {
- typ_id__T4HH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__U4HH);
- if ((typ_id__T4HH == (__INTEGER)(- 1))) {
- a__V4HH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__W4HH=(__UINTEGER_32)((__UINTEGER_32)(sz__U4HH + a__V4HH) & (__UINTEGER_32)(~ a__V4HH));
- ptr_table__UXJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__W4HH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__TXJH=((__POINTER )(NULL));
- result__VXJH=((__POINTER *)ptr_table__UXJH)[ 0];
- if ((result__VXJH == (void *)NULL)) {
- result__VXJH=new_lab__RTJ(new_size__W4HH);
- next__TXJH=(void *)((unsigned long)result__VXJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W4HH)));
- ((__POINTER *)next__TXJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__UXJH)[ 0]=next__TXJH;
- } else {
- next__TXJH=((__POINTER *)result__VXJH)[ 0];
- if ((next__TXJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VXJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__W4HH << 1)) <= 4096)) {
- next__TXJH=(void *)((unsigned long)result__VXJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W4HH)));
- } else {
- next__TXJH=new_lab__RTJ(new_size__W4HH);
- };
- ((__POINTER *)next__TXJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__UXJH)[ 0]=next__TXJH;
- } else {
- ((__POINTER *)result__VXJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TXJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__VXJH=next__TXJH;
- };
- };
- ptr__S4HH=result__VXJH;
- } else {
- t__X4HH=((__UINTEGER_32 )typ_id__T4HH);
- a__Y4HH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__2XJH=(__UINTEGER_32)((__UINTEGER_32)(sz__U4HH + a__Y4HH) & (__UINTEGER_32)(~ a__Y4HH));
- ptr_table__ZXJH=((__POINTER )(&(table_type[(t__X4HH)])));
- lab_type__1XJH=(__UINTEGER_32)(t__X4HH | 1);
- next__YXJH=((__POINTER )(NULL));
- result__0XJH=((__POINTER *)ptr_table__ZXJH)[ 0];
- if ((result__0XJH == (void *)NULL)) {
- result__0XJH=new_lab__RTJ(lab_type__1XJH);
- next__YXJH=(void *)((unsigned long)result__0XJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2XJH)));
- ((__POINTER *)next__YXJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__ZXJH)[ 0]=next__YXJH;
- } else {
- next__YXJH=((__POINTER *)result__0XJH)[ 0];
- if ((next__YXJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0XJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__2XJH << 1)) <= 4096)) {
- next__YXJH=(void *)((unsigned long)result__0XJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2XJH)));
- } else {
- next__YXJH=new_lab__RTJ(lab_type__1XJH);
- };
- ((__POINTER *)next__YXJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__ZXJH)[ 0]=next__YXJH;
- } else {
- ((__POINTER *)result__0XJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YXJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__0XJH=next__YXJH;
- };
- };
- ptr__S4HH=result__0XJH;
- };
- result__R4HH=((__ITM_TYPE_PARAMETER *)ptr__S4HH);
- *(result__R4HH) = *(ITM_TYPE_PARAMETER__);
- };
- Self__Z4HH=((__ITM_TYPE_PARAMETER *)result__R4HH);
- Self__Z4HH->parent_itm_type__VFE.name__GZP=n__LRFH;
- fast_put__to__JPZ(dico__XVI,Self__Z4HH,n__LRFH);
- result__MRFH=result__R4HH;
- };
- if (result__MRFH==NULL) {
- __tmp__WME=NULL;
- } else {
- switch (((struct ___OBJ *)result__MRFH)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- __tmp__WME=((void *)result__MRFH);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- __tmp__WME=NULL;
- } break;
- }
- };
- res__UKE=__tmp__WME;
- };
- };
- if (((void *)res__UKE == (void *)NULL)) {
- pos__D0XG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_261));
- put_position__FRG(pos__D0XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- add_last__NABC(((__PROTOTYPE *)object__ZBC)->idf_generic_list__MOE,res__UKE);
- while_do__LYK:
- {
- result__3XJH=FALSE__;
- if ((! read_space__XTD())) {
- result__3XJH=FALSE__;
- } else {
- result__4XJH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__4XJH=((__CHARACTER )(( 0)));
- } else {
- result__4XJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__4XJH == ',')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__3XJH=TRUE__;
- };
- };
- if (result__3XJH) {
- res__UKE=NULL;
- __tmp__WKE=read_identifier__2BL();
- if (__tmp__WKE) {
- result__AYJH=FALSE__;
- if ((! read_space__XTD())) {
- result__AYJH=FALSE__;
- } else {
- result__BYJH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__BYJH=((__CHARACTER )(( 0)));
- } else {
- result__BYJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__BYJH == ':')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__AYJH=TRUE__;
- };
- };
- if ((! result__AYJH)) {
- pos__F0XG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_258));
- put_position__FRG(pos__F0XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- __tmp__GLE=((void *)read_type__CDM(PARSER__,TRUE__) == (void *)NULL);
- if (__tmp__GLE) {
- pos__H0XG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_259));
- put_position__FRG(pos__H0XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- pos__OD2G=current_position__B0F();
- put_error__text__1PG( 1,(&__string_260));
- put_position__FRG(pos__OD2G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- __tmp__ULE=TRUE__;
- } else {
- __tmp__ULE=FALSE__;
- };
- if ((! __tmp__ULE)) {
- result__GUL=read_cap_identifier__N1J();
- if (result__GUL) {
- __tmp__CME=is_parameter_type__AME;
- if ((! __tmp__CME)) {
- pos__J0XG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_261));
- put_position__FRG(pos__J0XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- __tmp__NME=position__CCC;
- __tmp__PME=((__STRING_CONSTANT *)last_string__D2C)->count__DD;
- __tmp__RME=(__INTEGER)(__tmp__NME - __tmp__PME);
- short__token__to__GDD((&__string_126),__tmp__RME,position__CCC);
- n__KNGB=last_string__D2C;
- result__SNGB=fast_reference_at__R3T(dico__XVI,n__KNGB);
- if (((void *)result__SNGB == (void *)NULL)) {
- result__14HH=NULL;
- ptr__24HH=((__POINTER )(NULL));
- typ_id__34HH= 0;
- sz__44HH=((__UINTEGER_32 )sizeof(__ITM_TYPE_PARAMETER));
- if ((sz__44HH == 0)) {
- result__14HH=ITM_TYPE_PARAMETER__;
- } else {
- typ_id__34HH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__44HH);
- if ((typ_id__34HH == (__INTEGER)(- 1))) {
- a__54HH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__A5HH=(__UINTEGER_32)((__UINTEGER_32)(sz__44HH + a__54HH) & (__UINTEGER_32)(~ a__54HH));
- ptr_table__EYJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__A5HH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__DYJH=((__POINTER )(NULL));
- result__FYJH=((__POINTER *)ptr_table__EYJH)[ 0];
- if ((result__FYJH == (void *)NULL)) {
- result__FYJH=new_lab__RTJ(new_size__A5HH);
- next__DYJH=(void *)((unsigned long)result__FYJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A5HH)));
- ((__POINTER *)next__DYJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__EYJH)[ 0]=next__DYJH;
- } else {
- next__DYJH=((__POINTER *)result__FYJH)[ 0];
- if ((next__DYJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FYJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__A5HH << 1)) <= 4096)) {
- next__DYJH=(void *)((unsigned long)result__FYJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A5HH)));
- } else {
- next__DYJH=new_lab__RTJ(new_size__A5HH);
- };
- ((__POINTER *)next__DYJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__EYJH)[ 0]=next__DYJH;
- } else {
- ((__POINTER *)result__FYJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DYJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__FYJH=next__DYJH;
- };
- };
- ptr__24HH=result__FYJH;
- } else {
- t__B5HH=((__UINTEGER_32 )typ_id__34HH);
- a__C5HH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__MYJH=(__UINTEGER_32)((__UINTEGER_32)(sz__44HH + a__C5HH) & (__UINTEGER_32)(~ a__C5HH));
- ptr_table__JYJH=((__POINTER )(&(table_type[(t__B5HH)])));
- lab_type__LYJH=(__UINTEGER_32)(t__B5HH | 1);
- next__IYJH=((__POINTER )(NULL));
- result__KYJH=((__POINTER *)ptr_table__JYJH)[ 0];
- if ((result__KYJH == (void *)NULL)) {
- result__KYJH=new_lab__RTJ(lab_type__LYJH);
- next__IYJH=(void *)((unsigned long)result__KYJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MYJH)));
- ((__POINTER *)next__IYJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__JYJH)[ 0]=next__IYJH;
- } else {
- next__IYJH=((__POINTER *)result__KYJH)[ 0];
- if ((next__IYJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KYJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__MYJH << 1)) <= 4096)) {
- next__IYJH=(void *)((unsigned long)result__KYJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MYJH)));
- } else {
- next__IYJH=new_lab__RTJ(lab_type__LYJH);
- };
- ((__POINTER *)next__IYJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__JYJH)[ 0]=next__IYJH;
- } else {
- ((__POINTER *)result__KYJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__IYJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__KYJH=next__IYJH;
- };
- };
- ptr__24HH=result__KYJH;
- };
- result__14HH=((__ITM_TYPE_PARAMETER *)ptr__24HH);
- *(result__14HH) = *(ITM_TYPE_PARAMETER__);
- };
- Self__D5HH=((__ITM_TYPE_PARAMETER *)result__14HH);
- Self__D5HH->parent_itm_type__VFE.name__GZP=n__KNGB;
- fast_put__to__JPZ(dico__XVI,Self__D5HH,n__KNGB);
- result__SNGB=result__14HH;
- };
- if (result__SNGB==NULL) {
- __tmp__WME=NULL;
- } else {
- switch (((struct ___OBJ *)result__SNGB)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- __tmp__WME=((void *)result__SNGB);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- __tmp__WME=NULL;
- } break;
- }
- };
- res__UKE=__tmp__WME;
- };
- };
- if (((void *)res__UKE == (void *)NULL)) {
- pos__L0XG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_261));
- put_position__FRG(pos__L0XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- add_last__NABC(((__PROTOTYPE *)object__ZBC)->idf_generic_list__MOE,res__UKE);
- goto while_do__LYK;
- };
- };
- result__NYJH=FALSE__;
- if ((! read_space__XTD())) {
- result__NYJH=FALSE__;
- } else {
- result__OYJH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__OYJH=((__CHARACTER )(( 0)));
- } else {
- result__OYJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__OYJH == ')')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__NYJH=TRUE__;
- };
- };
- if ((! result__NYJH)) {
- pos__N0XG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_262));
- put_position__FRG(pos__N0XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- if (((! is_shorter__LZ) && (! is_shorter2__VI))) {
- if (((__INTEGER)(((__FAST_ARRAYoITM_TYPE_PARAMETERo *)((__PROTOTYPE *)object__ZBC)->idf_generic_list__MOE)->parent_arrayed_collection__LOE.upper__RABC + 1) != 0)) {
- pos__P0XG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_263));
- put_position__FRG(pos__P0XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- };
- } else {
- pos__R0XG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_264));
- put_position__FRG(pos__R0XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- __tmp__BRE=TRUE__;
- } else {
- __tmp__BRE=FALSE__;
- };
- if (__tmp__BRE) {
- __tmp__HTE=TRUE__;
- } else {
- __tmp__TRE=(read_word__ISF((&__string_63)) || read_word__ISF((&__string_64)));
- if (__tmp__TRE) {
- short__token__to__GDD((&__string_130),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- if ((! read_symbol__4YJ((&__string_12)))) {
- pos__T0XG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_254));
- put_position__FRG(pos__T0XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- if (((void *)read_type_list__ENO(PARSER__,FALSE__) == (void *)NULL)) {
- pos__V0XG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_265));
- put_position__FRG(pos__V0XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- __tmp__HTE=__tmp__TRE;
- };
- if (__tmp__HTE) {
- __tmp__3UE=TRUE__;
- } else {
- result__RBH=read_word__ISF((&__string_65));
- if (result__RBH) {
- short__token__to__GDD((&__string_130),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- if ((! read_symbol__4YJ((&__string_12)))) {
- pos__X0XG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_254));
- put_position__FRG(pos__X0XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- if ((! read_external__2TO())) {
- pos__Z0XG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_266));
- put_position__FRG(pos__Z0XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- append__3OS(output_decl__VHE,(&__string_267));
- append__3OS(output_decl__VHE,((__PROTOTYPE *)object__ZBC)->parent_named__5.name__LI);
- Self__G5HH=((__STRING *)output_decl__VHE);
- new_capacity__F5HH= 0;
- if ((Self__G5HH->capacity__UCS <= Self__G5HH->count__SGC)) {
- if ((Self__G5HH->capacity__UCS == 0)) {
- Self__G5HH->capacity__UCS= 32;
- Self__G5HH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__F5HH=(__INTEGER)(Self__G5HH->capacity__UCS << 1);
- Self__H5HH=((__CHARACTER *)Self__G5HH->storage__3CS);
- old_nb_elts__I5HH=Self__G5HH->capacity__UCS;
- new__J5HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__H5HH),((__UINTEGER_32 )old_nb_elts__I5HH),((__UINTEGER_32 )new_capacity__F5HH)));
- upper__TYJH=(__INTEGER)(new_capacity__F5HH - 1);
- Self__RYJH=old_nb_elts__I5HH;
- while ((Self__RYJH <= upper__TYJH)) {
- new__J5HH[Self__RYJH]='\0';
- Self__RYJH=(__INTEGER)(Self__RYJH + 1);
- };
- Self__G5HH->storage__3CS=new__J5HH;
- Self__G5HH->capacity__UCS=new_capacity__F5HH;
- };
- };
- ((__CHARACTER *)Self__G5HH->storage__3CS)[Self__G5HH->count__SGC]='\n';
- Self__G5HH->count__SGC=(__INTEGER)(Self__G5HH->count__SGC + 1);
- append__3OS(output_decl__VHE,last_string__D2C);
- Self__M5HH=((__STRING *)output_decl__VHE);
- new_capacity__L5HH= 0;
- if ((Self__M5HH->capacity__UCS <= Self__M5HH->count__SGC)) {
- if ((Self__M5HH->capacity__UCS == 0)) {
- Self__M5HH->capacity__UCS= 32;
- Self__M5HH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__L5HH=(__INTEGER)(Self__M5HH->capacity__UCS << 1);
- Self__N5HH=((__CHARACTER *)Self__M5HH->storage__3CS);
- old_nb_elts__O5HH=Self__M5HH->capacity__UCS;
- new__P5HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__N5HH),((__UINTEGER_32 )old_nb_elts__O5HH),((__UINTEGER_32 )new_capacity__L5HH)));
- upper__YYJH=(__INTEGER)(new_capacity__L5HH - 1);
- Self__WYJH=old_nb_elts__O5HH;
- while ((Self__WYJH <= upper__YYJH)) {
- new__P5HH[Self__WYJH]='\0';
- Self__WYJH=(__INTEGER)(Self__WYJH + 1);
- };
- Self__M5HH->storage__3CS=new__P5HH;
- Self__M5HH->capacity__UCS=new_capacity__L5HH;
- };
- };
- ((__CHARACTER *)Self__M5HH->storage__3CS)[Self__M5HH->count__SGC]='\n';
- Self__M5HH->count__SGC=(__INTEGER)(Self__M5HH->count__SGC + 1);
- };
- __tmp__3UE=result__RBH;
- };
- if (__tmp__3UE) {
- __tmp__ZWE=TRUE__;
- } else {
- result__DCH=read_word__ISF((&__string_66));
- if (result__DCH) {
- short__token__to__GDD((&__string_130),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- if ((! read_symbol__4YJ((&__string_12)))) {
- pos__10XG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_254));
- put_position__FRG(pos__10XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- v__QFE=read_expr_primary__E5M(PARSER__);
- if (((void *)v__QFE == (void *)NULL)) {
- pos__30XG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_268));
- put_position__FRG(pos__30XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- if (((void *)((__PROTOTYPE *)object__ZBC)->default_value__LWE != (void *)NULL)) {
- pos__QD2G=current_position__B0F();
- put_error__text__1PG( 1,(&__string_269));
- put_position__FRG(pos__QD2G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- ((__PROTOTYPE *)object__ZBC)->default_value__LWE=v__QFE;
- };
- __tmp__ZWE=result__DCH;
- };
- if (__tmp__ZWE) {
- __tmp__VYE=TRUE__;
- } else {
- result__VCH=read_word__ISF((&__string_67));
- if (result__VCH) {
- short__token__to__GDD((&__string_130),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- if ((! read_symbol__4YJ((&__string_12)))) {
- pos__50XG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_254));
- put_position__FRG(pos__50XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- if ((! read_external__2TO())) {
- pos__B1XG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_266));
- put_position__FRG(pos__B1XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- if (((void *)((__PROTOTYPE *)object__ZBC)->type_c__GYE != (void *)NULL)) {
- pos__BKM=current_position__B0F();
- put_error__text__1PG( 1,(&__string_270));
- put_position__FRG(pos__BKM);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- ((__PROTOTYPE *)object__ZBC)->type_c__GYE=last_string__D2C;
- };
- __tmp__VYE=result__VCH;
- };
- if (__tmp__VYE) {
- __tmp__C0E=TRUE__;
- } else {
- result__HDH=read_word__ISF((&__string_68));
- if (result__HDH) {
- short__token__to__GDD((&__string_130),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- if ((! read_symbol__4YJ((&__string_12)))) {
- pos__D1XG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_254));
- put_position__FRG(pos__D1XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- if ((! read_integer__22P())) {
- pos__F1XG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_271));
- put_position__FRG(pos__F1XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- __tmp__C0E=result__HDH;
- };
- if (__tmp__C0E) {
- __tmp__I2E=TRUE__;
- } else {
- result__ZDH=read_word__ISF((&__string_88));
- if (result__ZDH) {
- if ((! read_symbol__4YJ((&__string_14)))) {
- pos__H1XG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_272));
- put_position__FRG(pos__H1XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- result__0YJH=FALSE__;
- if ((! read_space__XTD())) {
- result__0YJH=FALSE__;
- } else {
- result__1YJH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__1YJH=((__CHARACTER )(( 0)));
- } else {
- result__1YJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__1YJH == '(')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__0YJH=TRUE__;
- };
- };
- if ((! result__0YJH)) {
- pos__J1XG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_273));
- put_position__FRG(pos__J1XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- while_do__UDFB:
- {
- instr__YFE=readlip_expr__YRPB();
- if (((void *)instr__YFE != (void *)NULL)) {
- switch (((struct ___OBJ *)instr__YFE)->__id) {
- case __LIP_AFFECT__: {
- run__0FFC(instr__YFE);
- } break;
- case __LIP_BINARY__: {
- __tmp__SFQD=((__LIP_BINARY *)instr__YFE)->parent_lip_code__WNZB.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 2,(&__string_274));
- put_position__FRG(__tmp__SFQD);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- } break;
- case __LIP_UNARY__: {
- __tmp__XFQD=((__LIP_UNARY *)instr__YFE)->parent_lip_code__FZ4B.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 2,(&__string_274));
- put_position__FRG(__tmp__XFQD);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- } break;
- case __LIP_CALL__: {
- run__WQUE(instr__YFE);
- } break;
- case __LIP_IF__: {
- run__ZFQD(instr__YFE);
- } break;
- case __LIP_PRINT__: {
- run__KVUE(instr__YFE);
- } break;
- case __LIP_VALUE__: {
- __tmp__SD2G=((__LIP_VALUE *)instr__YFE)->parent_lip_code__1IFE.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 2,(&__string_274));
- put_position__FRG(__tmp__SD2G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- } break;
- };
- result__3YJH=FALSE__;
- if ((! read_space__XTD())) {
- result__3YJH=FALSE__;
- } else {
- result__4YJH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__4YJH=((__CHARACTER )(( 0)));
- } else {
- result__4YJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__4YJH == ';')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__3YJH=TRUE__;
- };
- };
- if ((! result__3YJH)) {
- pos__L1XG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_167));
- put_position__FRG(pos__L1XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- goto while_do__UDFB;
- };
- };
- result__AZJH=FALSE__;
- if ((! read_space__XTD())) {
- result__AZJH=FALSE__;
- } else {
- result__BZJH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__BZJH=((__CHARACTER )(( 0)));
- } else {
- result__BZJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__BZJH == ')')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__AZJH=TRUE__;
- };
- };
- if ((! result__AZJH)) {
- pos__N1XG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_237));
- put_position__FRG(pos__N1XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- __tmp__I2E=result__ZDH;
- };
- if ((! __tmp__I2E)) {
- if (((((((read_word__ISF((&__string_69)) || read_word__ISF((&__string_70))) || read_word__ISF((&__string_71))) || read_word__ISF((&__string_72))) || read_word__ISF((&__string_73))) || read_word__ISF((&__string_74))) || read_word__ISF((&__string_75)))) {
- short__token__to__GDD((&__string_130),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- if ((! read_symbol__4YJ((&__string_12)))) {
- pos__P1XG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_254));
- put_position__FRG(pos__P1XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- if ((! read_string__HGQ())) {
- pos__R1XG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_275));
- put_position__FRG(pos__R1XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- if (is_shorter2__VI) {
- ((__PROTOTYPE *)object__ZBC)->comment_slot__YRTC=last_string__D2C;
- };
- } else {
- pos__T1XG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_276));
- put_position__FRG(pos__T1XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- result__DZJH=FALSE__;
- if ((! read_space__XTD())) {
- result__DZJH=FALSE__;
- } else {
- result__EZJH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__EZJH=((__CHARACTER )(( 0)));
- } else {
- result__EZJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__EZJH == ';')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__DZJH=TRUE__;
- };
- };
- if ((! result__DZJH)) {
- pos__V1XG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_241));
- put_position__FRG(pos__V1XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- return(result__OFE);
-}
-
-static void* get_name__TROB(void *n__VROB)
-// ({NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
- void *result__FOEC,*result__XROB;
- __SECTION_ *result__P2YB,*Self__YWFC;
- __POINTER ptr__Q2YB,ptr_table__HZJH,next__GZJH,result__IZJH;
- __POINTER ptr_table__MZJH,next__LZJH,result__NZJH,ptr__RDID;
- __POINTER ptr_table__RZJH,next__QZJH,result__SZJH,ptr_table__WZJH;
- __POINTER next__VZJH,result__XZJH;
- __INTEGER typ_id__V2YB,h__GXFC,idx__HXFC,idx__HBID,new_capacity__IBID;
- __INTEGER i__JBID,typ_id__WDID;
- __UINTEGER_32 sz__S2YB,a__PSFH,new_size__QSFH,t__USFH,a__TSFH;
- __UINTEGER_32 new_size__PZJH,lab_type__OZJH,sz__TDID,a__BSFH;
- __UINTEGER_32 new_size__CSFH,t__GSFH,a__FSFH,new_size__ZZJH;
- __UINTEGER_32 lab_type__YZJH;
- __HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *Self__ZNEC,*Self__3WFC;
- void *node__EOEC,*node__IXFC,*node1__LBID,*node2__MBID,*__tmp__WYFC;
- void **old_buckets__KBID;
- __HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *result__QDID;
- __HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *Self__LGTD;
- Self__ZNEC=((__HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *)bucket_name__2ROB);
- result__FOEC=NULL;
- node__EOEC=((void **)Self__ZNEC->buckets__MOEC)[(__INTEGER)(hash_code__RNW(n__VROB) % Self__ZNEC->capacity__HOEC)];
- while ((! (((void *)node__EOEC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node__EOEC)->key__YOEC == (void *)n__VROB)))) {
- node__EOEC=((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node__EOEC)->next__DPEC;
- };
- if (((void *)node__EOEC != (void *)NULL)) {
- result__FOEC=((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node__EOEC)->item__LPEC;
- };
- result__XROB=result__FOEC;
- if (((void *)result__FOEC == (void *)NULL)) {
- result__P2YB=NULL;
- ptr__Q2YB=((__POINTER )(NULL));
- typ_id__V2YB= 0;
- sz__S2YB=((__UINTEGER_32 )sizeof(__SECTION_));
- if ((sz__S2YB == 0)) {
- result__P2YB=SECTION___;
- } else {
- typ_id__V2YB=__SECTION___;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__S2YB);
- if ((typ_id__V2YB == (__INTEGER)(- 1))) {
- a__PSFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__QSFH=(__UINTEGER_32)((__UINTEGER_32)(sz__S2YB + a__PSFH) & (__UINTEGER_32)(~ a__PSFH));
- ptr_table__HZJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QSFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__GZJH=((__POINTER )(NULL));
- result__IZJH=((__POINTER *)ptr_table__HZJH)[ 0];
- if ((result__IZJH == (void *)NULL)) {
- result__IZJH=new_lab__RTJ(new_size__QSFH);
- next__GZJH=(void *)((unsigned long)result__IZJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QSFH)));
- ((__POINTER *)next__GZJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__HZJH)[ 0]=next__GZJH;
- } else {
- next__GZJH=((__POINTER *)result__IZJH)[ 0];
- if ((next__GZJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IZJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__QSFH << 1)) <= 4096)) {
- next__GZJH=(void *)((unsigned long)result__IZJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QSFH)));
- } else {
- next__GZJH=new_lab__RTJ(new_size__QSFH);
- };
- ((__POINTER *)next__GZJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__HZJH)[ 0]=next__GZJH;
- } else {
- ((__POINTER *)result__IZJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GZJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__IZJH=next__GZJH;
- };
- };
- ptr__Q2YB=result__IZJH;
- } else {
- t__USFH=((__UINTEGER_32 )typ_id__V2YB);
- a__TSFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__PZJH=(__UINTEGER_32)((__UINTEGER_32)(sz__S2YB + a__TSFH) & (__UINTEGER_32)(~ a__TSFH));
- ptr_table__MZJH=((__POINTER )(&(table_type[(t__USFH)])));
- lab_type__OZJH=(__UINTEGER_32)(t__USFH | 1);
- next__LZJH=((__POINTER )(NULL));
- result__NZJH=((__POINTER *)ptr_table__MZJH)[ 0];
- if ((result__NZJH == (void *)NULL)) {
- result__NZJH=new_lab__RTJ(lab_type__OZJH);
- next__LZJH=(void *)((unsigned long)result__NZJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PZJH)));
- ((__POINTER *)next__LZJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__MZJH)[ 0]=next__LZJH;
- } else {
- next__LZJH=((__POINTER *)result__NZJH)[ 0];
- if ((next__LZJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NZJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__PZJH << 1)) <= 4096)) {
- next__LZJH=(void *)((unsigned long)result__NZJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PZJH)));
- } else {
- next__LZJH=new_lab__RTJ(lab_type__OZJH);
- };
- ((__POINTER *)next__LZJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__MZJH)[ 0]=next__LZJH;
- } else {
- ((__POINTER *)result__NZJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LZJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__NZJH=next__LZJH;
- };
- };
- ptr__Q2YB=result__NZJH;
- };
- result__P2YB=((__SECTION_ *)ptr__Q2YB);
- *(result__P2YB) = *(SECTION___);
- };
- result__XROB=result__P2YB;
- Self__YWFC=((__SECTION_ *)result__P2YB);
- Self__YWFC->name__MYDC=n__VROB;
- Self__YWFC->type_list__1WFC=NULL;
- Self__3WFC=((__HASHED_DICTIONARYoSECTION_xSTRING_CONSTANTo *)bucket_name__2ROB);
- h__GXFC=hash_code__RNW(n__VROB);
- idx__HXFC=(__INTEGER)(h__GXFC % Self__3WFC->capacity__HOEC);
- node__IXFC=((void **)Self__3WFC->buckets__MOEC)[idx__HXFC];
- while ((! (((void *)node__IXFC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node__IXFC)->key__YOEC == (void *)n__VROB)))) {
- node__IXFC=((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node__IXFC)->next__DPEC;
- };
- if (((void *)node__IXFC == (void *)NULL)) {
- if ((Self__3WFC->capacity__HOEC == Self__3WFC->count__JYFC)) {
- idx__HBID= 0;
- node1__LBID=NULL;
- node2__MBID=NULL;
- old_buckets__KBID=Self__3WFC->buckets__MOEC;
- new_capacity__IBID=prime_number_ceiling__021((__INTEGER)(Self__3WFC->capacity__HOEC + 1));
- Self__3WFC->buckets__MOEC=create__C3XC(new_capacity__IBID);
- i__JBID=(__INTEGER)(Self__3WFC->capacity__HOEC - 1);
- Self__3WFC->capacity__HOEC=new_capacity__IBID;
- while ((i__JBID >= 0)) {
- node1__LBID=((void **)old_buckets__KBID)[i__JBID];
- while (((void *)node1__LBID != (void *)NULL)) {
- node2__MBID=((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node1__LBID)->next__DPEC;
- idx__HBID=(__INTEGER)(hash_code__RNW(((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node1__LBID)->key__YOEC) % Self__3WFC->capacity__HOEC);
- ((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node1__LBID)->next__DPEC=((void **)Self__3WFC->buckets__MOEC)[idx__HBID];
- ((void **)Self__3WFC->buckets__MOEC)[idx__HBID]=node1__LBID;
- node1__LBID=node2__MBID;
- };
- i__JBID=(__INTEGER)(i__JBID - 1);
- };
- idx__HXFC=(__INTEGER)(h__GXFC % Self__3WFC->capacity__HOEC);
- };
- __tmp__WYFC=((void **)Self__3WFC->buckets__MOEC)[idx__HXFC];
- result__QDID=NULL;
- ptr__RDID=((__POINTER )(NULL));
- typ_id__WDID= 0;
- sz__TDID=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo));
- if ((sz__TDID == 0)) {
- result__QDID=HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__;
- } else {
- typ_id__WDID=__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__TDID);
- if ((typ_id__WDID == (__INTEGER)(- 1))) {
- a__BSFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__CSFH=(__UINTEGER_32)((__UINTEGER_32)(sz__TDID + a__BSFH) & (__UINTEGER_32)(~ a__BSFH));
- ptr_table__RZJH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CSFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__QZJH=((__POINTER )(NULL));
- result__SZJH=((__POINTER *)ptr_table__RZJH)[ 0];
- if ((result__SZJH == (void *)NULL)) {
- result__SZJH=new_lab__RTJ(new_size__CSFH);
- next__QZJH=(void *)((unsigned long)result__SZJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CSFH)));
- ((__POINTER *)next__QZJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__RZJH)[ 0]=next__QZJH;
- } else {
- next__QZJH=((__POINTER *)result__SZJH)[ 0];
- if ((next__QZJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SZJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__CSFH << 1)) <= 4096)) {
- next__QZJH=(void *)((unsigned long)result__SZJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CSFH)));
- } else {
- next__QZJH=new_lab__RTJ(new_size__CSFH);
- };
- ((__POINTER *)next__QZJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__RZJH)[ 0]=next__QZJH;
- } else {
- ((__POINTER *)result__SZJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QZJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__SZJH=next__QZJH;
- };
- };
- ptr__RDID=result__SZJH;
- } else {
- t__GSFH=((__UINTEGER_32 )typ_id__WDID);
- a__FSFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ZZJH=(__UINTEGER_32)((__UINTEGER_32)(sz__TDID + a__FSFH) & (__UINTEGER_32)(~ a__FSFH));
- ptr_table__WZJH=((__POINTER )(&(table_type[(t__GSFH)])));
- lab_type__YZJH=(__UINTEGER_32)(t__GSFH | 1);
- next__VZJH=((__POINTER )(NULL));
- result__XZJH=((__POINTER *)ptr_table__WZJH)[ 0];
- if ((result__XZJH == (void *)NULL)) {
- result__XZJH=new_lab__RTJ(lab_type__YZJH);
- next__VZJH=(void *)((unsigned long)result__XZJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZZJH)));
- ((__POINTER *)next__VZJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__WZJH)[ 0]=next__VZJH;
- } else {
- next__VZJH=((__POINTER *)result__XZJH)[ 0];
- if ((next__VZJH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XZJH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__ZZJH << 1)) <= 4096)) {
- next__VZJH=(void *)((unsigned long)result__XZJH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZZJH)));
- } else {
- next__VZJH=new_lab__RTJ(lab_type__YZJH);
- };
- ((__POINTER *)next__VZJH)[ 0]=NULL;
- ((__POINTER *)ptr_table__WZJH)[ 0]=next__VZJH;
- } else {
- ((__POINTER *)result__XZJH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VZJH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__XZJH=next__VZJH;
- };
- };
- ptr__RDID=result__XZJH;
- };
- result__QDID=((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)ptr__RDID);
- *(result__QDID) = *(HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo__);
- };
- Self__LGTD=((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)result__QDID);
- Self__LGTD->item__LPEC=result__P2YB;
- Self__LGTD->key__YOEC=n__VROB;
- Self__LGTD->next__DPEC=__tmp__WYFC;
- node__IXFC=result__QDID;
- ((void **)Self__3WFC->buckets__MOEC)[idx__HXFC]=result__QDID;
- Self__3WFC->count__JYFC=(__INTEGER)(Self__3WFC->count__JYFC + 1);
- } else {
- ((__HASHED_DICTIONARY_NODEoSECTION_xSTRING_CONSTANTo *)node__IXFC)->item__LPEC=result__P2YB;
- };
- };
- return(result__XROB);
-}
-
-static void* read_type_list__ENO(__PARSER *Self__FNO,__BOOLEAN is_section__GNO)
-// ({PARSER},{TRUExFALSE}) With resultNo recursive, No inlinable.
-{
- void *ts__KNO,*__tmp__XNO,*__tmp__BPO;
- void *t__JNO;
- __POSITION pos__B4XG,pos__D4XG,pos__F4XG;
- void *lst__INO,*result__JEHH;
- __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *Self__KEHH,*Self__LEHH;
- __BOOLEAN result__0ZJH;
- __CHARACTER result__1ZJH;
- lst__INO=NULL;
- ts__KNO=NULL;
- t__JNO=read_type__CDM(Self__FNO,FALSE__);
- if (((void *)t__JNO != (void *)NULL)) {
- if (is_section__GNO) {
- if (t__JNO==NULL) {
- __tmp__XNO=NULL;
- } else {
- switch (((struct ___OBJ *)t__JNO)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- __tmp__XNO=((void *)t__JNO);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- __tmp__XNO=((void *)t__JNO);
- } break;
- case __ITM_TYPE_BLOCK__: {
- __tmp__XNO=NULL;
- } break;
- case __ITM_TYPE_GENERIC__: {
- __tmp__XNO=((void *)t__JNO);
- } break;
- case __ITM_TYPE_STYLE__: {
- __tmp__XNO=((void *)t__JNO);
- } break;
- }
- };
- ts__KNO=__tmp__XNO;
- if (((void *)__tmp__XNO == (void *)NULL)) {
- pos__B4XG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_277));
- put_position__FRG(pos__B4XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- result__JEHH=NULL;
- if ((((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__GVP)->parent_arrayed_collection__FVP.upper__ZUV < 0)) {
- result__JEHH=create_with_capacity__EGR( 16);
- } else {
- Self__KEHH=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__GVP);
- result__JEHH=((void **)Self__KEHH->parent_arrayed_collection__FVP.storage__PZV)[Self__KEHH->parent_arrayed_collection__FVP.upper__ZUV];
- Self__LEHH=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__GVP);
- Self__LEHH->parent_arrayed_collection__FVP.upper__ZUV=(__INTEGER)(Self__LEHH->parent_arrayed_collection__FVP.upper__ZUV - 1);
- };
- lst__INO=result__JEHH;
- add_last__ONV(result__JEHH,t__JNO);
- while_do__YVP:
- {
- result__0ZJH=FALSE__;
- if ((! read_space__XTD())) {
- result__0ZJH=FALSE__;
- } else {
- result__1ZJH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__1ZJH=((__CHARACTER )(( 0)));
- } else {
- result__1ZJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__1ZJH == ',')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__0ZJH=TRUE__;
- };
- };
- if (result__0ZJH) {
- t__JNO=read_type__CDM(Self__FNO,FALSE__);
- if (((void *)t__JNO == (void *)NULL)) {
- pos__D4XG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_265));
- put_position__FRG(pos__D4XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- if (is_section__GNO) {
- if (t__JNO==NULL) {
- __tmp__BPO=NULL;
- } else {
- switch (((struct ___OBJ *)t__JNO)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- __tmp__BPO=((void *)t__JNO);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- __tmp__BPO=((void *)t__JNO);
- } break;
- case __ITM_TYPE_BLOCK__: {
- __tmp__BPO=NULL;
- } break;
- case __ITM_TYPE_GENERIC__: {
- __tmp__BPO=((void *)t__JNO);
- } break;
- case __ITM_TYPE_STYLE__: {
- __tmp__BPO=((void *)t__JNO);
- } break;
- }
- };
- ts__KNO=__tmp__BPO;
- if (((void *)__tmp__BPO == (void *)NULL)) {
- pos__F4XG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_277));
- put_position__FRG(pos__F4XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- add_last__ONV(lst__INO,t__JNO);
- goto while_do__YVP;
- };
- };
- lst__INO=alias__CWP(result__JEHH);
- };
- return(lst__INO);
-}
-
-static __INTEGER hash_code__S30(__FAST_ARRAYoITM_TYPE_MONOo *Self__T30)
-// ({FAST_ARRAYoITM_TYPE_MONOo}) With resultNo recursive, No inlinable.
-{
- __INTEGER result__V30,__tmp__E40,__tmp__T40;
- void *__tmp__D40,*__tmp__S40;
- __BOOLEAN __tmp__G40;
- result__V30= 0;
- if ((! (Self__T30->parent_arrayed_collection__SYC.upper__4HV < 0))) {
- if (((void *)((void **)Self__T30->parent_arrayed_collection__SYC.storage__FMV)[Self__T30->parent_arrayed_collection__SYC.upper__4HV] != (void *)NULL)) {
- __tmp__D40=((void **)Self__T30->parent_arrayed_collection__SYC.storage__FMV)[Self__T30->parent_arrayed_collection__SYC.upper__4HV];
- switch (((struct ___OBJ *)__tmp__D40)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- __tmp__E40=hash_code__RNW(((__ITM_TYPE_PARAMETER *)__tmp__D40)->parent_itm_type__VFE.name__GZP);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- __tmp__E40=hash_code__RNW(((__ITM_TYPE_SIMPLE *)__tmp__D40)->name__GZP);
- } break;
- case __ITM_TYPE_BLOCK__: {
- print__OJD((&__string_278));
- fputc((int)('\n'),stdout);
- exit(( 1));
- __tmp__E40= 0;
- } break;
- case __ITM_TYPE_GENERIC__: {
- __tmp__E40=hash_code__RNW(((__ITM_TYPE_GENERIC *)__tmp__D40)->parent_itm_type_style__4SN.parent_itm_type_simple__3SN.name__GZP);
- } break;
- case __ITM_TYPE_STYLE__: {
- __tmp__E40=hash_code__RNW(((__ITM_TYPE_STYLE *)__tmp__D40)->parent_itm_type_simple__3SN.name__GZP);
- } break;
- };
- result__V30=__tmp__E40;
- __tmp__G40=TRUE__;
- } else {
- __tmp__G40=FALSE__;
- };
- if ((! __tmp__G40)) {
- if (((void *)((void **)Self__T30->parent_arrayed_collection__SYC.storage__FMV)[ 0] != (void *)NULL)) {
- __tmp__S40=((void **)Self__T30->parent_arrayed_collection__SYC.storage__FMV)[ 0];
- switch (((struct ___OBJ *)__tmp__S40)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- __tmp__T40=hash_code__RNW(((__ITM_TYPE_PARAMETER *)__tmp__S40)->parent_itm_type__VFE.name__GZP);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- __tmp__T40=hash_code__RNW(((__ITM_TYPE_SIMPLE *)__tmp__S40)->name__GZP);
- } break;
- case __ITM_TYPE_BLOCK__: {
- print__OJD((&__string_278));
- fputc((int)('\n'),stdout);
- exit(( 1));
- __tmp__T40= 0;
- } break;
- case __ITM_TYPE_GENERIC__: {
- __tmp__T40=hash_code__RNW(((__ITM_TYPE_GENERIC *)__tmp__S40)->parent_itm_type_style__4SN.parent_itm_type_simple__3SN.name__GZP);
- } break;
- case __ITM_TYPE_STYLE__: {
- __tmp__T40=hash_code__RNW(((__ITM_TYPE_STYLE *)__tmp__S40)->parent_itm_type_simple__3SN.name__GZP);
- } break;
- };
- result__V30=__tmp__T40;
- };
- };
- };
- return(result__V30);
-}
-
-static __CHARACTER read_style__PUF()
-// () With resultNo recursive, No inlinable.
-{
- __CHARACTER result__SUF,result__4ZJH,result__B0JH;
- __BOOLEAN result__3ZJH,__tmp__5UF,result__A0JH;
- result__SUF='\0';
- result__3ZJH=FALSE__;
- if ((! read_space__XTD())) {
- result__3ZJH=FALSE__;
- } else {
- result__4ZJH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__4ZJH=((__CHARACTER )(( 0)));
- } else {
- result__4ZJH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__4ZJH == '-')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__3ZJH=TRUE__;
- };
- };
- if (result__3ZJH) {
- result__SUF='-';
- short__token__to__GDD((&__string_132),(__INTEGER)(position__CCC - 1),position__CCC);
- __tmp__5UF=TRUE__;
- } else {
- __tmp__5UF=FALSE__;
- };
- if ((! __tmp__5UF)) {
- result__A0JH=FALSE__;
- if ((! read_space__XTD())) {
- result__A0JH=FALSE__;
- } else {
- result__B0JH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__B0JH=((__CHARACTER )(( 0)));
- } else {
- result__B0JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__B0JH == '+')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__A0JH=TRUE__;
- };
- };
- if (result__A0JH) {
- result__SUF='+';
- short__token__to__GDD((&__string_132),(__INTEGER)(position__CCC - 1),position__CCC);
- } else {
- result__SUF=' ';
- };
- };
- return(result__SUF);
-}
-
-static __FAST_ARRAYoITM_ARGUMENTo* create_with_capacity__LJ5B(__INTEGER new_count__NJ5B)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __POINTER ptr__C15B,ptr_table__E0JH,next__D0JH,result__F0JH;
- __POINTER ptr_table__J0JH,next__I0JH,result__K0JH;
- __INTEGER typ_id__H15B;
- __UINTEGER_32 sz__E15B,a__XSFH,new_size__YSFH,t__2SFH,a__1SFH;
- __UINTEGER_32 new_size__M0JH,lab_type__L0JH;
- __FAST_ARRAYoITM_ARGUMENTo *result__B15B,*Self__KSHC;
- result__B15B=NULL;
- ptr__C15B=((__POINTER )(NULL));
- typ_id__H15B= 0;
- sz__E15B=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_ARGUMENTo));
- if ((sz__E15B == 0)) {
- result__B15B=FAST_ARRAYoITM_ARGUMENTo__;
- } else {
- typ_id__H15B=__FAST_ARRAYoITM_ARGUMENTo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__E15B);
- if ((typ_id__H15B == (__INTEGER)(- 1))) {
- a__XSFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__YSFH=(__UINTEGER_32)((__UINTEGER_32)(sz__E15B + a__XSFH) & (__UINTEGER_32)(~ a__XSFH));
- ptr_table__E0JH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__YSFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__D0JH=((__POINTER )(NULL));
- result__F0JH=((__POINTER *)ptr_table__E0JH)[ 0];
- if ((result__F0JH == (void *)NULL)) {
- result__F0JH=new_lab__RTJ(new_size__YSFH);
- next__D0JH=(void *)((unsigned long)result__F0JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YSFH)));
- ((__POINTER *)next__D0JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__E0JH)[ 0]=next__D0JH;
- } else {
- next__D0JH=((__POINTER *)result__F0JH)[ 0];
- if ((next__D0JH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__F0JH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__YSFH << 1)) <= 4096)) {
- next__D0JH=(void *)((unsigned long)result__F0JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YSFH)));
- } else {
- next__D0JH=new_lab__RTJ(new_size__YSFH);
- };
- ((__POINTER *)next__D0JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__E0JH)[ 0]=next__D0JH;
- } else {
- ((__POINTER *)result__F0JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__D0JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__F0JH=next__D0JH;
- };
- };
- ptr__C15B=result__F0JH;
- } else {
- t__2SFH=((__UINTEGER_32 )typ_id__H15B);
- a__1SFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__M0JH=(__UINTEGER_32)((__UINTEGER_32)(sz__E15B + a__1SFH) & (__UINTEGER_32)(~ a__1SFH));
- ptr_table__J0JH=((__POINTER )(&(table_type[(t__2SFH)])));
- lab_type__L0JH=(__UINTEGER_32)(t__2SFH | 1);
- next__I0JH=((__POINTER )(NULL));
- result__K0JH=((__POINTER *)ptr_table__J0JH)[ 0];
- if ((result__K0JH == (void *)NULL)) {
- result__K0JH=new_lab__RTJ(lab_type__L0JH);
- next__I0JH=(void *)((unsigned long)result__K0JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M0JH)));
- ((__POINTER *)next__I0JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__J0JH)[ 0]=next__I0JH;
- } else {
- next__I0JH=((__POINTER *)result__K0JH)[ 0];
- if ((next__I0JH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__K0JH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__M0JH << 1)) <= 4096)) {
- next__I0JH=(void *)((unsigned long)result__K0JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M0JH)));
- } else {
- next__I0JH=new_lab__RTJ(lab_type__L0JH);
- };
- ((__POINTER *)next__I0JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__J0JH)[ 0]=next__I0JH;
- } else {
- ((__POINTER *)result__K0JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__I0JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__K0JH=next__I0JH;
- };
- };
- ptr__C15B=result__K0JH;
- };
- result__B15B=((__FAST_ARRAYoITM_ARGUMENTo *)ptr__C15B);
- *(result__B15B) = *(FAST_ARRAYoITM_ARGUMENTo__);
- };
- Self__KSHC=((__FAST_ARRAYoITM_ARGUMENTo *)result__B15B);
- if ((Self__KSHC->parent_arrayed_collection__Z5YB.capacity__K5GC < new_count__NJ5B)) {
- Self__KSHC->parent_arrayed_collection__Z5YB.storage__GAHC=create__PRBD(new_count__NJ5B);
- Self__KSHC->parent_arrayed_collection__Z5YB.capacity__K5GC=new_count__NJ5B;
- };
- Self__KSHC->parent_arrayed_collection__Z5YB.upper__I5GC=(__INTEGER)(- 1);
- return(result__B15B);
-}
-
-static void* read_loc_arg__with_self__BBHB(__PARSER *Self__CBHB,__BOOLEAN mute__DBHB,__BOOLEAN self_first__EBHB)
-// ({PARSER},{TRUExFALSE},{TRUExFALSE}) With resultNo recursive, No inlinable.
-{
- void *result__GBHB,*result__A4EE;
- void *t__HBHB,*t__03EE,*__tmp__ZCFE,*t__0X5B;
- __POSITION pos__IBHB,pos__R5XG,pos__T5XG,pos__V5XG,pos__X5XG;
- __POSITION pos__Z5XG,pos__GAYG,pos__IAYG,p__YX5B,p__DPMF,pos__SCYG;
- __POSITION pos__UCYG;
- void *n__LBHB,*n__ZX5B;
- void *tb__MBHB,*__tmp__AEHB,*tb__B4EE,*__tmp__0CFE;
- __ITM_ARG *result__S0JH,*Self__00JH,*result__YCAC,*Self__B0HC;
- __POINTER ptr__T0JH,ptr_table__50JH,next__40JH,result__A1JH;
- __POINTER ptr_table__E1JH,next__D1JH,result__F1JH,ptr__ZCAC;
- __POINTER ptr_table__U1JH,next__T1JH,result__V1JH,ptr_table__Z1JH;
- __POINTER next__Y1JH,result__01JH,ptr__ER1F,ptr_table__41JH;
- __POINTER next__31JH,result__51JH,ptr_table__D2JH,next__C2JH;
- __POINTER result__E2JH,ptr__VANF,ptr_table__I2JH,next__H2JH;
- __POINTER result__J2JH,ptr_table__N2JH,next__M2JH,result__O2JH;
- __INTEGER typ_id__U0JH,beg__43EE,Self__LNTF,limit_up__MNTF;
- __INTEGER typ_id__4CAC,__tmp__Y0IG,i__2JOG,h__4OQF,idx__5OQF;
- __INTEGER idx__LP2F,new_capacity__MP2F,i__KP2F,typ_id__JR1F;
- __INTEGER typ_id__0ANF,__tmp__PEFE,Self__MPMF;
- __UINTEGER_32 sz__V0JH,a__W0JH,new_size__X0JH,t__Y0JH,a__Z0JH;
- __UINTEGER_32 new_size__H1JH,lab_type__G1JH,sz__1CAC,a__BVFH;
- __UINTEGER_32 new_size__CVFH,t__GVFH,a__FVFH,new_size__21JH;
- __UINTEGER_32 lab_type__11JH,sz__GR1F,a__AUFH,new_size__BUFH,t__FUFH;
- __UINTEGER_32 a__EUFH,new_size__G2JH,lab_type__F2JH,sz__XANF,a__LUFH;
- __UINTEGER_32 new_size__MUFH,t__QUFH,a__PUFH,new_size__Q2JH;
- __UINTEGER_32 lab_type__P2JH;
- void *tm__13EE;
- __ITM_ARGS *result__UANF,*Self__TDQF;
- __BOOLEAN result__O0JH,__tmp__XBHB,result__P0JH,__tmp__0CHB;
- __BOOLEAN __tmp__DEHB,__tmp__HEHB,__tmp__MFHB,result__I1JH,mute__53EE;
- __BOOLEAN result__M1JH,__tmp__M4EE,result__N1JH,__tmp__JAFE;
- __BOOLEAN result__Q1JH,__tmp__ADFE,__tmp__3CFE,__tmp__DDFE;
- __BOOLEAN __tmp__CMQF,result__WZIG,result__R2JH;
- __CHARACTER result__Q0JH,result__I55G,result__J1JH,result__O1JH;
- __CHARACTER result__N55G,result__R1JH,result__S2JH;
- void *type__23EE,*result__AVP;
- void *name__33EE,*result__MEHH,*result__BOMF,*e__XKQF,*result__KLQF;
- void *e__XOQF;
- __FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *Self__NEHH,*Self__OEHH;
- __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *Self__Y5AB,*Self__OABB;
- __HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *Self__WKQF,*Self__WOQF;
- void *node__JLQF,*node__APQF,*node1__OP2F,*node2__PP2F,*__tmp__QQQF;
- __FAST_ARRAYoSTRING_CONSTANTo *Self__TZIG,*o__XZIG,*__tmp__D0IG;
- void **__tmp__T0IG,**__tmp__V0IG,**Self__IJOG;
- void **old_buckets__NP2F;
- __HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *result__DR1F;
- __HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *Self__DL5F;
- result__GBHB=NULL;
- t__HBHB=NULL;
- pos__IBHB=((__POSITION ) 0);
- n__LBHB=NULL;
- tb__MBHB=NULL;
- if (self_first__EBHB) {
- result__O0JH=read_word__ISF((&__string_58));
- if (is_shorter__LZ) {
- if (result__O0JH) {
- if (((void *)(&__string_58) == (void *)(&__string_4))) {
- short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- } else {
- short__token__to__GDD((&__string_119),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- };
- };
- };
- __tmp__XBHB=result__O0JH;
- } else {
- __tmp__XBHB=FALSE__;
- };
- if ((__tmp__XBHB || ((! self_first__EBHB) && read_identifier__2BL()))) {
- pos__IBHB=current_position__B0F();
- n__LBHB=last_string__D2C;
- result__P0JH=FALSE__;
- if ((! read_space__XTD())) {
- result__P0JH=FALSE__;
- } else {
- result__Q0JH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__Q0JH=((__CHARACTER )(( 0)));
- } else {
- result__Q0JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__Q0JH == ':')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__P0JH=TRUE__;
- };
- };
- if (result__P0JH) {
- result__I55G='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__I55G=((__CHARACTER )(( 0)));
- } else {
- result__I55G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__0CHB=(result__I55G != '=');
- } else {
- __tmp__0CHB=FALSE__;
- };
- if (__tmp__0CHB) {
- t__HBHB=read_type__CDM(Self__CBHB,TRUE__);
- if (((void *)t__HBHB == (void *)NULL)) {
- pos__R5XG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_279));
- put_position__FRG(pos__R5XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- if ((self_first__EBHB && ((void *)t__HBHB != (void *)type_self__DVN))) {
- if (((void *)((__PROTOTYPE *)object__ZBC)->parent_named__5.name__LI != (void *)(&__string_40))) {
- __tmp__DEHB=TRUE__;
- } else {
- if (t__HBHB==NULL) {
- __tmp__AEHB=NULL;
- } else {
- switch (((struct ___OBJ *)t__HBHB)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- __tmp__AEHB=NULL;
- } break;
- case __ITM_TYPE_SIMPLE__: {
- __tmp__AEHB=NULL;
- } break;
- case __ITM_TYPE_BLOCK__: {
- __tmp__AEHB=((void *)t__HBHB);
- } break;
- case __ITM_TYPE_GENERIC__: {
- __tmp__AEHB=NULL;
- } break;
- case __ITM_TYPE_STYLE__: {
- __tmp__AEHB=NULL;
- } break;
- }
- };
- tb__MBHB=__tmp__AEHB;
- __tmp__DEHB=((void *)__tmp__AEHB == (void *)NULL);
- };
- __tmp__HEHB=__tmp__DEHB;
- } else {
- __tmp__HEHB=FALSE__;
- };
- if (__tmp__HEHB) {
- pos__T5XG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_280));
- put_position__FRG(pos__T5XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- result__S0JH=NULL;
- ptr__T0JH=((__POINTER )(NULL));
- typ_id__U0JH= 0;
- sz__V0JH=((__UINTEGER_32 )sizeof(__ITM_ARG));
- if ((sz__V0JH == 0)) {
- result__S0JH=ITM_ARG__;
- } else {
- typ_id__U0JH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__V0JH);
- if ((typ_id__U0JH == (__INTEGER)(- 1))) {
- a__W0JH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__X0JH=(__UINTEGER_32)((__UINTEGER_32)(sz__V0JH + a__W0JH) & (__UINTEGER_32)(~ a__W0JH));
- ptr_table__50JH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__X0JH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__40JH=((__POINTER )(NULL));
- result__A1JH=((__POINTER *)ptr_table__50JH)[ 0];
- if ((result__A1JH == (void *)NULL)) {
- result__A1JH=new_lab__RTJ(new_size__X0JH);
- next__40JH=(void *)((unsigned long)result__A1JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X0JH)));
- ((__POINTER *)next__40JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__50JH)[ 0]=next__40JH;
- } else {
- next__40JH=((__POINTER *)result__A1JH)[ 0];
- if ((next__40JH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__A1JH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__X0JH << 1)) <= 4096)) {
- next__40JH=(void *)((unsigned long)result__A1JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X0JH)));
- } else {
- next__40JH=new_lab__RTJ(new_size__X0JH);
- };
- ((__POINTER *)next__40JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__50JH)[ 0]=next__40JH;
- } else {
- ((__POINTER *)result__A1JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__40JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__A1JH=next__40JH;
- };
- };
- ptr__T0JH=result__A1JH;
- } else {
- t__Y0JH=((__UINTEGER_32 )typ_id__U0JH);
- a__Z0JH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__H1JH=(__UINTEGER_32)((__UINTEGER_32)(sz__V0JH + a__Z0JH) & (__UINTEGER_32)(~ a__Z0JH));
- ptr_table__E1JH=((__POINTER )(&(table_type[(t__Y0JH)])));
- lab_type__G1JH=(__UINTEGER_32)(t__Y0JH | 1);
- next__D1JH=((__POINTER )(NULL));
- result__F1JH=((__POINTER *)ptr_table__E1JH)[ 0];
- if ((result__F1JH == (void *)NULL)) {
- result__F1JH=new_lab__RTJ(lab_type__G1JH);
- next__D1JH=(void *)((unsigned long)result__F1JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__H1JH)));
- ((__POINTER *)next__D1JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__E1JH)[ 0]=next__D1JH;
- } else {
- next__D1JH=((__POINTER *)result__F1JH)[ 0];
- if ((next__D1JH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__F1JH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__H1JH << 1)) <= 4096)) {
- next__D1JH=(void *)((unsigned long)result__F1JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__H1JH)));
- } else {
- next__D1JH=new_lab__RTJ(lab_type__G1JH);
- };
- ((__POINTER *)next__D1JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__E1JH)[ 0]=next__D1JH;
- } else {
- ((__POINTER *)result__F1JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__D1JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__F1JH=next__D1JH;
- };
- };
- ptr__T0JH=result__F1JH;
- };
- result__S0JH=((__ITM_ARG *)ptr__T0JH);
- *(result__S0JH) = *(ITM_ARG__);
- };
- Self__00JH=((__ITM_ARG *)result__S0JH);
- Self__00JH->parent_itm_argument__SEHB.parent_itm_code__O5M.position__SFJ=pos__IBHB;
- Self__00JH->name__F0HC=n__LBHB;
- Self__00JH->type__G0HC=t__HBHB;
- result__GBHB=result__S0JH;
- if (is_shorter__LZ) {
- add__1IHB(short_local__XCC,n__LBHB);
- };
- } else {
- if ((! mute__DBHB)) {
- pos__V5XG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_281));
- put_position__FRG(pos__V5XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- __tmp__MFHB=TRUE__;
- } else {
- __tmp__MFHB=FALSE__;
- };
- if ((! __tmp__MFHB)) {
- result__I1JH=FALSE__;
- if ((! read_space__XTD())) {
- result__I1JH=FALSE__;
- } else {
- result__J1JH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__J1JH=((__CHARACTER )(( 0)));
- } else {
- result__J1JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__J1JH == '(')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__I1JH=TRUE__;
- };
- };
- if (result__I1JH) {
- t__03EE=NULL;
- tm__13EE=NULL;
- type__23EE=NULL;
- name__33EE=NULL;
- beg__43EE= 0;
- result__A4EE=NULL;
- tb__B4EE=NULL;
- mute__53EE=mute__DBHB;
- if (self_first__EBHB) {
- result__M1JH=read_word__ISF((&__string_58));
- if (is_shorter__LZ) {
- if (result__M1JH) {
- if (((void *)(&__string_58) == (void *)(&__string_4))) {
- short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- } else {
- short__token__to__GDD((&__string_119),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- };
- };
- };
- __tmp__M4EE=result__M1JH;
- } else {
- __tmp__M4EE=FALSE__;
- };
- if ((__tmp__M4EE || read_identifier__2BL())) {
- result__MEHH=NULL;
- if ((((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__1AL)->parent_arrayed_collection__0AL.upper__LUU < 0)) {
- result__MEHH=create_with_capacity__THRC( 16);
- } else {
- Self__NEHH=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__1AL);
- result__MEHH=((void **)Self__NEHH->parent_arrayed_collection__0AL.storage__1WU)[Self__NEHH->parent_arrayed_collection__0AL.upper__LUU];
- Self__OEHH=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__1AL);
- Self__OEHH->parent_arrayed_collection__0AL.upper__LUU=(__INTEGER)(Self__OEHH->parent_arrayed_collection__0AL.upper__LUU - 1);
- };
- name__33EE=result__MEHH;
- result__AVP=NULL;
- if ((((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__GVP)->parent_arrayed_collection__FVP.upper__ZUV < 0)) {
- result__AVP=create_with_capacity__EGR( 16);
- } else {
- Self__Y5AB=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__GVP);
- result__AVP=((void **)Self__Y5AB->parent_arrayed_collection__FVP.storage__PZV)[Self__Y5AB->parent_arrayed_collection__FVP.upper__ZUV];
- Self__OABB=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__GVP);
- Self__OABB->parent_arrayed_collection__FVP.upper__ZUV=(__INTEGER)(Self__OABB->parent_arrayed_collection__FVP.upper__ZUV - 1);
- };
- type__23EE=result__AVP;
- beg__43EE= 0;
- do {
- if (((((__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)name__33EE)->parent_arrayed_collection__MBJ.upper__2CPD + 1) != 0) && (! read_identifier__2BL())) && (! mute__53EE))) {
- pos__X5XG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_282));
- put_position__FRG(pos__X5XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- add_last__SEPD(name__33EE,last_string__D2C);
- result__N1JH=FALSE__;
- if ((! read_space__XTD())) {
- result__N1JH=FALSE__;
- } else {
- result__O1JH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__O1JH=((__CHARACTER )(( 0)));
- } else {
- result__O1JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__O1JH == ':')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__N1JH=TRUE__;
- };
- };
- if (result__N1JH) {
- result__N55G='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__N55G=((__CHARACTER )(( 0)));
- } else {
- result__N55G=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__JAFE=(result__N55G != '=');
- } else {
- __tmp__JAFE=FALSE__;
- };
- if (__tmp__JAFE) {
- mute__53EE=FALSE__;
- t__03EE=read_type__CDM(Self__CBHB,TRUE__);
- if (((void *)t__03EE == (void *)NULL)) {
- pos__Z5XG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_283));
- put_position__FRG(pos__Z5XG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- Self__LNTF=beg__43EE;
- limit_up__MNTF=((__FAST_ARRAYoSTRING_CONSTANTo *)name__33EE)->parent_arrayed_collection__MBJ.upper__2CPD;
- while ((Self__LNTF <= limit_up__MNTF)) {
- add_last__ONV(type__23EE,t__03EE);
- Self__LNTF=(__INTEGER)(Self__LNTF + 1);
- };
- beg__43EE=(__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)name__33EE)->parent_arrayed_collection__MBJ.upper__2CPD + 1);
- };
- result__Q1JH=FALSE__;
- if ((! read_space__XTD())) {
- result__Q1JH=FALSE__;
- } else {
- result__R1JH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__R1JH=((__CHARACTER )(( 0)));
- } else {
- result__R1JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__R1JH == ',')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__Q1JH=TRUE__;
- };
- };
- } while (result__Q1JH);
- if ((beg__43EE != (__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)result__MEHH)->parent_arrayed_collection__MBJ.upper__2CPD + 1))) {
- if ((! mute__53EE)) {
- pos__GAYG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_283));
- put_position__FRG(pos__GAYG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- free__TR5(result__MEHH);
- free__YNQ(result__AVP);
- } else {
- if (self_first__EBHB) {
- if (((void *)((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)result__AVP)->parent_arrayed_collection__SYC.storage__FMV)[ 0] != (void *)type_self__DVN)) {
- __tmp__ADFE=TRUE__;
- } else {
- if (((void *)((__PROTOTYPE *)object__ZBC)->parent_named__5.name__LI == (void *)(&__string_40))) {
- __tmp__ZCFE=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)result__AVP)->parent_arrayed_collection__SYC.storage__FMV)[ 0];
- if (__tmp__ZCFE==NULL) {
- __tmp__0CFE=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__ZCFE)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- __tmp__0CFE=NULL;
- } break;
- case __ITM_TYPE_SIMPLE__: {
- __tmp__0CFE=NULL;
- } break;
- case __ITM_TYPE_BLOCK__: {
- __tmp__0CFE=((void *)__tmp__ZCFE);
- } break;
- case __ITM_TYPE_GENERIC__: {
- __tmp__0CFE=NULL;
- } break;
- case __ITM_TYPE_STYLE__: {
- __tmp__0CFE=NULL;
- } break;
- }
- };
- tb__B4EE=__tmp__0CFE;
- __tmp__3CFE=((void *)__tmp__0CFE == (void *)NULL);
- } else {
- __tmp__3CFE=FALSE__;
- };
- __tmp__ADFE=__tmp__3CFE;
- };
- __tmp__DDFE=__tmp__ADFE;
- } else {
- __tmp__DDFE=FALSE__;
- };
- if (__tmp__DDFE) {
- pos__IAYG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_280));
- put_position__FRG(pos__IAYG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- if (((__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)result__MEHH)->parent_arrayed_collection__MBJ.upper__2CPD + 1) == 1)) {
- p__YX5B=current_position__B0F();
- n__ZX5B=((void **)((__FAST_ARRAYoSTRING_CONSTANTo *)result__MEHH)->parent_arrayed_collection__MBJ.storage__SFPD)[ 0];
- t__0X5B=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)result__AVP)->parent_arrayed_collection__SYC.storage__FMV)[ 0];
- result__YCAC=NULL;
- ptr__ZCAC=((__POINTER )(NULL));
- typ_id__4CAC= 0;
- sz__1CAC=((__UINTEGER_32 )sizeof(__ITM_ARG));
- if ((sz__1CAC == 0)) {
- result__YCAC=ITM_ARG__;
- } else {
- typ_id__4CAC=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__1CAC);
- if ((typ_id__4CAC == (__INTEGER)(- 1))) {
- a__BVFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__CVFH=(__UINTEGER_32)((__UINTEGER_32)(sz__1CAC + a__BVFH) & (__UINTEGER_32)(~ a__BVFH));
- ptr_table__U1JH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CVFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__T1JH=((__POINTER )(NULL));
- result__V1JH=((__POINTER *)ptr_table__U1JH)[ 0];
- if ((result__V1JH == (void *)NULL)) {
- result__V1JH=new_lab__RTJ(new_size__CVFH);
- next__T1JH=(void *)((unsigned long)result__V1JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CVFH)));
- ((__POINTER *)next__T1JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__U1JH)[ 0]=next__T1JH;
- } else {
- next__T1JH=((__POINTER *)result__V1JH)[ 0];
- if ((next__T1JH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__V1JH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__CVFH << 1)) <= 4096)) {
- next__T1JH=(void *)((unsigned long)result__V1JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CVFH)));
- } else {
- next__T1JH=new_lab__RTJ(new_size__CVFH);
- };
- ((__POINTER *)next__T1JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__U1JH)[ 0]=next__T1JH;
- } else {
- ((__POINTER *)result__V1JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__T1JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__V1JH=next__T1JH;
- };
- };
- ptr__ZCAC=result__V1JH;
- } else {
- t__GVFH=((__UINTEGER_32 )typ_id__4CAC);
- a__FVFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__21JH=(__UINTEGER_32)((__UINTEGER_32)(sz__1CAC + a__FVFH) & (__UINTEGER_32)(~ a__FVFH));
- ptr_table__Z1JH=((__POINTER )(&(table_type[(t__GVFH)])));
- lab_type__11JH=(__UINTEGER_32)(t__GVFH | 1);
- next__Y1JH=((__POINTER )(NULL));
- result__01JH=((__POINTER *)ptr_table__Z1JH)[ 0];
- if ((result__01JH == (void *)NULL)) {
- result__01JH=new_lab__RTJ(lab_type__11JH);
- next__Y1JH=(void *)((unsigned long)result__01JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__21JH)));
- ((__POINTER *)next__Y1JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__Z1JH)[ 0]=next__Y1JH;
- } else {
- next__Y1JH=((__POINTER *)result__01JH)[ 0];
- if ((next__Y1JH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__01JH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__21JH << 1)) <= 4096)) {
- next__Y1JH=(void *)((unsigned long)result__01JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__21JH)));
- } else {
- next__Y1JH=new_lab__RTJ(lab_type__11JH);
- };
- ((__POINTER *)next__Y1JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__Z1JH)[ 0]=next__Y1JH;
- } else {
- ((__POINTER *)result__01JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__Y1JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__01JH=next__Y1JH;
- };
- };
- ptr__ZCAC=result__01JH;
- };
- result__YCAC=((__ITM_ARG *)ptr__ZCAC);
- *(result__YCAC) = *(ITM_ARG__);
- };
- Self__B0HC=((__ITM_ARG *)result__YCAC);
- Self__B0HC->parent_itm_argument__SEHB.parent_itm_code__O5M.position__SFJ=p__YX5B;
- Self__B0HC->name__F0HC=n__ZX5B;
- Self__B0HC->type__G0HC=t__0X5B;
- result__A4EE=result__YCAC;
- free__TR5(result__MEHH);
- free__YNQ(result__AVP);
- } else {
- result__BOMF=NULL;
- if ((((__FAST_ARRAYoSTRING_CONSTANTo *)result__MEHH)->parent_arrayed_collection__MBJ.upper__2CPD < 0)) {
- result__BOMF=empty_list__IOMF;
- } else {
- Self__WKQF=((__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *)bucket__SOMF);
- e__XKQF=result__MEHH;
- result__KLQF=NULL;
- node__JLQF=((void **)Self__WKQF->buckets__RLQF)[(__INTEGER)(hash_code__NVRF(result__MEHH) % Self__WKQF->capacity__MLQF)];
- until_do__VWRF:
- {
- if (((void *)node__JLQF == (void *)NULL)) {
- __tmp__CMQF=TRUE__;
- } else {
- Self__TZIG=((__FAST_ARRAYoSTRING_CONSTANTo *)((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__JLQF)->item__3LQF);
- result__WZIG=FALSE__;
- o__XZIG=NULL;
- if (((void *)Self__TZIG == (void *)e__XKQF)) {
- result__WZIG=TRUE__;
- } else {
- if (e__XKQF==NULL) {
- __tmp__D0IG=NULL;
- } else {
- __tmp__D0IG=((__FAST_ARRAYoSTRING_CONSTANTo *)e__XKQF);
- };
- o__XZIG=__tmp__D0IG;
- if ((((void *)__tmp__D0IG != (void *)NULL) && (Self__TZIG->parent_arrayed_collection__MBJ.upper__2CPD == __tmp__D0IG->parent_arrayed_collection__MBJ.upper__2CPD))) {
- __tmp__T0IG=Self__TZIG->parent_arrayed_collection__MBJ.storage__SFPD;
- __tmp__V0IG=__tmp__D0IG->parent_arrayed_collection__MBJ.storage__SFPD;
- __tmp__Y0IG=(__INTEGER)(Self__TZIG->parent_arrayed_collection__MBJ.upper__2CPD + 1);
- Self__IJOG=((void **)__tmp__T0IG);
- i__2JOG=(__INTEGER)(__tmp__Y0IG - 1);
- while (((i__2JOG >= 0) && ((void *)Self__IJOG[i__2JOG] == (void *)((void **)__tmp__V0IG)[i__2JOG]))) {
- i__2JOG=(__INTEGER)(i__2JOG - 1);
- };
- result__WZIG=(i__2JOG < 0);
- };
- };
- __tmp__CMQF=result__WZIG;
- };
- if ((! __tmp__CMQF)) {
- node__JLQF=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__JLQF)->next__JMQF;
- goto until_do__VWRF;
- };
- };
- if (((void *)node__JLQF != (void *)NULL)) {
- result__KLQF=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__JLQF)->item__3LQF;
- };
- result__BOMF=result__KLQF;
- if (((void *)result__KLQF == (void *)NULL)) {
- result__BOMF=create_with_capacity__THRC((__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)result__MEHH)->parent_arrayed_collection__MBJ.upper__2CPD + 1));
- copy__BASD(result__BOMF,result__MEHH);
- Self__WOQF=((__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *)bucket__SOMF);
- e__XOQF=result__BOMF;
- fast_has__H4RF(Self__WOQF,result__BOMF);
- fast_has__H4RF(Self__WOQF,result__BOMF);
- h__4OQF=hash_code__NVRF(result__BOMF);
- idx__5OQF=(__INTEGER)(h__4OQF % Self__WOQF->capacity__MLQF);
- node__APQF=((void **)Self__WOQF->buckets__RLQF)[idx__5OQF];
- while ((! (((void *)node__APQF == (void *)NULL) || ((void *)((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__APQF)->item__3LQF == (void *)e__XOQF)))) {
- node__APQF=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__APQF)->next__JMQF;
- };
- if (((void *)node__APQF == (void *)NULL)) {
- if ((Self__WOQF->capacity__MLQF == Self__WOQF->count__DQQF)) {
- idx__LP2F= 0;
- node1__OP2F=NULL;
- node2__PP2F=NULL;
- new_capacity__MP2F=prime_number_ceiling__021((__INTEGER)(Self__WOQF->capacity__MLQF + 1));
- old_buckets__NP2F=Self__WOQF->buckets__RLQF;
- Self__WOQF->buckets__RLQF=create__FNUF(new_capacity__MP2F);
- i__KP2F=(__INTEGER)(Self__WOQF->capacity__MLQF - 1);
- Self__WOQF->capacity__MLQF=new_capacity__MP2F;
- while ((i__KP2F >= 0)) {
- node1__OP2F=((void **)old_buckets__NP2F)[i__KP2F];
- while (((void *)node1__OP2F != (void *)NULL)) {
- node2__PP2F=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node1__OP2F)->next__JMQF;
- idx__LP2F=(__INTEGER)(hash_code__NVRF(((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node1__OP2F)->item__3LQF) % Self__WOQF->capacity__MLQF);
- ((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node1__OP2F)->next__JMQF=((void **)Self__WOQF->buckets__RLQF)[idx__LP2F];
- ((void **)Self__WOQF->buckets__RLQF)[idx__LP2F]=node1__OP2F;
- node1__OP2F=node2__PP2F;
- };
- i__KP2F=(__INTEGER)(i__KP2F - 1);
- };
- idx__5OQF=(__INTEGER)(h__4OQF % Self__WOQF->capacity__MLQF);
- };
- __tmp__QQQF=((void **)Self__WOQF->buckets__RLQF)[idx__5OQF];
- result__DR1F=NULL;
- ptr__ER1F=((__POINTER )(NULL));
- typ_id__JR1F= 0;
- sz__GR1F=((__UINTEGER_32 )sizeof(__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo));
- if ((sz__GR1F == 0)) {
- result__DR1F=HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__;
- } else {
- typ_id__JR1F=__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__GR1F);
- if ((typ_id__JR1F == (__INTEGER)(- 1))) {
- a__AUFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__BUFH=(__UINTEGER_32)((__UINTEGER_32)(sz__GR1F + a__AUFH) & (__UINTEGER_32)(~ a__AUFH));
- ptr_table__41JH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__BUFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__31JH=((__POINTER )(NULL));
- result__51JH=((__POINTER *)ptr_table__41JH)[ 0];
- if ((result__51JH == (void *)NULL)) {
- result__51JH=new_lab__RTJ(new_size__BUFH);
- next__31JH=(void *)((unsigned long)result__51JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BUFH)));
- ((__POINTER *)next__31JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__41JH)[ 0]=next__31JH;
- } else {
- next__31JH=((__POINTER *)result__51JH)[ 0];
- if ((next__31JH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__51JH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__BUFH << 1)) <= 4096)) {
- next__31JH=(void *)((unsigned long)result__51JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BUFH)));
- } else {
- next__31JH=new_lab__RTJ(new_size__BUFH);
- };
- ((__POINTER *)next__31JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__41JH)[ 0]=next__31JH;
- } else {
- ((__POINTER *)result__51JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__31JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__51JH=next__31JH;
- };
- };
- ptr__ER1F=result__51JH;
- } else {
- t__FUFH=((__UINTEGER_32 )typ_id__JR1F);
- a__EUFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__G2JH=(__UINTEGER_32)((__UINTEGER_32)(sz__GR1F + a__EUFH) & (__UINTEGER_32)(~ a__EUFH));
- ptr_table__D2JH=((__POINTER )(&(table_type[(t__FUFH)])));
- lab_type__F2JH=(__UINTEGER_32)(t__FUFH | 1);
- next__C2JH=((__POINTER )(NULL));
- result__E2JH=((__POINTER *)ptr_table__D2JH)[ 0];
- if ((result__E2JH == (void *)NULL)) {
- result__E2JH=new_lab__RTJ(lab_type__F2JH);
- next__C2JH=(void *)((unsigned long)result__E2JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__G2JH)));
- ((__POINTER *)next__C2JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__D2JH)[ 0]=next__C2JH;
- } else {
- next__C2JH=((__POINTER *)result__E2JH)[ 0];
- if ((next__C2JH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__E2JH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__G2JH << 1)) <= 4096)) {
- next__C2JH=(void *)((unsigned long)result__E2JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__G2JH)));
- } else {
- next__C2JH=new_lab__RTJ(lab_type__F2JH);
- };
- ((__POINTER *)next__C2JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__D2JH)[ 0]=next__C2JH;
- } else {
- ((__POINTER *)result__E2JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__C2JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__E2JH=next__C2JH;
- };
- };
- ptr__ER1F=result__E2JH;
- };
- result__DR1F=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)ptr__ER1F);
- *(result__DR1F) = *(HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo__);
- };
- Self__DL5F=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)result__DR1F);
- Self__DL5F->item__3LQF=result__BOMF;
- Self__DL5F->next__JMQF=__tmp__QQQF;
- node__APQF=result__DR1F;
- ((void **)Self__WOQF->buckets__RLQF)[idx__5OQF]=result__DR1F;
- Self__WOQF->count__DQQF=(__INTEGER)(Self__WOQF->count__DQQF + 1);
- };
- };
- };
- free__TR5(result__MEHH);
- name__33EE=result__BOMF;
- type__23EE=alias__CWP(result__AVP);
- tm__13EE=get__4JP(type__23EE);
- p__DPMF=current_position__B0F();
- result__UANF=NULL;
- ptr__VANF=((__POINTER )(NULL));
- typ_id__0ANF= 0;
- sz__XANF=((__UINTEGER_32 )sizeof(__ITM_ARGS));
- if ((sz__XANF == 0)) {
- result__UANF=ITM_ARGS__;
- } else {
- typ_id__0ANF=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__XANF);
- if ((typ_id__0ANF == (__INTEGER)(- 1))) {
- a__LUFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__MUFH=(__UINTEGER_32)((__UINTEGER_32)(sz__XANF + a__LUFH) & (__UINTEGER_32)(~ a__LUFH));
- ptr_table__I2JH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__MUFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__H2JH=((__POINTER )(NULL));
- result__J2JH=((__POINTER *)ptr_table__I2JH)[ 0];
- if ((result__J2JH == (void *)NULL)) {
- result__J2JH=new_lab__RTJ(new_size__MUFH);
- next__H2JH=(void *)((unsigned long)result__J2JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MUFH)));
- ((__POINTER *)next__H2JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__I2JH)[ 0]=next__H2JH;
- } else {
- next__H2JH=((__POINTER *)result__J2JH)[ 0];
- if ((next__H2JH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__J2JH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__MUFH << 1)) <= 4096)) {
- next__H2JH=(void *)((unsigned long)result__J2JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MUFH)));
- } else {
- next__H2JH=new_lab__RTJ(new_size__MUFH);
- };
- ((__POINTER *)next__H2JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__I2JH)[ 0]=next__H2JH;
- } else {
- ((__POINTER *)result__J2JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__H2JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__J2JH=next__H2JH;
- };
- };
- ptr__VANF=result__J2JH;
- } else {
- t__QUFH=((__UINTEGER_32 )typ_id__0ANF);
- a__PUFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__Q2JH=(__UINTEGER_32)((__UINTEGER_32)(sz__XANF + a__PUFH) & (__UINTEGER_32)(~ a__PUFH));
- ptr_table__N2JH=((__POINTER )(&(table_type[(t__QUFH)])));
- lab_type__P2JH=(__UINTEGER_32)(t__QUFH | 1);
- next__M2JH=((__POINTER )(NULL));
- result__O2JH=((__POINTER *)ptr_table__N2JH)[ 0];
- if ((result__O2JH == (void *)NULL)) {
- result__O2JH=new_lab__RTJ(lab_type__P2JH);
- next__M2JH=(void *)((unsigned long)result__O2JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q2JH)));
- ((__POINTER *)next__M2JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__N2JH)[ 0]=next__M2JH;
- } else {
- next__M2JH=((__POINTER *)result__O2JH)[ 0];
- if ((next__M2JH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__O2JH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__Q2JH << 1)) <= 4096)) {
- next__M2JH=(void *)((unsigned long)result__O2JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Q2JH)));
- } else {
- next__M2JH=new_lab__RTJ(lab_type__P2JH);
- };
- ((__POINTER *)next__M2JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__N2JH)[ 0]=next__M2JH;
- } else {
- ((__POINTER *)result__O2JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__M2JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__O2JH=next__M2JH;
- };
- };
- ptr__VANF=result__O2JH;
- };
- result__UANF=((__ITM_ARGS *)ptr__VANF);
- *(result__UANF) = *(ITM_ARGS__);
- };
- Self__TDQF=((__ITM_ARGS *)result__UANF);
- Self__TDQF->parent_itm_argument__CEFE.parent_itm_code__O5M.position__SFJ=p__DPMF;
- Self__TDQF->name__XDQF=result__BOMF;
- Self__TDQF->type__YDQF=tm__13EE;
- result__A4EE=result__UANF;
- };
- if (is_shorter__LZ) {
- __tmp__PEFE=((__FAST_ARRAYoSTRING_CONSTANTo *)name__33EE)->parent_arrayed_collection__MBJ.upper__2CPD;
- Self__MPMF= 0;
- while ((Self__MPMF <= __tmp__PEFE)) {
- add__1IHB(short_local__XCC,((void **)((__FAST_ARRAYoSTRING_CONSTANTo *)name__33EE)->parent_arrayed_collection__MBJ.storage__SFPD)[Self__MPMF]);
- Self__MPMF=(__INTEGER)(Self__MPMF + 1);
- };
- };
- };
- };
- result__GBHB=result__A4EE;
- if (((void *)result__A4EE == (void *)NULL)) {
- if ((! mute__DBHB)) {
- pos__SCYG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_284));
- put_position__FRG(pos__SCYG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- } else {
- result__R2JH=FALSE__;
- if ((! read_space__XTD())) {
- result__R2JH=FALSE__;
- } else {
- result__S2JH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__S2JH=((__CHARACTER )(( 0)));
- } else {
- result__S2JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__S2JH == ')')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__R2JH=TRUE__;
- };
- };
- if ((! result__R2JH)) {
- pos__UCYG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_262));
- put_position__FRG(pos__UCYG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- };
- };
- return(result__GBHB);
-}
-
-static void* read_slot_operator__RS5B(void *list_arg__TS5B)
-// ({NULLxFAST_ARRAYoITM_ARGUMENTo}) With resultNo recursive, No inlinable.
-{
- void *associativity__XS5B,*name__VS5B,*pretty_name__WS5B;
- __INTEGER priority__YS5B,typ_id__IKAC;
- void *arg__ZS5B;
- __POSITION pos__WCYG,pos__YCYG,pos__0CYG,pos__5CYG,pos__BDYG;
- __POSITION pos__DDYG,__tmp__TX5B;
- void *__tmp__UX5B;
- __ITM_SLOT_OPERATOR *result__CKAC,*Self__Z1HC,*Self__LZHC;
- __POINTER ptr__DKAC,ptr_table__22JH,next__12JH,result__32JH;
- __POINTER ptr_table__B3JH,next__A3JH,result__C3JH;
- __UINTEGER_32 sz__FKAC,a__ZUFH,new_size__0UFH,t__4UFH,a__3UFH;
- __UINTEGER_32 new_size__E3JH,lab_type__D3JH;
- __BOOLEAN result__U2JH,result__Y2JH,__tmp__YU5B,result__02JH;
- __CHARACTER result__V2JH;
- associativity__XS5B=NULL;
- priority__YS5B= 0;
- arg__ZS5B=NULL;
- if ((! read_operator__GOM())) {
- pos__WCYG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_285));
- put_position__FRG(pos__WCYG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- if ((((void *)last_string__D2C == (void *)(&__string_16)) || ((void *)last_string__D2C == (void *)(&__string_17)))) {
- pos__YCYG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_286));
- put_position__FRG(pos__YCYG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- name__VS5B=last_string__D2C;
- pretty_name__WS5B=name__VS5B;
- result__U2JH=FALSE__;
- if ((! read_space__XTD())) {
- result__U2JH=FALSE__;
- } else {
- result__V2JH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__V2JH=((__CHARACTER )(( 0)));
- } else {
- result__V2JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__V2JH == '\'')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__U2JH=TRUE__;
- };
- };
- if ((! result__U2JH)) {
- pos__0CYG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_287));
- put_position__FRG(pos__0CYG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- result__Y2JH=read_word__ISF((&__string_6));
- if (is_shorter__LZ) {
- if (result__Y2JH) {
- if (((void *)(&__string_6) == (void *)(&__string_4))) {
- short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- } else {
- short__token__to__GDD((&__string_119),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- };
- };
- };
- if (result__Y2JH) {
- __tmp__YU5B=TRUE__;
- } else {
- result__02JH=read_word__ISF((&__string_5));
- if (is_shorter__LZ) {
- if (result__02JH) {
- if (((void *)(&__string_5) == (void *)(&__string_4))) {
- short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- } else {
- short__token__to__GDD((&__string_119),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- };
- };
- };
- __tmp__YU5B=result__02JH;
- };
- if (__tmp__YU5B) {
- associativity__XS5B=last_string__D2C;
- if (read_integer__22P()) {
- priority__YS5B=((__INTEGER )last_integer__VSO);
- };
- };
- if ((((__FAST_ARRAYoITM_ARGUMENTo *)list_arg__TS5B)->parent_arrayed_collection__Z5YB.upper__I5GC < 0)) {
- arg__ZS5B=read_loc_arg__with_self__BBHB(PARSER__,FALSE__,TRUE__);
- if (((void *)arg__ZS5B == (void *)NULL)) {
- pos__5CYG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_288));
- put_position__FRG(pos__5CYG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- add_last__E5GC(list_arg__TS5B,arg__ZS5B);
- name__VS5B=operator__name__ZEO((&__string_83),name__VS5B);
- if (((void *)associativity__XS5B != (void *)NULL)) {
- pos__BDYG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_289));
- put_position__FRG(pos__BDYG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- } else {
- arg__ZS5B=read_loc_arg__with_self__BBHB(PARSER__,FALSE__,FALSE__);
- if (((void *)arg__ZS5B != (void *)NULL)) {
- add_last__E5GC(list_arg__TS5B,arg__ZS5B);
- name__VS5B=operator__name__ZEO((&__string_81),name__VS5B);
- if (((void *)associativity__XS5B == (void *)NULL)) {
- associativity__XS5B=(&__string_6);
- };
- } else {
- name__VS5B=operator__name__ZEO((&__string_82),name__VS5B);
- if (((void *)associativity__XS5B != (void *)NULL)) {
- pos__DDYG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_290));
- put_position__FRG(pos__DDYG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- };
- __tmp__TX5B=current_position__B0F();
- __tmp__UX5B=last_section__S2C;
- result__CKAC=NULL;
- ptr__DKAC=((__POINTER )(NULL));
- typ_id__IKAC= 0;
- sz__FKAC=((__UINTEGER_32 )sizeof(__ITM_SLOT_OPERATOR));
- if ((sz__FKAC == 0)) {
- result__CKAC=ITM_SLOT_OPERATOR__;
- } else {
- typ_id__IKAC=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__FKAC);
- if ((typ_id__IKAC == (__INTEGER)(- 1))) {
- a__ZUFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__0UFH=(__UINTEGER_32)((__UINTEGER_32)(sz__FKAC + a__ZUFH) & (__UINTEGER_32)(~ a__ZUFH));
- ptr_table__22JH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0UFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__12JH=((__POINTER )(NULL));
- result__32JH=((__POINTER *)ptr_table__22JH)[ 0];
- if ((result__32JH == (void *)NULL)) {
- result__32JH=new_lab__RTJ(new_size__0UFH);
- next__12JH=(void *)((unsigned long)result__32JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0UFH)));
- ((__POINTER *)next__12JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__22JH)[ 0]=next__12JH;
- } else {
- next__12JH=((__POINTER *)result__32JH)[ 0];
- if ((next__12JH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__32JH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__0UFH << 1)) <= 4096)) {
- next__12JH=(void *)((unsigned long)result__32JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0UFH)));
- } else {
- next__12JH=new_lab__RTJ(new_size__0UFH);
- };
- ((__POINTER *)next__12JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__22JH)[ 0]=next__12JH;
- } else {
- ((__POINTER *)result__32JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__12JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__32JH=next__12JH;
- };
- };
- ptr__DKAC=result__32JH;
- } else {
- t__4UFH=((__UINTEGER_32 )typ_id__IKAC);
- a__3UFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__E3JH=(__UINTEGER_32)((__UINTEGER_32)(sz__FKAC + a__3UFH) & (__UINTEGER_32)(~ a__3UFH));
- ptr_table__B3JH=((__POINTER )(&(table_type[(t__4UFH)])));
- lab_type__D3JH=(__UINTEGER_32)(t__4UFH | 1);
- next__A3JH=((__POINTER )(NULL));
- result__C3JH=((__POINTER *)ptr_table__B3JH)[ 0];
- if ((result__C3JH == (void *)NULL)) {
- result__C3JH=new_lab__RTJ(lab_type__D3JH);
- next__A3JH=(void *)((unsigned long)result__C3JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__E3JH)));
- ((__POINTER *)next__A3JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__B3JH)[ 0]=next__A3JH;
- } else {
- next__A3JH=((__POINTER *)result__C3JH)[ 0];
- if ((next__A3JH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__C3JH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__E3JH << 1)) <= 4096)) {
- next__A3JH=(void *)((unsigned long)result__C3JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__E3JH)));
- } else {
- next__A3JH=new_lab__RTJ(lab_type__D3JH);
- };
- ((__POINTER *)next__A3JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__B3JH)[ 0]=next__A3JH;
- } else {
- ((__POINTER *)result__C3JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__A3JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__C3JH=next__A3JH;
- };
- };
- ptr__DKAC=result__C3JH;
- };
- result__CKAC=((__ITM_SLOT_OPERATOR *)ptr__DKAC);
- *(result__CKAC) = *(ITM_SLOT_OPERATOR__);
- };
- Self__Z1HC=((__ITM_SLOT_OPERATOR *)result__CKAC);
- Self__Z1HC->parent_itm_slot__0S5B.parent_named__15.name__LI=name__VS5B;
- Self__Z1HC->parent_itm_slot__0S5B.parent_named__15.parent_itm_object__4.position__SFJ=__tmp__TX5B;
- Self__Z1HC->parent_itm_slot__0S5B.id_section__T3C=__tmp__UX5B;
- Self__LZHC=((__ITM_SLOT_OPERATOR *)result__CKAC);
- if (((void *)associativity__XS5B == (void *)(&__string_6))) {
- Self__LZHC->priority_and_level__UZHC=priority__YS5B;
- } else {
- Self__LZHC->priority_and_level__UZHC=(__INTEGER)(- priority__YS5B);
- };
- ((__ITM_SLOT_OPERATOR *)result__CKAC)->pretty_name__5ZHC=pretty_name__WS5B;
- return(result__CKAC);
-}
-
-static void add_last__E5GC(__FAST_ARRAYoITM_ARGUMENTo *Self__F5GC,void *element__G5GC)
-// ({FAST_ARRAYoITM_ARGUMENTo},{NULLxITM_ARGxITM_ARGS}) VoidNo recursive, No inlinable.
-{
- __INTEGER new_capacity__H5GC,__tmp__QAHC,__tmp__PKTD,Self__4EYE;
- __BOOLEAN __tmp__X5GC;
- void **__tmp__PAHC,**new__1JTD;
- new_capacity__H5GC= 0;
- if (((__INTEGER)(Self__F5GC->parent_arrayed_collection__Z5YB.upper__I5GC + 1) <= (__INTEGER)(Self__F5GC->parent_arrayed_collection__Z5YB.capacity__K5GC - 1))) {
- Self__F5GC->parent_arrayed_collection__Z5YB.upper__I5GC=(__INTEGER)(Self__F5GC->parent_arrayed_collection__Z5YB.upper__I5GC + 1);
- __tmp__X5GC=TRUE__;
- } else {
- __tmp__X5GC=FALSE__;
- };
- if ((! __tmp__X5GC)) {
- if ((Self__F5GC->parent_arrayed_collection__Z5YB.capacity__K5GC == 0)) {
- Self__F5GC->parent_arrayed_collection__Z5YB.storage__GAHC=create__PRBD( 2);
- Self__F5GC->parent_arrayed_collection__Z5YB.capacity__K5GC= 2;
- Self__F5GC->parent_arrayed_collection__Z5YB.upper__I5GC= 0;
- } else {
- new_capacity__H5GC=(__INTEGER)(Self__F5GC->parent_arrayed_collection__Z5YB.capacity__K5GC << 1);
- __tmp__PAHC=Self__F5GC->parent_arrayed_collection__Z5YB.storage__GAHC;
- __tmp__QAHC=Self__F5GC->parent_arrayed_collection__Z5YB.capacity__K5GC;
- new__1JTD=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__PAHC)),((__UINTEGER_32 )(__INTEGER)(__tmp__QAHC * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__H5GC * ((__INTEGER )(sizeof(void *)))))));
- __tmp__PKTD=(__INTEGER)(new_capacity__H5GC - 1);
- Self__4EYE=__tmp__QAHC;
- while ((Self__4EYE <= __tmp__PKTD)) {
- new__1JTD[Self__4EYE]=NULL;
- Self__4EYE=(__INTEGER)(Self__4EYE + 1);
- };
- Self__F5GC->parent_arrayed_collection__Z5YB.storage__GAHC=new__1JTD;
- Self__F5GC->parent_arrayed_collection__Z5YB.capacity__K5GC=new_capacity__H5GC;
- Self__F5GC->parent_arrayed_collection__Z5YB.upper__I5GC=(__INTEGER)(Self__F5GC->parent_arrayed_collection__Z5YB.upper__I5GC + 1);
- };
- };
- ((void **)Self__F5GC->parent_arrayed_collection__Z5YB.storage__GAHC)[Self__F5GC->parent_arrayed_collection__Z5YB.upper__I5GC]=element__G5GC;
-}
-
-static void* read_slot_keyword__4X5B(void *list_arg__AY5B)
-// ({NULLxFAST_ARRAYoITM_ARGUMENTo}) With resultNo recursive, No inlinable.
-{
- void *n__CY5B,*result__2OP;
- void *arg__DY5B;
- void *result__EY5B;
- __POSITION pos__5EYG,pos__BFYG,p__P3JH;
- void *result__MRP;
- void *sec__Q3JH;
- __ITM_SLOT *result__F3JH,*Self__N3JH;
- __POINTER ptr__G3JH,ptr_table__S3JH,next__R3JH,result__T3JH;
- __POINTER ptr_table__X3JH,next__W3JH,result__Y3JH;
- __INTEGER typ_id__H3JH;
- __UINTEGER_32 sz__I3JH,a__J3JH,new_size__K3JH,t__L3JH,a__M3JH;
- __UINTEGER_32 new_size__03JH,lab_type__Z3JH;
- __FAST_ARRAYoSTRINGo *Self__ZZAB,*Self__P0AB;
- n__CY5B=NULL;
- arg__DY5B=NULL;
- result__EY5B=NULL;
- if (read_identifier__2BL()) {
- short__token__to__GDD((&__string_130),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- result__2OP=NULL;
- if ((((__FAST_ARRAYoSTRINGo *)free__3OP)->parent_arrayed_collection__5KC.upper__CLC < 0)) {
- result__2OP=create__ZBB( 128);
- } else {
- Self__ZZAB=((__FAST_ARRAYoSTRINGo *)free__3OP);
- result__2OP=((void **)Self__ZZAB->parent_arrayed_collection__5KC.storage__UGT)[Self__ZZAB->parent_arrayed_collection__5KC.upper__CLC];
- Self__P0AB=((__FAST_ARRAYoSTRINGo *)free__3OP);
- Self__P0AB->parent_arrayed_collection__5KC.upper__CLC=(__INTEGER)(Self__P0AB->parent_arrayed_collection__5KC.upper__CLC - 1);
- };
- n__CY5B=result__2OP;
- copy__VDS(result__2OP,last_string__D2C);
- arg__DY5B=read_loc_arg__with_self__BBHB(PARSER__,FALSE__,FALSE__);
- if (((void *)arg__DY5B != (void *)NULL)) {
- add_last__E5GC(list_arg__AY5B,arg__DY5B);
- if (read_identifier__2BL()) {
- if (((void *)((__SECTION_ *)last_section__S2C)->name__MYDC == (void *)(&__string_30))) {
- pos__5EYG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_291));
- put_position__FRG(pos__5EYG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- do {
- short__token__to__GDD((&__string_130),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- append__3OS(n__CY5B,(&__string_112));
- append__3OS(n__CY5B,last_string__D2C);
- arg__DY5B=read_loc_arg__with_self__BBHB(PARSER__,FALSE__,FALSE__);
- if (((void *)arg__DY5B == (void *)NULL)) {
- pos__BFYG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_168));
- put_position__FRG(pos__BFYG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- add_last__E5GC(list_arg__AY5B,arg__DY5B);
- } while (read_identifier__2BL());
- };
- };
- result__MRP=get__YWB(result__2OP);
- add_last__URV(free__3OP,result__2OP);
- ((__STRING *)result__2OP)->count__SGC= 0;
- p__P3JH=current_position__B0F();
- sec__Q3JH=last_section__S2C;
- result__F3JH=NULL;
- ptr__G3JH=((__POINTER )(NULL));
- typ_id__H3JH= 0;
- sz__I3JH=((__UINTEGER_32 )sizeof(__ITM_SLOT));
- if ((sz__I3JH == 0)) {
- result__F3JH=ITM_SLOT__;
- } else {
- typ_id__H3JH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__I3JH);
- if ((typ_id__H3JH == (__INTEGER)(- 1))) {
- a__J3JH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__K3JH=(__UINTEGER_32)((__UINTEGER_32)(sz__I3JH + a__J3JH) & (__UINTEGER_32)(~ a__J3JH));
- ptr_table__S3JH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__K3JH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__R3JH=((__POINTER )(NULL));
- result__T3JH=((__POINTER *)ptr_table__S3JH)[ 0];
- if ((result__T3JH == (void *)NULL)) {
- result__T3JH=new_lab__RTJ(new_size__K3JH);
- next__R3JH=(void *)((unsigned long)result__T3JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__K3JH)));
- ((__POINTER *)next__R3JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__S3JH)[ 0]=next__R3JH;
- } else {
- next__R3JH=((__POINTER *)result__T3JH)[ 0];
- if ((next__R3JH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__T3JH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__K3JH << 1)) <= 4096)) {
- next__R3JH=(void *)((unsigned long)result__T3JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__K3JH)));
- } else {
- next__R3JH=new_lab__RTJ(new_size__K3JH);
- };
- ((__POINTER *)next__R3JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__S3JH)[ 0]=next__R3JH;
- } else {
- ((__POINTER *)result__T3JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__R3JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__T3JH=next__R3JH;
- };
- };
- ptr__G3JH=result__T3JH;
- } else {
- t__L3JH=((__UINTEGER_32 )typ_id__H3JH);
- a__M3JH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__03JH=(__UINTEGER_32)((__UINTEGER_32)(sz__I3JH + a__M3JH) & (__UINTEGER_32)(~ a__M3JH));
- ptr_table__X3JH=((__POINTER )(&(table_type[(t__L3JH)])));
- lab_type__Z3JH=(__UINTEGER_32)(t__L3JH | 1);
- next__W3JH=((__POINTER )(NULL));
- result__Y3JH=((__POINTER *)ptr_table__X3JH)[ 0];
- if ((result__Y3JH == (void *)NULL)) {
- result__Y3JH=new_lab__RTJ(lab_type__Z3JH);
- next__W3JH=(void *)((unsigned long)result__Y3JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__03JH)));
- ((__POINTER *)next__W3JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__X3JH)[ 0]=next__W3JH;
- } else {
- next__W3JH=((__POINTER *)result__Y3JH)[ 0];
- if ((next__W3JH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Y3JH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__03JH << 1)) <= 4096)) {
- next__W3JH=(void *)((unsigned long)result__Y3JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__03JH)));
- } else {
- next__W3JH=new_lab__RTJ(lab_type__Z3JH);
- };
- ((__POINTER *)next__W3JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__X3JH)[ 0]=next__W3JH;
- } else {
- ((__POINTER *)result__Y3JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__W3JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__Y3JH=next__W3JH;
- };
- };
- ptr__G3JH=result__Y3JH;
- };
- result__F3JH=((__ITM_SLOT *)ptr__G3JH);
- *(result__F3JH) = *(ITM_SLOT__);
- };
- Self__N3JH=((__ITM_SLOT *)result__F3JH);
- Self__N3JH->parent_named__15.name__LI=result__MRP;
- Self__N3JH->parent_named__15.parent_itm_object__4.position__SFJ=p__P3JH;
- Self__N3JH->id_section__T3C=sec__Q3JH;
- result__EY5B=result__F3JH;
- };
- return(result__EY5B);
-}
-
-static void** create__PRBD(__INTEGER nb_elements__RRBD)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__REHH,a__QEHH,new_size__SEHH,new_size2__TEHH,a__UEHH;
- __UINTEGER_32 new_size__VEHH;
- __POINTER result__PEHH,ptr_table__23JH,next__13JH,result__33JH;
- __INTEGER Self__NKXD;
- void **Result__0FGD;
- sz__REHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__RRBD * ((__INTEGER )(sizeof(void *)))));
- result__PEHH=((__POINTER )(NULL));
- a__QEHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__SEHH=(__UINTEGER_32)((__UINTEGER_32)(sz__REHH + a__QEHH) & (__UINTEGER_32)(~ a__QEHH));
- new_size2__TEHH=(__UINTEGER_32)(new_size__SEHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__TEHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__UEHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__VEHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__TEHH + a__UEHH) & (__UINTEGER_32)(~ a__UEHH));
- ptr_table__23JH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VEHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__13JH=((__POINTER )(NULL));
- result__33JH=((__POINTER *)ptr_table__23JH)[ 0];
- if ((result__33JH == (void *)NULL)) {
- result__33JH=new_lab__RTJ(new_size__VEHH);
- next__13JH=(void *)((unsigned long)result__33JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VEHH)));
- ((__POINTER *)next__13JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__23JH)[ 0]=next__13JH;
- } else {
- next__13JH=((__POINTER *)result__33JH)[ 0];
- if ((next__13JH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__33JH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__VEHH << 1)) <= 4096)) {
- next__13JH=(void *)((unsigned long)result__33JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VEHH)));
- } else {
- next__13JH=new_lab__RTJ(new_size__VEHH);
- };
- ((__POINTER *)next__13JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__23JH)[ 0]=next__13JH;
- } else {
- ((__POINTER *)result__33JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__13JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__33JH=next__13JH;
- };
- };
- ((__POINTER *)result__33JH)[ 0]=((__POINTER ) 3);
- result__PEHH=(void *)((unsigned long)result__33JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__PEHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__SEHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__0FGD=((void **)result__PEHH);
- Self__NKXD=(__INTEGER)(nb_elements__RRBD - 1);
- while ((Self__NKXD >= 0)) {
- Result__0FGD[Self__NKXD]=NULL;
- Self__NKXD=(__INTEGER)(Self__NKXD - 1);
- };
- return(Result__0FGD);
-}
-
-static void set_argument_list__5BHC(__ITM_SLOT *Self__ACHC,void *p__BCHC)
-// ({ITM_SLOT},{NULLxFAST_ARRAYoITM_ARGUMENTo}) VoidNo recursive, No inlinable.
-{
- void *__tmp__JCHC,*__tmp__1CHC,*__tmp__IDHC;
- __INTEGER __tmp__KCHC;
- __POSITION __tmp__2CHC,__tmp__JDHC;
- __SECTION_ *Self__GE2G;
- __BOOLEAN __tmp__OCHC;
- __FAST_ARRAYoITM_ARGUMENTo *Self__52GH,*Self__G1ID;
- if (((__INTEGER)(((__FAST_ARRAYoITM_ARGUMENTo *)p__BCHC)->parent_arrayed_collection__Z5YB.upper__I5GC + 1) > 1)) {
- __tmp__OCHC=TRUE__;
- } else {
- __tmp__JCHC=((void **)((__FAST_ARRAYoITM_ARGUMENTo *)p__BCHC)->parent_arrayed_collection__Z5YB.storage__GAHC)[ 0];
- if (((struct ___OBJ *)__tmp__JCHC)->__id==__ITM_ARG__) {
- __tmp__KCHC= 1;
- } else {
- __tmp__KCHC=(__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)((__ITM_ARGS *)__tmp__JCHC)->name__XDQF)->parent_arrayed_collection__MBJ.upper__2CPD + 1);
- };
- __tmp__OCHC=(__tmp__KCHC > 1);
- };
- if (__tmp__OCHC) {
- if (((void *)((__SECTION_ *)Self__ACHC->id_section__T3C)->name__MYDC == (void *)(&__string_25))) {
- Self__52GH=((__FAST_ARRAYoITM_ARGUMENTo *)p__BCHC);
- __tmp__1CHC=((void **)Self__52GH->parent_arrayed_collection__Z5YB.storage__GAHC)[Self__52GH->parent_arrayed_collection__Z5YB.upper__I5GC];
- if (((struct ___OBJ *)__tmp__1CHC)->__id==__ITM_ARG__) {
- __tmp__2CHC=((__ITM_ARG *)__tmp__1CHC)->parent_itm_argument__SEHB.parent_itm_code__O5M.position__SFJ;
- } else {
- __tmp__2CHC=((__ITM_ARGS *)__tmp__1CHC)->parent_itm_argument__CEFE.parent_itm_code__O5M.position__SFJ;
- };
- put_error__text__1PG( 1,(&__string_233));
- put_position__FRG(__tmp__2CHC);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- Self__GE2G=((__SECTION_ *)Self__ACHC->id_section__T3C);
- if ((((void *)Self__GE2G->name__MYDC == (void *)(&__string_23)) || ((void *)Self__GE2G->name__MYDC == (void *)(&__string_24)))) {
- Self__G1ID=((__FAST_ARRAYoITM_ARGUMENTo *)p__BCHC);
- __tmp__IDHC=((void **)Self__G1ID->parent_arrayed_collection__Z5YB.storage__GAHC)[Self__G1ID->parent_arrayed_collection__Z5YB.upper__I5GC];
- if (((struct ___OBJ *)__tmp__IDHC)->__id==__ITM_ARG__) {
- __tmp__JDHC=((__ITM_ARG *)__tmp__IDHC)->parent_itm_argument__SEHB.parent_itm_code__O5M.position__SFJ;
- } else {
- __tmp__JDHC=((__ITM_ARGS *)__tmp__IDHC)->parent_itm_argument__CEFE.parent_itm_code__O5M.position__SFJ;
- };
- put_error__text__1PG( 1,(&__string_234));
- put_position__FRG(__tmp__JDHC);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- Self__ACHC->argument_list__QDHC=p__BCHC;
-}
-
-static __ITM_TYPE_MULTI* get__4JP(void *lt__AKP)
-// ({NULLxFAST_ARRAYoITM_TYPE_MONOo}) With resultNo recursive, No inlinable.
-{
- __ITM_TYPE_MULTI *result__CKP,*__tmp__ULP,*result__QZHB;
- __INTEGER idx__DKP,__tmp__E3GH,typ_id__WZHB,new_capacity__MWAB;
- __INTEGER __tmp__QXAB,__tmp__0MFC,Self__22VD;
- void *__tmp__TLP;
- __POINTER ptr__RZHB,ptr_table__B4JH,next__A4JH,result__C4JH;
- __POINTER ptr_table__G4JH,next__F4JH,result__H4JH;
- __UINTEGER_32 sz__TZHB,a__JVFH,new_size__KVFH,t__OVFH,a__NVFH;
- __UINTEGER_32 new_size__J4JH,lab_type__I4JH;
- void **__tmp__XEHH,**__tmp__PXAB,**new__GMFC;
- __FAST_ARRAYoITM_TYPE_MULTIo *Self__KWAB;
- __BOOLEAN __tmp__0WAB;
- result__CKP=NULL;
- idx__DKP= 0;
- __tmp__E3GH=((__FAST_ARRAYoITM_TYPE_MULTIo *)dico__JKP)->parent_arrayed_collection__IKP.upper__SKP;
- __tmp__XEHH=((__FAST_ARRAYoITM_TYPE_MULTIo *)dico__JKP)->parent_arrayed_collection__IKP.storage__21V;
- while (((idx__DKP <= __tmp__E3GH) && ((void *)((__ITM_TYPE_MULTI *)((void **)__tmp__XEHH)[idx__DKP])->list_type__2KP != (void *)lt__AKP))) {
- idx__DKP=(__INTEGER)(idx__DKP + 1);
- };
- if ((idx__DKP <= ((__FAST_ARRAYoITM_TYPE_MULTIo *)dico__JKP)->parent_arrayed_collection__IKP.upper__SKP)) {
- __tmp__TLP=((void **)((__FAST_ARRAYoITM_TYPE_MULTIo *)dico__JKP)->parent_arrayed_collection__IKP.storage__21V)[idx__DKP];
- if (__tmp__TLP==NULL) {
- __tmp__ULP=NULL;
- } else {
- __tmp__ULP=((__ITM_TYPE_MULTI *)__tmp__TLP);
- };
- result__CKP=__tmp__ULP;
- } else {
- result__QZHB=NULL;
- ptr__RZHB=((__POINTER )(NULL));
- typ_id__WZHB= 0;
- sz__TZHB=((__UINTEGER_32 )sizeof(__ITM_TYPE_MULTI));
- if ((sz__TZHB == 0)) {
- result__QZHB=ITM_TYPE_MULTI__;
- } else {
- typ_id__WZHB=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__TZHB);
- if ((typ_id__WZHB == (__INTEGER)(- 1))) {
- a__JVFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__KVFH=(__UINTEGER_32)((__UINTEGER_32)(sz__TZHB + a__JVFH) & (__UINTEGER_32)(~ a__JVFH));
- ptr_table__B4JH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KVFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__A4JH=((__POINTER )(NULL));
- result__C4JH=((__POINTER *)ptr_table__B4JH)[ 0];
- if ((result__C4JH == (void *)NULL)) {
- result__C4JH=new_lab__RTJ(new_size__KVFH);
- next__A4JH=(void *)((unsigned long)result__C4JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KVFH)));
- ((__POINTER *)next__A4JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__B4JH)[ 0]=next__A4JH;
- } else {
- next__A4JH=((__POINTER *)result__C4JH)[ 0];
- if ((next__A4JH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__C4JH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__KVFH << 1)) <= 4096)) {
- next__A4JH=(void *)((unsigned long)result__C4JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KVFH)));
- } else {
- next__A4JH=new_lab__RTJ(new_size__KVFH);
- };
- ((__POINTER *)next__A4JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__B4JH)[ 0]=next__A4JH;
- } else {
- ((__POINTER *)result__C4JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__A4JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__C4JH=next__A4JH;
- };
- };
- ptr__RZHB=result__C4JH;
- } else {
- t__OVFH=((__UINTEGER_32 )typ_id__WZHB);
- a__NVFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__J4JH=(__UINTEGER_32)((__UINTEGER_32)(sz__TZHB + a__NVFH) & (__UINTEGER_32)(~ a__NVFH));
- ptr_table__G4JH=((__POINTER )(&(table_type[(t__OVFH)])));
- lab_type__I4JH=(__UINTEGER_32)(t__OVFH | 1);
- next__F4JH=((__POINTER )(NULL));
- result__H4JH=((__POINTER *)ptr_table__G4JH)[ 0];
- if ((result__H4JH == (void *)NULL)) {
- result__H4JH=new_lab__RTJ(lab_type__I4JH);
- next__F4JH=(void *)((unsigned long)result__H4JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J4JH)));
- ((__POINTER *)next__F4JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__G4JH)[ 0]=next__F4JH;
- } else {
- next__F4JH=((__POINTER *)result__H4JH)[ 0];
- if ((next__F4JH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__H4JH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__J4JH << 1)) <= 4096)) {
- next__F4JH=(void *)((unsigned long)result__H4JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J4JH)));
- } else {
- next__F4JH=new_lab__RTJ(lab_type__I4JH);
- };
- ((__POINTER *)next__F4JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__G4JH)[ 0]=next__F4JH;
- } else {
- ((__POINTER *)result__H4JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__F4JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__H4JH=next__F4JH;
- };
- };
- ptr__RZHB=result__H4JH;
- };
- result__QZHB=((__ITM_TYPE_MULTI *)ptr__RZHB);
- *(result__QZHB) = *(ITM_TYPE_MULTI__);
- };
- ((__ITM_TYPE_MULTI *)result__QZHB)->list_type__2KP=lt__AKP;
- result__CKP=result__QZHB;
- Self__KWAB=((__FAST_ARRAYoITM_TYPE_MULTIo *)dico__JKP);
- new_capacity__MWAB= 0;
- if (((__INTEGER)(Self__KWAB->parent_arrayed_collection__IKP.upper__SKP + 1) <= (__INTEGER)(Self__KWAB->parent_arrayed_collection__IKP.capacity__R1V - 1))) {
- Self__KWAB->parent_arrayed_collection__IKP.upper__SKP=(__INTEGER)(Self__KWAB->parent_arrayed_collection__IKP.upper__SKP + 1);
- __tmp__0WAB=TRUE__;
- } else {
- __tmp__0WAB=FALSE__;
- };
- if ((! __tmp__0WAB)) {
- if ((Self__KWAB->parent_arrayed_collection__IKP.capacity__R1V == 0)) {
- Self__KWAB->parent_arrayed_collection__IKP.storage__21V=create__PJXB( 2);
- Self__KWAB->parent_arrayed_collection__IKP.capacity__R1V= 2;
- Self__KWAB->parent_arrayed_collection__IKP.upper__SKP= 0;
- } else {
- new_capacity__MWAB=(__INTEGER)(Self__KWAB->parent_arrayed_collection__IKP.capacity__R1V << 1);
- __tmp__PXAB=Self__KWAB->parent_arrayed_collection__IKP.storage__21V;
- __tmp__QXAB=Self__KWAB->parent_arrayed_collection__IKP.capacity__R1V;
- new__GMFC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__PXAB)),((__UINTEGER_32 )(__INTEGER)(__tmp__QXAB * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__MWAB * ((__INTEGER )(sizeof(void *)))))));
- __tmp__0MFC=(__INTEGER)(new_capacity__MWAB - 1);
- Self__22VD=__tmp__QXAB;
- while ((Self__22VD <= __tmp__0MFC)) {
- new__GMFC[Self__22VD]=NULL;
- Self__22VD=(__INTEGER)(Self__22VD + 1);
- };
- Self__KWAB->parent_arrayed_collection__IKP.storage__21V=new__GMFC;
- Self__KWAB->parent_arrayed_collection__IKP.capacity__R1V=new_capacity__MWAB;
- Self__KWAB->parent_arrayed_collection__IKP.upper__SKP=(__INTEGER)(Self__KWAB->parent_arrayed_collection__IKP.upper__SKP + 1);
- };
- };
- ((void **)Self__KWAB->parent_arrayed_collection__IKP.storage__21V)[Self__KWAB->parent_arrayed_collection__IKP.upper__SKP]=result__QZHB;
- };
- return(result__CKP);
-}
-
-static void* read_type__CDM(__PARSER *Self__DDM,__BOOLEAN is_local__EDM)
-// ({PARSER},{TRUExFALSE}) With resultRecursive, No inlinable.
-{
- void *style__GDM;
- void *result__HDM;
- void *typ_arg__JDM,*typ_res__KDM,*typ_arg__RMN,*typ_res__SMN;
- __POSITION pos__QIYG,pos__SIYG,pos__UIYG,__tmp__NGM,pos__YIYG;
- __POSITION pos__XKYG,pos__ZKYG;
- __ITM_TYPE_STYLE *Self__S5HH;
- __STRING *Self__U5HH;
- __INTEGER new_capacity__T5HH,old_nb_elts__W5HH,upper__24JH,Self__04JH;
- __INTEGER idx__VMN,__tmp__P3GH,typ_id__EYGB,new_capacity__QJAB;
- __INTEGER __tmp__UKAB,__tmp__MKFC,Self__30VD;
- void *result__UMN;
- __ITM_TYPE_BLOCK *result__4XGB,*Self__LYCC;
- __POINTER ptr__5XGB,ptr_table__C5JH,next__B5JH,result__D5JH;
- __POINTER ptr_table__H5JH,next__G5JH,result__I5JH;
- __UINTEGER_32 sz__BYGB,a__AWFH,new_size__BWFH,t__FWFH,a__EWFH;
- __UINTEGER_32 new_size__K5JH,lab_type__J5JH;
- void *lst__IDM;
- __BOOLEAN result__K4JH,result__N4JH,result__Q4JH,result__T4JH;
- __BOOLEAN result__W4JH,result__44JH,__tmp__4JAB,result__M5JH;
- __BOOLEAN __tmp__MIM,result__O5JH;
- __CHARACTER result__L4JH,result__O4JH,result__R4JH,result__U4JH;
- __CHARACTER result__X4JH,result__54JH;
- __CHARACTER *Self__V5HH,*new__X5HH;
- void **__tmp__YEHH,**__tmp__ZEHH,**__tmp__TKAB,**new__YJFC;
- __FAST_ARRAYoITM_TYPE_BLOCKo *Self__OJAB;
- style__GDM=NULL;
- result__HDM=NULL;
- lst__IDM=NULL;
- typ_arg__JDM=NULL;
- typ_res__KDM=NULL;
- result__K4JH=FALSE__;
- if ((! read_space__XTD())) {
- result__K4JH=FALSE__;
- } else {
- result__L4JH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__L4JH=((__CHARACTER )(( 0)));
- } else {
- result__L4JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__L4JH == '{')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__K4JH=TRUE__;
- };
- };
- if (result__K4JH) {
- result__N4JH=FALSE__;
- if ((! read_space__XTD())) {
- result__N4JH=FALSE__;
- } else {
- result__O4JH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__O4JH=((__CHARACTER )(( 0)));
- } else {
- result__O4JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__O4JH == '(')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__N4JH=TRUE__;
- };
- };
- if (result__N4JH) {
- lst__IDM=read_type_list__ENO(Self__DDM,FALSE__);
- if (((void *)lst__IDM == (void *)NULL)) {
- pos__QIYG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_265));
- put_position__FRG(pos__QIYG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- if (((__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)lst__IDM)->parent_arrayed_collection__SYC.upper__4HV + 1) == 1)) {
- typ_arg__JDM=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)lst__IDM)->parent_arrayed_collection__SYC.storage__FMV)[ 0];
- } else {
- typ_arg__JDM=get__4JP(lst__IDM);
- };
- result__Q4JH=FALSE__;
- if ((! read_space__XTD())) {
- result__Q4JH=FALSE__;
- } else {
- result__R4JH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__R4JH=((__CHARACTER )(( 0)));
- } else {
- result__R4JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__R4JH == ')')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__Q4JH=TRUE__;
- };
- };
- if ((! result__Q4JH)) {
- pos__SIYG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_262));
- put_position__FRG(pos__SIYG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- result__T4JH=FALSE__;
- if ((! read_space__XTD())) {
- result__T4JH=FALSE__;
- } else {
- result__U4JH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__U4JH=((__CHARACTER )(( 0)));
- } else {
- result__U4JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__U4JH == ';')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__T4JH=TRUE__;
- };
- };
- if ((! result__T4JH)) {
- pos__UIYG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_241));
- put_position__FRG(pos__UIYG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- lst__IDM=read_type_list__ENO(Self__DDM,FALSE__);
- } else {
- lst__IDM=read_type_list__ENO(Self__DDM,FALSE__);
- if (((void *)lst__IDM != (void *)NULL)) {
- result__W4JH=FALSE__;
- if ((! read_space__XTD())) {
- result__W4JH=FALSE__;
- } else {
- result__X4JH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__X4JH=((__CHARACTER )(( 0)));
- } else {
- result__X4JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__X4JH == ';')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__W4JH=TRUE__;
- };
- };
- if (result__W4JH) {
- if (((__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)lst__IDM)->parent_arrayed_collection__SYC.upper__4HV + 1) == 1)) {
- typ_arg__JDM=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)lst__IDM)->parent_arrayed_collection__SYC.storage__FMV)[ 0];
- } else {
- typ_arg__JDM=get__4JP(lst__IDM);
- copy__VDS(string_tmp__VH,(&__string_292));
- switch (((struct ___OBJ *)typ_arg__JDM)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- append__3OS(string_tmp__VH,((__ITM_TYPE_PARAMETER *)typ_arg__JDM)->parent_itm_type__VFE.name__GZP);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- append__3OS(string_tmp__VH,((__ITM_TYPE_SIMPLE *)typ_arg__JDM)->name__GZP);
- } break;
- case __ITM_TYPE_MULTI__: {
- append_in__MHBC(typ_arg__JDM,string_tmp__VH);
- } break;
- case __ITM_TYPE_BLOCK__: {
- append_in__PJPD(typ_arg__JDM,string_tmp__VH);
- } break;
- case __ITM_TYPE_GENERIC__: {
- append_in__TKPD(typ_arg__JDM,string_tmp__VH);
- } break;
- case __ITM_TYPE_STYLE__: {
- Self__S5HH=((__ITM_TYPE_STYLE *)typ_arg__JDM);
- if (((void *)Self__S5HH->style__PZP != (void *)NULL)) {
- append__3OS(string_tmp__VH,Self__S5HH->style__PZP);
- Self__U5HH=((__STRING *)string_tmp__VH);
- new_capacity__T5HH= 0;
- if ((Self__U5HH->capacity__UCS <= Self__U5HH->count__SGC)) {
- if ((Self__U5HH->capacity__UCS == 0)) {
- Self__U5HH->capacity__UCS= 32;
- Self__U5HH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__T5HH=(__INTEGER)(Self__U5HH->capacity__UCS << 1);
- Self__V5HH=((__CHARACTER *)Self__U5HH->storage__3CS);
- old_nb_elts__W5HH=Self__U5HH->capacity__UCS;
- new__X5HH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__V5HH),((__UINTEGER_32 )old_nb_elts__W5HH),((__UINTEGER_32 )new_capacity__T5HH)));
- upper__24JH=(__INTEGER)(new_capacity__T5HH - 1);
- Self__04JH=old_nb_elts__W5HH;
- while ((Self__04JH <= upper__24JH)) {
- new__X5HH[Self__04JH]='\0';
- Self__04JH=(__INTEGER)(Self__04JH + 1);
- };
- Self__U5HH->storage__3CS=new__X5HH;
- Self__U5HH->capacity__UCS=new_capacity__T5HH;
- };
- };
- ((__CHARACTER *)Self__U5HH->storage__3CS)[Self__U5HH->count__SGC]=' ';
- Self__U5HH->count__SGC=(__INTEGER)(Self__U5HH->count__SGC + 1);
- };
- append__3OS(string_tmp__VH,Self__S5HH->parent_itm_type_simple__3SN.name__GZP);
- } break;
- };
- append__3OS(string_tmp__VH,(&__string_293));
- __tmp__NGM=current_position__B0F();
- put_error__text__1PG( 2,string_tmp__VH);
- put_position__FRG(__tmp__NGM);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- lst__IDM=read_type_list__ENO(Self__DDM,FALSE__);
- };
- };
- };
- if (((void *)lst__IDM != (void *)NULL)) {
- if (((__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)lst__IDM)->parent_arrayed_collection__SYC.upper__4HV + 1) == 1)) {
- typ_res__KDM=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)lst__IDM)->parent_arrayed_collection__SYC.storage__FMV)[ 0];
- } else {
- typ_res__KDM=get__4JP(lst__IDM);
- };
- };
- result__44JH=FALSE__;
- if ((! read_space__XTD())) {
- result__44JH=FALSE__;
- } else {
- result__54JH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__54JH=((__CHARACTER )(( 0)));
- } else {
- result__54JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__54JH == '}')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__44JH=TRUE__;
- };
- };
- if ((! result__44JH)) {
- pos__YIYG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_294));
- put_position__FRG(pos__YIYG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- typ_arg__RMN=typ_arg__JDM;
- typ_res__SMN=typ_res__KDM;
- result__UMN=NULL;
- idx__VMN= 0;
- __tmp__P3GH=((__FAST_ARRAYoITM_TYPE_BLOCKo *)dico__1MN)->parent_arrayed_collection__0MN.upper__ENN;
- __tmp__YEHH=((__FAST_ARRAYoITM_TYPE_BLOCKo *)dico__1MN)->parent_arrayed_collection__0MN.storage__FKV;
- __tmp__ZEHH=((__FAST_ARRAYoITM_TYPE_BLOCKo *)dico__1MN)->parent_arrayed_collection__0MN.storage__FKV;
- while (((idx__VMN <= __tmp__P3GH) && (((void *)((__ITM_TYPE_BLOCK *)((void **)__tmp__YEHH)[idx__VMN])->type_argument__SNN != (void *)typ_arg__RMN) || ((void *)((__ITM_TYPE_BLOCK *)((void **)__tmp__ZEHH)[idx__VMN])->type_result__2NN != (void *)typ_res__SMN)))) {
- idx__VMN=(__INTEGER)(idx__VMN + 1);
- };
- if ((idx__VMN <= ((__FAST_ARRAYoITM_TYPE_BLOCKo *)dico__1MN)->parent_arrayed_collection__0MN.upper__ENN)) {
- result__UMN=((void **)((__FAST_ARRAYoITM_TYPE_BLOCKo *)dico__1MN)->parent_arrayed_collection__0MN.storage__FKV)[idx__VMN];
- } else {
- result__4XGB=NULL;
- ptr__5XGB=((__POINTER )(NULL));
- typ_id__EYGB= 0;
- sz__BYGB=((__UINTEGER_32 )sizeof(__ITM_TYPE_BLOCK));
- if ((sz__BYGB == 0)) {
- result__4XGB=ITM_TYPE_BLOCK__;
- } else {
- typ_id__EYGB=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__BYGB);
- if ((typ_id__EYGB == (__INTEGER)(- 1))) {
- a__AWFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__BWFH=(__UINTEGER_32)((__UINTEGER_32)(sz__BYGB + a__AWFH) & (__UINTEGER_32)(~ a__AWFH));
- ptr_table__C5JH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__BWFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__B5JH=((__POINTER )(NULL));
- result__D5JH=((__POINTER *)ptr_table__C5JH)[ 0];
- if ((result__D5JH == (void *)NULL)) {
- result__D5JH=new_lab__RTJ(new_size__BWFH);
- next__B5JH=(void *)((unsigned long)result__D5JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BWFH)));
- ((__POINTER *)next__B5JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__C5JH)[ 0]=next__B5JH;
- } else {
- next__B5JH=((__POINTER *)result__D5JH)[ 0];
- if ((next__B5JH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__D5JH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__BWFH << 1)) <= 4096)) {
- next__B5JH=(void *)((unsigned long)result__D5JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BWFH)));
- } else {
- next__B5JH=new_lab__RTJ(new_size__BWFH);
- };
- ((__POINTER *)next__B5JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__C5JH)[ 0]=next__B5JH;
- } else {
- ((__POINTER *)result__D5JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__B5JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__D5JH=next__B5JH;
- };
- };
- ptr__5XGB=result__D5JH;
- } else {
- t__FWFH=((__UINTEGER_32 )typ_id__EYGB);
- a__EWFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__K5JH=(__UINTEGER_32)((__UINTEGER_32)(sz__BYGB + a__EWFH) & (__UINTEGER_32)(~ a__EWFH));
- ptr_table__H5JH=((__POINTER )(&(table_type[(t__FWFH)])));
- lab_type__J5JH=(__UINTEGER_32)(t__FWFH | 1);
- next__G5JH=((__POINTER )(NULL));
- result__I5JH=((__POINTER *)ptr_table__H5JH)[ 0];
- if ((result__I5JH == (void *)NULL)) {
- result__I5JH=new_lab__RTJ(lab_type__J5JH);
- next__G5JH=(void *)((unsigned long)result__I5JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__K5JH)));
- ((__POINTER *)next__G5JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__H5JH)[ 0]=next__G5JH;
- } else {
- next__G5JH=((__POINTER *)result__I5JH)[ 0];
- if ((next__G5JH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__I5JH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__K5JH << 1)) <= 4096)) {
- next__G5JH=(void *)((unsigned long)result__I5JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__K5JH)));
- } else {
- next__G5JH=new_lab__RTJ(lab_type__J5JH);
- };
- ((__POINTER *)next__G5JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__H5JH)[ 0]=next__G5JH;
- } else {
- ((__POINTER *)result__I5JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__G5JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__I5JH=next__G5JH;
- };
- };
- ptr__5XGB=result__I5JH;
- };
- result__4XGB=((__ITM_TYPE_BLOCK *)ptr__5XGB);
- *(result__4XGB) = *(ITM_TYPE_BLOCK__);
- };
- Self__LYCC=((__ITM_TYPE_BLOCK *)result__4XGB);
- Self__LYCC->type_argument__SNN=typ_arg__JDM;
- Self__LYCC->type_result__2NN=typ_res__KDM;
- result__UMN=result__4XGB;
- Self__OJAB=((__FAST_ARRAYoITM_TYPE_BLOCKo *)dico__1MN);
- new_capacity__QJAB= 0;
- if (((__INTEGER)(Self__OJAB->parent_arrayed_collection__0MN.upper__ENN + 1) <= (__INTEGER)(Self__OJAB->parent_arrayed_collection__0MN.capacity__0JV - 1))) {
- Self__OJAB->parent_arrayed_collection__0MN.upper__ENN=(__INTEGER)(Self__OJAB->parent_arrayed_collection__0MN.upper__ENN + 1);
- __tmp__4JAB=TRUE__;
- } else {
- __tmp__4JAB=FALSE__;
- };
- if ((! __tmp__4JAB)) {
- if ((Self__OJAB->parent_arrayed_collection__0MN.capacity__0JV == 0)) {
- Self__OJAB->parent_arrayed_collection__0MN.storage__FKV=create__KSWB( 2);
- Self__OJAB->parent_arrayed_collection__0MN.capacity__0JV= 2;
- Self__OJAB->parent_arrayed_collection__0MN.upper__ENN= 0;
- } else {
- new_capacity__QJAB=(__INTEGER)(Self__OJAB->parent_arrayed_collection__0MN.capacity__0JV << 1);
- __tmp__TKAB=Self__OJAB->parent_arrayed_collection__0MN.storage__FKV;
- __tmp__UKAB=Self__OJAB->parent_arrayed_collection__0MN.capacity__0JV;
- new__YJFC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__TKAB)),((__UINTEGER_32 )(__INTEGER)(__tmp__UKAB * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__QJAB * ((__INTEGER )(sizeof(void *)))))));
- __tmp__MKFC=(__INTEGER)(new_capacity__QJAB - 1);
- Self__30VD=__tmp__UKAB;
- while ((Self__30VD <= __tmp__MKFC)) {
- new__YJFC[Self__30VD]=NULL;
- Self__30VD=(__INTEGER)(Self__30VD + 1);
- };
- Self__OJAB->parent_arrayed_collection__0MN.storage__FKV=new__YJFC;
- Self__OJAB->parent_arrayed_collection__0MN.capacity__0JV=new_capacity__QJAB;
- Self__OJAB->parent_arrayed_collection__0MN.upper__ENN=(__INTEGER)(Self__OJAB->parent_arrayed_collection__0MN.upper__ENN + 1);
- };
- };
- ((void **)Self__OJAB->parent_arrayed_collection__0MN.storage__FKV)[Self__OJAB->parent_arrayed_collection__0MN.upper__ENN]=result__4XGB;
- };
- result__HDM=result__UMN;
- } else {
- result__M5JH=read_word__ISF((&__string_9));
- if (is_shorter__LZ) {
- if (result__M5JH) {
- if (((void *)(&__string_9) == (void *)(&__string_4))) {
- short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- } else {
- short__token__to__GDD((&__string_119),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- };
- };
- };
- if (result__M5JH) {
- __tmp__MIM=TRUE__;
- } else {
- result__O5JH=read_word__ISF((&__string_10));
- if (is_shorter__LZ) {
- if (result__O5JH) {
- if (((void *)(&__string_10) == (void *)(&__string_4))) {
- short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- } else {
- short__token__to__GDD((&__string_119),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- };
- };
- };
- __tmp__MIM=result__O5JH;
- };
- if (__tmp__MIM) {
- style__GDM=last_string__D2C;
- if ((is_local__EDM && ((void *)last_string__D2C == (void *)(&__string_9)))) {
- pos__XKYG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_295));
- put_position__FRG(pos__XKYG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- result__HDM=read_prototype__DPN(Self__DDM,style__GDM);
- if (((void *)read_contract__5VF(Self__DDM) != (void *)NULL)) {
- pos__ZKYG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_260));
- put_position__FRG(pos__ZKYG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- return(result__HDM);
-}
-
-static void set_result_type__W2FC(__ITM_SLOT *Self__X2FC,void *t__Y2FC)
-// ({ITM_SLOT},{NULLxITM_TYPE_PARAMETERxITM_TYPE_SIMPLExITM_TYPE_MULTIxITM_TYPE_BLOCKxITM_TYPE_GENERICxITM_TYPE_STYLE}) VoidNo recursive, No inlinable.
-{
- void *tm__Z2FC,*__tmp__C3FC;
- __SECTION_ *Self__ME2G;
- __POSITION pos__U3ID;
- tm__Z2FC=NULL;
- Self__ME2G=((__SECTION_ *)Self__X2FC->id_section__T3C);
- if ((((void *)Self__ME2G->name__MYDC == (void *)(&__string_23)) || ((void *)Self__ME2G->name__MYDC == (void *)(&__string_24)))) {
- if (t__Y2FC==NULL) {
- __tmp__C3FC=NULL;
- } else {
- switch (((struct ___OBJ *)t__Y2FC)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- __tmp__C3FC=((void *)t__Y2FC);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- __tmp__C3FC=((void *)t__Y2FC);
- } break;
- case __ITM_TYPE_MULTI__: {
- __tmp__C3FC=NULL;
- } break;
- case __ITM_TYPE_BLOCK__: {
- __tmp__C3FC=((void *)t__Y2FC);
- } break;
- case __ITM_TYPE_GENERIC__: {
- __tmp__C3FC=((void *)t__Y2FC);
- } break;
- case __ITM_TYPE_STYLE__: {
- __tmp__C3FC=((void *)t__Y2FC);
- } break;
- }
- };
- tm__Z2FC=__tmp__C3FC;
- if (((((void *)__tmp__C3FC == (void *)NULL) || ((void *)__tmp__C3FC == (void *)type_self__DVN)) || ((void *)__tmp__C3FC == (void *)type_void__WYF))) {
- pos__U3ID=Self__X2FC->parent_named__15.parent_itm_object__4.position__SFJ;
- put_error__text__1PG( 1,(&__string_238));
- put_position__FRG(pos__U3ID);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- Self__X2FC->result_type__A4FC=t__Y2FC;
-}
-
-static void* read_contract__5VF(__PARSER *Self__AWF)
-// ({PARSER}) With resultNo recursive, No inlinable.
-{
- void *e__DWF;
- void *result__EWF;
- __POSITION p__05JH,p__YYL,pos__BLYG,pos__DLYG,p__3AKH;
- __ITM_LIST *result__S5JH;
- __POINTER ptr__T5JH,ptr_table__25JH,next__15JH,result__35JH;
- __POINTER ptr_table__BAKH,next__AAKH,result__CAKH,ptr__04L;
- __POINTER ptr_table__GAKH,next__FAKH,result__HAKH,ptr_table__LAKH;
- __POINTER next__KAKH,result__MAKH,ptr__WAKH,ptr_table__5AKH;
- __POINTER next__4AKH,result__ABKH,ptr_table__EBKH,next__DBKH;
- __POINTER result__FBKH;
- __INTEGER typ_id__U5JH,typ_id__54L,typ_id__XAKH;
- __UINTEGER_32 sz__V5JH,a__W5JH,new_size__X5JH,t__Y5JH,a__Z5JH;
- __UINTEGER_32 new_size__EAKH,lab_type__DAKH,sz__24L,a__OWFH;
- __UINTEGER_32 new_size__PWFH,t__TWFH,a__SWFH,new_size__OAKH;
- __UINTEGER_32 lab_type__NAKH,sz__YAKH,a__ZAKH,new_size__0AKH,t__1AKH;
- __UINTEGER_32 a__2AKH,new_size__HBKH,lab_type__GBKH;
- __ITM_LDOTS *result__Z4L;
- __ITM_PROTOTYPE *result__VAKH;
- __BOOLEAN continue__CWF,result__P5JH,result__PAKH,result__SAKH;
- void *lst__KWF,*result__0EHH;
- __CHARACTER result__Q5JH,result__QAKH,result__TAKH;
- __FAST_ARRAYoFAST_ARRAYoITM_CODEoo *Self__1EHH,*Self__2EHH;
- continue__CWF=FALSE__;
- e__DWF=NULL;
- result__EWF=NULL;
- lst__KWF=NULL;
- result__P5JH=FALSE__;
- if ((! read_space__XTD())) {
- result__P5JH=FALSE__;
- } else {
- result__Q5JH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__Q5JH=((__CHARACTER )(( 0)));
- } else {
- result__Q5JH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__Q5JH == '[')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__P5JH=TRUE__;
- };
- };
- if (result__P5JH) {
- p__05JH=current_position__B0F();
- result__S5JH=NULL;
- ptr__T5JH=((__POINTER )(NULL));
- typ_id__U5JH= 0;
- sz__V5JH=((__UINTEGER_32 )sizeof(__ITM_LIST));
- if ((sz__V5JH == 0)) {
- result__S5JH=ITM_LIST__;
- } else {
- typ_id__U5JH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__V5JH);
- if ((typ_id__U5JH == (__INTEGER)(- 1))) {
- a__W5JH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__X5JH=(__UINTEGER_32)((__UINTEGER_32)(sz__V5JH + a__W5JH) & (__UINTEGER_32)(~ a__W5JH));
- ptr_table__25JH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__X5JH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__15JH=((__POINTER )(NULL));
- result__35JH=((__POINTER *)ptr_table__25JH)[ 0];
- if ((result__35JH == (void *)NULL)) {
- result__35JH=new_lab__RTJ(new_size__X5JH);
- next__15JH=(void *)((unsigned long)result__35JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X5JH)));
- ((__POINTER *)next__15JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__25JH)[ 0]=next__15JH;
- } else {
- next__15JH=((__POINTER *)result__35JH)[ 0];
- if ((next__15JH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__35JH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__X5JH << 1)) <= 4096)) {
- next__15JH=(void *)((unsigned long)result__35JH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X5JH)));
- } else {
- next__15JH=new_lab__RTJ(new_size__X5JH);
- };
- ((__POINTER *)next__15JH)[ 0]=NULL;
- ((__POINTER *)ptr_table__25JH)[ 0]=next__15JH;
- } else {
- ((__POINTER *)result__35JH)[ 0]=(void *)((unsigned long)((__POINTER *)next__15JH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__35JH=next__15JH;
- };
- };
- ptr__T5JH=result__35JH;
- } else {
- t__Y5JH=((__UINTEGER_32 )typ_id__U5JH);
- a__Z5JH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__EAKH=(__UINTEGER_32)((__UINTEGER_32)(sz__V5JH + a__Z5JH) & (__UINTEGER_32)(~ a__Z5JH));
- ptr_table__BAKH=((__POINTER )(&(table_type[(t__Y5JH)])));
- lab_type__DAKH=(__UINTEGER_32)(t__Y5JH | 1);
- next__AAKH=((__POINTER )(NULL));
- result__CAKH=((__POINTER *)ptr_table__BAKH)[ 0];
- if ((result__CAKH == (void *)NULL)) {
- result__CAKH=new_lab__RTJ(lab_type__DAKH);
- next__AAKH=(void *)((unsigned long)result__CAKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EAKH)));
- ((__POINTER *)next__AAKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__BAKH)[ 0]=next__AAKH;
- } else {
- next__AAKH=((__POINTER *)result__CAKH)[ 0];
- if ((next__AAKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CAKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__EAKH << 1)) <= 4096)) {
- next__AAKH=(void *)((unsigned long)result__CAKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EAKH)));
- } else {
- next__AAKH=new_lab__RTJ(lab_type__DAKH);
- };
- ((__POINTER *)next__AAKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__BAKH)[ 0]=next__AAKH;
- } else {
- ((__POINTER *)result__CAKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__AAKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__CAKH=next__AAKH;
- };
- };
- ptr__T5JH=result__CAKH;
- };
- result__S5JH=((__ITM_LIST *)ptr__T5JH);
- *(result__S5JH) = *(ITM_LIST__);
- };
- ((__ITM_LIST *)result__S5JH)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ=p__05JH;
- last_group__TWF=result__S5JH;
- result__EWF=result__S5JH;
- read_def_local__M3H(Self__AWF);
- result__0EHH=NULL;
- if ((((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__QAI)->parent_arrayed_collection__PAI.upper__BYT < 0)) {
- result__0EHH=create_with_capacity__XXI( 16);
- } else {
- Self__1EHH=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__QAI);
- result__0EHH=((void **)Self__1EHH->parent_arrayed_collection__PAI.storage__PCU)[Self__1EHH->parent_arrayed_collection__PAI.upper__BYT];
- Self__2EHH=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__QAI);
- Self__2EHH->parent_arrayed_collection__PAI.upper__BYT=(__INTEGER)(Self__2EHH->parent_arrayed_collection__PAI.upper__BYT - 1);
- };
- lst__KWF=result__0EHH;
- do {
- e__DWF=read_expr__DBJ(Self__AWF);
- if (((void *)e__DWF == (void *)NULL)) {
- continue__CWF=read_word__ISF((&__string_7));
- if (continue__CWF) {
- p__YYL=current_position__B0F();
- result__Z4L=NULL;
- ptr__04L=((__POINTER )(NULL));
- typ_id__54L= 0;
- sz__24L=((__UINTEGER_32 )sizeof(__ITM_LDOTS));
- if ((sz__24L == 0)) {
- result__Z4L=ITM_LDOTS__;
- } else {
- typ_id__54L=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__24L);
- if ((typ_id__54L == (__INTEGER)(- 1))) {
- a__OWFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__PWFH=(__UINTEGER_32)((__UINTEGER_32)(sz__24L + a__OWFH) & (__UINTEGER_32)(~ a__OWFH));
- ptr_table__GAKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PWFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__FAKH=((__POINTER )(NULL));
- result__HAKH=((__POINTER *)ptr_table__GAKH)[ 0];
- if ((result__HAKH == (void *)NULL)) {
- result__HAKH=new_lab__RTJ(new_size__PWFH);
- next__FAKH=(void *)((unsigned long)result__HAKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PWFH)));
- ((__POINTER *)next__FAKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__GAKH)[ 0]=next__FAKH;
- } else {
- next__FAKH=((__POINTER *)result__HAKH)[ 0];
- if ((next__FAKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HAKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__PWFH << 1)) <= 4096)) {
- next__FAKH=(void *)((unsigned long)result__HAKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PWFH)));
- } else {
- next__FAKH=new_lab__RTJ(new_size__PWFH);
- };
- ((__POINTER *)next__FAKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__GAKH)[ 0]=next__FAKH;
- } else {
- ((__POINTER *)result__HAKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FAKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__HAKH=next__FAKH;
- };
- };
- ptr__04L=result__HAKH;
- } else {
- t__TWFH=((__UINTEGER_32 )typ_id__54L);
- a__SWFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__OAKH=(__UINTEGER_32)((__UINTEGER_32)(sz__24L + a__SWFH) & (__UINTEGER_32)(~ a__SWFH));
- ptr_table__LAKH=((__POINTER )(&(table_type[(t__TWFH)])));
- lab_type__NAKH=(__UINTEGER_32)(t__TWFH | 1);
- next__KAKH=((__POINTER )(NULL));
- result__MAKH=((__POINTER *)ptr_table__LAKH)[ 0];
- if ((result__MAKH == (void *)NULL)) {
- result__MAKH=new_lab__RTJ(lab_type__NAKH);
- next__KAKH=(void *)((unsigned long)result__MAKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OAKH)));
- ((__POINTER *)next__KAKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__LAKH)[ 0]=next__KAKH;
- } else {
- next__KAKH=((__POINTER *)result__MAKH)[ 0];
- if ((next__KAKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MAKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__OAKH << 1)) <= 4096)) {
- next__KAKH=(void *)((unsigned long)result__MAKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OAKH)));
- } else {
- next__KAKH=new_lab__RTJ(lab_type__NAKH);
- };
- ((__POINTER *)next__KAKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__LAKH)[ 0]=next__KAKH;
- } else {
- ((__POINTER *)result__MAKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KAKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__MAKH=next__KAKH;
- };
- };
- ptr__04L=result__MAKH;
- };
- result__Z4L=((__ITM_LDOTS *)ptr__04L);
- *(result__Z4L) = *(ITM_LDOTS__);
- };
- ((__ITM_LDOTS *)result__Z4L)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ=p__YYL;
- add_last__I5U(lst__KWF,result__Z4L);
- };
- } else {
- add_last__I5U(lst__KWF,e__DWF);
- result__PAKH=FALSE__;
- if ((! read_space__XTD())) {
- result__PAKH=FALSE__;
- } else {
- result__QAKH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__QAKH=((__CHARACTER )(( 0)));
- } else {
- result__QAKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__QAKH == ';')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__PAKH=TRUE__;
- };
- };
- if ((! result__PAKH)) {
- pos__BLYG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_241));
- put_position__FRG(pos__BLYG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- continue__CWF=TRUE__;
- };
- } while (continue__CWF);
- result__SAKH=FALSE__;
- if ((! read_space__XTD())) {
- result__SAKH=FALSE__;
- } else {
- result__TAKH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__TAKH=((__CHARACTER )(( 0)));
- } else {
- result__TAKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__TAKH == ']')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__SAKH=TRUE__;
- };
- };
- if ((! result__SAKH)) {
- pos__DLYG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_296));
- put_position__FRG(pos__DLYG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- p__3AKH=current_position__B0F();
- result__VAKH=NULL;
- ptr__WAKH=((__POINTER )(NULL));
- typ_id__XAKH= 0;
- sz__YAKH=((__UINTEGER_32 )sizeof(__ITM_PROTOTYPE));
- if ((sz__YAKH == 0)) {
- result__VAKH=ITM_PROTOTYPE__;
- } else {
- typ_id__XAKH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__YAKH);
- if ((typ_id__XAKH == (__INTEGER)(- 1))) {
- a__ZAKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__0AKH=(__UINTEGER_32)((__UINTEGER_32)(sz__YAKH + a__ZAKH) & (__UINTEGER_32)(~ a__ZAKH));
- ptr_table__5AKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__0AKH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__4AKH=((__POINTER )(NULL));
- result__ABKH=((__POINTER *)ptr_table__5AKH)[ 0];
- if ((result__ABKH == (void *)NULL)) {
- result__ABKH=new_lab__RTJ(new_size__0AKH);
- next__4AKH=(void *)((unsigned long)result__ABKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0AKH)));
- ((__POINTER *)next__4AKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__5AKH)[ 0]=next__4AKH;
- } else {
- next__4AKH=((__POINTER *)result__ABKH)[ 0];
- if ((next__4AKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ABKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__0AKH << 1)) <= 4096)) {
- next__4AKH=(void *)((unsigned long)result__ABKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0AKH)));
- } else {
- next__4AKH=new_lab__RTJ(new_size__0AKH);
- };
- ((__POINTER *)next__4AKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__5AKH)[ 0]=next__4AKH;
- } else {
- ((__POINTER *)result__ABKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4AKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__ABKH=next__4AKH;
- };
- };
- ptr__WAKH=result__ABKH;
- } else {
- t__1AKH=((__UINTEGER_32 )typ_id__XAKH);
- a__2AKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HBKH=(__UINTEGER_32)((__UINTEGER_32)(sz__YAKH + a__2AKH) & (__UINTEGER_32)(~ a__2AKH));
- ptr_table__EBKH=((__POINTER )(&(table_type[(t__1AKH)])));
- lab_type__GBKH=(__UINTEGER_32)(t__1AKH | 1);
- next__DBKH=((__POINTER )(NULL));
- result__FBKH=((__POINTER *)ptr_table__EBKH)[ 0];
- if ((result__FBKH == (void *)NULL)) {
- result__FBKH=new_lab__RTJ(lab_type__GBKH);
- next__DBKH=(void *)((unsigned long)result__FBKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HBKH)));
- ((__POINTER *)next__DBKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__EBKH)[ 0]=next__DBKH;
- } else {
- next__DBKH=((__POINTER *)result__FBKH)[ 0];
- if ((next__DBKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FBKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__HBKH << 1)) <= 4096)) {
- next__DBKH=(void *)((unsigned long)result__FBKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HBKH)));
- } else {
- next__DBKH=new_lab__RTJ(lab_type__GBKH);
- };
- ((__POINTER *)next__DBKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__EBKH)[ 0]=next__DBKH;
- } else {
- ((__POINTER *)result__FBKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DBKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__FBKH=next__DBKH;
- };
- };
- ptr__WAKH=result__FBKH;
- };
- result__VAKH=((__ITM_PROTOTYPE *)ptr__WAKH);
- *(result__VAKH) = *(ITM_PROTOTYPE__);
- };
- ((__ITM_PROTOTYPE *)result__VAKH)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ=p__3AKH;
- e__DWF=result__VAKH;
- add_last__I5U(result__0EHH,result__VAKH);
- copy__5BI(result__0EHH);
- };
- return(result__EWF);
-}
-
-static void* read_expr__DBJ(__PARSER *Self__EBJ)
-// ({PARSER}) With resultRecursive, No inlinable.
-{
- void *result__GBJ,*value__HBJ,*result__SGL,*expr__TGL,*__tmp__ZJL;
- void *__tmp__ALL,*__tmp__GML;
- __INTEGER p__OBJ,typ_id__LA1C,typ_id__3BKH,typ_id__QCKH,typ_id__DDKH;
- __INTEGER typ_id__ESJD,typ_id__CAKD,typ_id__XTJD,last_msg__XGL;
- __INTEGER first_msg__YGL,typ_id__UEKH,typ_id__VTP,typ_id__TFKH;
- __INTEGER index__52LH,__tmp__32LH,i__A3LH,typ_id__GGKH,__tmp__CG1C;
- __INTEGER i__QJCD,typ_id__JYO,typ_id__2ZO;
- void *name__PBJ,*n__2EKH,*n__MIP;
- __POSITION p__IFRC,pos__MLYG,p__DCKH,pos__OLYG,pos__QLYG,__tmp__JGJ;
- __POSITION p__JDKH,pos__ULYG,__tmp__KJJ,__tmp__UJJ,__tmp__3JJ,p__1EKH;
- __POSITION pos__5LYG,p__LIP,__tmp__3JL,__tmp__DLL,__tmp__KML;
- __ITM_LIST_IDF *result__FA1C;
- __POINTER ptr__GA1C,ptr_table__SBKH,next__RBKH,result__TBKH;
- __POINTER ptr_table__XBKH,next__WBKH,result__YBKH,ptr__2BKH;
- __POINTER ptr_table__FCKH,next__ECKH,result__GCKH,ptr_table__KCKH;
- __POINTER next__JCKH,result__LCKH,ptr__PCKH,ptr_table__YCKH;
- __POINTER next__XCKH,result__ZCKH,ptr_table__3CKH,next__2CKH;
- __POINTER result__4CKH,ptr__CDKH,ptr_table__LDKH,next__KDKH;
- __POINTER result__MDKH,ptr_table__QDKH,next__PDKH,result__RDKH;
- __POINTER ptr__5RJD,ptr_table__VDKH,next__UDKH,result__WDKH;
- __POINTER ptr_table__0DKH,next__ZDKH,result__1DKH,ptr__35JD;
- __POINTER ptr_table__5DKH,next__4DKH,result__AEKH,ptr_table__EEKH;
- __POINTER next__DEKH,result__FEKH,ptr__STJD,ptr_table__JEKH;
- __POINTER next__IEKH,result__KEKH,ptr_table__OEKH,next__NEKH;
- __POINTER result__PEKH,ptr__TEKH,ptr_table__4EKH,next__3EKH;
- __POINTER result__5EKH,ptr_table__DFKH,next__CFKH,result__EFKH;
- __POINTER ptr__QTP,ptr_table__IFKH,next__HFKH,result__JFKH;
- __POINTER ptr_table__NFKH,next__MFKH,result__OFKH,ptr__SFKH;
- __POINTER ptr_table__1FKH,next__0FKH,result__2FKH,ptr_table__AGKH;
- __POINTER next__5FKH,result__BGKH,ptr__FGKH,ptr_table__OGKH;
- __POINTER next__NGKH,result__PGKH,ptr_table__TGKH,next__SGKH;
- __POINTER result__UGKH,ptr__EYO,ptr_table__YGKH,next__XGKH;
- __POINTER result__ZGKH,ptr_table__3GKH,next__2GKH,result__4GKH;
- __POINTER ptr__XZO,ptr_table__CHKH,next__BHKH,result__DHKH;
- __POINTER ptr_table__HHKH,next__GHKH,result__IHKH;
- __UINTEGER_32 sz__IA1C,a__WWFH,new_size__XWFH,t__1WFH,a__0WFH;
- __UINTEGER_32 new_size__0BKH,lab_type__ZBKH,sz__4BKH,a__5BKH;
- __UINTEGER_32 new_size__ACKH,t__BCKH,a__CCKH,new_size__NCKH;
- __UINTEGER_32 lab_type__MCKH,sz__RCKH,a__SCKH,new_size__TCKH,t__UCKH;
- __UINTEGER_32 a__VCKH,new_size__ADKH,lab_type__5CKH,sz__EDKH,a__FDKH;
- __UINTEGER_32 new_size__GDKH,t__HDKH,a__IDKH,new_size__TDKH;
- __UINTEGER_32 lab_type__SDKH,sz__BSJD,a__UEGH,new_size__VEGH,t__ZEGH;
- __UINTEGER_32 a__YEGH,new_size__3DKH,lab_type__2DKH,sz__55JD,a__4WFH;
- __UINTEGER_32 new_size__5WFH,t__DXFH,a__CXFH,new_size__HEKH;
- __UINTEGER_32 lab_type__GEKH,sz__UTJD,a__2EGH,new_size__3EGH,t__BFGH;
- __UINTEGER_32 a__AFGH,new_size__REKH,lab_type__QEKH,sz__VEKH,a__WEKH;
- __UINTEGER_32 new_size__XEKH,t__YEKH,a__ZEKH,new_size__GFKH;
- __UINTEGER_32 lab_type__FFKH,sz__STP,a__MFGH,new_size__NFGH,t__RFGH;
- __UINTEGER_32 a__QFGH,new_size__QFKH,lab_type__PFKH,sz__UFKH,a__VFKH;
- __UINTEGER_32 new_size__WFKH,t__XFKH,a__YFKH,new_size__DGKH;
- __UINTEGER_32 lab_type__CGKH,sz__HGKH,a__IGKH,new_size__JGKH,t__KGKH;
- __UINTEGER_32 a__LGKH,new_size__WGKH,lab_type__VGKH,sz__GYO,a__FGGH;
- __UINTEGER_32 new_size__GGGH,t__KGGH,a__JGGH,new_size__AHKH;
- __UINTEGER_32 lab_type__5GKH,sz__ZZO,a__QYFH,new_size__RYFH,t__VYFH;
- __UINTEGER_32 a__UYFH,new_size__KHKH,lab_type__JHKH;
- __ITM_WRITE_VALUE *result__1BKH,*result__4RJD;
- __ITM_WRITE_CAST *result__OCKH,*result__RTJD;
- __ITM_READ *result__BDKH;
- __ITM_WRITE_CODE *result__25JD;
- void *itm_op__WGL,*__tmp__0JL,*__tmp__BLL,*__tmp__HML;
- __ITM_OPERATOR *result__SEKH,*Self__0EKH,*result__PTP,*Self__LNV;
- __ITM_READ_ARG1 *result__RFKH,*result__EGKH;
- __ITM_READ_ARG2 *result__DYO;
- __ITM_EXPRESSION *result__WZO;
- __CHARACTER affect__IBJ,result__JBKH,result__MBKH,result__PBKH;
- __BOOLEAN again__JBJ,result__IBKH,result__LBKH,result__OBKH;
- __BOOLEAN __tmp__TEJ,__tmp__VGJ,__tmp__ZLL;
- void *l_assignment__NBJ,*result__VAL,*result__CFRC;
- __FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *Self__XU5,*Self__NV5;
- void *result__KAI,*l_expr__UGL;
- __FAST_ARRAYoFAST_ARRAYoITM_CODEoo *Self__UM4,*Self__KN4;
- __FAST_ARRAYoITM_CODEo *Self__12LH,*Self__YF1C;
- void **__tmp__22LH,**Self__42LH,**__tmp__BG1C,**Self__5ICD;
- result__GBJ=NULL;
- value__HBJ=NULL;
- affect__IBJ='\0';
- again__JBJ=FALSE__;
- l_assignment__NBJ=NULL;
- p__OBJ= 0;
- name__PBJ=NULL;
- old_position__ITI=position__CCC;
- old_pos_cur__KTI=pos_cur__FCC;
- old_pos_line__MTI=pos_line__GCC;
- old_pos_col__OTI=pos_col__HCC;
- old_short_derive__QTI=short_derive__PCC;
- result__IBKH=FALSE__;
- if ((! read_space__XTD())) {
- result__IBKH=FALSE__;
- } else {
- result__JBKH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__JBKH=((__CHARACTER )(( 0)));
- } else {
- result__JBKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__JBKH == '(')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__IBKH=TRUE__;
- };
- };
- if (result__IBKH) {
- result__VAL=NULL;
- if ((((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__1AL)->parent_arrayed_collection__0AL.upper__LUU < 0)) {
- result__VAL=create_with_capacity__THRC( 16);
- } else {
- Self__XU5=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__1AL);
- result__VAL=((void **)Self__XU5->parent_arrayed_collection__0AL.storage__1WU)[Self__XU5->parent_arrayed_collection__0AL.upper__LUU];
- Self__NV5=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__1AL);
- Self__NV5->parent_arrayed_collection__0AL.upper__LUU=(__INTEGER)(Self__NV5->parent_arrayed_collection__0AL.upper__LUU - 1);
- };
- l_assignment__NBJ=result__VAL;
- do {
- again__JBJ=FALSE__;
- if (read_identifier__2BL()) {
- p__OBJ=(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD);
- copy__VDS(string_tmp2__GCJ,last_string__D2C);
- while (read_identifier__2BL()) {
- append__3OS(string_tmp2__GCJ,(&__string_112));
- append__3OS(string_tmp2__GCJ,last_string__D2C);
- };
- name__PBJ=get__YWB(string_tmp2__GCJ);
- add_last__SEPD(l_assignment__NBJ,name__PBJ);
- if (is_shorter__LZ) {
- if ((! fast_has__RDV(short_local__XCC,name__PBJ))) {
- short__token__to__GDD((&__string_131),p__OBJ,position__CCC);
- };
- };
- result__LBKH=FALSE__;
- if ((! read_space__XTD())) {
- result__LBKH=FALSE__;
- } else {
- result__MBKH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__MBKH=((__CHARACTER )(( 0)));
- } else {
- result__MBKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__MBKH == ',')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__LBKH=TRUE__;
- };
- };
- if (result__LBKH) {
- again__JBJ=TRUE__;
- };
- };
- } while (again__JBJ);
- if ((! (((__FAST_ARRAYoSTRING_CONSTANTo *)result__VAL)->parent_arrayed_collection__MBJ.upper__2CPD < 0))) {
- result__OBKH=FALSE__;
- if ((! read_space__XTD())) {
- result__OBKH=FALSE__;
- } else {
- result__PBKH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__PBKH=((__CHARACTER )(( 0)));
- } else {
- result__PBKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__PBKH == ')')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__OBKH=TRUE__;
- };
- };
- __tmp__TEJ=result__OBKH;
- } else {
- __tmp__TEJ=FALSE__;
- };
- if ((__tmp__TEJ && ((read_symbol__4YJ((&__string_12)) || read_symbol__4YJ((&__string_13))) || read_symbol__4YJ((&__string_14))))) {
- result__CFRC=create_with_capacity__THRC((__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)result__VAL)->parent_arrayed_collection__MBJ.upper__2CPD + 1));
- copy__BASD(result__CFRC,result__VAL);
- free__TR5(result__VAL);
- l_assignment__NBJ=result__CFRC;
- p__IFRC=current_position__B0F();
- result__FA1C=NULL;
- ptr__GA1C=((__POINTER )(NULL));
- typ_id__LA1C= 0;
- sz__IA1C=((__UINTEGER_32 )sizeof(__ITM_LIST_IDF));
- if ((sz__IA1C == 0)) {
- result__FA1C=ITM_LIST_IDF__;
- } else {
- typ_id__LA1C=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__IA1C);
- if ((typ_id__LA1C == (__INTEGER)(- 1))) {
- a__WWFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__XWFH=(__UINTEGER_32)((__UINTEGER_32)(sz__IA1C + a__WWFH) & (__UINTEGER_32)(~ a__WWFH));
- ptr_table__SBKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XWFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__RBKH=((__POINTER )(NULL));
- result__TBKH=((__POINTER *)ptr_table__SBKH)[ 0];
- if ((result__TBKH == (void *)NULL)) {
- result__TBKH=new_lab__RTJ(new_size__XWFH);
- next__RBKH=(void *)((unsigned long)result__TBKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XWFH)));
- ((__POINTER *)next__RBKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__SBKH)[ 0]=next__RBKH;
- } else {
- next__RBKH=((__POINTER *)result__TBKH)[ 0];
- if ((next__RBKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TBKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__XWFH << 1)) <= 4096)) {
- next__RBKH=(void *)((unsigned long)result__TBKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XWFH)));
- } else {
- next__RBKH=new_lab__RTJ(new_size__XWFH);
- };
- ((__POINTER *)next__RBKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__SBKH)[ 0]=next__RBKH;
- } else {
- ((__POINTER *)result__TBKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RBKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__TBKH=next__RBKH;
- };
- };
- ptr__GA1C=result__TBKH;
- } else {
- t__1WFH=((__UINTEGER_32 )typ_id__LA1C);
- a__0WFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__0BKH=(__UINTEGER_32)((__UINTEGER_32)(sz__IA1C + a__0WFH) & (__UINTEGER_32)(~ a__0WFH));
- ptr_table__XBKH=((__POINTER )(&(table_type[(t__1WFH)])));
- lab_type__ZBKH=(__UINTEGER_32)(t__1WFH | 1);
- next__WBKH=((__POINTER )(NULL));
- result__YBKH=((__POINTER *)ptr_table__XBKH)[ 0];
- if ((result__YBKH == (void *)NULL)) {
- result__YBKH=new_lab__RTJ(lab_type__ZBKH);
- next__WBKH=(void *)((unsigned long)result__YBKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0BKH)));
- ((__POINTER *)next__WBKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__XBKH)[ 0]=next__WBKH;
- } else {
- next__WBKH=((__POINTER *)result__YBKH)[ 0];
- if ((next__WBKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YBKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__0BKH << 1)) <= 4096)) {
- next__WBKH=(void *)((unsigned long)result__YBKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__0BKH)));
- } else {
- next__WBKH=new_lab__RTJ(lab_type__ZBKH);
- };
- ((__POINTER *)next__WBKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__XBKH)[ 0]=next__WBKH;
- } else {
- ((__POINTER *)result__YBKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WBKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__YBKH=next__WBKH;
- };
- };
- ptr__GA1C=result__YBKH;
- };
- result__FA1C=((__ITM_LIST_IDF *)ptr__GA1C);
- *(result__FA1C) = *(ITM_LIST_IDF__);
- };
- ((__ITM_LIST_IDF *)result__FA1C)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ=p__IFRC;
- result__GBJ=result__FA1C;
- affect__IBJ=((__CHARACTER *)((__STRING_CONSTANT *)last_string__D2C)->storage__RRO)[ 0];
- value__HBJ=read_expr__DBJ(Self__EBJ);
- if (((void *)value__HBJ == (void *)NULL)) {
- pos__MLYG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_239));
- put_position__FRG(pos__MLYG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- if ((affect__IBJ == ':')) {
- p__DCKH=result__FA1C->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
- result__1BKH=NULL;
- ptr__2BKH=((__POINTER )(NULL));
- typ_id__3BKH= 0;
- sz__4BKH=((__UINTEGER_32 )sizeof(__ITM_WRITE_VALUE));
- if ((sz__4BKH == 0)) {
- result__1BKH=ITM_WRITE_VALUE__;
- } else {
- typ_id__3BKH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__4BKH);
- if ((typ_id__3BKH == (__INTEGER)(- 1))) {
- a__5BKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ACKH=(__UINTEGER_32)((__UINTEGER_32)(sz__4BKH + a__5BKH) & (__UINTEGER_32)(~ a__5BKH));
- ptr_table__FCKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ACKH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__ECKH=((__POINTER )(NULL));
- result__GCKH=((__POINTER *)ptr_table__FCKH)[ 0];
- if ((result__GCKH == (void *)NULL)) {
- result__GCKH=new_lab__RTJ(new_size__ACKH);
- next__ECKH=(void *)((unsigned long)result__GCKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ACKH)));
- ((__POINTER *)next__ECKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__FCKH)[ 0]=next__ECKH;
- } else {
- next__ECKH=((__POINTER *)result__GCKH)[ 0];
- if ((next__ECKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GCKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__ACKH << 1)) <= 4096)) {
- next__ECKH=(void *)((unsigned long)result__GCKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ACKH)));
- } else {
- next__ECKH=new_lab__RTJ(new_size__ACKH);
- };
- ((__POINTER *)next__ECKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__FCKH)[ 0]=next__ECKH;
- } else {
- ((__POINTER *)result__GCKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ECKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__GCKH=next__ECKH;
- };
- };
- ptr__2BKH=result__GCKH;
- } else {
- t__BCKH=((__UINTEGER_32 )typ_id__3BKH);
- a__CCKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__NCKH=(__UINTEGER_32)((__UINTEGER_32)(sz__4BKH + a__CCKH) & (__UINTEGER_32)(~ a__CCKH));
- ptr_table__KCKH=((__POINTER )(&(table_type[(t__BCKH)])));
- lab_type__MCKH=(__UINTEGER_32)(t__BCKH | 1);
- next__JCKH=((__POINTER )(NULL));
- result__LCKH=((__POINTER *)ptr_table__KCKH)[ 0];
- if ((result__LCKH == (void *)NULL)) {
- result__LCKH=new_lab__RTJ(lab_type__MCKH);
- next__JCKH=(void *)((unsigned long)result__LCKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NCKH)));
- ((__POINTER *)next__JCKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__KCKH)[ 0]=next__JCKH;
- } else {
- next__JCKH=((__POINTER *)result__LCKH)[ 0];
- if ((next__JCKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LCKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__NCKH << 1)) <= 4096)) {
- next__JCKH=(void *)((unsigned long)result__LCKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NCKH)));
- } else {
- next__JCKH=new_lab__RTJ(lab_type__MCKH);
- };
- ((__POINTER *)next__JCKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__KCKH)[ 0]=next__JCKH;
- } else {
- ((__POINTER *)result__LCKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JCKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__LCKH=next__JCKH;
- };
- };
- ptr__2BKH=result__LCKH;
- };
- result__1BKH=((__ITM_WRITE_VALUE *)ptr__2BKH);
- *(result__1BKH) = *(ITM_WRITE_VALUE__);
- };
- ((__ITM_WRITE_VALUE *)result__1BKH)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ=p__DCKH;
- result__GBJ=result__1BKH;
- };
- if ((affect__IBJ == '<')) {
- pos__OLYG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_297));
- put_position__FRG(pos__OLYG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- if ((affect__IBJ == '?')) {
- pos__QLYG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_298));
- put_position__FRG(pos__QLYG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- switch (((struct ___OBJ *)result__GBJ)->__id) {
- case __ITM_LIST__: {
- __tmp__JGJ=((__ITM_LIST *)result__GBJ)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_LDOTS__: {
- __tmp__JGJ=((__ITM_LDOTS *)result__GBJ)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_PROTOTYPE__: {
- __tmp__JGJ=((__ITM_PROTOTYPE *)result__GBJ)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_LIST_IDF__: {
- __tmp__JGJ=((__ITM_LIST_IDF *)result__GBJ)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_VALUE__: {
- __tmp__JGJ=((__ITM_WRITE_VALUE *)result__GBJ)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_CAST__: {
- __tmp__JGJ=((__ITM_WRITE_CAST *)result__GBJ)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ__: {
- __tmp__JGJ=((__ITM_READ *)result__GBJ)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_CODE__: {
- __tmp__JGJ=((__ITM_WRITE_CODE *)result__GBJ)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_OPERATOR__: {
- __tmp__JGJ=((__ITM_OPERATOR *)result__GBJ)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARG1__: {
- __tmp__JGJ=((__ITM_READ_ARG1 *)result__GBJ)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARG2__: {
- __tmp__JGJ=((__ITM_READ_ARG2 *)result__GBJ)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXPRESSION__: {
- __tmp__JGJ=position__5A5B(result__GBJ);
- } break;
- case __ITM_OLD__: {
- __tmp__JGJ=((__ITM_OLD *)result__GBJ)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXTERNAL_TYPE__: {
- __tmp__JGJ=((__ITM_EXTERNAL_TYPE *)result__GBJ)->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_BLOCK__: {
- __tmp__JGJ=((__ITM_LIST *)((__ITM_BLOCK *)result__GBJ)->list__KMDC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXTERNAL__: {
- __tmp__JGJ=((__ITM_EXTERNAL *)result__GBJ)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARGS__: {
- __tmp__JGJ=((__ITM_READ_ARGS *)result__GBJ)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_REAL__: {
- __tmp__JGJ=((__ITM_REAL *)result__GBJ)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_NUMBER__: {
- __tmp__JGJ=((__ITM_NUMBER *)result__GBJ)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_CHARACTER__: {
- __tmp__JGJ=((__ITM_CHARACTER *)result__GBJ)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_STRING__: {
- __tmp__JGJ=((__ITM_STRING *)result__GBJ)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_RESULT__: {
- __tmp__JGJ=position__PIHC(result__GBJ);
- } break;
- };
- result__OCKH=NULL;
- ptr__PCKH=((__POINTER )(NULL));
- typ_id__QCKH= 0;
- sz__RCKH=((__UINTEGER_32 )sizeof(__ITM_WRITE_CAST));
- if ((sz__RCKH == 0)) {
- result__OCKH=ITM_WRITE_CAST__;
- } else {
- typ_id__QCKH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__RCKH);
- if ((typ_id__QCKH == (__INTEGER)(- 1))) {
- a__SCKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__TCKH=(__UINTEGER_32)((__UINTEGER_32)(sz__RCKH + a__SCKH) & (__UINTEGER_32)(~ a__SCKH));
- ptr_table__YCKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__TCKH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__XCKH=((__POINTER )(NULL));
- result__ZCKH=((__POINTER *)ptr_table__YCKH)[ 0];
- if ((result__ZCKH == (void *)NULL)) {
- result__ZCKH=new_lab__RTJ(new_size__TCKH);
- next__XCKH=(void *)((unsigned long)result__ZCKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TCKH)));
- ((__POINTER *)next__XCKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__YCKH)[ 0]=next__XCKH;
- } else {
- next__XCKH=((__POINTER *)result__ZCKH)[ 0];
- if ((next__XCKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZCKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__TCKH << 1)) <= 4096)) {
- next__XCKH=(void *)((unsigned long)result__ZCKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TCKH)));
- } else {
- next__XCKH=new_lab__RTJ(new_size__TCKH);
- };
- ((__POINTER *)next__XCKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__YCKH)[ 0]=next__XCKH;
- } else {
- ((__POINTER *)result__ZCKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XCKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__ZCKH=next__XCKH;
- };
- };
- ptr__PCKH=result__ZCKH;
- } else {
- t__UCKH=((__UINTEGER_32 )typ_id__QCKH);
- a__VCKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ADKH=(__UINTEGER_32)((__UINTEGER_32)(sz__RCKH + a__VCKH) & (__UINTEGER_32)(~ a__VCKH));
- ptr_table__3CKH=((__POINTER )(&(table_type[(t__UCKH)])));
- lab_type__5CKH=(__UINTEGER_32)(t__UCKH | 1);
- next__2CKH=((__POINTER )(NULL));
- result__4CKH=((__POINTER *)ptr_table__3CKH)[ 0];
- if ((result__4CKH == (void *)NULL)) {
- result__4CKH=new_lab__RTJ(lab_type__5CKH);
- next__2CKH=(void *)((unsigned long)result__4CKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ADKH)));
- ((__POINTER *)next__2CKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__3CKH)[ 0]=next__2CKH;
- } else {
- next__2CKH=((__POINTER *)result__4CKH)[ 0];
- if ((next__2CKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4CKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__ADKH << 1)) <= 4096)) {
- next__2CKH=(void *)((unsigned long)result__4CKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ADKH)));
- } else {
- next__2CKH=new_lab__RTJ(lab_type__5CKH);
- };
- ((__POINTER *)next__2CKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__3CKH)[ 0]=next__2CKH;
- } else {
- ((__POINTER *)result__4CKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2CKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__4CKH=next__2CKH;
- };
- };
- ptr__PCKH=result__4CKH;
- };
- result__OCKH=((__ITM_WRITE_CAST *)ptr__PCKH);
- *(result__OCKH) = *(ITM_WRITE_CAST__);
- };
- ((__ITM_WRITE_CAST *)result__OCKH)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ=__tmp__JGJ;
- result__GBJ=result__OCKH;
- };
- } else {
- free__TR5(l_assignment__NBJ);
- };
- __tmp__VGJ=TRUE__;
- } else {
- __tmp__VGJ=FALSE__;
- };
- if ((! __tmp__VGJ)) {
- if (read_identifier__2BL()) {
- p__OBJ=(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD);
- copy__VDS(string_tmp2__GCJ,last_string__D2C);
- while (read_identifier__2BL()) {
- append__3OS(string_tmp2__GCJ,(&__string_112));
- append__3OS(string_tmp2__GCJ,last_string__D2C);
- };
- name__PBJ=get__YWB(string_tmp2__GCJ);
- if (is_shorter__LZ) {
- if ((! fast_has__RDV(short_local__XCC,name__PBJ))) {
- short__token__to__GDD((&__string_131),p__OBJ,position__CCC);
- };
- };
- if (((read_symbol__4YJ((&__string_12)) || read_symbol__4YJ((&__string_13))) || read_symbol__4YJ((&__string_14)))) {
- p__JDKH=current_position__B0F();
- result__BDKH=NULL;
- ptr__CDKH=((__POINTER )(NULL));
- typ_id__DDKH= 0;
- sz__EDKH=((__UINTEGER_32 )sizeof(__ITM_READ));
- if ((sz__EDKH == 0)) {
- result__BDKH=ITM_READ__;
- } else {
- typ_id__DDKH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__EDKH);
- if ((typ_id__DDKH == (__INTEGER)(- 1))) {
- a__FDKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__GDKH=(__UINTEGER_32)((__UINTEGER_32)(sz__EDKH + a__FDKH) & (__UINTEGER_32)(~ a__FDKH));
- ptr_table__LDKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GDKH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__KDKH=((__POINTER )(NULL));
- result__MDKH=((__POINTER *)ptr_table__LDKH)[ 0];
- if ((result__MDKH == (void *)NULL)) {
- result__MDKH=new_lab__RTJ(new_size__GDKH);
- next__KDKH=(void *)((unsigned long)result__MDKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GDKH)));
- ((__POINTER *)next__KDKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__LDKH)[ 0]=next__KDKH;
- } else {
- next__KDKH=((__POINTER *)result__MDKH)[ 0];
- if ((next__KDKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MDKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__GDKH << 1)) <= 4096)) {
- next__KDKH=(void *)((unsigned long)result__MDKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GDKH)));
- } else {
- next__KDKH=new_lab__RTJ(new_size__GDKH);
- };
- ((__POINTER *)next__KDKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__LDKH)[ 0]=next__KDKH;
- } else {
- ((__POINTER *)result__MDKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KDKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__MDKH=next__KDKH;
- };
- };
- ptr__CDKH=result__MDKH;
- } else {
- t__HDKH=((__UINTEGER_32 )typ_id__DDKH);
- a__IDKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__TDKH=(__UINTEGER_32)((__UINTEGER_32)(sz__EDKH + a__IDKH) & (__UINTEGER_32)(~ a__IDKH));
- ptr_table__QDKH=((__POINTER )(&(table_type[(t__HDKH)])));
- lab_type__SDKH=(__UINTEGER_32)(t__HDKH | 1);
- next__PDKH=((__POINTER )(NULL));
- result__RDKH=((__POINTER *)ptr_table__QDKH)[ 0];
- if ((result__RDKH == (void *)NULL)) {
- result__RDKH=new_lab__RTJ(lab_type__SDKH);
- next__PDKH=(void *)((unsigned long)result__RDKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TDKH)));
- ((__POINTER *)next__PDKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__QDKH)[ 0]=next__PDKH;
- } else {
- next__PDKH=((__POINTER *)result__RDKH)[ 0];
- if ((next__PDKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RDKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__TDKH << 1)) <= 4096)) {
- next__PDKH=(void *)((unsigned long)result__RDKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TDKH)));
- } else {
- next__PDKH=new_lab__RTJ(lab_type__SDKH);
- };
- ((__POINTER *)next__PDKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__QDKH)[ 0]=next__PDKH;
- } else {
- ((__POINTER *)result__RDKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PDKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__RDKH=next__PDKH;
- };
- };
- ptr__CDKH=result__RDKH;
- };
- result__BDKH=((__ITM_READ *)ptr__CDKH);
- *(result__BDKH) = *(ITM_READ__);
- };
- ((__ITM_READ *)result__BDKH)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ=p__JDKH;
- result__GBJ=result__BDKH;
- affect__IBJ=((__CHARACTER *)((__STRING_CONSTANT *)last_string__D2C)->storage__RRO)[ 0];
- value__HBJ=read_expr__DBJ(Self__EBJ);
- if (((void *)value__HBJ == (void *)NULL)) {
- pos__ULYG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_239));
- put_position__FRG(pos__ULYG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- if ((affect__IBJ == ':')) {
- __tmp__KJJ=result__BDKH->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- result__4RJD=NULL;
- ptr__5RJD=((__POINTER )(NULL));
- typ_id__ESJD= 0;
- sz__BSJD=((__UINTEGER_32 )sizeof(__ITM_WRITE_VALUE));
- if ((sz__BSJD == 0)) {
- result__4RJD=ITM_WRITE_VALUE__;
- } else {
- typ_id__ESJD=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__BSJD);
- if ((typ_id__ESJD == (__INTEGER)(- 1))) {
- a__UEGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__VEGH=(__UINTEGER_32)((__UINTEGER_32)(sz__BSJD + a__UEGH) & (__UINTEGER_32)(~ a__UEGH));
- ptr_table__VDKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VEGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__UDKH=((__POINTER )(NULL));
- result__WDKH=((__POINTER *)ptr_table__VDKH)[ 0];
- if ((result__WDKH == (void *)NULL)) {
- result__WDKH=new_lab__RTJ(new_size__VEGH);
- next__UDKH=(void *)((unsigned long)result__WDKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VEGH)));
- ((__POINTER *)next__UDKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__VDKH)[ 0]=next__UDKH;
- } else {
- next__UDKH=((__POINTER *)result__WDKH)[ 0];
- if ((next__UDKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WDKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__VEGH << 1)) <= 4096)) {
- next__UDKH=(void *)((unsigned long)result__WDKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VEGH)));
- } else {
- next__UDKH=new_lab__RTJ(new_size__VEGH);
- };
- ((__POINTER *)next__UDKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__VDKH)[ 0]=next__UDKH;
- } else {
- ((__POINTER *)result__WDKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UDKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__WDKH=next__UDKH;
- };
- };
- ptr__5RJD=result__WDKH;
- } else {
- t__ZEGH=((__UINTEGER_32 )typ_id__ESJD);
- a__YEGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__3DKH=(__UINTEGER_32)((__UINTEGER_32)(sz__BSJD + a__YEGH) & (__UINTEGER_32)(~ a__YEGH));
- ptr_table__0DKH=((__POINTER )(&(table_type[(t__ZEGH)])));
- lab_type__2DKH=(__UINTEGER_32)(t__ZEGH | 1);
- next__ZDKH=((__POINTER )(NULL));
- result__1DKH=((__POINTER *)ptr_table__0DKH)[ 0];
- if ((result__1DKH == (void *)NULL)) {
- result__1DKH=new_lab__RTJ(lab_type__2DKH);
- next__ZDKH=(void *)((unsigned long)result__1DKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3DKH)));
- ((__POINTER *)next__ZDKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__0DKH)[ 0]=next__ZDKH;
- } else {
- next__ZDKH=((__POINTER *)result__1DKH)[ 0];
- if ((next__ZDKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1DKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__3DKH << 1)) <= 4096)) {
- next__ZDKH=(void *)((unsigned long)result__1DKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3DKH)));
- } else {
- next__ZDKH=new_lab__RTJ(lab_type__2DKH);
- };
- ((__POINTER *)next__ZDKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__0DKH)[ 0]=next__ZDKH;
- } else {
- ((__POINTER *)result__1DKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZDKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__1DKH=next__ZDKH;
- };
- };
- ptr__5RJD=result__1DKH;
- };
- result__4RJD=((__ITM_WRITE_VALUE *)ptr__5RJD);
- *(result__4RJD) = *(ITM_WRITE_VALUE__);
- };
- ((__ITM_WRITE_VALUE *)result__4RJD)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ=__tmp__KJJ;
- result__GBJ=result__4RJD;
- };
- if ((affect__IBJ == '<')) {
- switch (((struct ___OBJ *)result__GBJ)->__id) {
- case __ITM_LIST__: {
- __tmp__UJJ=((__ITM_LIST *)result__GBJ)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_LDOTS__: {
- __tmp__UJJ=((__ITM_LDOTS *)result__GBJ)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_PROTOTYPE__: {
- __tmp__UJJ=((__ITM_PROTOTYPE *)result__GBJ)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_LIST_IDF__: {
- __tmp__UJJ=((__ITM_LIST_IDF *)result__GBJ)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_VALUE__: {
- __tmp__UJJ=((__ITM_WRITE_VALUE *)result__GBJ)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_CAST__: {
- __tmp__UJJ=((__ITM_WRITE_CAST *)result__GBJ)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ__: {
- __tmp__UJJ=((__ITM_READ *)result__GBJ)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_CODE__: {
- __tmp__UJJ=((__ITM_WRITE_CODE *)result__GBJ)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_OPERATOR__: {
- __tmp__UJJ=((__ITM_OPERATOR *)result__GBJ)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARG1__: {
- __tmp__UJJ=((__ITM_READ_ARG1 *)result__GBJ)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARG2__: {
- __tmp__UJJ=((__ITM_READ_ARG2 *)result__GBJ)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXPRESSION__: {
- __tmp__UJJ=position__5A5B(result__GBJ);
- } break;
- case __ITM_OLD__: {
- __tmp__UJJ=((__ITM_OLD *)result__GBJ)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXTERNAL_TYPE__: {
- __tmp__UJJ=((__ITM_EXTERNAL_TYPE *)result__GBJ)->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_BLOCK__: {
- __tmp__UJJ=((__ITM_LIST *)((__ITM_BLOCK *)result__GBJ)->list__KMDC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXTERNAL__: {
- __tmp__UJJ=((__ITM_EXTERNAL *)result__GBJ)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARGS__: {
- __tmp__UJJ=((__ITM_READ_ARGS *)result__GBJ)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_REAL__: {
- __tmp__UJJ=((__ITM_REAL *)result__GBJ)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_NUMBER__: {
- __tmp__UJJ=((__ITM_NUMBER *)result__GBJ)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_CHARACTER__: {
- __tmp__UJJ=((__ITM_CHARACTER *)result__GBJ)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_STRING__: {
- __tmp__UJJ=((__ITM_STRING *)result__GBJ)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_RESULT__: {
- __tmp__UJJ=position__PIHC(result__GBJ);
- } break;
- };
- result__25JD=NULL;
- ptr__35JD=((__POINTER )(NULL));
- typ_id__CAKD= 0;
- sz__55JD=((__UINTEGER_32 )sizeof(__ITM_WRITE_CODE));
- if ((sz__55JD == 0)) {
- result__25JD=ITM_WRITE_CODE__;
- } else {
- typ_id__CAKD=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__55JD);
- if ((typ_id__CAKD == (__INTEGER)(- 1))) {
- a__4WFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5WFH=(__UINTEGER_32)((__UINTEGER_32)(sz__55JD + a__4WFH) & (__UINTEGER_32)(~ a__4WFH));
- ptr_table__5DKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5WFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__4DKH=((__POINTER )(NULL));
- result__AEKH=((__POINTER *)ptr_table__5DKH)[ 0];
- if ((result__AEKH == (void *)NULL)) {
- result__AEKH=new_lab__RTJ(new_size__5WFH);
- next__4DKH=(void *)((unsigned long)result__AEKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5WFH)));
- ((__POINTER *)next__4DKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__5DKH)[ 0]=next__4DKH;
- } else {
- next__4DKH=((__POINTER *)result__AEKH)[ 0];
- if ((next__4DKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__AEKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__5WFH << 1)) <= 4096)) {
- next__4DKH=(void *)((unsigned long)result__AEKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5WFH)));
- } else {
- next__4DKH=new_lab__RTJ(new_size__5WFH);
- };
- ((__POINTER *)next__4DKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__5DKH)[ 0]=next__4DKH;
- } else {
- ((__POINTER *)result__AEKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4DKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__AEKH=next__4DKH;
- };
- };
- ptr__35JD=result__AEKH;
- } else {
- t__DXFH=((__UINTEGER_32 )typ_id__CAKD);
- a__CXFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HEKH=(__UINTEGER_32)((__UINTEGER_32)(sz__55JD + a__CXFH) & (__UINTEGER_32)(~ a__CXFH));
- ptr_table__EEKH=((__POINTER )(&(table_type[(t__DXFH)])));
- lab_type__GEKH=(__UINTEGER_32)(t__DXFH | 1);
- next__DEKH=((__POINTER )(NULL));
- result__FEKH=((__POINTER *)ptr_table__EEKH)[ 0];
- if ((result__FEKH == (void *)NULL)) {
- result__FEKH=new_lab__RTJ(lab_type__GEKH);
- next__DEKH=(void *)((unsigned long)result__FEKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HEKH)));
- ((__POINTER *)next__DEKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__EEKH)[ 0]=next__DEKH;
- } else {
- next__DEKH=((__POINTER *)result__FEKH)[ 0];
- if ((next__DEKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FEKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__HEKH << 1)) <= 4096)) {
- next__DEKH=(void *)((unsigned long)result__FEKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HEKH)));
- } else {
- next__DEKH=new_lab__RTJ(lab_type__GEKH);
- };
- ((__POINTER *)next__DEKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__EEKH)[ 0]=next__DEKH;
- } else {
- ((__POINTER *)result__FEKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DEKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__FEKH=next__DEKH;
- };
- };
- ptr__35JD=result__FEKH;
- };
- result__25JD=((__ITM_WRITE_CODE *)ptr__35JD);
- *(result__25JD) = *(ITM_WRITE_CODE__);
- };
- ((__ITM_WRITE_CODE *)result__25JD)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ=__tmp__UJJ;
- result__GBJ=result__25JD;
- };
- if ((affect__IBJ == '?')) {
- switch (((struct ___OBJ *)result__GBJ)->__id) {
- case __ITM_LIST__: {
- __tmp__3JJ=((__ITM_LIST *)result__GBJ)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_LDOTS__: {
- __tmp__3JJ=((__ITM_LDOTS *)result__GBJ)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_PROTOTYPE__: {
- __tmp__3JJ=((__ITM_PROTOTYPE *)result__GBJ)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_LIST_IDF__: {
- __tmp__3JJ=((__ITM_LIST_IDF *)result__GBJ)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_VALUE__: {
- __tmp__3JJ=((__ITM_WRITE_VALUE *)result__GBJ)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_CAST__: {
- __tmp__3JJ=((__ITM_WRITE_CAST *)result__GBJ)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ__: {
- __tmp__3JJ=((__ITM_READ *)result__GBJ)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_CODE__: {
- __tmp__3JJ=((__ITM_WRITE_CODE *)result__GBJ)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_OPERATOR__: {
- __tmp__3JJ=((__ITM_OPERATOR *)result__GBJ)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARG1__: {
- __tmp__3JJ=((__ITM_READ_ARG1 *)result__GBJ)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARG2__: {
- __tmp__3JJ=((__ITM_READ_ARG2 *)result__GBJ)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXPRESSION__: {
- __tmp__3JJ=position__5A5B(result__GBJ);
- } break;
- case __ITM_OLD__: {
- __tmp__3JJ=((__ITM_OLD *)result__GBJ)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXTERNAL_TYPE__: {
- __tmp__3JJ=((__ITM_EXTERNAL_TYPE *)result__GBJ)->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_BLOCK__: {
- __tmp__3JJ=((__ITM_LIST *)((__ITM_BLOCK *)result__GBJ)->list__KMDC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXTERNAL__: {
- __tmp__3JJ=((__ITM_EXTERNAL *)result__GBJ)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARGS__: {
- __tmp__3JJ=((__ITM_READ_ARGS *)result__GBJ)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_REAL__: {
- __tmp__3JJ=((__ITM_REAL *)result__GBJ)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_NUMBER__: {
- __tmp__3JJ=((__ITM_NUMBER *)result__GBJ)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_CHARACTER__: {
- __tmp__3JJ=((__ITM_CHARACTER *)result__GBJ)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_STRING__: {
- __tmp__3JJ=((__ITM_STRING *)result__GBJ)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_RESULT__: {
- __tmp__3JJ=position__PIHC(result__GBJ);
- } break;
- };
- result__RTJD=NULL;
- ptr__STJD=((__POINTER )(NULL));
- typ_id__XTJD= 0;
- sz__UTJD=((__UINTEGER_32 )sizeof(__ITM_WRITE_CAST));
- if ((sz__UTJD == 0)) {
- result__RTJD=ITM_WRITE_CAST__;
- } else {
- typ_id__XTJD=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__UTJD);
- if ((typ_id__XTJD == (__INTEGER)(- 1))) {
- a__2EGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__3EGH=(__UINTEGER_32)((__UINTEGER_32)(sz__UTJD + a__2EGH) & (__UINTEGER_32)(~ a__2EGH));
- ptr_table__JEKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3EGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__IEKH=((__POINTER )(NULL));
- result__KEKH=((__POINTER *)ptr_table__JEKH)[ 0];
- if ((result__KEKH == (void *)NULL)) {
- result__KEKH=new_lab__RTJ(new_size__3EGH);
- next__IEKH=(void *)((unsigned long)result__KEKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3EGH)));
- ((__POINTER *)next__IEKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__JEKH)[ 0]=next__IEKH;
- } else {
- next__IEKH=((__POINTER *)result__KEKH)[ 0];
- if ((next__IEKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KEKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__3EGH << 1)) <= 4096)) {
- next__IEKH=(void *)((unsigned long)result__KEKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3EGH)));
- } else {
- next__IEKH=new_lab__RTJ(new_size__3EGH);
- };
- ((__POINTER *)next__IEKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__JEKH)[ 0]=next__IEKH;
- } else {
- ((__POINTER *)result__KEKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__IEKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__KEKH=next__IEKH;
- };
- };
- ptr__STJD=result__KEKH;
- } else {
- t__BFGH=((__UINTEGER_32 )typ_id__XTJD);
- a__AFGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__REKH=(__UINTEGER_32)((__UINTEGER_32)(sz__UTJD + a__AFGH) & (__UINTEGER_32)(~ a__AFGH));
- ptr_table__OEKH=((__POINTER )(&(table_type[(t__BFGH)])));
- lab_type__QEKH=(__UINTEGER_32)(t__BFGH | 1);
- next__NEKH=((__POINTER )(NULL));
- result__PEKH=((__POINTER *)ptr_table__OEKH)[ 0];
- if ((result__PEKH == (void *)NULL)) {
- result__PEKH=new_lab__RTJ(lab_type__QEKH);
- next__NEKH=(void *)((unsigned long)result__PEKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__REKH)));
- ((__POINTER *)next__NEKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__OEKH)[ 0]=next__NEKH;
- } else {
- next__NEKH=((__POINTER *)result__PEKH)[ 0];
- if ((next__NEKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PEKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__REKH << 1)) <= 4096)) {
- next__NEKH=(void *)((unsigned long)result__PEKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__REKH)));
- } else {
- next__NEKH=new_lab__RTJ(lab_type__QEKH);
- };
- ((__POINTER *)next__NEKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__OEKH)[ 0]=next__NEKH;
- } else {
- ((__POINTER *)result__PEKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NEKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__PEKH=next__NEKH;
- };
- };
- ptr__STJD=result__PEKH;
- };
- result__RTJD=((__ITM_WRITE_CAST *)ptr__STJD);
- *(result__RTJD) = *(ITM_WRITE_CAST__);
- };
- ((__ITM_WRITE_CAST *)result__RTJD)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ=__tmp__3JJ;
- result__GBJ=result__RTJD;
- };
- };
- };
- };
- if (((void *)result__GBJ == (void *)NULL)) {
- restore_context__EFL();
- result__SGL=NULL;
- expr__TGL=NULL;
- itm_op__WGL=NULL;
- last_msg__XGL= 0;
- first_msg__YGL= 0;
- result__KAI=NULL;
- if ((((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__QAI)->parent_arrayed_collection__PAI.upper__BYT < 0)) {
- result__KAI=create_with_capacity__XXI( 16);
- } else {
- Self__UM4=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__QAI);
- result__KAI=((void **)Self__UM4->parent_arrayed_collection__PAI.storage__PCU)[Self__UM4->parent_arrayed_collection__PAI.upper__BYT];
- Self__KN4=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__QAI);
- Self__KN4->parent_arrayed_collection__PAI.upper__BYT=(__INTEGER)(Self__KN4->parent_arrayed_collection__PAI.upper__BYT - 1);
- };
- l_expr__UGL=result__KAI;
- while (read_operator__GOM()) {
- p__1EKH=current_position__B0F();
- n__2EKH=last_string__D2C;
- result__SEKH=NULL;
- ptr__TEKH=((__POINTER )(NULL));
- typ_id__UEKH= 0;
- sz__VEKH=((__UINTEGER_32 )sizeof(__ITM_OPERATOR));
- if ((sz__VEKH == 0)) {
- result__SEKH=ITM_OPERATOR__;
- } else {
- typ_id__UEKH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__VEKH);
- if ((typ_id__UEKH == (__INTEGER)(- 1))) {
- a__WEKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__XEKH=(__UINTEGER_32)((__UINTEGER_32)(sz__VEKH + a__WEKH) & (__UINTEGER_32)(~ a__WEKH));
- ptr_table__4EKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XEKH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__3EKH=((__POINTER )(NULL));
- result__5EKH=((__POINTER *)ptr_table__4EKH)[ 0];
- if ((result__5EKH == (void *)NULL)) {
- result__5EKH=new_lab__RTJ(new_size__XEKH);
- next__3EKH=(void *)((unsigned long)result__5EKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XEKH)));
- ((__POINTER *)next__3EKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__4EKH)[ 0]=next__3EKH;
- } else {
- next__3EKH=((__POINTER *)result__5EKH)[ 0];
- if ((next__3EKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5EKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__XEKH << 1)) <= 4096)) {
- next__3EKH=(void *)((unsigned long)result__5EKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XEKH)));
- } else {
- next__3EKH=new_lab__RTJ(new_size__XEKH);
- };
- ((__POINTER *)next__3EKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__4EKH)[ 0]=next__3EKH;
- } else {
- ((__POINTER *)result__5EKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3EKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__5EKH=next__3EKH;
- };
- };
- ptr__TEKH=result__5EKH;
- } else {
- t__YEKH=((__UINTEGER_32 )typ_id__UEKH);
- a__ZEKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__GFKH=(__UINTEGER_32)((__UINTEGER_32)(sz__VEKH + a__ZEKH) & (__UINTEGER_32)(~ a__ZEKH));
- ptr_table__DFKH=((__POINTER )(&(table_type[(t__YEKH)])));
- lab_type__FFKH=(__UINTEGER_32)(t__YEKH | 1);
- next__CFKH=((__POINTER )(NULL));
- result__EFKH=((__POINTER *)ptr_table__DFKH)[ 0];
- if ((result__EFKH == (void *)NULL)) {
- result__EFKH=new_lab__RTJ(lab_type__FFKH);
- next__CFKH=(void *)((unsigned long)result__EFKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GFKH)));
- ((__POINTER *)next__CFKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__DFKH)[ 0]=next__CFKH;
- } else {
- next__CFKH=((__POINTER *)result__EFKH)[ 0];
- if ((next__CFKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EFKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__GFKH << 1)) <= 4096)) {
- next__CFKH=(void *)((unsigned long)result__EFKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GFKH)));
- } else {
- next__CFKH=new_lab__RTJ(lab_type__FFKH);
- };
- ((__POINTER *)next__CFKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__DFKH)[ 0]=next__CFKH;
- } else {
- ((__POINTER *)result__EFKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CFKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__EFKH=next__CFKH;
- };
- };
- ptr__TEKH=result__EFKH;
- };
- result__SEKH=((__ITM_OPERATOR *)ptr__TEKH);
- *(result__SEKH) = *(ITM_OPERATOR__);
- };
- Self__0EKH=((__ITM_OPERATOR *)result__SEKH);
- Self__0EKH->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ=p__1EKH;
- Self__0EKH->name__AKL=n__2EKH;
- expr__TGL=result__SEKH;
- add_last__I5U(l_expr__UGL,result__SEKH);
- };
- expr__TGL=read_expr_message__LXL(Self__EBJ);
- if (((void *)expr__TGL == (void *)NULL)) {
- if ((! (((__FAST_ARRAYoITM_CODEo *)result__KAI)->parent_arrayed_collection__JWF.upper__NJL < 0))) {
- pos__5LYG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_239));
- put_position__FRG(pos__5LYG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- free__3XI(result__KAI);
- } else {
- first_msg__YGL=(__INTEGER)(((__FAST_ARRAYoITM_CODEo *)result__KAI)->parent_arrayed_collection__JWF.upper__NJL + 1);
- do {
- last_msg__XGL=(__INTEGER)(((__FAST_ARRAYoITM_CODEo *)l_expr__UGL)->parent_arrayed_collection__JWF.upper__NJL + 1);
- add_last__I5U(l_expr__UGL,expr__TGL);
- if (read_operator__GOM()) {
- do {
- p__LIP=current_position__B0F();
- n__MIP=last_string__D2C;
- result__PTP=NULL;
- ptr__QTP=((__POINTER )(NULL));
- typ_id__VTP= 0;
- sz__STP=((__UINTEGER_32 )sizeof(__ITM_OPERATOR));
- if ((sz__STP == 0)) {
- result__PTP=ITM_OPERATOR__;
- } else {
- typ_id__VTP=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__STP);
- if ((typ_id__VTP == (__INTEGER)(- 1))) {
- a__MFGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__NFGH=(__UINTEGER_32)((__UINTEGER_32)(sz__STP + a__MFGH) & (__UINTEGER_32)(~ a__MFGH));
- ptr_table__IFKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NFGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__HFKH=((__POINTER )(NULL));
- result__JFKH=((__POINTER *)ptr_table__IFKH)[ 0];
- if ((result__JFKH == (void *)NULL)) {
- result__JFKH=new_lab__RTJ(new_size__NFGH);
- next__HFKH=(void *)((unsigned long)result__JFKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NFGH)));
- ((__POINTER *)next__HFKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__IFKH)[ 0]=next__HFKH;
- } else {
- next__HFKH=((__POINTER *)result__JFKH)[ 0];
- if ((next__HFKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JFKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__NFGH << 1)) <= 4096)) {
- next__HFKH=(void *)((unsigned long)result__JFKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NFGH)));
- } else {
- next__HFKH=new_lab__RTJ(new_size__NFGH);
- };
- ((__POINTER *)next__HFKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__IFKH)[ 0]=next__HFKH;
- } else {
- ((__POINTER *)result__JFKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HFKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__JFKH=next__HFKH;
- };
- };
- ptr__QTP=result__JFKH;
- } else {
- t__RFGH=((__UINTEGER_32 )typ_id__VTP);
- a__QFGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__QFKH=(__UINTEGER_32)((__UINTEGER_32)(sz__STP + a__QFGH) & (__UINTEGER_32)(~ a__QFGH));
- ptr_table__NFKH=((__POINTER )(&(table_type[(t__RFGH)])));
- lab_type__PFKH=(__UINTEGER_32)(t__RFGH | 1);
- next__MFKH=((__POINTER )(NULL));
- result__OFKH=((__POINTER *)ptr_table__NFKH)[ 0];
- if ((result__OFKH == (void *)NULL)) {
- result__OFKH=new_lab__RTJ(lab_type__PFKH);
- next__MFKH=(void *)((unsigned long)result__OFKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QFKH)));
- ((__POINTER *)next__MFKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__NFKH)[ 0]=next__MFKH;
- } else {
- next__MFKH=((__POINTER *)result__OFKH)[ 0];
- if ((next__MFKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OFKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__QFKH << 1)) <= 4096)) {
- next__MFKH=(void *)((unsigned long)result__OFKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QFKH)));
- } else {
- next__MFKH=new_lab__RTJ(lab_type__PFKH);
- };
- ((__POINTER *)next__MFKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__NFKH)[ 0]=next__MFKH;
- } else {
- ((__POINTER *)result__OFKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MFKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__OFKH=next__MFKH;
- };
- };
- ptr__QTP=result__OFKH;
- };
- result__PTP=((__ITM_OPERATOR *)ptr__QTP);
- *(result__PTP) = *(ITM_OPERATOR__);
- };
- Self__LNV=((__ITM_OPERATOR *)result__PTP);
- Self__LNV->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ=p__LIP;
- Self__LNV->name__AKL=n__MIP;
- expr__TGL=result__PTP;
- add_last__I5U(l_expr__UGL,result__PTP);
- } while (read_operator__GOM());
- expr__TGL=read_expr_message__LXL(Self__EBJ);
- } else {
- expr__TGL=NULL;
- };
- } while (((void *)expr__TGL != (void *)NULL));
- while ((last_msg__XGL < ((__FAST_ARRAYoITM_CODEo *)l_expr__UGL)->parent_arrayed_collection__JWF.upper__NJL)) {
- __tmp__ZJL=((void **)((__FAST_ARRAYoITM_CODEo *)l_expr__UGL)->parent_arrayed_collection__JWF.storage__4ZT)[(__INTEGER)(last_msg__XGL + 1)];
- if (__tmp__ZJL==NULL) {
- __tmp__0JL=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__ZJL)->__id) {
- case __ITM_LIST__: {
- __tmp__0JL=NULL;
- } break;
- case __ITM_LDOTS__: {
- __tmp__0JL=NULL;
- } break;
- case __ITM_PROTOTYPE__: {
- __tmp__0JL=NULL;
- } break;
- case __ITM_LIST_IDF__: {
- __tmp__0JL=NULL;
- } break;
- case __ITM_WRITE_VALUE__: {
- __tmp__0JL=NULL;
- } break;
- case __ITM_WRITE_CAST__: {
- __tmp__0JL=NULL;
- } break;
- case __ITM_READ__: {
- __tmp__0JL=NULL;
- } break;
- case __ITM_WRITE_CODE__: {
- __tmp__0JL=NULL;
- } break;
- case __ITM_OPERATOR__: {
- __tmp__0JL=((void *)__tmp__ZJL);
- } break;
- case __ITM_READ_ARG1__: {
- __tmp__0JL=NULL;
- } break;
- case __ITM_READ_ARG2__: {
- __tmp__0JL=NULL;
- } break;
- case __ITM_EXPRESSION__: {
- __tmp__0JL=NULL;
- } break;
- case __ITM_OLD__: {
- __tmp__0JL=NULL;
- } break;
- case __ITM_EXTERNAL_TYPE__: {
- __tmp__0JL=NULL;
- } break;
- case __ITM_BLOCK__: {
- __tmp__0JL=NULL;
- } break;
- case __ITM_EXTERNAL__: {
- __tmp__0JL=NULL;
- } break;
- case __ITM_READ_ARGS__: {
- __tmp__0JL=NULL;
- } break;
- case __ITM_REAL__: {
- __tmp__0JL=NULL;
- } break;
- case __ITM_NUMBER__: {
- __tmp__0JL=NULL;
- } break;
- case __ITM_CHARACTER__: {
- __tmp__0JL=NULL;
- } break;
- case __ITM_STRING__: {
- __tmp__0JL=NULL;
- } break;
- case __ITM_RESULT__: {
- __tmp__0JL=NULL;
- } break;
- }
- };
- itm_op__WGL=__tmp__0JL;
- __tmp__3JL=((__ITM_OPERATOR *)__tmp__0JL)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
- operator__name__ZEO((&__string_82),((__ITM_OPERATOR *)__tmp__0JL)->name__AKL);
- result__RFKH=NULL;
- ptr__SFKH=((__POINTER )(NULL));
- typ_id__TFKH= 0;
- sz__UFKH=((__UINTEGER_32 )sizeof(__ITM_READ_ARG1));
- if ((sz__UFKH == 0)) {
- result__RFKH=ITM_READ_ARG1__;
- } else {
- typ_id__TFKH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__UFKH);
- if ((typ_id__TFKH == (__INTEGER)(- 1))) {
- a__VFKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__WFKH=(__UINTEGER_32)((__UINTEGER_32)(sz__UFKH + a__VFKH) & (__UINTEGER_32)(~ a__VFKH));
- ptr_table__1FKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WFKH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__0FKH=((__POINTER )(NULL));
- result__2FKH=((__POINTER *)ptr_table__1FKH)[ 0];
- if ((result__2FKH == (void *)NULL)) {
- result__2FKH=new_lab__RTJ(new_size__WFKH);
- next__0FKH=(void *)((unsigned long)result__2FKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WFKH)));
- ((__POINTER *)next__0FKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__1FKH)[ 0]=next__0FKH;
- } else {
- next__0FKH=((__POINTER *)result__2FKH)[ 0];
- if ((next__0FKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2FKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__WFKH << 1)) <= 4096)) {
- next__0FKH=(void *)((unsigned long)result__2FKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WFKH)));
- } else {
- next__0FKH=new_lab__RTJ(new_size__WFKH);
- };
- ((__POINTER *)next__0FKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__1FKH)[ 0]=next__0FKH;
- } else {
- ((__POINTER *)result__2FKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0FKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__2FKH=next__0FKH;
- };
- };
- ptr__SFKH=result__2FKH;
- } else {
- t__XFKH=((__UINTEGER_32 )typ_id__TFKH);
- a__YFKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__DGKH=(__UINTEGER_32)((__UINTEGER_32)(sz__UFKH + a__YFKH) & (__UINTEGER_32)(~ a__YFKH));
- ptr_table__AGKH=((__POINTER )(&(table_type[(t__XFKH)])));
- lab_type__CGKH=(__UINTEGER_32)(t__XFKH | 1);
- next__5FKH=((__POINTER )(NULL));
- result__BGKH=((__POINTER *)ptr_table__AGKH)[ 0];
- if ((result__BGKH == (void *)NULL)) {
- result__BGKH=new_lab__RTJ(lab_type__CGKH);
- next__5FKH=(void *)((unsigned long)result__BGKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DGKH)));
- ((__POINTER *)next__5FKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__AGKH)[ 0]=next__5FKH;
- } else {
- next__5FKH=((__POINTER *)result__BGKH)[ 0];
- if ((next__5FKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BGKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__DGKH << 1)) <= 4096)) {
- next__5FKH=(void *)((unsigned long)result__BGKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DGKH)));
- } else {
- next__5FKH=new_lab__RTJ(lab_type__CGKH);
- };
- ((__POINTER *)next__5FKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__AGKH)[ 0]=next__5FKH;
- } else {
- ((__POINTER *)result__BGKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5FKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__BGKH=next__5FKH;
- };
- };
- ptr__SFKH=result__BGKH;
- };
- result__RFKH=((__ITM_READ_ARG1 *)ptr__SFKH);
- *(result__RFKH) = *(ITM_READ_ARG1__);
- };
- ((__ITM_READ_ARG1 *)result__RFKH)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ=__tmp__3JL;
- expr__TGL=result__RFKH;
- ((void **)((__FAST_ARRAYoITM_CODEo *)l_expr__UGL)->parent_arrayed_collection__JWF.storage__4ZT)[last_msg__XGL]=result__RFKH;
- Self__12LH=((__FAST_ARRAYoITM_CODEo *)l_expr__UGL);
- index__52LH=(__INTEGER)(last_msg__XGL + 1);
- __tmp__22LH=Self__12LH->parent_arrayed_collection__JWF.storage__4ZT;
- __tmp__32LH=Self__12LH->parent_arrayed_collection__JWF.upper__NJL;
- Self__42LH=((void **)__tmp__22LH);
- i__A3LH=index__52LH;
- while ((i__A3LH != __tmp__32LH)) {
- Self__42LH[i__A3LH]=Self__42LH[(__INTEGER)(i__A3LH + 1)];
- i__A3LH=(__INTEGER)(i__A3LH + 1);
- };
- Self__12LH->parent_arrayed_collection__JWF.upper__NJL=(__INTEGER)(Self__12LH->parent_arrayed_collection__JWF.upper__NJL - 1);
- };
- if (((__INTEGER)(last_msg__XGL - first_msg__YGL) < 3)) {
- while ((first_msg__YGL != 0)) {
- __tmp__ALL=((void **)((__FAST_ARRAYoITM_CODEo *)l_expr__UGL)->parent_arrayed_collection__JWF.storage__4ZT)[(__INTEGER)(first_msg__YGL - 1)];
- if (__tmp__ALL==NULL) {
- __tmp__BLL=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__ALL)->__id) {
- case __ITM_LIST__: {
- __tmp__BLL=NULL;
- } break;
- case __ITM_LDOTS__: {
- __tmp__BLL=NULL;
- } break;
- case __ITM_PROTOTYPE__: {
- __tmp__BLL=NULL;
- } break;
- case __ITM_LIST_IDF__: {
- __tmp__BLL=NULL;
- } break;
- case __ITM_WRITE_VALUE__: {
- __tmp__BLL=NULL;
- } break;
- case __ITM_WRITE_CAST__: {
- __tmp__BLL=NULL;
- } break;
- case __ITM_READ__: {
- __tmp__BLL=NULL;
- } break;
- case __ITM_WRITE_CODE__: {
- __tmp__BLL=NULL;
- } break;
- case __ITM_OPERATOR__: {
- __tmp__BLL=((void *)__tmp__ALL);
- } break;
- case __ITM_READ_ARG1__: {
- __tmp__BLL=NULL;
- } break;
- case __ITM_READ_ARG2__: {
- __tmp__BLL=NULL;
- } break;
- case __ITM_EXPRESSION__: {
- __tmp__BLL=NULL;
- } break;
- case __ITM_OLD__: {
- __tmp__BLL=NULL;
- } break;
- case __ITM_EXTERNAL_TYPE__: {
- __tmp__BLL=NULL;
- } break;
- case __ITM_BLOCK__: {
- __tmp__BLL=NULL;
- } break;
- case __ITM_EXTERNAL__: {
- __tmp__BLL=NULL;
- } break;
- case __ITM_READ_ARGS__: {
- __tmp__BLL=NULL;
- } break;
- case __ITM_REAL__: {
- __tmp__BLL=NULL;
- } break;
- case __ITM_NUMBER__: {
- __tmp__BLL=NULL;
- } break;
- case __ITM_CHARACTER__: {
- __tmp__BLL=NULL;
- } break;
- case __ITM_STRING__: {
- __tmp__BLL=NULL;
- } break;
- case __ITM_RESULT__: {
- __tmp__BLL=NULL;
- } break;
- }
- };
- itm_op__WGL=__tmp__BLL;
- __tmp__DLL=((__ITM_OPERATOR *)__tmp__BLL)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
- operator__name__ZEO((&__string_83),((__ITM_OPERATOR *)__tmp__BLL)->name__AKL);
- result__EGKH=NULL;
- ptr__FGKH=((__POINTER )(NULL));
- typ_id__GGKH= 0;
- sz__HGKH=((__UINTEGER_32 )sizeof(__ITM_READ_ARG1));
- if ((sz__HGKH == 0)) {
- result__EGKH=ITM_READ_ARG1__;
- } else {
- typ_id__GGKH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__HGKH);
- if ((typ_id__GGKH == (__INTEGER)(- 1))) {
- a__IGKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__JGKH=(__UINTEGER_32)((__UINTEGER_32)(sz__HGKH + a__IGKH) & (__UINTEGER_32)(~ a__IGKH));
- ptr_table__OGKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__JGKH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__NGKH=((__POINTER )(NULL));
- result__PGKH=((__POINTER *)ptr_table__OGKH)[ 0];
- if ((result__PGKH == (void *)NULL)) {
- result__PGKH=new_lab__RTJ(new_size__JGKH);
- next__NGKH=(void *)((unsigned long)result__PGKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JGKH)));
- ((__POINTER *)next__NGKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__OGKH)[ 0]=next__NGKH;
- } else {
- next__NGKH=((__POINTER *)result__PGKH)[ 0];
- if ((next__NGKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PGKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__JGKH << 1)) <= 4096)) {
- next__NGKH=(void *)((unsigned long)result__PGKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JGKH)));
- } else {
- next__NGKH=new_lab__RTJ(new_size__JGKH);
- };
- ((__POINTER *)next__NGKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__OGKH)[ 0]=next__NGKH;
- } else {
- ((__POINTER *)result__PGKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NGKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__PGKH=next__NGKH;
- };
- };
- ptr__FGKH=result__PGKH;
- } else {
- t__KGKH=((__UINTEGER_32 )typ_id__GGKH);
- a__LGKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__WGKH=(__UINTEGER_32)((__UINTEGER_32)(sz__HGKH + a__LGKH) & (__UINTEGER_32)(~ a__LGKH));
- ptr_table__TGKH=((__POINTER )(&(table_type[(t__KGKH)])));
- lab_type__VGKH=(__UINTEGER_32)(t__KGKH | 1);
- next__SGKH=((__POINTER )(NULL));
- result__UGKH=((__POINTER *)ptr_table__TGKH)[ 0];
- if ((result__UGKH == (void *)NULL)) {
- result__UGKH=new_lab__RTJ(lab_type__VGKH);
- next__SGKH=(void *)((unsigned long)result__UGKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WGKH)));
- ((__POINTER *)next__SGKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__TGKH)[ 0]=next__SGKH;
- } else {
- next__SGKH=((__POINTER *)result__UGKH)[ 0];
- if ((next__SGKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UGKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__WGKH << 1)) <= 4096)) {
- next__SGKH=(void *)((unsigned long)result__UGKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WGKH)));
- } else {
- next__SGKH=new_lab__RTJ(lab_type__VGKH);
- };
- ((__POINTER *)next__SGKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__TGKH)[ 0]=next__SGKH;
- } else {
- ((__POINTER *)result__UGKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__SGKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__UGKH=next__SGKH;
- };
- };
- ptr__FGKH=result__UGKH;
- };
- result__EGKH=((__ITM_READ_ARG1 *)ptr__FGKH);
- *(result__EGKH) = *(ITM_READ_ARG1__);
- };
- ((__ITM_READ_ARG1 *)result__EGKH)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ=__tmp__DLL;
- expr__TGL=result__EGKH;
- ((void **)((__FAST_ARRAYoITM_CODEo *)l_expr__UGL)->parent_arrayed_collection__JWF.storage__4ZT)[first_msg__YGL]=result__EGKH;
- first_msg__YGL=(__INTEGER)(first_msg__YGL - 1);
- Self__YF1C=((__FAST_ARRAYoITM_CODEo *)l_expr__UGL);
- __tmp__BG1C=Self__YF1C->parent_arrayed_collection__JWF.storage__4ZT;
- __tmp__CG1C=Self__YF1C->parent_arrayed_collection__JWF.upper__NJL;
- Self__5ICD=((void **)__tmp__BG1C);
- i__QJCD=first_msg__YGL;
- while ((i__QJCD != __tmp__CG1C)) {
- Self__5ICD[i__QJCD]=Self__5ICD[(__INTEGER)(i__QJCD + 1)];
- i__QJCD=(__INTEGER)(i__QJCD + 1);
- };
- Self__YF1C->parent_arrayed_collection__JWF.upper__NJL=(__INTEGER)(Self__YF1C->parent_arrayed_collection__JWF.upper__NJL - 1);
- };
- };
- if (((__INTEGER)(((__FAST_ARRAYoITM_CODEo *)result__KAI)->parent_arrayed_collection__JWF.upper__NJL + 1) == 1)) {
- result__SGL=((void **)((__FAST_ARRAYoITM_CODEo *)result__KAI)->parent_arrayed_collection__JWF.storage__4ZT)[ 0];
- free__3XI(result__KAI);
- __tmp__ZLL=TRUE__;
- } else {
- __tmp__ZLL=FALSE__;
- };
- if ((! __tmp__ZLL)) {
- if (((__INTEGER)(((__FAST_ARRAYoITM_CODEo *)result__KAI)->parent_arrayed_collection__JWF.upper__NJL + 1) == 3)) {
- __tmp__GML=((void **)((__FAST_ARRAYoITM_CODEo *)result__KAI)->parent_arrayed_collection__JWF.storage__4ZT)[ 1];
- if (__tmp__GML==NULL) {
- __tmp__HML=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__GML)->__id) {
- case __ITM_LIST__: {
- __tmp__HML=NULL;
- } break;
- case __ITM_LDOTS__: {
- __tmp__HML=NULL;
- } break;
- case __ITM_PROTOTYPE__: {
- __tmp__HML=NULL;
- } break;
- case __ITM_LIST_IDF__: {
- __tmp__HML=NULL;
- } break;
- case __ITM_WRITE_VALUE__: {
- __tmp__HML=NULL;
- } break;
- case __ITM_WRITE_CAST__: {
- __tmp__HML=NULL;
- } break;
- case __ITM_READ__: {
- __tmp__HML=NULL;
- } break;
- case __ITM_WRITE_CODE__: {
- __tmp__HML=NULL;
- } break;
- case __ITM_OPERATOR__: {
- __tmp__HML=((void *)__tmp__GML);
- } break;
- case __ITM_READ_ARG1__: {
- __tmp__HML=NULL;
- } break;
- case __ITM_READ_ARG2__: {
- __tmp__HML=NULL;
- } break;
- case __ITM_EXPRESSION__: {
- __tmp__HML=NULL;
- } break;
- case __ITM_OLD__: {
- __tmp__HML=NULL;
- } break;
- case __ITM_EXTERNAL_TYPE__: {
- __tmp__HML=NULL;
- } break;
- case __ITM_BLOCK__: {
- __tmp__HML=NULL;
- } break;
- case __ITM_EXTERNAL__: {
- __tmp__HML=NULL;
- } break;
- case __ITM_READ_ARGS__: {
- __tmp__HML=NULL;
- } break;
- case __ITM_REAL__: {
- __tmp__HML=NULL;
- } break;
- case __ITM_NUMBER__: {
- __tmp__HML=NULL;
- } break;
- case __ITM_CHARACTER__: {
- __tmp__HML=NULL;
- } break;
- case __ITM_STRING__: {
- __tmp__HML=NULL;
- } break;
- case __ITM_RESULT__: {
- __tmp__HML=NULL;
- } break;
- }
- };
- itm_op__WGL=__tmp__HML;
- __tmp__KML=((__ITM_OPERATOR *)__tmp__HML)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
- operator__name__ZEO((&__string_81),((__ITM_OPERATOR *)__tmp__HML)->name__AKL);
- result__DYO=NULL;
- ptr__EYO=((__POINTER )(NULL));
- typ_id__JYO= 0;
- sz__GYO=((__UINTEGER_32 )sizeof(__ITM_READ_ARG2));
- if ((sz__GYO == 0)) {
- result__DYO=ITM_READ_ARG2__;
- } else {
- typ_id__JYO=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__GYO);
- if ((typ_id__JYO == (__INTEGER)(- 1))) {
- a__FGGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__GGGH=(__UINTEGER_32)((__UINTEGER_32)(sz__GYO + a__FGGH) & (__UINTEGER_32)(~ a__FGGH));
- ptr_table__YGKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GGGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__XGKH=((__POINTER )(NULL));
- result__ZGKH=((__POINTER *)ptr_table__YGKH)[ 0];
- if ((result__ZGKH == (void *)NULL)) {
- result__ZGKH=new_lab__RTJ(new_size__GGGH);
- next__XGKH=(void *)((unsigned long)result__ZGKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GGGH)));
- ((__POINTER *)next__XGKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__YGKH)[ 0]=next__XGKH;
- } else {
- next__XGKH=((__POINTER *)result__ZGKH)[ 0];
- if ((next__XGKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZGKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__GGGH << 1)) <= 4096)) {
- next__XGKH=(void *)((unsigned long)result__ZGKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GGGH)));
- } else {
- next__XGKH=new_lab__RTJ(new_size__GGGH);
- };
- ((__POINTER *)next__XGKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__YGKH)[ 0]=next__XGKH;
- } else {
- ((__POINTER *)result__ZGKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XGKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__ZGKH=next__XGKH;
- };
- };
- ptr__EYO=result__ZGKH;
- } else {
- t__KGGH=((__UINTEGER_32 )typ_id__JYO);
- a__JGGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__AHKH=(__UINTEGER_32)((__UINTEGER_32)(sz__GYO + a__JGGH) & (__UINTEGER_32)(~ a__JGGH));
- ptr_table__3GKH=((__POINTER )(&(table_type[(t__KGGH)])));
- lab_type__5GKH=(__UINTEGER_32)(t__KGGH | 1);
- next__2GKH=((__POINTER )(NULL));
- result__4GKH=((__POINTER *)ptr_table__3GKH)[ 0];
- if ((result__4GKH == (void *)NULL)) {
- result__4GKH=new_lab__RTJ(lab_type__5GKH);
- next__2GKH=(void *)((unsigned long)result__4GKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AHKH)));
- ((__POINTER *)next__2GKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__3GKH)[ 0]=next__2GKH;
- } else {
- next__2GKH=((__POINTER *)result__4GKH)[ 0];
- if ((next__2GKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4GKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__AHKH << 1)) <= 4096)) {
- next__2GKH=(void *)((unsigned long)result__4GKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AHKH)));
- } else {
- next__2GKH=new_lab__RTJ(lab_type__5GKH);
- };
- ((__POINTER *)next__2GKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__3GKH)[ 0]=next__2GKH;
- } else {
- ((__POINTER *)result__4GKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2GKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__4GKH=next__2GKH;
- };
- };
- ptr__EYO=result__4GKH;
- };
- result__DYO=((__ITM_READ_ARG2 *)ptr__EYO);
- *(result__DYO) = *(ITM_READ_ARG2__);
- };
- ((__ITM_READ_ARG2 *)result__DYO)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ=__tmp__KML;
- result__SGL=result__DYO;
- free__3XI(result__KAI);
- } else {
- l_expr__UGL=copy__5BI(result__KAI);
- result__WZO=NULL;
- ptr__XZO=((__POINTER )(NULL));
- typ_id__2ZO= 0;
- sz__ZZO=((__UINTEGER_32 )sizeof(__ITM_EXPRESSION));
- if ((sz__ZZO == 0)) {
- result__WZO=ITM_EXPRESSION__;
- } else {
- typ_id__2ZO=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__ZZO);
- if ((typ_id__2ZO == (__INTEGER)(- 1))) {
- a__QYFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__RYFH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZZO + a__QYFH) & (__UINTEGER_32)(~ a__QYFH));
- ptr_table__CHKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__RYFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__BHKH=((__POINTER )(NULL));
- result__DHKH=((__POINTER *)ptr_table__CHKH)[ 0];
- if ((result__DHKH == (void *)NULL)) {
- result__DHKH=new_lab__RTJ(new_size__RYFH);
- next__BHKH=(void *)((unsigned long)result__DHKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RYFH)));
- ((__POINTER *)next__BHKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__CHKH)[ 0]=next__BHKH;
- } else {
- next__BHKH=((__POINTER *)result__DHKH)[ 0];
- if ((next__BHKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DHKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__RYFH << 1)) <= 4096)) {
- next__BHKH=(void *)((unsigned long)result__DHKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RYFH)));
- } else {
- next__BHKH=new_lab__RTJ(new_size__RYFH);
- };
- ((__POINTER *)next__BHKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__CHKH)[ 0]=next__BHKH;
- } else {
- ((__POINTER *)result__DHKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BHKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__DHKH=next__BHKH;
- };
- };
- ptr__XZO=result__DHKH;
- } else {
- t__VYFH=((__UINTEGER_32 )typ_id__2ZO);
- a__UYFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__KHKH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZZO + a__UYFH) & (__UINTEGER_32)(~ a__UYFH));
- ptr_table__HHKH=((__POINTER )(&(table_type[(t__VYFH)])));
- lab_type__JHKH=(__UINTEGER_32)(t__VYFH | 1);
- next__GHKH=((__POINTER )(NULL));
- result__IHKH=((__POINTER *)ptr_table__HHKH)[ 0];
- if ((result__IHKH == (void *)NULL)) {
- result__IHKH=new_lab__RTJ(lab_type__JHKH);
- next__GHKH=(void *)((unsigned long)result__IHKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KHKH)));
- ((__POINTER *)next__GHKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__HHKH)[ 0]=next__GHKH;
- } else {
- next__GHKH=((__POINTER *)result__IHKH)[ 0];
- if ((next__GHKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IHKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__KHKH << 1)) <= 4096)) {
- next__GHKH=(void *)((unsigned long)result__IHKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KHKH)));
- } else {
- next__GHKH=new_lab__RTJ(lab_type__JHKH);
- };
- ((__POINTER *)next__GHKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__HHKH)[ 0]=next__GHKH;
- } else {
- ((__POINTER *)result__IHKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GHKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__IHKH=next__GHKH;
- };
- };
- ptr__XZO=result__IHKH;
- };
- result__WZO=((__ITM_EXPRESSION *)ptr__XZO);
- *(result__WZO) = *(ITM_EXPRESSION__);
- };
- ((__ITM_EXPRESSION *)result__WZO)->value_list__PJV=l_expr__UGL;
- result__SGL=result__WZO;
- };
- };
- };
- result__GBJ=result__SGL;
- };
- return(result__GBJ);
-}
-
-static void set_value__type__DFHC(__ITM_SLOT *Self__EFHC,void *e__FFHC,void *p__GFHC)
-// ({ITM_SLOT},{NULLxITM_LISTxITM_LDOTSxITM_PROTOTYPExITM_LIST_IDFxITM_WRITE_VALUExITM_WRITE_CASTxITM_READxITM_WRITE_CODExITM_OPERATORxITM_READ_ARG1xITM_READ_ARG2xITM_EXPRESSIONxITM_OLDxITM_EXTERNAL_TYPExITM_BLOCKxITM_EXTERNALxITM_READ_ARGSxITM_REALxITM_NUMBERxITM_CHARACTERxITM_STRINGxITM_RESULT},{NULLxPROTOTYPE}) VoidRecursive, No inlinable.
-{
- void *n__WDBD;
- void *sec__XDBD;
- __POSITION __tmp__DEBD,__tmp__LEBD,__tmp__5EBD,__tmp__IFBD;
- __ITM_ARG *result__35HH,*Self__FAIH;
- __POINTER ptr__45HH,ptr_table__MHKH,next__LHKH,result__NHKH;
- __POINTER ptr_table__RHKH,next__QHKH,result__SHKH,ptr__YQAC;
- __POINTER ptr_table__WHKH,next__VHKH,result__XHKH,ptr_table__1HKH;
- __POINTER next__0HKH,result__2HKH,ptr__OWI,ptr_table__AIKH,next__5HKH;
- __POINTER result__BIKH,ptr_table__FIKH,next__EIKH,result__GIKH;
- __POINTER ptr__1GCD,ptr_table__KIKH,next__JIKH,result__LIKH;
- __POINTER ptr_table__PIKH,next__OIKH,result__QIKH;
- __INTEGER typ_id__55HH,typ_id__3QAC,typ_id__TWI,typ_id__AHCD;
- __UINTEGER_32 sz__AAIH,a__BAIH,new_size__CAIH,t__DAIH,a__EAIH;
- __UINTEGER_32 new_size__UHKH,lab_type__THKH,sz__0QAC,a__YYFH;
- __UINTEGER_32 new_size__ZYFH,t__3YFH,a__2YFH,new_size__4HKH;
- __UINTEGER_32 lab_type__3HKH,sz__QWI,a__UZFH,new_size__VZFH,t__ZZFH;
- __UINTEGER_32 a__YZFH,new_size__IIKH,lab_type__HIKH,sz__3GCD,a__2ZFH;
- __UINTEGER_32 new_size__3ZFH,t__B0FH,a__A0FH,new_size__SIKH;
- __UINTEGER_32 lab_type__RIKH;
- __ITM_SLOT *result__XQAC,*Self__C2HC;
- __ITM_PROTOTYPE *result__NWI;
- __ITM_READ_ARG1 *result__0GCD;
- void *larg__YDBD;
- if ((Self__EFHC->affect__P5FC != '<')) {
- copy__VDS(string_tmp__VH,(&__string_240));
- append__3OS(string_tmp__VH,Self__EFHC->parent_named__15.name__LI);
- n__WDBD=get__YWB(string_tmp__VH);
- sec__XDBD=get_name__TROB((&__string_27));
- larg__YDBD=create_with_capacity__LJ5B( 1);
- switch (((struct ___OBJ *)e__FFHC)->__id) {
- case __ITM_LIST__: {
- __tmp__DEBD=((__ITM_LIST *)e__FFHC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_LDOTS__: {
- __tmp__DEBD=((__ITM_LDOTS *)e__FFHC)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_PROTOTYPE__: {
- __tmp__DEBD=((__ITM_PROTOTYPE *)e__FFHC)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_LIST_IDF__: {
- __tmp__DEBD=((__ITM_LIST_IDF *)e__FFHC)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_VALUE__: {
- __tmp__DEBD=((__ITM_WRITE_VALUE *)e__FFHC)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_CAST__: {
- __tmp__DEBD=((__ITM_WRITE_CAST *)e__FFHC)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ__: {
- __tmp__DEBD=((__ITM_READ *)e__FFHC)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_CODE__: {
- __tmp__DEBD=((__ITM_WRITE_CODE *)e__FFHC)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_OPERATOR__: {
- __tmp__DEBD=((__ITM_OPERATOR *)e__FFHC)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARG1__: {
- __tmp__DEBD=((__ITM_READ_ARG1 *)e__FFHC)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARG2__: {
- __tmp__DEBD=((__ITM_READ_ARG2 *)e__FFHC)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXPRESSION__: {
- __tmp__DEBD=position__5A5B(e__FFHC);
- } break;
- case __ITM_OLD__: {
- __tmp__DEBD=((__ITM_OLD *)e__FFHC)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXTERNAL_TYPE__: {
- __tmp__DEBD=((__ITM_EXTERNAL_TYPE *)e__FFHC)->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_BLOCK__: {
- __tmp__DEBD=((__ITM_LIST *)((__ITM_BLOCK *)e__FFHC)->list__KMDC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXTERNAL__: {
- __tmp__DEBD=((__ITM_EXTERNAL *)e__FFHC)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARGS__: {
- __tmp__DEBD=((__ITM_READ_ARGS *)e__FFHC)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_REAL__: {
- __tmp__DEBD=((__ITM_REAL *)e__FFHC)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_NUMBER__: {
- __tmp__DEBD=((__ITM_NUMBER *)e__FFHC)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_CHARACTER__: {
- __tmp__DEBD=((__ITM_CHARACTER *)e__FFHC)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_STRING__: {
- __tmp__DEBD=((__ITM_STRING *)e__FFHC)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_RESULT__: {
- __tmp__DEBD=position__PIHC(e__FFHC);
- } break;
- };
- result__35HH=NULL;
- ptr__45HH=((__POINTER )(NULL));
- typ_id__55HH= 0;
- sz__AAIH=((__UINTEGER_32 )sizeof(__ITM_ARG));
- if ((sz__AAIH == 0)) {
- result__35HH=ITM_ARG__;
- } else {
- typ_id__55HH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__AAIH);
- if ((typ_id__55HH == (__INTEGER)(- 1))) {
- a__BAIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__CAIH=(__UINTEGER_32)((__UINTEGER_32)(sz__AAIH + a__BAIH) & (__UINTEGER_32)(~ a__BAIH));
- ptr_table__MHKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CAIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__LHKH=((__POINTER )(NULL));
- result__NHKH=((__POINTER *)ptr_table__MHKH)[ 0];
- if ((result__NHKH == (void *)NULL)) {
- result__NHKH=new_lab__RTJ(new_size__CAIH);
- next__LHKH=(void *)((unsigned long)result__NHKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CAIH)));
- ((__POINTER *)next__LHKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__MHKH)[ 0]=next__LHKH;
- } else {
- next__LHKH=((__POINTER *)result__NHKH)[ 0];
- if ((next__LHKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NHKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__CAIH << 1)) <= 4096)) {
- next__LHKH=(void *)((unsigned long)result__NHKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CAIH)));
- } else {
- next__LHKH=new_lab__RTJ(new_size__CAIH);
- };
- ((__POINTER *)next__LHKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__MHKH)[ 0]=next__LHKH;
- } else {
- ((__POINTER *)result__NHKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LHKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__NHKH=next__LHKH;
- };
- };
- ptr__45HH=result__NHKH;
- } else {
- t__DAIH=((__UINTEGER_32 )typ_id__55HH);
- a__EAIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__UHKH=(__UINTEGER_32)((__UINTEGER_32)(sz__AAIH + a__EAIH) & (__UINTEGER_32)(~ a__EAIH));
- ptr_table__RHKH=((__POINTER )(&(table_type[(t__DAIH)])));
- lab_type__THKH=(__UINTEGER_32)(t__DAIH | 1);
- next__QHKH=((__POINTER )(NULL));
- result__SHKH=((__POINTER *)ptr_table__RHKH)[ 0];
- if ((result__SHKH == (void *)NULL)) {
- result__SHKH=new_lab__RTJ(lab_type__THKH);
- next__QHKH=(void *)((unsigned long)result__SHKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UHKH)));
- ((__POINTER *)next__QHKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__RHKH)[ 0]=next__QHKH;
- } else {
- next__QHKH=((__POINTER *)result__SHKH)[ 0];
- if ((next__QHKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SHKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__UHKH << 1)) <= 4096)) {
- next__QHKH=(void *)((unsigned long)result__SHKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UHKH)));
- } else {
- next__QHKH=new_lab__RTJ(lab_type__THKH);
- };
- ((__POINTER *)next__QHKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__RHKH)[ 0]=next__QHKH;
- } else {
- ((__POINTER *)result__SHKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QHKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__SHKH=next__QHKH;
- };
- };
- ptr__45HH=result__SHKH;
- };
- result__35HH=((__ITM_ARG *)ptr__45HH);
- *(result__35HH) = *(ITM_ARG__);
- };
- Self__FAIH=((__ITM_ARG *)result__35HH);
- Self__FAIH->parent_itm_argument__SEHB.parent_itm_code__O5M.position__SFJ=__tmp__DEBD;
- Self__FAIH->name__F0HC=(&__string_58);
- Self__FAIH->type__G0HC=type_self__DVN;
- add_last__E5GC(larg__YDBD,result__35HH);
- switch (((struct ___OBJ *)e__FFHC)->__id) {
- case __ITM_LIST__: {
- __tmp__LEBD=((__ITM_LIST *)e__FFHC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_LDOTS__: {
- __tmp__LEBD=((__ITM_LDOTS *)e__FFHC)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_PROTOTYPE__: {
- __tmp__LEBD=((__ITM_PROTOTYPE *)e__FFHC)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_LIST_IDF__: {
- __tmp__LEBD=((__ITM_LIST_IDF *)e__FFHC)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_VALUE__: {
- __tmp__LEBD=((__ITM_WRITE_VALUE *)e__FFHC)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_CAST__: {
- __tmp__LEBD=((__ITM_WRITE_CAST *)e__FFHC)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ__: {
- __tmp__LEBD=((__ITM_READ *)e__FFHC)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_CODE__: {
- __tmp__LEBD=((__ITM_WRITE_CODE *)e__FFHC)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_OPERATOR__: {
- __tmp__LEBD=((__ITM_OPERATOR *)e__FFHC)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARG1__: {
- __tmp__LEBD=((__ITM_READ_ARG1 *)e__FFHC)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARG2__: {
- __tmp__LEBD=((__ITM_READ_ARG2 *)e__FFHC)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXPRESSION__: {
- __tmp__LEBD=position__5A5B(e__FFHC);
- } break;
- case __ITM_OLD__: {
- __tmp__LEBD=((__ITM_OLD *)e__FFHC)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXTERNAL_TYPE__: {
- __tmp__LEBD=((__ITM_EXTERNAL_TYPE *)e__FFHC)->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_BLOCK__: {
- __tmp__LEBD=((__ITM_LIST *)((__ITM_BLOCK *)e__FFHC)->list__KMDC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXTERNAL__: {
- __tmp__LEBD=((__ITM_EXTERNAL *)e__FFHC)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARGS__: {
- __tmp__LEBD=((__ITM_READ_ARGS *)e__FFHC)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_REAL__: {
- __tmp__LEBD=((__ITM_REAL *)e__FFHC)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_NUMBER__: {
- __tmp__LEBD=((__ITM_NUMBER *)e__FFHC)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_CHARACTER__: {
- __tmp__LEBD=((__ITM_CHARACTER *)e__FFHC)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_STRING__: {
- __tmp__LEBD=((__ITM_STRING *)e__FFHC)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_RESULT__: {
- __tmp__LEBD=position__PIHC(e__FFHC);
- } break;
- };
- result__XQAC=NULL;
- ptr__YQAC=((__POINTER )(NULL));
- typ_id__3QAC= 0;
- sz__0QAC=((__UINTEGER_32 )sizeof(__ITM_SLOT));
- if ((sz__0QAC == 0)) {
- result__XQAC=ITM_SLOT__;
- } else {
- typ_id__3QAC=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__0QAC);
- if ((typ_id__3QAC == (__INTEGER)(- 1))) {
- a__YYFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ZYFH=(__UINTEGER_32)((__UINTEGER_32)(sz__0QAC + a__YYFH) & (__UINTEGER_32)(~ a__YYFH));
- ptr_table__WHKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ZYFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__VHKH=((__POINTER )(NULL));
- result__XHKH=((__POINTER *)ptr_table__WHKH)[ 0];
- if ((result__XHKH == (void *)NULL)) {
- result__XHKH=new_lab__RTJ(new_size__ZYFH);
- next__VHKH=(void *)((unsigned long)result__XHKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZYFH)));
- ((__POINTER *)next__VHKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__WHKH)[ 0]=next__VHKH;
- } else {
- next__VHKH=((__POINTER *)result__XHKH)[ 0];
- if ((next__VHKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XHKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__ZYFH << 1)) <= 4096)) {
- next__VHKH=(void *)((unsigned long)result__XHKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZYFH)));
- } else {
- next__VHKH=new_lab__RTJ(new_size__ZYFH);
- };
- ((__POINTER *)next__VHKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__WHKH)[ 0]=next__VHKH;
- } else {
- ((__POINTER *)result__XHKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VHKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__XHKH=next__VHKH;
- };
- };
- ptr__YQAC=result__XHKH;
- } else {
- t__3YFH=((__UINTEGER_32 )typ_id__3QAC);
- a__2YFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__4HKH=(__UINTEGER_32)((__UINTEGER_32)(sz__0QAC + a__2YFH) & (__UINTEGER_32)(~ a__2YFH));
- ptr_table__1HKH=((__POINTER )(&(table_type[(t__3YFH)])));
- lab_type__3HKH=(__UINTEGER_32)(t__3YFH | 1);
- next__0HKH=((__POINTER )(NULL));
- result__2HKH=((__POINTER *)ptr_table__1HKH)[ 0];
- if ((result__2HKH == (void *)NULL)) {
- result__2HKH=new_lab__RTJ(lab_type__3HKH);
- next__0HKH=(void *)((unsigned long)result__2HKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4HKH)));
- ((__POINTER *)next__0HKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__1HKH)[ 0]=next__0HKH;
- } else {
- next__0HKH=((__POINTER *)result__2HKH)[ 0];
- if ((next__0HKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2HKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__4HKH << 1)) <= 4096)) {
- next__0HKH=(void *)((unsigned long)result__2HKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4HKH)));
- } else {
- next__0HKH=new_lab__RTJ(lab_type__3HKH);
- };
- ((__POINTER *)next__0HKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__1HKH)[ 0]=next__0HKH;
- } else {
- ((__POINTER *)result__2HKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0HKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__2HKH=next__0HKH;
- };
- };
- ptr__YQAC=result__2HKH;
- };
- result__XQAC=((__ITM_SLOT *)ptr__YQAC);
- *(result__XQAC) = *(ITM_SLOT__);
- };
- Self__C2HC=((__ITM_SLOT *)result__XQAC);
- Self__C2HC->parent_named__15.name__LI=n__WDBD;
- Self__C2HC->parent_named__15.parent_itm_object__4.position__SFJ=__tmp__LEBD;
- Self__C2HC->id_section__T3C=sec__XDBD;
- ((__ITM_SLOT *)result__XQAC)->affect__P5FC='<';
- set_value__type__DFHC(result__XQAC,e__FFHC,p__GFHC);
- set_argument_list__5BHC(result__XQAC,larg__YDBD);
- set_result_type__W2FC(result__XQAC,Self__EFHC->result_type__A4FC);
- fast_put__to__LNGC(((__PROTOTYPE *)p__GFHC)->slot_list__YVS,result__XQAC,result__XQAC->parent_named__15.name__LI);
- switch (((struct ___OBJ *)e__FFHC)->__id) {
- case __ITM_LIST__: {
- __tmp__5EBD=((__ITM_LIST *)e__FFHC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_LDOTS__: {
- __tmp__5EBD=((__ITM_LDOTS *)e__FFHC)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_PROTOTYPE__: {
- __tmp__5EBD=((__ITM_PROTOTYPE *)e__FFHC)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_LIST_IDF__: {
- __tmp__5EBD=((__ITM_LIST_IDF *)e__FFHC)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_VALUE__: {
- __tmp__5EBD=((__ITM_WRITE_VALUE *)e__FFHC)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_CAST__: {
- __tmp__5EBD=((__ITM_WRITE_CAST *)e__FFHC)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ__: {
- __tmp__5EBD=((__ITM_READ *)e__FFHC)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_CODE__: {
- __tmp__5EBD=((__ITM_WRITE_CODE *)e__FFHC)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_OPERATOR__: {
- __tmp__5EBD=((__ITM_OPERATOR *)e__FFHC)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARG1__: {
- __tmp__5EBD=((__ITM_READ_ARG1 *)e__FFHC)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARG2__: {
- __tmp__5EBD=((__ITM_READ_ARG2 *)e__FFHC)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXPRESSION__: {
- __tmp__5EBD=position__5A5B(e__FFHC);
- } break;
- case __ITM_OLD__: {
- __tmp__5EBD=((__ITM_OLD *)e__FFHC)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXTERNAL_TYPE__: {
- __tmp__5EBD=((__ITM_EXTERNAL_TYPE *)e__FFHC)->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_BLOCK__: {
- __tmp__5EBD=((__ITM_LIST *)((__ITM_BLOCK *)e__FFHC)->list__KMDC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXTERNAL__: {
- __tmp__5EBD=((__ITM_EXTERNAL *)e__FFHC)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARGS__: {
- __tmp__5EBD=((__ITM_READ_ARGS *)e__FFHC)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_REAL__: {
- __tmp__5EBD=((__ITM_REAL *)e__FFHC)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_NUMBER__: {
- __tmp__5EBD=((__ITM_NUMBER *)e__FFHC)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_CHARACTER__: {
- __tmp__5EBD=((__ITM_CHARACTER *)e__FFHC)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_STRING__: {
- __tmp__5EBD=((__ITM_STRING *)e__FFHC)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_RESULT__: {
- __tmp__5EBD=position__PIHC(e__FFHC);
- } break;
- };
- get__IVI(((__PROTOTYPE *)p__GFHC)->parent_named__5.name__LI);
- result__NWI=NULL;
- ptr__OWI=((__POINTER )(NULL));
- typ_id__TWI= 0;
- sz__QWI=((__UINTEGER_32 )sizeof(__ITM_PROTOTYPE));
- if ((sz__QWI == 0)) {
- result__NWI=ITM_PROTOTYPE__;
- } else {
- typ_id__TWI=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__QWI);
- if ((typ_id__TWI == (__INTEGER)(- 1))) {
- a__UZFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__VZFH=(__UINTEGER_32)((__UINTEGER_32)(sz__QWI + a__UZFH) & (__UINTEGER_32)(~ a__UZFH));
- ptr_table__AIKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VZFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__5HKH=((__POINTER )(NULL));
- result__BIKH=((__POINTER *)ptr_table__AIKH)[ 0];
- if ((result__BIKH == (void *)NULL)) {
- result__BIKH=new_lab__RTJ(new_size__VZFH);
- next__5HKH=(void *)((unsigned long)result__BIKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VZFH)));
- ((__POINTER *)next__5HKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__AIKH)[ 0]=next__5HKH;
- } else {
- next__5HKH=((__POINTER *)result__BIKH)[ 0];
- if ((next__5HKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BIKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__VZFH << 1)) <= 4096)) {
- next__5HKH=(void *)((unsigned long)result__BIKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VZFH)));
- } else {
- next__5HKH=new_lab__RTJ(new_size__VZFH);
- };
- ((__POINTER *)next__5HKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__AIKH)[ 0]=next__5HKH;
- } else {
- ((__POINTER *)result__BIKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5HKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__BIKH=next__5HKH;
- };
- };
- ptr__OWI=result__BIKH;
- } else {
- t__ZZFH=((__UINTEGER_32 )typ_id__TWI);
- a__YZFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__IIKH=(__UINTEGER_32)((__UINTEGER_32)(sz__QWI + a__YZFH) & (__UINTEGER_32)(~ a__YZFH));
- ptr_table__FIKH=((__POINTER )(&(table_type[(t__ZZFH)])));
- lab_type__HIKH=(__UINTEGER_32)(t__ZZFH | 1);
- next__EIKH=((__POINTER )(NULL));
- result__GIKH=((__POINTER *)ptr_table__FIKH)[ 0];
- if ((result__GIKH == (void *)NULL)) {
- result__GIKH=new_lab__RTJ(lab_type__HIKH);
- next__EIKH=(void *)((unsigned long)result__GIKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IIKH)));
- ((__POINTER *)next__EIKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__FIKH)[ 0]=next__EIKH;
- } else {
- next__EIKH=((__POINTER *)result__GIKH)[ 0];
- if ((next__EIKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GIKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__IIKH << 1)) <= 4096)) {
- next__EIKH=(void *)((unsigned long)result__GIKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IIKH)));
- } else {
- next__EIKH=new_lab__RTJ(lab_type__HIKH);
- };
- ((__POINTER *)next__EIKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__FIKH)[ 0]=next__EIKH;
- } else {
- ((__POINTER *)result__GIKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EIKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__GIKH=next__EIKH;
- };
- };
- ptr__OWI=result__GIKH;
- };
- result__NWI=((__ITM_PROTOTYPE *)ptr__OWI);
- *(result__NWI) = *(ITM_PROTOTYPE__);
- };
- ((__ITM_PROTOTYPE *)result__NWI)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ=__tmp__5EBD;
- switch (((struct ___OBJ *)e__FFHC)->__id) {
- case __ITM_LIST__: {
- __tmp__IFBD=((__ITM_LIST *)e__FFHC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_LDOTS__: {
- __tmp__IFBD=((__ITM_LDOTS *)e__FFHC)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_PROTOTYPE__: {
- __tmp__IFBD=((__ITM_PROTOTYPE *)e__FFHC)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_LIST_IDF__: {
- __tmp__IFBD=((__ITM_LIST_IDF *)e__FFHC)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_VALUE__: {
- __tmp__IFBD=((__ITM_WRITE_VALUE *)e__FFHC)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_CAST__: {
- __tmp__IFBD=((__ITM_WRITE_CAST *)e__FFHC)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ__: {
- __tmp__IFBD=((__ITM_READ *)e__FFHC)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_CODE__: {
- __tmp__IFBD=((__ITM_WRITE_CODE *)e__FFHC)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_OPERATOR__: {
- __tmp__IFBD=((__ITM_OPERATOR *)e__FFHC)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARG1__: {
- __tmp__IFBD=((__ITM_READ_ARG1 *)e__FFHC)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARG2__: {
- __tmp__IFBD=((__ITM_READ_ARG2 *)e__FFHC)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXPRESSION__: {
- __tmp__IFBD=position__5A5B(e__FFHC);
- } break;
- case __ITM_OLD__: {
- __tmp__IFBD=((__ITM_OLD *)e__FFHC)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXTERNAL_TYPE__: {
- __tmp__IFBD=((__ITM_EXTERNAL_TYPE *)e__FFHC)->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_BLOCK__: {
- __tmp__IFBD=((__ITM_LIST *)((__ITM_BLOCK *)e__FFHC)->list__KMDC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXTERNAL__: {
- __tmp__IFBD=((__ITM_EXTERNAL *)e__FFHC)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARGS__: {
- __tmp__IFBD=((__ITM_READ_ARGS *)e__FFHC)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_REAL__: {
- __tmp__IFBD=((__ITM_REAL *)e__FFHC)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_NUMBER__: {
- __tmp__IFBD=((__ITM_NUMBER *)e__FFHC)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_CHARACTER__: {
- __tmp__IFBD=((__ITM_CHARACTER *)e__FFHC)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_STRING__: {
- __tmp__IFBD=((__ITM_STRING *)e__FFHC)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_RESULT__: {
- __tmp__IFBD=position__PIHC(e__FFHC);
- } break;
- };
- result__0GCD=NULL;
- ptr__1GCD=((__POINTER )(NULL));
- typ_id__AHCD= 0;
- sz__3GCD=((__UINTEGER_32 )sizeof(__ITM_READ_ARG1));
- if ((sz__3GCD == 0)) {
- result__0GCD=ITM_READ_ARG1__;
- } else {
- typ_id__AHCD=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__3GCD);
- if ((typ_id__AHCD == (__INTEGER)(- 1))) {
- a__2ZFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__3ZFH=(__UINTEGER_32)((__UINTEGER_32)(sz__3GCD + a__2ZFH) & (__UINTEGER_32)(~ a__2ZFH));
- ptr_table__KIKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3ZFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__JIKH=((__POINTER )(NULL));
- result__LIKH=((__POINTER *)ptr_table__KIKH)[ 0];
- if ((result__LIKH == (void *)NULL)) {
- result__LIKH=new_lab__RTJ(new_size__3ZFH);
- next__JIKH=(void *)((unsigned long)result__LIKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3ZFH)));
- ((__POINTER *)next__JIKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__KIKH)[ 0]=next__JIKH;
- } else {
- next__JIKH=((__POINTER *)result__LIKH)[ 0];
- if ((next__JIKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LIKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__3ZFH << 1)) <= 4096)) {
- next__JIKH=(void *)((unsigned long)result__LIKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3ZFH)));
- } else {
- next__JIKH=new_lab__RTJ(new_size__3ZFH);
- };
- ((__POINTER *)next__JIKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__KIKH)[ 0]=next__JIKH;
- } else {
- ((__POINTER *)result__LIKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JIKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__LIKH=next__JIKH;
- };
- };
- ptr__1GCD=result__LIKH;
- } else {
- t__B0FH=((__UINTEGER_32 )typ_id__AHCD);
- a__A0FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__SIKH=(__UINTEGER_32)((__UINTEGER_32)(sz__3GCD + a__A0FH) & (__UINTEGER_32)(~ a__A0FH));
- ptr_table__PIKH=((__POINTER )(&(table_type[(t__B0FH)])));
- lab_type__RIKH=(__UINTEGER_32)(t__B0FH | 1);
- next__OIKH=((__POINTER )(NULL));
- result__QIKH=((__POINTER *)ptr_table__PIKH)[ 0];
- if ((result__QIKH == (void *)NULL)) {
- result__QIKH=new_lab__RTJ(lab_type__RIKH);
- next__OIKH=(void *)((unsigned long)result__QIKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SIKH)));
- ((__POINTER *)next__OIKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__PIKH)[ 0]=next__OIKH;
- } else {
- next__OIKH=((__POINTER *)result__QIKH)[ 0];
- if ((next__OIKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QIKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__SIKH << 1)) <= 4096)) {
- next__OIKH=(void *)((unsigned long)result__QIKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SIKH)));
- } else {
- next__OIKH=new_lab__RTJ(lab_type__RIKH);
- };
- ((__POINTER *)next__OIKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__PIKH)[ 0]=next__OIKH;
- } else {
- ((__POINTER *)result__QIKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OIKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__QIKH=next__OIKH;
- };
- };
- ptr__1GCD=result__QIKH;
- };
- result__0GCD=((__ITM_READ_ARG1 *)ptr__1GCD);
- *(result__0GCD) = *(ITM_READ_ARG1__);
- };
- ((__ITM_READ_ARG1 *)result__0GCD)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ=__tmp__IFBD;
- };
-}
-
-static __POSITION position__5A5B(__ITM_EXPRESSION *Self__AB5B)
-// ({ITM_EXPRESSION}) With resultRecursive, No inlinable.
-{
- void *__tmp__DB5B;
- __POSITION __tmp__EB5B;
- __tmp__DB5B=((void **)((__FAST_ARRAYoITM_CODEo *)Self__AB5B->value_list__PJV)->parent_arrayed_collection__JWF.storage__4ZT)[ 0];
- switch (((struct ___OBJ *)__tmp__DB5B)->__id) {
- case __ITM_LIST__: {
- __tmp__EB5B=((__ITM_LIST *)__tmp__DB5B)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_LDOTS__: {
- __tmp__EB5B=((__ITM_LDOTS *)__tmp__DB5B)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_PROTOTYPE__: {
- __tmp__EB5B=((__ITM_PROTOTYPE *)__tmp__DB5B)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_LIST_IDF__: {
- __tmp__EB5B=((__ITM_LIST_IDF *)__tmp__DB5B)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_VALUE__: {
- __tmp__EB5B=((__ITM_WRITE_VALUE *)__tmp__DB5B)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_CAST__: {
- __tmp__EB5B=((__ITM_WRITE_CAST *)__tmp__DB5B)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ__: {
- __tmp__EB5B=((__ITM_READ *)__tmp__DB5B)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_CODE__: {
- __tmp__EB5B=((__ITM_WRITE_CODE *)__tmp__DB5B)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_OPERATOR__: {
- __tmp__EB5B=((__ITM_OPERATOR *)__tmp__DB5B)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARG1__: {
- __tmp__EB5B=((__ITM_READ_ARG1 *)__tmp__DB5B)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARG2__: {
- __tmp__EB5B=((__ITM_READ_ARG2 *)__tmp__DB5B)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXPRESSION__: {
- __tmp__EB5B=position__5A5B(__tmp__DB5B);
- } break;
- case __ITM_OLD__: {
- __tmp__EB5B=((__ITM_OLD *)__tmp__DB5B)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXTERNAL_TYPE__: {
- __tmp__EB5B=((__ITM_EXTERNAL_TYPE *)__tmp__DB5B)->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_BLOCK__: {
- __tmp__EB5B=((__ITM_LIST *)((__ITM_BLOCK *)__tmp__DB5B)->list__KMDC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXTERNAL__: {
- __tmp__EB5B=((__ITM_EXTERNAL *)__tmp__DB5B)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARGS__: {
- __tmp__EB5B=((__ITM_READ_ARGS *)__tmp__DB5B)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_REAL__: {
- __tmp__EB5B=((__ITM_REAL *)__tmp__DB5B)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_NUMBER__: {
- __tmp__EB5B=((__ITM_NUMBER *)__tmp__DB5B)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_CHARACTER__: {
- __tmp__EB5B=((__ITM_CHARACTER *)__tmp__DB5B)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_STRING__: {
- __tmp__EB5B=((__ITM_STRING *)__tmp__DB5B)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_RESULT__: {
- __tmp__EB5B=position__PIHC(__tmp__DB5B);
- } break;
- };
- return(__tmp__EB5B);
-}
-
-static __POSITION position__PIHC(__ITM_RESULT *Self__QIHC)
-// ({ITM_RESULT}) With resultRecursive, No inlinable.
-{
- void *__tmp__SIHC;
- __POSITION __tmp__TIHC;
- __tmp__SIHC=Self__QIHC->value__WKFC;
- switch (((struct ___OBJ *)__tmp__SIHC)->__id) {
- case __ITM_LIST__: {
- __tmp__TIHC=((__ITM_LIST *)__tmp__SIHC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_LDOTS__: {
- __tmp__TIHC=((__ITM_LDOTS *)__tmp__SIHC)->parent_itm_constant__IXF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_PROTOTYPE__: {
- __tmp__TIHC=((__ITM_PROTOTYPE *)__tmp__SIHC)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_LIST_IDF__: {
- __tmp__TIHC=((__ITM_LIST_IDF *)__tmp__SIHC)->parent_itm_code__1EJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_VALUE__: {
- __tmp__TIHC=((__ITM_WRITE_VALUE *)__tmp__SIHC)->parent_itm_write__RFJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_CAST__: {
- __tmp__TIHC=((__ITM_WRITE_CAST *)__tmp__SIHC)->parent_itm_write__IGJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ__: {
- __tmp__TIHC=((__ITM_READ *)__tmp__SIHC)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_WRITE_CODE__: {
- __tmp__TIHC=((__ITM_WRITE_CODE *)__tmp__SIHC)->parent_itm_write__TJJ.parent_itm_code__QFJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_OPERATOR__: {
- __tmp__TIHC=((__ITM_OPERATOR *)__tmp__SIHC)->parent_itm_code__VGL.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARG1__: {
- __tmp__TIHC=((__ITM_READ_ARG1 *)__tmp__SIHC)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARG2__: {
- __tmp__TIHC=((__ITM_READ_ARG2 *)__tmp__SIHC)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXPRESSION__: {
- __tmp__TIHC=position__5A5B(__tmp__SIHC);
- } break;
- case __ITM_OLD__: {
- __tmp__TIHC=((__ITM_OLD *)__tmp__SIHC)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXTERNAL_TYPE__: {
- __tmp__TIHC=((__ITM_EXTERNAL_TYPE *)__tmp__SIHC)->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_BLOCK__: {
- __tmp__TIHC=((__ITM_LIST *)((__ITM_BLOCK *)__tmp__SIHC)->list__KMDC)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_EXTERNAL__: {
- __tmp__TIHC=((__ITM_EXTERNAL *)__tmp__SIHC)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_READ_ARGS__: {
- __tmp__TIHC=((__ITM_READ_ARGS *)__tmp__SIHC)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_REAL__: {
- __tmp__TIHC=((__ITM_REAL *)__tmp__SIHC)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_NUMBER__: {
- __tmp__TIHC=((__ITM_NUMBER *)__tmp__SIHC)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_CHARACTER__: {
- __tmp__TIHC=((__ITM_CHARACTER *)__tmp__SIHC)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_STRING__: {
- __tmp__TIHC=((__ITM_STRING *)__tmp__SIHC)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ;
- } break;
- case __ITM_RESULT__: {
- __tmp__TIHC=position__PIHC(__tmp__SIHC);
- } break;
- };
- return(__tmp__TIHC);
-}
-
-static void fast_put__to__LNGC(__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo *Self__MNGC,void *v__NNGC,void *k__ONGC)
-// ({HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo},{NULLxITM_SLOTxITM_SLOT_OPERATOR},{NULLxSTRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
- __INTEGER h__VNGC,idx__WNGC,idx__KRID,new_capacity__LRID,i__MRID;
- __INTEGER typ_id__ZTID;
- __POINTER ptr__UTID,ptr_table__UIKH,next__TIKH,result__VIKH;
- __POINTER ptr_table__ZIKH,next__YIKH,result__0IKH;
- __UINTEGER_32 sz__WTID,a__MZFH,new_size__NZFH,t__RZFH,a__QZFH;
- __UINTEGER_32 new_size__2IKH,lab_type__1IKH;
- void *node__XNGC,*node1__ORID,*node2__PRID,*__tmp__FPGC;
- void **old_buckets__NRID;
- __HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *result__TTID;
- __HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *Self__FITD;
- h__VNGC=hash_code__RNW(k__ONGC);
- idx__WNGC=(__INTEGER)(h__VNGC % Self__MNGC->capacity__W3BC);
- node__XNGC=((void **)Self__MNGC->buckets__NAGC)[idx__WNGC];
- while ((! (((void *)node__XNGC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node__XNGC)->key__ZAGC == (void *)k__ONGC)))) {
- node__XNGC=((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node__XNGC)->next__EBGC;
- };
- if (((void *)node__XNGC == (void *)NULL)) {
- if ((Self__MNGC->capacity__W3BC == Self__MNGC->count__YOGC)) {
- idx__KRID= 0;
- node1__ORID=NULL;
- node2__PRID=NULL;
- old_buckets__NRID=Self__MNGC->buckets__NAGC;
- new_capacity__LRID=prime_number_ceiling__021((__INTEGER)(Self__MNGC->capacity__W3BC + 1));
- Self__MNGC->buckets__NAGC=create__PRSC(new_capacity__LRID);
- i__MRID=(__INTEGER)(Self__MNGC->capacity__W3BC - 1);
- Self__MNGC->capacity__W3BC=new_capacity__LRID;
- while ((i__MRID >= 0)) {
- node1__ORID=((void **)old_buckets__NRID)[i__MRID];
- while (((void *)node1__ORID != (void *)NULL)) {
- node2__PRID=((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node1__ORID)->next__EBGC;
- idx__KRID=(__INTEGER)(hash_code__RNW(((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node1__ORID)->key__ZAGC) % Self__MNGC->capacity__W3BC);
- ((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node1__ORID)->next__EBGC=((void **)Self__MNGC->buckets__NAGC)[idx__KRID];
- ((void **)Self__MNGC->buckets__NAGC)[idx__KRID]=node1__ORID;
- node1__ORID=node2__PRID;
- };
- i__MRID=(__INTEGER)(i__MRID - 1);
- };
- idx__WNGC=(__INTEGER)(h__VNGC % Self__MNGC->capacity__W3BC);
- };
- __tmp__FPGC=((void **)Self__MNGC->buckets__NAGC)[idx__WNGC];
- result__TTID=NULL;
- ptr__UTID=((__POINTER )(NULL));
- typ_id__ZTID= 0;
- sz__WTID=((__UINTEGER_32 )sizeof(__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo));
- if ((sz__WTID == 0)) {
- result__TTID=HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__;
- } else {
- typ_id__ZTID=__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__WTID);
- if ((typ_id__ZTID == (__INTEGER)(- 1))) {
- a__MZFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__NZFH=(__UINTEGER_32)((__UINTEGER_32)(sz__WTID + a__MZFH) & (__UINTEGER_32)(~ a__MZFH));
- ptr_table__UIKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NZFH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__TIKH=((__POINTER )(NULL));
- result__VIKH=((__POINTER *)ptr_table__UIKH)[ 0];
- if ((result__VIKH == (void *)NULL)) {
- result__VIKH=new_lab__RTJ(new_size__NZFH);
- next__TIKH=(void *)((unsigned long)result__VIKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NZFH)));
- ((__POINTER *)next__TIKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__UIKH)[ 0]=next__TIKH;
- } else {
- next__TIKH=((__POINTER *)result__VIKH)[ 0];
- if ((next__TIKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VIKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__NZFH << 1)) <= 4096)) {
- next__TIKH=(void *)((unsigned long)result__VIKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NZFH)));
- } else {
- next__TIKH=new_lab__RTJ(new_size__NZFH);
- };
- ((__POINTER *)next__TIKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__UIKH)[ 0]=next__TIKH;
- } else {
- ((__POINTER *)result__VIKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TIKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__VIKH=next__TIKH;
- };
- };
- ptr__UTID=result__VIKH;
- } else {
- t__RZFH=((__UINTEGER_32 )typ_id__ZTID);
- a__QZFH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__2IKH=(__UINTEGER_32)((__UINTEGER_32)(sz__WTID + a__QZFH) & (__UINTEGER_32)(~ a__QZFH));
- ptr_table__ZIKH=((__POINTER )(&(table_type[(t__RZFH)])));
- lab_type__1IKH=(__UINTEGER_32)(t__RZFH | 1);
- next__YIKH=((__POINTER )(NULL));
- result__0IKH=((__POINTER *)ptr_table__ZIKH)[ 0];
- if ((result__0IKH == (void *)NULL)) {
- result__0IKH=new_lab__RTJ(lab_type__1IKH);
- next__YIKH=(void *)((unsigned long)result__0IKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2IKH)));
- ((__POINTER *)next__YIKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__ZIKH)[ 0]=next__YIKH;
- } else {
- next__YIKH=((__POINTER *)result__0IKH)[ 0];
- if ((next__YIKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0IKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__2IKH << 1)) <= 4096)) {
- next__YIKH=(void *)((unsigned long)result__0IKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2IKH)));
- } else {
- next__YIKH=new_lab__RTJ(lab_type__1IKH);
- };
- ((__POINTER *)next__YIKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__ZIKH)[ 0]=next__YIKH;
- } else {
- ((__POINTER *)result__0IKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YIKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__0IKH=next__YIKH;
- };
- };
- ptr__UTID=result__0IKH;
- };
- result__TTID=((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)ptr__UTID);
- *(result__TTID) = *(HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo__);
- };
- Self__FITD=((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)result__TTID);
- Self__FITD->item__MBGC=v__NNGC;
- Self__FITD->key__ZAGC=k__ONGC;
- Self__FITD->next__EBGC=__tmp__FPGC;
- node__XNGC=result__TTID;
- ((void **)Self__MNGC->buckets__NAGC)[idx__WNGC]=result__TTID;
- Self__MNGC->count__YOGC=(__INTEGER)(Self__MNGC->count__YOGC + 1);
- } else {
- ((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node__XNGC)->item__MBGC=v__NNGC;
- };
-}
-
-static void* fast_reference_at__05FC(__HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo *Self__15FC,void *k__25FC)
-// ({HASHED_DICTIONARYoITM_SLOTxSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
- void *result__HAGC;
- void *node__GAGC;
- result__HAGC=NULL;
- node__GAGC=((void **)Self__15FC->buckets__NAGC)[(__INTEGER)(hash_code__RNW(k__25FC) % Self__15FC->capacity__W3BC)];
- while ((! (((void *)node__GAGC == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node__GAGC)->key__ZAGC == (void *)k__25FC)))) {
- node__GAGC=((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node__GAGC)->next__EBGC;
- };
- if (((void *)node__GAGC != (void *)NULL)) {
- result__HAGC=((__HASHED_DICTIONARY_NODEoITM_SLOTxSTRING_CONSTANTo *)node__GAGC)->item__MBGC;
- };
- return(result__HAGC);
-}
-
-static void* fast_reference_at__CMNE(__HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *Self__DMNE,void *k__EMNE)
-// ({HASHED_DICTIONARYoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
- void *result__OMNE;
- void *node__NMNE;
- result__OMNE=NULL;
- node__NMNE=((void **)Self__DMNE->buckets__1DT)[(__INTEGER)(hash_code__RNW(k__EMNE) % Self__DMNE->capacity__WDT)];
- while ((! (((void *)node__NMNE == (void *)NULL) || ((void *)((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__NMNE)->key__HET == (void *)k__EMNE)))) {
- node__NMNE=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__NMNE)->next__SET;
- };
- if (((void *)node__NMNE != (void *)NULL)) {
- result__OMNE=((__HASHED_DICTIONARY_NODEoLINKED_LISToSTRING_CONSTANToxSTRING_CONSTANTo *)node__NMNE)->item__KW3;
- };
- return(result__OMNE);
-}
-
-static void append_in__PJPD(__ITM_TYPE_BLOCK *Self__QJPD,void *buffer__RJPD)
-// ({ITM_TYPE_BLOCK},{NULLxSTRING}) VoidRecursive, No inlinable.
-{
- void *typ_mul__SJPD,*__tmp__EKPD;
- __STRING *Self__KAIH,*Self__SAIH,*Self__YAIH,*Self__4AIH,*Self__GBIH;
- __STRING *Self__MBIH;
- __INTEGER new_capacity__JAIH,old_nb_elts__MAIH,upper__AJKH,Self__4IKH;
- __INTEGER new_capacity__RAIH,old_nb_elts__UAIH,upper__FJKH,Self__DJKH;
- __INTEGER new_capacity__XAIH,old_nb_elts__0AIH,upper__KJKH,Self__IJKH;
- __INTEGER new_capacity__3AIH,old_nb_elts__ABIH,upper__PJKH,Self__NJKH;
- __INTEGER new_capacity__FBIH,old_nb_elts__IBIH,upper__UJKH,Self__SJKH;
- __INTEGER new_capacity__LBIH,old_nb_elts__OBIH,upper__ZJKH,Self__XJKH;
- void *__tmp__ZJPD,*__tmp__DKPD,*__tmp__KKPD;
- __ITM_TYPE_STYLE *Self__QAIH,*Self__EBIH;
- __CHARACTER *Self__LAIH,*new__NAIH,*Self__TAIH,*new__VAIH,*Self__ZAIH;
- __CHARACTER *new__1AIH,*Self__5AIH,*new__BBIH,*Self__HBIH,*new__JBIH;
- __CHARACTER *Self__NBIH,*new__PBIH;
- typ_mul__SJPD=NULL;
- Self__KAIH=((__STRING *)buffer__RJPD);
- new_capacity__JAIH= 0;
- if ((Self__KAIH->capacity__UCS <= Self__KAIH->count__SGC)) {
- if ((Self__KAIH->capacity__UCS == 0)) {
- Self__KAIH->capacity__UCS= 32;
- Self__KAIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__JAIH=(__INTEGER)(Self__KAIH->capacity__UCS << 1);
- Self__LAIH=((__CHARACTER *)Self__KAIH->storage__3CS);
- old_nb_elts__MAIH=Self__KAIH->capacity__UCS;
- new__NAIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__LAIH),((__UINTEGER_32 )old_nb_elts__MAIH),((__UINTEGER_32 )new_capacity__JAIH)));
- upper__AJKH=(__INTEGER)(new_capacity__JAIH - 1);
- Self__4IKH=old_nb_elts__MAIH;
- while ((Self__4IKH <= upper__AJKH)) {
- new__NAIH[Self__4IKH]='\0';
- Self__4IKH=(__INTEGER)(Self__4IKH + 1);
- };
- Self__KAIH->storage__3CS=new__NAIH;
- Self__KAIH->capacity__UCS=new_capacity__JAIH;
- };
- };
- ((__CHARACTER *)Self__KAIH->storage__3CS)[Self__KAIH->count__SGC]='{';
- Self__KAIH->count__SGC=(__INTEGER)(Self__KAIH->count__SGC + 1);
- if (((void *)Self__QJPD->type_argument__SNN != (void *)NULL)) {
- __tmp__ZJPD=Self__QJPD->type_argument__SNN;
- switch (((struct ___OBJ *)__tmp__ZJPD)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- append__3OS(buffer__RJPD,((__ITM_TYPE_PARAMETER *)__tmp__ZJPD)->parent_itm_type__VFE.name__GZP);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- append__3OS(buffer__RJPD,((__ITM_TYPE_SIMPLE *)__tmp__ZJPD)->name__GZP);
- } break;
- case __ITM_TYPE_MULTI__: {
- append_in__MHBC(__tmp__ZJPD,buffer__RJPD);
- } break;
- case __ITM_TYPE_BLOCK__: {
- append_in__PJPD(__tmp__ZJPD,buffer__RJPD);
- } break;
- case __ITM_TYPE_GENERIC__: {
- append_in__TKPD(__tmp__ZJPD,buffer__RJPD);
- } break;
- case __ITM_TYPE_STYLE__: {
- Self__QAIH=((__ITM_TYPE_STYLE *)__tmp__ZJPD);
- if (((void *)Self__QAIH->style__PZP != (void *)NULL)) {
- append__3OS(buffer__RJPD,Self__QAIH->style__PZP);
- Self__SAIH=((__STRING *)buffer__RJPD);
- new_capacity__RAIH= 0;
- if ((Self__SAIH->capacity__UCS <= Self__SAIH->count__SGC)) {
- if ((Self__SAIH->capacity__UCS == 0)) {
- Self__SAIH->capacity__UCS= 32;
- Self__SAIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__RAIH=(__INTEGER)(Self__SAIH->capacity__UCS << 1);
- Self__TAIH=((__CHARACTER *)Self__SAIH->storage__3CS);
- old_nb_elts__UAIH=Self__SAIH->capacity__UCS;
- new__VAIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__TAIH),((__UINTEGER_32 )old_nb_elts__UAIH),((__UINTEGER_32 )new_capacity__RAIH)));
- upper__FJKH=(__INTEGER)(new_capacity__RAIH - 1);
- Self__DJKH=old_nb_elts__UAIH;
- while ((Self__DJKH <= upper__FJKH)) {
- new__VAIH[Self__DJKH]='\0';
- Self__DJKH=(__INTEGER)(Self__DJKH + 1);
- };
- Self__SAIH->storage__3CS=new__VAIH;
- Self__SAIH->capacity__UCS=new_capacity__RAIH;
- };
- };
- ((__CHARACTER *)Self__SAIH->storage__3CS)[Self__SAIH->count__SGC]=' ';
- Self__SAIH->count__SGC=(__INTEGER)(Self__SAIH->count__SGC + 1);
- };
- append__3OS(buffer__RJPD,Self__QAIH->parent_itm_type_simple__3SN.name__GZP);
- } break;
- };
- Self__YAIH=((__STRING *)buffer__RJPD);
- new_capacity__XAIH= 0;
- if ((Self__YAIH->capacity__UCS <= Self__YAIH->count__SGC)) {
- if ((Self__YAIH->capacity__UCS == 0)) {
- Self__YAIH->capacity__UCS= 32;
- Self__YAIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__XAIH=(__INTEGER)(Self__YAIH->capacity__UCS << 1);
- Self__ZAIH=((__CHARACTER *)Self__YAIH->storage__3CS);
- old_nb_elts__0AIH=Self__YAIH->capacity__UCS;
- new__1AIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__ZAIH),((__UINTEGER_32 )old_nb_elts__0AIH),((__UINTEGER_32 )new_capacity__XAIH)));
- upper__KJKH=(__INTEGER)(new_capacity__XAIH - 1);
- Self__IJKH=old_nb_elts__0AIH;
- while ((Self__IJKH <= upper__KJKH)) {
- new__1AIH[Self__IJKH]='\0';
- Self__IJKH=(__INTEGER)(Self__IJKH + 1);
- };
- Self__YAIH->storage__3CS=new__1AIH;
- Self__YAIH->capacity__UCS=new_capacity__XAIH;
- };
- };
- ((__CHARACTER *)Self__YAIH->storage__3CS)[Self__YAIH->count__SGC]=';';
- Self__YAIH->count__SGC=(__INTEGER)(Self__YAIH->count__SGC + 1);
- Self__4AIH=((__STRING *)buffer__RJPD);
- new_capacity__3AIH= 0;
- if ((Self__4AIH->capacity__UCS <= Self__4AIH->count__SGC)) {
- if ((Self__4AIH->capacity__UCS == 0)) {
- Self__4AIH->capacity__UCS= 32;
- Self__4AIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__3AIH=(__INTEGER)(Self__4AIH->capacity__UCS << 1);
- Self__5AIH=((__CHARACTER *)Self__4AIH->storage__3CS);
- old_nb_elts__ABIH=Self__4AIH->capacity__UCS;
- new__BBIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__5AIH),((__UINTEGER_32 )old_nb_elts__ABIH),((__UINTEGER_32 )new_capacity__3AIH)));
- upper__PJKH=(__INTEGER)(new_capacity__3AIH - 1);
- Self__NJKH=old_nb_elts__ABIH;
- while ((Self__NJKH <= upper__PJKH)) {
- new__BBIH[Self__NJKH]='\0';
- Self__NJKH=(__INTEGER)(Self__NJKH + 1);
- };
- Self__4AIH->storage__3CS=new__BBIH;
- Self__4AIH->capacity__UCS=new_capacity__3AIH;
- };
- };
- ((__CHARACTER *)Self__4AIH->storage__3CS)[Self__4AIH->count__SGC]=' ';
- Self__4AIH->count__SGC=(__INTEGER)(Self__4AIH->count__SGC + 1);
- };
- if (((void *)Self__QJPD->type_result__2NN != (void *)NULL)) {
- __tmp__DKPD=Self__QJPD->type_result__2NN;
- if (__tmp__DKPD==NULL) {
- __tmp__EKPD=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__DKPD)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- __tmp__EKPD=NULL;
- } break;
- case __ITM_TYPE_SIMPLE__: {
- __tmp__EKPD=NULL;
- } break;
- case __ITM_TYPE_MULTI__: {
- __tmp__EKPD=((void *)__tmp__DKPD);
- } break;
- case __ITM_TYPE_BLOCK__: {
- __tmp__EKPD=NULL;
- } break;
- case __ITM_TYPE_GENERIC__: {
- __tmp__EKPD=NULL;
- } break;
- case __ITM_TYPE_STYLE__: {
- __tmp__EKPD=NULL;
- } break;
- }
- };
- typ_mul__SJPD=__tmp__EKPD;
- if (((void *)__tmp__EKPD == (void *)NULL)) {
- __tmp__KKPD=Self__QJPD->type_result__2NN;
- switch (((struct ___OBJ *)__tmp__KKPD)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- append__3OS(buffer__RJPD,((__ITM_TYPE_PARAMETER *)__tmp__KKPD)->parent_itm_type__VFE.name__GZP);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- append__3OS(buffer__RJPD,((__ITM_TYPE_SIMPLE *)__tmp__KKPD)->name__GZP);
- } break;
- case __ITM_TYPE_MULTI__: {
- append_in__MHBC(__tmp__KKPD,buffer__RJPD);
- } break;
- case __ITM_TYPE_BLOCK__: {
- append_in__PJPD(__tmp__KKPD,buffer__RJPD);
- } break;
- case __ITM_TYPE_GENERIC__: {
- append_in__TKPD(__tmp__KKPD,buffer__RJPD);
- } break;
- case __ITM_TYPE_STYLE__: {
- Self__EBIH=((__ITM_TYPE_STYLE *)__tmp__KKPD);
- if (((void *)Self__EBIH->style__PZP != (void *)NULL)) {
- append__3OS(buffer__RJPD,Self__EBIH->style__PZP);
- Self__GBIH=((__STRING *)buffer__RJPD);
- new_capacity__FBIH= 0;
- if ((Self__GBIH->capacity__UCS <= Self__GBIH->count__SGC)) {
- if ((Self__GBIH->capacity__UCS == 0)) {
- Self__GBIH->capacity__UCS= 32;
- Self__GBIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__FBIH=(__INTEGER)(Self__GBIH->capacity__UCS << 1);
- Self__HBIH=((__CHARACTER *)Self__GBIH->storage__3CS);
- old_nb_elts__IBIH=Self__GBIH->capacity__UCS;
- new__JBIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__HBIH),((__UINTEGER_32 )old_nb_elts__IBIH),((__UINTEGER_32 )new_capacity__FBIH)));
- upper__UJKH=(__INTEGER)(new_capacity__FBIH - 1);
- Self__SJKH=old_nb_elts__IBIH;
- while ((Self__SJKH <= upper__UJKH)) {
- new__JBIH[Self__SJKH]='\0';
- Self__SJKH=(__INTEGER)(Self__SJKH + 1);
- };
- Self__GBIH->storage__3CS=new__JBIH;
- Self__GBIH->capacity__UCS=new_capacity__FBIH;
- };
- };
- ((__CHARACTER *)Self__GBIH->storage__3CS)[Self__GBIH->count__SGC]=' ';
- Self__GBIH->count__SGC=(__INTEGER)(Self__GBIH->count__SGC + 1);
- };
- append__3OS(buffer__RJPD,Self__EBIH->parent_itm_type_simple__3SN.name__GZP);
- } break;
- };
- } else {
- display_raw__MLIC(__tmp__EKPD,buffer__RJPD);
- };
- };
- Self__MBIH=((__STRING *)buffer__RJPD);
- new_capacity__LBIH= 0;
- if ((Self__MBIH->capacity__UCS <= Self__MBIH->count__SGC)) {
- if ((Self__MBIH->capacity__UCS == 0)) {
- Self__MBIH->capacity__UCS= 32;
- Self__MBIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__LBIH=(__INTEGER)(Self__MBIH->capacity__UCS << 1);
- Self__NBIH=((__CHARACTER *)Self__MBIH->storage__3CS);
- old_nb_elts__OBIH=Self__MBIH->capacity__UCS;
- new__PBIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__NBIH),((__UINTEGER_32 )old_nb_elts__OBIH),((__UINTEGER_32 )new_capacity__LBIH)));
- upper__ZJKH=(__INTEGER)(new_capacity__LBIH - 1);
- Self__XJKH=old_nb_elts__OBIH;
- while ((Self__XJKH <= upper__ZJKH)) {
- new__PBIH[Self__XJKH]='\0';
- Self__XJKH=(__INTEGER)(Self__XJKH + 1);
- };
- Self__MBIH->storage__3CS=new__PBIH;
- Self__MBIH->capacity__UCS=new_capacity__LBIH;
- };
- };
- ((__CHARACTER *)Self__MBIH->storage__3CS)[Self__MBIH->count__SGC]='}';
- Self__MBIH->count__SGC=(__INTEGER)(Self__MBIH->count__SGC + 1);
-}
-
-static void append_in__TKPD(__ITM_TYPE_GENERIC *Self__UKPD,void *buffer__VKPD)
-// ({ITM_TYPE_GENERIC},{NULLxSTRING}) VoidRecursive, No inlinable.
-{
- __STRING *Self__SBIH,*Self__YBIH,*Self__ACIH,*Self__GCIH,*Self__MCIH;
- __STRING *Self__SCIH;
- __INTEGER new_capacity__RBIH,old_nb_elts__UBIH,upper__4JKH,Self__2JKH;
- __INTEGER new_capacity__XBIH,old_nb_elts__0BIH,upper__DKKH,Self__BKKH;
- __INTEGER __tmp__GLPD,Self__Y2UD,new_capacity__5BIH,old_nb_elts__CCIH;
- __INTEGER upper__IKKH,Self__GKKH,new_capacity__FCIH,old_nb_elts__ICIH;
- __INTEGER upper__NKKH,Self__LKKH,new_capacity__LCIH,old_nb_elts__OCIH;
- __INTEGER upper__SKKH,Self__QKKH,new_capacity__RCIH,old_nb_elts__UCIH;
- __INTEGER upper__XKKH,Self__VKKH;
- void *__tmp__NLPD,*__tmp__QLPD;
- __ITM_TYPE_STYLE *Self__4BIH,*Self__SLPD;
- __CHARACTER *Self__TBIH,*new__VBIH,*Self__ZBIH,*new__1BIH,*Self__BCIH;
- __CHARACTER *new__DCIH,*Self__HCIH,*new__JCIH,*Self__NCIH,*new__PCIH;
- __CHARACTER *Self__TCIH,*new__VCIH;
- __FAST_ARRAYoITM_TYPE_MONOo *Self__2ARB;
- if (((void *)Self__UKPD->parent_itm_type_style__4SN.style__PZP != (void *)NULL)) {
- append__3OS(buffer__VKPD,Self__UKPD->parent_itm_type_style__4SN.style__PZP);
- Self__SBIH=((__STRING *)buffer__VKPD);
- new_capacity__RBIH= 0;
- if ((Self__SBIH->capacity__UCS <= Self__SBIH->count__SGC)) {
- if ((Self__SBIH->capacity__UCS == 0)) {
- Self__SBIH->capacity__UCS= 32;
- Self__SBIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__RBIH=(__INTEGER)(Self__SBIH->capacity__UCS << 1);
- Self__TBIH=((__CHARACTER *)Self__SBIH->storage__3CS);
- old_nb_elts__UBIH=Self__SBIH->capacity__UCS;
- new__VBIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__TBIH),((__UINTEGER_32 )old_nb_elts__UBIH),((__UINTEGER_32 )new_capacity__RBIH)));
- upper__4JKH=(__INTEGER)(new_capacity__RBIH - 1);
- Self__2JKH=old_nb_elts__UBIH;
- while ((Self__2JKH <= upper__4JKH)) {
- new__VBIH[Self__2JKH]='\0';
- Self__2JKH=(__INTEGER)(Self__2JKH + 1);
- };
- Self__SBIH->storage__3CS=new__VBIH;
- Self__SBIH->capacity__UCS=new_capacity__RBIH;
- };
- };
- ((__CHARACTER *)Self__SBIH->storage__3CS)[Self__SBIH->count__SGC]=' ';
- Self__SBIH->count__SGC=(__INTEGER)(Self__SBIH->count__SGC + 1);
- };
- append__3OS(buffer__VKPD,Self__UKPD->parent_itm_type_style__4SN.parent_itm_type_simple__3SN.name__GZP);
- Self__YBIH=((__STRING *)buffer__VKPD);
- new_capacity__XBIH= 0;
- if ((Self__YBIH->capacity__UCS <= Self__YBIH->count__SGC)) {
- if ((Self__YBIH->capacity__UCS == 0)) {
- Self__YBIH->capacity__UCS= 32;
- Self__YBIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__XBIH=(__INTEGER)(Self__YBIH->capacity__UCS << 1);
- Self__ZBIH=((__CHARACTER *)Self__YBIH->storage__3CS);
- old_nb_elts__0BIH=Self__YBIH->capacity__UCS;
- new__1BIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__ZBIH),((__UINTEGER_32 )old_nb_elts__0BIH),((__UINTEGER_32 )new_capacity__XBIH)));
- upper__DKKH=(__INTEGER)(new_capacity__XBIH - 1);
- Self__BKKH=old_nb_elts__0BIH;
- while ((Self__BKKH <= upper__DKKH)) {
- new__1BIH[Self__BKKH]='\0';
- Self__BKKH=(__INTEGER)(Self__BKKH + 1);
- };
- Self__YBIH->storage__3CS=new__1BIH;
- Self__YBIH->capacity__UCS=new_capacity__XBIH;
- };
- };
- ((__CHARACTER *)Self__YBIH->storage__3CS)[Self__YBIH->count__SGC]='(';
- Self__YBIH->count__SGC=(__INTEGER)(Self__YBIH->count__SGC + 1);
- __tmp__GLPD=(__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)Self__UKPD->list_type__ZZP)->parent_arrayed_collection__SYC.upper__4HV - 1);
- Self__Y2UD= 0;
- while ((Self__Y2UD <= __tmp__GLPD)) {
- __tmp__NLPD=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)Self__UKPD->list_type__ZZP)->parent_arrayed_collection__SYC.storage__FMV)[Self__Y2UD];
- switch (((struct ___OBJ *)__tmp__NLPD)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- append__3OS(buffer__VKPD,((__ITM_TYPE_PARAMETER *)__tmp__NLPD)->parent_itm_type__VFE.name__GZP);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- append__3OS(buffer__VKPD,((__ITM_TYPE_SIMPLE *)__tmp__NLPD)->name__GZP);
- } break;
- case __ITM_TYPE_BLOCK__: {
- append_in__PJPD(__tmp__NLPD,buffer__VKPD);
- } break;
- case __ITM_TYPE_GENERIC__: {
- append_in__TKPD(__tmp__NLPD,buffer__VKPD);
- } break;
- case __ITM_TYPE_STYLE__: {
- Self__4BIH=((__ITM_TYPE_STYLE *)__tmp__NLPD);
- if (((void *)Self__4BIH->style__PZP != (void *)NULL)) {
- append__3OS(buffer__VKPD,Self__4BIH->style__PZP);
- Self__ACIH=((__STRING *)buffer__VKPD);
- new_capacity__5BIH= 0;
- if ((Self__ACIH->capacity__UCS <= Self__ACIH->count__SGC)) {
- if ((Self__ACIH->capacity__UCS == 0)) {
- Self__ACIH->capacity__UCS= 32;
- Self__ACIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__5BIH=(__INTEGER)(Self__ACIH->capacity__UCS << 1);
- Self__BCIH=((__CHARACTER *)Self__ACIH->storage__3CS);
- old_nb_elts__CCIH=Self__ACIH->capacity__UCS;
- new__DCIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__BCIH),((__UINTEGER_32 )old_nb_elts__CCIH),((__UINTEGER_32 )new_capacity__5BIH)));
- upper__IKKH=(__INTEGER)(new_capacity__5BIH - 1);
- Self__GKKH=old_nb_elts__CCIH;
- while ((Self__GKKH <= upper__IKKH)) {
- new__DCIH[Self__GKKH]='\0';
- Self__GKKH=(__INTEGER)(Self__GKKH + 1);
- };
- Self__ACIH->storage__3CS=new__DCIH;
- Self__ACIH->capacity__UCS=new_capacity__5BIH;
- };
- };
- ((__CHARACTER *)Self__ACIH->storage__3CS)[Self__ACIH->count__SGC]=' ';
- Self__ACIH->count__SGC=(__INTEGER)(Self__ACIH->count__SGC + 1);
- };
- append__3OS(buffer__VKPD,Self__4BIH->parent_itm_type_simple__3SN.name__GZP);
- } break;
- };
- Self__GCIH=((__STRING *)buffer__VKPD);
- new_capacity__FCIH= 0;
- if ((Self__GCIH->capacity__UCS <= Self__GCIH->count__SGC)) {
- if ((Self__GCIH->capacity__UCS == 0)) {
- Self__GCIH->capacity__UCS= 32;
- Self__GCIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__FCIH=(__INTEGER)(Self__GCIH->capacity__UCS << 1);
- Self__HCIH=((__CHARACTER *)Self__GCIH->storage__3CS);
- old_nb_elts__ICIH=Self__GCIH->capacity__UCS;
- new__JCIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__HCIH),((__UINTEGER_32 )old_nb_elts__ICIH),((__UINTEGER_32 )new_capacity__FCIH)));
- upper__NKKH=(__INTEGER)(new_capacity__FCIH - 1);
- Self__LKKH=old_nb_elts__ICIH;
- while ((Self__LKKH <= upper__NKKH)) {
- new__JCIH[Self__LKKH]='\0';
- Self__LKKH=(__INTEGER)(Self__LKKH + 1);
- };
- Self__GCIH->storage__3CS=new__JCIH;
- Self__GCIH->capacity__UCS=new_capacity__FCIH;
- };
- };
- ((__CHARACTER *)Self__GCIH->storage__3CS)[Self__GCIH->count__SGC]=',';
- Self__GCIH->count__SGC=(__INTEGER)(Self__GCIH->count__SGC + 1);
- Self__Y2UD=(__INTEGER)(Self__Y2UD + 1);
- };
- Self__2ARB=((__FAST_ARRAYoITM_TYPE_MONOo *)Self__UKPD->list_type__ZZP);
- __tmp__QLPD=((void **)Self__2ARB->parent_arrayed_collection__SYC.storage__FMV)[Self__2ARB->parent_arrayed_collection__SYC.upper__4HV];
- switch (((struct ___OBJ *)__tmp__QLPD)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- append__3OS(buffer__VKPD,((__ITM_TYPE_PARAMETER *)__tmp__QLPD)->parent_itm_type__VFE.name__GZP);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- append__3OS(buffer__VKPD,((__ITM_TYPE_SIMPLE *)__tmp__QLPD)->name__GZP);
- } break;
- case __ITM_TYPE_BLOCK__: {
- append_in__PJPD(__tmp__QLPD,buffer__VKPD);
- } break;
- case __ITM_TYPE_GENERIC__: {
- append_in__TKPD(__tmp__QLPD,buffer__VKPD);
- } break;
- case __ITM_TYPE_STYLE__: {
- Self__SLPD=((__ITM_TYPE_STYLE *)__tmp__QLPD);
- if (((void *)Self__SLPD->style__PZP != (void *)NULL)) {
- append__3OS(buffer__VKPD,Self__SLPD->style__PZP);
- Self__MCIH=((__STRING *)buffer__VKPD);
- new_capacity__LCIH= 0;
- if ((Self__MCIH->capacity__UCS <= Self__MCIH->count__SGC)) {
- if ((Self__MCIH->capacity__UCS == 0)) {
- Self__MCIH->capacity__UCS= 32;
- Self__MCIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__LCIH=(__INTEGER)(Self__MCIH->capacity__UCS << 1);
- Self__NCIH=((__CHARACTER *)Self__MCIH->storage__3CS);
- old_nb_elts__OCIH=Self__MCIH->capacity__UCS;
- new__PCIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__NCIH),((__UINTEGER_32 )old_nb_elts__OCIH),((__UINTEGER_32 )new_capacity__LCIH)));
- upper__SKKH=(__INTEGER)(new_capacity__LCIH - 1);
- Self__QKKH=old_nb_elts__OCIH;
- while ((Self__QKKH <= upper__SKKH)) {
- new__PCIH[Self__QKKH]='\0';
- Self__QKKH=(__INTEGER)(Self__QKKH + 1);
- };
- Self__MCIH->storage__3CS=new__PCIH;
- Self__MCIH->capacity__UCS=new_capacity__LCIH;
- };
- };
- ((__CHARACTER *)Self__MCIH->storage__3CS)[Self__MCIH->count__SGC]=' ';
- Self__MCIH->count__SGC=(__INTEGER)(Self__MCIH->count__SGC + 1);
- };
- append__3OS(buffer__VKPD,Self__SLPD->parent_itm_type_simple__3SN.name__GZP);
- } break;
- };
- Self__SCIH=((__STRING *)buffer__VKPD);
- new_capacity__RCIH= 0;
- if ((Self__SCIH->capacity__UCS <= Self__SCIH->count__SGC)) {
- if ((Self__SCIH->capacity__UCS == 0)) {
- Self__SCIH->capacity__UCS= 32;
- Self__SCIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__RCIH=(__INTEGER)(Self__SCIH->capacity__UCS << 1);
- Self__TCIH=((__CHARACTER *)Self__SCIH->storage__3CS);
- old_nb_elts__UCIH=Self__SCIH->capacity__UCS;
- new__VCIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__TCIH),((__UINTEGER_32 )old_nb_elts__UCIH),((__UINTEGER_32 )new_capacity__RCIH)));
- upper__XKKH=(__INTEGER)(new_capacity__RCIH - 1);
- Self__VKKH=old_nb_elts__UCIH;
- while ((Self__VKKH <= upper__XKKH)) {
- new__VCIH[Self__VKKH]='\0';
- Self__VKKH=(__INTEGER)(Self__VKKH + 1);
- };
- Self__SCIH->storage__3CS=new__VCIH;
- Self__SCIH->capacity__UCS=new_capacity__RCIH;
- };
- };
- ((__CHARACTER *)Self__SCIH->storage__3CS)[Self__SCIH->count__SGC]=')';
- Self__SCIH->count__SGC=(__INTEGER)(Self__SCIH->count__SGC + 1);
-}
-
-static void put__to__like__JNBG(void *tok__LNBG,void *buf__MNBG,void *key__NNBG)
-// ({NULLxSTRING_CONSTANTxSTRING},{NULLxSTRING},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
- __INTEGER __tmp__4NBG,Self__KPHG;
- void *lst__ONBG;
- lst__ONBG=NULL;
- if (((void *)key__NNBG != (void *)NULL)) {
- lst__ONBG=fast_reference_at__CMNE(short_dico__QD,key__NNBG);
- if (((void *)lst__ONBG != (void *)NULL)) {
- __tmp__4NBG=((__LINKED_LISToSTRING_CONSTANTo *)lst__ONBG)->parent_linked_collection__LD.upper__0ED;
- Self__KPHG= 1;
- while ((Self__KPHG <= __tmp__4NBG)) {
- if (((void *)item__X3ND(lst__ONBG,Self__KPHG) == (void *)NULL)) {
- append__3OS(buf__MNBG,tok__LNBG);
- } else {
- append__3OS(buf__MNBG,item__X3ND(lst__ONBG,Self__KPHG));
- };
- Self__KPHG=(__INTEGER)(Self__KPHG + 1);
- };
- };
- };
-}
-
-static void shorter_in__KKBG(__ITM_ARG *Self__LKBG,void *buf__MKBG)
-// ({ITM_ARG},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
- __STRING *Self__YCIH,*Self__ADIH;
- __INTEGER new_capacity__XCIH,old_nb_elts__0CIH,upper__2KKH,Self__0KKH;
- __INTEGER new_capacity__5CIH,old_nb_elts__CDIH,upper__BLKH,Self__5KKH;
- void *__tmp__ALBG;
- __ITM_TYPE_STYLE *Self__3CIH;
- __CHARACTER *Self__ZCIH,*new__1CIH,*Self__BDIH,*new__DDIH;
- if (((void *)Self__LKBG->name__F0HC == (void *)(&__string_58))) {
- put__to__like__URGG(Self__LKBG->name__F0HC,buf__MKBG,(&__string_119));
- } else {
- put__to__like__URGG(Self__LKBG->name__F0HC,buf__MKBG,(&__string_134));
- };
- Self__YCIH=((__STRING *)buf__MKBG);
- new_capacity__XCIH= 0;
- if ((Self__YCIH->capacity__UCS <= Self__YCIH->count__SGC)) {
- if ((Self__YCIH->capacity__UCS == 0)) {
- Self__YCIH->capacity__UCS= 32;
- Self__YCIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__XCIH=(__INTEGER)(Self__YCIH->capacity__UCS << 1);
- Self__ZCIH=((__CHARACTER *)Self__YCIH->storage__3CS);
- old_nb_elts__0CIH=Self__YCIH->capacity__UCS;
- new__1CIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__ZCIH),((__UINTEGER_32 )old_nb_elts__0CIH),((__UINTEGER_32 )new_capacity__XCIH)));
- upper__2KKH=(__INTEGER)(new_capacity__XCIH - 1);
- Self__0KKH=old_nb_elts__0CIH;
- while ((Self__0KKH <= upper__2KKH)) {
- new__1CIH[Self__0KKH]='\0';
- Self__0KKH=(__INTEGER)(Self__0KKH + 1);
- };
- Self__YCIH->storage__3CS=new__1CIH;
- Self__YCIH->capacity__UCS=new_capacity__XCIH;
- };
- };
- ((__CHARACTER *)Self__YCIH->storage__3CS)[Self__YCIH->count__SGC]=':';
- Self__YCIH->count__SGC=(__INTEGER)(Self__YCIH->count__SGC + 1);
- __tmp__ALBG=Self__LKBG->type__G0HC;
- switch (((struct ___OBJ *)__tmp__ALBG)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- shorter_in__0TDG(__tmp__ALBG,buf__MKBG);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- shorter_in__LUDG(__tmp__ALBG,buf__MKBG);
- } break;
- case __ITM_TYPE_BLOCK__: {
- shorter_in__2UDG(__tmp__ALBG,buf__MKBG);
- } break;
- case __ITM_TYPE_GENERIC__: {
- shorter_in__EWDG(__tmp__ALBG,buf__MKBG);
- } break;
- case __ITM_TYPE_STYLE__: {
- Self__3CIH=((__ITM_TYPE_STYLE *)__tmp__ALBG);
- if (((void *)Self__3CIH->style__PZP != (void *)NULL)) {
- put__to__like__I0FG(Self__3CIH->style__PZP,buf__MKBG,(&__string_119));
- Self__ADIH=((__STRING *)buf__MKBG);
- new_capacity__5CIH= 0;
- if ((Self__ADIH->capacity__UCS <= Self__ADIH->count__SGC)) {
- if ((Self__ADIH->capacity__UCS == 0)) {
- Self__ADIH->capacity__UCS= 32;
- Self__ADIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__5CIH=(__INTEGER)(Self__ADIH->capacity__UCS << 1);
- Self__BDIH=((__CHARACTER *)Self__ADIH->storage__3CS);
- old_nb_elts__CDIH=Self__ADIH->capacity__UCS;
- new__DDIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__BDIH),((__UINTEGER_32 )old_nb_elts__CDIH),((__UINTEGER_32 )new_capacity__5CIH)));
- upper__BLKH=(__INTEGER)(new_capacity__5CIH - 1);
- Self__5KKH=old_nb_elts__CDIH;
- while ((Self__5KKH <= upper__BLKH)) {
- new__DDIH[Self__5KKH]='\0';
- Self__5KKH=(__INTEGER)(Self__5KKH + 1);
- };
- Self__ADIH->storage__3CS=new__DDIH;
- Self__ADIH->capacity__UCS=new_capacity__5CIH;
- };
- };
- ((__CHARACTER *)Self__ADIH->storage__3CS)[Self__ADIH->count__SGC]=' ';
- Self__ADIH->count__SGC=(__INTEGER)(Self__ADIH->count__SGC + 1);
- };
- put__to__like__I0FG(Self__3CIH->parent_itm_type_simple__3SN.name__GZP,buf__MKBG,(&__string_125));
- } break;
- };
-}
-
-static void shorter_in__BLBG(__ITM_ARGS *Self__CLBG,void *buf__DLBG)
-// ({ITM_ARGS},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
- __STRING *Self__GDIH,*Self__MDIH,*Self__UDIH,*Self__0DIH,*Self__AEIH;
- __STRING *Self__IEIH,*Self__OEIH;
- __INTEGER new_capacity__FDIH,old_nb_elts__IDIH,upper__GLKH,Self__ELKH;
- __INTEGER __tmp__KLBG,Self__1XDG,new_capacity__LDIH,old_nb_elts__ODIH;
- __INTEGER upper__LLKH,Self__JLKH,new_capacity__TDIH,old_nb_elts__WDIH;
- __INTEGER upper__QLKH,Self__OLKH,new_capacity__ZDIH,old_nb_elts__2DIH;
- __INTEGER upper__VLKH,Self__TLKH,new_capacity__5DIH,old_nb_elts__CEIH;
- __INTEGER upper__0LKH,Self__YLKH,new_capacity__HEIH,old_nb_elts__KEIH;
- __INTEGER upper__5LKH,Self__3LKH,new_capacity__NEIH,old_nb_elts__QEIH;
- __INTEGER upper__EMKH,Self__CMKH;
- void *__tmp__JMBG,*__tmp__RMBG;
- __ITM_TYPE_STYLE *Self__RDIH,*Self__FEIH;
- __CHARACTER *Self__HDIH,*new__JDIH,*Self__NDIH,*new__PDIH,*Self__VDIH;
- __CHARACTER *new__XDIH,*Self__1DIH,*new__3DIH,*Self__BEIH,*new__DEIH;
- __CHARACTER *Self__JEIH,*new__LEIH,*Self__PEIH,*new__REIH;
- __FAST_ARRAYoSTRING_CONSTANTo *Self__C4GH;
- __FAST_ARRAYoITM_TYPE_MONOo *Self__E1FH;
- Self__GDIH=((__STRING *)buf__DLBG);
- new_capacity__FDIH= 0;
- if ((Self__GDIH->capacity__UCS <= Self__GDIH->count__SGC)) {
- if ((Self__GDIH->capacity__UCS == 0)) {
- Self__GDIH->capacity__UCS= 32;
- Self__GDIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__FDIH=(__INTEGER)(Self__GDIH->capacity__UCS << 1);
- Self__HDIH=((__CHARACTER *)Self__GDIH->storage__3CS);
- old_nb_elts__IDIH=Self__GDIH->capacity__UCS;
- new__JDIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__HDIH),((__UINTEGER_32 )old_nb_elts__IDIH),((__UINTEGER_32 )new_capacity__FDIH)));
- upper__GLKH=(__INTEGER)(new_capacity__FDIH - 1);
- Self__ELKH=old_nb_elts__IDIH;
- while ((Self__ELKH <= upper__GLKH)) {
- new__JDIH[Self__ELKH]='\0';
- Self__ELKH=(__INTEGER)(Self__ELKH + 1);
- };
- Self__GDIH->storage__3CS=new__JDIH;
- Self__GDIH->capacity__UCS=new_capacity__FDIH;
- };
- };
- ((__CHARACTER *)Self__GDIH->storage__3CS)[Self__GDIH->count__SGC]='(';
- Self__GDIH->count__SGC=(__INTEGER)(Self__GDIH->count__SGC + 1);
- __tmp__KLBG=(__INTEGER)(((__FAST_ARRAYoSTRING_CONSTANTo *)Self__CLBG->name__XDQF)->parent_arrayed_collection__MBJ.upper__2CPD - 1);
- Self__1XDG= 0;
- while ((Self__1XDG <= __tmp__KLBG)) {
- if (((void *)((void **)((__FAST_ARRAYoSTRING_CONSTANTo *)Self__CLBG->name__XDQF)->parent_arrayed_collection__MBJ.storage__SFPD)[Self__1XDG] == (void *)(&__string_58))) {
- put__to__like__NYDG(((void **)((__FAST_ARRAYoSTRING_CONSTANTo *)Self__CLBG->name__XDQF)->parent_arrayed_collection__MBJ.storage__SFPD)[Self__1XDG],buf__DLBG,(&__string_119));
- } else {
- put__to__like__NYDG(((void **)((__FAST_ARRAYoSTRING_CONSTANTo *)Self__CLBG->name__XDQF)->parent_arrayed_collection__MBJ.storage__SFPD)[Self__1XDG],buf__DLBG,(&__string_134));
- };
- Self__MDIH=((__STRING *)buf__DLBG);
- new_capacity__LDIH= 0;
- if ((Self__MDIH->capacity__UCS <= Self__MDIH->count__SGC)) {
- if ((Self__MDIH->capacity__UCS == 0)) {
- Self__MDIH->capacity__UCS= 32;
- Self__MDIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__LDIH=(__INTEGER)(Self__MDIH->capacity__UCS << 1);
- Self__NDIH=((__CHARACTER *)Self__MDIH->storage__3CS);
- old_nb_elts__ODIH=Self__MDIH->capacity__UCS;
- new__PDIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__NDIH),((__UINTEGER_32 )old_nb_elts__ODIH),((__UINTEGER_32 )new_capacity__LDIH)));
- upper__LLKH=(__INTEGER)(new_capacity__LDIH - 1);
- Self__JLKH=old_nb_elts__ODIH;
- while ((Self__JLKH <= upper__LLKH)) {
- new__PDIH[Self__JLKH]='\0';
- Self__JLKH=(__INTEGER)(Self__JLKH + 1);
- };
- Self__MDIH->storage__3CS=new__PDIH;
- Self__MDIH->capacity__UCS=new_capacity__LDIH;
- };
- };
- ((__CHARACTER *)Self__MDIH->storage__3CS)[Self__MDIH->count__SGC]=':';
- Self__MDIH->count__SGC=(__INTEGER)(Self__MDIH->count__SGC + 1);
- __tmp__JMBG=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)((__ITM_TYPE_MULTI *)Self__CLBG->type__YDQF)->list_type__2KP)->parent_arrayed_collection__SYC.storage__FMV)[Self__1XDG];
- switch (((struct ___OBJ *)__tmp__JMBG)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- shorter_in__0TDG(__tmp__JMBG,buf__DLBG);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- shorter_in__LUDG(__tmp__JMBG,buf__DLBG);
- } break;
- case __ITM_TYPE_BLOCK__: {
- shorter_in__2UDG(__tmp__JMBG,buf__DLBG);
- } break;
- case __ITM_TYPE_GENERIC__: {
- shorter_in__EWDG(__tmp__JMBG,buf__DLBG);
- } break;
- case __ITM_TYPE_STYLE__: {
- Self__RDIH=((__ITM_TYPE_STYLE *)__tmp__JMBG);
- if (((void *)Self__RDIH->style__PZP != (void *)NULL)) {
- put__to__like__I0FG(Self__RDIH->style__PZP,buf__DLBG,(&__string_119));
- Self__UDIH=((__STRING *)buf__DLBG);
- new_capacity__TDIH= 0;
- if ((Self__UDIH->capacity__UCS <= Self__UDIH->count__SGC)) {
- if ((Self__UDIH->capacity__UCS == 0)) {
- Self__UDIH->capacity__UCS= 32;
- Self__UDIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__TDIH=(__INTEGER)(Self__UDIH->capacity__UCS << 1);
- Self__VDIH=((__CHARACTER *)Self__UDIH->storage__3CS);
- old_nb_elts__WDIH=Self__UDIH->capacity__UCS;
- new__XDIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__VDIH),((__UINTEGER_32 )old_nb_elts__WDIH),((__UINTEGER_32 )new_capacity__TDIH)));
- upper__QLKH=(__INTEGER)(new_capacity__TDIH - 1);
- Self__OLKH=old_nb_elts__WDIH;
- while ((Self__OLKH <= upper__QLKH)) {
- new__XDIH[Self__OLKH]='\0';
- Self__OLKH=(__INTEGER)(Self__OLKH + 1);
- };
- Self__UDIH->storage__3CS=new__XDIH;
- Self__UDIH->capacity__UCS=new_capacity__TDIH;
- };
- };
- ((__CHARACTER *)Self__UDIH->storage__3CS)[Self__UDIH->count__SGC]=' ';
- Self__UDIH->count__SGC=(__INTEGER)(Self__UDIH->count__SGC + 1);
- };
- put__to__like__I0FG(Self__RDIH->parent_itm_type_simple__3SN.name__GZP,buf__DLBG,(&__string_125));
- } break;
- };
- Self__0DIH=((__STRING *)buf__DLBG);
- new_capacity__ZDIH= 0;
- if ((Self__0DIH->capacity__UCS <= Self__0DIH->count__SGC)) {
- if ((Self__0DIH->capacity__UCS == 0)) {
- Self__0DIH->capacity__UCS= 32;
- Self__0DIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__ZDIH=(__INTEGER)(Self__0DIH->capacity__UCS << 1);
- Self__1DIH=((__CHARACTER *)Self__0DIH->storage__3CS);
- old_nb_elts__2DIH=Self__0DIH->capacity__UCS;
- new__3DIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__1DIH),((__UINTEGER_32 )old_nb_elts__2DIH),((__UINTEGER_32 )new_capacity__ZDIH)));
- upper__VLKH=(__INTEGER)(new_capacity__ZDIH - 1);
- Self__TLKH=old_nb_elts__2DIH;
- while ((Self__TLKH <= upper__VLKH)) {
- new__3DIH[Self__TLKH]='\0';
- Self__TLKH=(__INTEGER)(Self__TLKH + 1);
- };
- Self__0DIH->storage__3CS=new__3DIH;
- Self__0DIH->capacity__UCS=new_capacity__ZDIH;
- };
- };
- ((__CHARACTER *)Self__0DIH->storage__3CS)[Self__0DIH->count__SGC]=',';
- Self__0DIH->count__SGC=(__INTEGER)(Self__0DIH->count__SGC + 1);
- Self__1XDG=(__INTEGER)(Self__1XDG + 1);
- };
- Self__C4GH=((__FAST_ARRAYoSTRING_CONSTANTo *)Self__CLBG->name__XDQF);
- put__to__like__NYDG(((void **)Self__C4GH->parent_arrayed_collection__MBJ.storage__SFPD)[Self__C4GH->parent_arrayed_collection__MBJ.upper__2CPD],buf__DLBG,(&__string_134));
- Self__AEIH=((__STRING *)buf__DLBG);
- new_capacity__5DIH= 0;
- if ((Self__AEIH->capacity__UCS <= Self__AEIH->count__SGC)) {
- if ((Self__AEIH->capacity__UCS == 0)) {
- Self__AEIH->capacity__UCS= 32;
- Self__AEIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__5DIH=(__INTEGER)(Self__AEIH->capacity__UCS << 1);
- Self__BEIH=((__CHARACTER *)Self__AEIH->storage__3CS);
- old_nb_elts__CEIH=Self__AEIH->capacity__UCS;
- new__DEIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__BEIH),((__UINTEGER_32 )old_nb_elts__CEIH),((__UINTEGER_32 )new_capacity__5DIH)));
- upper__0LKH=(__INTEGER)(new_capacity__5DIH - 1);
- Self__YLKH=old_nb_elts__CEIH;
- while ((Self__YLKH <= upper__0LKH)) {
- new__DEIH[Self__YLKH]='\0';
- Self__YLKH=(__INTEGER)(Self__YLKH + 1);
- };
- Self__AEIH->storage__3CS=new__DEIH;
- Self__AEIH->capacity__UCS=new_capacity__5DIH;
- };
- };
- ((__CHARACTER *)Self__AEIH->storage__3CS)[Self__AEIH->count__SGC]=':';
- Self__AEIH->count__SGC=(__INTEGER)(Self__AEIH->count__SGC + 1);
- Self__E1FH=((__FAST_ARRAYoITM_TYPE_MONOo *)((__ITM_TYPE_MULTI *)Self__CLBG->type__YDQF)->list_type__2KP);
- __tmp__RMBG=((void **)Self__E1FH->parent_arrayed_collection__SYC.storage__FMV)[Self__E1FH->parent_arrayed_collection__SYC.upper__4HV];
- switch (((struct ___OBJ *)__tmp__RMBG)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- shorter_in__0TDG(__tmp__RMBG,buf__DLBG);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- shorter_in__LUDG(__tmp__RMBG,buf__DLBG);
- } break;
- case __ITM_TYPE_BLOCK__: {
- shorter_in__2UDG(__tmp__RMBG,buf__DLBG);
- } break;
- case __ITM_TYPE_GENERIC__: {
- shorter_in__EWDG(__tmp__RMBG,buf__DLBG);
- } break;
- case __ITM_TYPE_STYLE__: {
- Self__FEIH=((__ITM_TYPE_STYLE *)__tmp__RMBG);
- if (((void *)Self__FEIH->style__PZP != (void *)NULL)) {
- put__to__like__I0FG(Self__FEIH->style__PZP,buf__DLBG,(&__string_119));
- Self__IEIH=((__STRING *)buf__DLBG);
- new_capacity__HEIH= 0;
- if ((Self__IEIH->capacity__UCS <= Self__IEIH->count__SGC)) {
- if ((Self__IEIH->capacity__UCS == 0)) {
- Self__IEIH->capacity__UCS= 32;
- Self__IEIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__HEIH=(__INTEGER)(Self__IEIH->capacity__UCS << 1);
- Self__JEIH=((__CHARACTER *)Self__IEIH->storage__3CS);
- old_nb_elts__KEIH=Self__IEIH->capacity__UCS;
- new__LEIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__JEIH),((__UINTEGER_32 )old_nb_elts__KEIH),((__UINTEGER_32 )new_capacity__HEIH)));
- upper__5LKH=(__INTEGER)(new_capacity__HEIH - 1);
- Self__3LKH=old_nb_elts__KEIH;
- while ((Self__3LKH <= upper__5LKH)) {
- new__LEIH[Self__3LKH]='\0';
- Self__3LKH=(__INTEGER)(Self__3LKH + 1);
- };
- Self__IEIH->storage__3CS=new__LEIH;
- Self__IEIH->capacity__UCS=new_capacity__HEIH;
- };
- };
- ((__CHARACTER *)Self__IEIH->storage__3CS)[Self__IEIH->count__SGC]=' ';
- Self__IEIH->count__SGC=(__INTEGER)(Self__IEIH->count__SGC + 1);
- };
- put__to__like__I0FG(Self__FEIH->parent_itm_type_simple__3SN.name__GZP,buf__DLBG,(&__string_125));
- } break;
- };
- Self__OEIH=((__STRING *)buf__DLBG);
- new_capacity__NEIH= 0;
- if ((Self__OEIH->capacity__UCS <= Self__OEIH->count__SGC)) {
- if ((Self__OEIH->capacity__UCS == 0)) {
- Self__OEIH->capacity__UCS= 32;
- Self__OEIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__NEIH=(__INTEGER)(Self__OEIH->capacity__UCS << 1);
- Self__PEIH=((__CHARACTER *)Self__OEIH->storage__3CS);
- old_nb_elts__QEIH=Self__OEIH->capacity__UCS;
- new__REIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__PEIH),((__UINTEGER_32 )old_nb_elts__QEIH),((__UINTEGER_32 )new_capacity__NEIH)));
- upper__EMKH=(__INTEGER)(new_capacity__NEIH - 1);
- Self__CMKH=old_nb_elts__QEIH;
- while ((Self__CMKH <= upper__EMKH)) {
- new__REIH[Self__CMKH]='\0';
- Self__CMKH=(__INTEGER)(Self__CMKH + 1);
- };
- Self__OEIH->storage__3CS=new__REIH;
- Self__OEIH->capacity__UCS=new_capacity__NEIH;
- };
- };
- ((__CHARACTER *)Self__OEIH->storage__3CS)[Self__OEIH->count__SGC]=')';
- Self__OEIH->count__SGC=(__INTEGER)(Self__OEIH->count__SGC + 1);
-}
-
-static void shorter_in__0TDG(__ITM_TYPE_PARAMETER *Self__1TDG,void *buf__2TDG)
-// ({ITM_TYPE_PARAMETER},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
- void *tok__2RFG;
- __INTEGER __tmp__PSFG,Self__I5HG;
- void *lst__5RFG;
- tok__2RFG=Self__1TDG->parent_itm_type__VFE.name__GZP;
- lst__5RFG=NULL;
- if (((void *)(&__string_126) != (void *)NULL)) {
- lst__5RFG=fast_reference_at__CMNE(short_dico__QD,(&__string_126));
- if (((void *)lst__5RFG != (void *)NULL)) {
- __tmp__PSFG=((__LINKED_LISToSTRING_CONSTANTo *)lst__5RFG)->parent_linked_collection__LD.upper__0ED;
- Self__I5HG= 1;
- while ((Self__I5HG <= __tmp__PSFG)) {
- if (((void *)item__X3ND(lst__5RFG,Self__I5HG) == (void *)NULL)) {
- append__3OS(buf__2TDG,tok__2RFG);
- } else {
- append__3OS(buf__2TDG,item__X3ND(lst__5RFG,Self__I5HG));
- };
- Self__I5HG=(__INTEGER)(Self__I5HG + 1);
- };
- };
- };
-}
-
-static void shorter_in__LUDG(__ITM_TYPE_SIMPLE *Self__MUDG,void *buf__NUDG)
-// ({ITM_TYPE_SIMPLE},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
- void *tok__WTFG;
- __INTEGER __tmp__JUFG,Self__Z5HG;
- void *lst__ZTFG;
- tok__WTFG=Self__MUDG->name__GZP;
- lst__ZTFG=NULL;
- if (((void *)(&__string_125) != (void *)NULL)) {
- lst__ZTFG=fast_reference_at__CMNE(short_dico__QD,(&__string_125));
- if (((void *)lst__ZTFG != (void *)NULL)) {
- __tmp__JUFG=((__LINKED_LISToSTRING_CONSTANTo *)lst__ZTFG)->parent_linked_collection__LD.upper__0ED;
- Self__Z5HG= 1;
- while ((Self__Z5HG <= __tmp__JUFG)) {
- if (((void *)item__X3ND(lst__ZTFG,Self__Z5HG) == (void *)NULL)) {
- append__3OS(buf__NUDG,tok__WTFG);
- } else {
- append__3OS(buf__NUDG,item__X3ND(lst__ZTFG,Self__Z5HG));
- };
- Self__Z5HG=(__INTEGER)(Self__Z5HG + 1);
- };
- };
- };
-}
-
-static void shorter_raw_in__M2FG(__ITM_TYPE_MULTI *Self__N2FG,void *buf__O2FG)
-// ({ITM_TYPE_MULTI},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
- __INTEGER __tmp__V2FG,Self__DVGG,new_capacity__VEIH,old_nb_elts__YEIH;
- __INTEGER upper__JMKH,Self__HMKH,new_capacity__1EIH,old_nb_elts__4EIH;
- __INTEGER upper__OMKH,Self__MMKH,new_capacity__DFIH,old_nb_elts__GFIH;
- __INTEGER upper__TMKH,Self__RMKH;
- void *__tmp__22FG,*__tmp__52FG;
- __ITM_TYPE_STYLE *Self__TEIH,*Self__BFIH;
- __STRING *Self__WEIH,*Self__2EIH,*Self__EFIH;
- __CHARACTER *Self__XEIH,*new__ZEIH,*Self__3EIH,*new__5EIH,*Self__FFIH;
- __CHARACTER *new__HFIH;
- __FAST_ARRAYoITM_TYPE_MONOo *Self__J1FH;
- __tmp__V2FG=(__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)Self__N2FG->list_type__2KP)->parent_arrayed_collection__SYC.upper__4HV - 1);
- Self__DVGG= 0;
- while ((Self__DVGG <= __tmp__V2FG)) {
- __tmp__22FG=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)Self__N2FG->list_type__2KP)->parent_arrayed_collection__SYC.storage__FMV)[Self__DVGG];
- switch (((struct ___OBJ *)__tmp__22FG)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- shorter_in__0TDG(__tmp__22FG,buf__O2FG);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- shorter_in__LUDG(__tmp__22FG,buf__O2FG);
- } break;
- case __ITM_TYPE_BLOCK__: {
- shorter_in__2UDG(__tmp__22FG,buf__O2FG);
- } break;
- case __ITM_TYPE_GENERIC__: {
- shorter_in__EWDG(__tmp__22FG,buf__O2FG);
- } break;
- case __ITM_TYPE_STYLE__: {
- Self__TEIH=((__ITM_TYPE_STYLE *)__tmp__22FG);
- if (((void *)Self__TEIH->style__PZP != (void *)NULL)) {
- put__to__like__I0FG(Self__TEIH->style__PZP,buf__O2FG,(&__string_119));
- Self__WEIH=((__STRING *)buf__O2FG);
- new_capacity__VEIH= 0;
- if ((Self__WEIH->capacity__UCS <= Self__WEIH->count__SGC)) {
- if ((Self__WEIH->capacity__UCS == 0)) {
- Self__WEIH->capacity__UCS= 32;
- Self__WEIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__VEIH=(__INTEGER)(Self__WEIH->capacity__UCS << 1);
- Self__XEIH=((__CHARACTER *)Self__WEIH->storage__3CS);
- old_nb_elts__YEIH=Self__WEIH->capacity__UCS;
- new__ZEIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__XEIH),((__UINTEGER_32 )old_nb_elts__YEIH),((__UINTEGER_32 )new_capacity__VEIH)));
- upper__JMKH=(__INTEGER)(new_capacity__VEIH - 1);
- Self__HMKH=old_nb_elts__YEIH;
- while ((Self__HMKH <= upper__JMKH)) {
- new__ZEIH[Self__HMKH]='\0';
- Self__HMKH=(__INTEGER)(Self__HMKH + 1);
- };
- Self__WEIH->storage__3CS=new__ZEIH;
- Self__WEIH->capacity__UCS=new_capacity__VEIH;
- };
- };
- ((__CHARACTER *)Self__WEIH->storage__3CS)[Self__WEIH->count__SGC]=' ';
- Self__WEIH->count__SGC=(__INTEGER)(Self__WEIH->count__SGC + 1);
- };
- put__to__like__I0FG(Self__TEIH->parent_itm_type_simple__3SN.name__GZP,buf__O2FG,(&__string_125));
- } break;
- };
- Self__2EIH=((__STRING *)buf__O2FG);
- new_capacity__1EIH= 0;
- if ((Self__2EIH->capacity__UCS <= Self__2EIH->count__SGC)) {
- if ((Self__2EIH->capacity__UCS == 0)) {
- Self__2EIH->capacity__UCS= 32;
- Self__2EIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__1EIH=(__INTEGER)(Self__2EIH->capacity__UCS << 1);
- Self__3EIH=((__CHARACTER *)Self__2EIH->storage__3CS);
- old_nb_elts__4EIH=Self__2EIH->capacity__UCS;
- new__5EIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__3EIH),((__UINTEGER_32 )old_nb_elts__4EIH),((__UINTEGER_32 )new_capacity__1EIH)));
- upper__OMKH=(__INTEGER)(new_capacity__1EIH - 1);
- Self__MMKH=old_nb_elts__4EIH;
- while ((Self__MMKH <= upper__OMKH)) {
- new__5EIH[Self__MMKH]='\0';
- Self__MMKH=(__INTEGER)(Self__MMKH + 1);
- };
- Self__2EIH->storage__3CS=new__5EIH;
- Self__2EIH->capacity__UCS=new_capacity__1EIH;
- };
- };
- ((__CHARACTER *)Self__2EIH->storage__3CS)[Self__2EIH->count__SGC]=',';
- Self__2EIH->count__SGC=(__INTEGER)(Self__2EIH->count__SGC + 1);
- Self__DVGG=(__INTEGER)(Self__DVGG + 1);
- };
- Self__J1FH=((__FAST_ARRAYoITM_TYPE_MONOo *)Self__N2FG->list_type__2KP);
- __tmp__52FG=((void **)Self__J1FH->parent_arrayed_collection__SYC.storage__FMV)[Self__J1FH->parent_arrayed_collection__SYC.upper__4HV];
- switch (((struct ___OBJ *)__tmp__52FG)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- shorter_in__0TDG(__tmp__52FG,buf__O2FG);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- shorter_in__LUDG(__tmp__52FG,buf__O2FG);
- } break;
- case __ITM_TYPE_BLOCK__: {
- shorter_in__2UDG(__tmp__52FG,buf__O2FG);
- } break;
- case __ITM_TYPE_GENERIC__: {
- shorter_in__EWDG(__tmp__52FG,buf__O2FG);
- } break;
- case __ITM_TYPE_STYLE__: {
- Self__BFIH=((__ITM_TYPE_STYLE *)__tmp__52FG);
- if (((void *)Self__BFIH->style__PZP != (void *)NULL)) {
- put__to__like__I0FG(Self__BFIH->style__PZP,buf__O2FG,(&__string_119));
- Self__EFIH=((__STRING *)buf__O2FG);
- new_capacity__DFIH= 0;
- if ((Self__EFIH->capacity__UCS <= Self__EFIH->count__SGC)) {
- if ((Self__EFIH->capacity__UCS == 0)) {
- Self__EFIH->capacity__UCS= 32;
- Self__EFIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__DFIH=(__INTEGER)(Self__EFIH->capacity__UCS << 1);
- Self__FFIH=((__CHARACTER *)Self__EFIH->storage__3CS);
- old_nb_elts__GFIH=Self__EFIH->capacity__UCS;
- new__HFIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__FFIH),((__UINTEGER_32 )old_nb_elts__GFIH),((__UINTEGER_32 )new_capacity__DFIH)));
- upper__TMKH=(__INTEGER)(new_capacity__DFIH - 1);
- Self__RMKH=old_nb_elts__GFIH;
- while ((Self__RMKH <= upper__TMKH)) {
- new__HFIH[Self__RMKH]='\0';
- Self__RMKH=(__INTEGER)(Self__RMKH + 1);
- };
- Self__EFIH->storage__3CS=new__HFIH;
- Self__EFIH->capacity__UCS=new_capacity__DFIH;
- };
- };
- ((__CHARACTER *)Self__EFIH->storage__3CS)[Self__EFIH->count__SGC]=' ';
- Self__EFIH->count__SGC=(__INTEGER)(Self__EFIH->count__SGC + 1);
- };
- put__to__like__I0FG(Self__BFIH->parent_itm_type_simple__3SN.name__GZP,buf__O2FG,(&__string_125));
- } break;
- };
-}
-
-static void shorter_in__2UDG(__ITM_TYPE_BLOCK *Self__3UDG,void *buf__4UDG)
-// ({ITM_TYPE_BLOCK},{NULLxSTRING}) VoidRecursive, No inlinable.
-{
- void *typ_mul__5UDG,*__tmp__TVDG;
- void *__tmp__IVDG,*__tmp__SVDG,*__tmp__ZVDG;
- __ITM_TYPE_MULTI *Self__OTYG,*Self__QTYG;
- __STRING *Self__KFIH,*Self__QFIH,*Self__YFIH,*Self__4FIH,*Self__EGIH;
- __STRING *Self__KGIH,*Self__QGIH,*Self__YGIH;
- __INTEGER new_capacity__JFIH,old_nb_elts__MFIH,upper__YMKH,Self__WMKH;
- __INTEGER new_capacity__PFIH,old_nb_elts__SFIH,upper__3MKH,Self__1MKH;
- __INTEGER new_capacity__XFIH,old_nb_elts__0FIH,upper__CNKH,Self__ANKH;
- __INTEGER new_capacity__3FIH,old_nb_elts__AGIH,upper__HNKH,Self__FNKH;
- __INTEGER new_capacity__DGIH,old_nb_elts__GGIH,upper__MNKH,Self__KNKH;
- __INTEGER new_capacity__JGIH,old_nb_elts__MGIH,upper__RNKH,Self__PNKH;
- __INTEGER new_capacity__PGIH,old_nb_elts__SGIH,upper__WNKH,Self__UNKH;
- __INTEGER new_capacity__XGIH,old_nb_elts__0GIH,upper__1NKH,Self__ZNKH;
- __ITM_TYPE_STYLE *Self__VFIH,*Self__VGIH;
- __CHARACTER *Self__LFIH,*new__NFIH,*Self__RFIH,*new__TFIH,*Self__ZFIH;
- __CHARACTER *new__1FIH,*Self__5FIH,*new__BGIH,*Self__FGIH,*new__HGIH;
- __CHARACTER *Self__LGIH,*new__NGIH,*Self__RGIH,*new__TGIH,*Self__ZGIH;
- __CHARACTER *new__1GIH;
- typ_mul__5UDG=NULL;
- put__to__like__GVFG((&__string_299),buf__4UDG);
- if (((void *)Self__3UDG->type_argument__SNN != (void *)NULL)) {
- __tmp__IVDG=Self__3UDG->type_argument__SNN;
- switch (((struct ___OBJ *)__tmp__IVDG)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- shorter_in__0TDG(__tmp__IVDG,buf__4UDG);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- shorter_in__LUDG(__tmp__IVDG,buf__4UDG);
- } break;
- case __ITM_TYPE_MULTI__: {
- Self__OTYG=((__ITM_TYPE_MULTI *)__tmp__IVDG);
- Self__KFIH=((__STRING *)buf__4UDG);
- new_capacity__JFIH= 0;
- if ((Self__KFIH->capacity__UCS <= Self__KFIH->count__SGC)) {
- if ((Self__KFIH->capacity__UCS == 0)) {
- Self__KFIH->capacity__UCS= 32;
- Self__KFIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__JFIH=(__INTEGER)(Self__KFIH->capacity__UCS << 1);
- Self__LFIH=((__CHARACTER *)Self__KFIH->storage__3CS);
- old_nb_elts__MFIH=Self__KFIH->capacity__UCS;
- new__NFIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__LFIH),((__UINTEGER_32 )old_nb_elts__MFIH),((__UINTEGER_32 )new_capacity__JFIH)));
- upper__YMKH=(__INTEGER)(new_capacity__JFIH - 1);
- Self__WMKH=old_nb_elts__MFIH;
- while ((Self__WMKH <= upper__YMKH)) {
- new__NFIH[Self__WMKH]='\0';
- Self__WMKH=(__INTEGER)(Self__WMKH + 1);
- };
- Self__KFIH->storage__3CS=new__NFIH;
- Self__KFIH->capacity__UCS=new_capacity__JFIH;
- };
- };
- ((__CHARACTER *)Self__KFIH->storage__3CS)[Self__KFIH->count__SGC]='(';
- Self__KFIH->count__SGC=(__INTEGER)(Self__KFIH->count__SGC + 1);
- shorter_raw_in__M2FG(Self__OTYG,buf__4UDG);
- Self__QFIH=((__STRING *)buf__4UDG);
- new_capacity__PFIH= 0;
- if ((Self__QFIH->capacity__UCS <= Self__QFIH->count__SGC)) {
- if ((Self__QFIH->capacity__UCS == 0)) {
- Self__QFIH->capacity__UCS= 32;
- Self__QFIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__PFIH=(__INTEGER)(Self__QFIH->capacity__UCS << 1);
- Self__RFIH=((__CHARACTER *)Self__QFIH->storage__3CS);
- old_nb_elts__SFIH=Self__QFIH->capacity__UCS;
- new__TFIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__RFIH),((__UINTEGER_32 )old_nb_elts__SFIH),((__UINTEGER_32 )new_capacity__PFIH)));
- upper__3MKH=(__INTEGER)(new_capacity__PFIH - 1);
- Self__1MKH=old_nb_elts__SFIH;
- while ((Self__1MKH <= upper__3MKH)) {
- new__TFIH[Self__1MKH]='\0';
- Self__1MKH=(__INTEGER)(Self__1MKH + 1);
- };
- Self__QFIH->storage__3CS=new__TFIH;
- Self__QFIH->capacity__UCS=new_capacity__PFIH;
- };
- };
- ((__CHARACTER *)Self__QFIH->storage__3CS)[Self__QFIH->count__SGC]=')';
- Self__QFIH->count__SGC=(__INTEGER)(Self__QFIH->count__SGC + 1);
- } break;
- case __ITM_TYPE_BLOCK__: {
- shorter_in__2UDG(__tmp__IVDG,buf__4UDG);
- } break;
- case __ITM_TYPE_GENERIC__: {
- shorter_in__EWDG(__tmp__IVDG,buf__4UDG);
- } break;
- case __ITM_TYPE_STYLE__: {
- Self__VFIH=((__ITM_TYPE_STYLE *)__tmp__IVDG);
- if (((void *)Self__VFIH->style__PZP != (void *)NULL)) {
- put__to__like__I0FG(Self__VFIH->style__PZP,buf__4UDG,(&__string_119));
- Self__YFIH=((__STRING *)buf__4UDG);
- new_capacity__XFIH= 0;
- if ((Self__YFIH->capacity__UCS <= Self__YFIH->count__SGC)) {
- if ((Self__YFIH->capacity__UCS == 0)) {
- Self__YFIH->capacity__UCS= 32;
- Self__YFIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__XFIH=(__INTEGER)(Self__YFIH->capacity__UCS << 1);
- Self__ZFIH=((__CHARACTER *)Self__YFIH->storage__3CS);
- old_nb_elts__0FIH=Self__YFIH->capacity__UCS;
- new__1FIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__ZFIH),((__UINTEGER_32 )old_nb_elts__0FIH),((__UINTEGER_32 )new_capacity__XFIH)));
- upper__CNKH=(__INTEGER)(new_capacity__XFIH - 1);
- Self__ANKH=old_nb_elts__0FIH;
- while ((Self__ANKH <= upper__CNKH)) {
- new__1FIH[Self__ANKH]='\0';
- Self__ANKH=(__INTEGER)(Self__ANKH + 1);
- };
- Self__YFIH->storage__3CS=new__1FIH;
- Self__YFIH->capacity__UCS=new_capacity__XFIH;
- };
- };
- ((__CHARACTER *)Self__YFIH->storage__3CS)[Self__YFIH->count__SGC]=' ';
- Self__YFIH->count__SGC=(__INTEGER)(Self__YFIH->count__SGC + 1);
- };
- put__to__like__I0FG(Self__VFIH->parent_itm_type_simple__3SN.name__GZP,buf__4UDG,(&__string_125));
- } break;
- };
- Self__4FIH=((__STRING *)buf__4UDG);
- new_capacity__3FIH= 0;
- if ((Self__4FIH->capacity__UCS <= Self__4FIH->count__SGC)) {
- if ((Self__4FIH->capacity__UCS == 0)) {
- Self__4FIH->capacity__UCS= 32;
- Self__4FIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__3FIH=(__INTEGER)(Self__4FIH->capacity__UCS << 1);
- Self__5FIH=((__CHARACTER *)Self__4FIH->storage__3CS);
- old_nb_elts__AGIH=Self__4FIH->capacity__UCS;
- new__BGIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__5FIH),((__UINTEGER_32 )old_nb_elts__AGIH),((__UINTEGER_32 )new_capacity__3FIH)));
- upper__HNKH=(__INTEGER)(new_capacity__3FIH - 1);
- Self__FNKH=old_nb_elts__AGIH;
- while ((Self__FNKH <= upper__HNKH)) {
- new__BGIH[Self__FNKH]='\0';
- Self__FNKH=(__INTEGER)(Self__FNKH + 1);
- };
- Self__4FIH->storage__3CS=new__BGIH;
- Self__4FIH->capacity__UCS=new_capacity__3FIH;
- };
- };
- ((__CHARACTER *)Self__4FIH->storage__3CS)[Self__4FIH->count__SGC]=';';
- Self__4FIH->count__SGC=(__INTEGER)(Self__4FIH->count__SGC + 1);
- Self__EGIH=((__STRING *)buf__4UDG);
- new_capacity__DGIH= 0;
- if ((Self__EGIH->capacity__UCS <= Self__EGIH->count__SGC)) {
- if ((Self__EGIH->capacity__UCS == 0)) {
- Self__EGIH->capacity__UCS= 32;
- Self__EGIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__DGIH=(__INTEGER)(Self__EGIH->capacity__UCS << 1);
- Self__FGIH=((__CHARACTER *)Self__EGIH->storage__3CS);
- old_nb_elts__GGIH=Self__EGIH->capacity__UCS;
- new__HGIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__FGIH),((__UINTEGER_32 )old_nb_elts__GGIH),((__UINTEGER_32 )new_capacity__DGIH)));
- upper__MNKH=(__INTEGER)(new_capacity__DGIH - 1);
- Self__KNKH=old_nb_elts__GGIH;
- while ((Self__KNKH <= upper__MNKH)) {
- new__HGIH[Self__KNKH]='\0';
- Self__KNKH=(__INTEGER)(Self__KNKH + 1);
- };
- Self__EGIH->storage__3CS=new__HGIH;
- Self__EGIH->capacity__UCS=new_capacity__DGIH;
- };
- };
- ((__CHARACTER *)Self__EGIH->storage__3CS)[Self__EGIH->count__SGC]=' ';
- Self__EGIH->count__SGC=(__INTEGER)(Self__EGIH->count__SGC + 1);
- };
- if (((void *)Self__3UDG->type_result__2NN != (void *)NULL)) {
- __tmp__SVDG=Self__3UDG->type_result__2NN;
- if (__tmp__SVDG==NULL) {
- __tmp__TVDG=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__SVDG)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- __tmp__TVDG=NULL;
- } break;
- case __ITM_TYPE_SIMPLE__: {
- __tmp__TVDG=NULL;
- } break;
- case __ITM_TYPE_MULTI__: {
- __tmp__TVDG=((void *)__tmp__SVDG);
- } break;
- case __ITM_TYPE_BLOCK__: {
- __tmp__TVDG=NULL;
- } break;
- case __ITM_TYPE_GENERIC__: {
- __tmp__TVDG=NULL;
- } break;
- case __ITM_TYPE_STYLE__: {
- __tmp__TVDG=NULL;
- } break;
- }
- };
- typ_mul__5UDG=__tmp__TVDG;
- if (((void *)__tmp__TVDG == (void *)NULL)) {
- __tmp__ZVDG=Self__3UDG->type_result__2NN;
- switch (((struct ___OBJ *)__tmp__ZVDG)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- shorter_in__0TDG(__tmp__ZVDG,buf__4UDG);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- shorter_in__LUDG(__tmp__ZVDG,buf__4UDG);
- } break;
- case __ITM_TYPE_MULTI__: {
- Self__QTYG=((__ITM_TYPE_MULTI *)__tmp__ZVDG);
- Self__KGIH=((__STRING *)buf__4UDG);
- new_capacity__JGIH= 0;
- if ((Self__KGIH->capacity__UCS <= Self__KGIH->count__SGC)) {
- if ((Self__KGIH->capacity__UCS == 0)) {
- Self__KGIH->capacity__UCS= 32;
- Self__KGIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__JGIH=(__INTEGER)(Self__KGIH->capacity__UCS << 1);
- Self__LGIH=((__CHARACTER *)Self__KGIH->storage__3CS);
- old_nb_elts__MGIH=Self__KGIH->capacity__UCS;
- new__NGIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__LGIH),((__UINTEGER_32 )old_nb_elts__MGIH),((__UINTEGER_32 )new_capacity__JGIH)));
- upper__RNKH=(__INTEGER)(new_capacity__JGIH - 1);
- Self__PNKH=old_nb_elts__MGIH;
- while ((Self__PNKH <= upper__RNKH)) {
- new__NGIH[Self__PNKH]='\0';
- Self__PNKH=(__INTEGER)(Self__PNKH + 1);
- };
- Self__KGIH->storage__3CS=new__NGIH;
- Self__KGIH->capacity__UCS=new_capacity__JGIH;
- };
- };
- ((__CHARACTER *)Self__KGIH->storage__3CS)[Self__KGIH->count__SGC]='(';
- Self__KGIH->count__SGC=(__INTEGER)(Self__KGIH->count__SGC + 1);
- shorter_raw_in__M2FG(Self__QTYG,buf__4UDG);
- Self__QGIH=((__STRING *)buf__4UDG);
- new_capacity__PGIH= 0;
- if ((Self__QGIH->capacity__UCS <= Self__QGIH->count__SGC)) {
- if ((Self__QGIH->capacity__UCS == 0)) {
- Self__QGIH->capacity__UCS= 32;
- Self__QGIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__PGIH=(__INTEGER)(Self__QGIH->capacity__UCS << 1);
- Self__RGIH=((__CHARACTER *)Self__QGIH->storage__3CS);
- old_nb_elts__SGIH=Self__QGIH->capacity__UCS;
- new__TGIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__RGIH),((__UINTEGER_32 )old_nb_elts__SGIH),((__UINTEGER_32 )new_capacity__PGIH)));
- upper__WNKH=(__INTEGER)(new_capacity__PGIH - 1);
- Self__UNKH=old_nb_elts__SGIH;
- while ((Self__UNKH <= upper__WNKH)) {
- new__TGIH[Self__UNKH]='\0';
- Self__UNKH=(__INTEGER)(Self__UNKH + 1);
- };
- Self__QGIH->storage__3CS=new__TGIH;
- Self__QGIH->capacity__UCS=new_capacity__PGIH;
- };
- };
- ((__CHARACTER *)Self__QGIH->storage__3CS)[Self__QGIH->count__SGC]=')';
- Self__QGIH->count__SGC=(__INTEGER)(Self__QGIH->count__SGC + 1);
- } break;
- case __ITM_TYPE_BLOCK__: {
- shorter_in__2UDG(__tmp__ZVDG,buf__4UDG);
- } break;
- case __ITM_TYPE_GENERIC__: {
- shorter_in__EWDG(__tmp__ZVDG,buf__4UDG);
- } break;
- case __ITM_TYPE_STYLE__: {
- Self__VGIH=((__ITM_TYPE_STYLE *)__tmp__ZVDG);
- if (((void *)Self__VGIH->style__PZP != (void *)NULL)) {
- put__to__like__I0FG(Self__VGIH->style__PZP,buf__4UDG,(&__string_119));
- Self__YGIH=((__STRING *)buf__4UDG);
- new_capacity__XGIH= 0;
- if ((Self__YGIH->capacity__UCS <= Self__YGIH->count__SGC)) {
- if ((Self__YGIH->capacity__UCS == 0)) {
- Self__YGIH->capacity__UCS= 32;
- Self__YGIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__XGIH=(__INTEGER)(Self__YGIH->capacity__UCS << 1);
- Self__ZGIH=((__CHARACTER *)Self__YGIH->storage__3CS);
- old_nb_elts__0GIH=Self__YGIH->capacity__UCS;
- new__1GIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__ZGIH),((__UINTEGER_32 )old_nb_elts__0GIH),((__UINTEGER_32 )new_capacity__XGIH)));
- upper__1NKH=(__INTEGER)(new_capacity__XGIH - 1);
- Self__ZNKH=old_nb_elts__0GIH;
- while ((Self__ZNKH <= upper__1NKH)) {
- new__1GIH[Self__ZNKH]='\0';
- Self__ZNKH=(__INTEGER)(Self__ZNKH + 1);
- };
- Self__YGIH->storage__3CS=new__1GIH;
- Self__YGIH->capacity__UCS=new_capacity__XGIH;
- };
- };
- ((__CHARACTER *)Self__YGIH->storage__3CS)[Self__YGIH->count__SGC]=' ';
- Self__YGIH->count__SGC=(__INTEGER)(Self__YGIH->count__SGC + 1);
- };
- put__to__like__I0FG(Self__VGIH->parent_itm_type_simple__3SN.name__GZP,buf__4UDG,(&__string_125));
- } break;
- };
- } else {
- shorter_raw_in__M2FG(__tmp__TVDG,buf__4UDG);
- };
- };
- put__to__like__GVFG((&__string_300),buf__4UDG);
-}
-
-static void shorter_in__EWDG(__ITM_TYPE_GENERIC *Self__FWDG,void *buf__GWDG)
-// ({ITM_TYPE_GENERIC},{NULLxSTRING}) VoidRecursive, No inlinable.
-{
- __STRING *Self__4GIH,*Self__EHIH,*Self__MHIH,*Self__SHIH,*Self__YHIH;
- __STRING *Self__4HIH;
- __INTEGER new_capacity__3GIH,old_nb_elts__AHIH,upper__AOKH,Self__4NKH;
- __INTEGER new_capacity__DHIH,old_nb_elts__GHIH,upper__FOKH,Self__DOKH;
- __INTEGER __tmp__1WDG,Self__LZFG,new_capacity__LHIH,old_nb_elts__OHIH;
- __INTEGER upper__KOKH,Self__IOKH,new_capacity__RHIH,old_nb_elts__UHIH;
- __INTEGER upper__POKH,Self__NOKH,new_capacity__XHIH,old_nb_elts__0HIH;
- __INTEGER upper__UOKH,Self__SOKH,new_capacity__3HIH,old_nb_elts__AIIH;
- __INTEGER upper__ZOKH,Self__XOKH;
- void *__tmp__CXDG,*__tmp__FXDG;
- __ITM_TYPE_STYLE *Self__JHIH,*Self__HXDG;
- __CHARACTER *Self__5GIH,*new__BHIH,*Self__FHIH,*new__HHIH,*Self__NHIH;
- __CHARACTER *new__PHIH,*Self__THIH,*new__VHIH,*Self__ZHIH,*new__1HIH;
- __CHARACTER *Self__5HIH,*new__BIIH;
- __FAST_ARRAYoITM_TYPE_MONOo *Self__O1FH;
- if (((void *)Self__FWDG->parent_itm_type_style__4SN.style__PZP != (void *)NULL)) {
- put__to__like__ZXFG(Self__FWDG->parent_itm_type_style__4SN.style__PZP,buf__GWDG,(&__string_119));
- Self__4GIH=((__STRING *)buf__GWDG);
- new_capacity__3GIH= 0;
- if ((Self__4GIH->capacity__UCS <= Self__4GIH->count__SGC)) {
- if ((Self__4GIH->capacity__UCS == 0)) {
- Self__4GIH->capacity__UCS= 32;
- Self__4GIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__3GIH=(__INTEGER)(Self__4GIH->capacity__UCS << 1);
- Self__5GIH=((__CHARACTER *)Self__4GIH->storage__3CS);
- old_nb_elts__AHIH=Self__4GIH->capacity__UCS;
- new__BHIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__5GIH),((__UINTEGER_32 )old_nb_elts__AHIH),((__UINTEGER_32 )new_capacity__3GIH)));
- upper__AOKH=(__INTEGER)(new_capacity__3GIH - 1);
- Self__4NKH=old_nb_elts__AHIH;
- while ((Self__4NKH <= upper__AOKH)) {
- new__BHIH[Self__4NKH]='\0';
- Self__4NKH=(__INTEGER)(Self__4NKH + 1);
- };
- Self__4GIH->storage__3CS=new__BHIH;
- Self__4GIH->capacity__UCS=new_capacity__3GIH;
- };
- };
- ((__CHARACTER *)Self__4GIH->storage__3CS)[Self__4GIH->count__SGC]=' ';
- Self__4GIH->count__SGC=(__INTEGER)(Self__4GIH->count__SGC + 1);
- };
- put__to__like__ZXFG(Self__FWDG->parent_itm_type_style__4SN.parent_itm_type_simple__3SN.name__GZP,buf__GWDG,(&__string_125));
- Self__EHIH=((__STRING *)buf__GWDG);
- new_capacity__DHIH= 0;
- if ((Self__EHIH->capacity__UCS <= Self__EHIH->count__SGC)) {
- if ((Self__EHIH->capacity__UCS == 0)) {
- Self__EHIH->capacity__UCS= 32;
- Self__EHIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__DHIH=(__INTEGER)(Self__EHIH->capacity__UCS << 1);
- Self__FHIH=((__CHARACTER *)Self__EHIH->storage__3CS);
- old_nb_elts__GHIH=Self__EHIH->capacity__UCS;
- new__HHIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__FHIH),((__UINTEGER_32 )old_nb_elts__GHIH),((__UINTEGER_32 )new_capacity__DHIH)));
- upper__FOKH=(__INTEGER)(new_capacity__DHIH - 1);
- Self__DOKH=old_nb_elts__GHIH;
- while ((Self__DOKH <= upper__FOKH)) {
- new__HHIH[Self__DOKH]='\0';
- Self__DOKH=(__INTEGER)(Self__DOKH + 1);
- };
- Self__EHIH->storage__3CS=new__HHIH;
- Self__EHIH->capacity__UCS=new_capacity__DHIH;
- };
- };
- ((__CHARACTER *)Self__EHIH->storage__3CS)[Self__EHIH->count__SGC]='(';
- Self__EHIH->count__SGC=(__INTEGER)(Self__EHIH->count__SGC + 1);
- __tmp__1WDG=(__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)Self__FWDG->list_type__ZZP)->parent_arrayed_collection__SYC.upper__4HV - 1);
- Self__LZFG= 0;
- while ((Self__LZFG <= __tmp__1WDG)) {
- __tmp__CXDG=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)Self__FWDG->list_type__ZZP)->parent_arrayed_collection__SYC.storage__FMV)[Self__LZFG];
- switch (((struct ___OBJ *)__tmp__CXDG)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- shorter_in__0TDG(__tmp__CXDG,buf__GWDG);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- shorter_in__LUDG(__tmp__CXDG,buf__GWDG);
- } break;
- case __ITM_TYPE_BLOCK__: {
- shorter_in__2UDG(__tmp__CXDG,buf__GWDG);
- } break;
- case __ITM_TYPE_GENERIC__: {
- shorter_in__EWDG(__tmp__CXDG,buf__GWDG);
- } break;
- case __ITM_TYPE_STYLE__: {
- Self__JHIH=((__ITM_TYPE_STYLE *)__tmp__CXDG);
- if (((void *)Self__JHIH->style__PZP != (void *)NULL)) {
- put__to__like__I0FG(Self__JHIH->style__PZP,buf__GWDG,(&__string_119));
- Self__MHIH=((__STRING *)buf__GWDG);
- new_capacity__LHIH= 0;
- if ((Self__MHIH->capacity__UCS <= Self__MHIH->count__SGC)) {
- if ((Self__MHIH->capacity__UCS == 0)) {
- Self__MHIH->capacity__UCS= 32;
- Self__MHIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__LHIH=(__INTEGER)(Self__MHIH->capacity__UCS << 1);
- Self__NHIH=((__CHARACTER *)Self__MHIH->storage__3CS);
- old_nb_elts__OHIH=Self__MHIH->capacity__UCS;
- new__PHIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__NHIH),((__UINTEGER_32 )old_nb_elts__OHIH),((__UINTEGER_32 )new_capacity__LHIH)));
- upper__KOKH=(__INTEGER)(new_capacity__LHIH - 1);
- Self__IOKH=old_nb_elts__OHIH;
- while ((Self__IOKH <= upper__KOKH)) {
- new__PHIH[Self__IOKH]='\0';
- Self__IOKH=(__INTEGER)(Self__IOKH + 1);
- };
- Self__MHIH->storage__3CS=new__PHIH;
- Self__MHIH->capacity__UCS=new_capacity__LHIH;
- };
- };
- ((__CHARACTER *)Self__MHIH->storage__3CS)[Self__MHIH->count__SGC]=' ';
- Self__MHIH->count__SGC=(__INTEGER)(Self__MHIH->count__SGC + 1);
- };
- put__to__like__I0FG(Self__JHIH->parent_itm_type_simple__3SN.name__GZP,buf__GWDG,(&__string_125));
- } break;
- };
- Self__SHIH=((__STRING *)buf__GWDG);
- new_capacity__RHIH= 0;
- if ((Self__SHIH->capacity__UCS <= Self__SHIH->count__SGC)) {
- if ((Self__SHIH->capacity__UCS == 0)) {
- Self__SHIH->capacity__UCS= 32;
- Self__SHIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__RHIH=(__INTEGER)(Self__SHIH->capacity__UCS << 1);
- Self__THIH=((__CHARACTER *)Self__SHIH->storage__3CS);
- old_nb_elts__UHIH=Self__SHIH->capacity__UCS;
- new__VHIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__THIH),((__UINTEGER_32 )old_nb_elts__UHIH),((__UINTEGER_32 )new_capacity__RHIH)));
- upper__POKH=(__INTEGER)(new_capacity__RHIH - 1);
- Self__NOKH=old_nb_elts__UHIH;
- while ((Self__NOKH <= upper__POKH)) {
- new__VHIH[Self__NOKH]='\0';
- Self__NOKH=(__INTEGER)(Self__NOKH + 1);
- };
- Self__SHIH->storage__3CS=new__VHIH;
- Self__SHIH->capacity__UCS=new_capacity__RHIH;
- };
- };
- ((__CHARACTER *)Self__SHIH->storage__3CS)[Self__SHIH->count__SGC]=',';
- Self__SHIH->count__SGC=(__INTEGER)(Self__SHIH->count__SGC + 1);
- Self__LZFG=(__INTEGER)(Self__LZFG + 1);
- };
- Self__O1FH=((__FAST_ARRAYoITM_TYPE_MONOo *)Self__FWDG->list_type__ZZP);
- __tmp__FXDG=((void **)Self__O1FH->parent_arrayed_collection__SYC.storage__FMV)[Self__O1FH->parent_arrayed_collection__SYC.upper__4HV];
- switch (((struct ___OBJ *)__tmp__FXDG)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- shorter_in__0TDG(__tmp__FXDG,buf__GWDG);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- shorter_in__LUDG(__tmp__FXDG,buf__GWDG);
- } break;
- case __ITM_TYPE_BLOCK__: {
- shorter_in__2UDG(__tmp__FXDG,buf__GWDG);
- } break;
- case __ITM_TYPE_GENERIC__: {
- shorter_in__EWDG(__tmp__FXDG,buf__GWDG);
- } break;
- case __ITM_TYPE_STYLE__: {
- Self__HXDG=((__ITM_TYPE_STYLE *)__tmp__FXDG);
- if (((void *)Self__HXDG->style__PZP != (void *)NULL)) {
- put__to__like__I0FG(Self__HXDG->style__PZP,buf__GWDG,(&__string_119));
- Self__YHIH=((__STRING *)buf__GWDG);
- new_capacity__XHIH= 0;
- if ((Self__YHIH->capacity__UCS <= Self__YHIH->count__SGC)) {
- if ((Self__YHIH->capacity__UCS == 0)) {
- Self__YHIH->capacity__UCS= 32;
- Self__YHIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__XHIH=(__INTEGER)(Self__YHIH->capacity__UCS << 1);
- Self__ZHIH=((__CHARACTER *)Self__YHIH->storage__3CS);
- old_nb_elts__0HIH=Self__YHIH->capacity__UCS;
- new__1HIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__ZHIH),((__UINTEGER_32 )old_nb_elts__0HIH),((__UINTEGER_32 )new_capacity__XHIH)));
- upper__UOKH=(__INTEGER)(new_capacity__XHIH - 1);
- Self__SOKH=old_nb_elts__0HIH;
- while ((Self__SOKH <= upper__UOKH)) {
- new__1HIH[Self__SOKH]='\0';
- Self__SOKH=(__INTEGER)(Self__SOKH + 1);
- };
- Self__YHIH->storage__3CS=new__1HIH;
- Self__YHIH->capacity__UCS=new_capacity__XHIH;
- };
- };
- ((__CHARACTER *)Self__YHIH->storage__3CS)[Self__YHIH->count__SGC]=' ';
- Self__YHIH->count__SGC=(__INTEGER)(Self__YHIH->count__SGC + 1);
- };
- put__to__like__I0FG(Self__HXDG->parent_itm_type_simple__3SN.name__GZP,buf__GWDG,(&__string_125));
- } break;
- };
- Self__4HIH=((__STRING *)buf__GWDG);
- new_capacity__3HIH= 0;
- if ((Self__4HIH->capacity__UCS <= Self__4HIH->count__SGC)) {
- if ((Self__4HIH->capacity__UCS == 0)) {
- Self__4HIH->capacity__UCS= 32;
- Self__4HIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__3HIH=(__INTEGER)(Self__4HIH->capacity__UCS << 1);
- Self__5HIH=((__CHARACTER *)Self__4HIH->storage__3CS);
- old_nb_elts__AIIH=Self__4HIH->capacity__UCS;
- new__BIIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__5HIH),((__UINTEGER_32 )old_nb_elts__AIIH),((__UINTEGER_32 )new_capacity__3HIH)));
- upper__ZOKH=(__INTEGER)(new_capacity__3HIH - 1);
- Self__XOKH=old_nb_elts__AIIH;
- while ((Self__XOKH <= upper__ZOKH)) {
- new__BIIH[Self__XOKH]='\0';
- Self__XOKH=(__INTEGER)(Self__XOKH + 1);
- };
- Self__4HIH->storage__3CS=new__BIIH;
- Self__4HIH->capacity__UCS=new_capacity__3HIH;
- };
- };
- ((__CHARACTER *)Self__4HIH->storage__3CS)[Self__4HIH->count__SGC]=')';
- Self__4HIH->count__SGC=(__INTEGER)(Self__4HIH->count__SGC + 1);
-}
-
-static void put__to__like__I0FG(void *tok__K0FG,void *buf__L0FG,void *key__M0FG)
-// ({NULLxSTRING_CONSTANT},{NULLxSTRING},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
- __INTEGER __tmp__30FG,Self__MBIG;
- void *lst__N0FG;
- lst__N0FG=NULL;
- if (((void *)key__M0FG != (void *)NULL)) {
- lst__N0FG=fast_reference_at__CMNE(short_dico__QD,key__M0FG);
- if (((void *)lst__N0FG != (void *)NULL)) {
- __tmp__30FG=((__LINKED_LISToSTRING_CONSTANTo *)lst__N0FG)->parent_linked_collection__LD.upper__0ED;
- Self__MBIG= 1;
- while ((Self__MBIG <= __tmp__30FG)) {
- if (((void *)item__X3ND(lst__N0FG,Self__MBIG) == (void *)NULL)) {
- append__3OS(buf__L0FG,tok__K0FG);
- } else {
- append__3OS(buf__L0FG,item__X3ND(lst__N0FG,Self__MBIG));
- };
- Self__MBIG=(__INTEGER)(Self__MBIG + 1);
- };
- };
- };
-}
-
-static void put__to__like__S0DG(void *tok__U0DG,void *buf__V0DG,void *key__W0DG)
-// ({NULLxSTRING_CONSTANTxSTRING},{NULLxSTRING},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
- __INTEGER __tmp__H1DG,Self__T2HG;
- void *lst__X0DG;
- lst__X0DG=NULL;
- if (((void *)key__W0DG != (void *)NULL)) {
- lst__X0DG=fast_reference_at__CMNE(short_dico__QD,key__W0DG);
- if (((void *)lst__X0DG != (void *)NULL)) {
- __tmp__H1DG=((__LINKED_LISToSTRING_CONSTANTo *)lst__X0DG)->parent_linked_collection__LD.upper__0ED;
- Self__T2HG= 1;
- while ((Self__T2HG <= __tmp__H1DG)) {
- if (((void *)item__X3ND(lst__X0DG,Self__T2HG) == (void *)NULL)) {
- append__3OS(buf__V0DG,tok__U0DG);
- } else {
- append__3OS(buf__V0DG,item__X3ND(lst__X0DG,Self__T2HG));
- };
- Self__T2HG=(__INTEGER)(Self__T2HG + 1);
- };
- };
- };
-}
-
-static void set_path__HPT(__DIRECTORY_UNIX *Self__IPT,void *n__JPT)
-// ({DIRECTORY_UNIX},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
- __STRING_CONSTANT *result__DIIH,*Self__4EHH,*Self__RKEH,*result__LIIH;
- __STRING_CONSTANT *Self__LZSG;
- __POINTER ptr__EIIH,ptr_table__2OKH,next__1OKH,result__3OKH;
- __POINTER ptr_table__BPKH,next__APKH,result__CPKH,ptr__MIIH;
- __POINTER ptr_table__LPKH,next__KPKH,result__MPKH,ptr_table__QPKH;
- __POINTER next__PPKH,result__RPKH,ptr__MQAH;
- __INTEGER typ_id__FIIH,c__AFHH,Self__GPKH,idx__KPT,typ_id__NIIH;
- __INTEGER __tmp__AQT;
- __UINTEGER_32 sz__GIIH,a__HIIH,new_size__IIIH,t__JIIH,a__KIIH;
- __UINTEGER_32 new_size__EPKH,lab_type__DPKH,sz__OIIH,a__PIIH;
- __UINTEGER_32 new_size__QIIH,t__RIIH,a__SIIH,new_size__TPKH;
- __UINTEGER_32 lab_type__SPKH;
- void *__tmp__YPT;
- __CHARACTER *Self__HPKH,*model__IPKH,*__tmp__2PT;
- result__DIIH=NULL;
- ptr__EIIH=((__POINTER )(NULL));
- typ_id__FIIH= 0;
- sz__GIIH=((__UINTEGER_32 )sizeof(__STRING_CONSTANT));
- if ((sz__GIIH == 0)) {
- result__DIIH=STRING_CONSTANT__;
- } else {
- typ_id__FIIH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__GIIH);
- if ((typ_id__FIIH == (__INTEGER)(- 1))) {
- a__HIIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__IIIH=(__UINTEGER_32)((__UINTEGER_32)(sz__GIIH + a__HIIH) & (__UINTEGER_32)(~ a__HIIH));
- ptr_table__2OKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__IIIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__1OKH=((__POINTER )(NULL));
- result__3OKH=((__POINTER *)ptr_table__2OKH)[ 0];
- if ((result__3OKH == (void *)NULL)) {
- result__3OKH=new_lab__RTJ(new_size__IIIH);
- next__1OKH=(void *)((unsigned long)result__3OKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IIIH)));
- ((__POINTER *)next__1OKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__2OKH)[ 0]=next__1OKH;
- } else {
- next__1OKH=((__POINTER *)result__3OKH)[ 0];
- if ((next__1OKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3OKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__IIIH << 1)) <= 4096)) {
- next__1OKH=(void *)((unsigned long)result__3OKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IIIH)));
- } else {
- next__1OKH=new_lab__RTJ(new_size__IIIH);
- };
- ((__POINTER *)next__1OKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__2OKH)[ 0]=next__1OKH;
- } else {
- ((__POINTER *)result__3OKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1OKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__3OKH=next__1OKH;
- };
- };
- ptr__EIIH=result__3OKH;
- } else {
- t__JIIH=((__UINTEGER_32 )typ_id__FIIH);
- a__KIIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__EPKH=(__UINTEGER_32)((__UINTEGER_32)(sz__GIIH + a__KIIH) & (__UINTEGER_32)(~ a__KIIH));
- ptr_table__BPKH=((__POINTER )(&(table_type[(t__JIIH)])));
- lab_type__DPKH=(__UINTEGER_32)(t__JIIH | 1);
- next__APKH=((__POINTER )(NULL));
- result__CPKH=((__POINTER *)ptr_table__BPKH)[ 0];
- if ((result__CPKH == (void *)NULL)) {
- result__CPKH=new_lab__RTJ(lab_type__DPKH);
- next__APKH=(void *)((unsigned long)result__CPKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EPKH)));
- ((__POINTER *)next__APKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__BPKH)[ 0]=next__APKH;
- } else {
- next__APKH=((__POINTER *)result__CPKH)[ 0];
- if ((next__APKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CPKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__EPKH << 1)) <= 4096)) {
- next__APKH=(void *)((unsigned long)result__CPKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__EPKH)));
- } else {
- next__APKH=new_lab__RTJ(lab_type__DPKH);
- };
- ((__POINTER *)next__APKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__BPKH)[ 0]=next__APKH;
- } else {
- ((__POINTER *)result__CPKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__APKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__CPKH=next__APKH;
- };
- };
- ptr__EIIH=result__CPKH;
- };
- result__DIIH=((__STRING_CONSTANT *)ptr__EIIH);
- *(result__DIIH) = *(STRING_CONSTANT__);
- };
- Self__4EHH=((__STRING_CONSTANT *)result__DIIH);
- c__AFHH=((__STRING *)n__JPT)->count__SGC;
- if ((c__AFHH != 0)) {
- Self__4EHH->storage__RRO=create__YIEB((__INTEGER)(c__AFHH + 1));
- Self__HPKH=((__CHARACTER *)Self__4EHH->storage__RRO);
- model__IPKH=((__STRING *)n__JPT)->storage__3CS;
- Self__GPKH=(__INTEGER)(c__AFHH - 1);
- while ((Self__GPKH >= 0)) {
- Self__HPKH[Self__GPKH]=((__CHARACTER *)model__IPKH)[Self__GPKH];
- Self__GPKH=(__INTEGER)(Self__GPKH - 1);
- };
- ((__CHARACTER *)Self__4EHH->storage__RRO)[c__AFHH]='\0';
- Self__4EHH->count__DD=c__AFHH;
- };
- Self__IPT->parent_entry_unix__RGD.parent_entry__QGD.path__BD=result__DIIH;
- Self__RKEH=((__STRING_CONSTANT *)Self__IPT->parent_entry_unix__RGD.parent_entry__QGD.path__BD);
- idx__KPT=(__INTEGER)( 1 + fast_reverse_index_of__from__KA3(Self__RKEH->storage__RRO,'/',(__INTEGER)(Self__RKEH->count__DD - 1)));
- if (((void *)Self__IPT->parent_entry_unix__RGD.parent_entry__QGD.name__OPT == (void *)NULL)) {
- result__LIIH=NULL;
- ptr__MIIH=((__POINTER )(NULL));
- typ_id__NIIH= 0;
- sz__OIIH=((__UINTEGER_32 )sizeof(__STRING_CONSTANT));
- if ((sz__OIIH == 0)) {
- result__LIIH=STRING_CONSTANT__;
- } else {
- typ_id__NIIH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__OIIH);
- if ((typ_id__NIIH == (__INTEGER)(- 1))) {
- a__PIIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__QIIH=(__UINTEGER_32)((__UINTEGER_32)(sz__OIIH + a__PIIH) & (__UINTEGER_32)(~ a__PIIH));
- ptr_table__LPKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__QIIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__KPKH=((__POINTER )(NULL));
- result__MPKH=((__POINTER *)ptr_table__LPKH)[ 0];
- if ((result__MPKH == (void *)NULL)) {
- result__MPKH=new_lab__RTJ(new_size__QIIH);
- next__KPKH=(void *)((unsigned long)result__MPKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QIIH)));
- ((__POINTER *)next__KPKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__LPKH)[ 0]=next__KPKH;
- } else {
- next__KPKH=((__POINTER *)result__MPKH)[ 0];
- if ((next__KPKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MPKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__QIIH << 1)) <= 4096)) {
- next__KPKH=(void *)((unsigned long)result__MPKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QIIH)));
- } else {
- next__KPKH=new_lab__RTJ(new_size__QIIH);
- };
- ((__POINTER *)next__KPKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__LPKH)[ 0]=next__KPKH;
- } else {
- ((__POINTER *)result__MPKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KPKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__MPKH=next__KPKH;
- };
- };
- ptr__MIIH=result__MPKH;
- } else {
- t__RIIH=((__UINTEGER_32 )typ_id__NIIH);
- a__SIIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__TPKH=(__UINTEGER_32)((__UINTEGER_32)(sz__OIIH + a__SIIH) & (__UINTEGER_32)(~ a__SIIH));
- ptr_table__QPKH=((__POINTER )(&(table_type[(t__RIIH)])));
- lab_type__SPKH=(__UINTEGER_32)(t__RIIH | 1);
- next__PPKH=((__POINTER )(NULL));
- result__RPKH=((__POINTER *)ptr_table__QPKH)[ 0];
- if ((result__RPKH == (void *)NULL)) {
- result__RPKH=new_lab__RTJ(lab_type__SPKH);
- next__PPKH=(void *)((unsigned long)result__RPKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TPKH)));
- ((__POINTER *)next__PPKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__QPKH)[ 0]=next__PPKH;
- } else {
- next__PPKH=((__POINTER *)result__RPKH)[ 0];
- if ((next__PPKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RPKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__TPKH << 1)) <= 4096)) {
- next__PPKH=(void *)((unsigned long)result__RPKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__TPKH)));
- } else {
- next__PPKH=new_lab__RTJ(lab_type__SPKH);
- };
- ((__POINTER *)next__PPKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__QPKH)[ 0]=next__PPKH;
- } else {
- ((__POINTER *)result__RPKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PPKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__RPKH=next__PPKH;
- };
- };
- ptr__MIIH=result__RPKH;
- };
- result__LIIH=((__STRING_CONSTANT *)ptr__MIIH);
- *(result__LIIH) = *(STRING_CONSTANT__);
- };
- Self__IPT->parent_entry_unix__RGD.parent_entry__QGD.name__OPT=result__LIIH;
- };
- __tmp__YPT=Self__IPT->parent_entry_unix__RGD.parent_entry__QGD.name__OPT;
- ptr__MQAH=((__POINTER )((__CHARACTER *)((__STRING_CONSTANT *)Self__IPT->parent_entry_unix__RGD.parent_entry__QGD.path__BD)->storage__RRO));
- ptr__MQAH=(void *)((unsigned long)ptr__MQAH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )idx__KPT)));
- __tmp__2PT=((__CHARACTER *)ptr__MQAH);
- __tmp__AQT=(__INTEGER)(((__STRING_CONSTANT *)Self__IPT->parent_entry_unix__RGD.parent_entry__QGD.path__BD)->count__DD - idx__KPT);
- Self__LZSG=((__STRING_CONSTANT *)__tmp__YPT);
- Self__LZSG->storage__RRO=__tmp__2PT;
- Self__LZSG->count__DD=__tmp__AQT;
-}
-
-static void set_path__CQT(__FILE_UNIX *Self__DQT,void *n__EQT)
-// ({FILE_UNIX},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
- __STRING_CONSTANT *result__TIIH,*Self__CFHH,*Self__VKEH,*result__1IIH;
- __STRING_CONSTANT *Self__QZSG;
- __POINTER ptr__UIIH,ptr_table__VPKH,next__UPKH,result__WPKH;
- __POINTER ptr_table__0PKH,next__ZPKH,result__1PKH,ptr__2IIH;
- __POINTER ptr_table__EQKH,next__DQKH,result__FQKH,ptr_table__JQKH;
- __POINTER next__IQKH,result__KQKH,ptr__DPY;
- __INTEGER typ_id__VIIH,c__EFHH,Self__5PKH,idx__FQT,typ_id__3IIH;
- __INTEGER __tmp__0QT;
- __UINTEGER_32 sz__WIIH,a__XIIH,new_size__YIIH,t__ZIIH,a__0IIH;
- __UINTEGER_32 new_size__3PKH,lab_type__2PKH,sz__4IIH,a__5IIH;
- __UINTEGER_32 new_size__AJIH,t__BJIH,a__CJIH,new_size__MQKH;
- __UINTEGER_32 lab_type__LQKH;
- void *__tmp__SQT;
- __CHARACTER *Self__AQKH,*model__BQKH,*__tmp__WQT;
- result__TIIH=NULL;
- ptr__UIIH=((__POINTER )(NULL));
- typ_id__VIIH= 0;
- sz__WIIH=((__UINTEGER_32 )sizeof(__STRING_CONSTANT));
- if ((sz__WIIH == 0)) {
- result__TIIH=STRING_CONSTANT__;
- } else {
- typ_id__VIIH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__WIIH);
- if ((typ_id__VIIH == (__INTEGER)(- 1))) {
- a__XIIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__YIIH=(__UINTEGER_32)((__UINTEGER_32)(sz__WIIH + a__XIIH) & (__UINTEGER_32)(~ a__XIIH));
- ptr_table__VPKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__YIIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__UPKH=((__POINTER )(NULL));
- result__WPKH=((__POINTER *)ptr_table__VPKH)[ 0];
- if ((result__WPKH == (void *)NULL)) {
- result__WPKH=new_lab__RTJ(new_size__YIIH);
- next__UPKH=(void *)((unsigned long)result__WPKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YIIH)));
- ((__POINTER *)next__UPKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__VPKH)[ 0]=next__UPKH;
- } else {
- next__UPKH=((__POINTER *)result__WPKH)[ 0];
- if ((next__UPKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WPKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__YIIH << 1)) <= 4096)) {
- next__UPKH=(void *)((unsigned long)result__WPKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YIIH)));
- } else {
- next__UPKH=new_lab__RTJ(new_size__YIIH);
- };
- ((__POINTER *)next__UPKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__VPKH)[ 0]=next__UPKH;
- } else {
- ((__POINTER *)result__WPKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UPKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__WPKH=next__UPKH;
- };
- };
- ptr__UIIH=result__WPKH;
- } else {
- t__ZIIH=((__UINTEGER_32 )typ_id__VIIH);
- a__0IIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__3PKH=(__UINTEGER_32)((__UINTEGER_32)(sz__WIIH + a__0IIH) & (__UINTEGER_32)(~ a__0IIH));
- ptr_table__0PKH=((__POINTER )(&(table_type[(t__ZIIH)])));
- lab_type__2PKH=(__UINTEGER_32)(t__ZIIH | 1);
- next__ZPKH=((__POINTER )(NULL));
- result__1PKH=((__POINTER *)ptr_table__0PKH)[ 0];
- if ((result__1PKH == (void *)NULL)) {
- result__1PKH=new_lab__RTJ(lab_type__2PKH);
- next__ZPKH=(void *)((unsigned long)result__1PKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3PKH)));
- ((__POINTER *)next__ZPKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__0PKH)[ 0]=next__ZPKH;
- } else {
- next__ZPKH=((__POINTER *)result__1PKH)[ 0];
- if ((next__ZPKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1PKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__3PKH << 1)) <= 4096)) {
- next__ZPKH=(void *)((unsigned long)result__1PKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3PKH)));
- } else {
- next__ZPKH=new_lab__RTJ(lab_type__2PKH);
- };
- ((__POINTER *)next__ZPKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__0PKH)[ 0]=next__ZPKH;
- } else {
- ((__POINTER *)result__1PKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZPKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__1PKH=next__ZPKH;
- };
- };
- ptr__UIIH=result__1PKH;
- };
- result__TIIH=((__STRING_CONSTANT *)ptr__UIIH);
- *(result__TIIH) = *(STRING_CONSTANT__);
- };
- Self__CFHH=((__STRING_CONSTANT *)result__TIIH);
- c__EFHH=((__STRING *)n__EQT)->count__SGC;
- if ((c__EFHH != 0)) {
- Self__CFHH->storage__RRO=create__YIEB((__INTEGER)(c__EFHH + 1));
- Self__AQKH=((__CHARACTER *)Self__CFHH->storage__RRO);
- model__BQKH=((__STRING *)n__EQT)->storage__3CS;
- Self__5PKH=(__INTEGER)(c__EFHH - 1);
- while ((Self__5PKH >= 0)) {
- Self__AQKH[Self__5PKH]=((__CHARACTER *)model__BQKH)[Self__5PKH];
- Self__5PKH=(__INTEGER)(Self__5PKH - 1);
- };
- ((__CHARACTER *)Self__CFHH->storage__RRO)[c__EFHH]='\0';
- Self__CFHH->count__DD=c__EFHH;
- };
- Self__DQT->parent_entry_unix__EFF.parent_entry__QGD.path__BD=result__TIIH;
- Self__VKEH=((__STRING_CONSTANT *)Self__DQT->parent_entry_unix__EFF.parent_entry__QGD.path__BD);
- idx__FQT=(__INTEGER)( 1 + fast_reverse_index_of__from__KA3(Self__VKEH->storage__RRO,'/',(__INTEGER)(Self__VKEH->count__DD - 1)));
- if (((void *)Self__DQT->parent_entry_unix__EFF.parent_entry__QGD.name__OPT == (void *)NULL)) {
- result__1IIH=NULL;
- ptr__2IIH=((__POINTER )(NULL));
- typ_id__3IIH= 0;
- sz__4IIH=((__UINTEGER_32 )sizeof(__STRING_CONSTANT));
- if ((sz__4IIH == 0)) {
- result__1IIH=STRING_CONSTANT__;
- } else {
- typ_id__3IIH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__4IIH);
- if ((typ_id__3IIH == (__INTEGER)(- 1))) {
- a__5IIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__AJIH=(__UINTEGER_32)((__UINTEGER_32)(sz__4IIH + a__5IIH) & (__UINTEGER_32)(~ a__5IIH));
- ptr_table__EQKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__AJIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__DQKH=((__POINTER )(NULL));
- result__FQKH=((__POINTER *)ptr_table__EQKH)[ 0];
- if ((result__FQKH == (void *)NULL)) {
- result__FQKH=new_lab__RTJ(new_size__AJIH);
- next__DQKH=(void *)((unsigned long)result__FQKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AJIH)));
- ((__POINTER *)next__DQKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__EQKH)[ 0]=next__DQKH;
- } else {
- next__DQKH=((__POINTER *)result__FQKH)[ 0];
- if ((next__DQKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__FQKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__AJIH << 1)) <= 4096)) {
- next__DQKH=(void *)((unsigned long)result__FQKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__AJIH)));
- } else {
- next__DQKH=new_lab__RTJ(new_size__AJIH);
- };
- ((__POINTER *)next__DQKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__EQKH)[ 0]=next__DQKH;
- } else {
- ((__POINTER *)result__FQKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__DQKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__FQKH=next__DQKH;
- };
- };
- ptr__2IIH=result__FQKH;
- } else {
- t__BJIH=((__UINTEGER_32 )typ_id__3IIH);
- a__CJIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__MQKH=(__UINTEGER_32)((__UINTEGER_32)(sz__4IIH + a__CJIH) & (__UINTEGER_32)(~ a__CJIH));
- ptr_table__JQKH=((__POINTER )(&(table_type[(t__BJIH)])));
- lab_type__LQKH=(__UINTEGER_32)(t__BJIH | 1);
- next__IQKH=((__POINTER )(NULL));
- result__KQKH=((__POINTER *)ptr_table__JQKH)[ 0];
- if ((result__KQKH == (void *)NULL)) {
- result__KQKH=new_lab__RTJ(lab_type__LQKH);
- next__IQKH=(void *)((unsigned long)result__KQKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MQKH)));
- ((__POINTER *)next__IQKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__JQKH)[ 0]=next__IQKH;
- } else {
- next__IQKH=((__POINTER *)result__KQKH)[ 0];
- if ((next__IQKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__KQKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__MQKH << 1)) <= 4096)) {
- next__IQKH=(void *)((unsigned long)result__KQKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MQKH)));
- } else {
- next__IQKH=new_lab__RTJ(lab_type__LQKH);
- };
- ((__POINTER *)next__IQKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__JQKH)[ 0]=next__IQKH;
- } else {
- ((__POINTER *)result__KQKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__IQKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__KQKH=next__IQKH;
- };
- };
- ptr__2IIH=result__KQKH;
- };
- result__1IIH=((__STRING_CONSTANT *)ptr__2IIH);
- *(result__1IIH) = *(STRING_CONSTANT__);
- };
- Self__DQT->parent_entry_unix__EFF.parent_entry__QGD.name__OPT=result__1IIH;
- };
- __tmp__SQT=Self__DQT->parent_entry_unix__EFF.parent_entry__QGD.name__OPT;
- ptr__DPY=((__POINTER )((__CHARACTER *)((__STRING_CONSTANT *)Self__DQT->parent_entry_unix__EFF.parent_entry__QGD.path__BD)->storage__RRO));
- ptr__DPY=(void *)((unsigned long)ptr__DPY - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )idx__FQT)));
- __tmp__WQT=((__CHARACTER *)ptr__DPY);
- __tmp__0QT=(__INTEGER)(((__STRING_CONSTANT *)Self__DQT->parent_entry_unix__EFF.parent_entry__QGD.path__BD)->count__DD - idx__FQT);
- Self__QZSG=((__STRING_CONSTANT *)__tmp__SQT);
- Self__QZSG->storage__RRO=__tmp__WQT;
- Self__QZSG->count__DD=__tmp__0QT;
-}
-
-static __INTEGER last_index_of__since__KPGD(__STRING *Self__LPGD,__INTEGER start_index__NPGD)
-// ({STRING},{INTEGER}) With resultNo recursive, No inlinable.
-{
- __INTEGER result__PPGD;
- __CHARACTER *__tmp__3KEH;
- result__PPGD=start_index__NPGD;
- __tmp__3KEH=Self__LPGD->storage__3CS;
- while ((! ((result__PPGD < 1) || ('/' == ((__CHARACTER *)__tmp__3KEH)[(__INTEGER)(result__PPGD - 1)])))) {
- result__PPGD=(__INTEGER)(result__PPGD - 1);
- };
- return(result__PPGD);
-}
-
-static void insert_string__to__OXU(__STRING *Self__PXU,void *s__QXU,__INTEGER i__RXU)
-// ({STRING},{NULLxSTRING_CONSTANTxSTRING},{INTEGER}) VoidNo recursive, No inlinable.
-{
- __INTEGER j__SXU,__tmp__FYU,dest__HRKH,src_capacity__LRKH,i2__GRKH;
- __INTEGER i1__IRKH;
- __CHARACTER *__tmp__VYU,*__tmp__WYU,*Self__JRKH,*src__KRKH;
- j__SXU=Self__PXU->count__SGC;
- if (((struct ___OBJ *)s__QXU)->__id==__STRING_CONSTANT__) {
- __tmp__FYU=((__STRING_CONSTANT *)s__QXU)->count__DD;
- } else {
- __tmp__FYU=((__STRING *)s__QXU)->count__SGC;
- };
- resize__1VZ(Self__PXU,(__INTEGER)(j__SXU + __tmp__FYU));
- if ((i__RXU <= j__SXU)) {
- move__to__by__LVCC(Self__PXU->storage__3CS,(__INTEGER)(i__RXU - 1),(__INTEGER)(j__SXU - 1),__tmp__FYU);
- };
- __tmp__VYU=Self__PXU->storage__3CS;
- if (((struct ___OBJ *)s__QXU)->__id==__STRING_CONSTANT__) {
- __tmp__WYU=((__STRING_CONSTANT *)s__QXU)->storage__RRO;
- } else {
- __tmp__WYU=((__STRING *)s__QXU)->storage__3CS;
- };
- Self__JRKH=((__CHARACTER *)__tmp__VYU);
- src__KRKH=__tmp__WYU;
- dest__HRKH=(__INTEGER)(i__RXU - 1);
- src_capacity__LRKH=__tmp__FYU;
- i2__GRKH= 0;
- i1__IRKH=dest__HRKH;
- while ((i2__GRKH != src_capacity__LRKH)) {
- Self__JRKH[i1__IRKH]=((__CHARACTER *)src__KRKH)[i2__GRKH];
- i2__GRKH=(__INTEGER)(i2__GRKH + 1);
- i1__IRKH=(__INTEGER)(i1__IRKH + 1);
- };
-}
-
-static void read_escape_character__AALF()
-// () VoidNo recursive, No inlinable.
-{
- __INTEGER val__DALF,__tmp__NLEH,__tmp__OLEH,new_capacity__DJIH;
- __INTEGER old_nb_elts__GJIH,upper__QQKH,Self__OQKH,new_capacity__JJIH;
- __INTEGER old_nb_elts__MJIH,upper__VQKH,Self__TQKH,new_capacity__PJIH;
- __INTEGER old_nb_elts__SJIH,upper__0QKH,Self__YQKH,new_capacity__VJIH;
- __INTEGER old_nb_elts__YJIH,upper__5QKH,Self__3QKH,new_capacity__1JIH;
- __INTEGER old_nb_elts__4JIH,upper__ERKH,Self__CRKH;
- __STRING *Self__I2FH,*Self__EJIH,*Self__KJIH,*Self__QJIH,*Self__WJIH;
- __STRING *Self__2JIH;
- __POSITION pos__N2YG,pos__02YG,pos__H3YG,pos__J3YG;
- __CHARACTER result__QTAH,result__VTAH,result__5TAH,result__EUAH;
- __CHARACTER result__JUAH,result__SUAH,result__1UAH,result__AVAH;
- __CHARACTER result__FVAH,result__KVAH,result__PVAH,result__UVAH;
- __CHARACTER result__ZVAH,result__4VAH,result__DWAH,result__IWAH;
- __CHARACTER result__NWAH,result__SWAH,result__XWAH,result__2WAH;
- __CHARACTER result__EXAH,ch__UJIH,ch__0JIH,ch__AKIH,result__JXAH;
- __CHARACTER *__tmp__G2FH,*__tmp__H2FH,*Self__FJIH,*new__HJIH;
- __CHARACTER *Self__LJIH,*new__NJIH,*Self__RJIH,*new__TJIH,*Self__XJIH;
- __CHARACTER *new__ZJIH,*Self__3JIH,*new__5JIH;
- __BOOLEAN __tmp__2ALF,__tmp__QBLF,__tmp__DCLF,__tmp__YELF,__tmp__ZELF;
- __BOOLEAN __tmp__0ELF,__tmp__1ELF,__tmp__2ELF,__tmp__3ELF,__tmp__4ELF;
- __BOOLEAN __tmp__5ELF,__tmp__AFLF,__tmp__BFLF,__tmp__MFLF;
- val__DALF= 0;
- result__QTAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__QTAH=((__CHARACTER )(( 0)));
- } else {
- result__QTAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((((((((result__QTAH == ' ') || (result__QTAH == '\t')) || (result__QTAH == '\n')) || (result__QTAH == '\r')) || (result__QTAH == '\0')) || (result__QTAH == '\f')) || (result__QTAH == '\v'))) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- __tmp__NLEH=((__STRING *)source__5BC)->count__SGC;
- __tmp__OLEH=((__STRING *)source__5BC)->count__SGC;
- __tmp__G2FH=((__STRING *)source__5BC)->storage__3CS;
- __tmp__H2FH=((__STRING *)source__5BC)->storage__3CS;
- until_do__QNNF:
- {
- result__VTAH='\0';
- if ((position__CCC > __tmp__NLEH)) {
- result__VTAH=((__CHARACTER )(( 0)));
- } else {
- result__VTAH=((__CHARACTER *)__tmp__G2FH)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__VTAH == ((__CHARACTER )(( 0))))) {
- __tmp__2ALF=TRUE__;
- } else {
- result__5TAH='\0';
- if ((position__CCC > __tmp__OLEH)) {
- result__5TAH=((__CHARACTER )(( 0)));
- } else {
- result__5TAH=((__CHARACTER *)__tmp__H2FH)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__2ALF=(! (((((((result__5TAH == ' ') || (result__5TAH == '\t')) || (result__5TAH == '\n')) || (result__5TAH == '\r')) || (result__5TAH == '\0')) || (result__5TAH == '\f')) || (result__5TAH == '\v')));
- };
- if ((! __tmp__2ALF)) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- goto until_do__QNNF;
- };
- };
- result__EUAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__EUAH=((__CHARACTER )(( 0)));
- } else {
- result__EUAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__EUAH == '\\')) {
- Self__I2FH=((__STRING *)string_tmp__VH);
- if (( 1 > Self__I2FH->count__SGC)) {
- Self__I2FH->count__SGC= 0;
- } else {
- Self__I2FH->count__SGC=(__INTEGER)(Self__I2FH->count__SGC - 1);
- };
- position__CCC=(__INTEGER)(position__CCC + 1);
- __tmp__QBLF=TRUE__;
- } else {
- __tmp__QBLF=FALSE__;
- };
- if ((! __tmp__QBLF)) {
- result__JUAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__JUAH=((__CHARACTER )(( 0)));
- } else {
- result__JUAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__JUAH != ((__CHARACTER )(( 0))))) {
- pos__N2YG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_301));
- put_position__FRG(pos__N2YG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- __tmp__DCLF=TRUE__;
- } else {
- __tmp__DCLF=FALSE__;
- };
- if ((! __tmp__DCLF)) {
- result__SUAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__SUAH=((__CHARACTER )(( 0)));
- } else {
- result__SUAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__SUAH != ((__CHARACTER )(( 0))))) {
- result__1UAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__1UAH=((__CHARACTER )(( 0)));
- } else {
- result__1UAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__1UAH == 'a')) {
- __tmp__YELF=TRUE__;
- } else {
- result__AVAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__AVAH=((__CHARACTER )(( 0)));
- } else {
- result__AVAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__YELF=(result__AVAH == 'b');
- };
- if (__tmp__YELF) {
- __tmp__ZELF=TRUE__;
- } else {
- result__FVAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__FVAH=((__CHARACTER )(( 0)));
- } else {
- result__FVAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__ZELF=(result__FVAH == 'f');
- };
- if (__tmp__ZELF) {
- __tmp__0ELF=TRUE__;
- } else {
- result__KVAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__KVAH=((__CHARACTER )(( 0)));
- } else {
- result__KVAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__0ELF=(result__KVAH == 'n');
- };
- if (__tmp__0ELF) {
- __tmp__1ELF=TRUE__;
- } else {
- result__PVAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__PVAH=((__CHARACTER )(( 0)));
- } else {
- result__PVAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__1ELF=(result__PVAH == 'r');
- };
- if (__tmp__1ELF) {
- __tmp__2ELF=TRUE__;
- } else {
- result__UVAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__UVAH=((__CHARACTER )(( 0)));
- } else {
- result__UVAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__2ELF=(result__UVAH == 't');
- };
- if (__tmp__2ELF) {
- __tmp__3ELF=TRUE__;
- } else {
- result__ZVAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__ZVAH=((__CHARACTER )(( 0)));
- } else {
- result__ZVAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__3ELF=(result__ZVAH == 'v');
- };
- if (__tmp__3ELF) {
- __tmp__4ELF=TRUE__;
- } else {
- result__4VAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__4VAH=((__CHARACTER )(( 0)));
- } else {
- result__4VAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__4ELF=(result__4VAH == '\\');
- };
- if (__tmp__4ELF) {
- __tmp__5ELF=TRUE__;
- } else {
- result__DWAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__DWAH=((__CHARACTER )(( 0)));
- } else {
- result__DWAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__5ELF=(result__DWAH == '?');
- };
- if (__tmp__5ELF) {
- __tmp__AFLF=TRUE__;
- } else {
- result__IWAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__IWAH=((__CHARACTER )(( 0)));
- } else {
- result__IWAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__AFLF=(result__IWAH == '\'');
- };
- if (__tmp__AFLF) {
- __tmp__BFLF=TRUE__;
- } else {
- result__NWAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__NWAH=((__CHARACTER )(( 0)));
- } else {
- result__NWAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__BFLF=(result__NWAH == '\"');
- };
- if (__tmp__BFLF) {
- result__SWAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__SWAH=((__CHARACTER )(( 0)));
- } else {
- result__SWAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- Self__EJIH=((__STRING *)string_tmp__VH);
- new_capacity__DJIH= 0;
- if ((Self__EJIH->capacity__UCS <= Self__EJIH->count__SGC)) {
- if ((Self__EJIH->capacity__UCS == 0)) {
- Self__EJIH->capacity__UCS= 32;
- Self__EJIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__DJIH=(__INTEGER)(Self__EJIH->capacity__UCS << 1);
- Self__FJIH=((__CHARACTER *)Self__EJIH->storage__3CS);
- old_nb_elts__GJIH=Self__EJIH->capacity__UCS;
- new__HJIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__FJIH),((__UINTEGER_32 )old_nb_elts__GJIH),((__UINTEGER_32 )new_capacity__DJIH)));
- upper__QQKH=(__INTEGER)(new_capacity__DJIH - 1);
- Self__OQKH=old_nb_elts__GJIH;
- while ((Self__OQKH <= upper__QQKH)) {
- new__HJIH[Self__OQKH]='\0';
- Self__OQKH=(__INTEGER)(Self__OQKH + 1);
- };
- Self__EJIH->storage__3CS=new__HJIH;
- Self__EJIH->capacity__UCS=new_capacity__DJIH;
- };
- };
- ((__CHARACTER *)Self__EJIH->storage__3CS)[Self__EJIH->count__SGC]=result__SWAH;
- Self__EJIH->count__SGC=(__INTEGER)(Self__EJIH->count__SGC + 1);
- position__CCC=(__INTEGER)(position__CCC + 1);
- __tmp__MFLF=TRUE__;
- } else {
- __tmp__MFLF=FALSE__;
- };
- if ((! __tmp__MFLF)) {
- result__XWAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__XWAH=((__CHARACTER )(( 0)));
- } else {
- result__XWAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if (((((__INTEGER_8 )result__XWAH) >= ((__INTEGER_8 )'0')) && (((__INTEGER_8 )result__XWAH) <= ((__INTEGER_8 )'9')))) {
- result__2WAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__2WAH=((__CHARACTER )(( 0)));
- } else {
- result__2WAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((((result__2WAH == '0') && (position__CCC < ((__STRING *)source__5BC)->count__SGC)) && (! is_hexadecimal_digit__DQJE(((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)((__INTEGER)(position__CCC + 1) - 1)])))) {
- result__EXAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__EXAH=((__CHARACTER )(( 0)));
- } else {
- result__EXAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- Self__KJIH=((__STRING *)string_tmp__VH);
- new_capacity__JJIH= 0;
- if ((Self__KJIH->capacity__UCS <= Self__KJIH->count__SGC)) {
- if ((Self__KJIH->capacity__UCS == 0)) {
- Self__KJIH->capacity__UCS= 32;
- Self__KJIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__JJIH=(__INTEGER)(Self__KJIH->capacity__UCS << 1);
- Self__LJIH=((__CHARACTER *)Self__KJIH->storage__3CS);
- old_nb_elts__MJIH=Self__KJIH->capacity__UCS;
- new__NJIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__LJIH),((__UINTEGER_32 )old_nb_elts__MJIH),((__UINTEGER_32 )new_capacity__JJIH)));
- upper__VQKH=(__INTEGER)(new_capacity__JJIH - 1);
- Self__TQKH=old_nb_elts__MJIH;
- while ((Self__TQKH <= upper__VQKH)) {
- new__NJIH[Self__TQKH]='\0';
- Self__TQKH=(__INTEGER)(Self__TQKH + 1);
- };
- Self__KJIH->storage__3CS=new__NJIH;
- Self__KJIH->capacity__UCS=new_capacity__JJIH;
- };
- };
- ((__CHARACTER *)Self__KJIH->storage__3CS)[Self__KJIH->count__SGC]=result__EXAH;
- Self__KJIH->count__SGC=(__INTEGER)(Self__KJIH->count__SGC + 1);
- position__CCC=(__INTEGER)(position__CCC + 1);
- } else {
- copy__VDS(string_tmp2__GCJ,string_tmp__VH);
- read_integer__22P();
- copy__VDS(string_tmp__VH,string_tmp2__GCJ);
- if ((last_integer__VSO > 255)) {
- pos__02YG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_302));
- put_position__FRG(pos__02YG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- val__DALF=((__INTEGER )last_integer__VSO);
- Self__QJIH=((__STRING *)string_tmp__VH);
- ch__UJIH=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER)(val__DALF >> 6)) + ((__INTEGER_8 )'0')))));
- new_capacity__PJIH= 0;
- if ((Self__QJIH->capacity__UCS <= Self__QJIH->count__SGC)) {
- if ((Self__QJIH->capacity__UCS == 0)) {
- Self__QJIH->capacity__UCS= 32;
- Self__QJIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__PJIH=(__INTEGER)(Self__QJIH->capacity__UCS << 1);
- Self__RJIH=((__CHARACTER *)Self__QJIH->storage__3CS);
- old_nb_elts__SJIH=Self__QJIH->capacity__UCS;
- new__TJIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__RJIH),((__UINTEGER_32 )old_nb_elts__SJIH),((__UINTEGER_32 )new_capacity__PJIH)));
- upper__0QKH=(__INTEGER)(new_capacity__PJIH - 1);
- Self__YQKH=old_nb_elts__SJIH;
- while ((Self__YQKH <= upper__0QKH)) {
- new__TJIH[Self__YQKH]='\0';
- Self__YQKH=(__INTEGER)(Self__YQKH + 1);
- };
- Self__QJIH->storage__3CS=new__TJIH;
- Self__QJIH->capacity__UCS=new_capacity__PJIH;
- };
- };
- ((__CHARACTER *)Self__QJIH->storage__3CS)[Self__QJIH->count__SGC]=ch__UJIH;
- Self__QJIH->count__SGC=(__INTEGER)(Self__QJIH->count__SGC + 1);
- Self__WJIH=((__STRING *)string_tmp__VH);
- ch__0JIH=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER)((__INTEGER)(val__DALF & 63) >> 3)) + ((__INTEGER_8 )'0')))));
- new_capacity__VJIH= 0;
- if ((Self__WJIH->capacity__UCS <= Self__WJIH->count__SGC)) {
- if ((Self__WJIH->capacity__UCS == 0)) {
- Self__WJIH->capacity__UCS= 32;
- Self__WJIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__VJIH=(__INTEGER)(Self__WJIH->capacity__UCS << 1);
- Self__XJIH=((__CHARACTER *)Self__WJIH->storage__3CS);
- old_nb_elts__YJIH=Self__WJIH->capacity__UCS;
- new__ZJIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__XJIH),((__UINTEGER_32 )old_nb_elts__YJIH),((__UINTEGER_32 )new_capacity__VJIH)));
- upper__5QKH=(__INTEGER)(new_capacity__VJIH - 1);
- Self__3QKH=old_nb_elts__YJIH;
- while ((Self__3QKH <= upper__5QKH)) {
- new__ZJIH[Self__3QKH]='\0';
- Self__3QKH=(__INTEGER)(Self__3QKH + 1);
- };
- Self__WJIH->storage__3CS=new__ZJIH;
- Self__WJIH->capacity__UCS=new_capacity__VJIH;
- };
- };
- ((__CHARACTER *)Self__WJIH->storage__3CS)[Self__WJIH->count__SGC]=ch__0JIH;
- Self__WJIH->count__SGC=(__INTEGER)(Self__WJIH->count__SGC + 1);
- Self__2JIH=((__STRING *)string_tmp__VH);
- ch__AKIH=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER)(val__DALF & 7)) + ((__INTEGER_8 )'0')))));
- new_capacity__1JIH= 0;
- if ((Self__2JIH->capacity__UCS <= Self__2JIH->count__SGC)) {
- if ((Self__2JIH->capacity__UCS == 0)) {
- Self__2JIH->capacity__UCS= 32;
- Self__2JIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__1JIH=(__INTEGER)(Self__2JIH->capacity__UCS << 1);
- Self__3JIH=((__CHARACTER *)Self__2JIH->storage__3CS);
- old_nb_elts__4JIH=Self__2JIH->capacity__UCS;
- new__5JIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__3JIH),((__UINTEGER_32 )old_nb_elts__4JIH),((__UINTEGER_32 )new_capacity__1JIH)));
- upper__ERKH=(__INTEGER)(new_capacity__1JIH - 1);
- Self__CRKH=old_nb_elts__4JIH;
- while ((Self__CRKH <= upper__ERKH)) {
- new__5JIH[Self__CRKH]='\0';
- Self__CRKH=(__INTEGER)(Self__CRKH + 1);
- };
- Self__2JIH->storage__3CS=new__5JIH;
- Self__2JIH->capacity__UCS=new_capacity__1JIH;
- };
- };
- ((__CHARACTER *)Self__2JIH->storage__3CS)[Self__2JIH->count__SGC]=ch__AKIH;
- Self__2JIH->count__SGC=(__INTEGER)(Self__2JIH->count__SGC + 1);
- result__JXAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__JXAH=((__CHARACTER )(( 0)));
- } else {
- result__JXAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__JXAH == '\\')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- } else {
- pos__H3YG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_303));
- put_position__FRG(pos__H3YG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- } else {
- pos__J3YG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_301));
- put_position__FRG(pos__J3YG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- };
- };
-}
-
-static __BOOLEAN read_cap_identifier__N1J()
-// () With resultNo recursive, No inlinable.
-{
- __INTEGER posold__Q1J,idx__R1J,new_capacity__BKIH,old_nb_elts__EKIH;
- __INTEGER upper__QRKH,Self__ORKH,new_capacity__HKIH,old_nb_elts__KKIH;
- __INTEGER upper__VRKH,Self__TRKH;
- __STRING *Self__CKIH,*Self__IKIH;
- __POSITION pos__24YG;
- __BOOLEAN result__S1J,__tmp__A2J,result__SOEH,__tmp__U3J,result__BPEH;
- __BOOLEAN result__K2FH,__tmp__Q3J,__tmp__R3J,result__M2FH,__tmp__E4J;
- __CHARACTER result__2XAH,result__GYAH,result__LYAH,result__UYAH;
- __CHARACTER result__ZYAH,result__4YAH,result__DZAH;
- __CHARACTER *Self__DKIH,*new__FKIH,*Self__JKIH,*new__LKIH;
- posold__Q1J= 0;
- idx__R1J= 0;
- result__S1J=FALSE__;
- if ((! read_space__XTD())) {
- __tmp__A2J=TRUE__;
- } else {
- result__2XAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__2XAH=((__CHARACTER )(( 0)));
- } else {
- result__2XAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- result__SOEH=FALSE__;
- if ((((__INTEGER_8 )result__2XAH) >= ((__INTEGER_8 )'A'))) {
- result__SOEH=(((__INTEGER_8 )result__2XAH) <= ((__INTEGER_8 )'Z'));
- };
- __tmp__A2J=(! result__SOEH);
- };
- if (__tmp__A2J) {
- result__S1J=FALSE__;
- } else {
- posold__Q1J=position__CCC;
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- result__GYAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__GYAH=((__CHARACTER )(( 0)));
- } else {
- result__GYAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- Self__CKIH=((__STRING *)string_tmp__VH);
- new_capacity__BKIH= 0;
- if ((Self__CKIH->capacity__UCS <= Self__CKIH->count__SGC)) {
- if ((Self__CKIH->capacity__UCS == 0)) {
- Self__CKIH->capacity__UCS= 32;
- Self__CKIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__BKIH=(__INTEGER)(Self__CKIH->capacity__UCS << 1);
- Self__DKIH=((__CHARACTER *)Self__CKIH->storage__3CS);
- old_nb_elts__EKIH=Self__CKIH->capacity__UCS;
- new__FKIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__DKIH),((__UINTEGER_32 )old_nb_elts__EKIH),((__UINTEGER_32 )new_capacity__BKIH)));
- upper__QRKH=(__INTEGER)(new_capacity__BKIH - 1);
- Self__ORKH=old_nb_elts__EKIH;
- while ((Self__ORKH <= upper__QRKH)) {
- new__FKIH[Self__ORKH]='\0';
- Self__ORKH=(__INTEGER)(Self__ORKH + 1);
- };
- Self__CKIH->storage__3CS=new__FKIH;
- Self__CKIH->capacity__UCS=new_capacity__BKIH;
- };
- };
- ((__CHARACTER *)Self__CKIH->storage__3CS)[Self__CKIH->count__SGC]=result__GYAH;
- Self__CKIH->count__SGC=(__INTEGER)(Self__CKIH->count__SGC + 1);
- position__CCC=(__INTEGER)(position__CCC + 1);
- is_parameter_type__AME=TRUE__;
- until_do__I0ZE:
- {
- result__LYAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__LYAH=((__CHARACTER )(( 0)));
- } else {
- result__LYAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__LYAH == ((__CHARACTER )(( 0))))) {
- __tmp__U3J=TRUE__;
- } else {
- result__UYAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__UYAH=((__CHARACTER )(( 0)));
- } else {
- result__UYAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- result__BPEH=FALSE__;
- if ((((__INTEGER_8 )result__UYAH) >= ((__INTEGER_8 )'A'))) {
- result__BPEH=(((__INTEGER_8 )result__UYAH) <= ((__INTEGER_8 )'Z'));
- };
- if ((! result__BPEH)) {
- result__ZYAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__ZYAH=((__CHARACTER )(( 0)));
- } else {
- result__ZYAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- result__K2FH=FALSE__;
- if ((((__INTEGER_8 )result__ZYAH) >= ((__INTEGER_8 )'0'))) {
- result__K2FH=(((__INTEGER_8 )result__ZYAH) <= ((__INTEGER_8 )'9'));
- };
- __tmp__Q3J=(! result__K2FH);
- } else {
- __tmp__Q3J=FALSE__;
- };
- if (__tmp__Q3J) {
- result__4YAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__4YAH=((__CHARACTER )(( 0)));
- } else {
- result__4YAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__R3J=(result__4YAH != '_');
- } else {
- __tmp__R3J=FALSE__;
- };
- __tmp__U3J=__tmp__R3J;
- };
- if ((! __tmp__U3J)) {
- result__DZAH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__DZAH=((__CHARACTER )(( 0)));
- } else {
- result__DZAH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if (is_parameter_type__AME) {
- result__M2FH=FALSE__;
- if ((((__INTEGER_8 )result__DZAH) >= ((__INTEGER_8 )'0'))) {
- result__M2FH=(((__INTEGER_8 )result__DZAH) <= ((__INTEGER_8 )'9'));
- };
- __tmp__E4J=result__M2FH;
- } else {
- __tmp__E4J=FALSE__;
- };
- is_parameter_type__AME=__tmp__E4J;
- Self__IKIH=((__STRING *)string_tmp__VH);
- new_capacity__HKIH= 0;
- if ((Self__IKIH->capacity__UCS <= Self__IKIH->count__SGC)) {
- if ((Self__IKIH->capacity__UCS == 0)) {
- Self__IKIH->capacity__UCS= 32;
- Self__IKIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__HKIH=(__INTEGER)(Self__IKIH->capacity__UCS << 1);
- Self__JKIH=((__CHARACTER *)Self__IKIH->storage__3CS);
- old_nb_elts__KKIH=Self__IKIH->capacity__UCS;
- new__LKIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__JKIH),((__UINTEGER_32 )old_nb_elts__KKIH),((__UINTEGER_32 )new_capacity__HKIH)));
- upper__VRKH=(__INTEGER)(new_capacity__HKIH - 1);
- Self__TRKH=old_nb_elts__KKIH;
- while ((Self__TRKH <= upper__VRKH)) {
- new__LKIH[Self__TRKH]='\0';
- Self__TRKH=(__INTEGER)(Self__TRKH + 1);
- };
- Self__IKIH->storage__3CS=new__LKIH;
- Self__IKIH->capacity__UCS=new_capacity__HKIH;
- };
- };
- ((__CHARACTER *)Self__IKIH->storage__3CS)[Self__IKIH->count__SGC]=result__DZAH;
- Self__IKIH->count__SGC=(__INTEGER)(Self__IKIH->count__SGC + 1);
- position__CCC=(__INTEGER)(position__CCC + 1);
- goto until_do__I0ZE;
- };
- };
- idx__R1J=first_substring_index__W0ZE(string_tmp__VH);
- if ((idx__R1J != 0)) {
- position__CCC=(__INTEGER)(posold__Q1J + idx__R1J);
- pos__24YG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_207));
- put_position__FRG(pos__24YG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- last_string__D2C=get__YWB(string_tmp__VH);
- result__S1J=TRUE__;
- };
- return(result__S1J);
-}
-
-static void add_last__NABC(__FAST_ARRAYoITM_TYPE_PARAMETERo *Self__OABC,void *element__PABC)
-// ({FAST_ARRAYoITM_TYPE_PARAMETERo},{NULLxITM_TYPE_PARAMETER}) VoidNo recursive, No inlinable.
-{
- __INTEGER new_capacity__QABC,__tmp__ZBBC,__tmp__J3SD,Self__5CYE;
- __BOOLEAN __tmp__ABBC;
- void **__tmp__YBBC,**new__V2SD;
- new_capacity__QABC= 0;
- if (((__INTEGER)(Self__OABC->parent_arrayed_collection__LOE.upper__RABC + 1) <= (__INTEGER)(Self__OABC->parent_arrayed_collection__LOE.capacity__TABC - 1))) {
- Self__OABC->parent_arrayed_collection__LOE.upper__RABC=(__INTEGER)(Self__OABC->parent_arrayed_collection__LOE.upper__RABC + 1);
- __tmp__ABBC=TRUE__;
- } else {
- __tmp__ABBC=FALSE__;
- };
- if ((! __tmp__ABBC)) {
- if ((Self__OABC->parent_arrayed_collection__LOE.capacity__TABC == 0)) {
- Self__OABC->parent_arrayed_collection__LOE.storage__PBBC=create__G01C( 2);
- Self__OABC->parent_arrayed_collection__LOE.capacity__TABC= 2;
- Self__OABC->parent_arrayed_collection__LOE.upper__RABC= 0;
- } else {
- new_capacity__QABC=(__INTEGER)(Self__OABC->parent_arrayed_collection__LOE.capacity__TABC << 1);
- __tmp__YBBC=Self__OABC->parent_arrayed_collection__LOE.storage__PBBC;
- __tmp__ZBBC=Self__OABC->parent_arrayed_collection__LOE.capacity__TABC;
- new__V2SD=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__YBBC)),((__UINTEGER_32 )(__INTEGER)(__tmp__ZBBC * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__QABC * ((__INTEGER )(sizeof(void *)))))));
- __tmp__J3SD=(__INTEGER)(new_capacity__QABC - 1);
- Self__5CYE=__tmp__ZBBC;
- while ((Self__5CYE <= __tmp__J3SD)) {
- new__V2SD[Self__5CYE]=NULL;
- Self__5CYE=(__INTEGER)(Self__5CYE + 1);
- };
- Self__OABC->parent_arrayed_collection__LOE.storage__PBBC=new__V2SD;
- Self__OABC->parent_arrayed_collection__LOE.capacity__TABC=new_capacity__QABC;
- Self__OABC->parent_arrayed_collection__LOE.upper__RABC=(__INTEGER)(Self__OABC->parent_arrayed_collection__LOE.upper__RABC + 1);
- };
- };
- ((void **)Self__OABC->parent_arrayed_collection__LOE.storage__PBBC)[Self__OABC->parent_arrayed_collection__LOE.upper__RABC]=element__PABC;
-}
-
-static __BOOLEAN read_external__2TO()
-// () With resultNo recursive, No inlinable.
-{
- __INTEGER pos_old__AUO,new_capacity__NKIH,old_nb_elts__QKIH;
- __INTEGER upper__0RKH,Self__YRKH,new_capacity__TKIH,old_nb_elts__WKIH;
- __INTEGER upper__5RKH,Self__3RKH;
- __STRING *Self__OKIH,*Self__UKIH;
- __BOOLEAN result__5TO,__tmp__LUO;
- __CHARACTER result__Y0AH,result__C1AH,result__L1AH,result__Q1AH;
- __CHARACTER result__V1AH,result__01AH,result__51AH,result__I2AH;
- __CHARACTER *Self__PKIH,*new__RKIH,*Self__VKIH,*new__XKIH;
- result__5TO=FALSE__;
- pos_old__AUO= 0;
- if ((! read_space__XTD())) {
- __tmp__LUO=TRUE__;
- } else {
- result__Y0AH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__Y0AH=((__CHARACTER )(( 0)));
- } else {
- result__Y0AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__LUO=(result__Y0AH != '`');
- };
- if (__tmp__LUO) {
- result__5TO=FALSE__;
- } else {
- pos_old__AUO=position__CCC;
- position__CCC=(__INTEGER)(position__CCC + 1);
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- until_do__MIRC:
- {
- result__C1AH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__C1AH=((__CHARACTER )(( 0)));
- } else {
- result__C1AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- result__L1AH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__L1AH=((__CHARACTER )(( 0)));
- } else {
- result__L1AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((! ((result__C1AH == ((__CHARACTER )(( 0)))) | (result__L1AH == '`')))) {
- result__Q1AH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__Q1AH=((__CHARACTER )(( 0)));
- } else {
- result__Q1AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- Self__OKIH=((__STRING *)string_tmp__VH);
- new_capacity__NKIH= 0;
- if ((Self__OKIH->capacity__UCS <= Self__OKIH->count__SGC)) {
- if ((Self__OKIH->capacity__UCS == 0)) {
- Self__OKIH->capacity__UCS= 32;
- Self__OKIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__NKIH=(__INTEGER)(Self__OKIH->capacity__UCS << 1);
- Self__PKIH=((__CHARACTER *)Self__OKIH->storage__3CS);
- old_nb_elts__QKIH=Self__OKIH->capacity__UCS;
- new__RKIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__PKIH),((__UINTEGER_32 )old_nb_elts__QKIH),((__UINTEGER_32 )new_capacity__NKIH)));
- upper__0RKH=(__INTEGER)(new_capacity__NKIH - 1);
- Self__YRKH=old_nb_elts__QKIH;
- while ((Self__YRKH <= upper__0RKH)) {
- new__RKIH[Self__YRKH]='\0';
- Self__YRKH=(__INTEGER)(Self__YRKH + 1);
- };
- Self__OKIH->storage__3CS=new__RKIH;
- Self__OKIH->capacity__UCS=new_capacity__NKIH;
- };
- };
- ((__CHARACTER *)Self__OKIH->storage__3CS)[Self__OKIH->count__SGC]=result__Q1AH;
- Self__OKIH->count__SGC=(__INTEGER)(Self__OKIH->count__SGC + 1);
- result__V1AH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__V1AH=((__CHARACTER )(( 0)));
- } else {
- result__V1AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__V1AH == '\\')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__01AH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__01AH=((__CHARACTER )(( 0)));
- } else {
- result__01AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- Self__UKIH=((__STRING *)string_tmp__VH);
- new_capacity__TKIH= 0;
- if ((Self__UKIH->capacity__UCS <= Self__UKIH->count__SGC)) {
- if ((Self__UKIH->capacity__UCS == 0)) {
- Self__UKIH->capacity__UCS= 32;
- Self__UKIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__TKIH=(__INTEGER)(Self__UKIH->capacity__UCS << 1);
- Self__VKIH=((__CHARACTER *)Self__UKIH->storage__3CS);
- old_nb_elts__WKIH=Self__UKIH->capacity__UCS;
- new__XKIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__VKIH),((__UINTEGER_32 )old_nb_elts__WKIH),((__UINTEGER_32 )new_capacity__TKIH)));
- upper__5RKH=(__INTEGER)(new_capacity__TKIH - 1);
- Self__3RKH=old_nb_elts__WKIH;
- while ((Self__3RKH <= upper__5RKH)) {
- new__XKIH[Self__3RKH]='\0';
- Self__3RKH=(__INTEGER)(Self__3RKH + 1);
- };
- Self__UKIH->storage__3CS=new__XKIH;
- Self__UKIH->capacity__UCS=new_capacity__TKIH;
- };
- };
- ((__CHARACTER *)Self__UKIH->storage__3CS)[Self__UKIH->count__SGC]=result__01AH;
- Self__UKIH->count__SGC=(__INTEGER)(Self__UKIH->count__SGC + 1);
- result__51AH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__51AH=((__CHARACTER )(( 0)));
- } else {
- result__51AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__51AH != ((__CHARACTER )(( 0))))) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- };
- } else {
- position__CCC=(__INTEGER)(position__CCC + 1);
- };
- goto until_do__MIRC;
- };
- };
- result__I2AH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__I2AH=((__CHARACTER )(( 0)));
- } else {
- result__I2AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__I2AH != ((__CHARACTER )(( 0))))) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- last_string__D2C=get__YWB(string_tmp__VH);
- result__5TO=TRUE__;
- short__token__to__GDD((&__string_65),pos_old__AUO,position__CCC);
- } else {
- result__5TO=FALSE__;
- };
- };
- return(result__5TO);
-}
-
-static void* read_expr_primary__E5M(__PARSER *Self__F5M)
-// ({PARSER}) With resultNo recursive, No inlinable.
-{
- void *result__H5M;
- void *type__I5M;
- void *group_sav__N5M,*lst__CHHB;
- __POSITION p__LSKH,pos__GBZG,p__UIAB,p__NLIH,p__BUKH,pos__IBZG,p__I3H;
- __POSITION pos__KBZG,pos__SBZG,__tmp__RGN,__tmp__ZGN,pos__ACZG;
- __POSITION pos__CCZG,pos__ECZG,pos__GCZG;
- __ITM_READ *result__DSKH,*result__RVGB;
- __POINTER ptr__ESKH,ptr_table__NSKH,next__MSKH,result__OSKH;
- __POINTER ptr_table__SSKH,next__RSKH,result__TSKH,ptr__SVGB;
- __POINTER ptr_table__DTKH,next__CTKH,result__ETKH,ptr_table__ITKH;
- __POINTER next__HTKH,result__JTKH,ptr__GLIH,ptr_table__NTKH;
- __POINTER next__MTKH,result__OTKH,ptr_table__STKH,next__RTKH;
- __POINTER result__TTKH,ptr__0TKH,ptr_table__DUKH,next__CUKH;
- __POINTER result__EUKH,ptr_table__IUKH,next__HUKH,result__JUKH;
- __POINTER ptr__2RI,ptr_table__TUKH,next__SUKH,result__UUKH;
- __POINTER ptr_table__YUKH,next__XUKH,result__ZUKH,ptr__0EMB;
- __POINTER ptr_table__AVKH,next__5UKH,result__BVKH,ptr_table__FVKH;
- __POINTER next__EVKH,result__GVKH,ptr__3TTB,ptr_table__QVKH;
- __POINTER next__PVKH,result__RVKH,ptr_table__VVKH,next__UVKH;
- __POINTER result__WVKH,ptr__RVTB,ptr_table__3VKH,next__2VKH;
- __POINTER result__4VKH,ptr_table__CWKH,next__BWKH,result__DWKH;
- __INTEGER typ_id__FSKH,new_capacity__ZKIH,old_nb_elts__2KIH;
- __INTEGER upper__1SKH,Self__ZSKH,new_capacity__5KIH,old_nb_elts__CLIH;
- __INTEGER upper__ATKH,Self__4SKH,typ_id__XVGB,typ_id__HLIH;
- __INTEGER typ_id__1TKH,typ_id__BSI,typ_id__5EMB,typ_id__CUTB;
- __INTEGER typ_id__WVTB;
- __UINTEGER_32 sz__GSKH,a__HSKH,new_size__ISKH,t__JSKH,a__KSKH;
- __UINTEGER_32 new_size__VSKH,lab_type__USKH,sz__UVGB,a__EFGH;
- __UINTEGER_32 new_size__FFGH,t__JFGH,a__IFGH,new_size__LTKH;
- __UINTEGER_32 lab_type__KTKH,sz__ILIH,a__JLIH,new_size__KLIH,t__LLIH;
- __UINTEGER_32 a__MLIH,new_size__VTKH,lab_type__UTKH,sz__2TKH,a__3TKH;
- __UINTEGER_32 new_size__4TKH,t__5TKH,a__AUKH,new_size__LUKH;
- __UINTEGER_32 lab_type__KUKH,sz__4RI,a__MDGH,new_size__NDGH,t__RDGH;
- __UINTEGER_32 a__QDGH,new_size__1UKH,lab_type__0UKH,sz__2EMB,a__Y2FH;
- __UINTEGER_32 new_size__Z2FH,t__32FH,a__22FH,new_size__IVKH;
- __UINTEGER_32 lab_type__HVKH,sz__5TTB,a__A3FH,new_size__B3FH,t__F3FH;
- __UINTEGER_32 a__E3FH,new_size__YVKH,lab_type__XVKH,sz__TVTB,a__I3FH;
- __UINTEGER_32 new_size__J3FH,t__N3FH,a__M3FH,new_size__FWKH;
- __UINTEGER_32 lab_type__EWKH;
- __STRING *Self__0KIH,*Self__ALIH;
- __ITM_PROTOTYPE *result__FLIH;
- __ITM_LIST *result__ZTKH,*result__1RI;
- __ITM_BLOCK *result__ZEMB;
- __ITM_EXTERNAL *result__2TTB;
- __ITM_EXTERNAL_TYPE *result__QVTB,*Self__JZEC;
- __BOOLEAN result__CSKH,__tmp__35M,__tmp__ACN,result__XSKH;
- __BOOLEAN result__U2FH,__tmp__PCN,result__30N,__tmp__3CN,__tmp__0DN;
- __BOOLEAN result__WTKH,result__MUKH,__tmp__3FN,result__PUKH;
- __BOOLEAN result__2UKH,result__JVKH,result__MVKH,result__ZVKH;
- __BOOLEAN result__GWKH,result__JWKH,result__MWKH,__tmp__TIN;
- __CHARACTER result__R2AH,result__W2AH,result__12AH,result__XTKH;
- __CHARACTER result__NUKH,result__QUKH,result__3UKH,result__KVKH;
- __CHARACTER result__NVKH,result__0VKH,result__HWKH,result__KWKH;
- __CHARACTER result__NWKH;
- __CHARACTER *Self__1KIH,*new__3KIH,*Self__BLIH,*new__DLIH;
- result__H5M=NULL;
- type__I5M=NULL;
- group_sav__N5M=NULL;
- result__CSKH=read_word__ISF((&__string_58));
- if (is_shorter__LZ) {
- if (result__CSKH) {
- if (((void *)(&__string_58) == (void *)(&__string_4))) {
- short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- } else {
- short__token__to__GDD((&__string_119),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- };
- };
- };
- if (result__CSKH) {
- p__LSKH=current_position__B0F();
- result__DSKH=NULL;
- ptr__ESKH=((__POINTER )(NULL));
- typ_id__FSKH= 0;
- sz__GSKH=((__UINTEGER_32 )sizeof(__ITM_READ));
- if ((sz__GSKH == 0)) {
- result__DSKH=ITM_READ__;
- } else {
- typ_id__FSKH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__GSKH);
- if ((typ_id__FSKH == (__INTEGER)(- 1))) {
- a__HSKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ISKH=(__UINTEGER_32)((__UINTEGER_32)(sz__GSKH + a__HSKH) & (__UINTEGER_32)(~ a__HSKH));
- ptr_table__NSKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ISKH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__MSKH=((__POINTER )(NULL));
- result__OSKH=((__POINTER *)ptr_table__NSKH)[ 0];
- if ((result__OSKH == (void *)NULL)) {
- result__OSKH=new_lab__RTJ(new_size__ISKH);
- next__MSKH=(void *)((unsigned long)result__OSKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ISKH)));
- ((__POINTER *)next__MSKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__NSKH)[ 0]=next__MSKH;
- } else {
- next__MSKH=((__POINTER *)result__OSKH)[ 0];
- if ((next__MSKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OSKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__ISKH << 1)) <= 4096)) {
- next__MSKH=(void *)((unsigned long)result__OSKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ISKH)));
- } else {
- next__MSKH=new_lab__RTJ(new_size__ISKH);
- };
- ((__POINTER *)next__MSKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__NSKH)[ 0]=next__MSKH;
- } else {
- ((__POINTER *)result__OSKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MSKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__OSKH=next__MSKH;
- };
- };
- ptr__ESKH=result__OSKH;
- } else {
- t__JSKH=((__UINTEGER_32 )typ_id__FSKH);
- a__KSKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__VSKH=(__UINTEGER_32)((__UINTEGER_32)(sz__GSKH + a__KSKH) & (__UINTEGER_32)(~ a__KSKH));
- ptr_table__SSKH=((__POINTER )(&(table_type[(t__JSKH)])));
- lab_type__USKH=(__UINTEGER_32)(t__JSKH | 1);
- next__RSKH=((__POINTER )(NULL));
- result__TSKH=((__POINTER *)ptr_table__SSKH)[ 0];
- if ((result__TSKH == (void *)NULL)) {
- result__TSKH=new_lab__RTJ(lab_type__USKH);
- next__RSKH=(void *)((unsigned long)result__TSKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VSKH)));
- ((__POINTER *)next__RSKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__SSKH)[ 0]=next__RSKH;
- } else {
- next__RSKH=((__POINTER *)result__TSKH)[ 0];
- if ((next__RSKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TSKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__VSKH << 1)) <= 4096)) {
- next__RSKH=(void *)((unsigned long)result__TSKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VSKH)));
- } else {
- next__RSKH=new_lab__RTJ(lab_type__USKH);
- };
- ((__POINTER *)next__RSKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__SSKH)[ 0]=next__RSKH;
- } else {
- ((__POINTER *)result__TSKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RSKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__TSKH=next__RSKH;
- };
- };
- ptr__ESKH=result__TSKH;
- };
- result__DSKH=((__ITM_READ *)ptr__ESKH);
- *(result__DSKH) = *(ITM_READ__);
- };
- ((__ITM_READ *)result__DSKH)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ=p__LSKH;
- result__H5M=result__DSKH;
- __tmp__35M=TRUE__;
- } else {
- __tmp__35M=FALSE__;
- };
- if (__tmp__35M) {
- __tmp__ACN=TRUE__;
- } else {
- result__XSKH=read_word__ISF((&__string_11));
- if (is_shorter__LZ) {
- if (result__XSKH) {
- if (((void *)(&__string_11) == (void *)(&__string_4))) {
- short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- } else {
- short__token__to__GDD((&__string_119),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- };
- };
- };
- if (result__XSKH) {
- result__R2AH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__R2AH=((__CHARACTER )(( 0)));
- } else {
- result__R2AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__R2AH == '_')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- copy__VDS(string_tmp__VH,(&__string_11));
- Self__0KIH=((__STRING *)string_tmp__VH);
- new_capacity__ZKIH= 0;
- if ((Self__0KIH->capacity__UCS <= Self__0KIH->count__SGC)) {
- if ((Self__0KIH->capacity__UCS == 0)) {
- Self__0KIH->capacity__UCS= 32;
- Self__0KIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__ZKIH=(__INTEGER)(Self__0KIH->capacity__UCS << 1);
- Self__1KIH=((__CHARACTER *)Self__0KIH->storage__3CS);
- old_nb_elts__2KIH=Self__0KIH->capacity__UCS;
- new__3KIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__1KIH),((__UINTEGER_32 )old_nb_elts__2KIH),((__UINTEGER_32 )new_capacity__ZKIH)));
- upper__1SKH=(__INTEGER)(new_capacity__ZKIH - 1);
- Self__ZSKH=old_nb_elts__2KIH;
- while ((Self__ZSKH <= upper__1SKH)) {
- new__3KIH[Self__ZSKH]='\0';
- Self__ZSKH=(__INTEGER)(Self__ZSKH + 1);
- };
- Self__0KIH->storage__3CS=new__3KIH;
- Self__0KIH->capacity__UCS=new_capacity__ZKIH;
- };
- };
- ((__CHARACTER *)Self__0KIH->storage__3CS)[Self__0KIH->count__SGC]='_';
- Self__0KIH->count__SGC=(__INTEGER)(Self__0KIH->count__SGC + 1);
- while_do__HUQB:
- {
- result__W2AH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__W2AH=((__CHARACTER )(( 0)));
- } else {
- result__W2AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- result__U2FH=FALSE__;
- if ((((__INTEGER_8 )result__W2AH) >= ((__INTEGER_8 )'0'))) {
- result__U2FH=(((__INTEGER_8 )result__W2AH) <= ((__INTEGER_8 )'9'));
- };
- if (result__U2FH) {
- result__12AH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__12AH=((__CHARACTER )(( 0)));
- } else {
- result__12AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- Self__ALIH=((__STRING *)string_tmp__VH);
- new_capacity__5KIH= 0;
- if ((Self__ALIH->capacity__UCS <= Self__ALIH->count__SGC)) {
- if ((Self__ALIH->capacity__UCS == 0)) {
- Self__ALIH->capacity__UCS= 32;
- Self__ALIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__5KIH=(__INTEGER)(Self__ALIH->capacity__UCS << 1);
- Self__BLIH=((__CHARACTER *)Self__ALIH->storage__3CS);
- old_nb_elts__CLIH=Self__ALIH->capacity__UCS;
- new__DLIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__BLIH),((__UINTEGER_32 )old_nb_elts__CLIH),((__UINTEGER_32 )new_capacity__5KIH)));
- upper__ATKH=(__INTEGER)(new_capacity__5KIH - 1);
- Self__4SKH=old_nb_elts__CLIH;
- while ((Self__4SKH <= upper__ATKH)) {
- new__DLIH[Self__4SKH]='\0';
- Self__4SKH=(__INTEGER)(Self__4SKH + 1);
- };
- Self__ALIH->storage__3CS=new__DLIH;
- Self__ALIH->capacity__UCS=new_capacity__5KIH;
- };
- };
- ((__CHARACTER *)Self__ALIH->storage__3CS)[Self__ALIH->count__SGC]=result__12AH;
- Self__ALIH->count__SGC=(__INTEGER)(Self__ALIH->count__SGC + 1);
- position__CCC=(__INTEGER)(position__CCC + 1);
- goto while_do__HUQB;
- };
- };
- if ((((__STRING *)string_tmp__VH)->count__SGC == 0)) {
- pos__GBZG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_304));
- put_position__FRG(pos__GBZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- get__YWB(string_tmp__VH);
- };
- p__UIAB=current_position__B0F();
- result__RVGB=NULL;
- ptr__SVGB=((__POINTER )(NULL));
- typ_id__XVGB= 0;
- sz__UVGB=((__UINTEGER_32 )sizeof(__ITM_READ));
- if ((sz__UVGB == 0)) {
- result__RVGB=ITM_READ__;
- } else {
- typ_id__XVGB=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__UVGB);
- if ((typ_id__XVGB == (__INTEGER)(- 1))) {
- a__EFGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__FFGH=(__UINTEGER_32)((__UINTEGER_32)(sz__UVGB + a__EFGH) & (__UINTEGER_32)(~ a__EFGH));
- ptr_table__DTKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__FFGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__CTKH=((__POINTER )(NULL));
- result__ETKH=((__POINTER *)ptr_table__DTKH)[ 0];
- if ((result__ETKH == (void *)NULL)) {
- result__ETKH=new_lab__RTJ(new_size__FFGH);
- next__CTKH=(void *)((unsigned long)result__ETKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FFGH)));
- ((__POINTER *)next__CTKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__DTKH)[ 0]=next__CTKH;
- } else {
- next__CTKH=((__POINTER *)result__ETKH)[ 0];
- if ((next__CTKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ETKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__FFGH << 1)) <= 4096)) {
- next__CTKH=(void *)((unsigned long)result__ETKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FFGH)));
- } else {
- next__CTKH=new_lab__RTJ(new_size__FFGH);
- };
- ((__POINTER *)next__CTKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__DTKH)[ 0]=next__CTKH;
- } else {
- ((__POINTER *)result__ETKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CTKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__ETKH=next__CTKH;
- };
- };
- ptr__SVGB=result__ETKH;
- } else {
- t__JFGH=((__UINTEGER_32 )typ_id__XVGB);
- a__IFGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__LTKH=(__UINTEGER_32)((__UINTEGER_32)(sz__UVGB + a__IFGH) & (__UINTEGER_32)(~ a__IFGH));
- ptr_table__ITKH=((__POINTER )(&(table_type[(t__JFGH)])));
- lab_type__KTKH=(__UINTEGER_32)(t__JFGH | 1);
- next__HTKH=((__POINTER )(NULL));
- result__JTKH=((__POINTER *)ptr_table__ITKH)[ 0];
- if ((result__JTKH == (void *)NULL)) {
- result__JTKH=new_lab__RTJ(lab_type__KTKH);
- next__HTKH=(void *)((unsigned long)result__JTKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LTKH)));
- ((__POINTER *)next__HTKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__ITKH)[ 0]=next__HTKH;
- } else {
- next__HTKH=((__POINTER *)result__JTKH)[ 0];
- if ((next__HTKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JTKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__LTKH << 1)) <= 4096)) {
- next__HTKH=(void *)((unsigned long)result__JTKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LTKH)));
- } else {
- next__HTKH=new_lab__RTJ(lab_type__KTKH);
- };
- ((__POINTER *)next__HTKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__ITKH)[ 0]=next__HTKH;
- } else {
- ((__POINTER *)result__JTKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HTKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__JTKH=next__HTKH;
- };
- };
- ptr__SVGB=result__JTKH;
- };
- result__RVGB=((__ITM_READ *)ptr__SVGB);
- *(result__RVGB) = *(ITM_READ__);
- };
- ((__ITM_READ *)result__RVGB)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ=p__UIAB;
- result__H5M=result__RVGB;
- };
- __tmp__ACN=result__XSKH;
- };
- if (__tmp__ACN) {
- __tmp__PCN=TRUE__;
- } else {
- type__I5M=read_prototype__DPN(Self__F5M,NULL);
- result__30N=((void *)type__I5M != (void *)NULL);
- if (result__30N) {
- p__NLIH=current_position__B0F();
- result__FLIH=NULL;
- ptr__GLIH=((__POINTER )(NULL));
- typ_id__HLIH= 0;
- sz__ILIH=((__UINTEGER_32 )sizeof(__ITM_PROTOTYPE));
- if ((sz__ILIH == 0)) {
- result__FLIH=ITM_PROTOTYPE__;
- } else {
- typ_id__HLIH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__ILIH);
- if ((typ_id__HLIH == (__INTEGER)(- 1))) {
- a__JLIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__KLIH=(__UINTEGER_32)((__UINTEGER_32)(sz__ILIH + a__JLIH) & (__UINTEGER_32)(~ a__JLIH));
- ptr_table__NTKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__KLIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__MTKH=((__POINTER )(NULL));
- result__OTKH=((__POINTER *)ptr_table__NTKH)[ 0];
- if ((result__OTKH == (void *)NULL)) {
- result__OTKH=new_lab__RTJ(new_size__KLIH);
- next__MTKH=(void *)((unsigned long)result__OTKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KLIH)));
- ((__POINTER *)next__MTKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__NTKH)[ 0]=next__MTKH;
- } else {
- next__MTKH=((__POINTER *)result__OTKH)[ 0];
- if ((next__MTKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OTKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__KLIH << 1)) <= 4096)) {
- next__MTKH=(void *)((unsigned long)result__OTKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__KLIH)));
- } else {
- next__MTKH=new_lab__RTJ(new_size__KLIH);
- };
- ((__POINTER *)next__MTKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__NTKH)[ 0]=next__MTKH;
- } else {
- ((__POINTER *)result__OTKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MTKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__OTKH=next__MTKH;
- };
- };
- ptr__GLIH=result__OTKH;
- } else {
- t__LLIH=((__UINTEGER_32 )typ_id__HLIH);
- a__MLIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__VTKH=(__UINTEGER_32)((__UINTEGER_32)(sz__ILIH + a__MLIH) & (__UINTEGER_32)(~ a__MLIH));
- ptr_table__STKH=((__POINTER )(&(table_type[(t__LLIH)])));
- lab_type__UTKH=(__UINTEGER_32)(t__LLIH | 1);
- next__RTKH=((__POINTER )(NULL));
- result__TTKH=((__POINTER *)ptr_table__STKH)[ 0];
- if ((result__TTKH == (void *)NULL)) {
- result__TTKH=new_lab__RTJ(lab_type__UTKH);
- next__RTKH=(void *)((unsigned long)result__TTKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VTKH)));
- ((__POINTER *)next__RTKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__STKH)[ 0]=next__RTKH;
- } else {
- next__RTKH=((__POINTER *)result__TTKH)[ 0];
- if ((next__RTKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TTKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__VTKH << 1)) <= 4096)) {
- next__RTKH=(void *)((unsigned long)result__TTKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VTKH)));
- } else {
- next__RTKH=new_lab__RTJ(lab_type__UTKH);
- };
- ((__POINTER *)next__RTKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__STKH)[ 0]=next__RTKH;
- } else {
- ((__POINTER *)result__TTKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RTKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__TTKH=next__RTKH;
- };
- };
- ptr__GLIH=result__TTKH;
- };
- result__FLIH=((__ITM_PROTOTYPE *)ptr__GLIH);
- *(result__FLIH) = *(ITM_PROTOTYPE__);
- };
- ((__ITM_PROTOTYPE *)result__FLIH)->parent_itm_constant__UYF.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ=p__NLIH;
- result__H5M=result__FLIH;
- };
- __tmp__PCN=result__30N;
- };
- if (__tmp__PCN) {
- __tmp__3CN=TRUE__;
- } else {
- result__H5M=read_constant__XRO();
- __tmp__3CN=((void *)result__H5M != (void *)NULL);
- };
- if (__tmp__3CN) {
- __tmp__0DN=TRUE__;
- } else {
- result__WTKH=FALSE__;
- if ((! read_space__XTD())) {
- result__WTKH=FALSE__;
- } else {
- result__XTKH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__XTKH=((__CHARACTER )(( 0)));
- } else {
- result__XTKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__XTKH == '(')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__WTKH=TRUE__;
- };
- };
- if (result__WTKH) {
- group_sav__N5M=last_group__TWF;
- p__BUKH=current_position__B0F();
- result__ZTKH=NULL;
- ptr__0TKH=((__POINTER )(NULL));
- typ_id__1TKH= 0;
- sz__2TKH=((__UINTEGER_32 )sizeof(__ITM_LIST));
- if ((sz__2TKH == 0)) {
- result__ZTKH=ITM_LIST__;
- } else {
- typ_id__1TKH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__2TKH);
- if ((typ_id__1TKH == (__INTEGER)(- 1))) {
- a__3TKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__4TKH=(__UINTEGER_32)((__UINTEGER_32)(sz__2TKH + a__3TKH) & (__UINTEGER_32)(~ a__3TKH));
- ptr_table__DUKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4TKH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__CUKH=((__POINTER )(NULL));
- result__EUKH=((__POINTER *)ptr_table__DUKH)[ 0];
- if ((result__EUKH == (void *)NULL)) {
- result__EUKH=new_lab__RTJ(new_size__4TKH);
- next__CUKH=(void *)((unsigned long)result__EUKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4TKH)));
- ((__POINTER *)next__CUKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__DUKH)[ 0]=next__CUKH;
- } else {
- next__CUKH=((__POINTER *)result__EUKH)[ 0];
- if ((next__CUKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EUKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__4TKH << 1)) <= 4096)) {
- next__CUKH=(void *)((unsigned long)result__EUKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4TKH)));
- } else {
- next__CUKH=new_lab__RTJ(new_size__4TKH);
- };
- ((__POINTER *)next__CUKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__DUKH)[ 0]=next__CUKH;
- } else {
- ((__POINTER *)result__EUKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CUKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__EUKH=next__CUKH;
- };
- };
- ptr__0TKH=result__EUKH;
- } else {
- t__5TKH=((__UINTEGER_32 )typ_id__1TKH);
- a__AUKH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__LUKH=(__UINTEGER_32)((__UINTEGER_32)(sz__2TKH + a__AUKH) & (__UINTEGER_32)(~ a__AUKH));
- ptr_table__IUKH=((__POINTER )(&(table_type[(t__5TKH)])));
- lab_type__KUKH=(__UINTEGER_32)(t__5TKH | 1);
- next__HUKH=((__POINTER )(NULL));
- result__JUKH=((__POINTER *)ptr_table__IUKH)[ 0];
- if ((result__JUKH == (void *)NULL)) {
- result__JUKH=new_lab__RTJ(lab_type__KUKH);
- next__HUKH=(void *)((unsigned long)result__JUKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LUKH)));
- ((__POINTER *)next__HUKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__IUKH)[ 0]=next__HUKH;
- } else {
- next__HUKH=((__POINTER *)result__JUKH)[ 0];
- if ((next__HUKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JUKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__LUKH << 1)) <= 4096)) {
- next__HUKH=(void *)((unsigned long)result__JUKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LUKH)));
- } else {
- next__HUKH=new_lab__RTJ(lab_type__KUKH);
- };
- ((__POINTER *)next__HUKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__IUKH)[ 0]=next__HUKH;
- } else {
- ((__POINTER *)result__JUKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HUKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__JUKH=next__HUKH;
- };
- };
- ptr__0TKH=result__JUKH;
- };
- result__ZTKH=((__ITM_LIST *)ptr__0TKH);
- *(result__ZTKH) = *(ITM_LIST__);
- };
- ((__ITM_LIST *)result__ZTKH)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ=p__BUKH;
- last_group__TWF=result__ZTKH;
- result__H5M=result__ZTKH;
- read_group__C4GB(Self__F5M);
- result__MUKH=FALSE__;
- if ((! read_space__XTD())) {
- result__MUKH=FALSE__;
- } else {
- result__NUKH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__NUKH=((__CHARACTER )(( 0)));
- } else {
- result__NUKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__NUKH == ')')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__MUKH=TRUE__;
- };
- };
- if ((! result__MUKH)) {
- pos__IBZG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_262));
- put_position__FRG(pos__IBZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- last_group__TWF=group_sav__N5M;
- };
- __tmp__0DN=result__WTKH;
- };
- if (__tmp__0DN) {
- __tmp__3FN=TRUE__;
- } else {
- result__PUKH=FALSE__;
- if ((! read_space__XTD())) {
- result__PUKH=FALSE__;
- } else {
- result__QUKH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__QUKH=((__CHARACTER )(( 0)));
- } else {
- result__QUKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__QUKH == '{')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__PUKH=TRUE__;
- };
- };
- if (result__PUKH) {
- short__token__to__GDD((&__string_133),(__INTEGER)(position__CCC - 1),position__CCC);
- group_sav__N5M=last_group__TWF;
- p__I3H=current_position__B0F();
- result__1RI=NULL;
- ptr__2RI=((__POINTER )(NULL));
- typ_id__BSI= 0;
- sz__4RI=((__UINTEGER_32 )sizeof(__ITM_LIST));
- if ((sz__4RI == 0)) {
- result__1RI=ITM_LIST__;
- } else {
- typ_id__BSI=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__4RI);
- if ((typ_id__BSI == (__INTEGER)(- 1))) {
- a__MDGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__NDGH=(__UINTEGER_32)((__UINTEGER_32)(sz__4RI + a__MDGH) & (__UINTEGER_32)(~ a__MDGH));
- ptr_table__TUKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NDGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__SUKH=((__POINTER )(NULL));
- result__UUKH=((__POINTER *)ptr_table__TUKH)[ 0];
- if ((result__UUKH == (void *)NULL)) {
- result__UUKH=new_lab__RTJ(new_size__NDGH);
- next__SUKH=(void *)((unsigned long)result__UUKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NDGH)));
- ((__POINTER *)next__SUKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__TUKH)[ 0]=next__SUKH;
- } else {
- next__SUKH=((__POINTER *)result__UUKH)[ 0];
- if ((next__SUKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UUKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__NDGH << 1)) <= 4096)) {
- next__SUKH=(void *)((unsigned long)result__UUKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NDGH)));
- } else {
- next__SUKH=new_lab__RTJ(new_size__NDGH);
- };
- ((__POINTER *)next__SUKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__TUKH)[ 0]=next__SUKH;
- } else {
- ((__POINTER *)result__UUKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__SUKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__UUKH=next__SUKH;
- };
- };
- ptr__2RI=result__UUKH;
- } else {
- t__RDGH=((__UINTEGER_32 )typ_id__BSI);
- a__QDGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__1UKH=(__UINTEGER_32)((__UINTEGER_32)(sz__4RI + a__QDGH) & (__UINTEGER_32)(~ a__QDGH));
- ptr_table__YUKH=((__POINTER )(&(table_type[(t__RDGH)])));
- lab_type__0UKH=(__UINTEGER_32)(t__RDGH | 1);
- next__XUKH=((__POINTER )(NULL));
- result__ZUKH=((__POINTER *)ptr_table__YUKH)[ 0];
- if ((result__ZUKH == (void *)NULL)) {
- result__ZUKH=new_lab__RTJ(lab_type__0UKH);
- next__XUKH=(void *)((unsigned long)result__ZUKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1UKH)));
- ((__POINTER *)next__XUKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__YUKH)[ 0]=next__XUKH;
- } else {
- next__XUKH=((__POINTER *)result__ZUKH)[ 0];
- if ((next__XUKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__ZUKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__1UKH << 1)) <= 4096)) {
- next__XUKH=(void *)((unsigned long)result__ZUKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1UKH)));
- } else {
- next__XUKH=new_lab__RTJ(lab_type__0UKH);
- };
- ((__POINTER *)next__XUKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__YUKH)[ 0]=next__XUKH;
- } else {
- ((__POINTER *)result__ZUKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__XUKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__ZUKH=next__XUKH;
- };
- };
- ptr__2RI=result__ZUKH;
- };
- result__1RI=((__ITM_LIST *)ptr__2RI);
- *(result__1RI) = *(ITM_LIST__);
- };
- ((__ITM_LIST *)result__1RI)->parent_itm_code__SBF.parent_itm_object__PFE.position__SFJ=p__I3H;
- last_group__TWF=result__1RI;
- old_position__ITI=position__CCC;
- old_pos_cur__KTI=pos_cur__FCC;
- old_pos_line__MTI=pos_line__GCC;
- old_pos_col__OTI=pos_col__HCC;
- old_short_derive__QTI=short_derive__PCC;
- if (((void *)read_loc_arg__with_self__BBHB(Self__F5M,TRUE__,FALSE__) != (void *)NULL)) {
- result__2UKH=FALSE__;
- if ((! read_space__XTD())) {
- result__2UKH=FALSE__;
- } else {
- result__3UKH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__3UKH=((__CHARACTER )(( 0)));
- } else {
- result__3UKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__3UKH == ';')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__2UKH=TRUE__;
- };
- };
- if ((! result__2UKH)) {
- pos__KBZG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_241));
- put_position__FRG(pos__KBZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- } else {
- restore_context__EFL();
- };
- lst__CHHB=last_group__TWF;
- result__ZEMB=NULL;
- ptr__0EMB=((__POINTER )(NULL));
- typ_id__5EMB= 0;
- sz__2EMB=((__UINTEGER_32 )sizeof(__ITM_BLOCK));
- if ((sz__2EMB == 0)) {
- result__ZEMB=ITM_BLOCK__;
- } else {
- typ_id__5EMB=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__2EMB);
- if ((typ_id__5EMB == (__INTEGER)(- 1))) {
- a__Y2FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__Z2FH=(__UINTEGER_32)((__UINTEGER_32)(sz__2EMB + a__Y2FH) & (__UINTEGER_32)(~ a__Y2FH));
- ptr_table__AVKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__Z2FH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__5UKH=((__POINTER )(NULL));
- result__BVKH=((__POINTER *)ptr_table__AVKH)[ 0];
- if ((result__BVKH == (void *)NULL)) {
- result__BVKH=new_lab__RTJ(new_size__Z2FH);
- next__5UKH=(void *)((unsigned long)result__BVKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Z2FH)));
- ((__POINTER *)next__5UKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__AVKH)[ 0]=next__5UKH;
- } else {
- next__5UKH=((__POINTER *)result__BVKH)[ 0];
- if ((next__5UKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BVKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__Z2FH << 1)) <= 4096)) {
- next__5UKH=(void *)((unsigned long)result__BVKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__Z2FH)));
- } else {
- next__5UKH=new_lab__RTJ(new_size__Z2FH);
- };
- ((__POINTER *)next__5UKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__AVKH)[ 0]=next__5UKH;
- } else {
- ((__POINTER *)result__BVKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5UKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__BVKH=next__5UKH;
- };
- };
- ptr__0EMB=result__BVKH;
- } else {
- t__32FH=((__UINTEGER_32 )typ_id__5EMB);
- a__22FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__IVKH=(__UINTEGER_32)((__UINTEGER_32)(sz__2EMB + a__22FH) & (__UINTEGER_32)(~ a__22FH));
- ptr_table__FVKH=((__POINTER )(&(table_type[(t__32FH)])));
- lab_type__HVKH=(__UINTEGER_32)(t__32FH | 1);
- next__EVKH=((__POINTER )(NULL));
- result__GVKH=((__POINTER *)ptr_table__FVKH)[ 0];
- if ((result__GVKH == (void *)NULL)) {
- result__GVKH=new_lab__RTJ(lab_type__HVKH);
- next__EVKH=(void *)((unsigned long)result__GVKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IVKH)));
- ((__POINTER *)next__EVKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__FVKH)[ 0]=next__EVKH;
- } else {
- next__EVKH=((__POINTER *)result__GVKH)[ 0];
- if ((next__EVKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GVKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__IVKH << 1)) <= 4096)) {
- next__EVKH=(void *)((unsigned long)result__GVKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IVKH)));
- } else {
- next__EVKH=new_lab__RTJ(lab_type__HVKH);
- };
- ((__POINTER *)next__EVKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__FVKH)[ 0]=next__EVKH;
- } else {
- ((__POINTER *)result__GVKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EVKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__GVKH=next__EVKH;
- };
- };
- ptr__0EMB=result__GVKH;
- };
- result__ZEMB=((__ITM_BLOCK *)ptr__0EMB);
- *(result__ZEMB) = *(ITM_BLOCK__);
- };
- ((__ITM_BLOCK *)result__ZEMB)->list__KMDC=lst__CHHB;
- result__H5M=result__ZEMB;
- read_group__C4GB(Self__F5M);
- result__JVKH=FALSE__;
- if ((! read_space__XTD())) {
- result__JVKH=FALSE__;
- } else {
- result__KVKH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__KVKH=((__CHARACTER )(( 0)));
- } else {
- result__KVKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__KVKH == '}')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__JVKH=TRUE__;
- };
- };
- if ((! result__JVKH)) {
- pos__SBZG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_294));
- put_position__FRG(pos__SBZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- short__token__to__GDD((&__string_133),(__INTEGER)(position__CCC - 1),position__CCC);
- last_group__TWF=group_sav__N5M;
- };
- __tmp__3FN=result__PUKH;
- };
- if ((! __tmp__3FN)) {
- if (read_external__2TO()) {
- result__MVKH=FALSE__;
- if ((! read_space__XTD())) {
- result__MVKH=FALSE__;
- } else {
- result__NVKH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__NVKH=((__CHARACTER )(( 0)));
- } else {
- result__NVKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__NVKH == ':')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__MVKH=TRUE__;
- };
- };
- if ((! result__MVKH)) {
- __tmp__RGN=current_position__B0F();
- result__2TTB=NULL;
- ptr__3TTB=((__POINTER )(NULL));
- typ_id__CUTB= 0;
- sz__5TTB=((__UINTEGER_32 )sizeof(__ITM_EXTERNAL));
- if ((sz__5TTB == 0)) {
- result__2TTB=ITM_EXTERNAL__;
- } else {
- typ_id__CUTB=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__5TTB);
- if ((typ_id__CUTB == (__INTEGER)(- 1))) {
- a__A3FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__B3FH=(__UINTEGER_32)((__UINTEGER_32)(sz__5TTB + a__A3FH) & (__UINTEGER_32)(~ a__A3FH));
- ptr_table__QVKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__B3FH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__PVKH=((__POINTER )(NULL));
- result__RVKH=((__POINTER *)ptr_table__QVKH)[ 0];
- if ((result__RVKH == (void *)NULL)) {
- result__RVKH=new_lab__RTJ(new_size__B3FH);
- next__PVKH=(void *)((unsigned long)result__RVKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__B3FH)));
- ((__POINTER *)next__PVKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__QVKH)[ 0]=next__PVKH;
- } else {
- next__PVKH=((__POINTER *)result__RVKH)[ 0];
- if ((next__PVKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RVKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__B3FH << 1)) <= 4096)) {
- next__PVKH=(void *)((unsigned long)result__RVKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__B3FH)));
- } else {
- next__PVKH=new_lab__RTJ(new_size__B3FH);
- };
- ((__POINTER *)next__PVKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__QVKH)[ 0]=next__PVKH;
- } else {
- ((__POINTER *)result__RVKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PVKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__RVKH=next__PVKH;
- };
- };
- ptr__3TTB=result__RVKH;
- } else {
- t__F3FH=((__UINTEGER_32 )typ_id__CUTB);
- a__E3FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__YVKH=(__UINTEGER_32)((__UINTEGER_32)(sz__5TTB + a__E3FH) & (__UINTEGER_32)(~ a__E3FH));
- ptr_table__VVKH=((__POINTER )(&(table_type[(t__F3FH)])));
- lab_type__XVKH=(__UINTEGER_32)(t__F3FH | 1);
- next__UVKH=((__POINTER )(NULL));
- result__WVKH=((__POINTER *)ptr_table__VVKH)[ 0];
- if ((result__WVKH == (void *)NULL)) {
- result__WVKH=new_lab__RTJ(lab_type__XVKH);
- next__UVKH=(void *)((unsigned long)result__WVKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YVKH)));
- ((__POINTER *)next__UVKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__VVKH)[ 0]=next__UVKH;
- } else {
- next__UVKH=((__POINTER *)result__WVKH)[ 0];
- if ((next__UVKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WVKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__YVKH << 1)) <= 4096)) {
- next__UVKH=(void *)((unsigned long)result__WVKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YVKH)));
- } else {
- next__UVKH=new_lab__RTJ(lab_type__XVKH);
- };
- ((__POINTER *)next__UVKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__VVKH)[ 0]=next__UVKH;
- } else {
- ((__POINTER *)result__WVKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UVKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__WVKH=next__UVKH;
- };
- };
- ptr__3TTB=result__WVKH;
- };
- result__2TTB=((__ITM_EXTERNAL *)ptr__3TTB);
- *(result__2TTB) = *(ITM_EXTERNAL__);
- };
- ((__ITM_EXTERNAL *)result__2TTB)->parent_itm_extern__QGN.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ=__tmp__RGN;
- result__H5M=result__2TTB;
- } else {
- __tmp__ZGN=current_position__B0F();
- result__ZVKH=FALSE__;
- if ((! read_space__XTD())) {
- result__ZVKH=FALSE__;
- } else {
- result__0VKH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__0VKH=((__CHARACTER )(( 0)));
- } else {
- result__0VKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__0VKH == '(')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__ZVKH=TRUE__;
- };
- };
- result__QVTB=NULL;
- ptr__RVTB=((__POINTER )(NULL));
- typ_id__WVTB= 0;
- sz__TVTB=((__UINTEGER_32 )sizeof(__ITM_EXTERNAL_TYPE));
- if ((sz__TVTB == 0)) {
- result__QVTB=ITM_EXTERNAL_TYPE__;
- } else {
- typ_id__WVTB=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__TVTB);
- if ((typ_id__WVTB == (__INTEGER)(- 1))) {
- a__I3FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__J3FH=(__UINTEGER_32)((__UINTEGER_32)(sz__TVTB + a__I3FH) & (__UINTEGER_32)(~ a__I3FH));
- ptr_table__3VKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__J3FH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__2VKH=((__POINTER )(NULL));
- result__4VKH=((__POINTER *)ptr_table__3VKH)[ 0];
- if ((result__4VKH == (void *)NULL)) {
- result__4VKH=new_lab__RTJ(new_size__J3FH);
- next__2VKH=(void *)((unsigned long)result__4VKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J3FH)));
- ((__POINTER *)next__2VKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__3VKH)[ 0]=next__2VKH;
- } else {
- next__2VKH=((__POINTER *)result__4VKH)[ 0];
- if ((next__2VKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__4VKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__J3FH << 1)) <= 4096)) {
- next__2VKH=(void *)((unsigned long)result__4VKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__J3FH)));
- } else {
- next__2VKH=new_lab__RTJ(new_size__J3FH);
- };
- ((__POINTER *)next__2VKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__3VKH)[ 0]=next__2VKH;
- } else {
- ((__POINTER *)result__4VKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__2VKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__4VKH=next__2VKH;
- };
- };
- ptr__RVTB=result__4VKH;
- } else {
- t__N3FH=((__UINTEGER_32 )typ_id__WVTB);
- a__M3FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__FWKH=(__UINTEGER_32)((__UINTEGER_32)(sz__TVTB + a__M3FH) & (__UINTEGER_32)(~ a__M3FH));
- ptr_table__CWKH=((__POINTER )(&(table_type[(t__N3FH)])));
- lab_type__EWKH=(__UINTEGER_32)(t__N3FH | 1);
- next__BWKH=((__POINTER )(NULL));
- result__DWKH=((__POINTER *)ptr_table__CWKH)[ 0];
- if ((result__DWKH == (void *)NULL)) {
- result__DWKH=new_lab__RTJ(lab_type__EWKH);
- next__BWKH=(void *)((unsigned long)result__DWKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FWKH)));
- ((__POINTER *)next__BWKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__CWKH)[ 0]=next__BWKH;
- } else {
- next__BWKH=((__POINTER *)result__DWKH)[ 0];
- if ((next__BWKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__DWKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__FWKH << 1)) <= 4096)) {
- next__BWKH=(void *)((unsigned long)result__DWKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FWKH)));
- } else {
- next__BWKH=new_lab__RTJ(lab_type__EWKH);
- };
- ((__POINTER *)next__BWKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__CWKH)[ 0]=next__BWKH;
- } else {
- ((__POINTER *)result__DWKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__BWKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__DWKH=next__BWKH;
- };
- };
- ptr__RVTB=result__DWKH;
- };
- result__QVTB=((__ITM_EXTERNAL_TYPE *)ptr__RVTB);
- *(result__QVTB) = *(ITM_EXTERNAL_TYPE__);
- };
- Self__JZEC=((__ITM_EXTERNAL_TYPE *)result__QVTB);
- Self__JZEC->parent_itm_extern__L5M.parent_itm_code__K5M.parent_itm_object__PFE.position__SFJ=__tmp__ZGN;
- Self__JZEC->is_persistant__IIN=result__ZVKH;
- type__I5M=read_type__CDM(Self__F5M,FALSE__);
- if (((void *)type__I5M == (void *)NULL)) {
- pos__ACZG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_279));
- put_position__FRG(pos__ACZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- result__GWKH=FALSE__;
- if ((! read_space__XTD())) {
- result__GWKH=FALSE__;
- } else {
- result__HWKH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__HWKH=((__CHARACTER )(( 0)));
- } else {
- result__HWKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__HWKH == '{')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__GWKH=TRUE__;
- };
- };
- if (result__GWKH) {
- if (((void *)read_type_list__ENO(Self__F5M,FALSE__) == (void *)NULL)) {
- pos__CCZG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_305));
- put_position__FRG(pos__CCZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- result__JWKH=FALSE__;
- if ((! read_space__XTD())) {
- result__JWKH=FALSE__;
- } else {
- result__KWKH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__KWKH=((__CHARACTER )(( 0)));
- } else {
- result__KWKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__KWKH == '}')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__JWKH=TRUE__;
- };
- };
- if ((! result__JWKH)) {
- pos__ECZG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_294));
- put_position__FRG(pos__ECZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- if (result__QVTB->is_persistant__IIN) {
- result__MWKH=FALSE__;
- if ((! read_space__XTD())) {
- result__MWKH=FALSE__;
- } else {
- result__NWKH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__NWKH=((__CHARACTER )(( 0)));
- } else {
- result__NWKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__NWKH == ')')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__MWKH=TRUE__;
- };
- };
- __tmp__TIN=(! result__MWKH);
- } else {
- __tmp__TIN=FALSE__;
- };
- if (__tmp__TIN) {
- pos__GCZG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_262));
- put_position__FRG(pos__GCZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- result__H5M=result__QVTB;
- };
- };
- };
- return(result__H5M);
-}
-
-static __BOOLEAN read_integer__22P()
-// () With resultNo recursive, No inlinable.
-{
- __INTEGER_64 result__FSJE,__tmp__XSJE,result__SXPE,result__ZRRE;
- __INTEGER pos_old__A3P,new_capacity__OLIH,old_nb_elts__RLIH;
- __INTEGER upper__SWKH,Self__QWKH,new_capacity__ULIH,old_nb_elts__XLIH;
- __INTEGER upper__XWKH,Self__VWKH,__tmp__QSJE,Self__JLOE,result__NQSE;
- __INTEGER j__DWPE,__tmp__TYEH,__tmp__3XPE,Self__EUQE,i__DQRE;
- __INTEGER __tmp__ESRE,Self__JVSE,state__GTRE,value__HTRE,i__FTRE;
- __INTEGER __tmp__L4GH,state__B1RE,result__E1RE,i__A1RE,__tmp__Q4GH;
- __INTEGER __tmp__S4GH;
- __STRING *Self__PLIH,*Self__VLIH,*Self__DSJE,*Self__3REH,*Self__Q3FH;
- __STRING *Self__AWPE,*Self__QXPE,*Self__BQRE,*Self__XRRE,*Self__DTRE;
- __STRING *Self__40RE;
- __POSITION pos__NDZG,pos__AEZG,pos__PEZG;
- __BOOLEAN result__52P,result__O3FH,__tmp__L3P,__tmp__F4P,__tmp__ERSE;
- __BOOLEAN result__CWPE,__tmp__1WPE,result__22TE,__tmp__NAQ;
- __BOOLEAN result__EQRE,negative__ITRE,result__JTRE,__tmp__XURE;
- __BOOLEAN result__4CQG,__tmp__DVRE,result__LDQG,result__S3FH;
- __BOOLEAN __tmp__XVRE,__tmp__WWRE,result__3DGF,result__U3FH;
- __BOOLEAN __tmp__KZRE,result__PEGF,result__W3FH,__tmp__XYRE;
- __BOOLEAN negative__D1RE,__tmp__Q2RE,result__NEQG,__tmp__D3RE;
- __BOOLEAN __tmp__Y3RE,result__3FGF,__tmp__54RE,result__PGGF;
- __BOOLEAN result__Y3FH;
- __CHARACTER result__A3AH,result__K3AH,result__P3AH,result__U3AH;
- __CHARACTER result__Z3AH,result__43AH,result__D4AH,Self__LQSE;
- __CHARACTER result__G5AH,Self__02TE,result__BABH,Self__NCGF;
- __CHARACTER result__LABH,cc__KTRE,cc__C1RE;
- __CHARACTER *Self__QLIH,*new__SLIH,*Self__WLIH,*new__YLIH,*__tmp__2REH;
- __CHARACTER *__tmp__UYEH,*__tmp__JSEH,*__tmp__ZYEH,*__tmp__SSEH;
- __CHARACTER *__tmp__M4GH,*__tmp__R4GH;
- result__52P=FALSE__;
- pos_old__A3P= 0;
- if (read_space__XTD()) {
- result__A3AH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__A3AH=((__CHARACTER )(( 0)));
- } else {
- result__A3AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- result__O3FH=FALSE__;
- if ((((__INTEGER_8 )result__A3AH) >= ((__INTEGER_8 )'0'))) {
- result__O3FH=(((__INTEGER_8 )result__A3AH) <= ((__INTEGER_8 )'9'));
- };
- __tmp__L3P=result__O3FH;
- } else {
- __tmp__L3P=FALSE__;
- };
- if (__tmp__L3P) {
- result__52P=TRUE__;
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- result__K3AH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__K3AH=((__CHARACTER )(( 0)));
- } else {
- result__K3AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- Self__PLIH=((__STRING *)string_tmp__VH);
- new_capacity__OLIH= 0;
- if ((Self__PLIH->capacity__UCS <= Self__PLIH->count__SGC)) {
- if ((Self__PLIH->capacity__UCS == 0)) {
- Self__PLIH->capacity__UCS= 32;
- Self__PLIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__OLIH=(__INTEGER)(Self__PLIH->capacity__UCS << 1);
- Self__QLIH=((__CHARACTER *)Self__PLIH->storage__3CS);
- old_nb_elts__RLIH=Self__PLIH->capacity__UCS;
- new__SLIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__QLIH),((__UINTEGER_32 )old_nb_elts__RLIH),((__UINTEGER_32 )new_capacity__OLIH)));
- upper__SWKH=(__INTEGER)(new_capacity__OLIH - 1);
- Self__QWKH=old_nb_elts__RLIH;
- while ((Self__QWKH <= upper__SWKH)) {
- new__SLIH[Self__QWKH]='\0';
- Self__QWKH=(__INTEGER)(Self__QWKH + 1);
- };
- Self__PLIH->storage__3CS=new__SLIH;
- Self__PLIH->capacity__UCS=new_capacity__OLIH;
- };
- };
- ((__CHARACTER *)Self__PLIH->storage__3CS)[Self__PLIH->count__SGC]=result__K3AH;
- Self__PLIH->count__SGC=(__INTEGER)(Self__PLIH->count__SGC + 1);
- pos_old__A3P=position__CCC;
- position__CCC=(__INTEGER)(position__CCC + 1);
- while_do__JF0D:
- {
- result__P3AH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__P3AH=((__CHARACTER )(( 0)));
- } else {
- result__P3AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if (is_hexadecimal_digit__DQJE(result__P3AH)) {
- __tmp__F4P=TRUE__;
- } else {
- result__U3AH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__U3AH=((__CHARACTER )(( 0)));
- } else {
- result__U3AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__F4P=(result__U3AH == '_');
- };
- if (__tmp__F4P) {
- result__Z3AH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__Z3AH=((__CHARACTER )(( 0)));
- } else {
- result__Z3AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__Z3AH != '_')) {
- result__43AH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__43AH=((__CHARACTER )(( 0)));
- } else {
- result__43AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- Self__VLIH=((__STRING *)string_tmp__VH);
- new_capacity__ULIH= 0;
- if ((Self__VLIH->capacity__UCS <= Self__VLIH->count__SGC)) {
- if ((Self__VLIH->capacity__UCS == 0)) {
- Self__VLIH->capacity__UCS= 32;
- Self__VLIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__ULIH=(__INTEGER)(Self__VLIH->capacity__UCS << 1);
- Self__WLIH=((__CHARACTER *)Self__VLIH->storage__3CS);
- old_nb_elts__XLIH=Self__VLIH->capacity__UCS;
- new__YLIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__WLIH),((__UINTEGER_32 )old_nb_elts__XLIH),((__UINTEGER_32 )new_capacity__ULIH)));
- upper__XWKH=(__INTEGER)(new_capacity__ULIH - 1);
- Self__VWKH=old_nb_elts__XLIH;
- while ((Self__VWKH <= upper__XWKH)) {
- new__YLIH[Self__VWKH]='\0';
- Self__VWKH=(__INTEGER)(Self__VWKH + 1);
- };
- Self__VLIH->storage__3CS=new__YLIH;
- Self__VLIH->capacity__UCS=new_capacity__ULIH;
- };
- };
- ((__CHARACTER *)Self__VLIH->storage__3CS)[Self__VLIH->count__SGC]=result__43AH;
- Self__VLIH->count__SGC=(__INTEGER)(Self__VLIH->count__SGC + 1);
- };
- position__CCC=(__INTEGER)(position__CCC + 1);
- goto while_do__JF0D;
- };
- };
- result__D4AH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__D4AH=((__CHARACTER )(( 0)));
- } else {
- result__D4AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__D4AH == 'h')) {
- Self__DSJE=((__STRING *)string_tmp__VH);
- result__FSJE= 0;
- __tmp__QSJE=Self__DSJE->count__SGC;
- Self__JLOE= 1;
- __tmp__2REH=Self__DSJE->storage__3CS;
- while ((Self__JLOE <= __tmp__QSJE)) {
- __tmp__XSJE=(__INTEGER_64)(result__FSJE << 4);
- Self__LQSE=((__CHARACTER *)__tmp__2REH)[(__INTEGER)(Self__JLOE - 1)];
- result__NQSE= 0;
- if ((((__INTEGER_8 )Self__LQSE) < ((__INTEGER_8 )'A'))) {
- result__NQSE=((__INTEGER )(__INTEGER_8)(((__INTEGER_8 )Self__LQSE) - 48));
- __tmp__ERSE=TRUE__;
- } else {
- __tmp__ERSE=FALSE__;
- };
- if ((! __tmp__ERSE)) {
- if ((((__INTEGER_8 )Self__LQSE) < ((__INTEGER_8 )'a'))) {
- result__NQSE=((__INTEGER )(__INTEGER_8)(((__INTEGER_8 )Self__LQSE) - 55));
- } else {
- result__NQSE=((__INTEGER )(__INTEGER_8)(((__INTEGER_8 )Self__LQSE) - 87));
- };
- };
- result__FSJE=(__INTEGER_64)(__tmp__XSJE | ((__INTEGER_64 )result__NQSE));
- Self__JLOE=(__INTEGER)(Self__JLOE + 1);
- };
- last_integer__VSO=result__FSJE;
- position__CCC=(__INTEGER)(position__CCC + 1);
- } else {
- Self__3REH=((__STRING *)string_tmp__VH);
- if ((((__INTEGER_8 )((__CHARACTER *)Self__3REH->storage__3CS)[(__INTEGER)(Self__3REH->count__SGC - 1)]) > ((__INTEGER_8 )'9'))) {
- Self__Q3FH=((__STRING *)string_tmp__VH);
- if (( 1 > Self__Q3FH->count__SGC)) {
- Self__Q3FH->count__SGC= 0;
- } else {
- Self__Q3FH->count__SGC=(__INTEGER)(Self__Q3FH->count__SGC - 1);
- };
- position__CCC=(__INTEGER)(position__CCC - 1);
- };
- result__G5AH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__G5AH=((__CHARACTER )(( 0)));
- } else {
- result__G5AH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__G5AH == 'o')) {
- Self__AWPE=((__STRING *)string_tmp__VH);
- result__CWPE=FALSE__;
- j__DWPE= 0;
- if ((Self__AWPE->count__SGC != 0)) {
- j__DWPE= 1;
- __tmp__TYEH=Self__AWPE->count__SGC;
- __tmp__UYEH=Self__AWPE->storage__3CS;
- until_do__YSSE:
- {
- if ((j__DWPE > __tmp__TYEH)) {
- __tmp__1WPE=TRUE__;
- } else {
- Self__02TE=((__CHARACTER *)__tmp__UYEH)[(__INTEGER)(j__DWPE - 1)];
- result__22TE=FALSE__;
- if ((((__INTEGER_8 )Self__02TE) >= ((__INTEGER_8 )'0'))) {
- result__22TE=(((__INTEGER_8 )Self__02TE) <= ((__INTEGER_8 )'7'));
- };
- __tmp__1WPE=(! result__22TE);
- };
- if ((! __tmp__1WPE)) {
- j__DWPE=(__INTEGER)(j__DWPE + 1);
- goto until_do__YSSE;
- };
- };
- result__CWPE=(j__DWPE > Self__AWPE->count__SGC);
- };
- if ((! result__CWPE)) {
- pos__NDZG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_306));
- put_position__FRG(pos__NDZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- Self__QXPE=((__STRING *)string_tmp__VH);
- result__SXPE= 0;
- __tmp__3XPE=Self__QXPE->count__SGC;
- Self__EUQE= 1;
- __tmp__JSEH=Self__QXPE->storage__3CS;
- while ((Self__EUQE <= __tmp__3XPE)) {
- result__SXPE=(__INTEGER_64)((__INTEGER_64)(result__SXPE << 3) | ((__INTEGER_64 )((__INTEGER )(__INTEGER_8)(((__INTEGER_8 )((__CHARACTER *)__tmp__JSEH)[(__INTEGER)(Self__EUQE - 1)]) - 48))));
- Self__EUQE=(__INTEGER)(Self__EUQE + 1);
- };
- last_integer__VSO=result__SXPE;
- position__CCC=(__INTEGER)(position__CCC + 1);
- __tmp__NAQ=TRUE__;
- } else {
- __tmp__NAQ=FALSE__;
- };
- if ((! __tmp__NAQ)) {
- result__BABH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__BABH=((__CHARACTER )(( 0)));
- } else {
- result__BABH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__BABH == 'b')) {
- Self__BQRE=((__STRING *)string_tmp__VH);
- i__DQRE=Self__BQRE->count__SGC;
- result__EQRE=TRUE__;
- __tmp__ZYEH=Self__BQRE->storage__3CS;
- while ((! ((! result__EQRE) || (i__DQRE == 0)))) {
- Self__NCGF=((__CHARACTER *)__tmp__ZYEH)[(__INTEGER)(i__DQRE - 1)];
- result__EQRE=((Self__NCGF == '0') || (Self__NCGF == '1'));
- i__DQRE=(__INTEGER)(i__DQRE - 1);
- };
- if ((! result__EQRE)) {
- pos__AEZG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_307));
- put_position__FRG(pos__AEZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- Self__XRRE=((__STRING *)string_tmp__VH);
- result__ZRRE= 0;
- __tmp__ESRE=Self__XRRE->count__SGC;
- Self__JVSE= 1;
- __tmp__SSEH=Self__XRRE->storage__3CS;
- while ((Self__JVSE <= __tmp__ESRE)) {
- result__ZRRE=(__INTEGER_64)(result__ZRRE << 1);
- if ((((__CHARACTER *)__tmp__SSEH)[(__INTEGER)(Self__JVSE - 1)] == '1')) {
- result__ZRRE=(__INTEGER_64)(~ (__INTEGER_64)((__INTEGER_64)(~ result__ZRRE) & -2));
- };
- Self__JVSE=(__INTEGER)(Self__JVSE + 1);
- };
- last_integer__VSO=result__ZRRE;
- position__CCC=(__INTEGER)(position__CCC + 1);
- } else {
- result__LABH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__LABH=((__CHARACTER )(( 0)));
- } else {
- result__LABH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__LABH == 'd')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- };
- Self__DTRE=((__STRING *)string_tmp__VH);
- state__GTRE= 0;
- value__HTRE= 0;
- negative__ITRE=FALSE__;
- result__JTRE=FALSE__;
- cc__KTRE='\0';
- i__FTRE= 1;
- __tmp__L4GH=Self__DTRE->count__SGC;
- __tmp__M4GH=Self__DTRE->storage__3CS;
- while ((! ((state__GTRE == 4) || (i__FTRE > __tmp__L4GH)))) {
- cc__KTRE=((__CHARACTER *)__tmp__M4GH)[(__INTEGER)(i__FTRE - 1)];
- if ((state__GTRE == 0)) {
- if ((((((((cc__KTRE == ' ') || (cc__KTRE == '\t')) || (cc__KTRE == '\n')) || (cc__KTRE == '\r')) || (cc__KTRE == '\0')) || (cc__KTRE == '\f')) || (cc__KTRE == '\v'))) {
- __tmp__XURE=TRUE__;
- } else {
- result__4CQG=(cc__KTRE == '+');
- if (result__4CQG) {
- state__GTRE= 1;
- };
- __tmp__XURE=result__4CQG;
- };
- if (__tmp__XURE) {
- __tmp__DVRE=TRUE__;
- } else {
- result__LDQG=(cc__KTRE == '-');
- if (result__LDQG) {
- negative__ITRE=TRUE__;
- state__GTRE= 1;
- };
- __tmp__DVRE=result__LDQG;
- };
- if ((! __tmp__DVRE)) {
- result__S3FH=FALSE__;
- if ((((__INTEGER_8 )cc__KTRE) >= ((__INTEGER_8 )'0'))) {
- result__S3FH=(((__INTEGER_8 )cc__KTRE) <= ((__INTEGER_8 )'9'));
- };
- if (result__S3FH) {
- value__HTRE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__KTRE)) - 48);
- state__GTRE= 2;
- } else {
- state__GTRE= 4;
- };
- };
- __tmp__XVRE=TRUE__;
- } else {
- __tmp__XVRE=FALSE__;
- };
- if (__tmp__XVRE) {
- __tmp__WWRE=TRUE__;
- } else {
- result__3DGF=(state__GTRE == 1);
- if (result__3DGF) {
- result__U3FH=FALSE__;
- if ((((__INTEGER_8 )cc__KTRE) >= ((__INTEGER_8 )'0'))) {
- result__U3FH=(((__INTEGER_8 )cc__KTRE) <= ((__INTEGER_8 )'9'));
- };
- if (result__U3FH) {
- value__HTRE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__KTRE)) - 48);
- if (negative__ITRE) {
- value__HTRE=(__INTEGER)(- value__HTRE);
- };
- state__GTRE= 2;
- } else {
- state__GTRE= 4;
- };
- };
- __tmp__WWRE=result__3DGF;
- };
- if (__tmp__WWRE) {
- __tmp__KZRE=TRUE__;
- } else {
- result__PEGF=(state__GTRE == 2);
- if (result__PEGF) {
- result__W3FH=FALSE__;
- if ((((__INTEGER_8 )cc__KTRE) >= ((__INTEGER_8 )'0'))) {
- result__W3FH=(((__INTEGER_8 )cc__KTRE) <= ((__INTEGER_8 )'9'));
- };
- if (result__W3FH) {
- if (negative__ITRE) {
- value__HTRE=(__INTEGER)((__INTEGER)( 10 * value__HTRE) - (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__KTRE)) - 48));
- } else {
- value__HTRE=(__INTEGER)((__INTEGER)( 10 * value__HTRE) + (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__KTRE)) - 48));
- };
- if (((negative__ITRE && (value__HTRE > 0)) || ((! negative__ITRE) && (value__HTRE < 0)))) {
- state__GTRE= 4;
- };
- __tmp__XYRE=TRUE__;
- } else {
- __tmp__XYRE=FALSE__;
- };
- if ((! __tmp__XYRE)) {
- if ((((((((cc__KTRE == ' ') || (cc__KTRE == '\t')) || (cc__KTRE == '\n')) || (cc__KTRE == '\r')) || (cc__KTRE == '\0')) || (cc__KTRE == '\f')) || (cc__KTRE == '\v'))) {
- state__GTRE= 3;
- } else {
- state__GTRE= 4;
- };
- };
- };
- __tmp__KZRE=result__PEGF;
- };
- if ((! __tmp__KZRE)) {
- if ((state__GTRE == 3)) {
- if ((! (((((((cc__KTRE == ' ') || (cc__KTRE == '\t')) || (cc__KTRE == '\n')) || (cc__KTRE == '\r')) || (cc__KTRE == '\0')) || (cc__KTRE == '\f')) || (cc__KTRE == '\v')))) {
- state__GTRE= 4;
- };
- };
- };
- i__FTRE=(__INTEGER)(i__FTRE + 1);
- };
- if (((state__GTRE != 0) && (state__GTRE != 4))) {
- result__JTRE=TRUE__;
- };
- if ((! result__JTRE)) {
- pos__PEZG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_308));
- put_position__FRG(pos__PEZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- Self__40RE=((__STRING *)string_tmp__VH);
- state__B1RE= 0;
- cc__C1RE='\0';
- negative__D1RE=FALSE__;
- result__E1RE= 0;
- i__A1RE= 1;
- __tmp__Q4GH=Self__40RE->count__SGC;
- __tmp__R4GH=Self__40RE->storage__3CS;
- __tmp__S4GH=Self__40RE->count__SGC;
- while ((i__A1RE <= __tmp__Q4GH)) {
- cc__C1RE=((__CHARACTER *)__tmp__R4GH)[(__INTEGER)(i__A1RE - 1)];
- if ((state__B1RE == 0)) {
- if ((((((((cc__C1RE == ' ') || (cc__C1RE == '\t')) || (cc__C1RE == '\n')) || (cc__C1RE == '\r')) || (cc__C1RE == '\0')) || (cc__C1RE == '\f')) || (cc__C1RE == '\v'))) {
- __tmp__Q2RE=TRUE__;
- } else {
- result__NEQG=(cc__C1RE == '+');
- if (result__NEQG) {
- state__B1RE= 1;
- };
- __tmp__Q2RE=result__NEQG;
- };
- if ((! __tmp__Q2RE)) {
- if ((cc__C1RE == '-')) {
- negative__D1RE=TRUE__;
- state__B1RE= 1;
- } else {
- result__E1RE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__C1RE)) - 48);
- state__B1RE= 2;
- };
- };
- __tmp__D3RE=TRUE__;
- } else {
- __tmp__D3RE=FALSE__;
- };
- if (__tmp__D3RE) {
- __tmp__Y3RE=TRUE__;
- } else {
- result__3FGF=(state__B1RE == 1);
- if (result__3FGF) {
- result__E1RE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__C1RE)) - 48);
- if (negative__D1RE) {
- result__E1RE=(__INTEGER)(- result__E1RE);
- };
- state__B1RE= 2;
- };
- __tmp__Y3RE=result__3FGF;
- };
- if (__tmp__Y3RE) {
- __tmp__54RE=TRUE__;
- } else {
- result__PGGF=(state__B1RE == 2);
- if (result__PGGF) {
- result__Y3FH=FALSE__;
- if ((((__INTEGER_8 )cc__C1RE) >= ((__INTEGER_8 )'0'))) {
- result__Y3FH=(((__INTEGER_8 )cc__C1RE) <= ((__INTEGER_8 )'9'));
- };
- if (result__Y3FH) {
- if (negative__D1RE) {
- result__E1RE=(__INTEGER)((__INTEGER)( 10 * result__E1RE) - (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__C1RE)) - 48));
- } else {
- result__E1RE=(__INTEGER)((__INTEGER)( 10 * result__E1RE) + (__INTEGER)(((__INTEGER )((__INTEGER_8 )cc__C1RE)) - 48));
- };
- } else {
- state__B1RE= 3;
- };
- };
- __tmp__54RE=result__PGGF;
- };
- if ((! __tmp__54RE)) {
- if ((state__B1RE == 3)) {
- i__A1RE=__tmp__S4GH;
- };
- };
- i__A1RE=(__INTEGER)(i__A1RE + 1);
- };
- last_integer__VSO=((__INTEGER_64 )result__E1RE);
- };
- };
- };
- };
- if (result__52P) {
- short__token__to__GDD((&__string_121),pos_old__A3P,position__CCC);
- };
- return(result__52P);
-}
-
-static void* readlip_expr__YRPB()
-// () With resultRecursive, No inlinable.
-{
- void *result__1RPB,*val__2RPB,*result__ZMYC,*val__BNYC;
- void *nam__3RPB;
- __POSITION pos__0EZG,p__RL3B,pos__CFZG,pos__EFZG,pos__GFZG,pos__IFZG;
- __POSITION pos__KFZG,pos__MFZG,p__LQID,p__UZHE,pos__0FZG;
- __LIP_AFFECT *result__OW4B,*Self__THHC;
- __POINTER ptr__PW4B,ptr_table__0WKH,next__ZWKH,result__1WKH;
- __POINTER ptr_table__5WKH,next__4WKH,result__AXKH,ptr__XWKD;
- __POINTER ptr_table__ZXKH,next__YXKH,result__0XKH,ptr_table__4XKH;
- __POINTER next__3XKH,result__5XKH,ptr__OGNE,ptr_table__DYKH;
- __POINTER next__CYKH,result__EYKH,ptr_table__IYKH,next__HYKH;
- __POINTER result__JYKH;
- __INTEGER typ_id__UW4B,typ_id__2WKD,typ_id__TGNE;
- __UINTEGER_32 sz__RW4B,a__23FH,new_size__33FH,t__B4FH,a__A4FH;
- __UINTEGER_32 new_size__CXKH,lab_type__BXKH,sz__ZWKD,a__E4FH;
- __UINTEGER_32 new_size__F4FH,t__J4FH,a__I4FH,new_size__BYKH;
- __UINTEGER_32 lab_type__AYKH,sz__QGNE,a__M4FH,new_size__N4FH,t__R4FH;
- __UINTEGER_32 a__Q4FH,new_size__LYKH,lab_type__KYKH;
- __LIP_IF *result__WWKD,*Self__PVTD;
- __LIP_PRINT *result__NGNE,*Self__OTWE;
- __BOOLEAN result__DXKH,__tmp__RTPB,result__GXKH,result__JXKH;
- __BOOLEAN result__MXKH,result__PXKH,result__SXKH,result__VXKH;
- __BOOLEAN __tmp__TQYC;
- __CHARACTER result__EXKH,result__HXKH,result__KXKH,result__NXKH;
- __CHARACTER result__QXKH,result__TXKH,result__WXKH;
- void *the__5MYC,*els__ANYC,*result__FFHH,*result__ROID;
- __FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *Self__GFHH,*Self__HFHH,*Self__QL5D;
- __FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *Self__GM5D;
- result__1RPB=NULL;
- val__2RPB=NULL;
- nam__3RPB=NULL;
- old_position__ITI=position__CCC;
- old_pos_cur__KTI=pos_cur__FCC;
- old_pos_line__MTI=pos_line__GCC;
- old_pos_col__OTI=pos_col__HCC;
- old_short_derive__QTI=short_derive__PCC;
- if (read_identifier__2BL()) {
- nam__3RPB=last_string__D2C;
- if (read_symbol__4YJ((&__string_12))) {
- val__2RPB=readlip_expr_operator__GMZB(PARSER__);
- if (((void *)val__2RPB == (void *)NULL)) {
- pos__0EZG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_239));
- put_position__FRG(pos__0EZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- p__RL3B=current_position__B0F();
- result__OW4B=NULL;
- ptr__PW4B=((__POINTER )(NULL));
- typ_id__UW4B= 0;
- sz__RW4B=((__UINTEGER_32 )sizeof(__LIP_AFFECT));
- if ((sz__RW4B == 0)) {
- result__OW4B=LIP_AFFECT__;
- } else {
- typ_id__UW4B=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__RW4B);
- if ((typ_id__UW4B == (__INTEGER)(- 1))) {
- a__23FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__33FH=(__UINTEGER_32)((__UINTEGER_32)(sz__RW4B + a__23FH) & (__UINTEGER_32)(~ a__23FH));
- ptr_table__0WKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__33FH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__ZWKH=((__POINTER )(NULL));
- result__1WKH=((__POINTER *)ptr_table__0WKH)[ 0];
- if ((result__1WKH == (void *)NULL)) {
- result__1WKH=new_lab__RTJ(new_size__33FH);
- next__ZWKH=(void *)((unsigned long)result__1WKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__33FH)));
- ((__POINTER *)next__ZWKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__0WKH)[ 0]=next__ZWKH;
- } else {
- next__ZWKH=((__POINTER *)result__1WKH)[ 0];
- if ((next__ZWKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__1WKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__33FH << 1)) <= 4096)) {
- next__ZWKH=(void *)((unsigned long)result__1WKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__33FH)));
- } else {
- next__ZWKH=new_lab__RTJ(new_size__33FH);
- };
- ((__POINTER *)next__ZWKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__0WKH)[ 0]=next__ZWKH;
- } else {
- ((__POINTER *)result__1WKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ZWKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__1WKH=next__ZWKH;
- };
- };
- ptr__PW4B=result__1WKH;
- } else {
- t__B4FH=((__UINTEGER_32 )typ_id__UW4B);
- a__A4FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__CXKH=(__UINTEGER_32)((__UINTEGER_32)(sz__RW4B + a__A4FH) & (__UINTEGER_32)(~ a__A4FH));
- ptr_table__5WKH=((__POINTER )(&(table_type[(t__B4FH)])));
- lab_type__BXKH=(__UINTEGER_32)(t__B4FH | 1);
- next__4WKH=((__POINTER )(NULL));
- result__AXKH=((__POINTER *)ptr_table__5WKH)[ 0];
- if ((result__AXKH == (void *)NULL)) {
- result__AXKH=new_lab__RTJ(lab_type__BXKH);
- next__4WKH=(void *)((unsigned long)result__AXKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CXKH)));
- ((__POINTER *)next__4WKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__5WKH)[ 0]=next__4WKH;
- } else {
- next__4WKH=((__POINTER *)result__AXKH)[ 0];
- if ((next__4WKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__AXKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__CXKH << 1)) <= 4096)) {
- next__4WKH=(void *)((unsigned long)result__AXKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CXKH)));
- } else {
- next__4WKH=new_lab__RTJ(lab_type__BXKH);
- };
- ((__POINTER *)next__4WKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__5WKH)[ 0]=next__4WKH;
- } else {
- ((__POINTER *)result__AXKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__4WKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__AXKH=next__4WKH;
- };
- };
- ptr__PW4B=result__AXKH;
- };
- result__OW4B=((__LIP_AFFECT *)ptr__PW4B);
- *(result__OW4B) = *(LIP_AFFECT__);
- };
- Self__THHC=((__LIP_AFFECT *)result__OW4B);
- Self__THHC->parent_lip_code__YSPB.parent_itm_object__XFE.position__SFJ=p__RL3B;
- Self__THHC->name__AGFC=nam__3RPB;
- Self__THHC->value__SGFC=val__2RPB;
- result__1RPB=result__OW4B;
- } else {
- restore_context__EFL();
- };
- };
- if (((void *)result__1RPB == (void *)NULL)) {
- result__1RPB=readlip_expr_operator__GMZB(PARSER__);
- if (((void *)result__1RPB != (void *)NULL)) {
- result__DXKH=FALSE__;
- if ((! read_space__XTD())) {
- result__DXKH=FALSE__;
- } else {
- result__EXKH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__EXKH=((__CHARACTER )(( 0)));
- } else {
- result__EXKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__EXKH == '.')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__DXKH=TRUE__;
- };
- };
- __tmp__RTPB=result__DXKH;
- } else {
- __tmp__RTPB=FALSE__;
- };
- if (__tmp__RTPB) {
- result__ZMYC=NULL;
- the__5MYC=NULL;
- els__ANYC=NULL;
- val__BNYC=NULL;
- if (read_word__ISF((&__string_89))) {
- result__FFHH=NULL;
- if ((((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)free_list__XOID)->parent_arrayed_collection__WOID.upper__PTTD < 0)) {
- result__FFHH=create_with_capacity__DWKD( 16);
- } else {
- Self__GFHH=((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)free_list__XOID);
- result__FFHH=((void **)Self__GFHH->parent_arrayed_collection__WOID.storage__MGUD)[Self__GFHH->parent_arrayed_collection__WOID.upper__PTTD];
- Self__HFHH=((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)free_list__XOID);
- Self__HFHH->parent_arrayed_collection__WOID.upper__PTTD=(__INTEGER)(Self__HFHH->parent_arrayed_collection__WOID.upper__PTTD - 1);
- };
- the__5MYC=result__FFHH;
- result__GXKH=FALSE__;
- if ((! read_space__XTD())) {
- result__GXKH=FALSE__;
- } else {
- result__HXKH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__HXKH=((__CHARACTER )(( 0)));
- } else {
- result__HXKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__HXKH == '{')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__GXKH=TRUE__;
- };
- };
- if ((! result__GXKH)) {
- pos__CFZG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_273));
- put_position__FRG(pos__CFZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- while_do__MPID:
- {
- val__BNYC=readlip_expr__YRPB();
- if (((void *)val__BNYC != (void *)NULL)) {
- add_last__JOUD(the__5MYC,val__BNYC);
- result__JXKH=FALSE__;
- if ((! read_space__XTD())) {
- result__JXKH=FALSE__;
- } else {
- result__KXKH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__KXKH=((__CHARACTER )(( 0)));
- } else {
- result__KXKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__KXKH == ';')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__JXKH=TRUE__;
- };
- };
- if ((! result__JXKH)) {
- pos__EFZG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_167));
- put_position__FRG(pos__EFZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- goto while_do__MPID;
- };
- };
- result__MXKH=FALSE__;
- if ((! read_space__XTD())) {
- result__MXKH=FALSE__;
- } else {
- result__NXKH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__NXKH=((__CHARACTER )(( 0)));
- } else {
- result__NXKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__NXKH == '}')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__MXKH=TRUE__;
- };
- };
- if ((! result__MXKH)) {
- pos__GFZG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_273));
- put_position__FRG(pos__GFZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- the__5MYC=copy__ZPID(result__FFHH);
- if (read_word__ISF((&__string_90))) {
- result__ROID=NULL;
- if ((((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)free_list__XOID)->parent_arrayed_collection__WOID.upper__PTTD < 0)) {
- result__ROID=create_with_capacity__DWKD( 16);
- } else {
- Self__QL5D=((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)free_list__XOID);
- result__ROID=((void **)Self__QL5D->parent_arrayed_collection__WOID.storage__MGUD)[Self__QL5D->parent_arrayed_collection__WOID.upper__PTTD];
- Self__GM5D=((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)free_list__XOID);
- Self__GM5D->parent_arrayed_collection__WOID.upper__PTTD=(__INTEGER)(Self__GM5D->parent_arrayed_collection__WOID.upper__PTTD - 1);
- };
- els__ANYC=result__ROID;
- result__PXKH=FALSE__;
- if ((! read_space__XTD())) {
- result__PXKH=FALSE__;
- } else {
- result__QXKH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__QXKH=((__CHARACTER )(( 0)));
- } else {
- result__QXKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__QXKH == '{')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__PXKH=TRUE__;
- };
- };
- if ((! result__PXKH)) {
- pos__IFZG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_273));
- put_position__FRG(pos__IFZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- while_do__ECMD:
- {
- val__BNYC=readlip_expr__YRPB();
- if (((void *)val__BNYC != (void *)NULL)) {
- add_last__JOUD(els__ANYC,val__BNYC);
- result__SXKH=FALSE__;
- if ((! read_space__XTD())) {
- result__SXKH=FALSE__;
- } else {
- result__TXKH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__TXKH=((__CHARACTER )(( 0)));
- } else {
- result__TXKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__TXKH == ';')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__SXKH=TRUE__;
- };
- };
- if ((! result__SXKH)) {
- pos__KFZG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_167));
- put_position__FRG(pos__KFZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- goto while_do__ECMD;
- };
- };
- result__VXKH=FALSE__;
- if ((! read_space__XTD())) {
- result__VXKH=FALSE__;
- } else {
- result__WXKH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__WXKH=((__CHARACTER )(( 0)));
- } else {
- result__WXKH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__WXKH == '}')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__VXKH=TRUE__;
- };
- };
- if ((! result__VXKH)) {
- pos__MFZG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_273));
- put_position__FRG(pos__MFZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- els__ANYC=copy__ZPID(result__ROID);
- };
- p__LQID=current_position__B0F();
- result__WWKD=NULL;
- ptr__XWKD=((__POINTER )(NULL));
- typ_id__2WKD= 0;
- sz__ZWKD=((__UINTEGER_32 )sizeof(__LIP_IF));
- if ((sz__ZWKD == 0)) {
- result__WWKD=LIP_IF__;
- } else {
- typ_id__2WKD=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__ZWKD);
- if ((typ_id__2WKD == (__INTEGER)(- 1))) {
- a__E4FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__F4FH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZWKD + a__E4FH) & (__UINTEGER_32)(~ a__E4FH));
- ptr_table__ZXKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__F4FH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__YXKH=((__POINTER )(NULL));
- result__0XKH=((__POINTER *)ptr_table__ZXKH)[ 0];
- if ((result__0XKH == (void *)NULL)) {
- result__0XKH=new_lab__RTJ(new_size__F4FH);
- next__YXKH=(void *)((unsigned long)result__0XKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__F4FH)));
- ((__POINTER *)next__YXKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__ZXKH)[ 0]=next__YXKH;
- } else {
- next__YXKH=((__POINTER *)result__0XKH)[ 0];
- if ((next__YXKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0XKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__F4FH << 1)) <= 4096)) {
- next__YXKH=(void *)((unsigned long)result__0XKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__F4FH)));
- } else {
- next__YXKH=new_lab__RTJ(new_size__F4FH);
- };
- ((__POINTER *)next__YXKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__ZXKH)[ 0]=next__YXKH;
- } else {
- ((__POINTER *)result__0XKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YXKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__0XKH=next__YXKH;
- };
- };
- ptr__XWKD=result__0XKH;
- } else {
- t__J4FH=((__UINTEGER_32 )typ_id__2WKD);
- a__I4FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__BYKH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZWKD + a__I4FH) & (__UINTEGER_32)(~ a__I4FH));
- ptr_table__4XKH=((__POINTER )(&(table_type[(t__J4FH)])));
- lab_type__AYKH=(__UINTEGER_32)(t__J4FH | 1);
- next__3XKH=((__POINTER )(NULL));
- result__5XKH=((__POINTER *)ptr_table__4XKH)[ 0];
- if ((result__5XKH == (void *)NULL)) {
- result__5XKH=new_lab__RTJ(lab_type__AYKH);
- next__3XKH=(void *)((unsigned long)result__5XKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BYKH)));
- ((__POINTER *)next__3XKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__4XKH)[ 0]=next__3XKH;
- } else {
- next__3XKH=((__POINTER *)result__5XKH)[ 0];
- if ((next__3XKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5XKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__BYKH << 1)) <= 4096)) {
- next__3XKH=(void *)((unsigned long)result__5XKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BYKH)));
- } else {
- next__3XKH=new_lab__RTJ(lab_type__AYKH);
- };
- ((__POINTER *)next__3XKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__4XKH)[ 0]=next__3XKH;
- } else {
- ((__POINTER *)result__5XKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3XKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__5XKH=next__3XKH;
- };
- };
- ptr__XWKD=result__5XKH;
- };
- result__WWKD=((__LIP_IF *)ptr__XWKD);
- *(result__WWKD) = *(LIP_IF__);
- };
- Self__PVTD=((__LIP_IF *)result__WWKD);
- Self__PVTD->parent_lip_code__PQYC.parent_itm_object__XFE.position__SFJ=p__LQID;
- Self__PVTD->condition__3FQD=result__1RPB;
- Self__PVTD->then__TGQD=the__5MYC;
- Self__PVTD->else__KHQD=els__ANYC;
- result__ZMYC=result__WWKD;
- __tmp__TQYC=TRUE__;
- } else {
- __tmp__TQYC=FALSE__;
- };
- if ((! __tmp__TQYC)) {
- if (read_word__ISF((&__string_91))) {
- p__UZHE=current_position__B0F();
- result__NGNE=NULL;
- ptr__OGNE=((__POINTER )(NULL));
- typ_id__TGNE= 0;
- sz__QGNE=((__UINTEGER_32 )sizeof(__LIP_PRINT));
- if ((sz__QGNE == 0)) {
- result__NGNE=LIP_PRINT__;
- } else {
- typ_id__TGNE=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__QGNE);
- if ((typ_id__TGNE == (__INTEGER)(- 1))) {
- a__M4FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__N4FH=(__UINTEGER_32)((__UINTEGER_32)(sz__QGNE + a__M4FH) & (__UINTEGER_32)(~ a__M4FH));
- ptr_table__DYKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__N4FH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__CYKH=((__POINTER )(NULL));
- result__EYKH=((__POINTER *)ptr_table__DYKH)[ 0];
- if ((result__EYKH == (void *)NULL)) {
- result__EYKH=new_lab__RTJ(new_size__N4FH);
- next__CYKH=(void *)((unsigned long)result__EYKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__N4FH)));
- ((__POINTER *)next__CYKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__DYKH)[ 0]=next__CYKH;
- } else {
- next__CYKH=((__POINTER *)result__EYKH)[ 0];
- if ((next__CYKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EYKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__N4FH << 1)) <= 4096)) {
- next__CYKH=(void *)((unsigned long)result__EYKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__N4FH)));
- } else {
- next__CYKH=new_lab__RTJ(new_size__N4FH);
- };
- ((__POINTER *)next__CYKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__DYKH)[ 0]=next__CYKH;
- } else {
- ((__POINTER *)result__EYKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CYKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__EYKH=next__CYKH;
- };
- };
- ptr__OGNE=result__EYKH;
- } else {
- t__R4FH=((__UINTEGER_32 )typ_id__TGNE);
- a__Q4FH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__LYKH=(__UINTEGER_32)((__UINTEGER_32)(sz__QGNE + a__Q4FH) & (__UINTEGER_32)(~ a__Q4FH));
- ptr_table__IYKH=((__POINTER )(&(table_type[(t__R4FH)])));
- lab_type__KYKH=(__UINTEGER_32)(t__R4FH | 1);
- next__HYKH=((__POINTER )(NULL));
- result__JYKH=((__POINTER *)ptr_table__IYKH)[ 0];
- if ((result__JYKH == (void *)NULL)) {
- result__JYKH=new_lab__RTJ(lab_type__KYKH);
- next__HYKH=(void *)((unsigned long)result__JYKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LYKH)));
- ((__POINTER *)next__HYKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__IYKH)[ 0]=next__HYKH;
- } else {
- next__HYKH=((__POINTER *)result__JYKH)[ 0];
- if ((next__HYKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JYKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__LYKH << 1)) <= 4096)) {
- next__HYKH=(void *)((unsigned long)result__JYKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LYKH)));
- } else {
- next__HYKH=new_lab__RTJ(lab_type__KYKH);
- };
- ((__POINTER *)next__HYKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__IYKH)[ 0]=next__HYKH;
- } else {
- ((__POINTER *)result__JYKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HYKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__JYKH=next__HYKH;
- };
- };
- ptr__OGNE=result__JYKH;
- };
- result__NGNE=((__LIP_PRINT *)ptr__OGNE);
- *(result__NGNE) = *(LIP_PRINT__);
- };
- Self__OTWE=((__LIP_PRINT *)result__NGNE);
- Self__OTWE->parent_lip_code__BRYC.parent_itm_object__XFE.position__SFJ=p__UZHE;
- Self__OTWE->message__NVUE=result__1RPB;
- result__ZMYC=result__NGNE;
- };
- };
- result__1RPB=result__ZMYC;
- if (((void *)result__ZMYC == (void *)NULL)) {
- pos__0FZG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_276));
- put_position__FRG(pos__0FZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- };
- return(result__1RPB);
-}
-
-static void run__0FFC(__LIP_AFFECT *Self__1FFC)
-// ({LIP_AFFECT}) VoidNo recursive, No inlinable.
-{
- __POSITION pos__1H2G,pos__OK5C;
- void *__tmp__TGFC;
- void *__tmp__UGFC,*__tmp__NYKH,*__tmp__OYKH;
- __LIP_INTEGER *Self__PYKH;
- __LIP_STRING *Self__QYKH;
- if (((void *)fast_reference_at__PXRD(list_data__HONC,Self__1FFC->name__AGFC) == (void *)NULL)) {
- copy__VDS(string_tmp__VH,(&__string_309));
- append__3OS(string_tmp__VH,Self__1FFC->name__AGFC);
- append__3OS(string_tmp__VH,(&__string_310));
- pos__1H2G=Self__1FFC->parent_lip_code__YSPB.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 1,string_tmp__VH);
- put_position__FRG(pos__1H2G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- __tmp__TGFC=Self__1FFC->value__SGFC;
- switch (((struct ___OBJ *)__tmp__TGFC)->__id) {
- case __LIP_BINARY__: {
- __tmp__UGFC=run_expr__D2QD(__tmp__TGFC);
- } break;
- case __LIP_UNARY__: {
- __tmp__UGFC=run_expr__C5QD(__tmp__TGFC);
- } break;
- case __LIP_CALL__: {
- __tmp__UGFC=run_expr__IXUE(__tmp__TGFC);
- } break;
- case __LIP_VALUE__: {
- __tmp__NYKH=((__LIP_VALUE *)__tmp__TGFC)->value__I1UE;
- switch (((struct ___OBJ *)__tmp__NYKH)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__OYKH=((__LIP_BOOLEAN *)__tmp__NYKH);
- } break;
- case __LIP_INTEGER__: {
- Self__PYKH=((__LIP_INTEGER *)__tmp__NYKH);
- __tmp__OYKH=get__UYSE(Self__PYKH,Self__PYKH->value__FP4F);
- } break;
- case __LIP_STRING__: {
- Self__QYKH=((__LIP_STRING *)__tmp__NYKH);
- __tmp__OYKH=get__34FF(Self__QYKH,Self__QYKH->value__WSUE);
- } break;
- };
- __tmp__UGFC=__tmp__OYKH;
- } break;
- };
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- pos__OK5C=Self__1FFC->parent_lip_code__YSPB.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 1,(&__string_279));
- put_position__FRG(pos__OK5C);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- switch (((struct ___OBJ *)__tmp__UGFC)->__id) {
- case __LIP_BOOLEAN__: {
- } break;
- case __LIP_INTEGER__: {
- free__3D4F(__tmp__UGFC);
- } break;
- case __LIP_STRING__: {
- free__LIIG(__tmp__UGFC);
- } break;
- };
-}
-
-static void run__WQUE(__LIP_CALL *Self__XQUE)
-// ({LIP_CALL}) VoidNo recursive, No inlinable.
-{
- void *val__0QUE,*__tmp__GRUE,*__tmp__SYKH,*__tmp__TYKH;
- void *str__1QUE,*__tmp__LSUE,*__tmp__TTUE;
- void *path__2QUE,*n__01KF;
- void *__tmp__FRUE;
- __LIP_INTEGER *Self__UYKH;
- __LIP_STRING *Self__VYKH;
- __POSITION pos__B1KF,pos__4H2G,pos__BI2G,pos__EI2G,pos__HI2G;
- __STRING_CONSTANT *Self__S4FH;
- __STRING *Self__T4FH,*Self__T4GH;
- __INTEGER new_capacity__0LIH,old_nb_elts__3LIH,upper__ZYKH,Self__XYKH;
- __INTEGER j__21KF,__tmp__04FH;
- void *result__31KF;
- __BOOLEAN is_rec__3QUE,__tmp__3RUE,__tmp__FTUE,result__IVXE;
- __BOOLEAN __tmp__02KF;
- __CHARACTER *Self__2LIH,*new__4LIH;
- val__0QUE=NULL;
- str__1QUE=NULL;
- path__2QUE=NULL;
- is_rec__3QUE=FALSE__;
- if (((void *)Self__XQUE->argument__4QUE != (void *)NULL)) {
- __tmp__FRUE=Self__XQUE->argument__4QUE;
- switch (((struct ___OBJ *)__tmp__FRUE)->__id) {
- case __LIP_BINARY__: {
- __tmp__GRUE=run_expr__D2QD(__tmp__FRUE);
- } break;
- case __LIP_UNARY__: {
- __tmp__GRUE=run_expr__C5QD(__tmp__FRUE);
- } break;
- case __LIP_CALL__: {
- __tmp__GRUE=run_expr__IXUE(__tmp__FRUE);
- } break;
- case __LIP_VALUE__: {
- __tmp__SYKH=((__LIP_VALUE *)__tmp__FRUE)->value__I1UE;
- switch (((struct ___OBJ *)__tmp__SYKH)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__TYKH=((__LIP_BOOLEAN *)__tmp__SYKH);
- } break;
- case __LIP_INTEGER__: {
- Self__UYKH=((__LIP_INTEGER *)__tmp__SYKH);
- __tmp__TYKH=get__UYSE(Self__UYKH,Self__UYKH->value__FP4F);
- } break;
- case __LIP_STRING__: {
- Self__VYKH=((__LIP_STRING *)__tmp__SYKH);
- __tmp__TYKH=get__34FF(Self__VYKH,Self__VYKH->value__WSUE);
- } break;
- };
- __tmp__GRUE=__tmp__TYKH;
- } break;
- };
- val__0QUE=__tmp__GRUE;
- };
- if (((void *)Self__XQUE->name__JRUE == (void *)(&__string_92))) {
- if (((void *)val__0QUE != (void *)NULL)) {
- pos__B1KF=Self__XQUE->parent_lip_code__XZ4B.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 2,(&__string_311));
- put_position__FRG(pos__B1KF);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- exit(( 1));
- __tmp__3RUE=TRUE__;
- } else {
- __tmp__3RUE=FALSE__;
- };
- if (__tmp__3RUE) {
- __tmp__FTUE=TRUE__;
- } else {
- result__IVXE=((void *)Self__XQUE->name__JRUE == (void *)(&__string_94));
- if (result__IVXE) {
- if (val__0QUE==NULL) {
- __tmp__LSUE=NULL;
- } else {
- switch (((struct ___OBJ *)val__0QUE)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__LSUE=NULL;
- } break;
- case __LIP_INTEGER__: {
- __tmp__LSUE=NULL;
- } break;
- case __LIP_STRING__: {
- __tmp__LSUE=((void *)val__0QUE);
- } break;
- }
- };
- str__1QUE=__tmp__LSUE;
- if (((void *)__tmp__LSUE == (void *)NULL)) {
- pos__4H2G=Self__XQUE->parent_lip_code__XZ4B.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 1,(&__string_312));
- put_position__FRG(pos__4H2G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- path__2QUE=((__LIP_STRING *)__tmp__LSUE)->value__WSUE;
- Self__S4FH=((__STRING_CONSTANT *)path__2QUE);
- if ((((__CHARACTER *)Self__S4FH->storage__RRO)[(__INTEGER)(Self__S4FH->count__DD - 1)] == '*')) {
- copy__VDS(string_tmp__VH,path__2QUE);
- Self__T4FH=((__STRING *)string_tmp__VH);
- if (( 1 > Self__T4FH->count__SGC)) {
- Self__T4FH->count__SGC= 0;
- } else {
- Self__T4FH->count__SGC=(__INTEGER)(Self__T4FH->count__SGC - 1);
- };
- path__2QUE=get__YWB(string_tmp__VH);
- is_rec__3QUE=TRUE__;
- };
- load_directory__is_recursive__LEXF(Self__XQUE,path__2QUE,is_rec__3QUE);
- };
- __tmp__FTUE=result__IVXE;
- };
- if ((! __tmp__FTUE)) {
- if (((void *)Self__XQUE->name__JRUE == (void *)(&__string_93))) {
- if (val__0QUE==NULL) {
- __tmp__TTUE=NULL;
- } else {
- switch (((struct ___OBJ *)val__0QUE)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__TTUE=NULL;
- } break;
- case __LIP_INTEGER__: {
- __tmp__TTUE=NULL;
- } break;
- case __LIP_STRING__: {
- __tmp__TTUE=((void *)val__0QUE);
- } break;
- }
- };
- str__1QUE=__tmp__TTUE;
- if (((void *)__tmp__TTUE == (void *)NULL)) {
- pos__BI2G=Self__XQUE->parent_lip_code__XZ4B.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 1,(&__string_312));
- put_position__FRG(pos__BI2G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- append_in__FPIG(__tmp__TTUE,string_tmp__VH);
- Self__T4GH=((__STRING *)string_tmp__VH);
- if ((Self__T4GH->capacity__UCS > Self__T4GH->count__SGC)) {
- ((__CHARACTER *)Self__T4GH->storage__3CS)[Self__T4GH->count__SGC]='\0';
- } else {
- new_capacity__0LIH= 0;
- if ((Self__T4GH->capacity__UCS <= Self__T4GH->count__SGC)) {
- if ((Self__T4GH->capacity__UCS == 0)) {
- Self__T4GH->capacity__UCS= 32;
- Self__T4GH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__0LIH=(__INTEGER)(Self__T4GH->capacity__UCS << 1);
- Self__2LIH=((__CHARACTER *)Self__T4GH->storage__3CS);
- old_nb_elts__3LIH=Self__T4GH->capacity__UCS;
- new__4LIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__2LIH),((__UINTEGER_32 )old_nb_elts__3LIH),((__UINTEGER_32 )new_capacity__0LIH)));
- upper__ZYKH=(__INTEGER)(new_capacity__0LIH - 1);
- Self__XYKH=old_nb_elts__3LIH;
- while ((Self__XYKH <= upper__ZYKH)) {
- new__4LIH[Self__XYKH]='\0';
- Self__XYKH=(__INTEGER)(Self__XYKH + 1);
- };
- Self__T4GH->storage__3CS=new__4LIH;
- Self__T4GH->capacity__UCS=new_capacity__0LIH;
- };
- };
- ((__CHARACTER *)Self__T4GH->storage__3CS)[Self__T4GH->count__SGC]='\0';
- Self__T4GH->count__SGC=(__INTEGER)(Self__T4GH->count__SGC + 1);
- Self__T4GH->count__SGC=(__INTEGER)(Self__T4GH->count__SGC - 1);
- };
- system(((char*)((Self__T4GH->storage__3CS))));
- } else {
- n__01KF=Self__XQUE->name__JRUE;
- result__31KF=NULL;
- j__21KF= 0;
- __tmp__04FH=((__FAST_ARRAYoLIP_SLOT_CODEo *)list_method__D2KF)->parent_arrayed_collection__C2KF.upper__M2KF;
- while_do__PEMF:
- {
- if ((j__21KF <= __tmp__04FH)) {
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- __tmp__02KF=((void *)NULL != (void *)n__01KF);
- } else {
- __tmp__02KF=FALSE__;
- };
- if (__tmp__02KF) {
- j__21KF=(__INTEGER)(j__21KF + 1);
- goto while_do__PEMF;
- };
- };
- if ((j__21KF <= ((__FAST_ARRAYoLIP_SLOT_CODEo *)list_method__D2KF)->parent_arrayed_collection__C2KF.upper__M2KF)) {
- result__31KF=((void **)((__FAST_ARRAYoLIP_SLOT_CODEo *)list_method__D2KF)->parent_arrayed_collection__C2KF.storage__TEQF)[j__21KF];
- };
- if (((void *)result__31KF == (void *)NULL)) {
- copy__VDS(string_tmp__VH,(&__string_309));
- append__3OS(string_tmp__VH,Self__XQUE->name__JRUE);
- append__3OS(string_tmp__VH,(&__string_310));
- pos__EI2G=Self__XQUE->parent_lip_code__XZ4B.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 1,string_tmp__VH);
- put_position__FRG(pos__EI2G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- pos__HI2G=Self__XQUE->parent_lip_code__XZ4B.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 1,(&__string_313));
- put_position__FRG(pos__HI2G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- if (((void *)val__0QUE != (void *)NULL)) {
- switch (((struct ___OBJ *)val__0QUE)->__id) {
- case __LIP_BOOLEAN__: {
- } break;
- case __LIP_INTEGER__: {
- free__3D4F(val__0QUE);
- } break;
- case __LIP_STRING__: {
- free__LIIG(val__0QUE);
- } break;
- };
- };
-}
-
-static void run__ZFQD(__LIP_IF *Self__0FQD)
-// ({LIP_IF}) VoidRecursive, No inlinable.
-{
- void *__tmp__4FQD,*__tmp__CHQD,*__tmp__4HQD;
- __POSITION __tmp__0ABH,pos__LI2G,pos__PI2G,pos__SI2G,__tmp__GGZG;
- __POSITION __tmp__IGZG,__tmp__VI2G,__tmp__PGZG,__tmp__RGZG;
- __POSITION __tmp__3VUE;
- void *__tmp__5FQD,*__tmp__2YKH,*__tmp__3YKH;
- __LIP_INTEGER *Self__4YKH;
- __LIP_STRING *Self__5YKH;
- void *__tmp__BGQD,*val__2FQD;
- __INTEGER __tmp__1GQD,Self__G4AG,__tmp__XHQD,Self__BLEF;
- __BOOLEAN __tmp__FHQD;
- __tmp__4FQD=Self__0FQD->condition__3FQD;
- switch (((struct ___OBJ *)__tmp__4FQD)->__id) {
- case __LIP_AFFECT__: {
- __tmp__0ABH=((__LIP_AFFECT *)__tmp__4FQD)->parent_lip_code__YSPB.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 1,(&__string_314));
- put_position__FRG(__tmp__0ABH);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- __tmp__5FQD=NULL;
- } break;
- case __LIP_BINARY__: {
- __tmp__5FQD=run_expr__D2QD(__tmp__4FQD);
- } break;
- case __LIP_UNARY__: {
- __tmp__5FQD=run_expr__C5QD(__tmp__4FQD);
- } break;
- case __LIP_CALL__: {
- __tmp__5FQD=run_expr__IXUE(__tmp__4FQD);
- } break;
- case __LIP_IF__: {
- pos__LI2G=((__LIP_IF *)__tmp__4FQD)->parent_lip_code__PQYC.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 1,(&__string_314));
- put_position__FRG(pos__LI2G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- __tmp__5FQD=NULL;
- } break;
- case __LIP_PRINT__: {
- pos__PI2G=((__LIP_PRINT *)__tmp__4FQD)->parent_lip_code__BRYC.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 1,(&__string_314));
- put_position__FRG(pos__PI2G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- __tmp__5FQD=NULL;
- } break;
- case __LIP_VALUE__: {
- __tmp__2YKH=((__LIP_VALUE *)__tmp__4FQD)->value__I1UE;
- switch (((struct ___OBJ *)__tmp__2YKH)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__3YKH=((__LIP_BOOLEAN *)__tmp__2YKH);
- } break;
- case __LIP_INTEGER__: {
- Self__4YKH=((__LIP_INTEGER *)__tmp__2YKH);
- __tmp__3YKH=get__UYSE(Self__4YKH,Self__4YKH->value__FP4F);
- } break;
- case __LIP_STRING__: {
- Self__5YKH=((__LIP_STRING *)__tmp__2YKH);
- __tmp__3YKH=get__34FF(Self__5YKH,Self__5YKH->value__WSUE);
- } break;
- };
- __tmp__5FQD=__tmp__3YKH;
- } break;
- };
- if (__tmp__5FQD==NULL) {
- __tmp__BGQD=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__5FQD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__BGQD=((void *)__tmp__5FQD);
- } break;
- case __LIP_INTEGER__: {
- __tmp__BGQD=NULL;
- } break;
- case __LIP_STRING__: {
- __tmp__BGQD=NULL;
- } break;
- }
- };
- val__2FQD=__tmp__BGQD;
- if (((void *)__tmp__BGQD == (void *)NULL)) {
- pos__SI2G=Self__0FQD->parent_lip_code__PQYC.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 1,(&__string_315));
- put_position__FRG(pos__SI2G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- if (((__LIP_BOOLEAN *)__tmp__BGQD)->value__MGQD) {
- __tmp__1GQD=((__FAST_ARRAYoLIP_CODEo *)Self__0FQD->then__TGQD)->parent_arrayed_collection__4MYC.upper__ZGQD;
- Self__G4AG= 0;
- while ((Self__G4AG <= __tmp__1GQD)) {
- __tmp__CHQD=((void **)((__FAST_ARRAYoLIP_CODEo *)Self__0FQD->then__TGQD)->parent_arrayed_collection__4MYC.storage__GVTD)[Self__G4AG];
- switch (((struct ___OBJ *)__tmp__CHQD)->__id) {
- case __LIP_AFFECT__: {
- run__0FFC(__tmp__CHQD);
- } break;
- case __LIP_BINARY__: {
- __tmp__GGZG=((__LIP_BINARY *)__tmp__CHQD)->parent_lip_code__WNZB.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 2,(&__string_274));
- put_position__FRG(__tmp__GGZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- } break;
- case __LIP_UNARY__: {
- __tmp__IGZG=((__LIP_UNARY *)__tmp__CHQD)->parent_lip_code__FZ4B.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 2,(&__string_274));
- put_position__FRG(__tmp__IGZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- } break;
- case __LIP_CALL__: {
- run__WQUE(__tmp__CHQD);
- } break;
- case __LIP_IF__: {
- run__ZFQD(__tmp__CHQD);
- } break;
- case __LIP_PRINT__: {
- run__KVUE(__tmp__CHQD);
- } break;
- case __LIP_VALUE__: {
- __tmp__VI2G=((__LIP_VALUE *)__tmp__CHQD)->parent_lip_code__1IFE.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 2,(&__string_274));
- put_position__FRG(__tmp__VI2G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- } break;
- };
- Self__G4AG=(__INTEGER)(Self__G4AG + 1);
- };
- __tmp__FHQD=TRUE__;
- } else {
- __tmp__FHQD=FALSE__;
- };
- if ((! __tmp__FHQD)) {
- if (((void *)Self__0FQD->else__KHQD != (void *)NULL)) {
- __tmp__XHQD=((__FAST_ARRAYoLIP_CODEo *)Self__0FQD->else__KHQD)->parent_arrayed_collection__4MYC.upper__ZGQD;
- Self__BLEF= 0;
- while ((Self__BLEF <= __tmp__XHQD)) {
- __tmp__4HQD=((void **)((__FAST_ARRAYoLIP_CODEo *)Self__0FQD->else__KHQD)->parent_arrayed_collection__4MYC.storage__GVTD)[Self__BLEF];
- switch (((struct ___OBJ *)__tmp__4HQD)->__id) {
- case __LIP_AFFECT__: {
- run__0FFC(__tmp__4HQD);
- } break;
- case __LIP_BINARY__: {
- __tmp__PGZG=((__LIP_BINARY *)__tmp__4HQD)->parent_lip_code__WNZB.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 2,(&__string_274));
- put_position__FRG(__tmp__PGZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- } break;
- case __LIP_UNARY__: {
- __tmp__RGZG=((__LIP_UNARY *)__tmp__4HQD)->parent_lip_code__FZ4B.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 2,(&__string_274));
- put_position__FRG(__tmp__RGZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- } break;
- case __LIP_CALL__: {
- run__WQUE(__tmp__4HQD);
- } break;
- case __LIP_IF__: {
- run__ZFQD(__tmp__4HQD);
- } break;
- case __LIP_PRINT__: {
- run__KVUE(__tmp__4HQD);
- } break;
- case __LIP_VALUE__: {
- __tmp__3VUE=((__LIP_VALUE *)__tmp__4HQD)->parent_lip_code__1IFE.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 2,(&__string_274));
- put_position__FRG(__tmp__3VUE);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- } break;
- };
- Self__BLEF=(__INTEGER)(Self__BLEF + 1);
- };
- };
- };
-}
-
-static void run__KVUE(__LIP_PRINT *Self__LVUE)
-// ({LIP_PRINT}) VoidNo recursive, No inlinable.
-{
- void *__tmp__OVUE;
- __POSITION __tmp__44VE,pos__T1DE,pos__XI2G,pos__QAYE;
- void *__tmp__PVUE,*__tmp__BZKH,*__tmp__CZKH;
- __LIP_INTEGER *Self__DZKH;
- __LIP_STRING *Self__EZKH,*Self__2OIG;
- __INTEGER Self__U25F;
- __BOOLEAN __tmp__125F;
- __tmp__OVUE=Self__LVUE->message__NVUE;
- switch (((struct ___OBJ *)__tmp__OVUE)->__id) {
- case __LIP_AFFECT__: {
- __tmp__44VE=((__LIP_AFFECT *)__tmp__OVUE)->parent_lip_code__YSPB.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 1,(&__string_314));
- put_position__FRG(__tmp__44VE);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- __tmp__PVUE=NULL;
- } break;
- case __LIP_BINARY__: {
- __tmp__PVUE=run_expr__D2QD(__tmp__OVUE);
- } break;
- case __LIP_UNARY__: {
- __tmp__PVUE=run_expr__C5QD(__tmp__OVUE);
- } break;
- case __LIP_CALL__: {
- __tmp__PVUE=run_expr__IXUE(__tmp__OVUE);
- } break;
- case __LIP_IF__: {
- pos__T1DE=((__LIP_IF *)__tmp__OVUE)->parent_lip_code__PQYC.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 1,(&__string_314));
- put_position__FRG(pos__T1DE);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- __tmp__PVUE=NULL;
- } break;
- case __LIP_PRINT__: {
- pos__XI2G=((__LIP_PRINT *)__tmp__OVUE)->parent_lip_code__BRYC.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 1,(&__string_314));
- put_position__FRG(pos__XI2G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- __tmp__PVUE=NULL;
- } break;
- case __LIP_VALUE__: {
- __tmp__BZKH=((__LIP_VALUE *)__tmp__OVUE)->value__I1UE;
- switch (((struct ___OBJ *)__tmp__BZKH)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__CZKH=((__LIP_BOOLEAN *)__tmp__BZKH);
- } break;
- case __LIP_INTEGER__: {
- Self__DZKH=((__LIP_INTEGER *)__tmp__BZKH);
- __tmp__CZKH=get__UYSE(Self__DZKH,Self__DZKH->value__FP4F);
- } break;
- case __LIP_STRING__: {
- Self__EZKH=((__LIP_STRING *)__tmp__BZKH);
- __tmp__CZKH=get__34FF(Self__EZKH,Self__EZKH->value__WSUE);
- } break;
- };
- __tmp__PVUE=__tmp__CZKH;
- } break;
- };
- if (((void *)__tmp__PVUE == (void *)NULL)) {
- pos__QAYE=Self__LVUE->parent_lip_code__BRYC.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 1,(&__string_279));
- put_position__FRG(pos__QAYE);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- switch (((struct ___OBJ *)__tmp__PVUE)->__id) {
- case __LIP_BOOLEAN__: {
- if (((__LIP_BOOLEAN *)__tmp__PVUE)->value__MGQD) {
- print__OJD((&__string_42));
- } else {
- print__OJD((&__string_43));
- };
- } break;
- case __LIP_INTEGER__: {
- Self__U25F=((__LIP_INTEGER *)__tmp__PVUE)->value__FP4F;
- if ((Self__U25F == 0)) {
- fputc((int)('0'),stdout);
- __tmp__125F=TRUE__;
- } else {
- __tmp__125F=FALSE__;
- };
- if ((! __tmp__125F)) {
- if ((Self__U25F < 0)) {
- fputc((int)('-'),stdout);
- print_positif__VHLG((__INTEGER)(- Self__U25F));
- } else {
- print_positif__VHLG(Self__U25F);
- };
- };
- } break;
- case __LIP_STRING__: {
- Self__2OIG=((__LIP_STRING *)__tmp__PVUE);
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- append_in__FPIG(Self__2OIG,string_tmp__VH);
- put_string__AKF(((__STRING *)string_tmp__VH));
- } break;
- };
- switch (((struct ___OBJ *)__tmp__PVUE)->__id) {
- case __LIP_BOOLEAN__: {
- } break;
- case __LIP_INTEGER__: {
- free__3D4F(__tmp__PVUE);
- } break;
- case __LIP_STRING__: {
- free__LIIG(__tmp__PVUE);
- } break;
- };
-}
-
-static void add_last__ONV(__FAST_ARRAYoITM_TYPE_MONOo *Self__PNV,void *element__QNV)
-// ({FAST_ARRAYoITM_TYPE_MONOo},{NULLxITM_TYPE_PARAMETERxITM_TYPE_SIMPLExITM_TYPE_BLOCKxITM_TYPE_GENERICxITM_TYPE_STYLE}) VoidNo recursive, No inlinable.
-{
- __INTEGER new_capacity__RNV,__tmp__WOV,__tmp__5FEC,Self__IOVD;
- __BOOLEAN __tmp__AOV;
- void **__tmp__VOV,**new__LFEC;
- new_capacity__RNV= 0;
- if (((__INTEGER)(Self__PNV->parent_arrayed_collection__SYC.upper__4HV + 1) <= (__INTEGER)(Self__PNV->parent_arrayed_collection__SYC.capacity__TNV - 1))) {
- Self__PNV->parent_arrayed_collection__SYC.upper__4HV=(__INTEGER)(Self__PNV->parent_arrayed_collection__SYC.upper__4HV + 1);
- __tmp__AOV=TRUE__;
- } else {
- __tmp__AOV=FALSE__;
- };
- if ((! __tmp__AOV)) {
- if ((Self__PNV->parent_arrayed_collection__SYC.capacity__TNV == 0)) {
- Self__PNV->parent_arrayed_collection__SYC.storage__FMV=create__W5QB( 2);
- Self__PNV->parent_arrayed_collection__SYC.capacity__TNV= 2;
- Self__PNV->parent_arrayed_collection__SYC.upper__4HV= 0;
- } else {
- new_capacity__RNV=(__INTEGER)(Self__PNV->parent_arrayed_collection__SYC.capacity__TNV << 1);
- __tmp__VOV=Self__PNV->parent_arrayed_collection__SYC.storage__FMV;
- __tmp__WOV=Self__PNV->parent_arrayed_collection__SYC.capacity__TNV;
- new__LFEC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__VOV)),((__UINTEGER_32 )(__INTEGER)(__tmp__WOV * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__RNV * ((__INTEGER )(sizeof(void *)))))));
- __tmp__5FEC=(__INTEGER)(new_capacity__RNV - 1);
- Self__IOVD=__tmp__WOV;
- while ((Self__IOVD <= __tmp__5FEC)) {
- new__LFEC[Self__IOVD]=NULL;
- Self__IOVD=(__INTEGER)(Self__IOVD + 1);
- };
- Self__PNV->parent_arrayed_collection__SYC.storage__FMV=new__LFEC;
- Self__PNV->parent_arrayed_collection__SYC.capacity__TNV=new_capacity__RNV;
- Self__PNV->parent_arrayed_collection__SYC.upper__4HV=(__INTEGER)(Self__PNV->parent_arrayed_collection__SYC.upper__4HV + 1);
- };
- };
- ((void **)Self__PNV->parent_arrayed_collection__SYC.storage__FMV)[Self__PNV->parent_arrayed_collection__SYC.upper__4HV]=element__QNV;
-}
-
-static void* alias__CWP(void *tmp__EWP)
-// ({NULLxFAST_ARRAYoITM_TYPE_MONOo}) With resultNo recursive, No inlinable.
-{
- __INTEGER __tmp__RBQD,i__NT2E,new_capacity__TFW,other_upper__SFW;
- __INTEGER Self__ENKC,h__UGW,idx__VGW,idx__2SRB,new_capacity__3SRB;
- __INTEGER i__1SRB,typ_id__0INB;
- __POINTER ptr__VINB,ptr_table__GZKH,next__FZKH,result__HZKH;
- __POINTER ptr_table__LZKH,next__KZKH,result__MZKH;
- __UINTEGER_32 sz__XINB,a__HAGH,new_size__IAGH,t__MAGH,a__LAGH;
- __UINTEGER_32 new_size__OZKH,lab_type__NZKH;
- void *result__GWP,*result__D5V,*e__NGW;
- __HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *Self__P4V,*Self__MGW;
- void *node__C5V,*node__WGW,*node1__5SRB,*node2__ATRB,*__tmp__GIW;
- __BOOLEAN __tmp__15V,result__PAQD;
- __FAST_ARRAYoITM_TYPE_MONOo *Self__MAQD,*o__QAQD,*__tmp__2AQD;
- __FAST_ARRAYoITM_TYPE_MONOo *Self__QFW;
- void **__tmp__MBQD,**__tmp__OBQD,**Self__ZS2E,**__tmp__GGW,**__tmp__IGW;
- void **Self__C3CC;
- void **old_buckets__4SRB;
- __HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *result__UINB,*Self__3RDC;
- result__GWP=NULL;
- if ((((__FAST_ARRAYoITM_TYPE_MONOo *)tmp__EWP)->parent_arrayed_collection__SYC.upper__4HV < 0)) {
- result__GWP=empty_list__NWP;
- } else {
- Self__P4V=((__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *)bucket__YWP);
- result__D5V=NULL;
- node__C5V=((void **)Self__P4V->buckets__K5V)[(__INTEGER)(hash_code__S30(tmp__EWP) % Self__P4V->capacity__F5V)];
- until_do__040:
- {
- if (((void *)node__C5V == (void *)NULL)) {
- __tmp__15V=TRUE__;
- } else {
- Self__MAQD=((__FAST_ARRAYoITM_TYPE_MONOo *)((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node__C5V)->item__W5V);
- result__PAQD=FALSE__;
- o__QAQD=NULL;
- if (((void *)Self__MAQD == (void *)tmp__EWP)) {
- result__PAQD=TRUE__;
- } else {
- if (tmp__EWP==NULL) {
- __tmp__2AQD=NULL;
- } else {
- __tmp__2AQD=((__FAST_ARRAYoITM_TYPE_MONOo *)tmp__EWP);
- };
- o__QAQD=__tmp__2AQD;
- if ((((void *)__tmp__2AQD != (void *)NULL) && (Self__MAQD->parent_arrayed_collection__SYC.upper__4HV == __tmp__2AQD->parent_arrayed_collection__SYC.upper__4HV))) {
- __tmp__MBQD=Self__MAQD->parent_arrayed_collection__SYC.storage__FMV;
- __tmp__OBQD=__tmp__2AQD->parent_arrayed_collection__SYC.storage__FMV;
- __tmp__RBQD=(__INTEGER)(Self__MAQD->parent_arrayed_collection__SYC.upper__4HV + 1);
- Self__ZS2E=((void **)__tmp__MBQD);
- i__NT2E=(__INTEGER)(__tmp__RBQD - 1);
- while (((i__NT2E >= 0) && ((void *)Self__ZS2E[i__NT2E] == (void *)((void **)__tmp__OBQD)[i__NT2E]))) {
- i__NT2E=(__INTEGER)(i__NT2E - 1);
- };
- result__PAQD=(i__NT2E < 0);
- };
- };
- __tmp__15V=result__PAQD;
- };
- if ((! __tmp__15V)) {
- node__C5V=((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node__C5V)->next__CAW;
- goto until_do__040;
- };
- };
- if (((void *)node__C5V != (void *)NULL)) {
- result__D5V=((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node__C5V)->item__W5V;
- };
- result__GWP=result__D5V;
- if (((void *)result__D5V == (void *)NULL)) {
- result__GWP=create_with_capacity__EGR((__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)tmp__EWP)->parent_arrayed_collection__SYC.upper__4HV + 1));
- Self__QFW=((__FAST_ARRAYoITM_TYPE_MONOo *)result__GWP);
- new_capacity__TFW= 0;
- other_upper__SFW=((__FAST_ARRAYoITM_TYPE_MONOo *)tmp__EWP)->parent_arrayed_collection__SYC.upper__4HV;
- if ((other_upper__SFW >= 0)) {
- new_capacity__TFW=(__INTEGER)(other_upper__SFW + 1);
- if ((Self__QFW->parent_arrayed_collection__SYC.capacity__TNV < new_capacity__TFW)) {
- Self__QFW->parent_arrayed_collection__SYC.storage__FMV=create__W5QB(new_capacity__TFW);
- Self__QFW->parent_arrayed_collection__SYC.capacity__TNV=new_capacity__TFW;
- };
- __tmp__GGW=Self__QFW->parent_arrayed_collection__SYC.storage__FMV;
- __tmp__IGW=((__FAST_ARRAYoITM_TYPE_MONOo *)tmp__EWP)->parent_arrayed_collection__SYC.storage__FMV;
- Self__C3CC=((void **)__tmp__GGW);
- Self__ENKC=other_upper__SFW;
- while ((Self__ENKC >= 0)) {
- Self__C3CC[Self__ENKC]=((void **)__tmp__IGW)[Self__ENKC];
- Self__ENKC=(__INTEGER)(Self__ENKC - 1);
- };
- };
- Self__QFW->parent_arrayed_collection__SYC.upper__4HV=other_upper__SFW;
- Self__MGW=((__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *)bucket__YWP);
- e__NGW=result__GWP;
- fast_has__1K1(Self__MGW,result__GWP);
- fast_has__1K1(Self__MGW,result__GWP);
- h__UGW=hash_code__S30(result__GWP);
- idx__VGW=(__INTEGER)(h__UGW % Self__MGW->capacity__F5V);
- node__WGW=((void **)Self__MGW->buckets__K5V)[idx__VGW];
- while ((! (((void *)node__WGW == (void *)NULL) || ((void *)((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node__WGW)->item__W5V == (void *)e__NGW)))) {
- node__WGW=((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node__WGW)->next__CAW;
- };
- if (((void *)node__WGW == (void *)NULL)) {
- if ((Self__MGW->capacity__F5V == Self__MGW->count__ZHW)) {
- idx__2SRB= 0;
- node1__5SRB=NULL;
- node2__ATRB=NULL;
- new_capacity__3SRB=prime_number_ceiling__021((__INTEGER)(Self__MGW->capacity__F5V + 1));
- old_buckets__4SRB=Self__MGW->buckets__K5V;
- Self__MGW->buckets__K5V=create__SWBB(new_capacity__3SRB);
- i__1SRB=(__INTEGER)(Self__MGW->capacity__F5V - 1);
- Self__MGW->capacity__F5V=new_capacity__3SRB;
- while ((i__1SRB >= 0)) {
- node1__5SRB=((void **)old_buckets__4SRB)[i__1SRB];
- while (((void *)node1__5SRB != (void *)NULL)) {
- node2__ATRB=((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node1__5SRB)->next__CAW;
- idx__2SRB=(__INTEGER)(hash_code__S30(((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node1__5SRB)->item__W5V) % Self__MGW->capacity__F5V);
- ((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node1__5SRB)->next__CAW=((void **)Self__MGW->buckets__K5V)[idx__2SRB];
- ((void **)Self__MGW->buckets__K5V)[idx__2SRB]=node1__5SRB;
- node1__5SRB=node2__ATRB;
- };
- i__1SRB=(__INTEGER)(i__1SRB - 1);
- };
- idx__VGW=(__INTEGER)(h__UGW % Self__MGW->capacity__F5V);
- };
- __tmp__GIW=((void **)Self__MGW->buckets__K5V)[idx__VGW];
- result__UINB=NULL;
- ptr__VINB=((__POINTER )(NULL));
- typ_id__0INB= 0;
- sz__XINB=((__UINTEGER_32 )sizeof(__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo));
- if ((sz__XINB == 0)) {
- result__UINB=HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo__;
- } else {
- typ_id__0INB=__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__XINB);
- if ((typ_id__0INB == (__INTEGER)(- 1))) {
- a__HAGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__IAGH=(__UINTEGER_32)((__UINTEGER_32)(sz__XINB + a__HAGH) & (__UINTEGER_32)(~ a__HAGH));
- ptr_table__GZKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__IAGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__FZKH=((__POINTER )(NULL));
- result__HZKH=((__POINTER *)ptr_table__GZKH)[ 0];
- if ((result__HZKH == (void *)NULL)) {
- result__HZKH=new_lab__RTJ(new_size__IAGH);
- next__FZKH=(void *)((unsigned long)result__HZKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IAGH)));
- ((__POINTER *)next__FZKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__GZKH)[ 0]=next__FZKH;
- } else {
- next__FZKH=((__POINTER *)result__HZKH)[ 0];
- if ((next__FZKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HZKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__IAGH << 1)) <= 4096)) {
- next__FZKH=(void *)((unsigned long)result__HZKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__IAGH)));
- } else {
- next__FZKH=new_lab__RTJ(new_size__IAGH);
- };
- ((__POINTER *)next__FZKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__GZKH)[ 0]=next__FZKH;
- } else {
- ((__POINTER *)result__HZKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FZKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__HZKH=next__FZKH;
- };
- };
- ptr__VINB=result__HZKH;
- } else {
- t__MAGH=((__UINTEGER_32 )typ_id__0INB);
- a__LAGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__OZKH=(__UINTEGER_32)((__UINTEGER_32)(sz__XINB + a__LAGH) & (__UINTEGER_32)(~ a__LAGH));
- ptr_table__LZKH=((__POINTER )(&(table_type[(t__MAGH)])));
- lab_type__NZKH=(__UINTEGER_32)(t__MAGH | 1);
- next__KZKH=((__POINTER )(NULL));
- result__MZKH=((__POINTER *)ptr_table__LZKH)[ 0];
- if ((result__MZKH == (void *)NULL)) {
- result__MZKH=new_lab__RTJ(lab_type__NZKH);
- next__KZKH=(void *)((unsigned long)result__MZKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OZKH)));
- ((__POINTER *)next__KZKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__LZKH)[ 0]=next__KZKH;
- } else {
- next__KZKH=((__POINTER *)result__MZKH)[ 0];
- if ((next__KZKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__MZKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__OZKH << 1)) <= 4096)) {
- next__KZKH=(void *)((unsigned long)result__MZKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OZKH)));
- } else {
- next__KZKH=new_lab__RTJ(lab_type__NZKH);
- };
- ((__POINTER *)next__KZKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__LZKH)[ 0]=next__KZKH;
- } else {
- ((__POINTER *)result__MZKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__KZKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__MZKH=next__KZKH;
- };
- };
- ptr__VINB=result__MZKH;
- };
- result__UINB=((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)ptr__VINB);
- *(result__UINB) = *(HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo__);
- };
- Self__3RDC=((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)result__UINB);
- Self__3RDC->item__W5V=result__GWP;
- Self__3RDC->next__CAW=__tmp__GIW;
- node__WGW=result__UINB;
- ((void **)Self__MGW->buckets__K5V)[idx__VGW]=result__UINB;
- Self__MGW->count__ZHW=(__INTEGER)(Self__MGW->count__ZHW + 1);
- };
- };
- };
- free__YNQ(tmp__EWP);
- return(result__GWP);
-}
-
-static void add__1IHB(__HASHED_SEToSTRING_CONSTANTo *Self__2IHB,void *e__3IHB)
-// ({HASHED_SEToSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
- __INTEGER h__EJHB,idx__FJHB,idx__5N0B,new_capacity__AO0B,i__4N0B;
- __INTEGER typ_id__Q1WB;
- __POINTER ptr__L1WB,ptr_table__QZKH,next__PZKH,result__RZKH;
- __POINTER ptr_table__VZKH,next__UZKH,result__WZKH;
- __UINTEGER_32 sz__N1WB,a__BBGH,new_size__CBGH,t__GBGH,a__FBGH;
- __UINTEGER_32 new_size__YZKH,lab_type__XZKH;
- void *node__GJHB,*node1__CO0B,*node2__DO0B,*__tmp__VKHB;
- void **old_buckets__BO0B;
- __HASHED_SET_NODEoSTRING_CONSTANTo *result__K1WB,*Self__2KFC;
- has__MIMB(Self__2IHB,e__3IHB);
- has__MIMB(Self__2IHB,e__3IHB);
- h__EJHB=hash_code__RNW(e__3IHB);
- idx__FJHB=(__INTEGER)(h__EJHB % Self__2IHB->capacity__HIT);
- node__GJHB=((void **)Self__2IHB->buckets__DEV)[idx__FJHB];
- while ((! (((void *)node__GJHB == (void *)NULL) || __infix_equal_equal__V2DB(((__HASHED_SET_NODEoSTRING_CONSTANTo *)node__GJHB)->item__PEV,e__3IHB)))) {
- node__GJHB=((__HASHED_SET_NODEoSTRING_CONSTANTo *)node__GJHB)->next__0EV;
- };
- if (((void *)node__GJHB == (void *)NULL)) {
- if ((Self__2IHB->capacity__HIT == Self__2IHB->count__1FY)) {
- idx__5N0B= 0;
- node1__CO0B=NULL;
- node2__DO0B=NULL;
- new_capacity__AO0B=prime_number_ceiling__021((__INTEGER)(Self__2IHB->capacity__HIT + 1));
- old_buckets__BO0B=Self__2IHB->buckets__DEV;
- Self__2IHB->buckets__DEV=create__KZ3(new_capacity__AO0B);
- i__4N0B=(__INTEGER)(Self__2IHB->capacity__HIT - 1);
- Self__2IHB->capacity__HIT=new_capacity__AO0B;
- while ((i__4N0B >= 0)) {
- node1__CO0B=((void **)old_buckets__BO0B)[i__4N0B];
- while (((void *)node1__CO0B != (void *)NULL)) {
- node2__DO0B=((__HASHED_SET_NODEoSTRING_CONSTANTo *)node1__CO0B)->next__0EV;
- idx__5N0B=(__INTEGER)(hash_code__RNW(((__HASHED_SET_NODEoSTRING_CONSTANTo *)node1__CO0B)->item__PEV) % Self__2IHB->capacity__HIT);
- ((__HASHED_SET_NODEoSTRING_CONSTANTo *)node1__CO0B)->next__0EV=((void **)Self__2IHB->buckets__DEV)[idx__5N0B];
- ((void **)Self__2IHB->buckets__DEV)[idx__5N0B]=node1__CO0B;
- node1__CO0B=node2__DO0B;
- };
- i__4N0B=(__INTEGER)(i__4N0B - 1);
- };
- idx__FJHB=(__INTEGER)(h__EJHB % Self__2IHB->capacity__HIT);
- };
- __tmp__VKHB=((void **)Self__2IHB->buckets__DEV)[idx__FJHB];
- result__K1WB=NULL;
- ptr__L1WB=((__POINTER )(NULL));
- typ_id__Q1WB= 0;
- sz__N1WB=((__UINTEGER_32 )sizeof(__HASHED_SET_NODEoSTRING_CONSTANTo));
- if ((sz__N1WB == 0)) {
- result__K1WB=HASHED_SET_NODEoSTRING_CONSTANTo__;
- } else {
- typ_id__Q1WB=__HASHED_SET_NODEoSTRING_CONSTANTo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__N1WB);
- if ((typ_id__Q1WB == (__INTEGER)(- 1))) {
- a__BBGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__CBGH=(__UINTEGER_32)((__UINTEGER_32)(sz__N1WB + a__BBGH) & (__UINTEGER_32)(~ a__BBGH));
- ptr_table__QZKH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__CBGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__PZKH=((__POINTER )(NULL));
- result__RZKH=((__POINTER *)ptr_table__QZKH)[ 0];
- if ((result__RZKH == (void *)NULL)) {
- result__RZKH=new_lab__RTJ(new_size__CBGH);
- next__PZKH=(void *)((unsigned long)result__RZKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CBGH)));
- ((__POINTER *)next__PZKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__QZKH)[ 0]=next__PZKH;
- } else {
- next__PZKH=((__POINTER *)result__RZKH)[ 0];
- if ((next__PZKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__RZKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__CBGH << 1)) <= 4096)) {
- next__PZKH=(void *)((unsigned long)result__RZKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__CBGH)));
- } else {
- next__PZKH=new_lab__RTJ(new_size__CBGH);
- };
- ((__POINTER *)next__PZKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__QZKH)[ 0]=next__PZKH;
- } else {
- ((__POINTER *)result__RZKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__PZKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__RZKH=next__PZKH;
- };
- };
- ptr__L1WB=result__RZKH;
- } else {
- t__GBGH=((__UINTEGER_32 )typ_id__Q1WB);
- a__FBGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__YZKH=(__UINTEGER_32)((__UINTEGER_32)(sz__N1WB + a__FBGH) & (__UINTEGER_32)(~ a__FBGH));
- ptr_table__VZKH=((__POINTER )(&(table_type[(t__GBGH)])));
- lab_type__XZKH=(__UINTEGER_32)(t__GBGH | 1);
- next__UZKH=((__POINTER )(NULL));
- result__WZKH=((__POINTER *)ptr_table__VZKH)[ 0];
- if ((result__WZKH == (void *)NULL)) {
- result__WZKH=new_lab__RTJ(lab_type__XZKH);
- next__UZKH=(void *)((unsigned long)result__WZKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YZKH)));
- ((__POINTER *)next__UZKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__VZKH)[ 0]=next__UZKH;
- } else {
- next__UZKH=((__POINTER *)result__WZKH)[ 0];
- if ((next__UZKH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__WZKH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__YZKH << 1)) <= 4096)) {
- next__UZKH=(void *)((unsigned long)result__WZKH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__YZKH)));
- } else {
- next__UZKH=new_lab__RTJ(lab_type__XZKH);
- };
- ((__POINTER *)next__UZKH)[ 0]=NULL;
- ((__POINTER *)ptr_table__VZKH)[ 0]=next__UZKH;
- } else {
- ((__POINTER *)result__WZKH)[ 0]=(void *)((unsigned long)((__POINTER *)next__UZKH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__WZKH=next__UZKH;
- };
- };
- ptr__L1WB=result__WZKH;
- };
- result__K1WB=((__HASHED_SET_NODEoSTRING_CONSTANTo *)ptr__L1WB);
- *(result__K1WB) = *(HASHED_SET_NODEoSTRING_CONSTANTo__);
- };
- Self__2KFC=((__HASHED_SET_NODEoSTRING_CONSTANTo *)result__K1WB);
- Self__2KFC->item__PEV=e__3IHB;
- Self__2KFC->next__0EV=__tmp__VKHB;
- node__GJHB=result__K1WB;
- ((void **)Self__2IHB->buckets__DEV)[idx__FJHB]=result__K1WB;
- Self__2IHB->count__1FY=(__INTEGER)(Self__2IHB->count__1FY + 1);
- };
-}
-
-static void add_last__SEPD(__FAST_ARRAYoSTRING_CONSTANTo *Self__TEPD,void *element__UEPD)
-// ({FAST_ARRAYoSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
- __INTEGER new_capacity__VEPD,__tmp__2FPD,__tmp__ZWWE,Self__HYQF;
- __BOOLEAN __tmp__EFPD;
- void **__tmp__1FPD,**new__FWWE;
- new_capacity__VEPD= 0;
- if (((__INTEGER)(Self__TEPD->parent_arrayed_collection__MBJ.upper__2CPD + 1) <= (__INTEGER)(Self__TEPD->parent_arrayed_collection__MBJ.capacity__XEPD - 1))) {
- Self__TEPD->parent_arrayed_collection__MBJ.upper__2CPD=(__INTEGER)(Self__TEPD->parent_arrayed_collection__MBJ.upper__2CPD + 1);
- __tmp__EFPD=TRUE__;
- } else {
- __tmp__EFPD=FALSE__;
- };
- if ((! __tmp__EFPD)) {
- if ((Self__TEPD->parent_arrayed_collection__MBJ.capacity__XEPD == 0)) {
- Self__TEPD->parent_arrayed_collection__MBJ.storage__SFPD=create__QMHE( 2);
- Self__TEPD->parent_arrayed_collection__MBJ.capacity__XEPD= 2;
- Self__TEPD->parent_arrayed_collection__MBJ.upper__2CPD= 0;
- } else {
- new_capacity__VEPD=(__INTEGER)(Self__TEPD->parent_arrayed_collection__MBJ.capacity__XEPD << 1);
- __tmp__1FPD=Self__TEPD->parent_arrayed_collection__MBJ.storage__SFPD;
- __tmp__2FPD=Self__TEPD->parent_arrayed_collection__MBJ.capacity__XEPD;
- new__FWWE=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__1FPD)),((__UINTEGER_32 )(__INTEGER)(__tmp__2FPD * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__VEPD * ((__INTEGER )(sizeof(void *)))))));
- __tmp__ZWWE=(__INTEGER)(new_capacity__VEPD - 1);
- Self__HYQF=__tmp__2FPD;
- while ((Self__HYQF <= __tmp__ZWWE)) {
- new__FWWE[Self__HYQF]=NULL;
- Self__HYQF=(__INTEGER)(Self__HYQF + 1);
- };
- Self__TEPD->parent_arrayed_collection__MBJ.storage__SFPD=new__FWWE;
- Self__TEPD->parent_arrayed_collection__MBJ.capacity__XEPD=new_capacity__VEPD;
- Self__TEPD->parent_arrayed_collection__MBJ.upper__2CPD=(__INTEGER)(Self__TEPD->parent_arrayed_collection__MBJ.upper__2CPD + 1);
- };
- };
- ((void **)Self__TEPD->parent_arrayed_collection__MBJ.storage__SFPD)[Self__TEPD->parent_arrayed_collection__MBJ.upper__2CPD]=element__UEPD;
-}
-
-static void free__TR5(void *tmp__VR5)
-// ({NULLxFAST_ARRAYoSTRING_CONSTANTo}) VoidNo recursive, No inlinable.
-{
- __INTEGER new_capacity__4DGB,__tmp__CFGB,__tmp__TGGC,Self__RDWD;
- __FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *Self__2DGB;
- __BOOLEAN __tmp__MEGB;
- void **__tmp__BFGB,**new__5FGC;
- ((__FAST_ARRAYoSTRING_CONSTANTo *)tmp__VR5)->parent_arrayed_collection__MBJ.upper__2CPD=(__INTEGER)(- 1);
- Self__2DGB=((__FAST_ARRAYoFAST_ARRAYoSTRING_CONSTANToo *)free_list__1AL);
- new_capacity__4DGB= 0;
- if (((__INTEGER)(Self__2DGB->parent_arrayed_collection__0AL.upper__LUU + 1) <= (__INTEGER)(Self__2DGB->parent_arrayed_collection__0AL.capacity__QWU - 1))) {
- Self__2DGB->parent_arrayed_collection__0AL.upper__LUU=(__INTEGER)(Self__2DGB->parent_arrayed_collection__0AL.upper__LUU + 1);
- __tmp__MEGB=TRUE__;
- } else {
- __tmp__MEGB=FALSE__;
- };
- if ((! __tmp__MEGB)) {
- if ((Self__2DGB->parent_arrayed_collection__0AL.capacity__QWU == 0)) {
- Self__2DGB->parent_arrayed_collection__0AL.storage__1WU=create__Z1ZB( 2);
- Self__2DGB->parent_arrayed_collection__0AL.capacity__QWU= 2;
- Self__2DGB->parent_arrayed_collection__0AL.upper__LUU= 0;
- } else {
- new_capacity__4DGB=(__INTEGER)(Self__2DGB->parent_arrayed_collection__0AL.capacity__QWU << 1);
- __tmp__BFGB=Self__2DGB->parent_arrayed_collection__0AL.storage__1WU;
- __tmp__CFGB=Self__2DGB->parent_arrayed_collection__0AL.capacity__QWU;
- new__5FGC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__BFGB)),((__UINTEGER_32 )(__INTEGER)(__tmp__CFGB * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__4DGB * ((__INTEGER )(sizeof(void *)))))));
- __tmp__TGGC=(__INTEGER)(new_capacity__4DGB - 1);
- Self__RDWD=__tmp__CFGB;
- while ((Self__RDWD <= __tmp__TGGC)) {
- new__5FGC[Self__RDWD]=NULL;
- Self__RDWD=(__INTEGER)(Self__RDWD + 1);
- };
- Self__2DGB->parent_arrayed_collection__0AL.storage__1WU=new__5FGC;
- Self__2DGB->parent_arrayed_collection__0AL.capacity__QWU=new_capacity__4DGB;
- Self__2DGB->parent_arrayed_collection__0AL.upper__LUU=(__INTEGER)(Self__2DGB->parent_arrayed_collection__0AL.upper__LUU + 1);
- };
- };
- ((void **)Self__2DGB->parent_arrayed_collection__0AL.storage__1WU)[Self__2DGB->parent_arrayed_collection__0AL.upper__LUU]=tmp__VR5;
-}
-
-static void free__YNQ(void *tmp__0NQ)
-// ({NULLxFAST_ARRAYoITM_TYPE_MONOo}) VoidNo recursive, No inlinable.
-{
- __INTEGER new_capacity__SYV,__tmp__ZZV,__tmp__PJEC,Self__GSVD;
- __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *Self__QYV;
- __BOOLEAN __tmp__BZV;
- void **__tmp__YZV,**new__1IEC;
- ((__FAST_ARRAYoITM_TYPE_MONOo *)tmp__0NQ)->parent_arrayed_collection__SYC.upper__4HV=(__INTEGER)(- 1);
- Self__QYV=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__GVP);
- new_capacity__SYV= 0;
- if (((__INTEGER)(Self__QYV->parent_arrayed_collection__FVP.upper__ZUV + 1) <= (__INTEGER)(Self__QYV->parent_arrayed_collection__FVP.capacity__UYV - 1))) {
- Self__QYV->parent_arrayed_collection__FVP.upper__ZUV=(__INTEGER)(Self__QYV->parent_arrayed_collection__FVP.upper__ZUV + 1);
- __tmp__BZV=TRUE__;
- } else {
- __tmp__BZV=FALSE__;
- };
- if ((! __tmp__BZV)) {
- if ((Self__QYV->parent_arrayed_collection__FVP.capacity__UYV == 0)) {
- Self__QYV->parent_arrayed_collection__FVP.storage__PZV=create__PHRB( 2);
- Self__QYV->parent_arrayed_collection__FVP.capacity__UYV= 2;
- Self__QYV->parent_arrayed_collection__FVP.upper__ZUV= 0;
- } else {
- new_capacity__SYV=(__INTEGER)(Self__QYV->parent_arrayed_collection__FVP.capacity__UYV << 1);
- __tmp__YZV=Self__QYV->parent_arrayed_collection__FVP.storage__PZV;
- __tmp__ZZV=Self__QYV->parent_arrayed_collection__FVP.capacity__UYV;
- new__1IEC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__YZV)),((__UINTEGER_32 )(__INTEGER)(__tmp__ZZV * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__SYV * ((__INTEGER )(sizeof(void *)))))));
- __tmp__PJEC=(__INTEGER)(new_capacity__SYV - 1);
- Self__GSVD=__tmp__ZZV;
- while ((Self__GSVD <= __tmp__PJEC)) {
- new__1IEC[Self__GSVD]=NULL;
- Self__GSVD=(__INTEGER)(Self__GSVD + 1);
- };
- Self__QYV->parent_arrayed_collection__FVP.storage__PZV=new__1IEC;
- Self__QYV->parent_arrayed_collection__FVP.capacity__UYV=new_capacity__SYV;
- Self__QYV->parent_arrayed_collection__FVP.upper__ZUV=(__INTEGER)(Self__QYV->parent_arrayed_collection__FVP.upper__ZUV + 1);
- };
- };
- ((void **)Self__QYV->parent_arrayed_collection__FVP.storage__PZV)[Self__QYV->parent_arrayed_collection__FVP.upper__ZUV]=tmp__0NQ;
-}
-
-static __INTEGER hash_code__NVRF(__FAST_ARRAYoSTRING_CONSTANTo *Self__OVRF)
-// ({FAST_ARRAYoSTRING_CONSTANTo}) With resultNo recursive, No inlinable.
-{
- __INTEGER result__QVRF;
- __BOOLEAN __tmp__BWRF;
- result__QVRF= 0;
- if ((! (Self__OVRF->parent_arrayed_collection__MBJ.upper__2CPD < 0))) {
- if (((void *)((void **)Self__OVRF->parent_arrayed_collection__MBJ.storage__SFPD)[Self__OVRF->parent_arrayed_collection__MBJ.upper__2CPD] != (void *)NULL)) {
- result__QVRF=hash_code__RNW(((void **)Self__OVRF->parent_arrayed_collection__MBJ.storage__SFPD)[Self__OVRF->parent_arrayed_collection__MBJ.upper__2CPD]);
- __tmp__BWRF=TRUE__;
- } else {
- __tmp__BWRF=FALSE__;
- };
- if ((! __tmp__BWRF)) {
- if (((void *)((void **)Self__OVRF->parent_arrayed_collection__MBJ.storage__SFPD)[ 0] != (void *)NULL)) {
- result__QVRF=hash_code__RNW(((void **)Self__OVRF->parent_arrayed_collection__MBJ.storage__SFPD)[ 0]);
- };
- };
- };
- return(result__QVRF);
-}
-
-static void copy__BASD(__FAST_ARRAYoSTRING_CONSTANTo *Self__CASD,void *other__DASD)
-// ({FAST_ARRAYoSTRING_CONSTANTo},{NULLxFAST_ARRAYoSTRING_CONSTANTo}) VoidNo recursive, No inlinable.
-{
- __INTEGER new_capacity__FASD,other_upper__EASD,Self__3NYE;
- void **__tmp__YASD,**__tmp__0ASD,**Self__1NWE;
- new_capacity__FASD= 0;
- other_upper__EASD=((__FAST_ARRAYoSTRING_CONSTANTo *)other__DASD)->parent_arrayed_collection__MBJ.upper__2CPD;
- if ((other_upper__EASD >= 0)) {
- new_capacity__FASD=(__INTEGER)(other_upper__EASD + 1);
- if ((Self__CASD->parent_arrayed_collection__MBJ.capacity__XEPD < new_capacity__FASD)) {
- Self__CASD->parent_arrayed_collection__MBJ.storage__SFPD=create__QMHE(new_capacity__FASD);
- Self__CASD->parent_arrayed_collection__MBJ.capacity__XEPD=new_capacity__FASD;
- };
- __tmp__YASD=Self__CASD->parent_arrayed_collection__MBJ.storage__SFPD;
- __tmp__0ASD=((__FAST_ARRAYoSTRING_CONSTANTo *)other__DASD)->parent_arrayed_collection__MBJ.storage__SFPD;
- Self__1NWE=((void **)__tmp__YASD);
- Self__3NYE=other_upper__EASD;
- while ((Self__3NYE >= 0)) {
- Self__1NWE[Self__3NYE]=((void **)__tmp__0ASD)[Self__3NYE];
- Self__3NYE=(__INTEGER)(Self__3NYE - 1);
- };
- };
- Self__CASD->parent_arrayed_collection__MBJ.upper__2CPD=other_upper__EASD;
-}
-
-static __BOOLEAN fast_has__H4RF(__HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo *Self__I4RF,void *e__J4RF)
-// ({HASHED_SEToFAST_ARRAYoSTRING_CONSTANToo},{NULLxFAST_ARRAYoSTRING_CONSTANTo}) With resultNo recursive, No inlinable.
-{
- void *node__S4RF;
- node__S4RF=((void **)Self__I4RF->buckets__RLQF)[(__INTEGER)(hash_code__NVRF(e__J4RF) % Self__I4RF->capacity__MLQF)];
- while ((! (((void *)node__S4RF == (void *)NULL) || ((void *)((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__S4RF)->item__3LQF == (void *)e__J4RF)))) {
- node__S4RF=((__HASHED_SET_NODEoFAST_ARRAYoSTRING_CONSTANToo *)node__S4RF)->next__JMQF;
- };
- return(((void *)node__S4RF != (void *)NULL));
-}
-
-static __BOOLEAN read_operator__GOM()
-// () With resultNo recursive, No inlinable.
-{
- __INTEGER old_pos__KOM,__tmp__VRO,i__P5O,new_capacity__AMIH;
- __INTEGER old_nb_elts__DMIH,upper__2ZKH,Self__0ZKH;
- __STRING *Self__BMIH;
- __POSITION pos__3SZG;
- __BOOLEAN result__JOM,__tmp__FPM;
- __CHARACTER result__PLBH,result__YLBH,ch__PRO,result__3LBH;
- __CHARACTER *__tmp__SRO,*Self__D5O,*Self__CMIH,*new__EMIH;
- result__JOM=FALSE__;
- read_space__XTD();
- old_pos__KOM=position__CCC;
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- until_do__XZM:
- {
- result__PLBH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__PLBH=((__CHARACTER )(( 0)));
- } else {
- result__PLBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__PLBH == ((__CHARACTER )(( 0))))) {
- __tmp__FPM=TRUE__;
- } else {
- result__YLBH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__YLBH=((__CHARACTER )(( 0)));
- } else {
- result__YLBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- ch__PRO=result__YLBH;
- __tmp__SRO=((__STRING_CONSTANT *)(&__string_316))->storage__RRO;
- __tmp__VRO=(__INTEGER)(((__STRING_CONSTANT *)(&__string_316))->count__DD - 1);
- Self__D5O=((__CHARACTER *)__tmp__SRO);
- i__P5O=__tmp__VRO;
- while ((! ((i__P5O < 0) || (ch__PRO == Self__D5O[i__P5O])))) {
- i__P5O=(__INTEGER)(i__P5O - 1);
- };
- __tmp__FPM=(i__P5O < 0);
- };
- if ((! __tmp__FPM)) {
- result__3LBH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__3LBH=((__CHARACTER )(( 0)));
- } else {
- result__3LBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- Self__BMIH=((__STRING *)string_tmp__VH);
- new_capacity__AMIH= 0;
- if ((Self__BMIH->capacity__UCS <= Self__BMIH->count__SGC)) {
- if ((Self__BMIH->capacity__UCS == 0)) {
- Self__BMIH->capacity__UCS= 32;
- Self__BMIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__AMIH=(__INTEGER)(Self__BMIH->capacity__UCS << 1);
- Self__CMIH=((__CHARACTER *)Self__BMIH->storage__3CS);
- old_nb_elts__DMIH=Self__BMIH->capacity__UCS;
- new__EMIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__CMIH),((__UINTEGER_32 )old_nb_elts__DMIH),((__UINTEGER_32 )new_capacity__AMIH)));
- upper__2ZKH=(__INTEGER)(new_capacity__AMIH - 1);
- Self__0ZKH=old_nb_elts__DMIH;
- while ((Self__0ZKH <= upper__2ZKH)) {
- new__EMIH[Self__0ZKH]='\0';
- Self__0ZKH=(__INTEGER)(Self__0ZKH + 1);
- };
- Self__BMIH->storage__3CS=new__EMIH;
- Self__BMIH->capacity__UCS=new_capacity__AMIH;
- };
- };
- ((__CHARACTER *)Self__BMIH->storage__3CS)[Self__BMIH->count__SGC]=result__3LBH;
- Self__BMIH->count__SGC=(__INTEGER)(Self__BMIH->count__SGC + 1);
- position__CCC=(__INTEGER)(position__CCC + 1);
- goto until_do__XZM;
- };
- };
- if ((((__STRING *)string_tmp__VH)->count__SGC != 0)) {
- last_string__D2C=get__YWB(string_tmp__VH);
- if (((((void *)last_string__D2C == (void *)(&__string_12)) || ((void *)last_string__D2C == (void *)(&__string_14))) || ((void *)last_string__D2C == (void *)(&__string_13)))) {
- pos__3SZG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_286));
- put_position__FRG(pos__3SZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- short__token__to__GDD((&__string_124),old_pos__KOM,position__CCC);
- result__JOM=TRUE__;
- };
- return(result__JOM);
-}
-
-static void* operator__name__ZEO(void *typ__1EO,void *op__2EO)
-// ({STRING_CONSTANT},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
- __INTEGER __tmp__DFO,Self__KXO;
- __CHARACTER c__4EO;
- __BOOLEAN __tmp__RFO,__tmp__4FO,result__2MHB,__tmp__LGO,result__ONHB;
- __BOOLEAN __tmp__YGO,result__AOHB,__tmp__FHO,result__SOHB,__tmp__SHO;
- __BOOLEAN result__EPHB,__tmp__5HO,result__WPHB,__tmp__MIO;
- __BOOLEAN result__IQHB,__tmp__ZIO,result__0QHB,__tmp__GJO;
- __BOOLEAN result__MRHB,__tmp__TJO,result__4RHB,__tmp__AKO;
- __BOOLEAN result__QSHB,__tmp__NKO,result__CTHB,__tmp__0KO;
- __BOOLEAN result__UTHB,__tmp__HLO,result__GUHB,__tmp__ULO;
- __BOOLEAN result__YUHB,__tmp__BMO,result__KVHB;
- c__4EO='\0';
- copy__VDS(string_tmp__VH,typ__1EO);
- __tmp__DFO=((__STRING_CONSTANT *)op__2EO)->count__DD;
- Self__KXO= 1;
- while ((Self__KXO <= __tmp__DFO)) {
- c__4EO=((__CHARACTER *)((__STRING_CONSTANT *)op__2EO)->storage__RRO)[(__INTEGER)(Self__KXO - 1)];
- if ((c__4EO == '+')) {
- append__3OS(string_tmp__VH,(&__string_188));
- __tmp__RFO=TRUE__;
- } else {
- __tmp__RFO=FALSE__;
- };
- if (__tmp__RFO) {
- __tmp__4FO=TRUE__;
- } else {
- result__2MHB=(c__4EO == '-');
- if (result__2MHB) {
- append__3OS(string_tmp__VH,(&__string_189));
- };
- __tmp__4FO=result__2MHB;
- };
- if (__tmp__4FO) {
- __tmp__LGO=TRUE__;
- } else {
- result__ONHB=(c__4EO == '~');
- if (result__ONHB) {
- append__3OS(string_tmp__VH,(&__string_190));
- };
- __tmp__LGO=result__ONHB;
- };
- if (__tmp__LGO) {
- __tmp__YGO=TRUE__;
- } else {
- result__AOHB=(c__4EO == '!');
- if (result__AOHB) {
- append__3OS(string_tmp__VH,(&__string_191));
- };
- __tmp__YGO=result__AOHB;
- };
- if (__tmp__YGO) {
- __tmp__FHO=TRUE__;
- } else {
- result__SOHB=(c__4EO == '/');
- if (result__SOHB) {
- append__3OS(string_tmp__VH,(&__string_192));
- };
- __tmp__FHO=result__SOHB;
- };
- if (__tmp__FHO) {
- __tmp__SHO=TRUE__;
- } else {
- result__EPHB=(c__4EO == '*');
- if (result__EPHB) {
- append__3OS(string_tmp__VH,(&__string_193));
- };
- __tmp__SHO=result__EPHB;
- };
- if (__tmp__SHO) {
- __tmp__5HO=TRUE__;
- } else {
- result__WPHB=(c__4EO == '^');
- if (result__WPHB) {
- append__3OS(string_tmp__VH,(&__string_194));
- };
- __tmp__5HO=result__WPHB;
- };
- if (__tmp__5HO) {
- __tmp__MIO=TRUE__;
- } else {
- result__IQHB=(c__4EO == '%');
- if (result__IQHB) {
- append__3OS(string_tmp__VH,(&__string_195));
- };
- __tmp__MIO=result__IQHB;
- };
- if (__tmp__MIO) {
- __tmp__ZIO=TRUE__;
- } else {
- result__0QHB=(c__4EO == '>');
- if (result__0QHB) {
- append__3OS(string_tmp__VH,(&__string_196));
- };
- __tmp__ZIO=result__0QHB;
- };
- if (__tmp__ZIO) {
- __tmp__GJO=TRUE__;
- } else {
- result__MRHB=(c__4EO == '<');
- if (result__MRHB) {
- append__3OS(string_tmp__VH,(&__string_197));
- };
- __tmp__GJO=result__MRHB;
- };
- if (__tmp__GJO) {
- __tmp__TJO=TRUE__;
- } else {
- result__4RHB=(c__4EO == '=');
- if (result__4RHB) {
- append__3OS(string_tmp__VH,(&__string_198));
- };
- __tmp__TJO=result__4RHB;
- };
- if (__tmp__TJO) {
- __tmp__AKO=TRUE__;
- } else {
- result__QSHB=(c__4EO == '\\');
- if (result__QSHB) {
- append__3OS(string_tmp__VH,(&__string_199));
- };
- __tmp__AKO=result__QSHB;
- };
- if (__tmp__AKO) {
- __tmp__NKO=TRUE__;
- } else {
- result__CTHB=(c__4EO == '|');
- if (result__CTHB) {
- append__3OS(string_tmp__VH,(&__string_200));
- };
- __tmp__NKO=result__CTHB;
- };
- if (__tmp__NKO) {
- __tmp__0KO=TRUE__;
- } else {
- result__UTHB=(c__4EO == '&');
- if (result__UTHB) {
- append__3OS(string_tmp__VH,(&__string_201));
- };
- __tmp__0KO=result__UTHB;
- };
- if (__tmp__0KO) {
- __tmp__HLO=TRUE__;
- } else {
- result__GUHB=(c__4EO == '$');
- if (result__GUHB) {
- append__3OS(string_tmp__VH,(&__string_202));
- };
- __tmp__HLO=result__GUHB;
- };
- if (__tmp__HLO) {
- __tmp__ULO=TRUE__;
- } else {
- result__YUHB=(c__4EO == '#');
- if (result__YUHB) {
- append__3OS(string_tmp__VH,(&__string_203));
- };
- __tmp__ULO=result__YUHB;
- };
- if (__tmp__ULO) {
- __tmp__BMO=TRUE__;
- } else {
- result__KVHB=(c__4EO == '@');
- if (result__KVHB) {
- append__3OS(string_tmp__VH,(&__string_204));
- };
- __tmp__BMO=result__KVHB;
- };
- if ((! __tmp__BMO)) {
- if ((c__4EO == '?')) {
- append__3OS(string_tmp__VH,(&__string_205));
- };
- };
- Self__KXO=(__INTEGER)(Self__KXO + 1);
- };
- return(get__YWB(string_tmp__VH));
-}
-
-static void append_in__MHBC(__ITM_TYPE_MULTI *Self__NHBC,void *buffer__OHBC)
-// ({ITM_TYPE_MULTI},{NULLxSTRING}) VoidRecursive, No inlinable.
-{
- __STRING *Self__HMIH,*Self__NMIH;
- __INTEGER new_capacity__GMIH,old_nb_elts__JMIH,upper__B0KH,Self__5ZKH;
- __INTEGER new_capacity__MMIH,old_nb_elts__PMIH,upper__G0KH,Self__E0KH;
- __CHARACTER *Self__IMIH,*new__KMIH,*Self__OMIH,*new__QMIH;
- Self__HMIH=((__STRING *)buffer__OHBC);
- new_capacity__GMIH= 0;
- if ((Self__HMIH->capacity__UCS <= Self__HMIH->count__SGC)) {
- if ((Self__HMIH->capacity__UCS == 0)) {
- Self__HMIH->capacity__UCS= 32;
- Self__HMIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__GMIH=(__INTEGER)(Self__HMIH->capacity__UCS << 1);
- Self__IMIH=((__CHARACTER *)Self__HMIH->storage__3CS);
- old_nb_elts__JMIH=Self__HMIH->capacity__UCS;
- new__KMIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__IMIH),((__UINTEGER_32 )old_nb_elts__JMIH),((__UINTEGER_32 )new_capacity__GMIH)));
- upper__B0KH=(__INTEGER)(new_capacity__GMIH - 1);
- Self__5ZKH=old_nb_elts__JMIH;
- while ((Self__5ZKH <= upper__B0KH)) {
- new__KMIH[Self__5ZKH]='\0';
- Self__5ZKH=(__INTEGER)(Self__5ZKH + 1);
- };
- Self__HMIH->storage__3CS=new__KMIH;
- Self__HMIH->capacity__UCS=new_capacity__GMIH;
- };
- };
- ((__CHARACTER *)Self__HMIH->storage__3CS)[Self__HMIH->count__SGC]='(';
- Self__HMIH->count__SGC=(__INTEGER)(Self__HMIH->count__SGC + 1);
- display_raw__MLIC(Self__NHBC,buffer__OHBC);
- Self__NMIH=((__STRING *)buffer__OHBC);
- new_capacity__MMIH= 0;
- if ((Self__NMIH->capacity__UCS <= Self__NMIH->count__SGC)) {
- if ((Self__NMIH->capacity__UCS == 0)) {
- Self__NMIH->capacity__UCS= 32;
- Self__NMIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__MMIH=(__INTEGER)(Self__NMIH->capacity__UCS << 1);
- Self__OMIH=((__CHARACTER *)Self__NMIH->storage__3CS);
- old_nb_elts__PMIH=Self__NMIH->capacity__UCS;
- new__QMIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__OMIH),((__UINTEGER_32 )old_nb_elts__PMIH),((__UINTEGER_32 )new_capacity__MMIH)));
- upper__G0KH=(__INTEGER)(new_capacity__MMIH - 1);
- Self__E0KH=old_nb_elts__PMIH;
- while ((Self__E0KH <= upper__G0KH)) {
- new__QMIH[Self__E0KH]='\0';
- Self__E0KH=(__INTEGER)(Self__E0KH + 1);
- };
- Self__NMIH->storage__3CS=new__QMIH;
- Self__NMIH->capacity__UCS=new_capacity__MMIH;
- };
- };
- ((__CHARACTER *)Self__NMIH->storage__3CS)[Self__NMIH->count__SGC]=')';
- Self__NMIH->count__SGC=(__INTEGER)(Self__NMIH->count__SGC + 1);
-}
-
-static void* read_prototype__DPN(__PARSER *Self__EPN,void *styl__FPN)
-// ({PARSER},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
- void *nam__HPN,*n__IYP,*n__YOR;
- void *result__JPN,*result__KVQ;
- __INTEGER old_pos__LPN,old_derive__MPN,sav_derive__NPN;
- __INTEGER pos_before__OPN,new_capacity__SMIH,old_nb_elts__VMIH;
- __INTEGER upper__O0KH,Self__M0KH,idx__NYP,__tmp__54GH,typ_id__TLIB;
- __INTEGER new_capacity__4CBB,__tmp__CEBB,__tmp__OOFC,Self__14VD;
- __INTEGER typ_id__0MIH,idx__2OR,__tmp__E5GH,typ_id__42IB;
- __INTEGER new_capacity__FBCB,__tmp__JCCB,__tmp__KSFC,Self__0AWD;
- __POSITION pos__CUZG,pos__EUZG,pos__GUZG,pos__IUZG,pos__HWZG;
- __POSITION __tmp__4TN,__tmp__AVN;
- __STRING *Self__TMIH;
- __ITM_TYPE_GENERIC *result__MYP,*__tmp__V0P,*result__NLIB,*Self__N1CC;
- void *__tmp__U0P;
- __POINTER ptr__OLIB,ptr_table__X0KH,next__W0KH,result__Y0KH;
- __POINTER ptr_table__20KH,next__10KH,result__30KH,ptr__ZMIH;
- __POINTER ptr_table__E1KH,next__D1KH,result__F1KH,ptr_table__J1KH;
- __POINTER next__I1KH,result__K1KH,ptr__Z2IB,ptr_table__O1KH;
- __POINTER next__N1KH,result__P1KH,ptr_table__T1KH,next__S1KH;
- __POINTER result__U1KH;
- __UINTEGER_32 sz__QLIB,a__QCGH,new_size__RCGH,t__VCGH,a__UCGH;
- __UINTEGER_32 new_size__50KH,lab_type__40KH,sz__1MIH,a__2MIH;
- __UINTEGER_32 new_size__3MIH,t__4MIH,a__5MIH,new_size__M1KH;
- __UINTEGER_32 lab_type__L1KH,sz__12IB,a__4CGH,new_size__5CGH,t__DDGH;
- __UINTEGER_32 a__CDGH,new_size__W1KH,lab_type__V1KH;
- void *result__MUEH;
- __ITM_TYPE_PARAMETER *result__YMIH,*Self__ANIH;
- __ITM_TYPE_STYLE *result__1OR,*__tmp__XQR,*result__Y2IB,*Self__54CC;
- void *__tmp__WQR;
- void *genericity__IPN,*result__W4GH,*lt__KYP;
- __BOOLEAN continue__PPN,result__I0KH,result__Q0KH,__tmp__2VQ;
- __BOOLEAN result__T0KH,__tmp__MDBB,result__A1KH,__tmp__FUN;
- __BOOLEAN __tmp__TBCB;
- __CHARACTER result__J0KH,result__R0KH,result__U0KH,result__B1KH;
- __CHARACTER *Self__UMIH,*new__WMIH;
- __FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *Self__X4GH,*Self__Y4GH;
- void **__tmp__IFHH,**__tmp__JFHH,**__tmp__KFHH,**__tmp__BEBB;
- void **new__0NFC;
- __FAST_ARRAYoITM_TYPE_GENERICo *Self__2CBB;
- void **__tmp__LFHH,**__tmp__MFHH,**__tmp__ICCB,**new__WRFC;
- __FAST_ARRAYoITM_TYPE_STYLEo *Self__DBCB;
- nam__HPN=NULL;
- genericity__IPN=NULL;
- result__JPN=NULL;
- old_pos__LPN= 0;
- old_derive__MPN= 0;
- sav_derive__NPN= 0;
- pos_before__OPN= 0;
- continue__PPN=FALSE__;
- if (read_cap_identifier__N1J()) {
- old_pos__LPN=position__CCC;
- old_derive__MPN=short_derive__PCC;
- copy__VDS(string_tmp2__GCJ,last_string__D2C);
- do {
- continue__PPN=read_word__ISF((&__string_7));
- if (continue__PPN) {
- if ((! read_cap_identifier__N1J())) {
- pos__CUZG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_317));
- put_position__FRG(pos__CUZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- append__3OS(string_tmp2__GCJ,(&__string_7));
- append__3OS(string_tmp2__GCJ,last_string__D2C);
- } else {
- pos_before__OPN=position__CCC;
- result__I0KH=FALSE__;
- if ((! read_space__XTD())) {
- result__I0KH=FALSE__;
- } else {
- result__J0KH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__J0KH=((__CHARACTER )(( 0)));
- } else {
- result__J0KH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__J0KH == '.')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__I0KH=TRUE__;
- };
- };
- if ((result__I0KH && read_cap_identifier__N1J())) {
- continue__PPN=TRUE__;
- Self__TMIH=((__STRING *)string_tmp2__GCJ);
- new_capacity__SMIH= 0;
- if ((Self__TMIH->capacity__UCS <= Self__TMIH->count__SGC)) {
- if ((Self__TMIH->capacity__UCS == 0)) {
- Self__TMIH->capacity__UCS= 32;
- Self__TMIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__SMIH=(__INTEGER)(Self__TMIH->capacity__UCS << 1);
- Self__UMIH=((__CHARACTER *)Self__TMIH->storage__3CS);
- old_nb_elts__VMIH=Self__TMIH->capacity__UCS;
- new__WMIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__UMIH),((__UINTEGER_32 )old_nb_elts__VMIH),((__UINTEGER_32 )new_capacity__SMIH)));
- upper__O0KH=(__INTEGER)(new_capacity__SMIH - 1);
- Self__M0KH=old_nb_elts__VMIH;
- while ((Self__M0KH <= upper__O0KH)) {
- new__WMIH[Self__M0KH]='\0';
- Self__M0KH=(__INTEGER)(Self__M0KH + 1);
- };
- Self__TMIH->storage__3CS=new__WMIH;
- Self__TMIH->capacity__UCS=new_capacity__SMIH;
- };
- };
- ((__CHARACTER *)Self__TMIH->storage__3CS)[Self__TMIH->count__SGC]='.';
- Self__TMIH->count__SGC=(__INTEGER)(Self__TMIH->count__SGC + 1);
- append__3OS(string_tmp2__GCJ,last_string__D2C);
- } else {
- position__CCC=pos_before__OPN;
- };
- };
- } while (continue__PPN);
- nam__HPN=get__YWB(string_tmp2__GCJ);
- result__Q0KH=FALSE__;
- if ((! read_space__XTD())) {
- result__Q0KH=FALSE__;
- } else {
- result__R0KH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__R0KH=((__CHARACTER )(( 0)));
- } else {
- result__R0KH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__R0KH == '(')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__Q0KH=TRUE__;
- };
- };
- if (result__Q0KH) {
- result__W4GH=NULL;
- if ((((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__GVP)->parent_arrayed_collection__FVP.upper__ZUV < 0)) {
- result__W4GH=create_with_capacity__EGR( 16);
- } else {
- Self__X4GH=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__GVP);
- result__W4GH=((void **)Self__X4GH->parent_arrayed_collection__FVP.storage__PZV)[Self__X4GH->parent_arrayed_collection__FVP.upper__ZUV];
- Self__Y4GH=((__FAST_ARRAYoFAST_ARRAYoITM_TYPE_MONOoo *)free_list__GVP);
- Self__Y4GH->parent_arrayed_collection__FVP.upper__ZUV=(__INTEGER)(Self__Y4GH->parent_arrayed_collection__FVP.upper__ZUV - 1);
- };
- genericity__IPN=result__W4GH;
- do {
- result__KVQ=read_type__CDM(Self__EPN,FALSE__);
- if (((void *)result__KVQ == (void *)NULL)) {
- if (((void *)read_constant__XRO() != (void *)NULL)) {
- pos__EUZG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_318));
- put_position__FRG(pos__EUZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- __tmp__2VQ=TRUE__;
- } else {
- __tmp__2VQ=FALSE__;
- };
- if ((! __tmp__2VQ)) {
- if (read_identifier__2BL()) {
- pos__GUZG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_319));
- put_position__FRG(pos__GUZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- };
- if (((void *)result__KVQ == (void *)NULL)) {
- pos__IUZG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_259));
- put_position__FRG(pos__IUZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- add_last__ONV(genericity__IPN,result__KVQ);
- result__T0KH=FALSE__;
- if ((! read_space__XTD())) {
- result__T0KH=FALSE__;
- } else {
- result__U0KH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__U0KH=((__CHARACTER )(( 0)));
- } else {
- result__U0KH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__U0KH == ',')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__T0KH=TRUE__;
- };
- };
- } while (result__T0KH);
- genericity__IPN=alias__CWP(result__W4GH);
- n__IYP=nam__HPN;
- lt__KYP=genericity__IPN;
- result__MYP=NULL;
- idx__NYP= 0;
- __tmp__54GH=((__FAST_ARRAYoITM_TYPE_GENERICo *)dico__TYP)->parent_arrayed_collection__SYP.upper__2YP;
- __tmp__IFHH=((__FAST_ARRAYoITM_TYPE_GENERICo *)dico__TYP)->parent_arrayed_collection__SYP.storage__SBW;
- __tmp__JFHH=((__FAST_ARRAYoITM_TYPE_GENERICo *)dico__TYP)->parent_arrayed_collection__SYP.storage__SBW;
- __tmp__KFHH=((__FAST_ARRAYoITM_TYPE_GENERICo *)dico__TYP)->parent_arrayed_collection__SYP.storage__SBW;
- while (((idx__NYP <= __tmp__54GH) && ((((void *)((__ITM_TYPE_GENERIC *)((void **)__tmp__IFHH)[idx__NYP])->parent_itm_type_style__4SN.parent_itm_type_simple__3SN.name__GZP != (void *)n__IYP) || ((void *)((__ITM_TYPE_GENERIC *)((void **)__tmp__JFHH)[idx__NYP])->parent_itm_type_style__4SN.style__PZP != (void *)styl__FPN)) || ((void *)((__ITM_TYPE_GENERIC *)((void **)__tmp__KFHH)[idx__NYP])->list_type__ZZP != (void *)lt__KYP)))) {
- idx__NYP=(__INTEGER)(idx__NYP + 1);
- };
- if ((idx__NYP <= ((__FAST_ARRAYoITM_TYPE_GENERICo *)dico__TYP)->parent_arrayed_collection__SYP.upper__2YP)) {
- __tmp__U0P=((void **)((__FAST_ARRAYoITM_TYPE_GENERICo *)dico__TYP)->parent_arrayed_collection__SYP.storage__SBW)[idx__NYP];
- if (__tmp__U0P==NULL) {
- __tmp__V0P=NULL;
- } else {
- __tmp__V0P=((__ITM_TYPE_GENERIC *)__tmp__U0P);
- };
- result__MYP=__tmp__V0P;
- } else {
- result__NLIB=NULL;
- ptr__OLIB=((__POINTER )(NULL));
- typ_id__TLIB= 0;
- sz__QLIB=((__UINTEGER_32 )sizeof(__ITM_TYPE_GENERIC));
- if ((sz__QLIB == 0)) {
- result__NLIB=ITM_TYPE_GENERIC__;
- } else {
- typ_id__TLIB=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__QLIB);
- if ((typ_id__TLIB == (__INTEGER)(- 1))) {
- a__QCGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__RCGH=(__UINTEGER_32)((__UINTEGER_32)(sz__QLIB + a__QCGH) & (__UINTEGER_32)(~ a__QCGH));
- ptr_table__X0KH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__RCGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__W0KH=((__POINTER )(NULL));
- result__Y0KH=((__POINTER *)ptr_table__X0KH)[ 0];
- if ((result__Y0KH == (void *)NULL)) {
- result__Y0KH=new_lab__RTJ(new_size__RCGH);
- next__W0KH=(void *)((unsigned long)result__Y0KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RCGH)));
- ((__POINTER *)next__W0KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__X0KH)[ 0]=next__W0KH;
- } else {
- next__W0KH=((__POINTER *)result__Y0KH)[ 0];
- if ((next__W0KH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Y0KH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__RCGH << 1)) <= 4096)) {
- next__W0KH=(void *)((unsigned long)result__Y0KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__RCGH)));
- } else {
- next__W0KH=new_lab__RTJ(new_size__RCGH);
- };
- ((__POINTER *)next__W0KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__X0KH)[ 0]=next__W0KH;
- } else {
- ((__POINTER *)result__Y0KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__W0KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__Y0KH=next__W0KH;
- };
- };
- ptr__OLIB=result__Y0KH;
- } else {
- t__VCGH=((__UINTEGER_32 )typ_id__TLIB);
- a__UCGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__50KH=(__UINTEGER_32)((__UINTEGER_32)(sz__QLIB + a__UCGH) & (__UINTEGER_32)(~ a__UCGH));
- ptr_table__20KH=((__POINTER )(&(table_type[(t__VCGH)])));
- lab_type__40KH=(__UINTEGER_32)(t__VCGH | 1);
- next__10KH=((__POINTER )(NULL));
- result__30KH=((__POINTER *)ptr_table__20KH)[ 0];
- if ((result__30KH == (void *)NULL)) {
- result__30KH=new_lab__RTJ(lab_type__40KH);
- next__10KH=(void *)((unsigned long)result__30KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__50KH)));
- ((__POINTER *)next__10KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__20KH)[ 0]=next__10KH;
- } else {
- next__10KH=((__POINTER *)result__30KH)[ 0];
- if ((next__10KH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__30KH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__50KH << 1)) <= 4096)) {
- next__10KH=(void *)((unsigned long)result__30KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__50KH)));
- } else {
- next__10KH=new_lab__RTJ(lab_type__40KH);
- };
- ((__POINTER *)next__10KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__20KH)[ 0]=next__10KH;
- } else {
- ((__POINTER *)result__30KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__10KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__30KH=next__10KH;
- };
- };
- ptr__OLIB=result__30KH;
- };
- result__NLIB=((__ITM_TYPE_GENERIC *)ptr__OLIB);
- *(result__NLIB) = *(ITM_TYPE_GENERIC__);
- };
- Self__N1CC=((__ITM_TYPE_GENERIC *)result__NLIB);
- Self__N1CC->parent_itm_type_style__4SN.parent_itm_type_simple__3SN.name__GZP=nam__HPN;
- Self__N1CC->parent_itm_type_style__4SN.style__PZP=styl__FPN;
- Self__N1CC->list_type__ZZP=genericity__IPN;
- result__MYP=result__NLIB;
- Self__2CBB=((__FAST_ARRAYoITM_TYPE_GENERICo *)dico__TYP);
- new_capacity__4CBB= 0;
- if (((__INTEGER)(Self__2CBB->parent_arrayed_collection__SYP.upper__2YP + 1) <= (__INTEGER)(Self__2CBB->parent_arrayed_collection__SYP.capacity__HBW - 1))) {
- Self__2CBB->parent_arrayed_collection__SYP.upper__2YP=(__INTEGER)(Self__2CBB->parent_arrayed_collection__SYP.upper__2YP + 1);
- __tmp__MDBB=TRUE__;
- } else {
- __tmp__MDBB=FALSE__;
- };
- if ((! __tmp__MDBB)) {
- if ((Self__2CBB->parent_arrayed_collection__SYP.capacity__HBW == 0)) {
- Self__2CBB->parent_arrayed_collection__SYP.storage__SBW=create__JQXB( 2);
- Self__2CBB->parent_arrayed_collection__SYP.capacity__HBW= 2;
- Self__2CBB->parent_arrayed_collection__SYP.upper__2YP= 0;
- } else {
- new_capacity__4CBB=(__INTEGER)(Self__2CBB->parent_arrayed_collection__SYP.capacity__HBW << 1);
- __tmp__BEBB=Self__2CBB->parent_arrayed_collection__SYP.storage__SBW;
- __tmp__CEBB=Self__2CBB->parent_arrayed_collection__SYP.capacity__HBW;
- new__0NFC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__BEBB)),((__UINTEGER_32 )(__INTEGER)(__tmp__CEBB * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__4CBB * ((__INTEGER )(sizeof(void *)))))));
- __tmp__OOFC=(__INTEGER)(new_capacity__4CBB - 1);
- Self__14VD=__tmp__CEBB;
- while ((Self__14VD <= __tmp__OOFC)) {
- new__0NFC[Self__14VD]=NULL;
- Self__14VD=(__INTEGER)(Self__14VD + 1);
- };
- Self__2CBB->parent_arrayed_collection__SYP.storage__SBW=new__0NFC;
- Self__2CBB->parent_arrayed_collection__SYP.capacity__HBW=new_capacity__4CBB;
- Self__2CBB->parent_arrayed_collection__SYP.upper__2YP=(__INTEGER)(Self__2CBB->parent_arrayed_collection__SYP.upper__2YP + 1);
- };
- };
- ((void **)Self__2CBB->parent_arrayed_collection__SYP.storage__SBW)[Self__2CBB->parent_arrayed_collection__SYP.upper__2YP]=result__NLIB;
- };
- result__JPN=result__MYP;
- result__A1KH=FALSE__;
- if ((! read_space__XTD())) {
- result__A1KH=FALSE__;
- } else {
- result__B1KH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__B1KH=((__CHARACTER )(( 0)));
- } else {
- result__B1KH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__B1KH == ')')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__A1KH=TRUE__;
- };
- };
- if ((! result__A1KH)) {
- pos__HWZG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_262));
- put_position__FRG(pos__HWZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- } else {
- if (is_parameter_type__AME) {
- if (((void *)styl__FPN != (void *)NULL)) {
- copy__VDS(string_tmp__VH,(&__string_320));
- append__3OS(string_tmp__VH,styl__FPN);
- append__3OS(string_tmp__VH,(&__string_321));
- __tmp__4TN=current_position__B0F();
- put_error__text__1PG( 2,string_tmp__VH);
- put_position__FRG(__tmp__4TN);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- result__MUEH=fast_reference_at__R3T(dico__XVI,nam__HPN);
- if (((void *)result__MUEH == (void *)NULL)) {
- result__YMIH=NULL;
- ptr__ZMIH=((__POINTER )(NULL));
- typ_id__0MIH= 0;
- sz__1MIH=((__UINTEGER_32 )sizeof(__ITM_TYPE_PARAMETER));
- if ((sz__1MIH == 0)) {
- result__YMIH=ITM_TYPE_PARAMETER__;
- } else {
- typ_id__0MIH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__1MIH);
- if ((typ_id__0MIH == (__INTEGER)(- 1))) {
- a__2MIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__3MIH=(__UINTEGER_32)((__UINTEGER_32)(sz__1MIH + a__2MIH) & (__UINTEGER_32)(~ a__2MIH));
- ptr_table__E1KH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3MIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__D1KH=((__POINTER )(NULL));
- result__F1KH=((__POINTER *)ptr_table__E1KH)[ 0];
- if ((result__F1KH == (void *)NULL)) {
- result__F1KH=new_lab__RTJ(new_size__3MIH);
- next__D1KH=(void *)((unsigned long)result__F1KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3MIH)));
- ((__POINTER *)next__D1KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__E1KH)[ 0]=next__D1KH;
- } else {
- next__D1KH=((__POINTER *)result__F1KH)[ 0];
- if ((next__D1KH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__F1KH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__3MIH << 1)) <= 4096)) {
- next__D1KH=(void *)((unsigned long)result__F1KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3MIH)));
- } else {
- next__D1KH=new_lab__RTJ(new_size__3MIH);
- };
- ((__POINTER *)next__D1KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__E1KH)[ 0]=next__D1KH;
- } else {
- ((__POINTER *)result__F1KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__D1KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__F1KH=next__D1KH;
- };
- };
- ptr__ZMIH=result__F1KH;
- } else {
- t__4MIH=((__UINTEGER_32 )typ_id__0MIH);
- a__5MIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__M1KH=(__UINTEGER_32)((__UINTEGER_32)(sz__1MIH + a__5MIH) & (__UINTEGER_32)(~ a__5MIH));
- ptr_table__J1KH=((__POINTER )(&(table_type[(t__4MIH)])));
- lab_type__L1KH=(__UINTEGER_32)(t__4MIH | 1);
- next__I1KH=((__POINTER )(NULL));
- result__K1KH=((__POINTER *)ptr_table__J1KH)[ 0];
- if ((result__K1KH == (void *)NULL)) {
- result__K1KH=new_lab__RTJ(lab_type__L1KH);
- next__I1KH=(void *)((unsigned long)result__K1KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M1KH)));
- ((__POINTER *)next__I1KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__J1KH)[ 0]=next__I1KH;
- } else {
- next__I1KH=((__POINTER *)result__K1KH)[ 0];
- if ((next__I1KH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__K1KH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__M1KH << 1)) <= 4096)) {
- next__I1KH=(void *)((unsigned long)result__K1KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__M1KH)));
- } else {
- next__I1KH=new_lab__RTJ(lab_type__L1KH);
- };
- ((__POINTER *)next__I1KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__J1KH)[ 0]=next__I1KH;
- } else {
- ((__POINTER *)result__K1KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__I1KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__K1KH=next__I1KH;
- };
- };
- ptr__ZMIH=result__K1KH;
- };
- result__YMIH=((__ITM_TYPE_PARAMETER *)ptr__ZMIH);
- *(result__YMIH) = *(ITM_TYPE_PARAMETER__);
- };
- Self__ANIH=((__ITM_TYPE_PARAMETER *)result__YMIH);
- Self__ANIH->parent_itm_type__VFE.name__GZP=nam__HPN;
- fast_put__to__JPZ(dico__XVI,Self__ANIH,nam__HPN);
- result__MUEH=result__YMIH;
- };
- result__JPN=result__MUEH;
- __tmp__FUN=TRUE__;
- } else {
- __tmp__FUN=FALSE__;
- };
- if ((! __tmp__FUN)) {
- if (((void *)styl__FPN == (void *)NULL)) {
- result__JPN=get__IVI(nam__HPN);
- } else {
- if (((void *)nam__HPN == (void *)(&__string_1))) {
- copy__VDS(string_tmp__VH,(&__string_320));
- append__3OS(string_tmp__VH,styl__FPN);
- append__3OS(string_tmp__VH,(&__string_322));
- __tmp__AVN=current_position__B0F();
- put_error__text__1PG( 2,string_tmp__VH);
- put_position__FRG(__tmp__AVN);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- result__JPN=type_self__DVN;
- } else {
- n__YOR=nam__HPN;
- result__1OR=NULL;
- idx__2OR= 0;
- __tmp__E5GH=((__FAST_ARRAYoITM_TYPE_STYLEo *)dico__CPR)->parent_arrayed_collection__BPR.upper__LPR;
- __tmp__LFHH=((__FAST_ARRAYoITM_TYPE_STYLEo *)dico__CPR)->parent_arrayed_collection__BPR.storage__0LW;
- __tmp__MFHH=((__FAST_ARRAYoITM_TYPE_STYLEo *)dico__CPR)->parent_arrayed_collection__BPR.storage__0LW;
- while (((idx__2OR <= __tmp__E5GH) && (((void *)((__ITM_TYPE_STYLE *)((void **)__tmp__LFHH)[idx__2OR])->parent_itm_type_simple__3SN.name__GZP != (void *)n__YOR) || ((void *)((__ITM_TYPE_STYLE *)((void **)__tmp__MFHH)[idx__2OR])->style__PZP != (void *)styl__FPN)))) {
- idx__2OR=(__INTEGER)(idx__2OR + 1);
- };
- if ((idx__2OR <= ((__FAST_ARRAYoITM_TYPE_STYLEo *)dico__CPR)->parent_arrayed_collection__BPR.upper__LPR)) {
- __tmp__WQR=((void **)((__FAST_ARRAYoITM_TYPE_STYLEo *)dico__CPR)->parent_arrayed_collection__BPR.storage__0LW)[idx__2OR];
- if (__tmp__WQR==NULL) {
- __tmp__XQR=NULL;
- } else {
- __tmp__XQR=((__ITM_TYPE_STYLE *)__tmp__WQR);
- };
- result__1OR=__tmp__XQR;
- } else {
- result__Y2IB=NULL;
- ptr__Z2IB=((__POINTER )(NULL));
- typ_id__42IB= 0;
- sz__12IB=((__UINTEGER_32 )sizeof(__ITM_TYPE_STYLE));
- if ((sz__12IB == 0)) {
- result__Y2IB=ITM_TYPE_STYLE__;
- } else {
- typ_id__42IB=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__12IB);
- if ((typ_id__42IB == (__INTEGER)(- 1))) {
- a__4CGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5CGH=(__UINTEGER_32)((__UINTEGER_32)(sz__12IB + a__4CGH) & (__UINTEGER_32)(~ a__4CGH));
- ptr_table__O1KH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5CGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__N1KH=((__POINTER )(NULL));
- result__P1KH=((__POINTER *)ptr_table__O1KH)[ 0];
- if ((result__P1KH == (void *)NULL)) {
- result__P1KH=new_lab__RTJ(new_size__5CGH);
- next__N1KH=(void *)((unsigned long)result__P1KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5CGH)));
- ((__POINTER *)next__N1KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__O1KH)[ 0]=next__N1KH;
- } else {
- next__N1KH=((__POINTER *)result__P1KH)[ 0];
- if ((next__N1KH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__P1KH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__5CGH << 1)) <= 4096)) {
- next__N1KH=(void *)((unsigned long)result__P1KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5CGH)));
- } else {
- next__N1KH=new_lab__RTJ(new_size__5CGH);
- };
- ((__POINTER *)next__N1KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__O1KH)[ 0]=next__N1KH;
- } else {
- ((__POINTER *)result__P1KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__N1KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__P1KH=next__N1KH;
- };
- };
- ptr__Z2IB=result__P1KH;
- } else {
- t__DDGH=((__UINTEGER_32 )typ_id__42IB);
- a__CDGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__W1KH=(__UINTEGER_32)((__UINTEGER_32)(sz__12IB + a__CDGH) & (__UINTEGER_32)(~ a__CDGH));
- ptr_table__T1KH=((__POINTER )(&(table_type[(t__DDGH)])));
- lab_type__V1KH=(__UINTEGER_32)(t__DDGH | 1);
- next__S1KH=((__POINTER )(NULL));
- result__U1KH=((__POINTER *)ptr_table__T1KH)[ 0];
- if ((result__U1KH == (void *)NULL)) {
- result__U1KH=new_lab__RTJ(lab_type__V1KH);
- next__S1KH=(void *)((unsigned long)result__U1KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W1KH)));
- ((__POINTER *)next__S1KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__T1KH)[ 0]=next__S1KH;
- } else {
- next__S1KH=((__POINTER *)result__U1KH)[ 0];
- if ((next__S1KH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__U1KH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__W1KH << 1)) <= 4096)) {
- next__S1KH=(void *)((unsigned long)result__U1KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__W1KH)));
- } else {
- next__S1KH=new_lab__RTJ(lab_type__V1KH);
- };
- ((__POINTER *)next__S1KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__T1KH)[ 0]=next__S1KH;
- } else {
- ((__POINTER *)result__U1KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__S1KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__U1KH=next__S1KH;
- };
- };
- ptr__Z2IB=result__U1KH;
- };
- result__Y2IB=((__ITM_TYPE_STYLE *)ptr__Z2IB);
- *(result__Y2IB) = *(ITM_TYPE_STYLE__);
- };
- Self__54CC=((__ITM_TYPE_STYLE *)result__Y2IB);
- Self__54CC->parent_itm_type_simple__3SN.name__GZP=nam__HPN;
- Self__54CC->style__PZP=styl__FPN;
- result__1OR=result__Y2IB;
- Self__DBCB=((__FAST_ARRAYoITM_TYPE_STYLEo *)dico__CPR);
- new_capacity__FBCB= 0;
- if (((__INTEGER)(Self__DBCB->parent_arrayed_collection__BPR.upper__LPR + 1) <= (__INTEGER)(Self__DBCB->parent_arrayed_collection__BPR.capacity__PLW - 1))) {
- Self__DBCB->parent_arrayed_collection__BPR.upper__LPR=(__INTEGER)(Self__DBCB->parent_arrayed_collection__BPR.upper__LPR + 1);
- __tmp__TBCB=TRUE__;
- } else {
- __tmp__TBCB=FALSE__;
- };
- if ((! __tmp__TBCB)) {
- if ((Self__DBCB->parent_arrayed_collection__BPR.capacity__PLW == 0)) {
- Self__DBCB->parent_arrayed_collection__BPR.storage__0LW=create__VFYB( 2);
- Self__DBCB->parent_arrayed_collection__BPR.capacity__PLW= 2;
- Self__DBCB->parent_arrayed_collection__BPR.upper__LPR= 0;
- } else {
- new_capacity__FBCB=(__INTEGER)(Self__DBCB->parent_arrayed_collection__BPR.capacity__PLW << 1);
- __tmp__ICCB=Self__DBCB->parent_arrayed_collection__BPR.storage__0LW;
- __tmp__JCCB=Self__DBCB->parent_arrayed_collection__BPR.capacity__PLW;
- new__WRFC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__ICCB)),((__UINTEGER_32 )(__INTEGER)(__tmp__JCCB * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__FBCB * ((__INTEGER )(sizeof(void *)))))));
- __tmp__KSFC=(__INTEGER)(new_capacity__FBCB - 1);
- Self__0AWD=__tmp__JCCB;
- while ((Self__0AWD <= __tmp__KSFC)) {
- new__WRFC[Self__0AWD]=NULL;
- Self__0AWD=(__INTEGER)(Self__0AWD + 1);
- };
- Self__DBCB->parent_arrayed_collection__BPR.storage__0LW=new__WRFC;
- Self__DBCB->parent_arrayed_collection__BPR.capacity__PLW=new_capacity__FBCB;
- Self__DBCB->parent_arrayed_collection__BPR.upper__LPR=(__INTEGER)(Self__DBCB->parent_arrayed_collection__BPR.upper__LPR + 1);
- };
- };
- ((void **)Self__DBCB->parent_arrayed_collection__BPR.storage__0LW)[Self__DBCB->parent_arrayed_collection__BPR.upper__LPR]=result__Y2IB;
- };
- result__JPN=result__1OR;
- };
- };
- };
- };
- if (is_shorter__LZ) {
- sav_derive__NPN=short_derive__PCC;
- short_derive__PCC=old_derive__MPN;
- if ((((void *)result__JPN == (void *)type_self__DVN) || ((void *)result__JPN == (void *)type_null__1VN))) {
- short__token__to__GDD((&__string_126),(__INTEGER)(old_pos__LPN - ((__STRING_CONSTANT *)nam__HPN)->count__DD),old_pos__LPN);
- } else {
- short__token__to__GDD((&__string_125),(__INTEGER)(old_pos__LPN - ((__STRING_CONSTANT *)nam__HPN)->count__DD),old_pos__LPN);
- };
- short_derive__PCC=(__INTEGER)(sav_derive__NPN + (__INTEGER)(short_derive__PCC - old_derive__MPN));
- };
- };
- return(result__JPN);
-}
-
-static void read_def_local__M3H(__PARSER *Self__N3H)
-// ({PARSER}) VoidNo recursive, No inlinable.
-{
- __INTEGER beg__D0K,typ_id__TXN,Self__RCAB,limit_up__SCAB,__tmp__H4K;
- __INTEGER Self__D4N;
- __POSITION pos__TYZG,__tmp__P1K,pos__1YZG,pos__IZZG,pos__PZZG;
- void *__tmp__Q1K;
- __ITM_LOCAL *result__NXN,*Self__ODV;
- __POINTER ptr__OXN,ptr_table__Y1KH,next__X1KH,result__Z1KH;
- __POINTER ptr_table__31KH,next__21KH,result__41KH;
- __UINTEGER_32 sz__QXN,a__UDGH,new_size__VDGH,t__ZDGH,a__YDGH;
- __UINTEGER_32 new_size__A2KH,lab_type__51KH;
- __CHARACTER styl__X3H,result__C2KH,result__RPBH,result__F2KH;
- __CHARACTER result__I2KH;
- void *result__NFHH,*local_list__V3H,*result__QFHH,*static_list__W3H;
- void *result__C0K,*result__UTI;
- __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *Self__OFHH,*Self__PFHH;
- __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *Self__RFHH,*Self__SFHH,*Self__3P4;
- __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *Self__TQ4;
- __BOOLEAN mute__E0K,result__B2KH,__tmp__11K,result__E2KH,result__H2KH;
- old_position__ITI=position__CCC;
- old_pos_cur__KTI=pos_cur__FCC;
- old_pos_line__MTI=pos_line__GCC;
- old_pos_col__OTI=pos_col__HCC;
- old_short_derive__QTI=short_derive__PCC;
- styl__X3H=read_style__PUF();
- result__NFHH=NULL;
- if ((((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__0TI)->parent_arrayed_collection__ZTI.upper__C3T < 0)) {
- result__NFHH=create_with_capacity__LLK( 16);
- } else {
- Self__OFHH=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__0TI);
- result__NFHH=((void **)Self__OFHH->parent_arrayed_collection__ZTI.storage__YKU)[Self__OFHH->parent_arrayed_collection__ZTI.upper__C3T];
- Self__PFHH=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__0TI);
- Self__PFHH->parent_arrayed_collection__ZTI.upper__C3T=(__INTEGER)(Self__PFHH->parent_arrayed_collection__ZTI.upper__C3T - 1);
- };
- local_list__V3H=result__NFHH;
- result__QFHH=NULL;
- if ((((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__0TI)->parent_arrayed_collection__ZTI.upper__C3T < 0)) {
- result__QFHH=create_with_capacity__LLK( 16);
- } else {
- Self__RFHH=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__0TI);
- result__QFHH=((void **)Self__RFHH->parent_arrayed_collection__ZTI.storage__YKU)[Self__RFHH->parent_arrayed_collection__ZTI.upper__C3T];
- Self__SFHH=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__0TI);
- Self__SFHH->parent_arrayed_collection__ZTI.upper__C3T=(__INTEGER)(Self__SFHH->parent_arrayed_collection__ZTI.upper__C3T - 1);
- };
- static_list__W3H=result__QFHH;
- while ((styl__X3H != ' ')) {
- result__C0K=NULL;
- beg__D0K= 0;
- mute__E0K=TRUE__;
- if (read_identifier__2BL()) {
- result__UTI=NULL;
- if ((((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__0TI)->parent_arrayed_collection__ZTI.upper__C3T < 0)) {
- result__UTI=create_with_capacity__LLK( 16);
- } else {
- Self__3P4=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__0TI);
- result__UTI=((void **)Self__3P4->parent_arrayed_collection__ZTI.storage__YKU)[Self__3P4->parent_arrayed_collection__ZTI.upper__C3T];
- Self__TQ4=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__0TI);
- Self__TQ4->parent_arrayed_collection__ZTI.upper__C3T=(__INTEGER)(Self__TQ4->parent_arrayed_collection__ZTI.upper__C3T - 1);
- };
- result__C0K=result__UTI;
- beg__D0K= 0;
- do {
- if (((((__INTEGER)(((__FAST_ARRAYoITM_LOCALo *)result__C0K)->parent_arrayed_collection__T3H.upper__M2K + 1) != 0) && (! read_identifier__2BL())) && (! mute__E0K))) {
- pos__TYZG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_323));
- put_position__FRG(pos__TYZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- __tmp__P1K=current_position__B0F();
- __tmp__Q1K=last_string__D2C;
- result__NXN=NULL;
- ptr__OXN=((__POINTER )(NULL));
- typ_id__TXN= 0;
- sz__QXN=((__UINTEGER_32 )sizeof(__ITM_LOCAL));
- if ((sz__QXN == 0)) {
- result__NXN=ITM_LOCAL__;
- } else {
- typ_id__TXN=__ITM_LOCAL__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__QXN);
- if ((typ_id__TXN == (__INTEGER)(- 1))) {
- a__UDGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__VDGH=(__UINTEGER_32)((__UINTEGER_32)(sz__QXN + a__UDGH) & (__UINTEGER_32)(~ a__UDGH));
- ptr_table__Y1KH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VDGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__X1KH=((__POINTER )(NULL));
- result__Z1KH=((__POINTER *)ptr_table__Y1KH)[ 0];
- if ((result__Z1KH == (void *)NULL)) {
- result__Z1KH=new_lab__RTJ(new_size__VDGH);
- next__X1KH=(void *)((unsigned long)result__Z1KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VDGH)));
- ((__POINTER *)next__X1KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__Y1KH)[ 0]=next__X1KH;
- } else {
- next__X1KH=((__POINTER *)result__Z1KH)[ 0];
- if ((next__X1KH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Z1KH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__VDGH << 1)) <= 4096)) {
- next__X1KH=(void *)((unsigned long)result__Z1KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VDGH)));
- } else {
- next__X1KH=new_lab__RTJ(new_size__VDGH);
- };
- ((__POINTER *)next__X1KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__Y1KH)[ 0]=next__X1KH;
- } else {
- ((__POINTER *)result__Z1KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__X1KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__Z1KH=next__X1KH;
- };
- };
- ptr__OXN=result__Z1KH;
- } else {
- t__ZDGH=((__UINTEGER_32 )typ_id__TXN);
- a__YDGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__A2KH=(__UINTEGER_32)((__UINTEGER_32)(sz__QXN + a__YDGH) & (__UINTEGER_32)(~ a__YDGH));
- ptr_table__31KH=((__POINTER )(&(table_type[(t__ZDGH)])));
- lab_type__51KH=(__UINTEGER_32)(t__ZDGH | 1);
- next__21KH=((__POINTER )(NULL));
- result__41KH=((__POINTER *)ptr_table__31KH)[ 0];
- if ((result__41KH == (void *)NULL)) {
- result__41KH=new_lab__RTJ(lab_type__51KH);
- next__21KH=(void *)((unsigned long)result__41KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A2KH)));
- ((__POINTER *)next__21KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__31KH)[ 0]=next__21KH;
- } else {
- next__21KH=((__POINTER *)result__41KH)[ 0];
- if ((next__21KH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__41KH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__A2KH << 1)) <= 4096)) {
- next__21KH=(void *)((unsigned long)result__41KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__A2KH)));
- } else {
- next__21KH=new_lab__RTJ(lab_type__51KH);
- };
- ((__POINTER *)next__21KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__31KH)[ 0]=next__21KH;
- } else {
- ((__POINTER *)result__41KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__21KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__41KH=next__21KH;
- };
- };
- ptr__OXN=result__41KH;
- };
- result__NXN=((__ITM_LOCAL *)ptr__OXN);
- *(result__NXN) = *(ITM_LOCAL__);
- };
- Self__ODV=((__ITM_LOCAL *)result__NXN);
- Self__ODV->name__P4K=__tmp__Q1K;
- Self__ODV->parent_itm_object__O3H.position__SFJ=__tmp__P1K;
- add_last__Z1U(result__C0K,result__NXN);
- result__B2KH=FALSE__;
- if ((! read_space__XTD())) {
- result__B2KH=FALSE__;
- } else {
- result__C2KH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__C2KH=((__CHARACTER )(( 0)));
- } else {
- result__C2KH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__C2KH == ':')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__B2KH=TRUE__;
- };
- };
- if (result__B2KH) {
- result__RPBH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__RPBH=((__CHARACTER )(( 0)));
- } else {
- result__RPBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__11K=(result__RPBH != '=');
- } else {
- __tmp__11K=FALSE__;
- };
- if (__tmp__11K) {
- mute__E0K=FALSE__;
- if (((void *)read_type__CDM(Self__N3H,TRUE__) == (void *)NULL)) {
- pos__1YZG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_324));
- put_position__FRG(pos__1YZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- Self__RCAB=beg__D0K;
- limit_up__SCAB=((__FAST_ARRAYoITM_LOCALo *)result__C0K)->parent_arrayed_collection__T3H.upper__M2K;
- while ((Self__RCAB <= limit_up__SCAB)) {
- Self__RCAB=(__INTEGER)(Self__RCAB + 1);
- };
- beg__D0K=(__INTEGER)(((__FAST_ARRAYoITM_LOCALo *)result__C0K)->parent_arrayed_collection__T3H.upper__M2K + 1);
- };
- result__E2KH=FALSE__;
- if ((! read_space__XTD())) {
- result__E2KH=FALSE__;
- } else {
- result__F2KH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__F2KH=((__CHARACTER )(( 0)));
- } else {
- result__F2KH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__F2KH == ',')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__E2KH=TRUE__;
- };
- };
- } while (result__E2KH);
- if ((beg__D0K != (__INTEGER)(((__FAST_ARRAYoITM_LOCALo *)result__UTI)->parent_arrayed_collection__T3H.upper__M2K + 1))) {
- if (mute__E0K) {
- free__RLK(result__UTI);
- result__C0K=NULL;
- } else {
- pos__IZZG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_324));
- put_position__FRG(pos__IZZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- } else {
- result__C0K=copy__05J(result__C0K);
- if (is_shorter__LZ) {
- __tmp__H4K=((__FAST_ARRAYoITM_LOCALo *)result__C0K)->parent_arrayed_collection__T3H.upper__M2K;
- Self__D4N= 0;
- while ((Self__D4N <= __tmp__H4K)) {
- add__1IHB(short_local__XCC,((__ITM_LOCAL *)((void **)((__FAST_ARRAYoITM_LOCALo *)result__C0K)->parent_arrayed_collection__T3H.storage__TMU)[Self__D4N])->name__P4K);
- Self__D4N=(__INTEGER)(Self__D4N + 1);
- };
- };
- };
- };
- if (((void *)result__C0K != (void *)NULL)) {
- if ((styl__X3H == '+')) {
- append_collection__RDPD(local_list__V3H,result__C0K);
- } else {
- append_collection__RDPD(static_list__W3H,result__C0K);
- };
- result__H2KH=FALSE__;
- if ((! read_space__XTD())) {
- result__H2KH=FALSE__;
- } else {
- result__I2KH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__I2KH=((__CHARACTER )(( 0)));
- } else {
- result__I2KH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__I2KH == ';')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__H2KH=TRUE__;
- };
- };
- if ((! result__H2KH)) {
- pos__PZZG=current_position__B0F();
- put_error__text__1PG( 2,(&__string_241));
- put_position__FRG(pos__PZZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- old_position__ITI=position__CCC;
- old_pos_cur__KTI=pos_cur__FCC;
- old_pos_line__MTI=pos_line__GCC;
- old_pos_col__OTI=pos_col__HCC;
- old_short_derive__QTI=short_derive__PCC;
- styl__X3H=read_style__PUF();
- } else {
- restore_context__EFL();
- styl__X3H=' ';
- };
- };
- if ((((__FAST_ARRAYoITM_LOCALo *)result__NFHH)->parent_arrayed_collection__T3H.upper__M2K < 0)) {
- free__RLK(result__NFHH);
- } else {
- copy__05J(result__NFHH);
- };
- if ((((__FAST_ARRAYoITM_LOCALo *)result__QFHH)->parent_arrayed_collection__T3H.upper__M2K < 0)) {
- free__RLK(result__QFHH);
- } else {
- copy__05J(result__QFHH);
- };
-}
-
-static __FAST_ARRAYoITM_CODEo* create_with_capacity__XXI(__INTEGER new_count__ZXI)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __POINTER ptr__VMJ,ptr_table__L2KH,next__K2KH,result__M2KH;
- __POINTER ptr_table__Q2KH,next__P2KH,result__R2KH;
- __INTEGER typ_id__0MJ;
- __UINTEGER_32 sz__XMJ,a__RJGH,new_size__SJGH,t__WJGH,a__VJGH;
- __UINTEGER_32 new_size__T2KH,lab_type__S2KH;
- __FAST_ARRAYoITM_CODEo *result__UMJ,*Self__Y5T;
- result__UMJ=NULL;
- ptr__VMJ=((__POINTER )(NULL));
- typ_id__0MJ= 0;
- sz__XMJ=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_CODEo));
- if ((sz__XMJ == 0)) {
- result__UMJ=FAST_ARRAYoITM_CODEo__;
- } else {
- typ_id__0MJ=__FAST_ARRAYoITM_CODEo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__XMJ);
- if ((typ_id__0MJ == (__INTEGER)(- 1))) {
- a__RJGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__SJGH=(__UINTEGER_32)((__UINTEGER_32)(sz__XMJ + a__RJGH) & (__UINTEGER_32)(~ a__RJGH));
- ptr_table__L2KH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__SJGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__K2KH=((__POINTER )(NULL));
- result__M2KH=((__POINTER *)ptr_table__L2KH)[ 0];
- if ((result__M2KH == (void *)NULL)) {
- result__M2KH=new_lab__RTJ(new_size__SJGH);
- next__K2KH=(void *)((unsigned long)result__M2KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SJGH)));
- ((__POINTER *)next__K2KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__L2KH)[ 0]=next__K2KH;
- } else {
- next__K2KH=((__POINTER *)result__M2KH)[ 0];
- if ((next__K2KH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__M2KH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__SJGH << 1)) <= 4096)) {
- next__K2KH=(void *)((unsigned long)result__M2KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__SJGH)));
- } else {
- next__K2KH=new_lab__RTJ(new_size__SJGH);
- };
- ((__POINTER *)next__K2KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__L2KH)[ 0]=next__K2KH;
- } else {
- ((__POINTER *)result__M2KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__K2KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__M2KH=next__K2KH;
- };
- };
- ptr__VMJ=result__M2KH;
- } else {
- t__WJGH=((__UINTEGER_32 )typ_id__0MJ);
- a__VJGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__T2KH=(__UINTEGER_32)((__UINTEGER_32)(sz__XMJ + a__VJGH) & (__UINTEGER_32)(~ a__VJGH));
- ptr_table__Q2KH=((__POINTER )(&(table_type[(t__WJGH)])));
- lab_type__S2KH=(__UINTEGER_32)(t__WJGH | 1);
- next__P2KH=((__POINTER )(NULL));
- result__R2KH=((__POINTER *)ptr_table__Q2KH)[ 0];
- if ((result__R2KH == (void *)NULL)) {
- result__R2KH=new_lab__RTJ(lab_type__S2KH);
- next__P2KH=(void *)((unsigned long)result__R2KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__T2KH)));
- ((__POINTER *)next__P2KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__Q2KH)[ 0]=next__P2KH;
- } else {
- next__P2KH=((__POINTER *)result__R2KH)[ 0];
- if ((next__P2KH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__R2KH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__T2KH << 1)) <= 4096)) {
- next__P2KH=(void *)((unsigned long)result__R2KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__T2KH)));
- } else {
- next__P2KH=new_lab__RTJ(lab_type__S2KH);
- };
- ((__POINTER *)next__P2KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__Q2KH)[ 0]=next__P2KH;
- } else {
- ((__POINTER *)result__R2KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__P2KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__R2KH=next__P2KH;
- };
- };
- ptr__VMJ=result__R2KH;
- };
- result__UMJ=((__FAST_ARRAYoITM_CODEo *)ptr__VMJ);
- *(result__UMJ) = *(FAST_ARRAYoITM_CODEo__);
- };
- Self__Y5T=((__FAST_ARRAYoITM_CODEo *)result__UMJ);
- if ((Self__Y5T->parent_arrayed_collection__JWF.capacity__TZT < new_count__ZXI)) {
- Self__Y5T->parent_arrayed_collection__JWF.storage__4ZT=create__KRQB(new_count__ZXI);
- Self__Y5T->parent_arrayed_collection__JWF.capacity__TZT=new_count__ZXI;
- };
- Self__Y5T->parent_arrayed_collection__JWF.upper__NJL=(__INTEGER)(- 1);
- return(result__UMJ);
-}
-
-static void add_last__I5U(__FAST_ARRAYoITM_CODEo *Self__J5U,void *element__K5U)
-// ({FAST_ARRAYoITM_CODEo},{NULLxITM_LISTxITM_LDOTSxITM_PROTOTYPExITM_LIST_IDFxITM_WRITE_VALUExITM_WRITE_CASTxITM_READxITM_WRITE_CODExITM_OPERATORxITM_READ_ARG1xITM_READ_ARG2xITM_EXPRESSIONxITM_OLDxITM_EXTERNAL_TYPExITM_BLOCKxITM_EXTERNALxITM_READ_ARGSxITM_REALxITM_NUMBERxITM_CHARACTERxITM_STRINGxITM_RESULT}) VoidNo recursive, No inlinable.
-{
- __INTEGER new_capacity__L5U,__tmp__PAV,__tmp__ODEC,Self__JMVD;
- __BOOLEAN __tmp__Z5U;
- void **__tmp__OAV,**new__0CEC;
- new_capacity__L5U= 0;
- if (((__INTEGER)(Self__J5U->parent_arrayed_collection__JWF.upper__NJL + 1) <= (__INTEGER)(Self__J5U->parent_arrayed_collection__JWF.capacity__TZT - 1))) {
- Self__J5U->parent_arrayed_collection__JWF.upper__NJL=(__INTEGER)(Self__J5U->parent_arrayed_collection__JWF.upper__NJL + 1);
- __tmp__Z5U=TRUE__;
- } else {
- __tmp__Z5U=FALSE__;
- };
- if ((! __tmp__Z5U)) {
- if ((Self__J5U->parent_arrayed_collection__JWF.capacity__TZT == 0)) {
- Self__J5U->parent_arrayed_collection__JWF.storage__4ZT=create__KRQB( 2);
- Self__J5U->parent_arrayed_collection__JWF.capacity__TZT= 2;
- Self__J5U->parent_arrayed_collection__JWF.upper__NJL= 0;
- } else {
- new_capacity__L5U=(__INTEGER)(Self__J5U->parent_arrayed_collection__JWF.capacity__TZT << 1);
- __tmp__OAV=Self__J5U->parent_arrayed_collection__JWF.storage__4ZT;
- __tmp__PAV=Self__J5U->parent_arrayed_collection__JWF.capacity__TZT;
- new__0CEC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__OAV)),((__UINTEGER_32 )(__INTEGER)(__tmp__PAV * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__L5U * ((__INTEGER )(sizeof(void *)))))));
- __tmp__ODEC=(__INTEGER)(new_capacity__L5U - 1);
- Self__JMVD=__tmp__PAV;
- while ((Self__JMVD <= __tmp__ODEC)) {
- new__0CEC[Self__JMVD]=NULL;
- Self__JMVD=(__INTEGER)(Self__JMVD + 1);
- };
- Self__J5U->parent_arrayed_collection__JWF.storage__4ZT=new__0CEC;
- Self__J5U->parent_arrayed_collection__JWF.capacity__TZT=new_capacity__L5U;
- Self__J5U->parent_arrayed_collection__JWF.upper__NJL=(__INTEGER)(Self__J5U->parent_arrayed_collection__JWF.upper__NJL + 1);
- };
- };
- ((void **)Self__J5U->parent_arrayed_collection__JWF.storage__4ZT)[Self__J5U->parent_arrayed_collection__JWF.upper__NJL]=element__K5U;
-}
-
-static void* copy__5BI(void *tmp__BCI)
-// ({NULLxFAST_ARRAYoITM_CODEo}) With resultNo recursive, No inlinable.
-{
- __INTEGER new_capacity__KZT,other_upper__JZT,Self__Q3JC;
- void *result__DCI;
- __FAST_ARRAYoITM_CODEo *Self__HZT;
- void **__tmp__B0T,**__tmp__D0T,**Self__CQCC;
- result__DCI=create_with_capacity__XXI((__INTEGER)(((__FAST_ARRAYoITM_CODEo *)tmp__BCI)->parent_arrayed_collection__JWF.upper__NJL + 1));
- Self__HZT=((__FAST_ARRAYoITM_CODEo *)result__DCI);
- new_capacity__KZT= 0;
- other_upper__JZT=((__FAST_ARRAYoITM_CODEo *)tmp__BCI)->parent_arrayed_collection__JWF.upper__NJL;
- if ((other_upper__JZT >= 0)) {
- new_capacity__KZT=(__INTEGER)(other_upper__JZT + 1);
- if ((Self__HZT->parent_arrayed_collection__JWF.capacity__TZT < new_capacity__KZT)) {
- Self__HZT->parent_arrayed_collection__JWF.storage__4ZT=create__KRQB(new_capacity__KZT);
- Self__HZT->parent_arrayed_collection__JWF.capacity__TZT=new_capacity__KZT;
- };
- __tmp__B0T=Self__HZT->parent_arrayed_collection__JWF.storage__4ZT;
- __tmp__D0T=((__FAST_ARRAYoITM_CODEo *)tmp__BCI)->parent_arrayed_collection__JWF.storage__4ZT;
- Self__CQCC=((void **)__tmp__B0T);
- Self__Q3JC=other_upper__JZT;
- while ((Self__Q3JC >= 0)) {
- Self__CQCC[Self__Q3JC]=((void **)__tmp__D0T)[Self__Q3JC];
- Self__Q3JC=(__INTEGER)(Self__Q3JC - 1);
- };
- };
- Self__HZT->parent_arrayed_collection__JWF.upper__NJL=other_upper__JZT;
- free__3XI(tmp__BCI);
- return(result__DCI);
-}
-
-static __BOOLEAN fast_has__RDV(__HASHED_SEToSTRING_CONSTANTo *Self__SDV,void *e__TDV)
-// ({HASHED_SEToSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
- void *node__3DV;
- node__3DV=((void **)Self__SDV->buckets__DEV)[(__INTEGER)(hash_code__RNW(e__TDV) % Self__SDV->capacity__HIT)];
- while ((! (((void *)node__3DV == (void *)NULL) || ((void *)((__HASHED_SET_NODEoSTRING_CONSTANTo *)node__3DV)->item__PEV == (void *)e__TDV)))) {
- node__3DV=((__HASHED_SET_NODEoSTRING_CONSTANTo *)node__3DV)->next__0EV;
- };
- return(((void *)node__3DV != (void *)NULL));
-}
-
-static void restore_context__EFL()
-// () VoidNo recursive, No inlinable.
-{
- __INTEGER beg__GFL,__tmp__YFL,__tmp__1FL,Self__YNM,new_capacity__CNIH;
- __INTEGER old_nb_elts__FNIH,upper__X2KH,Self__V2KH;
- __STRING *Self__DNIH;
- __CHARACTER ch__HNIH;
- __CHARACTER *Self__ENIH,*new__GNIH;
- beg__GFL= 0;
- if (is_shorter__LZ) {
- ((__STRING *)token__BED)->count__SGC= 0;
- beg__GFL=(__INTEGER)(old_position__ITI + old_short_derive__QTI);
- remove_between__to__MIT(output_code__SI,beg__GFL,(__INTEGER)((__INTEGER)(position__CCC + short_derive__PCC) - 1));
- __tmp__YFL=old_position__ITI;
- __tmp__1FL=(__INTEGER)(position__CCC - 1);
- Self__YNM=__tmp__YFL;
- while ((Self__YNM <= __tmp__1FL)) {
- Self__DNIH=((__STRING *)token__BED);
- ch__HNIH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(Self__YNM - 1)];
- new_capacity__CNIH= 0;
- if ((Self__DNIH->capacity__UCS <= Self__DNIH->count__SGC)) {
- if ((Self__DNIH->capacity__UCS == 0)) {
- Self__DNIH->capacity__UCS= 32;
- Self__DNIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__CNIH=(__INTEGER)(Self__DNIH->capacity__UCS << 1);
- Self__ENIH=((__CHARACTER *)Self__DNIH->storage__3CS);
- old_nb_elts__FNIH=Self__DNIH->capacity__UCS;
- new__GNIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__ENIH),((__UINTEGER_32 )old_nb_elts__FNIH),((__UINTEGER_32 )new_capacity__CNIH)));
- upper__X2KH=(__INTEGER)(new_capacity__CNIH - 1);
- Self__V2KH=old_nb_elts__FNIH;
- while ((Self__V2KH <= upper__X2KH)) {
- new__GNIH[Self__V2KH]='\0';
- Self__V2KH=(__INTEGER)(Self__V2KH + 1);
- };
- Self__DNIH->storage__3CS=new__GNIH;
- Self__DNIH->capacity__UCS=new_capacity__CNIH;
- };
- };
- ((__CHARACTER *)Self__DNIH->storage__3CS)[Self__DNIH->count__SGC]=ch__HNIH;
- Self__DNIH->count__SGC=(__INTEGER)(Self__DNIH->count__SGC + 1);
- Self__YNM=(__INTEGER)(Self__YNM + 1);
- };
- insert_string__to__OXU(output_code__SI,token__BED,beg__GFL);
- short_derive__PCC=old_short_derive__QTI;
- };
- position__CCC=old_position__ITI;
- pos_cur__FCC=old_pos_cur__KTI;
- pos_line__GCC=old_pos_line__MTI;
- pos_col__HCC=old_pos_col__OTI;
-}
-
-static void* read_expr_message__LXL(__PARSER *Self__MXL)
-// ({PARSER}) With resultNo recursive, No inlinable.
-{
- void *result__B3L,*result__OXL;
- __POSITION pos__52ZG,p__U35,pos__H3ZG;
- __ITM_OLD *result__KQGB;
- __POINTER ptr__LQGB,ptr_table__22KH,next__12KH,result__32KH;
- __POINTER ptr_table__B3KH,next__A3KH,result__C3KH;
- __INTEGER typ_id__QQGB;
- __UINTEGER_32 sz__NQGB,a__UFGH,new_size__VFGH,t__ZFGH,a__YFGH;
- __UINTEGER_32 new_size__E3KH,lab_type__D3KH;
- __BOOLEAN result__02KH,result__F3KH;
- __CHARACTER result__G3KH;
- result__B3L=NULL;
- result__02KH=read_word__ISF((&__string_8));
- if (is_shorter__LZ) {
- if (result__02KH) {
- if (((void *)(&__string_8) == (void *)(&__string_4))) {
- short__token__to__GDD((&__string_120),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- } else {
- short__token__to__GDD((&__string_119),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- };
- };
- };
- if (result__02KH) {
- if (((void *)read_expr__DBJ(Self__MXL) == (void *)NULL)) {
- pos__52ZG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_325));
- put_position__FRG(pos__52ZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- p__U35=current_position__B0F();
- result__KQGB=NULL;
- ptr__LQGB=((__POINTER )(NULL));
- typ_id__QQGB= 0;
- sz__NQGB=((__UINTEGER_32 )sizeof(__ITM_OLD));
- if ((sz__NQGB == 0)) {
- result__KQGB=ITM_OLD__;
- } else {
- typ_id__QQGB=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__NQGB);
- if ((typ_id__QQGB == (__INTEGER)(- 1))) {
- a__UFGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__VFGH=(__UINTEGER_32)((__UINTEGER_32)(sz__NQGB + a__UFGH) & (__UINTEGER_32)(~ a__UFGH));
- ptr_table__22KH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__VFGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__12KH=((__POINTER )(NULL));
- result__32KH=((__POINTER *)ptr_table__22KH)[ 0];
- if ((result__32KH == (void *)NULL)) {
- result__32KH=new_lab__RTJ(new_size__VFGH);
- next__12KH=(void *)((unsigned long)result__32KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VFGH)));
- ((__POINTER *)next__12KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__22KH)[ 0]=next__12KH;
- } else {
- next__12KH=((__POINTER *)result__32KH)[ 0];
- if ((next__12KH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__32KH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__VFGH << 1)) <= 4096)) {
- next__12KH=(void *)((unsigned long)result__32KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__VFGH)));
- } else {
- next__12KH=new_lab__RTJ(new_size__VFGH);
- };
- ((__POINTER *)next__12KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__22KH)[ 0]=next__12KH;
- } else {
- ((__POINTER *)result__32KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__12KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__32KH=next__12KH;
- };
- };
- ptr__LQGB=result__32KH;
- } else {
- t__ZFGH=((__UINTEGER_32 )typ_id__QQGB);
- a__YFGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__E3KH=(__UINTEGER_32)((__UINTEGER_32)(sz__NQGB + a__YFGH) & (__UINTEGER_32)(~ a__YFGH));
- ptr_table__B3KH=((__POINTER )(&(table_type[(t__ZFGH)])));
- lab_type__D3KH=(__UINTEGER_32)(t__ZFGH | 1);
- next__A3KH=((__POINTER )(NULL));
- result__C3KH=((__POINTER *)ptr_table__B3KH)[ 0];
- if ((result__C3KH == (void *)NULL)) {
- result__C3KH=new_lab__RTJ(lab_type__D3KH);
- next__A3KH=(void *)((unsigned long)result__C3KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__E3KH)));
- ((__POINTER *)next__A3KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__B3KH)[ 0]=next__A3KH;
- } else {
- next__A3KH=((__POINTER *)result__C3KH)[ 0];
- if ((next__A3KH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__C3KH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__E3KH << 1)) <= 4096)) {
- next__A3KH=(void *)((unsigned long)result__C3KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__E3KH)));
- } else {
- next__A3KH=new_lab__RTJ(lab_type__D3KH);
- };
- ((__POINTER *)next__A3KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__B3KH)[ 0]=next__A3KH;
- } else {
- ((__POINTER *)result__C3KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__A3KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__C3KH=next__A3KH;
- };
- };
- ptr__LQGB=result__C3KH;
- };
- result__KQGB=((__ITM_OLD *)ptr__LQGB);
- *(result__KQGB) = *(ITM_OLD__);
- };
- ((__ITM_OLD *)result__KQGB)->parent_itm_code__W3L.parent_itm_object__PFE.position__SFJ=p__U35;
- result__B3L=result__KQGB;
- } else {
- result__B3L=read_expr_primary__E5M(Self__MXL);
- if (((void *)result__B3L == (void *)NULL)) {
- result__B3L=read_send_msg__I5N(Self__MXL,NULL);
- };
- };
- result__OXL=result__B3L;
- if (((void *)result__B3L != (void *)NULL)) {
- while_do__E0M:
- {
- result__F3KH=FALSE__;
- if ((! read_space__XTD())) {
- result__F3KH=FALSE__;
- } else {
- result__G3KH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__G3KH=((__CHARACTER )(( 0)));
- } else {
- result__G3KH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__G3KH == '.')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__F3KH=TRUE__;
- };
- };
- if (result__F3KH) {
- result__OXL=read_send_msg__I5N(Self__MXL,result__OXL);
- if (((void *)result__OXL == (void *)NULL)) {
- pos__H3ZG=current_position__B0F();
- put_error__text__1PG( 0,(&__string_326));
- put_position__FRG(pos__H3ZG);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- goto while_do__E0M;
- };
- };
- };
- return(result__OXL);
-}
-
-static void free__3XI(void *tmp__5XI)
-// ({NULLxFAST_ARRAYoITM_CODEo}) VoidNo recursive, No inlinable.
-{
- __INTEGER new_capacity__RBU,__tmp__ZCU,__tmp__O3DC,Self__MGVD;
- __FAST_ARRAYoFAST_ARRAYoITM_CODEoo *Self__PBU;
- __BOOLEAN __tmp__ACU;
- void **__tmp__YCU,**new__02DC;
- ((__FAST_ARRAYoITM_CODEo *)tmp__5XI)->parent_arrayed_collection__JWF.upper__NJL=(__INTEGER)(- 1);
- Self__PBU=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__QAI);
- new_capacity__RBU= 0;
- if (((__INTEGER)(Self__PBU->parent_arrayed_collection__PAI.upper__BYT + 1) <= (__INTEGER)(Self__PBU->parent_arrayed_collection__PAI.capacity__TBU - 1))) {
- Self__PBU->parent_arrayed_collection__PAI.upper__BYT=(__INTEGER)(Self__PBU->parent_arrayed_collection__PAI.upper__BYT + 1);
- __tmp__ACU=TRUE__;
- } else {
- __tmp__ACU=FALSE__;
- };
- if ((! __tmp__ACU)) {
- if ((Self__PBU->parent_arrayed_collection__PAI.capacity__TBU == 0)) {
- Self__PBU->parent_arrayed_collection__PAI.storage__PCU=create__3ZPB( 2);
- Self__PBU->parent_arrayed_collection__PAI.capacity__TBU= 2;
- Self__PBU->parent_arrayed_collection__PAI.upper__BYT= 0;
- } else {
- new_capacity__RBU=(__INTEGER)(Self__PBU->parent_arrayed_collection__PAI.capacity__TBU << 1);
- __tmp__YCU=Self__PBU->parent_arrayed_collection__PAI.storage__PCU;
- __tmp__ZCU=Self__PBU->parent_arrayed_collection__PAI.capacity__TBU;
- new__02DC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__YCU)),((__UINTEGER_32 )(__INTEGER)(__tmp__ZCU * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__RBU * ((__INTEGER )(sizeof(void *)))))));
- __tmp__O3DC=(__INTEGER)(new_capacity__RBU - 1);
- Self__MGVD=__tmp__ZCU;
- while ((Self__MGVD <= __tmp__O3DC)) {
- new__02DC[Self__MGVD]=NULL;
- Self__MGVD=(__INTEGER)(Self__MGVD + 1);
- };
- Self__PBU->parent_arrayed_collection__PAI.storage__PCU=new__02DC;
- Self__PBU->parent_arrayed_collection__PAI.capacity__TBU=new_capacity__RBU;
- Self__PBU->parent_arrayed_collection__PAI.upper__BYT=(__INTEGER)(Self__PBU->parent_arrayed_collection__PAI.upper__BYT + 1);
- };
- };
- ((void **)Self__PBU->parent_arrayed_collection__PAI.storage__PCU)[Self__PBU->parent_arrayed_collection__PAI.upper__BYT]=tmp__5XI;
-}
-
-static void display_raw__MLIC(__ITM_TYPE_MULTI *Self__NLIC,void *buffer__OLIC)
-// ({ITM_TYPE_MULTI},{NULLxSTRING}) VoidRecursive, No inlinable.
-{
- __INTEGER __tmp__VLIC,Self__JLRC,new_capacity__INIH,old_nb_elts__LNIH;
- __INTEGER upper__L3KH,Self__J3KH,new_capacity__ONIH,old_nb_elts__RNIH;
- __INTEGER upper__Q3KH,Self__O3KH,new_capacity__UNIH,old_nb_elts__XNIH;
- __INTEGER upper__V3KH,Self__T3KH;
- void *__tmp__2LIC,*__tmp__5LIC;
- __ITM_TYPE_STYLE *Self__UFHH,*Self__WFHH;
- __STRING *Self__JNIH,*Self__PNIH,*Self__VNIH;
- __CHARACTER *Self__KNIH,*new__MNIH,*Self__QNIH,*new__SNIH,*Self__WNIH;
- __CHARACTER *new__YNIH;
- __FAST_ARRAYoITM_TYPE_MONOo *Self__LGGH;
- __tmp__VLIC=(__INTEGER)(((__FAST_ARRAYoITM_TYPE_MONOo *)Self__NLIC->list_type__2KP)->parent_arrayed_collection__SYC.upper__4HV - 1);
- Self__JLRC= 0;
- while ((Self__JLRC <= __tmp__VLIC)) {
- __tmp__2LIC=((void **)((__FAST_ARRAYoITM_TYPE_MONOo *)Self__NLIC->list_type__2KP)->parent_arrayed_collection__SYC.storage__FMV)[Self__JLRC];
- switch (((struct ___OBJ *)__tmp__2LIC)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- append__3OS(buffer__OLIC,((__ITM_TYPE_PARAMETER *)__tmp__2LIC)->parent_itm_type__VFE.name__GZP);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- append__3OS(buffer__OLIC,((__ITM_TYPE_SIMPLE *)__tmp__2LIC)->name__GZP);
- } break;
- case __ITM_TYPE_BLOCK__: {
- append_in__PJPD(__tmp__2LIC,buffer__OLIC);
- } break;
- case __ITM_TYPE_GENERIC__: {
- append_in__TKPD(__tmp__2LIC,buffer__OLIC);
- } break;
- case __ITM_TYPE_STYLE__: {
- Self__UFHH=((__ITM_TYPE_STYLE *)__tmp__2LIC);
- if (((void *)Self__UFHH->style__PZP != (void *)NULL)) {
- append__3OS(buffer__OLIC,Self__UFHH->style__PZP);
- Self__JNIH=((__STRING *)buffer__OLIC);
- new_capacity__INIH= 0;
- if ((Self__JNIH->capacity__UCS <= Self__JNIH->count__SGC)) {
- if ((Self__JNIH->capacity__UCS == 0)) {
- Self__JNIH->capacity__UCS= 32;
- Self__JNIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__INIH=(__INTEGER)(Self__JNIH->capacity__UCS << 1);
- Self__KNIH=((__CHARACTER *)Self__JNIH->storage__3CS);
- old_nb_elts__LNIH=Self__JNIH->capacity__UCS;
- new__MNIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__KNIH),((__UINTEGER_32 )old_nb_elts__LNIH),((__UINTEGER_32 )new_capacity__INIH)));
- upper__L3KH=(__INTEGER)(new_capacity__INIH - 1);
- Self__J3KH=old_nb_elts__LNIH;
- while ((Self__J3KH <= upper__L3KH)) {
- new__MNIH[Self__J3KH]='\0';
- Self__J3KH=(__INTEGER)(Self__J3KH + 1);
- };
- Self__JNIH->storage__3CS=new__MNIH;
- Self__JNIH->capacity__UCS=new_capacity__INIH;
- };
- };
- ((__CHARACTER *)Self__JNIH->storage__3CS)[Self__JNIH->count__SGC]=' ';
- Self__JNIH->count__SGC=(__INTEGER)(Self__JNIH->count__SGC + 1);
- };
- append__3OS(buffer__OLIC,Self__UFHH->parent_itm_type_simple__3SN.name__GZP);
- } break;
- };
- Self__PNIH=((__STRING *)buffer__OLIC);
- new_capacity__ONIH= 0;
- if ((Self__PNIH->capacity__UCS <= Self__PNIH->count__SGC)) {
- if ((Self__PNIH->capacity__UCS == 0)) {
- Self__PNIH->capacity__UCS= 32;
- Self__PNIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__ONIH=(__INTEGER)(Self__PNIH->capacity__UCS << 1);
- Self__QNIH=((__CHARACTER *)Self__PNIH->storage__3CS);
- old_nb_elts__RNIH=Self__PNIH->capacity__UCS;
- new__SNIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__QNIH),((__UINTEGER_32 )old_nb_elts__RNIH),((__UINTEGER_32 )new_capacity__ONIH)));
- upper__Q3KH=(__INTEGER)(new_capacity__ONIH - 1);
- Self__O3KH=old_nb_elts__RNIH;
- while ((Self__O3KH <= upper__Q3KH)) {
- new__SNIH[Self__O3KH]='\0';
- Self__O3KH=(__INTEGER)(Self__O3KH + 1);
- };
- Self__PNIH->storage__3CS=new__SNIH;
- Self__PNIH->capacity__UCS=new_capacity__ONIH;
- };
- };
- ((__CHARACTER *)Self__PNIH->storage__3CS)[Self__PNIH->count__SGC]=',';
- Self__PNIH->count__SGC=(__INTEGER)(Self__PNIH->count__SGC + 1);
- Self__JLRC=(__INTEGER)(Self__JLRC + 1);
- };
- Self__LGGH=((__FAST_ARRAYoITM_TYPE_MONOo *)Self__NLIC->list_type__2KP);
- __tmp__5LIC=((void **)Self__LGGH->parent_arrayed_collection__SYC.storage__FMV)[Self__LGGH->parent_arrayed_collection__SYC.upper__4HV];
- switch (((struct ___OBJ *)__tmp__5LIC)->__id) {
- case __ITM_TYPE_PARAMETER__: {
- append__3OS(buffer__OLIC,((__ITM_TYPE_PARAMETER *)__tmp__5LIC)->parent_itm_type__VFE.name__GZP);
- } break;
- case __ITM_TYPE_SIMPLE__: {
- append__3OS(buffer__OLIC,((__ITM_TYPE_SIMPLE *)__tmp__5LIC)->name__GZP);
- } break;
- case __ITM_TYPE_BLOCK__: {
- append_in__PJPD(__tmp__5LIC,buffer__OLIC);
- } break;
- case __ITM_TYPE_GENERIC__: {
- append_in__TKPD(__tmp__5LIC,buffer__OLIC);
- } break;
- case __ITM_TYPE_STYLE__: {
- Self__WFHH=((__ITM_TYPE_STYLE *)__tmp__5LIC);
- if (((void *)Self__WFHH->style__PZP != (void *)NULL)) {
- append__3OS(buffer__OLIC,Self__WFHH->style__PZP);
- Self__VNIH=((__STRING *)buffer__OLIC);
- new_capacity__UNIH= 0;
- if ((Self__VNIH->capacity__UCS <= Self__VNIH->count__SGC)) {
- if ((Self__VNIH->capacity__UCS == 0)) {
- Self__VNIH->capacity__UCS= 32;
- Self__VNIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__UNIH=(__INTEGER)(Self__VNIH->capacity__UCS << 1);
- Self__WNIH=((__CHARACTER *)Self__VNIH->storage__3CS);
- old_nb_elts__XNIH=Self__VNIH->capacity__UCS;
- new__YNIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__WNIH),((__UINTEGER_32 )old_nb_elts__XNIH),((__UINTEGER_32 )new_capacity__UNIH)));
- upper__V3KH=(__INTEGER)(new_capacity__UNIH - 1);
- Self__T3KH=old_nb_elts__XNIH;
- while ((Self__T3KH <= upper__V3KH)) {
- new__YNIH[Self__T3KH]='\0';
- Self__T3KH=(__INTEGER)(Self__T3KH + 1);
- };
- Self__VNIH->storage__3CS=new__YNIH;
- Self__VNIH->capacity__UCS=new_capacity__UNIH;
- };
- };
- ((__CHARACTER *)Self__VNIH->storage__3CS)[Self__VNIH->count__SGC]=' ';
- Self__VNIH->count__SGC=(__INTEGER)(Self__VNIH->count__SGC + 1);
- };
- append__3OS(buffer__OLIC,Self__WFHH->parent_itm_type_simple__3SN.name__GZP);
- } break;
- };
-}
-
-static void put__to__like__URGG(void *tok__WRGG,void *buf__XRGG,void *key__YRGG)
-// ({NULLxSTRING_CONSTANT},{NULLxSTRING},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
- __INTEGER __tmp__JSGG,Self__5CIG;
- void *lst__ZRGG;
- lst__ZRGG=NULL;
- if (((void *)key__YRGG != (void *)NULL)) {
- lst__ZRGG=fast_reference_at__CMNE(short_dico__QD,key__YRGG);
- if (((void *)lst__ZRGG != (void *)NULL)) {
- __tmp__JSGG=((__LINKED_LISToSTRING_CONSTANTo *)lst__ZRGG)->parent_linked_collection__LD.upper__0ED;
- Self__5CIG= 1;
- while ((Self__5CIG <= __tmp__JSGG)) {
- if (((void *)item__X3ND(lst__ZRGG,Self__5CIG) == (void *)NULL)) {
- append__3OS(buf__XRGG,tok__WRGG);
- } else {
- append__3OS(buf__XRGG,item__X3ND(lst__ZRGG,Self__5CIG));
- };
- Self__5CIG=(__INTEGER)(Self__5CIG + 1);
- };
- };
- };
-}
-
-static void put__to__like__NYDG(void *tok__PYDG,void *buf__QYDG,void *key__RYDG)
-// ({NULLxSTRING_CONSTANT},{NULLxSTRING},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
- __INTEGER __tmp__CZDG,Self__X1HG;
- void *lst__SYDG;
- lst__SYDG=NULL;
- if (((void *)key__RYDG != (void *)NULL)) {
- lst__SYDG=fast_reference_at__CMNE(short_dico__QD,key__RYDG);
- if (((void *)lst__SYDG != (void *)NULL)) {
- __tmp__CZDG=((__LINKED_LISToSTRING_CONSTANTo *)lst__SYDG)->parent_linked_collection__LD.upper__0ED;
- Self__X1HG= 1;
- while ((Self__X1HG <= __tmp__CZDG)) {
- if (((void *)item__X3ND(lst__SYDG,Self__X1HG) == (void *)NULL)) {
- append__3OS(buf__QYDG,tok__PYDG);
- } else {
- append__3OS(buf__QYDG,item__X3ND(lst__SYDG,Self__X1HG));
- };
- Self__X1HG=(__INTEGER)(Self__X1HG + 1);
- };
- };
- };
-}
-
-static void put__to__like__GVFG(void *tok__IVFG,void *buf__JVFG)
-// ({STRING_CONSTANT},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
- __INTEGER __tmp__1VFG,Self__KAIG;
- void *lst__LVFG;
- lst__LVFG=NULL;
- if (((void *)(&__string_133) != (void *)NULL)) {
- lst__LVFG=fast_reference_at__CMNE(short_dico__QD,(&__string_133));
- if (((void *)lst__LVFG != (void *)NULL)) {
- __tmp__1VFG=((__LINKED_LISToSTRING_CONSTANTo *)lst__LVFG)->parent_linked_collection__LD.upper__0ED;
- Self__KAIG= 1;
- while ((Self__KAIG <= __tmp__1VFG)) {
- if (((void *)item__X3ND(lst__LVFG,Self__KAIG) == (void *)NULL)) {
- append__3OS(buf__JVFG,tok__IVFG);
- } else {
- append__3OS(buf__JVFG,item__X3ND(lst__LVFG,Self__KAIG));
- };
- Self__KAIG=(__INTEGER)(Self__KAIG + 1);
- };
- };
- };
-}
-
-static void put__to__like__ZXFG(void *tok__1XFG,void *buf__2XFG,void *key__3XFG)
-// ({NULLxSTRING_CONSTANT},{NULLxSTRING},{STRING_CONSTANT}) VoidNo recursive, No inlinable.
-{
- __INTEGER __tmp__OYFG,Self__1AIG;
- void *lst__4XFG;
- lst__4XFG=NULL;
- if (((void *)key__3XFG != (void *)NULL)) {
- lst__4XFG=fast_reference_at__CMNE(short_dico__QD,key__3XFG);
- if (((void *)lst__4XFG != (void *)NULL)) {
- __tmp__OYFG=((__LINKED_LISToSTRING_CONSTANTo *)lst__4XFG)->parent_linked_collection__LD.upper__0ED;
- Self__1AIG= 1;
- while ((Self__1AIG <= __tmp__OYFG)) {
- if (((void *)item__X3ND(lst__4XFG,Self__1AIG) == (void *)NULL)) {
- append__3OS(buf__2XFG,tok__1XFG);
- } else {
- append__3OS(buf__2XFG,item__X3ND(lst__4XFG,Self__1AIG));
- };
- Self__1AIG=(__INTEGER)(Self__1AIG + 1);
- };
- };
- };
-}
-
-static __BOOLEAN is_hexadecimal_digit__DQJE(__CHARACTER Self__EQJE)
-// ({CHARACTER}) With resultNo recursive, No inlinable.
-{
- __BOOLEAN result__GQJE,result__NGGH,__tmp__OQJE,__tmp__3QJE;
- __BOOLEAN result__ZIOE;
- result__GQJE=FALSE__;
- result__NGGH=FALSE__;
- if ((((__INTEGER_8 )Self__EQJE) >= ((__INTEGER_8 )'0'))) {
- result__NGGH=(((__INTEGER_8 )Self__EQJE) <= ((__INTEGER_8 )'9'));
- };
- if (result__NGGH) {
- result__GQJE=TRUE__;
- __tmp__OQJE=TRUE__;
- } else {
- __tmp__OQJE=FALSE__;
- };
- if (__tmp__OQJE) {
- __tmp__3QJE=TRUE__;
- } else {
- result__ZIOE=(((__INTEGER_8 )Self__EQJE) >= ((__INTEGER_8 )'a'));
- if (result__ZIOE) {
- result__GQJE=(((__INTEGER_8 )Self__EQJE) <= ((__INTEGER_8 )'f'));
- };
- __tmp__3QJE=result__ZIOE;
- };
- if ((! __tmp__3QJE)) {
- if ((((__INTEGER_8 )Self__EQJE) >= ((__INTEGER_8 )'A'))) {
- result__GQJE=(((__INTEGER_8 )Self__EQJE) <= ((__INTEGER_8 )'F'));
- };
- };
- return(result__GQJE);
-}
-
-static void* read_constant__XRO()
-// () With resultNo recursive, No inlinable.
-{
- void *result__0RO;
- __INTEGER pos_old__LAP,new_capacity__0NIH,old_nb_elts__3NIH;
- __INTEGER upper__03KH,Self__Y3KH,new_capacity__AOIH,old_nb_elts__DOIH;
- __INTEGER upper__53KH,Self__33KH,new_capacity__GOIH,old_nb_elts__JOIH;
- __INTEGER upper__E4KH,Self__C4KH,new_capacity__MOIH,old_nb_elts__POIH;
- __INTEGER upper__J4KH,Self__H4KH,new_capacity__SOIH,old_nb_elts__VOIH;
- __INTEGER upper__O4KH,Self__M4KH,new_capacity__YOIH,old_nb_elts__1OIH;
- __INTEGER upper__T4KH,Self__R4KH,new_capacity__4OIH,old_nb_elts__BPIH;
- __INTEGER upper__Y4KH,Self__W4KH,new_capacity__EPIH,old_nb_elts__HPIH;
- __INTEGER upper__34KH,Self__14KH,new_capacity__KPIH,old_nb_elts__NPIH;
- __INTEGER upper__C5KH,Self__A5KH,typ_id__0QQ,typ_id__PNMB;
- __INTEGER old_pos__2CQ,count__3CQ,new_capacity__QPIH;
- __INTEGER old_nb_elts__TPIH,upper__15KH,Self__Z5KH,typ_id__DPMB;
- __INTEGER typ_id__XQMB;
- __STRING *Self__1NIH,*Self__BOIH,*Self__HOIH,*Self__NOIH,*Self__TOIH;
- __STRING *Self__ZOIH,*Self__5OIH,*Self__FPIH,*Self__LPIH,*Self__RPIH;
- __POSITION pos__EE0G,__tmp__CSO,__tmp__USO,pos__EF0G,pos__GF0G;
- __POSITION __tmp__GTO,__tmp__XTO;
- __ITM_REAL *result__UQQ;
- __POINTER ptr__VQQ,ptr_table__F5KH,next__E5KH,result__G5KH;
- __POINTER ptr_table__K5KH,next__J5KH,result__L5KH,ptr__KNMB;
- __POINTER ptr_table__P5KH,next__O5KH,result__Q5KH,ptr_table__U5KH;
- __POINTER next__T5KH,result__V5KH,ptr__4OMB,ptr_table__45KH;
- __POINTER next__35KH,result__55KH,ptr_table__DALH,next__CALH;
- __POINTER result__EALH,ptr__SQMB,ptr_table__IALH,next__HALH;
- __POINTER result__JALH,ptr_table__NALH,next__MALH,result__OALH;
- __UINTEGER_32 sz__XQQ,a__3GGH,new_size__4GGH,t__CHGH,a__BHGH;
- __UINTEGER_32 new_size__N5KH,lab_type__M5KH,sz__MNMB,a__FHGH;
- __UINTEGER_32 new_size__GHGH,t__KHGH,a__JHGH,new_size__X5KH;
- __UINTEGER_32 lab_type__W5KH,sz__APMB,a__NHGH,new_size__OHGH,t__SHGH;
- __UINTEGER_32 a__RHGH,new_size__GALH,lab_type__FALH,sz__UQMB,a__VHGH;
- __UINTEGER_32 new_size__WHGH,t__0HGH,a__ZHGH,new_size__QALH;
- __UINTEGER_32 lab_type__PALH;
- __ITM_NUMBER *result__JNMB;
- __ITM_CHARACTER *result__3OMB;
- __ITM_STRING *result__RQMB;
- __BOOLEAN result__KAP,result__PGGH,__tmp__WAP,result__RGGH,__tmp__QBP;
- __BOOLEAN result__TGGH,result__VGGH,__tmp__3DP,result__XGGH;
- __BOOLEAN result__ZGGH,__tmp__HSO,__tmp__ZSO,result__3GP,__tmp__KTO;
- __BOOLEAN result__1CQ,__tmp__HDQ,__tmp__GEQ,__tmp__HEQ;
- __CHARACTER result__YWBH,result__CXBH,result__HXBH,result__MXBH;
- __CHARACTER result__RXBH,result__WXBH,result__1XBH,result__AYBH;
- __CHARACTER result__FYBH,result__KYBH,result__PYBH,result__UYBH;
- __CHARACTER result__ZYBH,result__4YBH,result__DZBH,result__IZBH;
- __CHARACTER result__NZBH,result__SZBH,result__XZBH,result__2ZBH;
- __CHARACTER result__G0BH,result__P0BH,result__U0BH,result__Z0BH;
- __CHARACTER result__40BH,result__D1BH;
- __CHARACTER *Self__2NIH,*new__4NIH,*Self__COIH,*new__EOIH,*Self__IOIH;
- __CHARACTER *new__KOIH,*Self__OOIH,*new__QOIH,*Self__UOIH,*new__WOIH;
- __CHARACTER *Self__0OIH,*new__2OIH,*Self__APIH,*new__CPIH,*Self__GPIH;
- __CHARACTER *new__IPIH,*Self__MPIH,*new__OPIH,*Self__SPIH,*new__UPIH;
- result__0RO=NULL;
- result__KAP=FALSE__;
- pos_old__LAP= 0;
- if (read_space__XTD()) {
- result__YWBH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__YWBH=((__CHARACTER )(( 0)));
- } else {
- result__YWBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- result__PGGH=FALSE__;
- if ((((__INTEGER_8 )result__YWBH) >= ((__INTEGER_8 )'0'))) {
- result__PGGH=(((__INTEGER_8 )result__YWBH) <= ((__INTEGER_8 )'9'));
- };
- __tmp__WAP=result__PGGH;
- } else {
- __tmp__WAP=FALSE__;
- };
- if (__tmp__WAP) {
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- result__CXBH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__CXBH=((__CHARACTER )(( 0)));
- } else {
- result__CXBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- Self__1NIH=((__STRING *)string_tmp__VH);
- new_capacity__0NIH= 0;
- if ((Self__1NIH->capacity__UCS <= Self__1NIH->count__SGC)) {
- if ((Self__1NIH->capacity__UCS == 0)) {
- Self__1NIH->capacity__UCS= 32;
- Self__1NIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__0NIH=(__INTEGER)(Self__1NIH->capacity__UCS << 1);
- Self__2NIH=((__CHARACTER *)Self__1NIH->storage__3CS);
- old_nb_elts__3NIH=Self__1NIH->capacity__UCS;
- new__4NIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__2NIH),((__UINTEGER_32 )old_nb_elts__3NIH),((__UINTEGER_32 )new_capacity__0NIH)));
- upper__03KH=(__INTEGER)(new_capacity__0NIH - 1);
- Self__Y3KH=old_nb_elts__3NIH;
- while ((Self__Y3KH <= upper__03KH)) {
- new__4NIH[Self__Y3KH]='\0';
- Self__Y3KH=(__INTEGER)(Self__Y3KH + 1);
- };
- Self__1NIH->storage__3CS=new__4NIH;
- Self__1NIH->capacity__UCS=new_capacity__0NIH;
- };
- };
- ((__CHARACTER *)Self__1NIH->storage__3CS)[Self__1NIH->count__SGC]=result__CXBH;
- Self__1NIH->count__SGC=(__INTEGER)(Self__1NIH->count__SGC + 1);
- pos_old__LAP=position__CCC;
- position__CCC=(__INTEGER)(position__CCC + 1);
- while_do__GE0D:
- {
- result__HXBH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__HXBH=((__CHARACTER )(( 0)));
- } else {
- result__HXBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- result__RGGH=FALSE__;
- if ((((__INTEGER_8 )result__HXBH) >= ((__INTEGER_8 )'0'))) {
- result__RGGH=(((__INTEGER_8 )result__HXBH) <= ((__INTEGER_8 )'9'));
- };
- if (result__RGGH) {
- __tmp__QBP=TRUE__;
- } else {
- result__MXBH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__MXBH=((__CHARACTER )(( 0)));
- } else {
- result__MXBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__QBP=(result__MXBH == '_');
- };
- if (__tmp__QBP) {
- result__RXBH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__RXBH=((__CHARACTER )(( 0)));
- } else {
- result__RXBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__RXBH != '_')) {
- result__WXBH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__WXBH=((__CHARACTER )(( 0)));
- } else {
- result__WXBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- Self__BOIH=((__STRING *)string_tmp__VH);
- new_capacity__AOIH= 0;
- if ((Self__BOIH->capacity__UCS <= Self__BOIH->count__SGC)) {
- if ((Self__BOIH->capacity__UCS == 0)) {
- Self__BOIH->capacity__UCS= 32;
- Self__BOIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__AOIH=(__INTEGER)(Self__BOIH->capacity__UCS << 1);
- Self__COIH=((__CHARACTER *)Self__BOIH->storage__3CS);
- old_nb_elts__DOIH=Self__BOIH->capacity__UCS;
- new__EOIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__COIH),((__UINTEGER_32 )old_nb_elts__DOIH),((__UINTEGER_32 )new_capacity__AOIH)));
- upper__53KH=(__INTEGER)(new_capacity__AOIH - 1);
- Self__33KH=old_nb_elts__DOIH;
- while ((Self__33KH <= upper__53KH)) {
- new__EOIH[Self__33KH]='\0';
- Self__33KH=(__INTEGER)(Self__33KH + 1);
- };
- Self__BOIH->storage__3CS=new__EOIH;
- Self__BOIH->capacity__UCS=new_capacity__AOIH;
- };
- };
- ((__CHARACTER *)Self__BOIH->storage__3CS)[Self__BOIH->count__SGC]=result__WXBH;
- Self__BOIH->count__SGC=(__INTEGER)(Self__BOIH->count__SGC + 1);
- };
- position__CCC=(__INTEGER)(position__CCC + 1);
- goto while_do__GE0D;
- };
- };
- result__1XBH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__1XBH=((__CHARACTER )(( 0)));
- } else {
- result__1XBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__1XBH == '.')) {
- Self__HOIH=((__STRING *)string_tmp__VH);
- new_capacity__GOIH= 0;
- if ((Self__HOIH->capacity__UCS <= Self__HOIH->count__SGC)) {
- if ((Self__HOIH->capacity__UCS == 0)) {
- Self__HOIH->capacity__UCS= 32;
- Self__HOIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__GOIH=(__INTEGER)(Self__HOIH->capacity__UCS << 1);
- Self__IOIH=((__CHARACTER *)Self__HOIH->storage__3CS);
- old_nb_elts__JOIH=Self__HOIH->capacity__UCS;
- new__KOIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__IOIH),((__UINTEGER_32 )old_nb_elts__JOIH),((__UINTEGER_32 )new_capacity__GOIH)));
- upper__E4KH=(__INTEGER)(new_capacity__GOIH - 1);
- Self__C4KH=old_nb_elts__JOIH;
- while ((Self__C4KH <= upper__E4KH)) {
- new__KOIH[Self__C4KH]='\0';
- Self__C4KH=(__INTEGER)(Self__C4KH + 1);
- };
- Self__HOIH->storage__3CS=new__KOIH;
- Self__HOIH->capacity__UCS=new_capacity__GOIH;
- };
- };
- ((__CHARACTER *)Self__HOIH->storage__3CS)[Self__HOIH->count__SGC]='.';
- Self__HOIH->count__SGC=(__INTEGER)(Self__HOIH->count__SGC + 1);
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__AYBH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__AYBH=((__CHARACTER )(( 0)));
- } else {
- result__AYBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- result__TGGH=FALSE__;
- if ((((__INTEGER_8 )result__AYBH) >= ((__INTEGER_8 )'0'))) {
- result__TGGH=(((__INTEGER_8 )result__AYBH) <= ((__INTEGER_8 )'9'));
- };
- if (result__TGGH) {
- result__KAP=TRUE__;
- result__FYBH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__FYBH=((__CHARACTER )(( 0)));
- } else {
- result__FYBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- Self__NOIH=((__STRING *)string_tmp__VH);
- new_capacity__MOIH= 0;
- if ((Self__NOIH->capacity__UCS <= Self__NOIH->count__SGC)) {
- if ((Self__NOIH->capacity__UCS == 0)) {
- Self__NOIH->capacity__UCS= 32;
- Self__NOIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__MOIH=(__INTEGER)(Self__NOIH->capacity__UCS << 1);
- Self__OOIH=((__CHARACTER *)Self__NOIH->storage__3CS);
- old_nb_elts__POIH=Self__NOIH->capacity__UCS;
- new__QOIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__OOIH),((__UINTEGER_32 )old_nb_elts__POIH),((__UINTEGER_32 )new_capacity__MOIH)));
- upper__J4KH=(__INTEGER)(new_capacity__MOIH - 1);
- Self__H4KH=old_nb_elts__POIH;
- while ((Self__H4KH <= upper__J4KH)) {
- new__QOIH[Self__H4KH]='\0';
- Self__H4KH=(__INTEGER)(Self__H4KH + 1);
- };
- Self__NOIH->storage__3CS=new__QOIH;
- Self__NOIH->capacity__UCS=new_capacity__MOIH;
- };
- };
- ((__CHARACTER *)Self__NOIH->storage__3CS)[Self__NOIH->count__SGC]=result__FYBH;
- Self__NOIH->count__SGC=(__INTEGER)(Self__NOIH->count__SGC + 1);
- position__CCC=(__INTEGER)(position__CCC + 1);
- while_do__3SPE:
- {
- result__KYBH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__KYBH=((__CHARACTER )(( 0)));
- } else {
- result__KYBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- result__VGGH=FALSE__;
- if ((((__INTEGER_8 )result__KYBH) >= ((__INTEGER_8 )'0'))) {
- result__VGGH=(((__INTEGER_8 )result__KYBH) <= ((__INTEGER_8 )'9'));
- };
- if (result__VGGH) {
- result__PYBH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__PYBH=((__CHARACTER )(( 0)));
- } else {
- result__PYBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- Self__TOIH=((__STRING *)string_tmp__VH);
- new_capacity__SOIH= 0;
- if ((Self__TOIH->capacity__UCS <= Self__TOIH->count__SGC)) {
- if ((Self__TOIH->capacity__UCS == 0)) {
- Self__TOIH->capacity__UCS= 32;
- Self__TOIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__SOIH=(__INTEGER)(Self__TOIH->capacity__UCS << 1);
- Self__UOIH=((__CHARACTER *)Self__TOIH->storage__3CS);
- old_nb_elts__VOIH=Self__TOIH->capacity__UCS;
- new__WOIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__UOIH),((__UINTEGER_32 )old_nb_elts__VOIH),((__UINTEGER_32 )new_capacity__SOIH)));
- upper__O4KH=(__INTEGER)(new_capacity__SOIH - 1);
- Self__M4KH=old_nb_elts__VOIH;
- while ((Self__M4KH <= upper__O4KH)) {
- new__WOIH[Self__M4KH]='\0';
- Self__M4KH=(__INTEGER)(Self__M4KH + 1);
- };
- Self__TOIH->storage__3CS=new__WOIH;
- Self__TOIH->capacity__UCS=new_capacity__SOIH;
- };
- };
- ((__CHARACTER *)Self__TOIH->storage__3CS)[Self__TOIH->count__SGC]=result__PYBH;
- Self__TOIH->count__SGC=(__INTEGER)(Self__TOIH->count__SGC + 1);
- position__CCC=(__INTEGER)(position__CCC + 1);
- goto while_do__3SPE;
- };
- };
- };
- result__UYBH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__UYBH=((__CHARACTER )(( 0)));
- } else {
- result__UYBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__UYBH == 'E')) {
- result__KAP=TRUE__;
- Self__ZOIH=((__STRING *)string_tmp__VH);
- new_capacity__YOIH= 0;
- if ((Self__ZOIH->capacity__UCS <= Self__ZOIH->count__SGC)) {
- if ((Self__ZOIH->capacity__UCS == 0)) {
- Self__ZOIH->capacity__UCS= 32;
- Self__ZOIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__YOIH=(__INTEGER)(Self__ZOIH->capacity__UCS << 1);
- Self__0OIH=((__CHARACTER *)Self__ZOIH->storage__3CS);
- old_nb_elts__1OIH=Self__ZOIH->capacity__UCS;
- new__2OIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__0OIH),((__UINTEGER_32 )old_nb_elts__1OIH),((__UINTEGER_32 )new_capacity__YOIH)));
- upper__T4KH=(__INTEGER)(new_capacity__YOIH - 1);
- Self__R4KH=old_nb_elts__1OIH;
- while ((Self__R4KH <= upper__T4KH)) {
- new__2OIH[Self__R4KH]='\0';
- Self__R4KH=(__INTEGER)(Self__R4KH + 1);
- };
- Self__ZOIH->storage__3CS=new__2OIH;
- Self__ZOIH->capacity__UCS=new_capacity__YOIH;
- };
- };
- ((__CHARACTER *)Self__ZOIH->storage__3CS)[Self__ZOIH->count__SGC]='E';
- Self__ZOIH->count__SGC=(__INTEGER)(Self__ZOIH->count__SGC + 1);
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__ZYBH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__ZYBH=((__CHARACTER )(( 0)));
- } else {
- result__ZYBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__ZYBH == '+')) {
- __tmp__3DP=TRUE__;
- } else {
- result__4YBH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__4YBH=((__CHARACTER )(( 0)));
- } else {
- result__4YBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__3DP=(result__4YBH == '-');
- };
- if (__tmp__3DP) {
- result__DZBH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__DZBH=((__CHARACTER )(( 0)));
- } else {
- result__DZBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- Self__5OIH=((__STRING *)string_tmp__VH);
- new_capacity__4OIH= 0;
- if ((Self__5OIH->capacity__UCS <= Self__5OIH->count__SGC)) {
- if ((Self__5OIH->capacity__UCS == 0)) {
- Self__5OIH->capacity__UCS= 32;
- Self__5OIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__4OIH=(__INTEGER)(Self__5OIH->capacity__UCS << 1);
- Self__APIH=((__CHARACTER *)Self__5OIH->storage__3CS);
- old_nb_elts__BPIH=Self__5OIH->capacity__UCS;
- new__CPIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__APIH),((__UINTEGER_32 )old_nb_elts__BPIH),((__UINTEGER_32 )new_capacity__4OIH)));
- upper__Y4KH=(__INTEGER)(new_capacity__4OIH - 1);
- Self__W4KH=old_nb_elts__BPIH;
- while ((Self__W4KH <= upper__Y4KH)) {
- new__CPIH[Self__W4KH]='\0';
- Self__W4KH=(__INTEGER)(Self__W4KH + 1);
- };
- Self__5OIH->storage__3CS=new__CPIH;
- Self__5OIH->capacity__UCS=new_capacity__4OIH;
- };
- };
- ((__CHARACTER *)Self__5OIH->storage__3CS)[Self__5OIH->count__SGC]=result__DZBH;
- Self__5OIH->count__SGC=(__INTEGER)(Self__5OIH->count__SGC + 1);
- position__CCC=(__INTEGER)(position__CCC + 1);
- };
- result__IZBH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__IZBH=((__CHARACTER )(( 0)));
- } else {
- result__IZBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- result__XGGH=FALSE__;
- if ((((__INTEGER_8 )result__IZBH) >= ((__INTEGER_8 )'0'))) {
- result__XGGH=(((__INTEGER_8 )result__IZBH) <= ((__INTEGER_8 )'9'));
- };
- if (result__XGGH) {
- result__NZBH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__NZBH=((__CHARACTER )(( 0)));
- } else {
- result__NZBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- Self__FPIH=((__STRING *)string_tmp__VH);
- new_capacity__EPIH= 0;
- if ((Self__FPIH->capacity__UCS <= Self__FPIH->count__SGC)) {
- if ((Self__FPIH->capacity__UCS == 0)) {
- Self__FPIH->capacity__UCS= 32;
- Self__FPIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__EPIH=(__INTEGER)(Self__FPIH->capacity__UCS << 1);
- Self__GPIH=((__CHARACTER *)Self__FPIH->storage__3CS);
- old_nb_elts__HPIH=Self__FPIH->capacity__UCS;
- new__IPIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__GPIH),((__UINTEGER_32 )old_nb_elts__HPIH),((__UINTEGER_32 )new_capacity__EPIH)));
- upper__34KH=(__INTEGER)(new_capacity__EPIH - 1);
- Self__14KH=old_nb_elts__HPIH;
- while ((Self__14KH <= upper__34KH)) {
- new__IPIH[Self__14KH]='\0';
- Self__14KH=(__INTEGER)(Self__14KH + 1);
- };
- Self__FPIH->storage__3CS=new__IPIH;
- Self__FPIH->capacity__UCS=new_capacity__EPIH;
- };
- };
- ((__CHARACTER *)Self__FPIH->storage__3CS)[Self__FPIH->count__SGC]=result__NZBH;
- Self__FPIH->count__SGC=(__INTEGER)(Self__FPIH->count__SGC + 1);
- position__CCC=(__INTEGER)(position__CCC + 1);
- while_do__RORE:
- {
- result__SZBH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__SZBH=((__CHARACTER )(( 0)));
- } else {
- result__SZBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- result__ZGGH=FALSE__;
- if ((((__INTEGER_8 )result__SZBH) >= ((__INTEGER_8 )'0'))) {
- result__ZGGH=(((__INTEGER_8 )result__SZBH) <= ((__INTEGER_8 )'9'));
- };
- if (result__ZGGH) {
- result__XZBH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__XZBH=((__CHARACTER )(( 0)));
- } else {
- result__XZBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- Self__LPIH=((__STRING *)string_tmp__VH);
- new_capacity__KPIH= 0;
- if ((Self__LPIH->capacity__UCS <= Self__LPIH->count__SGC)) {
- if ((Self__LPIH->capacity__UCS == 0)) {
- Self__LPIH->capacity__UCS= 32;
- Self__LPIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__KPIH=(__INTEGER)(Self__LPIH->capacity__UCS << 1);
- Self__MPIH=((__CHARACTER *)Self__LPIH->storage__3CS);
- old_nb_elts__NPIH=Self__LPIH->capacity__UCS;
- new__OPIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__MPIH),((__UINTEGER_32 )old_nb_elts__NPIH),((__UINTEGER_32 )new_capacity__KPIH)));
- upper__C5KH=(__INTEGER)(new_capacity__KPIH - 1);
- Self__A5KH=old_nb_elts__NPIH;
- while ((Self__A5KH <= upper__C5KH)) {
- new__OPIH[Self__A5KH]='\0';
- Self__A5KH=(__INTEGER)(Self__A5KH + 1);
- };
- Self__LPIH->storage__3CS=new__OPIH;
- Self__LPIH->capacity__UCS=new_capacity__KPIH;
- };
- };
- ((__CHARACTER *)Self__LPIH->storage__3CS)[Self__LPIH->count__SGC]=result__XZBH;
- Self__LPIH->count__SGC=(__INTEGER)(Self__LPIH->count__SGC + 1);
- position__CCC=(__INTEGER)(position__CCC + 1);
- goto while_do__RORE;
- };
- };
- } else {
- pos__EE0G=current_position__B0F();
- put_error__text__1PG( 0,(&__string_327));
- put_position__FRG(pos__EE0G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- };
- if (result__KAP) {
- get__YWB(string_tmp__VH);
- } else {
- position__CCC=pos_old__LAP;
- };
- };
- if (result__KAP) {
- short__token__to__GDD((&__string_121),pos_old__LAP,position__CCC);
- };
- if (result__KAP) {
- __tmp__CSO=current_position__B0F();
- result__UQQ=NULL;
- ptr__VQQ=((__POINTER )(NULL));
- typ_id__0QQ= 0;
- sz__XQQ=((__UINTEGER_32 )sizeof(__ITM_REAL));
- if ((sz__XQQ == 0)) {
- result__UQQ=ITM_REAL__;
- } else {
- typ_id__0QQ=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__XQQ);
- if ((typ_id__0QQ == (__INTEGER)(- 1))) {
- a__3GGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__4GGH=(__UINTEGER_32)((__UINTEGER_32)(sz__XQQ + a__3GGH) & (__UINTEGER_32)(~ a__3GGH));
- ptr_table__F5KH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__4GGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__E5KH=((__POINTER )(NULL));
- result__G5KH=((__POINTER *)ptr_table__F5KH)[ 0];
- if ((result__G5KH == (void *)NULL)) {
- result__G5KH=new_lab__RTJ(new_size__4GGH);
- next__E5KH=(void *)((unsigned long)result__G5KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4GGH)));
- ((__POINTER *)next__E5KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__F5KH)[ 0]=next__E5KH;
- } else {
- next__E5KH=((__POINTER *)result__G5KH)[ 0];
- if ((next__E5KH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__G5KH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__4GGH << 1)) <= 4096)) {
- next__E5KH=(void *)((unsigned long)result__G5KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__4GGH)));
- } else {
- next__E5KH=new_lab__RTJ(new_size__4GGH);
- };
- ((__POINTER *)next__E5KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__F5KH)[ 0]=next__E5KH;
- } else {
- ((__POINTER *)result__G5KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__E5KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__G5KH=next__E5KH;
- };
- };
- ptr__VQQ=result__G5KH;
- } else {
- t__CHGH=((__UINTEGER_32 )typ_id__0QQ);
- a__BHGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__N5KH=(__UINTEGER_32)((__UINTEGER_32)(sz__XQQ + a__BHGH) & (__UINTEGER_32)(~ a__BHGH));
- ptr_table__K5KH=((__POINTER )(&(table_type[(t__CHGH)])));
- lab_type__M5KH=(__UINTEGER_32)(t__CHGH | 1);
- next__J5KH=((__POINTER )(NULL));
- result__L5KH=((__POINTER *)ptr_table__K5KH)[ 0];
- if ((result__L5KH == (void *)NULL)) {
- result__L5KH=new_lab__RTJ(lab_type__M5KH);
- next__J5KH=(void *)((unsigned long)result__L5KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__N5KH)));
- ((__POINTER *)next__J5KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__K5KH)[ 0]=next__J5KH;
- } else {
- next__J5KH=((__POINTER *)result__L5KH)[ 0];
- if ((next__J5KH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__L5KH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__N5KH << 1)) <= 4096)) {
- next__J5KH=(void *)((unsigned long)result__L5KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__N5KH)));
- } else {
- next__J5KH=new_lab__RTJ(lab_type__M5KH);
- };
- ((__POINTER *)next__J5KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__K5KH)[ 0]=next__J5KH;
- } else {
- ((__POINTER *)result__L5KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__J5KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__L5KH=next__J5KH;
- };
- };
- ptr__VQQ=result__L5KH;
- };
- result__UQQ=((__ITM_REAL *)ptr__VQQ);
- *(result__UQQ) = *(ITM_REAL__);
- };
- ((__ITM_REAL *)result__UQQ)->parent_itm_constant__BSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ=__tmp__CSO;
- result__0RO=result__UQQ;
- __tmp__HSO=TRUE__;
- } else {
- __tmp__HSO=FALSE__;
- };
- if (__tmp__HSO) {
- __tmp__ZSO=TRUE__;
- } else {
- result__3GP=read_integer__22P();
- if (result__3GP) {
- __tmp__USO=current_position__B0F();
- result__JNMB=NULL;
- ptr__KNMB=((__POINTER )(NULL));
- typ_id__PNMB= 0;
- sz__MNMB=((__UINTEGER_32 )sizeof(__ITM_NUMBER));
- if ((sz__MNMB == 0)) {
- result__JNMB=ITM_NUMBER__;
- } else {
- typ_id__PNMB=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__MNMB);
- if ((typ_id__PNMB == (__INTEGER)(- 1))) {
- a__FHGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__GHGH=(__UINTEGER_32)((__UINTEGER_32)(sz__MNMB + a__FHGH) & (__UINTEGER_32)(~ a__FHGH));
- ptr_table__P5KH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__GHGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__O5KH=((__POINTER )(NULL));
- result__Q5KH=((__POINTER *)ptr_table__P5KH)[ 0];
- if ((result__Q5KH == (void *)NULL)) {
- result__Q5KH=new_lab__RTJ(new_size__GHGH);
- next__O5KH=(void *)((unsigned long)result__Q5KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GHGH)));
- ((__POINTER *)next__O5KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__P5KH)[ 0]=next__O5KH;
- } else {
- next__O5KH=((__POINTER *)result__Q5KH)[ 0];
- if ((next__O5KH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__Q5KH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__GHGH << 1)) <= 4096)) {
- next__O5KH=(void *)((unsigned long)result__Q5KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GHGH)));
- } else {
- next__O5KH=new_lab__RTJ(new_size__GHGH);
- };
- ((__POINTER *)next__O5KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__P5KH)[ 0]=next__O5KH;
- } else {
- ((__POINTER *)result__Q5KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__O5KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__Q5KH=next__O5KH;
- };
- };
- ptr__KNMB=result__Q5KH;
- } else {
- t__KHGH=((__UINTEGER_32 )typ_id__PNMB);
- a__JHGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__X5KH=(__UINTEGER_32)((__UINTEGER_32)(sz__MNMB + a__JHGH) & (__UINTEGER_32)(~ a__JHGH));
- ptr_table__U5KH=((__POINTER )(&(table_type[(t__KHGH)])));
- lab_type__W5KH=(__UINTEGER_32)(t__KHGH | 1);
- next__T5KH=((__POINTER )(NULL));
- result__V5KH=((__POINTER *)ptr_table__U5KH)[ 0];
- if ((result__V5KH == (void *)NULL)) {
- result__V5KH=new_lab__RTJ(lab_type__W5KH);
- next__T5KH=(void *)((unsigned long)result__V5KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X5KH)));
- ((__POINTER *)next__T5KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__U5KH)[ 0]=next__T5KH;
- } else {
- next__T5KH=((__POINTER *)result__V5KH)[ 0];
- if ((next__T5KH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__V5KH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__X5KH << 1)) <= 4096)) {
- next__T5KH=(void *)((unsigned long)result__V5KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__X5KH)));
- } else {
- next__T5KH=new_lab__RTJ(lab_type__W5KH);
- };
- ((__POINTER *)next__T5KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__U5KH)[ 0]=next__T5KH;
- } else {
- ((__POINTER *)result__V5KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__T5KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__V5KH=next__T5KH;
- };
- };
- ptr__KNMB=result__V5KH;
- };
- result__JNMB=((__ITM_NUMBER *)ptr__KNMB);
- *(result__JNMB) = *(ITM_NUMBER__);
- };
- ((__ITM_NUMBER *)result__JNMB)->parent_itm_constant__TSO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ=__tmp__USO;
- result__0RO=result__JNMB;
- };
- __tmp__ZSO=result__3GP;
- };
- if (__tmp__ZSO) {
- __tmp__KTO=TRUE__;
- } else {
- result__1CQ=FALSE__;
- old_pos__2CQ= 0;
- count__3CQ= 0;
- if (read_space__XTD()) {
- result__2ZBH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__2ZBH=((__CHARACTER )(( 0)));
- } else {
- result__2ZBH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__HDQ=(result__2ZBH == '\'');
- } else {
- __tmp__HDQ=FALSE__;
- };
- if (__tmp__HDQ) {
- old_pos__2CQ=position__CCC;
- position__CCC=(__INTEGER)(position__CCC + 1);
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- until_do__0JRC:
- {
- result__G0BH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__G0BH=((__CHARACTER )(( 0)));
- } else {
- result__G0BH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__G0BH == ((__CHARACTER )(( 0))))) {
- __tmp__GEQ=TRUE__;
- } else {
- result__P0BH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__P0BH=((__CHARACTER )(( 0)));
- } else {
- result__P0BH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__GEQ=(result__P0BH == '\n');
- };
- if (__tmp__GEQ) {
- __tmp__HEQ=TRUE__;
- } else {
- result__U0BH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__U0BH=((__CHARACTER )(( 0)));
- } else {
- result__U0BH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- __tmp__HEQ=(result__U0BH == '\'');
- };
- if ((! __tmp__HEQ)) {
- result__Z0BH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__Z0BH=((__CHARACTER )(( 0)));
- } else {
- result__Z0BH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- Self__RPIH=((__STRING *)string_tmp__VH);
- new_capacity__QPIH= 0;
- if ((Self__RPIH->capacity__UCS <= Self__RPIH->count__SGC)) {
- if ((Self__RPIH->capacity__UCS == 0)) {
- Self__RPIH->capacity__UCS= 32;
- Self__RPIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__QPIH=(__INTEGER)(Self__RPIH->capacity__UCS << 1);
- Self__SPIH=((__CHARACTER *)Self__RPIH->storage__3CS);
- old_nb_elts__TPIH=Self__RPIH->capacity__UCS;
- new__UPIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__SPIH),((__UINTEGER_32 )old_nb_elts__TPIH),((__UINTEGER_32 )new_capacity__QPIH)));
- upper__15KH=(__INTEGER)(new_capacity__QPIH - 1);
- Self__Z5KH=old_nb_elts__TPIH;
- while ((Self__Z5KH <= upper__15KH)) {
- new__UPIH[Self__Z5KH]='\0';
- Self__Z5KH=(__INTEGER)(Self__Z5KH + 1);
- };
- Self__RPIH->storage__3CS=new__UPIH;
- Self__RPIH->capacity__UCS=new_capacity__QPIH;
- };
- };
- ((__CHARACTER *)Self__RPIH->storage__3CS)[Self__RPIH->count__SGC]=result__Z0BH;
- Self__RPIH->count__SGC=(__INTEGER)(Self__RPIH->count__SGC + 1);
- result__40BH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__40BH=((__CHARACTER )(( 0)));
- } else {
- result__40BH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__40BH == '\\')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- read_escape_character__AALF();
- count__3CQ=(__INTEGER)(count__3CQ + 1);
- } else {
- position__CCC=(__INTEGER)(position__CCC + 1);
- count__3CQ=(__INTEGER)(count__3CQ + 1);
- };
- goto until_do__0JRC;
- };
- };
- result__D1BH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__D1BH=((__CHARACTER )(( 0)));
- } else {
- result__D1BH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__D1BH == '\'')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- last_string__D2C=get__YWB(string_tmp__VH);
- if ((count__3CQ != 1)) {
- position__CCC=begin_position__BDE;
- pos__EF0G=current_position__B0F();
- put_error__text__1PG( 0,(&__string_328));
- put_position__FRG(pos__EF0G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- result__1CQ=TRUE__;
- short__token__to__GDD((&__string_122),old_pos__2CQ,position__CCC);
- } else {
- position__CCC=begin_position__BDE;
- pos__GF0G=current_position__B0F();
- put_error__text__1PG( 0,(&__string_329));
- put_position__FRG(pos__GF0G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- if (result__1CQ) {
- __tmp__GTO=current_position__B0F();
- result__3OMB=NULL;
- ptr__4OMB=((__POINTER )(NULL));
- typ_id__DPMB= 0;
- sz__APMB=((__UINTEGER_32 )sizeof(__ITM_CHARACTER));
- if ((sz__APMB == 0)) {
- result__3OMB=ITM_CHARACTER__;
- } else {
- typ_id__DPMB=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__APMB);
- if ((typ_id__DPMB == (__INTEGER)(- 1))) {
- a__NHGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__OHGH=(__UINTEGER_32)((__UINTEGER_32)(sz__APMB + a__NHGH) & (__UINTEGER_32)(~ a__NHGH));
- ptr_table__45KH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__OHGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__35KH=((__POINTER )(NULL));
- result__55KH=((__POINTER *)ptr_table__45KH)[ 0];
- if ((result__55KH == (void *)NULL)) {
- result__55KH=new_lab__RTJ(new_size__OHGH);
- next__35KH=(void *)((unsigned long)result__55KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OHGH)));
- ((__POINTER *)next__35KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__45KH)[ 0]=next__35KH;
- } else {
- next__35KH=((__POINTER *)result__55KH)[ 0];
- if ((next__35KH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__55KH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__OHGH << 1)) <= 4096)) {
- next__35KH=(void *)((unsigned long)result__55KH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__OHGH)));
- } else {
- next__35KH=new_lab__RTJ(new_size__OHGH);
- };
- ((__POINTER *)next__35KH)[ 0]=NULL;
- ((__POINTER *)ptr_table__45KH)[ 0]=next__35KH;
- } else {
- ((__POINTER *)result__55KH)[ 0]=(void *)((unsigned long)((__POINTER *)next__35KH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__55KH=next__35KH;
- };
- };
- ptr__4OMB=result__55KH;
- } else {
- t__SHGH=((__UINTEGER_32 )typ_id__DPMB);
- a__RHGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__GALH=(__UINTEGER_32)((__UINTEGER_32)(sz__APMB + a__RHGH) & (__UINTEGER_32)(~ a__RHGH));
- ptr_table__DALH=((__POINTER )(&(table_type[(t__SHGH)])));
- lab_type__FALH=(__UINTEGER_32)(t__SHGH | 1);
- next__CALH=((__POINTER )(NULL));
- result__EALH=((__POINTER *)ptr_table__DALH)[ 0];
- if ((result__EALH == (void *)NULL)) {
- result__EALH=new_lab__RTJ(lab_type__FALH);
- next__CALH=(void *)((unsigned long)result__EALH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GALH)));
- ((__POINTER *)next__CALH)[ 0]=NULL;
- ((__POINTER *)ptr_table__DALH)[ 0]=next__CALH;
- } else {
- next__CALH=((__POINTER *)result__EALH)[ 0];
- if ((next__CALH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EALH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__GALH << 1)) <= 4096)) {
- next__CALH=(void *)((unsigned long)result__EALH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__GALH)));
- } else {
- next__CALH=new_lab__RTJ(lab_type__FALH);
- };
- ((__POINTER *)next__CALH)[ 0]=NULL;
- ((__POINTER *)ptr_table__DALH)[ 0]=next__CALH;
- } else {
- ((__POINTER *)result__EALH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CALH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__EALH=next__CALH;
- };
- };
- ptr__4OMB=result__EALH;
- };
- result__3OMB=((__ITM_CHARACTER *)ptr__4OMB);
- *(result__3OMB) = *(ITM_CHARACTER__);
- };
- ((__ITM_CHARACTER *)result__3OMB)->parent_itm_constant__FTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ=__tmp__GTO;
- result__0RO=result__3OMB;
- };
- __tmp__KTO=result__1CQ;
- };
- if ((! __tmp__KTO)) {
- if (read_string__HGQ()) {
- __tmp__XTO=current_position__B0F();
- result__RQMB=NULL;
- ptr__SQMB=((__POINTER )(NULL));
- typ_id__XQMB= 0;
- sz__UQMB=((__UINTEGER_32 )sizeof(__ITM_STRING));
- if ((sz__UQMB == 0)) {
- result__RQMB=ITM_STRING__;
- } else {
- typ_id__XQMB=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__UQMB);
- if ((typ_id__XQMB == (__INTEGER)(- 1))) {
- a__VHGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__WHGH=(__UINTEGER_32)((__UINTEGER_32)(sz__UQMB + a__VHGH) & (__UINTEGER_32)(~ a__VHGH));
- ptr_table__IALH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WHGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__HALH=((__POINTER )(NULL));
- result__JALH=((__POINTER *)ptr_table__IALH)[ 0];
- if ((result__JALH == (void *)NULL)) {
- result__JALH=new_lab__RTJ(new_size__WHGH);
- next__HALH=(void *)((unsigned long)result__JALH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WHGH)));
- ((__POINTER *)next__HALH)[ 0]=NULL;
- ((__POINTER *)ptr_table__IALH)[ 0]=next__HALH;
- } else {
- next__HALH=((__POINTER *)result__JALH)[ 0];
- if ((next__HALH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JALH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__WHGH << 1)) <= 4096)) {
- next__HALH=(void *)((unsigned long)result__JALH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WHGH)));
- } else {
- next__HALH=new_lab__RTJ(new_size__WHGH);
- };
- ((__POINTER *)next__HALH)[ 0]=NULL;
- ((__POINTER *)ptr_table__IALH)[ 0]=next__HALH;
- } else {
- ((__POINTER *)result__JALH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HALH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__JALH=next__HALH;
- };
- };
- ptr__SQMB=result__JALH;
- } else {
- t__0HGH=((__UINTEGER_32 )typ_id__XQMB);
- a__ZHGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__QALH=(__UINTEGER_32)((__UINTEGER_32)(sz__UQMB + a__ZHGH) & (__UINTEGER_32)(~ a__ZHGH));
- ptr_table__NALH=((__POINTER )(&(table_type[(t__0HGH)])));
- lab_type__PALH=(__UINTEGER_32)(t__0HGH | 1);
- next__MALH=((__POINTER )(NULL));
- result__OALH=((__POINTER *)ptr_table__NALH)[ 0];
- if ((result__OALH == (void *)NULL)) {
- result__OALH=new_lab__RTJ(lab_type__PALH);
- next__MALH=(void *)((unsigned long)result__OALH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QALH)));
- ((__POINTER *)next__MALH)[ 0]=NULL;
- ((__POINTER *)ptr_table__NALH)[ 0]=next__MALH;
- } else {
- next__MALH=((__POINTER *)result__OALH)[ 0];
- if ((next__MALH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OALH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__QALH << 1)) <= 4096)) {
- next__MALH=(void *)((unsigned long)result__OALH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__QALH)));
- } else {
- next__MALH=new_lab__RTJ(lab_type__PALH);
- };
- ((__POINTER *)next__MALH)[ 0]=NULL;
- ((__POINTER *)ptr_table__NALH)[ 0]=next__MALH;
- } else {
- ((__POINTER *)result__OALH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MALH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__OALH=next__MALH;
- };
- };
- ptr__SQMB=result__OALH;
- };
- result__RQMB=((__ITM_STRING *)ptr__SQMB);
- *(result__RQMB) = *(ITM_STRING__);
- };
- ((__ITM_STRING *)result__RQMB)->parent_itm_constant__WTO.parent_itm_code__TYF.parent_itm_object__PFE.position__SFJ=__tmp__XTO;
- result__0RO=result__RQMB;
- };
- };
- return(result__0RO);
-}
-
-static void* read_group__C4GB(__PARSER *Self__D4GB)
-// ({PARSER}) With resultNo recursive, No inlinable.
-{
- void *e__F4GB;
- __ITM_RESULT *result__XALH,*result__AWWB;
- __POINTER ptr__YALH,ptr_table__BBLH,next__ABLH,result__CBLH;
- __POINTER ptr_table__GBLH,next__FBLH,result__HBLH,ptr__BWWB;
- __POINTER ptr_table__RBLH,next__QBLH,result__SBLH,ptr_table__WBLH;
- __POINTER next__VBLH,result__XBLH;
- __INTEGER typ_id__ZALH,typ_id__GWWB;
- __UINTEGER_32 sz__0ALH,a__1ALH,new_size__2ALH,t__3ALH,a__4ALH;
- __UINTEGER_32 new_size__JBLH,lab_type__IBLH,sz__DWWB,a__GLGH;
- __UINTEGER_32 new_size__HLGH,t__LLGH,a__KLGH,new_size__ZBLH;
- __UINTEGER_32 lab_type__YBLH;
- __POSITION pos__UF0G;
- void *result__R5GH,*result__G4GB;
- __FAST_ARRAYoFAST_ARRAYoITM_CODEoo *Self__S5GH,*Self__T5GH;
- __BOOLEAN result__RALH,__tmp__V4GB,result__UALH,result__KBLH;
- __BOOLEAN __tmp__25GB,result__NBLH;
- __CHARACTER result__SALH,result__VALH,result__LBLH,result__OBLH;
- read_def_local__M3H(Self__D4GB);
- result__R5GH=NULL;
- if ((((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__QAI)->parent_arrayed_collection__PAI.upper__BYT < 0)) {
- result__R5GH=create_with_capacity__XXI( 16);
- } else {
- Self__S5GH=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__QAI);
- result__R5GH=((void **)Self__S5GH->parent_arrayed_collection__PAI.storage__PCU)[Self__S5GH->parent_arrayed_collection__PAI.upper__BYT];
- Self__T5GH=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__QAI);
- Self__T5GH->parent_arrayed_collection__PAI.upper__BYT=(__INTEGER)(Self__T5GH->parent_arrayed_collection__PAI.upper__BYT - 1);
- };
- result__G4GB=result__R5GH;
- e__F4GB=read_expr__DBJ(Self__D4GB);
- while_do__VDMB:
- {
- if (((void *)e__F4GB != (void *)NULL)) {
- result__RALH=FALSE__;
- if ((! read_space__XTD())) {
- result__RALH=FALSE__;
- } else {
- result__SALH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__SALH=((__CHARACTER )(( 0)));
- } else {
- result__SALH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__SALH == ';')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__RALH=TRUE__;
- };
- };
- __tmp__V4GB=result__RALH;
- } else {
- __tmp__V4GB=FALSE__;
- };
- if (__tmp__V4GB) {
- add_last__I5U(result__G4GB,e__F4GB);
- e__F4GB=read_expr__DBJ(Self__D4GB);
- goto while_do__VDMB;
- };
- };
- if (((void *)e__F4GB != (void *)NULL)) {
- result__UALH=FALSE__;
- if ((! read_space__XTD())) {
- result__UALH=FALSE__;
- } else {
- result__VALH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__VALH=((__CHARACTER )(( 0)));
- } else {
- result__VALH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__VALH == ',')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__UALH=TRUE__;
- };
- };
- if (result__UALH) {
- do {
- result__XALH=NULL;
- ptr__YALH=((__POINTER )(NULL));
- typ_id__ZALH= 0;
- sz__0ALH=((__UINTEGER_32 )sizeof(__ITM_RESULT));
- if ((sz__0ALH == 0)) {
- result__XALH=ITM_RESULT__;
- } else {
- typ_id__ZALH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__0ALH);
- if ((typ_id__ZALH == (__INTEGER)(- 1))) {
- a__1ALH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__2ALH=(__UINTEGER_32)((__UINTEGER_32)(sz__0ALH + a__1ALH) & (__UINTEGER_32)(~ a__1ALH));
- ptr_table__BBLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__2ALH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__ABLH=((__POINTER )(NULL));
- result__CBLH=((__POINTER *)ptr_table__BBLH)[ 0];
- if ((result__CBLH == (void *)NULL)) {
- result__CBLH=new_lab__RTJ(new_size__2ALH);
- next__ABLH=(void *)((unsigned long)result__CBLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2ALH)));
- ((__POINTER *)next__ABLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__BBLH)[ 0]=next__ABLH;
- } else {
- next__ABLH=((__POINTER *)result__CBLH)[ 0];
- if ((next__ABLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CBLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__2ALH << 1)) <= 4096)) {
- next__ABLH=(void *)((unsigned long)result__CBLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2ALH)));
- } else {
- next__ABLH=new_lab__RTJ(new_size__2ALH);
- };
- ((__POINTER *)next__ABLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__BBLH)[ 0]=next__ABLH;
- } else {
- ((__POINTER *)result__CBLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ABLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__CBLH=next__ABLH;
- };
- };
- ptr__YALH=result__CBLH;
- } else {
- t__3ALH=((__UINTEGER_32 )typ_id__ZALH);
- a__4ALH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__JBLH=(__UINTEGER_32)((__UINTEGER_32)(sz__0ALH + a__4ALH) & (__UINTEGER_32)(~ a__4ALH));
- ptr_table__GBLH=((__POINTER )(&(table_type[(t__3ALH)])));
- lab_type__IBLH=(__UINTEGER_32)(t__3ALH | 1);
- next__FBLH=((__POINTER )(NULL));
- result__HBLH=((__POINTER *)ptr_table__GBLH)[ 0];
- if ((result__HBLH == (void *)NULL)) {
- result__HBLH=new_lab__RTJ(lab_type__IBLH);
- next__FBLH=(void *)((unsigned long)result__HBLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JBLH)));
- ((__POINTER *)next__FBLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__GBLH)[ 0]=next__FBLH;
- } else {
- next__FBLH=((__POINTER *)result__HBLH)[ 0];
- if ((next__FBLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HBLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__JBLH << 1)) <= 4096)) {
- next__FBLH=(void *)((unsigned long)result__HBLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JBLH)));
- } else {
- next__FBLH=new_lab__RTJ(lab_type__IBLH);
- };
- ((__POINTER *)next__FBLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__GBLH)[ 0]=next__FBLH;
- } else {
- ((__POINTER *)result__HBLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FBLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__HBLH=next__FBLH;
- };
- };
- ptr__YALH=result__HBLH;
- };
- result__XALH=((__ITM_RESULT *)ptr__YALH);
- *(result__XALH) = *(ITM_RESULT__);
- };
- ((__ITM_RESULT *)result__XALH)->value__WKFC=e__F4GB;
- add_last__I5U(result__G4GB,result__XALH);
- e__F4GB=read_expr__DBJ(Self__D4GB);
- while_do__UY3B:
- {
- if (((void *)e__F4GB != (void *)NULL)) {
- result__KBLH=FALSE__;
- if ((! read_space__XTD())) {
- result__KBLH=FALSE__;
- } else {
- result__LBLH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__LBLH=((__CHARACTER )(( 0)));
- } else {
- result__LBLH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__LBLH == ';')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__KBLH=TRUE__;
- };
- };
- __tmp__25GB=result__KBLH;
- } else {
- __tmp__25GB=FALSE__;
- };
- if (__tmp__25GB) {
- add_last__I5U(result__G4GB,e__F4GB);
- e__F4GB=read_expr__DBJ(Self__D4GB);
- goto while_do__UY3B;
- };
- };
- if (((void *)e__F4GB == (void *)NULL)) {
- pos__UF0G=current_position__B0F();
- put_error__text__1PG( 0,(&__string_330));
- put_position__FRG(pos__UF0G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- result__NBLH=FALSE__;
- if ((! read_space__XTD())) {
- result__NBLH=FALSE__;
- } else {
- result__OBLH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__OBLH=((__CHARACTER )(( 0)));
- } else {
- result__OBLH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__OBLH == ',')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__NBLH=TRUE__;
- };
- };
- } while (result__NBLH);
- };
- result__AWWB=NULL;
- ptr__BWWB=((__POINTER )(NULL));
- typ_id__GWWB= 0;
- sz__DWWB=((__UINTEGER_32 )sizeof(__ITM_RESULT));
- if ((sz__DWWB == 0)) {
- result__AWWB=ITM_RESULT__;
- } else {
- typ_id__GWWB=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__DWWB);
- if ((typ_id__GWWB == (__INTEGER)(- 1))) {
- a__GLGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HLGH=(__UINTEGER_32)((__UINTEGER_32)(sz__DWWB + a__GLGH) & (__UINTEGER_32)(~ a__GLGH));
- ptr_table__RBLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HLGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__QBLH=((__POINTER )(NULL));
- result__SBLH=((__POINTER *)ptr_table__RBLH)[ 0];
- if ((result__SBLH == (void *)NULL)) {
- result__SBLH=new_lab__RTJ(new_size__HLGH);
- next__QBLH=(void *)((unsigned long)result__SBLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HLGH)));
- ((__POINTER *)next__QBLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__RBLH)[ 0]=next__QBLH;
- } else {
- next__QBLH=((__POINTER *)result__SBLH)[ 0];
- if ((next__QBLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SBLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__HLGH << 1)) <= 4096)) {
- next__QBLH=(void *)((unsigned long)result__SBLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HLGH)));
- } else {
- next__QBLH=new_lab__RTJ(new_size__HLGH);
- };
- ((__POINTER *)next__QBLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__RBLH)[ 0]=next__QBLH;
- } else {
- ((__POINTER *)result__SBLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QBLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__SBLH=next__QBLH;
- };
- };
- ptr__BWWB=result__SBLH;
- } else {
- t__LLGH=((__UINTEGER_32 )typ_id__GWWB);
- a__KLGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ZBLH=(__UINTEGER_32)((__UINTEGER_32)(sz__DWWB + a__KLGH) & (__UINTEGER_32)(~ a__KLGH));
- ptr_table__WBLH=((__POINTER )(&(table_type[(t__LLGH)])));
- lab_type__YBLH=(__UINTEGER_32)(t__LLGH | 1);
- next__VBLH=((__POINTER )(NULL));
- result__XBLH=((__POINTER *)ptr_table__WBLH)[ 0];
- if ((result__XBLH == (void *)NULL)) {
- result__XBLH=new_lab__RTJ(lab_type__YBLH);
- next__VBLH=(void *)((unsigned long)result__XBLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZBLH)));
- ((__POINTER *)next__VBLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__WBLH)[ 0]=next__VBLH;
- } else {
- next__VBLH=((__POINTER *)result__XBLH)[ 0];
- if ((next__VBLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XBLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__ZBLH << 1)) <= 4096)) {
- next__VBLH=(void *)((unsigned long)result__XBLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZBLH)));
- } else {
- next__VBLH=new_lab__RTJ(lab_type__YBLH);
- };
- ((__POINTER *)next__VBLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__WBLH)[ 0]=next__VBLH;
- } else {
- ((__POINTER *)result__XBLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VBLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__XBLH=next__VBLH;
- };
- };
- ptr__BWWB=result__XBLH;
- };
- result__AWWB=((__ITM_RESULT *)ptr__BWWB);
- *(result__AWWB) = *(ITM_RESULT__);
- };
- ((__ITM_RESULT *)result__AWWB)->value__WKFC=e__F4GB;
- e__F4GB=result__AWWB;
- add_last__I5U(result__R5GH,result__AWWB);
- };
- return(copy__5BI(result__R5GH));
-}
-
-static void* readlip_expr_operator__GMZB(__PARSER *Self__HMZB)
-// ({PARSER}) With resultRecursive, No inlinable.
-{
- void *right__KMZB,*result__JMZB;
- __POSITION pos__KG0G,p__JCLH,p__ADLH;
- __LIP_BINARY *result__ACLH,*Self__ICLH,*result__XCLH,*Self__5CLH;
- __POINTER ptr__BCLH,ptr_table__OCLH,next__NCLH,result__PCLH;
- __POINTER ptr_table__TCLH,next__SCLH,result__UCLH,ptr__YCLH;
- __POINTER ptr_table__FDLH,next__EDLH,result__GDLH,ptr_table__KDLH;
- __POINTER next__JDLH,result__LDLH;
- __INTEGER typ_id__CCLH,typ_id__ZCLH;
- __UINTEGER_32 sz__DCLH,a__ECLH,new_size__FCLH,t__GCLH,a__HCLH;
- __UINTEGER_32 new_size__WCLH,lab_type__VCLH,sz__0CLH,a__1CLH;
- __UINTEGER_32 new_size__2CLH,t__3CLH,a__4CLH,new_size__NDLH;
- __UINTEGER_32 lab_type__MDLH;
- __BOOLEAN result__0BLH,__tmp__5MZB,result__3BLH;
- __CHARACTER result__1BLH,result__4BLH;
- right__KMZB=NULL;
- result__JMZB=readlip_expr_cmp__0Y1B(Self__HMZB);
- if (((void *)result__JMZB != (void *)NULL)) {
- while_do__J04B:
- {
- result__0BLH=FALSE__;
- if ((! read_space__XTD())) {
- result__0BLH=FALSE__;
- } else {
- result__1BLH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__1BLH=((__CHARACTER )(( 0)));
- } else {
- result__1BLH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__1BLH == '|')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__0BLH=TRUE__;
- };
- };
- if (result__0BLH) {
- __tmp__5MZB=TRUE__;
- } else {
- result__3BLH=FALSE__;
- if ((! read_space__XTD())) {
- result__3BLH=FALSE__;
- } else {
- result__4BLH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__4BLH=((__CHARACTER )(( 0)));
- } else {
- result__4BLH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__4BLH == '&')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__3BLH=TRUE__;
- };
- };
- __tmp__5MZB=result__3BLH;
- };
- if (__tmp__5MZB) {
- right__KMZB=readlip_expr_cmp__0Y1B(Self__HMZB);
- if (((void *)right__KMZB == (void *)NULL)) {
- pos__KG0G=current_position__B0F();
- put_error__text__1PG( 0,(&__string_239));
- put_position__FRG(pos__KG0G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- if (result__0BLH) {
- p__JCLH=current_position__B0F();
- result__ACLH=NULL;
- ptr__BCLH=((__POINTER )(NULL));
- typ_id__CCLH= 0;
- sz__DCLH=((__UINTEGER_32 )sizeof(__LIP_BINARY));
- if ((sz__DCLH == 0)) {
- result__ACLH=LIP_BINARY__;
- } else {
- typ_id__CCLH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__DCLH);
- if ((typ_id__CCLH == (__INTEGER)(- 1))) {
- a__ECLH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__FCLH=(__UINTEGER_32)((__UINTEGER_32)(sz__DCLH + a__ECLH) & (__UINTEGER_32)(~ a__ECLH));
- ptr_table__OCLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__FCLH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__NCLH=((__POINTER )(NULL));
- result__PCLH=((__POINTER *)ptr_table__OCLH)[ 0];
- if ((result__PCLH == (void *)NULL)) {
- result__PCLH=new_lab__RTJ(new_size__FCLH);
- next__NCLH=(void *)((unsigned long)result__PCLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FCLH)));
- ((__POINTER *)next__NCLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__OCLH)[ 0]=next__NCLH;
- } else {
- next__NCLH=((__POINTER *)result__PCLH)[ 0];
- if ((next__NCLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__PCLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__FCLH << 1)) <= 4096)) {
- next__NCLH=(void *)((unsigned long)result__PCLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FCLH)));
- } else {
- next__NCLH=new_lab__RTJ(new_size__FCLH);
- };
- ((__POINTER *)next__NCLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__OCLH)[ 0]=next__NCLH;
- } else {
- ((__POINTER *)result__PCLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__NCLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__PCLH=next__NCLH;
- };
- };
- ptr__BCLH=result__PCLH;
- } else {
- t__GCLH=((__UINTEGER_32 )typ_id__CCLH);
- a__HCLH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__WCLH=(__UINTEGER_32)((__UINTEGER_32)(sz__DCLH + a__HCLH) & (__UINTEGER_32)(~ a__HCLH));
- ptr_table__TCLH=((__POINTER )(&(table_type[(t__GCLH)])));
- lab_type__VCLH=(__UINTEGER_32)(t__GCLH | 1);
- next__SCLH=((__POINTER )(NULL));
- result__UCLH=((__POINTER *)ptr_table__TCLH)[ 0];
- if ((result__UCLH == (void *)NULL)) {
- result__UCLH=new_lab__RTJ(lab_type__VCLH);
- next__SCLH=(void *)((unsigned long)result__UCLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WCLH)));
- ((__POINTER *)next__SCLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__TCLH)[ 0]=next__SCLH;
- } else {
- next__SCLH=((__POINTER *)result__UCLH)[ 0];
- if ((next__SCLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__UCLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__WCLH << 1)) <= 4096)) {
- next__SCLH=(void *)((unsigned long)result__UCLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WCLH)));
- } else {
- next__SCLH=new_lab__RTJ(lab_type__VCLH);
- };
- ((__POINTER *)next__SCLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__TCLH)[ 0]=next__SCLH;
- } else {
- ((__POINTER *)result__UCLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__SCLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__UCLH=next__SCLH;
- };
- };
- ptr__BCLH=result__UCLH;
- };
- result__ACLH=((__LIP_BINARY *)ptr__BCLH);
- *(result__ACLH) = *(LIP_BINARY__);
- };
- Self__ICLH=((__LIP_BINARY *)result__ACLH);
- Self__ICLH->parent_lip_code__WNZB.parent_itm_object__XFE.position__SFJ=p__JCLH;
- Self__ICLH->left__J2QD=result__JMZB;
- Self__ICLH->right__M2QD=right__KMZB;
- Self__ICLH->operator__P2QD='|';
- result__JMZB=result__ACLH;
- } else {
- p__ADLH=current_position__B0F();
- result__XCLH=NULL;
- ptr__YCLH=((__POINTER )(NULL));
- typ_id__ZCLH= 0;
- sz__0CLH=((__UINTEGER_32 )sizeof(__LIP_BINARY));
- if ((sz__0CLH == 0)) {
- result__XCLH=LIP_BINARY__;
- } else {
- typ_id__ZCLH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__0CLH);
- if ((typ_id__ZCLH == (__INTEGER)(- 1))) {
- a__1CLH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__2CLH=(__UINTEGER_32)((__UINTEGER_32)(sz__0CLH + a__1CLH) & (__UINTEGER_32)(~ a__1CLH));
- ptr_table__FDLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__2CLH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__EDLH=((__POINTER )(NULL));
- result__GDLH=((__POINTER *)ptr_table__FDLH)[ 0];
- if ((result__GDLH == (void *)NULL)) {
- result__GDLH=new_lab__RTJ(new_size__2CLH);
- next__EDLH=(void *)((unsigned long)result__GDLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2CLH)));
- ((__POINTER *)next__EDLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__FDLH)[ 0]=next__EDLH;
- } else {
- next__EDLH=((__POINTER *)result__GDLH)[ 0];
- if ((next__EDLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GDLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__2CLH << 1)) <= 4096)) {
- next__EDLH=(void *)((unsigned long)result__GDLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__2CLH)));
- } else {
- next__EDLH=new_lab__RTJ(new_size__2CLH);
- };
- ((__POINTER *)next__EDLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__FDLH)[ 0]=next__EDLH;
- } else {
- ((__POINTER *)result__GDLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EDLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__GDLH=next__EDLH;
- };
- };
- ptr__YCLH=result__GDLH;
- } else {
- t__3CLH=((__UINTEGER_32 )typ_id__ZCLH);
- a__4CLH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__NDLH=(__UINTEGER_32)((__UINTEGER_32)(sz__0CLH + a__4CLH) & (__UINTEGER_32)(~ a__4CLH));
- ptr_table__KDLH=((__POINTER )(&(table_type[(t__3CLH)])));
- lab_type__MDLH=(__UINTEGER_32)(t__3CLH | 1);
- next__JDLH=((__POINTER )(NULL));
- result__LDLH=((__POINTER *)ptr_table__KDLH)[ 0];
- if ((result__LDLH == (void *)NULL)) {
- result__LDLH=new_lab__RTJ(lab_type__MDLH);
- next__JDLH=(void *)((unsigned long)result__LDLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NDLH)));
- ((__POINTER *)next__JDLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__KDLH)[ 0]=next__JDLH;
- } else {
- next__JDLH=((__POINTER *)result__LDLH)[ 0];
- if ((next__JDLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LDLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__NDLH << 1)) <= 4096)) {
- next__JDLH=(void *)((unsigned long)result__LDLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NDLH)));
- } else {
- next__JDLH=new_lab__RTJ(lab_type__MDLH);
- };
- ((__POINTER *)next__JDLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__KDLH)[ 0]=next__JDLH;
- } else {
- ((__POINTER *)result__LDLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JDLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__LDLH=next__JDLH;
- };
- };
- ptr__YCLH=result__LDLH;
- };
- result__XCLH=((__LIP_BINARY *)ptr__YCLH);
- *(result__XCLH) = *(LIP_BINARY__);
- };
- Self__5CLH=((__LIP_BINARY *)result__XCLH);
- Self__5CLH->parent_lip_code__WNZB.parent_itm_object__XFE.position__SFJ=p__ADLH;
- Self__5CLH->left__J2QD=result__JMZB;
- Self__5CLH->right__M2QD=right__KMZB;
- Self__5CLH->operator__P2QD='&';
- result__JMZB=result__XCLH;
- };
- goto while_do__J04B;
- };
- };
- };
- return(result__JMZB);
-}
-
-static __FAST_ARRAYoLIP_CODEo* create_with_capacity__DWKD(__INTEGER new_count__FWKD)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __POINTER ptr__YAMD,ptr_table__PDLH,next__ODLH,result__QDLH;
- __POINTER ptr_table__UDLH,next__TDLH,result__VDLH;
- __INTEGER typ_id__3AMD;
- __UINTEGER_32 sz__0AMD,a__WLGH,new_size__XLGH,t__1LGH,a__0LGH;
- __UINTEGER_32 new_size__XDLH,lab_type__WDLH;
- __FAST_ARRAYoLIP_CODEo *result__XAMD,*Self__VDUD;
- result__XAMD=NULL;
- ptr__YAMD=((__POINTER )(NULL));
- typ_id__3AMD= 0;
- sz__0AMD=((__UINTEGER_32 )sizeof(__FAST_ARRAYoLIP_CODEo));
- if ((sz__0AMD == 0)) {
- result__XAMD=FAST_ARRAYoLIP_CODEo__;
- } else {
- typ_id__3AMD=__FAST_ARRAYoLIP_CODEo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__0AMD);
- if ((typ_id__3AMD == (__INTEGER)(- 1))) {
- a__WLGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__XLGH=(__UINTEGER_32)((__UINTEGER_32)(sz__0AMD + a__WLGH) & (__UINTEGER_32)(~ a__WLGH));
- ptr_table__PDLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XLGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__ODLH=((__POINTER )(NULL));
- result__QDLH=((__POINTER *)ptr_table__PDLH)[ 0];
- if ((result__QDLH == (void *)NULL)) {
- result__QDLH=new_lab__RTJ(new_size__XLGH);
- next__ODLH=(void *)((unsigned long)result__QDLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XLGH)));
- ((__POINTER *)next__ODLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__PDLH)[ 0]=next__ODLH;
- } else {
- next__ODLH=((__POINTER *)result__QDLH)[ 0];
- if ((next__ODLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QDLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__XLGH << 1)) <= 4096)) {
- next__ODLH=(void *)((unsigned long)result__QDLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XLGH)));
- } else {
- next__ODLH=new_lab__RTJ(new_size__XLGH);
- };
- ((__POINTER *)next__ODLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__PDLH)[ 0]=next__ODLH;
- } else {
- ((__POINTER *)result__QDLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ODLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__QDLH=next__ODLH;
- };
- };
- ptr__YAMD=result__QDLH;
- } else {
- t__1LGH=((__UINTEGER_32 )typ_id__3AMD);
- a__0LGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__XDLH=(__UINTEGER_32)((__UINTEGER_32)(sz__0AMD + a__0LGH) & (__UINTEGER_32)(~ a__0LGH));
- ptr_table__UDLH=((__POINTER )(&(table_type[(t__1LGH)])));
- lab_type__WDLH=(__UINTEGER_32)(t__1LGH | 1);
- next__TDLH=((__POINTER )(NULL));
- result__VDLH=((__POINTER *)ptr_table__UDLH)[ 0];
- if ((result__VDLH == (void *)NULL)) {
- result__VDLH=new_lab__RTJ(lab_type__WDLH);
- next__TDLH=(void *)((unsigned long)result__VDLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XDLH)));
- ((__POINTER *)next__TDLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__UDLH)[ 0]=next__TDLH;
- } else {
- next__TDLH=((__POINTER *)result__VDLH)[ 0];
- if ((next__TDLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VDLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__XDLH << 1)) <= 4096)) {
- next__TDLH=(void *)((unsigned long)result__VDLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XDLH)));
- } else {
- next__TDLH=new_lab__RTJ(lab_type__WDLH);
- };
- ((__POINTER *)next__TDLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__UDLH)[ 0]=next__TDLH;
- } else {
- ((__POINTER *)result__VDLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TDLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__VDLH=next__TDLH;
- };
- };
- ptr__YAMD=result__VDLH;
- };
- result__XAMD=((__FAST_ARRAYoLIP_CODEo *)ptr__YAMD);
- *(result__XAMD) = *(FAST_ARRAYoLIP_CODEo__);
- };
- Self__VDUD=((__FAST_ARRAYoLIP_CODEo *)result__XAMD);
- if ((Self__VDUD->parent_arrayed_collection__4MYC.capacity__1UTD < new_count__FWKD)) {
- Self__VDUD->parent_arrayed_collection__4MYC.storage__GVTD=create__3WIE(new_count__FWKD);
- Self__VDUD->parent_arrayed_collection__4MYC.capacity__1UTD=new_count__FWKD;
- };
- Self__VDUD->parent_arrayed_collection__4MYC.upper__ZGQD=(__INTEGER)(- 1);
- return(result__XAMD);
-}
-
-static void add_last__JOUD(__FAST_ARRAYoLIP_CODEo *Self__KOUD,void *element__LOUD)
-// ({FAST_ARRAYoLIP_CODEo},{NULLxLIP_AFFECTxLIP_BINARYxLIP_UNARYxLIP_CALLxLIP_IFxLIP_PRINTxLIP_VALUE}) VoidNo recursive, No inlinable.
-{
- __INTEGER new_capacity__MOUD,__tmp__QPUD,__tmp__T1WE,Self__32QF;
- __BOOLEAN __tmp__0OUD;
- void **__tmp__PPUD,**new__50WE;
- new_capacity__MOUD= 0;
- if (((__INTEGER)(Self__KOUD->parent_arrayed_collection__4MYC.upper__ZGQD + 1) <= (__INTEGER)(Self__KOUD->parent_arrayed_collection__4MYC.capacity__1UTD - 1))) {
- Self__KOUD->parent_arrayed_collection__4MYC.upper__ZGQD=(__INTEGER)(Self__KOUD->parent_arrayed_collection__4MYC.upper__ZGQD + 1);
- __tmp__0OUD=TRUE__;
- } else {
- __tmp__0OUD=FALSE__;
- };
- if ((! __tmp__0OUD)) {
- if ((Self__KOUD->parent_arrayed_collection__4MYC.capacity__1UTD == 0)) {
- Self__KOUD->parent_arrayed_collection__4MYC.storage__GVTD=create__3WIE( 2);
- Self__KOUD->parent_arrayed_collection__4MYC.capacity__1UTD= 2;
- Self__KOUD->parent_arrayed_collection__4MYC.upper__ZGQD= 0;
- } else {
- new_capacity__MOUD=(__INTEGER)(Self__KOUD->parent_arrayed_collection__4MYC.capacity__1UTD << 1);
- __tmp__PPUD=Self__KOUD->parent_arrayed_collection__4MYC.storage__GVTD;
- __tmp__QPUD=Self__KOUD->parent_arrayed_collection__4MYC.capacity__1UTD;
- new__50WE=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__PPUD)),((__UINTEGER_32 )(__INTEGER)(__tmp__QPUD * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__MOUD * ((__INTEGER )(sizeof(void *)))))));
- __tmp__T1WE=(__INTEGER)(new_capacity__MOUD - 1);
- Self__32QF=__tmp__QPUD;
- while ((Self__32QF <= __tmp__T1WE)) {
- new__50WE[Self__32QF]=NULL;
- Self__32QF=(__INTEGER)(Self__32QF + 1);
- };
- Self__KOUD->parent_arrayed_collection__4MYC.storage__GVTD=new__50WE;
- Self__KOUD->parent_arrayed_collection__4MYC.capacity__1UTD=new_capacity__MOUD;
- Self__KOUD->parent_arrayed_collection__4MYC.upper__ZGQD=(__INTEGER)(Self__KOUD->parent_arrayed_collection__4MYC.upper__ZGQD + 1);
- };
- };
- ((void **)Self__KOUD->parent_arrayed_collection__4MYC.storage__GVTD)[Self__KOUD->parent_arrayed_collection__4MYC.upper__ZGQD]=element__LOUD;
-}
-
-static void* copy__ZPID(void *tmp__1PID)
-// ({NULLxFAST_ARRAYoLIP_CODEo}) With resultNo recursive, No inlinable.
-{
- __INTEGER new_capacity__SUTD,other_upper__RUTD,Self__5SYE;
- __INTEGER new_capacity__OFUD,__tmp__WGUD,__tmp__5ZWE,Self__40QF;
- void *result__3PID;
- __FAST_ARRAYoLIP_CODEo *Self__PUTD;
- void **__tmp__JVTD,**__tmp__LVTD,**Self__YQWE;
- __FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *Self__MFUD;
- __BOOLEAN __tmp__3FUD;
- void **__tmp__VGUD,**new__LZWE;
- result__3PID=create_with_capacity__DWKD((__INTEGER)(((__FAST_ARRAYoLIP_CODEo *)tmp__1PID)->parent_arrayed_collection__4MYC.upper__ZGQD + 1));
- Self__PUTD=((__FAST_ARRAYoLIP_CODEo *)result__3PID);
- new_capacity__SUTD= 0;
- other_upper__RUTD=((__FAST_ARRAYoLIP_CODEo *)tmp__1PID)->parent_arrayed_collection__4MYC.upper__ZGQD;
- if ((other_upper__RUTD >= 0)) {
- new_capacity__SUTD=(__INTEGER)(other_upper__RUTD + 1);
- if ((Self__PUTD->parent_arrayed_collection__4MYC.capacity__1UTD < new_capacity__SUTD)) {
- Self__PUTD->parent_arrayed_collection__4MYC.storage__GVTD=create__3WIE(new_capacity__SUTD);
- Self__PUTD->parent_arrayed_collection__4MYC.capacity__1UTD=new_capacity__SUTD;
- };
- __tmp__JVTD=Self__PUTD->parent_arrayed_collection__4MYC.storage__GVTD;
- __tmp__LVTD=((__FAST_ARRAYoLIP_CODEo *)tmp__1PID)->parent_arrayed_collection__4MYC.storage__GVTD;
- Self__YQWE=((void **)__tmp__JVTD);
- Self__5SYE=other_upper__RUTD;
- while ((Self__5SYE >= 0)) {
- Self__YQWE[Self__5SYE]=((void **)__tmp__LVTD)[Self__5SYE];
- Self__5SYE=(__INTEGER)(Self__5SYE - 1);
- };
- };
- Self__PUTD->parent_arrayed_collection__4MYC.upper__ZGQD=other_upper__RUTD;
- ((__FAST_ARRAYoLIP_CODEo *)tmp__1PID)->parent_arrayed_collection__4MYC.upper__ZGQD=(__INTEGER)(- 1);
- Self__MFUD=((__FAST_ARRAYoFAST_ARRAYoLIP_CODEoo *)free_list__XOID);
- new_capacity__OFUD= 0;
- if (((__INTEGER)(Self__MFUD->parent_arrayed_collection__WOID.upper__PTTD + 1) <= (__INTEGER)(Self__MFUD->parent_arrayed_collection__WOID.capacity__QFUD - 1))) {
- Self__MFUD->parent_arrayed_collection__WOID.upper__PTTD=(__INTEGER)(Self__MFUD->parent_arrayed_collection__WOID.upper__PTTD + 1);
- __tmp__3FUD=TRUE__;
- } else {
- __tmp__3FUD=FALSE__;
- };
- if ((! __tmp__3FUD)) {
- if ((Self__MFUD->parent_arrayed_collection__WOID.capacity__QFUD == 0)) {
- Self__MFUD->parent_arrayed_collection__WOID.storage__MGUD=create__R2IE( 2);
- Self__MFUD->parent_arrayed_collection__WOID.capacity__QFUD= 2;
- Self__MFUD->parent_arrayed_collection__WOID.upper__PTTD= 0;
- } else {
- new_capacity__OFUD=(__INTEGER)(Self__MFUD->parent_arrayed_collection__WOID.capacity__QFUD << 1);
- __tmp__VGUD=Self__MFUD->parent_arrayed_collection__WOID.storage__MGUD;
- __tmp__WGUD=Self__MFUD->parent_arrayed_collection__WOID.capacity__QFUD;
- new__LZWE=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__VGUD)),((__UINTEGER_32 )(__INTEGER)(__tmp__WGUD * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__OFUD * ((__INTEGER )(sizeof(void *)))))));
- __tmp__5ZWE=(__INTEGER)(new_capacity__OFUD - 1);
- Self__40QF=__tmp__WGUD;
- while ((Self__40QF <= __tmp__5ZWE)) {
- new__LZWE[Self__40QF]=NULL;
- Self__40QF=(__INTEGER)(Self__40QF + 1);
- };
- Self__MFUD->parent_arrayed_collection__WOID.storage__MGUD=new__LZWE;
- Self__MFUD->parent_arrayed_collection__WOID.capacity__QFUD=new_capacity__OFUD;
- Self__MFUD->parent_arrayed_collection__WOID.upper__PTTD=(__INTEGER)(Self__MFUD->parent_arrayed_collection__WOID.upper__PTTD + 1);
- };
- };
- ((void **)Self__MFUD->parent_arrayed_collection__WOID.storage__MGUD)[Self__MFUD->parent_arrayed_collection__WOID.upper__PTTD]=tmp__1PID;
- return(result__3PID);
-}
-
-static void* fast_reference_at__PXRD(__HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo *Self__QXRD,void *k__RXRD)
-// ({HASHED_DICTIONARYoLIP_SLOT_DATAxSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
- void *node__1XRD;
- __BOOLEAN __tmp__TYRD;
- node__1XRD=((void **)Self__QXRD->buckets__DYRD)[(__INTEGER)(hash_code__RNW(k__RXRD) % Self__QXRD->capacity__4XRD)];
- until_do__1KWD:
- {
- if (((void *)node__1XRD == (void *)NULL)) {
- __tmp__TYRD=TRUE__;
- } else {
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- __tmp__TYRD=((void *)NULL == (void *)k__RXRD);
- };
- if ((! __tmp__TYRD)) {
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- node__1XRD=NULL;
- goto until_do__1KWD;
- };
- };
- if (((void *)node__1XRD != (void *)NULL)) {
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- };
- return(NULL);
-}
-
-static void* run_expr__D2QD(__LIP_BINARY *Self__E2QD)
-// ({LIP_BINARY}) With resultRecursive, No inlinable.
-{
- void *result__G2QD,*__tmp__L2QD,*__tmp__ZDLH,*__tmp__0DLH,*__tmp__O2QD;
- void *__tmp__4DLH,*__tmp__5DLH,*result__QE4F,*__tmp__W2QD;
- void *result__AF4F,*result__SF4F,*__tmp__32QD,*result__CG4F;
- void *result__UG4F,*__tmp__E3QD,*result__EH4F,*result__XJIG;
- void *result__WH4F,*__tmp__L3QD,*result__GI4F,*result__IKIG;
- void *__tmp__S3QD,*result__IJ4F,*__tmp__Z3QD,*result__KK4F;
- void *__tmp__A4QD,*result__ML4F,*__tmp__H4QD,*result__OM4F;
- void *__tmp__O4QD,*result__QN4F,*result__3MIG,*__tmp__V4QD;
- void *result__SO4F;
- void *__tmp__K2QD,*__tmp__N2QD;
- __LIP_INTEGER *Self__1DLH,*Self__AELH,*Self__3E4F,*__tmp__DF4F;
- __LIP_INTEGER *s__BF4F,*Self__5F4F,*__tmp__FG4F,*s__DG4F,*Self__BH4F;
- __LIP_INTEGER *__tmp__HH4F,*s__FH4F,*Self__DI4F,*__tmp__JI4F,*s__HI4F;
- __LIP_INTEGER *Self__FJ4F,*__tmp__LJ4F,*s__JJ4F,*Self__HK4F;
- __LIP_INTEGER *__tmp__NK4F,*s__LK4F,*Self__JL4F,*__tmp__PL4F,*s__NL4F;
- __LIP_INTEGER *Self__LM4F,*__tmp__RM4F,*s__PM4F,*Self__NN4F;
- __LIP_INTEGER *__tmp__TN4F,*s__RN4F,*Self__PO4F,*__tmp__VO4F,*s__TO4F;
- __LIP_STRING *Self__2DLH,*Self__BELH,*__tmp__YIIG,*s__WIIG;
- __LIP_STRING *__tmp__JJIG,*s__HJIG,*Self__UJIG,*__tmp__0JIG,*s__YJIG;
- __LIP_STRING *Self__FKIG,*__tmp__LKIG,*s__JKIG,*__tmp__2KIG,*s__0KIG;
- __LIP_STRING *__tmp__NLIG,*s__LLIG,*__tmp__4LIG,*s__2LIG,*__tmp__PMIG;
- __LIP_STRING *s__NMIG,*Self__0MIG,*__tmp__ANIG,*s__4MIG,*__tmp__RNIG;
- __LIP_STRING *s__PNIG;
- __LIP_BOOLEAN *Self__NE4F,*__tmp__TE4F,*s__RE4F,*Self__PF4F;
- __LIP_BOOLEAN *__tmp__VF4F,*s__TF4F,*Self__RG4F,*__tmp__XG4F,*s__VG4F;
- __LIP_BOOLEAN *Self__TH4F,*__tmp__ZH4F,*s__XH4F,*__tmp__1I4F,*s__ZI4F;
- __LIP_BOOLEAN *__tmp__3J4F,*s__1J4F,*__tmp__5K4F,*s__3K4F,*__tmp__BM4F;
- __LIP_BOOLEAN *s__5L4F,*__tmp__DN4F,*s__BN4F,*__tmp__FO4F,*s__DO4F;
- void *result__EZEH,*result__GZEH,*result__IZEH,*result__KZEH;
- void *result__MZEH,*result__OZEH,*result__QZEH,*result__SZEH;
- void *result__UZEH,*result__WZEH,*result__YZEH,*result__0ZEH;
- __POSITION __tmp__44QD;
- __CHARACTER Self__GWVD;
- __BOOLEAN b__FZEH,b__HZEH,b__JZEH,b__LZEH,b__NZEH,b__PZEH,b__RZEH;
- __BOOLEAN b__TZEH,b__VZEH,b__XZEH,b__ZZEH,b__1ZEH;
- result__G2QD=NULL;
- __tmp__K2QD=Self__E2QD->left__J2QD;
- switch (((struct ___OBJ *)__tmp__K2QD)->__id) {
- case __LIP_BINARY__: {
- __tmp__L2QD=run_expr__D2QD(__tmp__K2QD);
- } break;
- case __LIP_UNARY__: {
- __tmp__L2QD=run_expr__C5QD(__tmp__K2QD);
- } break;
- case __LIP_CALL__: {
- __tmp__L2QD=run_expr__IXUE(__tmp__K2QD);
- } break;
- case __LIP_VALUE__: {
- __tmp__ZDLH=((__LIP_VALUE *)__tmp__K2QD)->value__I1UE;
- switch (((struct ___OBJ *)__tmp__ZDLH)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__0DLH=((__LIP_BOOLEAN *)__tmp__ZDLH);
- } break;
- case __LIP_INTEGER__: {
- Self__1DLH=((__LIP_INTEGER *)__tmp__ZDLH);
- __tmp__0DLH=get__UYSE(Self__1DLH,Self__1DLH->value__FP4F);
- } break;
- case __LIP_STRING__: {
- Self__2DLH=((__LIP_STRING *)__tmp__ZDLH);
- __tmp__0DLH=get__34FF(Self__2DLH,Self__2DLH->value__WSUE);
- } break;
- };
- __tmp__L2QD=__tmp__0DLH;
- } break;
- };
- __tmp__N2QD=Self__E2QD->right__M2QD;
- switch (((struct ___OBJ *)__tmp__N2QD)->__id) {
- case __LIP_BINARY__: {
- __tmp__O2QD=run_expr__D2QD(__tmp__N2QD);
- } break;
- case __LIP_UNARY__: {
- __tmp__O2QD=run_expr__C5QD(__tmp__N2QD);
- } break;
- case __LIP_CALL__: {
- __tmp__O2QD=run_expr__IXUE(__tmp__N2QD);
- } break;
- case __LIP_VALUE__: {
- __tmp__4DLH=((__LIP_VALUE *)__tmp__N2QD)->value__I1UE;
- switch (((struct ___OBJ *)__tmp__4DLH)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__5DLH=((__LIP_BOOLEAN *)__tmp__4DLH);
- } break;
- case __LIP_INTEGER__: {
- Self__AELH=((__LIP_INTEGER *)__tmp__4DLH);
- __tmp__5DLH=get__UYSE(Self__AELH,Self__AELH->value__FP4F);
- } break;
- case __LIP_STRING__: {
- Self__BELH=((__LIP_STRING *)__tmp__4DLH);
- __tmp__5DLH=get__34FF(Self__BELH,Self__BELH->value__WSUE);
- } break;
- };
- __tmp__O2QD=__tmp__5DLH;
- } break;
- };
- Self__GWVD=Self__E2QD->operator__P2QD;
- if ((Self__GWVD == '|')) {
- switch (((struct ___OBJ *)__tmp__L2QD)->__id) {
- case __LIP_BOOLEAN__: {
- Self__NE4F=((__LIP_BOOLEAN *)__tmp__L2QD);
- result__QE4F=NULL;
- if (__tmp__O2QD==NULL) {
- __tmp__TE4F=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__TE4F=((__LIP_BOOLEAN *)__tmp__O2QD);
- } break;
- case __LIP_INTEGER__: {
- __tmp__TE4F=NULL;
- } break;
- case __LIP_STRING__: {
- __tmp__TE4F=NULL;
- } break;
- }
- };
- s__RE4F=__tmp__TE4F;
- if (((void *)__tmp__TE4F != (void *)NULL)) {
- b__FZEH=(Self__NE4F->value__MGQD | __tmp__TE4F->value__MGQD);
- result__EZEH=NULL;
- if (b__FZEH) {
- result__EZEH=true__5YLF;
- } else {
- result__EZEH=LIP_BOOLEAN__;
- };
- result__QE4F=result__EZEH;
- };
- __tmp__W2QD=result__QE4F;
- } break;
- case __LIP_INTEGER__: {
- Self__3E4F=((__LIP_INTEGER *)__tmp__L2QD);
- result__AF4F=NULL;
- if (__tmp__O2QD==NULL) {
- __tmp__DF4F=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__DF4F=NULL;
- } break;
- case __LIP_INTEGER__: {
- __tmp__DF4F=((__LIP_INTEGER *)__tmp__O2QD);
- } break;
- case __LIP_STRING__: {
- __tmp__DF4F=NULL;
- } break;
- }
- };
- s__BF4F=__tmp__DF4F;
- if (((void *)__tmp__DF4F != (void *)NULL)) {
- Self__3E4F->value__FP4F=(__INTEGER)(Self__3E4F->value__FP4F | __tmp__DF4F->value__FP4F);
- free__3D4F(__tmp__DF4F);
- result__AF4F=Self__3E4F;
- };
- __tmp__W2QD=result__AF4F;
- } break;
- case __LIP_STRING__: {
- if (__tmp__O2QD==NULL) {
- __tmp__YIIG=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__YIIG=NULL;
- } break;
- case __LIP_INTEGER__: {
- __tmp__YIIG=NULL;
- } break;
- case __LIP_STRING__: {
- __tmp__YIIG=((__LIP_STRING *)__tmp__O2QD);
- } break;
- }
- };
- s__WIIG=__tmp__YIIG;
- __tmp__W2QD=NULL;
- } break;
- };
- result__G2QD=__tmp__W2QD;
- };
- if ((Self__GWVD == '&')) {
- switch (((struct ___OBJ *)__tmp__L2QD)->__id) {
- case __LIP_BOOLEAN__: {
- Self__PF4F=((__LIP_BOOLEAN *)__tmp__L2QD);
- result__SF4F=NULL;
- if (__tmp__O2QD==NULL) {
- __tmp__VF4F=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__VF4F=((__LIP_BOOLEAN *)__tmp__O2QD);
- } break;
- case __LIP_INTEGER__: {
- __tmp__VF4F=NULL;
- } break;
- case __LIP_STRING__: {
- __tmp__VF4F=NULL;
- } break;
- }
- };
- s__TF4F=__tmp__VF4F;
- if (((void *)__tmp__VF4F != (void *)NULL)) {
- b__HZEH=(Self__PF4F->value__MGQD & __tmp__VF4F->value__MGQD);
- result__GZEH=NULL;
- if (b__HZEH) {
- result__GZEH=true__5YLF;
- } else {
- result__GZEH=LIP_BOOLEAN__;
- };
- result__SF4F=result__GZEH;
- };
- __tmp__32QD=result__SF4F;
- } break;
- case __LIP_INTEGER__: {
- Self__5F4F=((__LIP_INTEGER *)__tmp__L2QD);
- result__CG4F=NULL;
- if (__tmp__O2QD==NULL) {
- __tmp__FG4F=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__FG4F=NULL;
- } break;
- case __LIP_INTEGER__: {
- __tmp__FG4F=((__LIP_INTEGER *)__tmp__O2QD);
- } break;
- case __LIP_STRING__: {
- __tmp__FG4F=NULL;
- } break;
- }
- };
- s__DG4F=__tmp__FG4F;
- if (((void *)__tmp__FG4F != (void *)NULL)) {
- Self__5F4F->value__FP4F=(__INTEGER)(Self__5F4F->value__FP4F & __tmp__FG4F->value__FP4F);
- free__3D4F(__tmp__FG4F);
- result__CG4F=Self__5F4F;
- };
- __tmp__32QD=result__CG4F;
- } break;
- case __LIP_STRING__: {
- if (__tmp__O2QD==NULL) {
- __tmp__JJIG=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__JJIG=NULL;
- } break;
- case __LIP_INTEGER__: {
- __tmp__JJIG=NULL;
- } break;
- case __LIP_STRING__: {
- __tmp__JJIG=((__LIP_STRING *)__tmp__O2QD);
- } break;
- }
- };
- s__HJIG=__tmp__JJIG;
- __tmp__32QD=NULL;
- } break;
- };
- result__G2QD=__tmp__32QD;
- };
- if ((Self__GWVD == '=')) {
- switch (((struct ___OBJ *)__tmp__L2QD)->__id) {
- case __LIP_BOOLEAN__: {
- Self__RG4F=((__LIP_BOOLEAN *)__tmp__L2QD);
- result__UG4F=NULL;
- if (__tmp__O2QD==NULL) {
- __tmp__XG4F=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__XG4F=((__LIP_BOOLEAN *)__tmp__O2QD);
- } break;
- case __LIP_INTEGER__: {
- __tmp__XG4F=NULL;
- } break;
- case __LIP_STRING__: {
- __tmp__XG4F=NULL;
- } break;
- }
- };
- s__VG4F=__tmp__XG4F;
- if (((void *)__tmp__XG4F != (void *)NULL)) {
- b__JZEH=(Self__RG4F->value__MGQD == __tmp__XG4F->value__MGQD);
- result__IZEH=NULL;
- if (b__JZEH) {
- result__IZEH=true__5YLF;
- } else {
- result__IZEH=LIP_BOOLEAN__;
- };
- result__UG4F=result__IZEH;
- };
- __tmp__E3QD=result__UG4F;
- } break;
- case __LIP_INTEGER__: {
- Self__BH4F=((__LIP_INTEGER *)__tmp__L2QD);
- result__EH4F=NULL;
- if (__tmp__O2QD==NULL) {
- __tmp__HH4F=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__HH4F=NULL;
- } break;
- case __LIP_INTEGER__: {
- __tmp__HH4F=((__LIP_INTEGER *)__tmp__O2QD);
- } break;
- case __LIP_STRING__: {
- __tmp__HH4F=NULL;
- } break;
- }
- };
- s__FH4F=__tmp__HH4F;
- if (((void *)__tmp__HH4F != (void *)NULL)) {
- free__3D4F(__tmp__HH4F);
- free__3D4F(Self__BH4F);
- b__LZEH=(Self__BH4F->value__FP4F == __tmp__HH4F->value__FP4F);
- result__KZEH=NULL;
- if (b__LZEH) {
- result__KZEH=true__5YLF;
- } else {
- result__KZEH=LIP_BOOLEAN__;
- };
- result__EH4F=result__KZEH;
- };
- __tmp__E3QD=result__EH4F;
- } break;
- case __LIP_STRING__: {
- Self__UJIG=((__LIP_STRING *)__tmp__L2QD);
- result__XJIG=NULL;
- if (__tmp__O2QD==NULL) {
- __tmp__0JIG=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__0JIG=NULL;
- } break;
- case __LIP_INTEGER__: {
- __tmp__0JIG=NULL;
- } break;
- case __LIP_STRING__: {
- __tmp__0JIG=((__LIP_STRING *)__tmp__O2QD);
- } break;
- }
- };
- s__YJIG=__tmp__0JIG;
- if (((void *)__tmp__0JIG != (void *)NULL)) {
- free__LIIG(__tmp__0JIG);
- free__LIIG(Self__UJIG);
- b__NZEH=((void *)Self__UJIG->value__WSUE == (void *)__tmp__0JIG->value__WSUE);
- result__MZEH=NULL;
- if (b__NZEH) {
- result__MZEH=true__5YLF;
- } else {
- result__MZEH=LIP_BOOLEAN__;
- };
- result__XJIG=result__MZEH;
- };
- __tmp__E3QD=result__XJIG;
- } break;
- };
- result__G2QD=__tmp__E3QD;
- };
- if ((Self__GWVD == 'E')) {
- switch (((struct ___OBJ *)__tmp__L2QD)->__id) {
- case __LIP_BOOLEAN__: {
- Self__TH4F=((__LIP_BOOLEAN *)__tmp__L2QD);
- result__WH4F=NULL;
- if (__tmp__O2QD==NULL) {
- __tmp__ZH4F=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__ZH4F=((__LIP_BOOLEAN *)__tmp__O2QD);
- } break;
- case __LIP_INTEGER__: {
- __tmp__ZH4F=NULL;
- } break;
- case __LIP_STRING__: {
- __tmp__ZH4F=NULL;
- } break;
- }
- };
- s__XH4F=__tmp__ZH4F;
- if (((void *)__tmp__ZH4F != (void *)NULL)) {
- b__PZEH=(Self__TH4F->value__MGQD != __tmp__ZH4F->value__MGQD);
- result__OZEH=NULL;
- if (b__PZEH) {
- result__OZEH=true__5YLF;
- } else {
- result__OZEH=LIP_BOOLEAN__;
- };
- result__WH4F=result__OZEH;
- };
- __tmp__L3QD=result__WH4F;
- } break;
- case __LIP_INTEGER__: {
- Self__DI4F=((__LIP_INTEGER *)__tmp__L2QD);
- result__GI4F=NULL;
- if (__tmp__O2QD==NULL) {
- __tmp__JI4F=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__JI4F=NULL;
- } break;
- case __LIP_INTEGER__: {
- __tmp__JI4F=((__LIP_INTEGER *)__tmp__O2QD);
- } break;
- case __LIP_STRING__: {
- __tmp__JI4F=NULL;
- } break;
- }
- };
- s__HI4F=__tmp__JI4F;
- if (((void *)__tmp__JI4F != (void *)NULL)) {
- free__3D4F(__tmp__JI4F);
- free__3D4F(Self__DI4F);
- b__RZEH=(Self__DI4F->value__FP4F != __tmp__JI4F->value__FP4F);
- result__QZEH=NULL;
- if (b__RZEH) {
- result__QZEH=true__5YLF;
- } else {
- result__QZEH=LIP_BOOLEAN__;
- };
- result__GI4F=result__QZEH;
- };
- __tmp__L3QD=result__GI4F;
- } break;
- case __LIP_STRING__: {
- Self__FKIG=((__LIP_STRING *)__tmp__L2QD);
- result__IKIG=NULL;
- if (__tmp__O2QD==NULL) {
- __tmp__LKIG=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__LKIG=NULL;
- } break;
- case __LIP_INTEGER__: {
- __tmp__LKIG=NULL;
- } break;
- case __LIP_STRING__: {
- __tmp__LKIG=((__LIP_STRING *)__tmp__O2QD);
- } break;
- }
- };
- s__JKIG=__tmp__LKIG;
- if (((void *)__tmp__LKIG != (void *)NULL)) {
- free__LIIG(__tmp__LKIG);
- free__LIIG(Self__FKIG);
- b__TZEH=((void *)Self__FKIG->value__WSUE != (void *)__tmp__LKIG->value__WSUE);
- result__SZEH=NULL;
- if (b__TZEH) {
- result__SZEH=true__5YLF;
- } else {
- result__SZEH=LIP_BOOLEAN__;
- };
- result__IKIG=result__SZEH;
- };
- __tmp__L3QD=result__IKIG;
- } break;
- };
- result__G2QD=__tmp__L3QD;
- };
- if ((Self__GWVD == '>')) {
- switch (((struct ___OBJ *)__tmp__L2QD)->__id) {
- case __LIP_BOOLEAN__: {
- if (__tmp__O2QD==NULL) {
- __tmp__1I4F=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__1I4F=((__LIP_BOOLEAN *)__tmp__O2QD);
- } break;
- case __LIP_INTEGER__: {
- __tmp__1I4F=NULL;
- } break;
- case __LIP_STRING__: {
- __tmp__1I4F=NULL;
- } break;
- }
- };
- s__ZI4F=__tmp__1I4F;
- __tmp__S3QD=NULL;
- } break;
- case __LIP_INTEGER__: {
- Self__FJ4F=((__LIP_INTEGER *)__tmp__L2QD);
- result__IJ4F=NULL;
- if (__tmp__O2QD==NULL) {
- __tmp__LJ4F=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__LJ4F=NULL;
- } break;
- case __LIP_INTEGER__: {
- __tmp__LJ4F=((__LIP_INTEGER *)__tmp__O2QD);
- } break;
- case __LIP_STRING__: {
- __tmp__LJ4F=NULL;
- } break;
- }
- };
- s__JJ4F=__tmp__LJ4F;
- if (((void *)__tmp__LJ4F != (void *)NULL)) {
- free__3D4F(__tmp__LJ4F);
- free__3D4F(Self__FJ4F);
- b__VZEH=(Self__FJ4F->value__FP4F > __tmp__LJ4F->value__FP4F);
- result__UZEH=NULL;
- if (b__VZEH) {
- result__UZEH=true__5YLF;
- } else {
- result__UZEH=LIP_BOOLEAN__;
- };
- result__IJ4F=result__UZEH;
- };
- __tmp__S3QD=result__IJ4F;
- } break;
- case __LIP_STRING__: {
- if (__tmp__O2QD==NULL) {
- __tmp__2KIG=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__2KIG=NULL;
- } break;
- case __LIP_INTEGER__: {
- __tmp__2KIG=NULL;
- } break;
- case __LIP_STRING__: {
- __tmp__2KIG=((__LIP_STRING *)__tmp__O2QD);
- } break;
- }
- };
- s__0KIG=__tmp__2KIG;
- __tmp__S3QD=NULL;
- } break;
- };
- result__G2QD=__tmp__S3QD;
- };
- if ((Self__GWVD == '<')) {
- switch (((struct ___OBJ *)__tmp__L2QD)->__id) {
- case __LIP_BOOLEAN__: {
- if (__tmp__O2QD==NULL) {
- __tmp__3J4F=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__3J4F=((__LIP_BOOLEAN *)__tmp__O2QD);
- } break;
- case __LIP_INTEGER__: {
- __tmp__3J4F=NULL;
- } break;
- case __LIP_STRING__: {
- __tmp__3J4F=NULL;
- } break;
- }
- };
- s__1J4F=__tmp__3J4F;
- __tmp__Z3QD=NULL;
- } break;
- case __LIP_INTEGER__: {
- Self__HK4F=((__LIP_INTEGER *)__tmp__L2QD);
- result__KK4F=NULL;
- if (__tmp__O2QD==NULL) {
- __tmp__NK4F=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__NK4F=NULL;
- } break;
- case __LIP_INTEGER__: {
- __tmp__NK4F=((__LIP_INTEGER *)__tmp__O2QD);
- } break;
- case __LIP_STRING__: {
- __tmp__NK4F=NULL;
- } break;
- }
- };
- s__LK4F=__tmp__NK4F;
- if (((void *)__tmp__NK4F != (void *)NULL)) {
- free__3D4F(__tmp__NK4F);
- free__3D4F(Self__HK4F);
- b__XZEH=(Self__HK4F->value__FP4F < __tmp__NK4F->value__FP4F);
- result__WZEH=NULL;
- if (b__XZEH) {
- result__WZEH=true__5YLF;
- } else {
- result__WZEH=LIP_BOOLEAN__;
- };
- result__KK4F=result__WZEH;
- };
- __tmp__Z3QD=result__KK4F;
- } break;
- case __LIP_STRING__: {
- if (__tmp__O2QD==NULL) {
- __tmp__NLIG=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__NLIG=NULL;
- } break;
- case __LIP_INTEGER__: {
- __tmp__NLIG=NULL;
- } break;
- case __LIP_STRING__: {
- __tmp__NLIG=((__LIP_STRING *)__tmp__O2QD);
- } break;
- }
- };
- s__LLIG=__tmp__NLIG;
- __tmp__Z3QD=NULL;
- } break;
- };
- result__G2QD=__tmp__Z3QD;
- };
- if ((Self__GWVD == 'S')) {
- switch (((struct ___OBJ *)__tmp__L2QD)->__id) {
- case __LIP_BOOLEAN__: {
- if (__tmp__O2QD==NULL) {
- __tmp__5K4F=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__5K4F=((__LIP_BOOLEAN *)__tmp__O2QD);
- } break;
- case __LIP_INTEGER__: {
- __tmp__5K4F=NULL;
- } break;
- case __LIP_STRING__: {
- __tmp__5K4F=NULL;
- } break;
- }
- };
- s__3K4F=__tmp__5K4F;
- __tmp__A4QD=NULL;
- } break;
- case __LIP_INTEGER__: {
- Self__JL4F=((__LIP_INTEGER *)__tmp__L2QD);
- result__ML4F=NULL;
- if (__tmp__O2QD==NULL) {
- __tmp__PL4F=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__PL4F=NULL;
- } break;
- case __LIP_INTEGER__: {
- __tmp__PL4F=((__LIP_INTEGER *)__tmp__O2QD);
- } break;
- case __LIP_STRING__: {
- __tmp__PL4F=NULL;
- } break;
- }
- };
- s__NL4F=__tmp__PL4F;
- if (((void *)__tmp__PL4F != (void *)NULL)) {
- free__3D4F(__tmp__PL4F);
- free__3D4F(Self__JL4F);
- b__ZZEH=(Self__JL4F->value__FP4F >= __tmp__PL4F->value__FP4F);
- result__YZEH=NULL;
- if (b__ZZEH) {
- result__YZEH=true__5YLF;
- } else {
- result__YZEH=LIP_BOOLEAN__;
- };
- result__ML4F=result__YZEH;
- };
- __tmp__A4QD=result__ML4F;
- } break;
- case __LIP_STRING__: {
- if (__tmp__O2QD==NULL) {
- __tmp__4LIG=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__4LIG=NULL;
- } break;
- case __LIP_INTEGER__: {
- __tmp__4LIG=NULL;
- } break;
- case __LIP_STRING__: {
- __tmp__4LIG=((__LIP_STRING *)__tmp__O2QD);
- } break;
- }
- };
- s__2LIG=__tmp__4LIG;
- __tmp__A4QD=NULL;
- } break;
- };
- result__G2QD=__tmp__A4QD;
- };
- if ((Self__GWVD == 'I')) {
- switch (((struct ___OBJ *)__tmp__L2QD)->__id) {
- case __LIP_BOOLEAN__: {
- if (__tmp__O2QD==NULL) {
- __tmp__BM4F=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__BM4F=((__LIP_BOOLEAN *)__tmp__O2QD);
- } break;
- case __LIP_INTEGER__: {
- __tmp__BM4F=NULL;
- } break;
- case __LIP_STRING__: {
- __tmp__BM4F=NULL;
- } break;
- }
- };
- s__5L4F=__tmp__BM4F;
- __tmp__H4QD=NULL;
- } break;
- case __LIP_INTEGER__: {
- Self__LM4F=((__LIP_INTEGER *)__tmp__L2QD);
- result__OM4F=NULL;
- if (__tmp__O2QD==NULL) {
- __tmp__RM4F=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__RM4F=NULL;
- } break;
- case __LIP_INTEGER__: {
- __tmp__RM4F=((__LIP_INTEGER *)__tmp__O2QD);
- } break;
- case __LIP_STRING__: {
- __tmp__RM4F=NULL;
- } break;
- }
- };
- s__PM4F=__tmp__RM4F;
- if (((void *)__tmp__RM4F != (void *)NULL)) {
- free__3D4F(__tmp__RM4F);
- free__3D4F(Self__LM4F);
- b__1ZEH=(Self__LM4F->value__FP4F <= __tmp__RM4F->value__FP4F);
- result__0ZEH=NULL;
- if (b__1ZEH) {
- result__0ZEH=true__5YLF;
- } else {
- result__0ZEH=LIP_BOOLEAN__;
- };
- result__OM4F=result__0ZEH;
- };
- __tmp__H4QD=result__OM4F;
- } break;
- case __LIP_STRING__: {
- if (__tmp__O2QD==NULL) {
- __tmp__PMIG=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__PMIG=NULL;
- } break;
- case __LIP_INTEGER__: {
- __tmp__PMIG=NULL;
- } break;
- case __LIP_STRING__: {
- __tmp__PMIG=((__LIP_STRING *)__tmp__O2QD);
- } break;
- }
- };
- s__NMIG=__tmp__PMIG;
- __tmp__H4QD=NULL;
- } break;
- };
- result__G2QD=__tmp__H4QD;
- };
- if ((Self__GWVD == '+')) {
- switch (((struct ___OBJ *)__tmp__L2QD)->__id) {
- case __LIP_BOOLEAN__: {
- if (__tmp__O2QD==NULL) {
- __tmp__DN4F=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__DN4F=((__LIP_BOOLEAN *)__tmp__O2QD);
- } break;
- case __LIP_INTEGER__: {
- __tmp__DN4F=NULL;
- } break;
- case __LIP_STRING__: {
- __tmp__DN4F=NULL;
- } break;
- }
- };
- s__BN4F=__tmp__DN4F;
- __tmp__O4QD=NULL;
- } break;
- case __LIP_INTEGER__: {
- Self__NN4F=((__LIP_INTEGER *)__tmp__L2QD);
- result__QN4F=NULL;
- if (__tmp__O2QD==NULL) {
- __tmp__TN4F=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__TN4F=NULL;
- } break;
- case __LIP_INTEGER__: {
- __tmp__TN4F=((__LIP_INTEGER *)__tmp__O2QD);
- } break;
- case __LIP_STRING__: {
- __tmp__TN4F=NULL;
- } break;
- }
- };
- s__RN4F=__tmp__TN4F;
- if (((void *)__tmp__TN4F != (void *)NULL)) {
- Self__NN4F->value__FP4F=(__INTEGER)(Self__NN4F->value__FP4F + __tmp__TN4F->value__FP4F);
- free__3D4F(__tmp__TN4F);
- result__QN4F=Self__NN4F;
- };
- __tmp__O4QD=result__QN4F;
- } break;
- case __LIP_STRING__: {
- Self__0MIG=((__LIP_STRING *)__tmp__L2QD);
- result__3MIG=NULL;
- if (__tmp__O2QD==NULL) {
- __tmp__ANIG=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__ANIG=NULL;
- } break;
- case __LIP_INTEGER__: {
- __tmp__ANIG=NULL;
- } break;
- case __LIP_STRING__: {
- __tmp__ANIG=((__LIP_STRING *)__tmp__O2QD);
- } break;
- }
- };
- s__4MIG=__tmp__ANIG;
- if (((void *)__tmp__ANIG != (void *)NULL)) {
- copy__VDS(string_tmp__VH,Self__0MIG->value__WSUE);
- append__3OS(string_tmp__VH,__tmp__ANIG->value__WSUE);
- Self__0MIG->value__WSUE=get__YWB(string_tmp__VH);
- free__LIIG(__tmp__ANIG);
- result__3MIG=Self__0MIG;
- };
- __tmp__O4QD=result__3MIG;
- } break;
- };
- result__G2QD=__tmp__O4QD;
- };
- if ((Self__GWVD == '-')) {
- switch (((struct ___OBJ *)__tmp__L2QD)->__id) {
- case __LIP_BOOLEAN__: {
- if (__tmp__O2QD==NULL) {
- __tmp__FO4F=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__FO4F=((__LIP_BOOLEAN *)__tmp__O2QD);
- } break;
- case __LIP_INTEGER__: {
- __tmp__FO4F=NULL;
- } break;
- case __LIP_STRING__: {
- __tmp__FO4F=NULL;
- } break;
- }
- };
- s__DO4F=__tmp__FO4F;
- __tmp__V4QD=NULL;
- } break;
- case __LIP_INTEGER__: {
- Self__PO4F=((__LIP_INTEGER *)__tmp__L2QD);
- result__SO4F=NULL;
- if (__tmp__O2QD==NULL) {
- __tmp__VO4F=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__VO4F=NULL;
- } break;
- case __LIP_INTEGER__: {
- __tmp__VO4F=((__LIP_INTEGER *)__tmp__O2QD);
- } break;
- case __LIP_STRING__: {
- __tmp__VO4F=NULL;
- } break;
- }
- };
- s__TO4F=__tmp__VO4F;
- if (((void *)__tmp__VO4F != (void *)NULL)) {
- Self__PO4F->value__FP4F=(__INTEGER)(Self__PO4F->value__FP4F - __tmp__VO4F->value__FP4F);
- free__3D4F(__tmp__VO4F);
- result__SO4F=Self__PO4F;
- };
- __tmp__V4QD=result__SO4F;
- } break;
- case __LIP_STRING__: {
- if (__tmp__O2QD==NULL) {
- __tmp__RNIG=NULL;
- } else {
- switch (((struct ___OBJ *)__tmp__O2QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__RNIG=NULL;
- } break;
- case __LIP_INTEGER__: {
- __tmp__RNIG=NULL;
- } break;
- case __LIP_STRING__: {
- __tmp__RNIG=((__LIP_STRING *)__tmp__O2QD);
- } break;
- }
- };
- s__PNIG=__tmp__RNIG;
- __tmp__V4QD=NULL;
- } break;
- };
- result__G2QD=__tmp__V4QD;
- };
- if (((void *)result__G2QD == (void *)NULL)) {
- __tmp__44QD=Self__E2QD->parent_lip_code__WNZB.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 1,(&__string_279));
- put_position__FRG(__tmp__44QD);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- return(result__G2QD);
-}
-
-static void* run_expr__C5QD(__LIP_UNARY *Self__D5QD)
-// ({LIP_UNARY}) With resultRecursive, No inlinable.
-{
- void *__tmp__H5QD;
- void *__tmp__I5QD,*__tmp__DELH,*__tmp__EELH,*result__F5QD,*__tmp__Q5QD;
- void *__tmp__X5QD;
- __LIP_INTEGER *Self__FELH,*Self__DP4F,*Self__QP4F;
- __LIP_STRING *Self__GELH;
- void *result__0YLF;
- __POSITION __tmp__AARD;
- __CHARACTER Self__WYVD;
- __BOOLEAN b__YYLF;
- __tmp__H5QD=Self__D5QD->value__G5QD;
- switch (((struct ___OBJ *)__tmp__H5QD)->__id) {
- case __LIP_BINARY__: {
- __tmp__I5QD=run_expr__D2QD(__tmp__H5QD);
- } break;
- case __LIP_UNARY__: {
- __tmp__I5QD=run_expr__C5QD(__tmp__H5QD);
- } break;
- case __LIP_CALL__: {
- __tmp__I5QD=run_expr__IXUE(__tmp__H5QD);
- } break;
- case __LIP_VALUE__: {
- __tmp__DELH=((__LIP_VALUE *)__tmp__H5QD)->value__I1UE;
- switch (((struct ___OBJ *)__tmp__DELH)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__EELH=((__LIP_BOOLEAN *)__tmp__DELH);
- } break;
- case __LIP_INTEGER__: {
- Self__FELH=((__LIP_INTEGER *)__tmp__DELH);
- __tmp__EELH=get__UYSE(Self__FELH,Self__FELH->value__FP4F);
- } break;
- case __LIP_STRING__: {
- Self__GELH=((__LIP_STRING *)__tmp__DELH);
- __tmp__EELH=get__34FF(Self__GELH,Self__GELH->value__WSUE);
- } break;
- };
- __tmp__I5QD=__tmp__EELH;
- } break;
- };
- result__F5QD=__tmp__I5QD;
- Self__WYVD=Self__D5QD->operator__J5QD;
- if ((Self__WYVD == '-')) {
- switch (((struct ___OBJ *)__tmp__I5QD)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__Q5QD=NULL;
- } break;
- case __LIP_INTEGER__: {
- Self__DP4F=((__LIP_INTEGER *)__tmp__I5QD);
- Self__DP4F->value__FP4F=(__INTEGER)(- Self__DP4F->value__FP4F);
- __tmp__Q5QD=Self__DP4F;
- } break;
- case __LIP_STRING__: {
- __tmp__Q5QD=NULL;
- } break;
- };
- result__F5QD=__tmp__Q5QD;
- };
- if ((Self__WYVD == '!')) {
- switch (((struct ___OBJ *)result__F5QD)->__id) {
- case __LIP_BOOLEAN__: {
- b__YYLF=(! ((__LIP_BOOLEAN *)result__F5QD)->value__MGQD);
- result__0YLF=NULL;
- if (b__YYLF) {
- result__0YLF=true__5YLF;
- } else {
- result__0YLF=LIP_BOOLEAN__;
- };
- __tmp__X5QD=result__0YLF;
- } break;
- case __LIP_INTEGER__: {
- Self__QP4F=((__LIP_INTEGER *)result__F5QD);
- Self__QP4F->value__FP4F=(__INTEGER)(~ Self__QP4F->value__FP4F);
- __tmp__X5QD=Self__QP4F;
- } break;
- case __LIP_STRING__: {
- __tmp__X5QD=NULL;
- } break;
- };
- result__F5QD=__tmp__X5QD;
- };
- if (((void *)result__F5QD == (void *)NULL)) {
- __tmp__AARD=Self__D5QD->parent_lip_code__FZ4B.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 1,(&__string_279));
- put_position__FRG(__tmp__AARD);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- return(result__F5QD);
-}
-
-static void* run_expr__IXUE(__LIP_CALL *Self__JXUE)
-// ({LIP_CALL}) With resultRecursive, No inlinable.
-{
- void *str__MXUE,*__tmp__CYUE;
- void *val__NXUE,*result__OXUE,*__tmp__XXUE,*__tmp__J1UE,*__tmp__K1UE;
- void *__tmp__WXUE;
- __LIP_INTEGER *Self__QS4F;
- __LIP_STRING *Self__BPIG;
- __POSITION pos__EK2G,pos__B4KF;
- __STRING *Self__35GH,*Self__3PIH,*Self__DQIH;
- __INTEGER new_capacity__WPIH,old_nb_elts__ZPIH,upper__KELH,Self__IELH;
- __INTEGER state__KHXF,Self__OZGG,new_capacity__2PIH,old_nb_elts__5PIH;
- __INTEGER upper__PELH,Self__NELH,new_capacity__CQIH,old_nb_elts__FQIH;
- __INTEGER upper__UELH,Self__SELH;
- __CHARACTER *Self__YPIH,*new__0PIH,*Self__4PIH,*new__AQIH,*Self__EQIH;
- __CHARACTER *new__GQIH;
- __BOOLEAN __tmp__TYUE,__tmp__FZUE,result__YXXE,sign__LHXF,__tmp__3IXF;
- __BOOLEAN result__HIGH,__tmp__KJXF,result__VGQG,__tmp__3JXF;
- __BOOLEAN result__KIGH,result__NIGH,result__2ZEH,result__3ZEH;
- __CHARACTER Self__DACH,Self__IIGH,Self__EACH,Self__LIGH,Self__OIGH;
- __CHARACTER mem__GGMF,ch__BQIH;
- __FAST_ARRAYoLIP_SLOT_DATAo *Self__WCQF;
- str__MXUE=NULL;
- val__NXUE=NULL;
- result__OXUE=NULL;
- if (((void *)Self__JXUE->argument__4QUE != (void *)NULL)) {
- __tmp__WXUE=Self__JXUE->argument__4QUE;
- switch (((struct ___OBJ *)__tmp__WXUE)->__id) {
- case __LIP_BINARY__: {
- __tmp__XXUE=run_expr__D2QD(__tmp__WXUE);
- } break;
- case __LIP_UNARY__: {
- __tmp__XXUE=run_expr__C5QD(__tmp__WXUE);
- } break;
- case __LIP_CALL__: {
- __tmp__XXUE=run_expr__IXUE(__tmp__WXUE);
- } break;
- case __LIP_VALUE__: {
- __tmp__J1UE=((__LIP_VALUE *)__tmp__WXUE)->value__I1UE;
- switch (((struct ___OBJ *)__tmp__J1UE)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__K1UE=((__LIP_BOOLEAN *)__tmp__J1UE);
- } break;
- case __LIP_INTEGER__: {
- Self__QS4F=((__LIP_INTEGER *)__tmp__J1UE);
- __tmp__K1UE=get__UYSE(Self__QS4F,Self__QS4F->value__FP4F);
- } break;
- case __LIP_STRING__: {
- Self__BPIG=((__LIP_STRING *)__tmp__J1UE);
- __tmp__K1UE=get__34FF(Self__BPIG,Self__BPIG->value__WSUE);
- } break;
- };
- __tmp__XXUE=__tmp__K1UE;
- } break;
- };
- val__NXUE=__tmp__XXUE;
- };
- if (((void *)Self__JXUE->name__JRUE == (void *)(&__string_93))) {
- if (val__NXUE==NULL) {
- __tmp__CYUE=NULL;
- } else {
- switch (((struct ___OBJ *)val__NXUE)->__id) {
- case __LIP_BOOLEAN__: {
- __tmp__CYUE=NULL;
- } break;
- case __LIP_INTEGER__: {
- __tmp__CYUE=NULL;
- } break;
- case __LIP_STRING__: {
- __tmp__CYUE=((void *)val__NXUE);
- } break;
- }
- };
- str__MXUE=__tmp__CYUE;
- if (((void *)__tmp__CYUE == (void *)NULL)) {
- pos__EK2G=Self__JXUE->parent_lip_code__XZ4B.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 1,(&__string_312));
- put_position__FRG(pos__EK2G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- ((__STRING *)string_tmp__VH)->count__SGC= 0;
- append_in__FPIG(__tmp__CYUE,string_tmp__VH);
- Self__35GH=((__STRING *)string_tmp__VH);
- if ((Self__35GH->capacity__UCS > Self__35GH->count__SGC)) {
- ((__CHARACTER *)Self__35GH->storage__3CS)[Self__35GH->count__SGC]='\0';
- } else {
- new_capacity__WPIH= 0;
- if ((Self__35GH->capacity__UCS <= Self__35GH->count__SGC)) {
- if ((Self__35GH->capacity__UCS == 0)) {
- Self__35GH->capacity__UCS= 32;
- Self__35GH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__WPIH=(__INTEGER)(Self__35GH->capacity__UCS << 1);
- Self__YPIH=((__CHARACTER *)Self__35GH->storage__3CS);
- old_nb_elts__ZPIH=Self__35GH->capacity__UCS;
- new__0PIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__YPIH),((__UINTEGER_32 )old_nb_elts__ZPIH),((__UINTEGER_32 )new_capacity__WPIH)));
- upper__KELH=(__INTEGER)(new_capacity__WPIH - 1);
- Self__IELH=old_nb_elts__ZPIH;
- while ((Self__IELH <= upper__KELH)) {
- new__0PIH[Self__IELH]='\0';
- Self__IELH=(__INTEGER)(Self__IELH + 1);
- };
- Self__35GH->storage__3CS=new__0PIH;
- Self__35GH->capacity__UCS=new_capacity__WPIH;
- };
- };
- ((__CHARACTER *)Self__35GH->storage__3CS)[Self__35GH->count__SGC]='\0';
- Self__35GH->count__SGC=(__INTEGER)(Self__35GH->count__SGC + 1);
- Self__35GH->count__SGC=(__INTEGER)(Self__35GH->count__SGC - 1);
- };
- result__OXUE=get__UYSE(LIP_INTEGER__,((__INTEGER )(system(((char*)((Self__35GH->storage__3CS)))))));
- __tmp__TYUE=TRUE__;
- } else {
- __tmp__TYUE=FALSE__;
- };
- if (__tmp__TYUE) {
- __tmp__FZUE=TRUE__;
- } else {
- result__YXXE=((void *)Self__JXUE->name__JRUE == (void *)(&__string_106));
- if (result__YXXE) {
- state__KHXF= 0;
- sign__LHXF=FALSE__;
- while ((state__KHXF <= 2)) {
- if (push_back_flag__P0MF) {
- push_back_flag__P0MF=FALSE__;
- } else {
- memory__OGMF=((__CHARACTER )(fgetc(stdin)));
- };
- if ((state__KHXF == 0)) {
- Self__DACH=memory__OGMF;
- if ((((((((Self__DACH == ' ') || (Self__DACH == '\t')) || (Self__DACH == '\n')) || (Self__DACH == '\r')) || (Self__DACH == '\0')) || (Self__DACH == '\f')) || (Self__DACH == '\v'))) {
- __tmp__3IXF=TRUE__;
- } else {
- Self__IIGH=memory__OGMF;
- result__HIGH=FALSE__;
- if ((((__INTEGER_8 )Self__IIGH) >= ((__INTEGER_8 )'0'))) {
- result__HIGH=(((__INTEGER_8 )Self__IIGH) <= ((__INTEGER_8 )'9'));
- };
- if (result__HIGH) {
- last_integer__AZUE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )memory__OGMF)) - 48);
- state__KHXF= 2;
- };
- __tmp__3IXF=result__HIGH;
- };
- if (__tmp__3IXF) {
- __tmp__KJXF=TRUE__;
- } else {
- result__VGQG=(memory__OGMF == '-');
- if (result__VGQG) {
- sign__LHXF=TRUE__;
- state__KHXF= 1;
- };
- __tmp__KJXF=result__VGQG;
- };
- if ((! __tmp__KJXF)) {
- if ((memory__OGMF == '+')) {
- state__KHXF= 1;
- } else {
- state__KHXF= 4;
- };
- };
- __tmp__3JXF=TRUE__;
- } else {
- __tmp__3JXF=FALSE__;
- };
- if ((! __tmp__3JXF)) {
- if ((state__KHXF == 1)) {
- Self__EACH=memory__OGMF;
- if ((! (((((((Self__EACH == ' ') || (Self__EACH == '\t')) || (Self__EACH == '\n')) || (Self__EACH == '\r')) || (Self__EACH == '\0')) || (Self__EACH == '\f')) || (Self__EACH == '\v')))) {
- Self__LIGH=memory__OGMF;
- result__KIGH=FALSE__;
- if ((((__INTEGER_8 )Self__LIGH) >= ((__INTEGER_8 )'0'))) {
- result__KIGH=(((__INTEGER_8 )Self__LIGH) <= ((__INTEGER_8 )'9'));
- };
- if (result__KIGH) {
- last_integer__AZUE=(__INTEGER)(((__INTEGER )((__INTEGER_8 )memory__OGMF)) - 48);
- state__KHXF= 2;
- } else {
- state__KHXF= 4;
- };
- };
- } else {
- Self__OIGH=memory__OGMF;
- result__NIGH=FALSE__;
- if ((((__INTEGER_8 )Self__OIGH) >= ((__INTEGER_8 )'0'))) {
- result__NIGH=(((__INTEGER_8 )Self__OIGH) <= ((__INTEGER_8 )'9'));
- };
- if (result__NIGH) {
- last_integer__AZUE=(__INTEGER)((__INTEGER)(last_integer__AZUE * 10) + (__INTEGER)(((__INTEGER )((__INTEGER_8 )memory__OGMF)) - 48));
- } else {
- state__KHXF= 3;
- };
- };
- };
- result__2ZEH=FALSE__;
- if ((! push_back_flag__P0MF)) {
- result__2ZEH=(memory__OGMF == ((__CHARACTER )(EOF)));
- };
- if (result__2ZEH) {
- Self__OZGG=state__KHXF;
- if (((state__KHXF >= 0) && (state__KHXF <= 1))) {
- state__KHXF= 4;
- };
- if (((Self__OZGG >= 2) && (Self__OZGG <= 3))) {
- state__KHXF= 3;
- };
- };
- };
- result__3ZEH=FALSE__;
- if ((! push_back_flag__P0MF)) {
- result__3ZEH=(memory__OGMF == ((__CHARACTER )(EOF)));
- };
- if (result__3ZEH) {
- push_back_flag__P0MF=TRUE__;
- };
- if ((state__KHXF == 4)) {
- print__OJD((&__string_331));
- print__OJD((&__string_220));
- fputc((int)('\n'),stdout);
- exit(( 1));
- };
- if (sign__LHXF) {
- last_integer__AZUE=(__INTEGER)(- last_integer__AZUE);
- };
- result__OXUE=get__UYSE(LIP_INTEGER__,last_integer__AZUE);
- };
- __tmp__FZUE=result__YXXE;
- };
- if ((! __tmp__FZUE)) {
- if (((void *)Self__JXUE->name__JRUE == (void *)(&__string_107))) {
- ((__STRING *)last_string__SZUE)->count__SGC= 0;
- mem__GGMF='\0';
- if (push_back_flag__P0MF) {
- push_back_flag__P0MF=FALSE__;
- } else {
- memory__OGMF=((__CHARACTER )(fgetc(stdin)));
- };
- if (((memory__OGMF != '\n') && (memory__OGMF != ((__CHARACTER )(EOF))))) {
- Self__3PIH=((__STRING *)last_string__SZUE);
- ch__BQIH=memory__OGMF;
- new_capacity__2PIH= 0;
- if ((Self__3PIH->capacity__UCS <= Self__3PIH->count__SGC)) {
- if ((Self__3PIH->capacity__UCS == 0)) {
- Self__3PIH->capacity__UCS= 32;
- Self__3PIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__2PIH=(__INTEGER)(Self__3PIH->capacity__UCS << 1);
- Self__4PIH=((__CHARACTER *)Self__3PIH->storage__3CS);
- old_nb_elts__5PIH=Self__3PIH->capacity__UCS;
- new__AQIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__4PIH),((__UINTEGER_32 )old_nb_elts__5PIH),((__UINTEGER_32 )new_capacity__2PIH)));
- upper__PELH=(__INTEGER)(new_capacity__2PIH - 1);
- Self__NELH=old_nb_elts__5PIH;
- while ((Self__NELH <= upper__PELH)) {
- new__AQIH[Self__NELH]='\0';
- Self__NELH=(__INTEGER)(Self__NELH + 1);
- };
- Self__3PIH->storage__3CS=new__AQIH;
- Self__3PIH->capacity__UCS=new_capacity__2PIH;
- };
- };
- ((__CHARACTER *)Self__3PIH->storage__3CS)[Self__3PIH->count__SGC]=ch__BQIH;
- Self__3PIH->count__SGC=(__INTEGER)(Self__3PIH->count__SGC + 1);
- mem__GGMF=((__CHARACTER )(fgetc(stdin)));
- while ((! ((mem__GGMF == ((__CHARACTER )(EOF))) || (mem__GGMF == '\n')))) {
- Self__DQIH=((__STRING *)last_string__SZUE);
- new_capacity__CQIH= 0;
- if ((Self__DQIH->capacity__UCS <= Self__DQIH->count__SGC)) {
- if ((Self__DQIH->capacity__UCS == 0)) {
- Self__DQIH->capacity__UCS= 32;
- Self__DQIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__CQIH=(__INTEGER)(Self__DQIH->capacity__UCS << 1);
- Self__EQIH=((__CHARACTER *)Self__DQIH->storage__3CS);
- old_nb_elts__FQIH=Self__DQIH->capacity__UCS;
- new__GQIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__EQIH),((__UINTEGER_32 )old_nb_elts__FQIH),((__UINTEGER_32 )new_capacity__CQIH)));
- upper__UELH=(__INTEGER)(new_capacity__CQIH - 1);
- Self__SELH=old_nb_elts__FQIH;
- while ((Self__SELH <= upper__UELH)) {
- new__GQIH[Self__SELH]='\0';
- Self__SELH=(__INTEGER)(Self__SELH + 1);
- };
- Self__DQIH->storage__3CS=new__GQIH;
- Self__DQIH->capacity__UCS=new_capacity__CQIH;
- };
- };
- ((__CHARACTER *)Self__DQIH->storage__3CS)[Self__DQIH->count__SGC]=mem__GGMF;
- Self__DQIH->count__SGC=(__INTEGER)(Self__DQIH->count__SGC + 1);
- mem__GGMF=((__CHARACTER )(fgetc(stdin)));
- };
- memory__OGMF=mem__GGMF;
- };
- result__OXUE=get__34FF(LIP_STRING__,get__YWB(last_string__SZUE));
- } else {
- if (((void *)fast_reference_at__PXRD(list_data__HONC,Self__JXUE->name__JRUE) == (void *)NULL)) {
- Self__WCQF=((__FAST_ARRAYoLIP_SLOT_DATAo *)stack__I0UE);
- if (((void *)((void **)Self__WCQF->parent_arrayed_collection__H0UE.storage__SJQF)[Self__WCQF->parent_arrayed_collection__H0UE.upper__ADQF] == (void *)NULL)) {
- copy__VDS(string_tmp__VH,(&__string_309));
- append__3OS(string_tmp__VH,Self__JXUE->name__JRUE);
- append__3OS(string_tmp__VH,(&__string_310));
- pos__B4KF=Self__JXUE->parent_lip_code__XZ4B.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 1,string_tmp__VH);
- put_position__FRG(pos__B4KF);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- print_string("Call on NULL\n(Use `-D' option)\n"); die_with_code(1);
- result__OXUE=NULL;
- };
- };
- if (((void *)val__NXUE != (void *)NULL)) {
- switch (((struct ___OBJ *)val__NXUE)->__id) {
- case __LIP_BOOLEAN__: {
- } break;
- case __LIP_INTEGER__: {
- free__3D4F(val__NXUE);
- } break;
- case __LIP_STRING__: {
- free__LIIG(val__NXUE);
- } break;
- };
- };
- return(result__OXUE);
-}
-
-static void* get__UYSE(__LIP_INTEGER *Self__VYSE,__INTEGER i__WYSE)
-// ({LIP_INTEGER},{INTEGER}) With resultNo recursive, No inlinable.
-{
- void *result__YYSE;
- __LIP_INTEGER *result__I1SF;
- __POINTER ptr__J1SF,ptr_table__XELH,next__WELH,result__YELH;
- __POINTER ptr_table__2ELH,next__1ELH,result__3ELH;
- __INTEGER typ_id__O1SF;
- __UINTEGER_32 sz__L1SF,a__4LGH,new_size__5LGH,t__DMGH,a__CMGH;
- __UINTEGER_32 new_size__5ELH,lab_type__4ELH;
- __FAST_ARRAYoLIP_INTEGERo *Self__XC4E,*Self__ND4E;
- result__YYSE=NULL;
- if ((((__FAST_ARRAYoLIP_INTEGERo *)storage__4YSE)->parent_arrayed_collection__3YSE.upper__GIXE < 0)) {
- result__I1SF=NULL;
- ptr__J1SF=((__POINTER )(NULL));
- typ_id__O1SF= 0;
- sz__L1SF=((__UINTEGER_32 )sizeof(__LIP_INTEGER));
- if ((sz__L1SF == 0)) {
- result__I1SF=Self__VYSE;
- } else {
- typ_id__O1SF=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__L1SF);
- if ((typ_id__O1SF == (__INTEGER)(- 1))) {
- a__4LGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5LGH=(__UINTEGER_32)((__UINTEGER_32)(sz__L1SF + a__4LGH) & (__UINTEGER_32)(~ a__4LGH));
- ptr_table__XELH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5LGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__WELH=((__POINTER )(NULL));
- result__YELH=((__POINTER *)ptr_table__XELH)[ 0];
- if ((result__YELH == (void *)NULL)) {
- result__YELH=new_lab__RTJ(new_size__5LGH);
- next__WELH=(void *)((unsigned long)result__YELH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5LGH)));
- ((__POINTER *)next__WELH)[ 0]=NULL;
- ((__POINTER *)ptr_table__XELH)[ 0]=next__WELH;
- } else {
- next__WELH=((__POINTER *)result__YELH)[ 0];
- if ((next__WELH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YELH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__5LGH << 1)) <= 4096)) {
- next__WELH=(void *)((unsigned long)result__YELH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5LGH)));
- } else {
- next__WELH=new_lab__RTJ(new_size__5LGH);
- };
- ((__POINTER *)next__WELH)[ 0]=NULL;
- ((__POINTER *)ptr_table__XELH)[ 0]=next__WELH;
- } else {
- ((__POINTER *)result__YELH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WELH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__YELH=next__WELH;
- };
- };
- ptr__J1SF=result__YELH;
- } else {
- t__DMGH=((__UINTEGER_32 )typ_id__O1SF);
- a__CMGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5ELH=(__UINTEGER_32)((__UINTEGER_32)(sz__L1SF + a__CMGH) & (__UINTEGER_32)(~ a__CMGH));
- ptr_table__2ELH=((__POINTER )(&(table_type[(t__DMGH)])));
- lab_type__4ELH=(__UINTEGER_32)(t__DMGH | 1);
- next__1ELH=((__POINTER )(NULL));
- result__3ELH=((__POINTER *)ptr_table__2ELH)[ 0];
- if ((result__3ELH == (void *)NULL)) {
- result__3ELH=new_lab__RTJ(lab_type__4ELH);
- next__1ELH=(void *)((unsigned long)result__3ELH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5ELH)));
- ((__POINTER *)next__1ELH)[ 0]=NULL;
- ((__POINTER *)ptr_table__2ELH)[ 0]=next__1ELH;
- } else {
- next__1ELH=((__POINTER *)result__3ELH)[ 0];
- if ((next__1ELH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3ELH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__5ELH << 1)) <= 4096)) {
- next__1ELH=(void *)((unsigned long)result__3ELH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5ELH)));
- } else {
- next__1ELH=new_lab__RTJ(lab_type__4ELH);
- };
- ((__POINTER *)next__1ELH)[ 0]=NULL;
- ((__POINTER *)ptr_table__2ELH)[ 0]=next__1ELH;
- } else {
- ((__POINTER *)result__3ELH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1ELH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__3ELH=next__1ELH;
- };
- };
- ptr__J1SF=result__3ELH;
- };
- result__I1SF=((__LIP_INTEGER *)ptr__J1SF);
- *(result__I1SF) = *(Self__VYSE);
- };
- result__YYSE=result__I1SF;
- } else {
- Self__XC4E=((__FAST_ARRAYoLIP_INTEGERo *)storage__4YSE);
- result__YYSE=((void **)Self__XC4E->parent_arrayed_collection__3YSE.storage__TMXE)[Self__XC4E->parent_arrayed_collection__3YSE.upper__GIXE];
- Self__ND4E=((__FAST_ARRAYoLIP_INTEGERo *)storage__4YSE);
- Self__ND4E->parent_arrayed_collection__3YSE.upper__GIXE=(__INTEGER)(Self__ND4E->parent_arrayed_collection__3YSE.upper__GIXE - 1);
- };
- ((__LIP_INTEGER *)result__YYSE)->value__FP4F=i__WYSE;
- return(result__YYSE);
-}
-
-static void* get__34FF(__LIP_STRING *Self__44FF,void *str__54FF)
-// ({LIP_STRING},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
- void *result__B5FF;
- __LIP_STRING *result__BSBG;
- __POINTER ptr__CSBG,ptr_table__BFLH,next__AFLH,result__CFLH;
- __POINTER ptr_table__GFLH,next__FFLH,result__HFLH;
- __INTEGER typ_id__HSBG;
- __UINTEGER_32 sz__ESBG,a__GMGH,new_size__HMGH,t__LMGH,a__KMGH;
- __UINTEGER_32 new_size__JFLH,lab_type__IFLH;
- __FAST_ARRAYoLIP_STRINGo *Self__IPTF,*Self__4PTF;
- result__B5FF=NULL;
- if ((((__FAST_ARRAYoLIP_STRINGo *)storage__H5FF)->parent_arrayed_collection__G5FF.upper__WZPF < 0)) {
- result__BSBG=NULL;
- ptr__CSBG=((__POINTER )(NULL));
- typ_id__HSBG= 0;
- sz__ESBG=((__UINTEGER_32 )sizeof(__LIP_STRING));
- if ((sz__ESBG == 0)) {
- result__BSBG=Self__44FF;
- } else {
- typ_id__HSBG=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__ESBG);
- if ((typ_id__HSBG == (__INTEGER)(- 1))) {
- a__GMGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HMGH=(__UINTEGER_32)((__UINTEGER_32)(sz__ESBG + a__GMGH) & (__UINTEGER_32)(~ a__GMGH));
- ptr_table__BFLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HMGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__AFLH=((__POINTER )(NULL));
- result__CFLH=((__POINTER *)ptr_table__BFLH)[ 0];
- if ((result__CFLH == (void *)NULL)) {
- result__CFLH=new_lab__RTJ(new_size__HMGH);
- next__AFLH=(void *)((unsigned long)result__CFLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HMGH)));
- ((__POINTER *)next__AFLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__BFLH)[ 0]=next__AFLH;
- } else {
- next__AFLH=((__POINTER *)result__CFLH)[ 0];
- if ((next__AFLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CFLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__HMGH << 1)) <= 4096)) {
- next__AFLH=(void *)((unsigned long)result__CFLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HMGH)));
- } else {
- next__AFLH=new_lab__RTJ(new_size__HMGH);
- };
- ((__POINTER *)next__AFLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__BFLH)[ 0]=next__AFLH;
- } else {
- ((__POINTER *)result__CFLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__AFLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__CFLH=next__AFLH;
- };
- };
- ptr__CSBG=result__CFLH;
- } else {
- t__LMGH=((__UINTEGER_32 )typ_id__HSBG);
- a__KMGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__JFLH=(__UINTEGER_32)((__UINTEGER_32)(sz__ESBG + a__KMGH) & (__UINTEGER_32)(~ a__KMGH));
- ptr_table__GFLH=((__POINTER )(&(table_type[(t__LMGH)])));
- lab_type__IFLH=(__UINTEGER_32)(t__LMGH | 1);
- next__FFLH=((__POINTER )(NULL));
- result__HFLH=((__POINTER *)ptr_table__GFLH)[ 0];
- if ((result__HFLH == (void *)NULL)) {
- result__HFLH=new_lab__RTJ(lab_type__IFLH);
- next__FFLH=(void *)((unsigned long)result__HFLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JFLH)));
- ((__POINTER *)next__FFLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__GFLH)[ 0]=next__FFLH;
- } else {
- next__FFLH=((__POINTER *)result__HFLH)[ 0];
- if ((next__FFLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HFLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__JFLH << 1)) <= 4096)) {
- next__FFLH=(void *)((unsigned long)result__HFLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JFLH)));
- } else {
- next__FFLH=new_lab__RTJ(lab_type__IFLH);
- };
- ((__POINTER *)next__FFLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__GFLH)[ 0]=next__FFLH;
- } else {
- ((__POINTER *)result__HFLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FFLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__HFLH=next__FFLH;
- };
- };
- ptr__CSBG=result__HFLH;
- };
- result__BSBG=((__LIP_STRING *)ptr__CSBG);
- *(result__BSBG) = *(Self__44FF);
- };
- result__B5FF=result__BSBG;
- } else {
- Self__IPTF=((__FAST_ARRAYoLIP_STRINGo *)storage__H5FF);
- result__B5FF=((void **)Self__IPTF->parent_arrayed_collection__G5FF.storage__JBQF)[Self__IPTF->parent_arrayed_collection__G5FF.upper__WZPF];
- Self__4PTF=((__FAST_ARRAYoLIP_STRINGo *)storage__H5FF);
- Self__4PTF->parent_arrayed_collection__G5FF.upper__WZPF=(__INTEGER)(Self__4PTF->parent_arrayed_collection__G5FF.upper__WZPF - 1);
- };
- ((__LIP_STRING *)result__B5FF)->value__WSUE=str__54FF;
- return(result__B5FF);
-}
-
-static void free__3D4F(__LIP_INTEGER *Self__4D4F)
-// ({LIP_INTEGER}) VoidNo recursive, No inlinable.
-{
- __INTEGER new_capacity__0U5F,__tmp__4V5F,__tmp__M4GG,Self__JJJG;
- __FAST_ARRAYoLIP_INTEGERo *Self__YU5F;
- __BOOLEAN __tmp__IV5F;
- void **__tmp__3V5F,**new__Y3GG;
- Self__YU5F=((__FAST_ARRAYoLIP_INTEGERo *)storage__4YSE);
- new_capacity__0U5F= 0;
- if (((__INTEGER)(Self__YU5F->parent_arrayed_collection__3YSE.upper__GIXE + 1) <= (__INTEGER)(Self__YU5F->parent_arrayed_collection__3YSE.capacity__IMXE - 1))) {
- Self__YU5F->parent_arrayed_collection__3YSE.upper__GIXE=(__INTEGER)(Self__YU5F->parent_arrayed_collection__3YSE.upper__GIXE + 1);
- __tmp__IV5F=TRUE__;
- } else {
- __tmp__IV5F=FALSE__;
- };
- if ((! __tmp__IV5F)) {
- if ((Self__YU5F->parent_arrayed_collection__3YSE.capacity__IMXE == 0)) {
- Self__YU5F->parent_arrayed_collection__3YSE.storage__TMXE=create__JPGF( 2);
- Self__YU5F->parent_arrayed_collection__3YSE.capacity__IMXE= 2;
- Self__YU5F->parent_arrayed_collection__3YSE.upper__GIXE= 0;
- } else {
- new_capacity__0U5F=(__INTEGER)(Self__YU5F->parent_arrayed_collection__3YSE.capacity__IMXE << 1);
- __tmp__3V5F=Self__YU5F->parent_arrayed_collection__3YSE.storage__TMXE;
- __tmp__4V5F=Self__YU5F->parent_arrayed_collection__3YSE.capacity__IMXE;
- new__Y3GG=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__3V5F)),((__UINTEGER_32 )(__INTEGER)(__tmp__4V5F * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__0U5F * ((__INTEGER )(sizeof(void *)))))));
- __tmp__M4GG=(__INTEGER)(new_capacity__0U5F - 1);
- Self__JJJG=__tmp__4V5F;
- while ((Self__JJJG <= __tmp__M4GG)) {
- new__Y3GG[Self__JJJG]=NULL;
- Self__JJJG=(__INTEGER)(Self__JJJG + 1);
- };
- Self__YU5F->parent_arrayed_collection__3YSE.storage__TMXE=new__Y3GG;
- Self__YU5F->parent_arrayed_collection__3YSE.capacity__IMXE=new_capacity__0U5F;
- Self__YU5F->parent_arrayed_collection__3YSE.upper__GIXE=(__INTEGER)(Self__YU5F->parent_arrayed_collection__3YSE.upper__GIXE + 1);
- };
- };
- ((void **)Self__YU5F->parent_arrayed_collection__3YSE.storage__TMXE)[Self__YU5F->parent_arrayed_collection__3YSE.upper__GIXE]=Self__4D4F;
-}
-
-static void free__LIIG(__LIP_STRING *Self__MIIG)
-// ({LIP_STRING}) VoidNo recursive, No inlinable.
-{
- __INTEGER new_capacity__FBJG,__tmp__JCJG,__tmp__2JMG,Self__PVNG;
- __FAST_ARRAYoLIP_STRINGo *Self__DBJG;
- __BOOLEAN __tmp__TBJG;
- void **__tmp__ICJG,**new__IJMG;
- Self__DBJG=((__FAST_ARRAYoLIP_STRINGo *)storage__H5FF);
- new_capacity__FBJG= 0;
- if (((__INTEGER)(Self__DBJG->parent_arrayed_collection__G5FF.upper__WZPF + 1) <= (__INTEGER)(Self__DBJG->parent_arrayed_collection__G5FF.capacity__4AQF - 1))) {
- Self__DBJG->parent_arrayed_collection__G5FF.upper__WZPF=(__INTEGER)(Self__DBJG->parent_arrayed_collection__G5FF.upper__WZPF + 1);
- __tmp__TBJG=TRUE__;
- } else {
- __tmp__TBJG=FALSE__;
- };
- if ((! __tmp__TBJG)) {
- if ((Self__DBJG->parent_arrayed_collection__G5FF.capacity__4AQF == 0)) {
- Self__DBJG->parent_arrayed_collection__G5FF.storage__JBQF=create__ARYF( 2);
- Self__DBJG->parent_arrayed_collection__G5FF.capacity__4AQF= 2;
- Self__DBJG->parent_arrayed_collection__G5FF.upper__WZPF= 0;
- } else {
- new_capacity__FBJG=(__INTEGER)(Self__DBJG->parent_arrayed_collection__G5FF.capacity__4AQF << 1);
- __tmp__ICJG=Self__DBJG->parent_arrayed_collection__G5FF.storage__JBQF;
- __tmp__JCJG=Self__DBJG->parent_arrayed_collection__G5FF.capacity__4AQF;
- new__IJMG=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__ICJG)),((__UINTEGER_32 )(__INTEGER)(__tmp__JCJG * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__FBJG * ((__INTEGER )(sizeof(void *)))))));
- __tmp__2JMG=(__INTEGER)(new_capacity__FBJG - 1);
- Self__PVNG=__tmp__JCJG;
- while ((Self__PVNG <= __tmp__2JMG)) {
- new__IJMG[Self__PVNG]=NULL;
- Self__PVNG=(__INTEGER)(Self__PVNG + 1);
- };
- Self__DBJG->parent_arrayed_collection__G5FF.storage__JBQF=new__IJMG;
- Self__DBJG->parent_arrayed_collection__G5FF.capacity__4AQF=new_capacity__FBJG;
- Self__DBJG->parent_arrayed_collection__G5FF.upper__WZPF=(__INTEGER)(Self__DBJG->parent_arrayed_collection__G5FF.upper__WZPF + 1);
- };
- };
- ((void **)Self__DBJG->parent_arrayed_collection__G5FF.storage__JBQF)[Self__DBJG->parent_arrayed_collection__G5FF.upper__WZPF]=Self__MIIG;
-}
-
-static void load_directory__is_recursive__LEXF(__LIP_CALL *Self__MEXF,void *path__NEXF,__BOOLEAN is_rec__OEXF)
-// ({LIP_CALL},{NULLxSTRING_CONSTANT},{TRUExFALSE}) VoidRecursive, No inlinable.
-{
- void *dir__QEXF,*__tmp__JFXF;
- void *entry__PEXF;
- __FILE_UNIX *Self__RDCH;
- __INTEGER __tmp__NFXF,Self__CBOG;
- void *__tmp__UFXF,*__tmp__3FXF,*__tmp__UGXF;
- __POSITION __tmp__CHXF;
- __BOOLEAN __tmp__XEXF,__tmp__BFXF,__tmp__4EXF,__tmp__CFXF,__tmp__AGXF;
- __BOOLEAN __tmp__KGXF,__tmp__NGXF;
- dir__QEXF=NULL;
- if (FILE_SYSTEM__->parent_directory__HHD==0) {
- } else {
- parent_directory__GGD();
- };
- entry__PEXF=get_entry__DZAC(path__NEXF);
- if (((void *)entry__PEXF != (void *)NULL)) {
- if (((struct ___OBJ *)entry__PEXF)->__id==__DIRECTORY_UNIX__) {
- __tmp__XEXF=((void *)((__DIRECTORY_UNIX *)entry__PEXF) != (void *)NULL);
- } else {
- __tmp__XEXF=FALSE__;
- };
- __tmp__BFXF=__tmp__XEXF;
- } else {
- __tmp__BFXF=FALSE__;
- };
- if (__tmp__BFXF) {
- if (((struct ___OBJ *)entry__PEXF)->__id==__DIRECTORY_UNIX__) {
- __tmp__4EXF=open__WHRD(entry__PEXF);
- } else {
- Self__RDCH=((__FILE_UNIX *)entry__PEXF);
- Self__RDCH->stream__BMRD=((__POINTER )(fopen((char*)(((__STRING_CONSTANT *)Self__RDCH->parent_entry_unix__EFF.parent_entry__QGD.path__BD)->storage__RRO),"r+b")));
- __tmp__4EXF=(Self__RDCH->stream__BMRD != (void *)NULL);
- };
- __tmp__CFXF=__tmp__4EXF;
- } else {
- __tmp__CFXF=FALSE__;
- };
- if (__tmp__CFXF) {
- if (entry__PEXF==NULL) {
- __tmp__JFXF=NULL;
- } else {
- switch (((struct ___OBJ *)entry__PEXF)->__id) {
- case __DIRECTORY_UNIX__: {
- __tmp__JFXF=((void *)entry__PEXF);
- } break;
- case __FILE_UNIX__: {
- __tmp__JFXF=NULL;
- } break;
- }
- };
- dir__QEXF=__tmp__JFXF;
- __tmp__NFXF=((__LINKED_LISToENTRYo *)((__DIRECTORY_UNIX *)__tmp__JFXF)->parent_directory__SGD.list__FIRD)->parent_linked_collection__EIRD.upper__HR3D;
- Self__CBOG= 1;
- while ((Self__CBOG <= __tmp__NFXF)) {
- entry__PEXF=item__V3PE(dir__QEXF,Self__CBOG);
- if (((struct ___OBJ *)entry__PEXF)->__id==__DIRECTORY_UNIX__) {
- __tmp__UFXF=((__DIRECTORY_UNIX *)entry__PEXF)->parent_entry_unix__RGD.parent_entry__QGD.name__OPT;
- } else {
- __tmp__UFXF=((__FILE_UNIX *)entry__PEXF)->parent_entry_unix__EFF.parent_entry__QGD.name__OPT;
- };
- if (has_suffix__QJS(__tmp__UFXF)) {
- if (((struct ___OBJ *)entry__PEXF)->__id==__DIRECTORY_UNIX__) {
- __tmp__3FXF=((__DIRECTORY_UNIX *)entry__PEXF)->parent_entry_unix__RGD.parent_entry__QGD.path__BD;
- } else {
- __tmp__3FXF=((__FILE_UNIX *)entry__PEXF)->parent_entry_unix__EFF.parent_entry__QGD.path__BD;
- };
- add_last__SEPD(path_file__1FXF,__tmp__3FXF);
- __tmp__AGXF=TRUE__;
- } else {
- __tmp__AGXF=FALSE__;
- };
- if ((! __tmp__AGXF)) {
- if (is_rec__OEXF) {
- if (((struct ___OBJ *)entry__PEXF)->__id==__DIRECTORY_UNIX__) {
- __tmp__KGXF=((void *)((__DIRECTORY_UNIX *)entry__PEXF) != (void *)NULL);
- } else {
- __tmp__KGXF=FALSE__;
- };
- __tmp__NGXF=__tmp__KGXF;
- } else {
- __tmp__NGXF=FALSE__;
- };
- if (__tmp__NGXF) {
- if (((struct ___OBJ *)entry__PEXF)->__id==__DIRECTORY_UNIX__) {
- __tmp__UGXF=((__DIRECTORY_UNIX *)entry__PEXF)->parent_entry_unix__RGD.parent_entry__QGD.path__BD;
- } else {
- __tmp__UGXF=((__FILE_UNIX *)entry__PEXF)->parent_entry_unix__EFF.parent_entry__QGD.path__BD;
- };
- load_directory__is_recursive__LEXF(Self__MEXF,__tmp__UGXF,TRUE__);
- };
- };
- Self__CBOG=(__INTEGER)(Self__CBOG + 1);
- };
- } else {
- copy__VDS(string_tmp__VH,(&__string_332));
- append__3OS(string_tmp__VH,path__NEXF);
- append__3OS(string_tmp__VH,(&__string_293));
- __tmp__CHXF=Self__MEXF->parent_lip_code__XZ4B.parent_itm_object__XFE.position__SFJ;
- put_error__text__1PG( 2,string_tmp__VH);
- put_position__FRG(__tmp__CHXF);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
-}
-
-static void append_in__FPIG(__LIP_STRING *Self__GPIG,void *str__HPIG)
-// ({LIP_STRING},{NULLxSTRING}) VoidNo recursive, No inlinable.
-{
- __INTEGER i__IPIG,new_capacity__IQIH,old_nb_elts__LQIH,upper__NFLH;
- __INTEGER Self__LFLH,new_capacity__OQIH,old_nb_elts__RQIH,upper__SFLH;
- __INTEGER Self__QFLH,new_capacity__UQIH,old_nb_elts__XQIH,upper__XFLH;
- __INTEGER Self__VFLH,new_capacity__0QIH,old_nb_elts__3QIH,upper__2FLH;
- __INTEGER Self__0FLH,new_capacity__ARIH,old_nb_elts__DRIH,upper__BGLH;
- __INTEGER Self__5FLH,new_capacity__GRIH,old_nb_elts__JRIH,upper__GGLH;
- __INTEGER Self__EGLH,new_capacity__MRIH,old_nb_elts__PRIH,upper__LGLH;
- __INTEGER Self__JGLH,new_capacity__SRIH,old_nb_elts__VRIH,upper__QGLH;
- __INTEGER Self__OGLH,new_capacity__YRIH,old_nb_elts__1RIH,upper__VGLH;
- __INTEGER Self__TGLH,new_capacity__4RIH,old_nb_elts__BSIH,upper__0GLH;
- __INTEGER Self__YGLH,new_capacity__ESIH,old_nb_elts__HSIH,upper__5GLH;
- __INTEGER Self__3GLH,new_capacity__KSIH,old_nb_elts__NSIH,upper__EHLH;
- __INTEGER Self__CHLH,new_capacity__QSIH,old_nb_elts__TSIH,upper__JHLH;
- __INTEGER Self__HHLH;
- __STRING *Self__JQIH,*Self__PQIH,*Self__VQIH,*Self__1QIH,*Self__BRIH;
- __STRING *Self__HRIH,*Self__NRIH,*Self__TRIH,*Self__ZRIH,*Self__5RIH;
- __STRING *Self__FSIH,*Self__LSIH,*Self__RSIH;
- __CHARACTER car__JPIG;
- __CHARACTER *Self__KQIH,*new__MQIH,*Self__QQIH,*new__SQIH,*Self__WQIH;
- __CHARACTER *new__YQIH,*Self__2QIH,*new__4QIH,*Self__CRIH,*new__ERIH;
- __CHARACTER *Self__IRIH,*new__KRIH,*Self__ORIH,*new__QRIH,*Self__URIH;
- __CHARACTER *new__WRIH,*Self__0RIH,*new__2RIH,*Self__ASIH,*new__CSIH;
- __CHARACTER *Self__GSIH,*new__ISIH,*Self__MSIH,*new__OSIH,*Self__SSIH;
- __CHARACTER *new__USIH;
- car__JPIG='\0';
- i__IPIG= 1;
- while ((i__IPIG <= ((__STRING_CONSTANT *)Self__GPIG->value__WSUE)->count__DD)) {
- car__JPIG=((__CHARACTER *)((__STRING_CONSTANT *)Self__GPIG->value__WSUE)->storage__RRO)[(__INTEGER)(i__IPIG - 1)];
- if ((car__JPIG == '\\')) {
- i__IPIG=(__INTEGER)(i__IPIG + 1);
- if ((i__IPIG <= ((__STRING_CONSTANT *)Self__GPIG->value__WSUE)->count__DD)) {
- car__JPIG=((__CHARACTER *)((__STRING_CONSTANT *)Self__GPIG->value__WSUE)->storage__RRO)[(__INTEGER)(i__IPIG - 1)];
- if ((car__JPIG == 'a')) {
- Self__JQIH=((__STRING *)str__HPIG);
- new_capacity__IQIH= 0;
- if ((Self__JQIH->capacity__UCS <= Self__JQIH->count__SGC)) {
- if ((Self__JQIH->capacity__UCS == 0)) {
- Self__JQIH->capacity__UCS= 32;
- Self__JQIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__IQIH=(__INTEGER)(Self__JQIH->capacity__UCS << 1);
- Self__KQIH=((__CHARACTER *)Self__JQIH->storage__3CS);
- old_nb_elts__LQIH=Self__JQIH->capacity__UCS;
- new__MQIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__KQIH),((__UINTEGER_32 )old_nb_elts__LQIH),((__UINTEGER_32 )new_capacity__IQIH)));
- upper__NFLH=(__INTEGER)(new_capacity__IQIH - 1);
- Self__LFLH=old_nb_elts__LQIH;
- while ((Self__LFLH <= upper__NFLH)) {
- new__MQIH[Self__LFLH]='\0';
- Self__LFLH=(__INTEGER)(Self__LFLH + 1);
- };
- Self__JQIH->storage__3CS=new__MQIH;
- Self__JQIH->capacity__UCS=new_capacity__IQIH;
- };
- };
- ((__CHARACTER *)Self__JQIH->storage__3CS)[Self__JQIH->count__SGC]='\a';
- Self__JQIH->count__SGC=(__INTEGER)(Self__JQIH->count__SGC + 1);
- };
- if ((car__JPIG == 'b')) {
- Self__PQIH=((__STRING *)str__HPIG);
- new_capacity__OQIH= 0;
- if ((Self__PQIH->capacity__UCS <= Self__PQIH->count__SGC)) {
- if ((Self__PQIH->capacity__UCS == 0)) {
- Self__PQIH->capacity__UCS= 32;
- Self__PQIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__OQIH=(__INTEGER)(Self__PQIH->capacity__UCS << 1);
- Self__QQIH=((__CHARACTER *)Self__PQIH->storage__3CS);
- old_nb_elts__RQIH=Self__PQIH->capacity__UCS;
- new__SQIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__QQIH),((__UINTEGER_32 )old_nb_elts__RQIH),((__UINTEGER_32 )new_capacity__OQIH)));
- upper__SFLH=(__INTEGER)(new_capacity__OQIH - 1);
- Self__QFLH=old_nb_elts__RQIH;
- while ((Self__QFLH <= upper__SFLH)) {
- new__SQIH[Self__QFLH]='\0';
- Self__QFLH=(__INTEGER)(Self__QFLH + 1);
- };
- Self__PQIH->storage__3CS=new__SQIH;
- Self__PQIH->capacity__UCS=new_capacity__OQIH;
- };
- };
- ((__CHARACTER *)Self__PQIH->storage__3CS)[Self__PQIH->count__SGC]='\b';
- Self__PQIH->count__SGC=(__INTEGER)(Self__PQIH->count__SGC + 1);
- };
- if ((car__JPIG == 'f')) {
- Self__VQIH=((__STRING *)str__HPIG);
- new_capacity__UQIH= 0;
- if ((Self__VQIH->capacity__UCS <= Self__VQIH->count__SGC)) {
- if ((Self__VQIH->capacity__UCS == 0)) {
- Self__VQIH->capacity__UCS= 32;
- Self__VQIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__UQIH=(__INTEGER)(Self__VQIH->capacity__UCS << 1);
- Self__WQIH=((__CHARACTER *)Self__VQIH->storage__3CS);
- old_nb_elts__XQIH=Self__VQIH->capacity__UCS;
- new__YQIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__WQIH),((__UINTEGER_32 )old_nb_elts__XQIH),((__UINTEGER_32 )new_capacity__UQIH)));
- upper__XFLH=(__INTEGER)(new_capacity__UQIH - 1);
- Self__VFLH=old_nb_elts__XQIH;
- while ((Self__VFLH <= upper__XFLH)) {
- new__YQIH[Self__VFLH]='\0';
- Self__VFLH=(__INTEGER)(Self__VFLH + 1);
- };
- Self__VQIH->storage__3CS=new__YQIH;
- Self__VQIH->capacity__UCS=new_capacity__UQIH;
- };
- };
- ((__CHARACTER *)Self__VQIH->storage__3CS)[Self__VQIH->count__SGC]='\f';
- Self__VQIH->count__SGC=(__INTEGER)(Self__VQIH->count__SGC + 1);
- };
- if ((car__JPIG == 'n')) {
- Self__1QIH=((__STRING *)str__HPIG);
- new_capacity__0QIH= 0;
- if ((Self__1QIH->capacity__UCS <= Self__1QIH->count__SGC)) {
- if ((Self__1QIH->capacity__UCS == 0)) {
- Self__1QIH->capacity__UCS= 32;
- Self__1QIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__0QIH=(__INTEGER)(Self__1QIH->capacity__UCS << 1);
- Self__2QIH=((__CHARACTER *)Self__1QIH->storage__3CS);
- old_nb_elts__3QIH=Self__1QIH->capacity__UCS;
- new__4QIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__2QIH),((__UINTEGER_32 )old_nb_elts__3QIH),((__UINTEGER_32 )new_capacity__0QIH)));
- upper__2FLH=(__INTEGER)(new_capacity__0QIH - 1);
- Self__0FLH=old_nb_elts__3QIH;
- while ((Self__0FLH <= upper__2FLH)) {
- new__4QIH[Self__0FLH]='\0';
- Self__0FLH=(__INTEGER)(Self__0FLH + 1);
- };
- Self__1QIH->storage__3CS=new__4QIH;
- Self__1QIH->capacity__UCS=new_capacity__0QIH;
- };
- };
- ((__CHARACTER *)Self__1QIH->storage__3CS)[Self__1QIH->count__SGC]='\n';
- Self__1QIH->count__SGC=(__INTEGER)(Self__1QIH->count__SGC + 1);
- };
- if ((car__JPIG == 'r')) {
- Self__BRIH=((__STRING *)str__HPIG);
- new_capacity__ARIH= 0;
- if ((Self__BRIH->capacity__UCS <= Self__BRIH->count__SGC)) {
- if ((Self__BRIH->capacity__UCS == 0)) {
- Self__BRIH->capacity__UCS= 32;
- Self__BRIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__ARIH=(__INTEGER)(Self__BRIH->capacity__UCS << 1);
- Self__CRIH=((__CHARACTER *)Self__BRIH->storage__3CS);
- old_nb_elts__DRIH=Self__BRIH->capacity__UCS;
- new__ERIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__CRIH),((__UINTEGER_32 )old_nb_elts__DRIH),((__UINTEGER_32 )new_capacity__ARIH)));
- upper__BGLH=(__INTEGER)(new_capacity__ARIH - 1);
- Self__5FLH=old_nb_elts__DRIH;
- while ((Self__5FLH <= upper__BGLH)) {
- new__ERIH[Self__5FLH]='\0';
- Self__5FLH=(__INTEGER)(Self__5FLH + 1);
- };
- Self__BRIH->storage__3CS=new__ERIH;
- Self__BRIH->capacity__UCS=new_capacity__ARIH;
- };
- };
- ((__CHARACTER *)Self__BRIH->storage__3CS)[Self__BRIH->count__SGC]='\r';
- Self__BRIH->count__SGC=(__INTEGER)(Self__BRIH->count__SGC + 1);
- };
- if ((car__JPIG == 't')) {
- Self__HRIH=((__STRING *)str__HPIG);
- new_capacity__GRIH= 0;
- if ((Self__HRIH->capacity__UCS <= Self__HRIH->count__SGC)) {
- if ((Self__HRIH->capacity__UCS == 0)) {
- Self__HRIH->capacity__UCS= 32;
- Self__HRIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__GRIH=(__INTEGER)(Self__HRIH->capacity__UCS << 1);
- Self__IRIH=((__CHARACTER *)Self__HRIH->storage__3CS);
- old_nb_elts__JRIH=Self__HRIH->capacity__UCS;
- new__KRIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__IRIH),((__UINTEGER_32 )old_nb_elts__JRIH),((__UINTEGER_32 )new_capacity__GRIH)));
- upper__GGLH=(__INTEGER)(new_capacity__GRIH - 1);
- Self__EGLH=old_nb_elts__JRIH;
- while ((Self__EGLH <= upper__GGLH)) {
- new__KRIH[Self__EGLH]='\0';
- Self__EGLH=(__INTEGER)(Self__EGLH + 1);
- };
- Self__HRIH->storage__3CS=new__KRIH;
- Self__HRIH->capacity__UCS=new_capacity__GRIH;
- };
- };
- ((__CHARACTER *)Self__HRIH->storage__3CS)[Self__HRIH->count__SGC]='\t';
- Self__HRIH->count__SGC=(__INTEGER)(Self__HRIH->count__SGC + 1);
- };
- if ((car__JPIG == 'v')) {
- Self__NRIH=((__STRING *)str__HPIG);
- new_capacity__MRIH= 0;
- if ((Self__NRIH->capacity__UCS <= Self__NRIH->count__SGC)) {
- if ((Self__NRIH->capacity__UCS == 0)) {
- Self__NRIH->capacity__UCS= 32;
- Self__NRIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__MRIH=(__INTEGER)(Self__NRIH->capacity__UCS << 1);
- Self__ORIH=((__CHARACTER *)Self__NRIH->storage__3CS);
- old_nb_elts__PRIH=Self__NRIH->capacity__UCS;
- new__QRIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__ORIH),((__UINTEGER_32 )old_nb_elts__PRIH),((__UINTEGER_32 )new_capacity__MRIH)));
- upper__LGLH=(__INTEGER)(new_capacity__MRIH - 1);
- Self__JGLH=old_nb_elts__PRIH;
- while ((Self__JGLH <= upper__LGLH)) {
- new__QRIH[Self__JGLH]='\0';
- Self__JGLH=(__INTEGER)(Self__JGLH + 1);
- };
- Self__NRIH->storage__3CS=new__QRIH;
- Self__NRIH->capacity__UCS=new_capacity__MRIH;
- };
- };
- ((__CHARACTER *)Self__NRIH->storage__3CS)[Self__NRIH->count__SGC]='\v';
- Self__NRIH->count__SGC=(__INTEGER)(Self__NRIH->count__SGC + 1);
- };
- if ((car__JPIG == '\\')) {
- Self__TRIH=((__STRING *)str__HPIG);
- new_capacity__SRIH= 0;
- if ((Self__TRIH->capacity__UCS <= Self__TRIH->count__SGC)) {
- if ((Self__TRIH->capacity__UCS == 0)) {
- Self__TRIH->capacity__UCS= 32;
- Self__TRIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__SRIH=(__INTEGER)(Self__TRIH->capacity__UCS << 1);
- Self__URIH=((__CHARACTER *)Self__TRIH->storage__3CS);
- old_nb_elts__VRIH=Self__TRIH->capacity__UCS;
- new__WRIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__URIH),((__UINTEGER_32 )old_nb_elts__VRIH),((__UINTEGER_32 )new_capacity__SRIH)));
- upper__QGLH=(__INTEGER)(new_capacity__SRIH - 1);
- Self__OGLH=old_nb_elts__VRIH;
- while ((Self__OGLH <= upper__QGLH)) {
- new__WRIH[Self__OGLH]='\0';
- Self__OGLH=(__INTEGER)(Self__OGLH + 1);
- };
- Self__TRIH->storage__3CS=new__WRIH;
- Self__TRIH->capacity__UCS=new_capacity__SRIH;
- };
- };
- ((__CHARACTER *)Self__TRIH->storage__3CS)[Self__TRIH->count__SGC]='\\';
- Self__TRIH->count__SGC=(__INTEGER)(Self__TRIH->count__SGC + 1);
- };
- if ((car__JPIG == '?')) {
- Self__ZRIH=((__STRING *)str__HPIG);
- new_capacity__YRIH= 0;
- if ((Self__ZRIH->capacity__UCS <= Self__ZRIH->count__SGC)) {
- if ((Self__ZRIH->capacity__UCS == 0)) {
- Self__ZRIH->capacity__UCS= 32;
- Self__ZRIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__YRIH=(__INTEGER)(Self__ZRIH->capacity__UCS << 1);
- Self__0RIH=((__CHARACTER *)Self__ZRIH->storage__3CS);
- old_nb_elts__1RIH=Self__ZRIH->capacity__UCS;
- new__2RIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__0RIH),((__UINTEGER_32 )old_nb_elts__1RIH),((__UINTEGER_32 )new_capacity__YRIH)));
- upper__VGLH=(__INTEGER)(new_capacity__YRIH - 1);
- Self__TGLH=old_nb_elts__1RIH;
- while ((Self__TGLH <= upper__VGLH)) {
- new__2RIH[Self__TGLH]='\0';
- Self__TGLH=(__INTEGER)(Self__TGLH + 1);
- };
- Self__ZRIH->storage__3CS=new__2RIH;
- Self__ZRIH->capacity__UCS=new_capacity__YRIH;
- };
- };
- ((__CHARACTER *)Self__ZRIH->storage__3CS)[Self__ZRIH->count__SGC]='\?';
- Self__ZRIH->count__SGC=(__INTEGER)(Self__ZRIH->count__SGC + 1);
- };
- if ((car__JPIG == '\'')) {
- Self__5RIH=((__STRING *)str__HPIG);
- new_capacity__4RIH= 0;
- if ((Self__5RIH->capacity__UCS <= Self__5RIH->count__SGC)) {
- if ((Self__5RIH->capacity__UCS == 0)) {
- Self__5RIH->capacity__UCS= 32;
- Self__5RIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__4RIH=(__INTEGER)(Self__5RIH->capacity__UCS << 1);
- Self__ASIH=((__CHARACTER *)Self__5RIH->storage__3CS);
- old_nb_elts__BSIH=Self__5RIH->capacity__UCS;
- new__CSIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__ASIH),((__UINTEGER_32 )old_nb_elts__BSIH),((__UINTEGER_32 )new_capacity__4RIH)));
- upper__0GLH=(__INTEGER)(new_capacity__4RIH - 1);
- Self__YGLH=old_nb_elts__BSIH;
- while ((Self__YGLH <= upper__0GLH)) {
- new__CSIH[Self__YGLH]='\0';
- Self__YGLH=(__INTEGER)(Self__YGLH + 1);
- };
- Self__5RIH->storage__3CS=new__CSIH;
- Self__5RIH->capacity__UCS=new_capacity__4RIH;
- };
- };
- ((__CHARACTER *)Self__5RIH->storage__3CS)[Self__5RIH->count__SGC]='\'';
- Self__5RIH->count__SGC=(__INTEGER)(Self__5RIH->count__SGC + 1);
- };
- if ((car__JPIG == '\"')) {
- Self__FSIH=((__STRING *)str__HPIG);
- new_capacity__ESIH= 0;
- if ((Self__FSIH->capacity__UCS <= Self__FSIH->count__SGC)) {
- if ((Self__FSIH->capacity__UCS == 0)) {
- Self__FSIH->capacity__UCS= 32;
- Self__FSIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__ESIH=(__INTEGER)(Self__FSIH->capacity__UCS << 1);
- Self__GSIH=((__CHARACTER *)Self__FSIH->storage__3CS);
- old_nb_elts__HSIH=Self__FSIH->capacity__UCS;
- new__ISIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__GSIH),((__UINTEGER_32 )old_nb_elts__HSIH),((__UINTEGER_32 )new_capacity__ESIH)));
- upper__5GLH=(__INTEGER)(new_capacity__ESIH - 1);
- Self__3GLH=old_nb_elts__HSIH;
- while ((Self__3GLH <= upper__5GLH)) {
- new__ISIH[Self__3GLH]='\0';
- Self__3GLH=(__INTEGER)(Self__3GLH + 1);
- };
- Self__FSIH->storage__3CS=new__ISIH;
- Self__FSIH->capacity__UCS=new_capacity__ESIH;
- };
- };
- ((__CHARACTER *)Self__FSIH->storage__3CS)[Self__FSIH->count__SGC]='\"';
- Self__FSIH->count__SGC=(__INTEGER)(Self__FSIH->count__SGC + 1);
- };
- } else {
- Self__LSIH=((__STRING *)str__HPIG);
- new_capacity__KSIH= 0;
- if ((Self__LSIH->capacity__UCS <= Self__LSIH->count__SGC)) {
- if ((Self__LSIH->capacity__UCS == 0)) {
- Self__LSIH->capacity__UCS= 32;
- Self__LSIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__KSIH=(__INTEGER)(Self__LSIH->capacity__UCS << 1);
- Self__MSIH=((__CHARACTER *)Self__LSIH->storage__3CS);
- old_nb_elts__NSIH=Self__LSIH->capacity__UCS;
- new__OSIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__MSIH),((__UINTEGER_32 )old_nb_elts__NSIH),((__UINTEGER_32 )new_capacity__KSIH)));
- upper__EHLH=(__INTEGER)(new_capacity__KSIH - 1);
- Self__CHLH=old_nb_elts__NSIH;
- while ((Self__CHLH <= upper__EHLH)) {
- new__OSIH[Self__CHLH]='\0';
- Self__CHLH=(__INTEGER)(Self__CHLH + 1);
- };
- Self__LSIH->storage__3CS=new__OSIH;
- Self__LSIH->capacity__UCS=new_capacity__KSIH;
- };
- };
- ((__CHARACTER *)Self__LSIH->storage__3CS)[Self__LSIH->count__SGC]=car__JPIG;
- Self__LSIH->count__SGC=(__INTEGER)(Self__LSIH->count__SGC + 1);
- };
- } else {
- Self__RSIH=((__STRING *)str__HPIG);
- new_capacity__QSIH= 0;
- if ((Self__RSIH->capacity__UCS <= Self__RSIH->count__SGC)) {
- if ((Self__RSIH->capacity__UCS == 0)) {
- Self__RSIH->capacity__UCS= 32;
- Self__RSIH->storage__3CS=create__YIEB( 32);
- } else {
- new_capacity__QSIH=(__INTEGER)(Self__RSIH->capacity__UCS << 1);
- Self__SSIH=((__CHARACTER *)Self__RSIH->storage__3CS);
- old_nb_elts__TSIH=Self__RSIH->capacity__UCS;
- new__USIH=((__CHARACTER *)realloc_dynamic__old_size__new_size__KELC(((__POINTER )Self__SSIH),((__UINTEGER_32 )old_nb_elts__TSIH),((__UINTEGER_32 )new_capacity__QSIH)));
- upper__JHLH=(__INTEGER)(new_capacity__QSIH - 1);
- Self__HHLH=old_nb_elts__TSIH;
- while ((Self__HHLH <= upper__JHLH)) {
- new__USIH[Self__HHLH]='\0';
- Self__HHLH=(__INTEGER)(Self__HHLH + 1);
- };
- Self__RSIH->storage__3CS=new__USIH;
- Self__RSIH->capacity__UCS=new_capacity__QSIH;
- };
- };
- ((__CHARACTER *)Self__RSIH->storage__3CS)[Self__RSIH->count__SGC]=car__JPIG;
- Self__RSIH->count__SGC=(__INTEGER)(Self__RSIH->count__SGC + 1);
- };
- i__IPIG=(__INTEGER)(i__IPIG + 1);
- };
-}
-
-static void print_positif__VHLG(__INTEGER Self__WHLG)
-// ({INTEGER}) VoidRecursive, No inlinable.
-{
- __INTEGER val__5HLG;
- __CHARACTER char__4HLG;
- char__4HLG=((__CHARACTER )(((__INTEGER_8)(((__INTEGER_8 )(__INTEGER)(Self__WHLG % 10)) + ((__INTEGER_8 )'0')))));
- val__5HLG=(__INTEGER)(Self__WHLG / 10);
- if ((val__5HLG != 0)) {
- print_positif__VHLG(val__5HLG);
- };
- fputc((int)(char__4HLG),stdout);
-}
-
-static __BOOLEAN fast_has__1K1(__HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo *Self__2K1,void *e__3K1)
-// ({HASHED_SEToFAST_ARRAYoITM_TYPE_MONOoo},{NULLxFAST_ARRAYoITM_TYPE_MONOo}) With resultNo recursive, No inlinable.
-{
- void *node__GL1;
- node__GL1=((void **)Self__2K1->buckets__K5V)[(__INTEGER)(hash_code__S30(e__3K1) % Self__2K1->capacity__F5V)];
- while ((! (((void *)node__GL1 == (void *)NULL) || ((void *)((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node__GL1)->item__W5V == (void *)e__3K1)))) {
- node__GL1=((__HASHED_SET_NODEoFAST_ARRAYoITM_TYPE_MONOoo *)node__GL1)->next__CAW;
- };
- return(((void *)node__GL1 != (void *)NULL));
-}
-
-static __BOOLEAN has__MIMB(__HASHED_SEToSTRING_CONSTANTo *Self__NIMB,void *e__OIMB)
-// ({HASHED_SEToSTRING_CONSTANTo},{NULLxSTRING_CONSTANT}) With resultNo recursive, No inlinable.
-{
- void *node__XIMB;
- node__XIMB=((void **)Self__NIMB->buckets__DEV)[(__INTEGER)(hash_code__RNW(e__OIMB) % Self__NIMB->capacity__HIT)];
- while ((! (((void *)node__XIMB == (void *)NULL) || __infix_equal_equal__V2DB(((__HASHED_SET_NODEoSTRING_CONSTANTo *)node__XIMB)->item__PEV,e__OIMB)))) {
- node__XIMB=((__HASHED_SET_NODEoSTRING_CONSTANTo *)node__XIMB)->next__0EV;
- };
- return(((void *)node__XIMB != (void *)NULL));
-}
-
-static __FAST_ARRAYoITM_LOCALo* create_with_capacity__LLK(__INTEGER new_count__NLK)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __POINTER ptr__J5K,ptr_table__MHLH,next__LHLH,result__NHLH;
- __POINTER ptr_table__RHLH,next__QHLH,result__SHLH;
- __INTEGER typ_id__O5K;
- __UINTEGER_32 sz__L5K,a__OMGH,new_size__PMGH,t__TMGH,a__SMGH;
- __UINTEGER_32 new_size__UHLH,lab_type__THLH;
- __FAST_ARRAYoITM_LOCALo *result__I5K,*Self__KOU;
- result__I5K=NULL;
- ptr__J5K=((__POINTER )(NULL));
- typ_id__O5K= 0;
- sz__L5K=((__UINTEGER_32 )sizeof(__FAST_ARRAYoITM_LOCALo));
- if ((sz__L5K == 0)) {
- result__I5K=FAST_ARRAYoITM_LOCALo__;
- } else {
- typ_id__O5K=__FAST_ARRAYoITM_LOCALo__;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__L5K);
- if ((typ_id__O5K == (__INTEGER)(- 1))) {
- a__OMGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__PMGH=(__UINTEGER_32)((__UINTEGER_32)(sz__L5K + a__OMGH) & (__UINTEGER_32)(~ a__OMGH));
- ptr_table__MHLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PMGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__LHLH=((__POINTER )(NULL));
- result__NHLH=((__POINTER *)ptr_table__MHLH)[ 0];
- if ((result__NHLH == (void *)NULL)) {
- result__NHLH=new_lab__RTJ(new_size__PMGH);
- next__LHLH=(void *)((unsigned long)result__NHLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PMGH)));
- ((__POINTER *)next__LHLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__MHLH)[ 0]=next__LHLH;
- } else {
- next__LHLH=((__POINTER *)result__NHLH)[ 0];
- if ((next__LHLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NHLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__PMGH << 1)) <= 4096)) {
- next__LHLH=(void *)((unsigned long)result__NHLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PMGH)));
- } else {
- next__LHLH=new_lab__RTJ(new_size__PMGH);
- };
- ((__POINTER *)next__LHLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__MHLH)[ 0]=next__LHLH;
- } else {
- ((__POINTER *)result__NHLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LHLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__NHLH=next__LHLH;
- };
- };
- ptr__J5K=result__NHLH;
- } else {
- t__TMGH=((__UINTEGER_32 )typ_id__O5K);
- a__SMGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__UHLH=(__UINTEGER_32)((__UINTEGER_32)(sz__L5K + a__SMGH) & (__UINTEGER_32)(~ a__SMGH));
- ptr_table__RHLH=((__POINTER )(&(table_type[(t__TMGH)])));
- lab_type__THLH=(__UINTEGER_32)(t__TMGH | 1);
- next__QHLH=((__POINTER )(NULL));
- result__SHLH=((__POINTER *)ptr_table__RHLH)[ 0];
- if ((result__SHLH == (void *)NULL)) {
- result__SHLH=new_lab__RTJ(lab_type__THLH);
- next__QHLH=(void *)((unsigned long)result__SHLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UHLH)));
- ((__POINTER *)next__QHLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__RHLH)[ 0]=next__QHLH;
- } else {
- next__QHLH=((__POINTER *)result__SHLH)[ 0];
- if ((next__QHLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SHLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__UHLH << 1)) <= 4096)) {
- next__QHLH=(void *)((unsigned long)result__SHLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__UHLH)));
- } else {
- next__QHLH=new_lab__RTJ(lab_type__THLH);
- };
- ((__POINTER *)next__QHLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__RHLH)[ 0]=next__QHLH;
- } else {
- ((__POINTER *)result__SHLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QHLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__SHLH=next__QHLH;
- };
- };
- ptr__J5K=result__SHLH;
- };
- result__I5K=((__FAST_ARRAYoITM_LOCALo *)ptr__J5K);
- *(result__I5K) = *(FAST_ARRAYoITM_LOCALo__);
- };
- Self__KOU=((__FAST_ARRAYoITM_LOCALo *)result__I5K);
- if ((Self__KOU->parent_arrayed_collection__T3H.capacity__IMU < new_count__NLK)) {
- Self__KOU->parent_arrayed_collection__T3H.storage__TMU=create__KPQB(new_count__NLK);
- Self__KOU->parent_arrayed_collection__T3H.capacity__IMU=new_count__NLK;
- };
- Self__KOU->parent_arrayed_collection__T3H.upper__M2K=(__INTEGER)(- 1);
- return(result__I5K);
-}
-
-static void add_last__Z1U(__FAST_ARRAYoITM_LOCALo *Self__01U,void *element__11U)
-// ({FAST_ARRAYoITM_LOCALo},{NULLxITM_LOCAL}) VoidNo recursive, No inlinable.
-{
- __INTEGER new_capacity__21U,__tmp__A3U,__tmp__0BEC,Self__KKVD;
- __BOOLEAN __tmp__K2U;
- void **__tmp__52U,**new__GBEC;
- new_capacity__21U= 0;
- if (((__INTEGER)(Self__01U->parent_arrayed_collection__T3H.upper__M2K + 1) <= (__INTEGER)(Self__01U->parent_arrayed_collection__T3H.capacity__IMU - 1))) {
- Self__01U->parent_arrayed_collection__T3H.upper__M2K=(__INTEGER)(Self__01U->parent_arrayed_collection__T3H.upper__M2K + 1);
- __tmp__K2U=TRUE__;
- } else {
- __tmp__K2U=FALSE__;
- };
- if ((! __tmp__K2U)) {
- if ((Self__01U->parent_arrayed_collection__T3H.capacity__IMU == 0)) {
- Self__01U->parent_arrayed_collection__T3H.storage__TMU=create__KPQB( 2);
- Self__01U->parent_arrayed_collection__T3H.capacity__IMU= 2;
- Self__01U->parent_arrayed_collection__T3H.upper__M2K= 0;
- } else {
- new_capacity__21U=(__INTEGER)(Self__01U->parent_arrayed_collection__T3H.capacity__IMU << 1);
- __tmp__52U=Self__01U->parent_arrayed_collection__T3H.storage__TMU;
- __tmp__A3U=Self__01U->parent_arrayed_collection__T3H.capacity__IMU;
- new__GBEC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__52U)),((__UINTEGER_32 )(__INTEGER)(__tmp__A3U * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__21U * ((__INTEGER )(sizeof(void *)))))));
- __tmp__0BEC=(__INTEGER)(new_capacity__21U - 1);
- Self__KKVD=__tmp__A3U;
- while ((Self__KKVD <= __tmp__0BEC)) {
- new__GBEC[Self__KKVD]=NULL;
- Self__KKVD=(__INTEGER)(Self__KKVD + 1);
- };
- Self__01U->parent_arrayed_collection__T3H.storage__TMU=new__GBEC;
- Self__01U->parent_arrayed_collection__T3H.capacity__IMU=new_capacity__21U;
- Self__01U->parent_arrayed_collection__T3H.upper__M2K=(__INTEGER)(Self__01U->parent_arrayed_collection__T3H.upper__M2K + 1);
- };
- };
- ((void **)Self__01U->parent_arrayed_collection__T3H.storage__TMU)[Self__01U->parent_arrayed_collection__T3H.upper__M2K]=element__11U;
-}
-
-static void free__RLK(void *tmp__TLK)
-// ({NULLxFAST_ARRAYoITM_LOCALo}) VoidNo recursive, No inlinable.
-{
- __INTEGER new_capacity__DQU,__tmp__HRU,__tmp__O5DC,Self__LIVD;
- __FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *Self__BQU;
- __BOOLEAN __tmp__RQU;
- void **__tmp__GRU,**new__04DC;
- ((__FAST_ARRAYoITM_LOCALo *)tmp__TLK)->parent_arrayed_collection__T3H.upper__M2K=(__INTEGER)(- 1);
- Self__BQU=((__FAST_ARRAYoFAST_ARRAYoITM_LOCALoo *)free_list__0TI);
- new_capacity__DQU= 0;
- if (((__INTEGER)(Self__BQU->parent_arrayed_collection__ZTI.upper__C3T + 1) <= (__INTEGER)(Self__BQU->parent_arrayed_collection__ZTI.capacity__NKU - 1))) {
- Self__BQU->parent_arrayed_collection__ZTI.upper__C3T=(__INTEGER)(Self__BQU->parent_arrayed_collection__ZTI.upper__C3T + 1);
- __tmp__RQU=TRUE__;
- } else {
- __tmp__RQU=FALSE__;
- };
- if ((! __tmp__RQU)) {
- if ((Self__BQU->parent_arrayed_collection__ZTI.capacity__NKU == 0)) {
- Self__BQU->parent_arrayed_collection__ZTI.storage__YKU=create__NFQB( 2);
- Self__BQU->parent_arrayed_collection__ZTI.capacity__NKU= 2;
- Self__BQU->parent_arrayed_collection__ZTI.upper__C3T= 0;
- } else {
- new_capacity__DQU=(__INTEGER)(Self__BQU->parent_arrayed_collection__ZTI.capacity__NKU << 1);
- __tmp__GRU=Self__BQU->parent_arrayed_collection__ZTI.storage__YKU;
- __tmp__HRU=Self__BQU->parent_arrayed_collection__ZTI.capacity__NKU;
- new__04DC=((void **)realloc_dynamic__old_size__new_size__KELC(((__POINTER )((void **)__tmp__GRU)),((__UINTEGER_32 )(__INTEGER)(__tmp__HRU * ((__INTEGER )(sizeof(void *))))),((__UINTEGER_32 )(__INTEGER)(new_capacity__DQU * ((__INTEGER )(sizeof(void *)))))));
- __tmp__O5DC=(__INTEGER)(new_capacity__DQU - 1);
- Self__LIVD=__tmp__HRU;
- while ((Self__LIVD <= __tmp__O5DC)) {
- new__04DC[Self__LIVD]=NULL;
- Self__LIVD=(__INTEGER)(Self__LIVD + 1);
- };
- Self__BQU->parent_arrayed_collection__ZTI.storage__YKU=new__04DC;
- Self__BQU->parent_arrayed_collection__ZTI.capacity__NKU=new_capacity__DQU;
- Self__BQU->parent_arrayed_collection__ZTI.upper__C3T=(__INTEGER)(Self__BQU->parent_arrayed_collection__ZTI.upper__C3T + 1);
- };
- };
- ((void **)Self__BQU->parent_arrayed_collection__ZTI.storage__YKU)[Self__BQU->parent_arrayed_collection__ZTI.upper__C3T]=tmp__TLK;
-}
-
-static void* copy__05J(void *tmp__25J)
-// ({NULLxFAST_ARRAYoITM_LOCALo}) With resultNo recursive, No inlinable.
-{
- __INTEGER new_capacity__5LU,other_upper__4LU,Self__54JC;
- void *result__45J;
- __FAST_ARRAYoITM_LOCALo *Self__2LU;
- void **__tmp__WMU,**__tmp__YMU,**Self__VSCC;
- result__45J=create_with_capacity__LLK((__INTEGER)(((__FAST_ARRAYoITM_LOCALo *)tmp__25J)->parent_arrayed_collection__T3H.upper__M2K + 1));
- Self__2LU=((__FAST_ARRAYoITM_LOCALo *)result__45J);
- new_capacity__5LU= 0;
- other_upper__4LU=((__FAST_ARRAYoITM_LOCALo *)tmp__25J)->parent_arrayed_collection__T3H.upper__M2K;
- if ((other_upper__4LU >= 0)) {
- new_capacity__5LU=(__INTEGER)(other_upper__4LU + 1);
- if ((Self__2LU->parent_arrayed_collection__T3H.capacity__IMU < new_capacity__5LU)) {
- Self__2LU->parent_arrayed_collection__T3H.storage__TMU=create__KPQB(new_capacity__5LU);
- Self__2LU->parent_arrayed_collection__T3H.capacity__IMU=new_capacity__5LU;
- };
- __tmp__WMU=Self__2LU->parent_arrayed_collection__T3H.storage__TMU;
- __tmp__YMU=((__FAST_ARRAYoITM_LOCALo *)tmp__25J)->parent_arrayed_collection__T3H.storage__TMU;
- Self__VSCC=((void **)__tmp__WMU);
- Self__54JC=other_upper__4LU;
- while ((Self__54JC >= 0)) {
- Self__VSCC[Self__54JC]=((void **)__tmp__YMU)[Self__54JC];
- Self__54JC=(__INTEGER)(Self__54JC - 1);
- };
- };
- Self__2LU->parent_arrayed_collection__T3H.upper__M2K=other_upper__4LU;
- free__RLK(tmp__25J);
- return(result__45J);
-}
-
-static void append_collection__RDPD(__FAST_ARRAYoITM_LOCALo *Self__SDPD,void *other__TDPD)
-// ({FAST_ARRAYoITM_LOCALo},{NULLxFAST_ARRAYoITM_LOCALo}) VoidNo recursive, No inlinable.
-{
- __INTEGER __tmp__3DPD,Self__MVUD;
- __tmp__3DPD=((__FAST_ARRAYoITM_LOCALo *)other__TDPD)->parent_arrayed_collection__T3H.upper__M2K;
- Self__MVUD= 0;
- while ((Self__MVUD <= __tmp__3DPD)) {
- add_last__Z1U(Self__SDPD,((void **)((__FAST_ARRAYoITM_LOCALo *)other__TDPD)->parent_arrayed_collection__T3H.storage__TMU)[Self__MVUD]);
- Self__MVUD=(__INTEGER)(Self__MVUD + 1);
- };
-}
-
-static void** create__KRQB(__INTEGER nb_elements__MRQB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__ZFHH,a__YFHH,new_size__0FHH,new_size2__1FHH,a__2FHH;
- __UINTEGER_32 new_size__3FHH;
- __POINTER result__XFHH,ptr_table__WHLH,next__VHLH,result__XHLH;
- __INTEGER Self__T1MC;
- void **Result__PMTB;
- sz__ZFHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__MRQB * ((__INTEGER )(sizeof(void *)))));
- result__XFHH=((__POINTER )(NULL));
- a__YFHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__0FHH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZFHH + a__YFHH) & (__UINTEGER_32)(~ a__YFHH));
- new_size2__1FHH=(__UINTEGER_32)(new_size__0FHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__1FHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__2FHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__3FHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__1FHH + a__2FHH) & (__UINTEGER_32)(~ a__2FHH));
- ptr_table__WHLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__3FHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__VHLH=((__POINTER )(NULL));
- result__XHLH=((__POINTER *)ptr_table__WHLH)[ 0];
- if ((result__XHLH == (void *)NULL)) {
- result__XHLH=new_lab__RTJ(new_size__3FHH);
- next__VHLH=(void *)((unsigned long)result__XHLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3FHH)));
- ((__POINTER *)next__VHLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__WHLH)[ 0]=next__VHLH;
- } else {
- next__VHLH=((__POINTER *)result__XHLH)[ 0];
- if ((next__VHLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XHLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__3FHH << 1)) <= 4096)) {
- next__VHLH=(void *)((unsigned long)result__XHLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__3FHH)));
- } else {
- next__VHLH=new_lab__RTJ(new_size__3FHH);
- };
- ((__POINTER *)next__VHLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__WHLH)[ 0]=next__VHLH;
- } else {
- ((__POINTER *)result__XHLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VHLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__XHLH=next__VHLH;
- };
- };
- ((__POINTER *)result__XHLH)[ 0]=((__POINTER ) 3);
- result__XFHH=(void *)((unsigned long)result__XHLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__XFHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__0FHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__PMTB=((void **)result__XFHH);
- Self__T1MC=(__INTEGER)(nb_elements__MRQB - 1);
- while ((Self__T1MC >= 0)) {
- Result__PMTB[Self__T1MC]=NULL;
- Self__T1MC=(__INTEGER)(Self__T1MC - 1);
- };
- return(Result__PMTB);
-}
-
-static void* read_send_msg__I5N(__PARSER *Self__J5N,void *first_arg__K5N)
-// ({PARSER},{NULLxITM_LISTxITM_PROTOTYPExITM_READxITM_READ_ARG1xITM_READ_ARG2xITM_OLDxITM_EXTERNAL_TYPExITM_BLOCKxITM_EXTERNALxITM_READ_ARGSxITM_REALxITM_NUMBERxITM_CHARACTERxITM_STRING}) With resultNo recursive, No inlinable.
-{
- void *result__M5N,*arg__Q5N,*tmp__OMRB;
- void *n__O5N,*result__XJGH;
- __INTEGER p1__R5N,p2__S5N,old_derive__T5N,sav_derive__U5N;
- __INTEGER typ_id__YSIH,typ_id__BTIH,typ_id__KTIH,Self__E2YC;
- __INTEGER typ_id__MDR;
- __POSITION pos__SX0G,p__4SIH,p__HTIH,p__QTIH,p__Z5Q;
- __ITM_READ *result__WSIH;
- __POINTER ptr__XSIH,ptr_table__1HLH,next__0HLH,result__2HLH;
- __POINTER ptr_table__AILH,next__5HLH,result__BILH,ptr__ATIH;
- __POINTER ptr_table__FILH,next__EILH,result__GILH,ptr_table__KILH;
- __POINTER next__JILH,result__LILH,ptr__JTIH,ptr_table__PILH;
- __POINTER next__OILH,result__QILH,ptr_table__UILH,next__TILH;
- __POINTER result__VILH,ptr__HDR,ptr_table__ZILH,next__YILH;
- __POINTER result__0ILH,ptr_table__4ILH,next__3ILH,result__5ILH;
- __UINTEGER_32 sz__ZSIH,a__0SIH,new_size__1SIH,t__2SIH,a__3SIH;
- __UINTEGER_32 new_size__DILH,lab_type__CILH,sz__CTIH,a__DTIH;
- __UINTEGER_32 new_size__ETIH,t__FTIH,a__GTIH,new_size__NILH;
- __UINTEGER_32 lab_type__MILH,sz__LTIH,a__MTIH,new_size__NTIH,t__OTIH;
- __UINTEGER_32 a__PTIH,new_size__XILH,lab_type__WILH,sz__JDR,a__4KGH;
- __UINTEGER_32 new_size__5KGH,t__DLGH,a__CLGH,new_size__BJLH;
- __UINTEGER_32 lab_type__AJLH;
- __ITM_READ_ARG1 *result__5SIH;
- __ITM_READ_ARG2 *result__ITIH;
- __ITM_READ_ARGS *result__GDR;
- void *l_arg__P5N,*result__HAHH;
- __FAST_ARRAYoSTRINGo *Self__YJGH,*Self__0JGH;
- __FAST_ARRAYoFAST_ARRAYoITM_CODEoo *Self__IAHH,*Self__JAHH;
- __BOOLEAN __tmp__ODO;
- __FAST_ARRAYoITM_CODEo *Self__RCW;
- void **__tmp__WKGH,**__tmp__XKGH,**__tmp__YKGH;
- result__M5N=NULL;
- n__O5N=NULL;
- l_arg__P5N=NULL;
- arg__Q5N=NULL;
- p1__R5N= 0;
- p2__S5N= 0;
- old_derive__T5N= 0;
- sav_derive__U5N= 0;
- if (read_identifier__2BL()) {
- p1__R5N=(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD);
- p2__S5N=position__CCC;
- old_derive__T5N=short_derive__PCC;
- result__XJGH=NULL;
- if ((((__FAST_ARRAYoSTRINGo *)free__3OP)->parent_arrayed_collection__5KC.upper__CLC < 0)) {
- result__XJGH=create__ZBB( 128);
- } else {
- Self__YJGH=((__FAST_ARRAYoSTRINGo *)free__3OP);
- result__XJGH=((void **)Self__YJGH->parent_arrayed_collection__5KC.storage__UGT)[Self__YJGH->parent_arrayed_collection__5KC.upper__CLC];
- Self__0JGH=((__FAST_ARRAYoSTRINGo *)free__3OP);
- Self__0JGH->parent_arrayed_collection__5KC.upper__CLC=(__INTEGER)(Self__0JGH->parent_arrayed_collection__5KC.upper__CLC - 1);
- };
- n__O5N=result__XJGH;
- copy__VDS(result__XJGH,last_string__D2C);
- result__HAHH=NULL;
- if ((((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__QAI)->parent_arrayed_collection__PAI.upper__BYT < 0)) {
- result__HAHH=create_with_capacity__XXI( 16);
- } else {
- Self__IAHH=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__QAI);
- result__HAHH=((void **)Self__IAHH->parent_arrayed_collection__PAI.storage__PCU)[Self__IAHH->parent_arrayed_collection__PAI.upper__BYT];
- Self__JAHH=((__FAST_ARRAYoFAST_ARRAYoITM_CODEoo *)free_list__QAI);
- Self__JAHH->parent_arrayed_collection__PAI.upper__BYT=(__INTEGER)(Self__JAHH->parent_arrayed_collection__PAI.upper__BYT - 1);
- };
- l_arg__P5N=result__HAHH;
- arg__Q5N=read_argument__PPP(Self__J5N);
- if (((void *)arg__Q5N != (void *)NULL)) {
- add_last__I5U(result__HAHH,arg__Q5N);
- while (read_identifier__2BL()) {
- short__token__to__GDD((&__string_131),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- append__3OS(n__O5N,(&__string_112));
- append__3OS(n__O5N,last_string__D2C);
- arg__Q5N=read_argument__PPP(Self__J5N);
- if (((void *)arg__Q5N == (void *)NULL)) {
- pos__SX0G=current_position__B0F();
- put_error__text__1PG( 0,(&__string_333));
- put_position__FRG(pos__SX0G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- add_last__I5U(l_arg__P5N,arg__Q5N);
- };
- };
- get__YWB(result__XJGH);
- add_last__URV(free__3OP,result__XJGH);
- ((__STRING *)result__XJGH)->count__SGC= 0;
- if (is_shorter__LZ) {
- if ((((! (((__FAST_ARRAYoITM_CODEo *)result__HAHH)->parent_arrayed_collection__JWF.upper__NJL < 0)) || ((void *)first_arg__K5N != (void *)NULL)) || (! fast_has__RDV(short_local__XCC,last_string__D2C)))) {
- sav_derive__U5N=short_derive__PCC;
- short_derive__PCC=old_derive__T5N;
- short__token__to__GDD((&__string_131),p1__R5N,p2__S5N);
- short_derive__PCC=(__INTEGER)(sav_derive__U5N + (__INTEGER)(short_derive__PCC - old_derive__T5N));
- };
- };
- if ((((__FAST_ARRAYoITM_CODEo *)result__HAHH)->parent_arrayed_collection__JWF.upper__NJL < 0)) {
- if (((void *)first_arg__K5N == (void *)NULL)) {
- p__4SIH=current_position__B0F();
- result__WSIH=NULL;
- ptr__XSIH=((__POINTER )(NULL));
- typ_id__YSIH= 0;
- sz__ZSIH=((__UINTEGER_32 )sizeof(__ITM_READ));
- if ((sz__ZSIH == 0)) {
- result__WSIH=ITM_READ__;
- } else {
- typ_id__YSIH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__ZSIH);
- if ((typ_id__YSIH == (__INTEGER)(- 1))) {
- a__0SIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__1SIH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZSIH + a__0SIH) & (__UINTEGER_32)(~ a__0SIH));
- ptr_table__1HLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__1SIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__0HLH=((__POINTER )(NULL));
- result__2HLH=((__POINTER *)ptr_table__1HLH)[ 0];
- if ((result__2HLH == (void *)NULL)) {
- result__2HLH=new_lab__RTJ(new_size__1SIH);
- next__0HLH=(void *)((unsigned long)result__2HLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1SIH)));
- ((__POINTER *)next__0HLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__1HLH)[ 0]=next__0HLH;
- } else {
- next__0HLH=((__POINTER *)result__2HLH)[ 0];
- if ((next__0HLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__2HLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__1SIH << 1)) <= 4096)) {
- next__0HLH=(void *)((unsigned long)result__2HLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__1SIH)));
- } else {
- next__0HLH=new_lab__RTJ(new_size__1SIH);
- };
- ((__POINTER *)next__0HLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__1HLH)[ 0]=next__0HLH;
- } else {
- ((__POINTER *)result__2HLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__0HLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__2HLH=next__0HLH;
- };
- };
- ptr__XSIH=result__2HLH;
- } else {
- t__2SIH=((__UINTEGER_32 )typ_id__YSIH);
- a__3SIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__DILH=(__UINTEGER_32)((__UINTEGER_32)(sz__ZSIH + a__3SIH) & (__UINTEGER_32)(~ a__3SIH));
- ptr_table__AILH=((__POINTER )(&(table_type[(t__2SIH)])));
- lab_type__CILH=(__UINTEGER_32)(t__2SIH | 1);
- next__5HLH=((__POINTER )(NULL));
- result__BILH=((__POINTER *)ptr_table__AILH)[ 0];
- if ((result__BILH == (void *)NULL)) {
- result__BILH=new_lab__RTJ(lab_type__CILH);
- next__5HLH=(void *)((unsigned long)result__BILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DILH)));
- ((__POINTER *)next__5HLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__AILH)[ 0]=next__5HLH;
- } else {
- next__5HLH=((__POINTER *)result__BILH)[ 0];
- if ((next__5HLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__BILH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__DILH << 1)) <= 4096)) {
- next__5HLH=(void *)((unsigned long)result__BILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__DILH)));
- } else {
- next__5HLH=new_lab__RTJ(lab_type__CILH);
- };
- ((__POINTER *)next__5HLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__AILH)[ 0]=next__5HLH;
- } else {
- ((__POINTER *)result__BILH)[ 0]=(void *)((unsigned long)((__POINTER *)next__5HLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__BILH=next__5HLH;
- };
- };
- ptr__XSIH=result__BILH;
- };
- result__WSIH=((__ITM_READ *)ptr__XSIH);
- *(result__WSIH) = *(ITM_READ__);
- };
- ((__ITM_READ *)result__WSIH)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ=p__4SIH;
- result__M5N=result__WSIH;
- } else {
- p__HTIH=current_position__B0F();
- result__5SIH=NULL;
- ptr__ATIH=((__POINTER )(NULL));
- typ_id__BTIH= 0;
- sz__CTIH=((__UINTEGER_32 )sizeof(__ITM_READ_ARG1));
- if ((sz__CTIH == 0)) {
- result__5SIH=ITM_READ_ARG1__;
- } else {
- typ_id__BTIH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__CTIH);
- if ((typ_id__BTIH == (__INTEGER)(- 1))) {
- a__DTIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ETIH=(__UINTEGER_32)((__UINTEGER_32)(sz__CTIH + a__DTIH) & (__UINTEGER_32)(~ a__DTIH));
- ptr_table__FILH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__ETIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__EILH=((__POINTER )(NULL));
- result__GILH=((__POINTER *)ptr_table__FILH)[ 0];
- if ((result__GILH == (void *)NULL)) {
- result__GILH=new_lab__RTJ(new_size__ETIH);
- next__EILH=(void *)((unsigned long)result__GILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ETIH)));
- ((__POINTER *)next__EILH)[ 0]=NULL;
- ((__POINTER *)ptr_table__FILH)[ 0]=next__EILH;
- } else {
- next__EILH=((__POINTER *)result__GILH)[ 0];
- if ((next__EILH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__GILH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__ETIH << 1)) <= 4096)) {
- next__EILH=(void *)((unsigned long)result__GILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ETIH)));
- } else {
- next__EILH=new_lab__RTJ(new_size__ETIH);
- };
- ((__POINTER *)next__EILH)[ 0]=NULL;
- ((__POINTER *)ptr_table__FILH)[ 0]=next__EILH;
- } else {
- ((__POINTER *)result__GILH)[ 0]=(void *)((unsigned long)((__POINTER *)next__EILH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__GILH=next__EILH;
- };
- };
- ptr__ATIH=result__GILH;
- } else {
- t__FTIH=((__UINTEGER_32 )typ_id__BTIH);
- a__GTIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__NILH=(__UINTEGER_32)((__UINTEGER_32)(sz__CTIH + a__GTIH) & (__UINTEGER_32)(~ a__GTIH));
- ptr_table__KILH=((__POINTER )(&(table_type[(t__FTIH)])));
- lab_type__MILH=(__UINTEGER_32)(t__FTIH | 1);
- next__JILH=((__POINTER )(NULL));
- result__LILH=((__POINTER *)ptr_table__KILH)[ 0];
- if ((result__LILH == (void *)NULL)) {
- result__LILH=new_lab__RTJ(lab_type__MILH);
- next__JILH=(void *)((unsigned long)result__LILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NILH)));
- ((__POINTER *)next__JILH)[ 0]=NULL;
- ((__POINTER *)ptr_table__KILH)[ 0]=next__JILH;
- } else {
- next__JILH=((__POINTER *)result__LILH)[ 0];
- if ((next__JILH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__LILH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__NILH << 1)) <= 4096)) {
- next__JILH=(void *)((unsigned long)result__LILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NILH)));
- } else {
- next__JILH=new_lab__RTJ(lab_type__MILH);
- };
- ((__POINTER *)next__JILH)[ 0]=NULL;
- ((__POINTER *)ptr_table__KILH)[ 0]=next__JILH;
- } else {
- ((__POINTER *)result__LILH)[ 0]=(void *)((unsigned long)((__POINTER *)next__JILH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__LILH=next__JILH;
- };
- };
- ptr__ATIH=result__LILH;
- };
- result__5SIH=((__ITM_READ_ARG1 *)ptr__ATIH);
- *(result__5SIH) = *(ITM_READ_ARG1__);
- };
- ((__ITM_READ_ARG1 *)result__5SIH)->parent_itm_read__1JL.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ=p__HTIH;
- result__M5N=result__5SIH;
- };
- free__3XI(result__HAHH);
- __tmp__ODO=TRUE__;
- } else {
- __tmp__ODO=FALSE__;
- };
- if ((! __tmp__ODO)) {
- if (((__INTEGER)(((__FAST_ARRAYoITM_CODEo *)result__HAHH)->parent_arrayed_collection__JWF.upper__NJL + 1) == 1)) {
- p__QTIH=current_position__B0F();
- result__ITIH=NULL;
- ptr__JTIH=((__POINTER )(NULL));
- typ_id__KTIH= 0;
- sz__LTIH=((__UINTEGER_32 )sizeof(__ITM_READ_ARG2));
- if ((sz__LTIH == 0)) {
- result__ITIH=ITM_READ_ARG2__;
- } else {
- typ_id__KTIH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__LTIH);
- if ((typ_id__KTIH == (__INTEGER)(- 1))) {
- a__MTIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__NTIH=(__UINTEGER_32)((__UINTEGER_32)(sz__LTIH + a__MTIH) & (__UINTEGER_32)(~ a__MTIH));
- ptr_table__PILH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NTIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__OILH=((__POINTER )(NULL));
- result__QILH=((__POINTER *)ptr_table__PILH)[ 0];
- if ((result__QILH == (void *)NULL)) {
- result__QILH=new_lab__RTJ(new_size__NTIH);
- next__OILH=(void *)((unsigned long)result__QILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NTIH)));
- ((__POINTER *)next__OILH)[ 0]=NULL;
- ((__POINTER *)ptr_table__PILH)[ 0]=next__OILH;
- } else {
- next__OILH=((__POINTER *)result__QILH)[ 0];
- if ((next__OILH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__QILH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__NTIH << 1)) <= 4096)) {
- next__OILH=(void *)((unsigned long)result__QILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NTIH)));
- } else {
- next__OILH=new_lab__RTJ(new_size__NTIH);
- };
- ((__POINTER *)next__OILH)[ 0]=NULL;
- ((__POINTER *)ptr_table__PILH)[ 0]=next__OILH;
- } else {
- ((__POINTER *)result__QILH)[ 0]=(void *)((unsigned long)((__POINTER *)next__OILH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__QILH=next__OILH;
- };
- };
- ptr__JTIH=result__QILH;
- } else {
- t__OTIH=((__UINTEGER_32 )typ_id__KTIH);
- a__PTIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__XILH=(__UINTEGER_32)((__UINTEGER_32)(sz__LTIH + a__PTIH) & (__UINTEGER_32)(~ a__PTIH));
- ptr_table__UILH=((__POINTER )(&(table_type[(t__OTIH)])));
- lab_type__WILH=(__UINTEGER_32)(t__OTIH | 1);
- next__TILH=((__POINTER )(NULL));
- result__VILH=((__POINTER *)ptr_table__UILH)[ 0];
- if ((result__VILH == (void *)NULL)) {
- result__VILH=new_lab__RTJ(lab_type__WILH);
- next__TILH=(void *)((unsigned long)result__VILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XILH)));
- ((__POINTER *)next__TILH)[ 0]=NULL;
- ((__POINTER *)ptr_table__UILH)[ 0]=next__TILH;
- } else {
- next__TILH=((__POINTER *)result__VILH)[ 0];
- if ((next__TILH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__VILH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__XILH << 1)) <= 4096)) {
- next__TILH=(void *)((unsigned long)result__VILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XILH)));
- } else {
- next__TILH=new_lab__RTJ(lab_type__WILH);
- };
- ((__POINTER *)next__TILH)[ 0]=NULL;
- ((__POINTER *)ptr_table__UILH)[ 0]=next__TILH;
- } else {
- ((__POINTER *)result__VILH)[ 0]=(void *)((unsigned long)((__POINTER *)next__TILH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__VILH=next__TILH;
- };
- };
- ptr__JTIH=result__VILH;
- };
- result__ITIH=((__ITM_READ_ARG2 *)ptr__JTIH);
- *(result__ITIH) = *(ITM_READ_ARG2__);
- };
- ((__ITM_READ_ARG2 *)result__ITIH)->parent_itm_read__IML.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ=p__QTIH;
- result__M5N=result__ITIH;
- free__3XI(result__HAHH);
- } else {
- Self__RCW=((__FAST_ARRAYoITM_CODEo *)result__HAHH);
- add_last__I5U(Self__RCW,first_arg__K5N);
- if ((Self__RCW->parent_arrayed_collection__JWF.upper__NJL != 0)) {
- if ((Self__RCW->parent_arrayed_collection__JWF.upper__NJL == 1)) {
- tmp__OMRB=((void **)Self__RCW->parent_arrayed_collection__JWF.storage__4ZT)[ 0];
- ((void **)Self__RCW->parent_arrayed_collection__JWF.storage__4ZT)[ 0]=((void **)Self__RCW->parent_arrayed_collection__JWF.storage__4ZT)[ 1];
- ((void **)Self__RCW->parent_arrayed_collection__JWF.storage__4ZT)[ 1]=tmp__OMRB;
- } else {
- Self__E2YC=(__INTEGER)(Self__RCW->parent_arrayed_collection__JWF.upper__NJL - 1);
- __tmp__WKGH=Self__RCW->parent_arrayed_collection__JWF.storage__4ZT;
- __tmp__XKGH=Self__RCW->parent_arrayed_collection__JWF.storage__4ZT;
- __tmp__YKGH=Self__RCW->parent_arrayed_collection__JWF.storage__4ZT;
- while ((Self__E2YC >= 0)) {
- ((void **)__tmp__XKGH)[(__INTEGER)(Self__E2YC + 1)]=((void **)__tmp__WKGH)[Self__E2YC];
- ((void **)__tmp__YKGH)[Self__E2YC]=NULL;
- Self__E2YC=(__INTEGER)(Self__E2YC - 1);
- };
- ((void **)Self__RCW->parent_arrayed_collection__JWF.storage__4ZT)[ 0]=first_arg__K5N;
- };
- };
- l_arg__P5N=copy__5BI(result__HAHH);
- p__Z5Q=current_position__B0F();
- result__GDR=NULL;
- ptr__HDR=((__POINTER )(NULL));
- typ_id__MDR= 0;
- sz__JDR=((__UINTEGER_32 )sizeof(__ITM_READ_ARGS));
- if ((sz__JDR == 0)) {
- result__GDR=ITM_READ_ARGS__;
- } else {
- typ_id__MDR=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__JDR);
- if ((typ_id__MDR == (__INTEGER)(- 1))) {
- a__4KGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5KGH=(__UINTEGER_32)((__UINTEGER_32)(sz__JDR + a__4KGH) & (__UINTEGER_32)(~ a__4KGH));
- ptr_table__ZILH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5KGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__YILH=((__POINTER )(NULL));
- result__0ILH=((__POINTER *)ptr_table__ZILH)[ 0];
- if ((result__0ILH == (void *)NULL)) {
- result__0ILH=new_lab__RTJ(new_size__5KGH);
- next__YILH=(void *)((unsigned long)result__0ILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5KGH)));
- ((__POINTER *)next__YILH)[ 0]=NULL;
- ((__POINTER *)ptr_table__ZILH)[ 0]=next__YILH;
- } else {
- next__YILH=((__POINTER *)result__0ILH)[ 0];
- if ((next__YILH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__0ILH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__5KGH << 1)) <= 4096)) {
- next__YILH=(void *)((unsigned long)result__0ILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5KGH)));
- } else {
- next__YILH=new_lab__RTJ(new_size__5KGH);
- };
- ((__POINTER *)next__YILH)[ 0]=NULL;
- ((__POINTER *)ptr_table__ZILH)[ 0]=next__YILH;
- } else {
- ((__POINTER *)result__0ILH)[ 0]=(void *)((unsigned long)((__POINTER *)next__YILH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__0ILH=next__YILH;
- };
- };
- ptr__HDR=result__0ILH;
- } else {
- t__DLGH=((__UINTEGER_32 )typ_id__MDR);
- a__CLGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__BJLH=(__UINTEGER_32)((__UINTEGER_32)(sz__JDR + a__CLGH) & (__UINTEGER_32)(~ a__CLGH));
- ptr_table__4ILH=((__POINTER )(&(table_type[(t__DLGH)])));
- lab_type__AJLH=(__UINTEGER_32)(t__DLGH | 1);
- next__3ILH=((__POINTER )(NULL));
- result__5ILH=((__POINTER *)ptr_table__4ILH)[ 0];
- if ((result__5ILH == (void *)NULL)) {
- result__5ILH=new_lab__RTJ(lab_type__AJLH);
- next__3ILH=(void *)((unsigned long)result__5ILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BJLH)));
- ((__POINTER *)next__3ILH)[ 0]=NULL;
- ((__POINTER *)ptr_table__4ILH)[ 0]=next__3ILH;
- } else {
- next__3ILH=((__POINTER *)result__5ILH)[ 0];
- if ((next__3ILH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__5ILH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__BJLH << 1)) <= 4096)) {
- next__3ILH=(void *)((unsigned long)result__5ILH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__BJLH)));
- } else {
- next__3ILH=new_lab__RTJ(lab_type__AJLH);
- };
- ((__POINTER *)next__3ILH)[ 0]=NULL;
- ((__POINTER *)ptr_table__4ILH)[ 0]=next__3ILH;
- } else {
- ((__POINTER *)result__5ILH)[ 0]=(void *)((unsigned long)((__POINTER *)next__3ILH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__5ILH=next__3ILH;
- };
- };
- ptr__HDR=result__5ILH;
- };
- result__GDR=((__ITM_READ_ARGS *)ptr__HDR);
- *(result__GDR) = *(ITM_READ_ARGS__);
- };
- ((__ITM_READ_ARGS *)result__GDR)->parent_itm_read__GEO.parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ=p__Z5Q;
- result__M5N=result__GDR;
- };
- };
- };
- return(result__M5N);
-}
-
-static void* readlip_expr_cmp__0Y1B(__PARSER *Self__1Y1B)
-// ({PARSER}) With resultNo recursive, No inlinable.
-{
- void *right__4Y1B,*result__3Y1B;
- void *op__5Y1B;
- __POSITION pos__P00G,p__WVBD;
- __STRING_CONSTANT *Self__GUBD;
- __LIP_BINARY *result__1JGD,*Self__I0SD;
- __POINTER ptr__2JGD,ptr_table__DJLH,next__CJLH,result__EJLH;
- __POINTER ptr_table__IJLH,next__HJLH,result__JJLH;
- __INTEGER typ_id__BKGD;
- __UINTEGER_32 sz__4JGD,a__OLGH,new_size__PLGH,t__TLGH,a__SLGH;
- __UINTEGER_32 new_size__LJLH,lab_type__KJLH;
- __CHARACTER type__AZ1B;
- right__4Y1B=NULL;
- op__5Y1B=NULL;
- type__AZ1B='\0';
- result__3Y1B=readlip_expr_binary__XL3B(Self__1Y1B);
- if (((void *)result__3Y1B != (void *)NULL)) {
- while ((((((read_symbol__4YJ((&__string_19)) || read_symbol__4YJ((&__string_21))) || read_symbol__4YJ((&__string_17))) || read_symbol__4YJ((&__string_16))) || read_symbol__4YJ((&__string_18))) || read_symbol__4YJ((&__string_20)))) {
- op__5Y1B=last_string__D2C;
- right__4Y1B=readlip_expr_binary__XL3B(Self__1Y1B);
- if (((void *)right__4Y1B == (void *)NULL)) {
- pos__P00G=current_position__B0F();
- put_error__text__1PG( 0,(&__string_239));
- put_position__FRG(pos__P00G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- Self__GUBD=((__STRING_CONSTANT *)op__5Y1B);
- if (((void *)Self__GUBD == (void *)(&__string_19))) {
- type__AZ1B='S';
- };
- if (((void *)Self__GUBD == (void *)(&__string_21))) {
- type__AZ1B='I';
- };
- if (((void *)Self__GUBD == (void *)(&__string_17))) {
- type__AZ1B='E';
- };
- if (((void *)Self__GUBD == (void *)(&__string_16))) {
- type__AZ1B='=';
- };
- if (((void *)Self__GUBD == (void *)(&__string_18))) {
- type__AZ1B='>';
- };
- if (((void *)Self__GUBD == (void *)(&__string_20))) {
- type__AZ1B='<';
- };
- p__WVBD=current_position__B0F();
- result__1JGD=NULL;
- ptr__2JGD=((__POINTER )(NULL));
- typ_id__BKGD= 0;
- sz__4JGD=((__UINTEGER_32 )sizeof(__LIP_BINARY));
- if ((sz__4JGD == 0)) {
- result__1JGD=LIP_BINARY__;
- } else {
- typ_id__BKGD=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__4JGD);
- if ((typ_id__BKGD == (__INTEGER)(- 1))) {
- a__OLGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__PLGH=(__UINTEGER_32)((__UINTEGER_32)(sz__4JGD + a__OLGH) & (__UINTEGER_32)(~ a__OLGH));
- ptr_table__DJLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PLGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__CJLH=((__POINTER )(NULL));
- result__EJLH=((__POINTER *)ptr_table__DJLH)[ 0];
- if ((result__EJLH == (void *)NULL)) {
- result__EJLH=new_lab__RTJ(new_size__PLGH);
- next__CJLH=(void *)((unsigned long)result__EJLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PLGH)));
- ((__POINTER *)next__CJLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__DJLH)[ 0]=next__CJLH;
- } else {
- next__CJLH=((__POINTER *)result__EJLH)[ 0];
- if ((next__CJLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__EJLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__PLGH << 1)) <= 4096)) {
- next__CJLH=(void *)((unsigned long)result__EJLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PLGH)));
- } else {
- next__CJLH=new_lab__RTJ(new_size__PLGH);
- };
- ((__POINTER *)next__CJLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__DJLH)[ 0]=next__CJLH;
- } else {
- ((__POINTER *)result__EJLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__CJLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__EJLH=next__CJLH;
- };
- };
- ptr__2JGD=result__EJLH;
- } else {
- t__TLGH=((__UINTEGER_32 )typ_id__BKGD);
- a__SLGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__LJLH=(__UINTEGER_32)((__UINTEGER_32)(sz__4JGD + a__SLGH) & (__UINTEGER_32)(~ a__SLGH));
- ptr_table__IJLH=((__POINTER )(&(table_type[(t__TLGH)])));
- lab_type__KJLH=(__UINTEGER_32)(t__TLGH | 1);
- next__HJLH=((__POINTER )(NULL));
- result__JJLH=((__POINTER *)ptr_table__IJLH)[ 0];
- if ((result__JJLH == (void *)NULL)) {
- result__JJLH=new_lab__RTJ(lab_type__KJLH);
- next__HJLH=(void *)((unsigned long)result__JJLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LJLH)));
- ((__POINTER *)next__HJLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__IJLH)[ 0]=next__HJLH;
- } else {
- next__HJLH=((__POINTER *)result__JJLH)[ 0];
- if ((next__HJLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__JJLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__LJLH << 1)) <= 4096)) {
- next__HJLH=(void *)((unsigned long)result__JJLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__LJLH)));
- } else {
- next__HJLH=new_lab__RTJ(lab_type__KJLH);
- };
- ((__POINTER *)next__HJLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__IJLH)[ 0]=next__HJLH;
- } else {
- ((__POINTER *)result__JJLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__HJLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__JJLH=next__HJLH;
- };
- };
- ptr__2JGD=result__JJLH;
- };
- result__1JGD=((__LIP_BINARY *)ptr__2JGD);
- *(result__1JGD) = *(LIP_BINARY__);
- };
- Self__I0SD=((__LIP_BINARY *)result__1JGD);
- Self__I0SD->parent_lip_code__WNZB.parent_itm_object__XFE.position__SFJ=p__WVBD;
- Self__I0SD->left__J2QD=result__3Y1B;
- Self__I0SD->right__M2QD=right__4Y1B;
- Self__I0SD->operator__P2QD=type__AZ1B;
- result__3Y1B=result__1JGD;
- };
- };
- return(result__3Y1B);
-}
-
-static void** create__3WIE(__INTEGER nb_elements__5WIE)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__BGHH,a__AGHH,new_size__CGHH,new_size2__DGHH,a__EGHH;
- __UINTEGER_32 new_size__FGHH;
- __POINTER result__5FHH,ptr_table__NJLH,next__MJLH,result__OJLH;
- __INTEGER Self__BXYE;
- void **Result__G1NE;
- sz__BGHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__5WIE * ((__INTEGER )(sizeof(void *)))));
- result__5FHH=((__POINTER )(NULL));
- a__AGHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__CGHH=(__UINTEGER_32)((__UINTEGER_32)(sz__BGHH + a__AGHH) & (__UINTEGER_32)(~ a__AGHH));
- new_size2__DGHH=(__UINTEGER_32)(new_size__CGHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__DGHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__EGHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__FGHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__DGHH + a__EGHH) & (__UINTEGER_32)(~ a__EGHH));
- ptr_table__NJLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__FGHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__MJLH=((__POINTER )(NULL));
- result__OJLH=((__POINTER *)ptr_table__NJLH)[ 0];
- if ((result__OJLH == (void *)NULL)) {
- result__OJLH=new_lab__RTJ(new_size__FGHH);
- next__MJLH=(void *)((unsigned long)result__OJLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FGHH)));
- ((__POINTER *)next__MJLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__NJLH)[ 0]=next__MJLH;
- } else {
- next__MJLH=((__POINTER *)result__OJLH)[ 0];
- if ((next__MJLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__OJLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__FGHH << 1)) <= 4096)) {
- next__MJLH=(void *)((unsigned long)result__OJLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__FGHH)));
- } else {
- next__MJLH=new_lab__RTJ(new_size__FGHH);
- };
- ((__POINTER *)next__MJLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__NJLH)[ 0]=next__MJLH;
- } else {
- ((__POINTER *)result__OJLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__MJLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__OJLH=next__MJLH;
- };
- };
- ((__POINTER *)result__OJLH)[ 0]=((__POINTER ) 3);
- result__5FHH=(void *)((unsigned long)result__OJLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__5FHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__CGHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__G1NE=((void **)result__5FHH);
- Self__BXYE=(__INTEGER)(nb_elements__5WIE - 1);
- while ((Self__BXYE >= 0)) {
- Result__G1NE[Self__BXYE]=NULL;
- Self__BXYE=(__INTEGER)(Self__BXYE - 1);
- };
- return(Result__G1NE);
-}
-
-static void** create__KPQB(__INTEGER nb_elements__MPQB)
-// ({INTEGER}) With resultNo recursive, No inlinable.
-{
- __UINTEGER_32 sz__JGHH,a__IGHH,new_size__KGHH,new_size2__LGHH,a__MGHH;
- __UINTEGER_32 new_size__NGHH;
- __POINTER result__HGHH,ptr_table__SJLH,next__RJLH,result__TJLH;
- __INTEGER Self__M0MC;
- void **Result__GJTB;
- sz__JGHH=((__UINTEGER_32 )(__INTEGER)(nb_elements__MPQB * ((__INTEGER )(sizeof(void *)))));
- result__HGHH=((__POINTER )(NULL));
- a__IGHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__KGHH=(__UINTEGER_32)((__UINTEGER_32)(sz__JGHH + a__IGHH) & (__UINTEGER_32)(~ a__IGHH));
- new_size2__LGHH=(__UINTEGER_32)(new_size__KGHH + ((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))));
- if ((new_size2__LGHH <= ((__UINTEGER_32 )(MINIMUM_SIZE)))) {
- a__MGHH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__NGHH=(__UINTEGER_32)((__UINTEGER_32)(new_size2__LGHH + a__MGHH) & (__UINTEGER_32)(~ a__MGHH));
- ptr_table__SJLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__NGHH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__RJLH=((__POINTER )(NULL));
- result__TJLH=((__POINTER *)ptr_table__SJLH)[ 0];
- if ((result__TJLH == (void *)NULL)) {
- result__TJLH=new_lab__RTJ(new_size__NGHH);
- next__RJLH=(void *)((unsigned long)result__TJLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NGHH)));
- ((__POINTER *)next__RJLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__SJLH)[ 0]=next__RJLH;
- } else {
- next__RJLH=((__POINTER *)result__TJLH)[ 0];
- if ((next__RJLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__TJLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__NGHH << 1)) <= 4096)) {
- next__RJLH=(void *)((unsigned long)result__TJLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__NGHH)));
- } else {
- next__RJLH=new_lab__RTJ(new_size__NGHH);
- };
- ((__POINTER *)next__RJLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__SJLH)[ 0]=next__RJLH;
- } else {
- ((__POINTER *)result__TJLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__RJLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__TJLH=next__RJLH;
- };
- };
- ((__POINTER *)result__TJLH)[ 0]=((__POINTER ) 3);
- result__HGHH=(void *)((unsigned long)result__TJLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )((__INTEGER )(sizeof(void *))))));
- } else {
- result__HGHH=(void *)((unsigned long)((__POINTER )((__MEMORY *)search__XAVB(new_size__KGHH))) - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER ) 8)));
- };
- Result__GJTB=((void **)result__HGHH);
- Self__M0MC=(__INTEGER)(nb_elements__MPQB - 1);
- while ((Self__M0MC >= 0)) {
- Result__GJTB[Self__M0MC]=NULL;
- Self__M0MC=(__INTEGER)(Self__M0MC - 1);
- };
- return(Result__GJTB);
-}
-
-static void* read_argument__PPP(__PARSER *Self__QPP)
-// ({PARSER}) With resultNo recursive, No inlinable.
-{
- void *result__SPP;
- __POSITION p__ZTIH;
- __ITM_READ *result__RTIH;
- __POINTER ptr__STIH,ptr_table__XJLH,next__WJLH,result__YJLH;
- __POINTER ptr_table__2JLH,next__1JLH,result__3JLH;
- __INTEGER typ_id__TTIH;
- __UINTEGER_32 sz__UTIH,a__VTIH,new_size__WTIH,t__XTIH,a__YTIH;
- __UINTEGER_32 new_size__5JLH,lab_type__4JLH;
- result__SPP=read_expr_primary__E5M(Self__QPP);
- if ((((void *)result__SPP == (void *)NULL) && read_identifier__2BL())) {
- if (is_shorter__LZ) {
- if ((! fast_has__RDV(short_local__XCC,last_string__D2C))) {
- short__token__to__GDD((&__string_131),(__INTEGER)(position__CCC - ((__STRING_CONSTANT *)last_string__D2C)->count__DD),position__CCC);
- };
- };
- p__ZTIH=current_position__B0F();
- result__RTIH=NULL;
- ptr__STIH=((__POINTER )(NULL));
- typ_id__TTIH= 0;
- sz__UTIH=((__UINTEGER_32 )sizeof(__ITM_READ));
- if ((sz__UTIH == 0)) {
- result__RTIH=ITM_READ__;
- } else {
- typ_id__TTIH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__UTIH);
- if ((typ_id__TTIH == (__INTEGER)(- 1))) {
- a__VTIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__WTIH=(__UINTEGER_32)((__UINTEGER_32)(sz__UTIH + a__VTIH) & (__UINTEGER_32)(~ a__VTIH));
- ptr_table__XJLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__WTIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__WJLH=((__POINTER )(NULL));
- result__YJLH=((__POINTER *)ptr_table__XJLH)[ 0];
- if ((result__YJLH == (void *)NULL)) {
- result__YJLH=new_lab__RTJ(new_size__WTIH);
- next__WJLH=(void *)((unsigned long)result__YJLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WTIH)));
- ((__POINTER *)next__WJLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__XJLH)[ 0]=next__WJLH;
- } else {
- next__WJLH=((__POINTER *)result__YJLH)[ 0];
- if ((next__WJLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YJLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__WTIH << 1)) <= 4096)) {
- next__WJLH=(void *)((unsigned long)result__YJLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__WTIH)));
- } else {
- next__WJLH=new_lab__RTJ(new_size__WTIH);
- };
- ((__POINTER *)next__WJLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__XJLH)[ 0]=next__WJLH;
- } else {
- ((__POINTER *)result__YJLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WJLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__YJLH=next__WJLH;
- };
- };
- ptr__STIH=result__YJLH;
- } else {
- t__XTIH=((__UINTEGER_32 )typ_id__TTIH);
- a__YTIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5JLH=(__UINTEGER_32)((__UINTEGER_32)(sz__UTIH + a__YTIH) & (__UINTEGER_32)(~ a__YTIH));
- ptr_table__2JLH=((__POINTER )(&(table_type[(t__XTIH)])));
- lab_type__4JLH=(__UINTEGER_32)(t__XTIH | 1);
- next__1JLH=((__POINTER )(NULL));
- result__3JLH=((__POINTER *)ptr_table__2JLH)[ 0];
- if ((result__3JLH == (void *)NULL)) {
- result__3JLH=new_lab__RTJ(lab_type__4JLH);
- next__1JLH=(void *)((unsigned long)result__3JLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5JLH)));
- ((__POINTER *)next__1JLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__2JLH)[ 0]=next__1JLH;
- } else {
- next__1JLH=((__POINTER *)result__3JLH)[ 0];
- if ((next__1JLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3JLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__5JLH << 1)) <= 4096)) {
- next__1JLH=(void *)((unsigned long)result__3JLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5JLH)));
- } else {
- next__1JLH=new_lab__RTJ(lab_type__4JLH);
- };
- ((__POINTER *)next__1JLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__2JLH)[ 0]=next__1JLH;
- } else {
- ((__POINTER *)result__3JLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1JLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__3JLH=next__1JLH;
- };
- };
- ptr__STIH=result__3JLH;
- };
- result__RTIH=((__ITM_READ *)ptr__STIH);
- *(result__RTIH) = *(ITM_READ__);
- };
- ((__ITM_READ *)result__RTIH)->parent_itm_code__VIJ.parent_itm_object__PFE.position__SFJ=p__ZTIH;
- result__SPP=result__RTIH;
- };
- return(result__SPP);
-}
-
-static void* readlip_expr_binary__XL3B(__PARSER *Self__YL3B)
-// ({PARSER}) With resultNo recursive, No inlinable.
-{
- void *right__1L3B,*result__0L3B;
- __POSITION pos__TA1G,p__DUIH,p__QUIH;
- __LIP_BINARY *result__0TIH,*Self__CUIH,*result__HUIH,*Self__PUIH;
- __POINTER ptr__1TIH,ptr_table__HKLH,next__GKLH,result__IKLH;
- __POINTER ptr_table__MKLH,next__LKLH,result__NKLH,ptr__IUIH;
- __POINTER ptr_table__RKLH,next__QKLH,result__SKLH,ptr_table__WKLH;
- __POINTER next__VKLH,result__XKLH;
- __INTEGER typ_id__2TIH,typ_id__JUIH;
- __UINTEGER_32 sz__3TIH,a__4TIH,new_size__5TIH,t__AUIH,a__BUIH;
- __UINTEGER_32 new_size__PKLH,lab_type__OKLH,sz__KUIH,a__LUIH;
- __UINTEGER_32 new_size__MUIH,t__NUIH,a__OUIH,new_size__ZKLH;
- __UINTEGER_32 lab_type__YKLH;
- __BOOLEAN result__AKLH,__tmp__QM3B,result__DKLH;
- __CHARACTER result__BKLH,result__EKLH;
- right__1L3B=NULL;
- result__0L3B=readlip_expr_unary__YX4B(Self__YL3B);
- if (((void *)result__0L3B != (void *)NULL)) {
- while_do__O25B:
- {
- result__AKLH=FALSE__;
- if ((! read_space__XTD())) {
- result__AKLH=FALSE__;
- } else {
- result__BKLH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__BKLH=((__CHARACTER )(( 0)));
- } else {
- result__BKLH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__BKLH == '-')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__AKLH=TRUE__;
- };
- };
- if (result__AKLH) {
- __tmp__QM3B=TRUE__;
- } else {
- result__DKLH=FALSE__;
- if ((! read_space__XTD())) {
- result__DKLH=FALSE__;
- } else {
- result__EKLH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__EKLH=((__CHARACTER )(( 0)));
- } else {
- result__EKLH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__EKLH == '+')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__DKLH=TRUE__;
- };
- };
- __tmp__QM3B=result__DKLH;
- };
- if (__tmp__QM3B) {
- right__1L3B=readlip_expr_unary__YX4B(Self__YL3B);
- if (((void *)right__1L3B == (void *)NULL)) {
- pos__TA1G=current_position__B0F();
- put_error__text__1PG( 0,(&__string_239));
- put_position__FRG(pos__TA1G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- if (result__AKLH) {
- p__DUIH=current_position__B0F();
- result__0TIH=NULL;
- ptr__1TIH=((__POINTER )(NULL));
- typ_id__2TIH= 0;
- sz__3TIH=((__UINTEGER_32 )sizeof(__LIP_BINARY));
- if ((sz__3TIH == 0)) {
- result__0TIH=LIP_BINARY__;
- } else {
- typ_id__2TIH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__3TIH);
- if ((typ_id__2TIH == (__INTEGER)(- 1))) {
- a__4TIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5TIH=(__UINTEGER_32)((__UINTEGER_32)(sz__3TIH + a__4TIH) & (__UINTEGER_32)(~ a__4TIH));
- ptr_table__HKLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5TIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__GKLH=((__POINTER )(NULL));
- result__IKLH=((__POINTER *)ptr_table__HKLH)[ 0];
- if ((result__IKLH == (void *)NULL)) {
- result__IKLH=new_lab__RTJ(new_size__5TIH);
- next__GKLH=(void *)((unsigned long)result__IKLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5TIH)));
- ((__POINTER *)next__GKLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__HKLH)[ 0]=next__GKLH;
- } else {
- next__GKLH=((__POINTER *)result__IKLH)[ 0];
- if ((next__GKLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__IKLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__5TIH << 1)) <= 4096)) {
- next__GKLH=(void *)((unsigned long)result__IKLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5TIH)));
- } else {
- next__GKLH=new_lab__RTJ(new_size__5TIH);
- };
- ((__POINTER *)next__GKLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__HKLH)[ 0]=next__GKLH;
- } else {
- ((__POINTER *)result__IKLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__GKLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__IKLH=next__GKLH;
- };
- };
- ptr__1TIH=result__IKLH;
- } else {
- t__AUIH=((__UINTEGER_32 )typ_id__2TIH);
- a__BUIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__PKLH=(__UINTEGER_32)((__UINTEGER_32)(sz__3TIH + a__BUIH) & (__UINTEGER_32)(~ a__BUIH));
- ptr_table__MKLH=((__POINTER )(&(table_type[(t__AUIH)])));
- lab_type__OKLH=(__UINTEGER_32)(t__AUIH | 1);
- next__LKLH=((__POINTER )(NULL));
- result__NKLH=((__POINTER *)ptr_table__MKLH)[ 0];
- if ((result__NKLH == (void *)NULL)) {
- result__NKLH=new_lab__RTJ(lab_type__OKLH);
- next__LKLH=(void *)((unsigned long)result__NKLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PKLH)));
- ((__POINTER *)next__LKLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__MKLH)[ 0]=next__LKLH;
- } else {
- next__LKLH=((__POINTER *)result__NKLH)[ 0];
- if ((next__LKLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__NKLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__PKLH << 1)) <= 4096)) {
- next__LKLH=(void *)((unsigned long)result__NKLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PKLH)));
- } else {
- next__LKLH=new_lab__RTJ(lab_type__OKLH);
- };
- ((__POINTER *)next__LKLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__MKLH)[ 0]=next__LKLH;
- } else {
- ((__POINTER *)result__NKLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__LKLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__NKLH=next__LKLH;
- };
- };
- ptr__1TIH=result__NKLH;
- };
- result__0TIH=((__LIP_BINARY *)ptr__1TIH);
- *(result__0TIH) = *(LIP_BINARY__);
- };
- Self__CUIH=((__LIP_BINARY *)result__0TIH);
- Self__CUIH->parent_lip_code__WNZB.parent_itm_object__XFE.position__SFJ=p__DUIH;
- Self__CUIH->left__J2QD=result__0L3B;
- Self__CUIH->right__M2QD=right__1L3B;
- Self__CUIH->operator__P2QD='-';
- result__0L3B=result__0TIH;
- } else {
- p__QUIH=current_position__B0F();
- result__HUIH=NULL;
- ptr__IUIH=((__POINTER )(NULL));
- typ_id__JUIH= 0;
- sz__KUIH=((__UINTEGER_32 )sizeof(__LIP_BINARY));
- if ((sz__KUIH == 0)) {
- result__HUIH=LIP_BINARY__;
- } else {
- typ_id__JUIH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__KUIH);
- if ((typ_id__JUIH == (__INTEGER)(- 1))) {
- a__LUIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__MUIH=(__UINTEGER_32)((__UINTEGER_32)(sz__KUIH + a__LUIH) & (__UINTEGER_32)(~ a__LUIH));
- ptr_table__RKLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__MUIH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__QKLH=((__POINTER )(NULL));
- result__SKLH=((__POINTER *)ptr_table__RKLH)[ 0];
- if ((result__SKLH == (void *)NULL)) {
- result__SKLH=new_lab__RTJ(new_size__MUIH);
- next__QKLH=(void *)((unsigned long)result__SKLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MUIH)));
- ((__POINTER *)next__QKLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__RKLH)[ 0]=next__QKLH;
- } else {
- next__QKLH=((__POINTER *)result__SKLH)[ 0];
- if ((next__QKLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SKLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__MUIH << 1)) <= 4096)) {
- next__QKLH=(void *)((unsigned long)result__SKLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__MUIH)));
- } else {
- next__QKLH=new_lab__RTJ(new_size__MUIH);
- };
- ((__POINTER *)next__QKLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__RKLH)[ 0]=next__QKLH;
- } else {
- ((__POINTER *)result__SKLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QKLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__SKLH=next__QKLH;
- };
- };
- ptr__IUIH=result__SKLH;
- } else {
- t__NUIH=((__UINTEGER_32 )typ_id__JUIH);
- a__OUIH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ZKLH=(__UINTEGER_32)((__UINTEGER_32)(sz__KUIH + a__OUIH) & (__UINTEGER_32)(~ a__OUIH));
- ptr_table__WKLH=((__POINTER )(&(table_type[(t__NUIH)])));
- lab_type__YKLH=(__UINTEGER_32)(t__NUIH | 1);
- next__VKLH=((__POINTER )(NULL));
- result__XKLH=((__POINTER *)ptr_table__WKLH)[ 0];
- if ((result__XKLH == (void *)NULL)) {
- result__XKLH=new_lab__RTJ(lab_type__YKLH);
- next__VKLH=(void *)((unsigned long)result__XKLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZKLH)));
- ((__POINTER *)next__VKLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__WKLH)[ 0]=next__VKLH;
- } else {
- next__VKLH=((__POINTER *)result__XKLH)[ 0];
- if ((next__VKLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XKLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__ZKLH << 1)) <= 4096)) {
- next__VKLH=(void *)((unsigned long)result__XKLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZKLH)));
- } else {
- next__VKLH=new_lab__RTJ(lab_type__YKLH);
- };
- ((__POINTER *)next__VKLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__WKLH)[ 0]=next__VKLH;
- } else {
- ((__POINTER *)result__XKLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VKLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__XKLH=next__VKLH;
- };
- };
- ptr__IUIH=result__XKLH;
- };
- result__HUIH=((__LIP_BINARY *)ptr__IUIH);
- *(result__HUIH) = *(LIP_BINARY__);
- };
- Self__PUIH=((__LIP_BINARY *)result__HUIH);
- Self__PUIH->parent_lip_code__WNZB.parent_itm_object__XFE.position__SFJ=p__QUIH;
- Self__PUIH->left__J2QD=result__0L3B;
- Self__PUIH->right__M2QD=right__1L3B;
- Self__PUIH->operator__P2QD='+';
- result__0L3B=result__HUIH;
- };
- goto while_do__O25B;
- };
- };
- };
- return(result__0L3B);
-}
-
-static void* readlip_expr_unary__YX4B(__PARSER *Self__ZX4B)
-// ({PARSER}) With resultRecursive, No inlinable.
-{
- void *result__1X4B,*result__XGFE;
- void *nam__4X4B,*n__ULLH;
- __POSITION pos__FC1G,p__XA0C,p__TLLH,p__KHFE;
- __LIP_UNARY *result__VPBD,*Self__3KSD;
- __POINTER ptr__WPBD,ptr_table__BLLH,next__ALLH,result__CLLH;
- __POINTER ptr_table__GLLH,next__FLLH,result__HLLH,ptr__LLLH;
- __POINTER ptr_table__XLLH,next__WLLH,result__YLLH,ptr_table__2LLH;
- __POINTER next__1LLH,result__3LLH,ptr__OVLE,ptr_table__BMLH;
- __POINTER next__AMLH,result__CMLH,ptr_table__GMLH,next__FMLH;
- __POINTER result__HMLH;
- __INTEGER typ_id__1PBD,typ_id__MLLH,typ_id__TVLE;
- __UINTEGER_32 sz__YPBD,a__WMGH,new_size__XMGH,t__1MGH,a__0MGH;
- __UINTEGER_32 new_size__JLLH,lab_type__ILLH,sz__NLLH,a__OLLH;
- __UINTEGER_32 new_size__PLLH,t__QLLH,a__RLLH,new_size__5LLH;
- __UINTEGER_32 lab_type__4LLH,sz__QVLE,a__4MGH,new_size__5MGH,t__DNGH;
- __UINTEGER_32 a__CNGH,new_size__JMLH,lab_type__IMLH;
- __LIP_CALL *result__KLLH,*Self__SLLH,*result__NVLE,*Self__ASWE;
- __CHARACTER type__3X4B,result__1KLH,result__4KLH;
- __BOOLEAN result__0KLH,__tmp__JY4B,result__3KLH,__tmp__JZ4B;
- result__1X4B=NULL;
- type__3X4B='\0';
- nam__4X4B=NULL;
- result__0KLH=FALSE__;
- if ((! read_space__XTD())) {
- result__0KLH=FALSE__;
- } else {
- result__1KLH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__1KLH=((__CHARACTER )(( 0)));
- } else {
- result__1KLH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__1KLH == '-')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__0KLH=TRUE__;
- };
- };
- if (result__0KLH) {
- __tmp__JY4B=TRUE__;
- } else {
- result__3KLH=FALSE__;
- if ((! read_space__XTD())) {
- result__3KLH=FALSE__;
- } else {
- result__4KLH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__4KLH=((__CHARACTER )(( 0)));
- } else {
- result__4KLH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__4KLH == '!')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__3KLH=TRUE__;
- };
- };
- __tmp__JY4B=result__3KLH;
- };
- if (__tmp__JY4B) {
- result__1X4B=readlip_expr_unary__YX4B(Self__ZX4B);
- if (((void *)result__1X4B == (void *)NULL)) {
- pos__FC1G=current_position__B0F();
- put_error__text__1PG( 0,(&__string_239));
- put_position__FRG(pos__FC1G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- if (result__0KLH) {
- type__3X4B='-';
- } else {
- type__3X4B='!';
- };
- p__XA0C=current_position__B0F();
- result__VPBD=NULL;
- ptr__WPBD=((__POINTER )(NULL));
- typ_id__1PBD= 0;
- sz__YPBD=((__UINTEGER_32 )sizeof(__LIP_UNARY));
- if ((sz__YPBD == 0)) {
- result__VPBD=LIP_UNARY__;
- } else {
- typ_id__1PBD=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__YPBD);
- if ((typ_id__1PBD == (__INTEGER)(- 1))) {
- a__WMGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__XMGH=(__UINTEGER_32)((__UINTEGER_32)(sz__YPBD + a__WMGH) & (__UINTEGER_32)(~ a__WMGH));
- ptr_table__BLLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__XMGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__ALLH=((__POINTER )(NULL));
- result__CLLH=((__POINTER *)ptr_table__BLLH)[ 0];
- if ((result__CLLH == (void *)NULL)) {
- result__CLLH=new_lab__RTJ(new_size__XMGH);
- next__ALLH=(void *)((unsigned long)result__CLLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XMGH)));
- ((__POINTER *)next__ALLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__BLLH)[ 0]=next__ALLH;
- } else {
- next__ALLH=((__POINTER *)result__CLLH)[ 0];
- if ((next__ALLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CLLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__XMGH << 1)) <= 4096)) {
- next__ALLH=(void *)((unsigned long)result__CLLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__XMGH)));
- } else {
- next__ALLH=new_lab__RTJ(new_size__XMGH);
- };
- ((__POINTER *)next__ALLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__BLLH)[ 0]=next__ALLH;
- } else {
- ((__POINTER *)result__CLLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__ALLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__CLLH=next__ALLH;
- };
- };
- ptr__WPBD=result__CLLH;
- } else {
- t__1MGH=((__UINTEGER_32 )typ_id__1PBD);
- a__0MGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__JLLH=(__UINTEGER_32)((__UINTEGER_32)(sz__YPBD + a__0MGH) & (__UINTEGER_32)(~ a__0MGH));
- ptr_table__GLLH=((__POINTER )(&(table_type[(t__1MGH)])));
- lab_type__ILLH=(__UINTEGER_32)(t__1MGH | 1);
- next__FLLH=((__POINTER )(NULL));
- result__HLLH=((__POINTER *)ptr_table__GLLH)[ 0];
- if ((result__HLLH == (void *)NULL)) {
- result__HLLH=new_lab__RTJ(lab_type__ILLH);
- next__FLLH=(void *)((unsigned long)result__HLLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JLLH)));
- ((__POINTER *)next__FLLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__GLLH)[ 0]=next__FLLH;
- } else {
- next__FLLH=((__POINTER *)result__HLLH)[ 0];
- if ((next__FLLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HLLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__JLLH << 1)) <= 4096)) {
- next__FLLH=(void *)((unsigned long)result__HLLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JLLH)));
- } else {
- next__FLLH=new_lab__RTJ(lab_type__ILLH);
- };
- ((__POINTER *)next__FLLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__GLLH)[ 0]=next__FLLH;
- } else {
- ((__POINTER *)result__HLLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FLLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__HLLH=next__FLLH;
- };
- };
- ptr__WPBD=result__HLLH;
- };
- result__VPBD=((__LIP_UNARY *)ptr__WPBD);
- *(result__VPBD) = *(LIP_UNARY__);
- };
- Self__3KSD=((__LIP_UNARY *)result__VPBD);
- Self__3KSD->parent_lip_code__FZ4B.parent_itm_object__XFE.position__SFJ=p__XA0C;
- Self__3KSD->operator__J5QD=type__3X4B;
- Self__3KSD->value__G5QD=result__1X4B;
- result__1X4B=result__VPBD;
- __tmp__JZ4B=TRUE__;
- } else {
- __tmp__JZ4B=FALSE__;
- };
- if ((! __tmp__JZ4B)) {
- if (read_identifier__2BL()) {
- nam__4X4B=last_string__D2C;
- result__XGFE=NULL;
- if (read_identifier__2BL()) {
- p__TLLH=current_position__B0F();
- n__ULLH=last_string__D2C;
- result__KLLH=NULL;
- ptr__LLLH=((__POINTER )(NULL));
- typ_id__MLLH= 0;
- sz__NLLH=((__UINTEGER_32 )sizeof(__LIP_CALL));
- if ((sz__NLLH == 0)) {
- result__KLLH=LIP_CALL__;
- } else {
- typ_id__MLLH=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__NLLH);
- if ((typ_id__MLLH == (__INTEGER)(- 1))) {
- a__OLLH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__PLLH=(__UINTEGER_32)((__UINTEGER_32)(sz__NLLH + a__OLLH) & (__UINTEGER_32)(~ a__OLLH));
- ptr_table__XLLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__PLLH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__WLLH=((__POINTER )(NULL));
- result__YLLH=((__POINTER *)ptr_table__XLLH)[ 0];
- if ((result__YLLH == (void *)NULL)) {
- result__YLLH=new_lab__RTJ(new_size__PLLH);
- next__WLLH=(void *)((unsigned long)result__YLLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PLLH)));
- ((__POINTER *)next__WLLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__XLLH)[ 0]=next__WLLH;
- } else {
- next__WLLH=((__POINTER *)result__YLLH)[ 0];
- if ((next__WLLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__YLLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__PLLH << 1)) <= 4096)) {
- next__WLLH=(void *)((unsigned long)result__YLLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__PLLH)));
- } else {
- next__WLLH=new_lab__RTJ(new_size__PLLH);
- };
- ((__POINTER *)next__WLLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__XLLH)[ 0]=next__WLLH;
- } else {
- ((__POINTER *)result__YLLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__WLLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__YLLH=next__WLLH;
- };
- };
- ptr__LLLH=result__YLLH;
- } else {
- t__QLLH=((__UINTEGER_32 )typ_id__MLLH);
- a__RLLH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5LLH=(__UINTEGER_32)((__UINTEGER_32)(sz__NLLH + a__RLLH) & (__UINTEGER_32)(~ a__RLLH));
- ptr_table__2LLH=((__POINTER )(&(table_type[(t__QLLH)])));
- lab_type__4LLH=(__UINTEGER_32)(t__QLLH | 1);
- next__1LLH=((__POINTER )(NULL));
- result__3LLH=((__POINTER *)ptr_table__2LLH)[ 0];
- if ((result__3LLH == (void *)NULL)) {
- result__3LLH=new_lab__RTJ(lab_type__4LLH);
- next__1LLH=(void *)((unsigned long)result__3LLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5LLH)));
- ((__POINTER *)next__1LLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__2LLH)[ 0]=next__1LLH;
- } else {
- next__1LLH=((__POINTER *)result__3LLH)[ 0];
- if ((next__1LLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__3LLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__5LLH << 1)) <= 4096)) {
- next__1LLH=(void *)((unsigned long)result__3LLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5LLH)));
- } else {
- next__1LLH=new_lab__RTJ(lab_type__4LLH);
- };
- ((__POINTER *)next__1LLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__2LLH)[ 0]=next__1LLH;
- } else {
- ((__POINTER *)result__3LLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__1LLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__3LLH=next__1LLH;
- };
- };
- ptr__LLLH=result__3LLH;
- };
- result__KLLH=((__LIP_CALL *)ptr__LLLH);
- *(result__KLLH) = *(LIP_CALL__);
- };
- Self__SLLH=((__LIP_CALL *)result__KLLH);
- Self__SLLH->parent_lip_code__XZ4B.parent_itm_object__XFE.position__SFJ=p__TLLH;
- Self__SLLH->name__JRUE=n__ULLH;
- Self__SLLH->argument__4QUE=NULL;
- result__XGFE=result__KLLH;
- } else {
- result__XGFE=readlip_expr_base__QHFE(Self__ZX4B);
- };
- p__KHFE=current_position__B0F();
- result__NVLE=NULL;
- ptr__OVLE=((__POINTER )(NULL));
- typ_id__TVLE= 0;
- sz__QVLE=((__UINTEGER_32 )sizeof(__LIP_CALL));
- if ((sz__QVLE == 0)) {
- result__NVLE=LIP_CALL__;
- } else {
- typ_id__TVLE=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__QVLE);
- if ((typ_id__TVLE == (__INTEGER)(- 1))) {
- a__4MGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__5MGH=(__UINTEGER_32)((__UINTEGER_32)(sz__QVLE + a__4MGH) & (__UINTEGER_32)(~ a__4MGH));
- ptr_table__BMLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__5MGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__AMLH=((__POINTER )(NULL));
- result__CMLH=((__POINTER *)ptr_table__BMLH)[ 0];
- if ((result__CMLH == (void *)NULL)) {
- result__CMLH=new_lab__RTJ(new_size__5MGH);
- next__AMLH=(void *)((unsigned long)result__CMLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5MGH)));
- ((__POINTER *)next__AMLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__BMLH)[ 0]=next__AMLH;
- } else {
- next__AMLH=((__POINTER *)result__CMLH)[ 0];
- if ((next__AMLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__CMLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__5MGH << 1)) <= 4096)) {
- next__AMLH=(void *)((unsigned long)result__CMLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__5MGH)));
- } else {
- next__AMLH=new_lab__RTJ(new_size__5MGH);
- };
- ((__POINTER *)next__AMLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__BMLH)[ 0]=next__AMLH;
- } else {
- ((__POINTER *)result__CMLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__AMLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__CMLH=next__AMLH;
- };
- };
- ptr__OVLE=result__CMLH;
- } else {
- t__DNGH=((__UINTEGER_32 )typ_id__TVLE);
- a__CNGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__JMLH=(__UINTEGER_32)((__UINTEGER_32)(sz__QVLE + a__CNGH) & (__UINTEGER_32)(~ a__CNGH));
- ptr_table__GMLH=((__POINTER )(&(table_type[(t__DNGH)])));
- lab_type__IMLH=(__UINTEGER_32)(t__DNGH | 1);
- next__FMLH=((__POINTER )(NULL));
- result__HMLH=((__POINTER *)ptr_table__GMLH)[ 0];
- if ((result__HMLH == (void *)NULL)) {
- result__HMLH=new_lab__RTJ(lab_type__IMLH);
- next__FMLH=(void *)((unsigned long)result__HMLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JMLH)));
- ((__POINTER *)next__FMLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__GMLH)[ 0]=next__FMLH;
- } else {
- next__FMLH=((__POINTER *)result__HMLH)[ 0];
- if ((next__FMLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__HMLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__JMLH << 1)) <= 4096)) {
- next__FMLH=(void *)((unsigned long)result__HMLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__JMLH)));
- } else {
- next__FMLH=new_lab__RTJ(lab_type__IMLH);
- };
- ((__POINTER *)next__FMLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__GMLH)[ 0]=next__FMLH;
- } else {
- ((__POINTER *)result__HMLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__FMLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__HMLH=next__FMLH;
- };
- };
- ptr__OVLE=result__HMLH;
- };
- result__NVLE=((__LIP_CALL *)ptr__OVLE);
- *(result__NVLE) = *(LIP_CALL__);
- };
- Self__ASWE=((__LIP_CALL *)result__NVLE);
- Self__ASWE->parent_lip_code__XZ4B.parent_itm_object__XFE.position__SFJ=p__KHFE;
- Self__ASWE->name__JRUE=nam__4X4B;
- Self__ASWE->argument__4QUE=result__XGFE;
- result__1X4B=result__NVLE;
- } else {
- result__1X4B=readlip_expr_base__QHFE(Self__ZX4B);
- };
- };
- return(result__1X4B);
-}
-
-static void* readlip_expr_base__QHFE(__PARSER *Self__RHFE)
-// ({PARSER}) With resultNo recursive, No inlinable.
-{
- void *result__THFE;
- __POSITION pos__VC1G,pos__XC1G,pos__ZC1G,p__KBSE;
- void *result__KZPE;
- __LIP_VALUE *result__ZZSE,*Self__UGXE;
- __POINTER ptr__0ZSE,ptr_table__RMLH,next__QMLH,result__SMLH;
- __POINTER ptr_table__WMLH,next__VMLH,result__XMLH;
- __INTEGER typ_id__5ZSE;
- __UINTEGER_32 sz__2ZSE,a__GNGH,new_size__HNGH,t__LNGH,a__KNGH;
- __UINTEGER_32 new_size__ZMLH,lab_type__YMLH;
- __BOOLEAN result__KMLH,result__NMLH,__tmp__XZPE,__tmp__H0PE;
- __BOOLEAN result__RWQE,__tmp__20PE;
- __CHARACTER result__LMLH,result__OMLH;
- result__THFE=NULL;
- result__KMLH=FALSE__;
- if ((! read_space__XTD())) {
- result__KMLH=FALSE__;
- } else {
- result__LMLH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__LMLH=((__CHARACTER )(( 0)));
- } else {
- result__LMLH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__LMLH == '(')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__KMLH=TRUE__;
- };
- };
- if (result__KMLH) {
- result__THFE=readlip_expr_operator__GMZB(Self__RHFE);
- if (((void *)result__THFE == (void *)NULL)) {
- pos__VC1G=current_position__B0F();
- put_error__text__1PG( 0,(&__string_239));
- put_position__FRG(pos__VC1G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- result__NMLH=FALSE__;
- if ((! read_space__XTD())) {
- result__NMLH=FALSE__;
- } else {
- result__OMLH='\0';
- if ((position__CCC > ((__STRING *)source__5BC)->count__SGC)) {
- result__OMLH=((__CHARACTER )(( 0)));
- } else {
- result__OMLH=((__CHARACTER *)((__STRING *)source__5BC)->storage__3CS)[(__INTEGER)(position__CCC - 1)];
- };
- if ((result__OMLH == ')')) {
- position__CCC=(__INTEGER)(position__CCC + 1);
- result__NMLH=TRUE__;
- };
- };
- if ((! result__NMLH)) {
- pos__XC1G=current_position__B0F();
- put_error__text__1PG( 2,(&__string_237));
- put_position__FRG(pos__XC1G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- } else {
- result__KZPE=NULL;
- if (read_integer__22P()) {
- result__KZPE=get__UYSE(LIP_INTEGER__,((__INTEGER )last_integer__VSO));
- __tmp__XZPE=TRUE__;
- } else {
- __tmp__XZPE=FALSE__;
- };
- if (__tmp__XZPE) {
- __tmp__H0PE=TRUE__;
- } else {
- result__RWQE=read_string__HGQ();
- if (result__RWQE) {
- result__KZPE=get__34FF(LIP_STRING__,last_string__D2C);
- };
- __tmp__H0PE=result__RWQE;
- };
- if ((! __tmp__H0PE)) {
- if (read_cap_identifier__N1J()) {
- if (((void *)last_string__D2C == (void *)(&__string_42))) {
- result__KZPE=true__5YLF;
- __tmp__20PE=TRUE__;
- } else {
- __tmp__20PE=FALSE__;
- };
- if ((! __tmp__20PE)) {
- if (((void *)last_string__D2C == (void *)(&__string_43))) {
- result__KZPE=LIP_BOOLEAN__;
- } else {
- pos__ZC1G=current_position__B0F();
- put_error__text__1PG( 0,(&__string_334));
- put_position__FRG(pos__ZC1G);
- put_string__33F(msg_err__AQG);
- if ((type_error__5PG != 2)) {
- exit(( 1));
- };
- };
- };
- };
- };
- if (((void *)result__KZPE != (void *)NULL)) {
- p__KBSE=current_position__B0F();
- result__ZZSE=NULL;
- ptr__0ZSE=((__POINTER )(NULL));
- typ_id__5ZSE= 0;
- sz__2ZSE=((__UINTEGER_32 )sizeof(__LIP_VALUE));
- if ((sz__2ZSE == 0)) {
- result__ZZSE=LIP_VALUE__;
- } else {
- typ_id__5ZSE=-1;
- clone_allocation_size__NTB=(__UINTEGER_32)(clone_allocation_size__NTB + sz__2ZSE);
- if ((typ_id__5ZSE == (__INTEGER)(- 1))) {
- a__GNGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__HNGH=(__UINTEGER_32)((__UINTEGER_32)(sz__2ZSE + a__GNGH) & (__UINTEGER_32)(~ a__GNGH));
- ptr_table__RMLH=((__POINTER )(&(table_size[((__UINTEGER_32)(new_size__HNGH / ((__UINTEGER_32 )((__INTEGER )(sizeof(void *))))))-1])));
- next__QMLH=((__POINTER )(NULL));
- result__SMLH=((__POINTER *)ptr_table__RMLH)[ 0];
- if ((result__SMLH == (void *)NULL)) {
- result__SMLH=new_lab__RTJ(new_size__HNGH);
- next__QMLH=(void *)((unsigned long)result__SMLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HNGH)));
- ((__POINTER *)next__QMLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__RMLH)[ 0]=next__QMLH;
- } else {
- next__QMLH=((__POINTER *)result__SMLH)[ 0];
- if ((next__QMLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__SMLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__HNGH << 1)) <= 4096)) {
- next__QMLH=(void *)((unsigned long)result__SMLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__HNGH)));
- } else {
- next__QMLH=new_lab__RTJ(new_size__HNGH);
- };
- ((__POINTER *)next__QMLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__RMLH)[ 0]=next__QMLH;
- } else {
- ((__POINTER *)result__SMLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__QMLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__SMLH=next__QMLH;
- };
- };
- ptr__0ZSE=result__SMLH;
- } else {
- t__LNGH=((__UINTEGER_32 )typ_id__5ZSE);
- a__KNGH=(__UINTEGER_32)(((__UINTEGER_32 )((__INTEGER )(sizeof(void *)))) - 1);
- new_size__ZMLH=(__UINTEGER_32)((__UINTEGER_32)(sz__2ZSE + a__KNGH) & (__UINTEGER_32)(~ a__KNGH));
- ptr_table__WMLH=((__POINTER )(&(table_type[(t__LNGH)])));
- lab_type__YMLH=(__UINTEGER_32)(t__LNGH | 1);
- next__VMLH=((__POINTER )(NULL));
- result__XMLH=((__POINTER *)ptr_table__WMLH)[ 0];
- if ((result__XMLH == (void *)NULL)) {
- result__XMLH=new_lab__RTJ(lab_type__YMLH);
- next__VMLH=(void *)((unsigned long)result__XMLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZMLH)));
- ((__POINTER *)next__VMLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__WMLH)[ 0]=next__VMLH;
- } else {
- next__VMLH=((__POINTER *)result__XMLH)[ 0];
- if ((next__VMLH == (void *)NULL)) {
- if (((__UINTEGER_32)((__UINTEGER_32)(((__UINTEGER_32 )((unsigned int)((void *)((unsigned long)result__XMLH - (unsigned long)begin_memory__4XH)))) & 4095) + (__UINTEGER_32)(new_size__ZMLH << 1)) <= 4096)) {
- next__VMLH=(void *)((unsigned long)result__XMLH - (unsigned long)(void *)((unsigned long)((__POINTER ) 0) - (unsigned long)((__POINTER )new_size__ZMLH)));
- } else {
- next__VMLH=new_lab__RTJ(lab_type__YMLH);
- };
- ((__POINTER *)next__VMLH)[ 0]=NULL;
- ((__POINTER *)ptr_table__WMLH)[ 0]=next__VMLH;
- } else {
- ((__POINTER *)result__XMLH)[ 0]=(void *)((unsigned long)((__POINTER *)next__VMLH)[ 0] & (unsigned long)((__POINTER )(__INTEGER)(~ 3)));
- result__XMLH=next__VMLH;
- };
- };
- ptr__0ZSE=result__XMLH;
- };
- result__ZZSE=((__LIP_VALUE *)ptr__0ZSE);
- *(result__ZZSE) = *(LIP_VALUE__);
- };
- Self__UGXE=((__LIP_VALUE *)result__ZZSE);
- Self__UGXE->parent_lip_code__1IFE.parent_itm_object__XFE.position__SFJ=p__KBSE;
- Self__UGXE->value__I1UE=result__KZPE;
- result__THFE=result__ZZSE;
- };
- };
- return(result__THFE);
-}
-
-//==========================//
-// DEBUG MANAGER //
-//==========================//
-
-void print_string(char *str)
-{
- while (*str!=0) {
- print_char(*str);
- str++;
- };
-}
-
--
Lisaac compiler
More information about the Lisaac-commits
mailing list