/* Seed7 compiler temp file */ #include #include #include #include #include #include typedef short int int16Type; typedef unsigned short int uint16Type; typedef int int32Type; typedef unsigned int uint32Type; typedef long int64Type; typedef unsigned long uint64Type; typedef __int128 int128Type; typedef unsigned __int128 uint128Type; #define INT32TYPE_MIN ((int32Type) -2147483648) #define INT32TYPE_MAX 2147483647 #define INTTYPE_DECIMAL_SIZE 20 typedef int64Type intType; typedef uint64Type uintType; typedef int128Type doubleIntType; typedef uint128Type doubleUintType; #define inIntTypeRange(num) ((doubleIntType) (intType) (num) == (num)) typedef int boolType; typedef int enumType; typedef double floatType; typedef uint32Type charType; typedef int32Type scharType; typedef uint32Type strElemType; typedef uintType bitSetType; typedef uint64Type memSizeType; typedef unsigned char *ustriType; typedef const unsigned char *const_ustriType; typedef struct striStruct { memSizeType size; memSizeType capacity; strElemType *mem; strElemType mem1[1]; } *striType; typedef const struct striStruct *const_striType; #define SIZ_STRI(len) ((sizeof(struct striStruct) - sizeof(strElemType)) + (len) * sizeof(strElemType)) typedef struct bstriStruct { memSizeType size; unsigned char *mem; unsigned char mem1[1]; } *bstriType; typedef const struct bstriStruct *const_bstriType; typedef struct setStruct { intType min_position; intType max_position; bitSetType bitset[1]; } *setType; typedef const struct setStruct *const_setType; typedef struct { int dummy; } bigIntRecord; typedef bigIntRecord *bigIntType; typedef const bigIntRecord *const_bigIntType; typedef struct pollStruct { int dummy; } *pollType; typedef const struct pollStruct *const_pollType; typedef struct winStruct { uintType usage_count; } *winType; typedef const struct winStruct *const_winType; typedef struct databaseStruct { uintType usage_count; } *databaseType; typedef const struct databaseStruct *const_databaseType; typedef struct sqlStmtStruct { uintType usage_count; } *sqlStmtType; typedef const struct sqlStmtStruct *const_sqlStmtType; typedef struct progStruct { uintType usage_count; } *progType; typedef const struct progStruct *const_progType; typedef struct typeStruct *typeType; typedef const struct typeStruct *const_typeType; typedef struct rtlArrayStruct *arrayType; typedef const struct rtlArrayStruct *const_arrayType; typedef struct rtlHashStruct *hashType; typedef const struct rtlHashStruct *const_hashType; typedef struct rtlStructStruct *structType; typedef const struct rtlStructStruct *const_structType; typedef struct rtlStructStruct *interfaceType; typedef const struct rtlStructStruct *const_interfaceType; typedef struct objectStruct *objRefType; typedef const struct objectStruct *const_objRefType; typedef struct listStruct *listType; typedef const struct listStruct *const_listType; typedef objRefType (*actType) (listType); typedef FILE *fileType; typedef int socketType; typedef uint64Type genericType; typedef union { genericType genericValue; typeType typeValue; boolType boolValue; enumType enumValue; intType intValue; bigIntType bigIntValue; floatType floatValue; charType charValue; striType striValue; bstriType bstriValue; fileType fileValue; socketType socketValue; pollType pollValue; setType setValue; winType winValue; progType progValue; arrayType arrayValue; hashType hashValue; structType structValue; interfaceType interfaceValue; objRefType objRefValue; listType listValue; actType actValue; } rtlValueUnion; typedef union { genericType genericValue; const_typeType typeValue; boolType boolValue; enumType enumValue; intType intValue; const_bigIntType bigIntValue; floatType floatValue; charType charValue; const_striType striValue; const_bstriType bstriValue; fileType fileValue; socketType socketValue; const_pollType pollValue; const_setType setValue; const_winType winValue; const_progType progValue; const_arrayType arrayValue; const_hashType hashValue; const_structType structValue; const_interfaceType interfaceValue; const_objRefType objRefValue; const_listType listValue; actType actValue; } const_rtlValueUnion; typedef struct rtlObjectStruct { rtlValueUnion value; } rtlObjectType; typedef const struct rtlObjectStruct const_rtlObjectType; typedef intType (*intfunctype)(); typedef uint16Type categoryType; struct objectStruct { typeType type_of; uint64Type descriptor; rtlValueUnion value; categoryType objcategory; }; struct typeStruct { int dummy; }; struct listStruct { listType next; objRefType obj; }; struct rtlArrayStruct { intType min_position; intType max_position; rtlObjectType arr[1]; }; struct rtlStructStruct { memSizeType usage_count; uint32Type type_num; rtlObjectType stru[1]; }; typedef struct rtlHashElemStruct *hashElemType; typedef const struct rtlHashElemStruct *const_hashElemType; typedef struct rtlHashElemStruct *const hashElemType_const; struct rtlHashElemStruct { hashElemType next_less; hashElemType next_greater; rtlObjectType key; rtlObjectType data; }; struct rtlHashStruct { unsigned int bits; unsigned int mask; unsigned int table_size; memSizeType size; hashElemType table[1]; }; typedef struct hashElemListStruct { struct hashElemListStruct *next; hashElemType obj; } *hashElemListType; typedef intType (*compareType) (genericType, genericType); typedef genericType (*createFuncType) (genericType); typedef void (*destrFuncType) (genericType); typedef void (*copyFuncType) (genericType *, genericType); #define bitset_shift 6 #define bitset_mask ((1 << bitset_shift) - 1) #define bitset_pos(number) ((number)>>bitset_shift) striType arg_0; striType programName; striType programPath; arrayType arg_v; extern struct striStruct str[]; extern struct bstriStruct bst[]; extern setType set[]; extern typeType typ[]; bigIntType *big; winType *win; arrayType *arr; structType *sct; hashType *hsh; interfaceType *itf; rtlValueUnion flt2int; extern memSizeType hs; static const intType fact[] = { 1, 1, 2, 6, 24, 120, 720, 5040, 40320, 362880, 3628800, 39916800, 479001600, 6227020800, 87178291200, 1307674368000, 20922789888000, 355687428096000, 6402373705728000, 121645100408832000, 2432902008176640000 }; #define NOT_A_NUMBER ( 0.0 / 0.0) #define POSITIVE_INFINITY ( 1.0 / 0.0) #define NEGATIVE_INFINITY (-1.0 / 0.0) extern const floatType negativeZero; #define OKAY_NO_ERROR 0 #define MEMORY_ERROR 1 #define NUMERIC_ERROR 2 #define OVERFLOW_ERROR 3 #define RANGE_ERROR 4 #define FILE_ERROR 5 #define ACTION_ERROR 6 #define CREATE_ERROR 7 #define DESTROY_ERROR 8 #define COPY_ERROR 9 #define IN_ERROR 10 static const char *exception_name[] = { "OKAY_NO_ERROR", "MEMORY_ERROR", "NUMERIC_ERROR", "OVERFLOW_ERROR", "RANGE_ERROR", "FILE_ERROR", "ACTION_ERROR", "CREATE_ERROR", "DESTROY_ERROR", "COPY_ERROR", "IN_ERROR", }; #define likely(x) __builtin_expect((x),1) #define unlikely(x) __builtin_expect((x),0) #define NORETURN __attribute__ ((noreturn)) #define ovfChk(x) unlikely(x) #define divChk(x) unlikely(x) #define numChk(x) unlikely(x) #define idxChk(x) unlikely(x) #define push_stack(stack,elem) \ {\ hashElemListType new_head = (hashElemListType)(malloc(sizeof(struct hashElemListStruct)));\ if (new_head == NULL) {\ raise_error(MEMORY_ERROR);\ } else {\ new_head->next = stack;\ new_head->obj = elem;\ stack = new_head;\ }\ } #define pop_stack(stack,elem) \ {\ hashElemListType old_head = stack;\ if (old_head == NULL) {\ elem = NULL;\ } else {\ stack = old_head->next;\ elem = old_head->obj;\ free(old_head);\ }\ } #define do_setjmp(jump_buf) sigsetjmp(jump_buf, -1) typedef sigjmp_buf catch_type; catch_type *catch_stack; size_t catch_stack_pos; size_t max_catch_stack; const char *error_file = NULL; int error_line = 0; extern actType actIConv (intType); extern intType actOrd (actType); extern striType actStr (actType); extern actType actValue (objRefType); extern void arrAppend (arrayType *const, const arrayType); extern arrayType arrArrlit2 (intType, arrayType); extern arrayType arrBaselit (const genericType); extern arrayType arrBaselit2 (intType, const genericType); extern arrayType arrCat (arrayType, const arrayType); extern arrayType arrExtend (arrayType, const genericType); extern void arrFree (arrayType); extern arrayType arrGen (const genericType, const genericType); extern arrayType arrHead (const const_arrayType, intType); extern arrayType arrHeadTemp (arrayType *, intType); extern genericType arrIdxTemp (arrayType *, intType); extern arrayType arrMalloc (intType, intType); extern void arrPush (arrayType *const, const genericType); extern arrayType arrRange (const const_arrayType, intType, intType); extern arrayType arrRangeTemp (arrayType *, intType, intType); extern arrayType arrRealloc (arrayType, memSizeType, memSizeType); extern genericType arrRemove (arrayType *, intType); extern arrayType arrSort (arrayType, compareType); extern arrayType arrSubarr (const const_arrayType, intType, intType); extern arrayType arrSubarrTemp (arrayType *, intType, intType); extern arrayType arrTail (const const_arrayType, intType); extern arrayType arrTailTemp (arrayType *, intType); extern bigIntType bigAbs (const const_bigIntType); extern bigIntType bigAdd (const_bigIntType, const_bigIntType); extern bigIntType bigAddTemp (bigIntType, const const_bigIntType); extern bigIntType bigAnd (const_bigIntType, const_bigIntType); extern intType bigBitLength (const const_bigIntType); extern intType bigCmp (const const_bigIntType, const const_bigIntType); extern intType bigCmpGeneric (const genericType, const genericType); extern intType bigCmpSignedDigit (const const_bigIntType, intType); extern void bigCpy (bigIntType *const, const const_bigIntType); extern void bigCpyGeneric (genericType *const, const genericType); extern bigIntType bigCreate (const const_bigIntType); extern genericType bigCreateGeneric (const genericType); extern void bigDecr (bigIntType *const); extern void bigDestr (const const_bigIntType); extern void bigDestrGeneric (const genericType); extern bigIntType bigDiv (const const_bigIntType, const const_bigIntType); extern boolType bigEq (const const_bigIntType, const const_bigIntType); extern boolType bigEqSignedDigit (const const_bigIntType, intType); extern bigIntType bigFromInt64 (intType); #define bigIConv bigFromInt64 extern bigIntType bigFromBStriBe (const const_bstriType, const boolType); extern bigIntType bigFromBStriLe (const const_bstriType, const boolType); extern bigIntType bigGcd (const const_bigIntType, const const_bigIntType); extern void bigGrow (bigIntType *const, const const_bigIntType); extern void bigGrowSignedDigit (bigIntType *const, const intType); extern intType bigHashCode (const const_bigIntType); extern char *bigHexCStri (const const_bigIntType); extern void bigIncr (bigIntType *const); extern bigIntType bigIPow (const const_bigIntType, intType); extern bigIntType bigIPowSignedDigit (intType, intType); extern bigIntType bigLog10 (const const_bigIntType); extern bigIntType bigLog2 (const const_bigIntType); extern bigIntType bigLowerBits (const const_bigIntType, const intType); extern bigIntType bigLowerBitsTemp (const bigIntType, const intType); extern intType bigLowestSetBit (const const_bigIntType); extern bigIntType bigLShift (const const_bigIntType, const intType); extern void bigLShiftAssign (bigIntType *const, intType); extern bigIntType bigLShiftOne (const intType); extern bigIntType bigLog2BaseIPow (const intType, const intType); extern bigIntType bigMDiv (const const_bigIntType, const const_bigIntType); extern bigIntType bigMod (const const_bigIntType, const const_bigIntType); extern bigIntType bigMult (const_bigIntType, const_bigIntType); extern void bigMultAssign (bigIntType *const, const_bigIntType); extern bigIntType bigMultSignedDigit (const_bigIntType, intType); extern bigIntType bigNegate (const const_bigIntType); extern bigIntType bigNegateTemp (bigIntType); extern boolType bigOdd (const const_bigIntType); extern intType bigToInt64 (const const_bigIntType); #define bigOrd bigToInt64 extern bigIntType bigOr (const_bigIntType, const_bigIntType); extern bigIntType bigParse (const const_striType); extern bigIntType bigParseBased (const const_striType, intType); extern bigIntType bigPred (const const_bigIntType); extern bigIntType bigPredTemp (bigIntType); extern striType bigRadix (const const_bigIntType, intType, boolType); extern bigIntType bigRand (const const_bigIntType, const const_bigIntType); extern bigIntType bigRem (const const_bigIntType, const const_bigIntType); extern bigIntType bigRShift (const const_bigIntType, const intType); extern void bigRShiftAssign (bigIntType *const, intType); extern bigIntType bigSbtr (const const_bigIntType, const const_bigIntType); extern bigIntType bigSbtrTemp (bigIntType, const_bigIntType); extern void bigShrink (bigIntType *const, const const_bigIntType); extern bigIntType bigSquare (const_bigIntType); extern striType bigStr (const const_bigIntType); extern bigIntType bigSucc (const const_bigIntType); extern bigIntType bigSuccTemp (bigIntType); extern bstriType bigToBStriBe (const const_bigIntType, const boolType); extern bstriType bigToBStriLe (const const_bigIntType, const boolType); extern bigIntType bigValue (objRefType); extern bigIntType bigXor (const_bigIntType, const_bigIntType); extern bigIntType bigZero (void); extern void blnCpyGeneric (genericType *const, const genericType); extern boolType blnValue (objRefType); extern void bstAppend (bstriType *const, const_bstriType); extern bstriType bstCat (const_bstriType, const_bstriType); extern intType bstCmp (const const_bstriType, const const_bstriType); extern intType bstCmpGeneric (const genericType, const genericType); extern void bstCpy (bstriType *const, const const_bstriType); extern void bstCpyGeneric (genericType *const, const genericType); extern bstriType bstCreate (const const_bstriType); extern genericType bstCreateGeneric (const genericType); extern void bstDestr (const const_bstriType); extern void bstDestrGeneric (const genericType); extern intType bstHashCode (const const_bstriType); extern bstriType bstParse (const const_striType); extern striType bstStr (const const_bstriType); extern bstriType bstValue (objRefType); extern striType chrCLit (charType); extern striType chrCLitToBuffer (charType, striType); extern intType chrCmp (charType, charType); extern intType chrCmpGeneric (const genericType, const genericType); extern void chrCpyGeneric (genericType *const, const genericType); extern charType chrLow (charType); extern striType chrStr (charType); #define chrStrMacro(ch,str) (str.size=1,str.mem=str.mem1,str.mem1[0]=(strElemType)(ch),&str) extern charType chrUp (charType); extern charType chrValue (objRefType); extern bigIntType cmdBigFileSize (const const_striType); extern void cmdChdir (const const_striType); extern void cmdCloneFile (const const_striType, const const_striType); extern striType cmdConfigValue (const const_striType); extern void cmdCopyFile (const const_striType, const const_striType); extern arrayType cmdEnvironment (void); extern setType cmdFileMode (const const_striType); extern intType cmdFileSize (const const_striType); extern intType cmdFileType (const const_striType); extern intType cmdFileTypeSL (const const_striType); extern striType cmdGetcwd (void); extern striType cmdGetenv (const const_striType); extern void cmdGetATime (const const_striType, intType *, intType *, intType *, intType *, intType *, intType *, intType *, intType *, boolType *); extern void cmdGetCTime (const const_striType, intType *, intType *, intType *, intType *, intType *, intType *, intType *, intType *, boolType *); extern void cmdGetMTime (const const_striType, intType *, intType *, intType *, intType *, intType *, intType *, intType *, intType *, boolType *); extern arrayType cmdGetSearchPath (void); extern striType cmdHomeDir (void); extern arrayType cmdLs (const const_striType); extern void cmdMkdir (const const_striType); extern void cmdMove (const const_striType, const const_striType); extern striType cmdReadlink (const const_striType); extern void cmdRemoveFile (const const_striType); extern void cmdRemoveTree (const const_striType); extern void cmdSetenv (const const_striType, const const_striType); extern void cmdSetATime (const const_striType, intType, intType, intType, intType, intType, intType, intType, intType); extern void cmdSetFileMode (const const_striType, const const_setType); extern void cmdSetMTime (const const_striType, intType, intType, intType, intType, intType, intType, intType, intType); extern intType cmdShell (const const_striType, const const_striType); extern striType cmdShellEscape (const const_striType); extern void cmdPipe2 (const const_striType, const const_arrayType, fileType *, fileType *); extern void cmdPty (const const_striType, const const_arrayType, fileType *, fileType *); extern void cmdStartProcess (const const_striType, const const_arrayType); extern void cmdSymlink (const_striType, const_striType); extern striType cmdToOsPath (const const_striType); extern void conClear (intType, intType, intType, intType); extern void conCursor (boolType); extern void conFlush (void); extern int conHeight (void); extern void conHScroll (intType, intType, intType, intType, intType); extern int conOpen (void); extern void conSetpos (intType, intType); extern void conShut (void); extern void conVScroll (intType, intType, intType, intType, intType); extern int conWidth (void); extern void conWrite (const_striType); extern intType drwPointerXpos (const_winType); extern intType drwPointerYpos (const_winType); extern void drwArc (const_winType, intType, intType, intType, floatType, floatType); extern void drwArc2 (const_winType, intType, intType, intType, intType, intType); extern void drwBackground (intType); extern void drwCircle (const_winType, intType, intType, intType); extern void drwClear (winType, intType); extern void drwColor (intType); extern void drwCopyArea (const_winType, const_winType, intType, intType, intType, intType, intType, intType); extern void drwCpy (winType *const, const winType); extern void drwCpyGeneric (genericType *const, const genericType); extern winType drwCreate (const winType); extern genericType drwCreateGeneric (const genericType); extern void drwDestr (const winType); extern void drwDestrGeneric (const genericType); extern void drwFArcChord (const_winType, intType, intType, intType, floatType, floatType); extern void drwFArcPieSlice (const_winType, intType, intType, intType, floatType, floatType); extern void drwFCircle (const_winType, intType, intType, intType); extern void drwFEllipse (const_winType, intType, intType, intType, intType); extern void drwFlush (void); extern bstriType drwGenPointList (const const_arrayType); extern winType drwGet (const_winType, intType, intType, intType, intType); extern bstriType drwGetImage (const_winType); extern intType drwGetImagePixel (const_bstriType, intType, intType, intType, intType); extern intType drwGetPixel (const_winType, intType, intType); extern intType drwHeight (const_winType); extern winType drwImage (int32Type *, memSizeType, memSizeType); extern void drwLine (const_winType, intType, intType, intType, intType); extern winType drwNewPixmap (intType, intType); extern winType drwOpen (intType, intType, intType, intType, const const_striType); extern winType drwOpenSubWindow (const_winType, intType, intType, intType, intType); extern void drwPArc (const_winType, intType, intType, intType, floatType, floatType, intType); extern void drwPCircle (const_winType, intType, intType, intType, intType); extern void drwPFArcChord (const_winType, intType, intType, intType, floatType, floatType, intType); extern void drwPFArcPieSlice (const_winType, intType, intType, intType, floatType, floatType, intType); extern void drwPFCircle (const_winType, intType, intType, intType, intType); extern void drwPFEllipse (const_winType, intType, intType, intType, intType, intType); extern void drwPixelToRgb (intType, intType *, intType *, intType *); extern void drwPLine (const_winType, intType, intType, intType, intType, intType); extern void drwPoint (const_winType, intType, intType); extern void drwPPoint (const_winType, intType, intType, intType); extern void drwPRect (const_winType, intType, intType, intType, intType, intType); extern void drwPolyLine (const_winType, intType, intType, bstriType, intType); extern void drwFPolyLine (const_winType, intType, intType, bstriType, intType); extern void drwPut (const_winType, const_winType, intType, intType); extern void drwRect (const_winType, intType, intType, intType, intType); extern intType drwRgbColor (intType, intType, intType); extern winType drwRtlImage (const_arrayType); extern void drwSetContent (const_winType, const_winType); extern void drwSetPos (const_winType, intType, intType); extern void drwSetTransparentColor (winType, intType); extern void drwText (const_winType, intType, intType, const const_striType, intType, intType); extern void drwToBottom (const_winType); extern void drwToTop (const_winType); extern winType drwValue (objRefType); extern intType drwWidth (const_winType); extern intType drwXPos (const_winType); extern intType drwYPos (const_winType); extern bigIntType filBigLng (fileType); extern void filBigSeek (fileType, const const_bigIntType); extern bigIntType filBigTell (fileType); extern void filClose (fileType); extern striType filGets (fileType, intType); extern boolType filHasNext (fileType); extern boolType filInputReady (fileType); extern striType filLineRead (fileType, charType *); extern striType filLit (fileType); extern intType filLng (fileType); extern fileType filOpen (const const_striType, const const_striType); extern void filPclose (fileType); extern fileType filPopen (const const_striType, const const_striType, const const_striType); extern void filPrint (const const_striType); extern void filSeek (fileType, intType); extern void filSetbuf (fileType, intType, intType); extern intType filTell (fileType); extern striType filWordRead (fileType, charType *); extern void filWrite (fileType, const const_striType); extern fileType filValue (objRefType); extern intType fltCmp (floatType, floatType); extern intType fltCmpGeneric (const genericType, const genericType); extern void fltCpyGeneric (genericType *const, const genericType); extern striType fltDgts (floatType, intType); extern floatType fltIPow (floatType, intType); extern boolType fltIsNegativeZero (floatType); #define fltIsNegativeZeroMacro(number) (memcmp(&(number), &negativeZero, sizeof(floatType)) == 0) extern floatType fltParse (const const_striType); extern floatType fltRand (floatType, floatType); extern striType fltSci (floatType, intType); extern striType fltStr (floatType); extern floatType fltValue (objRefType); extern boolType gkbButtonPressed (charType); extern intType gkbButtonXpos (void); extern intType gkbButtonYpos (void); extern charType gkbGetc (void); extern striType gkbGets (intType); extern boolType gkbKeyPressed (void); extern striType gkbLineRead (charType *); extern charType gkbRawGetc (void); extern winType gkbWindow (void); extern striType gkbWordRead (charType *); extern boolType hshContains (const const_hashType, const genericType, intType, compareType); extern void hshCpy (hashType *const, const const_hashType, const createFuncType, const destrFuncType, const createFuncType, const destrFuncType); extern hashType hshCreate (const const_hashType, const createFuncType, const destrFuncType, const createFuncType, const destrFuncType); extern void hshDestr (const const_hashType, const destrFuncType, const destrFuncType); extern hashType hshEmpty (void); extern void hshExcl (const hashType, const genericType, intType, compareType, const destrFuncType, const destrFuncType); extern genericType hshIdx (const const_hashType, const genericType, intType, compareType); extern rtlObjectType *hshIdxAddr (const const_hashType, const genericType, intType, compareType); extern rtlObjectType *hshIdxAddr2 (const const_hashType, const genericType, intType, compareType); extern void hshIncl (const hashType, const genericType, const genericType, intType, compareType, const createFuncType, const createFuncType, const copyFuncType); extern arrayType hshKeys (const const_hashType, const createFuncType, const destrFuncType); extern genericType hshUpdate (const hashType, const genericType, const genericType, intType, compareType, const createFuncType, const createFuncType); extern arrayType hshValues (const const_hashType, const createFuncType, const destrFuncType); extern intType intBinom (intType, intType); extern intType intBitLength (intType); extern striType intBytesBe (intType, boolType); extern intType intBytesBe2Int (const const_striType, boolType); extern striType intBytesLe (intType, boolType); extern intType intBytesLe2Int (const const_striType, boolType); extern intType intCmp (intType, intType); extern intType intCmpGeneric (const genericType, const genericType); extern intType intLog10 (intType); extern intType intLog2 (intType); extern intType intLowestSetBit (intType); extern striType intLpad0 (intType, const intType); extern intType intParse (const const_striType); extern intType intPow (intType, intType); extern intType intPowOvfChk (intType, intType); extern striType intRadix (intType, intType, boolType); extern striType intRadixPow2 (intType, int, int, boolType); extern intType intRand (intType, intType); extern intType intSqrt (intType); extern striType intStr (intType); extern striType intStrToBuffer (intType, striType); extern intType intValue (objRefType); extern interfaceType itfCreate (const interfaceType); extern genericType itfCreateGeneric (const genericType); extern charType kbdGetc (void); extern striType kbdGets (intType); extern boolType kbdKeyPressed (void); extern striType kbdLineRead (charType *); extern charType kbdRawGetc (void); extern striType kbdWordRead (charType *); extern void polAddCheck (const pollType, const socketType, intType, const genericType); extern void polClear (const pollType); extern void polCpy (const pollType, const const_pollType); extern pollType polCreate (const const_pollType); extern void polDestr (const pollType); extern pollType polEmpty (void); extern intType polGetCheck (const const_pollType, const socketType); extern intType polGetFinding (const const_pollType, const socketType); extern boolType polHasNext (const pollType); extern void polIterChecks (const pollType, intType); extern void polIterFindings (const pollType, intType); extern genericType polNextFile (const pollType, const genericType); extern void polPoll (const pollType); extern void polRemoveCheck (const pollType, const socketType, intType); extern pollType polValue (objRefType); extern void prgCpy (progType *const, const progType); extern progType prgCreate (const progType); extern void prgDestr (progType); extern intType prgErrorCount (const const_progType); extern objRefType prgEval (progType, objRefType); extern void prgExec (const const_progType, const const_arrayType, const_setType, const_striType); extern progType prgFilParse (const const_striType, const_setType, const const_arrayType, const_striType); extern listType prgGlobalObjects (const const_progType); extern objRefType prgMatch (const const_progType, listType); extern objRefType prgMatchExpr (const const_progType, listType); extern const_striType prgName (const const_progType); extern const_striType prgPath (const const_progType); extern progType prgStrParse (const const_striType, const_setType, const const_arrayType, const_striType); extern objRefType prgSyobject (const progType, const const_striType); extern objRefType prgSysvar (const const_progType, const const_striType); extern progType prgValue (objRefType); extern objRefType refAlloc (objRefType); extern intType refArrMaxIdx (objRefType); extern intType refArrMinIdx (objRefType); extern listType refArrToList (objRefType); extern objRefType refBody (objRefType); extern intType refCategory (objRefType); extern striType refCatStr (intType); extern striType refFile (objRefType); extern listType refHshDataToList (objRefType); extern listType refHshKeysToList (objRefType); extern boolType refIsVar (objRefType); extern objRefType refItfToSct (objRefType); extern intType refLine (objRefType); extern listType refLocalConsts (objRefType); extern listType refLocalVars (objRefType); extern intType refNum (objRefType); extern listType refParams (objRefType); extern objRefType refResini (objRefType); extern objRefType refResult (objRefType); extern listType refSctToList (objRefType); extern void refSetCategory (objRefType, intType); extern void refSetParams (objRefType, const_listType); extern void refSetType (objRefType, typeType); extern void refSetVar (objRefType, boolType); extern striType refStr (objRefType); extern typeType refType (objRefType); extern objRefType refValue (objRefType); extern void rflAppend (listType *const, const listType); extern listType rflCat (listType, const listType); extern intType rflCmpGeneric (const genericType, const genericType); extern void rflCpy (listType *const, const const_listType); extern void rflCpyGeneric (genericType *const, const genericType); extern listType rflCreate (const const_listType); extern genericType rflCreateGeneric (const genericType); extern void rflDestr (const listType); extern void rflDestrGeneric (const genericType); extern boolType rflElem (const const_objRefType, const_listType); extern void rflElemcpy (listType, intType, objRefType); extern boolType rflEq (const_listType, const_listType); extern listType rflHead (const listType, intType); extern objRefType rflIdx (const_listType, intType); extern void rflIncl (listType *, objRefType); extern intType rflIpos (listType, objRefType, intType); extern intType rflLng (const_listType); extern listType rflMklist (objRefType); extern intType rflPos (const_listType, const const_objRefType); extern void rflSetValue (objRefType, listType); extern listType rflTail (const_listType, intType); extern listType rflValue (objRefType); extern setType setArrlit (const_arrayType); extern setType setBaselit (const intType); extern intType setCard (const const_setType); extern intType setCmp (const const_setType, const const_setType); extern intType setCmpGeneric (const genericType, const genericType); extern void setCpy (setType *const, const const_setType); extern void setCpyGeneric (genericType *const, const genericType); extern setType setCreate (const const_setType); extern genericType setCreateGeneric (const genericType); extern void setDestr (const const_setType); extern void setDestrGeneric (const genericType); extern setType setDiff (const const_setType, const const_setType); extern boolType setElem (const intType, const const_setType); extern boolType setEq (const const_setType, const const_setType); extern void setExcl (setType *const, const intType); extern intType setHashCode (const const_setType); extern setType setIConv (intType); extern void setIncl (setType *const, const intType); extern setType setIntersect (const const_setType, const const_setType); extern boolType setIsEmpty (const const_setType); extern boolType setIsProperSubset (const const_setType, const const_setType); extern boolType setIsSubset (const const_setType, const const_setType); extern intType setMax (const const_setType); extern intType setMin (const const_setType); extern intType setNext (const const_setType, const intType); extern intType setRand (const const_setType); extern setType setRangelit (const intType, const intType); extern intType setSConv (const const_setType); extern setType setSymdiff (const const_setType, const const_setType); extern setType setUnion (const const_setType, const const_setType); extern setType setValue (objRefType); extern socketType socAccept (socketType, bstriType *); extern intType socAddrFamily (const const_bstriType); extern striType socAddrNumeric (const const_bstriType); extern striType socAddrService (const const_bstriType); extern void socBind (socketType, const_bstriType); extern void socClose (socketType); extern void socConnect (socketType, const_bstriType); extern charType socGetc (socketType, charType *); extern striType socGets (socketType, intType, charType *); extern bstriType socGetAddr (socketType); extern striType socGetHostname(void); extern boolType socHasNext (socketType); extern bstriType socInetAddr (const const_striType, intType); extern bstriType socInetLocalAddr (intType); extern bstriType socInetServAddr (intType); extern boolType socInputReady (socketType, intType, intType); extern striType socLineRead (socketType, charType *); extern void socListen (socketType, intType); extern intType socRecv (socketType, striType *, intType, intType); extern intType socRecvfrom (socketType, striType *, intType, intType, bstriType *); extern intType socSend (socketType, const_striType, intType); extern intType socSendto (socketType, const_striType, intType, bstriType); extern void socSetOptBool (socketType, intType, boolType); extern socketType socSocket (intType, intType, intType); extern striType socWordRead (socketType, charType *); extern void socWrite (socketType, const const_striType); extern void sqlBindBigInt (sqlStmtType, intType, const const_bigIntType); extern void sqlBindBigRat (sqlStmtType, intType, const const_bigIntType, const const_bigIntType); extern void sqlBindBool (sqlStmtType, intType, boolType); extern void sqlBindBStri (sqlStmtType, intType, bstriType); extern void sqlBindDuration (sqlStmtType, intType, intType, intType, intType, intType, intType, intType, intType); extern void sqlBindFloat (sqlStmtType, intType, floatType); extern void sqlBindInt (sqlStmtType, intType, intType); extern void sqlBindNull (sqlStmtType, intType); extern void sqlBindStri (sqlStmtType, intType, striType); extern void sqlBindTime (sqlStmtType, intType, intType, intType, intType, intType, intType, intType, intType); extern void sqlClose (databaseType); extern bigIntType sqlColumnBigInt (sqlStmtType, intType); extern void sqlColumnBigRat (sqlStmtType, intType, bigIntType *, bigIntType * ); extern boolType sqlColumnBool (sqlStmtType, intType); extern bstriType sqlColumnBStri (sqlStmtType, intType); extern void sqlColumnDuration (sqlStmtType, intType, intType *, intType *, intType *, intType *, intType *, intType *, intType * ); extern floatType sqlColumnFloat (sqlStmtType, intType); extern intType sqlColumnInt (sqlStmtType, intType); extern striType sqlColumnStri (sqlStmtType, intType); extern void sqlColumnTime (sqlStmtType, intType, intType *, intType *, intType *, intType *, intType *, intType *, intType *, intType *, boolType * ); extern void sqlCommit (databaseType); extern void sqlCpyDb (databaseType *const, const databaseType); extern void sqlCpyStmt (sqlStmtType *const, const sqlStmtType); extern databaseType sqlCreateDb (const databaseType); extern sqlStmtType sqlCreateStmt (const sqlStmtType); extern void sqlDestrDb (const databaseType); extern void sqlDestrStmt (const sqlStmtType); extern void sqlExecute (sqlStmtType); extern boolType sqlFetch (sqlStmtType); extern boolType sqlIsNull (sqlStmtType, intType); extern databaseType sqlOpen (intType, const const_striType, const const_striType, const const_striType); extern sqlStmtType sqlPrepare (databaseType, striType); extern intType sqlStmtColumnCount (sqlStmtType); extern striType sqlStmtColumnName (sqlStmtType, intType); extern void strAppend (striType *const, const_striType); extern void strAppendTemp (striType *const, const striType); extern intType strChIPos (const const_striType, const charType, const intType); extern striType strChMult (const charType, const intType); extern intType strChPos (const const_striType, const charType); extern arrayType strChSplit (const const_striType, const charType); extern intType strCmpGeneric (const genericType, const genericType); extern intType strCompare (const const_striType, const const_striType); extern striType strConcat (const const_striType, const const_striType); extern striType strConcatN (const const_striType[], memSizeType); extern striType strConcatTemp (striType, const const_striType); extern striType strCLit (const const_striType); extern void strCopy (striType *const, const const_striType); extern void strCpyGeneric (genericType *const, const genericType); extern striType strCreate (const const_striType); extern genericType strCreateGeneric (const genericType); extern void strDestr (const const_striType); extern void strDestrGeneric (const genericType); extern striType strEmpty(void); extern boolType strGe (const const_striType, const const_striType); extern boolType strGt (const const_striType, const const_striType); extern intType strHashCode (const const_striType); extern striType strHead (const_striType, intType); extern void strHeadSlice (const const_striType, const intType, striType); extern striType strHeadTemp (const striType, const intType); extern intType strIPos (const const_striType, const const_striType, const intType); extern boolType strLe (const const_striType, const const_striType); extern striType strLit (const const_striType); extern striType strLow (const const_striType); extern striType strLowTemp (const striType); extern striType strLpad (const const_striType, const intType); extern striType strLpadTemp (const striType, const intType); extern striType strLpad0 (const const_striType, const intType); extern striType strLpad0Temp (const striType, const intType); extern boolType strLt (const const_striType, const const_striType); extern striType strLtrim (const const_striType); extern striType strMult (const const_striType, const intType); extern intType strPos (const const_striType, const const_striType); extern void strPush (striType *const, const charType); extern striType strRange (const_striType, intType, intType); extern void strRangeSlice (const const_striType, intType, intType, striType); extern intType strRChIPos (const const_striType, const charType, const intType); extern intType strRChPos (const const_striType, const charType); extern striType strRepl (const const_striType, const const_striType, const const_striType); extern intType strRIPos (const const_striType, const const_striType, const intType); extern striType strRpad (const const_striType, const intType); extern intType strRPos (const const_striType, const const_striType); extern striType strRtrim (const const_striType); extern arrayType strSplit (const const_striType, const const_striType); extern striType strSubstr (const_striType, intType, intType); extern void strSubstrSlice (const const_striType, intType, intType, striType); extern striType strTail (const_striType, intType); extern void strTailSlice (const const_striType, intType, striType); extern striType strToUtf8 (const const_striType); extern striType strTrim (const const_striType); extern striType strUp (const const_striType); extern striType strUpTemp (const striType); extern striType strUtf8ToStri (const_striType); extern striType strValue (objRefType); extern striType strZero (const intType); extern void timAwait (intType, intType, intType, intType, intType, intType, intType, intType); extern void timFromIntTimestamp (intType, intType *, intType *, intType *, intType *, intType *, intType *, intType *, intType *, boolType *); extern void timNow (intType *, intType *, intType *, intType *, intType *, intType *, intType *, intType *, boolType *); extern void timSetLocalTZ (intType, intType, intType, intType, intType, intType, intType *, boolType *); extern intType typCmp (const const_typeType, const const_typeType); extern intType typCmpGeneric (const genericType, const genericType); extern typeType typFunc (typeType); extern boolType typIsDerived (typeType); extern boolType typIsFunc (typeType); extern boolType typIsVarfunc (typeType); extern objRefType typMatchobj (typeType); extern typeType typMeta (typeType); extern intType typNum (typeType); extern typeType typResult (typeType); extern striType typStr (typeType); extern typeType typValue (objRefType); extern charType ut8Getc (fileType); extern striType ut8Gets (fileType, intType); extern striType ut8LineRead (fileType, charType *); extern void ut8Seek (fileType, intType); extern striType ut8WordRead (fileType, charType *); extern void ut8Write (fileType, const const_striType); extern arrayType getArgv (const int, char *const *const, striType *, striType *, striType *); extern intType heapsize (void); extern void setupStack (void); extern void setupFloat (void); static void prcNoop (void) {} static void init_values (void); static void init_globals (void); extern void initPollOperations (const createFuncType, const destrFuncType); extern void genericCpy (genericType *const, const genericType); extern genericType genericCreate (genericType); extern void genericDestr (genericType); extern intType ptrCmp (const void *const, const void *const); extern intType ptrCmpGeneric (const genericType, const genericType); extern void ptrCpyGeneric (genericType *const, const genericType); extern genericType ptrCreateGeneric (const genericType); extern void rtlRaiseError (int, const char *, int) NORETURN; #define raise_error(num) rtlRaiseError(num, __FILE__, __LINE__) #define intRaiseError(num) (rtlRaiseError(num, __FILE__, __LINE__), 0) #define bigRaiseError(num) (bigIntType)(rtlRaiseError(num, __FILE__, __LINE__), NULL) static void activate_signal_handlers (void); static void handle_signals (int sig_num) { int ch; char *sig_name; char buffer[20]; #ifdef SIGALRM signal(SIGALRM, SIG_IGN); #endif if (sig_num == SIGABRT) { sig_name = "ABORT"; } else if (sig_num == SIGFPE) { sig_name = "FPE"; } else if (sig_num == SIGILL) { sig_name = "ILL"; } else if (sig_num == SIGINT) { sig_name = "INTR"; } else if (sig_num == SIGSEGV) { sig_name = "SEGV"; } else if (sig_num == SIGTERM) { sig_name = "TERM"; } else { sprintf(buffer, "%d", sig_num); sig_name = buffer; } /* if */ printf("\n*** SIGNAL %s RAISED\n", sig_name); printf("\n*** (Type RETURN to continue or '*' to terminate)\n"); ch = fgetc(stdin); if (ch == '*') { exit(1); } /* if */ activate_signal_handlers(); } static void handle_term_signal (int sig_num) { printf("\n*** SIGNAL TERM RAISED\n"); printf("\n*** Program terminated\n"); exit(1); } static void handle_numeric_error (int sig_num) { raise_error(NUMERIC_ERROR); } static void handle_overflow_error (int sig_num) { raise_error(OVERFLOW_ERROR); } static void activate_signal_handlers (void) { signal(SIGFPE, handle_numeric_error); signal(SIGTERM, handle_term_signal); signal(SIGABRT, handle_signals); signal(SIGILL, handle_overflow_error); signal(SIGINT, handle_signals); signal(SIGSEGV, handle_signals); #ifdef SIGPIPE signal(SIGPIPE, SIG_IGN); #endif } static void resize_catch_stack (void) { catch_type *resized_stack; max_catch_stack += 128; resized_stack = (catch_type *)(realloc(catch_stack, max_catch_stack)); if (resized_stack == NULL) { catch_stack_pos--; raise_error(MEMORY_ERROR); } else { catch_stack = resized_stack; } } static intType int_raise_error (int fail_value, const char *file_name, int line_number) { rtlRaiseError(fail_value, file_name, line_number); return 0; } /* 1 */ /* 2 */ typedef struct { void/*t_1_void*/ (*func) (void *); struct { int dummy; } data; } struct_t_2/*t_2_proc*/, *t_2/*t_2_proc*/; /* 3 */ /* do not declare: void o_4_empty */ /* 4 */ typedef genericType t_3/*t_3_expr*/; /* 5 */ typedef genericType t_4/*t_4_object*/; /* 6 */ /* 7 */ typedef genericType t_5/*t_5_ACTION*/; /* 8 */ typedef genericType t_6/*t_6_f_param*/; /* 9 */ /* 10 */ /* 11 */ /* 12 */ typedef genericType t_8/*t_8_EXCEPTION*/; /* 13 */ /* 14 */ typedef genericType t_9/*t_9_DISCRETE*/; /* 15 */ /* 16 */ /* 17 */ /* 18 */ /* 19 */ /* 20 */ typedef genericType t_10/*t_10_ENUMERATION*/; /* 21 */ /* 22 */ /* 23 */ typedef genericType t_11/*t_11_INDEXABLE*/; /* 24 */ /* 25 */ /* 26 */ typedef genericType t_12/*t_12_MODULE*/; /* 27 */ /* 28 */ /* 29 */ /* 30 */ /* 31 */ const enumType/*t_8_EXCEPTION*/ o_15_MEMORY_ERROR=/*MEMORY_ERROR*/0; /* 32 */ const enumType/*t_8_EXCEPTION*/ o_16_NUMERIC_ERROR=/*NUMERIC_ERROR*/1; /* 33 */ const enumType/*t_8_EXCEPTION*/ o_17_OVERFLOW_ERROR=/*OVERFLOW_ERROR*/2; /* 34 */ const enumType/*t_8_EXCEPTION*/ o_18_RANGE_ERROR=/*RANGE_ERROR*/3; /* 35 */ const enumType/*t_8_EXCEPTION*/ o_19_FILE_ERROR=/*FILE_ERROR*/4; /* 36 */ const enumType/*t_8_EXCEPTION*/ o_20_ILLEGAL_ACTION=/*ILLEGAL_ACTION*/5; /* 37 */ const enumType/*t_8_EXCEPTION*/ o_21_CREATE_ERROR=/*CREATE_ERROR*/6; /* 38 */ const enumType/*t_8_EXCEPTION*/ o_22_DESTROY_ERROR=/*DESTROY_ERROR*/7; /* 39 */ const enumType/*t_8_EXCEPTION*/ o_23_COPY_ERROR=/*COPY_ERROR*/8; /* 40 */ const enumType/*t_8_EXCEPTION*/ o_24_IN_ERROR=/*IN_ERROR*/9; /* 41 */ /* 42 */ typedef genericType t_13/*t_13_boolean*/; /* 43 */ /* 44 */ /* 45 */ /* 46 */ const boolType/*t_13_boolean*/ o_25_FALSE=0/*FALSE*/; /* 47 */ const boolType/*t_13_boolean*/ o_26_TRUE=1/*TRUE*/; /* 48 */ const boolType/*t_13_boolean*/ o_27/*.*/=0/*FALSE*/; /* 49 */ const boolType/*t_13_boolean*/ o_28/*.*/=0/*FALSE*/; /* 50 */ const boolType/*t_13_boolean*/ o_29/*.*/=1/*TRUE*/; /* 51 */ static intType/*t_14_integer*/ o_30_compare (const boolType/*t_13_boolean*/ o_31_aBoolean1, const boolType/*t_13_boolean*/ o_32_aBoolean2); const boolType/*t_13_boolean*/ o_33_FALSE=1/*TRUE*/; /* 52 */ const boolType/*t_13_boolean*/ o_34_TRUE=0/*FALSE*/; /* 53 */ /* DYNAMIC */ static boolType/*t_13_boolean*/ o_35_succ (const boolType/*t_13_boolean*/ *const o_36_boolValue); /* 54 */ /* DYNAMIC */ static boolType/*t_13_boolean*/ o_37_pred (const boolType/*t_13_boolean*/ *const o_38_boolValue); /* 55 */ /* line 202 "../lib/boolean.s7i" */ static void/*t_1_void*/ o_39_incr (boolType/*t_13_boolean*/ *const o_40_boolValue) { /* line 204 "../lib/boolean.s7i" */ *o_40_boolValue=o_35_succ(o_40_boolValue); } /* line 1 "no_file" */ /* 56 */ /* line 211 "../lib/boolean.s7i" */ static void/*t_1_void*/ o_41_decr (boolType/*t_13_boolean*/ *const o_42_boolValue) { /* line 213 "../lib/boolean.s7i" */ *o_42_boolValue=o_37_pred(o_42_boolValue); } /* line 1 "no_file" */ /* 57 */ static striType/*t_15_string*/ o_43_str (const boolType/*t_13_boolean*/ o_44_aBool); static boolType/*t_13_boolean*/ o_45_parse (/* attr t_13 boolean*/ const const_striType/*t_15_string*/ o_46_stri); static boolType/*t_13_boolean*/ o_47_rand (const boolType/*t_13_boolean*/ o_48_low, const boolType/*t_13_boolean*/ o_49_high); /* 58 */ typedef genericType t_16/*t_16_ELSIF_RESULT*/; /* 59 */ /* 60 */ const t_16/*t_16_ELSIF_RESULT*/ o_50_ELSIF_EMPTY=/*ELSIF_EMPTY*/0; /* 61 */ typedef struct { t_16/*t_16_ELSIF_RESULT*/ (*func) (void *); struct { int dummy; } data; } struct_t_17/*t_17_ELSIF_PROC*/, *t_17/*t_17_ELSIF_PROC*/; /* 62 */ /* 63 */ /* 64 */ /* 65 */ extern intType/*t_14_integer*/ o_51/*.*/; static intType/*t_14_integer*/ o_52_integer (const const_striType/*t_15_string*/ value_o_53_stri, const intType/*t_14_integer*/ o_54_base); static striType/*t_15_string*/ o_55_sci (const intType/*t_14_integer*/ o_56_number, const intType/*t_14_integer*/ o_57_precision); /* line 545 "../lib/integer.s7i" */ static intType/*t_14_integer*/ o_58_min (const intType/*t_14_integer*/ o_59_value1, const intType/*t_14_integer*/ o_60_value2) { /* line 547 "../lib/integer.s7i" */ intType/*t_14_integer*/ o_61_minimum=0; /* line 549 "../lib/integer.s7i" */ if ((o_59_value1) < (o_60_value2)) { /* line 550 "../lib/integer.s7i" */ o_61_minimum=o_59_value1; } else { /* line 552 "../lib/integer.s7i" */ o_61_minimum=o_60_value2; } return o_61_minimum; } /* line 1 "no_file" */ /* 66 */ /* line 561 "../lib/integer.s7i" */ static intType/*t_14_integer*/ o_62_max (const intType/*t_14_integer*/ o_63_value1, const intType/*t_14_integer*/ o_64_value2) { /* line 563 "../lib/integer.s7i" */ intType/*t_14_integer*/ o_65_maximum=0; /* line 565 "../lib/integer.s7i" */ if ((o_63_value1) > (o_64_value2)) { /* line 566 "../lib/integer.s7i" */ o_65_maximum=o_63_value1; } else { /* line 568 "../lib/integer.s7i" */ o_65_maximum=o_64_value2; } return o_65_maximum; } /* line 1 "no_file" */ /* 67 */ /* line 409 "../lib/seed7_05.s7i" */ static boolType/*t_13_boolean*/ o_47_rand (const boolType/*t_13_boolean*/ o_48_low, const boolType/*t_13_boolean*/ o_49_high) { /* line 410 "../lib/seed7_05.s7i" */ return (boolType/*t_13_boolean*/)(((intRand((intType)(o_48_low), (intType)(o_49_high)))&1)); } /* line 1 "no_file" */ /* 68 */ /* line 412 "../lib/seed7_05.s7i" */ static intType/*t_14_integer*/ o_30_compare (const boolType/*t_13_boolean*/ o_31_aBoolean1, const boolType/*t_13_boolean*/ o_32_aBoolean2) { /* line 413 "../lib/seed7_05.s7i" */ return (intType/*t_14_integer*/)((intCmp((intType)(o_31_aBoolean1), (intType)(o_32_aBoolean2)))); } /* line 1 "no_file" */ /* 69 */ /* 70 */ /* 71 */ /* 72 */ /* line 229 "../lib/char.s7i" */ static charType/*t_18_char*/ o_66_rand (const charType/*t_18_char*/ o_67_low, const charType/*t_18_char*/ o_68_high) { /* line 230 "../lib/char.s7i" */ charType/*t_18_char*/ result; /* line 230 "../lib/char.s7i" */ intType tmp_1; /* line 230 "../lib/char.s7i" */ result=(charType/*t_18_char*/)(((tmp_1=intRand((intType)((scharType)(o_67_low)), (intType)((scharType)(o_68_high))),tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1))); /* line 230 "../lib/char.s7i" */ return result; } /* line 1 "no_file" */ /* 73 */ static charType/*t_18_char*/ o_69_parse (/* attr t_18 char*/ const const_striType/*t_15_string*/ o_70_stri); static striType/*t_15_string*/ o_71_trimValue (/* attr t_18 char*/ const const_striType/*t_15_string*/ o_72_stri); static striType/*t_15_string*/ o_73_literal (const charType/*t_18_char*/ o_74_ch); /* line 248 "../lib/string.s7i" */ static boolType/*t_13_boolean*/ o_75_startsWith (const const_striType/*t_15_string*/ o_76_stri, const const_striType/*t_15_string*/ o_77_prefix) { /* line 249 "../lib/string.s7i" */ boolType/*t_13_boolean*/ result; /* line 249 "../lib/string.s7i" */ const_striType tmp_a_1; /* line 249 "../lib/string.s7i" */ struct striStruct slice_2; /* line 249 "../lib/string.s7i" */ result=(boolType/*t_13_boolean*/)(((tmp_a_1=(strHeadSlice(o_76_stri, (intType)((o_77_prefix)->size), &slice_2), &slice_2),tmp_a_1->size==(o_77_prefix)->size&&memcmp(tmp_a_1->mem,(o_77_prefix)->mem,tmp_a_1->size*sizeof(strElemType))==0))); /* line 249 "../lib/string.s7i" */ return result; } /* line 1 "no_file" */ /* 74 */ /* line 259 "../lib/string.s7i" */ static boolType/*t_13_boolean*/ o_78_endsWith (const const_striType/*t_15_string*/ o_79_stri, const const_striType/*t_15_string*/ o_80_suffix) { /* line 260 "../lib/string.s7i" */ boolType/*t_13_boolean*/ result; /* line 260 "../lib/string.s7i" */ const_striType tmp_a_1; /* line 260 "../lib/string.s7i" */ struct striStruct slice_2; /* line 260 "../lib/string.s7i" */ result=(boolType/*t_13_boolean*/)(((tmp_a_1=(strTailSlice(o_79_stri, (((intType)((o_79_stri)->size)) - ((intType)((o_80_suffix)->size)))+1, &slice_2), &slice_2),tmp_a_1->size==(o_80_suffix)->size&&memcmp(tmp_a_1->mem,(o_80_suffix)->mem,tmp_a_1->size*sizeof(strElemType))==0))); /* line 260 "../lib/string.s7i" */ return result; } /* line 1 "no_file" */ /* 75 */ /* line 270 "../lib/string.s7i" */ static boolType/*t_13_boolean*/ o_81_equalAtIndex (const const_striType/*t_15_string*/ o_82_stri, const const_striType/*t_15_string*/ o_83_searched, const intType/*t_14_integer*/ o_84_index) { /* line 271 "../lib/string.s7i" */ boolType/*t_13_boolean*/ result; /* line 271 "../lib/string.s7i" */ const_striType tmp_a_1; /* line 271 "../lib/string.s7i" */ struct striStruct slice_2; /* line 271 "../lib/string.s7i" */ intType start_3; /* line 271 "../lib/string.s7i" */ intType length_4; /* line 271 "../lib/string.s7i" */ result=(boolType/*t_13_boolean*/)(((tmp_a_1=(start_3=o_84_index,length_4=(intType)((o_83_searched)->size),start_3<1 ? (length_4>=1 && start_3>1-length_4 ? (length_4+=start_3-1, start_3=1) : (length_4=0)) : 0, slice_2.capacity=0, length_4>=1 && (uintType)start_3<=(o_82_stri)->size ? (slice_2.mem = &(o_82_stri)->mem[start_3-1], (uintType)length_4 > (o_82_stri)->size-(memSizeType)start_3+1 ? slice_2.size = (o_82_stri)->size-(memSizeType)start_3+1 : (slice_2.size = (memSizeType)length_4)) : (slice_2.mem = NULL, slice_2.size = 0), &slice_2),tmp_a_1->size==(o_83_searched)->size&&memcmp(tmp_a_1->mem,(o_83_searched)->mem,tmp_a_1->size*sizeof(strElemType))==0))); /* line 271 "../lib/string.s7i" */ return result; } /* line 1 "no_file" */ /* 76 */ /* line 410 "../lib/string.s7i" */ static striType/*t_15_string*/ o_85_replaceN (const const_striType/*t_15_string*/ o_86_mainStri, const const_striType/*t_15_string*/ o_87_target, const const_striType/*t_15_string*/ o_88_replacement) { /* line 413 "../lib/string.s7i" */ striType/*t_15_string*/ o_89_replaced; /* line 415 "../lib/string.s7i" */ intType/*t_14_integer*/ o_90_length=0; /* line 413 "../lib/string.s7i" */ o_89_replaced=strEmpty(); /* "" */ /* line 417 "../lib/string.s7i" */ if (((intType)((o_88_replacement)->size)) < ((intType)((o_87_target)->size))) { /* line 418 "../lib/string.s7i" */ o_90_length=(intType)((o_86_mainStri)->size); { /* line 419 "../lib/string.s7i" */ striType old_stri=o_89_replaced; /* line 419 "../lib/string.s7i" */ o_89_replaced=strRepl(o_86_mainStri, o_87_target, o_88_replacement); /* line 419 "../lib/string.s7i" */ strDestr(old_stri); } /* line 420 "../lib/string.s7i" */ while (((intType)((o_89_replaced)->size)) != (o_90_length)) { /* line 421 "../lib/string.s7i" */ o_90_length=(intType)((o_89_replaced)->size); { /* line 422 "../lib/string.s7i" */ striType old_stri=o_89_replaced; /* line 422 "../lib/string.s7i" */ o_89_replaced=strRepl(o_89_replaced, o_87_target, o_88_replacement); /* line 422 "../lib/string.s7i" */ strDestr(old_stri); } } } else /* line 424 "../lib/string.s7i" */ if (((intType)((o_88_replacement)->size)) > ((intType)((o_87_target)->size))) { /* line 425 "../lib/string.s7i" */ if ((strPos(o_88_replacement, o_87_target)) != (0L)) { /* line 426 "../lib/string.s7i" */ if ((strPos(o_86_mainStri, o_87_target)) != (0L)) { /* line 427 "../lib/string.s7i" */ rtlRaiseError(o_15_MEMORY_ERROR+1, "../lib/string.s7i", 427); } else { /* line 429 "../lib/string.s7i" */ strCopy(&(o_89_replaced), o_86_mainStri); } } else { /* line 432 "../lib/string.s7i" */ o_90_length=(intType)((o_86_mainStri)->size); { /* line 433 "../lib/string.s7i" */ striType old_stri=o_89_replaced; /* line 433 "../lib/string.s7i" */ o_89_replaced=strRepl(o_86_mainStri, o_87_target, o_88_replacement); /* line 433 "../lib/string.s7i" */ strDestr(old_stri); } /* line 434 "../lib/string.s7i" */ while (((intType)((o_89_replaced)->size)) != (o_90_length)) { /* line 435 "../lib/string.s7i" */ o_90_length=(intType)((o_89_replaced)->size); { /* line 436 "../lib/string.s7i" */ striType old_stri=o_89_replaced; /* line 436 "../lib/string.s7i" */ o_89_replaced=strRepl(o_89_replaced, o_87_target, o_88_replacement); /* line 436 "../lib/string.s7i" */ strDestr(old_stri); } } } } else /* line 439 "../lib/string.s7i" */ if (((o_87_target)->size==(o_88_replacement)->size&&memcmp((o_87_target)->mem,(o_88_replacement)->mem,(o_87_target)->size*sizeof(strElemType))==0)) { /* line 440 "../lib/string.s7i" */ strCopy(&(o_89_replaced), o_86_mainStri); } else { { /* line 442 "../lib/string.s7i" */ striType old_stri=o_89_replaced; /* line 442 "../lib/string.s7i" */ o_89_replaced=strRepl(o_86_mainStri, o_87_target, o_88_replacement); /* line 442 "../lib/string.s7i" */ strDestr(old_stri); } /* line 443 "../lib/string.s7i" */ while ((strPos(o_89_replaced, o_87_target)) != (0L)) { { /* line 444 "../lib/string.s7i" */ striType old_stri=o_89_replaced; /* line 444 "../lib/string.s7i" */ o_89_replaced=strRepl(o_89_replaced, o_87_target, o_88_replacement); /* line 444 "../lib/string.s7i" */ strDestr(old_stri); } } } return o_89_replaced; } /* line 1 "no_file" */ /* 77 */ /* line 460 "../lib/string.s7i" */ static striType/*t_15_string*/ o_91_replace2 (const const_striType/*t_15_string*/ o_92_mainStri, const const_striType/*t_15_string*/ o_93_search1, const const_striType/*t_15_string*/ o_94_search2, const const_striType/*t_15_string*/ o_95_replacement) { /* line 463 "../lib/string.s7i" */ striType/*t_15_string*/ o_96_replaced; /* line 465 "../lib/string.s7i" */ intType/*t_14_integer*/ o_97_startPos=0; /* line 466 "../lib/string.s7i" */ intType/*t_14_integer*/ o_98_endPos=1; /* line 463 "../lib/string.s7i" */ o_96_replaced=strEmpty(); /* "" */ /* line 468 "../lib/string.s7i" */ o_97_startPos=strPos(o_92_mainStri, o_93_search1); /* line 469 "../lib/string.s7i" */ while ((o_97_startPos) != (0L)) { { /* line 470 "../lib/string.s7i" */ struct striStruct slice_1; /* line 470 "../lib/string.s7i" */ intType start_2; /* line 470 "../lib/string.s7i" */ intType stop_3; /* line 470 "../lib/string.s7i" */ strAppend(&(o_96_replaced), (start_2=o_98_endPos,stop_3=(o_97_startPos)-1,start_2<1 ? start_2=1 : 0, slice_1.capacity=0, stop_3>=start_2 && (uintType)start_2<=(o_92_mainStri)->size ? (slice_1.mem = &(o_92_mainStri)->mem[start_2-1], (uintType)stop_3 > (o_92_mainStri)->size ? slice_1.size = (o_92_mainStri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)stop_3-(memSizeType)start_2+1)) : (slice_1.mem = NULL,slice_1.size = 0), &slice_1)); } /* line 471 "../lib/string.s7i" */ o_98_endPos=strIPos(o_92_mainStri, o_94_search2, (o_97_startPos) + ((intType)((o_93_search1)->size))); /* line 472 "../lib/string.s7i" */ if ((o_98_endPos) != (0L)) { /* line 473 "../lib/string.s7i" */ strAppend(&(o_96_replaced), o_95_replacement); /* line 474 "../lib/string.s7i" */ o_98_endPos+=(intType)((o_94_search2)->size); /* line 475 "../lib/string.s7i" */ o_97_startPos=strIPos(o_92_mainStri, o_93_search1, o_98_endPos); } else { /* line 477 "../lib/string.s7i" */ o_98_endPos=o_97_startPos; /* line 478 "../lib/string.s7i" */ o_97_startPos=0L; } } { /* line 481 "../lib/string.s7i" */ struct striStruct slice_1; /* line 481 "../lib/string.s7i" */ strAppend(&(o_96_replaced), (strTailSlice(o_92_mainStri, o_98_endPos, &slice_1), &slice_1)); } return o_96_replaced; } /* line 1 "no_file" */ /* 78 */ /* line 545 "../lib/string.s7i" */ static striType/*t_15_string*/ o_99_trimValue (const typeType/*t_7_type*/ *const o_100_aType, const const_striType/*t_15_string*/ o_101_stri) { /* line 546 "../lib/string.s7i" */ return (striType/*t_15_string*/)((strTrim(o_101_stri))); } /* line 1 "no_file" */ /* 79 */ /* line 555 "../lib/string.s7i" */ static striType/*t_15_string*/ o_102_trimValue (/* attr t_15 string*/ const const_striType/*t_15_string*/ o_103_stri) { /* line 0 "?" */ return (striType/*t_15_string*/)((/*ref_to_value*/ o_103_stri)); } /* line 1 "no_file" */ /* 80 */ /* line 570 "../lib/string.s7i" */ static striType/*t_15_string*/ o_104_getint (striType/*t_15_string*/ *const o_105_stri) { /* line 572 "../lib/string.s7i" */ striType/*t_15_string*/ o_106_digits; /* line 574 "../lib/string.s7i" */ intType/*t_14_integer*/ o_107_leng=0; /* line 575 "../lib/string.s7i" */ intType/*t_14_integer*/ o_108_pos=1; /* line 572 "../lib/string.s7i" */ o_106_digits=strEmpty(); /* "" */ /* line 577 "../lib/string.s7i" */ o_107_leng=(intType)((*o_105_stri)->size); { /* line 578 "../lib/string.s7i" */ uintType idx_1; /* line 578 "../lib/string.s7i" */ uintType idx_2; /* line 578 "../lib/string.s7i" */ while (((o_108_pos) <= (o_107_leng)) && /* line 578 "../lib/string.s7i" */ (((*o_105_stri)->mem[(idx_1=(uintType)((o_108_pos)-1), idxChk(idx_1>=(*o_105_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) >= ((charType) '0')) && /* line 578 "../lib/string.s7i" */ (((*o_105_stri)->mem[(idx_2=(uintType)((o_108_pos)-1), idxChk(idx_2>=(*o_105_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]) <= ((charType) '9'))) { /* line 579 "../lib/string.s7i" */ ++(o_108_pos); } } { /* line 581 "../lib/string.s7i" */ struct striStruct slice_1; /* line 581 "../lib/string.s7i" */ strCopy(&(o_106_digits), (strHeadSlice(*o_105_stri, (o_108_pos)-1, &slice_1), &slice_1)); } { /* line 582 "../lib/string.s7i" */ struct striStruct slice_1; /* line 582 "../lib/string.s7i" */ strCopy(&(*o_105_stri), (strTailSlice(*o_105_stri, o_108_pos, &slice_1), &slice_1)); } return o_106_digits; } /* line 1 "no_file" */ /* 81 */ /* line 586 "../lib/string.s7i" */ static striType/*t_15_string*/ o_109_gets (striType/*t_15_string*/ *const o_110_stri, const intType/*t_14_integer*/ o_111_leng) { /* line 588 "../lib/string.s7i" */ striType/*t_15_string*/ o_112_striRead; /* line 588 "../lib/string.s7i" */ o_112_striRead=strEmpty(); /* "" */ { /* line 590 "../lib/string.s7i" */ struct striStruct slice_1; /* line 590 "../lib/string.s7i" */ strCopy(&(o_112_striRead), (strHeadSlice(*o_110_stri, o_111_leng, &slice_1), &slice_1)); } { /* line 591 "../lib/string.s7i" */ struct striStruct slice_1; /* line 591 "../lib/string.s7i" */ strCopy(&(*o_110_stri), (strTailSlice(*o_110_stri, (o_111_leng)+1, &slice_1), &slice_1)); } return o_112_striRead; } /* line 1 "no_file" */ /* 82 */ /* line 599 "../lib/string.s7i" */ static striType/*t_15_string*/ o_113_parse (/* attr t_15 string*/ const const_striType/*t_15_string*/ o_114_stri) { /* line 0 "?" */ return (striType/*t_15_string*/)((/*ref_to_value*/ o_114_stri)); } /* line 1 "no_file" */ /* 83 */ /* line 429 "../lib/seed7_05.s7i" */ static charType/*t_18_char*/ o_69_parse (/* attr t_18 char*/ const const_striType/*t_15_string*/ o_70_stri) { /* line 431 "../lib/seed7_05.s7i" */ charType/*t_18_char*/ o_115_aChar=(charType) ' '; /* line 433 "../lib/seed7_05.s7i" */ if (((intType)((o_70_stri)->size)) == (1L)) { /* line 434 "../lib/seed7_05.s7i" */ o_115_aChar=(o_70_stri)->mem[(idxChk((o_70_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]; } else { /* line 436 "../lib/seed7_05.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/seed7_05.s7i", 436); } return o_115_aChar; } /* line 1 "no_file" */ /* 84 */ /* line 440 "../lib/seed7_05.s7i" */ static striType/*t_15_string*/ o_71_trimValue (/* attr t_18 char*/ const const_striType/*t_15_string*/ o_72_stri) { /* line 442 "../lib/seed7_05.s7i" */ striType/*t_15_string*/ o_116_trimmed; /* line 442 "../lib/seed7_05.s7i" */ o_116_trimmed=strEmpty(); /* "" */ { /* line 444 "../lib/seed7_05.s7i" */ striType old_stri=o_116_trimmed; /* line 444 "../lib/seed7_05.s7i" */ o_116_trimmed=strTrim(o_72_stri); /* line 444 "../lib/seed7_05.s7i" */ strDestr(old_stri); } /* line 445 "../lib/seed7_05.s7i" */ if ((((o_116_trimmed)->size==0 /* "" */)) && /* line 445 "../lib/seed7_05.s7i" */ (((o_72_stri)->size!=0 /* "" */))) { { /* line 446 "../lib/seed7_05.s7i" */ struct striStruct stri1_1; /* line 446 "../lib/seed7_05.s7i" */ strCopy(&(o_116_trimmed), ((o_72_stri)->size>=1?chrStrMacro((o_72_stri)->mem[0],stri1_1):&str[0] /* "" */)); } } return o_116_trimmed; } /* line 1 "no_file" */ /* 85 */ /* line 450 "../lib/seed7_05.s7i" */ static boolType/*t_13_boolean*/ o_45_parse (/* attr t_13 boolean*/ const const_striType/*t_15_string*/ o_46_stri) { /* line 452 "../lib/seed7_05.s7i" */ boolType/*t_13_boolean*/ o_117_aBoolean=o_25_FALSE; /* line 454 "../lib/seed7_05.s7i" */ if (((o_46_stri)->size==4&&memcmp((o_46_stri)->mem,(&str[1] /* "TRUE" */)->mem,4*sizeof(strElemType))==0)) { /* line 455 "../lib/seed7_05.s7i" */ o_117_aBoolean=o_26_TRUE; } else /* line 456 "../lib/seed7_05.s7i" */ if (((o_46_stri)->size==5&&memcmp((o_46_stri)->mem,(&str[2] /* "FALSE" */)->mem,5*sizeof(strElemType))==0)) { /* line 457 "../lib/seed7_05.s7i" */ o_117_aBoolean=o_25_FALSE; } else { /* line 459 "../lib/seed7_05.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/seed7_05.s7i", 459); } return o_117_aBoolean; } /* line 1 "no_file" */ /* 86 */ /* line 463 "../lib/seed7_05.s7i" */ static striType/*t_15_string*/ o_43_str (const boolType/*t_13_boolean*/ o_44_aBool) { /* line 465 "../lib/seed7_05.s7i" */ striType/*t_15_string*/ o_118_stri; /* line 465 "../lib/seed7_05.s7i" */ o_118_stri=strEmpty(); /* "" */ /* line 467 "../lib/seed7_05.s7i" */ if (o_44_aBool) { /* line 468 "../lib/seed7_05.s7i" */ strCopy(&(o_118_stri), &str[1] /* "TRUE" */); } else { /* line 470 "../lib/seed7_05.s7i" */ strCopy(&(o_118_stri), &str[2] /* "FALSE" */); } return o_118_stri; } /* line 1 "no_file" */ /* 87 */ /* line 476 "../lib/seed7_05.s7i" */ static striType/*t_15_string*/ o_73_literal (const charType/*t_18_char*/ o_74_ch) { /* line 478 "../lib/seed7_05.s7i" */ striType/*t_15_string*/ o_119_stri; /* line 478 "../lib/seed7_05.s7i" */ o_119_stri=strEmpty(); /* "" */ /* line 480 "../lib/seed7_05.s7i" */ if ((o_74_ch) == ((charType) '\'')) { /* line 481 "../lib/seed7_05.s7i" */ strCopy(&(o_119_stri), &str[3] /* "'\\''" */); } else /* line 482 "../lib/seed7_05.s7i" */ if ((o_74_ch) <= ((charType) 255)) { { /* line 483 "../lib/seed7_05.s7i" */ struct striStruct stri_2; /* line 483 "../lib/seed7_05.s7i" */ striType old_stri=o_119_stri; /* line 483 "../lib/seed7_05.s7i" */ o_119_stri=strLit(chrStrMacro(o_74_ch,stri_2)); /* line 483 "../lib/seed7_05.s7i" */ strDestr(old_stri); } { /* line 484 "../lib/seed7_05.s7i" */ const_striType tmp_2[3]; /* line 484 "../lib/seed7_05.s7i" */ struct striStruct slice_3; /* line 484 "../lib/seed7_05.s7i" */ intType start_4; /* line 484 "../lib/seed7_05.s7i" */ intType stop_5; /* line 484 "../lib/seed7_05.s7i" */ striType old_stri=o_119_stri; /* line 484 "../lib/seed7_05.s7i" */ o_119_stri=(tmp_2[0] = &str[4] /* "'" */, tmp_2[1] = (start_4=2L,stop_5=((intType)((o_119_stri)->size)) - 1L,start_4<1 ? start_4=1 : 0, slice_3.capacity=0, stop_5>=start_4 && (uintType)start_4<=(o_119_stri)->size ? (slice_3.mem = &(o_119_stri)->mem[start_4-1], (uintType)stop_5 > (o_119_stri)->size ? slice_3.size = (o_119_stri)->size-(memSizeType)start_4+1 : (slice_3.size = (memSizeType)stop_5-(memSizeType)start_4+1)) : (slice_3.mem = NULL,slice_3.size = 0), &slice_3), tmp_2[2] = &str[4] /* "'" */, strConcatN(tmp_2, 3)); /* line 484 "../lib/seed7_05.s7i" */ strDestr(old_stri); } } else { { /* line 486 "../lib/seed7_05.s7i" */ const_striType tmp_2[3]; /* line 486 "../lib/seed7_05.s7i" */ union { /* line 486 "../lib/seed7_05.s7i" */ struct striStruct striBuf; /* line 486 "../lib/seed7_05.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 486 "../lib/seed7_05.s7i" */ } buffer_3; /* line 486 "../lib/seed7_05.s7i" */ striType old_stri=o_119_stri; /* line 486 "../lib/seed7_05.s7i" */ o_119_stri=(tmp_2[0] = &str[5] /* "'\\" */, tmp_2[1] = intStrToBuffer((intType)((scharType)(o_74_ch)), &buffer_3.striBuf), tmp_2[2] = &str[6] /* "\\'" */, strConcatN(tmp_2, 3)); /* line 486 "../lib/seed7_05.s7i" */ strDestr(old_stri); } } return o_119_stri; } /* line 1 "no_file" */ /* 88 */ typedef genericType t_19/*t_19_reference*/; /* 89 */ /* 90 */ /* 91 */ /* 92 */ /* 93 */ /* objRefType/t_19_reference */ objRefType o_120_NIL=(objRefType)(NULL); /* 94 */ /* objRefType/t_19_reference */ objRefType o_121/*.*/=(objRefType)(NULL); /* 95 */ /* line 117 "../lib/reference.s7i" */ static typeType/*t_7_type*/ o_122_get_type (const objRefType/*t_19_reference*/ o_123_type_ref) { /* line 119 "../lib/reference.s7i" */ typeType/*t_7_type*/ o_124_aType=typ[0] /* void/t_1_void */; /* line 121 "../lib/reference.s7i" */ if (((o_123_type_ref) != (NULL)) && /* line 121 "../lib/reference.s7i" */ ((refType(o_123_type_ref)) == (typ[1] /* typeType/t_7_type */))) { /* line 122 "../lib/reference.s7i" */ o_124_aType=typValue(o_123_type_ref); } return o_124_aType; } /* line 1 "no_file" */ /* 96 */ typedef genericType t_20/*t_20_ref_list*/; /* 97 */ /* 98 */ /* 99 */ /* 100 */ /* 101 */ listType/*t_20_ref_list*/ o_125/*.*/=NULL; /* 102 */ listType/*t_20_ref_list*/ o_126/*.*/=NULL; /* 103 */ typeType o_127_CURR_STRUCT_PTR; /* 104 */ typeType o_128_FORWARD_PTR; /* 105 */ static typeType/*t_7_type*/ o_10_newtype (void); /* declare inline o_147_for*/ /* declare inline o_148_for*/ /* declare inline o_149_for*/ /* declare inline o_150_for*/ /* declare inline o_151_for*/ /* declare inline o_152_for*/ /* declare inline o_153_for*/ /* declare inline o_154_for*/ /* declare inline o_155_for*/ /* declare inline o_156_for*/ /* declare inline o_157_for*/ /* declare inline o_158_for*/ /* declare inline o_159_for*/ /* declare inline o_160_for*/ /* declare inline o_161_for*/ /* declare inline o_162_for*/ /* declare inline o_163_for*/ /* declare inline o_164_for*/ /* declare inline o_165_for*/ /* declare inline o_166_for*/ /* declare inline o_167_for*/ typedef genericType t_22/*t_22_STRUCT*/; /* 106 */ /* 107 */ /* 108 */ /* 109 */ /* 110 */ /* line 31 "../lib/struct.s7i" */ static structType/*t_22_STRUCT*/ create_22 (const_structType/*t_22_STRUCT*/ b) /* line 31 "../lib/struct.s7i" */ { /* line 31 "../lib/struct.s7i" */ structType/*t_22_STRUCT*/ a; /* line 31 "../lib/struct.s7i" */ a=(structType/*t_22_STRUCT*/)(malloc(sizeof(struct rtlStructStruct) - sizeof(rtlObjectType) + /* line 31 "../lib/struct.s7i" */ 0 * sizeof(rtlObjectType))); /* line 31 "../lib/struct.s7i" */ if (a == NULL) { /* line 31 "../lib/struct.s7i" */ raise_error(MEMORY_ERROR); /* line 31 "../lib/struct.s7i" */ } else { /* line 31 "../lib/struct.s7i" */ a->usage_count = 1; a->type_num = b->type_num; /* line 31 "../lib/struct.s7i" */ } /* line 31 "../lib/struct.s7i" */ return a; /* line 31 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 32 "../lib/struct.s7i" */ static void destr_22 (structType/*t_22_STRUCT*/ b) /* line 32 "../lib/struct.s7i" */ { /* line 32 "../lib/struct.s7i" */ if (b != NULL && b->usage_count != 0) { b->usage_count--; if (b->usage_count == 0) { /* line 32 "../lib/struct.s7i" */ free((void *)(b)); /* line 32 "../lib/struct.s7i" */ }} /* line 32 "../lib/struct.s7i" */ } /* line 1 "no_file" */ static typeType/*t_7_type*/ o_135_ptr (const typeType/*t_7_type*/ *const o_136_baseType); static typeType/*t_7_type*/ o_138_varptr (const typeType/*t_7_type*/ *const o_139_baseType); static typeType/*t_7_type*/ o_12_subtype (const typeType/*t_7_type*/ *const o_13_baseType); typedef genericType t_23/*t_23_TST_1*/; /* 111 */ /* 112 */ /* 113 */ /* 114 */ /* 115 */ /* ACTION ARR_GEN for type arrayType/t_23_TST_1 element is intType/t_14_integer */ /* 116 */ /* 117 */ typedef genericType t_24/*t_24_ARRAY_IDX_RANGE*/; /* 118 */ /* 119 */ typedef genericType t_25/*t_25_*ANONYM_TYPE**/; /* 120 */ /* 121 */ /* 122 */ /* 123 */ /* 124 */ /* objRefType/t_25_*ANONYM_TYPE* */ objRefType o_228/*.*/=(objRefType)(NULL); /* 125 */ /* objRefType/t_25_*ANONYM_TYPE* */ objRefType o_229/*.*/=(objRefType)(NULL); /* 126 */ typedef genericType t_26/*t_26_*ANONYM_TYPE**/; /* 127 */ /* 128 */ /* 129 */ /* 130 */ /* 131 */ /* objRefType/t_26_*ANONYM_TYPE* */ objRefType o_230/*.*/=(objRefType)(NULL); /* 132 */ /* objRefType/t_26_*ANONYM_TYPE* */ objRefType o_231/*.*/=(objRefType)(NULL); /* 133 */ /* 134 */ /* 135 */ /* 136 */ /* struct element intType/t_14_integer ** structType/t_24_ARRAY_IDX_RANGE->o_232_minIdx = 0 */ /* 137 */ /* struct element intType/t_14_integer ** structType/t_24_ARRAY_IDX_RANGE->o_232_minIdx = 0 */ /* 138 */ /* ref struct element intType/t_14_integer ** objRefType/t_25_*ANONYM_TYPE*->o_232_minIdx = 0 */ /* 139 */ /* ref struct element intType/t_14_integer ** objRefType/t_26_*ANONYM_TYPE*->o_232_minIdx = 0 */ /* 140 */ /* struct element intType/t_14_integer ** structType/t_24_ARRAY_IDX_RANGE->o_233_maxIdx = 1 */ /* 141 */ /* struct element intType/t_14_integer ** structType/t_24_ARRAY_IDX_RANGE->o_233_maxIdx = 1 */ /* 142 */ /* ref struct element intType/t_14_integer ** objRefType/t_25_*ANONYM_TYPE*->o_233_maxIdx = 1 */ /* 143 */ /* ref struct element intType/t_14_integer ** objRefType/t_26_*ANONYM_TYPE*->o_233_maxIdx = 1 */ /* 144 */ structType/*t_24_ARRAY_IDX_RANGE*/ o_234/*.*/; /* 145 */ /* line 58 "../lib/struct.s7i" */ static structType/*t_24_ARRAY_IDX_RANGE*/ create_24 (const_structType/*t_24_ARRAY_IDX_RANGE*/ b) /* line 58 "../lib/struct.s7i" */ { /* line 58 "../lib/struct.s7i" */ structType/*t_24_ARRAY_IDX_RANGE*/ a; /* line 58 "../lib/struct.s7i" */ a=(structType/*t_24_ARRAY_IDX_RANGE*/)(malloc(sizeof(struct rtlStructStruct) - sizeof(rtlObjectType) + /* line 58 "../lib/struct.s7i" */ 2 * sizeof(rtlObjectType))); /* line 58 "../lib/struct.s7i" */ if (a == NULL) { /* line 58 "../lib/struct.s7i" */ raise_error(MEMORY_ERROR); /* line 58 "../lib/struct.s7i" */ } else { /* line 58 "../lib/struct.s7i" */ a->usage_count = 1; a->type_num = b->type_num; /* line 58 "../lib/struct.s7i" */ a->stru[0].value.intValue=b->stru[0].value.intValue; /* line 58 "../lib/struct.s7i" */ a->stru[1].value.intValue=b->stru[1].value.intValue; /* line 58 "../lib/struct.s7i" */ } /* line 58 "../lib/struct.s7i" */ return a; /* line 58 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 59 "../lib/struct.s7i" */ static void destr_24 (structType/*t_24_ARRAY_IDX_RANGE*/ b) /* line 59 "../lib/struct.s7i" */ { /* line 59 "../lib/struct.s7i" */ if (b != NULL && b->usage_count != 0) { b->usage_count--; if (b->usage_count == 0) { /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ free((void *)(b)); /* line 59 "../lib/struct.s7i" */ }} /* line 59 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 34 "../lib/array.s7i" */ static structType/*t_24_ARRAY_IDX_RANGE*/ o_235/*[*/ (const intType/*t_14_integer*/ o_236_minIdx, const intType/*t_14_integer*/ o_237_maxIdx) { /* line 36 "../lib/array.s7i" */ structType/*t_24_ARRAY_IDX_RANGE*/ o_238_indexRange; /* line 36 "../lib/array.s7i" */ o_238_indexRange=create_24(sct[3]); /* line 38 "../lib/array.s7i" */ ((structType)(o_238_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/=o_236_minIdx; /* line 39 "../lib/array.s7i" */ ((structType)(o_238_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/=o_237_maxIdx; return o_238_indexRange; } /* line 1 "no_file" */ /* 146 */ typedef genericType t_27/*t_27_TEST_1*/; /* 147 */ /* 148 */ /* 149 */ /* 150 */ /* 151 */ /* 152 */ /* 153 */ /* ACTION ARR_IDX for type arrayType/t_27_TEST_1 element is intType/t_14_integer */ /* 154 */ /* ACTION ARR_IDX for type arrayType/t_27_TEST_1 element is intType/t_14_integer */ /* 155 */ /* line 163 "../lib/array.s7i" */ static arrayType times_27 (intType n, const intType/*t_14_integer*/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.intValue=b; /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 156 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_27_TEST_1*/ create_27 (const_arrayType/*t_27_TEST_1*/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_27_TEST_1*/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_27_TEST_1*/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.intValue=b->arr[i].value.intValue; /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_27 (const_arrayType/*t_27_TEST_1*/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_23 (const_arrayType/*t_23_TST_1*/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_23_TST_1*/ create_23 (const_arrayType/*t_23_TST_1*/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_23_TST_1*/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_23_TST_1*/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.intValue=b->arr[i].value.intValue; /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_27_TEST_1*/ o_243_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_244_indexRange, const intType/*t_14_integer*/ o_245_element) { /* line 186 "../lib/array.s7i" */ arrayType/*t_27_TEST_1*/ o_246_anArray; /* line 186 "../lib/array.s7i" */ o_246_anArray=create_27(arr[4]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_246_anArray; /* line 188 "../lib/array.s7i" */ o_246_anArray=times_27(((((structType)(o_244_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_244_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_245_element); /* line 188 "../lib/array.s7i" */ destr_27(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_246_anArray; /* line 189 "../lib/array.s7i" */ o_246_anArray=arrArrlit2(((structType)(o_244_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_23(/*arrConv()*/o_246_anArray)); /* line 189 "../lib/array.s7i" */ destr_27(old_array); } return o_246_anArray; } /* line 1 "no_file" */ /* 157 */ /* declare inline o_247_for*/ /* declare inline o_248_for*/ /* declare inline o_249_for*/ /* declare inline o_250_for*/ /* declare inline o_251_for*/ /* declare inline o_252_for*/ /* declare inline o_253_for*/ /* declare inline o_254_for*/ /* declare inline o_255_for*/ /* line 329 "../lib/array.s7i" */ static intType/*t_14_integer*/ o_256_rand (const const_arrayType/*t_27_TEST_1*/ o_257_arr) { /* line 330 "../lib/array.s7i" */ intType/*t_14_integer*/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(intType/*t_14_integer*/)(((o_257_arr)->arr[idx_1=intRand((o_257_arr)->min_position, (o_257_arr)->max_position),(idxChk(idx_1 < (o_257_arr)->min_position || idx_1 > (o_257_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_257_arr)->min_position)].value.intValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 158 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_258_insert (arrayType/*t_27_TEST_1*/ *const o_259_arr, const intType/*t_14_integer*/ o_260_index, const intType/*t_14_integer*/ o_261_element) { /* line 334 "../lib/array.s7i" */ if (((o_260_index) >= ((*o_259_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_260_index) <= (((*o_259_arr)->max_position)+1))) { { { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_259_arr; /* line 335 "../lib/array.s7i" */ *o_259_arr=arrCat(arrCat(arrHead(*o_259_arr, (o_260_index)-1), arrBaselit((genericType)(o_261_element))), arrTail(*o_259_arr, o_260_index)); /* line 335 "../lib/array.s7i" */ destr_27(old_array); } } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } } /* line 1 "no_file" */ /* 159 */ /* line 344 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_262/*=*/ (const const_arrayType/*t_27_TEST_1*/ o_263_arr1, const const_arrayType/*t_27_TEST_1*/ o_264_arr2) { /* line 346 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_265_isEqual=o_25_FALSE; /* line 348 "../lib/array.s7i" */ intType/*t_14_integer*/ o_266_number=1; /* line 350 "../lib/array.s7i" */ if ((((o_263_arr1)->min_position) == ((o_264_arr2)->min_position)) && /* line 350 "../lib/array.s7i" */ (((o_263_arr1)->max_position) == ((o_264_arr2)->max_position))) { /* line 351 "../lib/array.s7i" */ o_265_isEqual=o_26_TRUE; /* line 352 "../lib/array.s7i" */ o_266_number=(o_263_arr1)->min_position; /* line 353 "../lib/array.s7i" */ while (((o_266_number) <= ((o_263_arr1)->max_position)) && /* line 353 "../lib/array.s7i" */ (o_265_isEqual)) { /* line 354 "../lib/array.s7i" */ o_265_isEqual=((o_263_arr1)->arr[(idxChk((o_266_number) < (o_263_arr1)->min_position || (o_266_number) > (o_263_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_266_number)-(o_263_arr1)->min_position)].value.intValue) == ((o_264_arr2)->arr[(idxChk((o_266_number) < (o_264_arr2)->min_position || (o_266_number) > (o_264_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_266_number)-(o_264_arr2)->min_position)].value.intValue); /* line 355 "../lib/array.s7i" */ ++(o_266_number); } } return o_265_isEqual; } /* line 1 "no_file" */ /* 160 */ /* line 360 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_267/*<>*/ (const const_arrayType/*t_27_TEST_1*/ o_268_arr1, const const_arrayType/*t_27_TEST_1*/ o_269_arr2) { /* line 362 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_270_isNotEqual=o_26_TRUE; /* line 364 "../lib/array.s7i" */ intType/*t_14_integer*/ o_271_number=1; /* line 366 "../lib/array.s7i" */ if ((((o_268_arr1)->min_position) == ((o_269_arr2)->min_position)) && /* line 366 "../lib/array.s7i" */ (((o_268_arr1)->max_position) == ((o_269_arr2)->max_position))) { /* line 367 "../lib/array.s7i" */ o_270_isNotEqual=o_25_FALSE; /* line 368 "../lib/array.s7i" */ o_271_number=(o_268_arr1)->min_position; /* line 369 "../lib/array.s7i" */ while (((o_271_number) <= ((o_268_arr1)->max_position)) && /* line 369 "../lib/array.s7i" */ (!(o_270_isNotEqual))) { /* line 370 "../lib/array.s7i" */ o_270_isNotEqual=((o_268_arr1)->arr[(idxChk((o_271_number) < (o_268_arr1)->min_position || (o_271_number) > (o_268_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_271_number)-(o_268_arr1)->min_position)].value.intValue) != ((o_269_arr2)->arr[(idxChk((o_271_number) < (o_269_arr2)->min_position || (o_271_number) > (o_269_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_271_number)-(o_269_arr2)->min_position)].value.intValue); /* line 371 "../lib/array.s7i" */ ++(o_271_number); } } return o_270_isNotEqual; } /* line 1 "no_file" */ /* 161 */ /* line 381 "../lib/array.s7i" */ static void/*t_1_void*/ o_272_insert (arrayType/*t_27_TEST_1*/ *const o_273_arr, const intType/*t_14_integer*/ o_274_element) { /* line 383 "../lib/array.s7i" */ intType/*t_14_integer*/ o_275_number=1; /* line 385 "../lib/array.s7i" */ o_275_number=(*o_273_arr)->min_position; /* line 386 "../lib/array.s7i" */ while (((o_275_number) <= ((*o_273_arr)->max_position)) && /* line 386 "../lib/array.s7i" */ (((*o_273_arr)->arr[(idxChk((o_275_number) < (*o_273_arr)->min_position || (o_275_number) > (*o_273_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_275_number)-(*o_273_arr)->min_position)].value.intValue) < (o_274_element))) { /* line 387 "../lib/array.s7i" */ ++(o_275_number); } /* line 389 "../lib/array.s7i" */ if ((o_275_number) > ((*o_273_arr)->max_position)) { { { /* line 390 "../lib/array.s7i" */ arrayType old_array=*o_273_arr; /* line 390 "../lib/array.s7i" */ *o_273_arr=arrCat(create_27(*o_273_arr), arrBaselit((genericType)(o_274_element))); /* line 390 "../lib/array.s7i" */ destr_27(old_array); } } } else /* line 391 "../lib/array.s7i" */ if (((*o_273_arr)->arr[(idxChk((o_275_number) < (*o_273_arr)->min_position || (o_275_number) > (*o_273_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_275_number)-(*o_273_arr)->min_position)].value.intValue) > (o_274_element)) { { { /* line 392 "../lib/array.s7i" */ arrayType old_array=*o_273_arr; /* line 392 "../lib/array.s7i" */ *o_273_arr=arrCat(arrCat(arrHead(*o_273_arr, (o_275_number)-1), arrBaselit((genericType)(o_274_element))), arrTail(*o_273_arr, o_275_number)); /* line 392 "../lib/array.s7i" */ destr_27(old_array); } } } } /* line 1 "no_file" */ /* 162 */ /* line 400 "../lib/array.s7i" */ static intType/*t_14_integer*/ o_276_compare (const const_arrayType/*t_27_TEST_1*/ o_277_arr1, const const_arrayType/*t_27_TEST_1*/ o_278_arr2) { /* line 402 "../lib/array.s7i" */ intType/*t_14_integer*/ o_279_signumValue=0; /* line 404 "../lib/array.s7i" */ intType/*t_14_integer*/ o_280_idx1=0; /* line 405 "../lib/array.s7i" */ intType/*t_14_integer*/ o_281_idx2=0; /* line 407 "../lib/array.s7i" */ o_280_idx1=(o_277_arr1)->min_position; /* line 408 "../lib/array.s7i" */ o_281_idx2=(o_278_arr2)->min_position; /* line 409 "../lib/array.s7i" */ while (((o_280_idx1) <= ((o_277_arr1)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_281_idx2) <= ((o_278_arr2)->max_position)) && /* line 409 "../lib/array.s7i" */ ((intCmp((o_277_arr1)->arr[(idxChk((o_280_idx1) < (o_277_arr1)->min_position || (o_280_idx1) > (o_277_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_280_idx1)-(o_277_arr1)->min_position)].value.intValue, (o_278_arr2)->arr[(idxChk((o_281_idx2) < (o_278_arr2)->min_position || (o_281_idx2) > (o_278_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_281_idx2)-(o_278_arr2)->min_position)].value.intValue)) == (0L))) { /* line 410 "../lib/array.s7i" */ ++(o_280_idx1); /* line 411 "../lib/array.s7i" */ ++(o_281_idx2); } /* line 413 "../lib/array.s7i" */ if (((o_280_idx1) <= ((o_277_arr1)->max_position)) && /* line 413 "../lib/array.s7i" */ ((o_281_idx2) <= ((o_278_arr2)->max_position))) { /* line 414 "../lib/array.s7i" */ o_279_signumValue=intCmp((o_277_arr1)->arr[(idxChk((o_280_idx1) < (o_277_arr1)->min_position || (o_280_idx1) > (o_277_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_280_idx1)-(o_277_arr1)->min_position)].value.intValue, (o_278_arr2)->arr[(idxChk((o_281_idx2) < (o_278_arr2)->min_position || (o_281_idx2) > (o_278_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_281_idx2)-(o_278_arr2)->min_position)].value.intValue); } else { /* line 416 "../lib/array.s7i" */ o_279_signumValue=intCmp(((o_277_arr1)->max_position - (o_277_arr1)->min_position + 1), ((o_278_arr2)->max_position - (o_278_arr2)->min_position + 1)); } return o_279_signumValue; } /* line 1 "no_file" */ /* 163 */ /* line 420 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_282/*<*/ (const const_arrayType/*t_27_TEST_1*/ o_283_arr1, const const_arrayType/*t_27_TEST_1*/ o_284_arr2) { /* line 421 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_276_compare(o_283_arr1, o_284_arr2)) < (0L))); } /* line 1 "no_file" */ /* 164 */ /* line 423 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_285/*>*/ (const const_arrayType/*t_27_TEST_1*/ o_286_arr1, const const_arrayType/*t_27_TEST_1*/ o_287_arr2) { /* line 424 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_276_compare(o_286_arr1, o_287_arr2)) > (0L))); } /* line 1 "no_file" */ /* 165 */ /* line 426 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_288/*<=*/ (const const_arrayType/*t_27_TEST_1*/ o_289_arr1, const const_arrayType/*t_27_TEST_1*/ o_290_arr2) { /* line 427 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_276_compare(o_289_arr1, o_290_arr2)) <= (0L))); } /* line 1 "no_file" */ /* 166 */ /* line 429 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_291/*>=*/ (const const_arrayType/*t_27_TEST_1*/ o_292_arr1, const const_arrayType/*t_27_TEST_1*/ o_293_arr2) { /* line 430 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_276_compare(o_292_arr1, o_293_arr2)) >= (0L))); } /* line 1 "no_file" */ /* 167 */ /* objRefType/t_19_reference */ intfunctype o_294/*.*/=(intfunctype)(&intCmpGeneric); /* 168 */ /* line 436 "../lib/array.s7i" */ static arrayType/*t_27_TEST_1*/ o_295_sort (const const_arrayType/*t_27_TEST_1*/ o_296_arr_obj) { /* line 437 "../lib/array.s7i" */ return (arrayType/*t_27_TEST_1*/)((arrSort(create_27(o_296_arr_obj), (compareType)(o_294/*.*/)))); } /* line 1 "no_file" */ /* 169 */ /* 170 */ typedef genericType t_28/*t_28_TEST_3*/; /* 171 */ /* 172 */ typedef genericType t_29/*t_29_*ANONYM_TYPE**/; /* 173 */ /* 174 */ /* 175 */ /* 176 */ /* ACTION ARR_GEN for type arrayType/t_29_*ANONYM_TYPE* element is striType/t_15_string */ /* 177 */ /* 178 */ /* 179 */ /* 180 */ /* 181 */ /* 182 */ /* ACTION ARR_IDX for type arrayType/t_28_TEST_3 element is striType/t_15_string */ /* 183 */ /* ACTION ARR_IDX for type arrayType/t_28_TEST_3 element is striType/t_15_string */ /* 184 */ /* line 163 "../lib/array.s7i" */ static arrayType times_28 (intType n, const const_striType/*t_15_string*/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.striValue=strCreate(b); /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 185 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_28_TEST_3*/ create_28 (const_arrayType/*t_28_TEST_3*/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_28_TEST_3*/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_28_TEST_3*/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.striValue=strCreate(b->arr[i].value.striValue); /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_28 (const_arrayType/*t_28_TEST_3*/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ strDestr(b->arr[i].value.striValue); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_29 (const_arrayType/*t_29_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ strDestr(b->arr[i].value.striValue); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_29_*ANONYM_TYPE**/ create_29 (const_arrayType/*t_29_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_29_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_29_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.striValue=strCreate(b->arr[i].value.striValue); /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_28_TEST_3*/ o_297_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_298_indexRange, const const_striType/*t_15_string*/ value_o_299_element) { /* line 183 "../lib/array.s7i" */ const_striType/*t_15_string*/ o_299_element; /* line 186 "../lib/array.s7i" */ arrayType/*t_28_TEST_3*/ o_300_anArray; /* line 183 "../lib/array.s7i" */ o_299_element=strCreate(value_o_299_element); /* line 186 "../lib/array.s7i" */ o_300_anArray=create_28(arr[5]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_300_anArray; /* line 188 "../lib/array.s7i" */ o_300_anArray=times_28(((((structType)(o_298_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_298_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_299_element); /* line 188 "../lib/array.s7i" */ destr_28(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_300_anArray; /* line 189 "../lib/array.s7i" */ o_300_anArray=arrArrlit2(((structType)(o_298_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_29(/*arrConv()*/o_300_anArray)); /* line 189 "../lib/array.s7i" */ destr_28(old_array); } /* line 183 "../lib/array.s7i" */ strDestr(o_299_element); return o_300_anArray; } /* line 1 "no_file" */ /* 186 */ /* declare inline o_301_for*/ /* declare inline o_302_for*/ /* declare inline o_303_for*/ /* declare inline o_304_for*/ /* declare inline o_305_for*/ /* declare inline o_306_for*/ /* declare inline o_307_for*/ /* declare inline o_308_for*/ /* declare inline o_309_for*/ /* line 329 "../lib/array.s7i" */ static striType/*t_15_string*/ o_310_rand (const const_arrayType/*t_28_TEST_3*/ o_311_arr) { /* line 330 "../lib/array.s7i" */ striType/*t_15_string*/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(striType/*t_15_string*/)((/*ref_to_value*/ (o_311_arr)->arr[idx_1=intRand((o_311_arr)->min_position, (o_311_arr)->max_position),(idxChk(idx_1 < (o_311_arr)->min_position || idx_1 > (o_311_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_311_arr)->min_position)].value.striValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 187 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_312_insert (arrayType/*t_28_TEST_3*/ *const o_313_arr, const intType/*t_14_integer*/ o_314_index, const const_striType/*t_15_string*/ value_o_315_element) { /* line 332 "../lib/array.s7i" */ const_striType/*t_15_string*/ o_315_element; /* line 332 "../lib/array.s7i" */ o_315_element=strCreate(value_o_315_element); /* line 334 "../lib/array.s7i" */ if (((o_314_index) >= ((*o_313_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_314_index) <= (((*o_313_arr)->max_position)+1))) { { /* line 335 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 335 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_313_arr; /* line 335 "../lib/array.s7i" */ *o_313_arr=arrCat(arrCat((tmp_4=arrHead(*o_313_arr, (o_314_index)-1), create_28(tmp_4)), arrBaselit((genericType)(strCreate(o_315_element)))), (tmp_7=arrTail(*o_313_arr, o_314_index), create_28(tmp_7))); /* line 335 "../lib/array.s7i" */ destr_28(old_array); } /* line 335 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 335 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } /* line 332 "../lib/array.s7i" */ strDestr(o_315_element); } /* line 1 "no_file" */ /* 188 */ /* line 344 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_316/*=*/ (const const_arrayType/*t_28_TEST_3*/ o_317_arr1, const const_arrayType/*t_28_TEST_3*/ o_318_arr2) { /* line 346 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_319_isEqual=o_25_FALSE; /* line 348 "../lib/array.s7i" */ intType/*t_14_integer*/ o_320_number=1; /* line 350 "../lib/array.s7i" */ if ((((o_317_arr1)->min_position) == ((o_318_arr2)->min_position)) && /* line 350 "../lib/array.s7i" */ (((o_317_arr1)->max_position) == ((o_318_arr2)->max_position))) { /* line 351 "../lib/array.s7i" */ o_319_isEqual=o_26_TRUE; /* line 352 "../lib/array.s7i" */ o_320_number=(o_317_arr1)->min_position; /* line 353 "../lib/array.s7i" */ while (((o_320_number) <= ((o_317_arr1)->max_position)) && /* line 353 "../lib/array.s7i" */ (o_319_isEqual)) { { /* line 354 "../lib/array.s7i" */ const_striType tmp_a_1; /* line 354 "../lib/array.s7i" */ const_striType tmp_b_2; /* line 354 "../lib/array.s7i" */ o_319_isEqual=(tmp_a_1=(o_317_arr1)->arr[(idxChk((o_320_number) < (o_317_arr1)->min_position || (o_320_number) > (o_317_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_320_number)-(o_317_arr1)->min_position)].value.striValue,tmp_b_2=(o_318_arr2)->arr[(idxChk((o_320_number) < (o_318_arr2)->min_position || (o_320_number) > (o_318_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_320_number)-(o_318_arr2)->min_position)].value.striValue,tmp_a_1->size==tmp_b_2->size&&memcmp(tmp_a_1->mem,tmp_b_2->mem,tmp_a_1->size*sizeof(strElemType))==0); } /* line 355 "../lib/array.s7i" */ ++(o_320_number); } } return o_319_isEqual; } /* line 1 "no_file" */ /* 189 */ /* line 360 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_321/*<>*/ (const const_arrayType/*t_28_TEST_3*/ o_322_arr1, const const_arrayType/*t_28_TEST_3*/ o_323_arr2) { /* line 362 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_324_isNotEqual=o_26_TRUE; /* line 364 "../lib/array.s7i" */ intType/*t_14_integer*/ o_325_number=1; /* line 366 "../lib/array.s7i" */ if ((((o_322_arr1)->min_position) == ((o_323_arr2)->min_position)) && /* line 366 "../lib/array.s7i" */ (((o_322_arr1)->max_position) == ((o_323_arr2)->max_position))) { /* line 367 "../lib/array.s7i" */ o_324_isNotEqual=o_25_FALSE; /* line 368 "../lib/array.s7i" */ o_325_number=(o_322_arr1)->min_position; /* line 369 "../lib/array.s7i" */ while (((o_325_number) <= ((o_322_arr1)->max_position)) && /* line 369 "../lib/array.s7i" */ (!(o_324_isNotEqual))) { { /* line 370 "../lib/array.s7i" */ const_striType tmp_a_1; /* line 370 "../lib/array.s7i" */ const_striType tmp_b_2; /* line 370 "../lib/array.s7i" */ o_324_isNotEqual=(tmp_a_1=(o_322_arr1)->arr[(idxChk((o_325_number) < (o_322_arr1)->min_position || (o_325_number) > (o_322_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_325_number)-(o_322_arr1)->min_position)].value.striValue,tmp_b_2=(o_323_arr2)->arr[(idxChk((o_325_number) < (o_323_arr2)->min_position || (o_325_number) > (o_323_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_325_number)-(o_323_arr2)->min_position)].value.striValue,tmp_a_1->size!=tmp_b_2->size||memcmp(tmp_a_1->mem,tmp_b_2->mem,tmp_a_1->size*sizeof(strElemType))!=0); } /* line 371 "../lib/array.s7i" */ ++(o_325_number); } } return o_324_isNotEqual; } /* line 1 "no_file" */ /* 190 */ /* line 381 "../lib/array.s7i" */ static void/*t_1_void*/ o_326_insert (arrayType/*t_28_TEST_3*/ *const o_327_arr, const const_striType/*t_15_string*/ value_o_328_element) { /* line 381 "../lib/array.s7i" */ const_striType/*t_15_string*/ o_328_element; /* line 383 "../lib/array.s7i" */ intType/*t_14_integer*/ o_329_number=1; /* line 381 "../lib/array.s7i" */ o_328_element=strCreate(value_o_328_element); /* line 385 "../lib/array.s7i" */ o_329_number=(*o_327_arr)->min_position; /* line 386 "../lib/array.s7i" */ while (((o_329_number) <= ((*o_327_arr)->max_position)) && /* line 386 "../lib/array.s7i" */ (strLt((*o_327_arr)->arr[(idxChk((o_329_number) < (*o_327_arr)->min_position || (o_329_number) > (*o_327_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_329_number)-(*o_327_arr)->min_position)].value.striValue, o_328_element))) { /* line 387 "../lib/array.s7i" */ ++(o_329_number); } /* line 389 "../lib/array.s7i" */ if ((o_329_number) > ((*o_327_arr)->max_position)) { { { /* line 390 "../lib/array.s7i" */ arrayType old_array=*o_327_arr; /* line 390 "../lib/array.s7i" */ *o_327_arr=arrCat(create_28(*o_327_arr), arrBaselit((genericType)(strCreate(o_328_element)))); /* line 390 "../lib/array.s7i" */ destr_28(old_array); } } } else /* line 391 "../lib/array.s7i" */ if (strGt((*o_327_arr)->arr[(idxChk((o_329_number) < (*o_327_arr)->min_position || (o_329_number) > (*o_327_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_329_number)-(*o_327_arr)->min_position)].value.striValue, o_328_element)) { { /* line 392 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 392 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 392 "../lib/array.s7i" */ arrayType old_array=*o_327_arr; /* line 392 "../lib/array.s7i" */ *o_327_arr=arrCat(arrCat((tmp_4=arrHead(*o_327_arr, (o_329_number)-1), create_28(tmp_4)), arrBaselit((genericType)(strCreate(o_328_element)))), (tmp_7=arrTail(*o_327_arr, o_329_number), create_28(tmp_7))); /* line 392 "../lib/array.s7i" */ destr_28(old_array); } /* line 392 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 392 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } /* line 381 "../lib/array.s7i" */ strDestr(o_328_element); } /* line 1 "no_file" */ /* 191 */ /* line 400 "../lib/array.s7i" */ static intType/*t_14_integer*/ o_330_compare (const const_arrayType/*t_28_TEST_3*/ o_331_arr1, const const_arrayType/*t_28_TEST_3*/ o_332_arr2) { /* line 402 "../lib/array.s7i" */ intType/*t_14_integer*/ o_333_signumValue=0; /* line 404 "../lib/array.s7i" */ intType/*t_14_integer*/ o_334_idx1=0; /* line 405 "../lib/array.s7i" */ intType/*t_14_integer*/ o_335_idx2=0; /* line 407 "../lib/array.s7i" */ o_334_idx1=(o_331_arr1)->min_position; /* line 408 "../lib/array.s7i" */ o_335_idx2=(o_332_arr2)->min_position; /* line 409 "../lib/array.s7i" */ while (((o_334_idx1) <= ((o_331_arr1)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_335_idx2) <= ((o_332_arr2)->max_position)) && /* line 409 "../lib/array.s7i" */ ((strCompare((o_331_arr1)->arr[(idxChk((o_334_idx1) < (o_331_arr1)->min_position || (o_334_idx1) > (o_331_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_334_idx1)-(o_331_arr1)->min_position)].value.striValue, (o_332_arr2)->arr[(idxChk((o_335_idx2) < (o_332_arr2)->min_position || (o_335_idx2) > (o_332_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_335_idx2)-(o_332_arr2)->min_position)].value.striValue)) == (0L))) { /* line 410 "../lib/array.s7i" */ ++(o_334_idx1); /* line 411 "../lib/array.s7i" */ ++(o_335_idx2); } /* line 413 "../lib/array.s7i" */ if (((o_334_idx1) <= ((o_331_arr1)->max_position)) && /* line 413 "../lib/array.s7i" */ ((o_335_idx2) <= ((o_332_arr2)->max_position))) { /* line 414 "../lib/array.s7i" */ o_333_signumValue=strCompare((o_331_arr1)->arr[(idxChk((o_334_idx1) < (o_331_arr1)->min_position || (o_334_idx1) > (o_331_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_334_idx1)-(o_331_arr1)->min_position)].value.striValue, (o_332_arr2)->arr[(idxChk((o_335_idx2) < (o_332_arr2)->min_position || (o_335_idx2) > (o_332_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_335_idx2)-(o_332_arr2)->min_position)].value.striValue); } else { /* line 416 "../lib/array.s7i" */ o_333_signumValue=intCmp(((o_331_arr1)->max_position - (o_331_arr1)->min_position + 1), ((o_332_arr2)->max_position - (o_332_arr2)->min_position + 1)); } return o_333_signumValue; } /* line 1 "no_file" */ /* 192 */ /* line 420 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_336/*<*/ (const const_arrayType/*t_28_TEST_3*/ o_337_arr1, const const_arrayType/*t_28_TEST_3*/ o_338_arr2) { /* line 421 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_330_compare(o_337_arr1, o_338_arr2)) < (0L))); } /* line 1 "no_file" */ /* 193 */ /* line 423 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_339/*>*/ (const const_arrayType/*t_28_TEST_3*/ o_340_arr1, const const_arrayType/*t_28_TEST_3*/ o_341_arr2) { /* line 424 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_330_compare(o_340_arr1, o_341_arr2)) > (0L))); } /* line 1 "no_file" */ /* 194 */ /* line 426 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_342/*<=*/ (const const_arrayType/*t_28_TEST_3*/ o_343_arr1, const const_arrayType/*t_28_TEST_3*/ o_344_arr2) { /* line 427 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_330_compare(o_343_arr1, o_344_arr2)) <= (0L))); } /* line 1 "no_file" */ /* 195 */ /* line 429 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_345/*>=*/ (const const_arrayType/*t_28_TEST_3*/ o_346_arr1, const const_arrayType/*t_28_TEST_3*/ o_347_arr2) { /* line 430 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_330_compare(o_346_arr1, o_347_arr2)) >= (0L))); } /* line 1 "no_file" */ /* 196 */ /* objRefType/t_19_reference */ intfunctype o_348/*.*/=(intfunctype)(&strCmpGeneric); /* 197 */ /* line 436 "../lib/array.s7i" */ static arrayType/*t_28_TEST_3*/ o_349_sort (const const_arrayType/*t_28_TEST_3*/ o_350_arr_obj) { /* line 437 "../lib/array.s7i" */ return (arrayType/*t_28_TEST_3*/)((arrSort(create_28(o_350_arr_obj), (compareType)(o_348/*.*/)))); } /* line 1 "no_file" */ /* 198 */ /* line 678 "../lib/seed7_05.s7i" */ static striType/*t_15_string*/ o_359_join (const const_arrayType/*t_28_TEST_3*/ o_360_striArray, const charType/*t_18_char*/ o_361_delimiter) { /* line 680 "../lib/seed7_05.s7i" */ striType/*t_15_string*/ o_362_joined; /* line 682 "../lib/seed7_05.s7i" */ intType/*t_14_integer*/ o_363_pos=0; /* line 680 "../lib/seed7_05.s7i" */ o_362_joined=strEmpty(); /* "" */ { /* line 684 "../lib/seed7_05.s7i" */ intType idx_1; /* line 684 "../lib/seed7_05.s7i" */ strCopy(&(o_362_joined), (o_360_striArray)->arr[idx_1=(o_360_striArray)->min_position,(idxChk(idx_1 < (o_360_striArray)->min_position || idx_1 > (o_360_striArray)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_360_striArray)->min_position)].value.striValue); } { /* line 685 "../lib/seed7_05.s7i" */ intType tmp_e_1=(o_360_striArray)->max_position; /* line 685 "../lib/seed7_05.s7i" */ for (o_363_pos=((o_360_striArray)->min_position)+1; o_363_pos<=tmp_e_1; (o_363_pos)++) { /* line 686 "../lib/seed7_05.s7i" */ if (((o_362_joined))->size == ((o_362_joined))->capacity) { /* line 686 "../lib/seed7_05.s7i" */ strPush(&((o_362_joined)), (o_361_delimiter)); /* line 686 "../lib/seed7_05.s7i" */ } else { /* line 686 "../lib/seed7_05.s7i" */ ((o_362_joined))->mem[((o_362_joined))->size]=(o_361_delimiter); /* line 686 "../lib/seed7_05.s7i" */ ((o_362_joined))->size++; /* line 686 "../lib/seed7_05.s7i" */ } /* line 687 "../lib/seed7_05.s7i" */ strAppend(&(o_362_joined), (o_360_striArray)->arr[(idxChk((o_363_pos) < (o_360_striArray)->min_position || (o_363_pos) > (o_360_striArray)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_363_pos)-(o_360_striArray)->min_position)].value.striValue); } } return o_362_joined; } /* line 1 "no_file" */ /* 199 */ /* line 691 "../lib/seed7_05.s7i" */ static striType/*t_15_string*/ o_364_join (const const_arrayType/*t_28_TEST_3*/ o_365_striArray, const const_striType/*t_15_string*/ o_366_delimiter) { /* line 693 "../lib/seed7_05.s7i" */ striType/*t_15_string*/ o_367_joined; /* line 695 "../lib/seed7_05.s7i" */ intType/*t_14_integer*/ o_368_pos=0; /* line 693 "../lib/seed7_05.s7i" */ o_367_joined=strEmpty(); /* "" */ { /* line 697 "../lib/seed7_05.s7i" */ intType idx_1; /* line 697 "../lib/seed7_05.s7i" */ strCopy(&(o_367_joined), (o_365_striArray)->arr[idx_1=(o_365_striArray)->min_position,(idxChk(idx_1 < (o_365_striArray)->min_position || idx_1 > (o_365_striArray)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_365_striArray)->min_position)].value.striValue); } { /* line 698 "../lib/seed7_05.s7i" */ intType tmp_e_1=(o_365_striArray)->max_position; /* line 698 "../lib/seed7_05.s7i" */ for (o_368_pos=((o_365_striArray)->min_position)+1; o_368_pos<=tmp_e_1; (o_368_pos)++) { /* line 699 "../lib/seed7_05.s7i" */ strAppend(&(o_367_joined), o_366_delimiter); /* line 700 "../lib/seed7_05.s7i" */ strAppend(&(o_367_joined), (o_365_striArray)->arr[(idxChk((o_368_pos) < (o_365_striArray)->min_position || (o_368_pos) > (o_365_striArray)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_368_pos)-(o_365_striArray)->min_position)].value.striValue); } } return o_367_joined; } /* line 1 "no_file" */ /* 200 */ /* line 704 "../lib/seed7_05.s7i" */ static boolType/*t_13_boolean*/ o_369_isDigitString (const const_striType/*t_15_string*/ o_370_stri) { /* line 706 "../lib/seed7_05.s7i" */ boolType/*t_13_boolean*/ o_371_isDigitString=o_26_TRUE; /* line 708 "../lib/seed7_05.s7i" */ charType/*t_18_char*/ o_372_ch=(charType) ' '; /* line 710 "../lib/seed7_05.s7i" */ o_371_isDigitString=((o_370_stri)->size!=0 /* "" */); /* inline proc o_165_for */ { /* inline params */ /* line 711 "../lib/seed7_05.s7i" */ charType/*t_18_char*/ *const o_373_variable=&(o_372_ch); /* line 711 "../lib/seed7_05.s7i" */ const const_striType/*t_15_string*/ o_374_stri=o_370_stri; /* line 711 "../lib/seed7_05.s7i" */ /* push proc param o_375_statements */ /* line 711 "../lib/seed7_05.s7i" */ /* inline local_vars */ /* line 711 "../lib/seed7_05.s7i" */ /* line 214 "../lib/forloop.s7i" */ /* line 711 "../lib/seed7_05.s7i" */ intType/*t_14_integer*/ o_376_number=0; /* inline body */ { /* line 216 "../lib/forloop.s7i" */ intType tmp_e_1=(intType)((o_374_stri)->size); /* line 216 "../lib/forloop.s7i" */ for (o_376_number=1L; o_376_number<=tmp_e_1; (o_376_number)++) { { /* line 217 "../lib/forloop.s7i" */ uintType idx_1; /* line 217 "../lib/forloop.s7i" */ *o_373_variable=(o_374_stri)->mem[(idx_1=(uintType)((o_376_number)-1), idxChk(idx_1>=(o_374_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]; } /* closure o_375_statements*/ { /* line 712 "../lib/seed7_05.s7i" */ if (((o_372_ch) < ((charType) '0')) || /* line 712 "../lib/seed7_05.s7i" */ ((o_372_ch) > ((charType) '9'))) { /* line 713 "../lib/seed7_05.s7i" */ o_371_isDigitString=o_25_FALSE; } } /* closure o_375_statements*/ } } /* pop proc param o_375_statements */ } /* inline proc o_165_for */ return o_371_isDigitString; } /* line 1 "no_file" */ /* 201 */ /* line 718 "../lib/seed7_05.s7i" */ static boolType/*t_13_boolean*/ o_377_isDigitString (const const_striType/*t_15_string*/ o_378_stri, const intType/*t_14_integer*/ o_379_base) { /* line 720 "../lib/seed7_05.s7i" */ boolType/*t_13_boolean*/ o_380_isDigitString=o_26_TRUE; /* line 722 "../lib/seed7_05.s7i" */ charType/*t_18_char*/ o_381_ch=(charType) ' '; /* line 724 "../lib/seed7_05.s7i" */ o_380_isDigitString=((o_378_stri)->size!=0 /* "" */); /* line 725 "../lib/seed7_05.s7i" */ if ((o_379_base) <= (10L)) { /* inline proc o_165_for */ { /* inline params */ /* line 726 "../lib/seed7_05.s7i" */ charType/*t_18_char*/ *const o_373_variable=&(o_381_ch); /* line 726 "../lib/seed7_05.s7i" */ const const_striType/*t_15_string*/ o_374_stri=o_378_stri; /* line 726 "../lib/seed7_05.s7i" */ /* push proc param o_375_statements */ /* line 726 "../lib/seed7_05.s7i" */ /* inline local_vars */ /* line 726 "../lib/seed7_05.s7i" */ /* line 214 "../lib/forloop.s7i" */ /* line 726 "../lib/seed7_05.s7i" */ intType/*t_14_integer*/ o_376_number=0; /* inline body */ { /* line 216 "../lib/forloop.s7i" */ intType tmp_e_1=(intType)((o_374_stri)->size); /* line 216 "../lib/forloop.s7i" */ for (o_376_number=1L; o_376_number<=tmp_e_1; (o_376_number)++) { { /* line 217 "../lib/forloop.s7i" */ uintType idx_1; /* line 217 "../lib/forloop.s7i" */ *o_373_variable=(o_374_stri)->mem[(idx_1=(uintType)((o_376_number)-1), idxChk(idx_1>=(o_374_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]; } /* closure o_375_statements*/ { /* line 727 "../lib/seed7_05.s7i" */ if (((o_381_ch) < ((charType) '0')) || /* line 727 "../lib/seed7_05.s7i" */ ((o_381_ch) >= (((o_379_base)INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)(o_379_base))))) { /* line 728 "../lib/seed7_05.s7i" */ o_380_isDigitString=o_25_FALSE; } } /* closure o_375_statements*/ } } /* pop proc param o_375_statements */ } /* inline proc o_165_for */ } else { /* inline proc o_165_for */ { /* inline params */ /* line 732 "../lib/seed7_05.s7i" */ charType/*t_18_char*/ *const o_373_variable=&(o_381_ch); /* line 732 "../lib/seed7_05.s7i" */ const const_striType/*t_15_string*/ o_374_stri=o_378_stri; /* line 732 "../lib/seed7_05.s7i" */ /* push proc param o_375_statements */ /* line 732 "../lib/seed7_05.s7i" */ /* inline local_vars */ /* line 732 "../lib/seed7_05.s7i" */ /* line 214 "../lib/forloop.s7i" */ /* line 732 "../lib/seed7_05.s7i" */ intType/*t_14_integer*/ o_376_number=0; /* inline body */ { /* line 216 "../lib/forloop.s7i" */ intType tmp_e_1=(intType)((o_374_stri)->size); /* line 216 "../lib/forloop.s7i" */ for (o_376_number=1L; o_376_number<=tmp_e_1; (o_376_number)++) { { /* line 217 "../lib/forloop.s7i" */ uintType idx_1; /* line 217 "../lib/forloop.s7i" */ *o_373_variable=(o_374_stri)->mem[(idx_1=(uintType)((o_376_number)-1), idxChk(idx_1>=(o_374_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]; } /* closure o_375_statements*/ { { /* line 733 "../lib/seed7_05.s7i" */ intType tmp_1; /* line 733 "../lib/seed7_05.s7i" */ intType tmp_2; /* line 733 "../lib/seed7_05.s7i" */ if ((((o_381_ch) < ((charType) '0')) || /* line 733 "../lib/seed7_05.s7i" */ ((o_381_ch) > ((charType) '9'))) && /* line 734 "../lib/seed7_05.s7i" */ (((o_381_ch) < ((charType) 'a')) || /* line 734 "../lib/seed7_05.s7i" */ ((o_381_ch) >= ((tmp_1=(((intType)((scharType)((charType) 'a'))) + (o_379_base)) - 10L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)))) && /* line 735 "../lib/seed7_05.s7i" */ (((o_381_ch) < ((charType) 'A')) || /* line 735 "../lib/seed7_05.s7i" */ ((o_381_ch) >= ((tmp_2=(((intType)((scharType)((charType) 'A'))) + (o_379_base)) - 10L,tmp_2INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_2))))) { /* line 736 "../lib/seed7_05.s7i" */ o_380_isDigitString=o_25_FALSE; } } } /* closure o_375_statements*/ } } /* pop proc param o_375_statements */ } /* inline proc o_165_for */ } return o_380_isDigitString; } /* line 1 "no_file" */ /* 202 */ typedef genericType t_30/*t_30_bitset*/; /* 203 */ /* 204 */ /* 205 */ /* 206 */ /* 207 */ const boolType/*t_13_boolean*/ o_386_isBitset=1/*TRUE*/; /* 208 */ /* declare inline o_387_for*/ /* declare inline o_388_for*/ /* declare inline o_389_for*/ /* line 329 "../lib/bitset.s7i" */ static striType/*t_15_string*/ o_390_str (const const_setType/*t_30_bitset*/ o_391_aSet) { /* line 331 "../lib/bitset.s7i" */ striType/*t_15_string*/ o_392_stri; /* line 333 "../lib/bitset.s7i" */ intType/*t_14_integer*/ o_393_setElement=0; /* line 331 "../lib/bitset.s7i" */ o_392_stri=chrStr((charType) '{'); /* "{" */ /* inline proc o_387_for */ { /* inline params */ /* line 335 "../lib/bitset.s7i" */ intType/*t_14_integer*/ *const o_394_forVar=&(o_393_setElement); /* line 335 "../lib/bitset.s7i" */ const const_setType/*t_30_bitset*/ o_395_aSet=o_391_aSet; /* line 335 "../lib/bitset.s7i" */ /* push proc param o_396_statements */ /* line 335 "../lib/bitset.s7i" */ /* inline local_vars */ /* line 335 "../lib/bitset.s7i" */ /* line 274 "../lib/bitset.s7i" */ /* line 335 "../lib/bitset.s7i" */ intType/*t_14_integer*/ o_397_upperBound=0; /* line 335 "../lib/bitset.s7i" */ /* line 275 "../lib/bitset.s7i" */ /* line 335 "../lib/bitset.s7i" */ boolType/*t_13_boolean*/ o_398_leave=0/*FALSE*/; /* inline body */ /* line 277 "../lib/bitset.s7i" */ if (!setIsEmpty(o_395_aSet)) { /* line 278 "../lib/bitset.s7i" */ *o_394_forVar=setMin(o_395_aSet); /* line 279 "../lib/bitset.s7i" */ o_397_upperBound=setMax(o_395_aSet); /* line 280 "../lib/bitset.s7i" */ do { /* closure o_396_statements*/ { /* line 336 "../lib/bitset.s7i" */ if (((o_392_stri)->size!=1||(o_392_stri)->mem[0]!=(strElemType)('{') /* "{" */)) { /* line 337 "../lib/bitset.s7i" */ strAppend(&(o_392_stri), &str[12] /* ", " */); } { /* line 339 "../lib/bitset.s7i" */ union { /* line 339 "../lib/bitset.s7i" */ struct striStruct striBuf; /* line 339 "../lib/bitset.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 339 "../lib/bitset.s7i" */ } buffer_1; /* line 339 "../lib/bitset.s7i" */ strAppend(&(o_392_stri), intStrToBuffer(o_393_setElement, &buffer_1.striBuf)); } } /* closure o_396_statements*/ /* line 282 "../lib/bitset.s7i" */ if ((*o_394_forVar) == (o_397_upperBound)) { /* line 283 "../lib/bitset.s7i" */ o_398_leave=o_26_TRUE; } else { /* line 285 "../lib/bitset.s7i" */ *o_394_forVar=setNext(o_395_aSet, *o_394_forVar); } /* line 275 "../lib/bitset.s7i" */ } while (!(o_398_leave)); } /* pop proc param o_396_statements */ } /* inline proc o_387_for */ /* line 341 "../lib/bitset.s7i" */ /* line 341 "../lib/bitset.s7i" */ if (((o_392_stri))->size == ((o_392_stri))->capacity) { /* line 341 "../lib/bitset.s7i" */ strPush(&((o_392_stri)), (charType) '}'); /* line 341 "../lib/bitset.s7i" */ } else { /* line 341 "../lib/bitset.s7i" */ ((o_392_stri))->mem[((o_392_stri))->size]=(charType) '}'; /* line 341 "../lib/bitset.s7i" */ ((o_392_stri))->size++; /* line 341 "../lib/bitset.s7i" */ } return o_392_stri; } /* line 1 "no_file" */ /* 209 */ /* line 351 "../lib/bitset.s7i" */ static setType/*t_30_bitset*/ o_399_parse (/* attr t_30 bitset*/ const const_striType/*t_15_string*/ value_o_400_stri) { /* line 351 "../lib/bitset.s7i" */ striType/*t_15_string*/ o_400_stri; /* line 353 "../lib/bitset.s7i" */ setType/*t_30_bitset*/ o_401_aBitset; /* line 351 "../lib/bitset.s7i" */ o_400_stri=strCreate(value_o_400_stri); /* line 353 "../lib/bitset.s7i" */ o_401_aBitset=setCreate(set[0]); /* line 355 "../lib/bitset.s7i" */ if (((o_400_stri)->mem[(idxChk((o_400_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]) == ((charType) '{')) { /* line 356 "../lib/bitset.s7i" */ do { /* line 357 "../lib/bitset.s7i" */ do { { /* line 358 "../lib/bitset.s7i" */ struct striStruct slice_1; /* line 358 "../lib/bitset.s7i" */ strCopy(&(o_400_stri), (strTailSlice(o_400_stri, 2L, &slice_1), &slice_1)); } /* line 359 "../lib/bitset.s7i" */ } while (!(((o_400_stri)->mem[(idxChk((o_400_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]) != ((charType) ' '))); /* line 360 "../lib/bitset.s7i" */ if ((((o_400_stri)->mem[(idxChk((o_400_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]) >= ((charType) '0')) && /* line 360 "../lib/bitset.s7i" */ (((o_400_stri)->mem[(idxChk((o_400_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]) <= ((charType) '9'))) { { /* line 361 "../lib/bitset.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 361 "../lib/bitset.s7i" */ setIncl(&(o_401_aBitset), intParse((tmp_1=(striType/*t_15_string*/)(o_104_getint(&(o_400_stri)))))); /* line 361 "../lib/bitset.s7i" */ strDestr(tmp_1); } } else /* line 362 "../lib/bitset.s7i" */ if (((o_400_stri)->mem[(idxChk((o_400_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]) != ((charType) '}')) { /* line 363 "../lib/bitset.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/bitset.s7i", 363); } /* line 365 "../lib/bitset.s7i" */ } while (!(((o_400_stri)->mem[(idxChk((o_400_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]) != ((charType) ','))); /* line 366 "../lib/bitset.s7i" */ if (((o_400_stri)->size!=1||(o_400_stri)->mem[0]!=(strElemType)('}') /* "}" */)) { /* line 367 "../lib/bitset.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/bitset.s7i", 367); } } else { /* line 370 "../lib/bitset.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/bitset.s7i", 370); } /* line 351 "../lib/bitset.s7i" */ strDestr(o_400_stri); return o_401_aBitset; } /* line 1 "no_file" */ /* 210 */ /* 211 */ static typeType/*t_7_type*/ o_402_bitset (const typeType/*t_7_type*/ *const o_403_baseType); static typeType/*t_7_type*/ o_407_hashset (const typeType/*t_7_type*/ *const o_408_baseType); /* line 755 "../lib/seed7_05.s7i" */ static intType/*t_14_integer*/ o_52_integer (const const_striType/*t_15_string*/ value_o_53_stri, const intType/*t_14_integer*/ o_54_base) { /* line 755 "../lib/seed7_05.s7i" */ striType/*t_15_string*/ o_53_stri; /* line 757 "../lib/seed7_05.s7i" */ intType/*t_14_integer*/ o_415_anInteger=0; /* line 767 "../lib/seed7_05.s7i" */ boolType/*t_13_boolean*/ o_416_negative=0/*FALSE*/; /* line 768 "../lib/seed7_05.s7i" */ intType/*t_14_integer*/ o_417_pos=1; /* line 769 "../lib/seed7_05.s7i" */ intType/*t_14_integer*/ o_418_digit=0; /* line 755 "../lib/seed7_05.s7i" */ o_53_stri=strCreate(value_o_53_stri); /* line 771 "../lib/seed7_05.s7i" */ if ((((o_53_stri)->size!=0 /* "" */)) && /* line 771 "../lib/seed7_05.s7i" */ ((o_54_base) >= (2L)) && /* line 771 "../lib/seed7_05.s7i" */ ((o_54_base) <= (36L))) { /* line 772 "../lib/seed7_05.s7i" */ if (((o_53_stri)->mem[(idxChk((o_53_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]) == ((charType) '-')) { { /* line 773 "../lib/seed7_05.s7i" */ struct striStruct slice_1; /* line 773 "../lib/seed7_05.s7i" */ strCopy(&(o_53_stri), (strTailSlice(o_53_stri, 2L, &slice_1), &slice_1)); } /* line 774 "../lib/seed7_05.s7i" */ o_416_negative=o_26_TRUE; } else /* line 775 "../lib/seed7_05.s7i" */ if (((o_53_stri)->mem[(idxChk((o_53_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]) == ((charType) '+')) { { /* line 776 "../lib/seed7_05.s7i" */ struct striStruct slice_1; /* line 776 "../lib/seed7_05.s7i" */ strCopy(&(o_53_stri), (strTailSlice(o_53_stri, 2L, &slice_1), &slice_1)); } } { /* line 778 "../lib/seed7_05.s7i" */ intType tmp_e_1=(intType)((o_53_stri)->size); /* line 778 "../lib/seed7_05.s7i" */ for (o_417_pos=1L; o_417_pos<=tmp_e_1; (o_417_pos)++) { { /* line 779 "../lib/seed7_05.s7i" */ uintType idx_1; /* line 779 "../lib/seed7_05.s7i" */ uintType idx_2; /* line 779 "../lib/seed7_05.s7i" */ o_418_digit=arr[6]->arr[(idx_1=((((intType)((scharType)((o_53_stri)->mem[(idx_2=(uintType)((o_417_pos)-1), idxChk(idx_2>=(o_53_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]))) - ((intType)((scharType)((charType) '0')))) + 1L)- 1, idxChk(idx_1>=75) ? intRaiseError(RANGE_ERROR) : 0, idx_1)].value.intValue; } /* line 780 "../lib/seed7_05.s7i" */ if (((o_418_digit) == (-1L)) || /* line 780 "../lib/seed7_05.s7i" */ ((o_418_digit) >= (o_54_base))) { /* line 781 "../lib/seed7_05.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/seed7_05.s7i", 781); } /* line 783 "../lib/seed7_05.s7i" */ o_415_anInteger=((o_415_anInteger) * (o_54_base)) + (o_418_digit); } } /* line 785 "../lib/seed7_05.s7i" */ if (o_416_negative) { /* line 786 "../lib/seed7_05.s7i" */ o_415_anInteger=-(o_415_anInteger); } } else { /* line 789 "../lib/seed7_05.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/seed7_05.s7i", 789); } /* line 755 "../lib/seed7_05.s7i" */ strDestr(o_53_stri); return o_415_anInteger; } /* line 1 "no_file" */ /* 212 */ /* line 794 "../lib/seed7_05.s7i" */ static striType/*t_15_string*/ o_55_sci (const intType/*t_14_integer*/ o_56_number, const intType/*t_14_integer*/ o_57_precision) { /* line 796 "../lib/seed7_05.s7i" */ striType/*t_15_string*/ o_419_stri; /* line 798 "../lib/seed7_05.s7i" */ intType/*t_14_integer*/ o_420_exponent=0; /* line 799 "../lib/seed7_05.s7i" */ intType/*t_14_integer*/ o_421_mantissa=0; /* line 796 "../lib/seed7_05.s7i" */ o_419_stri=strEmpty(); /* "" */ /* line 801 "../lib/seed7_05.s7i" */ if ((o_57_precision) < (0L)) { /* line 802 "../lib/seed7_05.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/seed7_05.s7i", 802); } else /* line 803 "../lib/seed7_05.s7i" */ if ((o_56_number) == (0L)) { /* line 804 "../lib/seed7_05.s7i" */ if ((o_57_precision) == (0L)) { /* line 805 "../lib/seed7_05.s7i" */ strCopy(&(o_419_stri), &str[13] /* "0e+0" */); } else { { /* line 807 "../lib/seed7_05.s7i" */ const_striType tmp_2[3]; /* line 807 "../lib/seed7_05.s7i" */ striType tmp_3 = NULL; /* line 807 "../lib/seed7_05.s7i" */ striType old_stri=o_419_stri; /* line 807 "../lib/seed7_05.s7i" */ o_419_stri=(tmp_2[0] = &str[14] /* "0." */, tmp_2[1] = (tmp_3=strChMult((charType) '0', o_57_precision)), tmp_2[2] = &str[15] /* "e+0" */, strConcatN(tmp_2, 3)); /* line 807 "../lib/seed7_05.s7i" */ strDestr(old_stri); /* line 807 "../lib/seed7_05.s7i" */ strDestr(tmp_3); } } } else { /* line 810 "../lib/seed7_05.s7i" */ o_420_exponent=(intLog10(((o_56_number)<0? -(o_56_number):(o_56_number)))); /* line 811 "../lib/seed7_05.s7i" */ if ((o_57_precision) >= (o_420_exponent)) { { /* line 812 "../lib/seed7_05.s7i" */ union { /* line 812 "../lib/seed7_05.s7i" */ struct striStruct striBuf; /* line 812 "../lib/seed7_05.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 812 "../lib/seed7_05.s7i" */ } buffer_1; /* line 812 "../lib/seed7_05.s7i" */ strCopy(&(o_419_stri), intStrToBuffer(((o_56_number)<0? -(o_56_number):(o_56_number)), &buffer_1.striBuf)); } /* line 813 "../lib/seed7_05.s7i" */ strAppendTemp(&(o_419_stri), strChMult((charType) '0', (o_57_precision) - (o_420_exponent))); } else { { /* line 815 "../lib/seed7_05.s7i" */ intType tmp_b_1; /* line 815 "../lib/seed7_05.s7i" */ intType tmp_b_2; /* line 815 "../lib/seed7_05.s7i" */ intType tmp_3; /* line 815 "../lib/seed7_05.s7i" */ o_421_mantissa=(((tmp_b_1=((o_56_number)<0? -(o_56_number):(o_56_number)),tmp_b_2=(tmp_3=((o_420_exponent) - (o_57_precision))-1,ovfChk(tmp_3>18L)?intRaiseError(OVERFLOW_ERROR):intPow(10L, tmp_3)),ovfChk(tmp_b_1==(-9223372036854775807L-1L)&&tmp_b_2==-1)?intRaiseError(OVERFLOW_ERROR):divChk(tmp_b_2==0)?intRaiseError(NUMERIC_ERROR):tmp_b_1 / tmp_b_2)) + 5L) / 10L; } { /* line 816 "../lib/seed7_05.s7i" */ union { /* line 816 "../lib/seed7_05.s7i" */ struct striStruct striBuf; /* line 816 "../lib/seed7_05.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 816 "../lib/seed7_05.s7i" */ } buffer_1; /* line 816 "../lib/seed7_05.s7i" */ strCopy(&(o_419_stri), intStrToBuffer(o_421_mantissa, &buffer_1.striBuf)); } /* line 817 "../lib/seed7_05.s7i" */ if (((intType)((o_419_stri)->size)) > ((o_57_precision)+1)) { /* line 819 "../lib/seed7_05.s7i" */ ++(o_420_exponent); { /* line 820 "../lib/seed7_05.s7i" */ struct striStruct slice_1; /* line 820 "../lib/seed7_05.s7i" */ strCopy(&(o_419_stri), (strHeadSlice(o_419_stri, (o_57_precision)+1, &slice_1), &slice_1)); } } } /* line 823 "../lib/seed7_05.s7i" */ if ((o_57_precision) != (0L)) { { /* line 824 "../lib/seed7_05.s7i" */ const_striType tmp_2[3]; /* line 824 "../lib/seed7_05.s7i" */ struct striStruct stri1_3; /* line 824 "../lib/seed7_05.s7i" */ struct striStruct slice_4; /* line 824 "../lib/seed7_05.s7i" */ striType old_stri=o_419_stri; /* line 824 "../lib/seed7_05.s7i" */ o_419_stri=(tmp_2[0] = ((o_419_stri)->size>=1?chrStrMacro((o_419_stri)->mem[0],stri1_3):&str[0] /* "" */), tmp_2[1] = &str[16] /* "." */, tmp_2[2] = (strTailSlice(o_419_stri, 2L, &slice_4), &slice_4), strConcatN(tmp_2, 3)); /* line 824 "../lib/seed7_05.s7i" */ strDestr(old_stri); } } /* line 826 "../lib/seed7_05.s7i" */ if ((o_420_exponent) >= (0L)) { { /* line 827 "../lib/seed7_05.s7i" */ union { /* line 827 "../lib/seed7_05.s7i" */ struct striStruct striBuf; /* line 827 "../lib/seed7_05.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 827 "../lib/seed7_05.s7i" */ } buffer_2; /* line 827 "../lib/seed7_05.s7i" */ strAppendTemp(&(o_419_stri), strConcat(&str[17] /* "e+" */, intStrToBuffer(o_420_exponent, &buffer_2.striBuf))); } } else { { /* line 829 "../lib/seed7_05.s7i" */ union { /* line 829 "../lib/seed7_05.s7i" */ struct striStruct striBuf; /* line 829 "../lib/seed7_05.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 829 "../lib/seed7_05.s7i" */ } buffer_2; /* line 829 "../lib/seed7_05.s7i" */ strAppendTemp(&(o_419_stri), strConcat(&str[18] /* "e" */, intStrToBuffer(o_420_exponent, &buffer_2.striBuf))); } } /* line 831 "../lib/seed7_05.s7i" */ if ((o_56_number) < (0L)) { { /* line 832 "../lib/seed7_05.s7i" */ striType old_stri=o_419_stri; /* line 832 "../lib/seed7_05.s7i" */ o_419_stri=strConcat(&str[19] /* "-" */, o_419_stri); /* line 832 "../lib/seed7_05.s7i" */ strDestr(old_stri); } } } return o_419_stri; } /* line 1 "no_file" */ /* 213 */ static typeType/*t_7_type*/ o_412_set (const typeType/*t_7_type*/ *const o_413_baseType); typedef genericType t_31/*t_31_*ANONYM_TYPE**/; /* 214 */ const t_31/*t_31_*ANONYM_TYPE**/ o_435_WHEN_EMPTY=/*WHEN_EMPTY*/0; /* 215 */ /* 216 */ /* 217 */ typedef genericType t_32/*t_32_*ANONYM_TYPE**/; /* 218 */ typedef genericType t_33/*t_33_*ANONYM_TYPE**/; /* 219 */ /* 220 */ /* 221 */ /* 222 */ /* 223 */ const boolType/*t_13_boolean*/ o_436_isBitset=1/*TRUE*/; /* 224 */ /* line 169 "../lib/bitsetof.s7i" */ static boolType/*t_13_boolean*/ o_437_in (const charType/*t_18_char*/ o_438_aValue, const const_setType/*t_33_*ANONYM_TYPE**/ o_439_aSet) { /* line 170 "../lib/bitsetof.s7i" */ boolType/*t_13_boolean*/ result; /* line 170 "../lib/bitsetof.s7i" */ intType tmp_1; /* line 170 "../lib/bitsetof.s7i" */ const_setType tmp_2; /* line 170 "../lib/bitsetof.s7i" */ intType tmp_3; /* line 170 "../lib/bitsetof.s7i" */ result=(boolType/*t_13_boolean*/)(((tmp_1=(intType)((scharType)(o_438_aValue)),tmp_2=(o_439_aSet),tmp_3=bitset_pos(tmp_1),tmp_3>=tmp_2->min_position&&tmp_3<=tmp_2->max_position&&tmp_2->bitset[(uintType)(tmp_3-tmp_2->min_position)] >> (tmp_1 & bitset_mask)&1))); /* line 170 "../lib/bitsetof.s7i" */ return result; } /* line 1 "no_file" */ /* 225 */ /* line 178 "../lib/bitsetof.s7i" */ static boolType/*t_13_boolean*/ o_440_not (const charType/*t_18_char*/ o_441_aValue, const const_setType/*t_33_*ANONYM_TYPE**/ o_442_aSet) { /* line 179 "../lib/bitsetof.s7i" */ boolType/*t_13_boolean*/ result; /* line 179 "../lib/bitsetof.s7i" */ intType tmp_1; /* line 179 "../lib/bitsetof.s7i" */ const_setType tmp_2; /* line 179 "../lib/bitsetof.s7i" */ intType tmp_3; /* line 179 "../lib/bitsetof.s7i" */ result=(boolType/*t_13_boolean*/)((!((tmp_1=(intType)((scharType)(o_441_aValue)),tmp_2=(o_442_aSet),tmp_3=bitset_pos(tmp_1),tmp_3>=tmp_2->min_position&&tmp_3<=tmp_2->max_position&&tmp_2->bitset[(uintType)(tmp_3-tmp_2->min_position)] >> (tmp_1 & bitset_mask)&1)))); /* line 179 "../lib/bitsetof.s7i" */ return result; } /* line 1 "no_file" */ /* 226 */ /* line 186 "../lib/bitsetof.s7i" */ static void/*t_1_void*/ o_443_incl (setType/*t_33_*ANONYM_TYPE**/ *const o_444_aSet, const charType/*t_18_char*/ o_445_aValue) { /* line 188 "../lib/bitsetof.s7i" */ setIncl(&((*o_444_aSet)), (intType)((scharType)(o_445_aValue))); } /* line 1 "no_file" */ /* 227 */ /* line 195 "../lib/bitsetof.s7i" */ static void/*t_1_void*/ o_446_excl (setType/*t_33_*ANONYM_TYPE**/ *const o_447_aSet, const charType/*t_18_char*/ o_448_aValue) { { /* line 197 "../lib/bitsetof.s7i" */ setType tmp_1; /* line 197 "../lib/bitsetof.s7i" */ intType tmp_2; /* line 197 "../lib/bitsetof.s7i" */ intType tmp_3; /* line 197 "../lib/bitsetof.s7i" */ tmp_1=(*o_447_aSet); /* line 197 "../lib/bitsetof.s7i" */ tmp_2=(intType)((scharType)(o_448_aValue)); /* line 197 "../lib/bitsetof.s7i" */ tmp_3=bitset_pos(tmp_2); /* line 197 "../lib/bitsetof.s7i" */ if (tmp_3>=tmp_1->min_position&&tmp_3<=tmp_1->max_position) { /* line 197 "../lib/bitsetof.s7i" */ tmp_1->bitset[(uintType)(tmp_3-tmp_1->min_position)] &= ~((bitSetType) 1 << (((unsigned int) tmp_2) & bitset_mask)); /* line 197 "../lib/bitsetof.s7i" */ } } } /* line 1 "no_file" */ /* 228 */ /* line 212 "../lib/bitsetof.s7i" */ static charType/*t_18_char*/ o_449_rand (const const_setType/*t_33_*ANONYM_TYPE**/ o_450_aSet) { /* line 213 "../lib/bitsetof.s7i" */ return (charType/*t_18_char*/)(((charType)(setRand((o_450_aSet))))); } /* line 1 "no_file" */ /* 229 */ /* line 223 "../lib/bitsetof.s7i" */ static charType/*t_18_char*/ o_451_min (const const_setType/*t_33_*ANONYM_TYPE**/ o_452_aSet) { /* line 224 "../lib/bitsetof.s7i" */ return (charType/*t_18_char*/)(((charType)(setMin((o_452_aSet))))); } /* line 1 "no_file" */ /* 230 */ /* line 234 "../lib/bitsetof.s7i" */ static charType/*t_18_char*/ o_453_max (const const_setType/*t_33_*ANONYM_TYPE**/ o_454_aSet) { /* line 235 "../lib/bitsetof.s7i" */ return (charType/*t_18_char*/)(((charType)(setMax((o_454_aSet))))); } /* line 1 "no_file" */ /* 231 */ /* line 237 "../lib/bitsetof.s7i" */ static charType/*t_18_char*/ o_455_next (const const_setType/*t_33_*ANONYM_TYPE**/ o_456_aSet, const charType/*t_18_char*/ o_457_oldValue) { /* line 238 "../lib/bitsetof.s7i" */ return (charType/*t_18_char*/)(((charType)(setNext((o_456_aSet), (intType)((scharType)(o_457_oldValue)))))); } /* line 1 "no_file" */ /* 232 */ /* line 240 "../lib/bitsetof.s7i" */ static setType/*t_33_*ANONYM_TYPE**/ o_458/*{*/ (const charType/*t_18_char*/ o_459_value) { /* line 241 "../lib/bitsetof.s7i" */ return (setType/*t_33_*ANONYM_TYPE**/)((setBaselit((intType)((scharType)(o_459_value))))); } /* line 1 "no_file" */ /* 233 */ typedef genericType t_34/*t_34_*ANONYM_TYPE**/; /* 234 */ /* 235 */ /* 236 */ /* 237 */ /* ACTION ARR_GEN for type arrayType/t_34_*ANONYM_TYPE* element is charType/t_18_char */ /* 238 */ typedef genericType t_35/*t_35_*ANONYM_TYPE**/; /* 239 */ /* 240 */ /* 241 */ /* 242 */ /* 243 */ /* 244 */ /* ACTION ARR_IDX for type arrayType/t_35_*ANONYM_TYPE* element is charType/t_18_char */ /* 245 */ /* ACTION ARR_IDX for type arrayType/t_35_*ANONYM_TYPE* element is charType/t_18_char */ /* 246 */ /* line 163 "../lib/array.s7i" */ static arrayType times_35 (intType n, const charType/*t_18_char*/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.charValue=b; /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 247 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_35_*ANONYM_TYPE**/ create_35 (const_arrayType/*t_35_*ANONYM_TYPE**/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_35_*ANONYM_TYPE**/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_35_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.charValue=b->arr[i].value.charValue; /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_35 (const_arrayType/*t_35_*ANONYM_TYPE**/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_34 (const_arrayType/*t_34_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_34_*ANONYM_TYPE**/ create_34 (const_arrayType/*t_34_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_34_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_34_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.charValue=b->arr[i].value.charValue; /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_35_*ANONYM_TYPE**/ o_460_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_461_indexRange, const charType/*t_18_char*/ o_462_element) { /* line 186 "../lib/array.s7i" */ arrayType/*t_35_*ANONYM_TYPE**/ o_463_anArray; /* line 186 "../lib/array.s7i" */ o_463_anArray=create_35(arr[7]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_463_anArray; /* line 188 "../lib/array.s7i" */ o_463_anArray=times_35(((((structType)(o_461_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_461_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_462_element); /* line 188 "../lib/array.s7i" */ destr_35(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_463_anArray; /* line 189 "../lib/array.s7i" */ o_463_anArray=arrArrlit2(((structType)(o_461_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_34(/*arrConv()*/o_463_anArray)); /* line 189 "../lib/array.s7i" */ destr_35(old_array); } return o_463_anArray; } /* line 1 "no_file" */ /* 248 */ /* declare inline o_464_for*/ /* declare inline o_465_for*/ /* declare inline o_466_for*/ /* declare inline o_467_for*/ /* declare inline o_468_for*/ /* declare inline o_469_for*/ /* declare inline o_470_for*/ /* declare inline o_471_for*/ /* declare inline o_472_for*/ /* line 329 "../lib/array.s7i" */ static charType/*t_18_char*/ o_473_rand (const const_arrayType/*t_35_*ANONYM_TYPE**/ o_474_arr) { /* line 330 "../lib/array.s7i" */ charType/*t_18_char*/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(charType/*t_18_char*/)(((o_474_arr)->arr[idx_1=intRand((o_474_arr)->min_position, (o_474_arr)->max_position),(idxChk(idx_1 < (o_474_arr)->min_position || idx_1 > (o_474_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_474_arr)->min_position)].value.charValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 249 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_475_insert (arrayType/*t_35_*ANONYM_TYPE**/ *const o_476_arr, const intType/*t_14_integer*/ o_477_index, const charType/*t_18_char*/ o_478_element) { /* line 334 "../lib/array.s7i" */ if (((o_477_index) >= ((*o_476_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_477_index) <= (((*o_476_arr)->max_position)+1))) { { { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_476_arr; /* line 335 "../lib/array.s7i" */ *o_476_arr=arrCat(arrCat(arrHead(*o_476_arr, (o_477_index)-1), arrBaselit((genericType)(o_478_element))), arrTail(*o_476_arr, o_477_index)); /* line 335 "../lib/array.s7i" */ destr_35(old_array); } } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } } /* line 1 "no_file" */ /* 250 */ /* line 344 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_479/*=*/ (const const_arrayType/*t_35_*ANONYM_TYPE**/ o_480_arr1, const const_arrayType/*t_35_*ANONYM_TYPE**/ o_481_arr2) { /* line 346 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_482_isEqual=o_25_FALSE; /* line 348 "../lib/array.s7i" */ intType/*t_14_integer*/ o_483_number=1; /* line 350 "../lib/array.s7i" */ if ((((o_480_arr1)->min_position) == ((o_481_arr2)->min_position)) && /* line 350 "../lib/array.s7i" */ (((o_480_arr1)->max_position) == ((o_481_arr2)->max_position))) { /* line 351 "../lib/array.s7i" */ o_482_isEqual=o_26_TRUE; /* line 352 "../lib/array.s7i" */ o_483_number=(o_480_arr1)->min_position; /* line 353 "../lib/array.s7i" */ while (((o_483_number) <= ((o_480_arr1)->max_position)) && /* line 353 "../lib/array.s7i" */ (o_482_isEqual)) { /* line 354 "../lib/array.s7i" */ o_482_isEqual=((o_480_arr1)->arr[(idxChk((o_483_number) < (o_480_arr1)->min_position || (o_483_number) > (o_480_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_483_number)-(o_480_arr1)->min_position)].value.charValue) == ((o_481_arr2)->arr[(idxChk((o_483_number) < (o_481_arr2)->min_position || (o_483_number) > (o_481_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_483_number)-(o_481_arr2)->min_position)].value.charValue); /* line 355 "../lib/array.s7i" */ ++(o_483_number); } } return o_482_isEqual; } /* line 1 "no_file" */ /* 251 */ /* line 360 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_484/*<>*/ (const const_arrayType/*t_35_*ANONYM_TYPE**/ o_485_arr1, const const_arrayType/*t_35_*ANONYM_TYPE**/ o_486_arr2) { /* line 362 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_487_isNotEqual=o_26_TRUE; /* line 364 "../lib/array.s7i" */ intType/*t_14_integer*/ o_488_number=1; /* line 366 "../lib/array.s7i" */ if ((((o_485_arr1)->min_position) == ((o_486_arr2)->min_position)) && /* line 366 "../lib/array.s7i" */ (((o_485_arr1)->max_position) == ((o_486_arr2)->max_position))) { /* line 367 "../lib/array.s7i" */ o_487_isNotEqual=o_25_FALSE; /* line 368 "../lib/array.s7i" */ o_488_number=(o_485_arr1)->min_position; /* line 369 "../lib/array.s7i" */ while (((o_488_number) <= ((o_485_arr1)->max_position)) && /* line 369 "../lib/array.s7i" */ (!(o_487_isNotEqual))) { /* line 370 "../lib/array.s7i" */ o_487_isNotEqual=((o_485_arr1)->arr[(idxChk((o_488_number) < (o_485_arr1)->min_position || (o_488_number) > (o_485_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_488_number)-(o_485_arr1)->min_position)].value.charValue) != ((o_486_arr2)->arr[(idxChk((o_488_number) < (o_486_arr2)->min_position || (o_488_number) > (o_486_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_488_number)-(o_486_arr2)->min_position)].value.charValue); /* line 371 "../lib/array.s7i" */ ++(o_488_number); } } return o_487_isNotEqual; } /* line 1 "no_file" */ /* 252 */ /* line 381 "../lib/array.s7i" */ static void/*t_1_void*/ o_489_insert (arrayType/*t_35_*ANONYM_TYPE**/ *const o_490_arr, const charType/*t_18_char*/ o_491_element) { /* line 383 "../lib/array.s7i" */ intType/*t_14_integer*/ o_492_number=1; /* line 385 "../lib/array.s7i" */ o_492_number=(*o_490_arr)->min_position; /* line 386 "../lib/array.s7i" */ while (((o_492_number) <= ((*o_490_arr)->max_position)) && /* line 386 "../lib/array.s7i" */ (((*o_490_arr)->arr[(idxChk((o_492_number) < (*o_490_arr)->min_position || (o_492_number) > (*o_490_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_492_number)-(*o_490_arr)->min_position)].value.charValue) < (o_491_element))) { /* line 387 "../lib/array.s7i" */ ++(o_492_number); } /* line 389 "../lib/array.s7i" */ if ((o_492_number) > ((*o_490_arr)->max_position)) { { { /* line 390 "../lib/array.s7i" */ arrayType old_array=*o_490_arr; /* line 390 "../lib/array.s7i" */ *o_490_arr=arrCat(create_35(*o_490_arr), arrBaselit((genericType)(o_491_element))); /* line 390 "../lib/array.s7i" */ destr_35(old_array); } } } else /* line 391 "../lib/array.s7i" */ if (((*o_490_arr)->arr[(idxChk((o_492_number) < (*o_490_arr)->min_position || (o_492_number) > (*o_490_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_492_number)-(*o_490_arr)->min_position)].value.charValue) > (o_491_element)) { { { /* line 392 "../lib/array.s7i" */ arrayType old_array=*o_490_arr; /* line 392 "../lib/array.s7i" */ *o_490_arr=arrCat(arrCat(arrHead(*o_490_arr, (o_492_number)-1), arrBaselit((genericType)(o_491_element))), arrTail(*o_490_arr, o_492_number)); /* line 392 "../lib/array.s7i" */ destr_35(old_array); } } } } /* line 1 "no_file" */ /* 253 */ /* line 400 "../lib/array.s7i" */ static intType/*t_14_integer*/ o_493_compare (const const_arrayType/*t_35_*ANONYM_TYPE**/ o_494_arr1, const const_arrayType/*t_35_*ANONYM_TYPE**/ o_495_arr2) { /* line 402 "../lib/array.s7i" */ intType/*t_14_integer*/ o_496_signumValue=0; /* line 404 "../lib/array.s7i" */ intType/*t_14_integer*/ o_497_idx1=0; /* line 405 "../lib/array.s7i" */ intType/*t_14_integer*/ o_498_idx2=0; /* line 407 "../lib/array.s7i" */ o_497_idx1=(o_494_arr1)->min_position; /* line 408 "../lib/array.s7i" */ o_498_idx2=(o_495_arr2)->min_position; /* line 409 "../lib/array.s7i" */ while (((o_497_idx1) <= ((o_494_arr1)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_498_idx2) <= ((o_495_arr2)->max_position)) && /* line 409 "../lib/array.s7i" */ ((chrCmp((o_494_arr1)->arr[(idxChk((o_497_idx1) < (o_494_arr1)->min_position || (o_497_idx1) > (o_494_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_497_idx1)-(o_494_arr1)->min_position)].value.charValue, (o_495_arr2)->arr[(idxChk((o_498_idx2) < (o_495_arr2)->min_position || (o_498_idx2) > (o_495_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_498_idx2)-(o_495_arr2)->min_position)].value.charValue)) == (0L))) { /* line 410 "../lib/array.s7i" */ ++(o_497_idx1); /* line 411 "../lib/array.s7i" */ ++(o_498_idx2); } /* line 413 "../lib/array.s7i" */ if (((o_497_idx1) <= ((o_494_arr1)->max_position)) && /* line 413 "../lib/array.s7i" */ ((o_498_idx2) <= ((o_495_arr2)->max_position))) { /* line 414 "../lib/array.s7i" */ o_496_signumValue=chrCmp((o_494_arr1)->arr[(idxChk((o_497_idx1) < (o_494_arr1)->min_position || (o_497_idx1) > (o_494_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_497_idx1)-(o_494_arr1)->min_position)].value.charValue, (o_495_arr2)->arr[(idxChk((o_498_idx2) < (o_495_arr2)->min_position || (o_498_idx2) > (o_495_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_498_idx2)-(o_495_arr2)->min_position)].value.charValue); } else { /* line 416 "../lib/array.s7i" */ o_496_signumValue=intCmp(((o_494_arr1)->max_position - (o_494_arr1)->min_position + 1), ((o_495_arr2)->max_position - (o_495_arr2)->min_position + 1)); } return o_496_signumValue; } /* line 1 "no_file" */ /* 254 */ /* line 420 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_499/*<*/ (const const_arrayType/*t_35_*ANONYM_TYPE**/ o_500_arr1, const const_arrayType/*t_35_*ANONYM_TYPE**/ o_501_arr2) { /* line 421 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_493_compare(o_500_arr1, o_501_arr2)) < (0L))); } /* line 1 "no_file" */ /* 255 */ /* line 423 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_502/*>*/ (const const_arrayType/*t_35_*ANONYM_TYPE**/ o_503_arr1, const const_arrayType/*t_35_*ANONYM_TYPE**/ o_504_arr2) { /* line 424 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_493_compare(o_503_arr1, o_504_arr2)) > (0L))); } /* line 1 "no_file" */ /* 256 */ /* line 426 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_505/*<=*/ (const const_arrayType/*t_35_*ANONYM_TYPE**/ o_506_arr1, const const_arrayType/*t_35_*ANONYM_TYPE**/ o_507_arr2) { /* line 427 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_493_compare(o_506_arr1, o_507_arr2)) <= (0L))); } /* line 1 "no_file" */ /* 257 */ /* line 429 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_508/*>=*/ (const const_arrayType/*t_35_*ANONYM_TYPE**/ o_509_arr1, const const_arrayType/*t_35_*ANONYM_TYPE**/ o_510_arr2) { /* line 430 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_493_compare(o_509_arr1, o_510_arr2)) >= (0L))); } /* line 1 "no_file" */ /* 258 */ /* objRefType/t_19_reference */ intfunctype o_511/*.*/=(intfunctype)(&chrCmpGeneric); /* 259 */ /* line 436 "../lib/array.s7i" */ static arrayType/*t_35_*ANONYM_TYPE**/ o_512_sort (const const_arrayType/*t_35_*ANONYM_TYPE**/ o_513_arr_obj) { /* line 437 "../lib/array.s7i" */ return (arrayType/*t_35_*ANONYM_TYPE**/)((arrSort(create_35(o_513_arr_obj), (compareType)(o_511/*.*/)))); } /* line 1 "no_file" */ /* 260 */ /* line 246 "../lib/bitsetof.s7i" */ static setType/*t_33_*ANONYM_TYPE**/ o_514/*{*/ (const const_arrayType/*t_34_*ANONYM_TYPE**/ o_515_value) { /* line 248 "../lib/bitsetof.s7i" */ setType/*t_33_*ANONYM_TYPE**/ o_516_aSet; /* line 250 "../lib/bitsetof.s7i" */ intType/*t_14_integer*/ o_517_number=0; /* line 248 "../lib/bitsetof.s7i" */ o_516_aSet=setCreate(set[0]); { /* line 252 "../lib/bitsetof.s7i" */ const_arrayType tmp_1; /* line 252 "../lib/bitsetof.s7i" */ intType tmp_e_2=(tmp_1=/*arrArrlit()*/o_515_value,tmp_1->max_position - tmp_1->min_position + 1); /* line 252 "../lib/bitsetof.s7i" */ for (o_517_number=1L; o_517_number<=tmp_e_2; (o_517_number)++) { { /* line 253 "../lib/bitsetof.s7i" */ const_arrayType tmp_1; /* line 253 "../lib/bitsetof.s7i" */ o_443_incl(&(o_516_aSet), (*(tmp_1=/*arrArrlit()*/o_515_value, &tmp_1->arr[(idxChk((o_517_number) < tmp_1->min_position || (o_517_number) > tmp_1->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_517_number)-tmp_1->min_position)].value.charValue))); } } } return o_516_aSet; } /* line 1 "no_file" */ /* 261 */ /* line 257 "../lib/bitsetof.s7i" */ static setType/*t_33_*ANONYM_TYPE**/ o_518/*{*/ (const charType/*t_18_char*/ o_519_lowerValue, const charType/*t_18_char*/ o_520_upperValue) { /* line 258 "../lib/bitsetof.s7i" */ return (setType/*t_33_*ANONYM_TYPE**/)((setRangelit((intType)((scharType)(o_519_lowerValue)), (intType)((scharType)(o_520_upperValue))))); } /* line 1 "no_file" */ /* 262 */ /* declare inline o_521_for*/ /* declare inline o_522_for*/ /* declare inline o_523_for*/ /* line 322 "../lib/bitsetof.s7i" */ static striType/*t_15_string*/ o_524_str (const const_setType/*t_33_*ANONYM_TYPE**/ o_525_aSet) { /* line 324 "../lib/bitsetof.s7i" */ striType/*t_15_string*/ o_526_stri; /* line 326 "../lib/bitsetof.s7i" */ charType/*t_18_char*/ o_527_setElement=(charType) ' '; /* line 324 "../lib/bitsetof.s7i" */ o_526_stri=chrStr((charType) '{'); /* "{" */ /* inline proc o_521_for */ { /* inline params */ /* line 328 "../lib/bitsetof.s7i" */ charType/*t_18_char*/ *const o_528_variable=&(o_527_setElement); /* line 328 "../lib/bitsetof.s7i" */ const const_setType/*t_33_*ANONYM_TYPE**/ o_529_aSet=o_525_aSet; /* line 328 "../lib/bitsetof.s7i" */ /* push proc param o_530_statements */ /* line 328 "../lib/bitsetof.s7i" */ /* inline local_vars */ /* line 328 "../lib/bitsetof.s7i" */ /* line 267 "../lib/bitsetof.s7i" */ /* line 328 "../lib/bitsetof.s7i" */ charType/*t_18_char*/ o_531_upperBound=(charType) ' '; /* line 328 "../lib/bitsetof.s7i" */ /* line 268 "../lib/bitsetof.s7i" */ /* line 328 "../lib/bitsetof.s7i" */ boolType/*t_13_boolean*/ o_532_leave=0/*FALSE*/; /* inline body */ /* line 270 "../lib/bitsetof.s7i" */ if (!setEq(o_529_aSet, (setType/*t_33_*ANONYM_TYPE**/)(set[0]))) { /* line 271 "../lib/bitsetof.s7i" */ *o_528_variable=o_451_min(o_529_aSet); /* line 272 "../lib/bitsetof.s7i" */ o_531_upperBound=o_453_max(o_529_aSet); /* line 273 "../lib/bitsetof.s7i" */ do { /* closure o_530_statements*/ { /* line 329 "../lib/bitsetof.s7i" */ if (((o_526_stri)->size!=1||(o_526_stri)->mem[0]!=(strElemType)('{') /* "{" */)) { /* line 330 "../lib/bitsetof.s7i" */ strAppend(&(o_526_stri), &str[12] /* ", " */); } /* line 332 "../lib/bitsetof.s7i" */ strPush(&(o_526_stri), o_527_setElement); } /* closure o_530_statements*/ /* line 275 "../lib/bitsetof.s7i" */ if ((*o_528_variable) == (o_531_upperBound)) { /* line 276 "../lib/bitsetof.s7i" */ o_532_leave=o_26_TRUE; } else { /* line 278 "../lib/bitsetof.s7i" */ *o_528_variable=o_455_next(o_529_aSet, *o_528_variable); } /* line 268 "../lib/bitsetof.s7i" */ } while (!(o_532_leave)); } /* pop proc param o_530_statements */ } /* inline proc o_521_for */ /* line 334 "../lib/bitsetof.s7i" */ /* line 334 "../lib/bitsetof.s7i" */ if (((o_526_stri))->size == ((o_526_stri))->capacity) { /* line 334 "../lib/bitsetof.s7i" */ strPush(&((o_526_stri)), (charType) '}'); /* line 334 "../lib/bitsetof.s7i" */ } else { /* line 334 "../lib/bitsetof.s7i" */ ((o_526_stri))->mem[((o_526_stri))->size]=(charType) '}'; /* line 334 "../lib/bitsetof.s7i" */ ((o_526_stri))->size++; /* line 334 "../lib/bitsetof.s7i" */ } return o_526_stri; } /* line 1 "no_file" */ /* 263 */ /* 264 */ const t_32/*t_32_*ANONYM_TYPE**/ o_533_WHEN_EMPTY=/*WHEN_EMPTY*/0; /* 265 */ /* 266 */ /* 267 */ typedef genericType t_36/*t_36_*ANONYM_TYPE**/; /* 268 */ typedef genericType t_37/*t_37_*ANONYM_TYPE**/; /* 269 */ /* 270 */ /* 271 */ /* 272 */ /* 273 */ const boolType/*t_13_boolean*/ o_534_isBitset=1/*TRUE*/; /* 274 */ /* line 169 "../lib/bitsetof.s7i" */ static boolType/*t_13_boolean*/ o_535_in (const boolType/*t_13_boolean*/ o_536_aValue, const const_setType/*t_37_*ANONYM_TYPE**/ o_537_aSet) { /* line 170 "../lib/bitsetof.s7i" */ boolType/*t_13_boolean*/ result; /* line 170 "../lib/bitsetof.s7i" */ intType tmp_1; /* line 170 "../lib/bitsetof.s7i" */ const_setType tmp_2; /* line 170 "../lib/bitsetof.s7i" */ intType tmp_3; /* line 170 "../lib/bitsetof.s7i" */ result=(boolType/*t_13_boolean*/)(((tmp_1=(intType)(o_536_aValue),tmp_2=(o_537_aSet),tmp_3=bitset_pos(tmp_1),tmp_3>=tmp_2->min_position&&tmp_3<=tmp_2->max_position&&tmp_2->bitset[(uintType)(tmp_3-tmp_2->min_position)] >> (tmp_1 & bitset_mask)&1))); /* line 170 "../lib/bitsetof.s7i" */ return result; } /* line 1 "no_file" */ /* 275 */ /* line 178 "../lib/bitsetof.s7i" */ static boolType/*t_13_boolean*/ o_538_not (const boolType/*t_13_boolean*/ o_539_aValue, const const_setType/*t_37_*ANONYM_TYPE**/ o_540_aSet) { /* line 179 "../lib/bitsetof.s7i" */ boolType/*t_13_boolean*/ result; /* line 179 "../lib/bitsetof.s7i" */ intType tmp_1; /* line 179 "../lib/bitsetof.s7i" */ const_setType tmp_2; /* line 179 "../lib/bitsetof.s7i" */ intType tmp_3; /* line 179 "../lib/bitsetof.s7i" */ result=(boolType/*t_13_boolean*/)((!((tmp_1=(intType)(o_539_aValue),tmp_2=(o_540_aSet),tmp_3=bitset_pos(tmp_1),tmp_3>=tmp_2->min_position&&tmp_3<=tmp_2->max_position&&tmp_2->bitset[(uintType)(tmp_3-tmp_2->min_position)] >> (tmp_1 & bitset_mask)&1)))); /* line 179 "../lib/bitsetof.s7i" */ return result; } /* line 1 "no_file" */ /* 276 */ /* line 186 "../lib/bitsetof.s7i" */ static void/*t_1_void*/ o_541_incl (setType/*t_37_*ANONYM_TYPE**/ *const o_542_aSet, const boolType/*t_13_boolean*/ o_543_aValue) { /* line 188 "../lib/bitsetof.s7i" */ setIncl(&((*o_542_aSet)), (intType)(o_543_aValue)); } /* line 1 "no_file" */ /* 277 */ /* line 195 "../lib/bitsetof.s7i" */ static void/*t_1_void*/ o_544_excl (setType/*t_37_*ANONYM_TYPE**/ *const o_545_aSet, const boolType/*t_13_boolean*/ o_546_aValue) { { /* line 197 "../lib/bitsetof.s7i" */ setType tmp_1; /* line 197 "../lib/bitsetof.s7i" */ intType tmp_2; /* line 197 "../lib/bitsetof.s7i" */ intType tmp_3; /* line 197 "../lib/bitsetof.s7i" */ tmp_1=(*o_545_aSet); /* line 197 "../lib/bitsetof.s7i" */ tmp_2=(intType)(o_546_aValue); /* line 197 "../lib/bitsetof.s7i" */ tmp_3=bitset_pos(tmp_2); /* line 197 "../lib/bitsetof.s7i" */ if (tmp_3>=tmp_1->min_position&&tmp_3<=tmp_1->max_position) { /* line 197 "../lib/bitsetof.s7i" */ tmp_1->bitset[(uintType)(tmp_3-tmp_1->min_position)] &= ~((bitSetType) 1 << (((unsigned int) tmp_2) & bitset_mask)); /* line 197 "../lib/bitsetof.s7i" */ } } } /* line 1 "no_file" */ /* 278 */ /* line 212 "../lib/bitsetof.s7i" */ static boolType/*t_13_boolean*/ o_547_rand (const const_setType/*t_37_*ANONYM_TYPE**/ o_548_aSet) { /* line 213 "../lib/bitsetof.s7i" */ return (boolType/*t_13_boolean*/)(((setRand((o_548_aSet))) & 1)); } /* line 1 "no_file" */ /* 279 */ /* line 223 "../lib/bitsetof.s7i" */ static boolType/*t_13_boolean*/ o_549_min (const const_setType/*t_37_*ANONYM_TYPE**/ o_550_aSet) { /* line 224 "../lib/bitsetof.s7i" */ return (boolType/*t_13_boolean*/)(((setMin((o_550_aSet))) & 1)); } /* line 1 "no_file" */ /* 280 */ /* line 234 "../lib/bitsetof.s7i" */ static boolType/*t_13_boolean*/ o_551_max (const const_setType/*t_37_*ANONYM_TYPE**/ o_552_aSet) { /* line 235 "../lib/bitsetof.s7i" */ return (boolType/*t_13_boolean*/)(((setMax((o_552_aSet))) & 1)); } /* line 1 "no_file" */ /* 281 */ /* line 237 "../lib/bitsetof.s7i" */ static boolType/*t_13_boolean*/ o_553_next (const const_setType/*t_37_*ANONYM_TYPE**/ o_554_aSet, const boolType/*t_13_boolean*/ o_555_oldValue) { /* line 238 "../lib/bitsetof.s7i" */ return (boolType/*t_13_boolean*/)(((setNext((o_554_aSet), (intType)(o_555_oldValue))) & 1)); } /* line 1 "no_file" */ /* 282 */ /* line 240 "../lib/bitsetof.s7i" */ static setType/*t_37_*ANONYM_TYPE**/ o_556/*{*/ (const boolType/*t_13_boolean*/ o_557_value) { /* line 241 "../lib/bitsetof.s7i" */ return (setType/*t_37_*ANONYM_TYPE**/)((setBaselit((intType)(o_557_value)))); } /* line 1 "no_file" */ /* 283 */ typedef genericType t_38/*t_38_*ANONYM_TYPE**/; /* 284 */ /* 285 */ /* 286 */ /* 287 */ /* ACTION ARR_GEN for type arrayType/t_38_*ANONYM_TYPE* element is boolType/t_13_boolean */ /* 288 */ typedef genericType t_39/*t_39_*ANONYM_TYPE**/; /* 289 */ /* 290 */ /* 291 */ /* 292 */ /* 293 */ /* 294 */ /* ACTION ARR_IDX for type arrayType/t_39_*ANONYM_TYPE* element is boolType/t_13_boolean */ /* 295 */ /* ACTION ARR_IDX for type arrayType/t_39_*ANONYM_TYPE* element is boolType/t_13_boolean */ /* 296 */ /* line 163 "../lib/array.s7i" */ static arrayType times_39 (intType n, const boolType/*t_13_boolean*/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.boolValue=b; /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 297 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_39_*ANONYM_TYPE**/ create_39 (const_arrayType/*t_39_*ANONYM_TYPE**/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_39_*ANONYM_TYPE**/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_39_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.boolValue=b->arr[i].value.boolValue; /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_39 (const_arrayType/*t_39_*ANONYM_TYPE**/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_38 (const_arrayType/*t_38_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_38_*ANONYM_TYPE**/ create_38 (const_arrayType/*t_38_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_38_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_38_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.boolValue=b->arr[i].value.boolValue; /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_39_*ANONYM_TYPE**/ o_558_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_559_indexRange, const boolType/*t_13_boolean*/ o_560_element) { /* line 186 "../lib/array.s7i" */ arrayType/*t_39_*ANONYM_TYPE**/ o_561_anArray; /* line 186 "../lib/array.s7i" */ o_561_anArray=create_39(arr[8]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_561_anArray; /* line 188 "../lib/array.s7i" */ o_561_anArray=times_39(((((structType)(o_559_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_559_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_560_element); /* line 188 "../lib/array.s7i" */ destr_39(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_561_anArray; /* line 189 "../lib/array.s7i" */ o_561_anArray=arrArrlit2(((structType)(o_559_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_38(/*arrConv()*/o_561_anArray)); /* line 189 "../lib/array.s7i" */ destr_39(old_array); } return o_561_anArray; } /* line 1 "no_file" */ /* 298 */ /* declare inline o_562_for*/ /* declare inline o_563_for*/ /* declare inline o_564_for*/ /* declare inline o_565_for*/ /* declare inline o_566_for*/ /* declare inline o_567_for*/ /* declare inline o_568_for*/ /* declare inline o_569_for*/ /* declare inline o_570_for*/ /* line 329 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_571_rand (const const_arrayType/*t_39_*ANONYM_TYPE**/ o_572_arr) { /* line 330 "../lib/array.s7i" */ boolType/*t_13_boolean*/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(boolType/*t_13_boolean*/)(((o_572_arr)->arr[idx_1=intRand((o_572_arr)->min_position, (o_572_arr)->max_position),(idxChk(idx_1 < (o_572_arr)->min_position || idx_1 > (o_572_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_572_arr)->min_position)].value.boolValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 299 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_573_insert (arrayType/*t_39_*ANONYM_TYPE**/ *const o_574_arr, const intType/*t_14_integer*/ o_575_index, const boolType/*t_13_boolean*/ o_576_element) { /* line 334 "../lib/array.s7i" */ if (((o_575_index) >= ((*o_574_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_575_index) <= (((*o_574_arr)->max_position)+1))) { { { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_574_arr; /* line 335 "../lib/array.s7i" */ *o_574_arr=arrCat(arrCat(arrHead(*o_574_arr, (o_575_index)-1), arrBaselit((genericType)(o_576_element))), arrTail(*o_574_arr, o_575_index)); /* line 335 "../lib/array.s7i" */ destr_39(old_array); } } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } } /* line 1 "no_file" */ /* 300 */ /* line 344 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_577/*=*/ (const const_arrayType/*t_39_*ANONYM_TYPE**/ o_578_arr1, const const_arrayType/*t_39_*ANONYM_TYPE**/ o_579_arr2) { /* line 346 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_580_isEqual=o_25_FALSE; /* line 348 "../lib/array.s7i" */ intType/*t_14_integer*/ o_581_number=1; /* line 350 "../lib/array.s7i" */ if ((((o_578_arr1)->min_position) == ((o_579_arr2)->min_position)) && /* line 350 "../lib/array.s7i" */ (((o_578_arr1)->max_position) == ((o_579_arr2)->max_position))) { /* line 351 "../lib/array.s7i" */ o_580_isEqual=o_26_TRUE; /* line 352 "../lib/array.s7i" */ o_581_number=(o_578_arr1)->min_position; /* line 353 "../lib/array.s7i" */ while (((o_581_number) <= ((o_578_arr1)->max_position)) && /* line 353 "../lib/array.s7i" */ (o_580_isEqual)) { /* line 354 "../lib/array.s7i" */ o_580_isEqual=((o_578_arr1)->arr[(idxChk((o_581_number) < (o_578_arr1)->min_position || (o_581_number) > (o_578_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_581_number)-(o_578_arr1)->min_position)].value.boolValue) == ((o_579_arr2)->arr[(idxChk((o_581_number) < (o_579_arr2)->min_position || (o_581_number) > (o_579_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_581_number)-(o_579_arr2)->min_position)].value.boolValue); /* line 355 "../lib/array.s7i" */ ++(o_581_number); } } return o_580_isEqual; } /* line 1 "no_file" */ /* 301 */ /* line 360 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_582/*<>*/ (const const_arrayType/*t_39_*ANONYM_TYPE**/ o_583_arr1, const const_arrayType/*t_39_*ANONYM_TYPE**/ o_584_arr2) { /* line 362 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_585_isNotEqual=o_26_TRUE; /* line 364 "../lib/array.s7i" */ intType/*t_14_integer*/ o_586_number=1; /* line 366 "../lib/array.s7i" */ if ((((o_583_arr1)->min_position) == ((o_584_arr2)->min_position)) && /* line 366 "../lib/array.s7i" */ (((o_583_arr1)->max_position) == ((o_584_arr2)->max_position))) { /* line 367 "../lib/array.s7i" */ o_585_isNotEqual=o_25_FALSE; /* line 368 "../lib/array.s7i" */ o_586_number=(o_583_arr1)->min_position; /* line 369 "../lib/array.s7i" */ while (((o_586_number) <= ((o_583_arr1)->max_position)) && /* line 369 "../lib/array.s7i" */ (!(o_585_isNotEqual))) { /* line 370 "../lib/array.s7i" */ o_585_isNotEqual=((o_583_arr1)->arr[(idxChk((o_586_number) < (o_583_arr1)->min_position || (o_586_number) > (o_583_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_586_number)-(o_583_arr1)->min_position)].value.boolValue) != ((o_584_arr2)->arr[(idxChk((o_586_number) < (o_584_arr2)->min_position || (o_586_number) > (o_584_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_586_number)-(o_584_arr2)->min_position)].value.boolValue); /* line 371 "../lib/array.s7i" */ ++(o_586_number); } } return o_585_isNotEqual; } /* line 1 "no_file" */ /* 302 */ /* line 381 "../lib/array.s7i" */ static void/*t_1_void*/ o_587_insert (arrayType/*t_39_*ANONYM_TYPE**/ *const o_588_arr, const boolType/*t_13_boolean*/ o_589_element) { /* line 383 "../lib/array.s7i" */ intType/*t_14_integer*/ o_590_number=1; /* line 385 "../lib/array.s7i" */ o_590_number=(*o_588_arr)->min_position; /* line 386 "../lib/array.s7i" */ while (((o_590_number) <= ((*o_588_arr)->max_position)) && /* line 386 "../lib/array.s7i" */ (((*o_588_arr)->arr[(idxChk((o_590_number) < (*o_588_arr)->min_position || (o_590_number) > (*o_588_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_590_number)-(*o_588_arr)->min_position)].value.boolValue) < (o_589_element))) { /* line 387 "../lib/array.s7i" */ ++(o_590_number); } /* line 389 "../lib/array.s7i" */ if ((o_590_number) > ((*o_588_arr)->max_position)) { { { /* line 390 "../lib/array.s7i" */ arrayType old_array=*o_588_arr; /* line 390 "../lib/array.s7i" */ *o_588_arr=arrCat(create_39(*o_588_arr), arrBaselit((genericType)(o_589_element))); /* line 390 "../lib/array.s7i" */ destr_39(old_array); } } } else /* line 391 "../lib/array.s7i" */ if (((*o_588_arr)->arr[(idxChk((o_590_number) < (*o_588_arr)->min_position || (o_590_number) > (*o_588_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_590_number)-(*o_588_arr)->min_position)].value.boolValue) > (o_589_element)) { { { /* line 392 "../lib/array.s7i" */ arrayType old_array=*o_588_arr; /* line 392 "../lib/array.s7i" */ *o_588_arr=arrCat(arrCat(arrHead(*o_588_arr, (o_590_number)-1), arrBaselit((genericType)(o_589_element))), arrTail(*o_588_arr, o_590_number)); /* line 392 "../lib/array.s7i" */ destr_39(old_array); } } } } /* line 1 "no_file" */ /* 303 */ /* line 400 "../lib/array.s7i" */ static intType/*t_14_integer*/ o_591_compare (const const_arrayType/*t_39_*ANONYM_TYPE**/ o_592_arr1, const const_arrayType/*t_39_*ANONYM_TYPE**/ o_593_arr2) { /* line 402 "../lib/array.s7i" */ intType/*t_14_integer*/ o_594_signumValue=0; /* line 404 "../lib/array.s7i" */ intType/*t_14_integer*/ o_595_idx1=0; /* line 405 "../lib/array.s7i" */ intType/*t_14_integer*/ o_596_idx2=0; /* line 407 "../lib/array.s7i" */ o_595_idx1=(o_592_arr1)->min_position; /* line 408 "../lib/array.s7i" */ o_596_idx2=(o_593_arr2)->min_position; /* line 409 "../lib/array.s7i" */ while (((o_595_idx1) <= ((o_592_arr1)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_596_idx2) <= ((o_593_arr2)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_30_compare((o_592_arr1)->arr[(idxChk((o_595_idx1) < (o_592_arr1)->min_position || (o_595_idx1) > (o_592_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_595_idx1)-(o_592_arr1)->min_position)].value.boolValue, (o_593_arr2)->arr[(idxChk((o_596_idx2) < (o_593_arr2)->min_position || (o_596_idx2) > (o_593_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_596_idx2)-(o_593_arr2)->min_position)].value.boolValue)) == (0L))) { /* line 410 "../lib/array.s7i" */ ++(o_595_idx1); /* line 411 "../lib/array.s7i" */ ++(o_596_idx2); } /* line 413 "../lib/array.s7i" */ if (((o_595_idx1) <= ((o_592_arr1)->max_position)) && /* line 413 "../lib/array.s7i" */ ((o_596_idx2) <= ((o_593_arr2)->max_position))) { /* line 414 "../lib/array.s7i" */ o_594_signumValue=o_30_compare((o_592_arr1)->arr[(idxChk((o_595_idx1) < (o_592_arr1)->min_position || (o_595_idx1) > (o_592_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_595_idx1)-(o_592_arr1)->min_position)].value.boolValue, (o_593_arr2)->arr[(idxChk((o_596_idx2) < (o_593_arr2)->min_position || (o_596_idx2) > (o_593_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_596_idx2)-(o_593_arr2)->min_position)].value.boolValue); } else { /* line 416 "../lib/array.s7i" */ o_594_signumValue=intCmp(((o_592_arr1)->max_position - (o_592_arr1)->min_position + 1), ((o_593_arr2)->max_position - (o_593_arr2)->min_position + 1)); } return o_594_signumValue; } /* line 1 "no_file" */ /* 304 */ /* line 420 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_597/*<*/ (const const_arrayType/*t_39_*ANONYM_TYPE**/ o_598_arr1, const const_arrayType/*t_39_*ANONYM_TYPE**/ o_599_arr2) { /* line 421 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_591_compare(o_598_arr1, o_599_arr2)) < (0L))); } /* line 1 "no_file" */ /* 305 */ /* line 423 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_600/*>*/ (const const_arrayType/*t_39_*ANONYM_TYPE**/ o_601_arr1, const const_arrayType/*t_39_*ANONYM_TYPE**/ o_602_arr2) { /* line 424 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_591_compare(o_601_arr1, o_602_arr2)) > (0L))); } /* line 1 "no_file" */ /* 306 */ /* line 426 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_603/*<=*/ (const const_arrayType/*t_39_*ANONYM_TYPE**/ o_604_arr1, const const_arrayType/*t_39_*ANONYM_TYPE**/ o_605_arr2) { /* line 427 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_591_compare(o_604_arr1, o_605_arr2)) <= (0L))); } /* line 1 "no_file" */ /* 307 */ /* line 429 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_606/*>=*/ (const const_arrayType/*t_39_*ANONYM_TYPE**/ o_607_arr1, const const_arrayType/*t_39_*ANONYM_TYPE**/ o_608_arr2) { /* line 430 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_591_compare(o_607_arr1, o_608_arr2)) >= (0L))); } /* line 1 "no_file" */ /* 308 */ static intType generic_cmp_13 (const genericType a, const genericType b) { return o_30_compare(((const_rtlObjectType *) &a)->value.boolValue, ((const_rtlObjectType *) &b)->value.boolValue); } /* objRefType/t_19_reference */ intfunctype o_609/*.*/=(intfunctype)(&generic_cmp_13); /* 309 */ /* line 436 "../lib/array.s7i" */ static arrayType/*t_39_*ANONYM_TYPE**/ o_610_sort (const const_arrayType/*t_39_*ANONYM_TYPE**/ o_611_arr_obj) { /* line 437 "../lib/array.s7i" */ return (arrayType/*t_39_*ANONYM_TYPE**/)((arrSort(create_39(o_611_arr_obj), (compareType)(o_609/*.*/)))); } /* line 1 "no_file" */ /* 310 */ /* line 246 "../lib/bitsetof.s7i" */ static setType/*t_37_*ANONYM_TYPE**/ o_612/*{*/ (const const_arrayType/*t_38_*ANONYM_TYPE**/ o_613_value) { /* line 248 "../lib/bitsetof.s7i" */ setType/*t_37_*ANONYM_TYPE**/ o_614_aSet; /* line 250 "../lib/bitsetof.s7i" */ intType/*t_14_integer*/ o_615_number=0; /* line 248 "../lib/bitsetof.s7i" */ o_614_aSet=setCreate(set[0]); { /* line 252 "../lib/bitsetof.s7i" */ const_arrayType tmp_1; /* line 252 "../lib/bitsetof.s7i" */ intType tmp_e_2=(tmp_1=/*arrArrlit()*/o_613_value,tmp_1->max_position - tmp_1->min_position + 1); /* line 252 "../lib/bitsetof.s7i" */ for (o_615_number=1L; o_615_number<=tmp_e_2; (o_615_number)++) { { /* line 253 "../lib/bitsetof.s7i" */ const_arrayType tmp_1; /* line 253 "../lib/bitsetof.s7i" */ o_541_incl(&(o_614_aSet), (*(tmp_1=/*arrArrlit()*/o_613_value, &tmp_1->arr[(idxChk((o_615_number) < tmp_1->min_position || (o_615_number) > tmp_1->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_615_number)-tmp_1->min_position)].value.boolValue))); } } } return o_614_aSet; } /* line 1 "no_file" */ /* 311 */ /* line 257 "../lib/bitsetof.s7i" */ static setType/*t_37_*ANONYM_TYPE**/ o_616/*{*/ (const boolType/*t_13_boolean*/ o_617_lowerValue, const boolType/*t_13_boolean*/ o_618_upperValue) { /* line 258 "../lib/bitsetof.s7i" */ return (setType/*t_37_*ANONYM_TYPE**/)((setRangelit((intType)(o_617_lowerValue), (intType)(o_618_upperValue)))); } /* line 1 "no_file" */ /* 312 */ /* declare inline o_619_for*/ /* declare inline o_620_for*/ /* declare inline o_621_for*/ /* line 322 "../lib/bitsetof.s7i" */ static striType/*t_15_string*/ o_622_str (const const_setType/*t_37_*ANONYM_TYPE**/ o_623_aSet) { /* line 324 "../lib/bitsetof.s7i" */ striType/*t_15_string*/ o_624_stri; /* line 326 "../lib/bitsetof.s7i" */ boolType/*t_13_boolean*/ o_625_setElement=0/*FALSE*/; /* line 324 "../lib/bitsetof.s7i" */ o_624_stri=chrStr((charType) '{'); /* "{" */ /* inline proc o_619_for */ { /* inline params */ /* line 328 "../lib/bitsetof.s7i" */ boolType/*t_13_boolean*/ *const o_626_variable=&(o_625_setElement); /* line 328 "../lib/bitsetof.s7i" */ const const_setType/*t_37_*ANONYM_TYPE**/ o_627_aSet=o_623_aSet; /* line 328 "../lib/bitsetof.s7i" */ /* push proc param o_628_statements */ /* line 328 "../lib/bitsetof.s7i" */ /* inline local_vars */ /* line 328 "../lib/bitsetof.s7i" */ /* line 267 "../lib/bitsetof.s7i" */ /* line 328 "../lib/bitsetof.s7i" */ boolType/*t_13_boolean*/ o_629_upperBound=0/*FALSE*/; /* line 328 "../lib/bitsetof.s7i" */ /* line 268 "../lib/bitsetof.s7i" */ /* line 328 "../lib/bitsetof.s7i" */ boolType/*t_13_boolean*/ o_630_leave=0/*FALSE*/; /* inline body */ /* line 270 "../lib/bitsetof.s7i" */ if (!setEq(o_627_aSet, (setType/*t_37_*ANONYM_TYPE**/)(set[0]))) { /* line 271 "../lib/bitsetof.s7i" */ *o_626_variable=o_549_min(o_627_aSet); /* line 272 "../lib/bitsetof.s7i" */ o_629_upperBound=o_551_max(o_627_aSet); /* line 273 "../lib/bitsetof.s7i" */ do { /* closure o_628_statements*/ { /* line 329 "../lib/bitsetof.s7i" */ if (((o_624_stri)->size!=1||(o_624_stri)->mem[0]!=(strElemType)('{') /* "{" */)) { /* line 330 "../lib/bitsetof.s7i" */ strAppend(&(o_624_stri), &str[12] /* ", " */); } /* line 332 "../lib/bitsetof.s7i" */ strAppendTemp(&(o_624_stri), o_43_str(o_625_setElement)); } /* closure o_628_statements*/ /* line 275 "../lib/bitsetof.s7i" */ if ((*o_626_variable) == (o_629_upperBound)) { /* line 276 "../lib/bitsetof.s7i" */ o_630_leave=o_26_TRUE; } else { /* line 278 "../lib/bitsetof.s7i" */ *o_626_variable=o_553_next(o_627_aSet, *o_626_variable); } /* line 268 "../lib/bitsetof.s7i" */ } while (!(o_630_leave)); } /* pop proc param o_628_statements */ } /* inline proc o_619_for */ /* line 334 "../lib/bitsetof.s7i" */ /* line 334 "../lib/bitsetof.s7i" */ if (((o_624_stri))->size == ((o_624_stri))->capacity) { /* line 334 "../lib/bitsetof.s7i" */ strPush(&((o_624_stri)), (charType) '}'); /* line 334 "../lib/bitsetof.s7i" */ } else { /* line 334 "../lib/bitsetof.s7i" */ ((o_624_stri))->mem[((o_624_stri))->size]=(charType) '}'; /* line 334 "../lib/bitsetof.s7i" */ ((o_624_stri))->size++; /* line 334 "../lib/bitsetof.s7i" */ } return o_624_stri; } /* line 1 "no_file" */ /* 313 */ /* 314 */ const t_36/*t_36_*ANONYM_TYPE**/ o_631_WHEN_EMPTY=/*WHEN_EMPTY*/0; /* 315 */ /* 316 */ /* 317 */ static typeType/*t_7_type*/ o_632_new (const t_3/*t_3_expr*/ *const o_633_elem_expr); typedef genericType t_40/*t_40_*ANONYM_TYPE**/; /* 318 */ /* 319 */ /* 320 */ const enumType/*t_40_*ANONYM_TYPE**/ o_644_CATCH_EMPTY=/*CATCH_EMPTY*/0; /* 321 */ struct listStruct rec_645_1={NULL, (objRefType) &(o_644_CATCH_EMPTY)}; listType/*t_20_ref_list*/ o_645/*.*/=&rec_645_1; /* 322 */ const enumType/*t_40_*ANONYM_TYPE**/ o_646/*.*/=/*CATCH_EMPTY*/0; /* 323 */ const enumType/*t_40_*ANONYM_TYPE**/ o_647/*.*/=/*CATCH_EMPTY*/0; /* 324 */ const enumType/*t_40_*ANONYM_TYPE**/ o_648/*.*/=/*CATCH_EMPTY*/0; /* 325 */ /* line 976 "../lib/seed7_05.s7i" */ static enumType/*t_40_*ANONYM_TYPE**/ o_649_conv (/* attr t_40 *ANONYM_TYPE**/ const intType/*t_14_integer*/ o_650_number) { /* line 977 "../lib/seed7_05.s7i" */ return (enumType/*t_40_*ANONYM_TYPE**/)(((o_650_number))); } /* line 1 "no_file" */ /* 326 */ /* line 979 "../lib/seed7_05.s7i" */ static intType/*t_14_integer*/ o_651_ord (const enumType/*t_40_*ANONYM_TYPE**/ o_652_enum_val) { /* line 980 "../lib/seed7_05.s7i" */ return (intType/*t_14_integer*/)(((o_652_enum_val))); } /* line 1 "no_file" */ /* 327 */ /* line 982 "../lib/seed7_05.s7i" */ static intType/*t_14_integer*/ o_653_hashCode (const enumType/*t_40_*ANONYM_TYPE**/ o_654_enum_val) { /* line 983 "../lib/seed7_05.s7i" */ return (intType/*t_14_integer*/)((o_651_ord(o_654_enum_val))); } /* line 1 "no_file" */ /* 328 */ /* line 985 "../lib/seed7_05.s7i" */ static intType/*t_14_integer*/ o_655_compare (const enumType/*t_40_*ANONYM_TYPE**/ o_656_enum1, const enumType/*t_40_*ANONYM_TYPE**/ o_657_enum2) { /* line 986 "../lib/seed7_05.s7i" */ return (intType/*t_14_integer*/)((intCmp(o_651_ord(o_656_enum1), o_651_ord(o_657_enum2)))); } /* line 1 "no_file" */ /* 329 */ /* line 988 "../lib/seed7_05.s7i" */ static intType/*t_14_integer*/ o_658_conv (/* attr t_14 integer*/ const enumType/*t_40_*ANONYM_TYPE**/ o_659_enum_val) { /* line 989 "../lib/seed7_05.s7i" */ return (intType/*t_14_integer*/)((o_651_ord(o_659_enum_val))); } /* line 1 "no_file" */ /* 330 */ /* line 991 "../lib/seed7_05.s7i" */ static enumType/*t_40_*ANONYM_TYPE**/ o_660_succ (const enumType/*t_40_*ANONYM_TYPE**/ *const o_661_enum_val) { /* line 992 "../lib/seed7_05.s7i" */ return (enumType/*t_40_*ANONYM_TYPE**/)((o_649_conv(/* attr t_40 *ANONYM_TYPE**/ (o_651_ord(*o_661_enum_val))+1))); } /* line 1 "no_file" */ /* 331 */ /* line 994 "../lib/seed7_05.s7i" */ static enumType/*t_40_*ANONYM_TYPE**/ o_662_pred (const enumType/*t_40_*ANONYM_TYPE**/ *const o_663_enum_val) { /* line 995 "../lib/seed7_05.s7i" */ return (enumType/*t_40_*ANONYM_TYPE**/)((o_649_conv(/* attr t_40 *ANONYM_TYPE**/ (o_651_ord(*o_663_enum_val))-1))); } /* line 1 "no_file" */ /* 332 */ /* line 997 "../lib/seed7_05.s7i" */ static void/*t_1_void*/ o_664_incr (enumType/*t_40_*ANONYM_TYPE**/ *const o_665_enum_val) { /* line 999 "../lib/seed7_05.s7i" */ *o_665_enum_val=o_660_succ(o_665_enum_val); } /* line 1 "no_file" */ /* 333 */ /* line 1002 "../lib/seed7_05.s7i" */ static void/*t_1_void*/ o_666_decr (enumType/*t_40_*ANONYM_TYPE**/ *const o_667_enum_val) { /* line 1004 "../lib/seed7_05.s7i" */ *o_667_enum_val=o_662_pred(o_667_enum_val); } /* line 1 "no_file" */ /* 334 */ /* line 1007 "../lib/seed7_05.s7i" */ static boolType/*t_13_boolean*/ o_668/*<*/ (const enumType/*t_40_*ANONYM_TYPE**/ o_669_enum_val1, const enumType/*t_40_*ANONYM_TYPE**/ o_670_enum_val2) { /* line 1008 "../lib/seed7_05.s7i" */ return (boolType/*t_13_boolean*/)(((o_651_ord(o_669_enum_val1)) < (o_651_ord(o_670_enum_val2)))); } /* line 1 "no_file" */ /* 335 */ /* line 1010 "../lib/seed7_05.s7i" */ static boolType/*t_13_boolean*/ o_671/*<=*/ (const enumType/*t_40_*ANONYM_TYPE**/ o_672_enum_val1, const enumType/*t_40_*ANONYM_TYPE**/ o_673_enum_val2) { /* line 1011 "../lib/seed7_05.s7i" */ return (boolType/*t_13_boolean*/)(((o_651_ord(o_672_enum_val1)) <= (o_651_ord(o_673_enum_val2)))); } /* line 1 "no_file" */ /* 336 */ /* line 1013 "../lib/seed7_05.s7i" */ static boolType/*t_13_boolean*/ o_674/*>*/ (const enumType/*t_40_*ANONYM_TYPE**/ o_675_enum_val1, const enumType/*t_40_*ANONYM_TYPE**/ o_676_enum_val2) { /* line 1014 "../lib/seed7_05.s7i" */ return (boolType/*t_13_boolean*/)(((o_651_ord(o_675_enum_val1)) > (o_651_ord(o_676_enum_val2)))); } /* line 1 "no_file" */ /* 337 */ /* line 1016 "../lib/seed7_05.s7i" */ static boolType/*t_13_boolean*/ o_677/*>=*/ (const enumType/*t_40_*ANONYM_TYPE**/ o_678_enum_val1, const enumType/*t_40_*ANONYM_TYPE**/ o_679_enum_val2) { /* line 1017 "../lib/seed7_05.s7i" */ return (boolType/*t_13_boolean*/)(((o_651_ord(o_678_enum_val1)) >= (o_651_ord(o_679_enum_val2)))); } /* line 1 "no_file" */ /* 338 */ /* declare inline o_680_for*/ /* declare inline o_681_for*/ /* declare inline o_682_for*/ /* declare inline o_683_for*/ /* declare inline o_684_for*/ /* declare inline o_685_for*/ typedef genericType t_41/*t_41_*ANONYM_TYPE**/; /* 339 */ typedef genericType t_42/*t_42_*ANONYM_TYPE**/; /* 340 */ /* 341 */ /* 342 */ /* 343 */ /* 344 */ const boolType/*t_13_boolean*/ o_686_isBitset=1/*TRUE*/; /* 345 */ /* line 169 "../lib/bitsetof.s7i" */ static boolType/*t_13_boolean*/ o_687_in (const enumType/*t_40_*ANONYM_TYPE**/ o_688_aValue, const const_setType/*t_42_*ANONYM_TYPE**/ o_689_aSet) { /* line 170 "../lib/bitsetof.s7i" */ boolType/*t_13_boolean*/ result; /* line 170 "../lib/bitsetof.s7i" */ intType tmp_1; /* line 170 "../lib/bitsetof.s7i" */ const_setType tmp_2; /* line 170 "../lib/bitsetof.s7i" */ intType tmp_3; /* line 170 "../lib/bitsetof.s7i" */ result=(boolType/*t_13_boolean*/)(((tmp_1=o_651_ord(o_688_aValue),tmp_2=(o_689_aSet),tmp_3=bitset_pos(tmp_1),tmp_3>=tmp_2->min_position&&tmp_3<=tmp_2->max_position&&tmp_2->bitset[(uintType)(tmp_3-tmp_2->min_position)] >> (tmp_1 & bitset_mask)&1))); /* line 170 "../lib/bitsetof.s7i" */ return result; } /* line 1 "no_file" */ /* 346 */ /* line 178 "../lib/bitsetof.s7i" */ static boolType/*t_13_boolean*/ o_690_not (const enumType/*t_40_*ANONYM_TYPE**/ o_691_aValue, const const_setType/*t_42_*ANONYM_TYPE**/ o_692_aSet) { /* line 179 "../lib/bitsetof.s7i" */ boolType/*t_13_boolean*/ result; /* line 179 "../lib/bitsetof.s7i" */ intType tmp_1; /* line 179 "../lib/bitsetof.s7i" */ const_setType tmp_2; /* line 179 "../lib/bitsetof.s7i" */ intType tmp_3; /* line 179 "../lib/bitsetof.s7i" */ result=(boolType/*t_13_boolean*/)((!((tmp_1=o_651_ord(o_691_aValue),tmp_2=(o_692_aSet),tmp_3=bitset_pos(tmp_1),tmp_3>=tmp_2->min_position&&tmp_3<=tmp_2->max_position&&tmp_2->bitset[(uintType)(tmp_3-tmp_2->min_position)] >> (tmp_1 & bitset_mask)&1)))); /* line 179 "../lib/bitsetof.s7i" */ return result; } /* line 1 "no_file" */ /* 347 */ /* line 186 "../lib/bitsetof.s7i" */ static void/*t_1_void*/ o_693_incl (setType/*t_42_*ANONYM_TYPE**/ *const o_694_aSet, const enumType/*t_40_*ANONYM_TYPE**/ o_695_aValue) { /* line 188 "../lib/bitsetof.s7i" */ setIncl(&((*o_694_aSet)), o_651_ord(o_695_aValue)); } /* line 1 "no_file" */ /* 348 */ /* line 195 "../lib/bitsetof.s7i" */ static void/*t_1_void*/ o_696_excl (setType/*t_42_*ANONYM_TYPE**/ *const o_697_aSet, const enumType/*t_40_*ANONYM_TYPE**/ o_698_aValue) { { /* line 197 "../lib/bitsetof.s7i" */ setType tmp_1; /* line 197 "../lib/bitsetof.s7i" */ intType tmp_2; /* line 197 "../lib/bitsetof.s7i" */ intType tmp_3; /* line 197 "../lib/bitsetof.s7i" */ tmp_1=(*o_697_aSet); /* line 197 "../lib/bitsetof.s7i" */ tmp_2=o_651_ord(o_698_aValue); /* line 197 "../lib/bitsetof.s7i" */ tmp_3=bitset_pos(tmp_2); /* line 197 "../lib/bitsetof.s7i" */ if (tmp_3>=tmp_1->min_position&&tmp_3<=tmp_1->max_position) { /* line 197 "../lib/bitsetof.s7i" */ tmp_1->bitset[(uintType)(tmp_3-tmp_1->min_position)] &= ~((bitSetType) 1 << (((unsigned int) tmp_2) & bitset_mask)); /* line 197 "../lib/bitsetof.s7i" */ } } } /* line 1 "no_file" */ /* 349 */ /* line 212 "../lib/bitsetof.s7i" */ static enumType/*t_40_*ANONYM_TYPE**/ o_699_rand (const const_setType/*t_42_*ANONYM_TYPE**/ o_700_aSet) { /* line 213 "../lib/bitsetof.s7i" */ return (enumType/*t_40_*ANONYM_TYPE**/)((o_649_conv(/* attr t_40 *ANONYM_TYPE**/ setRand((o_700_aSet))))); } /* line 1 "no_file" */ /* 350 */ /* line 223 "../lib/bitsetof.s7i" */ static enumType/*t_40_*ANONYM_TYPE**/ o_701_min (const const_setType/*t_42_*ANONYM_TYPE**/ o_702_aSet) { /* line 224 "../lib/bitsetof.s7i" */ return (enumType/*t_40_*ANONYM_TYPE**/)((o_649_conv(/* attr t_40 *ANONYM_TYPE**/ setMin((o_702_aSet))))); } /* line 1 "no_file" */ /* 351 */ /* line 234 "../lib/bitsetof.s7i" */ static enumType/*t_40_*ANONYM_TYPE**/ o_703_max (const const_setType/*t_42_*ANONYM_TYPE**/ o_704_aSet) { /* line 235 "../lib/bitsetof.s7i" */ return (enumType/*t_40_*ANONYM_TYPE**/)((o_649_conv(/* attr t_40 *ANONYM_TYPE**/ setMax((o_704_aSet))))); } /* line 1 "no_file" */ /* 352 */ /* line 237 "../lib/bitsetof.s7i" */ static enumType/*t_40_*ANONYM_TYPE**/ o_705_next (const const_setType/*t_42_*ANONYM_TYPE**/ o_706_aSet, const enumType/*t_40_*ANONYM_TYPE**/ o_707_oldValue) { /* line 238 "../lib/bitsetof.s7i" */ return (enumType/*t_40_*ANONYM_TYPE**/)((o_649_conv(/* attr t_40 *ANONYM_TYPE**/ setNext((o_706_aSet), o_651_ord(o_707_oldValue))))); } /* line 1 "no_file" */ /* 353 */ /* line 240 "../lib/bitsetof.s7i" */ static setType/*t_42_*ANONYM_TYPE**/ o_708/*{*/ (const enumType/*t_40_*ANONYM_TYPE**/ o_709_value) { /* line 241 "../lib/bitsetof.s7i" */ return (setType/*t_42_*ANONYM_TYPE**/)((setBaselit(o_651_ord(o_709_value)))); } /* line 1 "no_file" */ /* 354 */ typedef genericType t_43/*t_43_*ANONYM_TYPE**/; /* 355 */ /* 356 */ /* 357 */ /* 358 */ /* ACTION ARR_GEN for type arrayType/t_43_*ANONYM_TYPE* element is enumType/t_40_*ANONYM_TYPE* */ /* 359 */ typedef genericType t_44/*t_44_*ANONYM_TYPE**/; /* 360 */ /* 361 */ /* 362 */ /* 363 */ /* 364 */ /* 365 */ /* ACTION ARR_IDX for type arrayType/t_44_*ANONYM_TYPE* element is enumType/t_40_*ANONYM_TYPE* */ /* 366 */ /* ACTION ARR_IDX for type arrayType/t_44_*ANONYM_TYPE* element is enumType/t_40_*ANONYM_TYPE* */ /* 367 */ /* line 163 "../lib/array.s7i" */ static arrayType times_44 (intType n, const enumType/*t_40_*ANONYM_TYPE**/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.enumValue=b; /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 368 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_44_*ANONYM_TYPE**/ create_44 (const_arrayType/*t_44_*ANONYM_TYPE**/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_44_*ANONYM_TYPE**/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_44_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.enumValue=b->arr[i].value.enumValue; /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_44 (const_arrayType/*t_44_*ANONYM_TYPE**/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_43 (const_arrayType/*t_43_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_43_*ANONYM_TYPE**/ create_43 (const_arrayType/*t_43_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_43_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_43_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.enumValue=b->arr[i].value.enumValue; /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_44_*ANONYM_TYPE**/ o_710_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_711_indexRange, const enumType/*t_40_*ANONYM_TYPE**/ o_712_element) { /* line 186 "../lib/array.s7i" */ arrayType/*t_44_*ANONYM_TYPE**/ o_713_anArray; /* line 186 "../lib/array.s7i" */ o_713_anArray=create_44(arr[9]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_713_anArray; /* line 188 "../lib/array.s7i" */ o_713_anArray=times_44(((((structType)(o_711_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_711_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_712_element); /* line 188 "../lib/array.s7i" */ destr_44(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_713_anArray; /* line 189 "../lib/array.s7i" */ o_713_anArray=arrArrlit2(((structType)(o_711_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_43(/*arrConv()*/o_713_anArray)); /* line 189 "../lib/array.s7i" */ destr_44(old_array); } return o_713_anArray; } /* line 1 "no_file" */ /* 369 */ /* declare inline o_714_for*/ /* declare inline o_715_for*/ /* declare inline o_716_for*/ /* declare inline o_717_for*/ /* declare inline o_718_for*/ /* declare inline o_719_for*/ /* declare inline o_720_for*/ /* declare inline o_721_for*/ /* declare inline o_722_for*/ /* line 329 "../lib/array.s7i" */ static enumType/*t_40_*ANONYM_TYPE**/ o_723_rand (const const_arrayType/*t_44_*ANONYM_TYPE**/ o_724_arr) { /* line 330 "../lib/array.s7i" */ enumType/*t_40_*ANONYM_TYPE**/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(enumType/*t_40_*ANONYM_TYPE**/)(((o_724_arr)->arr[idx_1=intRand((o_724_arr)->min_position, (o_724_arr)->max_position),(idxChk(idx_1 < (o_724_arr)->min_position || idx_1 > (o_724_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_724_arr)->min_position)].value.enumValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 370 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_725_insert (arrayType/*t_44_*ANONYM_TYPE**/ *const o_726_arr, const intType/*t_14_integer*/ o_727_index, const enumType/*t_40_*ANONYM_TYPE**/ o_728_element) { /* line 334 "../lib/array.s7i" */ if (((o_727_index) >= ((*o_726_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_727_index) <= (((*o_726_arr)->max_position)+1))) { { { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_726_arr; /* line 335 "../lib/array.s7i" */ *o_726_arr=arrCat(arrCat(arrHead(*o_726_arr, (o_727_index)-1), arrBaselit((genericType)(o_728_element))), arrTail(*o_726_arr, o_727_index)); /* line 335 "../lib/array.s7i" */ destr_44(old_array); } } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } } /* line 1 "no_file" */ /* 371 */ /* line 344 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_729/*=*/ (const const_arrayType/*t_44_*ANONYM_TYPE**/ o_730_arr1, const const_arrayType/*t_44_*ANONYM_TYPE**/ o_731_arr2) { /* line 346 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_732_isEqual=o_25_FALSE; /* line 348 "../lib/array.s7i" */ intType/*t_14_integer*/ o_733_number=1; /* line 350 "../lib/array.s7i" */ if ((((o_730_arr1)->min_position) == ((o_731_arr2)->min_position)) && /* line 350 "../lib/array.s7i" */ (((o_730_arr1)->max_position) == ((o_731_arr2)->max_position))) { /* line 351 "../lib/array.s7i" */ o_732_isEqual=o_26_TRUE; /* line 352 "../lib/array.s7i" */ o_733_number=(o_730_arr1)->min_position; /* line 353 "../lib/array.s7i" */ while (((o_733_number) <= ((o_730_arr1)->max_position)) && /* line 353 "../lib/array.s7i" */ (o_732_isEqual)) { /* line 354 "../lib/array.s7i" */ o_732_isEqual=((o_730_arr1)->arr[(idxChk((o_733_number) < (o_730_arr1)->min_position || (o_733_number) > (o_730_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_733_number)-(o_730_arr1)->min_position)].value.enumValue) == ((o_731_arr2)->arr[(idxChk((o_733_number) < (o_731_arr2)->min_position || (o_733_number) > (o_731_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_733_number)-(o_731_arr2)->min_position)].value.enumValue); /* line 355 "../lib/array.s7i" */ ++(o_733_number); } } return o_732_isEqual; } /* line 1 "no_file" */ /* 372 */ /* line 360 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_734/*<>*/ (const const_arrayType/*t_44_*ANONYM_TYPE**/ o_735_arr1, const const_arrayType/*t_44_*ANONYM_TYPE**/ o_736_arr2) { /* line 362 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_737_isNotEqual=o_26_TRUE; /* line 364 "../lib/array.s7i" */ intType/*t_14_integer*/ o_738_number=1; /* line 366 "../lib/array.s7i" */ if ((((o_735_arr1)->min_position) == ((o_736_arr2)->min_position)) && /* line 366 "../lib/array.s7i" */ (((o_735_arr1)->max_position) == ((o_736_arr2)->max_position))) { /* line 367 "../lib/array.s7i" */ o_737_isNotEqual=o_25_FALSE; /* line 368 "../lib/array.s7i" */ o_738_number=(o_735_arr1)->min_position; /* line 369 "../lib/array.s7i" */ while (((o_738_number) <= ((o_735_arr1)->max_position)) && /* line 369 "../lib/array.s7i" */ (!(o_737_isNotEqual))) { /* line 370 "../lib/array.s7i" */ o_737_isNotEqual=((o_735_arr1)->arr[(idxChk((o_738_number) < (o_735_arr1)->min_position || (o_738_number) > (o_735_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_738_number)-(o_735_arr1)->min_position)].value.enumValue) != ((o_736_arr2)->arr[(idxChk((o_738_number) < (o_736_arr2)->min_position || (o_738_number) > (o_736_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_738_number)-(o_736_arr2)->min_position)].value.enumValue); /* line 371 "../lib/array.s7i" */ ++(o_738_number); } } return o_737_isNotEqual; } /* line 1 "no_file" */ /* 373 */ /* line 381 "../lib/array.s7i" */ static void/*t_1_void*/ o_739_insert (arrayType/*t_44_*ANONYM_TYPE**/ *const o_740_arr, const enumType/*t_40_*ANONYM_TYPE**/ o_741_element) { /* line 383 "../lib/array.s7i" */ intType/*t_14_integer*/ o_742_number=1; /* line 385 "../lib/array.s7i" */ o_742_number=(*o_740_arr)->min_position; /* line 386 "../lib/array.s7i" */ while (((o_742_number) <= ((*o_740_arr)->max_position)) && /* line 386 "../lib/array.s7i" */ (o_668/*<*/((*o_740_arr)->arr[(idxChk((o_742_number) < (*o_740_arr)->min_position || (o_742_number) > (*o_740_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_742_number)-(*o_740_arr)->min_position)].value.enumValue, o_741_element))) { /* line 387 "../lib/array.s7i" */ ++(o_742_number); } /* line 389 "../lib/array.s7i" */ if ((o_742_number) > ((*o_740_arr)->max_position)) { { { /* line 390 "../lib/array.s7i" */ arrayType old_array=*o_740_arr; /* line 390 "../lib/array.s7i" */ *o_740_arr=arrCat(create_44(*o_740_arr), arrBaselit((genericType)(o_741_element))); /* line 390 "../lib/array.s7i" */ destr_44(old_array); } } } else /* line 391 "../lib/array.s7i" */ if (o_674/*>*/((*o_740_arr)->arr[(idxChk((o_742_number) < (*o_740_arr)->min_position || (o_742_number) > (*o_740_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_742_number)-(*o_740_arr)->min_position)].value.enumValue, o_741_element)) { { { /* line 392 "../lib/array.s7i" */ arrayType old_array=*o_740_arr; /* line 392 "../lib/array.s7i" */ *o_740_arr=arrCat(arrCat(arrHead(*o_740_arr, (o_742_number)-1), arrBaselit((genericType)(o_741_element))), arrTail(*o_740_arr, o_742_number)); /* line 392 "../lib/array.s7i" */ destr_44(old_array); } } } } /* line 1 "no_file" */ /* 374 */ /* line 400 "../lib/array.s7i" */ static intType/*t_14_integer*/ o_743_compare (const const_arrayType/*t_44_*ANONYM_TYPE**/ o_744_arr1, const const_arrayType/*t_44_*ANONYM_TYPE**/ o_745_arr2) { /* line 402 "../lib/array.s7i" */ intType/*t_14_integer*/ o_746_signumValue=0; /* line 404 "../lib/array.s7i" */ intType/*t_14_integer*/ o_747_idx1=0; /* line 405 "../lib/array.s7i" */ intType/*t_14_integer*/ o_748_idx2=0; /* line 407 "../lib/array.s7i" */ o_747_idx1=(o_744_arr1)->min_position; /* line 408 "../lib/array.s7i" */ o_748_idx2=(o_745_arr2)->min_position; /* line 409 "../lib/array.s7i" */ while (((o_747_idx1) <= ((o_744_arr1)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_748_idx2) <= ((o_745_arr2)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_655_compare((o_744_arr1)->arr[(idxChk((o_747_idx1) < (o_744_arr1)->min_position || (o_747_idx1) > (o_744_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_747_idx1)-(o_744_arr1)->min_position)].value.enumValue, (o_745_arr2)->arr[(idxChk((o_748_idx2) < (o_745_arr2)->min_position || (o_748_idx2) > (o_745_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_748_idx2)-(o_745_arr2)->min_position)].value.enumValue)) == (0L))) { /* line 410 "../lib/array.s7i" */ ++(o_747_idx1); /* line 411 "../lib/array.s7i" */ ++(o_748_idx2); } /* line 413 "../lib/array.s7i" */ if (((o_747_idx1) <= ((o_744_arr1)->max_position)) && /* line 413 "../lib/array.s7i" */ ((o_748_idx2) <= ((o_745_arr2)->max_position))) { /* line 414 "../lib/array.s7i" */ o_746_signumValue=o_655_compare((o_744_arr1)->arr[(idxChk((o_747_idx1) < (o_744_arr1)->min_position || (o_747_idx1) > (o_744_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_747_idx1)-(o_744_arr1)->min_position)].value.enumValue, (o_745_arr2)->arr[(idxChk((o_748_idx2) < (o_745_arr2)->min_position || (o_748_idx2) > (o_745_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_748_idx2)-(o_745_arr2)->min_position)].value.enumValue); } else { /* line 416 "../lib/array.s7i" */ o_746_signumValue=intCmp(((o_744_arr1)->max_position - (o_744_arr1)->min_position + 1), ((o_745_arr2)->max_position - (o_745_arr2)->min_position + 1)); } return o_746_signumValue; } /* line 1 "no_file" */ /* 375 */ /* line 420 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_749/*<*/ (const const_arrayType/*t_44_*ANONYM_TYPE**/ o_750_arr1, const const_arrayType/*t_44_*ANONYM_TYPE**/ o_751_arr2) { /* line 421 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_743_compare(o_750_arr1, o_751_arr2)) < (0L))); } /* line 1 "no_file" */ /* 376 */ /* line 423 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_752/*>*/ (const const_arrayType/*t_44_*ANONYM_TYPE**/ o_753_arr1, const const_arrayType/*t_44_*ANONYM_TYPE**/ o_754_arr2) { /* line 424 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_743_compare(o_753_arr1, o_754_arr2)) > (0L))); } /* line 1 "no_file" */ /* 377 */ /* line 426 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_755/*<=*/ (const const_arrayType/*t_44_*ANONYM_TYPE**/ o_756_arr1, const const_arrayType/*t_44_*ANONYM_TYPE**/ o_757_arr2) { /* line 427 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_743_compare(o_756_arr1, o_757_arr2)) <= (0L))); } /* line 1 "no_file" */ /* 378 */ /* line 429 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_758/*>=*/ (const const_arrayType/*t_44_*ANONYM_TYPE**/ o_759_arr1, const const_arrayType/*t_44_*ANONYM_TYPE**/ o_760_arr2) { /* line 430 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_743_compare(o_759_arr1, o_760_arr2)) >= (0L))); } /* line 1 "no_file" */ /* 379 */ static intType generic_cmp_40 (const genericType a, const genericType b) { return o_655_compare(((const_rtlObjectType *) &a)->value.enumValue, ((const_rtlObjectType *) &b)->value.enumValue); } /* objRefType/t_19_reference */ intfunctype o_761/*.*/=(intfunctype)(&generic_cmp_40); /* 380 */ /* line 436 "../lib/array.s7i" */ static arrayType/*t_44_*ANONYM_TYPE**/ o_762_sort (const const_arrayType/*t_44_*ANONYM_TYPE**/ o_763_arr_obj) { /* line 437 "../lib/array.s7i" */ return (arrayType/*t_44_*ANONYM_TYPE**/)((arrSort(create_44(o_763_arr_obj), (compareType)(o_761/*.*/)))); } /* line 1 "no_file" */ /* 381 */ /* line 246 "../lib/bitsetof.s7i" */ static setType/*t_42_*ANONYM_TYPE**/ o_764/*{*/ (const const_arrayType/*t_43_*ANONYM_TYPE**/ o_765_value) { /* line 248 "../lib/bitsetof.s7i" */ setType/*t_42_*ANONYM_TYPE**/ o_766_aSet; /* line 250 "../lib/bitsetof.s7i" */ intType/*t_14_integer*/ o_767_number=0; /* line 248 "../lib/bitsetof.s7i" */ o_766_aSet=setCreate(set[0]); { /* line 252 "../lib/bitsetof.s7i" */ const_arrayType tmp_1; /* line 252 "../lib/bitsetof.s7i" */ intType tmp_e_2=(tmp_1=/*arrArrlit()*/o_765_value,tmp_1->max_position - tmp_1->min_position + 1); /* line 252 "../lib/bitsetof.s7i" */ for (o_767_number=1L; o_767_number<=tmp_e_2; (o_767_number)++) { { /* line 253 "../lib/bitsetof.s7i" */ const_arrayType tmp_1; /* line 253 "../lib/bitsetof.s7i" */ o_693_incl(&(o_766_aSet), (*(tmp_1=/*arrArrlit()*/o_765_value, &tmp_1->arr[(idxChk((o_767_number) < tmp_1->min_position || (o_767_number) > tmp_1->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_767_number)-tmp_1->min_position)].value.enumValue))); } } } return o_766_aSet; } /* line 1 "no_file" */ /* 382 */ /* line 257 "../lib/bitsetof.s7i" */ static setType/*t_42_*ANONYM_TYPE**/ o_768/*{*/ (const enumType/*t_40_*ANONYM_TYPE**/ o_769_lowerValue, const enumType/*t_40_*ANONYM_TYPE**/ o_770_upperValue) { /* line 258 "../lib/bitsetof.s7i" */ return (setType/*t_42_*ANONYM_TYPE**/)((setRangelit(o_651_ord(o_769_lowerValue), o_651_ord(o_770_upperValue)))); } /* line 1 "no_file" */ /* 383 */ /* declare inline o_771_for*/ /* declare inline o_772_for*/ /* declare inline o_773_for*/ /* 384 */ const t_41/*t_41_*ANONYM_TYPE**/ o_774_WHEN_EMPTY=/*WHEN_EMPTY*/0; /* 385 */ /* 386 */ /* 387 */ /* 388 */ /* 389 */ /* line 1055 "../lib/seed7_05.s7i" */ static boolType/*t_13_boolean*/ o_779_succeeds (t_2/*t_2_proc*/ o_780_statement) { /* line 1057 "../lib/seed7_05.s7i" */ boolType/*t_13_boolean*/ o_781_success=o_26_TRUE; /* line 1059 "../lib/seed7_05.s7i" */ { /* line 1059 "../lib/seed7_05.s7i" */ int fail_value; /* line 1059 "../lib/seed7_05.s7i" */ catch_stack_pos++; /* line 1059 "../lib/seed7_05.s7i" */ if (unlikely(catch_stack_pos >= max_catch_stack)) { /* line 1059 "../lib/seed7_05.s7i" */ resize_catch_stack(); /* line 1059 "../lib/seed7_05.s7i" */ } /* line 1059 "../lib/seed7_05.s7i" */ if (likely((fail_value = do_setjmp(catch_stack[catch_stack_pos])) == 0)) { /* line 1059 "../lib/seed7_05.s7i" */ o_780_statement->func(o_780_statement); /* line 1059 "../lib/seed7_05.s7i" */ catch_stack_pos--; /* line 1059 "../lib/seed7_05.s7i" */ } else { /* line 1059 "../lib/seed7_05.s7i" */ catch_stack_pos--; /* line 1062 "../lib/seed7_05.s7i" */ o_781_success=o_25_FALSE; /* line 1062 "../lib/seed7_05.s7i" */ } /* line 1062 "../lib/seed7_05.s7i" */ } return o_781_success; } /* line 1 "no_file" */ /* 390 */ /* line 65 "../lib/environment.s7i" */ static striType/*t_15_string*/ o_782_PROGRAM (void) { /* line 67 "../lib/environment.s7i" */ striType/*t_15_string*/ o_783_absolutePath; /* line 69 "../lib/environment.s7i" */ intType/*t_14_integer*/ o_784_slashPos=0; /* line 67 "../lib/environment.s7i" */ o_783_absolutePath=strEmpty(); /* "" */ /* line 71 "../lib/environment.s7i" */ strCopy(&(o_783_absolutePath), programPath); /* line 72 "../lib/environment.s7i" */ o_784_slashPos=strRChPos(o_783_absolutePath, (charType) '/'); /* line 73 "../lib/environment.s7i" */ if ((o_784_slashPos) == (1L)) { /* line 74 "../lib/environment.s7i" */ strCopy(&(o_783_absolutePath), &str[20] /* "/" */); } else /* line 75 "../lib/environment.s7i" */ if ((o_784_slashPos) > (1L)) { { /* line 76 "../lib/environment.s7i" */ struct striStruct slice_1; /* line 76 "../lib/environment.s7i" */ strCopy(&(o_783_absolutePath), (strHeadSlice(o_783_absolutePath, (o_784_slashPos)-1, &slice_1), &slice_1)); } } return o_783_absolutePath; } /* line 1 "no_file" */ /* 391 */ /* line 86 "../lib/environment.s7i" */ static striType/*t_15_string*/ o_785_PROGRAM (void) { /* line 88 "../lib/environment.s7i" */ striType/*t_15_string*/ o_786_filename; /* line 90 "../lib/environment.s7i" */ intType/*t_14_integer*/ o_787_slashPos=0; /* line 88 "../lib/environment.s7i" */ o_786_filename=strEmpty(); /* "" */ /* line 92 "../lib/environment.s7i" */ strCopy(&(o_786_filename), programPath); /* line 93 "../lib/environment.s7i" */ o_787_slashPos=strRChPos(o_786_filename, (charType) '/'); /* line 94 "../lib/environment.s7i" */ if ((o_787_slashPos) != (0L)) { { /* line 95 "../lib/environment.s7i" */ struct striStruct slice_1; /* line 95 "../lib/environment.s7i" */ strCopy(&(o_786_filename), (strTailSlice(o_786_filename, (o_787_slashPos)+1, &slice_1), &slice_1)); } } return o_786_filename; } /* line 1 "no_file" */ /* 392 */ /* line 1074 "../lib/seed7_05.s7i" */ static void/*t_1_void*/ o_788_PROGRAM (void) { /* line 1076 "../lib/seed7_05.s7i" */ exit(0L); } /* line 1 "no_file" */ /* 393 */ typedef genericType t_45/*t_45_*ANONYM_TYPE**/; /* 394 */ /* 395 */ /* 396 */ /* objRefType/t_19_reference */ intfunctype o_789/*.*/=(intfunctype)(&strCreateGeneric); /* 397 */ /* objRefType/t_19_reference */ intfunctype o_790/*.*/=(intfunctype)(&strDestrGeneric); /* 398 */ /* objRefType/t_19_reference */ intfunctype o_791/*.*/=(intfunctype)(&strCpyGeneric); /* 399 */ /* objRefType/t_19_reference */ intfunctype o_792/*.*/=(intfunctype)(&strCmpGeneric); /* 400 */ /* objRefType/t_19_reference */ intfunctype o_793/*.*/=(intfunctype)(&genericCreate); /* 401 */ /* objRefType/t_19_reference */ intfunctype o_794/*.*/=(intfunctype)(&genericDestr); /* 402 */ /* objRefType/t_19_reference */ intfunctype o_795/*.*/=(intfunctype)(&genericCpy); /* 403 */ /* 404 */ /* 405 */ /* 406 */ /* line 69 "../lib/hashsetof.s7i" */ static void/*t_1_void*/ o_796/*::=*/ (const const_hashType/*t_45_*ANONYM_TYPE**/ o_797_dest, const const_hashType/*t_45_*ANONYM_TYPE**/ o_798_source) { /* hshCreate implemented with create_45 */ } /* line 1 "no_file" */ /* 407 */ /* line 75 "../lib/hashsetof.s7i" */ static void/*t_1_void*/ o_799_destroy (const const_hashType/*t_45_*ANONYM_TYPE**/ o_800_oldSet) { /* hshDestr implemented with destr_45 */ } /* line 1 "no_file" */ /* 408 */ /* line 80 "../lib/hashsetof.s7i" */ static void/*t_1_void*/ o_801/*:=*/ (hashType/*t_45_*ANONYM_TYPE**/ *const o_802_dest, const const_hashType/*t_45_*ANONYM_TYPE**/ o_803_source) { /* line 82 "../lib/hashsetof.s7i" */ hshCpy(&(*o_802_dest), o_803_source, (createFuncType)(o_789/*.*/), (destrFuncType)(o_790/*.*/), (createFuncType)(o_793/*.*/), (destrFuncType)(o_794/*.*/)); } /* line 1 "no_file" */ /* 409 */ const boolType/*t_13_boolean*/ o_804_isBitset=0/*FALSE*/; /* 410 */ hashType/*t_45_*ANONYM_TYPE**/ o_805/*.*/; /* 411 */ hashType/*t_45_*ANONYM_TYPE**/ o_806/*.*/; /* 412 */ /* line 115 "../lib/hashsetof.s7i" */ static boolType/*t_13_boolean*/ o_807_in (const const_striType/*t_15_string*/ o_808_aValue, const const_hashType/*t_45_*ANONYM_TYPE**/ o_809_aSet) { /* line 116 "../lib/hashsetof.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_809_aSet, (genericType)(o_808_aValue), ((o_808_aValue)->size==0 ? 0 : ((o_808_aValue)->mem[0]<<5 ^ (o_808_aValue)->mem[(o_808_aValue)->size>>1]<<3 ^ (o_808_aValue)->mem[(o_808_aValue)->size-1]<<1 ^ (o_808_aValue)->size)), (compareType)(o_792/*.*/)))); } /* line 1 "no_file" */ /* 413 */ /* line 124 "../lib/hashsetof.s7i" */ static boolType/*t_13_boolean*/ o_810_not (const const_striType/*t_15_string*/ o_811_aValue, const const_hashType/*t_45_*ANONYM_TYPE**/ o_812_aSet) { /* line 125 "../lib/hashsetof.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_812_aSet, (genericType)(o_811_aValue), ((o_811_aValue)->size==0 ? 0 : ((o_811_aValue)->mem[0]<<5 ^ (o_811_aValue)->mem[(o_811_aValue)->size>>1]<<3 ^ (o_811_aValue)->mem[(o_811_aValue)->size-1]<<1 ^ (o_811_aValue)->size)), (compareType)(o_792/*.*/))))); } /* line 1 "no_file" */ /* 414 */ /* line 132 "../lib/hashsetof.s7i" */ static void/*t_1_void*/ o_813_incl (hashType/*t_45_*ANONYM_TYPE**/ *const o_814_aSet, const const_striType/*t_15_string*/ o_815_aValue) { /* line 134 "../lib/hashsetof.s7i" */ hshIncl(*o_814_aSet, (genericType)(o_815_aValue), (genericType)(o_26_TRUE), ((o_815_aValue)->size==0 ? 0 : ((o_815_aValue)->mem[0]<<5 ^ (o_815_aValue)->mem[(o_815_aValue)->size>>1]<<3 ^ (o_815_aValue)->mem[(o_815_aValue)->size-1]<<1 ^ (o_815_aValue)->size)), (compareType)(o_792/*.*/), (createFuncType)(o_789/*.*/), (createFuncType)(o_793/*.*/), (copyFuncType)(o_795/*.*/)); } /* line 1 "no_file" */ /* 415 */ /* line 142 "../lib/hashsetof.s7i" */ static void/*t_1_void*/ o_816_excl (hashType/*t_45_*ANONYM_TYPE**/ *const o_817_aSet, const const_striType/*t_15_string*/ o_818_aValue) { /* line 144 "../lib/hashsetof.s7i" */ hshExcl(*o_817_aSet, (genericType)(o_818_aValue), ((o_818_aValue)->size==0 ? 0 : ((o_818_aValue)->mem[0]<<5 ^ (o_818_aValue)->mem[(o_818_aValue)->size>>1]<<3 ^ (o_818_aValue)->mem[(o_818_aValue)->size-1]<<1 ^ (o_818_aValue)->size)), (compareType)(o_792/*.*/), (destrFuncType)(o_790/*.*/), (destrFuncType)(o_794/*.*/)); } /* line 1 "no_file" */ /* 416 */ /* declare inline o_819_for*/ /* line 61 "../lib/hashsetof.s7i" */ static void destr_45 (const_hashType/*t_45_*ANONYM_TYPE**/ b) /* line 61 "../lib/hashsetof.s7i" */ { /* line 61 "../lib/hashsetof.s7i" */ hshDestr(b, (destrFuncType)(o_790/*.*/), (destrFuncType)(o_794/*.*/)); /* line 61 "../lib/hashsetof.s7i" */ } /* line 1 "no_file" */ /* line 163 "../lib/hashsetof.s7i" */ static hashType/*t_45_*ANONYM_TYPE**/ o_820/*|*/ (const const_hashType/*t_45_*ANONYM_TYPE**/ o_821_set1, const const_hashType/*t_45_*ANONYM_TYPE**/ o_822_set2) { /* line 165 "../lib/hashsetof.s7i" */ hashType/*t_45_*ANONYM_TYPE**/ o_823_union; /* line 167 "../lib/hashsetof.s7i" */ striType/*t_15_string*/ o_824_element; /* line 165 "../lib/hashsetof.s7i" */ o_823_union=hshEmpty(); /* line 167 "../lib/hashsetof.s7i" */ o_824_element=strEmpty(); /* "" */ /* line 169 "../lib/hashsetof.s7i" */ o_801/*:=*/(&(o_823_union), o_821_set1); /* inline proc o_819_for */ { /* inline params */ /* line 170 "../lib/hashsetof.s7i" */ striType/*t_15_string*/ *const o_825_variable=&(o_824_element); /* line 170 "../lib/hashsetof.s7i" */ const const_hashType/*t_45_*ANONYM_TYPE**/ o_826_aSet=o_822_set2; /* line 170 "../lib/hashsetof.s7i" */ /* push proc param o_827_statements */ /* line 170 "../lib/hashsetof.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 155 "../lib/hashsetof.s7i" */ const_hashType hash_1=o_826_aSet; /* line 155 "../lib/hashsetof.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 155 "../lib/hashsetof.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 155 "../lib/hashsetof.s7i" */ const_hashElemType helem_4; /* line 155 "../lib/hashsetof.s7i" */ hashElemListType stack_5=NULL; /* line 155 "../lib/hashsetof.s7i" */ while (counter_2 > 0) { /* line 155 "../lib/hashsetof.s7i" */ helem_4=*table_elem_3; /* line 155 "../lib/hashsetof.s7i" */ while (helem_4 != NULL) { /* line 155 "../lib/hashsetof.s7i" */ if (helem_4->next_greater != NULL) { /* line 155 "../lib/hashsetof.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ strCopy(&((*o_825_variable)), helem_4->key.value.striValue); /* closure o_827_statements*/ { /* line 171 "../lib/hashsetof.s7i" */ o_813_incl(&(o_823_union), o_824_element); } /* closure o_827_statements*/ /* line 155 "../lib/hashsetof.s7i" */ if (helem_4->next_less != NULL) { /* line 155 "../lib/hashsetof.s7i" */ helem_4=helem_4->next_less; /* line 155 "../lib/hashsetof.s7i" */ } else { /* line 155 "../lib/hashsetof.s7i" */ pop_stack(stack_5, helem_4); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ counter_2--; /* line 155 "../lib/hashsetof.s7i" */ table_elem_3++; /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ } /* hsh_for */ /* pop proc param o_827_statements */ } /* inline proc o_819_for */ /* line 163 "../lib/hashsetof.s7i" */ strDestr(o_824_element); return o_823_union; } /* line 1 "no_file" */ /* 417 */ /* line 180 "../lib/hashsetof.s7i" */ static hashType/*t_45_*ANONYM_TYPE**/ o_828/*&*/ (const const_hashType/*t_45_*ANONYM_TYPE**/ o_829_set1, const const_hashType/*t_45_*ANONYM_TYPE**/ o_830_set2) { /* line 182 "../lib/hashsetof.s7i" */ hashType/*t_45_*ANONYM_TYPE**/ o_831_intersection; /* line 184 "../lib/hashsetof.s7i" */ striType/*t_15_string*/ o_832_element; /* line 182 "../lib/hashsetof.s7i" */ o_831_intersection=hshEmpty(); /* line 184 "../lib/hashsetof.s7i" */ o_832_element=strEmpty(); /* "" */ /* inline proc o_819_for */ { /* inline params */ /* line 186 "../lib/hashsetof.s7i" */ striType/*t_15_string*/ *const o_825_variable=&(o_832_element); /* line 186 "../lib/hashsetof.s7i" */ const const_hashType/*t_45_*ANONYM_TYPE**/ o_826_aSet=o_829_set1; /* line 186 "../lib/hashsetof.s7i" */ /* push proc param o_827_statements */ /* line 186 "../lib/hashsetof.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 155 "../lib/hashsetof.s7i" */ const_hashType hash_1=o_826_aSet; /* line 155 "../lib/hashsetof.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 155 "../lib/hashsetof.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 155 "../lib/hashsetof.s7i" */ const_hashElemType helem_4; /* line 155 "../lib/hashsetof.s7i" */ hashElemListType stack_5=NULL; /* line 155 "../lib/hashsetof.s7i" */ while (counter_2 > 0) { /* line 155 "../lib/hashsetof.s7i" */ helem_4=*table_elem_3; /* line 155 "../lib/hashsetof.s7i" */ while (helem_4 != NULL) { /* line 155 "../lib/hashsetof.s7i" */ if (helem_4->next_greater != NULL) { /* line 155 "../lib/hashsetof.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ strCopy(&((*o_825_variable)), helem_4->key.value.striValue); /* closure o_827_statements*/ { /* line 187 "../lib/hashsetof.s7i" */ if (o_807_in(o_832_element, o_830_set2)) { /* line 188 "../lib/hashsetof.s7i" */ o_813_incl(&(o_831_intersection), o_832_element); } } /* closure o_827_statements*/ /* line 155 "../lib/hashsetof.s7i" */ if (helem_4->next_less != NULL) { /* line 155 "../lib/hashsetof.s7i" */ helem_4=helem_4->next_less; /* line 155 "../lib/hashsetof.s7i" */ } else { /* line 155 "../lib/hashsetof.s7i" */ pop_stack(stack_5, helem_4); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ counter_2--; /* line 155 "../lib/hashsetof.s7i" */ table_elem_3++; /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ } /* hsh_for */ /* pop proc param o_827_statements */ } /* inline proc o_819_for */ /* line 180 "../lib/hashsetof.s7i" */ strDestr(o_832_element); return o_831_intersection; } /* line 1 "no_file" */ /* 418 */ /* line 198 "../lib/hashsetof.s7i" */ static hashType/*t_45_*ANONYM_TYPE**/ o_833/*><*/ (const const_hashType/*t_45_*ANONYM_TYPE**/ o_834_set1, const const_hashType/*t_45_*ANONYM_TYPE**/ o_835_set2) { /* line 200 "../lib/hashsetof.s7i" */ hashType/*t_45_*ANONYM_TYPE**/ o_836_difference; /* line 202 "../lib/hashsetof.s7i" */ striType/*t_15_string*/ o_837_element; /* line 200 "../lib/hashsetof.s7i" */ o_836_difference=hshEmpty(); /* line 202 "../lib/hashsetof.s7i" */ o_837_element=strEmpty(); /* "" */ /* inline proc o_819_for */ { /* inline params */ /* line 204 "../lib/hashsetof.s7i" */ striType/*t_15_string*/ *const o_825_variable=&(o_837_element); /* line 204 "../lib/hashsetof.s7i" */ const const_hashType/*t_45_*ANONYM_TYPE**/ o_826_aSet=o_834_set1; /* line 204 "../lib/hashsetof.s7i" */ /* push proc param o_827_statements */ /* line 204 "../lib/hashsetof.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 155 "../lib/hashsetof.s7i" */ const_hashType hash_1=o_826_aSet; /* line 155 "../lib/hashsetof.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 155 "../lib/hashsetof.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 155 "../lib/hashsetof.s7i" */ const_hashElemType helem_4; /* line 155 "../lib/hashsetof.s7i" */ hashElemListType stack_5=NULL; /* line 155 "../lib/hashsetof.s7i" */ while (counter_2 > 0) { /* line 155 "../lib/hashsetof.s7i" */ helem_4=*table_elem_3; /* line 155 "../lib/hashsetof.s7i" */ while (helem_4 != NULL) { /* line 155 "../lib/hashsetof.s7i" */ if (helem_4->next_greater != NULL) { /* line 155 "../lib/hashsetof.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ strCopy(&((*o_825_variable)), helem_4->key.value.striValue); /* closure o_827_statements*/ { /* line 205 "../lib/hashsetof.s7i" */ if (o_810_not(o_837_element, o_835_set2)) { /* line 206 "../lib/hashsetof.s7i" */ o_813_incl(&(o_836_difference), o_837_element); } } /* closure o_827_statements*/ /* line 155 "../lib/hashsetof.s7i" */ if (helem_4->next_less != NULL) { /* line 155 "../lib/hashsetof.s7i" */ helem_4=helem_4->next_less; /* line 155 "../lib/hashsetof.s7i" */ } else { /* line 155 "../lib/hashsetof.s7i" */ pop_stack(stack_5, helem_4); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ counter_2--; /* line 155 "../lib/hashsetof.s7i" */ table_elem_3++; /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ } /* hsh_for */ /* pop proc param o_827_statements */ } /* inline proc o_819_for */ /* inline proc o_819_for */ { /* inline params */ /* line 209 "../lib/hashsetof.s7i" */ striType/*t_15_string*/ *const o_825_variable=&(o_837_element); /* line 209 "../lib/hashsetof.s7i" */ const const_hashType/*t_45_*ANONYM_TYPE**/ o_826_aSet=o_835_set2; /* line 209 "../lib/hashsetof.s7i" */ /* push proc param o_827_statements */ /* line 209 "../lib/hashsetof.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 155 "../lib/hashsetof.s7i" */ const_hashType hash_6=o_826_aSet; /* line 155 "../lib/hashsetof.s7i" */ memSizeType counter_7=hash_6->table_size; /* line 155 "../lib/hashsetof.s7i" */ hashElemType_const *table_elem_8=&hash_6->table[0]; /* line 155 "../lib/hashsetof.s7i" */ const_hashElemType helem_9; /* line 155 "../lib/hashsetof.s7i" */ hashElemListType stack_10=NULL; /* line 155 "../lib/hashsetof.s7i" */ while (counter_7 > 0) { /* line 155 "../lib/hashsetof.s7i" */ helem_9=*table_elem_8; /* line 155 "../lib/hashsetof.s7i" */ while (helem_9 != NULL) { /* line 155 "../lib/hashsetof.s7i" */ if (helem_9->next_greater != NULL) { /* line 155 "../lib/hashsetof.s7i" */ push_stack(stack_10, helem_9->next_greater); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ strCopy(&((*o_825_variable)), helem_9->key.value.striValue); /* closure o_827_statements*/ { /* line 210 "../lib/hashsetof.s7i" */ if (o_810_not(o_837_element, o_834_set1)) { /* line 211 "../lib/hashsetof.s7i" */ o_813_incl(&(o_836_difference), o_837_element); } } /* closure o_827_statements*/ /* line 155 "../lib/hashsetof.s7i" */ if (helem_9->next_less != NULL) { /* line 155 "../lib/hashsetof.s7i" */ helem_9=helem_9->next_less; /* line 155 "../lib/hashsetof.s7i" */ } else { /* line 155 "../lib/hashsetof.s7i" */ pop_stack(stack_10, helem_9); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ counter_7--; /* line 155 "../lib/hashsetof.s7i" */ table_elem_8++; /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ } /* hsh_for */ /* pop proc param o_827_statements */ } /* inline proc o_819_for */ /* line 198 "../lib/hashsetof.s7i" */ strDestr(o_837_element); return o_836_difference; } /* line 1 "no_file" */ /* 419 */ /* line 221 "../lib/hashsetof.s7i" */ static hashType/*t_45_*ANONYM_TYPE**/ o_838/*-*/ (const const_hashType/*t_45_*ANONYM_TYPE**/ o_839_set1, const const_hashType/*t_45_*ANONYM_TYPE**/ o_840_set2) { /* line 223 "../lib/hashsetof.s7i" */ hashType/*t_45_*ANONYM_TYPE**/ o_841_difference; /* line 225 "../lib/hashsetof.s7i" */ striType/*t_15_string*/ o_842_element; /* line 223 "../lib/hashsetof.s7i" */ o_841_difference=hshEmpty(); /* line 225 "../lib/hashsetof.s7i" */ o_842_element=strEmpty(); /* "" */ /* line 227 "../lib/hashsetof.s7i" */ o_801/*:=*/(&(o_841_difference), o_839_set1); /* inline proc o_819_for */ { /* inline params */ /* line 228 "../lib/hashsetof.s7i" */ striType/*t_15_string*/ *const o_825_variable=&(o_842_element); /* line 228 "../lib/hashsetof.s7i" */ const const_hashType/*t_45_*ANONYM_TYPE**/ o_826_aSet=o_840_set2; /* line 228 "../lib/hashsetof.s7i" */ /* push proc param o_827_statements */ /* line 228 "../lib/hashsetof.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 155 "../lib/hashsetof.s7i" */ const_hashType hash_1=o_826_aSet; /* line 155 "../lib/hashsetof.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 155 "../lib/hashsetof.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 155 "../lib/hashsetof.s7i" */ const_hashElemType helem_4; /* line 155 "../lib/hashsetof.s7i" */ hashElemListType stack_5=NULL; /* line 155 "../lib/hashsetof.s7i" */ while (counter_2 > 0) { /* line 155 "../lib/hashsetof.s7i" */ helem_4=*table_elem_3; /* line 155 "../lib/hashsetof.s7i" */ while (helem_4 != NULL) { /* line 155 "../lib/hashsetof.s7i" */ if (helem_4->next_greater != NULL) { /* line 155 "../lib/hashsetof.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ strCopy(&((*o_825_variable)), helem_4->key.value.striValue); /* closure o_827_statements*/ { /* line 229 "../lib/hashsetof.s7i" */ o_816_excl(&(o_841_difference), o_842_element); } /* closure o_827_statements*/ /* line 155 "../lib/hashsetof.s7i" */ if (helem_4->next_less != NULL) { /* line 155 "../lib/hashsetof.s7i" */ helem_4=helem_4->next_less; /* line 155 "../lib/hashsetof.s7i" */ } else { /* line 155 "../lib/hashsetof.s7i" */ pop_stack(stack_5, helem_4); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ counter_2--; /* line 155 "../lib/hashsetof.s7i" */ table_elem_3++; /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ } /* hsh_for */ /* pop proc param o_827_statements */ } /* inline proc o_819_for */ /* line 221 "../lib/hashsetof.s7i" */ strDestr(o_842_element); return o_841_difference; } /* line 1 "no_file" */ /* 420 */ /* line 238 "../lib/hashsetof.s7i" */ static boolType/*t_13_boolean*/ o_843/*=*/ (const const_hashType/*t_45_*ANONYM_TYPE**/ o_844_set1, const const_hashType/*t_45_*ANONYM_TYPE**/ o_845_set2) { /* line 240 "../lib/hashsetof.s7i" */ boolType/*t_13_boolean*/ o_846_isEqual=o_26_TRUE; /* line 242 "../lib/hashsetof.s7i" */ striType/*t_15_string*/ o_847_element; /* line 242 "../lib/hashsetof.s7i" */ o_847_element=strEmpty(); /* "" */ /* inline proc o_819_for */ { /* inline params */ /* line 244 "../lib/hashsetof.s7i" */ striType/*t_15_string*/ *const o_825_variable=&(o_847_element); /* line 244 "../lib/hashsetof.s7i" */ const const_hashType/*t_45_*ANONYM_TYPE**/ o_826_aSet=o_844_set1; /* line 244 "../lib/hashsetof.s7i" */ /* push proc param o_827_statements */ /* line 244 "../lib/hashsetof.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 155 "../lib/hashsetof.s7i" */ const_hashType hash_1=o_826_aSet; /* line 155 "../lib/hashsetof.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 155 "../lib/hashsetof.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 155 "../lib/hashsetof.s7i" */ const_hashElemType helem_4; /* line 155 "../lib/hashsetof.s7i" */ hashElemListType stack_5=NULL; /* line 155 "../lib/hashsetof.s7i" */ while (counter_2 > 0) { /* line 155 "../lib/hashsetof.s7i" */ helem_4=*table_elem_3; /* line 155 "../lib/hashsetof.s7i" */ while (helem_4 != NULL) { /* line 155 "../lib/hashsetof.s7i" */ if (helem_4->next_greater != NULL) { /* line 155 "../lib/hashsetof.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ strCopy(&((*o_825_variable)), helem_4->key.value.striValue); /* closure o_827_statements*/ { /* line 245 "../lib/hashsetof.s7i" */ if (o_810_not(o_847_element, o_845_set2)) { /* line 246 "../lib/hashsetof.s7i" */ o_846_isEqual=o_25_FALSE; } } /* closure o_827_statements*/ /* line 155 "../lib/hashsetof.s7i" */ if (helem_4->next_less != NULL) { /* line 155 "../lib/hashsetof.s7i" */ helem_4=helem_4->next_less; /* line 155 "../lib/hashsetof.s7i" */ } else { /* line 155 "../lib/hashsetof.s7i" */ pop_stack(stack_5, helem_4); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ counter_2--; /* line 155 "../lib/hashsetof.s7i" */ table_elem_3++; /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ } /* hsh_for */ /* pop proc param o_827_statements */ } /* inline proc o_819_for */ /* inline proc o_819_for */ { /* inline params */ /* line 249 "../lib/hashsetof.s7i" */ striType/*t_15_string*/ *const o_825_variable=&(o_847_element); /* line 249 "../lib/hashsetof.s7i" */ const const_hashType/*t_45_*ANONYM_TYPE**/ o_826_aSet=o_845_set2; /* line 249 "../lib/hashsetof.s7i" */ /* push proc param o_827_statements */ /* line 249 "../lib/hashsetof.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 155 "../lib/hashsetof.s7i" */ const_hashType hash_6=o_826_aSet; /* line 155 "../lib/hashsetof.s7i" */ memSizeType counter_7=hash_6->table_size; /* line 155 "../lib/hashsetof.s7i" */ hashElemType_const *table_elem_8=&hash_6->table[0]; /* line 155 "../lib/hashsetof.s7i" */ const_hashElemType helem_9; /* line 155 "../lib/hashsetof.s7i" */ hashElemListType stack_10=NULL; /* line 155 "../lib/hashsetof.s7i" */ while (counter_7 > 0) { /* line 155 "../lib/hashsetof.s7i" */ helem_9=*table_elem_8; /* line 155 "../lib/hashsetof.s7i" */ while (helem_9 != NULL) { /* line 155 "../lib/hashsetof.s7i" */ if (helem_9->next_greater != NULL) { /* line 155 "../lib/hashsetof.s7i" */ push_stack(stack_10, helem_9->next_greater); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ strCopy(&((*o_825_variable)), helem_9->key.value.striValue); /* closure o_827_statements*/ { /* line 250 "../lib/hashsetof.s7i" */ if (o_810_not(o_847_element, o_844_set1)) { /* line 251 "../lib/hashsetof.s7i" */ o_846_isEqual=o_25_FALSE; } } /* closure o_827_statements*/ /* line 155 "../lib/hashsetof.s7i" */ if (helem_9->next_less != NULL) { /* line 155 "../lib/hashsetof.s7i" */ helem_9=helem_9->next_less; /* line 155 "../lib/hashsetof.s7i" */ } else { /* line 155 "../lib/hashsetof.s7i" */ pop_stack(stack_10, helem_9); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ counter_7--; /* line 155 "../lib/hashsetof.s7i" */ table_elem_8++; /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ } /* hsh_for */ /* pop proc param o_827_statements */ } /* inline proc o_819_for */ /* line 238 "../lib/hashsetof.s7i" */ strDestr(o_847_element); return o_846_isEqual; } /* line 1 "no_file" */ /* 421 */ /* line 261 "../lib/hashsetof.s7i" */ static boolType/*t_13_boolean*/ o_848/*<>*/ (const const_hashType/*t_45_*ANONYM_TYPE**/ o_849_set1, const const_hashType/*t_45_*ANONYM_TYPE**/ o_850_set2) { /* line 262 "../lib/hashsetof.s7i" */ return (boolType/*t_13_boolean*/)((!(o_843/*=*/(o_849_set1, o_850_set2)))); } /* line 1 "no_file" */ /* 422 */ /* line 272 "../lib/hashsetof.s7i" */ static boolType/*t_13_boolean*/ o_851/*<*/ (const const_hashType/*t_45_*ANONYM_TYPE**/ o_852_set1, const const_hashType/*t_45_*ANONYM_TYPE**/ o_853_set2) { /* line 274 "../lib/hashsetof.s7i" */ boolType/*t_13_boolean*/ o_854_isProperSubset=o_26_TRUE; /* line 276 "../lib/hashsetof.s7i" */ striType/*t_15_string*/ o_855_element; /* line 277 "../lib/hashsetof.s7i" */ boolType/*t_13_boolean*/ o_856_isEqual=1/*TRUE*/; /* line 276 "../lib/hashsetof.s7i" */ o_855_element=strEmpty(); /* "" */ /* inline proc o_819_for */ { /* inline params */ /* line 279 "../lib/hashsetof.s7i" */ striType/*t_15_string*/ *const o_825_variable=&(o_855_element); /* line 279 "../lib/hashsetof.s7i" */ const const_hashType/*t_45_*ANONYM_TYPE**/ o_826_aSet=o_852_set1; /* line 279 "../lib/hashsetof.s7i" */ /* push proc param o_827_statements */ /* line 279 "../lib/hashsetof.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 155 "../lib/hashsetof.s7i" */ const_hashType hash_1=o_826_aSet; /* line 155 "../lib/hashsetof.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 155 "../lib/hashsetof.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 155 "../lib/hashsetof.s7i" */ const_hashElemType helem_4; /* line 155 "../lib/hashsetof.s7i" */ hashElemListType stack_5=NULL; /* line 155 "../lib/hashsetof.s7i" */ while (counter_2 > 0) { /* line 155 "../lib/hashsetof.s7i" */ helem_4=*table_elem_3; /* line 155 "../lib/hashsetof.s7i" */ while (helem_4 != NULL) { /* line 155 "../lib/hashsetof.s7i" */ if (helem_4->next_greater != NULL) { /* line 155 "../lib/hashsetof.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ strCopy(&((*o_825_variable)), helem_4->key.value.striValue); /* closure o_827_statements*/ { /* line 280 "../lib/hashsetof.s7i" */ if (o_810_not(o_855_element, o_853_set2)) { /* line 281 "../lib/hashsetof.s7i" */ o_854_isProperSubset=o_25_FALSE; } } /* closure o_827_statements*/ /* line 155 "../lib/hashsetof.s7i" */ if (helem_4->next_less != NULL) { /* line 155 "../lib/hashsetof.s7i" */ helem_4=helem_4->next_less; /* line 155 "../lib/hashsetof.s7i" */ } else { /* line 155 "../lib/hashsetof.s7i" */ pop_stack(stack_5, helem_4); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ counter_2--; /* line 155 "../lib/hashsetof.s7i" */ table_elem_3++; /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ } /* hsh_for */ /* pop proc param o_827_statements */ } /* inline proc o_819_for */ /* inline proc o_819_for */ { /* inline params */ /* line 284 "../lib/hashsetof.s7i" */ striType/*t_15_string*/ *const o_825_variable=&(o_855_element); /* line 284 "../lib/hashsetof.s7i" */ const const_hashType/*t_45_*ANONYM_TYPE**/ o_826_aSet=o_853_set2; /* line 284 "../lib/hashsetof.s7i" */ /* push proc param o_827_statements */ /* line 284 "../lib/hashsetof.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 155 "../lib/hashsetof.s7i" */ const_hashType hash_6=o_826_aSet; /* line 155 "../lib/hashsetof.s7i" */ memSizeType counter_7=hash_6->table_size; /* line 155 "../lib/hashsetof.s7i" */ hashElemType_const *table_elem_8=&hash_6->table[0]; /* line 155 "../lib/hashsetof.s7i" */ const_hashElemType helem_9; /* line 155 "../lib/hashsetof.s7i" */ hashElemListType stack_10=NULL; /* line 155 "../lib/hashsetof.s7i" */ while (counter_7 > 0) { /* line 155 "../lib/hashsetof.s7i" */ helem_9=*table_elem_8; /* line 155 "../lib/hashsetof.s7i" */ while (helem_9 != NULL) { /* line 155 "../lib/hashsetof.s7i" */ if (helem_9->next_greater != NULL) { /* line 155 "../lib/hashsetof.s7i" */ push_stack(stack_10, helem_9->next_greater); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ strCopy(&((*o_825_variable)), helem_9->key.value.striValue); /* closure o_827_statements*/ { /* line 285 "../lib/hashsetof.s7i" */ if (o_810_not(o_855_element, o_852_set1)) { /* line 286 "../lib/hashsetof.s7i" */ o_856_isEqual=o_25_FALSE; } } /* closure o_827_statements*/ /* line 155 "../lib/hashsetof.s7i" */ if (helem_9->next_less != NULL) { /* line 155 "../lib/hashsetof.s7i" */ helem_9=helem_9->next_less; /* line 155 "../lib/hashsetof.s7i" */ } else { /* line 155 "../lib/hashsetof.s7i" */ pop_stack(stack_10, helem_9); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ counter_7--; /* line 155 "../lib/hashsetof.s7i" */ table_elem_8++; /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ } /* hsh_for */ /* pop proc param o_827_statements */ } /* inline proc o_819_for */ /* line 289 "../lib/hashsetof.s7i" */ o_854_isProperSubset=(o_854_isProperSubset) && /* line 289 "../lib/hashsetof.s7i" */ /* line 289 "../lib/hashsetof.s7i" */ /* line 289 "../lib/hashsetof.s7i" */ (!(o_856_isEqual)); /* line 272 "../lib/hashsetof.s7i" */ strDestr(o_855_element); return o_854_isProperSubset; } /* line 1 "no_file" */ /* 423 */ /* line 300 "../lib/hashsetof.s7i" */ static boolType/*t_13_boolean*/ o_857/*>*/ (const const_hashType/*t_45_*ANONYM_TYPE**/ o_858_set1, const const_hashType/*t_45_*ANONYM_TYPE**/ o_859_set2) { /* line 302 "../lib/hashsetof.s7i" */ boolType/*t_13_boolean*/ o_860_isProperSuperset=o_26_TRUE; /* line 304 "../lib/hashsetof.s7i" */ striType/*t_15_string*/ o_861_element; /* line 305 "../lib/hashsetof.s7i" */ boolType/*t_13_boolean*/ o_862_isEqual=1/*TRUE*/; /* line 304 "../lib/hashsetof.s7i" */ o_861_element=strEmpty(); /* "" */ /* inline proc o_819_for */ { /* inline params */ /* line 307 "../lib/hashsetof.s7i" */ striType/*t_15_string*/ *const o_825_variable=&(o_861_element); /* line 307 "../lib/hashsetof.s7i" */ const const_hashType/*t_45_*ANONYM_TYPE**/ o_826_aSet=o_859_set2; /* line 307 "../lib/hashsetof.s7i" */ /* push proc param o_827_statements */ /* line 307 "../lib/hashsetof.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 155 "../lib/hashsetof.s7i" */ const_hashType hash_1=o_826_aSet; /* line 155 "../lib/hashsetof.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 155 "../lib/hashsetof.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 155 "../lib/hashsetof.s7i" */ const_hashElemType helem_4; /* line 155 "../lib/hashsetof.s7i" */ hashElemListType stack_5=NULL; /* line 155 "../lib/hashsetof.s7i" */ while (counter_2 > 0) { /* line 155 "../lib/hashsetof.s7i" */ helem_4=*table_elem_3; /* line 155 "../lib/hashsetof.s7i" */ while (helem_4 != NULL) { /* line 155 "../lib/hashsetof.s7i" */ if (helem_4->next_greater != NULL) { /* line 155 "../lib/hashsetof.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ strCopy(&((*o_825_variable)), helem_4->key.value.striValue); /* closure o_827_statements*/ { /* line 308 "../lib/hashsetof.s7i" */ if (o_810_not(o_861_element, o_858_set1)) { /* line 309 "../lib/hashsetof.s7i" */ o_860_isProperSuperset=o_25_FALSE; } } /* closure o_827_statements*/ /* line 155 "../lib/hashsetof.s7i" */ if (helem_4->next_less != NULL) { /* line 155 "../lib/hashsetof.s7i" */ helem_4=helem_4->next_less; /* line 155 "../lib/hashsetof.s7i" */ } else { /* line 155 "../lib/hashsetof.s7i" */ pop_stack(stack_5, helem_4); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ counter_2--; /* line 155 "../lib/hashsetof.s7i" */ table_elem_3++; /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ } /* hsh_for */ /* pop proc param o_827_statements */ } /* inline proc o_819_for */ /* inline proc o_819_for */ { /* inline params */ /* line 312 "../lib/hashsetof.s7i" */ striType/*t_15_string*/ *const o_825_variable=&(o_861_element); /* line 312 "../lib/hashsetof.s7i" */ const const_hashType/*t_45_*ANONYM_TYPE**/ o_826_aSet=o_858_set1; /* line 312 "../lib/hashsetof.s7i" */ /* push proc param o_827_statements */ /* line 312 "../lib/hashsetof.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 155 "../lib/hashsetof.s7i" */ const_hashType hash_6=o_826_aSet; /* line 155 "../lib/hashsetof.s7i" */ memSizeType counter_7=hash_6->table_size; /* line 155 "../lib/hashsetof.s7i" */ hashElemType_const *table_elem_8=&hash_6->table[0]; /* line 155 "../lib/hashsetof.s7i" */ const_hashElemType helem_9; /* line 155 "../lib/hashsetof.s7i" */ hashElemListType stack_10=NULL; /* line 155 "../lib/hashsetof.s7i" */ while (counter_7 > 0) { /* line 155 "../lib/hashsetof.s7i" */ helem_9=*table_elem_8; /* line 155 "../lib/hashsetof.s7i" */ while (helem_9 != NULL) { /* line 155 "../lib/hashsetof.s7i" */ if (helem_9->next_greater != NULL) { /* line 155 "../lib/hashsetof.s7i" */ push_stack(stack_10, helem_9->next_greater); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ strCopy(&((*o_825_variable)), helem_9->key.value.striValue); /* closure o_827_statements*/ { /* line 313 "../lib/hashsetof.s7i" */ if (o_810_not(o_861_element, o_859_set2)) { /* line 314 "../lib/hashsetof.s7i" */ o_862_isEqual=o_25_FALSE; } } /* closure o_827_statements*/ /* line 155 "../lib/hashsetof.s7i" */ if (helem_9->next_less != NULL) { /* line 155 "../lib/hashsetof.s7i" */ helem_9=helem_9->next_less; /* line 155 "../lib/hashsetof.s7i" */ } else { /* line 155 "../lib/hashsetof.s7i" */ pop_stack(stack_10, helem_9); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ counter_7--; /* line 155 "../lib/hashsetof.s7i" */ table_elem_8++; /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ } /* hsh_for */ /* pop proc param o_827_statements */ } /* inline proc o_819_for */ /* line 317 "../lib/hashsetof.s7i" */ o_860_isProperSuperset=(o_860_isProperSuperset) && /* line 317 "../lib/hashsetof.s7i" */ /* line 317 "../lib/hashsetof.s7i" */ /* line 317 "../lib/hashsetof.s7i" */ (!(o_862_isEqual)); /* line 300 "../lib/hashsetof.s7i" */ strDestr(o_861_element); return o_860_isProperSuperset; } /* line 1 "no_file" */ /* 424 */ /* line 328 "../lib/hashsetof.s7i" */ static boolType/*t_13_boolean*/ o_863/*<=*/ (const const_hashType/*t_45_*ANONYM_TYPE**/ o_864_set1, const const_hashType/*t_45_*ANONYM_TYPE**/ o_865_set2) { /* line 330 "../lib/hashsetof.s7i" */ boolType/*t_13_boolean*/ o_866_isSubset=o_26_TRUE; /* line 332 "../lib/hashsetof.s7i" */ striType/*t_15_string*/ o_867_element; /* line 332 "../lib/hashsetof.s7i" */ o_867_element=strEmpty(); /* "" */ /* inline proc o_819_for */ { /* inline params */ /* line 334 "../lib/hashsetof.s7i" */ striType/*t_15_string*/ *const o_825_variable=&(o_867_element); /* line 334 "../lib/hashsetof.s7i" */ const const_hashType/*t_45_*ANONYM_TYPE**/ o_826_aSet=o_864_set1; /* line 334 "../lib/hashsetof.s7i" */ /* push proc param o_827_statements */ /* line 334 "../lib/hashsetof.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 155 "../lib/hashsetof.s7i" */ const_hashType hash_1=o_826_aSet; /* line 155 "../lib/hashsetof.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 155 "../lib/hashsetof.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 155 "../lib/hashsetof.s7i" */ const_hashElemType helem_4; /* line 155 "../lib/hashsetof.s7i" */ hashElemListType stack_5=NULL; /* line 155 "../lib/hashsetof.s7i" */ while (counter_2 > 0) { /* line 155 "../lib/hashsetof.s7i" */ helem_4=*table_elem_3; /* line 155 "../lib/hashsetof.s7i" */ while (helem_4 != NULL) { /* line 155 "../lib/hashsetof.s7i" */ if (helem_4->next_greater != NULL) { /* line 155 "../lib/hashsetof.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ strCopy(&((*o_825_variable)), helem_4->key.value.striValue); /* closure o_827_statements*/ { /* line 335 "../lib/hashsetof.s7i" */ if (o_810_not(o_867_element, o_865_set2)) { /* line 336 "../lib/hashsetof.s7i" */ o_866_isSubset=o_25_FALSE; } } /* closure o_827_statements*/ /* line 155 "../lib/hashsetof.s7i" */ if (helem_4->next_less != NULL) { /* line 155 "../lib/hashsetof.s7i" */ helem_4=helem_4->next_less; /* line 155 "../lib/hashsetof.s7i" */ } else { /* line 155 "../lib/hashsetof.s7i" */ pop_stack(stack_5, helem_4); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ counter_2--; /* line 155 "../lib/hashsetof.s7i" */ table_elem_3++; /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ } /* hsh_for */ /* pop proc param o_827_statements */ } /* inline proc o_819_for */ /* line 328 "../lib/hashsetof.s7i" */ strDestr(o_867_element); return o_866_isSubset; } /* line 1 "no_file" */ /* 425 */ /* line 349 "../lib/hashsetof.s7i" */ static boolType/*t_13_boolean*/ o_868/*>=*/ (const const_hashType/*t_45_*ANONYM_TYPE**/ o_869_set1, const const_hashType/*t_45_*ANONYM_TYPE**/ o_870_set2) { /* line 351 "../lib/hashsetof.s7i" */ boolType/*t_13_boolean*/ o_871_isSuperset=o_26_TRUE; /* line 353 "../lib/hashsetof.s7i" */ striType/*t_15_string*/ o_872_element; /* line 353 "../lib/hashsetof.s7i" */ o_872_element=strEmpty(); /* "" */ /* inline proc o_819_for */ { /* inline params */ /* line 355 "../lib/hashsetof.s7i" */ striType/*t_15_string*/ *const o_825_variable=&(o_872_element); /* line 355 "../lib/hashsetof.s7i" */ const const_hashType/*t_45_*ANONYM_TYPE**/ o_826_aSet=o_870_set2; /* line 355 "../lib/hashsetof.s7i" */ /* push proc param o_827_statements */ /* line 355 "../lib/hashsetof.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 155 "../lib/hashsetof.s7i" */ const_hashType hash_1=o_826_aSet; /* line 155 "../lib/hashsetof.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 155 "../lib/hashsetof.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 155 "../lib/hashsetof.s7i" */ const_hashElemType helem_4; /* line 155 "../lib/hashsetof.s7i" */ hashElemListType stack_5=NULL; /* line 155 "../lib/hashsetof.s7i" */ while (counter_2 > 0) { /* line 155 "../lib/hashsetof.s7i" */ helem_4=*table_elem_3; /* line 155 "../lib/hashsetof.s7i" */ while (helem_4 != NULL) { /* line 155 "../lib/hashsetof.s7i" */ if (helem_4->next_greater != NULL) { /* line 155 "../lib/hashsetof.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ strCopy(&((*o_825_variable)), helem_4->key.value.striValue); /* closure o_827_statements*/ { /* line 356 "../lib/hashsetof.s7i" */ if (o_810_not(o_872_element, o_869_set1)) { /* line 357 "../lib/hashsetof.s7i" */ o_871_isSuperset=o_25_FALSE; } } /* closure o_827_statements*/ /* line 155 "../lib/hashsetof.s7i" */ if (helem_4->next_less != NULL) { /* line 155 "../lib/hashsetof.s7i" */ helem_4=helem_4->next_less; /* line 155 "../lib/hashsetof.s7i" */ } else { /* line 155 "../lib/hashsetof.s7i" */ pop_stack(stack_5, helem_4); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ counter_2--; /* line 155 "../lib/hashsetof.s7i" */ table_elem_3++; /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ } /* hsh_for */ /* pop proc param o_827_statements */ } /* inline proc o_819_for */ /* line 349 "../lib/hashsetof.s7i" */ strDestr(o_872_element); return o_871_isSuperset; } /* line 1 "no_file" */ /* 426 */ /* line 362 "../lib/hashsetof.s7i" */ static hashType/*t_45_*ANONYM_TYPE**/ o_873/*{*/ (const const_striType/*t_15_string*/ o_874_value) { /* line 364 "../lib/hashsetof.s7i" */ hashType/*t_45_*ANONYM_TYPE**/ o_875_aSet; /* line 364 "../lib/hashsetof.s7i" */ o_875_aSet=hshEmpty(); /* line 366 "../lib/hashsetof.s7i" */ o_813_incl(&(o_875_aSet), o_874_value); return o_875_aSet; } /* line 1 "no_file" */ /* 427 */ /* line 372 "../lib/hashsetof.s7i" */ static hashType/*t_45_*ANONYM_TYPE**/ o_876/*{*/ (const const_arrayType/*t_29_*ANONYM_TYPE**/ o_877_value) { /* line 374 "../lib/hashsetof.s7i" */ hashType/*t_45_*ANONYM_TYPE**/ o_878_aSet; /* line 376 "../lib/hashsetof.s7i" */ intType/*t_14_integer*/ o_879_number=0; /* line 374 "../lib/hashsetof.s7i" */ o_878_aSet=hshEmpty(); { /* line 378 "../lib/hashsetof.s7i" */ const_arrayType tmp_1; /* line 378 "../lib/hashsetof.s7i" */ intType tmp_e_2=(tmp_1=/*arrArrlit()*/o_877_value,tmp_1->max_position - tmp_1->min_position + 1); /* line 378 "../lib/hashsetof.s7i" */ for (o_879_number=1L; o_879_number<=tmp_e_2; (o_879_number)++) { { /* line 379 "../lib/hashsetof.s7i" */ const_arrayType tmp_1; /* line 379 "../lib/hashsetof.s7i" */ o_813_incl(&(o_878_aSet), (*(tmp_1=/*arrArrlit()*/o_877_value, &tmp_1->arr[(idxChk((o_879_number) < tmp_1->min_position || (o_879_number) > tmp_1->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_879_number)-tmp_1->min_position)].value.striValue))); } } } return o_878_aSet; } /* line 1 "no_file" */ /* 428 */ /* line 389 "../lib/hashsetof.s7i" */ static striType/*t_15_string*/ o_880_str (const const_hashType/*t_45_*ANONYM_TYPE**/ o_881_aSet) { /* line 391 "../lib/hashsetof.s7i" */ striType/*t_15_string*/ o_882_stri; /* line 393 "../lib/hashsetof.s7i" */ striType/*t_15_string*/ o_883_setElement; /* line 391 "../lib/hashsetof.s7i" */ o_882_stri=chrStr((charType) '{'); /* "{" */ /* line 393 "../lib/hashsetof.s7i" */ o_883_setElement=strEmpty(); /* "" */ /* inline proc o_819_for */ { /* inline params */ /* line 395 "../lib/hashsetof.s7i" */ striType/*t_15_string*/ *const o_825_variable=&(o_883_setElement); /* line 395 "../lib/hashsetof.s7i" */ const const_hashType/*t_45_*ANONYM_TYPE**/ o_826_aSet=o_881_aSet; /* line 395 "../lib/hashsetof.s7i" */ /* push proc param o_827_statements */ /* line 395 "../lib/hashsetof.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 155 "../lib/hashsetof.s7i" */ const_hashType hash_1=o_826_aSet; /* line 155 "../lib/hashsetof.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 155 "../lib/hashsetof.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 155 "../lib/hashsetof.s7i" */ const_hashElemType helem_4; /* line 155 "../lib/hashsetof.s7i" */ hashElemListType stack_5=NULL; /* line 155 "../lib/hashsetof.s7i" */ while (counter_2 > 0) { /* line 155 "../lib/hashsetof.s7i" */ helem_4=*table_elem_3; /* line 155 "../lib/hashsetof.s7i" */ while (helem_4 != NULL) { /* line 155 "../lib/hashsetof.s7i" */ if (helem_4->next_greater != NULL) { /* line 155 "../lib/hashsetof.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ strCopy(&((*o_825_variable)), helem_4->key.value.striValue); /* closure o_827_statements*/ { /* line 396 "../lib/hashsetof.s7i" */ if (((o_882_stri)->size!=1||(o_882_stri)->mem[0]!=(strElemType)('{') /* "{" */)) { /* line 397 "../lib/hashsetof.s7i" */ strAppend(&(o_882_stri), &str[12] /* ", " */); } /* line 399 "../lib/hashsetof.s7i" */ strAppend(&(o_882_stri), o_883_setElement); } /* closure o_827_statements*/ /* line 155 "../lib/hashsetof.s7i" */ if (helem_4->next_less != NULL) { /* line 155 "../lib/hashsetof.s7i" */ helem_4=helem_4->next_less; /* line 155 "../lib/hashsetof.s7i" */ } else { /* line 155 "../lib/hashsetof.s7i" */ pop_stack(stack_5, helem_4); /* line 155 "../lib/hashsetof.s7i" */ } /* if */ /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ counter_2--; /* line 155 "../lib/hashsetof.s7i" */ table_elem_3++; /* line 155 "../lib/hashsetof.s7i" */ } /* while */ /* line 155 "../lib/hashsetof.s7i" */ } /* hsh_for */ /* pop proc param o_827_statements */ } /* inline proc o_819_for */ /* line 401 "../lib/hashsetof.s7i" */ /* line 401 "../lib/hashsetof.s7i" */ if (((o_882_stri))->size == ((o_882_stri))->capacity) { /* line 401 "../lib/hashsetof.s7i" */ strPush(&((o_882_stri)), (charType) '}'); /* line 401 "../lib/hashsetof.s7i" */ } else { /* line 401 "../lib/hashsetof.s7i" */ ((o_882_stri))->mem[((o_882_stri))->size]=(charType) '}'; /* line 401 "../lib/hashsetof.s7i" */ ((o_882_stri))->size++; /* line 401 "../lib/hashsetof.s7i" */ } /* line 389 "../lib/hashsetof.s7i" */ strDestr(o_883_setElement); return o_882_stri; } /* line 1 "no_file" */ /* 429 */ /* 430 */ /* line 58 "../lib/hashsetof.s7i" */ static hashType/*t_45_*ANONYM_TYPE**/ create_45 (const_hashType/*t_45_*ANONYM_TYPE**/ b) /* line 58 "../lib/hashsetof.s7i" */ { /* line 58 "../lib/hashsetof.s7i" */ return hshCreate(b, (createFuncType)(o_789/*.*/), (destrFuncType)(o_790/*.*/), (createFuncType)(o_793/*.*/), (destrFuncType)(o_794/*.*/)); /* line 58 "../lib/hashsetof.s7i" */ } /* line 1 "no_file" */ hashType/*t_45_*ANONYM_TYPE**/ o_884_INCLUDED_LIBRARY_LIST; /* 431 */ /* line 1083 "../lib/seed7_05.s7i" */ static void/*t_1_void*/ o_885_include (const const_striType/*t_15_string*/ o_886_library) { /* line 1085 "../lib/seed7_05.s7i" */ striType/*t_15_string*/ o_887_libraryName; /* line 1085 "../lib/seed7_05.s7i" */ o_887_libraryName=strEmpty(); /* "" */ /* line 1087 "../lib/seed7_05.s7i" */ if ((strRChPos(o_886_library, (charType) '/')) != (0L)) { { /* line 1088 "../lib/seed7_05.s7i" */ struct striStruct slice_1; /* line 1088 "../lib/seed7_05.s7i" */ strCopy(&(o_887_libraryName), (strTailSlice(o_886_library, (strRChPos(o_886_library, (charType) '/'))+1, &slice_1), &slice_1)); } } else { /* line 1090 "../lib/seed7_05.s7i" */ strCopy(&(o_887_libraryName), o_886_library); } /* line 1092 "../lib/seed7_05.s7i" */ if (o_810_not(o_887_libraryName, o_884_INCLUDED_LIBRARY_LIST)) { /* line 1093 "../lib/seed7_05.s7i" */ o_813_incl(&(o_884_INCLUDED_LIBRARY_LIST), o_887_libraryName); /* ACTOBJECT { PRC_INCLUDE }*/} /* line 1083 "../lib/seed7_05.s7i" */ strDestr(o_887_libraryName); } /* line 1 "no_file" */ /* 432 */ static void/*t_1_void*/ o_888_main (void); typedef genericType t_46/*t_46_file*/; /* 433 */ /* 434 */ /* 435 */ /* 436 */ /* DYNAMIC */ static void/*t_1_void*/ o_889_write (interfaceType/*t_46_file*/ *const o_890_outFile, const const_striType/*t_15_string*/ o_891_stri); /* 437 */ /* DYNAMIC */ static void/*t_1_void*/ o_892_writeln (interfaceType/*t_46_file*/ *const o_893_outFile); /* 438 */ /* DYNAMIC */ static void/*t_1_void*/ o_894_writeln (interfaceType/*t_46_file*/ *const o_895_outFile, const const_striType/*t_15_string*/ o_896_stri); /* 439 */ /* DYNAMIC */ static void/*t_1_void*/ o_897_moveLeft (interfaceType/*t_46_file*/ *const o_898_outFile, const const_striType/*t_15_string*/ o_899_stri); /* 440 */ /* DYNAMIC */ static void/*t_1_void*/ o_900_erase (interfaceType/*t_46_file*/ *const o_901_outFile, const const_striType/*t_15_string*/ o_902_stri); /* 441 */ /* line 67 "../lib/file.s7i" */ static void/*t_1_void*/ o_903_backSpace (interfaceType/*t_46_file*/ *const o_904_outFile, const const_striType/*t_15_string*/ o_905_stri) { /* line 69 "../lib/file.s7i" */ o_897_moveLeft(o_904_outFile, o_905_stri); /* line 70 "../lib/file.s7i" */ o_900_erase(o_904_outFile, o_905_stri); /* line 71 "../lib/file.s7i" */ o_897_moveLeft(o_904_outFile, o_905_stri); } /* line 1 "no_file" */ /* 442 */ /* DYNAMIC */ static void/*t_1_void*/ o_906_cursorOn (interfaceType/*t_46_file*/ *const o_907_outFile, const charType/*t_18_char*/ o_908_ch); /* 443 */ /* DYNAMIC */ static void/*t_1_void*/ o_909_cursorOff (interfaceType/*t_46_file*/ *const o_910_outFile, const charType/*t_18_char*/ o_911_ch); /* 444 */ /* DYNAMIC */ static void/*t_1_void*/ o_912_close (interfaceType/*t_46_file*/ *const o_913_aFile); /* 445 */ /* DYNAMIC */ static void/*t_1_void*/ o_914_flush (interfaceType/*t_46_file*/ *const o_915_outFile); /* 446 */ /* DYNAMIC */ static charType/*t_18_char*/ o_916_getc (interfaceType/*t_46_file*/ *const o_917_inFile); /* 447 */ /* DYNAMIC */ static striType/*t_15_string*/ o_918_gets (interfaceType/*t_46_file*/ *const o_919_inFile, const intType/*t_14_integer*/ o_920_maxLength); /* 448 */ /* DYNAMIC */ static striType/*t_15_string*/ o_921_getwd (interfaceType/*t_46_file*/ *const o_922_inFile); /* 449 */ /* DYNAMIC */ static striType/*t_15_string*/ o_923_getln (interfaceType/*t_46_file*/ *const o_924_inFile); /* 450 */ /* DYNAMIC */ static striType/*t_15_string*/ o_925_getk (const interfaceType/*t_46_file*/ o_926_inFile); /* 451 */ /* DYNAMIC */ static boolType/*t_13_boolean*/ o_927_eoln (const interfaceType/*t_46_file*/ o_928_inFile); /* 452 */ /* DYNAMIC */ static boolType/*t_13_boolean*/ o_929_eof (const interfaceType/*t_46_file*/ o_930_inFile); /* 453 */ /* DYNAMIC */ static boolType/*t_13_boolean*/ o_931_hasNext (const interfaceType/*t_46_file*/ o_932_inFile); /* 454 */ /* DYNAMIC */ static boolType/*t_13_boolean*/ o_933_inputReady (const interfaceType/*t_46_file*/ o_934_inFile); /* 455 */ /* DYNAMIC */ static intType/*t_14_integer*/ o_935_length (const interfaceType/*t_46_file*/ o_936_aFile); /* 456 */ /* DYNAMIC */ static void/*t_1_void*/ o_937_seek (interfaceType/*t_46_file*/ *const o_938_aFile, const intType/*t_14_integer*/ o_939_position); /* 457 */ /* DYNAMIC */ static intType/*t_14_integer*/ o_940_tell (const interfaceType/*t_46_file*/ o_941_aFile); /* 458 */ /* DYNAMIC */ static charType/*t_18_char*/ o_942/*.*/ (const interfaceType/*t_46_file*/ o_943_aFile); /* 459 */ /* DYNAMIC */ static charType/*t_18_char*/ *o_944/*.*/ (interfaceType/*t_46_file*/ *const o_945_aFile); /* 460 */ /* line 226 "../lib/file.s7i" */ static void/*t_1_void*/ o_946_read (interfaceType/*t_46_file*/ *const o_947_inFile, striType/*t_15_string*/ *const o_948_aVar) { { /* line 228 "../lib/file.s7i" */ striType old_stri=*o_948_aVar; /* line 228 "../lib/file.s7i" */ *o_948_aVar=o_921_getwd(o_947_inFile); /* line 228 "../lib/file.s7i" */ strDestr(old_stri); } } /* line 1 "no_file" */ /* 461 */ /* line 241 "../lib/file.s7i" */ static void/*t_1_void*/ o_949_read (interfaceType/*t_46_file*/ *const o_950_inFile, striType/*t_15_string*/ *const o_951_aVar, const const_striType/*t_15_string*/ o_952_defaultValue) { { /* line 244 "../lib/file.s7i" */ striType old_stri=*o_951_aVar; /* line 244 "../lib/file.s7i" */ *o_951_aVar=o_921_getwd(o_950_inFile); /* line 244 "../lib/file.s7i" */ strDestr(old_stri); } /* line 245 "../lib/file.s7i" */ if (((*o_951_aVar)->size==0 /* "" */)) { /* line 246 "../lib/file.s7i" */ strCopy(&(*o_951_aVar), o_952_defaultValue); } } /* line 1 "no_file" */ /* 462 */ /* line 258 "../lib/file.s7i" */ static void/*t_1_void*/ o_953_readln (interfaceType/*t_46_file*/ *const o_954_inFile, striType/*t_15_string*/ *const o_955_aVar) { { /* line 260 "../lib/file.s7i" */ striType old_stri=*o_955_aVar; /* line 260 "../lib/file.s7i" */ *o_955_aVar=o_923_getln(o_954_inFile); /* line 260 "../lib/file.s7i" */ strDestr(old_stri); } } /* line 1 "no_file" */ /* 463 */ /* line 272 "../lib/file.s7i" */ static void/*t_1_void*/ o_956_readln (interfaceType/*t_46_file*/ *const o_957_inFile, striType/*t_15_string*/ *const o_958_aVar, const const_striType/*t_15_string*/ o_959_defaultValue) { { /* line 275 "../lib/file.s7i" */ striType old_stri=*o_958_aVar; /* line 275 "../lib/file.s7i" */ *o_958_aVar=o_923_getln(o_957_inFile); /* line 275 "../lib/file.s7i" */ strDestr(old_stri); } /* line 276 "../lib/file.s7i" */ if (((*o_958_aVar)->size==0 /* "" */)) { /* line 277 "../lib/file.s7i" */ strCopy(&(*o_958_aVar), o_959_defaultValue); } } /* line 1 "no_file" */ /* 464 */ /* line 288 "../lib/file.s7i" */ static void/*t_1_void*/ o_960_readln (interfaceType/*t_46_file*/ *const o_961_inFile) { /* line 290 "../lib/file.s7i" */ striType/*t_15_string*/ o_962_stri; /* line 290 "../lib/file.s7i" */ o_962_stri=strEmpty(); /* "" */ { /* line 292 "../lib/file.s7i" */ striType old_stri=o_962_stri; /* line 292 "../lib/file.s7i" */ o_962_stri=o_923_getln(o_961_inFile); /* line 292 "../lib/file.s7i" */ strDestr(old_stri); } /* line 288 "../lib/file.s7i" */ strDestr(o_962_stri); } /* line 1 "no_file" */ /* 465 */ /* line 301 "../lib/file.s7i" */ static void/*t_1_void*/ o_963_copyFile (interfaceType/*t_46_file*/ *const o_964_source, interfaceType/*t_46_file*/ *const o_965_dest) { /* line 303 "../lib/file.s7i" */ striType/*t_15_string*/ o_966_buffer; /* line 303 "../lib/file.s7i" */ o_966_buffer=strEmpty(); /* "" */ { /* line 305 "../lib/file.s7i" */ striType old_stri=o_966_buffer; /* line 305 "../lib/file.s7i" */ o_966_buffer=o_918_gets(o_964_source, 1000000L); /* line 305 "../lib/file.s7i" */ strDestr(old_stri); } /* line 306 "../lib/file.s7i" */ while (((o_966_buffer)->size!=0 /* "" */)) { /* line 307 "../lib/file.s7i" */ o_889_write(o_965_dest, o_966_buffer); { /* line 308 "../lib/file.s7i" */ striType old_stri=o_966_buffer; /* line 308 "../lib/file.s7i" */ o_966_buffer=o_918_gets(o_964_source, 1000000L); /* line 308 "../lib/file.s7i" */ strDestr(old_stri); } } /* line 301 "../lib/file.s7i" */ strDestr(o_966_buffer); } /* line 1 "no_file" */ /* 466 */ typedef genericType t_47/*t_47_null_file*/; /* 467 */ /* 468 */ typedef genericType t_48/*t_48_*ANONYM_TYPE**/; /* 469 */ /* 470 */ /* 471 */ /* 472 */ /* 473 */ /* objRefType/t_48_*ANONYM_TYPE* */ objRefType o_967/*.*/=(objRefType)(NULL); /* 474 */ /* objRefType/t_48_*ANONYM_TYPE* */ objRefType o_968/*.*/=(objRefType)(NULL); /* 475 */ typedef genericType t_49/*t_49_*ANONYM_TYPE**/; /* 476 */ /* 477 */ /* 478 */ /* 479 */ /* 480 */ /* objRefType/t_49_*ANONYM_TYPE* */ objRefType o_969/*.*/=(objRefType)(NULL); /* 481 */ /* objRefType/t_49_*ANONYM_TYPE* */ objRefType o_970/*.*/=(objRefType)(NULL); /* 482 */ /* 483 */ /* 484 */ /* 485 */ /* struct element charType/t_18_char ** structType/t_47_null_file->o_971_bufferChar = 0 */ /* 486 */ /* struct element charType/t_18_char ** structType/t_47_null_file->o_971_bufferChar = 0 */ /* 487 */ /* ref struct element charType/t_18_char ** objRefType/t_48_*ANONYM_TYPE*->o_971_bufferChar = 0 */ /* 488 */ /* ref struct element charType/t_18_char ** objRefType/t_49_*ANONYM_TYPE*->o_971_bufferChar = 0 */ /* 489 */ structType/*t_47_null_file*/ o_972/*.*/; /* 490 */ /* itf_cpy2: interfaceType/t_46_file := structType/t_47_null_file */ /* 491 */ /* line 58 "../lib/struct.s7i" */ static structType/*t_47_null_file*/ create_47 (const_structType/*t_47_null_file*/ b) /* line 58 "../lib/struct.s7i" */ { /* line 58 "../lib/struct.s7i" */ structType/*t_47_null_file*/ a; /* line 58 "../lib/struct.s7i" */ a=(structType/*t_47_null_file*/)(malloc(sizeof(struct rtlStructStruct) - sizeof(rtlObjectType) + /* line 58 "../lib/struct.s7i" */ 1 * sizeof(rtlObjectType))); /* line 58 "../lib/struct.s7i" */ if (a == NULL) { /* line 58 "../lib/struct.s7i" */ raise_error(MEMORY_ERROR); /* line 58 "../lib/struct.s7i" */ } else { /* line 58 "../lib/struct.s7i" */ a->usage_count = 1; a->type_num = b->type_num; /* line 58 "../lib/struct.s7i" */ a->stru[0].value.charValue=b->stru[0].value.charValue; /* line 58 "../lib/struct.s7i" */ } /* line 58 "../lib/struct.s7i" */ return a; /* line 58 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 59 "../lib/struct.s7i" */ static void destr_47 (structType/*t_47_null_file*/ b) /* line 59 "../lib/struct.s7i" */ { /* line 59 "../lib/struct.s7i" */ if (b != NULL && b->usage_count != 0) { b->usage_count--; if (b->usage_count == 0) { /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ free((void *)(b)); /* line 59 "../lib/struct.s7i" */ }} /* line 59 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 60 "../lib/struct.s7i" */ static void cpy_47 (structType/*t_47_null_file*/ a, structType/*t_47_null_file*/ b) /* line 60 "../lib/struct.s7i" */ { /* line 60 "../lib/struct.s7i" */ a->stru[0].value.charValue=b->stru[0].value.charValue; /* line 60 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 886 "../lib/seed7_05.s7i" */ static structType/*t_47_null_file*/ o_973_xalloc (const structType/*t_47_null_file*/ o_974_newStuct) { /* line 888 "../lib/seed7_05.s7i" */ structType/*t_47_null_file*/ o_975_allocated; /* line 888 "../lib/seed7_05.s7i" */ o_975_allocated=create_47(sct[13]); /* line 890 "../lib/seed7_05.s7i" */ cpy_47((structType/*t_47_null_file*/)(o_975_allocated), (structType/*t_47_null_file*/)(o_974_newStuct)); return o_975_allocated; } /* line 1 "no_file" */ /* 492 */ structType/*t_47_null_file*/ o_976_STD_NULL; /* 493 */ interfaceType/*t_46_file*/ o_977/*.*/; /* 494 */ /* line 84 "../lib/null_file.s7i" */ static void/*t_1_void*/ o_978_writeln (structType/*t_47_null_file*/ *const o_979_outFile) { /* line 86 "../lib/null_file.s7i" */ o_889_write(o_979_outFile, &str[21] /* "\n" */); } /* line 1 "no_file" */ /* 495 */ /* line 96 "../lib/null_file.s7i" */ static void/*t_1_void*/ o_980_writeln (structType/*t_47_null_file*/ *const o_981_outFile, const const_striType/*t_15_string*/ o_982_stri) { /* line 98 "../lib/null_file.s7i" */ o_889_write(o_981_outFile, o_982_stri); /* line 99 "../lib/null_file.s7i" */ o_892_writeln(o_981_outFile); } /* line 1 "no_file" */ /* 496 */ /* line 118 "../lib/null_file.s7i" */ static charType/*t_18_char*/ o_983_getc (structType/*t_47_null_file*/ *const o_984_inFile) { /* line 120 "../lib/null_file.s7i" */ charType/*t_18_char*/ o_985_charRead=(charType) ' '; /* line 122 "../lib/null_file.s7i" */ striType/*t_15_string*/ o_986_buffer; /* line 122 "../lib/null_file.s7i" */ o_986_buffer=strEmpty(); /* "" */ { /* line 124 "../lib/null_file.s7i" */ striType old_stri=o_986_buffer; /* line 124 "../lib/null_file.s7i" */ o_986_buffer=o_918_gets(o_984_inFile, 1L); /* line 124 "../lib/null_file.s7i" */ strDestr(old_stri); } /* line 125 "../lib/null_file.s7i" */ if (((o_986_buffer)->size==0 /* "" */)) { /* line 126 "../lib/null_file.s7i" */ o_985_charRead=(charType) 4294967295; } else { /* line 128 "../lib/null_file.s7i" */ o_985_charRead=(o_986_buffer)->mem[(idxChk((o_986_buffer)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]; } /* line 118 "../lib/null_file.s7i" */ strDestr(o_986_buffer); return o_985_charRead; } /* line 1 "no_file" */ /* 497 */ /* line 145 "../lib/null_file.s7i" */ static striType/*t_15_string*/ o_987_getwd (structType/*t_47_null_file*/ *const o_988_inFile) { /* line 147 "../lib/null_file.s7i" */ striType/*t_15_string*/ o_989_stri; /* line 149 "../lib/null_file.s7i" */ striType/*t_15_string*/ o_990_buffer; /* line 147 "../lib/null_file.s7i" */ o_989_stri=strEmpty(); /* "" */ /* line 149 "../lib/null_file.s7i" */ o_990_buffer=strEmpty(); /* "" */ /* line 151 "../lib/null_file.s7i" */ do { { /* line 152 "../lib/null_file.s7i" */ striType old_stri=o_990_buffer; /* line 152 "../lib/null_file.s7i" */ o_990_buffer=o_918_gets(o_988_inFile, 1L); /* line 152 "../lib/null_file.s7i" */ strDestr(old_stri); } /* line 153 "../lib/null_file.s7i" */ } while (!((((o_990_buffer)->size!=1||(o_990_buffer)->mem[0]!=(strElemType)(' ') /* " " */)) && /* line 153 "../lib/null_file.s7i" */ (((o_990_buffer)->size!=1||(o_990_buffer)->mem[0]!=(strElemType)('\t') /* "\t" */)))); /* line 154 "../lib/null_file.s7i" */ while ((((o_990_buffer)->size!=1||(o_990_buffer)->mem[0]!=(strElemType)(' ') /* " " */)) && /* line 154 "../lib/null_file.s7i" */ (((o_990_buffer)->size!=1||(o_990_buffer)->mem[0]!=(strElemType)('\t') /* "\t" */)) && /* line 155 "../lib/null_file.s7i" */ (((o_990_buffer)->size!=1||(o_990_buffer)->mem[0]!=(strElemType)('\n') /* "\n" */)) && /* line 155 "../lib/null_file.s7i" */ (((o_990_buffer)->size!=0 /* "" */))) { /* line 156 "../lib/null_file.s7i" */ strAppend(&(o_989_stri), o_990_buffer); { /* line 157 "../lib/null_file.s7i" */ striType old_stri=o_990_buffer; /* line 157 "../lib/null_file.s7i" */ o_990_buffer=o_918_gets(o_988_inFile, 1L); /* line 157 "../lib/null_file.s7i" */ strDestr(old_stri); } } /* line 159 "../lib/null_file.s7i" */ if (((o_990_buffer)->size==0 /* "" */)) { /* line 160 "../lib/null_file.s7i" */ *o_944/*.*/(o_988_inFile)=(charType) 4294967295; } else { /* line 162 "../lib/null_file.s7i" */ *o_944/*.*/(o_988_inFile)=(o_990_buffer)->mem[(idxChk((o_990_buffer)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]; } /* line 145 "../lib/null_file.s7i" */ strDestr(o_990_buffer); return o_989_stri; } /* line 1 "no_file" */ /* 498 */ /* line 178 "../lib/null_file.s7i" */ static striType/*t_15_string*/ o_991_getln (structType/*t_47_null_file*/ *const o_992_inFile) { /* line 180 "../lib/null_file.s7i" */ striType/*t_15_string*/ o_993_stri; /* line 182 "../lib/null_file.s7i" */ striType/*t_15_string*/ o_994_buffer; /* line 180 "../lib/null_file.s7i" */ o_993_stri=strEmpty(); /* "" */ /* line 182 "../lib/null_file.s7i" */ o_994_buffer=strEmpty(); /* "" */ { /* line 184 "../lib/null_file.s7i" */ striType old_stri=o_994_buffer; /* line 184 "../lib/null_file.s7i" */ o_994_buffer=o_918_gets(o_992_inFile, 1L); /* line 184 "../lib/null_file.s7i" */ strDestr(old_stri); } /* line 185 "../lib/null_file.s7i" */ while ((((o_994_buffer)->size!=1||(o_994_buffer)->mem[0]!=(strElemType)('\n') /* "\n" */)) && /* line 185 "../lib/null_file.s7i" */ (((o_994_buffer)->size!=0 /* "" */))) { /* line 186 "../lib/null_file.s7i" */ strAppend(&(o_993_stri), o_994_buffer); { /* line 187 "../lib/null_file.s7i" */ striType old_stri=o_994_buffer; /* line 187 "../lib/null_file.s7i" */ o_994_buffer=o_918_gets(o_992_inFile, 1L); /* line 187 "../lib/null_file.s7i" */ strDestr(old_stri); } } /* line 189 "../lib/null_file.s7i" */ if (((o_994_buffer)->size==0 /* "" */)) { /* line 190 "../lib/null_file.s7i" */ *o_944/*.*/(o_992_inFile)=(charType) 4294967295; } else { /* line 192 "../lib/null_file.s7i" */ *o_944/*.*/(o_992_inFile)=(o_994_buffer)->mem[(idxChk((o_994_buffer)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]; } /* line 178 "../lib/null_file.s7i" */ strDestr(o_994_buffer); return o_993_stri; } /* line 1 "no_file" */ /* 499 */ const boolType/*t_13_boolean*/ o_995_eof=1/*TRUE*/; /* 500 */ const boolType/*t_13_boolean*/ o_996_hasNext=0/*FALSE*/; /* 501 */ /* line 214 "../lib/null_file.s7i" */ static boolType/*t_13_boolean*/ o_997_eoln (const structType/*t_47_null_file*/ o_998_inFile) { /* line 215 "../lib/null_file.s7i" */ return (boolType/*t_13_boolean*/)(((o_942/*.*/(o_998_inFile)) == ((charType) '\n'))); } /* line 1 "no_file" */ /* 502 */ /* line 226 "../lib/null_file.s7i" */ static intType/*t_14_integer*/ o_999_length (const structType/*t_47_null_file*/ o_1000_aFile) { /* line 228 "../lib/null_file.s7i" */ intType/*t_14_integer*/ o_1001_length=0; /* line 230 "../lib/null_file.s7i" */ rtlRaiseError(o_19_FILE_ERROR+1, "../lib/null_file.s7i", 230); return o_1001_length; } /* line 1 "no_file" */ /* 503 */ /* line 241 "../lib/null_file.s7i" */ static void/*t_1_void*/ o_1002_seek (const structType/*t_47_null_file*/ o_1003_aFile, const intType/*t_14_integer*/ o_1004_position) { /* line 243 "../lib/null_file.s7i" */ rtlRaiseError(o_19_FILE_ERROR+1, "../lib/null_file.s7i", 243); } /* line 1 "no_file" */ /* 504 */ /* line 255 "../lib/null_file.s7i" */ static intType/*t_14_integer*/ o_1005_tell (const structType/*t_47_null_file*/ o_1006_aFile) { /* line 257 "../lib/null_file.s7i" */ intType/*t_14_integer*/ o_1007_position=0; /* line 259 "../lib/null_file.s7i" */ rtlRaiseError(o_19_FILE_ERROR+1, "../lib/null_file.s7i", 259); return o_1007_position; } /* line 1 "no_file" */ /* 505 */ /* line 263 "../lib/null_file.s7i" */ static void/*t_1_void*/ o_1008_moveLeft (const structType/*t_47_null_file*/ o_1009_outFile, const const_striType/*t_15_string*/ o_1010_stri) { /* line 265 "../lib/null_file.s7i" */ rtlRaiseError(o_19_FILE_ERROR+1, "../lib/null_file.s7i", 265); } /* line 1 "no_file" */ /* 506 */ /* line 269 "../lib/null_file.s7i" */ static void/*t_1_void*/ o_1011_erase (const structType/*t_47_null_file*/ o_1012_outFile, const const_striType/*t_15_string*/ o_1013_stri) { /* line 271 "../lib/null_file.s7i" */ rtlRaiseError(o_19_FILE_ERROR+1, "../lib/null_file.s7i", 271); } /* line 1 "no_file" */ /* 507 */ typedef genericType t_50/*t_50_clib_file*/; /* 508 */ /* 509 */ /* 510 */ /* 511 */ fileType o_1014/*.*/=NULL; /* 512 */ fileType o_1015_CLIB_NULL_FILE=NULL; /* 513 */ /* 514 */ /* 515 */ /* 516 */ typedef genericType t_51/*t_51_*ANONYM_TYPE**/; /* 517 */ /* 518 */ /* 519 */ /* 520 */ /* 521 */ /* objRefType/t_51_*ANONYM_TYPE* */ objRefType o_1016/*.*/=(objRefType)(NULL); /* 522 */ /* objRefType/t_51_*ANONYM_TYPE* */ objRefType o_1017/*.*/=(objRefType)(NULL); /* 523 */ typedef genericType t_52/*t_52_*ANONYM_TYPE**/; /* 524 */ /* 525 */ /* 526 */ /* 527 */ /* 528 */ /* objRefType/t_52_*ANONYM_TYPE* */ objRefType o_1018/*.*/=(objRefType)(NULL); /* 529 */ /* objRefType/t_52_*ANONYM_TYPE* */ objRefType o_1019/*.*/=(objRefType)(NULL); /* 530 */ /* 531 */ /* 532 */ /* 533 */ /* struct element fileType/t_50_clib_file ** structType/t_53_external_file->o_1020_ext_file = 1 */ /* 534 */ /* struct element fileType/t_50_clib_file ** structType/t_53_external_file->o_1020_ext_file = 1 */ /* 535 */ /* ref struct element fileType/t_50_clib_file ** objRefType/t_51_*ANONYM_TYPE*->o_1020_ext_file = 0 */ /* 536 */ /* ref struct element fileType/t_50_clib_file ** objRefType/t_52_*ANONYM_TYPE*->o_1020_ext_file = 0 */ /* 537 */ /* struct element striType/t_15_string ** structType/t_53_external_file->o_1021_name = 2 */ /* 538 */ /* struct element striType/t_15_string ** structType/t_53_external_file->o_1021_name = 2 */ /* 539 */ /* ref struct element striType/t_15_string ** objRefType/t_51_*ANONYM_TYPE*->o_1021_name = 1 */ /* 540 */ /* ref struct element striType/t_15_string ** objRefType/t_52_*ANONYM_TYPE*->o_1021_name = 1 */ /* 541 */ structType/*t_53_external_file*/ o_1022/*.*/; /* 542 */ /* itf_cpy2: interfaceType/t_46_file := structType/t_53_external_file */ /* 543 */ /* line 173 "../lib/struct.s7i" */ static structType/*t_53_external_file*/ create_53 (const_structType/*t_53_external_file*/ b) /* line 173 "../lib/struct.s7i" */ { /* line 173 "../lib/struct.s7i" */ structType/*t_53_external_file*/ a; /* line 173 "../lib/struct.s7i" */ a=(structType/*t_53_external_file*/)(malloc(sizeof(struct rtlStructStruct) - sizeof(rtlObjectType) + /* line 173 "../lib/struct.s7i" */ 3 * sizeof(rtlObjectType))); /* line 173 "../lib/struct.s7i" */ if (a == NULL) { /* line 173 "../lib/struct.s7i" */ raise_error(MEMORY_ERROR); /* line 173 "../lib/struct.s7i" */ } else { /* line 173 "../lib/struct.s7i" */ a->usage_count = 1; a->type_num = b->type_num; /* line 173 "../lib/struct.s7i" */ a->stru[0].value.charValue=b->stru[0].value.charValue; /* line 173 "../lib/struct.s7i" */ a->stru[1].value.fileValue=b->stru[1].value.fileValue; /* line 173 "../lib/struct.s7i" */ a->stru[2].value.striValue=strCreate(b->stru[2].value.striValue); /* line 173 "../lib/struct.s7i" */ } /* line 173 "../lib/struct.s7i" */ return a; /* line 173 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 174 "../lib/struct.s7i" */ static void destr_53 (structType/*t_53_external_file*/ b) /* line 174 "../lib/struct.s7i" */ { /* line 174 "../lib/struct.s7i" */ if (b != NULL && b->usage_count != 0) { b->usage_count--; if (b->usage_count == 0) { /* line 174 "../lib/struct.s7i" */ /* line 174 "../lib/struct.s7i" */ /* line 174 "../lib/struct.s7i" */ strDestr(b->stru[2].value.striValue); /* line 174 "../lib/struct.s7i" */ free((void *)(b)); /* line 174 "../lib/struct.s7i" */ }} /* line 174 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 175 "../lib/struct.s7i" */ static void cpy_53 (structType/*t_53_external_file*/ a, structType/*t_53_external_file*/ b) /* line 175 "../lib/struct.s7i" */ { /* line 175 "../lib/struct.s7i" */ a->stru[0].value.charValue=b->stru[0].value.charValue; /* line 175 "../lib/struct.s7i" */ a->stru[1].value.fileValue=b->stru[1].value.fileValue; /* line 175 "../lib/struct.s7i" */ strCopy(&(a->stru[2].value.striValue), b->stru[2].value.striValue); /* line 175 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 886 "../lib/seed7_05.s7i" */ static structType/*t_53_external_file*/ o_1023_xalloc (const structType/*t_53_external_file*/ o_1024_newStuct) { /* line 888 "../lib/seed7_05.s7i" */ structType/*t_53_external_file*/ o_1025_allocated; /* line 888 "../lib/seed7_05.s7i" */ o_1025_allocated=create_53(sct[16]); /* line 890 "../lib/seed7_05.s7i" */ cpy_53((structType/*t_53_external_file*/)(o_1025_allocated), (structType/*t_53_external_file*/)(o_1024_newStuct)); return o_1025_allocated; } /* line 1 "no_file" */ /* 544 */ static void destr_46 (interfaceType/*t_46_file*/); /* line 82 "../lib/external_file.s7i" */ static interfaceType/*t_46_file*/ o_1026_open (const const_striType/*t_15_string*/ o_1027_path, const const_striType/*t_15_string*/ o_1028_mode) { /* line 84 "../lib/external_file.s7i" */ interfaceType/*t_46_file*/ o_1029_newFile; /* line 86 "../lib/external_file.s7i" */ fileType/*t_50_clib_file*/ o_1030_open_file=NULL; /* line 87 "../lib/external_file.s7i" */ structType/*t_53_external_file*/ o_1031_new_file; /* line 84 "../lib/external_file.s7i" */ o_1029_newFile=itfCreate(o_976_STD_NULL/* STRUCTOBJECT */); /* line 87 "../lib/external_file.s7i" */ o_1031_new_file=create_53(sct[17]); /* line 89 "../lib/external_file.s7i" */ o_1030_open_file=filOpen(o_1027_path, o_1028_mode); /* line 90 "../lib/external_file.s7i" */ if ((o_1030_open_file) != (o_1015_CLIB_NULL_FILE)) { /* line 91 "../lib/external_file.s7i" */ ((structType)(o_1031_new_file))->stru[1].value.fileValue/*->o_1020_ext_file*/=o_1030_open_file; /* line 92 "../lib/external_file.s7i" */ strCopy(&(((structType)(o_1031_new_file))->stru[2].value.striValue/*->o_1021_name*/), o_1027_path); { /* line 93 "../lib/external_file.s7i" */ interfaceType result_2; /* line 93 "../lib/external_file.s7i" */ structType old_struct=o_1029_newFile; /* line 93 "../lib/external_file.s7i" */ o_1029_newFile=/* ITF_TO_INTERFACE */(result_2=o_1031_new_file,result_2->usage_count!=0 ? result_2->usage_count++ : 0,result_2); /* line 93 "../lib/external_file.s7i" */ destr_46(old_struct); } } /* line 82 "../lib/external_file.s7i" */ destr_53(o_1031_new_file); return o_1029_newFile; } /* line 1 "no_file" */ /* 545 */ /* line 102 "../lib/external_file.s7i" */ static void/*t_1_void*/ o_1032_close (const structType/*t_53_external_file*/ o_1033_aFile) { /* line 104 "../lib/external_file.s7i" */ filClose(((structType)(o_1033_aFile))->stru[1].value.fileValue/*->o_1020_ext_file*/); } /* line 1 "no_file" */ /* 546 */ /* line 112 "../lib/external_file.s7i" */ static void/*t_1_void*/ o_1034_flush (const structType/*t_53_external_file*/ o_1035_outFile) { /* line 114 "../lib/external_file.s7i" */ fflush(((structType)(o_1035_outFile))->stru[1].value.fileValue/*->o_1020_ext_file*/); } /* line 1 "no_file" */ /* 547 */ /* line 124 "../lib/external_file.s7i" */ static void/*t_1_void*/ o_1036_write (const structType/*t_53_external_file*/ o_1037_outFile, const const_striType/*t_15_string*/ o_1038_stri) { /* line 126 "../lib/external_file.s7i" */ filWrite(((structType)(o_1037_outFile))->stru[1].value.fileValue/*->o_1020_ext_file*/, o_1038_stri); } /* line 1 "no_file" */ /* 548 */ /* line 130 "../lib/external_file.s7i" */ static void/*t_1_void*/ o_1039_moveLeft (const structType/*t_53_external_file*/ o_1040_outFile, const const_striType/*t_15_string*/ o_1041_stri) { /* line 130 "../lib/external_file.s7i" */ striType tmp_1 = NULL; /* line 132 "../lib/external_file.s7i" */ filWrite(((structType)(o_1040_outFile))->stru[1].value.fileValue/*->o_1020_ext_file*/, (tmp_1=strChMult((charType) '\b', (intType)((o_1041_stri)->size)))); /* line 130 "../lib/external_file.s7i" */ strDestr(tmp_1); } /* line 1 "no_file" */ /* 549 */ /* line 136 "../lib/external_file.s7i" */ static void/*t_1_void*/ o_1042_erase (const structType/*t_53_external_file*/ o_1043_outFile, const const_striType/*t_15_string*/ o_1044_stri) { /* line 136 "../lib/external_file.s7i" */ striType tmp_1 = NULL; /* line 138 "../lib/external_file.s7i" */ filWrite(((structType)(o_1043_outFile))->stru[1].value.fileValue/*->o_1020_ext_file*/, (tmp_1=strChMult((charType) ' ', (intType)((o_1044_stri)->size)))); /* line 136 "../lib/external_file.s7i" */ strDestr(tmp_1); } /* line 1 "no_file" */ /* 550 */ /* line 146 "../lib/external_file.s7i" */ static charType/*t_18_char*/ o_1045_getc (const structType/*t_53_external_file*/ o_1046_inFile) { /* line 147 "../lib/external_file.s7i" */ return (charType/*t_18_char*/)((fgetc(((structType)(o_1046_inFile))->stru[1].value.fileValue/*->o_1020_ext_file*/))); } /* line 1 "no_file" */ /* 551 */ /* line 157 "../lib/external_file.s7i" */ static striType/*t_15_string*/ o_1047_gets (const structType/*t_53_external_file*/ o_1048_inFile, const intType/*t_14_integer*/ o_1049_maxLength) { /* line 158 "../lib/external_file.s7i" */ return (striType/*t_15_string*/)((filGets(((structType)(o_1048_inFile))->stru[1].value.fileValue/*->o_1020_ext_file*/, o_1049_maxLength))); } /* line 1 "no_file" */ /* 552 */ /* line 173 "../lib/external_file.s7i" */ static striType/*t_15_string*/ o_1050_getwd (structType/*t_53_external_file*/ *const o_1051_inFile) { /* line 174 "../lib/external_file.s7i" */ return (striType/*t_15_string*/)((filWordRead(((structType)(*o_1051_inFile))->stru[1].value.fileValue/*->o_1020_ext_file*/, &(*o_944/*.*/(o_1051_inFile))))); } /* line 1 "no_file" */ /* 553 */ /* line 188 "../lib/external_file.s7i" */ static striType/*t_15_string*/ o_1052_getln (structType/*t_53_external_file*/ *const o_1053_inFile) { /* line 189 "../lib/external_file.s7i" */ return (striType/*t_15_string*/)((filLineRead(((structType)(*o_1053_inFile))->stru[1].value.fileValue/*->o_1020_ext_file*/, &(*o_944/*.*/(o_1053_inFile))))); } /* line 1 "no_file" */ /* 554 */ /* line 198 "../lib/external_file.s7i" */ static boolType/*t_13_boolean*/ o_1054_eof (const structType/*t_53_external_file*/ o_1055_inFile) { /* line 199 "../lib/external_file.s7i" */ return (boolType/*t_13_boolean*/)((feof(((structType)(o_1055_inFile))->stru[1].value.fileValue/*->o_1020_ext_file*/))); } /* line 1 "no_file" */ /* 555 */ /* line 207 "../lib/external_file.s7i" */ static boolType/*t_13_boolean*/ o_1056_hasNext (const structType/*t_53_external_file*/ o_1057_inFile) { /* line 208 "../lib/external_file.s7i" */ return (boolType/*t_13_boolean*/)((filHasNext(((structType)(o_1057_inFile))->stru[1].value.fileValue/*->o_1020_ext_file*/))); } /* line 1 "no_file" */ /* 556 */ /* line 211 "../lib/external_file.s7i" */ static boolType/*t_13_boolean*/ o_1058_inputReady (const structType/*t_53_external_file*/ o_1059_inFile) { /* line 212 "../lib/external_file.s7i" */ return (boolType/*t_13_boolean*/)((filInputReady(((structType)(o_1059_inFile))->stru[1].value.fileValue/*->o_1020_ext_file*/))); } /* line 1 "no_file" */ /* 557 */ /* line 224 "../lib/external_file.s7i" */ static intType/*t_14_integer*/ o_1060_length (const structType/*t_53_external_file*/ o_1061_aFile) { /* line 225 "../lib/external_file.s7i" */ return (intType/*t_14_integer*/)((filLng(((structType)(o_1061_aFile))->stru[1].value.fileValue/*->o_1020_ext_file*/))); } /* line 1 "no_file" */ /* 558 */ /* line 235 "../lib/external_file.s7i" */ static void/*t_1_void*/ o_1062_seek (const structType/*t_53_external_file*/ o_1063_aFile, const intType/*t_14_integer*/ o_1064_position) { /* line 237 "../lib/external_file.s7i" */ filSeek(((structType)(o_1063_aFile))->stru[1].value.fileValue/*->o_1020_ext_file*/, o_1064_position); } /* line 1 "no_file" */ /* 559 */ /* line 251 "../lib/external_file.s7i" */ static intType/*t_14_integer*/ o_1065_tell (const structType/*t_53_external_file*/ o_1066_aFile) { /* line 252 "../lib/external_file.s7i" */ return (intType/*t_14_integer*/)((filTell(((structType)(o_1066_aFile))->stru[1].value.fileValue/*->o_1020_ext_file*/))); } /* line 1 "no_file" */ /* 560 */ /* line 255 "../lib/external_file.s7i" */ static boolType/*t_13_boolean*/ o_1067_fileOpenSucceeds (const const_striType/*t_15_string*/ o_1068_path) { /* line 257 "../lib/external_file.s7i" */ boolType/*t_13_boolean*/ o_1069_fileOpenSucceeds=o_25_FALSE; /* line 259 "../lib/external_file.s7i" */ interfaceType/*t_46_file*/ o_1070_a_file; /* line 259 "../lib/external_file.s7i" */ o_1070_a_file=itfCreate(o_976_STD_NULL/* STRUCTOBJECT */); { /* line 261 "../lib/external_file.s7i" */ structType old_struct=o_1070_a_file; /* line 261 "../lib/external_file.s7i" */ o_1070_a_file=o_1026_open(o_1068_path, &str[22] /* "r" */); /* line 261 "../lib/external_file.s7i" */ destr_46(old_struct); } /* line 262 "../lib/external_file.s7i" */ if ((o_1070_a_file) != (o_976_STD_NULL)) { /* line 263 "../lib/external_file.s7i" */ o_912_close(&(o_1070_a_file)); /* line 264 "../lib/external_file.s7i" */ o_1069_fileOpenSucceeds=o_26_TRUE; } /* line 255 "../lib/external_file.s7i" */ destr_46(o_1070_a_file); return o_1069_fileOpenSucceeds; } /* line 1 "no_file" */ /* 561 */ extern interfaceType/*t_46_file*/ o_1071_IN; extern interfaceType/*t_46_file*/ o_1074_OUT; /* line 61 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1079_read (interfaceType/*t_46_file*/ *const o_1080_inFile, charType/*t_18_char*/ *const o_1081_aVar) { { /* line 63 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 63 "../lib/enable_input.s7i" */ *o_1081_aVar=o_69_parse(/* attr t_18 char*/ (tmp_1=(striType/*t_15_string*/)(o_921_getwd(o_1080_inFile)))); /* line 63 "../lib/enable_input.s7i" */ strDestr(tmp_1); } } /* line 1 "no_file" */ /* 562 */ /* line 77 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1082_read (interfaceType/*t_46_file*/ *const o_1083_inFile, charType/*t_18_char*/ *const o_1084_aVar, const charType/*t_18_char*/ o_1085_defaultValue) { /* line 80 "../lib/enable_input.s7i" */ striType/*t_15_string*/ o_1086_stri; /* line 80 "../lib/enable_input.s7i" */ o_1086_stri=strEmpty(); /* "" */ { /* line 82 "../lib/enable_input.s7i" */ striType old_stri=o_1086_stri; /* line 82 "../lib/enable_input.s7i" */ o_1086_stri=o_921_getwd(o_1083_inFile); /* line 82 "../lib/enable_input.s7i" */ strDestr(old_stri); } /* line 83 "../lib/enable_input.s7i" */ if (((o_1086_stri)->size==0 /* "" */)) { /* line 84 "../lib/enable_input.s7i" */ *o_1084_aVar=o_1085_defaultValue; } else { /* line 86 "../lib/enable_input.s7i" */ *o_1084_aVar=o_69_parse(/* attr t_18 char*/ o_1086_stri); } /* line 77 "../lib/enable_input.s7i" */ strDestr(o_1086_stri); } /* line 1 "no_file" */ /* 563 */ /* line 99 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1087_readln (interfaceType/*t_46_file*/ *const o_1088_inFile, charType/*t_18_char*/ *const o_1089_aVar) { { /* line 101 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); /* line 101 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 101 "../lib/enable_input.s7i" */ *o_1089_aVar=o_69_parse(/* attr t_18 char*/ (tmp_1=(striType/*t_15_string*/)(o_71_trimValue(/* attr t_18 char*/ (tmp_2=(striType/*t_15_string*/)(o_923_getln(o_1088_inFile))))))); /* line 101 "../lib/enable_input.s7i" */ strDestr(tmp_2); /* line 101 "../lib/enable_input.s7i" */ strDestr(tmp_1); } } /* line 1 "no_file" */ /* 564 */ /* line 114 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1090_readln (interfaceType/*t_46_file*/ *const o_1091_inFile, charType/*t_18_char*/ *const o_1092_aVar, const charType/*t_18_char*/ o_1093_defaultValue) { /* line 117 "../lib/enable_input.s7i" */ striType/*t_15_string*/ o_1094_stri; /* line 117 "../lib/enable_input.s7i" */ o_1094_stri=strEmpty(); /* "" */ { /* line 119 "../lib/enable_input.s7i" */ striType old_stri=o_1094_stri; /* line 119 "../lib/enable_input.s7i" */ o_1094_stri=o_923_getln(o_1091_inFile); /* line 119 "../lib/enable_input.s7i" */ strDestr(old_stri); } /* line 120 "../lib/enable_input.s7i" */ if (((o_1094_stri)->size==0 /* "" */)) { /* line 121 "../lib/enable_input.s7i" */ *o_1092_aVar=o_1093_defaultValue; } else { { /* line 123 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 123 "../lib/enable_input.s7i" */ *o_1092_aVar=o_69_parse(/* attr t_18 char*/ (tmp_1=(striType/*t_15_string*/)(o_71_trimValue(/* attr t_18 char*/ o_1094_stri)))); /* line 123 "../lib/enable_input.s7i" */ strDestr(tmp_1); } } /* line 114 "../lib/enable_input.s7i" */ strDestr(o_1094_stri); } /* line 1 "no_file" */ /* 565 */ /* line 137 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1095_read (charType/*t_18_char*/ *const o_1096_aVar) { /* line 139 "../lib/enable_input.s7i" */ o_1079_read(&(o_1071_IN), o_1096_aVar); } /* line 1 "no_file" */ /* 566 */ /* line 153 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1097_read (charType/*t_18_char*/ *const o_1098_aVar, const charType/*t_18_char*/ o_1099_defaultValue) { /* line 155 "../lib/enable_input.s7i" */ o_1082_read(&(o_1071_IN), o_1098_aVar, o_1099_defaultValue); } /* line 1 "no_file" */ /* 567 */ /* line 167 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1100_readln (charType/*t_18_char*/ *const o_1101_aVar) { /* line 169 "../lib/enable_input.s7i" */ o_1087_readln(&(o_1071_IN), o_1101_aVar); } /* line 1 "no_file" */ /* 568 */ /* line 182 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1102_readln (charType/*t_18_char*/ *const o_1103_aVar, const charType/*t_18_char*/ o_1104_defaultValue) { /* line 184 "../lib/enable_input.s7i" */ o_1090_readln(&(o_1071_IN), o_1103_aVar, o_1104_defaultValue); } /* line 1 "no_file" */ /* 569 */ /* line 54 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1105_write (interfaceType/*t_46_file*/ *const o_1106_aFile, const charType/*t_18_char*/ o_1107_aValue) { { /* line 56 "../lib/enable_output.s7i" */ struct striStruct stri_1; /* line 56 "../lib/enable_output.s7i" */ o_889_write(o_1106_aFile, chrStrMacro(o_1107_aValue,stri_1)); } } /* line 1 "no_file" */ /* 570 */ /* line 62 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1108_writeln (interfaceType/*t_46_file*/ *const o_1109_aFile, const charType/*t_18_char*/ o_1110_aValue) { { /* line 64 "../lib/enable_output.s7i" */ struct striStruct stri_1; /* line 64 "../lib/enable_output.s7i" */ o_894_writeln(o_1109_aFile, chrStrMacro(o_1110_aValue,stri_1)); } } /* line 1 "no_file" */ /* 571 */ /* line 70 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1111_write (const charType/*t_18_char*/ o_1112_aValue) { /* line 72 "../lib/enable_output.s7i" */ o_1105_write(&(o_1074_OUT), o_1112_aValue); } /* line 1 "no_file" */ /* 572 */ /* line 78 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1113_writeln (const charType/*t_18_char*/ o_1114_aValue) { /* line 80 "../lib/enable_output.s7i" */ o_1108_writeln(&(o_1074_OUT), o_1114_aValue); } /* line 1 "no_file" */ /* 573 */ /* line 88 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1115_lpad (const charType/*t_18_char*/ o_1116_aValue, const intType/*t_14_integer*/ o_1117_leng) { /* line 89 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 89 "../lib/enable_output.s7i" */ struct striStruct stri_2; /* line 89 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strLpad(chrStrMacro(o_1116_aValue,stri_2), o_1117_leng))); /* line 89 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 574 */ /* line 96 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1118_rpad (const charType/*t_18_char*/ o_1119_aValue, const intType/*t_14_integer*/ o_1120_leng) { /* line 97 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 97 "../lib/enable_output.s7i" */ struct striStruct stri_2; /* line 97 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strRpad(chrStrMacro(o_1119_aValue,stri_2), o_1120_leng))); /* line 97 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 575 */ /* line 104 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1121/*<&*/ (const const_striType/*t_15_string*/ o_1122_stri, const charType/*t_18_char*/ o_1123_aValue) { /* line 105 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 105 "../lib/enable_output.s7i" */ struct striStruct stri_2; /* line 105 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strConcat(o_1122_stri, chrStrMacro(o_1123_aValue,stri_2)))); /* line 105 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 576 */ /* line 112 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1124/*<&*/ (const charType/*t_18_char*/ o_1125_aValue, const const_striType/*t_15_string*/ o_1126_stri) { /* line 113 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 113 "../lib/enable_output.s7i" */ struct striStruct stri_2; /* line 113 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strConcat(chrStrMacro(o_1125_aValue,stri_2), o_1126_stri))); /* line 113 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 577 */ /* line 61 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1127_read (interfaceType/*t_46_file*/ *const o_1128_inFile, intType/*t_14_integer*/ *const o_1129_aVar) { { /* line 63 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 63 "../lib/enable_input.s7i" */ *o_1129_aVar=intParse((tmp_1=(striType/*t_15_string*/)(o_921_getwd(o_1128_inFile)))); /* line 63 "../lib/enable_input.s7i" */ strDestr(tmp_1); } } /* line 1 "no_file" */ /* 578 */ /* line 77 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1130_read (interfaceType/*t_46_file*/ *const o_1131_inFile, intType/*t_14_integer*/ *const o_1132_aVar, const intType/*t_14_integer*/ o_1133_defaultValue) { /* line 80 "../lib/enable_input.s7i" */ striType/*t_15_string*/ o_1134_stri; /* line 80 "../lib/enable_input.s7i" */ o_1134_stri=strEmpty(); /* "" */ { /* line 82 "../lib/enable_input.s7i" */ striType old_stri=o_1134_stri; /* line 82 "../lib/enable_input.s7i" */ o_1134_stri=o_921_getwd(o_1131_inFile); /* line 82 "../lib/enable_input.s7i" */ strDestr(old_stri); } /* line 83 "../lib/enable_input.s7i" */ if (((o_1134_stri)->size==0 /* "" */)) { /* line 84 "../lib/enable_input.s7i" */ *o_1132_aVar=o_1133_defaultValue; } else { /* line 86 "../lib/enable_input.s7i" */ *o_1132_aVar=intParse(o_1134_stri); } /* line 77 "../lib/enable_input.s7i" */ strDestr(o_1134_stri); } /* line 1 "no_file" */ /* 579 */ /* line 99 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1135_readln (interfaceType/*t_46_file*/ *const o_1136_inFile, intType/*t_14_integer*/ *const o_1137_aVar) { { /* line 101 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); /* line 101 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 101 "../lib/enable_input.s7i" */ *o_1137_aVar=intParse((tmp_1=(striType/*t_15_string*/)(o_99_trimValue(&(typ[3] /* intType/t_14_integer */), (tmp_2=(striType/*t_15_string*/)(o_923_getln(o_1136_inFile))))))); /* line 101 "../lib/enable_input.s7i" */ strDestr(tmp_2); /* line 101 "../lib/enable_input.s7i" */ strDestr(tmp_1); } } /* line 1 "no_file" */ /* 580 */ /* line 114 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1138_readln (interfaceType/*t_46_file*/ *const o_1139_inFile, intType/*t_14_integer*/ *const o_1140_aVar, const intType/*t_14_integer*/ o_1141_defaultValue) { /* line 117 "../lib/enable_input.s7i" */ striType/*t_15_string*/ o_1142_stri; /* line 117 "../lib/enable_input.s7i" */ o_1142_stri=strEmpty(); /* "" */ { /* line 119 "../lib/enable_input.s7i" */ striType old_stri=o_1142_stri; /* line 119 "../lib/enable_input.s7i" */ o_1142_stri=o_923_getln(o_1139_inFile); /* line 119 "../lib/enable_input.s7i" */ strDestr(old_stri); } /* line 120 "../lib/enable_input.s7i" */ if (((o_1142_stri)->size==0 /* "" */)) { /* line 121 "../lib/enable_input.s7i" */ *o_1140_aVar=o_1141_defaultValue; } else { { /* line 123 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 123 "../lib/enable_input.s7i" */ *o_1140_aVar=intParse((tmp_1=(striType/*t_15_string*/)(o_99_trimValue(&(typ[3] /* intType/t_14_integer */), o_1142_stri)))); /* line 123 "../lib/enable_input.s7i" */ strDestr(tmp_1); } } /* line 114 "../lib/enable_input.s7i" */ strDestr(o_1142_stri); } /* line 1 "no_file" */ /* 581 */ /* line 137 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1143_read (intType/*t_14_integer*/ *const o_1144_aVar) { /* line 139 "../lib/enable_input.s7i" */ o_1127_read(&(o_1071_IN), o_1144_aVar); } /* line 1 "no_file" */ /* 582 */ /* line 153 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1145_read (intType/*t_14_integer*/ *const o_1146_aVar, const intType/*t_14_integer*/ o_1147_defaultValue) { /* line 155 "../lib/enable_input.s7i" */ o_1130_read(&(o_1071_IN), o_1146_aVar, o_1147_defaultValue); } /* line 1 "no_file" */ /* 583 */ /* line 167 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1148_readln (intType/*t_14_integer*/ *const o_1149_aVar) { /* line 169 "../lib/enable_input.s7i" */ o_1135_readln(&(o_1071_IN), o_1149_aVar); } /* line 1 "no_file" */ /* 584 */ /* line 182 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1150_readln (intType/*t_14_integer*/ *const o_1151_aVar, const intType/*t_14_integer*/ o_1152_defaultValue) { /* line 184 "../lib/enable_input.s7i" */ o_1138_readln(&(o_1071_IN), o_1151_aVar, o_1152_defaultValue); } /* line 1 "no_file" */ /* 585 */ /* line 54 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1153_write (interfaceType/*t_46_file*/ *const o_1154_aFile, const intType/*t_14_integer*/ o_1155_aValue) { { /* line 56 "../lib/enable_output.s7i" */ union { /* line 56 "../lib/enable_output.s7i" */ struct striStruct striBuf; /* line 56 "../lib/enable_output.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 56 "../lib/enable_output.s7i" */ } buffer_1; /* line 56 "../lib/enable_output.s7i" */ o_889_write(o_1154_aFile, intStrToBuffer(o_1155_aValue, &buffer_1.striBuf)); } } /* line 1 "no_file" */ /* 586 */ /* line 62 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1156_writeln (interfaceType/*t_46_file*/ *const o_1157_aFile, const intType/*t_14_integer*/ o_1158_aValue) { { /* line 64 "../lib/enable_output.s7i" */ union { /* line 64 "../lib/enable_output.s7i" */ struct striStruct striBuf; /* line 64 "../lib/enable_output.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 64 "../lib/enable_output.s7i" */ } buffer_1; /* line 64 "../lib/enable_output.s7i" */ o_894_writeln(o_1157_aFile, intStrToBuffer(o_1158_aValue, &buffer_1.striBuf)); } } /* line 1 "no_file" */ /* 587 */ /* line 70 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1159_write (const intType/*t_14_integer*/ o_1160_aValue) { /* line 72 "../lib/enable_output.s7i" */ o_1153_write(&(o_1074_OUT), o_1160_aValue); } /* line 1 "no_file" */ /* 588 */ /* line 78 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1161_writeln (const intType/*t_14_integer*/ o_1162_aValue) { /* line 80 "../lib/enable_output.s7i" */ o_1156_writeln(&(o_1074_OUT), o_1162_aValue); } /* line 1 "no_file" */ /* 589 */ /* line 88 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1163_lpad (const intType/*t_14_integer*/ o_1164_aValue, const intType/*t_14_integer*/ o_1165_leng) { /* line 89 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 89 "../lib/enable_output.s7i" */ union { /* line 89 "../lib/enable_output.s7i" */ struct striStruct striBuf; /* line 89 "../lib/enable_output.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 89 "../lib/enable_output.s7i" */ } buffer_2; /* line 89 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strLpad(intStrToBuffer(o_1164_aValue, &buffer_2.striBuf), o_1165_leng))); /* line 89 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 590 */ /* line 96 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1166_rpad (const intType/*t_14_integer*/ o_1167_aValue, const intType/*t_14_integer*/ o_1168_leng) { /* line 97 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 97 "../lib/enable_output.s7i" */ union { /* line 97 "../lib/enable_output.s7i" */ struct striStruct striBuf; /* line 97 "../lib/enable_output.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 97 "../lib/enable_output.s7i" */ } buffer_2; /* line 97 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strRpad(intStrToBuffer(o_1167_aValue, &buffer_2.striBuf), o_1168_leng))); /* line 97 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 591 */ /* line 104 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1169/*<&*/ (const const_striType/*t_15_string*/ o_1170_stri, const intType/*t_14_integer*/ o_1171_aValue) { /* line 105 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 105 "../lib/enable_output.s7i" */ union { /* line 105 "../lib/enable_output.s7i" */ struct striStruct striBuf; /* line 105 "../lib/enable_output.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 105 "../lib/enable_output.s7i" */ } buffer_2; /* line 105 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strConcat(o_1170_stri, intStrToBuffer(o_1171_aValue, &buffer_2.striBuf)))); /* line 105 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 592 */ /* line 112 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1172/*<&*/ (const intType/*t_14_integer*/ o_1173_aValue, const const_striType/*t_15_string*/ o_1174_stri) { /* line 113 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 113 "../lib/enable_output.s7i" */ union { /* line 113 "../lib/enable_output.s7i" */ struct striStruct striBuf; /* line 113 "../lib/enable_output.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 113 "../lib/enable_output.s7i" */ } buffer_2; /* line 113 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strConcat(intStrToBuffer(o_1173_aValue, &buffer_2.striBuf), o_1174_stri))); /* line 113 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 593 */ /* line 61 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1175_read (interfaceType/*t_46_file*/ *const o_1176_inFile, boolType/*t_13_boolean*/ *const o_1177_aVar) { { /* line 63 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 63 "../lib/enable_input.s7i" */ *o_1177_aVar=o_45_parse(/* attr t_13 boolean*/ (tmp_1=(striType/*t_15_string*/)(o_921_getwd(o_1176_inFile)))); /* line 63 "../lib/enable_input.s7i" */ strDestr(tmp_1); } } /* line 1 "no_file" */ /* 594 */ /* line 77 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1178_read (interfaceType/*t_46_file*/ *const o_1179_inFile, boolType/*t_13_boolean*/ *const o_1180_aVar, const boolType/*t_13_boolean*/ o_1181_defaultValue) { /* line 80 "../lib/enable_input.s7i" */ striType/*t_15_string*/ o_1182_stri; /* line 80 "../lib/enable_input.s7i" */ o_1182_stri=strEmpty(); /* "" */ { /* line 82 "../lib/enable_input.s7i" */ striType old_stri=o_1182_stri; /* line 82 "../lib/enable_input.s7i" */ o_1182_stri=o_921_getwd(o_1179_inFile); /* line 82 "../lib/enable_input.s7i" */ strDestr(old_stri); } /* line 83 "../lib/enable_input.s7i" */ if (((o_1182_stri)->size==0 /* "" */)) { /* line 84 "../lib/enable_input.s7i" */ *o_1180_aVar=o_1181_defaultValue; } else { /* line 86 "../lib/enable_input.s7i" */ *o_1180_aVar=o_45_parse(/* attr t_13 boolean*/ o_1182_stri); } /* line 77 "../lib/enable_input.s7i" */ strDestr(o_1182_stri); } /* line 1 "no_file" */ /* 595 */ /* line 99 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1183_readln (interfaceType/*t_46_file*/ *const o_1184_inFile, boolType/*t_13_boolean*/ *const o_1185_aVar) { { /* line 101 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); /* line 101 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 101 "../lib/enable_input.s7i" */ *o_1185_aVar=o_45_parse(/* attr t_13 boolean*/ (tmp_1=(striType/*t_15_string*/)(o_99_trimValue(&(typ[4] /* boolType/t_13_boolean */), (tmp_2=(striType/*t_15_string*/)(o_923_getln(o_1184_inFile))))))); /* line 101 "../lib/enable_input.s7i" */ strDestr(tmp_2); /* line 101 "../lib/enable_input.s7i" */ strDestr(tmp_1); } } /* line 1 "no_file" */ /* 596 */ /* line 114 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1186_readln (interfaceType/*t_46_file*/ *const o_1187_inFile, boolType/*t_13_boolean*/ *const o_1188_aVar, const boolType/*t_13_boolean*/ o_1189_defaultValue) { /* line 117 "../lib/enable_input.s7i" */ striType/*t_15_string*/ o_1190_stri; /* line 117 "../lib/enable_input.s7i" */ o_1190_stri=strEmpty(); /* "" */ { /* line 119 "../lib/enable_input.s7i" */ striType old_stri=o_1190_stri; /* line 119 "../lib/enable_input.s7i" */ o_1190_stri=o_923_getln(o_1187_inFile); /* line 119 "../lib/enable_input.s7i" */ strDestr(old_stri); } /* line 120 "../lib/enable_input.s7i" */ if (((o_1190_stri)->size==0 /* "" */)) { /* line 121 "../lib/enable_input.s7i" */ *o_1188_aVar=o_1189_defaultValue; } else { { /* line 123 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 123 "../lib/enable_input.s7i" */ *o_1188_aVar=o_45_parse(/* attr t_13 boolean*/ (tmp_1=(striType/*t_15_string*/)(o_99_trimValue(&(typ[4] /* boolType/t_13_boolean */), o_1190_stri)))); /* line 123 "../lib/enable_input.s7i" */ strDestr(tmp_1); } } /* line 114 "../lib/enable_input.s7i" */ strDestr(o_1190_stri); } /* line 1 "no_file" */ /* 597 */ /* line 137 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1191_read (boolType/*t_13_boolean*/ *const o_1192_aVar) { /* line 139 "../lib/enable_input.s7i" */ o_1175_read(&(o_1071_IN), o_1192_aVar); } /* line 1 "no_file" */ /* 598 */ /* line 153 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1193_read (boolType/*t_13_boolean*/ *const o_1194_aVar, const boolType/*t_13_boolean*/ o_1195_defaultValue) { /* line 155 "../lib/enable_input.s7i" */ o_1178_read(&(o_1071_IN), o_1194_aVar, o_1195_defaultValue); } /* line 1 "no_file" */ /* 599 */ /* line 167 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1196_readln (boolType/*t_13_boolean*/ *const o_1197_aVar) { /* line 169 "../lib/enable_input.s7i" */ o_1183_readln(&(o_1071_IN), o_1197_aVar); } /* line 1 "no_file" */ /* 600 */ /* line 182 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1198_readln (boolType/*t_13_boolean*/ *const o_1199_aVar, const boolType/*t_13_boolean*/ o_1200_defaultValue) { /* line 184 "../lib/enable_input.s7i" */ o_1186_readln(&(o_1071_IN), o_1199_aVar, o_1200_defaultValue); } /* line 1 "no_file" */ /* 601 */ /* line 54 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1201_write (interfaceType/*t_46_file*/ *const o_1202_aFile, const boolType/*t_13_boolean*/ o_1203_aValue) { { /* line 56 "../lib/enable_output.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 56 "../lib/enable_output.s7i" */ o_889_write(o_1202_aFile, (tmp_1=(striType/*t_15_string*/)(o_43_str(o_1203_aValue)))); /* line 56 "../lib/enable_output.s7i" */ strDestr(tmp_1); } } /* line 1 "no_file" */ /* 602 */ /* line 62 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1204_writeln (interfaceType/*t_46_file*/ *const o_1205_aFile, const boolType/*t_13_boolean*/ o_1206_aValue) { { /* line 64 "../lib/enable_output.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 64 "../lib/enable_output.s7i" */ o_894_writeln(o_1205_aFile, (tmp_1=(striType/*t_15_string*/)(o_43_str(o_1206_aValue)))); /* line 64 "../lib/enable_output.s7i" */ strDestr(tmp_1); } } /* line 1 "no_file" */ /* 603 */ /* line 70 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1207_write (const boolType/*t_13_boolean*/ o_1208_aValue) { /* line 72 "../lib/enable_output.s7i" */ o_1201_write(&(o_1074_OUT), o_1208_aValue); } /* line 1 "no_file" */ /* 604 */ /* line 78 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1209_writeln (const boolType/*t_13_boolean*/ o_1210_aValue) { /* line 80 "../lib/enable_output.s7i" */ o_1204_writeln(&(o_1074_OUT), o_1210_aValue); } /* line 1 "no_file" */ /* 605 */ /* line 88 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1211_lpad (const boolType/*t_13_boolean*/ o_1212_aValue, const intType/*t_14_integer*/ o_1213_leng) { /* line 89 "../lib/enable_output.s7i" */ return (striType/*t_15_string*/)((strLpadTemp(o_43_str(o_1212_aValue), o_1213_leng))); } /* line 1 "no_file" */ /* 606 */ /* line 96 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1214_rpad (const boolType/*t_13_boolean*/ o_1215_aValue, const intType/*t_14_integer*/ o_1216_leng) { /* line 97 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 97 "../lib/enable_output.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); /* line 97 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strRpad((tmp_2=(striType/*t_15_string*/)(o_43_str(o_1215_aValue))), o_1216_leng))); /* line 97 "../lib/enable_output.s7i" */ strDestr(tmp_2); /* line 97 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 607 */ /* line 104 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1217/*<&*/ (const const_striType/*t_15_string*/ o_1218_stri, const boolType/*t_13_boolean*/ o_1219_aValue) { /* line 105 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 105 "../lib/enable_output.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); /* line 105 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strConcat(o_1218_stri, (tmp_2=(striType/*t_15_string*/)(o_43_str(o_1219_aValue)))))); /* line 105 "../lib/enable_output.s7i" */ strDestr(tmp_2); /* line 105 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 608 */ /* line 112 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1220/*<&*/ (const boolType/*t_13_boolean*/ o_1221_aValue, const const_striType/*t_15_string*/ o_1222_stri) { /* line 113 "../lib/enable_output.s7i" */ return (striType/*t_15_string*/)((strConcatTemp(o_43_str(o_1221_aValue), o_1222_stri))); } /* line 1 "no_file" */ /* 609 */ /* line 61 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1223_read (interfaceType/*t_46_file*/ *const o_1224_inFile, setType/*t_30_bitset*/ *const o_1225_aVar) { { /* line 63 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); { /* line 63 "../lib/enable_input.s7i" */ setType old_set=*o_1225_aVar; /* line 63 "../lib/enable_input.s7i" */ *o_1225_aVar=o_399_parse(/* attr t_30 bitset*/ (tmp_2=(striType/*t_15_string*/)(o_921_getwd(o_1224_inFile)))); /* line 63 "../lib/enable_input.s7i" */ setDestr(old_set); } /* line 63 "../lib/enable_input.s7i" */ strDestr(tmp_2); } } /* line 1 "no_file" */ /* 610 */ /* line 77 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1226_read (interfaceType/*t_46_file*/ *const o_1227_inFile, setType/*t_30_bitset*/ *const o_1228_aVar, const const_setType/*t_30_bitset*/ value_o_1229_defaultValue) { /* line 77 "../lib/enable_input.s7i" */ const_setType/*t_30_bitset*/ o_1229_defaultValue; /* line 80 "../lib/enable_input.s7i" */ striType/*t_15_string*/ o_1230_stri; /* line 77 "../lib/enable_input.s7i" */ o_1229_defaultValue=setCreate(value_o_1229_defaultValue); /* line 80 "../lib/enable_input.s7i" */ o_1230_stri=strEmpty(); /* "" */ { /* line 82 "../lib/enable_input.s7i" */ striType old_stri=o_1230_stri; /* line 82 "../lib/enable_input.s7i" */ o_1230_stri=o_921_getwd(o_1227_inFile); /* line 82 "../lib/enable_input.s7i" */ strDestr(old_stri); } /* line 83 "../lib/enable_input.s7i" */ if (((o_1230_stri)->size==0 /* "" */)) { /* line 84 "../lib/enable_input.s7i" */ setCpy(&(*o_1228_aVar), o_1229_defaultValue); } else { { /* line 86 "../lib/enable_input.s7i" */ setType old_set=*o_1228_aVar; /* line 86 "../lib/enable_input.s7i" */ *o_1228_aVar=o_399_parse(/* attr t_30 bitset*/ o_1230_stri); /* line 86 "../lib/enable_input.s7i" */ setDestr(old_set); } } /* line 77 "../lib/enable_input.s7i" */ setDestr(o_1229_defaultValue); /* line 77 "../lib/enable_input.s7i" */ strDestr(o_1230_stri); } /* line 1 "no_file" */ /* 611 */ /* line 99 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1231_readln (interfaceType/*t_46_file*/ *const o_1232_inFile, setType/*t_30_bitset*/ *const o_1233_aVar) { { /* line 101 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_3 = (striType/*t_15_string*/)(NULL); /* line 101 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); { /* line 101 "../lib/enable_input.s7i" */ setType old_set=*o_1233_aVar; /* line 101 "../lib/enable_input.s7i" */ *o_1233_aVar=o_399_parse(/* attr t_30 bitset*/ (tmp_2=(striType/*t_15_string*/)(o_99_trimValue(&(typ[5] /* setType/t_30_bitset */), (tmp_3=(striType/*t_15_string*/)(o_923_getln(o_1232_inFile))))))); /* line 101 "../lib/enable_input.s7i" */ setDestr(old_set); } /* line 101 "../lib/enable_input.s7i" */ strDestr(tmp_3); /* line 101 "../lib/enable_input.s7i" */ strDestr(tmp_2); } } /* line 1 "no_file" */ /* 612 */ /* line 114 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1234_readln (interfaceType/*t_46_file*/ *const o_1235_inFile, setType/*t_30_bitset*/ *const o_1236_aVar, const const_setType/*t_30_bitset*/ value_o_1237_defaultValue) { /* line 114 "../lib/enable_input.s7i" */ const_setType/*t_30_bitset*/ o_1237_defaultValue; /* line 117 "../lib/enable_input.s7i" */ striType/*t_15_string*/ o_1238_stri; /* line 114 "../lib/enable_input.s7i" */ o_1237_defaultValue=setCreate(value_o_1237_defaultValue); /* line 117 "../lib/enable_input.s7i" */ o_1238_stri=strEmpty(); /* "" */ { /* line 119 "../lib/enable_input.s7i" */ striType old_stri=o_1238_stri; /* line 119 "../lib/enable_input.s7i" */ o_1238_stri=o_923_getln(o_1235_inFile); /* line 119 "../lib/enable_input.s7i" */ strDestr(old_stri); } /* line 120 "../lib/enable_input.s7i" */ if (((o_1238_stri)->size==0 /* "" */)) { /* line 121 "../lib/enable_input.s7i" */ setCpy(&(*o_1236_aVar), o_1237_defaultValue); } else { { /* line 123 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); { /* line 123 "../lib/enable_input.s7i" */ setType old_set=*o_1236_aVar; /* line 123 "../lib/enable_input.s7i" */ *o_1236_aVar=o_399_parse(/* attr t_30 bitset*/ (tmp_2=(striType/*t_15_string*/)(o_99_trimValue(&(typ[5] /* setType/t_30_bitset */), o_1238_stri)))); /* line 123 "../lib/enable_input.s7i" */ setDestr(old_set); } /* line 123 "../lib/enable_input.s7i" */ strDestr(tmp_2); } } /* line 114 "../lib/enable_input.s7i" */ setDestr(o_1237_defaultValue); /* line 114 "../lib/enable_input.s7i" */ strDestr(o_1238_stri); } /* line 1 "no_file" */ /* 613 */ /* line 137 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1239_read (setType/*t_30_bitset*/ *const o_1240_aVar) { /* line 139 "../lib/enable_input.s7i" */ o_1223_read(&(o_1071_IN), o_1240_aVar); } /* line 1 "no_file" */ /* 614 */ /* line 153 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1241_read (setType/*t_30_bitset*/ *const o_1242_aVar, const const_setType/*t_30_bitset*/ value_o_1243_defaultValue) { /* line 153 "../lib/enable_input.s7i" */ const_setType/*t_30_bitset*/ o_1243_defaultValue; /* line 153 "../lib/enable_input.s7i" */ o_1243_defaultValue=setCreate(value_o_1243_defaultValue); /* line 155 "../lib/enable_input.s7i" */ o_1226_read(&(o_1071_IN), o_1242_aVar, o_1243_defaultValue); /* line 153 "../lib/enable_input.s7i" */ setDestr(o_1243_defaultValue); } /* line 1 "no_file" */ /* 615 */ /* line 167 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1244_readln (setType/*t_30_bitset*/ *const o_1245_aVar) { /* line 169 "../lib/enable_input.s7i" */ o_1231_readln(&(o_1071_IN), o_1245_aVar); } /* line 1 "no_file" */ /* 616 */ /* line 182 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1246_readln (setType/*t_30_bitset*/ *const o_1247_aVar, const const_setType/*t_30_bitset*/ value_o_1248_defaultValue) { /* line 182 "../lib/enable_input.s7i" */ const_setType/*t_30_bitset*/ o_1248_defaultValue; /* line 182 "../lib/enable_input.s7i" */ o_1248_defaultValue=setCreate(value_o_1248_defaultValue); /* line 184 "../lib/enable_input.s7i" */ o_1234_readln(&(o_1071_IN), o_1247_aVar, o_1248_defaultValue); /* line 182 "../lib/enable_input.s7i" */ setDestr(o_1248_defaultValue); } /* line 1 "no_file" */ /* 617 */ /* line 54 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1249_write (interfaceType/*t_46_file*/ *const o_1250_aFile, const const_setType/*t_30_bitset*/ value_o_1251_aValue) { /* line 54 "../lib/enable_output.s7i" */ const_setType/*t_30_bitset*/ o_1251_aValue; /* line 54 "../lib/enable_output.s7i" */ o_1251_aValue=setCreate(value_o_1251_aValue); { /* line 56 "../lib/enable_output.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 56 "../lib/enable_output.s7i" */ o_889_write(o_1250_aFile, (tmp_1=(striType/*t_15_string*/)(o_390_str(o_1251_aValue)))); /* line 56 "../lib/enable_output.s7i" */ strDestr(tmp_1); } /* line 54 "../lib/enable_output.s7i" */ setDestr(o_1251_aValue); } /* line 1 "no_file" */ /* 618 */ /* line 62 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1252_writeln (interfaceType/*t_46_file*/ *const o_1253_aFile, const const_setType/*t_30_bitset*/ value_o_1254_aValue) { /* line 62 "../lib/enable_output.s7i" */ const_setType/*t_30_bitset*/ o_1254_aValue; /* line 62 "../lib/enable_output.s7i" */ o_1254_aValue=setCreate(value_o_1254_aValue); { /* line 64 "../lib/enable_output.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 64 "../lib/enable_output.s7i" */ o_894_writeln(o_1253_aFile, (tmp_1=(striType/*t_15_string*/)(o_390_str(o_1254_aValue)))); /* line 64 "../lib/enable_output.s7i" */ strDestr(tmp_1); } /* line 62 "../lib/enable_output.s7i" */ setDestr(o_1254_aValue); } /* line 1 "no_file" */ /* 619 */ /* line 70 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1255_write (const const_setType/*t_30_bitset*/ value_o_1256_aValue) { /* line 70 "../lib/enable_output.s7i" */ const_setType/*t_30_bitset*/ o_1256_aValue; /* line 70 "../lib/enable_output.s7i" */ o_1256_aValue=setCreate(value_o_1256_aValue); /* line 72 "../lib/enable_output.s7i" */ o_1249_write(&(o_1074_OUT), o_1256_aValue); /* line 70 "../lib/enable_output.s7i" */ setDestr(o_1256_aValue); } /* line 1 "no_file" */ /* 620 */ /* line 78 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1257_writeln (const const_setType/*t_30_bitset*/ value_o_1258_aValue) { /* line 78 "../lib/enable_output.s7i" */ const_setType/*t_30_bitset*/ o_1258_aValue; /* line 78 "../lib/enable_output.s7i" */ o_1258_aValue=setCreate(value_o_1258_aValue); /* line 80 "../lib/enable_output.s7i" */ o_1252_writeln(&(o_1074_OUT), o_1258_aValue); /* line 78 "../lib/enable_output.s7i" */ setDestr(o_1258_aValue); } /* line 1 "no_file" */ /* 621 */ /* line 88 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1259_lpad (const const_setType/*t_30_bitset*/ value_o_1260_aValue, const intType/*t_14_integer*/ o_1261_leng) { /* line 89 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 89 "../lib/enable_output.s7i" */ const_setType/*t_30_bitset*/ o_1260_aValue; /* line 89 "../lib/enable_output.s7i" */ o_1260_aValue=setCreate(value_o_1260_aValue); /* line 89 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strLpadTemp(o_390_str(o_1260_aValue), o_1261_leng))); /* line 89 "../lib/enable_output.s7i" */ setDestr(o_1260_aValue); /* line 89 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 622 */ /* line 96 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1262_rpad (const const_setType/*t_30_bitset*/ value_o_1263_aValue, const intType/*t_14_integer*/ o_1264_leng) { /* line 97 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 97 "../lib/enable_output.s7i" */ const_setType/*t_30_bitset*/ o_1263_aValue; /* line 97 "../lib/enable_output.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); /* line 97 "../lib/enable_output.s7i" */ o_1263_aValue=setCreate(value_o_1263_aValue); /* line 97 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strRpad((tmp_2=(striType/*t_15_string*/)(o_390_str(o_1263_aValue))), o_1264_leng))); /* line 97 "../lib/enable_output.s7i" */ setDestr(o_1263_aValue); /* line 97 "../lib/enable_output.s7i" */ strDestr(tmp_2); /* line 97 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 623 */ /* line 104 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1265/*<&*/ (const const_striType/*t_15_string*/ o_1266_stri, const const_setType/*t_30_bitset*/ value_o_1267_aValue) { /* line 105 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 105 "../lib/enable_output.s7i" */ const_setType/*t_30_bitset*/ o_1267_aValue; /* line 105 "../lib/enable_output.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); /* line 105 "../lib/enable_output.s7i" */ o_1267_aValue=setCreate(value_o_1267_aValue); /* line 105 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strConcat(o_1266_stri, (tmp_2=(striType/*t_15_string*/)(o_390_str(o_1267_aValue)))))); /* line 105 "../lib/enable_output.s7i" */ setDestr(o_1267_aValue); /* line 105 "../lib/enable_output.s7i" */ strDestr(tmp_2); /* line 105 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 624 */ /* line 112 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1268/*<&*/ (const const_setType/*t_30_bitset*/ value_o_1269_aValue, const const_striType/*t_15_string*/ o_1270_stri) { /* line 113 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 113 "../lib/enable_output.s7i" */ const_setType/*t_30_bitset*/ o_1269_aValue; /* line 113 "../lib/enable_output.s7i" */ o_1269_aValue=setCreate(value_o_1269_aValue); /* line 113 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strConcatTemp(o_390_str(o_1269_aValue), o_1270_stri))); /* line 113 "../lib/enable_output.s7i" */ setDestr(o_1269_aValue); /* line 113 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 625 */ /* line 35 "../lib/stdio.s7i" */ static structType/*t_53_external_file*/ o_1271_INIT_STD_FILE (const fileType/*t_50_clib_file*/ *const o_1272_primitive_file, const const_striType/*t_15_string*/ o_1273_fileName) { /* line 38 "../lib/stdio.s7i" */ structType/*t_53_external_file*/ o_1274_standardFile; /* line 38 "../lib/stdio.s7i" */ o_1274_standardFile=create_53(sct[16]); /* line 40 "../lib/stdio.s7i" */ ((structType)(o_1274_standardFile))->stru[1].value.fileValue/*->o_1020_ext_file*/=*o_1272_primitive_file; /* line 41 "../lib/stdio.s7i" */ strCopy(&(((structType)(o_1274_standardFile))->stru[2].value.striValue/*->o_1021_name*/), o_1273_fileName); return o_1274_standardFile; } /* line 1 "no_file" */ /* 626 */ structType/*t_53_external_file*/ o_1275_STD_IN; /* 627 */ structType/*t_53_external_file*/ o_1276_STD_OUT; /* 628 */ structType/*t_53_external_file*/ o_1277_STD_ERR; /* 629 */ interfaceType/*t_46_file*/ o_1071_IN; /* 630 */ interfaceType/*t_46_file*/ o_1074_OUT; /* 631 */ interfaceType/*t_46_file*/ o_1278_PROT_OUTFILE; /* 632 */ /* line 90 "../lib/stdio.s7i" */ static void/*t_1_void*/ o_1279_write (const const_striType/*t_15_string*/ o_1280_stri) { /* line 92 "../lib/stdio.s7i" */ o_889_write(&(o_1074_OUT), o_1280_stri); } /* line 1 "no_file" */ /* 633 */ /* line 102 "../lib/stdio.s7i" */ static void/*t_1_void*/ o_1281_writeln (void) { /* line 104 "../lib/stdio.s7i" */ o_892_writeln(&(o_1074_OUT)); } /* line 1 "no_file" */ /* 634 */ /* line 114 "../lib/stdio.s7i" */ static void/*t_1_void*/ o_1282_writeln (const const_striType/*t_15_string*/ o_1283_stri) { /* line 116 "../lib/stdio.s7i" */ o_894_writeln(&(o_1074_OUT), o_1283_stri); } /* line 1 "no_file" */ /* 635 */ /* line 128 "../lib/stdio.s7i" */ static void/*t_1_void*/ o_1284_read (striType/*t_15_string*/ *const o_1285_aVar) { /* line 130 "../lib/stdio.s7i" */ o_946_read(&(o_1071_IN), o_1285_aVar); } /* line 1 "no_file" */ /* 636 */ /* line 143 "../lib/stdio.s7i" */ static void/*t_1_void*/ o_1286_read (striType/*t_15_string*/ *const o_1287_aVar, const const_striType/*t_15_string*/ o_1288_defaultValue) { /* line 145 "../lib/stdio.s7i" */ o_949_read(&(o_1071_IN), o_1287_aVar, o_1288_defaultValue); } /* line 1 "no_file" */ /* 637 */ /* line 156 "../lib/stdio.s7i" */ static void/*t_1_void*/ o_1289_readln (striType/*t_15_string*/ *const o_1290_aVar) { /* line 158 "../lib/stdio.s7i" */ o_953_readln(&(o_1071_IN), o_1290_aVar); } /* line 1 "no_file" */ /* 638 */ /* line 170 "../lib/stdio.s7i" */ static void/*t_1_void*/ o_1291_readln (striType/*t_15_string*/ *const o_1292_aVar, const const_striType/*t_15_string*/ o_1293_defaultValue) { /* line 172 "../lib/stdio.s7i" */ o_956_readln(&(o_1071_IN), o_1292_aVar, o_1293_defaultValue); } /* line 1 "no_file" */ /* 639 */ /* line 182 "../lib/stdio.s7i" */ static void/*t_1_void*/ o_1294_readln (void) { /* line 184 "../lib/stdio.s7i" */ striType/*t_15_string*/ o_1295_stri; /* line 184 "../lib/stdio.s7i" */ o_1295_stri=strEmpty(); /* "" */ { /* line 186 "../lib/stdio.s7i" */ striType old_stri=o_1295_stri; /* line 186 "../lib/stdio.s7i" */ o_1295_stri=o_923_getln(&(o_1071_IN)); /* line 186 "../lib/stdio.s7i" */ strDestr(old_stri); } /* line 182 "../lib/stdio.s7i" */ strDestr(o_1295_stri); } /* line 1 "no_file" */ /* 640 */ typedef genericType t_54/*t_54_time*/; /* 641 */ /* 642 */ /* 643 */ typedef genericType t_55/*t_55_*ANONYM_TYPE**/; /* 644 */ /* 645 */ /* 646 */ /* 647 */ /* 648 */ /* objRefType/t_55_*ANONYM_TYPE* */ objRefType o_1296/*.*/=(objRefType)(NULL); /* 649 */ /* objRefType/t_55_*ANONYM_TYPE* */ objRefType o_1297/*.*/=(objRefType)(NULL); /* 650 */ typedef genericType t_56/*t_56_*ANONYM_TYPE**/; /* 651 */ /* 652 */ /* 653 */ /* 654 */ /* 655 */ /* objRefType/t_56_*ANONYM_TYPE* */ objRefType o_1298/*.*/=(objRefType)(NULL); /* 656 */ /* objRefType/t_56_*ANONYM_TYPE* */ objRefType o_1299/*.*/=(objRefType)(NULL); /* 657 */ /* 658 */ /* 659 */ /* 660 */ /* struct element intType/t_14_integer ** structType/t_54_time->o_1300_year = 0 */ /* 661 */ /* struct element intType/t_14_integer ** structType/t_54_time->o_1300_year = 0 */ /* 662 */ /* ref struct element intType/t_14_integer ** objRefType/t_55_*ANONYM_TYPE*->o_1300_year = 0 */ /* 663 */ /* ref struct element intType/t_14_integer ** objRefType/t_56_*ANONYM_TYPE*->o_1300_year = 0 */ /* 664 */ /* struct element intType/t_14_integer ** structType/t_54_time->o_1301_month = 1 */ /* 665 */ /* struct element intType/t_14_integer ** structType/t_54_time->o_1301_month = 1 */ /* 666 */ /* ref struct element intType/t_14_integer ** objRefType/t_55_*ANONYM_TYPE*->o_1301_month = 1 */ /* 667 */ /* ref struct element intType/t_14_integer ** objRefType/t_56_*ANONYM_TYPE*->o_1301_month = 1 */ /* 668 */ /* struct element intType/t_14_integer ** structType/t_54_time->o_1302_day = 2 */ /* 669 */ /* struct element intType/t_14_integer ** structType/t_54_time->o_1302_day = 2 */ /* 670 */ /* ref struct element intType/t_14_integer ** objRefType/t_55_*ANONYM_TYPE*->o_1302_day = 2 */ /* 671 */ /* ref struct element intType/t_14_integer ** objRefType/t_56_*ANONYM_TYPE*->o_1302_day = 2 */ /* 672 */ /* struct element intType/t_14_integer ** structType/t_54_time->o_1303_hour = 3 */ /* 673 */ /* struct element intType/t_14_integer ** structType/t_54_time->o_1303_hour = 3 */ /* 674 */ /* ref struct element intType/t_14_integer ** objRefType/t_55_*ANONYM_TYPE*->o_1303_hour = 3 */ /* 675 */ /* ref struct element intType/t_14_integer ** objRefType/t_56_*ANONYM_TYPE*->o_1303_hour = 3 */ /* 676 */ /* struct element intType/t_14_integer ** structType/t_54_time->o_1304_minute = 4 */ /* 677 */ /* struct element intType/t_14_integer ** structType/t_54_time->o_1304_minute = 4 */ /* 678 */ /* ref struct element intType/t_14_integer ** objRefType/t_55_*ANONYM_TYPE*->o_1304_minute = 4 */ /* 679 */ /* ref struct element intType/t_14_integer ** objRefType/t_56_*ANONYM_TYPE*->o_1304_minute = 4 */ /* 680 */ /* struct element intType/t_14_integer ** structType/t_54_time->o_1305_second = 5 */ /* 681 */ /* struct element intType/t_14_integer ** structType/t_54_time->o_1305_second = 5 */ /* 682 */ /* ref struct element intType/t_14_integer ** objRefType/t_55_*ANONYM_TYPE*->o_1305_second = 5 */ /* 683 */ /* ref struct element intType/t_14_integer ** objRefType/t_56_*ANONYM_TYPE*->o_1305_second = 5 */ /* 684 */ /* struct element intType/t_14_integer ** structType/t_54_time->o_1306_micro_second = 6 */ /* 685 */ /* struct element intType/t_14_integer ** structType/t_54_time->o_1306_micro_second = 6 */ /* 686 */ /* ref struct element intType/t_14_integer ** objRefType/t_55_*ANONYM_TYPE*->o_1306_micro_second = 6 */ /* 687 */ /* ref struct element intType/t_14_integer ** objRefType/t_56_*ANONYM_TYPE*->o_1306_micro_second = 6 */ /* 688 */ /* struct element intType/t_14_integer ** structType/t_54_time->o_1307_timeZone = 7 */ /* 689 */ /* struct element intType/t_14_integer ** structType/t_54_time->o_1307_timeZone = 7 */ /* 690 */ /* ref struct element intType/t_14_integer ** objRefType/t_55_*ANONYM_TYPE*->o_1307_timeZone = 7 */ /* 691 */ /* ref struct element intType/t_14_integer ** objRefType/t_56_*ANONYM_TYPE*->o_1307_timeZone = 7 */ /* 692 */ /* struct element boolType/t_13_boolean ** structType/t_54_time->o_1308_daylightSavingTime = 8 */ /* 693 */ /* struct element boolType/t_13_boolean ** structType/t_54_time->o_1308_daylightSavingTime = 8 */ /* 694 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_55_*ANONYM_TYPE*->o_1308_daylightSavingTime = 8 */ /* 695 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_56_*ANONYM_TYPE*->o_1308_daylightSavingTime = 8 */ /* 696 */ structType/*t_54_time*/ o_1309/*.*/; /* 697 */ /* line 79 "../lib/time.s7i" */ static boolType/*t_13_boolean*/ o_1310_isLeapYear (const intType/*t_14_integer*/ o_1311_year) { /* line 80 "../lib/time.s7i" */ return (boolType/*t_13_boolean*/)((((((o_1311_year) % 4L) == (0L)) && /* line 80 "../lib/time.s7i" */ (((o_1311_year) % 100L) != (0L))) || /* line 80 "../lib/time.s7i" */ (((o_1311_year) % 400L) == (0L)))); } /* line 1 "no_file" */ /* 698 */ /* line 87 "../lib/time.s7i" */ static intType/*t_14_integer*/ o_1312_daysInYear (const intType/*t_14_integer*/ o_1313_year) { /* line 89 "../lib/time.s7i" */ intType/*t_14_integer*/ o_1314_days=0; /* line 91 "../lib/time.s7i" */ if (o_1310_isLeapYear(o_1313_year)) { /* line 92 "../lib/time.s7i" */ o_1314_days=366L; } else { /* line 94 "../lib/time.s7i" */ o_1314_days=365L; } return o_1314_days; } /* line 1 "no_file" */ /* 699 */ /* line 103 "../lib/time.s7i" */ static intType/*t_14_integer*/ o_1315_daysInMonth (const intType/*t_14_integer*/ o_1316_year, const intType/*t_14_integer*/ o_1317_month) { /* line 105 "../lib/time.s7i" */ intType/*t_14_integer*/ o_1318_leng=0; /* line 109 "../lib/time.s7i" */ if (((uintType)((o_1317_month))<=31&&0x00000000000015aa>>(o_1317_month)&1)) { /* line 110 "../lib/time.s7i" */ o_1318_leng=31L; } else { /* line 112 "../lib/time.s7i" */ if ((o_1317_month) == (2L)) { /* line 113 "../lib/time.s7i" */ if (o_1310_isLeapYear(o_1316_year)) { /* line 114 "../lib/time.s7i" */ o_1318_leng=29L; } else { /* line 116 "../lib/time.s7i" */ o_1318_leng=28L; } } else { /* line 119 "../lib/time.s7i" */ o_1318_leng=30L; } } return o_1318_leng; } /* line 1 "no_file" */ /* 700 */ /* line 129 "../lib/time.s7i" */ static intType/*t_14_integer*/ o_1319_daysInMonth (const structType/*t_54_time*/ o_1320_date) { /* line 130 "../lib/time.s7i" */ return (intType/*t_14_integer*/)((o_1315_daysInMonth(((structType)(o_1320_date))->stru[0].value.intValue/*->o_1300_year*/, ((structType)(o_1320_date))->stru[1].value.intValue/*->o_1301_month*/))); } /* line 1 "no_file" */ /* 701 */ /* line 137 "../lib/time.s7i" */ static striType/*t_15_string*/ o_1321_strDate (const structType/*t_54_time*/ o_1322_aTime) { /* line 139 "../lib/time.s7i" */ striType/*t_15_string*/ result; /* line 139 "../lib/time.s7i" */ const_striType tmp_2[5]; /* line 139 "../lib/time.s7i" */ striType tmp_3 = NULL; /* line 139 "../lib/time.s7i" */ striType tmp_4 = NULL; /* line 139 "../lib/time.s7i" */ striType tmp_5 = NULL; /* line 139 "../lib/time.s7i" */ result=(striType/*t_15_string*/)(((tmp_2[0] = (tmp_3=intLpad0(((structType)(o_1322_aTime))->stru[0].value.intValue/*->o_1300_year*/,4L)), tmp_2[1] = &str[19] /* "-" */, tmp_2[2] = (tmp_4=intLpad0(((structType)(o_1322_aTime))->stru[1].value.intValue/*->o_1301_month*/,2L)), tmp_2[3] = &str[19] /* "-" */, tmp_2[4] = (tmp_5=intLpad0(((structType)(o_1322_aTime))->stru[2].value.intValue/*->o_1302_day*/,2L)), strConcatN(tmp_2, 5)))); /* line 139 "../lib/time.s7i" */ strDestr(tmp_3); /* line 139 "../lib/time.s7i" */ strDestr(tmp_4); /* line 139 "../lib/time.s7i" */ strDestr(tmp_5); /* line 139 "../lib/time.s7i" */ return result; } /* line 1 "no_file" */ /* 702 */ /* line 147 "../lib/time.s7i" */ static striType/*t_15_string*/ o_1323_strTime (const structType/*t_54_time*/ o_1324_aTime) { /* line 149 "../lib/time.s7i" */ striType/*t_15_string*/ o_1325_isoTime; /* line 149 "../lib/time.s7i" */ o_1325_isoTime=strEmpty(); /* "" */ { /* line 151 "../lib/time.s7i" */ const_striType tmp_2[5]; /* line 151 "../lib/time.s7i" */ striType tmp_3 = NULL; /* line 151 "../lib/time.s7i" */ striType tmp_4 = NULL; /* line 151 "../lib/time.s7i" */ striType tmp_5 = NULL; /* line 151 "../lib/time.s7i" */ striType old_stri=o_1325_isoTime; /* line 151 "../lib/time.s7i" */ o_1325_isoTime=(tmp_2[0] = (tmp_3=intLpad0(((structType)(o_1324_aTime))->stru[3].value.intValue/*->o_1303_hour*/,2L)), tmp_2[1] = &str[23] /* ":" */, tmp_2[2] = (tmp_4=intLpad0(((structType)(o_1324_aTime))->stru[4].value.intValue/*->o_1304_minute*/,2L)), tmp_2[3] = &str[23] /* ":" */, tmp_2[4] = (tmp_5=intLpad0(((structType)(o_1324_aTime))->stru[5].value.intValue/*->o_1305_second*/,2L)), strConcatN(tmp_2, 5)); /* line 151 "../lib/time.s7i" */ strDestr(old_stri); /* line 151 "../lib/time.s7i" */ strDestr(tmp_3); /* line 151 "../lib/time.s7i" */ strDestr(tmp_4); /* line 151 "../lib/time.s7i" */ strDestr(tmp_5); } /* line 154 "../lib/time.s7i" */ if ((((structType)(o_1324_aTime))->stru[6].value.intValue/*->o_1306_micro_second*/) != (0L)) { { /* line 155 "../lib/time.s7i" */ striType tmp_2 = NULL; /* line 155 "../lib/time.s7i" */ strAppendTemp(&(o_1325_isoTime), strConcat(&str[16] /* "." */, (tmp_2=intLpad0(((structType)(o_1324_aTime))->stru[6].value.intValue/*->o_1306_micro_second*/,6L)))); /* line 155 "../lib/time.s7i" */ strDestr(tmp_2); } } return o_1325_isoTime; } /* line 1 "no_file" */ /* 703 */ /* line 160 "../lib/time.s7i" */ static striType/*t_15_string*/ o_1326_strTimeZone (const structType/*t_54_time*/ o_1327_aTime) { /* line 162 "../lib/time.s7i" */ striType/*t_15_string*/ o_1328_timeZone; /* line 162 "../lib/time.s7i" */ o_1328_timeZone=strCreate(&str[24] /* "UTC" */); /* line 164 "../lib/time.s7i" */ if ((((structType)(o_1327_aTime))->stru[7].value.intValue/*->o_1307_timeZone*/) != (0L)) { /* line 165 "../lib/time.s7i" */ if ((((structType)(o_1327_aTime))->stru[7].value.intValue/*->o_1307_timeZone*/) > (0L)) { /* line 166 "../lib/time.s7i" */ /* line 166 "../lib/time.s7i" */ if (((o_1328_timeZone))->size == ((o_1328_timeZone))->capacity) { /* line 166 "../lib/time.s7i" */ strPush(&((o_1328_timeZone)), (charType) '+'); /* line 166 "../lib/time.s7i" */ } else { /* line 166 "../lib/time.s7i" */ ((o_1328_timeZone))->mem[((o_1328_timeZone))->size]=(charType) '+'; /* line 166 "../lib/time.s7i" */ ((o_1328_timeZone))->size++; /* line 166 "../lib/time.s7i" */ } } { /* line 168 "../lib/time.s7i" */ union { /* line 168 "../lib/time.s7i" */ struct striStruct striBuf; /* line 168 "../lib/time.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 168 "../lib/time.s7i" */ } buffer_1; /* line 168 "../lib/time.s7i" */ strAppend(&(o_1328_timeZone), intStrToBuffer((((structType)(o_1327_aTime))->stru[7].value.intValue/*->o_1307_timeZone*/) / 60L, &buffer_1.striBuf)); } /* line 169 "../lib/time.s7i" */ if (((((structType)(o_1327_aTime))->stru[7].value.intValue/*->o_1307_timeZone*/) % 60L) != (0L)) { { /* line 170 "../lib/time.s7i" */ union { /* line 170 "../lib/time.s7i" */ struct striStruct striBuf; /* line 170 "../lib/time.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 170 "../lib/time.s7i" */ } buffer_2; /* line 170 "../lib/time.s7i" */ intType tmp_3; /* line 170 "../lib/time.s7i" */ strAppendTemp(&(o_1328_timeZone), strConcat(&str[23] /* ":" */, intStrToBuffer(((tmp_3=((structType)(o_1327_aTime))->stru[7].value.intValue/*->o_1307_timeZone*/,tmp_3<0? -tmp_3:tmp_3)) % 60L, &buffer_2.striBuf))); } } } /* line 173 "../lib/time.s7i" */ if (((structType)(o_1327_aTime))->stru[8].value.boolValue/*->o_1308_daylightSavingTime*/) { /* line 174 "../lib/time.s7i" */ strAppend(&(o_1328_timeZone), &str[25] /* " (DST)" */); } return o_1328_timeZone; } /* line 1 "no_file" */ /* 704 */ /* line 179 "../lib/time.s7i" */ static striType/*t_15_string*/ o_1329_str_yyyy_mm_dd (const structType/*t_54_time*/ o_1330_aTime, const const_striType/*t_15_string*/ o_1331_delimiter) { /* line 181 "../lib/time.s7i" */ striType/*t_15_string*/ result; /* line 181 "../lib/time.s7i" */ const_striType tmp_2[5]; /* line 181 "../lib/time.s7i" */ striType tmp_3 = NULL; /* line 181 "../lib/time.s7i" */ striType tmp_4 = NULL; /* line 181 "../lib/time.s7i" */ striType tmp_5 = NULL; /* line 181 "../lib/time.s7i" */ result=(striType/*t_15_string*/)(((tmp_2[0] = (tmp_3=intLpad0(((structType)(o_1330_aTime))->stru[0].value.intValue/*->o_1300_year*/,4L)), tmp_2[1] = o_1331_delimiter, tmp_2[2] = (tmp_4=intLpad0(((structType)(o_1330_aTime))->stru[1].value.intValue/*->o_1301_month*/,2L)), tmp_2[3] = o_1331_delimiter, tmp_2[4] = (tmp_5=intLpad0(((structType)(o_1330_aTime))->stru[2].value.intValue/*->o_1302_day*/,2L)), strConcatN(tmp_2, 5)))); /* line 181 "../lib/time.s7i" */ strDestr(tmp_3); /* line 181 "../lib/time.s7i" */ strDestr(tmp_4); /* line 181 "../lib/time.s7i" */ strDestr(tmp_5); /* line 181 "../lib/time.s7i" */ return result; } /* line 1 "no_file" */ /* 705 */ /* line 185 "../lib/time.s7i" */ static striType/*t_15_string*/ o_1332_str_yy_mm_dd (const structType/*t_54_time*/ o_1333_aTime, const const_striType/*t_15_string*/ o_1334_delimiter) { /* line 187 "../lib/time.s7i" */ striType/*t_15_string*/ result; /* line 187 "../lib/time.s7i" */ const_striType tmp_2[5]; /* line 187 "../lib/time.s7i" */ striType tmp_3 = NULL; /* line 187 "../lib/time.s7i" */ striType tmp_4 = NULL; /* line 187 "../lib/time.s7i" */ striType tmp_5 = NULL; /* line 187 "../lib/time.s7i" */ result=(striType/*t_15_string*/)(((tmp_2[0] = (tmp_3=intLpad0((((structType)(o_1333_aTime))->stru[0].value.intValue/*->o_1300_year*/) % 100L,2L)), tmp_2[1] = o_1334_delimiter, tmp_2[2] = (tmp_4=intLpad0(((structType)(o_1333_aTime))->stru[1].value.intValue/*->o_1301_month*/,2L)), tmp_2[3] = o_1334_delimiter, tmp_2[4] = (tmp_5=intLpad0(((structType)(o_1333_aTime))->stru[2].value.intValue/*->o_1302_day*/,2L)), strConcatN(tmp_2, 5)))); /* line 187 "../lib/time.s7i" */ strDestr(tmp_3); /* line 187 "../lib/time.s7i" */ strDestr(tmp_4); /* line 187 "../lib/time.s7i" */ strDestr(tmp_5); /* line 187 "../lib/time.s7i" */ return result; } /* line 1 "no_file" */ /* 706 */ /* line 191 "../lib/time.s7i" */ static striType/*t_15_string*/ o_1335_str_mm_dd_yy (const structType/*t_54_time*/ o_1336_aTime, const const_striType/*t_15_string*/ o_1337_delimiter) { /* line 193 "../lib/time.s7i" */ striType/*t_15_string*/ result; /* line 193 "../lib/time.s7i" */ const_striType tmp_2[5]; /* line 193 "../lib/time.s7i" */ striType tmp_3 = NULL; /* line 193 "../lib/time.s7i" */ striType tmp_4 = NULL; /* line 193 "../lib/time.s7i" */ striType tmp_5 = NULL; /* line 193 "../lib/time.s7i" */ result=(striType/*t_15_string*/)(((tmp_2[0] = (tmp_3=intLpad0(((structType)(o_1336_aTime))->stru[1].value.intValue/*->o_1301_month*/,2L)), tmp_2[1] = o_1337_delimiter, tmp_2[2] = (tmp_4=intLpad0(((structType)(o_1336_aTime))->stru[2].value.intValue/*->o_1302_day*/,2L)), tmp_2[3] = o_1337_delimiter, tmp_2[4] = (tmp_5=intLpad0((((structType)(o_1336_aTime))->stru[0].value.intValue/*->o_1300_year*/) % 100L,2L)), strConcatN(tmp_2, 5)))); /* line 193 "../lib/time.s7i" */ strDestr(tmp_3); /* line 193 "../lib/time.s7i" */ strDestr(tmp_4); /* line 193 "../lib/time.s7i" */ strDestr(tmp_5); /* line 193 "../lib/time.s7i" */ return result; } /* line 1 "no_file" */ /* 707 */ /* line 197 "../lib/time.s7i" */ static striType/*t_15_string*/ o_1338_str_mm_dd_yyyy (const structType/*t_54_time*/ o_1339_aTime, const const_striType/*t_15_string*/ o_1340_delimiter) { /* line 199 "../lib/time.s7i" */ striType/*t_15_string*/ result; /* line 199 "../lib/time.s7i" */ const_striType tmp_2[5]; /* line 199 "../lib/time.s7i" */ striType tmp_3 = NULL; /* line 199 "../lib/time.s7i" */ striType tmp_4 = NULL; /* line 199 "../lib/time.s7i" */ striType tmp_5 = NULL; /* line 199 "../lib/time.s7i" */ result=(striType/*t_15_string*/)(((tmp_2[0] = (tmp_3=intLpad0(((structType)(o_1339_aTime))->stru[1].value.intValue/*->o_1301_month*/,2L)), tmp_2[1] = o_1340_delimiter, tmp_2[2] = (tmp_4=intLpad0(((structType)(o_1339_aTime))->stru[2].value.intValue/*->o_1302_day*/,2L)), tmp_2[3] = o_1340_delimiter, tmp_2[4] = (tmp_5=intLpad0(((structType)(o_1339_aTime))->stru[0].value.intValue/*->o_1300_year*/,4L)), strConcatN(tmp_2, 5)))); /* line 199 "../lib/time.s7i" */ strDestr(tmp_3); /* line 199 "../lib/time.s7i" */ strDestr(tmp_4); /* line 199 "../lib/time.s7i" */ strDestr(tmp_5); /* line 199 "../lib/time.s7i" */ return result; } /* line 1 "no_file" */ /* 708 */ /* line 203 "../lib/time.s7i" */ static striType/*t_15_string*/ o_1341_str_dd_mm_yyyy (const structType/*t_54_time*/ o_1342_aTime, const const_striType/*t_15_string*/ o_1343_delimiter) { /* line 205 "../lib/time.s7i" */ striType/*t_15_string*/ result; /* line 205 "../lib/time.s7i" */ const_striType tmp_2[5]; /* line 205 "../lib/time.s7i" */ striType tmp_3 = NULL; /* line 205 "../lib/time.s7i" */ striType tmp_4 = NULL; /* line 205 "../lib/time.s7i" */ striType tmp_5 = NULL; /* line 205 "../lib/time.s7i" */ result=(striType/*t_15_string*/)(((tmp_2[0] = (tmp_3=intLpad0(((structType)(o_1342_aTime))->stru[2].value.intValue/*->o_1302_day*/,2L)), tmp_2[1] = o_1343_delimiter, tmp_2[2] = (tmp_4=intLpad0(((structType)(o_1342_aTime))->stru[1].value.intValue/*->o_1301_month*/,2L)), tmp_2[3] = o_1343_delimiter, tmp_2[4] = (tmp_5=intLpad0(((structType)(o_1342_aTime))->stru[0].value.intValue/*->o_1300_year*/,4L)), strConcatN(tmp_2, 5)))); /* line 205 "../lib/time.s7i" */ strDestr(tmp_3); /* line 205 "../lib/time.s7i" */ strDestr(tmp_4); /* line 205 "../lib/time.s7i" */ strDestr(tmp_5); /* line 205 "../lib/time.s7i" */ return result; } /* line 1 "no_file" */ /* 709 */ /* line 209 "../lib/time.s7i" */ static striType/*t_15_string*/ o_1344_str_d_m_yy (const structType/*t_54_time*/ o_1345_aTime, const const_striType/*t_15_string*/ o_1346_delimiter) { /* line 211 "../lib/time.s7i" */ striType/*t_15_string*/ result; /* line 211 "../lib/time.s7i" */ const_striType tmp_2[5]; /* line 211 "../lib/time.s7i" */ union { /* line 211 "../lib/time.s7i" */ struct striStruct striBuf; /* line 211 "../lib/time.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 211 "../lib/time.s7i" */ } buffer_3; /* line 211 "../lib/time.s7i" */ union { /* line 211 "../lib/time.s7i" */ struct striStruct striBuf; /* line 211 "../lib/time.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 211 "../lib/time.s7i" */ } buffer_4; /* line 211 "../lib/time.s7i" */ striType tmp_5 = NULL; /* line 211 "../lib/time.s7i" */ result=(striType/*t_15_string*/)(((tmp_2[0] = intStrToBuffer(((structType)(o_1345_aTime))->stru[2].value.intValue/*->o_1302_day*/, &buffer_3.striBuf), tmp_2[1] = o_1346_delimiter, tmp_2[2] = intStrToBuffer(((structType)(o_1345_aTime))->stru[1].value.intValue/*->o_1301_month*/, &buffer_4.striBuf), tmp_2[3] = o_1346_delimiter, tmp_2[4] = (tmp_5=intLpad0((((structType)(o_1345_aTime))->stru[0].value.intValue/*->o_1300_year*/) % 100L,2L)), strConcatN(tmp_2, 5)))); /* line 211 "../lib/time.s7i" */ strDestr(tmp_5); /* line 211 "../lib/time.s7i" */ return result; } /* line 1 "no_file" */ /* 710 */ /* line 215 "../lib/time.s7i" */ static striType/*t_15_string*/ o_1347_str_d_m_yyyy (const structType/*t_54_time*/ o_1348_aTime, const const_striType/*t_15_string*/ o_1349_delimiter) { /* line 217 "../lib/time.s7i" */ striType/*t_15_string*/ result; /* line 217 "../lib/time.s7i" */ const_striType tmp_2[5]; /* line 217 "../lib/time.s7i" */ union { /* line 217 "../lib/time.s7i" */ struct striStruct striBuf; /* line 217 "../lib/time.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 217 "../lib/time.s7i" */ } buffer_3; /* line 217 "../lib/time.s7i" */ union { /* line 217 "../lib/time.s7i" */ struct striStruct striBuf; /* line 217 "../lib/time.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 217 "../lib/time.s7i" */ } buffer_4; /* line 217 "../lib/time.s7i" */ striType tmp_5 = NULL; /* line 217 "../lib/time.s7i" */ result=(striType/*t_15_string*/)(((tmp_2[0] = intStrToBuffer(((structType)(o_1348_aTime))->stru[2].value.intValue/*->o_1302_day*/, &buffer_3.striBuf), tmp_2[1] = o_1349_delimiter, tmp_2[2] = intStrToBuffer(((structType)(o_1348_aTime))->stru[1].value.intValue/*->o_1301_month*/, &buffer_4.striBuf), tmp_2[3] = o_1349_delimiter, tmp_2[4] = (tmp_5=intLpad0(((structType)(o_1348_aTime))->stru[0].value.intValue/*->o_1300_year*/,4L)), strConcatN(tmp_2, 5)))); /* line 217 "../lib/time.s7i" */ strDestr(tmp_5); /* line 217 "../lib/time.s7i" */ return result; } /* line 1 "no_file" */ /* 711 */ /* line 221 "../lib/time.s7i" */ static striType/*t_15_string*/ o_1350_str_hh_mm (const structType/*t_54_time*/ o_1351_aTime, const const_striType/*t_15_string*/ o_1352_delimiter) { /* line 222 "../lib/time.s7i" */ striType/*t_15_string*/ result; /* line 222 "../lib/time.s7i" */ const_striType tmp_2[3]; /* line 222 "../lib/time.s7i" */ striType tmp_3 = NULL; /* line 222 "../lib/time.s7i" */ striType tmp_4 = NULL; /* line 222 "../lib/time.s7i" */ result=(striType/*t_15_string*/)(((tmp_2[0] = (tmp_3=intLpad0(((structType)(o_1351_aTime))->stru[3].value.intValue/*->o_1303_hour*/,2L)), tmp_2[1] = o_1352_delimiter, tmp_2[2] = (tmp_4=intLpad0(((structType)(o_1351_aTime))->stru[4].value.intValue/*->o_1304_minute*/,2L)), strConcatN(tmp_2, 3)))); /* line 222 "../lib/time.s7i" */ strDestr(tmp_3); /* line 222 "../lib/time.s7i" */ strDestr(tmp_4); /* line 222 "../lib/time.s7i" */ return result; } /* line 1 "no_file" */ /* 712 */ /* line 226 "../lib/time.s7i" */ static striType/*t_15_string*/ o_1353_str_hh_mm_ss (const structType/*t_54_time*/ o_1354_aTime, const const_striType/*t_15_string*/ o_1355_delimiter) { /* line 228 "../lib/time.s7i" */ striType/*t_15_string*/ result; /* line 228 "../lib/time.s7i" */ const_striType tmp_2[5]; /* line 228 "../lib/time.s7i" */ striType tmp_3 = NULL; /* line 228 "../lib/time.s7i" */ striType tmp_4 = NULL; /* line 228 "../lib/time.s7i" */ striType tmp_5 = NULL; /* line 228 "../lib/time.s7i" */ result=(striType/*t_15_string*/)(((tmp_2[0] = (tmp_3=intLpad0(((structType)(o_1354_aTime))->stru[3].value.intValue/*->o_1303_hour*/,2L)), tmp_2[1] = o_1355_delimiter, tmp_2[2] = (tmp_4=intLpad0(((structType)(o_1354_aTime))->stru[4].value.intValue/*->o_1304_minute*/,2L)), tmp_2[3] = o_1355_delimiter, tmp_2[4] = (tmp_5=intLpad0(((structType)(o_1354_aTime))->stru[5].value.intValue/*->o_1305_second*/,2L)), strConcatN(tmp_2, 5)))); /* line 228 "../lib/time.s7i" */ strDestr(tmp_3); /* line 228 "../lib/time.s7i" */ strDestr(tmp_4); /* line 228 "../lib/time.s7i" */ strDestr(tmp_5); /* line 228 "../lib/time.s7i" */ return result; } /* line 1 "no_file" */ /* 713 */ /* line 239 "../lib/time.s7i" */ static striType/*t_15_string*/ o_1356_strDateTime (const structType/*t_54_time*/ o_1357_aTime) { /* line 244 "../lib/time.s7i" */ striType/*t_15_string*/ result; /* line 244 "../lib/time.s7i" */ const_striType tmp_2[11]; /* line 244 "../lib/time.s7i" */ striType tmp_3 = NULL; /* line 244 "../lib/time.s7i" */ striType tmp_4 = NULL; /* line 244 "../lib/time.s7i" */ striType tmp_5 = NULL; /* line 244 "../lib/time.s7i" */ striType tmp_6 = NULL; /* line 244 "../lib/time.s7i" */ striType tmp_7 = NULL; /* line 244 "../lib/time.s7i" */ striType tmp_8 = NULL; /* line 244 "../lib/time.s7i" */ result=(striType/*t_15_string*/)(((tmp_2[0] = (tmp_3=intLpad0(((structType)(o_1357_aTime))->stru[0].value.intValue/*->o_1300_year*/,4L)), tmp_2[1] = &str[19] /* "-" */, tmp_2[2] = (tmp_4=intLpad0(((structType)(o_1357_aTime))->stru[1].value.intValue/*->o_1301_month*/,2L)), tmp_2[3] = &str[19] /* "-" */, tmp_2[4] = (tmp_5=intLpad0(((structType)(o_1357_aTime))->stru[2].value.intValue/*->o_1302_day*/,2L)), tmp_2[5] = &str[26] /* " " */, tmp_2[6] = (tmp_6=intLpad0(((structType)(o_1357_aTime))->stru[3].value.intValue/*->o_1303_hour*/,2L)), tmp_2[7] = &str[23] /* ":" */, tmp_2[8] = (tmp_7=intLpad0(((structType)(o_1357_aTime))->stru[4].value.intValue/*->o_1304_minute*/,2L)), tmp_2[9] = &str[23] /* ":" */, tmp_2[10] = (tmp_8=intLpad0(((structType)(o_1357_aTime))->stru[5].value.intValue/*->o_1305_second*/,2L)), strConcatN(tmp_2, 11)))); /* line 244 "../lib/time.s7i" */ strDestr(tmp_3); /* line 244 "../lib/time.s7i" */ strDestr(tmp_4); /* line 244 "../lib/time.s7i" */ strDestr(tmp_5); /* line 244 "../lib/time.s7i" */ strDestr(tmp_6); /* line 244 "../lib/time.s7i" */ strDestr(tmp_7); /* line 244 "../lib/time.s7i" */ strDestr(tmp_8); /* line 244 "../lib/time.s7i" */ return result; } /* line 1 "no_file" */ /* 714 */ /* line 256 "../lib/time.s7i" */ static striType/*t_15_string*/ o_1358_str (const structType/*t_54_time*/ o_1359_aTime) { /* line 258 "../lib/time.s7i" */ striType/*t_15_string*/ result; /* line 258 "../lib/time.s7i" */ const_striType tmp_2[5]; /* line 258 "../lib/time.s7i" */ striType/*t_15_string*/ tmp_3 = (striType/*t_15_string*/)(NULL); /* line 258 "../lib/time.s7i" */ striType/*t_15_string*/ tmp_4 = (striType/*t_15_string*/)(NULL); /* line 258 "../lib/time.s7i" */ striType/*t_15_string*/ tmp_5 = (striType/*t_15_string*/)(NULL); /* line 258 "../lib/time.s7i" */ result=(striType/*t_15_string*/)(((tmp_2[0] = (tmp_3=(striType/*t_15_string*/)(o_1321_strDate(o_1359_aTime))), tmp_2[1] = &str[26] /* " " */, tmp_2[2] = (tmp_4=(striType/*t_15_string*/)(o_1323_strTime(o_1359_aTime))), tmp_2[3] = &str[26] /* " " */, tmp_2[4] = (tmp_5=(striType/*t_15_string*/)(o_1326_strTimeZone(o_1359_aTime))), strConcatN(tmp_2, 5)))); /* line 258 "../lib/time.s7i" */ strDestr(tmp_3); /* line 258 "../lib/time.s7i" */ strDestr(tmp_4); /* line 258 "../lib/time.s7i" */ strDestr(tmp_5); /* line 258 "../lib/time.s7i" */ return result; } /* line 1 "no_file" */ /* 715 */ /* line 116 "../lib/struct.s7i" */ static structType/*t_54_time*/ create_54 (const_structType/*t_54_time*/ b) /* line 116 "../lib/struct.s7i" */ { /* line 116 "../lib/struct.s7i" */ structType/*t_54_time*/ a; /* line 116 "../lib/struct.s7i" */ a=(structType/*t_54_time*/)(malloc(sizeof(struct rtlStructStruct) - sizeof(rtlObjectType) + /* line 116 "../lib/struct.s7i" */ 9 * sizeof(rtlObjectType))); /* line 116 "../lib/struct.s7i" */ if (a == NULL) { /* line 116 "../lib/struct.s7i" */ raise_error(MEMORY_ERROR); /* line 116 "../lib/struct.s7i" */ } else { /* line 116 "../lib/struct.s7i" */ a->usage_count = 1; a->type_num = b->type_num; /* line 116 "../lib/struct.s7i" */ a->stru[0].value.intValue=b->stru[0].value.intValue; /* line 116 "../lib/struct.s7i" */ a->stru[1].value.intValue=b->stru[1].value.intValue; /* line 116 "../lib/struct.s7i" */ a->stru[2].value.intValue=b->stru[2].value.intValue; /* line 116 "../lib/struct.s7i" */ a->stru[3].value.intValue=b->stru[3].value.intValue; /* line 116 "../lib/struct.s7i" */ a->stru[4].value.intValue=b->stru[4].value.intValue; /* line 116 "../lib/struct.s7i" */ a->stru[5].value.intValue=b->stru[5].value.intValue; /* line 116 "../lib/struct.s7i" */ a->stru[6].value.intValue=b->stru[6].value.intValue; /* line 116 "../lib/struct.s7i" */ a->stru[7].value.intValue=b->stru[7].value.intValue; /* line 116 "../lib/struct.s7i" */ a->stru[8].value.boolValue=b->stru[8].value.boolValue; /* line 116 "../lib/struct.s7i" */ } /* line 116 "../lib/struct.s7i" */ return a; /* line 116 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 117 "../lib/struct.s7i" */ static void destr_54 (structType/*t_54_time*/ b) /* line 117 "../lib/struct.s7i" */ { /* line 117 "../lib/struct.s7i" */ if (b != NULL && b->usage_count != 0) { b->usage_count--; if (b->usage_count == 0) { /* line 117 "../lib/struct.s7i" */ /* line 117 "../lib/struct.s7i" */ /* line 117 "../lib/struct.s7i" */ /* line 117 "../lib/struct.s7i" */ /* line 117 "../lib/struct.s7i" */ /* line 117 "../lib/struct.s7i" */ /* line 117 "../lib/struct.s7i" */ /* line 117 "../lib/struct.s7i" */ /* line 117 "../lib/struct.s7i" */ /* line 117 "../lib/struct.s7i" */ free((void *)(b)); /* line 117 "../lib/struct.s7i" */ }} /* line 117 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 272 "../lib/time.s7i" */ static structType/*t_54_time*/ o_1360_parse (/* attr t_54 time*/ const const_striType/*t_15_string*/ value_o_1361_stri) { /* line 272 "../lib/time.s7i" */ striType/*t_15_string*/ o_1361_stri; /* line 274 "../lib/time.s7i" */ structType/*t_54_time*/ o_1362_aTime; /* line 272 "../lib/time.s7i" */ o_1361_stri=strCreate(value_o_1361_stri); /* line 274 "../lib/time.s7i" */ o_1362_aTime=create_54(sct[24]); { /* line 276 "../lib/time.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 276 "../lib/time.s7i" */ ((structType)(o_1362_aTime))->stru[0].value.intValue/*->o_1300_year*/=intParse((tmp_1=(striType/*t_15_string*/)(o_104_getint(&(o_1361_stri))))); /* line 276 "../lib/time.s7i" */ strDestr(tmp_1); } /* line 277 "../lib/time.s7i" */ if (((o_1361_stri)->mem[(idxChk((o_1361_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]) != ((charType) '-')) { /* line 278 "../lib/time.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/time.s7i", 278); } { /* line 280 "../lib/time.s7i" */ struct striStruct slice_1; /* line 280 "../lib/time.s7i" */ strCopy(&(o_1361_stri), (strTailSlice(o_1361_stri, 2L, &slice_1), &slice_1)); } { /* line 281 "../lib/time.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 281 "../lib/time.s7i" */ ((structType)(o_1362_aTime))->stru[1].value.intValue/*->o_1301_month*/=intParse((tmp_1=(striType/*t_15_string*/)(o_104_getint(&(o_1361_stri))))); /* line 281 "../lib/time.s7i" */ strDestr(tmp_1); } /* line 282 "../lib/time.s7i" */ if (((o_1361_stri)->size!=0 /* "" */)) { /* line 283 "../lib/time.s7i" */ if (((o_1361_stri)->mem[(idxChk((o_1361_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]) != ((charType) '-')) { /* line 284 "../lib/time.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/time.s7i", 284); } { /* line 286 "../lib/time.s7i" */ struct striStruct slice_1; /* line 286 "../lib/time.s7i" */ strCopy(&(o_1361_stri), (strTailSlice(o_1361_stri, 2L, &slice_1), &slice_1)); } { /* line 287 "../lib/time.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 287 "../lib/time.s7i" */ ((structType)(o_1362_aTime))->stru[2].value.intValue/*->o_1302_day*/=intParse((tmp_1=(striType/*t_15_string*/)(o_104_getint(&(o_1361_stri))))); /* line 287 "../lib/time.s7i" */ strDestr(tmp_1); } /* line 288 "../lib/time.s7i" */ if (((o_1361_stri)->size!=0 /* "" */)) { /* line 289 "../lib/time.s7i" */ if ((((o_1361_stri)->mem[(idxChk((o_1361_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]) != ((charType) ' ')) && /* line 289 "../lib/time.s7i" */ (((o_1361_stri)->mem[(idxChk((o_1361_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]) != ((charType) 'T'))) { /* line 290 "../lib/time.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/time.s7i", 290); } { /* line 292 "../lib/time.s7i" */ struct striStruct slice_1; /* line 292 "../lib/time.s7i" */ strCopy(&(o_1361_stri), (strTailSlice(o_1361_stri, 2L, &slice_1), &slice_1)); } { /* line 293 "../lib/time.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 293 "../lib/time.s7i" */ ((structType)(o_1362_aTime))->stru[3].value.intValue/*->o_1303_hour*/=intParse((tmp_1=(striType/*t_15_string*/)(o_104_getint(&(o_1361_stri))))); /* line 293 "../lib/time.s7i" */ strDestr(tmp_1); } /* line 294 "../lib/time.s7i" */ if (((o_1361_stri)->size!=0 /* "" */)) { /* line 295 "../lib/time.s7i" */ if (((o_1361_stri)->mem[(idxChk((o_1361_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]) != ((charType) ':')) { /* line 296 "../lib/time.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/time.s7i", 296); } { /* line 298 "../lib/time.s7i" */ struct striStruct slice_1; /* line 298 "../lib/time.s7i" */ strCopy(&(o_1361_stri), (strTailSlice(o_1361_stri, 2L, &slice_1), &slice_1)); } { /* line 299 "../lib/time.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 299 "../lib/time.s7i" */ ((structType)(o_1362_aTime))->stru[4].value.intValue/*->o_1304_minute*/=intParse((tmp_1=(striType/*t_15_string*/)(o_104_getint(&(o_1361_stri))))); /* line 299 "../lib/time.s7i" */ strDestr(tmp_1); } /* line 300 "../lib/time.s7i" */ if (((o_1361_stri)->size!=0 /* "" */)) { /* line 301 "../lib/time.s7i" */ if (((o_1361_stri)->mem[(idxChk((o_1361_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]) != ((charType) ':')) { /* line 302 "../lib/time.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/time.s7i", 302); } { /* line 304 "../lib/time.s7i" */ struct striStruct slice_1; /* line 304 "../lib/time.s7i" */ strCopy(&(o_1361_stri), (strTailSlice(o_1361_stri, 2L, &slice_1), &slice_1)); } { /* line 305 "../lib/time.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 305 "../lib/time.s7i" */ ((structType)(o_1362_aTime))->stru[5].value.intValue/*->o_1305_second*/=intParse((tmp_1=(striType/*t_15_string*/)(o_104_getint(&(o_1361_stri))))); /* line 305 "../lib/time.s7i" */ strDestr(tmp_1); } /* line 306 "../lib/time.s7i" */ if (((o_1361_stri)->size!=0 /* "" */)) { /* line 307 "../lib/time.s7i" */ if (((o_1361_stri)->mem[(idxChk((o_1361_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]) != ((charType) '.')) { /* line 308 "../lib/time.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/time.s7i", 308); } { /* line 310 "../lib/time.s7i" */ struct striStruct slice_1; /* line 310 "../lib/time.s7i" */ strCopy(&(o_1361_stri), (strTailSlice(o_1361_stri, 2L, &slice_1), &slice_1)); } { /* line 311 "../lib/time.s7i" */ striType tmp_3 = NULL; /* line 311 "../lib/time.s7i" */ ((structType)(o_1362_aTime))->stru[6].value.intValue/*->o_1306_micro_second*/=intParse((tmp_3=strHeadTemp(strConcatTemp(o_104_getint(&(o_1361_stri)), &str[27] /* "00000X" */), 6L))); /* line 311 "../lib/time.s7i" */ strDestr(tmp_3); } /* line 312 "../lib/time.s7i" */ if (((o_1361_stri)->size!=0 /* "" */)) { /* line 313 "../lib/time.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/time.s7i", 313); } } } } } } /* line 320 "../lib/time.s7i" */ ((structType)(o_1362_aTime))->stru[7].value.intValue/*->o_1307_timeZone*/=0L; /* line 321 "../lib/time.s7i" */ ((structType)(o_1362_aTime))->stru[8].value.boolValue/*->o_1308_daylightSavingTime*/=o_25_FALSE; /* line 322 "../lib/time.s7i" */ if (((((structType)(o_1362_aTime))->stru[1].value.intValue/*->o_1301_month*/) < (1L)) || /* line 322 "../lib/time.s7i" */ ((((structType)(o_1362_aTime))->stru[1].value.intValue/*->o_1301_month*/) > (12L)) || /* line 323 "../lib/time.s7i" */ ((((structType)(o_1362_aTime))->stru[2].value.intValue/*->o_1302_day*/) < (1L)) || /* line 323 "../lib/time.s7i" */ ((((structType)(o_1362_aTime))->stru[2].value.intValue/*->o_1302_day*/) > (o_1315_daysInMonth(((structType)(o_1362_aTime))->stru[0].value.intValue/*->o_1300_year*/, ((structType)(o_1362_aTime))->stru[1].value.intValue/*->o_1301_month*/))) || /* line 324 "../lib/time.s7i" */ ((((structType)(o_1362_aTime))->stru[3].value.intValue/*->o_1303_hour*/) < (0L)) || /* line 324 "../lib/time.s7i" */ ((((structType)(o_1362_aTime))->stru[3].value.intValue/*->o_1303_hour*/) > (23L)) || /* line 325 "../lib/time.s7i" */ ((((structType)(o_1362_aTime))->stru[4].value.intValue/*->o_1304_minute*/) < (0L)) || /* line 325 "../lib/time.s7i" */ ((((structType)(o_1362_aTime))->stru[4].value.intValue/*->o_1304_minute*/) > (59L)) || /* line 326 "../lib/time.s7i" */ ((((structType)(o_1362_aTime))->stru[5].value.intValue/*->o_1305_second*/) < (0L)) || /* line 326 "../lib/time.s7i" */ ((((structType)(o_1362_aTime))->stru[5].value.intValue/*->o_1305_second*/) > (59L))) { /* line 327 "../lib/time.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/time.s7i", 327); } /* line 272 "../lib/time.s7i" */ strDestr(o_1361_stri); return o_1362_aTime; } /* line 1 "no_file" */ /* 716 */ /* line 61 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1363_read (interfaceType/*t_46_file*/ *const o_1364_inFile, structType/*t_54_time*/ *const o_1365_aVar) { { /* line 63 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); { /* line 63 "../lib/enable_input.s7i" */ structType old_struct=*o_1365_aVar; /* line 63 "../lib/enable_input.s7i" */ *o_1365_aVar=o_1360_parse(/* attr t_54 time*/ (tmp_2=(striType/*t_15_string*/)(o_921_getwd(o_1364_inFile)))); /* line 63 "../lib/enable_input.s7i" */ (*o_1365_aVar)->type_num = old_struct->type_num; /* line 63 "../lib/enable_input.s7i" */ destr_54(old_struct); } /* line 63 "../lib/enable_input.s7i" */ strDestr(tmp_2); } } /* line 1 "no_file" */ /* 717 */ /* line 118 "../lib/struct.s7i" */ static void cpy_54 (structType/*t_54_time*/ a, structType/*t_54_time*/ b) /* line 118 "../lib/struct.s7i" */ { /* line 118 "../lib/struct.s7i" */ a->stru[0].value.intValue=b->stru[0].value.intValue; /* line 118 "../lib/struct.s7i" */ a->stru[1].value.intValue=b->stru[1].value.intValue; /* line 118 "../lib/struct.s7i" */ a->stru[2].value.intValue=b->stru[2].value.intValue; /* line 118 "../lib/struct.s7i" */ a->stru[3].value.intValue=b->stru[3].value.intValue; /* line 118 "../lib/struct.s7i" */ a->stru[4].value.intValue=b->stru[4].value.intValue; /* line 118 "../lib/struct.s7i" */ a->stru[5].value.intValue=b->stru[5].value.intValue; /* line 118 "../lib/struct.s7i" */ a->stru[6].value.intValue=b->stru[6].value.intValue; /* line 118 "../lib/struct.s7i" */ a->stru[7].value.intValue=b->stru[7].value.intValue; /* line 118 "../lib/struct.s7i" */ a->stru[8].value.boolValue=b->stru[8].value.boolValue; /* line 118 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 77 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1366_read (interfaceType/*t_46_file*/ *const o_1367_inFile, structType/*t_54_time*/ *const o_1368_aVar, const structType/*t_54_time*/ value_o_1369_defaultValue) { /* line 77 "../lib/enable_input.s7i" */ structType/*t_54_time*/ o_1369_defaultValue; /* line 80 "../lib/enable_input.s7i" */ striType/*t_15_string*/ o_1370_stri; /* line 77 "../lib/enable_input.s7i" */ o_1369_defaultValue=create_54(value_o_1369_defaultValue); /* line 80 "../lib/enable_input.s7i" */ o_1370_stri=strEmpty(); /* "" */ { /* line 82 "../lib/enable_input.s7i" */ striType old_stri=o_1370_stri; /* line 82 "../lib/enable_input.s7i" */ o_1370_stri=o_921_getwd(o_1367_inFile); /* line 82 "../lib/enable_input.s7i" */ strDestr(old_stri); } /* line 83 "../lib/enable_input.s7i" */ if (((o_1370_stri)->size==0 /* "" */)) { /* line 84 "../lib/enable_input.s7i" */ cpy_54((structType/*t_54_time*/)(*o_1368_aVar), (structType/*t_54_time*/)(o_1369_defaultValue)); } else { { /* line 86 "../lib/enable_input.s7i" */ structType old_struct=*o_1368_aVar; /* line 86 "../lib/enable_input.s7i" */ *o_1368_aVar=o_1360_parse(/* attr t_54 time*/ o_1370_stri); /* line 86 "../lib/enable_input.s7i" */ (*o_1368_aVar)->type_num = old_struct->type_num; /* line 86 "../lib/enable_input.s7i" */ destr_54(old_struct); } } /* line 77 "../lib/enable_input.s7i" */ destr_54(o_1369_defaultValue); /* line 77 "../lib/enable_input.s7i" */ strDestr(o_1370_stri); } /* line 1 "no_file" */ /* 718 */ /* line 99 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1371_readln (interfaceType/*t_46_file*/ *const o_1372_inFile, structType/*t_54_time*/ *const o_1373_aVar) { { /* line 101 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_3 = (striType/*t_15_string*/)(NULL); /* line 101 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); { /* line 101 "../lib/enable_input.s7i" */ structType old_struct=*o_1373_aVar; /* line 101 "../lib/enable_input.s7i" */ *o_1373_aVar=o_1360_parse(/* attr t_54 time*/ (tmp_2=(striType/*t_15_string*/)(o_99_trimValue(&(typ[6] /* structType/t_54_time */), (tmp_3=(striType/*t_15_string*/)(o_923_getln(o_1372_inFile))))))); /* line 101 "../lib/enable_input.s7i" */ (*o_1373_aVar)->type_num = old_struct->type_num; /* line 101 "../lib/enable_input.s7i" */ destr_54(old_struct); } /* line 101 "../lib/enable_input.s7i" */ strDestr(tmp_3); /* line 101 "../lib/enable_input.s7i" */ strDestr(tmp_2); } } /* line 1 "no_file" */ /* 719 */ /* line 114 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1374_readln (interfaceType/*t_46_file*/ *const o_1375_inFile, structType/*t_54_time*/ *const o_1376_aVar, const structType/*t_54_time*/ value_o_1377_defaultValue) { /* line 114 "../lib/enable_input.s7i" */ structType/*t_54_time*/ o_1377_defaultValue; /* line 117 "../lib/enable_input.s7i" */ striType/*t_15_string*/ o_1378_stri; /* line 114 "../lib/enable_input.s7i" */ o_1377_defaultValue=create_54(value_o_1377_defaultValue); /* line 117 "../lib/enable_input.s7i" */ o_1378_stri=strEmpty(); /* "" */ { /* line 119 "../lib/enable_input.s7i" */ striType old_stri=o_1378_stri; /* line 119 "../lib/enable_input.s7i" */ o_1378_stri=o_923_getln(o_1375_inFile); /* line 119 "../lib/enable_input.s7i" */ strDestr(old_stri); } /* line 120 "../lib/enable_input.s7i" */ if (((o_1378_stri)->size==0 /* "" */)) { /* line 121 "../lib/enable_input.s7i" */ cpy_54((structType/*t_54_time*/)(*o_1376_aVar), (structType/*t_54_time*/)(o_1377_defaultValue)); } else { { /* line 123 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); { /* line 123 "../lib/enable_input.s7i" */ structType old_struct=*o_1376_aVar; /* line 123 "../lib/enable_input.s7i" */ *o_1376_aVar=o_1360_parse(/* attr t_54 time*/ (tmp_2=(striType/*t_15_string*/)(o_99_trimValue(&(typ[6] /* structType/t_54_time */), o_1378_stri)))); /* line 123 "../lib/enable_input.s7i" */ (*o_1376_aVar)->type_num = old_struct->type_num; /* line 123 "../lib/enable_input.s7i" */ destr_54(old_struct); } /* line 123 "../lib/enable_input.s7i" */ strDestr(tmp_2); } } /* line 114 "../lib/enable_input.s7i" */ destr_54(o_1377_defaultValue); /* line 114 "../lib/enable_input.s7i" */ strDestr(o_1378_stri); } /* line 1 "no_file" */ /* 720 */ /* line 137 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1379_read (structType/*t_54_time*/ *const o_1380_aVar) { /* line 139 "../lib/enable_input.s7i" */ o_1363_read(&(o_1071_IN), o_1380_aVar); } /* line 1 "no_file" */ /* 721 */ /* line 153 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1381_read (structType/*t_54_time*/ *const o_1382_aVar, const structType/*t_54_time*/ value_o_1383_defaultValue) { /* line 153 "../lib/enable_input.s7i" */ structType/*t_54_time*/ o_1383_defaultValue; /* line 153 "../lib/enable_input.s7i" */ o_1383_defaultValue=create_54(value_o_1383_defaultValue); /* line 155 "../lib/enable_input.s7i" */ o_1366_read(&(o_1071_IN), o_1382_aVar, o_1383_defaultValue); /* line 153 "../lib/enable_input.s7i" */ destr_54(o_1383_defaultValue); } /* line 1 "no_file" */ /* 722 */ /* line 167 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1384_readln (structType/*t_54_time*/ *const o_1385_aVar) { /* line 169 "../lib/enable_input.s7i" */ o_1371_readln(&(o_1071_IN), o_1385_aVar); } /* line 1 "no_file" */ /* 723 */ /* line 182 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1386_readln (structType/*t_54_time*/ *const o_1387_aVar, const structType/*t_54_time*/ value_o_1388_defaultValue) { /* line 182 "../lib/enable_input.s7i" */ structType/*t_54_time*/ o_1388_defaultValue; /* line 182 "../lib/enable_input.s7i" */ o_1388_defaultValue=create_54(value_o_1388_defaultValue); /* line 184 "../lib/enable_input.s7i" */ o_1374_readln(&(o_1071_IN), o_1387_aVar, o_1388_defaultValue); /* line 182 "../lib/enable_input.s7i" */ destr_54(o_1388_defaultValue); } /* line 1 "no_file" */ /* 724 */ /* line 54 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1389_write (interfaceType/*t_46_file*/ *const o_1390_aFile, const structType/*t_54_time*/ value_o_1391_aValue) { /* line 54 "../lib/enable_output.s7i" */ structType/*t_54_time*/ o_1391_aValue; /* line 54 "../lib/enable_output.s7i" */ o_1391_aValue=create_54(value_o_1391_aValue); { /* line 56 "../lib/enable_output.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 56 "../lib/enable_output.s7i" */ o_889_write(o_1390_aFile, (tmp_1=(striType/*t_15_string*/)(o_1358_str(o_1391_aValue)))); /* line 56 "../lib/enable_output.s7i" */ strDestr(tmp_1); } /* line 54 "../lib/enable_output.s7i" */ destr_54(o_1391_aValue); } /* line 1 "no_file" */ /* 725 */ /* line 62 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1392_writeln (interfaceType/*t_46_file*/ *const o_1393_aFile, const structType/*t_54_time*/ value_o_1394_aValue) { /* line 62 "../lib/enable_output.s7i" */ structType/*t_54_time*/ o_1394_aValue; /* line 62 "../lib/enable_output.s7i" */ o_1394_aValue=create_54(value_o_1394_aValue); { /* line 64 "../lib/enable_output.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 64 "../lib/enable_output.s7i" */ o_894_writeln(o_1393_aFile, (tmp_1=(striType/*t_15_string*/)(o_1358_str(o_1394_aValue)))); /* line 64 "../lib/enable_output.s7i" */ strDestr(tmp_1); } /* line 62 "../lib/enable_output.s7i" */ destr_54(o_1394_aValue); } /* line 1 "no_file" */ /* 726 */ /* line 70 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1395_write (const structType/*t_54_time*/ value_o_1396_aValue) { /* line 70 "../lib/enable_output.s7i" */ structType/*t_54_time*/ o_1396_aValue; /* line 70 "../lib/enable_output.s7i" */ o_1396_aValue=create_54(value_o_1396_aValue); /* line 72 "../lib/enable_output.s7i" */ o_1389_write(&(o_1074_OUT), o_1396_aValue); /* line 70 "../lib/enable_output.s7i" */ destr_54(o_1396_aValue); } /* line 1 "no_file" */ /* 727 */ /* line 78 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1397_writeln (const structType/*t_54_time*/ value_o_1398_aValue) { /* line 78 "../lib/enable_output.s7i" */ structType/*t_54_time*/ o_1398_aValue; /* line 78 "../lib/enable_output.s7i" */ o_1398_aValue=create_54(value_o_1398_aValue); /* line 80 "../lib/enable_output.s7i" */ o_1392_writeln(&(o_1074_OUT), o_1398_aValue); /* line 78 "../lib/enable_output.s7i" */ destr_54(o_1398_aValue); } /* line 1 "no_file" */ /* 728 */ /* line 88 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1399_lpad (const structType/*t_54_time*/ value_o_1400_aValue, const intType/*t_14_integer*/ o_1401_leng) { /* line 89 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 89 "../lib/enable_output.s7i" */ structType/*t_54_time*/ o_1400_aValue; /* line 89 "../lib/enable_output.s7i" */ o_1400_aValue=create_54(value_o_1400_aValue); /* line 89 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strLpadTemp(o_1358_str(o_1400_aValue), o_1401_leng))); /* line 89 "../lib/enable_output.s7i" */ destr_54(o_1400_aValue); /* line 89 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 729 */ /* line 96 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1402_rpad (const structType/*t_54_time*/ value_o_1403_aValue, const intType/*t_14_integer*/ o_1404_leng) { /* line 97 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 97 "../lib/enable_output.s7i" */ structType/*t_54_time*/ o_1403_aValue; /* line 97 "../lib/enable_output.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); /* line 97 "../lib/enable_output.s7i" */ o_1403_aValue=create_54(value_o_1403_aValue); /* line 97 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strRpad((tmp_2=(striType/*t_15_string*/)(o_1358_str(o_1403_aValue))), o_1404_leng))); /* line 97 "../lib/enable_output.s7i" */ destr_54(o_1403_aValue); /* line 97 "../lib/enable_output.s7i" */ strDestr(tmp_2); /* line 97 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 730 */ /* line 104 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1405/*<&*/ (const const_striType/*t_15_string*/ o_1406_stri, const structType/*t_54_time*/ value_o_1407_aValue) { /* line 105 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 105 "../lib/enable_output.s7i" */ structType/*t_54_time*/ o_1407_aValue; /* line 105 "../lib/enable_output.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); /* line 105 "../lib/enable_output.s7i" */ o_1407_aValue=create_54(value_o_1407_aValue); /* line 105 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strConcat(o_1406_stri, (tmp_2=(striType/*t_15_string*/)(o_1358_str(o_1407_aValue)))))); /* line 105 "../lib/enable_output.s7i" */ destr_54(o_1407_aValue); /* line 105 "../lib/enable_output.s7i" */ strDestr(tmp_2); /* line 105 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 731 */ /* line 112 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1408/*<&*/ (const structType/*t_54_time*/ value_o_1409_aValue, const const_striType/*t_15_string*/ o_1410_stri) { /* line 113 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 113 "../lib/enable_output.s7i" */ structType/*t_54_time*/ o_1409_aValue; /* line 113 "../lib/enable_output.s7i" */ o_1409_aValue=create_54(value_o_1409_aValue); /* line 113 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strConcatTemp(o_1358_str(o_1409_aValue), o_1410_stri))); /* line 113 "../lib/enable_output.s7i" */ destr_54(o_1409_aValue); /* line 113 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 732 */ /* line 339 "../lib/time.s7i" */ static boolType/*t_13_boolean*/ o_1411/*=*/ (const structType/*t_54_time*/ o_1412_aTime1, const structType/*t_54_time*/ o_1413_aTime2) { /* line 346 "../lib/time.s7i" */ return (boolType/*t_13_boolean*/)((((((structType)(o_1412_aTime1))->stru[0].value.intValue/*->o_1300_year*/) == (((structType)(o_1413_aTime2))->stru[0].value.intValue/*->o_1300_year*/)) && /* line 342 "../lib/time.s7i" */ ((((structType)(o_1412_aTime1))->stru[1].value.intValue/*->o_1301_month*/) == (((structType)(o_1413_aTime2))->stru[1].value.intValue/*->o_1301_month*/)) && /* line 343 "../lib/time.s7i" */ ((((structType)(o_1412_aTime1))->stru[2].value.intValue/*->o_1302_day*/) == (((structType)(o_1413_aTime2))->stru[2].value.intValue/*->o_1302_day*/)) && /* line 344 "../lib/time.s7i" */ ((((structType)(o_1412_aTime1))->stru[3].value.intValue/*->o_1303_hour*/) == (((structType)(o_1413_aTime2))->stru[3].value.intValue/*->o_1303_hour*/)) && /* line 345 "../lib/time.s7i" */ ((((structType)(o_1412_aTime1))->stru[4].value.intValue/*->o_1304_minute*/) == (((structType)(o_1413_aTime2))->stru[4].value.intValue/*->o_1304_minute*/)) && /* line 346 "../lib/time.s7i" */ ((((structType)(o_1412_aTime1))->stru[5].value.intValue/*->o_1305_second*/) == (((structType)(o_1413_aTime2))->stru[5].value.intValue/*->o_1305_second*/)) && /* line 347 "../lib/time.s7i" */ ((((structType)(o_1412_aTime1))->stru[6].value.intValue/*->o_1306_micro_second*/) == (((structType)(o_1413_aTime2))->stru[6].value.intValue/*->o_1306_micro_second*/)))); } /* line 1 "no_file" */ /* 733 */ /* line 354 "../lib/time.s7i" */ static boolType/*t_13_boolean*/ o_1414/*<>*/ (const structType/*t_54_time*/ o_1415_aTime1, const structType/*t_54_time*/ o_1416_aTime2) { /* line 361 "../lib/time.s7i" */ return (boolType/*t_13_boolean*/)((((((structType)(o_1415_aTime1))->stru[0].value.intValue/*->o_1300_year*/) != (((structType)(o_1416_aTime2))->stru[0].value.intValue/*->o_1300_year*/)) || /* line 357 "../lib/time.s7i" */ ((((structType)(o_1415_aTime1))->stru[1].value.intValue/*->o_1301_month*/) != (((structType)(o_1416_aTime2))->stru[1].value.intValue/*->o_1301_month*/)) || /* line 358 "../lib/time.s7i" */ ((((structType)(o_1415_aTime1))->stru[2].value.intValue/*->o_1302_day*/) != (((structType)(o_1416_aTime2))->stru[2].value.intValue/*->o_1302_day*/)) || /* line 359 "../lib/time.s7i" */ ((((structType)(o_1415_aTime1))->stru[3].value.intValue/*->o_1303_hour*/) != (((structType)(o_1416_aTime2))->stru[3].value.intValue/*->o_1303_hour*/)) || /* line 360 "../lib/time.s7i" */ ((((structType)(o_1415_aTime1))->stru[4].value.intValue/*->o_1304_minute*/) != (((structType)(o_1416_aTime2))->stru[4].value.intValue/*->o_1304_minute*/)) || /* line 361 "../lib/time.s7i" */ ((((structType)(o_1415_aTime1))->stru[5].value.intValue/*->o_1305_second*/) != (((structType)(o_1416_aTime2))->stru[5].value.intValue/*->o_1305_second*/)) || /* line 362 "../lib/time.s7i" */ ((((structType)(o_1415_aTime1))->stru[6].value.intValue/*->o_1306_micro_second*/) != (((structType)(o_1416_aTime2))->stru[6].value.intValue/*->o_1306_micro_second*/)))); } /* line 1 "no_file" */ /* 734 */ /* line 370 "../lib/time.s7i" */ static boolType/*t_13_boolean*/ o_1417/*<=*/ (const structType/*t_54_time*/ o_1418_aTime1, const structType/*t_54_time*/ o_1419_aTime2) { /* line 372 "../lib/time.s7i" */ boolType/*t_13_boolean*/ o_1420_isLessEqual=o_25_FALSE; /* line 374 "../lib/time.s7i" */ if ((((structType)(o_1418_aTime1))->stru[0].value.intValue/*->o_1300_year*/) < (((structType)(o_1419_aTime2))->stru[0].value.intValue/*->o_1300_year*/)) { /* line 375 "../lib/time.s7i" */ o_1420_isLessEqual=o_26_TRUE; } else /* line 376 "../lib/time.s7i" */ if ((((structType)(o_1418_aTime1))->stru[0].value.intValue/*->o_1300_year*/) == (((structType)(o_1419_aTime2))->stru[0].value.intValue/*->o_1300_year*/)) { /* line 377 "../lib/time.s7i" */ if ((((structType)(o_1418_aTime1))->stru[1].value.intValue/*->o_1301_month*/) < (((structType)(o_1419_aTime2))->stru[1].value.intValue/*->o_1301_month*/)) { /* line 378 "../lib/time.s7i" */ o_1420_isLessEqual=o_26_TRUE; } else /* line 379 "../lib/time.s7i" */ if ((((structType)(o_1418_aTime1))->stru[1].value.intValue/*->o_1301_month*/) == (((structType)(o_1419_aTime2))->stru[1].value.intValue/*->o_1301_month*/)) { /* line 380 "../lib/time.s7i" */ if ((((structType)(o_1418_aTime1))->stru[2].value.intValue/*->o_1302_day*/) < (((structType)(o_1419_aTime2))->stru[2].value.intValue/*->o_1302_day*/)) { /* line 381 "../lib/time.s7i" */ o_1420_isLessEqual=o_26_TRUE; } else /* line 382 "../lib/time.s7i" */ if ((((structType)(o_1418_aTime1))->stru[2].value.intValue/*->o_1302_day*/) == (((structType)(o_1419_aTime2))->stru[2].value.intValue/*->o_1302_day*/)) { /* line 383 "../lib/time.s7i" */ if ((((structType)(o_1418_aTime1))->stru[3].value.intValue/*->o_1303_hour*/) < (((structType)(o_1419_aTime2))->stru[3].value.intValue/*->o_1303_hour*/)) { /* line 384 "../lib/time.s7i" */ o_1420_isLessEqual=o_26_TRUE; } else /* line 385 "../lib/time.s7i" */ if ((((structType)(o_1418_aTime1))->stru[3].value.intValue/*->o_1303_hour*/) == (((structType)(o_1419_aTime2))->stru[3].value.intValue/*->o_1303_hour*/)) { /* line 386 "../lib/time.s7i" */ if ((((structType)(o_1418_aTime1))->stru[4].value.intValue/*->o_1304_minute*/) < (((structType)(o_1419_aTime2))->stru[4].value.intValue/*->o_1304_minute*/)) { /* line 387 "../lib/time.s7i" */ o_1420_isLessEqual=o_26_TRUE; } else /* line 388 "../lib/time.s7i" */ if ((((structType)(o_1418_aTime1))->stru[4].value.intValue/*->o_1304_minute*/) == (((structType)(o_1419_aTime2))->stru[4].value.intValue/*->o_1304_minute*/)) { /* line 389 "../lib/time.s7i" */ if ((((structType)(o_1418_aTime1))->stru[5].value.intValue/*->o_1305_second*/) < (((structType)(o_1419_aTime2))->stru[5].value.intValue/*->o_1305_second*/)) { /* line 390 "../lib/time.s7i" */ o_1420_isLessEqual=o_26_TRUE; } else /* line 391 "../lib/time.s7i" */ if ((((structType)(o_1418_aTime1))->stru[5].value.intValue/*->o_1305_second*/) == (((structType)(o_1419_aTime2))->stru[5].value.intValue/*->o_1305_second*/)) { /* line 392 "../lib/time.s7i" */ if ((((structType)(o_1418_aTime1))->stru[6].value.intValue/*->o_1306_micro_second*/) <= (((structType)(o_1419_aTime2))->stru[6].value.intValue/*->o_1306_micro_second*/)) { /* line 393 "../lib/time.s7i" */ o_1420_isLessEqual=o_26_TRUE; } } } } } } } return o_1420_isLessEqual; } /* line 1 "no_file" */ /* 735 */ /* line 409 "../lib/time.s7i" */ static boolType/*t_13_boolean*/ o_1421/*>=*/ (const structType/*t_54_time*/ o_1422_aTime1, const structType/*t_54_time*/ o_1423_aTime2) { /* line 411 "../lib/time.s7i" */ boolType/*t_13_boolean*/ o_1424_isGreaterEqual=o_25_FALSE; /* line 413 "../lib/time.s7i" */ if ((((structType)(o_1422_aTime1))->stru[0].value.intValue/*->o_1300_year*/) > (((structType)(o_1423_aTime2))->stru[0].value.intValue/*->o_1300_year*/)) { /* line 414 "../lib/time.s7i" */ o_1424_isGreaterEqual=o_26_TRUE; } else /* line 415 "../lib/time.s7i" */ if ((((structType)(o_1422_aTime1))->stru[0].value.intValue/*->o_1300_year*/) == (((structType)(o_1423_aTime2))->stru[0].value.intValue/*->o_1300_year*/)) { /* line 416 "../lib/time.s7i" */ if ((((structType)(o_1422_aTime1))->stru[1].value.intValue/*->o_1301_month*/) > (((structType)(o_1423_aTime2))->stru[1].value.intValue/*->o_1301_month*/)) { /* line 417 "../lib/time.s7i" */ o_1424_isGreaterEqual=o_26_TRUE; } else /* line 418 "../lib/time.s7i" */ if ((((structType)(o_1422_aTime1))->stru[1].value.intValue/*->o_1301_month*/) == (((structType)(o_1423_aTime2))->stru[1].value.intValue/*->o_1301_month*/)) { /* line 419 "../lib/time.s7i" */ if ((((structType)(o_1422_aTime1))->stru[2].value.intValue/*->o_1302_day*/) > (((structType)(o_1423_aTime2))->stru[2].value.intValue/*->o_1302_day*/)) { /* line 420 "../lib/time.s7i" */ o_1424_isGreaterEqual=o_26_TRUE; } else /* line 421 "../lib/time.s7i" */ if ((((structType)(o_1422_aTime1))->stru[2].value.intValue/*->o_1302_day*/) == (((structType)(o_1423_aTime2))->stru[2].value.intValue/*->o_1302_day*/)) { /* line 422 "../lib/time.s7i" */ if ((((structType)(o_1422_aTime1))->stru[3].value.intValue/*->o_1303_hour*/) > (((structType)(o_1423_aTime2))->stru[3].value.intValue/*->o_1303_hour*/)) { /* line 423 "../lib/time.s7i" */ o_1424_isGreaterEqual=o_26_TRUE; } else /* line 424 "../lib/time.s7i" */ if ((((structType)(o_1422_aTime1))->stru[3].value.intValue/*->o_1303_hour*/) == (((structType)(o_1423_aTime2))->stru[3].value.intValue/*->o_1303_hour*/)) { /* line 425 "../lib/time.s7i" */ if ((((structType)(o_1422_aTime1))->stru[4].value.intValue/*->o_1304_minute*/) > (((structType)(o_1423_aTime2))->stru[4].value.intValue/*->o_1304_minute*/)) { /* line 426 "../lib/time.s7i" */ o_1424_isGreaterEqual=o_26_TRUE; } else /* line 427 "../lib/time.s7i" */ if ((((structType)(o_1422_aTime1))->stru[4].value.intValue/*->o_1304_minute*/) == (((structType)(o_1423_aTime2))->stru[4].value.intValue/*->o_1304_minute*/)) { /* line 428 "../lib/time.s7i" */ if ((((structType)(o_1422_aTime1))->stru[5].value.intValue/*->o_1305_second*/) > (((structType)(o_1423_aTime2))->stru[5].value.intValue/*->o_1305_second*/)) { /* line 429 "../lib/time.s7i" */ o_1424_isGreaterEqual=o_26_TRUE; } else /* line 430 "../lib/time.s7i" */ if ((((structType)(o_1422_aTime1))->stru[5].value.intValue/*->o_1305_second*/) == (((structType)(o_1423_aTime2))->stru[5].value.intValue/*->o_1305_second*/)) { /* line 431 "../lib/time.s7i" */ if ((((structType)(o_1422_aTime1))->stru[6].value.intValue/*->o_1306_micro_second*/) >= (((structType)(o_1423_aTime2))->stru[6].value.intValue/*->o_1306_micro_second*/)) { /* line 432 "../lib/time.s7i" */ o_1424_isGreaterEqual=o_26_TRUE; } } } } } } } return o_1424_isGreaterEqual; } /* line 1 "no_file" */ /* 736 */ /* line 448 "../lib/time.s7i" */ static boolType/*t_13_boolean*/ o_1425/*<*/ (const structType/*t_54_time*/ o_1426_aTime1, const structType/*t_54_time*/ o_1427_aTime2) { /* line 449 "../lib/time.s7i" */ return (boolType/*t_13_boolean*/)((!(o_1421/*>=*/(o_1426_aTime1, o_1427_aTime2)))); } /* line 1 "no_file" */ /* 737 */ /* line 457 "../lib/time.s7i" */ static boolType/*t_13_boolean*/ o_1428/*>*/ (const structType/*t_54_time*/ o_1429_aTime1, const structType/*t_54_time*/ o_1430_aTime2) { /* line 458 "../lib/time.s7i" */ return (boolType/*t_13_boolean*/)((!(o_1417/*<=*/(o_1429_aTime1, o_1430_aTime2)))); } /* line 1 "no_file" */ /* 738 */ /* line 467 "../lib/time.s7i" */ static intType/*t_14_integer*/ o_1431_compare (const structType/*t_54_time*/ o_1432_aTime1, const structType/*t_54_time*/ o_1433_aTime2) { /* line 469 "../lib/time.s7i" */ intType/*t_14_integer*/ o_1434_signumValue=0; /* line 471 "../lib/time.s7i" */ if ((((structType)(o_1432_aTime1))->stru[0].value.intValue/*->o_1300_year*/) < (((structType)(o_1433_aTime2))->stru[0].value.intValue/*->o_1300_year*/)) { /* line 472 "../lib/time.s7i" */ o_1434_signumValue=-1L; } else /* line 473 "../lib/time.s7i" */ if ((((structType)(o_1432_aTime1))->stru[0].value.intValue/*->o_1300_year*/) > (((structType)(o_1433_aTime2))->stru[0].value.intValue/*->o_1300_year*/)) { /* line 474 "../lib/time.s7i" */ o_1434_signumValue=1L; } else /* line 475 "../lib/time.s7i" */ if ((((structType)(o_1432_aTime1))->stru[1].value.intValue/*->o_1301_month*/) < (((structType)(o_1433_aTime2))->stru[1].value.intValue/*->o_1301_month*/)) { /* line 476 "../lib/time.s7i" */ o_1434_signumValue=-1L; } else /* line 477 "../lib/time.s7i" */ if ((((structType)(o_1432_aTime1))->stru[1].value.intValue/*->o_1301_month*/) > (((structType)(o_1433_aTime2))->stru[1].value.intValue/*->o_1301_month*/)) { /* line 478 "../lib/time.s7i" */ o_1434_signumValue=1L; } else /* line 479 "../lib/time.s7i" */ if ((((structType)(o_1432_aTime1))->stru[2].value.intValue/*->o_1302_day*/) < (((structType)(o_1433_aTime2))->stru[2].value.intValue/*->o_1302_day*/)) { /* line 480 "../lib/time.s7i" */ o_1434_signumValue=-1L; } else /* line 481 "../lib/time.s7i" */ if ((((structType)(o_1432_aTime1))->stru[2].value.intValue/*->o_1302_day*/) > (((structType)(o_1433_aTime2))->stru[2].value.intValue/*->o_1302_day*/)) { /* line 482 "../lib/time.s7i" */ o_1434_signumValue=1L; } else /* line 483 "../lib/time.s7i" */ if ((((structType)(o_1432_aTime1))->stru[3].value.intValue/*->o_1303_hour*/) < (((structType)(o_1433_aTime2))->stru[3].value.intValue/*->o_1303_hour*/)) { /* line 484 "../lib/time.s7i" */ o_1434_signumValue=-1L; } else /* line 485 "../lib/time.s7i" */ if ((((structType)(o_1432_aTime1))->stru[3].value.intValue/*->o_1303_hour*/) > (((structType)(o_1433_aTime2))->stru[3].value.intValue/*->o_1303_hour*/)) { /* line 486 "../lib/time.s7i" */ o_1434_signumValue=1L; } else /* line 487 "../lib/time.s7i" */ if ((((structType)(o_1432_aTime1))->stru[4].value.intValue/*->o_1304_minute*/) < (((structType)(o_1433_aTime2))->stru[4].value.intValue/*->o_1304_minute*/)) { /* line 488 "../lib/time.s7i" */ o_1434_signumValue=-1L; } else /* line 489 "../lib/time.s7i" */ if ((((structType)(o_1432_aTime1))->stru[4].value.intValue/*->o_1304_minute*/) > (((structType)(o_1433_aTime2))->stru[4].value.intValue/*->o_1304_minute*/)) { /* line 490 "../lib/time.s7i" */ o_1434_signumValue=1L; } else /* line 491 "../lib/time.s7i" */ if ((((structType)(o_1432_aTime1))->stru[5].value.intValue/*->o_1305_second*/) < (((structType)(o_1433_aTime2))->stru[5].value.intValue/*->o_1305_second*/)) { /* line 492 "../lib/time.s7i" */ o_1434_signumValue=-1L; } else /* line 493 "../lib/time.s7i" */ if ((((structType)(o_1432_aTime1))->stru[5].value.intValue/*->o_1305_second*/) > (((structType)(o_1433_aTime2))->stru[5].value.intValue/*->o_1305_second*/)) { /* line 494 "../lib/time.s7i" */ o_1434_signumValue=1L; } else /* line 495 "../lib/time.s7i" */ if ((((structType)(o_1432_aTime1))->stru[6].value.intValue/*->o_1306_micro_second*/) < (((structType)(o_1433_aTime2))->stru[6].value.intValue/*->o_1306_micro_second*/)) { /* line 496 "../lib/time.s7i" */ o_1434_signumValue=-1L; } else /* line 497 "../lib/time.s7i" */ if ((((structType)(o_1432_aTime1))->stru[6].value.intValue/*->o_1306_micro_second*/) > (((structType)(o_1433_aTime2))->stru[6].value.intValue/*->o_1306_micro_second*/)) { /* line 498 "../lib/time.s7i" */ o_1434_signumValue=1L; } return o_1434_signumValue; } /* line 1 "no_file" */ /* 739 */ /* line 507 "../lib/time.s7i" */ static intType/*t_14_integer*/ o_1435_hashCode (const structType/*t_54_time*/ o_1436_aTime) { /* line 509 "../lib/time.s7i" */ intType/*t_14_integer*/ result; /* line 509 "../lib/time.s7i" */ intType tmp_1; /* line 509 "../lib/time.s7i" */ intType tmp_2; /* line 509 "../lib/time.s7i" */ intType tmp_3; /* line 509 "../lib/time.s7i" */ intType tmp_4; /* line 509 "../lib/time.s7i" */ intType tmp_5; /* line 509 "../lib/time.s7i" */ intType tmp_6; /* line 509 "../lib/time.s7i" */ intType lshift_7; /* line 509 "../lib/time.s7i" */ intType lshift_8; /* line 509 "../lib/time.s7i" */ intType lshift_9; /* line 509 "../lib/time.s7i" */ intType lshift_10; /* line 509 "../lib/time.s7i" */ intType lshift_11; /* line 509 "../lib/time.s7i" */ intType lshift_12; /* line 509 "../lib/time.s7i" */ result=(intType/*t_14_integer*/)(((tmp_1=(tmp_2=(tmp_3=(tmp_4=(tmp_5=(tmp_6=((structType)(o_1436_aTime))->stru[0].value.intValue/*->o_1300_year*/,lshift_7=(((structType)(o_1436_aTime))->stru[1].value.intValue/*->o_1301_month*/) + 6L,ovfChk((uintType)lshift_7>=(uintType)64L||tmp_6<(-9223372036854775807L-1L)>>lshift_7||tmp_6>9223372036854775807L>>lshift_7)?intRaiseError(OVERFLOW_ERROR):tmp_6 << lshift_7),lshift_8=(((structType)(o_1436_aTime))->stru[2].value.intValue/*->o_1302_day*/) + 5L,ovfChk((uintType)lshift_8>=(uintType)64L||tmp_5<(-9223372036854775807L-1L)>>lshift_8||tmp_5>9223372036854775807L>>lshift_8)?intRaiseError(OVERFLOW_ERROR):tmp_5 << lshift_8),lshift_9=(((structType)(o_1436_aTime))->stru[3].value.intValue/*->o_1303_hour*/) + 4L,ovfChk((uintType)lshift_9>=(uintType)64L||tmp_4<(-9223372036854775807L-1L)>>lshift_9||tmp_4>9223372036854775807L>>lshift_9)?intRaiseError(OVERFLOW_ERROR):tmp_4 << lshift_9),lshift_10=(((structType)(o_1436_aTime))->stru[4].value.intValue/*->o_1304_minute*/) + 3L,ovfChk((uintType)lshift_10>=(uintType)64L||tmp_3<(-9223372036854775807L-1L)>>lshift_10||tmp_3>9223372036854775807L>>lshift_10)?intRaiseError(OVERFLOW_ERROR):tmp_3 << lshift_10),lshift_11=(((structType)(o_1436_aTime))->stru[5].value.intValue/*->o_1305_second*/) + 2L,ovfChk((uintType)lshift_11>=(uintType)64L||tmp_2<(-9223372036854775807L-1L)>>lshift_11||tmp_2>9223372036854775807L>>lshift_11)?intRaiseError(OVERFLOW_ERROR):tmp_2 << lshift_11),lshift_12=(((structType)(o_1436_aTime))->stru[6].value.intValue/*->o_1306_micro_second*/) + 1L,ovfChk((uintType)lshift_12>=(uintType)64L||tmp_1<(-9223372036854775807L-1L)>>lshift_12||tmp_1>9223372036854775807L>>lshift_12)?intRaiseError(OVERFLOW_ERROR):tmp_1 << lshift_12))); /* line 509 "../lib/time.s7i" */ return result; } /* line 1 "no_file" */ /* 740 */ /* line 517 "../lib/time.s7i" */ static structType/*t_54_time*/ o_1437_truncToSecond (const structType/*t_54_time*/ o_1438_aTime) { /* line 519 "../lib/time.s7i" */ structType/*t_54_time*/ o_1439_truncatedTime; /* line 519 "../lib/time.s7i" */ o_1439_truncatedTime=create_54(sct[24]); /* line 521 "../lib/time.s7i" */ cpy_54((structType/*t_54_time*/)(o_1439_truncatedTime), (structType/*t_54_time*/)(o_1438_aTime)); /* line 522 "../lib/time.s7i" */ ((structType)(o_1439_truncatedTime))->stru[6].value.intValue/*->o_1306_micro_second*/=0L; return o_1439_truncatedTime; } /* line 1 "no_file" */ /* 741 */ /* line 530 "../lib/time.s7i" */ static structType/*t_54_time*/ o_1440_truncToMinute (const structType/*t_54_time*/ o_1441_aTime) { /* line 532 "../lib/time.s7i" */ structType/*t_54_time*/ o_1442_truncatedTime; /* line 532 "../lib/time.s7i" */ o_1442_truncatedTime=create_54(sct[24]); /* line 534 "../lib/time.s7i" */ cpy_54((structType/*t_54_time*/)(o_1442_truncatedTime), (structType/*t_54_time*/)(o_1441_aTime)); /* line 535 "../lib/time.s7i" */ ((structType)(o_1442_truncatedTime))->stru[5].value.intValue/*->o_1305_second*/=0L; /* line 536 "../lib/time.s7i" */ ((structType)(o_1442_truncatedTime))->stru[6].value.intValue/*->o_1306_micro_second*/=0L; return o_1442_truncatedTime; } /* line 1 "no_file" */ /* 742 */ /* line 544 "../lib/time.s7i" */ static structType/*t_54_time*/ o_1443_truncToHour (const structType/*t_54_time*/ o_1444_aTime) { /* line 546 "../lib/time.s7i" */ structType/*t_54_time*/ o_1445_truncatedTime; /* line 546 "../lib/time.s7i" */ o_1445_truncatedTime=create_54(sct[24]); /* line 548 "../lib/time.s7i" */ cpy_54((structType/*t_54_time*/)(o_1445_truncatedTime), (structType/*t_54_time*/)(o_1444_aTime)); /* line 549 "../lib/time.s7i" */ ((structType)(o_1445_truncatedTime))->stru[4].value.intValue/*->o_1304_minute*/=0L; /* line 550 "../lib/time.s7i" */ ((structType)(o_1445_truncatedTime))->stru[5].value.intValue/*->o_1305_second*/=0L; /* line 551 "../lib/time.s7i" */ ((structType)(o_1445_truncatedTime))->stru[6].value.intValue/*->o_1306_micro_second*/=0L; return o_1445_truncatedTime; } /* line 1 "no_file" */ /* 743 */ /* line 559 "../lib/time.s7i" */ static structType/*t_54_time*/ o_1446_truncToDay (const structType/*t_54_time*/ o_1447_aTime) { /* line 561 "../lib/time.s7i" */ structType/*t_54_time*/ o_1448_truncatedTime; /* line 561 "../lib/time.s7i" */ o_1448_truncatedTime=create_54(sct[24]); /* line 563 "../lib/time.s7i" */ cpy_54((structType/*t_54_time*/)(o_1448_truncatedTime), (structType/*t_54_time*/)(o_1447_aTime)); /* line 564 "../lib/time.s7i" */ ((structType)(o_1448_truncatedTime))->stru[3].value.intValue/*->o_1303_hour*/=0L; /* line 565 "../lib/time.s7i" */ ((structType)(o_1448_truncatedTime))->stru[4].value.intValue/*->o_1304_minute*/=0L; /* line 566 "../lib/time.s7i" */ ((structType)(o_1448_truncatedTime))->stru[5].value.intValue/*->o_1305_second*/=0L; /* line 567 "../lib/time.s7i" */ ((structType)(o_1448_truncatedTime))->stru[6].value.intValue/*->o_1306_micro_second*/=0L; return o_1448_truncatedTime; } /* line 1 "no_file" */ /* 744 */ /* line 575 "../lib/time.s7i" */ static structType/*t_54_time*/ o_1449_truncToMonth (const structType/*t_54_time*/ o_1450_aTime) { /* line 577 "../lib/time.s7i" */ structType/*t_54_time*/ o_1451_truncatedTime; /* line 577 "../lib/time.s7i" */ o_1451_truncatedTime=create_54(sct[24]); /* line 579 "../lib/time.s7i" */ cpy_54((structType/*t_54_time*/)(o_1451_truncatedTime), (structType/*t_54_time*/)(o_1450_aTime)); /* line 580 "../lib/time.s7i" */ ((structType)(o_1451_truncatedTime))->stru[2].value.intValue/*->o_1302_day*/=1L; /* line 581 "../lib/time.s7i" */ ((structType)(o_1451_truncatedTime))->stru[3].value.intValue/*->o_1303_hour*/=0L; /* line 582 "../lib/time.s7i" */ ((structType)(o_1451_truncatedTime))->stru[4].value.intValue/*->o_1304_minute*/=0L; /* line 583 "../lib/time.s7i" */ ((structType)(o_1451_truncatedTime))->stru[5].value.intValue/*->o_1305_second*/=0L; /* line 584 "../lib/time.s7i" */ ((structType)(o_1451_truncatedTime))->stru[6].value.intValue/*->o_1306_micro_second*/=0L; return o_1451_truncatedTime; } /* line 1 "no_file" */ /* 745 */ /* line 592 "../lib/time.s7i" */ static structType/*t_54_time*/ o_1452_truncToYear (const structType/*t_54_time*/ o_1453_aTime) { /* line 594 "../lib/time.s7i" */ structType/*t_54_time*/ o_1454_truncatedTime; /* line 594 "../lib/time.s7i" */ o_1454_truncatedTime=create_54(sct[24]); /* line 596 "../lib/time.s7i" */ cpy_54((structType/*t_54_time*/)(o_1454_truncatedTime), (structType/*t_54_time*/)(o_1453_aTime)); /* line 597 "../lib/time.s7i" */ ((structType)(o_1454_truncatedTime))->stru[1].value.intValue/*->o_1301_month*/=1L; /* line 598 "../lib/time.s7i" */ ((structType)(o_1454_truncatedTime))->stru[2].value.intValue/*->o_1302_day*/=1L; /* line 599 "../lib/time.s7i" */ ((structType)(o_1454_truncatedTime))->stru[3].value.intValue/*->o_1303_hour*/=0L; /* line 600 "../lib/time.s7i" */ ((structType)(o_1454_truncatedTime))->stru[4].value.intValue/*->o_1304_minute*/=0L; /* line 601 "../lib/time.s7i" */ ((structType)(o_1454_truncatedTime))->stru[5].value.intValue/*->o_1305_second*/=0L; /* line 602 "../lib/time.s7i" */ ((structType)(o_1454_truncatedTime))->stru[6].value.intValue/*->o_1306_micro_second*/=0L; return o_1454_truncatedTime; } /* line 1 "no_file" */ /* 746 */ /* line 610 "../lib/time.s7i" */ static intType/*t_14_integer*/ o_1455_dayOfWeek (const structType/*t_54_time*/ o_1456_aDate) { /* line 612 "../lib/time.s7i" */ intType/*t_14_integer*/ o_1457_weekday=0; /* line 614 "../lib/time.s7i" */ intType/*t_14_integer*/ o_1458_year=0; /* line 615 "../lib/time.s7i" */ intType/*t_14_integer*/ o_1459_month=0; /* line 617 "../lib/time.s7i" */ o_1458_year=((structType)(o_1456_aDate))->stru[0].value.intValue/*->o_1300_year*/; /* line 618 "../lib/time.s7i" */ o_1459_month=((structType)(o_1456_aDate))->stru[1].value.intValue/*->o_1301_month*/; /* line 619 "../lib/time.s7i" */ if ((o_1459_month) <= (2L)) { /* line 620 "../lib/time.s7i" */ --(o_1458_year); /* line 621 "../lib/time.s7i" */ o_1459_month+=12L; } { /* line 623 "../lib/time.s7i" */ intType tmp_a_1; /* line 623 "../lib/time.s7i" */ intType tmp_a_2; /* line 623 "../lib/time.s7i" */ intType tmp_c_3; /* line 623 "../lib/time.s7i" */ o_1457_weekday=((tmp_a_1=((((((o_1458_year) + ((o_1458_year) >> 2L)) - (((o_1458_year)<0?((o_1458_year)+1)/100L-1:(intType)((uintType)(o_1458_year)/100L)))) + (((o_1458_year)<0?((o_1458_year)+1)/400L-1:(intType)((uintType)(o_1458_year)/400L)))) + ((tmp_a_2=((o_1459_month) - 2L) * 31L,tmp_a_2<0?(tmp_a_2+1)/12L-1:(intType)((uintType)tmp_a_2/12L)))) + (((structType)(o_1456_aDate))->stru[2].value.intValue/*->o_1302_day*/))-1,tmp_c_3=tmp_a_1%7L,tmp_a_1<0&&tmp_c_3!=0?tmp_c_3+7L:tmp_c_3))+1; } return o_1457_weekday; } /* line 1 "no_file" */ /* 747 */ /* line 632 "../lib/time.s7i" */ static intType/*t_14_integer*/ o_1460_dayOfYear (const structType/*t_54_time*/ o_1461_aDate) { /* line 634 "../lib/time.s7i" */ intType/*t_14_integer*/ o_1462_dayOfYear=0; /* line 636 "../lib/time.s7i" */ if (o_1310_isLeapYear(((structType)(o_1461_aDate))->stru[0].value.intValue/*->o_1300_year*/)) { { /* line 637 "../lib/time.s7i" */ const_arrayType tmp_1; /* line 637 "../lib/time.s7i" */ intType idx_2; /* line 637 "../lib/time.s7i" */ o_1462_dayOfYear=((*(tmp_1=arr[25], &tmp_1->arr[idx_2=((structType)(o_1461_aDate))->stru[1].value.intValue/*->o_1301_month*/,(idxChk(idx_2 < tmp_1->min_position || idx_2 > tmp_1->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_2-tmp_1->min_position)].value.intValue))) + (((structType)(o_1461_aDate))->stru[2].value.intValue/*->o_1302_day*/); } } else { { /* line 639 "../lib/time.s7i" */ const_arrayType tmp_1; /* line 639 "../lib/time.s7i" */ intType idx_2; /* line 639 "../lib/time.s7i" */ o_1462_dayOfYear=((*(tmp_1=arr[26], &tmp_1->arr[idx_2=((structType)(o_1461_aDate))->stru[1].value.intValue/*->o_1301_month*/,(idxChk(idx_2 < tmp_1->min_position || idx_2 > tmp_1->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_2-tmp_1->min_position)].value.intValue))) + (((structType)(o_1461_aDate))->stru[2].value.intValue/*->o_1302_day*/); } } return o_1462_dayOfYear; } /* line 1 "no_file" */ /* 748 */ /* line 652 "../lib/time.s7i" */ static intType/*t_14_integer*/ o_1463_weekOfYear (intType/*t_14_integer*/ o_1464_year, const intType/*t_14_integer*/ o_1465_dayOfYear) { /* line 654 "../lib/time.s7i" */ intType/*t_14_integer*/ o_1466_weekNumber=0; /* line 656 "../lib/time.s7i" */ intType/*t_14_integer*/ o_1467_weekDayOfJan4=0; /* line 658 "../lib/time.s7i" */ o_1464_year=(o_1464_year)-1; { /* line 659 "../lib/time.s7i" */ intType tmp_a_1; /* line 659 "../lib/time.s7i" */ intType tmp_c_2; /* line 659 "../lib/time.s7i" */ o_1467_weekDayOfJan4=((tmp_a_1=(((((o_1464_year) + ((o_1464_year) >> 2L)) - (((o_1464_year)<0?((o_1464_year)+1)/100L-1:(intType)((uintType)(o_1464_year)/100L)))) + (((o_1464_year)<0?((o_1464_year)+1)/400L-1:(intType)((uintType)(o_1464_year)/400L)))) + 32L)-1,tmp_c_2=tmp_a_1%7L,tmp_a_1<0&&tmp_c_2!=0?tmp_c_2+7L:tmp_c_2))+1; } { /* line 660 "../lib/time.s7i" */ intType tmp_a_1; /* line 660 "../lib/time.s7i" */ o_1466_weekNumber=((tmp_a_1=((o_1465_dayOfYear) + (o_1467_weekDayOfJan4)) - 5L,tmp_a_1<0?(tmp_a_1+1)/7L-1:(intType)((uintType)tmp_a_1/7L))) + 1L; } return o_1466_weekNumber; } /* line 1 "no_file" */ /* 749 */ /* line 672 "../lib/time.s7i" */ static intType/*t_14_integer*/ o_1468_weekOfYear (const structType/*t_54_time*/ o_1469_aDate) { /* line 673 "../lib/time.s7i" */ return (intType/*t_14_integer*/)((o_1463_weekOfYear(((structType)(o_1469_aDate))->stru[0].value.intValue/*->o_1300_year*/, o_1460_dayOfYear(o_1469_aDate)))); } /* line 1 "no_file" */ /* 750 */ /* line 684 "../lib/time.s7i" */ static intType/*t_14_integer*/ o_1470_weekDateYear (const structType/*t_54_time*/ o_1471_aDate) { /* line 686 "../lib/time.s7i" */ intType/*t_14_integer*/ o_1472_weekDateYear=0; /* line 688 "../lib/time.s7i" */ intType/*t_14_integer*/ o_1473_weekNumber=0; /* line 690 "../lib/time.s7i" */ o_1473_weekNumber=o_1463_weekOfYear(((structType)(o_1471_aDate))->stru[0].value.intValue/*->o_1300_year*/, o_1460_dayOfYear(o_1471_aDate)); /* line 691 "../lib/time.s7i" */ if ((o_1473_weekNumber) <= (0L)) { /* line 692 "../lib/time.s7i" */ o_1472_weekDateYear=(((structType)(o_1471_aDate))->stru[0].value.intValue/*->o_1300_year*/)-1; } else /* line 693 "../lib/time.s7i" */ if (((o_1473_weekNumber) >= (53L)) && /* line 693 "../lib/time.s7i" */ ((((structType)(o_1471_aDate))->stru[2].value.intValue/*->o_1302_day*/) >= (29L)) && /* line 694 "../lib/time.s7i" */ ((o_1463_weekOfYear((((structType)(o_1471_aDate))->stru[0].value.intValue/*->o_1300_year*/)+1, 31L - (((structType)(o_1471_aDate))->stru[2].value.intValue/*->o_1302_day*/))) == (1L))) { /* line 695 "../lib/time.s7i" */ o_1472_weekDateYear=(((structType)(o_1471_aDate))->stru[0].value.intValue/*->o_1300_year*/)+1; } else { /* line 697 "../lib/time.s7i" */ o_1472_weekDateYear=((structType)(o_1471_aDate))->stru[0].value.intValue/*->o_1300_year*/; } return o_1472_weekDateYear; } /* line 1 "no_file" */ /* 751 */ /* line 709 "../lib/time.s7i" */ static intType/*t_14_integer*/ o_1474_weekDateWeek (const structType/*t_54_time*/ o_1475_aDate) { /* line 711 "../lib/time.s7i" */ intType/*t_14_integer*/ o_1476_weekNumber=0; /* line 713 "../lib/time.s7i" */ o_1476_weekNumber=o_1463_weekOfYear(((structType)(o_1475_aDate))->stru[0].value.intValue/*->o_1300_year*/, o_1460_dayOfYear(o_1475_aDate)); /* line 714 "../lib/time.s7i" */ if ((o_1476_weekNumber) <= (0L)) { /* line 715 "../lib/time.s7i" */ o_1476_weekNumber=o_1463_weekOfYear((((structType)(o_1475_aDate))->stru[0].value.intValue/*->o_1300_year*/)-1, 366L); } else /* line 716 "../lib/time.s7i" */ if (((o_1476_weekNumber) >= (53L)) && /* line 716 "../lib/time.s7i" */ ((((structType)(o_1475_aDate))->stru[2].value.intValue/*->o_1302_day*/) >= (29L)) && /* line 717 "../lib/time.s7i" */ ((o_1463_weekOfYear((((structType)(o_1475_aDate))->stru[0].value.intValue/*->o_1300_year*/)+1, 31L - (((structType)(o_1475_aDate))->stru[2].value.intValue/*->o_1302_day*/))) == (1L))) { /* line 718 "../lib/time.s7i" */ o_1476_weekNumber=1L; } return o_1476_weekNumber; } /* line 1 "no_file" */ /* 752 */ /* line 723 "../lib/time.s7i" */ static void/*t_1_void*/ o_1477_NORMALIZE (structType/*t_54_time*/ *const o_1478_tim) { /* line 725 "../lib/time.s7i" */ intType/*t_14_integer*/ o_1479_month_length=0; { /* line 727 "../lib/time.s7i" */ intType tmp_a_1; /* line 727 "../lib/time.s7i" */ ((structType)(*o_1478_tim))->stru[5].value.intValue/*->o_1305_second*/=(((structType)(*o_1478_tim))->stru[5].value.intValue/*->o_1305_second*/) + ((tmp_a_1=((structType)(*o_1478_tim))->stru[6].value.intValue/*->o_1306_micro_second*/,tmp_a_1<0?(tmp_a_1+1)/1000000L-1:(intType)((uintType)tmp_a_1/1000000L))); } { /* line 728 "../lib/time.s7i" */ intType tmp_a_1; /* line 728 "../lib/time.s7i" */ intType tmp_c_2; /* line 728 "../lib/time.s7i" */ ((structType)(*o_1478_tim))->stru[6].value.intValue/*->o_1306_micro_second*/=(tmp_a_1=((structType)(*o_1478_tim))->stru[6].value.intValue/*->o_1306_micro_second*/,tmp_c_2=tmp_a_1%1000000L,tmp_a_1<0&&tmp_c_2!=0?tmp_c_2+1000000L:tmp_c_2); } { /* line 729 "../lib/time.s7i" */ intType tmp_a_1; /* line 729 "../lib/time.s7i" */ ((structType)(*o_1478_tim))->stru[4].value.intValue/*->o_1304_minute*/=(((structType)(*o_1478_tim))->stru[4].value.intValue/*->o_1304_minute*/) + ((tmp_a_1=((structType)(*o_1478_tim))->stru[5].value.intValue/*->o_1305_second*/,tmp_a_1<0?(tmp_a_1+1)/60L-1:(intType)((uintType)tmp_a_1/60L))); } { /* line 730 "../lib/time.s7i" */ intType tmp_a_1; /* line 730 "../lib/time.s7i" */ intType tmp_c_2; /* line 730 "../lib/time.s7i" */ ((structType)(*o_1478_tim))->stru[5].value.intValue/*->o_1305_second*/=(tmp_a_1=((structType)(*o_1478_tim))->stru[5].value.intValue/*->o_1305_second*/,tmp_c_2=tmp_a_1%60L,tmp_a_1<0&&tmp_c_2!=0?tmp_c_2+60L:tmp_c_2); } { /* line 731 "../lib/time.s7i" */ intType tmp_a_1; /* line 731 "../lib/time.s7i" */ ((structType)(*o_1478_tim))->stru[3].value.intValue/*->o_1303_hour*/=(((structType)(*o_1478_tim))->stru[3].value.intValue/*->o_1303_hour*/) + ((tmp_a_1=((structType)(*o_1478_tim))->stru[4].value.intValue/*->o_1304_minute*/,tmp_a_1<0?(tmp_a_1+1)/60L-1:(intType)((uintType)tmp_a_1/60L))); } { /* line 732 "../lib/time.s7i" */ intType tmp_a_1; /* line 732 "../lib/time.s7i" */ intType tmp_c_2; /* line 732 "../lib/time.s7i" */ ((structType)(*o_1478_tim))->stru[4].value.intValue/*->o_1304_minute*/=(tmp_a_1=((structType)(*o_1478_tim))->stru[4].value.intValue/*->o_1304_minute*/,tmp_c_2=tmp_a_1%60L,tmp_a_1<0&&tmp_c_2!=0?tmp_c_2+60L:tmp_c_2); } { /* line 733 "../lib/time.s7i" */ intType tmp_a_1; /* line 733 "../lib/time.s7i" */ ((structType)(*o_1478_tim))->stru[2].value.intValue/*->o_1302_day*/=(((structType)(*o_1478_tim))->stru[2].value.intValue/*->o_1302_day*/) + ((tmp_a_1=((structType)(*o_1478_tim))->stru[3].value.intValue/*->o_1303_hour*/,tmp_a_1<0?(tmp_a_1+1)/24L-1:(intType)((uintType)tmp_a_1/24L))); } { /* line 734 "../lib/time.s7i" */ intType tmp_a_1; /* line 734 "../lib/time.s7i" */ intType tmp_c_2; /* line 734 "../lib/time.s7i" */ ((structType)(*o_1478_tim))->stru[3].value.intValue/*->o_1303_hour*/=(tmp_a_1=((structType)(*o_1478_tim))->stru[3].value.intValue/*->o_1303_hour*/,tmp_c_2=tmp_a_1%24L,tmp_a_1<0&&tmp_c_2!=0?tmp_c_2+24L:tmp_c_2); } { /* line 735 "../lib/time.s7i" */ intType tmp_a_1; /* line 735 "../lib/time.s7i" */ ((structType)(*o_1478_tim))->stru[0].value.intValue/*->o_1300_year*/=(((structType)(*o_1478_tim))->stru[0].value.intValue/*->o_1300_year*/) + ((tmp_a_1=(((structType)(*o_1478_tim))->stru[1].value.intValue/*->o_1301_month*/)-1,tmp_a_1<0?(tmp_a_1+1)/12L-1:(intType)((uintType)tmp_a_1/12L))); } { /* line 736 "../lib/time.s7i" */ intType tmp_a_1; /* line 736 "../lib/time.s7i" */ intType tmp_c_2; /* line 736 "../lib/time.s7i" */ ((structType)(*o_1478_tim))->stru[1].value.intValue/*->o_1301_month*/=((tmp_a_1=(((structType)(*o_1478_tim))->stru[1].value.intValue/*->o_1301_month*/)-1,tmp_c_2=tmp_a_1%12L,tmp_a_1<0&&tmp_c_2!=0?tmp_c_2+12L:tmp_c_2))+1; } /* line 737 "../lib/time.s7i" */ o_1479_month_length=o_1315_daysInMonth(((structType)(*o_1478_tim))->stru[0].value.intValue/*->o_1300_year*/, ((structType)(*o_1478_tim))->stru[1].value.intValue/*->o_1301_month*/); /* line 738 "../lib/time.s7i" */ while ((((structType)(*o_1478_tim))->stru[2].value.intValue/*->o_1302_day*/) > (o_1479_month_length)) { /* line 739 "../lib/time.s7i" */ ((structType)(*o_1478_tim))->stru[2].value.intValue/*->o_1302_day*/=(((structType)(*o_1478_tim))->stru[2].value.intValue/*->o_1302_day*/) - (o_1479_month_length); /* line 740 "../lib/time.s7i" */ if ((((structType)(*o_1478_tim))->stru[1].value.intValue/*->o_1301_month*/) < (12L)) { /* line 741 "../lib/time.s7i" */ ++(((structType)(*o_1478_tim))->stru[1].value.intValue/*->o_1301_month*/); } else { /* line 743 "../lib/time.s7i" */ ((structType)(*o_1478_tim))->stru[1].value.intValue/*->o_1301_month*/=1L; /* line 744 "../lib/time.s7i" */ ++(((structType)(*o_1478_tim))->stru[0].value.intValue/*->o_1300_year*/); } /* line 746 "../lib/time.s7i" */ o_1479_month_length=o_1315_daysInMonth(((structType)(*o_1478_tim))->stru[0].value.intValue/*->o_1300_year*/, ((structType)(*o_1478_tim))->stru[1].value.intValue/*->o_1301_month*/); } /* line 748 "../lib/time.s7i" */ while ((((structType)(*o_1478_tim))->stru[2].value.intValue/*->o_1302_day*/) < (1L)) { /* line 749 "../lib/time.s7i" */ if ((((structType)(*o_1478_tim))->stru[1].value.intValue/*->o_1301_month*/) > (1L)) { /* line 750 "../lib/time.s7i" */ --(((structType)(*o_1478_tim))->stru[1].value.intValue/*->o_1301_month*/); } else { /* line 752 "../lib/time.s7i" */ ((structType)(*o_1478_tim))->stru[1].value.intValue/*->o_1301_month*/=12L; /* line 753 "../lib/time.s7i" */ --(((structType)(*o_1478_tim))->stru[0].value.intValue/*->o_1300_year*/); } /* line 755 "../lib/time.s7i" */ ((structType)(*o_1478_tim))->stru[2].value.intValue/*->o_1302_day*/=(((structType)(*o_1478_tim))->stru[2].value.intValue/*->o_1302_day*/) + (o_1315_daysInMonth(((structType)(*o_1478_tim))->stru[0].value.intValue/*->o_1300_year*/, ((structType)(*o_1478_tim))->stru[1].value.intValue/*->o_1301_month*/)); } } /* line 1 "no_file" */ /* 753 */ /* line 764 "../lib/time.s7i" */ static structType/*t_54_time*/ o_1480_toUTC (const structType/*t_54_time*/ o_1481_aTime) { /* line 766 "../lib/time.s7i" */ structType/*t_54_time*/ o_1482_timeInUTC; /* line 766 "../lib/time.s7i" */ o_1482_timeInUTC=create_54(sct[24]); /* line 768 "../lib/time.s7i" */ cpy_54((structType/*t_54_time*/)(o_1482_timeInUTC), (structType/*t_54_time*/)(o_1481_aTime)); /* line 769 "../lib/time.s7i" */ ((structType)(o_1482_timeInUTC))->stru[4].value.intValue/*->o_1304_minute*/-=((structType)(o_1481_aTime))->stru[7].value.intValue/*->o_1307_timeZone*/; /* line 770 "../lib/time.s7i" */ ((structType)(o_1482_timeInUTC))->stru[7].value.intValue/*->o_1307_timeZone*/=0L; /* line 771 "../lib/time.s7i" */ o_1477_NORMALIZE(&(o_1482_timeInUTC)); return o_1482_timeInUTC; } /* line 1 "no_file" */ /* 754 */ /* line 779 "../lib/time.s7i" */ static structType/*t_54_time*/ o_1483_setLocalTZ (const structType/*t_54_time*/ o_1484_aTime) { /* line 781 "../lib/time.s7i" */ structType/*t_54_time*/ o_1485_localTime; /* line 781 "../lib/time.s7i" */ o_1485_localTime=create_54(sct[24]); /* line 783 "../lib/time.s7i" */ cpy_54((structType/*t_54_time*/)(o_1485_localTime), (structType/*t_54_time*/)(o_1484_aTime)); /* line 784 "../lib/time.s7i" */ timSetLocalTZ(((structType)(o_1485_localTime))->stru[0].value.intValue/*->o_1300_year*/, ((structType)(o_1485_localTime))->stru[1].value.intValue/*->o_1301_month*/, ((structType)(o_1485_localTime))->stru[2].value.intValue/*->o_1302_day*/, ((structType)(o_1485_localTime))->stru[3].value.intValue/*->o_1303_hour*/, ((structType)(o_1485_localTime))->stru[4].value.intValue/*->o_1304_minute*/, ((structType)(o_1485_localTime))->stru[5].value.intValue/*->o_1305_second*/, &(((structType)(o_1485_localTime))->stru[7].value.intValue/*->o_1307_timeZone*/), &(((structType)(o_1485_localTime))->stru[8].value.boolValue/*->o_1308_daylightSavingTime*/)); return o_1485_localTime; } /* line 1 "no_file" */ /* 755 */ /* line 796 "../lib/time.s7i" */ static intType/*t_14_integer*/ o_1486_julianDayNumber (const structType/*t_54_time*/ o_1487_aDate) { /* line 798 "../lib/time.s7i" */ intType/*t_14_integer*/ o_1488_julianDayNumber=0; /* line 800 "../lib/time.s7i" */ intType/*t_14_integer*/ o_1489_year=0; /* line 801 "../lib/time.s7i" */ intType/*t_14_integer*/ o_1490_month=0; /* line 803 "../lib/time.s7i" */ o_1489_year=((structType)(o_1487_aDate))->stru[0].value.intValue/*->o_1300_year*/; /* line 804 "../lib/time.s7i" */ o_1490_month=((structType)(o_1487_aDate))->stru[1].value.intValue/*->o_1301_month*/; /* line 805 "../lib/time.s7i" */ if ((o_1490_month) <= (2L)) { /* line 806 "../lib/time.s7i" */ --(o_1489_year); /* line 807 "../lib/time.s7i" */ o_1490_month+=12L; } { /* line 809 "../lib/time.s7i" */ intType tmp_a_1; /* line 809 "../lib/time.s7i" */ intType tmp_a_2; /* line 809 "../lib/time.s7i" */ o_1488_julianDayNumber=(((((((o_1489_year) + 4800L) * 1461L) >> 2L) + ((tmp_a_1=((o_1490_month) - 2L) * 367L,tmp_a_1<0?(tmp_a_1+1)/12L-1:(intType)((uintType)tmp_a_1/12L)))) - ((((tmp_a_2=(o_1489_year) + 4900L,tmp_a_2<0?(tmp_a_2+1)/100L-1:(intType)((uintType)tmp_a_2/100L))) * 3L) >> 2L)) + (((structType)(o_1487_aDate))->stru[2].value.intValue/*->o_1302_day*/)) - 32075L; } return o_1488_julianDayNumber; } /* line 1 "no_file" */ /* 756 */ /* line 822 "../lib/time.s7i" */ static structType/*t_54_time*/ o_1491_julianDayNumToTime (const intType/*t_14_integer*/ o_1492_julianDayNumber) { /* line 824 "../lib/time.s7i" */ structType/*t_54_time*/ o_1493_aTime; /* line 826 "../lib/time.s7i" */ intType/*t_14_integer*/ o_1494_l=0; /* line 827 "../lib/time.s7i" */ intType/*t_14_integer*/ o_1495_n=0; /* line 828 "../lib/time.s7i" */ intType/*t_14_integer*/ o_1496_i=0; /* line 829 "../lib/time.s7i" */ intType/*t_14_integer*/ o_1497_j=0; /* line 824 "../lib/time.s7i" */ o_1493_aTime=create_54(sct[24]); /* line 831 "../lib/time.s7i" */ o_1494_l=(o_1492_julianDayNumber) + 68569L; { /* line 832 "../lib/time.s7i" */ intType tmp_a_1; /* line 832 "../lib/time.s7i" */ o_1495_n=(tmp_a_1=(o_1494_l) * 4L,tmp_a_1<0?(tmp_a_1+1)/146097L-1:(intType)((uintType)tmp_a_1/146097L)); } /* line 833 "../lib/time.s7i" */ o_1494_l=(o_1494_l) - ((((o_1495_n) * 146097L) + 3L) >> 2L); { /* line 834 "../lib/time.s7i" */ intType tmp_a_1; /* line 834 "../lib/time.s7i" */ o_1496_i=(tmp_a_1=((o_1494_l) + 1L) * 4000L,tmp_a_1<0?(tmp_a_1+1)/1461001L-1:(intType)((uintType)tmp_a_1/1461001L)); } /* line 835 "../lib/time.s7i" */ o_1494_l=((o_1494_l) - (((o_1496_i) * 1461L) >> 2L)) + 31L; { /* line 836 "../lib/time.s7i" */ intType tmp_a_1; /* line 836 "../lib/time.s7i" */ o_1497_j=(tmp_a_1=(o_1494_l) * 80L,tmp_a_1<0?(tmp_a_1+1)/2447L-1:(intType)((uintType)tmp_a_1/2447L)); } { /* line 837 "../lib/time.s7i" */ intType tmp_a_1; /* line 837 "../lib/time.s7i" */ ((structType)(o_1493_aTime))->stru[2].value.intValue/*->o_1302_day*/=(o_1494_l) - ((tmp_a_1=(o_1497_j) * 2447L,tmp_a_1<0?(tmp_a_1+1)/80L-1:(intType)((uintType)tmp_a_1/80L))); } /* line 838 "../lib/time.s7i" */ o_1494_l=((o_1497_j)<0?((o_1497_j)+1)/11L-1:(intType)((uintType)(o_1497_j)/11L)); /* line 839 "../lib/time.s7i" */ ((structType)(o_1493_aTime))->stru[1].value.intValue/*->o_1301_month*/=((o_1497_j) + 2L) - ((o_1494_l) * 12L); /* line 840 "../lib/time.s7i" */ ((structType)(o_1493_aTime))->stru[0].value.intValue/*->o_1300_year*/=((((o_1495_n) - 49L) * 100L) + (o_1496_i)) + (o_1494_l); return o_1493_aTime; } /* line 1 "no_file" */ /* 757 */ /* line 849 "../lib/time.s7i" */ static intType/*t_14_integer*/ o_1498_timestamp1970 (const structType/*t_54_time*/ o_1499_aTime) { /* line 851 "../lib/time.s7i" */ intType/*t_14_integer*/ o_1500_seconds=0; /* line 853 "../lib/time.s7i" */ intType/*t_14_integer*/ o_1501_yearBefore=0; /* line 855 "../lib/time.s7i" */ o_1501_yearBefore=(((structType)(o_1499_aTime))->stru[0].value.intValue/*->o_1300_year*/)-1; /* line 856 "../lib/time.s7i" */ o_1500_seconds=(((((((((((((o_1501_yearBefore) * 365L) + ((o_1501_yearBefore) >> 2L)) - (((o_1501_yearBefore)<0?((o_1501_yearBefore)+1)/100L-1:(intType)((uintType)(o_1501_yearBefore)/100L)))) + (((o_1501_yearBefore)<0?((o_1501_yearBefore)+1)/400L-1:(intType)((uintType)(o_1501_yearBefore)/400L)))) - 719162L) + ((o_1460_dayOfYear(o_1499_aTime))-1)) * 24L) + (((structType)(o_1499_aTime))->stru[3].value.intValue/*->o_1303_hour*/)) * 60L) + (((structType)(o_1499_aTime))->stru[4].value.intValue/*->o_1304_minute*/)) * 60L) + (((structType)(o_1499_aTime))->stru[5].value.intValue/*->o_1305_second*/)) - ((((structType)(o_1499_aTime))->stru[7].value.intValue/*->o_1307_timeZone*/) * 60L); return o_1500_seconds; } /* line 1 "no_file" */ /* 758 */ /* line 875 "../lib/time.s7i" */ static structType/*t_54_time*/ o_1502_timestamp1970ToTime (const intType/*t_14_integer*/ o_1503_timestamp) { /* line 877 "../lib/time.s7i" */ structType/*t_54_time*/ o_1504_aTime; /* line 877 "../lib/time.s7i" */ o_1504_aTime=create_54(sct[24]); /* line 879 "../lib/time.s7i" */ timFromIntTimestamp(o_1503_timestamp, &(((structType)(o_1504_aTime))->stru[0].value.intValue/*->o_1300_year*/), &(((structType)(o_1504_aTime))->stru[1].value.intValue/*->o_1301_month*/), &(((structType)(o_1504_aTime))->stru[2].value.intValue/*->o_1302_day*/), &(((structType)(o_1504_aTime))->stru[3].value.intValue/*->o_1303_hour*/), &(((structType)(o_1504_aTime))->stru[4].value.intValue/*->o_1304_minute*/), &(((structType)(o_1504_aTime))->stru[5].value.intValue/*->o_1305_second*/), &(((structType)(o_1504_aTime))->stru[6].value.intValue/*->o_1306_micro_second*/), &(((structType)(o_1504_aTime))->stru[7].value.intValue/*->o_1307_timeZone*/), &(((structType)(o_1504_aTime))->stru[8].value.boolValue/*->o_1308_daylightSavingTime*/)); return o_1504_aTime; } /* line 1 "no_file" */ /* 759 */ /* line 938 "../lib/time.s7i" */ static structType/*t_54_time*/ o_1505_NOW (void) { /* line 940 "../lib/time.s7i" */ structType/*t_54_time*/ o_1506_localTime; /* line 940 "../lib/time.s7i" */ o_1506_localTime=create_54(sct[24]); /* line 942 "../lib/time.s7i" */ timNow(&(((structType)(o_1506_localTime))->stru[0].value.intValue/*->o_1300_year*/), &(((structType)(o_1506_localTime))->stru[1].value.intValue/*->o_1301_month*/), &(((structType)(o_1506_localTime))->stru[2].value.intValue/*->o_1302_day*/), &(((structType)(o_1506_localTime))->stru[3].value.intValue/*->o_1303_hour*/), &(((structType)(o_1506_localTime))->stru[4].value.intValue/*->o_1304_minute*/), &(((structType)(o_1506_localTime))->stru[5].value.intValue/*->o_1305_second*/), &(((structType)(o_1506_localTime))->stru[6].value.intValue/*->o_1306_micro_second*/), &(((structType)(o_1506_localTime))->stru[7].value.intValue/*->o_1307_timeZone*/), &(((structType)(o_1506_localTime))->stru[8].value.boolValue/*->o_1308_daylightSavingTime*/)); return o_1506_localTime; } /* line 1 "no_file" */ /* 760 */ /* line 952 "../lib/time.s7i" */ static structType/*t_54_time*/ o_1507_time (const intType/*t_14_integer*/ o_1508_year, const intType/*t_14_integer*/ o_1509_month, const intType/*t_14_integer*/ o_1510_day, const intType/*t_14_integer*/ o_1511_hour, const intType/*t_14_integer*/ o_1512_minute, const intType/*t_14_integer*/ o_1513_second) { /* line 955 "../lib/time.s7i" */ structType/*t_54_time*/ o_1514_utcTime; /* line 955 "../lib/time.s7i" */ o_1514_utcTime=create_54(sct[24]); /* line 957 "../lib/time.s7i" */ ((structType)(o_1514_utcTime))->stru[0].value.intValue/*->o_1300_year*/=o_1508_year; /* line 958 "../lib/time.s7i" */ ((structType)(o_1514_utcTime))->stru[1].value.intValue/*->o_1301_month*/=o_1509_month; /* line 959 "../lib/time.s7i" */ ((structType)(o_1514_utcTime))->stru[2].value.intValue/*->o_1302_day*/=o_1510_day; /* line 960 "../lib/time.s7i" */ ((structType)(o_1514_utcTime))->stru[3].value.intValue/*->o_1303_hour*/=o_1511_hour; /* line 961 "../lib/time.s7i" */ ((structType)(o_1514_utcTime))->stru[4].value.intValue/*->o_1304_minute*/=o_1512_minute; /* line 962 "../lib/time.s7i" */ ((structType)(o_1514_utcTime))->stru[5].value.intValue/*->o_1305_second*/=o_1513_second; return o_1514_utcTime; } /* line 1 "no_file" */ /* 761 */ /* line 969 "../lib/time.s7i" */ static structType/*t_54_time*/ o_1515_timeInTimeZone (const intType/*t_14_integer*/ o_1516_year, const intType/*t_14_integer*/ o_1517_month, const intType/*t_14_integer*/ o_1518_day, const intType/*t_14_integer*/ o_1519_hour, const intType/*t_14_integer*/ o_1520_minute, const intType/*t_14_integer*/ o_1521_second, const intType/*t_14_integer*/ o_1522_timeZone) { /* line 972 "../lib/time.s7i" */ structType/*t_54_time*/ o_1523_aTime; /* line 972 "../lib/time.s7i" */ o_1523_aTime=create_54(sct[24]); /* line 974 "../lib/time.s7i" */ ((structType)(o_1523_aTime))->stru[0].value.intValue/*->o_1300_year*/=o_1516_year; /* line 975 "../lib/time.s7i" */ ((structType)(o_1523_aTime))->stru[1].value.intValue/*->o_1301_month*/=o_1517_month; /* line 976 "../lib/time.s7i" */ ((structType)(o_1523_aTime))->stru[2].value.intValue/*->o_1302_day*/=o_1518_day; /* line 977 "../lib/time.s7i" */ ((structType)(o_1523_aTime))->stru[3].value.intValue/*->o_1303_hour*/=o_1519_hour; /* line 978 "../lib/time.s7i" */ ((structType)(o_1523_aTime))->stru[4].value.intValue/*->o_1304_minute*/=o_1520_minute; /* line 979 "../lib/time.s7i" */ ((structType)(o_1523_aTime))->stru[5].value.intValue/*->o_1305_second*/=o_1521_second; /* line 980 "../lib/time.s7i" */ ((structType)(o_1523_aTime))->stru[7].value.intValue/*->o_1307_timeZone*/=o_1522_timeZone; return o_1523_aTime; } /* line 1 "no_file" */ /* 762 */ /* line 987 "../lib/time.s7i" */ static structType/*t_54_time*/ o_1524_date (const intType/*t_14_integer*/ o_1525_year, const intType/*t_14_integer*/ o_1526_month, const intType/*t_14_integer*/ o_1527_day) { /* line 989 "../lib/time.s7i" */ structType/*t_54_time*/ o_1528_aDate; /* line 989 "../lib/time.s7i" */ o_1528_aDate=create_54(sct[24]); /* line 991 "../lib/time.s7i" */ ((structType)(o_1528_aDate))->stru[0].value.intValue/*->o_1300_year*/=o_1525_year; /* line 992 "../lib/time.s7i" */ ((structType)(o_1528_aDate))->stru[1].value.intValue/*->o_1301_month*/=o_1526_month; /* line 993 "../lib/time.s7i" */ ((structType)(o_1528_aDate))->stru[2].value.intValue/*->o_1302_day*/=o_1527_day; return o_1528_aDate; } /* line 1 "no_file" */ /* 763 */ /* line 1000 "../lib/time.s7i" */ static void/*t_1_void*/ o_1529_await (const structType/*t_54_time*/ o_1530_aTime) { /* line 1002 "../lib/time.s7i" */ timAwait(((structType)(o_1530_aTime))->stru[0].value.intValue/*->o_1300_year*/, ((structType)(o_1530_aTime))->stru[1].value.intValue/*->o_1301_month*/, ((structType)(o_1530_aTime))->stru[2].value.intValue/*->o_1302_day*/, ((structType)(o_1530_aTime))->stru[3].value.intValue/*->o_1303_hour*/, ((structType)(o_1530_aTime))->stru[4].value.intValue/*->o_1304_minute*/, ((structType)(o_1530_aTime))->stru[5].value.intValue/*->o_1305_second*/, ((structType)(o_1530_aTime))->stru[6].value.intValue/*->o_1306_micro_second*/, ((structType)(o_1530_aTime))->stru[7].value.intValue/*->o_1307_timeZone*/); } /* line 1 "no_file" */ /* 764 */ /* 765 */ /* 766 */ /* 767 */ /* 768 */ /* 769 */ const boolType/*t_13_boolean*/ o_1531_mayRaiseRangeError=1/*TRUE*/; /* 770 */ /* line 61 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1532_read (interfaceType/*t_46_file*/ *const o_1533_inFile, bigIntType/*t_57_bigInteger*/ *const o_1534_aVar) { { /* line 63 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); { /* line 63 "../lib/enable_input.s7i" */ bigIntType old_big=*o_1534_aVar; /* line 63 "../lib/enable_input.s7i" */ *o_1534_aVar=bigParse((tmp_2=(striType/*t_15_string*/)(o_921_getwd(o_1533_inFile)))); /* line 63 "../lib/enable_input.s7i" */ bigDestr(old_big); } /* line 63 "../lib/enable_input.s7i" */ strDestr(tmp_2); } } /* line 1 "no_file" */ /* 771 */ /* line 77 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1535_read (interfaceType/*t_46_file*/ *const o_1536_inFile, bigIntType/*t_57_bigInteger*/ *const o_1537_aVar, const const_bigIntType/*t_57_bigInteger*/ value_o_1538_defaultValue) { /* line 77 "../lib/enable_input.s7i" */ const_bigIntType/*t_57_bigInteger*/ o_1538_defaultValue; /* line 80 "../lib/enable_input.s7i" */ striType/*t_15_string*/ o_1539_stri; /* line 77 "../lib/enable_input.s7i" */ o_1538_defaultValue=bigCreate(value_o_1538_defaultValue); /* line 80 "../lib/enable_input.s7i" */ o_1539_stri=strEmpty(); /* "" */ { /* line 82 "../lib/enable_input.s7i" */ striType old_stri=o_1539_stri; /* line 82 "../lib/enable_input.s7i" */ o_1539_stri=o_921_getwd(o_1536_inFile); /* line 82 "../lib/enable_input.s7i" */ strDestr(old_stri); } /* line 83 "../lib/enable_input.s7i" */ if (((o_1539_stri)->size==0 /* "" */)) { /* line 84 "../lib/enable_input.s7i" */ bigCpy(&(*o_1537_aVar), o_1538_defaultValue); } else { { /* line 86 "../lib/enable_input.s7i" */ bigIntType old_big=*o_1537_aVar; /* line 86 "../lib/enable_input.s7i" */ *o_1537_aVar=bigParse(o_1539_stri); /* line 86 "../lib/enable_input.s7i" */ bigDestr(old_big); } } /* line 77 "../lib/enable_input.s7i" */ bigDestr(o_1538_defaultValue); /* line 77 "../lib/enable_input.s7i" */ strDestr(o_1539_stri); } /* line 1 "no_file" */ /* 772 */ /* line 99 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1540_readln (interfaceType/*t_46_file*/ *const o_1541_inFile, bigIntType/*t_57_bigInteger*/ *const o_1542_aVar) { { /* line 101 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_3 = (striType/*t_15_string*/)(NULL); /* line 101 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); { /* line 101 "../lib/enable_input.s7i" */ bigIntType old_big=*o_1542_aVar; /* line 101 "../lib/enable_input.s7i" */ *o_1542_aVar=bigParse((tmp_2=(striType/*t_15_string*/)(o_99_trimValue(&(typ[7] /* bigIntType/t_57_bigInteger */), (tmp_3=(striType/*t_15_string*/)(o_923_getln(o_1541_inFile))))))); /* line 101 "../lib/enable_input.s7i" */ bigDestr(old_big); } /* line 101 "../lib/enable_input.s7i" */ strDestr(tmp_3); /* line 101 "../lib/enable_input.s7i" */ strDestr(tmp_2); } } /* line 1 "no_file" */ /* 773 */ /* line 114 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1543_readln (interfaceType/*t_46_file*/ *const o_1544_inFile, bigIntType/*t_57_bigInteger*/ *const o_1545_aVar, const const_bigIntType/*t_57_bigInteger*/ value_o_1546_defaultValue) { /* line 114 "../lib/enable_input.s7i" */ const_bigIntType/*t_57_bigInteger*/ o_1546_defaultValue; /* line 117 "../lib/enable_input.s7i" */ striType/*t_15_string*/ o_1547_stri; /* line 114 "../lib/enable_input.s7i" */ o_1546_defaultValue=bigCreate(value_o_1546_defaultValue); /* line 117 "../lib/enable_input.s7i" */ o_1547_stri=strEmpty(); /* "" */ { /* line 119 "../lib/enable_input.s7i" */ striType old_stri=o_1547_stri; /* line 119 "../lib/enable_input.s7i" */ o_1547_stri=o_923_getln(o_1544_inFile); /* line 119 "../lib/enable_input.s7i" */ strDestr(old_stri); } /* line 120 "../lib/enable_input.s7i" */ if (((o_1547_stri)->size==0 /* "" */)) { /* line 121 "../lib/enable_input.s7i" */ bigCpy(&(*o_1545_aVar), o_1546_defaultValue); } else { { /* line 123 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); { /* line 123 "../lib/enable_input.s7i" */ bigIntType old_big=*o_1545_aVar; /* line 123 "../lib/enable_input.s7i" */ *o_1545_aVar=bigParse((tmp_2=(striType/*t_15_string*/)(o_99_trimValue(&(typ[7] /* bigIntType/t_57_bigInteger */), o_1547_stri)))); /* line 123 "../lib/enable_input.s7i" */ bigDestr(old_big); } /* line 123 "../lib/enable_input.s7i" */ strDestr(tmp_2); } } /* line 114 "../lib/enable_input.s7i" */ bigDestr(o_1546_defaultValue); /* line 114 "../lib/enable_input.s7i" */ strDestr(o_1547_stri); } /* line 1 "no_file" */ /* 774 */ /* line 137 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1548_read (bigIntType/*t_57_bigInteger*/ *const o_1549_aVar) { /* line 139 "../lib/enable_input.s7i" */ o_1532_read(&(o_1071_IN), o_1549_aVar); } /* line 1 "no_file" */ /* 775 */ /* line 153 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1550_read (bigIntType/*t_57_bigInteger*/ *const o_1551_aVar, const const_bigIntType/*t_57_bigInteger*/ value_o_1552_defaultValue) { /* line 153 "../lib/enable_input.s7i" */ const_bigIntType/*t_57_bigInteger*/ o_1552_defaultValue; /* line 153 "../lib/enable_input.s7i" */ o_1552_defaultValue=bigCreate(value_o_1552_defaultValue); /* line 155 "../lib/enable_input.s7i" */ o_1535_read(&(o_1071_IN), o_1551_aVar, o_1552_defaultValue); /* line 153 "../lib/enable_input.s7i" */ bigDestr(o_1552_defaultValue); } /* line 1 "no_file" */ /* 776 */ /* line 167 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1553_readln (bigIntType/*t_57_bigInteger*/ *const o_1554_aVar) { /* line 169 "../lib/enable_input.s7i" */ o_1540_readln(&(o_1071_IN), o_1554_aVar); } /* line 1 "no_file" */ /* 777 */ /* line 182 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_1555_readln (bigIntType/*t_57_bigInteger*/ *const o_1556_aVar, const const_bigIntType/*t_57_bigInteger*/ value_o_1557_defaultValue) { /* line 182 "../lib/enable_input.s7i" */ const_bigIntType/*t_57_bigInteger*/ o_1557_defaultValue; /* line 182 "../lib/enable_input.s7i" */ o_1557_defaultValue=bigCreate(value_o_1557_defaultValue); /* line 184 "../lib/enable_input.s7i" */ o_1543_readln(&(o_1071_IN), o_1556_aVar, o_1557_defaultValue); /* line 182 "../lib/enable_input.s7i" */ bigDestr(o_1557_defaultValue); } /* line 1 "no_file" */ /* 778 */ /* line 54 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1558_write (interfaceType/*t_46_file*/ *const o_1559_aFile, const const_bigIntType/*t_57_bigInteger*/ value_o_1560_aValue) { /* line 54 "../lib/enable_output.s7i" */ const_bigIntType/*t_57_bigInteger*/ o_1560_aValue; /* line 54 "../lib/enable_output.s7i" */ o_1560_aValue=bigCreate(value_o_1560_aValue); { /* line 56 "../lib/enable_output.s7i" */ striType tmp_1 = NULL; /* line 56 "../lib/enable_output.s7i" */ o_889_write(o_1559_aFile, (tmp_1=bigStr(o_1560_aValue))); /* line 56 "../lib/enable_output.s7i" */ strDestr(tmp_1); } /* line 54 "../lib/enable_output.s7i" */ bigDestr(o_1560_aValue); } /* line 1 "no_file" */ /* 779 */ /* line 62 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1561_writeln (interfaceType/*t_46_file*/ *const o_1562_aFile, const const_bigIntType/*t_57_bigInteger*/ value_o_1563_aValue) { /* line 62 "../lib/enable_output.s7i" */ const_bigIntType/*t_57_bigInteger*/ o_1563_aValue; /* line 62 "../lib/enable_output.s7i" */ o_1563_aValue=bigCreate(value_o_1563_aValue); { /* line 64 "../lib/enable_output.s7i" */ striType tmp_1 = NULL; /* line 64 "../lib/enable_output.s7i" */ o_894_writeln(o_1562_aFile, (tmp_1=bigStr(o_1563_aValue))); /* line 64 "../lib/enable_output.s7i" */ strDestr(tmp_1); } /* line 62 "../lib/enable_output.s7i" */ bigDestr(o_1563_aValue); } /* line 1 "no_file" */ /* 780 */ /* line 70 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1564_write (const const_bigIntType/*t_57_bigInteger*/ value_o_1565_aValue) { /* line 70 "../lib/enable_output.s7i" */ const_bigIntType/*t_57_bigInteger*/ o_1565_aValue; /* line 70 "../lib/enable_output.s7i" */ o_1565_aValue=bigCreate(value_o_1565_aValue); /* line 72 "../lib/enable_output.s7i" */ o_1558_write(&(o_1074_OUT), o_1565_aValue); /* line 70 "../lib/enable_output.s7i" */ bigDestr(o_1565_aValue); } /* line 1 "no_file" */ /* 781 */ /* line 78 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1566_writeln (const const_bigIntType/*t_57_bigInteger*/ value_o_1567_aValue) { /* line 78 "../lib/enable_output.s7i" */ const_bigIntType/*t_57_bigInteger*/ o_1567_aValue; /* line 78 "../lib/enable_output.s7i" */ o_1567_aValue=bigCreate(value_o_1567_aValue); /* line 80 "../lib/enable_output.s7i" */ o_1561_writeln(&(o_1074_OUT), o_1567_aValue); /* line 78 "../lib/enable_output.s7i" */ bigDestr(o_1567_aValue); } /* line 1 "no_file" */ /* 782 */ /* line 88 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1568_lpad (const const_bigIntType/*t_57_bigInteger*/ value_o_1569_aValue, const intType/*t_14_integer*/ o_1570_leng) { /* line 89 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 89 "../lib/enable_output.s7i" */ const_bigIntType/*t_57_bigInteger*/ o_1569_aValue; /* line 89 "../lib/enable_output.s7i" */ o_1569_aValue=bigCreate(value_o_1569_aValue); /* line 89 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strLpadTemp(bigStr(o_1569_aValue), o_1570_leng))); /* line 89 "../lib/enable_output.s7i" */ bigDestr(o_1569_aValue); /* line 89 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 783 */ /* line 96 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1571_rpad (const const_bigIntType/*t_57_bigInteger*/ value_o_1572_aValue, const intType/*t_14_integer*/ o_1573_leng) { /* line 97 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 97 "../lib/enable_output.s7i" */ const_bigIntType/*t_57_bigInteger*/ o_1572_aValue; /* line 97 "../lib/enable_output.s7i" */ striType tmp_2 = NULL; /* line 97 "../lib/enable_output.s7i" */ o_1572_aValue=bigCreate(value_o_1572_aValue); /* line 97 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strRpad((tmp_2=bigStr(o_1572_aValue)), o_1573_leng))); /* line 97 "../lib/enable_output.s7i" */ bigDestr(o_1572_aValue); /* line 97 "../lib/enable_output.s7i" */ strDestr(tmp_2); /* line 97 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 784 */ /* line 104 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1574/*<&*/ (const const_striType/*t_15_string*/ o_1575_stri, const const_bigIntType/*t_57_bigInteger*/ value_o_1576_aValue) { /* line 105 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 105 "../lib/enable_output.s7i" */ const_bigIntType/*t_57_bigInteger*/ o_1576_aValue; /* line 105 "../lib/enable_output.s7i" */ striType tmp_2 = NULL; /* line 105 "../lib/enable_output.s7i" */ o_1576_aValue=bigCreate(value_o_1576_aValue); /* line 105 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strConcat(o_1575_stri, (tmp_2=bigStr(o_1576_aValue))))); /* line 105 "../lib/enable_output.s7i" */ bigDestr(o_1576_aValue); /* line 105 "../lib/enable_output.s7i" */ strDestr(tmp_2); /* line 105 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 785 */ /* line 112 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1577/*<&*/ (const const_bigIntType/*t_57_bigInteger*/ value_o_1578_aValue, const const_striType/*t_15_string*/ o_1579_stri) { /* line 113 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 113 "../lib/enable_output.s7i" */ const_bigIntType/*t_57_bigInteger*/ o_1578_aValue; /* line 113 "../lib/enable_output.s7i" */ o_1578_aValue=bigCreate(value_o_1578_aValue); /* line 113 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strConcatTemp(bigStr(o_1578_aValue), o_1579_stri))); /* line 113 "../lib/enable_output.s7i" */ bigDestr(o_1578_aValue); /* line 113 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 786 */ /* declare inline o_1580_for*/ /* declare inline o_1581_for*/ /* declare inline o_1582_for*/ /* declare inline o_1583_for*/ /* declare inline o_1584_for*/ /* declare inline o_1585_for*/ /* line 504 "../lib/bigint.s7i" */ static striType/*t_15_string*/ o_1586_sci (const const_bigIntType/*t_57_bigInteger*/ o_1587_number, const intType/*t_14_integer*/ o_1588_precision) { /* line 506 "../lib/bigint.s7i" */ striType/*t_15_string*/ o_1589_stri; /* line 508 "../lib/bigint.s7i" */ intType/*t_14_integer*/ o_1590_exponent=0; /* line 509 "../lib/bigint.s7i" */ bigIntType/*t_57_bigInteger*/ o_1591_mantissa; /* line 506 "../lib/bigint.s7i" */ o_1589_stri=strEmpty(); /* "" */ /* line 509 "../lib/bigint.s7i" */ o_1591_mantissa=bigZero(); /* 0_ */ /* line 511 "../lib/bigint.s7i" */ if ((o_1588_precision) < (0L)) { /* line 512 "../lib/bigint.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/bigint.s7i", 512); } else /* line 513 "../lib/bigint.s7i" */ if (bigEqSignedDigit(o_1587_number, 0L)) { /* line 514 "../lib/bigint.s7i" */ if ((o_1588_precision) == (0L)) { /* line 515 "../lib/bigint.s7i" */ strCopy(&(o_1589_stri), &str[13] /* "0e+0" */); } else { { /* line 517 "../lib/bigint.s7i" */ const_striType tmp_2[3]; /* line 517 "../lib/bigint.s7i" */ striType tmp_3 = NULL; /* line 517 "../lib/bigint.s7i" */ striType old_stri=o_1589_stri; /* line 517 "../lib/bigint.s7i" */ o_1589_stri=(tmp_2[0] = &str[14] /* "0." */, tmp_2[1] = (tmp_3=strChMult((charType) '0', o_1588_precision)), tmp_2[2] = &str[15] /* "e+0" */, strConcatN(tmp_2, 3)); /* line 517 "../lib/bigint.s7i" */ strDestr(old_stri); /* line 517 "../lib/bigint.s7i" */ strDestr(tmp_3); } } } else { { /* line 520 "../lib/bigint.s7i" */ bigIntType tmp_2 = NULL; /* line 520 "../lib/bigint.s7i" */ bigIntType tmp_1 = NULL; /* line 520 "../lib/bigint.s7i" */ o_1590_exponent=bigOrd((tmp_1=bigLog10((tmp_2=bigAbs(o_1587_number))))); /* line 520 "../lib/bigint.s7i" */ bigDestr(tmp_2); /* line 520 "../lib/bigint.s7i" */ bigDestr(tmp_1); } /* line 521 "../lib/bigint.s7i" */ if ((o_1588_precision) >= (o_1590_exponent)) { { /* line 522 "../lib/bigint.s7i" */ bigIntType tmp_2 = NULL; /* line 522 "../lib/bigint.s7i" */ striType old_stri=o_1589_stri; /* line 522 "../lib/bigint.s7i" */ o_1589_stri=bigStr((tmp_2=bigAbs(o_1587_number))); /* line 522 "../lib/bigint.s7i" */ strDestr(old_stri); /* line 522 "../lib/bigint.s7i" */ bigDestr(tmp_2); } /* line 523 "../lib/bigint.s7i" */ strAppendTemp(&(o_1589_stri), strChMult((charType) '0', (o_1588_precision) - (o_1590_exponent))); } else { { /* line 525 "../lib/bigint.s7i" */ bigIntType tmp_4 = NULL; /* line 525 "../lib/bigint.s7i" */ bigIntType tmp_5 = NULL; /* line 525 "../lib/bigint.s7i" */ bigIntType tmp_2 = NULL; { /* line 525 "../lib/bigint.s7i" */ bigIntType old_big=o_1591_mantissa; /* line 525 "../lib/bigint.s7i" */ o_1591_mantissa=bigDiv((tmp_2=bigAddTemp(bigDiv((tmp_4=bigAbs(o_1587_number)), (tmp_5=bigIPowSignedDigit(10L, ((o_1590_exponent) - (o_1588_precision))-1))), big[0] /* 5 */)), big[1] /* 10 */); /* line 525 "../lib/bigint.s7i" */ bigDestr(old_big); } /* line 525 "../lib/bigint.s7i" */ bigDestr(tmp_4); /* line 525 "../lib/bigint.s7i" */ bigDestr(tmp_5); /* line 525 "../lib/bigint.s7i" */ bigDestr(tmp_2); } { /* line 526 "../lib/bigint.s7i" */ striType old_stri=o_1589_stri; /* line 526 "../lib/bigint.s7i" */ o_1589_stri=bigStr(o_1591_mantissa); /* line 526 "../lib/bigint.s7i" */ strDestr(old_stri); } /* line 527 "../lib/bigint.s7i" */ if (((intType)((o_1589_stri)->size)) > ((o_1588_precision)+1)) { /* line 529 "../lib/bigint.s7i" */ ++(o_1590_exponent); { /* line 530 "../lib/bigint.s7i" */ struct striStruct slice_1; /* line 530 "../lib/bigint.s7i" */ strCopy(&(o_1589_stri), (strHeadSlice(o_1589_stri, (o_1588_precision)+1, &slice_1), &slice_1)); } } } /* line 533 "../lib/bigint.s7i" */ if ((o_1588_precision) != (0L)) { { /* line 534 "../lib/bigint.s7i" */ const_striType tmp_2[3]; /* line 534 "../lib/bigint.s7i" */ struct striStruct stri1_3; /* line 534 "../lib/bigint.s7i" */ struct striStruct slice_4; /* line 534 "../lib/bigint.s7i" */ striType old_stri=o_1589_stri; /* line 534 "../lib/bigint.s7i" */ o_1589_stri=(tmp_2[0] = ((o_1589_stri)->size>=1?chrStrMacro((o_1589_stri)->mem[0],stri1_3):&str[0] /* "" */), tmp_2[1] = &str[16] /* "." */, tmp_2[2] = (strTailSlice(o_1589_stri, 2L, &slice_4), &slice_4), strConcatN(tmp_2, 3)); /* line 534 "../lib/bigint.s7i" */ strDestr(old_stri); } } /* line 536 "../lib/bigint.s7i" */ if ((o_1590_exponent) >= (0L)) { /* line 537 "../lib/bigint.s7i" */ strAppendTemp(&(o_1589_stri), o_1169/*<&*/(&str[17] /* "e+" */, o_1590_exponent)); } else { /* line 539 "../lib/bigint.s7i" */ strAppendTemp(&(o_1589_stri), o_1169/*<&*/(&str[18] /* "e" */, o_1590_exponent)); } /* line 541 "../lib/bigint.s7i" */ if (bigCmpSignedDigit(o_1587_number, 0L) < 0) { { /* line 542 "../lib/bigint.s7i" */ striType old_stri=o_1589_stri; /* line 542 "../lib/bigint.s7i" */ o_1589_stri=strConcat(&str[19] /* "-" */, o_1589_stri); /* line 542 "../lib/bigint.s7i" */ strDestr(old_stri); } } } /* line 504 "../lib/bigint.s7i" */ bigDestr(o_1591_mantissa); return o_1589_stri; } /* line 1 "no_file" */ /* 787 */ /* line 553 "../lib/bigint.s7i" */ static bigIntType/*t_57_bigInteger*/ o_1592/*!*/ (const const_bigIntType/*t_57_bigInteger*/ o_1593_number) { /* line 555 "../lib/bigint.s7i" */ bigIntType/*t_57_bigInteger*/ o_1594_factorial; /* line 557 "../lib/bigint.s7i" */ bigIntType/*t_57_bigInteger*/ o_1595_num; /* line 555 "../lib/bigint.s7i" */ o_1594_factorial=bigCreate(big[2] /* 1 */); /* line 557 "../lib/bigint.s7i" */ o_1595_num=bigZero(); /* 0_ */ /* line 559 "../lib/bigint.s7i" */ if (bigCmpSignedDigit(o_1593_number, 0L) < 0) { /* line 560 "../lib/bigint.s7i" */ rtlRaiseError(o_16_NUMERIC_ERROR+1, "../lib/bigint.s7i", 560); } else { /* inline proc o_1580_for */ { /* inline params */ /* line 562 "../lib/bigint.s7i" */ bigIntType/*t_57_bigInteger*/ *const o_1596_variable=&(o_1595_num); /* line 562 "../lib/bigint.s7i" */ const_bigIntType/*t_57_bigInteger*/ o_1597_lowerLimit; /* line 562 "../lib/bigint.s7i" */ const_bigIntType/*t_57_bigInteger*/ o_1598_upperLimit; /* line 562 "../lib/bigint.s7i" */ /* push proc param o_1599_statements */ /* line 562 "../lib/bigint.s7i" */ /* inline local_vars */ /* line 562 "../lib/bigint.s7i" */ o_1597_lowerLimit=bigCreate(big[3] /* 2 */); /* line 562 "../lib/bigint.s7i" */ o_1598_upperLimit=bigCreate(o_1593_number); /* inline body */ /* line 173 "../lib/forloop.s7i" */ bigCpy(&(*o_1596_variable), o_1597_lowerLimit); /* line 174 "../lib/forloop.s7i" */ if (bigCmp(*o_1596_variable, o_1598_upperLimit) <= 0) { /* closure o_1599_statements*/ { /* line 563 "../lib/bigint.s7i" */ bigMultAssign(&(o_1594_factorial), o_1595_num); } /* closure o_1599_statements*/ /* line 176 "../lib/forloop.s7i" */ while (bigCmp(*o_1596_variable, o_1598_upperLimit) < 0) { /* line 177 "../lib/forloop.s7i" */ bigIncr(&(*o_1596_variable)); /* closure o_1599_statements*/ { /* line 563 "../lib/bigint.s7i" */ bigMultAssign(&(o_1594_factorial), o_1595_num); } /* closure o_1599_statements*/ } } /* line 177 "../lib/forloop.s7i" */ bigDestr(o_1597_lowerLimit); /* line 177 "../lib/forloop.s7i" */ bigDestr(o_1598_upperLimit); /* pop proc param o_1599_statements */ } /* inline proc o_1580_for */ } /* line 553 "../lib/bigint.s7i" */ bigDestr(o_1595_num); return o_1594_factorial; } /* line 1 "no_file" */ /* 788 */ /* line 574 "../lib/bigint.s7i" */ static bigIntType/*t_57_bigInteger*/ o_1600/*!*/ (const const_bigIntType/*t_57_bigInteger*/ o_1601_n, const const_bigIntType/*t_57_bigInteger*/ value_o_1602_k) { /* line 574 "../lib/bigint.s7i" */ bigIntType/*t_57_bigInteger*/ o_1602_k; /* line 576 "../lib/bigint.s7i" */ bigIntType/*t_57_bigInteger*/ o_1603_binom; /* line 578 "../lib/bigint.s7i" */ bigIntType/*t_57_bigInteger*/ o_1604_number; /* line 574 "../lib/bigint.s7i" */ o_1602_k=bigCreate(value_o_1602_k); /* line 576 "../lib/bigint.s7i" */ o_1603_binom=bigZero(); /* 0_ */ /* line 578 "../lib/bigint.s7i" */ o_1604_number=bigZero(); /* 0_ */ { /* line 580 "../lib/bigint.s7i" */ bigIntType tmp_1 = NULL; /* line 580 "../lib/bigint.s7i" */ if ((bigCmpSignedDigit(o_1601_n, 0L) > 0) && /* line 580 "../lib/bigint.s7i" */ (bigCmp((tmp_1=bigLShift(o_1602_k, 1L)), o_1601_n) > 0)) { { /* line 581 "../lib/bigint.s7i" */ bigIntType old_big=o_1602_k; /* line 581 "../lib/bigint.s7i" */ o_1602_k=bigSbtr(o_1601_n, o_1602_k); /* line 581 "../lib/bigint.s7i" */ bigDestr(old_big); } } /* line 580 "../lib/bigint.s7i" */ bigDestr(tmp_1); } /* line 583 "../lib/bigint.s7i" */ if (bigCmpSignedDigit(o_1602_k, 0L) < 0) { /* line 584 "../lib/bigint.s7i" */ bigCpy(&(o_1603_binom), big[4] /* 0 */); } else /* line 585 "../lib/bigint.s7i" */ if (bigEqSignedDigit(o_1602_k, 0L)) { /* line 586 "../lib/bigint.s7i" */ bigCpy(&(o_1603_binom), big[2] /* 1 */); } else { /* line 588 "../lib/bigint.s7i" */ bigCpy(&(o_1603_binom), o_1601_n); /* inline proc o_1580_for */ { /* inline params */ /* line 589 "../lib/bigint.s7i" */ bigIntType/*t_57_bigInteger*/ *const o_1596_variable=&(o_1604_number); /* line 589 "../lib/bigint.s7i" */ const_bigIntType/*t_57_bigInteger*/ o_1597_lowerLimit; /* line 589 "../lib/bigint.s7i" */ const_bigIntType/*t_57_bigInteger*/ o_1598_upperLimit; /* line 589 "../lib/bigint.s7i" */ /* push proc param o_1599_statements */ /* line 589 "../lib/bigint.s7i" */ /* inline local_vars */ /* line 589 "../lib/bigint.s7i" */ o_1597_lowerLimit=bigCreate(big[3] /* 2 */); /* line 589 "../lib/bigint.s7i" */ o_1598_upperLimit=bigCreate(o_1602_k); /* inline body */ /* line 173 "../lib/forloop.s7i" */ bigCpy(&(*o_1596_variable), o_1597_lowerLimit); /* line 174 "../lib/forloop.s7i" */ if (bigCmp(*o_1596_variable, o_1598_upperLimit) <= 0) { /* closure o_1599_statements*/ { { /* line 590 "../lib/bigint.s7i" */ bigIntType tmp_1 = NULL; /* line 590 "../lib/bigint.s7i" */ bigMultAssign(&(o_1603_binom), (tmp_1=bigSuccTemp(bigSbtr(o_1601_n, o_1604_number)))); /* line 590 "../lib/bigint.s7i" */ bigDestr(tmp_1); } { /* line 591 "../lib/bigint.s7i" */ bigIntType old_big=o_1603_binom; /* line 591 "../lib/bigint.s7i" */ o_1603_binom=bigDiv(o_1603_binom, o_1604_number); /* line 591 "../lib/bigint.s7i" */ bigDestr(old_big); } } /* closure o_1599_statements*/ /* line 176 "../lib/forloop.s7i" */ while (bigCmp(*o_1596_variable, o_1598_upperLimit) < 0) { /* line 177 "../lib/forloop.s7i" */ bigIncr(&(*o_1596_variable)); /* closure o_1599_statements*/ { { /* line 590 "../lib/bigint.s7i" */ bigIntType tmp_1 = NULL; /* line 590 "../lib/bigint.s7i" */ bigMultAssign(&(o_1603_binom), (tmp_1=bigSuccTemp(bigSbtr(o_1601_n, o_1604_number)))); /* line 590 "../lib/bigint.s7i" */ bigDestr(tmp_1); } { /* line 591 "../lib/bigint.s7i" */ bigIntType old_big=o_1603_binom; /* line 591 "../lib/bigint.s7i" */ o_1603_binom=bigDiv(o_1603_binom, o_1604_number); /* line 591 "../lib/bigint.s7i" */ bigDestr(old_big); } } /* closure o_1599_statements*/ } } /* line 177 "../lib/forloop.s7i" */ bigDestr(o_1597_lowerLimit); /* line 177 "../lib/forloop.s7i" */ bigDestr(o_1598_upperLimit); /* pop proc param o_1599_statements */ } /* inline proc o_1580_for */ } /* line 574 "../lib/bigint.s7i" */ bigDestr(o_1602_k); /* line 574 "../lib/bigint.s7i" */ bigDestr(o_1604_number); return o_1603_binom; } /* line 1 "no_file" */ /* 789 */ /* line 602 "../lib/bigint.s7i" */ static bigIntType/*t_57_bigInteger*/ o_1605_sqrt (const const_bigIntType/*t_57_bigInteger*/ value_o_1606_number) { /* line 602 "../lib/bigint.s7i" */ bigIntType/*t_57_bigInteger*/ o_1606_number; /* line 604 "../lib/bigint.s7i" */ bigIntType/*t_57_bigInteger*/ o_1607_root; /* line 606 "../lib/bigint.s7i" */ bigIntType/*t_57_bigInteger*/ o_1608_nextIteration; /* line 602 "../lib/bigint.s7i" */ o_1606_number=bigCreate(value_o_1606_number); /* line 604 "../lib/bigint.s7i" */ o_1607_root=bigZero(); /* 0_ */ /* line 606 "../lib/bigint.s7i" */ o_1608_nextIteration=bigZero(); /* 0_ */ /* line 608 "../lib/bigint.s7i" */ if (bigCmpSignedDigit(o_1606_number, 0L) > 0) { /* line 609 "../lib/bigint.s7i" */ bigCpy(&(o_1608_nextIteration), o_1606_number); /* line 610 "../lib/bigint.s7i" */ do { /* line 611 "../lib/bigint.s7i" */ bigCpy(&(o_1607_root), o_1608_nextIteration); { /* line 612 "../lib/bigint.s7i" */ bigIntType tmp_4; { /* line 612 "../lib/bigint.s7i" */ bigIntType old_big=o_1608_nextIteration; /* line 612 "../lib/bigint.s7i" */ o_1608_nextIteration=(bigRShiftAssign((tmp_4=bigAddTemp(bigDiv(o_1606_number, o_1607_root), o_1607_root), &tmp_4), 1L), tmp_4); /* line 612 "../lib/bigint.s7i" */ bigDestr(old_big); } } /* line 613 "../lib/bigint.s7i" */ } while (!(bigCmp(o_1607_root, o_1608_nextIteration) <= 0)); } else /* line 614 "../lib/bigint.s7i" */ if (!bigEqSignedDigit(o_1606_number, 0L)) { /* line 615 "../lib/bigint.s7i" */ rtlRaiseError(o_16_NUMERIC_ERROR+1, "../lib/bigint.s7i", 615); } /* line 602 "../lib/bigint.s7i" */ bigDestr(o_1606_number); /* line 602 "../lib/bigint.s7i" */ bigDestr(o_1608_nextIteration); return o_1607_root; } /* line 1 "no_file" */ /* 790 */ /* line 626 "../lib/bigint.s7i" */ static bigIntType/*t_57_bigInteger*/ o_1609_modInverse (const const_bigIntType/*t_57_bigInteger*/ value_o_1610_a, const const_bigIntType/*t_57_bigInteger*/ value_o_1611_b) { /* line 626 "../lib/bigint.s7i" */ bigIntType/*t_57_bigInteger*/ o_1610_a; /* line 626 "../lib/bigint.s7i" */ bigIntType/*t_57_bigInteger*/ o_1611_b; /* line 629 "../lib/bigint.s7i" */ bigIntType/*t_57_bigInteger*/ o_1612_modularInverse; /* line 631 "../lib/bigint.s7i" */ bigIntType/*t_57_bigInteger*/ o_1613_b_bak; /* line 632 "../lib/bigint.s7i" */ bigIntType/*t_57_bigInteger*/ o_1614_x; /* line 633 "../lib/bigint.s7i" */ bigIntType/*t_57_bigInteger*/ o_1615_y; /* line 634 "../lib/bigint.s7i" */ bigIntType/*t_57_bigInteger*/ o_1616_lastx; /* line 635 "../lib/bigint.s7i" */ bigIntType/*t_57_bigInteger*/ o_1617_lasty; /* line 636 "../lib/bigint.s7i" */ bigIntType/*t_57_bigInteger*/ o_1618_temp; /* line 637 "../lib/bigint.s7i" */ bigIntType/*t_57_bigInteger*/ o_1619_quotient; /* line 626 "../lib/bigint.s7i" */ o_1610_a=bigCreate(value_o_1610_a); /* line 626 "../lib/bigint.s7i" */ o_1611_b=bigCreate(value_o_1611_b); /* line 629 "../lib/bigint.s7i" */ o_1612_modularInverse=bigZero(); /* 0_ */ /* line 631 "../lib/bigint.s7i" */ o_1613_b_bak=bigZero(); /* 0_ */ /* line 632 "../lib/bigint.s7i" */ o_1614_x=bigZero(); /* 0_ */ /* line 633 "../lib/bigint.s7i" */ o_1615_y=bigCreate(big[2] /* 1 */); /* line 634 "../lib/bigint.s7i" */ o_1616_lastx=bigCreate(big[2] /* 1 */); /* line 635 "../lib/bigint.s7i" */ o_1617_lasty=bigZero(); /* 0_ */ /* line 636 "../lib/bigint.s7i" */ o_1618_temp=bigZero(); /* 0_ */ /* line 637 "../lib/bigint.s7i" */ o_1619_quotient=bigZero(); /* 0_ */ /* line 639 "../lib/bigint.s7i" */ if (bigCmpSignedDigit(o_1611_b, 0L) < 0) { /* line 640 "../lib/bigint.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/bigint.s7i", 640); } /* line 642 "../lib/bigint.s7i" */ if ((bigCmpSignedDigit(o_1610_a, 0L) < 0) && /* line 642 "../lib/bigint.s7i" */ (!bigEqSignedDigit(o_1611_b, 0L))) { { /* line 643 "../lib/bigint.s7i" */ bigIntType old_big=o_1610_a; /* line 643 "../lib/bigint.s7i" */ o_1610_a=bigMod(o_1610_a, o_1611_b); /* line 643 "../lib/bigint.s7i" */ bigDestr(old_big); } } /* line 645 "../lib/bigint.s7i" */ bigCpy(&(o_1613_b_bak), o_1611_b); /* line 646 "../lib/bigint.s7i" */ while (!bigEqSignedDigit(o_1611_b, 0L)) { /* line 647 "../lib/bigint.s7i" */ bigCpy(&(o_1618_temp), o_1611_b); { /* line 648 "../lib/bigint.s7i" */ bigIntType old_big=o_1619_quotient; /* line 648 "../lib/bigint.s7i" */ o_1619_quotient=bigDiv(o_1610_a, o_1611_b); /* line 648 "../lib/bigint.s7i" */ bigDestr(old_big); } { /* line 649 "../lib/bigint.s7i" */ bigIntType old_big=o_1611_b; /* line 649 "../lib/bigint.s7i" */ o_1611_b=bigRem(o_1610_a, o_1611_b); /* line 649 "../lib/bigint.s7i" */ bigDestr(old_big); } /* line 650 "../lib/bigint.s7i" */ bigCpy(&(o_1610_a), o_1618_temp); /* line 652 "../lib/bigint.s7i" */ bigCpy(&(o_1618_temp), o_1614_x); { /* line 653 "../lib/bigint.s7i" */ bigIntType tmp_2 = NULL; { /* line 653 "../lib/bigint.s7i" */ bigIntType old_big=o_1614_x; /* line 653 "../lib/bigint.s7i" */ o_1614_x=bigSbtr(o_1616_lastx, (tmp_2=bigMult(o_1619_quotient, o_1614_x))); /* line 653 "../lib/bigint.s7i" */ bigDestr(old_big); } /* line 653 "../lib/bigint.s7i" */ bigDestr(tmp_2); } /* line 654 "../lib/bigint.s7i" */ bigCpy(&(o_1616_lastx), o_1618_temp); /* line 656 "../lib/bigint.s7i" */ bigCpy(&(o_1618_temp), o_1615_y); { /* line 657 "../lib/bigint.s7i" */ bigIntType tmp_2 = NULL; { /* line 657 "../lib/bigint.s7i" */ bigIntType old_big=o_1615_y; /* line 657 "../lib/bigint.s7i" */ o_1615_y=bigSbtr(o_1617_lasty, (tmp_2=bigMult(o_1619_quotient, o_1615_y))); /* line 657 "../lib/bigint.s7i" */ bigDestr(old_big); } /* line 657 "../lib/bigint.s7i" */ bigDestr(tmp_2); } /* line 658 "../lib/bigint.s7i" */ bigCpy(&(o_1617_lasty), o_1618_temp); } /* line 660 "../lib/bigint.s7i" */ if (bigEqSignedDigit(o_1610_a, 1L)) { /* line 661 "../lib/bigint.s7i" */ bigCpy(&(o_1612_modularInverse), o_1616_lastx); /* line 662 "../lib/bigint.s7i" */ if (bigCmpSignedDigit(o_1612_modularInverse, 0L) < 0) { /* line 663 "../lib/bigint.s7i" */ bigGrow(&(o_1612_modularInverse), o_1613_b_bak); } } else { /* line 666 "../lib/bigint.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/bigint.s7i", 666); } /* line 626 "../lib/bigint.s7i" */ bigDestr(o_1610_a); /* line 626 "../lib/bigint.s7i" */ bigDestr(o_1611_b); /* line 626 "../lib/bigint.s7i" */ bigDestr(o_1613_b_bak); /* line 626 "../lib/bigint.s7i" */ bigDestr(o_1614_x); /* line 626 "../lib/bigint.s7i" */ bigDestr(o_1615_y); /* line 626 "../lib/bigint.s7i" */ bigDestr(o_1616_lastx); /* line 626 "../lib/bigint.s7i" */ bigDestr(o_1617_lasty); /* line 626 "../lib/bigint.s7i" */ bigDestr(o_1618_temp); /* line 626 "../lib/bigint.s7i" */ bigDestr(o_1619_quotient); return o_1612_modularInverse; } /* line 1 "no_file" */ /* 791 */ /* line 676 "../lib/bigint.s7i" */ static bigIntType/*t_57_bigInteger*/ o_1620_modPow (const const_bigIntType/*t_57_bigInteger*/ value_o_1621_base, const const_bigIntType/*t_57_bigInteger*/ value_o_1622_exponent, const const_bigIntType/*t_57_bigInteger*/ o_1623_modulus) { /* line 676 "../lib/bigint.s7i" */ bigIntType/*t_57_bigInteger*/ o_1621_base; /* line 676 "../lib/bigint.s7i" */ bigIntType/*t_57_bigInteger*/ o_1622_exponent; /* line 679 "../lib/bigint.s7i" */ bigIntType/*t_57_bigInteger*/ o_1624_power; /* line 676 "../lib/bigint.s7i" */ o_1621_base=bigCreate(value_o_1621_base); /* line 676 "../lib/bigint.s7i" */ o_1622_exponent=bigCreate(value_o_1622_exponent); /* line 679 "../lib/bigint.s7i" */ o_1624_power=bigCreate(big[2] /* 1 */); /* line 681 "../lib/bigint.s7i" */ if ((bigCmpSignedDigit(o_1622_exponent, 0L) < 0) || /* line 681 "../lib/bigint.s7i" */ (bigCmpSignedDigit(o_1623_modulus, 0L) < 0)) { /* line 682 "../lib/bigint.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/bigint.s7i", 682); } else { /* line 684 "../lib/bigint.s7i" */ while (bigCmpSignedDigit(o_1622_exponent, 0L) > 0) { /* line 685 "../lib/bigint.s7i" */ if (bigOdd(o_1622_exponent)) { { /* line 686 "../lib/bigint.s7i" */ bigIntType tmp_2 = NULL; { /* line 686 "../lib/bigint.s7i" */ bigIntType old_big=o_1624_power; /* line 686 "../lib/bigint.s7i" */ o_1624_power=bigMod((tmp_2=bigMult(o_1624_power, o_1621_base)), o_1623_modulus); /* line 686 "../lib/bigint.s7i" */ bigDestr(old_big); } /* line 686 "../lib/bigint.s7i" */ bigDestr(tmp_2); } } /* line 688 "../lib/bigint.s7i" */ bigRShiftAssign(&(o_1622_exponent), 1L); { /* line 689 "../lib/bigint.s7i" */ bigIntType tmp_2 = NULL; { /* line 689 "../lib/bigint.s7i" */ bigIntType old_big=o_1621_base; /* line 689 "../lib/bigint.s7i" */ o_1621_base=bigMod((tmp_2=bigSquare(o_1621_base)), o_1623_modulus); /* line 689 "../lib/bigint.s7i" */ bigDestr(old_big); } /* line 689 "../lib/bigint.s7i" */ bigDestr(tmp_2); } } } /* line 676 "../lib/bigint.s7i" */ bigDestr(o_1621_base); /* line 676 "../lib/bigint.s7i" */ bigDestr(o_1622_exponent); return o_1624_power; } /* line 1 "no_file" */ /* 792 */ /* line 699 "../lib/bigint.s7i" */ static bigIntType/*t_57_bigInteger*/ o_1625_min (const const_bigIntType/*t_57_bigInteger*/ o_1626_value1, const const_bigIntType/*t_57_bigInteger*/ o_1627_value2) { /* line 701 "../lib/bigint.s7i" */ bigIntType/*t_57_bigInteger*/ o_1628_minimum; /* line 701 "../lib/bigint.s7i" */ o_1628_minimum=bigZero(); /* 0_ */ /* line 703 "../lib/bigint.s7i" */ if (bigCmp(o_1626_value1, o_1627_value2) < 0) { /* line 704 "../lib/bigint.s7i" */ bigCpy(&(o_1628_minimum), o_1626_value1); } else { /* line 706 "../lib/bigint.s7i" */ bigCpy(&(o_1628_minimum), o_1627_value2); } return o_1628_minimum; } /* line 1 "no_file" */ /* 793 */ /* line 715 "../lib/bigint.s7i" */ static bigIntType/*t_57_bigInteger*/ o_1629_max (const const_bigIntType/*t_57_bigInteger*/ o_1630_value1, const const_bigIntType/*t_57_bigInteger*/ o_1631_value2) { /* line 717 "../lib/bigint.s7i" */ bigIntType/*t_57_bigInteger*/ o_1632_maximum; /* line 717 "../lib/bigint.s7i" */ o_1632_maximum=bigZero(); /* 0_ */ /* line 719 "../lib/bigint.s7i" */ if (bigCmp(o_1630_value1, o_1631_value2) > 0) { /* line 720 "../lib/bigint.s7i" */ bigCpy(&(o_1632_maximum), o_1630_value1); } else { /* line 722 "../lib/bigint.s7i" */ bigCpy(&(o_1632_maximum), o_1631_value2); } return o_1632_maximum; } /* line 1 "no_file" */ /* 794 */ typedef genericType t_58/*t_58__bigIntegerArray*/; /* 795 */ /* 796 */ typedef genericType t_59/*t_59_*ANONYM_TYPE**/; /* 797 */ /* 798 */ /* 799 */ /* 800 */ /* ACTION ARR_GEN for type arrayType/t_59_*ANONYM_TYPE* element is bigIntType/t_57_bigInteger */ /* 801 */ /* 802 */ /* 803 */ /* 804 */ /* 805 */ /* 806 */ /* ACTION ARR_IDX for type arrayType/t_58__bigIntegerArray element is bigIntType/t_57_bigInteger */ /* 807 */ /* ACTION ARR_IDX for type arrayType/t_58__bigIntegerArray element is bigIntType/t_57_bigInteger */ /* 808 */ /* line 163 "../lib/array.s7i" */ static arrayType times_58 (intType n, const const_bigIntType/*t_57_bigInteger*/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.bigIntValue=bigCreate(b); /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 809 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_58__bigIntegerArray*/ create_58 (const_arrayType/*t_58__bigIntegerArray*/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_58__bigIntegerArray*/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_58__bigIntegerArray*/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.bigIntValue=bigCreate(b->arr[i].value.bigIntValue); /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_58 (const_arrayType/*t_58__bigIntegerArray*/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ bigDestr(b->arr[i].value.bigIntValue); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_59 (const_arrayType/*t_59_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ bigDestr(b->arr[i].value.bigIntValue); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_59_*ANONYM_TYPE**/ create_59 (const_arrayType/*t_59_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_59_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_59_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.bigIntValue=bigCreate(b->arr[i].value.bigIntValue); /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_58__bigIntegerArray*/ o_1633_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_1634_indexRange, const const_bigIntType/*t_57_bigInteger*/ value_o_1635_element) { /* line 183 "../lib/array.s7i" */ const_bigIntType/*t_57_bigInteger*/ o_1635_element; /* line 186 "../lib/array.s7i" */ arrayType/*t_58__bigIntegerArray*/ o_1636_anArray; /* line 183 "../lib/array.s7i" */ o_1635_element=bigCreate(value_o_1635_element); /* line 186 "../lib/array.s7i" */ o_1636_anArray=create_58(arr[27]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_1636_anArray; /* line 188 "../lib/array.s7i" */ o_1636_anArray=times_58(((((structType)(o_1634_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_1634_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_1635_element); /* line 188 "../lib/array.s7i" */ destr_58(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_1636_anArray; /* line 189 "../lib/array.s7i" */ o_1636_anArray=arrArrlit2(((structType)(o_1634_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_59(/*arrConv()*/o_1636_anArray)); /* line 189 "../lib/array.s7i" */ destr_58(old_array); } /* line 183 "../lib/array.s7i" */ bigDestr(o_1635_element); return o_1636_anArray; } /* line 1 "no_file" */ /* 810 */ /* declare inline o_1637_for*/ /* declare inline o_1638_for*/ /* declare inline o_1639_for*/ /* declare inline o_1640_for*/ /* declare inline o_1641_for*/ /* declare inline o_1642_for*/ /* declare inline o_1643_for*/ /* declare inline o_1644_for*/ /* declare inline o_1645_for*/ /* line 329 "../lib/array.s7i" */ static bigIntType/*t_57_bigInteger*/ o_1646_rand (const const_arrayType/*t_58__bigIntegerArray*/ o_1647_arr) { /* line 330 "../lib/array.s7i" */ bigIntType/*t_57_bigInteger*/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(bigIntType/*t_57_bigInteger*/)((/*ref_to_value*/ (o_1647_arr)->arr[idx_1=intRand((o_1647_arr)->min_position, (o_1647_arr)->max_position),(idxChk(idx_1 < (o_1647_arr)->min_position || idx_1 > (o_1647_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_1647_arr)->min_position)].value.bigIntValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 811 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_1648_insert (arrayType/*t_58__bigIntegerArray*/ *const o_1649_arr, const intType/*t_14_integer*/ o_1650_index, const const_bigIntType/*t_57_bigInteger*/ value_o_1651_element) { /* line 332 "../lib/array.s7i" */ const_bigIntType/*t_57_bigInteger*/ o_1651_element; /* line 332 "../lib/array.s7i" */ o_1651_element=bigCreate(value_o_1651_element); /* line 334 "../lib/array.s7i" */ if (((o_1650_index) >= ((*o_1649_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_1650_index) <= (((*o_1649_arr)->max_position)+1))) { { /* line 335 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 335 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_1649_arr; /* line 335 "../lib/array.s7i" */ *o_1649_arr=arrCat(arrCat((tmp_4=arrHead(*o_1649_arr, (o_1650_index)-1), create_58(tmp_4)), arrBaselit((genericType)(bigCreate(o_1651_element)))), (tmp_7=arrTail(*o_1649_arr, o_1650_index), create_58(tmp_7))); /* line 335 "../lib/array.s7i" */ destr_58(old_array); } /* line 335 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 335 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } /* line 332 "../lib/array.s7i" */ bigDestr(o_1651_element); } /* line 1 "no_file" */ /* 812 */ /* line 344 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_1652/*=*/ (const const_arrayType/*t_58__bigIntegerArray*/ o_1653_arr1, const const_arrayType/*t_58__bigIntegerArray*/ o_1654_arr2) { /* line 346 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_1655_isEqual=o_25_FALSE; /* line 348 "../lib/array.s7i" */ intType/*t_14_integer*/ o_1656_number=1; /* line 350 "../lib/array.s7i" */ if ((((o_1653_arr1)->min_position) == ((o_1654_arr2)->min_position)) && /* line 350 "../lib/array.s7i" */ (((o_1653_arr1)->max_position) == ((o_1654_arr2)->max_position))) { /* line 351 "../lib/array.s7i" */ o_1655_isEqual=o_26_TRUE; /* line 352 "../lib/array.s7i" */ o_1656_number=(o_1653_arr1)->min_position; /* line 353 "../lib/array.s7i" */ while (((o_1656_number) <= ((o_1653_arr1)->max_position)) && /* line 353 "../lib/array.s7i" */ (o_1655_isEqual)) { /* line 354 "../lib/array.s7i" */ o_1655_isEqual=bigEq((o_1653_arr1)->arr[(idxChk((o_1656_number) < (o_1653_arr1)->min_position || (o_1656_number) > (o_1653_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_1656_number)-(o_1653_arr1)->min_position)].value.bigIntValue, (o_1654_arr2)->arr[(idxChk((o_1656_number) < (o_1654_arr2)->min_position || (o_1656_number) > (o_1654_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_1656_number)-(o_1654_arr2)->min_position)].value.bigIntValue); /* line 355 "../lib/array.s7i" */ ++(o_1656_number); } } return o_1655_isEqual; } /* line 1 "no_file" */ /* 813 */ /* line 360 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_1657/*<>*/ (const const_arrayType/*t_58__bigIntegerArray*/ o_1658_arr1, const const_arrayType/*t_58__bigIntegerArray*/ o_1659_arr2) { /* line 362 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_1660_isNotEqual=o_26_TRUE; /* line 364 "../lib/array.s7i" */ intType/*t_14_integer*/ o_1661_number=1; /* line 366 "../lib/array.s7i" */ if ((((o_1658_arr1)->min_position) == ((o_1659_arr2)->min_position)) && /* line 366 "../lib/array.s7i" */ (((o_1658_arr1)->max_position) == ((o_1659_arr2)->max_position))) { /* line 367 "../lib/array.s7i" */ o_1660_isNotEqual=o_25_FALSE; /* line 368 "../lib/array.s7i" */ o_1661_number=(o_1658_arr1)->min_position; /* line 369 "../lib/array.s7i" */ while (((o_1661_number) <= ((o_1658_arr1)->max_position)) && /* line 369 "../lib/array.s7i" */ (!(o_1660_isNotEqual))) { /* line 370 "../lib/array.s7i" */ o_1660_isNotEqual=!bigEq((o_1658_arr1)->arr[(idxChk((o_1661_number) < (o_1658_arr1)->min_position || (o_1661_number) > (o_1658_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_1661_number)-(o_1658_arr1)->min_position)].value.bigIntValue, (o_1659_arr2)->arr[(idxChk((o_1661_number) < (o_1659_arr2)->min_position || (o_1661_number) > (o_1659_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_1661_number)-(o_1659_arr2)->min_position)].value.bigIntValue); /* line 371 "../lib/array.s7i" */ ++(o_1661_number); } } return o_1660_isNotEqual; } /* line 1 "no_file" */ /* 814 */ /* line 381 "../lib/array.s7i" */ static void/*t_1_void*/ o_1662_insert (arrayType/*t_58__bigIntegerArray*/ *const o_1663_arr, const const_bigIntType/*t_57_bigInteger*/ value_o_1664_element) { /* line 381 "../lib/array.s7i" */ const_bigIntType/*t_57_bigInteger*/ o_1664_element; /* line 383 "../lib/array.s7i" */ intType/*t_14_integer*/ o_1665_number=1; /* line 381 "../lib/array.s7i" */ o_1664_element=bigCreate(value_o_1664_element); /* line 385 "../lib/array.s7i" */ o_1665_number=(*o_1663_arr)->min_position; /* line 386 "../lib/array.s7i" */ while (((o_1665_number) <= ((*o_1663_arr)->max_position)) && /* line 386 "../lib/array.s7i" */ (bigCmp((*o_1663_arr)->arr[(idxChk((o_1665_number) < (*o_1663_arr)->min_position || (o_1665_number) > (*o_1663_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_1665_number)-(*o_1663_arr)->min_position)].value.bigIntValue, o_1664_element) < 0)) { /* line 387 "../lib/array.s7i" */ ++(o_1665_number); } /* line 389 "../lib/array.s7i" */ if ((o_1665_number) > ((*o_1663_arr)->max_position)) { { { /* line 390 "../lib/array.s7i" */ arrayType old_array=*o_1663_arr; /* line 390 "../lib/array.s7i" */ *o_1663_arr=arrCat(create_58(*o_1663_arr), arrBaselit((genericType)(bigCreate(o_1664_element)))); /* line 390 "../lib/array.s7i" */ destr_58(old_array); } } } else /* line 391 "../lib/array.s7i" */ if (bigCmp((*o_1663_arr)->arr[(idxChk((o_1665_number) < (*o_1663_arr)->min_position || (o_1665_number) > (*o_1663_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_1665_number)-(*o_1663_arr)->min_position)].value.bigIntValue, o_1664_element) > 0) { { /* line 392 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 392 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 392 "../lib/array.s7i" */ arrayType old_array=*o_1663_arr; /* line 392 "../lib/array.s7i" */ *o_1663_arr=arrCat(arrCat((tmp_4=arrHead(*o_1663_arr, (o_1665_number)-1), create_58(tmp_4)), arrBaselit((genericType)(bigCreate(o_1664_element)))), (tmp_7=arrTail(*o_1663_arr, o_1665_number), create_58(tmp_7))); /* line 392 "../lib/array.s7i" */ destr_58(old_array); } /* line 392 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 392 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } /* line 381 "../lib/array.s7i" */ bigDestr(o_1664_element); } /* line 1 "no_file" */ /* 815 */ /* line 400 "../lib/array.s7i" */ static intType/*t_14_integer*/ o_1666_compare (const const_arrayType/*t_58__bigIntegerArray*/ o_1667_arr1, const const_arrayType/*t_58__bigIntegerArray*/ o_1668_arr2) { /* line 402 "../lib/array.s7i" */ intType/*t_14_integer*/ o_1669_signumValue=0; /* line 404 "../lib/array.s7i" */ intType/*t_14_integer*/ o_1670_idx1=0; /* line 405 "../lib/array.s7i" */ intType/*t_14_integer*/ o_1671_idx2=0; /* line 407 "../lib/array.s7i" */ o_1670_idx1=(o_1667_arr1)->min_position; /* line 408 "../lib/array.s7i" */ o_1671_idx2=(o_1668_arr2)->min_position; /* line 409 "../lib/array.s7i" */ while (((o_1670_idx1) <= ((o_1667_arr1)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_1671_idx2) <= ((o_1668_arr2)->max_position)) && /* line 409 "../lib/array.s7i" */ ((bigCmp((o_1667_arr1)->arr[(idxChk((o_1670_idx1) < (o_1667_arr1)->min_position || (o_1670_idx1) > (o_1667_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_1670_idx1)-(o_1667_arr1)->min_position)].value.bigIntValue, (o_1668_arr2)->arr[(idxChk((o_1671_idx2) < (o_1668_arr2)->min_position || (o_1671_idx2) > (o_1668_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_1671_idx2)-(o_1668_arr2)->min_position)].value.bigIntValue)) == (0L))) { /* line 410 "../lib/array.s7i" */ ++(o_1670_idx1); /* line 411 "../lib/array.s7i" */ ++(o_1671_idx2); } /* line 413 "../lib/array.s7i" */ if (((o_1670_idx1) <= ((o_1667_arr1)->max_position)) && /* line 413 "../lib/array.s7i" */ ((o_1671_idx2) <= ((o_1668_arr2)->max_position))) { /* line 414 "../lib/array.s7i" */ o_1669_signumValue=bigCmp((o_1667_arr1)->arr[(idxChk((o_1670_idx1) < (o_1667_arr1)->min_position || (o_1670_idx1) > (o_1667_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_1670_idx1)-(o_1667_arr1)->min_position)].value.bigIntValue, (o_1668_arr2)->arr[(idxChk((o_1671_idx2) < (o_1668_arr2)->min_position || (o_1671_idx2) > (o_1668_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_1671_idx2)-(o_1668_arr2)->min_position)].value.bigIntValue); } else { /* line 416 "../lib/array.s7i" */ o_1669_signumValue=intCmp(((o_1667_arr1)->max_position - (o_1667_arr1)->min_position + 1), ((o_1668_arr2)->max_position - (o_1668_arr2)->min_position + 1)); } return o_1669_signumValue; } /* line 1 "no_file" */ /* 816 */ /* line 420 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_1672/*<*/ (const const_arrayType/*t_58__bigIntegerArray*/ o_1673_arr1, const const_arrayType/*t_58__bigIntegerArray*/ o_1674_arr2) { /* line 421 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_1666_compare(o_1673_arr1, o_1674_arr2)) < (0L))); } /* line 1 "no_file" */ /* 817 */ /* line 423 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_1675/*>*/ (const const_arrayType/*t_58__bigIntegerArray*/ o_1676_arr1, const const_arrayType/*t_58__bigIntegerArray*/ o_1677_arr2) { /* line 424 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_1666_compare(o_1676_arr1, o_1677_arr2)) > (0L))); } /* line 1 "no_file" */ /* 818 */ /* line 426 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_1678/*<=*/ (const const_arrayType/*t_58__bigIntegerArray*/ o_1679_arr1, const const_arrayType/*t_58__bigIntegerArray*/ o_1680_arr2) { /* line 427 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_1666_compare(o_1679_arr1, o_1680_arr2)) <= (0L))); } /* line 1 "no_file" */ /* 819 */ /* line 429 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_1681/*>=*/ (const const_arrayType/*t_58__bigIntegerArray*/ o_1682_arr1, const const_arrayType/*t_58__bigIntegerArray*/ o_1683_arr2) { /* line 430 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_1666_compare(o_1682_arr1, o_1683_arr2)) >= (0L))); } /* line 1 "no_file" */ /* 820 */ /* objRefType/t_19_reference */ intfunctype o_1684/*.*/=(intfunctype)(&bigCmpGeneric); /* 821 */ /* line 436 "../lib/array.s7i" */ static arrayType/*t_58__bigIntegerArray*/ o_1685_sort (const const_arrayType/*t_58__bigIntegerArray*/ o_1686_arr_obj) { /* line 437 "../lib/array.s7i" */ return (arrayType/*t_58__bigIntegerArray*/)((arrSort(create_58(o_1686_arr_obj), (compareType)(o_1684/*.*/)))); } /* line 1 "no_file" */ /* 822 */ /* 823 */ typedef genericType t_60/*t_60_filePermission*/; /* 824 */ /* 825 */ /* 826 */ /* 827 */ const enumType/*t_60_filePermission*/ o_1687_EXEC_OTHER=/*EXEC_OTHER*/0; /* 828 */ const enumType/*t_60_filePermission*/ o_1688_WRITE_OTHER=/*WRITE_OTHER*/1; /* 829 */ const enumType/*t_60_filePermission*/ o_1689_READ_OTHER=/*READ_OTHER*/2; /* 830 */ const enumType/*t_60_filePermission*/ o_1690_EXEC_GROUP=/*EXEC_GROUP*/3; /* 831 */ const enumType/*t_60_filePermission*/ o_1691_WRITE_GROUP=/*WRITE_GROUP*/4; /* 832 */ const enumType/*t_60_filePermission*/ o_1692_READ_GROUP=/*READ_GROUP*/5; /* 833 */ const enumType/*t_60_filePermission*/ o_1693_EXEC_USER=/*EXEC_USER*/6; /* 834 */ const enumType/*t_60_filePermission*/ o_1694_WRITE_USER=/*WRITE_USER*/7; /* 835 */ const enumType/*t_60_filePermission*/ o_1695_READ_USER=/*READ_USER*/8; /* 836 */ struct listStruct rec_1696_9={NULL, (objRefType) &(o_1695_READ_USER)}; struct listStruct rec_1696_8={&rec_1696_9, (objRefType) &(o_1694_WRITE_USER)}; struct listStruct rec_1696_7={&rec_1696_8, (objRefType) &(o_1693_EXEC_USER)}; struct listStruct rec_1696_6={&rec_1696_7, (objRefType) &(o_1692_READ_GROUP)}; struct listStruct rec_1696_5={&rec_1696_6, (objRefType) &(o_1691_WRITE_GROUP)}; struct listStruct rec_1696_4={&rec_1696_5, (objRefType) &(o_1690_EXEC_GROUP)}; struct listStruct rec_1696_3={&rec_1696_4, (objRefType) &(o_1689_READ_OTHER)}; struct listStruct rec_1696_2={&rec_1696_3, (objRefType) &(o_1688_WRITE_OTHER)}; struct listStruct rec_1696_1={&rec_1696_2, (objRefType) &(o_1687_EXEC_OTHER)}; listType/*t_20_ref_list*/ o_1696/*.*/=&rec_1696_1; /* 837 */ const enumType/*t_60_filePermission*/ o_1697/*.*/=/*EXEC_OTHER*/0; /* 838 */ const enumType/*t_60_filePermission*/ o_1698/*.*/=/*EXEC_OTHER*/0; /* 839 */ const enumType/*t_60_filePermission*/ o_1699/*.*/=/*READ_USER*/8; /* 840 */ /* line 976 "../lib/seed7_05.s7i" */ static enumType/*t_60_filePermission*/ o_1700_conv (/* attr t_60 filePermission*/ const intType/*t_14_integer*/ o_1701_number) { /* line 977 "../lib/seed7_05.s7i" */ return (enumType/*t_60_filePermission*/)(((o_1701_number))); } /* line 1 "no_file" */ /* 841 */ /* line 979 "../lib/seed7_05.s7i" */ static intType/*t_14_integer*/ o_1702_ord (const enumType/*t_60_filePermission*/ o_1703_enum_val) { /* line 980 "../lib/seed7_05.s7i" */ return (intType/*t_14_integer*/)(((o_1703_enum_val))); } /* line 1 "no_file" */ /* 842 */ /* line 982 "../lib/seed7_05.s7i" */ static intType/*t_14_integer*/ o_1704_hashCode (const enumType/*t_60_filePermission*/ o_1705_enum_val) { /* line 983 "../lib/seed7_05.s7i" */ return (intType/*t_14_integer*/)((o_1702_ord(o_1705_enum_val))); } /* line 1 "no_file" */ /* 843 */ /* line 985 "../lib/seed7_05.s7i" */ static intType/*t_14_integer*/ o_1706_compare (const enumType/*t_60_filePermission*/ o_1707_enum1, const enumType/*t_60_filePermission*/ o_1708_enum2) { /* line 986 "../lib/seed7_05.s7i" */ return (intType/*t_14_integer*/)((intCmp(o_1702_ord(o_1707_enum1), o_1702_ord(o_1708_enum2)))); } /* line 1 "no_file" */ /* 844 */ /* line 988 "../lib/seed7_05.s7i" */ static intType/*t_14_integer*/ o_1709_conv (/* attr t_14 integer*/ const enumType/*t_60_filePermission*/ o_1710_enum_val) { /* line 989 "../lib/seed7_05.s7i" */ return (intType/*t_14_integer*/)((o_1702_ord(o_1710_enum_val))); } /* line 1 "no_file" */ /* 845 */ /* line 991 "../lib/seed7_05.s7i" */ static enumType/*t_60_filePermission*/ o_1711_succ (const enumType/*t_60_filePermission*/ *const o_1712_enum_val) { /* line 992 "../lib/seed7_05.s7i" */ return (enumType/*t_60_filePermission*/)((o_1700_conv(/* attr t_60 filePermission*/ (o_1702_ord(*o_1712_enum_val))+1))); } /* line 1 "no_file" */ /* 846 */ /* line 994 "../lib/seed7_05.s7i" */ static enumType/*t_60_filePermission*/ o_1713_pred (const enumType/*t_60_filePermission*/ *const o_1714_enum_val) { /* line 995 "../lib/seed7_05.s7i" */ return (enumType/*t_60_filePermission*/)((o_1700_conv(/* attr t_60 filePermission*/ (o_1702_ord(*o_1714_enum_val))-1))); } /* line 1 "no_file" */ /* 847 */ /* line 997 "../lib/seed7_05.s7i" */ static void/*t_1_void*/ o_1715_incr (enumType/*t_60_filePermission*/ *const o_1716_enum_val) { /* line 999 "../lib/seed7_05.s7i" */ *o_1716_enum_val=o_1711_succ(o_1716_enum_val); } /* line 1 "no_file" */ /* 848 */ /* line 1002 "../lib/seed7_05.s7i" */ static void/*t_1_void*/ o_1717_decr (enumType/*t_60_filePermission*/ *const o_1718_enum_val) { /* line 1004 "../lib/seed7_05.s7i" */ *o_1718_enum_val=o_1713_pred(o_1718_enum_val); } /* line 1 "no_file" */ /* 849 */ /* line 1007 "../lib/seed7_05.s7i" */ static boolType/*t_13_boolean*/ o_1719/*<*/ (const enumType/*t_60_filePermission*/ o_1720_enum_val1, const enumType/*t_60_filePermission*/ o_1721_enum_val2) { /* line 1008 "../lib/seed7_05.s7i" */ return (boolType/*t_13_boolean*/)(((o_1702_ord(o_1720_enum_val1)) < (o_1702_ord(o_1721_enum_val2)))); } /* line 1 "no_file" */ /* 850 */ /* line 1010 "../lib/seed7_05.s7i" */ static boolType/*t_13_boolean*/ o_1722/*<=*/ (const enumType/*t_60_filePermission*/ o_1723_enum_val1, const enumType/*t_60_filePermission*/ o_1724_enum_val2) { /* line 1011 "../lib/seed7_05.s7i" */ return (boolType/*t_13_boolean*/)(((o_1702_ord(o_1723_enum_val1)) <= (o_1702_ord(o_1724_enum_val2)))); } /* line 1 "no_file" */ /* 851 */ /* line 1013 "../lib/seed7_05.s7i" */ static boolType/*t_13_boolean*/ o_1725/*>*/ (const enumType/*t_60_filePermission*/ o_1726_enum_val1, const enumType/*t_60_filePermission*/ o_1727_enum_val2) { /* line 1014 "../lib/seed7_05.s7i" */ return (boolType/*t_13_boolean*/)(((o_1702_ord(o_1726_enum_val1)) > (o_1702_ord(o_1727_enum_val2)))); } /* line 1 "no_file" */ /* 852 */ /* line 1016 "../lib/seed7_05.s7i" */ static boolType/*t_13_boolean*/ o_1728/*>=*/ (const enumType/*t_60_filePermission*/ o_1729_enum_val1, const enumType/*t_60_filePermission*/ o_1730_enum_val2) { /* line 1017 "../lib/seed7_05.s7i" */ return (boolType/*t_13_boolean*/)(((o_1702_ord(o_1729_enum_val1)) >= (o_1702_ord(o_1730_enum_val2)))); } /* line 1 "no_file" */ /* 853 */ /* declare inline o_1731_for*/ /* declare inline o_1732_for*/ /* declare inline o_1733_for*/ /* declare inline o_1734_for*/ /* declare inline o_1735_for*/ /* declare inline o_1736_for*/ typedef genericType t_61/*t_61_*ANONYM_TYPE**/; /* 854 */ typedef genericType t_62/*t_62_fileMode*/; /* 855 */ /* 856 */ /* 857 */ /* 858 */ /* 859 */ const boolType/*t_13_boolean*/ o_1737_isBitset=1/*TRUE*/; /* 860 */ /* line 169 "../lib/bitsetof.s7i" */ static boolType/*t_13_boolean*/ o_1738_in (const enumType/*t_60_filePermission*/ o_1739_aValue, const const_setType/*t_62_fileMode*/ o_1740_aSet) { /* line 170 "../lib/bitsetof.s7i" */ boolType/*t_13_boolean*/ result; /* line 170 "../lib/bitsetof.s7i" */ intType tmp_1; /* line 170 "../lib/bitsetof.s7i" */ const_setType tmp_2; /* line 170 "../lib/bitsetof.s7i" */ intType tmp_3; /* line 170 "../lib/bitsetof.s7i" */ result=(boolType/*t_13_boolean*/)(((tmp_1=o_1702_ord(o_1739_aValue),tmp_2=(o_1740_aSet),tmp_3=bitset_pos(tmp_1),tmp_3>=tmp_2->min_position&&tmp_3<=tmp_2->max_position&&tmp_2->bitset[(uintType)(tmp_3-tmp_2->min_position)] >> (tmp_1 & bitset_mask)&1))); /* line 170 "../lib/bitsetof.s7i" */ return result; } /* line 1 "no_file" */ /* 861 */ /* line 178 "../lib/bitsetof.s7i" */ static boolType/*t_13_boolean*/ o_1741_not (const enumType/*t_60_filePermission*/ o_1742_aValue, const const_setType/*t_62_fileMode*/ o_1743_aSet) { /* line 179 "../lib/bitsetof.s7i" */ boolType/*t_13_boolean*/ result; /* line 179 "../lib/bitsetof.s7i" */ intType tmp_1; /* line 179 "../lib/bitsetof.s7i" */ const_setType tmp_2; /* line 179 "../lib/bitsetof.s7i" */ intType tmp_3; /* line 179 "../lib/bitsetof.s7i" */ result=(boolType/*t_13_boolean*/)((!((tmp_1=o_1702_ord(o_1742_aValue),tmp_2=(o_1743_aSet),tmp_3=bitset_pos(tmp_1),tmp_3>=tmp_2->min_position&&tmp_3<=tmp_2->max_position&&tmp_2->bitset[(uintType)(tmp_3-tmp_2->min_position)] >> (tmp_1 & bitset_mask)&1)))); /* line 179 "../lib/bitsetof.s7i" */ return result; } /* line 1 "no_file" */ /* 862 */ /* line 186 "../lib/bitsetof.s7i" */ static void/*t_1_void*/ o_1744_incl (setType/*t_62_fileMode*/ *const o_1745_aSet, const enumType/*t_60_filePermission*/ o_1746_aValue) { /* line 188 "../lib/bitsetof.s7i" */ setIncl(&((*o_1745_aSet)), o_1702_ord(o_1746_aValue)); } /* line 1 "no_file" */ /* 863 */ /* line 195 "../lib/bitsetof.s7i" */ static void/*t_1_void*/ o_1747_excl (setType/*t_62_fileMode*/ *const o_1748_aSet, const enumType/*t_60_filePermission*/ o_1749_aValue) { { /* line 197 "../lib/bitsetof.s7i" */ setType tmp_1; /* line 197 "../lib/bitsetof.s7i" */ intType tmp_2; /* line 197 "../lib/bitsetof.s7i" */ intType tmp_3; /* line 197 "../lib/bitsetof.s7i" */ tmp_1=(*o_1748_aSet); /* line 197 "../lib/bitsetof.s7i" */ tmp_2=o_1702_ord(o_1749_aValue); /* line 197 "../lib/bitsetof.s7i" */ tmp_3=bitset_pos(tmp_2); /* line 197 "../lib/bitsetof.s7i" */ if (tmp_3>=tmp_1->min_position&&tmp_3<=tmp_1->max_position) { /* line 197 "../lib/bitsetof.s7i" */ tmp_1->bitset[(uintType)(tmp_3-tmp_1->min_position)] &= ~((bitSetType) 1 << (((unsigned int) tmp_2) & bitset_mask)); /* line 197 "../lib/bitsetof.s7i" */ } } } /* line 1 "no_file" */ /* 864 */ /* line 212 "../lib/bitsetof.s7i" */ static enumType/*t_60_filePermission*/ o_1750_rand (const const_setType/*t_62_fileMode*/ o_1751_aSet) { /* line 213 "../lib/bitsetof.s7i" */ return (enumType/*t_60_filePermission*/)((o_1700_conv(/* attr t_60 filePermission*/ setRand((o_1751_aSet))))); } /* line 1 "no_file" */ /* 865 */ /* line 223 "../lib/bitsetof.s7i" */ static enumType/*t_60_filePermission*/ o_1752_min (const const_setType/*t_62_fileMode*/ o_1753_aSet) { /* line 224 "../lib/bitsetof.s7i" */ return (enumType/*t_60_filePermission*/)((o_1700_conv(/* attr t_60 filePermission*/ setMin((o_1753_aSet))))); } /* line 1 "no_file" */ /* 866 */ /* line 234 "../lib/bitsetof.s7i" */ static enumType/*t_60_filePermission*/ o_1754_max (const const_setType/*t_62_fileMode*/ o_1755_aSet) { /* line 235 "../lib/bitsetof.s7i" */ return (enumType/*t_60_filePermission*/)((o_1700_conv(/* attr t_60 filePermission*/ setMax((o_1755_aSet))))); } /* line 1 "no_file" */ /* 867 */ /* line 237 "../lib/bitsetof.s7i" */ static enumType/*t_60_filePermission*/ o_1756_next (const const_setType/*t_62_fileMode*/ o_1757_aSet, const enumType/*t_60_filePermission*/ o_1758_oldValue) { /* line 238 "../lib/bitsetof.s7i" */ return (enumType/*t_60_filePermission*/)((o_1700_conv(/* attr t_60 filePermission*/ setNext((o_1757_aSet), o_1702_ord(o_1758_oldValue))))); } /* line 1 "no_file" */ /* 868 */ /* line 240 "../lib/bitsetof.s7i" */ static setType/*t_62_fileMode*/ o_1759/*{*/ (const enumType/*t_60_filePermission*/ o_1760_value) { /* line 241 "../lib/bitsetof.s7i" */ return (setType/*t_62_fileMode*/)((setBaselit(o_1702_ord(o_1760_value)))); } /* line 1 "no_file" */ /* 869 */ typedef genericType t_63/*t_63_*ANONYM_TYPE**/; /* 870 */ /* 871 */ /* 872 */ /* 873 */ /* ACTION ARR_GEN for type arrayType/t_63_*ANONYM_TYPE* element is enumType/t_60_filePermission */ /* 874 */ typedef genericType t_64/*t_64_*ANONYM_TYPE**/; /* 875 */ /* 876 */ /* 877 */ /* 878 */ /* 879 */ /* 880 */ /* ACTION ARR_IDX for type arrayType/t_64_*ANONYM_TYPE* element is enumType/t_60_filePermission */ /* 881 */ /* ACTION ARR_IDX for type arrayType/t_64_*ANONYM_TYPE* element is enumType/t_60_filePermission */ /* 882 */ /* line 163 "../lib/array.s7i" */ static arrayType times_64 (intType n, const enumType/*t_60_filePermission*/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.enumValue=b; /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 883 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_64_*ANONYM_TYPE**/ create_64 (const_arrayType/*t_64_*ANONYM_TYPE**/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_64_*ANONYM_TYPE**/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_64_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.enumValue=b->arr[i].value.enumValue; /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_64 (const_arrayType/*t_64_*ANONYM_TYPE**/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_63 (const_arrayType/*t_63_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_63_*ANONYM_TYPE**/ create_63 (const_arrayType/*t_63_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_63_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_63_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.enumValue=b->arr[i].value.enumValue; /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_64_*ANONYM_TYPE**/ o_1761_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_1762_indexRange, const enumType/*t_60_filePermission*/ o_1763_element) { /* line 186 "../lib/array.s7i" */ arrayType/*t_64_*ANONYM_TYPE**/ o_1764_anArray; /* line 186 "../lib/array.s7i" */ o_1764_anArray=create_64(arr[28]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_1764_anArray; /* line 188 "../lib/array.s7i" */ o_1764_anArray=times_64(((((structType)(o_1762_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_1762_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_1763_element); /* line 188 "../lib/array.s7i" */ destr_64(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_1764_anArray; /* line 189 "../lib/array.s7i" */ o_1764_anArray=arrArrlit2(((structType)(o_1762_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_63(/*arrConv()*/o_1764_anArray)); /* line 189 "../lib/array.s7i" */ destr_64(old_array); } return o_1764_anArray; } /* line 1 "no_file" */ /* 884 */ /* declare inline o_1765_for*/ /* declare inline o_1766_for*/ /* declare inline o_1767_for*/ /* declare inline o_1768_for*/ /* declare inline o_1769_for*/ /* declare inline o_1770_for*/ /* declare inline o_1771_for*/ /* declare inline o_1772_for*/ /* declare inline o_1773_for*/ /* line 329 "../lib/array.s7i" */ static enumType/*t_60_filePermission*/ o_1774_rand (const const_arrayType/*t_64_*ANONYM_TYPE**/ o_1775_arr) { /* line 330 "../lib/array.s7i" */ enumType/*t_60_filePermission*/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(enumType/*t_60_filePermission*/)(((o_1775_arr)->arr[idx_1=intRand((o_1775_arr)->min_position, (o_1775_arr)->max_position),(idxChk(idx_1 < (o_1775_arr)->min_position || idx_1 > (o_1775_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_1775_arr)->min_position)].value.enumValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 885 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_1776_insert (arrayType/*t_64_*ANONYM_TYPE**/ *const o_1777_arr, const intType/*t_14_integer*/ o_1778_index, const enumType/*t_60_filePermission*/ o_1779_element) { /* line 334 "../lib/array.s7i" */ if (((o_1778_index) >= ((*o_1777_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_1778_index) <= (((*o_1777_arr)->max_position)+1))) { { { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_1777_arr; /* line 335 "../lib/array.s7i" */ *o_1777_arr=arrCat(arrCat(arrHead(*o_1777_arr, (o_1778_index)-1), arrBaselit((genericType)(o_1779_element))), arrTail(*o_1777_arr, o_1778_index)); /* line 335 "../lib/array.s7i" */ destr_64(old_array); } } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } } /* line 1 "no_file" */ /* 886 */ /* line 344 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_1780/*=*/ (const const_arrayType/*t_64_*ANONYM_TYPE**/ o_1781_arr1, const const_arrayType/*t_64_*ANONYM_TYPE**/ o_1782_arr2) { /* line 346 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_1783_isEqual=o_25_FALSE; /* line 348 "../lib/array.s7i" */ intType/*t_14_integer*/ o_1784_number=1; /* line 350 "../lib/array.s7i" */ if ((((o_1781_arr1)->min_position) == ((o_1782_arr2)->min_position)) && /* line 350 "../lib/array.s7i" */ (((o_1781_arr1)->max_position) == ((o_1782_arr2)->max_position))) { /* line 351 "../lib/array.s7i" */ o_1783_isEqual=o_26_TRUE; /* line 352 "../lib/array.s7i" */ o_1784_number=(o_1781_arr1)->min_position; /* line 353 "../lib/array.s7i" */ while (((o_1784_number) <= ((o_1781_arr1)->max_position)) && /* line 353 "../lib/array.s7i" */ (o_1783_isEqual)) { /* line 354 "../lib/array.s7i" */ o_1783_isEqual=((o_1781_arr1)->arr[(idxChk((o_1784_number) < (o_1781_arr1)->min_position || (o_1784_number) > (o_1781_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_1784_number)-(o_1781_arr1)->min_position)].value.enumValue) == ((o_1782_arr2)->arr[(idxChk((o_1784_number) < (o_1782_arr2)->min_position || (o_1784_number) > (o_1782_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_1784_number)-(o_1782_arr2)->min_position)].value.enumValue); /* line 355 "../lib/array.s7i" */ ++(o_1784_number); } } return o_1783_isEqual; } /* line 1 "no_file" */ /* 887 */ /* line 360 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_1785/*<>*/ (const const_arrayType/*t_64_*ANONYM_TYPE**/ o_1786_arr1, const const_arrayType/*t_64_*ANONYM_TYPE**/ o_1787_arr2) { /* line 362 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_1788_isNotEqual=o_26_TRUE; /* line 364 "../lib/array.s7i" */ intType/*t_14_integer*/ o_1789_number=1; /* line 366 "../lib/array.s7i" */ if ((((o_1786_arr1)->min_position) == ((o_1787_arr2)->min_position)) && /* line 366 "../lib/array.s7i" */ (((o_1786_arr1)->max_position) == ((o_1787_arr2)->max_position))) { /* line 367 "../lib/array.s7i" */ o_1788_isNotEqual=o_25_FALSE; /* line 368 "../lib/array.s7i" */ o_1789_number=(o_1786_arr1)->min_position; /* line 369 "../lib/array.s7i" */ while (((o_1789_number) <= ((o_1786_arr1)->max_position)) && /* line 369 "../lib/array.s7i" */ (!(o_1788_isNotEqual))) { /* line 370 "../lib/array.s7i" */ o_1788_isNotEqual=((o_1786_arr1)->arr[(idxChk((o_1789_number) < (o_1786_arr1)->min_position || (o_1789_number) > (o_1786_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_1789_number)-(o_1786_arr1)->min_position)].value.enumValue) != ((o_1787_arr2)->arr[(idxChk((o_1789_number) < (o_1787_arr2)->min_position || (o_1789_number) > (o_1787_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_1789_number)-(o_1787_arr2)->min_position)].value.enumValue); /* line 371 "../lib/array.s7i" */ ++(o_1789_number); } } return o_1788_isNotEqual; } /* line 1 "no_file" */ /* 888 */ /* line 381 "../lib/array.s7i" */ static void/*t_1_void*/ o_1790_insert (arrayType/*t_64_*ANONYM_TYPE**/ *const o_1791_arr, const enumType/*t_60_filePermission*/ o_1792_element) { /* line 383 "../lib/array.s7i" */ intType/*t_14_integer*/ o_1793_number=1; /* line 385 "../lib/array.s7i" */ o_1793_number=(*o_1791_arr)->min_position; /* line 386 "../lib/array.s7i" */ while (((o_1793_number) <= ((*o_1791_arr)->max_position)) && /* line 386 "../lib/array.s7i" */ (o_1719/*<*/((*o_1791_arr)->arr[(idxChk((o_1793_number) < (*o_1791_arr)->min_position || (o_1793_number) > (*o_1791_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_1793_number)-(*o_1791_arr)->min_position)].value.enumValue, o_1792_element))) { /* line 387 "../lib/array.s7i" */ ++(o_1793_number); } /* line 389 "../lib/array.s7i" */ if ((o_1793_number) > ((*o_1791_arr)->max_position)) { { { /* line 390 "../lib/array.s7i" */ arrayType old_array=*o_1791_arr; /* line 390 "../lib/array.s7i" */ *o_1791_arr=arrCat(create_64(*o_1791_arr), arrBaselit((genericType)(o_1792_element))); /* line 390 "../lib/array.s7i" */ destr_64(old_array); } } } else /* line 391 "../lib/array.s7i" */ if (o_1725/*>*/((*o_1791_arr)->arr[(idxChk((o_1793_number) < (*o_1791_arr)->min_position || (o_1793_number) > (*o_1791_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_1793_number)-(*o_1791_arr)->min_position)].value.enumValue, o_1792_element)) { { { /* line 392 "../lib/array.s7i" */ arrayType old_array=*o_1791_arr; /* line 392 "../lib/array.s7i" */ *o_1791_arr=arrCat(arrCat(arrHead(*o_1791_arr, (o_1793_number)-1), arrBaselit((genericType)(o_1792_element))), arrTail(*o_1791_arr, o_1793_number)); /* line 392 "../lib/array.s7i" */ destr_64(old_array); } } } } /* line 1 "no_file" */ /* 889 */ /* line 400 "../lib/array.s7i" */ static intType/*t_14_integer*/ o_1794_compare (const const_arrayType/*t_64_*ANONYM_TYPE**/ o_1795_arr1, const const_arrayType/*t_64_*ANONYM_TYPE**/ o_1796_arr2) { /* line 402 "../lib/array.s7i" */ intType/*t_14_integer*/ o_1797_signumValue=0; /* line 404 "../lib/array.s7i" */ intType/*t_14_integer*/ o_1798_idx1=0; /* line 405 "../lib/array.s7i" */ intType/*t_14_integer*/ o_1799_idx2=0; /* line 407 "../lib/array.s7i" */ o_1798_idx1=(o_1795_arr1)->min_position; /* line 408 "../lib/array.s7i" */ o_1799_idx2=(o_1796_arr2)->min_position; /* line 409 "../lib/array.s7i" */ while (((o_1798_idx1) <= ((o_1795_arr1)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_1799_idx2) <= ((o_1796_arr2)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_1706_compare((o_1795_arr1)->arr[(idxChk((o_1798_idx1) < (o_1795_arr1)->min_position || (o_1798_idx1) > (o_1795_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_1798_idx1)-(o_1795_arr1)->min_position)].value.enumValue, (o_1796_arr2)->arr[(idxChk((o_1799_idx2) < (o_1796_arr2)->min_position || (o_1799_idx2) > (o_1796_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_1799_idx2)-(o_1796_arr2)->min_position)].value.enumValue)) == (0L))) { /* line 410 "../lib/array.s7i" */ ++(o_1798_idx1); /* line 411 "../lib/array.s7i" */ ++(o_1799_idx2); } /* line 413 "../lib/array.s7i" */ if (((o_1798_idx1) <= ((o_1795_arr1)->max_position)) && /* line 413 "../lib/array.s7i" */ ((o_1799_idx2) <= ((o_1796_arr2)->max_position))) { /* line 414 "../lib/array.s7i" */ o_1797_signumValue=o_1706_compare((o_1795_arr1)->arr[(idxChk((o_1798_idx1) < (o_1795_arr1)->min_position || (o_1798_idx1) > (o_1795_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_1798_idx1)-(o_1795_arr1)->min_position)].value.enumValue, (o_1796_arr2)->arr[(idxChk((o_1799_idx2) < (o_1796_arr2)->min_position || (o_1799_idx2) > (o_1796_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_1799_idx2)-(o_1796_arr2)->min_position)].value.enumValue); } else { /* line 416 "../lib/array.s7i" */ o_1797_signumValue=intCmp(((o_1795_arr1)->max_position - (o_1795_arr1)->min_position + 1), ((o_1796_arr2)->max_position - (o_1796_arr2)->min_position + 1)); } return o_1797_signumValue; } /* line 1 "no_file" */ /* 890 */ /* line 420 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_1800/*<*/ (const const_arrayType/*t_64_*ANONYM_TYPE**/ o_1801_arr1, const const_arrayType/*t_64_*ANONYM_TYPE**/ o_1802_arr2) { /* line 421 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_1794_compare(o_1801_arr1, o_1802_arr2)) < (0L))); } /* line 1 "no_file" */ /* 891 */ /* line 423 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_1803/*>*/ (const const_arrayType/*t_64_*ANONYM_TYPE**/ o_1804_arr1, const const_arrayType/*t_64_*ANONYM_TYPE**/ o_1805_arr2) { /* line 424 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_1794_compare(o_1804_arr1, o_1805_arr2)) > (0L))); } /* line 1 "no_file" */ /* 892 */ /* line 426 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_1806/*<=*/ (const const_arrayType/*t_64_*ANONYM_TYPE**/ o_1807_arr1, const const_arrayType/*t_64_*ANONYM_TYPE**/ o_1808_arr2) { /* line 427 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_1794_compare(o_1807_arr1, o_1808_arr2)) <= (0L))); } /* line 1 "no_file" */ /* 893 */ /* line 429 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_1809/*>=*/ (const const_arrayType/*t_64_*ANONYM_TYPE**/ o_1810_arr1, const const_arrayType/*t_64_*ANONYM_TYPE**/ o_1811_arr2) { /* line 430 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_1794_compare(o_1810_arr1, o_1811_arr2)) >= (0L))); } /* line 1 "no_file" */ /* 894 */ static intType generic_cmp_60 (const genericType a, const genericType b) { return o_1706_compare(((const_rtlObjectType *) &a)->value.enumValue, ((const_rtlObjectType *) &b)->value.enumValue); } /* objRefType/t_19_reference */ intfunctype o_1812/*.*/=(intfunctype)(&generic_cmp_60); /* 895 */ /* line 436 "../lib/array.s7i" */ static arrayType/*t_64_*ANONYM_TYPE**/ o_1813_sort (const const_arrayType/*t_64_*ANONYM_TYPE**/ o_1814_arr_obj) { /* line 437 "../lib/array.s7i" */ return (arrayType/*t_64_*ANONYM_TYPE**/)((arrSort(create_64(o_1814_arr_obj), (compareType)(o_1812/*.*/)))); } /* line 1 "no_file" */ /* 896 */ /* line 246 "../lib/bitsetof.s7i" */ static setType/*t_62_fileMode*/ o_1815/*{*/ (const const_arrayType/*t_63_*ANONYM_TYPE**/ o_1816_value) { /* line 248 "../lib/bitsetof.s7i" */ setType/*t_62_fileMode*/ o_1817_aSet; /* line 250 "../lib/bitsetof.s7i" */ intType/*t_14_integer*/ o_1818_number=0; /* line 248 "../lib/bitsetof.s7i" */ o_1817_aSet=setCreate(set[0]); { /* line 252 "../lib/bitsetof.s7i" */ const_arrayType tmp_1; /* line 252 "../lib/bitsetof.s7i" */ intType tmp_e_2=(tmp_1=/*arrArrlit()*/o_1816_value,tmp_1->max_position - tmp_1->min_position + 1); /* line 252 "../lib/bitsetof.s7i" */ for (o_1818_number=1L; o_1818_number<=tmp_e_2; (o_1818_number)++) { { /* line 253 "../lib/bitsetof.s7i" */ const_arrayType tmp_1; /* line 253 "../lib/bitsetof.s7i" */ o_1744_incl(&(o_1817_aSet), (*(tmp_1=/*arrArrlit()*/o_1816_value, &tmp_1->arr[(idxChk((o_1818_number) < tmp_1->min_position || (o_1818_number) > tmp_1->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_1818_number)-tmp_1->min_position)].value.enumValue))); } } } return o_1817_aSet; } /* line 1 "no_file" */ /* 897 */ /* line 257 "../lib/bitsetof.s7i" */ static setType/*t_62_fileMode*/ o_1819/*{*/ (const enumType/*t_60_filePermission*/ o_1820_lowerValue, const enumType/*t_60_filePermission*/ o_1821_upperValue) { /* line 258 "../lib/bitsetof.s7i" */ return (setType/*t_62_fileMode*/)((setRangelit(o_1702_ord(o_1820_lowerValue), o_1702_ord(o_1821_upperValue)))); } /* line 1 "no_file" */ /* 898 */ /* declare inline o_1822_for*/ /* declare inline o_1823_for*/ /* declare inline o_1824_for*/ /* 899 */ const t_61/*t_61_*ANONYM_TYPE**/ o_1825_WHEN_EMPTY=/*WHEN_EMPTY*/0; /* 900 */ /* 901 */ /* 902 */ /* 903 */ /* line 103 "../lib/osfiles.s7i" */ static intType/*t_14_integer*/ o_1830_conv (/* attr t_14 integer*/ const const_setType/*t_62_fileMode*/ o_1831_mode) { /* line 104 "../lib/osfiles.s7i" */ return (intType/*t_14_integer*/)((setSConv((o_1831_mode)))); } /* line 1 "no_file" */ /* 904 */ /* line 106 "../lib/osfiles.s7i" */ static setType/*t_62_fileMode*/ o_1832_conv (/* attr t_62 fileMode*/ const intType/*t_14_integer*/ o_1833_int_mode) { /* line 107 "../lib/osfiles.s7i" */ return (setType/*t_62_fileMode*/)((/*ref_to_value*/ (setIConv(o_1833_int_mode)))); } /* line 1 "no_file" */ /* 905 */ /* line 109 "../lib/osfiles.s7i" */ static striType/*t_15_string*/ o_1834_str (const const_setType/*t_62_fileMode*/ o_1835_aFileMode) { /* line 111 "../lib/osfiles.s7i" */ striType/*t_15_string*/ o_1836_permissions; /* line 113 "../lib/osfiles.s7i" */ enumType/*t_60_filePermission*/ o_1837_aPermission=/*READ_USER*/8; /* line 111 "../lib/osfiles.s7i" */ o_1836_permissions=strCreate(&str[28] /* "rwxrwxrwx" */); /* inline proc o_1732_for */ { /* inline params */ /* line 115 "../lib/osfiles.s7i" */ enumType/*t_60_filePermission*/ *const o_1838_variable=&(o_1837_aPermission); /* line 115 "../lib/osfiles.s7i" */ const enumType/*t_60_filePermission*/ o_1839_upperLimit=o_1695_READ_USER; /* line 115 "../lib/osfiles.s7i" */ const enumType/*t_60_filePermission*/ o_1840_lowerLimit=o_1687_EXEC_OTHER; /* line 115 "../lib/osfiles.s7i" */ /* push proc param o_1841_statements */ /* line 115 "../lib/osfiles.s7i" */ /* inline local_vars */ /* inline body */ /* line 186 "../lib/forloop.s7i" */ *o_1838_variable=o_1839_upperLimit; /* line 187 "../lib/forloop.s7i" */ if (o_1728/*>=*/(*o_1838_variable, o_1840_lowerLimit)) { /* closure o_1841_statements*/ { /* line 116 "../lib/osfiles.s7i" */ if (o_1741_not(o_1837_aPermission, o_1835_aFileMode)) { { striType str1=o_1836_permissions; uintType pos=(uintType)(9L - (o_1702_ord(o_1837_aPermission)))-1; if (idxChk(pos>=str1->size)) { raise_error(RANGE_ERROR); } else { /* line 117 "../lib/osfiles.s7i" */ str1->mem[pos] = (strElemType)('-'); } } } } /* closure o_1841_statements*/ /* line 189 "../lib/forloop.s7i" */ while (o_1725/*>*/(*o_1838_variable, o_1840_lowerLimit)) { /* line 190 "../lib/forloop.s7i" */ o_1717_decr(o_1838_variable); /* closure o_1841_statements*/ { /* line 116 "../lib/osfiles.s7i" */ if (o_1741_not(o_1837_aPermission, o_1835_aFileMode)) { { striType str1=o_1836_permissions; uintType pos=(uintType)(9L - (o_1702_ord(o_1837_aPermission)))-1; if (idxChk(pos>=str1->size)) { raise_error(RANGE_ERROR); } else { /* line 117 "../lib/osfiles.s7i" */ str1->mem[pos] = (strElemType)('-'); } } } } /* closure o_1841_statements*/ } } /* pop proc param o_1841_statements */ } /* inline proc o_1732_for */ return o_1836_permissions; } /* line 1 "no_file" */ /* 906 */ /* line 54 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1842_write (interfaceType/*t_46_file*/ *const o_1843_aFile, const const_setType/*t_62_fileMode*/ value_o_1844_aValue) { /* line 54 "../lib/enable_output.s7i" */ const_setType/*t_62_fileMode*/ o_1844_aValue; /* line 54 "../lib/enable_output.s7i" */ o_1844_aValue=setCreate(value_o_1844_aValue); { /* line 56 "../lib/enable_output.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 56 "../lib/enable_output.s7i" */ o_889_write(o_1843_aFile, (tmp_1=(striType/*t_15_string*/)(o_1834_str(o_1844_aValue)))); /* line 56 "../lib/enable_output.s7i" */ strDestr(tmp_1); } /* line 54 "../lib/enable_output.s7i" */ setDestr(o_1844_aValue); } /* line 1 "no_file" */ /* 907 */ /* line 62 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1845_writeln (interfaceType/*t_46_file*/ *const o_1846_aFile, const const_setType/*t_62_fileMode*/ value_o_1847_aValue) { /* line 62 "../lib/enable_output.s7i" */ const_setType/*t_62_fileMode*/ o_1847_aValue; /* line 62 "../lib/enable_output.s7i" */ o_1847_aValue=setCreate(value_o_1847_aValue); { /* line 64 "../lib/enable_output.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 64 "../lib/enable_output.s7i" */ o_894_writeln(o_1846_aFile, (tmp_1=(striType/*t_15_string*/)(o_1834_str(o_1847_aValue)))); /* line 64 "../lib/enable_output.s7i" */ strDestr(tmp_1); } /* line 62 "../lib/enable_output.s7i" */ setDestr(o_1847_aValue); } /* line 1 "no_file" */ /* 908 */ /* line 70 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1848_write (const const_setType/*t_62_fileMode*/ value_o_1849_aValue) { /* line 70 "../lib/enable_output.s7i" */ const_setType/*t_62_fileMode*/ o_1849_aValue; /* line 70 "../lib/enable_output.s7i" */ o_1849_aValue=setCreate(value_o_1849_aValue); /* line 72 "../lib/enable_output.s7i" */ o_1842_write(&(o_1074_OUT), o_1849_aValue); /* line 70 "../lib/enable_output.s7i" */ setDestr(o_1849_aValue); } /* line 1 "no_file" */ /* 909 */ /* line 78 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_1850_writeln (const const_setType/*t_62_fileMode*/ value_o_1851_aValue) { /* line 78 "../lib/enable_output.s7i" */ const_setType/*t_62_fileMode*/ o_1851_aValue; /* line 78 "../lib/enable_output.s7i" */ o_1851_aValue=setCreate(value_o_1851_aValue); /* line 80 "../lib/enable_output.s7i" */ o_1845_writeln(&(o_1074_OUT), o_1851_aValue); /* line 78 "../lib/enable_output.s7i" */ setDestr(o_1851_aValue); } /* line 1 "no_file" */ /* 910 */ /* line 88 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1852_lpad (const const_setType/*t_62_fileMode*/ value_o_1853_aValue, const intType/*t_14_integer*/ o_1854_leng) { /* line 89 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 89 "../lib/enable_output.s7i" */ const_setType/*t_62_fileMode*/ o_1853_aValue; /* line 89 "../lib/enable_output.s7i" */ o_1853_aValue=setCreate(value_o_1853_aValue); /* line 89 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strLpadTemp(o_1834_str(o_1853_aValue), o_1854_leng))); /* line 89 "../lib/enable_output.s7i" */ setDestr(o_1853_aValue); /* line 89 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 911 */ /* line 96 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1855_rpad (const const_setType/*t_62_fileMode*/ value_o_1856_aValue, const intType/*t_14_integer*/ o_1857_leng) { /* line 97 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 97 "../lib/enable_output.s7i" */ const_setType/*t_62_fileMode*/ o_1856_aValue; /* line 97 "../lib/enable_output.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); /* line 97 "../lib/enable_output.s7i" */ o_1856_aValue=setCreate(value_o_1856_aValue); /* line 97 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strRpad((tmp_2=(striType/*t_15_string*/)(o_1834_str(o_1856_aValue))), o_1857_leng))); /* line 97 "../lib/enable_output.s7i" */ setDestr(o_1856_aValue); /* line 97 "../lib/enable_output.s7i" */ strDestr(tmp_2); /* line 97 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 912 */ /* line 104 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1858/*<&*/ (const const_striType/*t_15_string*/ o_1859_stri, const const_setType/*t_62_fileMode*/ value_o_1860_aValue) { /* line 105 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 105 "../lib/enable_output.s7i" */ const_setType/*t_62_fileMode*/ o_1860_aValue; /* line 105 "../lib/enable_output.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); /* line 105 "../lib/enable_output.s7i" */ o_1860_aValue=setCreate(value_o_1860_aValue); /* line 105 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strConcat(o_1859_stri, (tmp_2=(striType/*t_15_string*/)(o_1834_str(o_1860_aValue)))))); /* line 105 "../lib/enable_output.s7i" */ setDestr(o_1860_aValue); /* line 105 "../lib/enable_output.s7i" */ strDestr(tmp_2); /* line 105 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 913 */ /* line 112 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_1861/*<&*/ (const const_setType/*t_62_fileMode*/ value_o_1862_aValue, const const_striType/*t_15_string*/ o_1863_stri) { /* line 113 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 113 "../lib/enable_output.s7i" */ const_setType/*t_62_fileMode*/ o_1862_aValue; /* line 113 "../lib/enable_output.s7i" */ o_1862_aValue=setCreate(value_o_1862_aValue); /* line 113 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strConcatTemp(o_1834_str(o_1862_aValue), o_1863_stri))); /* line 113 "../lib/enable_output.s7i" */ setDestr(o_1862_aValue); /* line 113 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 914 */ /* line 290 "../lib/osfiles.s7i" */ static structType/*t_54_time*/ o_1864_getATime (const const_striType/*t_15_string*/ o_1865_filePath) { /* line 292 "../lib/osfiles.s7i" */ structType/*t_54_time*/ o_1866_accessTime; /* line 292 "../lib/osfiles.s7i" */ o_1866_accessTime=create_54(sct[24]); /* line 294 "../lib/osfiles.s7i" */ cmdGetATime(o_1865_filePath, &(((structType)(o_1866_accessTime))->stru[0].value.intValue/*->o_1300_year*/), &(((structType)(o_1866_accessTime))->stru[1].value.intValue/*->o_1301_month*/), &(((structType)(o_1866_accessTime))->stru[2].value.intValue/*->o_1302_day*/), &(((structType)(o_1866_accessTime))->stru[3].value.intValue/*->o_1303_hour*/), &(((structType)(o_1866_accessTime))->stru[4].value.intValue/*->o_1304_minute*/), &(((structType)(o_1866_accessTime))->stru[5].value.intValue/*->o_1305_second*/), &(((structType)(o_1866_accessTime))->stru[6].value.intValue/*->o_1306_micro_second*/), &(((structType)(o_1866_accessTime))->stru[7].value.intValue/*->o_1307_timeZone*/), &(((structType)(o_1866_accessTime))->stru[8].value.boolValue/*->o_1308_daylightSavingTime*/)); return o_1866_accessTime; } /* line 1 "no_file" */ /* 915 */ /* line 311 "../lib/osfiles.s7i" */ static structType/*t_54_time*/ o_1867_getCTime (const const_striType/*t_15_string*/ o_1868_filePath) { /* line 313 "../lib/osfiles.s7i" */ structType/*t_54_time*/ o_1869_changeTime; /* line 313 "../lib/osfiles.s7i" */ o_1869_changeTime=create_54(sct[24]); /* line 315 "../lib/osfiles.s7i" */ cmdGetCTime(o_1868_filePath, &(((structType)(o_1869_changeTime))->stru[0].value.intValue/*->o_1300_year*/), &(((structType)(o_1869_changeTime))->stru[1].value.intValue/*->o_1301_month*/), &(((structType)(o_1869_changeTime))->stru[2].value.intValue/*->o_1302_day*/), &(((structType)(o_1869_changeTime))->stru[3].value.intValue/*->o_1303_hour*/), &(((structType)(o_1869_changeTime))->stru[4].value.intValue/*->o_1304_minute*/), &(((structType)(o_1869_changeTime))->stru[5].value.intValue/*->o_1305_second*/), &(((structType)(o_1869_changeTime))->stru[6].value.intValue/*->o_1306_micro_second*/), &(((structType)(o_1869_changeTime))->stru[7].value.intValue/*->o_1307_timeZone*/), &(((structType)(o_1869_changeTime))->stru[8].value.boolValue/*->o_1308_daylightSavingTime*/)); return o_1869_changeTime; } /* line 1 "no_file" */ /* 916 */ /* line 332 "../lib/osfiles.s7i" */ static structType/*t_54_time*/ o_1870_getMTime (const const_striType/*t_15_string*/ o_1871_filePath) { /* line 334 "../lib/osfiles.s7i" */ structType/*t_54_time*/ o_1872_modificationTime; /* line 334 "../lib/osfiles.s7i" */ o_1872_modificationTime=create_54(sct[24]); /* line 336 "../lib/osfiles.s7i" */ cmdGetMTime(o_1871_filePath, &(((structType)(o_1872_modificationTime))->stru[0].value.intValue/*->o_1300_year*/), &(((structType)(o_1872_modificationTime))->stru[1].value.intValue/*->o_1301_month*/), &(((structType)(o_1872_modificationTime))->stru[2].value.intValue/*->o_1302_day*/), &(((structType)(o_1872_modificationTime))->stru[3].value.intValue/*->o_1303_hour*/), &(((structType)(o_1872_modificationTime))->stru[4].value.intValue/*->o_1304_minute*/), &(((structType)(o_1872_modificationTime))->stru[5].value.intValue/*->o_1305_second*/), &(((structType)(o_1872_modificationTime))->stru[6].value.intValue/*->o_1306_micro_second*/), &(((structType)(o_1872_modificationTime))->stru[7].value.intValue/*->o_1307_timeZone*/), &(((structType)(o_1872_modificationTime))->stru[8].value.boolValue/*->o_1308_daylightSavingTime*/)); return o_1872_modificationTime; } /* line 1 "no_file" */ /* 917 */ /* line 354 "../lib/osfiles.s7i" */ static void/*t_1_void*/ o_1873_setATime (const const_striType/*t_15_string*/ o_1874_filePath, const structType/*t_54_time*/ o_1875_aTime) { /* line 356 "../lib/osfiles.s7i" */ cmdSetATime(o_1874_filePath, ((structType)(o_1875_aTime))->stru[0].value.intValue/*->o_1300_year*/, ((structType)(o_1875_aTime))->stru[1].value.intValue/*->o_1301_month*/, ((structType)(o_1875_aTime))->stru[2].value.intValue/*->o_1302_day*/, ((structType)(o_1875_aTime))->stru[3].value.intValue/*->o_1303_hour*/, ((structType)(o_1875_aTime))->stru[4].value.intValue/*->o_1304_minute*/, ((structType)(o_1875_aTime))->stru[5].value.intValue/*->o_1305_second*/, ((structType)(o_1875_aTime))->stru[6].value.intValue/*->o_1306_micro_second*/, ((structType)(o_1875_aTime))->stru[7].value.intValue/*->o_1307_timeZone*/); } /* line 1 "no_file" */ /* 918 */ /* line 373 "../lib/osfiles.s7i" */ static void/*t_1_void*/ o_1876_setMTime (const const_striType/*t_15_string*/ o_1877_filePath, const structType/*t_54_time*/ o_1878_aTime) { /* line 375 "../lib/osfiles.s7i" */ cmdSetMTime(o_1877_filePath, ((structType)(o_1878_aTime))->stru[0].value.intValue/*->o_1300_year*/, ((structType)(o_1878_aTime))->stru[1].value.intValue/*->o_1301_month*/, ((structType)(o_1878_aTime))->stru[2].value.intValue/*->o_1302_day*/, ((structType)(o_1878_aTime))->stru[3].value.intValue/*->o_1303_hour*/, ((structType)(o_1878_aTime))->stru[4].value.intValue/*->o_1304_minute*/, ((structType)(o_1878_aTime))->stru[5].value.intValue/*->o_1305_second*/, ((structType)(o_1878_aTime))->stru[6].value.intValue/*->o_1306_micro_second*/, ((structType)(o_1878_aTime))->stru[7].value.intValue/*->o_1307_timeZone*/); } /* line 1 "no_file" */ /* 919 */ /* line 502 "../lib/osfiles.s7i" */ static striType/*t_15_string*/ o_1879_convDosPath (const const_striType/*t_15_string*/ o_1880_path) { /* line 504 "../lib/osfiles.s7i" */ striType/*t_15_string*/ o_1881_stdPath; /* line 504 "../lib/osfiles.s7i" */ o_1881_stdPath=strEmpty(); /* "" */ { /* line 507 "../lib/osfiles.s7i" */ striType old_stri=o_1881_stdPath; /* line 507 "../lib/osfiles.s7i" */ o_1881_stdPath=strRepl(o_1880_path, &str[29] /* "\\" */, &str[20] /* "/" */); /* line 507 "../lib/osfiles.s7i" */ strDestr(old_stri); } /* line 509 "../lib/osfiles.s7i" */ if (((((intType)((o_1881_stdPath)->size)) == (2L)) || /* line 509 "../lib/osfiles.s7i" */ ((((intType)((o_1881_stdPath)->size)) >= (3L)) && /* line 509 "../lib/osfiles.s7i" */ (((o_1881_stdPath)->mem[(idxChk((o_1881_stdPath)->size<3) ? intRaiseError(RANGE_ERROR) : 0, 2)]) == ((charType) '/')))) && /* line 510 "../lib/osfiles.s7i" */ (((o_1881_stdPath)->mem[(idxChk((o_1881_stdPath)->size<2) ? intRaiseError(RANGE_ERROR) : 0, 1)]) == ((charType) ':')) && /* line 510 "../lib/osfiles.s7i" */ ((chrLow((o_1881_stdPath)->mem[(idxChk((o_1881_stdPath)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)])) >= ((charType) 'a')) && /* line 510 "../lib/osfiles.s7i" */ ((chrLow((o_1881_stdPath)->mem[(idxChk((o_1881_stdPath)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)])) <= ((charType) 'z'))) { { striType str1=o_1881_stdPath; if (idxChk(str1->size<=1)) { raise_error(RANGE_ERROR); } else { /* line 511 "../lib/osfiles.s7i" */ str1->mem[1] = (strElemType)(chrLow((o_1881_stdPath)->mem[(idxChk((o_1881_stdPath)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)])); } } { striType str1=o_1881_stdPath; if (idxChk(str1->size<=0)) { raise_error(RANGE_ERROR); } else { /* line 512 "../lib/osfiles.s7i" */ str1->mem[0] = (strElemType)('/'); } } } { /* line 515 "../lib/osfiles.s7i" */ striType old_stri=o_1881_stdPath; /* line 515 "../lib/osfiles.s7i" */ o_1881_stdPath=o_85_replaceN(o_1881_stdPath, &str[30] /* "//" */, &str[20] /* "/" */); /* line 515 "../lib/osfiles.s7i" */ strDestr(old_stri); } /* line 517 "../lib/osfiles.s7i" */ while ((((o_1881_stdPath)->size!=1||(o_1881_stdPath)->mem[0]!=(strElemType)('/') /* "/" */)) && /* line 517 "../lib/osfiles.s7i" */ (o_78_endsWith(o_1881_stdPath, &str[20] /* "/" */))) { { /* line 518 "../lib/osfiles.s7i" */ struct striStruct slice_1; /* line 518 "../lib/osfiles.s7i" */ strCopy(&(o_1881_stdPath), (strHeadSlice(o_1881_stdPath, ((intType)((o_1881_stdPath)->size))-1, &slice_1), &slice_1)); } } return o_1881_stdPath; } /* line 1 "no_file" */ /* 920 */ /* line 523 "../lib/osfiles.s7i" */ static striType/*t_15_string*/ o_1882_toStdPath (const const_striType/*t_15_string*/ o_1883_path) { /* line 525 "../lib/osfiles.s7i" */ striType/*t_15_string*/ o_1884_stdPath; /* line 525 "../lib/osfiles.s7i" */ o_1884_stdPath=strEmpty(); /* "" */ /* line 527 "../lib/osfiles.s7i" */ strCopy(&(o_1884_stdPath), o_1883_path); { /* line 529 "../lib/osfiles.s7i" */ striType old_stri=o_1884_stdPath; /* line 529 "../lib/osfiles.s7i" */ o_1884_stdPath=o_85_replaceN(o_1884_stdPath, &str[30] /* "//" */, &str[20] /* "/" */); /* line 529 "../lib/osfiles.s7i" */ strDestr(old_stri); } /* line 531 "../lib/osfiles.s7i" */ while ((((o_1884_stdPath)->size!=1||(o_1884_stdPath)->mem[0]!=(strElemType)('/') /* "/" */)) && /* line 531 "../lib/osfiles.s7i" */ (o_78_endsWith(o_1884_stdPath, &str[20] /* "/" */))) { { /* line 532 "../lib/osfiles.s7i" */ struct striStruct slice_1; /* line 532 "../lib/osfiles.s7i" */ strCopy(&(o_1884_stdPath), (strHeadSlice(o_1884_stdPath, ((intType)((o_1884_stdPath)->size))-1, &slice_1), &slice_1)); } } return o_1884_stdPath; } /* line 1 "no_file" */ /* 921 */ static void/*t_1_void*/ o_1885_skipComment (striType/*t_15_string*/ *const o_1886_stri); /* line 39 "../lib/scanstri.s7i" */ static void/*t_1_void*/ o_1885_skipComment (striType/*t_15_string*/ *const o_1886_stri) { /* line 41 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1887_leng=0; /* line 42 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1888_pos=1; /* line 44 "../lib/scanstri.s7i" */ o_1887_leng=(intType)((*o_1886_stri)->size); { /* line 45 "../lib/scanstri.s7i" */ uintType idx_1; /* line 45 "../lib/scanstri.s7i" */ do { { /* line 46 "../lib/scanstri.s7i" */ uintType idx_1; /* line 46 "../lib/scanstri.s7i" */ do { { /* line 47 "../lib/scanstri.s7i" */ uintType idx_1; /* line 47 "../lib/scanstri.s7i" */ while (((o_1888_pos) <= (o_1887_leng)) && /* line 47 "../lib/scanstri.s7i" */ (o_440_not((*o_1886_stri)->mem[(idx_1=(uintType)((o_1888_pos)-1), idxChk(idx_1>=(*o_1886_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[1])))) { /* line 48 "../lib/scanstri.s7i" */ ++(o_1888_pos); } } { /* line 50 "../lib/scanstri.s7i" */ uintType idx_1; /* line 50 "../lib/scanstri.s7i" */ if (((o_1888_pos) <= (o_1887_leng)) && /* line 50 "../lib/scanstri.s7i" */ (((*o_1886_stri)->mem[(idx_1=(uintType)((o_1888_pos)-1), idxChk(idx_1>=(*o_1886_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '('))) { /* line 51 "../lib/scanstri.s7i" */ ++(o_1888_pos); { /* line 52 "../lib/scanstri.s7i" */ uintType idx_1; /* line 52 "../lib/scanstri.s7i" */ if (((o_1888_pos) <= (o_1887_leng)) && /* line 52 "../lib/scanstri.s7i" */ (((*o_1886_stri)->mem[(idx_1=(uintType)((o_1888_pos)-1), idxChk(idx_1>=(*o_1886_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '*'))) { { /* line 53 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 53 "../lib/scanstri.s7i" */ strCopy(&(*o_1886_stri), (strTailSlice(*o_1886_stri, o_1888_pos, &slice_1), &slice_1)); } /* line 54 "../lib/scanstri.s7i" */ o_1885_skipComment(o_1886_stri); /* line 55 "../lib/scanstri.s7i" */ o_1887_leng=(intType)((*o_1886_stri)->size); /* line 56 "../lib/scanstri.s7i" */ o_1888_pos=1L; } } } } /* line 59 "../lib/scanstri.s7i" */ } while (!(((o_1888_pos) > (o_1887_leng)) || /* line 59 "../lib/scanstri.s7i" */ (((*o_1886_stri)->mem[(idx_1=(uintType)((o_1888_pos)-1), idxChk(idx_1>=(*o_1886_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '*')))); } /* line 60 "../lib/scanstri.s7i" */ if ((o_1888_pos) <= (o_1887_leng)) { /* line 61 "../lib/scanstri.s7i" */ ++(o_1888_pos); } /* line 63 "../lib/scanstri.s7i" */ } while (!(((o_1888_pos) > (o_1887_leng)) || /* line 63 "../lib/scanstri.s7i" */ (((*o_1886_stri)->mem[(idx_1=(uintType)((o_1888_pos)-1), idxChk(idx_1>=(*o_1886_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) ')')))); } { /* line 64 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 64 "../lib/scanstri.s7i" */ strCopy(&(*o_1886_stri), (strTailSlice(*o_1886_stri, (o_1888_pos)+1, &slice_1), &slice_1)); } } /* line 1 "no_file" */ /* 922 */ static striType/*t_15_string*/ o_1889_getComment (striType/*t_15_string*/ *const o_1890_stri); /* line 77 "../lib/scanstri.s7i" */ static striType/*t_15_string*/ o_1889_getComment (striType/*t_15_string*/ *const o_1890_stri) { /* line 79 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_1891_symbol; /* line 81 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1892_leng=0; /* line 82 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1893_pos=1; /* line 79 "../lib/scanstri.s7i" */ o_1891_symbol=chrStr((charType) '('); /* "(" */ /* line 84 "../lib/scanstri.s7i" */ o_1892_leng=(intType)((*o_1890_stri)->size); { /* line 85 "../lib/scanstri.s7i" */ uintType idx_1; /* line 85 "../lib/scanstri.s7i" */ do { { /* line 86 "../lib/scanstri.s7i" */ uintType idx_1; /* line 86 "../lib/scanstri.s7i" */ do { { /* line 87 "../lib/scanstri.s7i" */ uintType idx_1; /* line 87 "../lib/scanstri.s7i" */ while (((o_1893_pos) <= (o_1892_leng)) && /* line 87 "../lib/scanstri.s7i" */ (o_440_not((*o_1890_stri)->mem[(idx_1=(uintType)((o_1893_pos)-1), idxChk(idx_1>=(*o_1890_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[1])))) { /* line 88 "../lib/scanstri.s7i" */ ++(o_1893_pos); } } { /* line 90 "../lib/scanstri.s7i" */ uintType idx_1; /* line 90 "../lib/scanstri.s7i" */ if (((o_1893_pos) <= (o_1892_leng)) && /* line 90 "../lib/scanstri.s7i" */ (((*o_1890_stri)->mem[(idx_1=(uintType)((o_1893_pos)-1), idxChk(idx_1>=(*o_1890_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '('))) { /* line 91 "../lib/scanstri.s7i" */ ++(o_1893_pos); { /* line 92 "../lib/scanstri.s7i" */ uintType idx_1; /* line 92 "../lib/scanstri.s7i" */ if (((o_1893_pos) <= (o_1892_leng)) && /* line 92 "../lib/scanstri.s7i" */ (((*o_1890_stri)->mem[(idx_1=(uintType)((o_1893_pos)-1), idxChk(idx_1>=(*o_1890_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '*'))) { { /* line 93 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 93 "../lib/scanstri.s7i" */ strAppend(&(o_1891_symbol), (strHeadSlice(*o_1890_stri, (o_1893_pos) - 2L, &slice_1), &slice_1)); } { /* line 94 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 94 "../lib/scanstri.s7i" */ strCopy(&(*o_1890_stri), (strTailSlice(*o_1890_stri, o_1893_pos, &slice_1), &slice_1)); } /* line 95 "../lib/scanstri.s7i" */ strAppendTemp(&(o_1891_symbol), o_1889_getComment(o_1890_stri)); /* line 96 "../lib/scanstri.s7i" */ o_1892_leng=(intType)((*o_1890_stri)->size); /* line 97 "../lib/scanstri.s7i" */ o_1893_pos=1L; } } } } /* line 100 "../lib/scanstri.s7i" */ } while (!(((o_1893_pos) > (o_1892_leng)) || /* line 100 "../lib/scanstri.s7i" */ (((*o_1890_stri)->mem[(idx_1=(uintType)((o_1893_pos)-1), idxChk(idx_1>=(*o_1890_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '*')))); } /* line 101 "../lib/scanstri.s7i" */ if ((o_1893_pos) <= (o_1892_leng)) { /* line 102 "../lib/scanstri.s7i" */ ++(o_1893_pos); } /* line 104 "../lib/scanstri.s7i" */ } while (!(((o_1893_pos) > (o_1892_leng)) || /* line 104 "../lib/scanstri.s7i" */ (((*o_1890_stri)->mem[(idx_1=(uintType)((o_1893_pos)-1), idxChk(idx_1>=(*o_1890_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) ')')))); } { /* line 105 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 105 "../lib/scanstri.s7i" */ strAppend(&(o_1891_symbol), (strHeadSlice(*o_1890_stri, o_1893_pos, &slice_1), &slice_1)); } { /* line 106 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 106 "../lib/scanstri.s7i" */ strCopy(&(*o_1890_stri), (strTailSlice(*o_1890_stri, (o_1893_pos)+1, &slice_1), &slice_1)); } return o_1891_symbol; } /* line 1 "no_file" */ /* 923 */ /* line 119 "../lib/scanstri.s7i" */ static void/*t_1_void*/ o_1894_skipLineComment (striType/*t_15_string*/ *const o_1895_stri) { /* line 121 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1896_leng=0; /* line 122 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1897_pos=1; /* line 124 "../lib/scanstri.s7i" */ o_1896_leng=(intType)((*o_1895_stri)->size); { /* line 125 "../lib/scanstri.s7i" */ uintType idx_1; /* line 125 "../lib/scanstri.s7i" */ do { /* line 126 "../lib/scanstri.s7i" */ ++(o_1897_pos); /* line 127 "../lib/scanstri.s7i" */ } while (!(((o_1897_pos) > (o_1896_leng)) || /* line 127 "../lib/scanstri.s7i" */ (((*o_1895_stri)->mem[(idx_1=(uintType)((o_1897_pos)-1), idxChk(idx_1>=(*o_1895_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '\n')))); } { /* line 128 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 128 "../lib/scanstri.s7i" */ strCopy(&(*o_1895_stri), (strTailSlice(*o_1895_stri, o_1897_pos, &slice_1), &slice_1)); } } /* line 1 "no_file" */ /* 924 */ /* line 143 "../lib/scanstri.s7i" */ static striType/*t_15_string*/ o_1898_getLineComment (striType/*t_15_string*/ *const o_1899_stri) { /* line 145 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_1900_symbol; /* line 147 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1901_leng=0; /* line 148 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1902_pos=1; /* line 145 "../lib/scanstri.s7i" */ o_1900_symbol=strEmpty(); /* "" */ /* line 150 "../lib/scanstri.s7i" */ o_1901_leng=(intType)((*o_1899_stri)->size); { /* line 151 "../lib/scanstri.s7i" */ uintType idx_1; /* line 151 "../lib/scanstri.s7i" */ do { /* line 152 "../lib/scanstri.s7i" */ ++(o_1902_pos); /* line 153 "../lib/scanstri.s7i" */ } while (!(((o_1902_pos) > (o_1901_leng)) || /* line 153 "../lib/scanstri.s7i" */ (((*o_1899_stri)->mem[(idx_1=(uintType)((o_1902_pos)-1), idxChk(idx_1>=(*o_1899_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '\n')))); } { /* line 154 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 154 "../lib/scanstri.s7i" */ strCopy(&(o_1900_symbol), (strHeadSlice(*o_1899_stri, (o_1902_pos)-1, &slice_1), &slice_1)); } { /* line 155 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 155 "../lib/scanstri.s7i" */ strCopy(&(*o_1899_stri), (strTailSlice(*o_1899_stri, o_1902_pos, &slice_1), &slice_1)); } return o_1900_symbol; } /* line 1 "no_file" */ /* 925 */ /* line 167 "../lib/scanstri.s7i" */ static striType/*t_15_string*/ o_1903_getDigits (striType/*t_15_string*/ *const o_1904_stri) { /* line 169 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_1905_symbol; /* line 171 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1906_leng=0; /* line 172 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1907_pos=1; /* line 169 "../lib/scanstri.s7i" */ o_1905_symbol=strEmpty(); /* "" */ /* line 174 "../lib/scanstri.s7i" */ o_1906_leng=(intType)((*o_1904_stri)->size); { /* line 175 "../lib/scanstri.s7i" */ uintType idx_1; /* line 175 "../lib/scanstri.s7i" */ uintType idx_2; /* line 175 "../lib/scanstri.s7i" */ while (((o_1907_pos) <= (o_1906_leng)) && /* line 175 "../lib/scanstri.s7i" */ (((*o_1904_stri)->mem[(idx_1=(uintType)((o_1907_pos)-1), idxChk(idx_1>=(*o_1904_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) >= ((charType) '0')) && /* line 175 "../lib/scanstri.s7i" */ (((*o_1904_stri)->mem[(idx_2=(uintType)((o_1907_pos)-1), idxChk(idx_2>=(*o_1904_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]) <= ((charType) '9'))) { /* line 176 "../lib/scanstri.s7i" */ ++(o_1907_pos); } } { /* line 178 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 178 "../lib/scanstri.s7i" */ strCopy(&(o_1905_symbol), (strHeadSlice(*o_1904_stri, (o_1907_pos)-1, &slice_1), &slice_1)); } { /* line 179 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 179 "../lib/scanstri.s7i" */ strCopy(&(*o_1904_stri), (strTailSlice(*o_1904_stri, o_1907_pos, &slice_1), &slice_1)); } return o_1905_symbol; } /* line 1 "no_file" */ /* 926 */ /* line 194 "../lib/scanstri.s7i" */ static striType/*t_15_string*/ o_1908_getInteger (striType/*t_15_string*/ *const o_1909_stri) { /* line 196 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_1910_symbol; /* line 198 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1911_leng=0; /* line 199 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1912_pos=1; /* line 196 "../lib/scanstri.s7i" */ o_1910_symbol=strEmpty(); /* "" */ /* line 201 "../lib/scanstri.s7i" */ o_1911_leng=(intType)((*o_1909_stri)->size); { /* line 202 "../lib/scanstri.s7i" */ uintType idx_1; /* line 202 "../lib/scanstri.s7i" */ uintType idx_2; /* line 202 "../lib/scanstri.s7i" */ if (((o_1912_pos) <= (o_1911_leng)) && /* line 202 "../lib/scanstri.s7i" */ ((((*o_1909_stri)->mem[(idx_1=(uintType)((o_1912_pos)-1), idxChk(idx_1>=(*o_1909_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '-')) || /* line 202 "../lib/scanstri.s7i" */ (((*o_1909_stri)->mem[(idx_2=(uintType)((o_1912_pos)-1), idxChk(idx_2>=(*o_1909_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]) == ((charType) '+')))) { /* line 203 "../lib/scanstri.s7i" */ ++(o_1912_pos); } } { /* line 205 "../lib/scanstri.s7i" */ uintType idx_1; /* line 205 "../lib/scanstri.s7i" */ uintType idx_2; /* line 205 "../lib/scanstri.s7i" */ while (((o_1912_pos) <= (o_1911_leng)) && /* line 205 "../lib/scanstri.s7i" */ (((*o_1909_stri)->mem[(idx_1=(uintType)((o_1912_pos)-1), idxChk(idx_1>=(*o_1909_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) >= ((charType) '0')) && /* line 205 "../lib/scanstri.s7i" */ (((*o_1909_stri)->mem[(idx_2=(uintType)((o_1912_pos)-1), idxChk(idx_2>=(*o_1909_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]) <= ((charType) '9'))) { /* line 206 "../lib/scanstri.s7i" */ ++(o_1912_pos); } } { /* line 208 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 208 "../lib/scanstri.s7i" */ strCopy(&(o_1910_symbol), (strHeadSlice(*o_1909_stri, (o_1912_pos)-1, &slice_1), &slice_1)); } { /* line 209 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 209 "../lib/scanstri.s7i" */ strCopy(&(*o_1909_stri), (strTailSlice(*o_1909_stri, o_1912_pos, &slice_1), &slice_1)); } return o_1910_symbol; } /* line 1 "no_file" */ /* 927 */ /* line 221 "../lib/scanstri.s7i" */ static striType/*t_15_string*/ o_1913_getNumber (striType/*t_15_string*/ *const o_1914_stri) { /* line 223 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_1915_symbol; /* line 225 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1916_leng=0; /* line 226 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1917_pos=1; /* line 223 "../lib/scanstri.s7i" */ o_1915_symbol=strEmpty(); /* "" */ /* line 228 "../lib/scanstri.s7i" */ o_1916_leng=(intType)((*o_1914_stri)->size); { /* line 229 "../lib/scanstri.s7i" */ uintType idx_1; /* line 229 "../lib/scanstri.s7i" */ while (((o_1917_pos) <= (o_1916_leng)) && /* line 229 "../lib/scanstri.s7i" */ (o_437_in((*o_1914_stri)->mem[(idx_1=(uintType)((o_1917_pos)-1), idxChk(idx_1>=(*o_1914_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[2])))) { /* line 230 "../lib/scanstri.s7i" */ ++(o_1917_pos); } } { /* line 232 "../lib/scanstri.s7i" */ uintType idx_1; /* line 232 "../lib/scanstri.s7i" */ if (((o_1917_pos) <= (o_1916_leng)) && /* line 232 "../lib/scanstri.s7i" */ (((*o_1914_stri)->mem[(idx_1=(uintType)((o_1917_pos)-1), idxChk(idx_1>=(*o_1914_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '.'))) { /* line 234 "../lib/scanstri.s7i" */ ++(o_1917_pos); { /* line 235 "../lib/scanstri.s7i" */ uintType idx_1; /* line 235 "../lib/scanstri.s7i" */ while (((o_1917_pos) <= (o_1916_leng)) && /* line 235 "../lib/scanstri.s7i" */ (o_437_in((*o_1914_stri)->mem[(idx_1=(uintType)((o_1917_pos)-1), idxChk(idx_1>=(*o_1914_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[2])))) { /* line 236 "../lib/scanstri.s7i" */ ++(o_1917_pos); } } { /* line 238 "../lib/scanstri.s7i" */ uintType idx_1; /* line 238 "../lib/scanstri.s7i" */ uintType idx_2; /* line 238 "../lib/scanstri.s7i" */ if (((o_1917_pos) <= (o_1916_leng)) && /* line 238 "../lib/scanstri.s7i" */ ((((*o_1914_stri)->mem[(idx_1=(uintType)((o_1917_pos)-1), idxChk(idx_1>=(*o_1914_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) 'E')) || /* line 238 "../lib/scanstri.s7i" */ (((*o_1914_stri)->mem[(idx_2=(uintType)((o_1917_pos)-1), idxChk(idx_2>=(*o_1914_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]) == ((charType) 'e')))) { /* line 239 "../lib/scanstri.s7i" */ ++(o_1917_pos); { /* line 240 "../lib/scanstri.s7i" */ uintType idx_1; /* line 240 "../lib/scanstri.s7i" */ if (((o_1917_pos) <= (o_1916_leng)) && /* line 240 "../lib/scanstri.s7i" */ (((*o_1914_stri)->mem[(idx_1=(uintType)((o_1917_pos)-1), idxChk(idx_1>=(*o_1914_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '+'))) { /* line 241 "../lib/scanstri.s7i" */ ++(o_1917_pos); } else { /* line 242 "../lib/scanstri.s7i" */ uintType idx_1; /* line 242 "../lib/scanstri.s7i" */ if (((o_1917_pos) <= (o_1916_leng)) && /* line 242 "../lib/scanstri.s7i" */ (((*o_1914_stri)->mem[(idx_1=(uintType)((o_1917_pos)-1), idxChk(idx_1>=(*o_1914_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '-'))) { /* line 243 "../lib/scanstri.s7i" */ ++(o_1917_pos); } } } { /* line 245 "../lib/scanstri.s7i" */ uintType idx_1; /* line 245 "../lib/scanstri.s7i" */ while (((o_1917_pos) <= (o_1916_leng)) && /* line 245 "../lib/scanstri.s7i" */ (o_437_in((*o_1914_stri)->mem[(idx_1=(uintType)((o_1917_pos)-1), idxChk(idx_1>=(*o_1914_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[2])))) { /* line 246 "../lib/scanstri.s7i" */ ++(o_1917_pos); } } } } } else { /* line 249 "../lib/scanstri.s7i" */ uintType idx_1; /* line 249 "../lib/scanstri.s7i" */ if (((o_1917_pos) <= (o_1916_leng)) && /* line 249 "../lib/scanstri.s7i" */ (((*o_1914_stri)->mem[(idx_1=(uintType)((o_1917_pos)-1), idxChk(idx_1>=(*o_1914_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '#'))) { /* line 251 "../lib/scanstri.s7i" */ ++(o_1917_pos); { /* line 252 "../lib/scanstri.s7i" */ uintType idx_1; /* line 252 "../lib/scanstri.s7i" */ while (((o_1917_pos) <= (o_1916_leng)) && /* line 252 "../lib/scanstri.s7i" */ (o_437_in((*o_1914_stri)->mem[(idx_1=(uintType)((o_1917_pos)-1), idxChk(idx_1>=(*o_1914_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[3])))) { /* line 253 "../lib/scanstri.s7i" */ ++(o_1917_pos); } } } else { /* line 255 "../lib/scanstri.s7i" */ uintType idx_1; /* line 255 "../lib/scanstri.s7i" */ uintType idx_2; /* line 255 "../lib/scanstri.s7i" */ if (((o_1917_pos) <= (o_1916_leng)) && /* line 255 "../lib/scanstri.s7i" */ ((((*o_1914_stri)->mem[(idx_1=(uintType)((o_1917_pos)-1), idxChk(idx_1>=(*o_1914_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) 'E')) || /* line 255 "../lib/scanstri.s7i" */ (((*o_1914_stri)->mem[(idx_2=(uintType)((o_1917_pos)-1), idxChk(idx_2>=(*o_1914_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]) == ((charType) 'e')))) { /* line 257 "../lib/scanstri.s7i" */ ++(o_1917_pos); { /* line 258 "../lib/scanstri.s7i" */ uintType idx_1; /* line 258 "../lib/scanstri.s7i" */ if (((o_1917_pos) <= (o_1916_leng)) && /* line 258 "../lib/scanstri.s7i" */ (((*o_1914_stri)->mem[(idx_1=(uintType)((o_1917_pos)-1), idxChk(idx_1>=(*o_1914_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '+'))) { /* line 259 "../lib/scanstri.s7i" */ ++(o_1917_pos); } else { /* line 260 "../lib/scanstri.s7i" */ uintType idx_1; /* line 260 "../lib/scanstri.s7i" */ if (((o_1917_pos) <= (o_1916_leng)) && /* line 260 "../lib/scanstri.s7i" */ (((*o_1914_stri)->mem[(idx_1=(uintType)((o_1917_pos)-1), idxChk(idx_1>=(*o_1914_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '-'))) { /* line 261 "../lib/scanstri.s7i" */ ++(o_1917_pos); } } } { /* line 263 "../lib/scanstri.s7i" */ uintType idx_1; /* line 263 "../lib/scanstri.s7i" */ while (((o_1917_pos) <= (o_1916_leng)) && /* line 263 "../lib/scanstri.s7i" */ (o_437_in((*o_1914_stri)->mem[(idx_1=(uintType)((o_1917_pos)-1), idxChk(idx_1>=(*o_1914_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[2])))) { /* line 264 "../lib/scanstri.s7i" */ ++(o_1917_pos); } } } else { /* line 266 "../lib/scanstri.s7i" */ uintType idx_1; /* line 266 "../lib/scanstri.s7i" */ if (((o_1917_pos) <= (o_1916_leng)) && /* line 266 "../lib/scanstri.s7i" */ (((*o_1914_stri)->mem[(idx_1=(uintType)((o_1917_pos)-1), idxChk(idx_1>=(*o_1914_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '_'))) { /* line 268 "../lib/scanstri.s7i" */ ++(o_1917_pos); } } } } } { /* line 270 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 270 "../lib/scanstri.s7i" */ strCopy(&(o_1915_symbol), (strHeadSlice(*o_1914_stri, (o_1917_pos)-1, &slice_1), &slice_1)); } { /* line 271 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 271 "../lib/scanstri.s7i" */ strCopy(&(*o_1914_stri), (strTailSlice(*o_1914_stri, o_1917_pos, &slice_1), &slice_1)); } return o_1915_symbol; } /* line 1 "no_file" */ /* 928 */ /* line 282 "../lib/scanstri.s7i" */ static striType/*t_15_string*/ o_1918_getNonDigits (striType/*t_15_string*/ *const o_1919_stri) { /* line 284 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_1920_symbol; /* line 286 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1921_leng=0; /* line 287 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1922_pos=1; /* line 284 "../lib/scanstri.s7i" */ o_1920_symbol=strEmpty(); /* "" */ /* line 289 "../lib/scanstri.s7i" */ o_1921_leng=(intType)((*o_1919_stri)->size); { /* line 290 "../lib/scanstri.s7i" */ uintType idx_1; /* line 290 "../lib/scanstri.s7i" */ uintType idx_2; /* line 290 "../lib/scanstri.s7i" */ while (((o_1922_pos) <= (o_1921_leng)) && /* line 290 "../lib/scanstri.s7i" */ ((((*o_1919_stri)->mem[(idx_1=(uintType)((o_1922_pos)-1), idxChk(idx_1>=(*o_1919_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) < ((charType) '0')) || /* line 290 "../lib/scanstri.s7i" */ (((*o_1919_stri)->mem[(idx_2=(uintType)((o_1922_pos)-1), idxChk(idx_2>=(*o_1919_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]) > ((charType) '9')))) { /* line 291 "../lib/scanstri.s7i" */ ++(o_1922_pos); } } { /* line 293 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 293 "../lib/scanstri.s7i" */ strCopy(&(o_1920_symbol), (strHeadSlice(*o_1919_stri, (o_1922_pos)-1, &slice_1), &slice_1)); } { /* line 294 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 294 "../lib/scanstri.s7i" */ strCopy(&(*o_1919_stri), (strTailSlice(*o_1919_stri, o_1922_pos, &slice_1), &slice_1)); } return o_1920_symbol; } /* line 1 "no_file" */ /* 929 */ /* line 308 "../lib/scanstri.s7i" */ static striType/*t_15_string*/ o_1923_getQuotedText (striType/*t_15_string*/ *const o_1924_stri) { /* line 310 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_1925_symbol; /* line 312 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1926_leng=0; /* line 313 "../lib/scanstri.s7i" */ charType/*t_18_char*/ o_1927_quoteChar=(charType) ' '; /* line 314 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1928_pos=1; /* line 310 "../lib/scanstri.s7i" */ o_1925_symbol=strEmpty(); /* "" */ /* line 316 "../lib/scanstri.s7i" */ o_1927_quoteChar=(*o_1924_stri)->mem[(idxChk((*o_1924_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]; /* line 317 "../lib/scanstri.s7i" */ o_1926_leng=(intType)((*o_1924_stri)->size); { /* line 318 "../lib/scanstri.s7i" */ uintType idx_1; /* line 318 "../lib/scanstri.s7i" */ do { /* line 319 "../lib/scanstri.s7i" */ ++(o_1928_pos); /* line 320 "../lib/scanstri.s7i" */ } while (!(((o_1928_pos) > (o_1926_leng)) || /* line 320 "../lib/scanstri.s7i" */ (((*o_1924_stri)->mem[(idx_1=(uintType)((o_1928_pos)-1), idxChk(idx_1>=(*o_1924_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == (o_1927_quoteChar)))); } { /* line 321 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 321 "../lib/scanstri.s7i" */ intType start_2; /* line 321 "../lib/scanstri.s7i" */ intType stop_3; /* line 321 "../lib/scanstri.s7i" */ strCopy(&(o_1925_symbol), (start_2=2L,stop_3=(o_1928_pos)-1,start_2<1 ? start_2=1 : 0, slice_1.capacity=0, stop_3>=start_2 && (uintType)start_2<=(*o_1924_stri)->size ? (slice_1.mem = &(*o_1924_stri)->mem[start_2-1], (uintType)stop_3 > (*o_1924_stri)->size ? slice_1.size = (*o_1924_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)stop_3-(memSizeType)start_2+1)) : (slice_1.mem = NULL,slice_1.size = 0), &slice_1)); } { /* line 322 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 322 "../lib/scanstri.s7i" */ strCopy(&(*o_1924_stri), (strTailSlice(*o_1924_stri, (o_1928_pos)+1, &slice_1), &slice_1)); } return o_1925_symbol; } /* line 1 "no_file" */ /* 930 */ /* line 351 "../lib/scanstri.s7i" */ static striType/*t_15_string*/ o_1929_getCommandLineWord (striType/*t_15_string*/ *const o_1930_stri) { /* line 353 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_1931_symbol; /* line 355 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1932_leng=0; /* line 356 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1933_pos=1; /* line 353 "../lib/scanstri.s7i" */ o_1931_symbol=strEmpty(); /* "" */ /* line 358 "../lib/scanstri.s7i" */ o_1932_leng=(intType)((*o_1930_stri)->size); { /* line 359 "../lib/scanstri.s7i" */ uintType idx_1; /* line 359 "../lib/scanstri.s7i" */ while (((o_1933_pos) <= (o_1932_leng)) && /* line 359 "../lib/scanstri.s7i" */ (((*o_1930_stri)->mem[(idx_1=(uintType)((o_1933_pos)-1), idxChk(idx_1>=(*o_1930_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) ' '))) { /* line 360 "../lib/scanstri.s7i" */ ++(o_1933_pos); } } { /* line 362 "../lib/scanstri.s7i" */ uintType idx_1; /* line 362 "../lib/scanstri.s7i" */ while (((o_1933_pos) <= (o_1932_leng)) && /* line 362 "../lib/scanstri.s7i" */ (((*o_1930_stri)->mem[(idx_1=(uintType)((o_1933_pos)-1), idxChk(idx_1>=(*o_1930_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) != ((charType) ' '))) { { /* line 363 "../lib/scanstri.s7i" */ uintType idx_1; /* line 363 "../lib/scanstri.s7i" */ if (((*o_1930_stri)->mem[(idx_1=(uintType)((o_1933_pos)-1), idxChk(idx_1>=(*o_1930_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '"')) { /* line 364 "../lib/scanstri.s7i" */ ++(o_1933_pos); { /* line 365 "../lib/scanstri.s7i" */ uintType idx_1; /* line 365 "../lib/scanstri.s7i" */ while (((o_1933_pos) <= (o_1932_leng)) && /* line 365 "../lib/scanstri.s7i" */ (((*o_1930_stri)->mem[(idx_1=(uintType)((o_1933_pos)-1), idxChk(idx_1>=(*o_1930_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) != ((charType) '"'))) { { /* line 366 "../lib/scanstri.s7i" */ uintType idx_1; /* line 366 "../lib/scanstri.s7i" */ if ((((*o_1930_stri)->mem[(idx_1=(uintType)((o_1933_pos)-1), idxChk(idx_1>=(*o_1930_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '\\')) && /* line 366 "../lib/scanstri.s7i" */ ((o_1933_pos) < (o_1932_leng))) { /* line 367 "../lib/scanstri.s7i" */ ++(o_1933_pos); } } { /* line 369 "../lib/scanstri.s7i" */ charType tmp_1; /* line 369 "../lib/scanstri.s7i" */ uintType idx_2; /* line 369 "../lib/scanstri.s7i" */ tmp_1=(*o_1930_stri)->mem[(idx_2=(uintType)((o_1933_pos)-1), idxChk(idx_2>=(*o_1930_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]; /* line 369 "../lib/scanstri.s7i" */ if (((o_1931_symbol))->size == ((o_1931_symbol))->capacity) { /* line 369 "../lib/scanstri.s7i" */ strPush(&((o_1931_symbol)), tmp_1); /* line 369 "../lib/scanstri.s7i" */ } else { /* line 369 "../lib/scanstri.s7i" */ ((o_1931_symbol))->mem[((o_1931_symbol))->size]=tmp_1; /* line 369 "../lib/scanstri.s7i" */ ((o_1931_symbol))->size++; /* line 369 "../lib/scanstri.s7i" */ } } /* line 370 "../lib/scanstri.s7i" */ ++(o_1933_pos); } } /* line 372 "../lib/scanstri.s7i" */ ++(o_1933_pos); } else { { /* line 374 "../lib/scanstri.s7i" */ uintType idx_1; /* line 374 "../lib/scanstri.s7i" */ uintType idx_2; /* line 374 "../lib/scanstri.s7i" */ while (((o_1933_pos) <= (o_1932_leng)) && /* line 374 "../lib/scanstri.s7i" */ (((*o_1930_stri)->mem[(idx_1=(uintType)((o_1933_pos)-1), idxChk(idx_1>=(*o_1930_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) != ((charType) ' ')) && /* line 374 "../lib/scanstri.s7i" */ (((*o_1930_stri)->mem[(idx_2=(uintType)((o_1933_pos)-1), idxChk(idx_2>=(*o_1930_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]) != ((charType) '"'))) { { /* line 375 "../lib/scanstri.s7i" */ uintType idx_1; /* line 375 "../lib/scanstri.s7i" */ if ((((*o_1930_stri)->mem[(idx_1=(uintType)((o_1933_pos)-1), idxChk(idx_1>=(*o_1930_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '\\')) && /* line 375 "../lib/scanstri.s7i" */ ((o_1933_pos) < (o_1932_leng))) { /* line 376 "../lib/scanstri.s7i" */ ++(o_1933_pos); } } { /* line 378 "../lib/scanstri.s7i" */ charType tmp_1; /* line 378 "../lib/scanstri.s7i" */ uintType idx_2; /* line 378 "../lib/scanstri.s7i" */ tmp_1=(*o_1930_stri)->mem[(idx_2=(uintType)((o_1933_pos)-1), idxChk(idx_2>=(*o_1930_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]; /* line 378 "../lib/scanstri.s7i" */ if (((o_1931_symbol))->size == ((o_1931_symbol))->capacity) { /* line 378 "../lib/scanstri.s7i" */ strPush(&((o_1931_symbol)), tmp_1); /* line 378 "../lib/scanstri.s7i" */ } else { /* line 378 "../lib/scanstri.s7i" */ ((o_1931_symbol))->mem[((o_1931_symbol))->size]=tmp_1; /* line 378 "../lib/scanstri.s7i" */ ((o_1931_symbol))->size++; /* line 378 "../lib/scanstri.s7i" */ } } /* line 379 "../lib/scanstri.s7i" */ ++(o_1933_pos); } } } } } } { /* line 383 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 383 "../lib/scanstri.s7i" */ strCopy(&(*o_1930_stri), (strTailSlice(*o_1930_stri, (o_1933_pos)+1, &slice_1), &slice_1)); } return o_1931_symbol; } /* line 1 "no_file" */ /* 931 */ /* line 396 "../lib/scanstri.s7i" */ static void/*t_1_void*/ o_1934_getEscapeSequence (const const_striType/*t_15_string*/ o_1935_stri, intType/*t_14_integer*/ *const o_1936_pos, striType/*t_15_string*/ *const o_1937_symbol) { /* line 398 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1938_leng=0; /* line 399 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1939_backslashPos=0; /* line 400 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_1940_numberStri; /* line 400 "../lib/scanstri.s7i" */ o_1940_numberStri=strEmpty(); /* "" */ /* line 402 "../lib/scanstri.s7i" */ o_1938_leng=(intType)((o_1935_stri)->size); /* line 403 "../lib/scanstri.s7i" */ /* line 403 "../lib/scanstri.s7i" */ if (((*o_1937_symbol))->size == ((*o_1937_symbol))->capacity) { /* line 403 "../lib/scanstri.s7i" */ strPush(&((*o_1937_symbol)), (charType) '\\'); /* line 403 "../lib/scanstri.s7i" */ } else { /* line 403 "../lib/scanstri.s7i" */ ((*o_1937_symbol))->mem[((*o_1937_symbol))->size]=(charType) '\\'; /* line 403 "../lib/scanstri.s7i" */ ((*o_1937_symbol))->size++; /* line 403 "../lib/scanstri.s7i" */ } /* line 404 "../lib/scanstri.s7i" */ ++(*o_1936_pos); /* line 405 "../lib/scanstri.s7i" */ if ((*o_1936_pos) <= (o_1938_leng)) { { /* line 406 "../lib/scanstri.s7i" */ uintType idx_1; /* line 406 "../lib/scanstri.s7i" */ uintType idx_2; /* line 406 "../lib/scanstri.s7i" */ uintType idx_3; /* line 406 "../lib/scanstri.s7i" */ uintType idx_4; /* line 406 "../lib/scanstri.s7i" */ if ((((o_1935_stri)->mem[(idx_1=(uintType)((*o_1936_pos)-1), idxChk(idx_1>=(o_1935_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '\n')) || /* line 406 "../lib/scanstri.s7i" */ (((o_1935_stri)->mem[(idx_2=(uintType)((*o_1936_pos)-1), idxChk(idx_2>=(o_1935_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]) == ((charType) ' ')) || /* line 406 "../lib/scanstri.s7i" */ (((o_1935_stri)->mem[(idx_3=(uintType)((*o_1936_pos)-1), idxChk(idx_3>=(o_1935_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_3)]) == ((charType) '\t')) || /* line 406 "../lib/scanstri.s7i" */ (((o_1935_stri)->mem[(idx_4=(uintType)((*o_1936_pos)-1), idxChk(idx_4>=(o_1935_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_4)]) == ((charType) '\r'))) { { /* line 407 "../lib/scanstri.s7i" */ uintType idx_1; /* line 407 "../lib/scanstri.s7i" */ uintType idx_2; /* line 407 "../lib/scanstri.s7i" */ uintType idx_3; /* line 407 "../lib/scanstri.s7i" */ uintType idx_4; /* line 407 "../lib/scanstri.s7i" */ do { { /* line 408 "../lib/scanstri.s7i" */ charType tmp_1; /* line 408 "../lib/scanstri.s7i" */ uintType idx_2; /* line 408 "../lib/scanstri.s7i" */ tmp_1=(o_1935_stri)->mem[(idx_2=(uintType)((*o_1936_pos)-1), idxChk(idx_2>=(o_1935_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]; /* line 408 "../lib/scanstri.s7i" */ if (((*o_1937_symbol))->size == ((*o_1937_symbol))->capacity) { /* line 408 "../lib/scanstri.s7i" */ strPush(&((*o_1937_symbol)), tmp_1); /* line 408 "../lib/scanstri.s7i" */ } else { /* line 408 "../lib/scanstri.s7i" */ ((*o_1937_symbol))->mem[((*o_1937_symbol))->size]=tmp_1; /* line 408 "../lib/scanstri.s7i" */ ((*o_1937_symbol))->size++; /* line 408 "../lib/scanstri.s7i" */ } } /* line 409 "../lib/scanstri.s7i" */ ++(*o_1936_pos); /* line 410 "../lib/scanstri.s7i" */ } while (!(((*o_1936_pos) > (o_1938_leng)) || /* line 411 "../lib/scanstri.s7i" */ ((((o_1935_stri)->mem[(idx_1=(uintType)((*o_1936_pos)-1), idxChk(idx_1>=(o_1935_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) != ((charType) '\n')) && /* line 411 "../lib/scanstri.s7i" */ (((o_1935_stri)->mem[(idx_2=(uintType)((*o_1936_pos)-1), idxChk(idx_2>=(o_1935_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]) != ((charType) ' ')) && /* line 411 "../lib/scanstri.s7i" */ (((o_1935_stri)->mem[(idx_3=(uintType)((*o_1936_pos)-1), idxChk(idx_3>=(o_1935_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_3)]) != ((charType) '\t')) && /* line 411 "../lib/scanstri.s7i" */ (((o_1935_stri)->mem[(idx_4=(uintType)((*o_1936_pos)-1), idxChk(idx_4>=(o_1935_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_4)]) != ((charType) '\r'))))); } { /* line 412 "../lib/scanstri.s7i" */ uintType idx_1; /* line 412 "../lib/scanstri.s7i" */ if (((*o_1936_pos) <= (o_1938_leng)) && /* line 412 "../lib/scanstri.s7i" */ (((o_1935_stri)->mem[(idx_1=(uintType)((*o_1936_pos)-1), idxChk(idx_1>=(o_1935_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '\\'))) { { /* line 413 "../lib/scanstri.s7i" */ charType tmp_1; /* line 413 "../lib/scanstri.s7i" */ uintType idx_2; /* line 413 "../lib/scanstri.s7i" */ tmp_1=(o_1935_stri)->mem[(idx_2=(uintType)((*o_1936_pos)-1), idxChk(idx_2>=(o_1935_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]; /* line 413 "../lib/scanstri.s7i" */ if (((*o_1937_symbol))->size == ((*o_1937_symbol))->capacity) { /* line 413 "../lib/scanstri.s7i" */ strPush(&((*o_1937_symbol)), tmp_1); /* line 413 "../lib/scanstri.s7i" */ } else { /* line 413 "../lib/scanstri.s7i" */ ((*o_1937_symbol))->mem[((*o_1937_symbol))->size]=tmp_1; /* line 413 "../lib/scanstri.s7i" */ ((*o_1937_symbol))->size++; /* line 413 "../lib/scanstri.s7i" */ } } /* line 414 "../lib/scanstri.s7i" */ ++(*o_1936_pos); } } } else { /* line 416 "../lib/scanstri.s7i" */ uintType idx_1; /* line 416 "../lib/scanstri.s7i" */ if (o_437_in((o_1935_stri)->mem[(idx_1=(uintType)((*o_1936_pos)-1), idxChk(idx_1>=(o_1935_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[2]))) { /* line 417 "../lib/scanstri.s7i" */ o_1939_backslashPos=strChIPos(o_1935_stri, (charType) '\\', (*o_1936_pos)+1); { /* line 418 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 418 "../lib/scanstri.s7i" */ intType start_2; /* line 418 "../lib/scanstri.s7i" */ intType stop_3; /* line 418 "../lib/scanstri.s7i" */ strCopy(&(o_1940_numberStri), (start_2=*o_1936_pos,stop_3=(o_1939_backslashPos)-1,start_2<1 ? start_2=1 : 0, slice_1.capacity=0, stop_3>=start_2 && (uintType)start_2<=(o_1935_stri)->size ? (slice_1.mem = &(o_1935_stri)->mem[start_2-1], (uintType)stop_3 > (o_1935_stri)->size ? slice_1.size = (o_1935_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)stop_3-(memSizeType)start_2+1)) : (slice_1.mem = NULL,slice_1.size = 0), &slice_1)); } /* line 419 "../lib/scanstri.s7i" */ strAppendTemp(&(*o_1937_symbol), o_1913_getNumber(&(o_1940_numberStri))); /* line 420 "../lib/scanstri.s7i" */ if (((o_1940_numberStri)->size==0 /* "" */)) { /* line 421 "../lib/scanstri.s7i" */ /* line 421 "../lib/scanstri.s7i" */ if (((*o_1937_symbol))->size == ((*o_1937_symbol))->capacity) { /* line 421 "../lib/scanstri.s7i" */ strPush(&((*o_1937_symbol)), (charType) '\\'); /* line 421 "../lib/scanstri.s7i" */ } else { /* line 421 "../lib/scanstri.s7i" */ ((*o_1937_symbol))->mem[((*o_1937_symbol))->size]=(charType) '\\'; /* line 421 "../lib/scanstri.s7i" */ ((*o_1937_symbol))->size++; /* line 421 "../lib/scanstri.s7i" */ } /* line 422 "../lib/scanstri.s7i" */ *o_1936_pos=(o_1939_backslashPos)+1; } else { /* line 424 "../lib/scanstri.s7i" */ *o_1936_pos=(o_1939_backslashPos) - ((intType)((o_1940_numberStri)->size)); } } else { { /* line 427 "../lib/scanstri.s7i" */ charType tmp_1; /* line 427 "../lib/scanstri.s7i" */ uintType idx_2; /* line 427 "../lib/scanstri.s7i" */ tmp_1=(o_1935_stri)->mem[(idx_2=(uintType)((*o_1936_pos)-1), idxChk(idx_2>=(o_1935_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]; /* line 427 "../lib/scanstri.s7i" */ if (((*o_1937_symbol))->size == ((*o_1937_symbol))->capacity) { /* line 427 "../lib/scanstri.s7i" */ strPush(&((*o_1937_symbol)), tmp_1); /* line 427 "../lib/scanstri.s7i" */ } else { /* line 427 "../lib/scanstri.s7i" */ ((*o_1937_symbol))->mem[((*o_1937_symbol))->size]=tmp_1; /* line 427 "../lib/scanstri.s7i" */ ((*o_1937_symbol))->size++; /* line 427 "../lib/scanstri.s7i" */ } } /* line 428 "../lib/scanstri.s7i" */ ++(*o_1936_pos); } } } } /* line 396 "../lib/scanstri.s7i" */ strDestr(o_1940_numberStri); } /* line 1 "no_file" */ /* 932 */ /* line 442 "../lib/scanstri.s7i" */ static striType/*t_15_string*/ o_1941_getCharLiteral (striType/*t_15_string*/ *const o_1942_stri) { /* line 444 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_1943_symbol; /* line 446 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1944_leng=0; /* line 447 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1945_pos=2; /* line 444 "../lib/scanstri.s7i" */ o_1943_symbol=chrStr((charType) '\''); /* "'" */ /* line 449 "../lib/scanstri.s7i" */ o_1944_leng=(intType)((*o_1942_stri)->size); { /* line 450 "../lib/scanstri.s7i" */ uintType idx_1; /* line 450 "../lib/scanstri.s7i" */ uintType idx_2; /* line 450 "../lib/scanstri.s7i" */ if (((o_1945_pos) <= (o_1944_leng)) && /* line 450 "../lib/scanstri.s7i" */ (((*o_1942_stri)->mem[(idx_1=(uintType)((o_1945_pos)-1), idxChk(idx_1>=(*o_1942_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) != ((charType) '\n')) && /* line 450 "../lib/scanstri.s7i" */ (((*o_1942_stri)->mem[(idx_2=(uintType)((o_1945_pos)-1), idxChk(idx_2>=(*o_1942_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]) != ((charType) '\r'))) { { /* line 451 "../lib/scanstri.s7i" */ uintType idx_1; /* line 451 "../lib/scanstri.s7i" */ if (((*o_1942_stri)->mem[(idx_1=(uintType)((o_1945_pos)-1), idxChk(idx_1>=(*o_1942_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '\\')) { { /* line 452 "../lib/scanstri.s7i" */ uintType idx_1; /* line 452 "../lib/scanstri.s7i" */ do { /* line 453 "../lib/scanstri.s7i" */ o_1934_getEscapeSequence(*o_1942_stri, &(o_1945_pos), &(o_1943_symbol)); /* line 454 "../lib/scanstri.s7i" */ } while (!(((*o_1942_stri)->mem[(idx_1=(uintType)((o_1945_pos)-1), idxChk(idx_1>=(*o_1942_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) != ((charType) '\\'))); } } else { { /* line 456 "../lib/scanstri.s7i" */ charType tmp_1; /* line 456 "../lib/scanstri.s7i" */ uintType idx_2; /* line 456 "../lib/scanstri.s7i" */ tmp_1=(*o_1942_stri)->mem[(idx_2=(uintType)((o_1945_pos)-1), idxChk(idx_2>=(*o_1942_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]; /* line 456 "../lib/scanstri.s7i" */ if (((o_1943_symbol))->size == ((o_1943_symbol))->capacity) { /* line 456 "../lib/scanstri.s7i" */ strPush(&((o_1943_symbol)), tmp_1); /* line 456 "../lib/scanstri.s7i" */ } else { /* line 456 "../lib/scanstri.s7i" */ ((o_1943_symbol))->mem[((o_1943_symbol))->size]=tmp_1; /* line 456 "../lib/scanstri.s7i" */ ((o_1943_symbol))->size++; /* line 456 "../lib/scanstri.s7i" */ } } /* line 457 "../lib/scanstri.s7i" */ ++(o_1945_pos); } } { /* line 459 "../lib/scanstri.s7i" */ uintType idx_1; /* line 459 "../lib/scanstri.s7i" */ if (((o_1945_pos) > (o_1944_leng)) || /* line 459 "../lib/scanstri.s7i" */ (((*o_1942_stri)->mem[(idx_1=(uintType)((o_1945_pos)-1), idxChk(idx_1>=(*o_1942_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) != ((charType) '\''))) { { /* line 460 "../lib/scanstri.s7i" */ uintType idx_1; /* line 460 "../lib/scanstri.s7i" */ uintType idx_2; /* line 460 "../lib/scanstri.s7i" */ uintType idx_3; /* line 460 "../lib/scanstri.s7i" */ if ((((*o_1942_stri)->mem[(idx_1=(uintType)((o_1945_pos)-1), idxChk(idx_1>=(*o_1942_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) != ((charType) '\n')) && /* line 460 "../lib/scanstri.s7i" */ (((*o_1942_stri)->mem[(idx_2=(uintType)((o_1945_pos)-1), idxChk(idx_2>=(*o_1942_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]) != ((charType) '\r')) && /* line 460 "../lib/scanstri.s7i" */ (((*o_1942_stri)->mem[(idx_3=(uintType)((o_1945_pos)-1), idxChk(idx_3>=(*o_1942_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_3)]) != ((charType) 4294967295))) { { /* line 461 "../lib/scanstri.s7i" */ uintType idx_1; /* line 461 "../lib/scanstri.s7i" */ uintType idx_2; /* line 461 "../lib/scanstri.s7i" */ uintType idx_3; /* line 461 "../lib/scanstri.s7i" */ do { { /* line 462 "../lib/scanstri.s7i" */ charType tmp_1; /* line 462 "../lib/scanstri.s7i" */ uintType idx_2; /* line 462 "../lib/scanstri.s7i" */ tmp_1=(*o_1942_stri)->mem[(idx_2=(uintType)((o_1945_pos)-1), idxChk(idx_2>=(*o_1942_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]; /* line 462 "../lib/scanstri.s7i" */ if (((o_1943_symbol))->size == ((o_1943_symbol))->capacity) { /* line 462 "../lib/scanstri.s7i" */ strPush(&((o_1943_symbol)), tmp_1); /* line 462 "../lib/scanstri.s7i" */ } else { /* line 462 "../lib/scanstri.s7i" */ ((o_1943_symbol))->mem[((o_1943_symbol))->size]=tmp_1; /* line 462 "../lib/scanstri.s7i" */ ((o_1943_symbol))->size++; /* line 462 "../lib/scanstri.s7i" */ } } /* line 463 "../lib/scanstri.s7i" */ ++(o_1945_pos); /* line 466 "../lib/scanstri.s7i" */ } while (!(((o_1945_pos) > (o_1944_leng)) || /* line 465 "../lib/scanstri.s7i" */ (((*o_1942_stri)->mem[(idx_1=(uintType)((o_1945_pos)-1), idxChk(idx_1>=(*o_1942_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '\'')) || /* line 466 "../lib/scanstri.s7i" */ (((*o_1942_stri)->mem[(idx_2=(uintType)((o_1945_pos)-1), idxChk(idx_2>=(*o_1942_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]) == ((charType) '\n')) || /* line 467 "../lib/scanstri.s7i" */ (((*o_1942_stri)->mem[(idx_3=(uintType)((o_1945_pos)-1), idxChk(idx_3>=(*o_1942_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_3)]) == ((charType) '\r')))); } { /* line 468 "../lib/scanstri.s7i" */ uintType idx_1; /* line 468 "../lib/scanstri.s7i" */ if (((o_1945_pos) <= (o_1944_leng)) && /* line 468 "../lib/scanstri.s7i" */ (((*o_1942_stri)->mem[(idx_1=(uintType)((o_1945_pos)-1), idxChk(idx_1>=(*o_1942_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '\''))) { { /* line 469 "../lib/scanstri.s7i" */ charType tmp_1; /* line 469 "../lib/scanstri.s7i" */ uintType idx_2; /* line 469 "../lib/scanstri.s7i" */ tmp_1=(*o_1942_stri)->mem[(idx_2=(uintType)((o_1945_pos)-1), idxChk(idx_2>=(*o_1942_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]; /* line 469 "../lib/scanstri.s7i" */ if (((o_1943_symbol))->size == ((o_1943_symbol))->capacity) { /* line 469 "../lib/scanstri.s7i" */ strPush(&((o_1943_symbol)), tmp_1); /* line 469 "../lib/scanstri.s7i" */ } else { /* line 469 "../lib/scanstri.s7i" */ ((o_1943_symbol))->mem[((o_1943_symbol))->size]=tmp_1; /* line 469 "../lib/scanstri.s7i" */ ((o_1943_symbol))->size++; /* line 469 "../lib/scanstri.s7i" */ } } /* line 470 "../lib/scanstri.s7i" */ ++(o_1945_pos); } } } } } else { { /* line 474 "../lib/scanstri.s7i" */ charType tmp_1; /* line 474 "../lib/scanstri.s7i" */ uintType idx_2; /* line 474 "../lib/scanstri.s7i" */ tmp_1=(*o_1942_stri)->mem[(idx_2=(uintType)((o_1945_pos)-1), idxChk(idx_2>=(*o_1942_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]; /* line 474 "../lib/scanstri.s7i" */ if (((o_1943_symbol))->size == ((o_1943_symbol))->capacity) { /* line 474 "../lib/scanstri.s7i" */ strPush(&((o_1943_symbol)), tmp_1); /* line 474 "../lib/scanstri.s7i" */ } else { /* line 474 "../lib/scanstri.s7i" */ ((o_1943_symbol))->mem[((o_1943_symbol))->size]=tmp_1; /* line 474 "../lib/scanstri.s7i" */ ((o_1943_symbol))->size++; /* line 474 "../lib/scanstri.s7i" */ } } /* line 475 "../lib/scanstri.s7i" */ ++(o_1945_pos); } } } } { /* line 478 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 478 "../lib/scanstri.s7i" */ strCopy(&(*o_1942_stri), (strTailSlice(*o_1942_stri, o_1945_pos, &slice_1), &slice_1)); } return o_1943_symbol; } /* line 1 "no_file" */ /* 933 */ /* line 490 "../lib/scanstri.s7i" */ static striType/*t_15_string*/ o_1946_getStringLiteral (striType/*t_15_string*/ *const o_1947_stri) { /* line 492 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_1948_symbol; /* line 494 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1949_leng=0; /* line 495 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1950_pos=1; /* line 496 "../lib/scanstri.s7i" */ boolType/*t_13_boolean*/ o_1951_reading_string=1/*TRUE*/; /* line 492 "../lib/scanstri.s7i" */ o_1948_symbol=chrStr((charType) '"'); /* "\"" */ /* line 498 "../lib/scanstri.s7i" */ o_1949_leng=(intType)((*o_1947_stri)->size); /* line 499 "../lib/scanstri.s7i" */ ++(o_1950_pos); /* line 500 "../lib/scanstri.s7i" */ do { { /* line 501 "../lib/scanstri.s7i" */ uintType idx_1; /* line 501 "../lib/scanstri.s7i" */ while (((o_1950_pos) <= (o_1949_leng)) && /* line 501 "../lib/scanstri.s7i" */ (o_437_in((*o_1947_stri)->mem[(idx_1=(uintType)((o_1950_pos)-1), idxChk(idx_1>=(*o_1947_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[4])))) { { /* line 502 "../lib/scanstri.s7i" */ charType tmp_1; /* line 502 "../lib/scanstri.s7i" */ uintType idx_2; /* line 502 "../lib/scanstri.s7i" */ tmp_1=(*o_1947_stri)->mem[(idx_2=(uintType)((o_1950_pos)-1), idxChk(idx_2>=(*o_1947_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]; /* line 502 "../lib/scanstri.s7i" */ if (((o_1948_symbol))->size == ((o_1948_symbol))->capacity) { /* line 502 "../lib/scanstri.s7i" */ strPush(&((o_1948_symbol)), tmp_1); /* line 502 "../lib/scanstri.s7i" */ } else { /* line 502 "../lib/scanstri.s7i" */ ((o_1948_symbol))->mem[((o_1948_symbol))->size]=tmp_1; /* line 502 "../lib/scanstri.s7i" */ ((o_1948_symbol))->size++; /* line 502 "../lib/scanstri.s7i" */ } } /* line 503 "../lib/scanstri.s7i" */ ++(o_1950_pos); } } { /* line 505 "../lib/scanstri.s7i" */ uintType idx_1; /* line 505 "../lib/scanstri.s7i" */ uintType idx_2; /* line 505 "../lib/scanstri.s7i" */ if (((o_1950_pos) > (o_1949_leng)) || /* line 505 "../lib/scanstri.s7i" */ (((*o_1947_stri)->mem[(idx_1=(uintType)((o_1950_pos)-1), idxChk(idx_1>=(*o_1947_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '\n')) || /* line 505 "../lib/scanstri.s7i" */ (((*o_1947_stri)->mem[(idx_2=(uintType)((o_1950_pos)-1), idxChk(idx_2>=(*o_1947_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]) == ((charType) '\r'))) { /* line 506 "../lib/scanstri.s7i" */ o_1951_reading_string=o_25_FALSE; } else { /* line 507 "../lib/scanstri.s7i" */ uintType idx_1; /* line 507 "../lib/scanstri.s7i" */ if (((*o_1947_stri)->mem[(idx_1=(uintType)((o_1950_pos)-1), idxChk(idx_1>=(*o_1947_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '"')) { { /* line 508 "../lib/scanstri.s7i" */ charType tmp_1; /* line 508 "../lib/scanstri.s7i" */ uintType idx_2; /* line 508 "../lib/scanstri.s7i" */ tmp_1=(*o_1947_stri)->mem[(idx_2=(uintType)((o_1950_pos)-1), idxChk(idx_2>=(*o_1947_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]; /* line 508 "../lib/scanstri.s7i" */ if (((o_1948_symbol))->size == ((o_1948_symbol))->capacity) { /* line 508 "../lib/scanstri.s7i" */ strPush(&((o_1948_symbol)), tmp_1); /* line 508 "../lib/scanstri.s7i" */ } else { /* line 508 "../lib/scanstri.s7i" */ ((o_1948_symbol))->mem[((o_1948_symbol))->size]=tmp_1; /* line 508 "../lib/scanstri.s7i" */ ((o_1948_symbol))->size++; /* line 508 "../lib/scanstri.s7i" */ } } /* line 509 "../lib/scanstri.s7i" */ ++(o_1950_pos); { /* line 510 "../lib/scanstri.s7i" */ uintType idx_1; /* line 510 "../lib/scanstri.s7i" */ if (((o_1950_pos) <= (o_1949_leng)) && /* line 510 "../lib/scanstri.s7i" */ (((*o_1947_stri)->mem[(idx_1=(uintType)((o_1950_pos)-1), idxChk(idx_1>=(*o_1947_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '"'))) { { /* line 511 "../lib/scanstri.s7i" */ charType tmp_1; /* line 511 "../lib/scanstri.s7i" */ uintType idx_2; /* line 511 "../lib/scanstri.s7i" */ tmp_1=(*o_1947_stri)->mem[(idx_2=(uintType)((o_1950_pos)-1), idxChk(idx_2>=(*o_1947_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]; /* line 511 "../lib/scanstri.s7i" */ if (((o_1948_symbol))->size == ((o_1948_symbol))->capacity) { /* line 511 "../lib/scanstri.s7i" */ strPush(&((o_1948_symbol)), tmp_1); /* line 511 "../lib/scanstri.s7i" */ } else { /* line 511 "../lib/scanstri.s7i" */ ((o_1948_symbol))->mem[((o_1948_symbol))->size]=tmp_1; /* line 511 "../lib/scanstri.s7i" */ ((o_1948_symbol))->size++; /* line 511 "../lib/scanstri.s7i" */ } } /* line 512 "../lib/scanstri.s7i" */ ++(o_1950_pos); } else { /* line 514 "../lib/scanstri.s7i" */ o_1951_reading_string=o_25_FALSE; } } } else { /* line 516 "../lib/scanstri.s7i" */ uintType idx_1; /* line 516 "../lib/scanstri.s7i" */ if (((*o_1947_stri)->mem[(idx_1=(uintType)((o_1950_pos)-1), idxChk(idx_1>=(*o_1947_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '\\')) { /* line 517 "../lib/scanstri.s7i" */ o_1934_getEscapeSequence(*o_1947_stri, &(o_1950_pos), &(o_1948_symbol)); } else { { /* line 519 "../lib/scanstri.s7i" */ uintType idx_1; /* line 519 "../lib/scanstri.s7i" */ uintType idx_2; /* line 519 "../lib/scanstri.s7i" */ do { { /* line 520 "../lib/scanstri.s7i" */ charType tmp_1; /* line 520 "../lib/scanstri.s7i" */ uintType idx_2; /* line 520 "../lib/scanstri.s7i" */ tmp_1=(*o_1947_stri)->mem[(idx_2=(uintType)((o_1950_pos)-1), idxChk(idx_2>=(*o_1947_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]; /* line 520 "../lib/scanstri.s7i" */ if (((o_1948_symbol))->size == ((o_1948_symbol))->capacity) { /* line 520 "../lib/scanstri.s7i" */ strPush(&((o_1948_symbol)), tmp_1); /* line 520 "../lib/scanstri.s7i" */ } else { /* line 520 "../lib/scanstri.s7i" */ ((o_1948_symbol))->mem[((o_1948_symbol))->size]=tmp_1; /* line 520 "../lib/scanstri.s7i" */ ((o_1948_symbol))->size++; /* line 520 "../lib/scanstri.s7i" */ } } /* line 521 "../lib/scanstri.s7i" */ ++(o_1950_pos); /* line 522 "../lib/scanstri.s7i" */ } while (!(((o_1950_pos) > (o_1949_leng)) || /* line 522 "../lib/scanstri.s7i" */ (((*o_1947_stri)->mem[(idx_1=(uintType)((o_1950_pos)-1), idxChk(idx_1>=(*o_1947_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) >= ((charType) ' ')) || /* line 522 "../lib/scanstri.s7i" */ (((*o_1947_stri)->mem[(idx_2=(uintType)((o_1950_pos)-1), idxChk(idx_2>=(*o_1947_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]) <= ((charType) '~')))); } } } } } /* line 524 "../lib/scanstri.s7i" */ } while (!(!(o_1951_reading_string))); { /* line 525 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 525 "../lib/scanstri.s7i" */ strCopy(&(*o_1947_stri), (strTailSlice(*o_1947_stri, o_1950_pos, &slice_1), &slice_1)); } return o_1948_symbol; } /* line 1 "no_file" */ /* 934 */ /* line 537 "../lib/scanstri.s7i" */ static striType/*t_15_string*/ o_1952_getCStringLiteralText (striType/*t_15_string*/ *const o_1953_stri) { /* line 539 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_1954_symbol; /* line 541 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1955_leng=0; /* line 542 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1956_startPos=2; /* line 543 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1957_pos=2; /* line 544 "../lib/scanstri.s7i" */ boolType/*t_13_boolean*/ o_1958_reading_string=1/*TRUE*/; /* line 545 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1959_charValue=0; /* line 539 "../lib/scanstri.s7i" */ o_1954_symbol=strEmpty(); /* "" */ /* line 547 "../lib/scanstri.s7i" */ o_1955_leng=(intType)((*o_1953_stri)->size); /* line 548 "../lib/scanstri.s7i" */ do { /* line 549 "../lib/scanstri.s7i" */ o_1956_startPos=o_1957_pos; { /* line 550 "../lib/scanstri.s7i" */ uintType idx_1; /* line 550 "../lib/scanstri.s7i" */ while (((o_1957_pos) <= (o_1955_leng)) && /* line 550 "../lib/scanstri.s7i" */ (o_437_in((*o_1953_stri)->mem[(idx_1=(uintType)((o_1957_pos)-1), idxChk(idx_1>=(*o_1953_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[4])))) { /* line 551 "../lib/scanstri.s7i" */ ++(o_1957_pos); } } { /* line 553 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 553 "../lib/scanstri.s7i" */ intType start_2; /* line 553 "../lib/scanstri.s7i" */ intType stop_3; /* line 553 "../lib/scanstri.s7i" */ strAppend(&(o_1954_symbol), (start_2=o_1956_startPos,stop_3=(o_1957_pos)-1,start_2<1 ? start_2=1 : 0, slice_1.capacity=0, stop_3>=start_2 && (uintType)start_2<=(*o_1953_stri)->size ? (slice_1.mem = &(*o_1953_stri)->mem[start_2-1], (uintType)stop_3 > (*o_1953_stri)->size ? slice_1.size = (*o_1953_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)stop_3-(memSizeType)start_2+1)) : (slice_1.mem = NULL,slice_1.size = 0), &slice_1)); } { /* line 554 "../lib/scanstri.s7i" */ uintType idx_1; /* line 554 "../lib/scanstri.s7i" */ uintType idx_2; /* line 554 "../lib/scanstri.s7i" */ if (((o_1957_pos) > (o_1955_leng)) || /* line 554 "../lib/scanstri.s7i" */ (((*o_1953_stri)->mem[(idx_1=(uintType)((o_1957_pos)-1), idxChk(idx_1>=(*o_1953_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '\n')) || /* line 554 "../lib/scanstri.s7i" */ (((*o_1953_stri)->mem[(idx_2=(uintType)((o_1957_pos)-1), idxChk(idx_2>=(*o_1953_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]) == ((charType) '\r'))) { /* line 555 "../lib/scanstri.s7i" */ o_1958_reading_string=o_25_FALSE; } else { /* line 556 "../lib/scanstri.s7i" */ uintType idx_1; /* line 556 "../lib/scanstri.s7i" */ if (((*o_1953_stri)->mem[(idx_1=(uintType)((o_1957_pos)-1), idxChk(idx_1>=(*o_1953_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '"')) { /* line 557 "../lib/scanstri.s7i" */ ++(o_1957_pos); { /* line 558 "../lib/scanstri.s7i" */ uintType idx_1; /* line 558 "../lib/scanstri.s7i" */ if (((o_1957_pos) <= (o_1955_leng)) && /* line 558 "../lib/scanstri.s7i" */ (((*o_1953_stri)->mem[(idx_1=(uintType)((o_1957_pos)-1), idxChk(idx_1>=(*o_1953_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '"'))) { { /* line 559 "../lib/scanstri.s7i" */ charType tmp_1; /* line 559 "../lib/scanstri.s7i" */ uintType idx_2; /* line 559 "../lib/scanstri.s7i" */ tmp_1=(*o_1953_stri)->mem[(idx_2=(uintType)((o_1957_pos)-1), idxChk(idx_2>=(*o_1953_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]; /* line 559 "../lib/scanstri.s7i" */ if (((o_1954_symbol))->size == ((o_1954_symbol))->capacity) { /* line 559 "../lib/scanstri.s7i" */ strPush(&((o_1954_symbol)), tmp_1); /* line 559 "../lib/scanstri.s7i" */ } else { /* line 559 "../lib/scanstri.s7i" */ ((o_1954_symbol))->mem[((o_1954_symbol))->size]=tmp_1; /* line 559 "../lib/scanstri.s7i" */ ((o_1954_symbol))->size++; /* line 559 "../lib/scanstri.s7i" */ } } /* line 560 "../lib/scanstri.s7i" */ ++(o_1957_pos); } else { /* line 562 "../lib/scanstri.s7i" */ o_1958_reading_string=o_25_FALSE; } } } else { /* line 564 "../lib/scanstri.s7i" */ uintType idx_1; /* line 564 "../lib/scanstri.s7i" */ if (((*o_1953_stri)->mem[(idx_1=(uintType)((o_1957_pos)-1), idxChk(idx_1>=(*o_1953_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '\\')) { /* line 565 "../lib/scanstri.s7i" */ ++(o_1957_pos); /* line 566 "../lib/scanstri.s7i" */ if ((o_1957_pos) <= (o_1955_leng)) { /* line 621 "../lib/scanstri.s7i" */ uintType idx_1; /* line 567 "../lib/scanstri.s7i" */ switch ((*o_1953_stri)->mem[(idx_1=(uintType)((o_1957_pos)-1), idxChk(idx_1>=(*o_1953_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) { /* line 568 "../lib/scanstri.s7i" */ case 97: /* line 569 "../lib/scanstri.s7i" */ /* line 569 "../lib/scanstri.s7i" */ if (((o_1954_symbol))->size == ((o_1954_symbol))->capacity) { /* line 569 "../lib/scanstri.s7i" */ strPush(&((o_1954_symbol)), (charType) '\007'); /* line 569 "../lib/scanstri.s7i" */ } else { /* line 569 "../lib/scanstri.s7i" */ ((o_1954_symbol))->mem[((o_1954_symbol))->size]=(charType) '\007'; /* line 569 "../lib/scanstri.s7i" */ ((o_1954_symbol))->size++; /* line 569 "../lib/scanstri.s7i" */ } /* line 570 "../lib/scanstri.s7i" */ ++(o_1957_pos); /* line 570 "../lib/scanstri.s7i" */ break; /* line 571 "../lib/scanstri.s7i" */ case 98: /* line 572 "../lib/scanstri.s7i" */ /* line 572 "../lib/scanstri.s7i" */ if (((o_1954_symbol))->size == ((o_1954_symbol))->capacity) { /* line 572 "../lib/scanstri.s7i" */ strPush(&((o_1954_symbol)), (charType) '\b'); /* line 572 "../lib/scanstri.s7i" */ } else { /* line 572 "../lib/scanstri.s7i" */ ((o_1954_symbol))->mem[((o_1954_symbol))->size]=(charType) '\b'; /* line 572 "../lib/scanstri.s7i" */ ((o_1954_symbol))->size++; /* line 572 "../lib/scanstri.s7i" */ } /* line 573 "../lib/scanstri.s7i" */ ++(o_1957_pos); /* line 573 "../lib/scanstri.s7i" */ break; /* line 574 "../lib/scanstri.s7i" */ case 102: /* line 575 "../lib/scanstri.s7i" */ /* line 575 "../lib/scanstri.s7i" */ if (((o_1954_symbol))->size == ((o_1954_symbol))->capacity) { /* line 575 "../lib/scanstri.s7i" */ strPush(&((o_1954_symbol)), (charType) '\f'); /* line 575 "../lib/scanstri.s7i" */ } else { /* line 575 "../lib/scanstri.s7i" */ ((o_1954_symbol))->mem[((o_1954_symbol))->size]=(charType) '\f'; /* line 575 "../lib/scanstri.s7i" */ ((o_1954_symbol))->size++; /* line 575 "../lib/scanstri.s7i" */ } /* line 576 "../lib/scanstri.s7i" */ ++(o_1957_pos); /* line 576 "../lib/scanstri.s7i" */ break; /* line 577 "../lib/scanstri.s7i" */ case 110: /* line 578 "../lib/scanstri.s7i" */ /* line 578 "../lib/scanstri.s7i" */ if (((o_1954_symbol))->size == ((o_1954_symbol))->capacity) { /* line 578 "../lib/scanstri.s7i" */ strPush(&((o_1954_symbol)), (charType) '\n'); /* line 578 "../lib/scanstri.s7i" */ } else { /* line 578 "../lib/scanstri.s7i" */ ((o_1954_symbol))->mem[((o_1954_symbol))->size]=(charType) '\n'; /* line 578 "../lib/scanstri.s7i" */ ((o_1954_symbol))->size++; /* line 578 "../lib/scanstri.s7i" */ } /* line 579 "../lib/scanstri.s7i" */ ++(o_1957_pos); /* line 579 "../lib/scanstri.s7i" */ break; /* line 580 "../lib/scanstri.s7i" */ case 114: /* line 581 "../lib/scanstri.s7i" */ /* line 581 "../lib/scanstri.s7i" */ if (((o_1954_symbol))->size == ((o_1954_symbol))->capacity) { /* line 581 "../lib/scanstri.s7i" */ strPush(&((o_1954_symbol)), (charType) '\r'); /* line 581 "../lib/scanstri.s7i" */ } else { /* line 581 "../lib/scanstri.s7i" */ ((o_1954_symbol))->mem[((o_1954_symbol))->size]=(charType) '\r'; /* line 581 "../lib/scanstri.s7i" */ ((o_1954_symbol))->size++; /* line 581 "../lib/scanstri.s7i" */ } /* line 582 "../lib/scanstri.s7i" */ ++(o_1957_pos); /* line 582 "../lib/scanstri.s7i" */ break; /* line 583 "../lib/scanstri.s7i" */ case 116: /* line 584 "../lib/scanstri.s7i" */ /* line 584 "../lib/scanstri.s7i" */ if (((o_1954_symbol))->size == ((o_1954_symbol))->capacity) { /* line 584 "../lib/scanstri.s7i" */ strPush(&((o_1954_symbol)), (charType) '\t'); /* line 584 "../lib/scanstri.s7i" */ } else { /* line 584 "../lib/scanstri.s7i" */ ((o_1954_symbol))->mem[((o_1954_symbol))->size]=(charType) '\t'; /* line 584 "../lib/scanstri.s7i" */ ((o_1954_symbol))->size++; /* line 584 "../lib/scanstri.s7i" */ } /* line 585 "../lib/scanstri.s7i" */ ++(o_1957_pos); /* line 585 "../lib/scanstri.s7i" */ break; /* line 586 "../lib/scanstri.s7i" */ case 118: /* line 587 "../lib/scanstri.s7i" */ /* line 587 "../lib/scanstri.s7i" */ if (((o_1954_symbol))->size == ((o_1954_symbol))->capacity) { /* line 587 "../lib/scanstri.s7i" */ strPush(&((o_1954_symbol)), (charType) '\013'); /* line 587 "../lib/scanstri.s7i" */ } else { /* line 587 "../lib/scanstri.s7i" */ ((o_1954_symbol))->mem[((o_1954_symbol))->size]=(charType) '\013'; /* line 587 "../lib/scanstri.s7i" */ ((o_1954_symbol))->size++; /* line 587 "../lib/scanstri.s7i" */ } /* line 588 "../lib/scanstri.s7i" */ ++(o_1957_pos); /* line 588 "../lib/scanstri.s7i" */ break; /* line 589 "../lib/scanstri.s7i" */ case 34: /* line 589 "../lib/scanstri.s7i" */ case 39: /* line 589 "../lib/scanstri.s7i" */ case 63: /* line 589 "../lib/scanstri.s7i" */ case 92: { /* line 590 "../lib/scanstri.s7i" */ charType tmp_1; /* line 590 "../lib/scanstri.s7i" */ uintType idx_2; /* line 590 "../lib/scanstri.s7i" */ tmp_1=(*o_1953_stri)->mem[(idx_2=(uintType)((o_1957_pos)-1), idxChk(idx_2>=(*o_1953_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]; /* line 590 "../lib/scanstri.s7i" */ if (((o_1954_symbol))->size == ((o_1954_symbol))->capacity) { /* line 590 "../lib/scanstri.s7i" */ strPush(&((o_1954_symbol)), tmp_1); /* line 590 "../lib/scanstri.s7i" */ } else { /* line 590 "../lib/scanstri.s7i" */ ((o_1954_symbol))->mem[((o_1954_symbol))->size]=tmp_1; /* line 590 "../lib/scanstri.s7i" */ ((o_1954_symbol))->size++; /* line 590 "../lib/scanstri.s7i" */ } } /* line 591 "../lib/scanstri.s7i" */ ++(o_1957_pos); /* line 591 "../lib/scanstri.s7i" */ break; /* line 32 "../lib/chartype.s7i" */ case 48: /* line 32 "../lib/chartype.s7i" */ case 49: /* line 32 "../lib/chartype.s7i" */ case 50: /* line 32 "../lib/chartype.s7i" */ case 51: /* line 32 "../lib/chartype.s7i" */ case 52: /* line 32 "../lib/chartype.s7i" */ case 53: /* line 32 "../lib/chartype.s7i" */ case 54: /* line 32 "../lib/chartype.s7i" */ case 55: /* line 593 "../lib/scanstri.s7i" */ ++(o_1957_pos); { /* line 594 "../lib/scanstri.s7i" */ uintType idx_1; /* line 594 "../lib/scanstri.s7i" */ if (((o_1957_pos) <= (o_1955_leng)) && /* line 594 "../lib/scanstri.s7i" */ (o_437_in((*o_1953_stri)->mem[(idx_1=(uintType)((o_1957_pos)-1), idxChk(idx_1>=(*o_1953_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[5])))) { /* line 595 "../lib/scanstri.s7i" */ ++(o_1957_pos); { /* line 596 "../lib/scanstri.s7i" */ uintType idx_1; /* line 596 "../lib/scanstri.s7i" */ if (((o_1957_pos) <= (o_1955_leng)) && /* line 596 "../lib/scanstri.s7i" */ (o_437_in((*o_1953_stri)->mem[(idx_1=(uintType)((o_1957_pos)-1), idxChk(idx_1>=(*o_1953_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[5])))) { { /* line 597 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 597 "../lib/scanstri.s7i" */ intType start_2; /* line 597 "../lib/scanstri.s7i" */ intType length_3; /* line 597 "../lib/scanstri.s7i" */ o_1959_charValue=o_52_integer((start_2=(o_1957_pos) - 2L,length_3=3L,start_2<1 ? (length_3>=1 && start_2>1-length_3 ? (length_3+=start_2-1, start_2=1) : (length_3=0)) : 0, slice_1.capacity=0, length_3>=1 && (uintType)start_2<=(*o_1953_stri)->size ? (slice_1.mem = &(*o_1953_stri)->mem[start_2-1], (uintType)length_3 > (*o_1953_stri)->size-(memSizeType)start_2+1 ? slice_1.size = (*o_1953_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)length_3)) : (slice_1.mem = NULL, slice_1.size = 0), &slice_1), 8L); } /* line 598 "../lib/scanstri.s7i" */ ++(o_1957_pos); } else { { /* line 600 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 600 "../lib/scanstri.s7i" */ intType start_2; /* line 600 "../lib/scanstri.s7i" */ intType length_3; /* line 600 "../lib/scanstri.s7i" */ o_1959_charValue=o_52_integer((start_2=(o_1957_pos) - 2L,length_3=2L,start_2<1 ? (length_3>=1 && start_2>1-length_3 ? (length_3+=start_2-1, start_2=1) : (length_3=0)) : 0, slice_1.capacity=0, length_3>=1 && (uintType)start_2<=(*o_1953_stri)->size ? (slice_1.mem = &(*o_1953_stri)->mem[start_2-1], (uintType)length_3 > (*o_1953_stri)->size-(memSizeType)start_2+1 ? slice_1.size = (*o_1953_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)length_3)) : (slice_1.mem = NULL, slice_1.size = 0), &slice_1), 8L); } } } } else { { /* line 603 "../lib/scanstri.s7i" */ uintType idx_1; /* line 603 "../lib/scanstri.s7i" */ struct striStruct stri_2; /* line 603 "../lib/scanstri.s7i" */ o_1959_charValue=o_52_integer((idx_1=(uintType)(((o_1957_pos)-1)-1), idx_1>=(*o_1953_stri)->size ? &str[0] /* "" */ : chrStrMacro((*o_1953_stri)->mem[idx_1],stri_2)), 8L); } } } { /* line 605 "../lib/scanstri.s7i" */ charType tmp_1; /* line 605 "../lib/scanstri.s7i" */ tmp_1=((o_1959_charValue)INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)(o_1959_charValue)); /* line 605 "../lib/scanstri.s7i" */ if (((o_1954_symbol))->size == ((o_1954_symbol))->capacity) { /* line 605 "../lib/scanstri.s7i" */ strPush(&((o_1954_symbol)), tmp_1); /* line 605 "../lib/scanstri.s7i" */ } else { /* line 605 "../lib/scanstri.s7i" */ ((o_1954_symbol))->mem[((o_1954_symbol))->size]=tmp_1; /* line 605 "../lib/scanstri.s7i" */ ((o_1954_symbol))->size++; /* line 605 "../lib/scanstri.s7i" */ } } /* line 605 "../lib/scanstri.s7i" */ break; /* line 606 "../lib/scanstri.s7i" */ case 120: /* line 607 "../lib/scanstri.s7i" */ ++(o_1957_pos); { /* line 608 "../lib/scanstri.s7i" */ uintType idx_1; /* line 608 "../lib/scanstri.s7i" */ if (((o_1957_pos) <= (o_1955_leng)) && /* line 608 "../lib/scanstri.s7i" */ (o_437_in((*o_1953_stri)->mem[(idx_1=(uintType)((o_1957_pos)-1), idxChk(idx_1>=(*o_1953_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[6])))) { /* line 609 "../lib/scanstri.s7i" */ ++(o_1957_pos); { /* line 610 "../lib/scanstri.s7i" */ uintType idx_1; /* line 610 "../lib/scanstri.s7i" */ if (((o_1957_pos) <= (o_1955_leng)) && /* line 610 "../lib/scanstri.s7i" */ (o_437_in((*o_1953_stri)->mem[(idx_1=(uintType)((o_1957_pos)-1), idxChk(idx_1>=(*o_1953_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[6])))) { { /* line 611 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 611 "../lib/scanstri.s7i" */ intType start_2; /* line 611 "../lib/scanstri.s7i" */ intType length_3; /* line 611 "../lib/scanstri.s7i" */ o_1959_charValue=o_52_integer((start_2=(o_1957_pos)-1,length_3=2L,start_2<1 ? (length_3>=1 && start_2>1-length_3 ? (length_3+=start_2-1, start_2=1) : (length_3=0)) : 0, slice_1.capacity=0, length_3>=1 && (uintType)start_2<=(*o_1953_stri)->size ? (slice_1.mem = &(*o_1953_stri)->mem[start_2-1], (uintType)length_3 > (*o_1953_stri)->size-(memSizeType)start_2+1 ? slice_1.size = (*o_1953_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)length_3)) : (slice_1.mem = NULL, slice_1.size = 0), &slice_1), 16L); } /* line 612 "../lib/scanstri.s7i" */ ++(o_1957_pos); } else { { /* line 614 "../lib/scanstri.s7i" */ uintType idx_1; /* line 614 "../lib/scanstri.s7i" */ struct striStruct stri_2; /* line 614 "../lib/scanstri.s7i" */ o_1959_charValue=o_52_integer((idx_1=(uintType)(((o_1957_pos)-1)-1), idx_1>=(*o_1953_stri)->size ? &str[0] /* "" */ : chrStrMacro((*o_1953_stri)->mem[idx_1],stri_2)), 16L); } } } { /* line 616 "../lib/scanstri.s7i" */ charType tmp_1; /* line 616 "../lib/scanstri.s7i" */ tmp_1=((o_1959_charValue)INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)(o_1959_charValue)); /* line 616 "../lib/scanstri.s7i" */ if (((o_1954_symbol))->size == ((o_1954_symbol))->capacity) { /* line 616 "../lib/scanstri.s7i" */ strPush(&((o_1954_symbol)), tmp_1); /* line 616 "../lib/scanstri.s7i" */ } else { /* line 616 "../lib/scanstri.s7i" */ ((o_1954_symbol))->mem[((o_1954_symbol))->size]=tmp_1; /* line 616 "../lib/scanstri.s7i" */ ((o_1954_symbol))->size++; /* line 616 "../lib/scanstri.s7i" */ } } } else { /* line 618 "../lib/scanstri.s7i" */ strAppend(&(o_1954_symbol), &str[31] /* "\\x" */); } } /* line 608 "../lib/scanstri.s7i" */ break; default: /* line 621 "../lib/scanstri.s7i" */ /* line 621 "../lib/scanstri.s7i" */ if (((o_1954_symbol))->size == ((o_1954_symbol))->capacity) { /* line 621 "../lib/scanstri.s7i" */ strPush(&((o_1954_symbol)), (charType) '\\'); /* line 621 "../lib/scanstri.s7i" */ } else { /* line 621 "../lib/scanstri.s7i" */ ((o_1954_symbol))->mem[((o_1954_symbol))->size]=(charType) '\\'; /* line 621 "../lib/scanstri.s7i" */ ((o_1954_symbol))->size++; /* line 621 "../lib/scanstri.s7i" */ } break; } } else { /* line 624 "../lib/scanstri.s7i" */ /* line 624 "../lib/scanstri.s7i" */ if (((o_1954_symbol))->size == ((o_1954_symbol))->capacity) { /* line 624 "../lib/scanstri.s7i" */ strPush(&((o_1954_symbol)), (charType) '\\'); /* line 624 "../lib/scanstri.s7i" */ } else { /* line 624 "../lib/scanstri.s7i" */ ((o_1954_symbol))->mem[((o_1954_symbol))->size]=(charType) '\\'; /* line 624 "../lib/scanstri.s7i" */ ((o_1954_symbol))->size++; /* line 624 "../lib/scanstri.s7i" */ } } } else { { /* line 627 "../lib/scanstri.s7i" */ uintType idx_1; /* line 627 "../lib/scanstri.s7i" */ uintType idx_2; /* line 627 "../lib/scanstri.s7i" */ do { { /* line 628 "../lib/scanstri.s7i" */ charType tmp_1; /* line 628 "../lib/scanstri.s7i" */ uintType idx_2; /* line 628 "../lib/scanstri.s7i" */ tmp_1=(*o_1953_stri)->mem[(idx_2=(uintType)((o_1957_pos)-1), idxChk(idx_2>=(*o_1953_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]; /* line 628 "../lib/scanstri.s7i" */ if (((o_1954_symbol))->size == ((o_1954_symbol))->capacity) { /* line 628 "../lib/scanstri.s7i" */ strPush(&((o_1954_symbol)), tmp_1); /* line 628 "../lib/scanstri.s7i" */ } else { /* line 628 "../lib/scanstri.s7i" */ ((o_1954_symbol))->mem[((o_1954_symbol))->size]=tmp_1; /* line 628 "../lib/scanstri.s7i" */ ((o_1954_symbol))->size++; /* line 628 "../lib/scanstri.s7i" */ } } /* line 629 "../lib/scanstri.s7i" */ ++(o_1957_pos); /* line 630 "../lib/scanstri.s7i" */ } while (!(((o_1957_pos) > (o_1955_leng)) || /* line 630 "../lib/scanstri.s7i" */ (((*o_1953_stri)->mem[(idx_1=(uintType)((o_1957_pos)-1), idxChk(idx_1>=(*o_1953_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) >= ((charType) ' ')) || /* line 630 "../lib/scanstri.s7i" */ (((*o_1953_stri)->mem[(idx_2=(uintType)((o_1957_pos)-1), idxChk(idx_2>=(*o_1953_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]) <= ((charType) '~')))); } } } } } /* line 632 "../lib/scanstri.s7i" */ } while (!(!(o_1958_reading_string))); { /* line 633 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 633 "../lib/scanstri.s7i" */ strCopy(&(*o_1953_stri), (strTailSlice(*o_1953_stri, o_1957_pos, &slice_1), &slice_1)); } return o_1954_symbol; } /* line 1 "no_file" */ /* 935 */ /* line 646 "../lib/scanstri.s7i" */ static striType/*t_15_string*/ o_1960_getName (striType/*t_15_string*/ *const o_1961_stri) { /* line 648 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_1962_symbol; /* line 650 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1963_leng=0; /* line 651 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1964_pos=1; /* line 648 "../lib/scanstri.s7i" */ o_1962_symbol=strEmpty(); /* "" */ /* line 653 "../lib/scanstri.s7i" */ o_1963_leng=(intType)((*o_1961_stri)->size); { /* line 654 "../lib/scanstri.s7i" */ uintType idx_1; /* line 654 "../lib/scanstri.s7i" */ if (((o_1964_pos) <= (o_1963_leng)) && /* line 654 "../lib/scanstri.s7i" */ (o_437_in((*o_1961_stri)->mem[(idx_1=(uintType)((o_1964_pos)-1), idxChk(idx_1>=(*o_1961_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[7])))) { /* line 655 "../lib/scanstri.s7i" */ ++(o_1964_pos); { /* line 656 "../lib/scanstri.s7i" */ uintType idx_1; /* line 656 "../lib/scanstri.s7i" */ while (((o_1964_pos) <= (o_1963_leng)) && /* line 656 "../lib/scanstri.s7i" */ (o_437_in((*o_1961_stri)->mem[(idx_1=(uintType)((o_1964_pos)-1), idxChk(idx_1>=(*o_1961_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[8])))) { /* line 657 "../lib/scanstri.s7i" */ ++(o_1964_pos); } } { /* line 659 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 659 "../lib/scanstri.s7i" */ strCopy(&(o_1962_symbol), (strHeadSlice(*o_1961_stri, (o_1964_pos)-1, &slice_1), &slice_1)); } { /* line 660 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 660 "../lib/scanstri.s7i" */ strCopy(&(*o_1961_stri), (strTailSlice(*o_1961_stri, o_1964_pos, &slice_1), &slice_1)); } } } return o_1962_symbol; } /* line 1 "no_file" */ /* 936 */ /* line 672 "../lib/scanstri.s7i" */ static void/*t_1_void*/ o_1965_skipSpace (striType/*t_15_string*/ *const o_1966_stri) { /* line 674 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1967_leng=0; /* line 675 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1968_pos=1; /* line 677 "../lib/scanstri.s7i" */ o_1967_leng=(intType)((*o_1966_stri)->size); /* line 678 "../lib/scanstri.s7i" */ if (((o_1967_leng) >= (1L)) && /* line 678 "../lib/scanstri.s7i" */ (((*o_1966_stri)->mem[(idxChk((*o_1966_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]) == ((charType) ' '))) { { /* line 679 "../lib/scanstri.s7i" */ uintType idx_1; /* line 679 "../lib/scanstri.s7i" */ do { /* line 680 "../lib/scanstri.s7i" */ ++(o_1968_pos); /* line 681 "../lib/scanstri.s7i" */ } while (!(((o_1968_pos) > (o_1967_leng)) || /* line 681 "../lib/scanstri.s7i" */ (((*o_1966_stri)->mem[(idx_1=(uintType)((o_1968_pos)-1), idxChk(idx_1>=(*o_1966_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) != ((charType) ' ')))); } { /* line 682 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 682 "../lib/scanstri.s7i" */ strCopy(&(*o_1966_stri), (strTailSlice(*o_1966_stri, o_1968_pos, &slice_1), &slice_1)); } } } /* line 1 "no_file" */ /* 937 */ /* line 694 "../lib/scanstri.s7i" */ static void/*t_1_void*/ o_1969_skipSpaceOrTab (striType/*t_15_string*/ *const o_1970_stri) { /* line 696 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1971_leng=0; /* line 697 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1972_pos=1; /* line 699 "../lib/scanstri.s7i" */ o_1971_leng=(intType)((*o_1970_stri)->size); /* line 700 "../lib/scanstri.s7i" */ if (((o_1971_leng) >= (1L)) && /* line 700 "../lib/scanstri.s7i" */ ((((*o_1970_stri)->mem[(idxChk((*o_1970_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]) == ((charType) ' ')) || /* line 700 "../lib/scanstri.s7i" */ (((*o_1970_stri)->mem[(idxChk((*o_1970_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]) == ((charType) '\t')))) { { /* line 701 "../lib/scanstri.s7i" */ uintType idx_1; /* line 701 "../lib/scanstri.s7i" */ uintType idx_2; /* line 701 "../lib/scanstri.s7i" */ do { /* line 702 "../lib/scanstri.s7i" */ ++(o_1972_pos); /* line 703 "../lib/scanstri.s7i" */ } while (!(((o_1972_pos) > (o_1971_leng)) || /* line 703 "../lib/scanstri.s7i" */ ((((*o_1970_stri)->mem[(idx_1=(uintType)((o_1972_pos)-1), idxChk(idx_1>=(*o_1970_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) != ((charType) ' ')) && /* line 703 "../lib/scanstri.s7i" */ (((*o_1970_stri)->mem[(idx_2=(uintType)((o_1972_pos)-1), idxChk(idx_2>=(*o_1970_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]) != ((charType) '\t'))))); } { /* line 704 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 704 "../lib/scanstri.s7i" */ strCopy(&(*o_1970_stri), (strTailSlice(*o_1970_stri, o_1972_pos, &slice_1), &slice_1)); } } } /* line 1 "no_file" */ /* 938 */ /* line 716 "../lib/scanstri.s7i" */ static void/*t_1_void*/ o_1973_skipWhiteSpace (striType/*t_15_string*/ *const o_1974_stri) { /* line 718 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1975_leng=0; /* line 719 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1976_pos=1; /* line 721 "../lib/scanstri.s7i" */ o_1975_leng=(intType)((*o_1974_stri)->size); { /* line 722 "../lib/scanstri.s7i" */ uintType idx_1; /* line 722 "../lib/scanstri.s7i" */ if (((o_1976_pos) <= (o_1975_leng)) && /* line 722 "../lib/scanstri.s7i" */ (o_437_in((*o_1974_stri)->mem[(idx_1=(uintType)((o_1976_pos)-1), idxChk(idx_1>=(*o_1974_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[9])))) { { /* line 723 "../lib/scanstri.s7i" */ uintType idx_1; /* line 723 "../lib/scanstri.s7i" */ do { /* line 724 "../lib/scanstri.s7i" */ ++(o_1976_pos); /* line 725 "../lib/scanstri.s7i" */ } while (!(((o_1976_pos) > (o_1975_leng)) || /* line 725 "../lib/scanstri.s7i" */ (o_440_not((*o_1974_stri)->mem[(idx_1=(uintType)((o_1976_pos)-1), idxChk(idx_1>=(*o_1974_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[9]))))); } { /* line 726 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 726 "../lib/scanstri.s7i" */ strCopy(&(*o_1974_stri), (strTailSlice(*o_1974_stri, o_1976_pos, &slice_1), &slice_1)); } } } } /* line 1 "no_file" */ /* 939 */ /* line 740 "../lib/scanstri.s7i" */ static striType/*t_15_string*/ o_1977_getWhiteSpace (striType/*t_15_string*/ *const o_1978_stri) { /* line 742 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_1979_symbol; /* line 744 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1980_leng=0; /* line 745 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1981_pos=1; /* line 742 "../lib/scanstri.s7i" */ o_1979_symbol=strEmpty(); /* "" */ /* line 747 "../lib/scanstri.s7i" */ o_1980_leng=(intType)((*o_1978_stri)->size); { /* line 748 "../lib/scanstri.s7i" */ uintType idx_1; /* line 748 "../lib/scanstri.s7i" */ if (((o_1981_pos) <= (o_1980_leng)) && /* line 748 "../lib/scanstri.s7i" */ (o_437_in((*o_1978_stri)->mem[(idx_1=(uintType)((o_1981_pos)-1), idxChk(idx_1>=(*o_1978_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[9])))) { { /* line 749 "../lib/scanstri.s7i" */ uintType idx_1; /* line 749 "../lib/scanstri.s7i" */ do { /* line 750 "../lib/scanstri.s7i" */ ++(o_1981_pos); /* line 751 "../lib/scanstri.s7i" */ } while (!(((o_1981_pos) > (o_1980_leng)) || /* line 751 "../lib/scanstri.s7i" */ (o_440_not((*o_1978_stri)->mem[(idx_1=(uintType)((o_1981_pos)-1), idxChk(idx_1>=(*o_1978_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[9]))))); } { /* line 752 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 752 "../lib/scanstri.s7i" */ strCopy(&(o_1979_symbol), (strHeadSlice(*o_1978_stri, (o_1981_pos)-1, &slice_1), &slice_1)); } { /* line 753 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 753 "../lib/scanstri.s7i" */ strCopy(&(*o_1978_stri), (strTailSlice(*o_1978_stri, o_1981_pos, &slice_1), &slice_1)); } } } return o_1979_symbol; } /* line 1 "no_file" */ /* 940 */ /* line 768 "../lib/scanstri.s7i" */ static striType/*t_15_string*/ o_1982_getWord (striType/*t_15_string*/ *const o_1983_stri) { /* line 770 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_1984_symbol; /* line 772 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1985_leng=0; /* line 773 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1986_start=1; /* line 774 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1987_pos=1; /* line 770 "../lib/scanstri.s7i" */ o_1984_symbol=strEmpty(); /* "" */ /* line 776 "../lib/scanstri.s7i" */ o_1985_leng=(intType)((*o_1983_stri)->size); { /* line 777 "../lib/scanstri.s7i" */ uintType idx_1; /* line 777 "../lib/scanstri.s7i" */ while (((o_1986_start) <= (o_1985_leng)) && /* line 777 "../lib/scanstri.s7i" */ (o_437_in((*o_1983_stri)->mem[(idx_1=(uintType)((o_1986_start)-1), idxChk(idx_1>=(*o_1983_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[9])))) { /* line 778 "../lib/scanstri.s7i" */ ++(o_1986_start); } } /* line 780 "../lib/scanstri.s7i" */ if ((o_1986_start) <= (o_1985_leng)) { /* line 781 "../lib/scanstri.s7i" */ o_1987_pos=o_1986_start; { /* line 782 "../lib/scanstri.s7i" */ uintType idx_1; /* line 782 "../lib/scanstri.s7i" */ do { /* line 783 "../lib/scanstri.s7i" */ ++(o_1987_pos); /* line 784 "../lib/scanstri.s7i" */ } while (!(((o_1987_pos) > (o_1985_leng)) || /* line 784 "../lib/scanstri.s7i" */ (o_437_in((*o_1983_stri)->mem[(idx_1=(uintType)((o_1987_pos)-1), idxChk(idx_1>=(*o_1983_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[9]))))); } { /* line 785 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 785 "../lib/scanstri.s7i" */ intType start_2; /* line 785 "../lib/scanstri.s7i" */ intType stop_3; /* line 785 "../lib/scanstri.s7i" */ strCopy(&(o_1984_symbol), (start_2=o_1986_start,stop_3=(o_1987_pos)-1,start_2<1 ? start_2=1 : 0, slice_1.capacity=0, stop_3>=start_2 && (uintType)start_2<=(*o_1983_stri)->size ? (slice_1.mem = &(*o_1983_stri)->mem[start_2-1], (uintType)stop_3 > (*o_1983_stri)->size ? slice_1.size = (*o_1983_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)stop_3-(memSizeType)start_2+1)) : (slice_1.mem = NULL,slice_1.size = 0), &slice_1)); } { /* line 786 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 786 "../lib/scanstri.s7i" */ strCopy(&(*o_1983_stri), (strTailSlice(*o_1983_stri, o_1987_pos, &slice_1), &slice_1)); } } else { /* line 788 "../lib/scanstri.s7i" */ strCopy(&(*o_1983_stri), &str[0] /* "" */); } return o_1984_symbol; } /* line 1 "no_file" */ /* 941 */ /* line 800 "../lib/scanstri.s7i" */ static void/*t_1_void*/ o_1988_skipLine (striType/*t_15_string*/ *const o_1989_stri) { /* line 802 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1990_pos=0; /* line 804 "../lib/scanstri.s7i" */ o_1990_pos=strChPos(*o_1989_stri, (charType) '\n'); /* line 805 "../lib/scanstri.s7i" */ if ((o_1990_pos) != (0L)) { { /* line 806 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 806 "../lib/scanstri.s7i" */ strCopy(&(*o_1989_stri), (strTailSlice(*o_1989_stri, o_1990_pos, &slice_1), &slice_1)); } } else { /* line 808 "../lib/scanstri.s7i" */ strCopy(&(*o_1989_stri), &str[0] /* "" */); } } /* line 1 "no_file" */ /* 942 */ /* line 823 "../lib/scanstri.s7i" */ static striType/*t_15_string*/ o_1991_getLine (striType/*t_15_string*/ *const o_1992_stri) { /* line 825 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_1993_symbol; /* line 827 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1994_pos=0; /* line 825 "../lib/scanstri.s7i" */ o_1993_symbol=strEmpty(); /* "" */ /* line 829 "../lib/scanstri.s7i" */ o_1994_pos=strChPos(*o_1992_stri, (charType) '\n'); /* line 830 "../lib/scanstri.s7i" */ if ((o_1994_pos) != (0L)) { { /* line 831 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 831 "../lib/scanstri.s7i" */ strCopy(&(o_1993_symbol), (strHeadSlice(*o_1992_stri, (o_1994_pos)-1, &slice_1), &slice_1)); } { /* line 832 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 832 "../lib/scanstri.s7i" */ strCopy(&(*o_1992_stri), (strTailSlice(*o_1992_stri, o_1994_pos, &slice_1), &slice_1)); } } else { /* line 834 "../lib/scanstri.s7i" */ strCopy(&(o_1993_symbol), *o_1992_stri); /* line 835 "../lib/scanstri.s7i" */ strCopy(&(*o_1992_stri), &str[0] /* "" */); } return o_1993_symbol; } /* line 1 "no_file" */ /* 943 */ /* line 853 "../lib/scanstri.s7i" */ static striType/*t_15_string*/ o_1995_getSymbolOrComment (striType/*t_15_string*/ *const o_1996_stri) { /* line 855 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_1997_symbol; /* line 857 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1998_leng=0; /* line 858 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_1999_start=1; /* line 859 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_2000_pos=0; /* line 855 "../lib/scanstri.s7i" */ o_1997_symbol=strEmpty(); /* "" */ /* line 861 "../lib/scanstri.s7i" */ o_1998_leng=(intType)((*o_1996_stri)->size); { /* line 862 "../lib/scanstri.s7i" */ uintType idx_1; /* line 862 "../lib/scanstri.s7i" */ while (((o_1999_start) <= (o_1998_leng)) && /* line 862 "../lib/scanstri.s7i" */ (o_437_in((*o_1996_stri)->mem[(idx_1=(uintType)((o_1999_start)-1), idxChk(idx_1>=(*o_1996_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[9])))) { /* line 863 "../lib/scanstri.s7i" */ ++(o_1999_start); } } /* line 865 "../lib/scanstri.s7i" */ if ((o_1999_start) <= (o_1998_leng)) { /* line 905 "../lib/scanstri.s7i" */ uintType idx_1; /* line 866 "../lib/scanstri.s7i" */ o_2000_pos=o_1999_start; /* line 867 "../lib/scanstri.s7i" */ switch ((*o_1996_stri)->mem[(idx_1=(uintType)((o_2000_pos)-1), idxChk(idx_1>=(*o_1996_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) { /* line 48 "../lib/chartype.s7i" */ case 65: /* line 48 "../lib/chartype.s7i" */ case 66: /* line 48 "../lib/chartype.s7i" */ case 67: /* line 48 "../lib/chartype.s7i" */ case 68: /* line 48 "../lib/chartype.s7i" */ case 69: /* line 48 "../lib/chartype.s7i" */ case 70: /* line 48 "../lib/chartype.s7i" */ case 71: /* line 48 "../lib/chartype.s7i" */ case 72: /* line 48 "../lib/chartype.s7i" */ case 73: /* line 48 "../lib/chartype.s7i" */ case 74: /* line 48 "../lib/chartype.s7i" */ case 75: /* line 48 "../lib/chartype.s7i" */ case 76: /* line 48 "../lib/chartype.s7i" */ case 77: /* line 48 "../lib/chartype.s7i" */ case 78: /* line 48 "../lib/chartype.s7i" */ case 79: /* line 48 "../lib/chartype.s7i" */ case 80: /* line 48 "../lib/chartype.s7i" */ case 81: /* line 48 "../lib/chartype.s7i" */ case 82: /* line 48 "../lib/chartype.s7i" */ case 83: /* line 48 "../lib/chartype.s7i" */ case 84: /* line 48 "../lib/chartype.s7i" */ case 85: /* line 48 "../lib/chartype.s7i" */ case 86: /* line 48 "../lib/chartype.s7i" */ case 87: /* line 48 "../lib/chartype.s7i" */ case 88: /* line 48 "../lib/chartype.s7i" */ case 89: /* line 48 "../lib/chartype.s7i" */ case 90: /* line 48 "../lib/chartype.s7i" */ case 95: /* line 48 "../lib/chartype.s7i" */ case 97: /* line 48 "../lib/chartype.s7i" */ case 98: /* line 48 "../lib/chartype.s7i" */ case 99: /* line 48 "../lib/chartype.s7i" */ case 100: /* line 48 "../lib/chartype.s7i" */ case 101: /* line 48 "../lib/chartype.s7i" */ case 102: /* line 48 "../lib/chartype.s7i" */ case 103: /* line 48 "../lib/chartype.s7i" */ case 104: /* line 48 "../lib/chartype.s7i" */ case 105: /* line 48 "../lib/chartype.s7i" */ case 106: /* line 48 "../lib/chartype.s7i" */ case 107: /* line 48 "../lib/chartype.s7i" */ case 108: /* line 48 "../lib/chartype.s7i" */ case 109: /* line 48 "../lib/chartype.s7i" */ case 110: /* line 48 "../lib/chartype.s7i" */ case 111: /* line 48 "../lib/chartype.s7i" */ case 112: /* line 48 "../lib/chartype.s7i" */ case 113: /* line 48 "../lib/chartype.s7i" */ case 114: /* line 48 "../lib/chartype.s7i" */ case 115: /* line 48 "../lib/chartype.s7i" */ case 116: /* line 48 "../lib/chartype.s7i" */ case 117: /* line 48 "../lib/chartype.s7i" */ case 118: /* line 48 "../lib/chartype.s7i" */ case 119: /* line 48 "../lib/chartype.s7i" */ case 120: /* line 48 "../lib/chartype.s7i" */ case 121: /* line 48 "../lib/chartype.s7i" */ case 122: { /* line 869 "../lib/scanstri.s7i" */ uintType idx_1; /* line 869 "../lib/scanstri.s7i" */ do { /* line 870 "../lib/scanstri.s7i" */ ++(o_2000_pos); /* line 871 "../lib/scanstri.s7i" */ } while (!(((o_2000_pos) > (o_1998_leng)) || /* line 871 "../lib/scanstri.s7i" */ (o_440_not((*o_1996_stri)->mem[(idx_1=(uintType)((o_2000_pos)-1), idxChk(idx_1>=(*o_1996_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[8]))))); } { /* line 872 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 872 "../lib/scanstri.s7i" */ intType start_2; /* line 872 "../lib/scanstri.s7i" */ intType stop_3; /* line 872 "../lib/scanstri.s7i" */ strCopy(&(o_1997_symbol), (start_2=o_1999_start,stop_3=(o_2000_pos)-1,start_2<1 ? start_2=1 : 0, slice_1.capacity=0, stop_3>=start_2 && (uintType)start_2<=(*o_1996_stri)->size ? (slice_1.mem = &(*o_1996_stri)->mem[start_2-1], (uintType)stop_3 > (*o_1996_stri)->size ? slice_1.size = (*o_1996_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)stop_3-(memSizeType)start_2+1)) : (slice_1.mem = NULL,slice_1.size = 0), &slice_1)); } { /* line 873 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 873 "../lib/scanstri.s7i" */ strCopy(&(*o_1996_stri), (strTailSlice(*o_1996_stri, o_2000_pos, &slice_1), &slice_1)); } /* line 873 "../lib/scanstri.s7i" */ break; /* line 34 "../lib/chartype.s7i" */ case 33: /* line 34 "../lib/chartype.s7i" */ case 36: /* line 34 "../lib/chartype.s7i" */ case 37: /* line 34 "../lib/chartype.s7i" */ case 38: /* line 34 "../lib/chartype.s7i" */ case 42: /* line 34 "../lib/chartype.s7i" */ case 43: /* line 34 "../lib/chartype.s7i" */ case 44: /* line 34 "../lib/chartype.s7i" */ case 45: /* line 34 "../lib/chartype.s7i" */ case 46: /* line 34 "../lib/chartype.s7i" */ case 47: /* line 34 "../lib/chartype.s7i" */ case 58: /* line 34 "../lib/chartype.s7i" */ case 59: /* line 34 "../lib/chartype.s7i" */ case 60: /* line 34 "../lib/chartype.s7i" */ case 61: /* line 34 "../lib/chartype.s7i" */ case 62: /* line 34 "../lib/chartype.s7i" */ case 63: /* line 34 "../lib/chartype.s7i" */ case 64: /* line 34 "../lib/chartype.s7i" */ case 92: /* line 34 "../lib/chartype.s7i" */ case 94: /* line 34 "../lib/chartype.s7i" */ case 96: /* line 34 "../lib/chartype.s7i" */ case 124: /* line 34 "../lib/chartype.s7i" */ case 126: { /* line 875 "../lib/scanstri.s7i" */ uintType idx_1; /* line 875 "../lib/scanstri.s7i" */ do { /* line 876 "../lib/scanstri.s7i" */ ++(o_2000_pos); /* line 877 "../lib/scanstri.s7i" */ } while (!(((o_2000_pos) > (o_1998_leng)) || /* line 877 "../lib/scanstri.s7i" */ (o_440_not((*o_1996_stri)->mem[(idx_1=(uintType)((o_2000_pos)-1), idxChk(idx_1>=(*o_1996_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[10]))))); } { /* line 878 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 878 "../lib/scanstri.s7i" */ intType start_2; /* line 878 "../lib/scanstri.s7i" */ intType stop_3; /* line 878 "../lib/scanstri.s7i" */ strCopy(&(o_1997_symbol), (start_2=o_1999_start,stop_3=(o_2000_pos)-1,start_2<1 ? start_2=1 : 0, slice_1.capacity=0, stop_3>=start_2 && (uintType)start_2<=(*o_1996_stri)->size ? (slice_1.mem = &(*o_1996_stri)->mem[start_2-1], (uintType)stop_3 > (*o_1996_stri)->size ? slice_1.size = (*o_1996_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)stop_3-(memSizeType)start_2+1)) : (slice_1.mem = NULL,slice_1.size = 0), &slice_1)); } { /* line 879 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 879 "../lib/scanstri.s7i" */ strCopy(&(*o_1996_stri), (strTailSlice(*o_1996_stri, o_2000_pos, &slice_1), &slice_1)); } /* line 879 "../lib/scanstri.s7i" */ break; /* line 46 "../lib/chartype.s7i" */ case 40: { /* line 881 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 881 "../lib/scanstri.s7i" */ strCopy(&(*o_1996_stri), (strTailSlice(*o_1996_stri, (o_2000_pos)+1, &slice_1), &slice_1)); } { /* line 882 "../lib/scanstri.s7i" */ uintType idx_1; /* line 882 "../lib/scanstri.s7i" */ if (((o_2000_pos) <= ((intType)((*o_1996_stri)->size))) && /* line 882 "../lib/scanstri.s7i" */ (((*o_1996_stri)->mem[(idx_1=(uintType)((o_2000_pos)-1), idxChk(idx_1>=(*o_1996_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '*'))) { { /* line 883 "../lib/scanstri.s7i" */ striType old_stri=o_1997_symbol; /* line 883 "../lib/scanstri.s7i" */ o_1997_symbol=o_1889_getComment(o_1996_stri); /* line 883 "../lib/scanstri.s7i" */ strDestr(old_stri); } } else { /* line 885 "../lib/scanstri.s7i" */ strCopy(&(o_1997_symbol), &str[32] /* "(" */); } } /* line 882 "../lib/scanstri.s7i" */ break; /* line 47 "../lib/chartype.s7i" */ case 41: /* line 47 "../lib/chartype.s7i" */ case 91: /* line 47 "../lib/chartype.s7i" */ case 93: /* line 47 "../lib/chartype.s7i" */ case 123: /* line 47 "../lib/chartype.s7i" */ case 125: { /* line 888 "../lib/scanstri.s7i" */ uintType idx_1; /* line 888 "../lib/scanstri.s7i" */ struct striStruct stri_2; /* line 888 "../lib/scanstri.s7i" */ strCopy(&(o_1997_symbol), (idx_1=(uintType)((o_2000_pos)-1), idx_1>=(*o_1996_stri)->size ? &str[0] /* "" */ : chrStrMacro((*o_1996_stri)->mem[idx_1],stri_2))); } { /* line 889 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 889 "../lib/scanstri.s7i" */ strCopy(&(*o_1996_stri), (strTailSlice(*o_1996_stri, (o_2000_pos)+1, &slice_1), &slice_1)); } /* line 889 "../lib/scanstri.s7i" */ break; /* line 30 "../lib/chartype.s7i" */ case 48: /* line 30 "../lib/chartype.s7i" */ case 49: /* line 30 "../lib/chartype.s7i" */ case 50: /* line 30 "../lib/chartype.s7i" */ case 51: /* line 30 "../lib/chartype.s7i" */ case 52: /* line 30 "../lib/chartype.s7i" */ case 53: /* line 30 "../lib/chartype.s7i" */ case 54: /* line 30 "../lib/chartype.s7i" */ case 55: /* line 30 "../lib/chartype.s7i" */ case 56: /* line 30 "../lib/chartype.s7i" */ case 57: { /* line 891 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 891 "../lib/scanstri.s7i" */ strCopy(&(*o_1996_stri), (strTailSlice(*o_1996_stri, o_2000_pos, &slice_1), &slice_1)); } { /* line 892 "../lib/scanstri.s7i" */ striType old_stri=o_1997_symbol; /* line 892 "../lib/scanstri.s7i" */ o_1997_symbol=o_1913_getNumber(o_1996_stri); /* line 892 "../lib/scanstri.s7i" */ strDestr(old_stri); } /* line 892 "../lib/scanstri.s7i" */ break; /* line 42 "../lib/chartype.s7i" */ case 39: { /* line 894 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 894 "../lib/scanstri.s7i" */ strCopy(&(*o_1996_stri), (strTailSlice(*o_1996_stri, o_2000_pos, &slice_1), &slice_1)); } { /* line 895 "../lib/scanstri.s7i" */ striType old_stri=o_1997_symbol; /* line 895 "../lib/scanstri.s7i" */ o_1997_symbol=o_1941_getCharLiteral(o_1996_stri); /* line 895 "../lib/scanstri.s7i" */ strDestr(old_stri); } /* line 895 "../lib/scanstri.s7i" */ break; /* line 43 "../lib/chartype.s7i" */ case 34: { /* line 897 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 897 "../lib/scanstri.s7i" */ strCopy(&(*o_1996_stri), (strTailSlice(*o_1996_stri, o_2000_pos, &slice_1), &slice_1)); } { /* line 898 "../lib/scanstri.s7i" */ striType old_stri=o_1997_symbol; /* line 898 "../lib/scanstri.s7i" */ o_1997_symbol=o_1946_getStringLiteral(o_1996_stri); /* line 898 "../lib/scanstri.s7i" */ strDestr(old_stri); } /* line 898 "../lib/scanstri.s7i" */ break; /* line 44 "../lib/chartype.s7i" */ case 35: { /* line 900 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 900 "../lib/scanstri.s7i" */ strCopy(&(*o_1996_stri), (strTailSlice(*o_1996_stri, o_2000_pos, &slice_1), &slice_1)); } { /* line 901 "../lib/scanstri.s7i" */ striType old_stri=o_1997_symbol; /* line 901 "../lib/scanstri.s7i" */ o_1997_symbol=o_1898_getLineComment(o_1996_stri); /* line 901 "../lib/scanstri.s7i" */ strDestr(old_stri); } /* line 901 "../lib/scanstri.s7i" */ break; default: /* line 903 "../lib/scanstri.s7i" */ ++(o_2000_pos); { /* line 904 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 904 "../lib/scanstri.s7i" */ intType start_2; /* line 904 "../lib/scanstri.s7i" */ intType stop_3; /* line 904 "../lib/scanstri.s7i" */ strCopy(&(o_1997_symbol), (start_2=o_1999_start,stop_3=(o_2000_pos)-1,start_2<1 ? start_2=1 : 0, slice_1.capacity=0, stop_3>=start_2 && (uintType)start_2<=(*o_1996_stri)->size ? (slice_1.mem = &(*o_1996_stri)->mem[start_2-1], (uintType)stop_3 > (*o_1996_stri)->size ? slice_1.size = (*o_1996_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)stop_3-(memSizeType)start_2+1)) : (slice_1.mem = NULL,slice_1.size = 0), &slice_1)); } { /* line 905 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 905 "../lib/scanstri.s7i" */ strCopy(&(*o_1996_stri), (strTailSlice(*o_1996_stri, o_2000_pos, &slice_1), &slice_1)); } break; } } else { /* line 908 "../lib/scanstri.s7i" */ strCopy(&(*o_1996_stri), &str[0] /* "" */); } return o_1997_symbol; } /* line 1 "no_file" */ /* 944 */ static striType/*t_15_string*/ o_2001_getSymbol (striType/*t_15_string*/ *const o_2002_stri); /* line 925 "../lib/scanstri.s7i" */ static striType/*t_15_string*/ o_2001_getSymbol (striType/*t_15_string*/ *const o_2002_stri) { /* line 927 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_2003_symbol; /* line 929 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_2004_leng=0; /* line 930 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_2005_start=1; /* line 931 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_2006_pos=0; /* line 927 "../lib/scanstri.s7i" */ o_2003_symbol=strEmpty(); /* "" */ /* line 933 "../lib/scanstri.s7i" */ o_2004_leng=(intType)((*o_2002_stri)->size); { /* line 934 "../lib/scanstri.s7i" */ uintType idx_1; /* line 934 "../lib/scanstri.s7i" */ while (((o_2005_start) <= (o_2004_leng)) && /* line 934 "../lib/scanstri.s7i" */ (o_437_in((*o_2002_stri)->mem[(idx_1=(uintType)((o_2005_start)-1), idxChk(idx_1>=(*o_2002_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[9])))) { /* line 935 "../lib/scanstri.s7i" */ ++(o_2005_start); } } /* line 937 "../lib/scanstri.s7i" */ if ((o_2005_start) <= (o_2004_leng)) { /* line 980 "../lib/scanstri.s7i" */ uintType idx_1; /* line 938 "../lib/scanstri.s7i" */ o_2006_pos=o_2005_start; /* line 939 "../lib/scanstri.s7i" */ switch ((*o_2002_stri)->mem[(idx_1=(uintType)((o_2006_pos)-1), idxChk(idx_1>=(*o_2002_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) { /* line 48 "../lib/chartype.s7i" */ case 65: /* line 48 "../lib/chartype.s7i" */ case 66: /* line 48 "../lib/chartype.s7i" */ case 67: /* line 48 "../lib/chartype.s7i" */ case 68: /* line 48 "../lib/chartype.s7i" */ case 69: /* line 48 "../lib/chartype.s7i" */ case 70: /* line 48 "../lib/chartype.s7i" */ case 71: /* line 48 "../lib/chartype.s7i" */ case 72: /* line 48 "../lib/chartype.s7i" */ case 73: /* line 48 "../lib/chartype.s7i" */ case 74: /* line 48 "../lib/chartype.s7i" */ case 75: /* line 48 "../lib/chartype.s7i" */ case 76: /* line 48 "../lib/chartype.s7i" */ case 77: /* line 48 "../lib/chartype.s7i" */ case 78: /* line 48 "../lib/chartype.s7i" */ case 79: /* line 48 "../lib/chartype.s7i" */ case 80: /* line 48 "../lib/chartype.s7i" */ case 81: /* line 48 "../lib/chartype.s7i" */ case 82: /* line 48 "../lib/chartype.s7i" */ case 83: /* line 48 "../lib/chartype.s7i" */ case 84: /* line 48 "../lib/chartype.s7i" */ case 85: /* line 48 "../lib/chartype.s7i" */ case 86: /* line 48 "../lib/chartype.s7i" */ case 87: /* line 48 "../lib/chartype.s7i" */ case 88: /* line 48 "../lib/chartype.s7i" */ case 89: /* line 48 "../lib/chartype.s7i" */ case 90: /* line 48 "../lib/chartype.s7i" */ case 95: /* line 48 "../lib/chartype.s7i" */ case 97: /* line 48 "../lib/chartype.s7i" */ case 98: /* line 48 "../lib/chartype.s7i" */ case 99: /* line 48 "../lib/chartype.s7i" */ case 100: /* line 48 "../lib/chartype.s7i" */ case 101: /* line 48 "../lib/chartype.s7i" */ case 102: /* line 48 "../lib/chartype.s7i" */ case 103: /* line 48 "../lib/chartype.s7i" */ case 104: /* line 48 "../lib/chartype.s7i" */ case 105: /* line 48 "../lib/chartype.s7i" */ case 106: /* line 48 "../lib/chartype.s7i" */ case 107: /* line 48 "../lib/chartype.s7i" */ case 108: /* line 48 "../lib/chartype.s7i" */ case 109: /* line 48 "../lib/chartype.s7i" */ case 110: /* line 48 "../lib/chartype.s7i" */ case 111: /* line 48 "../lib/chartype.s7i" */ case 112: /* line 48 "../lib/chartype.s7i" */ case 113: /* line 48 "../lib/chartype.s7i" */ case 114: /* line 48 "../lib/chartype.s7i" */ case 115: /* line 48 "../lib/chartype.s7i" */ case 116: /* line 48 "../lib/chartype.s7i" */ case 117: /* line 48 "../lib/chartype.s7i" */ case 118: /* line 48 "../lib/chartype.s7i" */ case 119: /* line 48 "../lib/chartype.s7i" */ case 120: /* line 48 "../lib/chartype.s7i" */ case 121: /* line 48 "../lib/chartype.s7i" */ case 122: { /* line 941 "../lib/scanstri.s7i" */ uintType idx_1; /* line 941 "../lib/scanstri.s7i" */ do { /* line 942 "../lib/scanstri.s7i" */ ++(o_2006_pos); /* line 943 "../lib/scanstri.s7i" */ } while (!(((o_2006_pos) > (o_2004_leng)) || /* line 943 "../lib/scanstri.s7i" */ (o_440_not((*o_2002_stri)->mem[(idx_1=(uintType)((o_2006_pos)-1), idxChk(idx_1>=(*o_2002_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[8]))))); } { /* line 944 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 944 "../lib/scanstri.s7i" */ intType start_2; /* line 944 "../lib/scanstri.s7i" */ intType stop_3; /* line 944 "../lib/scanstri.s7i" */ strCopy(&(o_2003_symbol), (start_2=o_2005_start,stop_3=(o_2006_pos)-1,start_2<1 ? start_2=1 : 0, slice_1.capacity=0, stop_3>=start_2 && (uintType)start_2<=(*o_2002_stri)->size ? (slice_1.mem = &(*o_2002_stri)->mem[start_2-1], (uintType)stop_3 > (*o_2002_stri)->size ? slice_1.size = (*o_2002_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)stop_3-(memSizeType)start_2+1)) : (slice_1.mem = NULL,slice_1.size = 0), &slice_1)); } { /* line 945 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 945 "../lib/scanstri.s7i" */ strCopy(&(*o_2002_stri), (strTailSlice(*o_2002_stri, o_2006_pos, &slice_1), &slice_1)); } /* line 945 "../lib/scanstri.s7i" */ break; /* line 34 "../lib/chartype.s7i" */ case 33: /* line 34 "../lib/chartype.s7i" */ case 36: /* line 34 "../lib/chartype.s7i" */ case 37: /* line 34 "../lib/chartype.s7i" */ case 38: /* line 34 "../lib/chartype.s7i" */ case 42: /* line 34 "../lib/chartype.s7i" */ case 43: /* line 34 "../lib/chartype.s7i" */ case 44: /* line 34 "../lib/chartype.s7i" */ case 45: /* line 34 "../lib/chartype.s7i" */ case 46: /* line 34 "../lib/chartype.s7i" */ case 47: /* line 34 "../lib/chartype.s7i" */ case 58: /* line 34 "../lib/chartype.s7i" */ case 59: /* line 34 "../lib/chartype.s7i" */ case 60: /* line 34 "../lib/chartype.s7i" */ case 61: /* line 34 "../lib/chartype.s7i" */ case 62: /* line 34 "../lib/chartype.s7i" */ case 63: /* line 34 "../lib/chartype.s7i" */ case 64: /* line 34 "../lib/chartype.s7i" */ case 92: /* line 34 "../lib/chartype.s7i" */ case 94: /* line 34 "../lib/chartype.s7i" */ case 96: /* line 34 "../lib/chartype.s7i" */ case 124: /* line 34 "../lib/chartype.s7i" */ case 126: { /* line 947 "../lib/scanstri.s7i" */ uintType idx_1; /* line 947 "../lib/scanstri.s7i" */ do { /* line 948 "../lib/scanstri.s7i" */ ++(o_2006_pos); /* line 949 "../lib/scanstri.s7i" */ } while (!(((o_2006_pos) > (o_2004_leng)) || /* line 949 "../lib/scanstri.s7i" */ (o_440_not((*o_2002_stri)->mem[(idx_1=(uintType)((o_2006_pos)-1), idxChk(idx_1>=(*o_2002_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[10]))))); } { /* line 950 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 950 "../lib/scanstri.s7i" */ intType start_2; /* line 950 "../lib/scanstri.s7i" */ intType stop_3; /* line 950 "../lib/scanstri.s7i" */ strCopy(&(o_2003_symbol), (start_2=o_2005_start,stop_3=(o_2006_pos)-1,start_2<1 ? start_2=1 : 0, slice_1.capacity=0, stop_3>=start_2 && (uintType)start_2<=(*o_2002_stri)->size ? (slice_1.mem = &(*o_2002_stri)->mem[start_2-1], (uintType)stop_3 > (*o_2002_stri)->size ? slice_1.size = (*o_2002_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)stop_3-(memSizeType)start_2+1)) : (slice_1.mem = NULL,slice_1.size = 0), &slice_1)); } { /* line 951 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 951 "../lib/scanstri.s7i" */ strCopy(&(*o_2002_stri), (strTailSlice(*o_2002_stri, o_2006_pos, &slice_1), &slice_1)); } /* line 951 "../lib/scanstri.s7i" */ break; /* line 46 "../lib/chartype.s7i" */ case 40: { /* line 953 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 953 "../lib/scanstri.s7i" */ strCopy(&(*o_2002_stri), (strTailSlice(*o_2002_stri, (o_2006_pos)+1, &slice_1), &slice_1)); } /* line 954 "../lib/scanstri.s7i" */ if ((((intType)((*o_2002_stri)->size)) >= (1L)) && /* line 954 "../lib/scanstri.s7i" */ (((*o_2002_stri)->mem[(idxChk((*o_2002_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]) == ((charType) '*'))) { /* line 955 "../lib/scanstri.s7i" */ o_1885_skipComment(o_2002_stri); { /* line 956 "../lib/scanstri.s7i" */ striType old_stri=o_2003_symbol; /* line 956 "../lib/scanstri.s7i" */ o_2003_symbol=o_2001_getSymbol(o_2002_stri); /* line 956 "../lib/scanstri.s7i" */ strDestr(old_stri); } } else { /* line 958 "../lib/scanstri.s7i" */ strCopy(&(o_2003_symbol), &str[32] /* "(" */); } /* line 956 "../lib/scanstri.s7i" */ break; /* line 47 "../lib/chartype.s7i" */ case 41: /* line 47 "../lib/chartype.s7i" */ case 91: /* line 47 "../lib/chartype.s7i" */ case 93: /* line 47 "../lib/chartype.s7i" */ case 123: /* line 47 "../lib/chartype.s7i" */ case 125: { /* line 961 "../lib/scanstri.s7i" */ uintType idx_1; /* line 961 "../lib/scanstri.s7i" */ struct striStruct stri_2; /* line 961 "../lib/scanstri.s7i" */ strCopy(&(o_2003_symbol), (idx_1=(uintType)((o_2006_pos)-1), idx_1>=(*o_2002_stri)->size ? &str[0] /* "" */ : chrStrMacro((*o_2002_stri)->mem[idx_1],stri_2))); } { /* line 962 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 962 "../lib/scanstri.s7i" */ strCopy(&(*o_2002_stri), (strTailSlice(*o_2002_stri, (o_2006_pos)+1, &slice_1), &slice_1)); } /* line 962 "../lib/scanstri.s7i" */ break; /* line 30 "../lib/chartype.s7i" */ case 48: /* line 30 "../lib/chartype.s7i" */ case 49: /* line 30 "../lib/chartype.s7i" */ case 50: /* line 30 "../lib/chartype.s7i" */ case 51: /* line 30 "../lib/chartype.s7i" */ case 52: /* line 30 "../lib/chartype.s7i" */ case 53: /* line 30 "../lib/chartype.s7i" */ case 54: /* line 30 "../lib/chartype.s7i" */ case 55: /* line 30 "../lib/chartype.s7i" */ case 56: /* line 30 "../lib/chartype.s7i" */ case 57: { /* line 964 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 964 "../lib/scanstri.s7i" */ strCopy(&(*o_2002_stri), (strTailSlice(*o_2002_stri, o_2006_pos, &slice_1), &slice_1)); } { /* line 965 "../lib/scanstri.s7i" */ striType old_stri=o_2003_symbol; /* line 965 "../lib/scanstri.s7i" */ o_2003_symbol=o_1913_getNumber(o_2002_stri); /* line 965 "../lib/scanstri.s7i" */ strDestr(old_stri); } /* line 965 "../lib/scanstri.s7i" */ break; /* line 42 "../lib/chartype.s7i" */ case 39: { /* line 967 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 967 "../lib/scanstri.s7i" */ strCopy(&(*o_2002_stri), (strTailSlice(*o_2002_stri, o_2006_pos, &slice_1), &slice_1)); } { /* line 968 "../lib/scanstri.s7i" */ striType old_stri=o_2003_symbol; /* line 968 "../lib/scanstri.s7i" */ o_2003_symbol=o_1941_getCharLiteral(o_2002_stri); /* line 968 "../lib/scanstri.s7i" */ strDestr(old_stri); } /* line 968 "../lib/scanstri.s7i" */ break; /* line 43 "../lib/chartype.s7i" */ case 34: { /* line 970 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 970 "../lib/scanstri.s7i" */ strCopy(&(*o_2002_stri), (strTailSlice(*o_2002_stri, o_2006_pos, &slice_1), &slice_1)); } { /* line 971 "../lib/scanstri.s7i" */ striType old_stri=o_2003_symbol; /* line 971 "../lib/scanstri.s7i" */ o_2003_symbol=o_1946_getStringLiteral(o_2002_stri); /* line 971 "../lib/scanstri.s7i" */ strDestr(old_stri); } /* line 971 "../lib/scanstri.s7i" */ break; /* line 44 "../lib/chartype.s7i" */ case 35: { /* line 973 "../lib/scanstri.s7i" */ uintType idx_1; /* line 973 "../lib/scanstri.s7i" */ do { /* line 974 "../lib/scanstri.s7i" */ ++(o_2006_pos); /* line 975 "../lib/scanstri.s7i" */ } while (!(((o_2006_pos) > (o_2004_leng)) || /* line 975 "../lib/scanstri.s7i" */ (((*o_2002_stri)->mem[(idx_1=(uintType)((o_2006_pos)-1), idxChk(idx_1>=(*o_2002_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '\n')))); } { /* line 976 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 976 "../lib/scanstri.s7i" */ strCopy(&(*o_2002_stri), (strTailSlice(*o_2002_stri, o_2006_pos, &slice_1), &slice_1)); } /* line 976 "../lib/scanstri.s7i" */ break; default: /* line 978 "../lib/scanstri.s7i" */ ++(o_2006_pos); { /* line 979 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 979 "../lib/scanstri.s7i" */ intType start_2; /* line 979 "../lib/scanstri.s7i" */ intType stop_3; /* line 979 "../lib/scanstri.s7i" */ strCopy(&(o_2003_symbol), (start_2=o_2005_start,stop_3=(o_2006_pos)-1,start_2<1 ? start_2=1 : 0, slice_1.capacity=0, stop_3>=start_2 && (uintType)start_2<=(*o_2002_stri)->size ? (slice_1.mem = &(*o_2002_stri)->mem[start_2-1], (uintType)stop_3 > (*o_2002_stri)->size ? slice_1.size = (*o_2002_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)stop_3-(memSizeType)start_2+1)) : (slice_1.mem = NULL,slice_1.size = 0), &slice_1)); } { /* line 980 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 980 "../lib/scanstri.s7i" */ strCopy(&(*o_2002_stri), (strTailSlice(*o_2002_stri, o_2006_pos, &slice_1), &slice_1)); } break; } } else { /* line 983 "../lib/scanstri.s7i" */ strCopy(&(*o_2002_stri), &str[0] /* "" */); } return o_2003_symbol; } /* line 1 "no_file" */ /* 945 */ /* line 995 "../lib/scanstri.s7i" */ static void/*t_1_void*/ o_2007_skipXmlComment (striType/*t_15_string*/ *const o_2008_stri) { /* line 997 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_2009_leng=0; /* line 998 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_2010_pos=1; /* line 999 "../lib/scanstri.s7i" */ boolType/*t_13_boolean*/ o_2011_endOfCommentReached=0/*FALSE*/; /* line 1001 "../lib/scanstri.s7i" */ o_2009_leng=(intType)((*o_2008_stri)->size); /* line 1002 "../lib/scanstri.s7i" */ do { { /* line 1003 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1003 "../lib/scanstri.s7i" */ while (((o_2010_pos) <= (o_2009_leng)) && /* line 1003 "../lib/scanstri.s7i" */ (((*o_2008_stri)->mem[(idx_1=(uintType)((o_2010_pos)-1), idxChk(idx_1>=(*o_2008_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) != ((charType) '-'))) { /* line 1004 "../lib/scanstri.s7i" */ ++(o_2010_pos); } } /* line 1006 "../lib/scanstri.s7i" */ if ((o_2010_pos) <= (o_2009_leng)) { /* line 1008 "../lib/scanstri.s7i" */ ++(o_2010_pos); { /* line 1009 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1009 "../lib/scanstri.s7i" */ if (((o_2010_pos) <= (o_2009_leng)) && /* line 1009 "../lib/scanstri.s7i" */ (((*o_2008_stri)->mem[(idx_1=(uintType)((o_2010_pos)-1), idxChk(idx_1>=(*o_2008_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '-'))) { { /* line 1010 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1010 "../lib/scanstri.s7i" */ do { /* line 1011 "../lib/scanstri.s7i" */ ++(o_2010_pos); /* line 1012 "../lib/scanstri.s7i" */ } while (!(((o_2010_pos) > (o_2009_leng)) || /* line 1012 "../lib/scanstri.s7i" */ (((*o_2008_stri)->mem[(idx_1=(uintType)((o_2010_pos)-1), idxChk(idx_1>=(*o_2008_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) != ((charType) '-')))); } { /* line 1013 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1013 "../lib/scanstri.s7i" */ if (((o_2010_pos) <= (o_2009_leng)) && /* line 1013 "../lib/scanstri.s7i" */ (((*o_2008_stri)->mem[(idx_1=(uintType)((o_2010_pos)-1), idxChk(idx_1>=(*o_2008_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '>'))) { /* line 1014 "../lib/scanstri.s7i" */ ++(o_2010_pos); /* line 1015 "../lib/scanstri.s7i" */ o_2011_endOfCommentReached=o_26_TRUE; } } } } } /* line 1019 "../lib/scanstri.s7i" */ } while (!((o_2011_endOfCommentReached) || /* line 1019 "../lib/scanstri.s7i" */ ((o_2010_pos) > (o_2009_leng)))); { /* line 1020 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1020 "../lib/scanstri.s7i" */ strCopy(&(*o_2008_stri), (strTailSlice(*o_2008_stri, o_2010_pos, &slice_1), &slice_1)); } } /* line 1 "no_file" */ /* 946 */ /* line 1035 "../lib/scanstri.s7i" */ static striType/*t_15_string*/ o_2012_getXmlTagOrContent (striType/*t_15_string*/ *const o_2013_stri) { /* line 1037 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_2014_symbol; /* line 1039 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_2015_leng=0; /* line 1040 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_2016_pos=1; /* line 1037 "../lib/scanstri.s7i" */ o_2014_symbol=strEmpty(); /* "" */ /* line 1042 "../lib/scanstri.s7i" */ o_2015_leng=(intType)((*o_2013_stri)->size); /* line 1043 "../lib/scanstri.s7i" */ if ((o_2016_pos) <= (o_2015_leng)) { { /* line 1044 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1044 "../lib/scanstri.s7i" */ if (((*o_2013_stri)->mem[(idx_1=(uintType)((o_2016_pos)-1), idxChk(idx_1>=(*o_2013_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '<')) { { /* line 1045 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1045 "../lib/scanstri.s7i" */ do { /* line 1046 "../lib/scanstri.s7i" */ ++(o_2016_pos); /* line 1047 "../lib/scanstri.s7i" */ } while (!(((o_2016_pos) > (o_2015_leng)) || /* line 1047 "../lib/scanstri.s7i" */ (((*o_2013_stri)->mem[(idx_1=(uintType)((o_2016_pos)-1), idxChk(idx_1>=(*o_2013_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '>')))); } { /* line 1048 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1048 "../lib/scanstri.s7i" */ strCopy(&(o_2014_symbol), (strHeadSlice(*o_2013_stri, o_2016_pos, &slice_1), &slice_1)); } { /* line 1049 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1049 "../lib/scanstri.s7i" */ strCopy(&(*o_2013_stri), (strTailSlice(*o_2013_stri, (o_2016_pos)+1, &slice_1), &slice_1)); } } else { { /* line 1051 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1051 "../lib/scanstri.s7i" */ do { /* line 1052 "../lib/scanstri.s7i" */ ++(o_2016_pos); /* line 1053 "../lib/scanstri.s7i" */ } while (!(((o_2016_pos) > (o_2015_leng)) || /* line 1053 "../lib/scanstri.s7i" */ (((*o_2013_stri)->mem[(idx_1=(uintType)((o_2016_pos)-1), idxChk(idx_1>=(*o_2013_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '<')))); } { /* line 1054 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1054 "../lib/scanstri.s7i" */ strCopy(&(o_2014_symbol), (strHeadSlice(*o_2013_stri, (o_2016_pos)-1, &slice_1), &slice_1)); } { /* line 1055 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1055 "../lib/scanstri.s7i" */ strCopy(&(*o_2013_stri), (strTailSlice(*o_2013_stri, o_2016_pos, &slice_1), &slice_1)); } } } } return o_2014_symbol; } /* line 1 "no_file" */ /* 947 */ static striType/*t_15_string*/ o_2017_getXmlTagHeadOrContent (striType/*t_15_string*/ *const o_2018_stri); /* line 1078 "../lib/scanstri.s7i" */ static striType/*t_15_string*/ o_2017_getXmlTagHeadOrContent (striType/*t_15_string*/ *const o_2018_stri) { /* line 1080 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_2019_symbol; /* line 1082 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_2020_leng=0; /* line 1083 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_2021_start=1; /* line 1084 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_2022_pos=1; /* line 1085 "../lib/scanstri.s7i" */ boolType/*t_13_boolean*/ o_2023_finished=0/*FALSE*/; /* line 1080 "../lib/scanstri.s7i" */ o_2019_symbol=strEmpty(); /* "" */ /* line 1087 "../lib/scanstri.s7i" */ o_2020_leng=(intType)((*o_2018_stri)->size); { /* line 1088 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1088 "../lib/scanstri.s7i" */ while (((o_2021_start) <= (o_2020_leng)) && /* line 1088 "../lib/scanstri.s7i" */ (o_437_in((*o_2018_stri)->mem[(idx_1=(uintType)((o_2021_start)-1), idxChk(idx_1>=(*o_2018_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[9])))) { /* line 1089 "../lib/scanstri.s7i" */ ++(o_2021_start); } } { /* line 1091 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1091 "../lib/scanstri.s7i" */ if (((o_2022_pos) <= (o_2020_leng)) && /* line 1091 "../lib/scanstri.s7i" */ (((*o_2018_stri)->mem[(idx_1=(uintType)((o_2022_pos)-1), idxChk(idx_1>=(*o_2018_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '<'))) { /* line 1092 "../lib/scanstri.s7i" */ ++(o_2022_pos); { /* line 1093 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1093 "../lib/scanstri.s7i" */ if (((o_2022_pos) <= (o_2020_leng)) && /* line 1093 "../lib/scanstri.s7i" */ (((*o_2018_stri)->mem[(idx_1=(uintType)((o_2022_pos)-1), idxChk(idx_1>=(*o_2018_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '!'))) { /* line 1094 "../lib/scanstri.s7i" */ ++(o_2022_pos); { /* line 1095 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1095 "../lib/scanstri.s7i" */ if (((o_2022_pos) <= (o_2020_leng)) && /* line 1095 "../lib/scanstri.s7i" */ (((*o_2018_stri)->mem[(idx_1=(uintType)((o_2022_pos)-1), idxChk(idx_1>=(*o_2018_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '-'))) { /* line 1096 "../lib/scanstri.s7i" */ ++(o_2022_pos); { /* line 1097 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1097 "../lib/scanstri.s7i" */ if (((o_2022_pos) <= (o_2020_leng)) && /* line 1097 "../lib/scanstri.s7i" */ (((*o_2018_stri)->mem[(idx_1=(uintType)((o_2022_pos)-1), idxChk(idx_1>=(*o_2018_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '-'))) { { /* line 1098 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1098 "../lib/scanstri.s7i" */ strCopy(&(*o_2018_stri), (strTailSlice(*o_2018_stri, o_2022_pos, &slice_1), &slice_1)); } /* line 1099 "../lib/scanstri.s7i" */ o_2007_skipXmlComment(o_2018_stri); { /* line 1100 "../lib/scanstri.s7i" */ striType old_stri=o_2019_symbol; /* line 1100 "../lib/scanstri.s7i" */ o_2019_symbol=o_2017_getXmlTagHeadOrContent(o_2018_stri); /* line 1100 "../lib/scanstri.s7i" */ strDestr(old_stri); } /* line 1101 "../lib/scanstri.s7i" */ o_2023_finished=o_26_TRUE; } } } } } } /* line 1105 "../lib/scanstri.s7i" */ if (!(o_2023_finished)) { { /* line 1106 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1106 "../lib/scanstri.s7i" */ uintType idx_2; /* line 1106 "../lib/scanstri.s7i" */ if (((o_2022_pos) <= (o_2020_leng)) && /* line 1106 "../lib/scanstri.s7i" */ (o_440_not((*o_2018_stri)->mem[(idx_1=(uintType)((o_2022_pos)-1), idxChk(idx_1>=(*o_2018_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[9]))) && /* line 1107 "../lib/scanstri.s7i" */ (((*o_2018_stri)->mem[(idx_2=(uintType)((o_2022_pos)-1), idxChk(idx_2>=(*o_2018_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]) != ((charType) '>'))) { { /* line 1108 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1108 "../lib/scanstri.s7i" */ uintType idx_2; /* line 1108 "../lib/scanstri.s7i" */ uintType idx_3; /* line 1108 "../lib/scanstri.s7i" */ do { /* line 1109 "../lib/scanstri.s7i" */ ++(o_2022_pos); /* line 1111 "../lib/scanstri.s7i" */ } while (!(((o_2022_pos) > (o_2020_leng)) || /* line 1110 "../lib/scanstri.s7i" */ (o_437_in((*o_2018_stri)->mem[(idx_1=(uintType)((o_2022_pos)-1), idxChk(idx_1>=(*o_2018_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[9]))) || /* line 1111 "../lib/scanstri.s7i" */ (((*o_2018_stri)->mem[(idx_2=(uintType)((o_2022_pos)-1), idxChk(idx_2>=(*o_2018_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]) == ((charType) '>')) || /* line 1111 "../lib/scanstri.s7i" */ (((*o_2018_stri)->mem[(idx_3=(uintType)((o_2022_pos)-1), idxChk(idx_3>=(*o_2018_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_3)]) == ((charType) '/')))); } } } { /* line 1113 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1113 "../lib/scanstri.s7i" */ intType start_2; /* line 1113 "../lib/scanstri.s7i" */ intType stop_3; /* line 1113 "../lib/scanstri.s7i" */ strCopy(&(o_2019_symbol), (start_2=o_2021_start,stop_3=(o_2022_pos)-1,start_2<1 ? start_2=1 : 0, slice_1.capacity=0, stop_3>=start_2 && (uintType)start_2<=(*o_2018_stri)->size ? (slice_1.mem = &(*o_2018_stri)->mem[start_2-1], (uintType)stop_3 > (*o_2018_stri)->size ? slice_1.size = (*o_2018_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)stop_3-(memSizeType)start_2+1)) : (slice_1.mem = NULL,slice_1.size = 0), &slice_1)); } { /* line 1114 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1114 "../lib/scanstri.s7i" */ strCopy(&(*o_2018_stri), (strTailSlice(*o_2018_stri, o_2022_pos, &slice_1), &slice_1)); } } } else { { /* line 1117 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1117 "../lib/scanstri.s7i" */ do { /* line 1118 "../lib/scanstri.s7i" */ ++(o_2022_pos); /* line 1119 "../lib/scanstri.s7i" */ } while (!(((o_2022_pos) > (o_2020_leng)) || /* line 1119 "../lib/scanstri.s7i" */ (((*o_2018_stri)->mem[(idx_1=(uintType)((o_2022_pos)-1), idxChk(idx_1>=(*o_2018_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '<')))); } { /* line 1120 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1120 "../lib/scanstri.s7i" */ intType start_2; /* line 1120 "../lib/scanstri.s7i" */ intType stop_3; /* line 1120 "../lib/scanstri.s7i" */ strCopy(&(o_2019_symbol), (start_2=o_2021_start,stop_3=(o_2022_pos)-1,start_2<1 ? start_2=1 : 0, slice_1.capacity=0, stop_3>=start_2 && (uintType)start_2<=(*o_2018_stri)->size ? (slice_1.mem = &(*o_2018_stri)->mem[start_2-1], (uintType)stop_3 > (*o_2018_stri)->size ? slice_1.size = (*o_2018_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)stop_3-(memSizeType)start_2+1)) : (slice_1.mem = NULL,slice_1.size = 0), &slice_1)); } { /* line 1121 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1121 "../lib/scanstri.s7i" */ strCopy(&(*o_2018_stri), (strTailSlice(*o_2018_stri, o_2022_pos, &slice_1), &slice_1)); } } } return o_2019_symbol; } /* line 1 "no_file" */ /* 948 */ /* line 1139 "../lib/scanstri.s7i" */ static striType/*t_15_string*/ o_2024_getSymbolInXmlTag (striType/*t_15_string*/ *const o_2025_stri) { /* line 1141 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_2026_symbol; /* line 1143 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_2027_leng=0; /* line 1144 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_2028_start=1; /* line 1145 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_2029_pos=0; /* line 1141 "../lib/scanstri.s7i" */ o_2026_symbol=strEmpty(); /* "" */ /* line 1147 "../lib/scanstri.s7i" */ o_2027_leng=(intType)((*o_2025_stri)->size); { /* line 1148 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1148 "../lib/scanstri.s7i" */ while (((o_2028_start) <= (o_2027_leng)) && /* line 1148 "../lib/scanstri.s7i" */ (o_437_in((*o_2025_stri)->mem[(idx_1=(uintType)((o_2028_start)-1), idxChk(idx_1>=(*o_2025_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[9])))) { /* line 1149 "../lib/scanstri.s7i" */ ++(o_2028_start); } } /* line 1151 "../lib/scanstri.s7i" */ if ((o_2028_start) <= (o_2027_leng)) { /* line 1180 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1152 "../lib/scanstri.s7i" */ o_2029_pos=o_2028_start; /* line 1153 "../lib/scanstri.s7i" */ switch ((*o_2025_stri)->mem[(idx_1=(uintType)((o_2029_pos)-1), idxChk(idx_1>=(*o_2025_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) { /* line 57 "../lib/chartype.s7i" */ case 45: /* line 57 "../lib/chartype.s7i" */ case 46: /* line 57 "../lib/chartype.s7i" */ case 58: /* line 57 "../lib/chartype.s7i" */ case 65: /* line 57 "../lib/chartype.s7i" */ case 66: /* line 57 "../lib/chartype.s7i" */ case 67: /* line 57 "../lib/chartype.s7i" */ case 68: /* line 57 "../lib/chartype.s7i" */ case 69: /* line 57 "../lib/chartype.s7i" */ case 70: /* line 57 "../lib/chartype.s7i" */ case 71: /* line 57 "../lib/chartype.s7i" */ case 72: /* line 57 "../lib/chartype.s7i" */ case 73: /* line 57 "../lib/chartype.s7i" */ case 74: /* line 57 "../lib/chartype.s7i" */ case 75: /* line 57 "../lib/chartype.s7i" */ case 76: /* line 57 "../lib/chartype.s7i" */ case 77: /* line 57 "../lib/chartype.s7i" */ case 78: /* line 57 "../lib/chartype.s7i" */ case 79: /* line 57 "../lib/chartype.s7i" */ case 80: /* line 57 "../lib/chartype.s7i" */ case 81: /* line 57 "../lib/chartype.s7i" */ case 82: /* line 57 "../lib/chartype.s7i" */ case 83: /* line 57 "../lib/chartype.s7i" */ case 84: /* line 57 "../lib/chartype.s7i" */ case 85: /* line 57 "../lib/chartype.s7i" */ case 86: /* line 57 "../lib/chartype.s7i" */ case 87: /* line 57 "../lib/chartype.s7i" */ case 88: /* line 57 "../lib/chartype.s7i" */ case 89: /* line 57 "../lib/chartype.s7i" */ case 90: /* line 57 "../lib/chartype.s7i" */ case 95: /* line 57 "../lib/chartype.s7i" */ case 97: /* line 57 "../lib/chartype.s7i" */ case 98: /* line 57 "../lib/chartype.s7i" */ case 99: /* line 57 "../lib/chartype.s7i" */ case 100: /* line 57 "../lib/chartype.s7i" */ case 101: /* line 57 "../lib/chartype.s7i" */ case 102: /* line 57 "../lib/chartype.s7i" */ case 103: /* line 57 "../lib/chartype.s7i" */ case 104: /* line 57 "../lib/chartype.s7i" */ case 105: /* line 57 "../lib/chartype.s7i" */ case 106: /* line 57 "../lib/chartype.s7i" */ case 107: /* line 57 "../lib/chartype.s7i" */ case 108: /* line 57 "../lib/chartype.s7i" */ case 109: /* line 57 "../lib/chartype.s7i" */ case 110: /* line 57 "../lib/chartype.s7i" */ case 111: /* line 57 "../lib/chartype.s7i" */ case 112: /* line 57 "../lib/chartype.s7i" */ case 113: /* line 57 "../lib/chartype.s7i" */ case 114: /* line 57 "../lib/chartype.s7i" */ case 115: /* line 57 "../lib/chartype.s7i" */ case 116: /* line 57 "../lib/chartype.s7i" */ case 117: /* line 57 "../lib/chartype.s7i" */ case 118: /* line 57 "../lib/chartype.s7i" */ case 119: /* line 57 "../lib/chartype.s7i" */ case 120: /* line 57 "../lib/chartype.s7i" */ case 121: /* line 57 "../lib/chartype.s7i" */ case 122: { /* line 1155 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1155 "../lib/scanstri.s7i" */ do { /* line 1156 "../lib/scanstri.s7i" */ ++(o_2029_pos); /* line 1157 "../lib/scanstri.s7i" */ } while (!(((o_2029_pos) > (o_2027_leng)) || /* line 1157 "../lib/scanstri.s7i" */ (o_440_not((*o_2025_stri)->mem[(idx_1=(uintType)((o_2029_pos)-1), idxChk(idx_1>=(*o_2025_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[11]))))); } { /* line 1158 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1158 "../lib/scanstri.s7i" */ intType start_2; /* line 1158 "../lib/scanstri.s7i" */ intType stop_3; /* line 1158 "../lib/scanstri.s7i" */ strCopy(&(o_2026_symbol), (start_2=o_2028_start,stop_3=(o_2029_pos)-1,start_2<1 ? start_2=1 : 0, slice_1.capacity=0, stop_3>=start_2 && (uintType)start_2<=(*o_2025_stri)->size ? (slice_1.mem = &(*o_2025_stri)->mem[start_2-1], (uintType)stop_3 > (*o_2025_stri)->size ? slice_1.size = (*o_2025_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)stop_3-(memSizeType)start_2+1)) : (slice_1.mem = NULL,slice_1.size = 0), &slice_1)); } { /* line 1159 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1159 "../lib/scanstri.s7i" */ strCopy(&(*o_2025_stri), (strTailSlice(*o_2025_stri, o_2029_pos, &slice_1), &slice_1)); } /* line 1159 "../lib/scanstri.s7i" */ break; /* line 43 "../lib/chartype.s7i" */ case 34: { /* line 1161 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1161 "../lib/scanstri.s7i" */ do { /* line 1162 "../lib/scanstri.s7i" */ ++(o_2029_pos); /* line 1163 "../lib/scanstri.s7i" */ } while (!(((o_2029_pos) > (o_2027_leng)) || /* line 1163 "../lib/scanstri.s7i" */ (((*o_2025_stri)->mem[(idx_1=(uintType)((o_2029_pos)-1), idxChk(idx_1>=(*o_2025_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '"')))); } { /* line 1164 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1164 "../lib/scanstri.s7i" */ intType start_2; /* line 1164 "../lib/scanstri.s7i" */ intType stop_3; /* line 1164 "../lib/scanstri.s7i" */ strCopy(&(o_2026_symbol), (start_2=(o_2028_start)+1,stop_3=(o_2029_pos)-1,start_2<1 ? start_2=1 : 0, slice_1.capacity=0, stop_3>=start_2 && (uintType)start_2<=(*o_2025_stri)->size ? (slice_1.mem = &(*o_2025_stri)->mem[start_2-1], (uintType)stop_3 > (*o_2025_stri)->size ? slice_1.size = (*o_2025_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)stop_3-(memSizeType)start_2+1)) : (slice_1.mem = NULL,slice_1.size = 0), &slice_1)); } { /* line 1165 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1165 "../lib/scanstri.s7i" */ strCopy(&(*o_2025_stri), (strTailSlice(*o_2025_stri, (o_2029_pos)+1, &slice_1), &slice_1)); } /* line 1165 "../lib/scanstri.s7i" */ break; /* line 42 "../lib/chartype.s7i" */ case 39: { /* line 1167 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1167 "../lib/scanstri.s7i" */ do { /* line 1168 "../lib/scanstri.s7i" */ ++(o_2029_pos); /* line 1169 "../lib/scanstri.s7i" */ } while (!(((o_2029_pos) > (o_2027_leng)) || /* line 1169 "../lib/scanstri.s7i" */ (((*o_2025_stri)->mem[(idx_1=(uintType)((o_2029_pos)-1), idxChk(idx_1>=(*o_2025_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '\'')))); } { /* line 1170 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1170 "../lib/scanstri.s7i" */ intType start_2; /* line 1170 "../lib/scanstri.s7i" */ intType stop_3; /* line 1170 "../lib/scanstri.s7i" */ strCopy(&(o_2026_symbol), (start_2=(o_2028_start)+1,stop_3=(o_2029_pos)-1,start_2<1 ? start_2=1 : 0, slice_1.capacity=0, stop_3>=start_2 && (uintType)start_2<=(*o_2025_stri)->size ? (slice_1.mem = &(*o_2025_stri)->mem[start_2-1], (uintType)stop_3 > (*o_2025_stri)->size ? slice_1.size = (*o_2025_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)stop_3-(memSizeType)start_2+1)) : (slice_1.mem = NULL,slice_1.size = 0), &slice_1)); } { /* line 1171 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1171 "../lib/scanstri.s7i" */ strCopy(&(*o_2025_stri), (strTailSlice(*o_2025_stri, (o_2029_pos)+1, &slice_1), &slice_1)); } /* line 1171 "../lib/scanstri.s7i" */ break; /* line 55 "../lib/chartype.s7i" */ case 61: /* line 55 "../lib/chartype.s7i" */ case 62: { /* line 1173 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1173 "../lib/scanstri.s7i" */ struct striStruct stri_2; /* line 1173 "../lib/scanstri.s7i" */ strCopy(&(o_2026_symbol), (idx_1=(uintType)((o_2029_pos)-1), idx_1>=(*o_2025_stri)->size ? &str[0] /* "" */ : chrStrMacro((*o_2025_stri)->mem[idx_1],stri_2))); } { /* line 1174 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1174 "../lib/scanstri.s7i" */ strCopy(&(*o_2025_stri), (strTailSlice(*o_2025_stri, (o_2029_pos)+1, &slice_1), &slice_1)); } /* line 1174 "../lib/scanstri.s7i" */ break; default: { /* line 1176 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1176 "../lib/scanstri.s7i" */ do { /* line 1177 "../lib/scanstri.s7i" */ ++(o_2029_pos); /* line 1178 "../lib/scanstri.s7i" */ } while (!(((o_2029_pos) > (o_2027_leng)) || /* line 1178 "../lib/scanstri.s7i" */ (o_437_in((*o_2025_stri)->mem[(idx_1=(uintType)((o_2029_pos)-1), idxChk(idx_1>=(*o_2025_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[12]))))); } { /* line 1179 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1179 "../lib/scanstri.s7i" */ intType start_2; /* line 1179 "../lib/scanstri.s7i" */ intType stop_3; /* line 1179 "../lib/scanstri.s7i" */ strCopy(&(o_2026_symbol), (start_2=o_2028_start,stop_3=(o_2029_pos)-1,start_2<1 ? start_2=1 : 0, slice_1.capacity=0, stop_3>=start_2 && (uintType)start_2<=(*o_2025_stri)->size ? (slice_1.mem = &(*o_2025_stri)->mem[start_2-1], (uintType)stop_3 > (*o_2025_stri)->size ? slice_1.size = (*o_2025_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)stop_3-(memSizeType)start_2+1)) : (slice_1.mem = NULL,slice_1.size = 0), &slice_1)); } { /* line 1180 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1180 "../lib/scanstri.s7i" */ strCopy(&(*o_2025_stri), (strTailSlice(*o_2025_stri, o_2029_pos, &slice_1), &slice_1)); } break; } } else { /* line 1183 "../lib/scanstri.s7i" */ strCopy(&(*o_2025_stri), &str[0] /* "" */); } return o_2026_symbol; } /* line 1 "no_file" */ /* 949 */ /* line 1193 "../lib/scanstri.s7i" */ static void/*t_1_void*/ o_2030_skipXmlTag (striType/*t_15_string*/ *const o_2031_stri) { /* line 1195 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_2032_symbol; /* line 1195 "../lib/scanstri.s7i" */ o_2032_symbol=strEmpty(); /* "" */ /* line 1197 "../lib/scanstri.s7i" */ do { { /* line 1198 "../lib/scanstri.s7i" */ striType old_stri=o_2032_symbol; /* line 1198 "../lib/scanstri.s7i" */ o_2032_symbol=o_2024_getSymbolInXmlTag(o_2031_stri); /* line 1198 "../lib/scanstri.s7i" */ strDestr(old_stri); } /* line 1199 "../lib/scanstri.s7i" */ } while (!((((o_2032_symbol)->size==1&&(o_2032_symbol)->mem[0]==(strElemType)('>') /* ">" */)) || /* line 1199 "../lib/scanstri.s7i" */ (((o_2032_symbol)->size==0 /* "" */)))); /* line 1193 "../lib/scanstri.s7i" */ strDestr(o_2032_symbol); } /* line 1 "no_file" */ /* 950 */ /* line 1209 "../lib/scanstri.s7i" */ static void/*t_1_void*/ o_2033_skipXmlTag (striType/*t_15_string*/ *const o_2034_stri, const const_striType/*t_15_string*/ value_o_2035_symbol) { /* line 1209 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_2035_symbol; /* line 1209 "../lib/scanstri.s7i" */ o_2035_symbol=strCreate(value_o_2035_symbol); /* line 1211 "../lib/scanstri.s7i" */ while ((((o_2035_symbol)->size!=1||(o_2035_symbol)->mem[0]!=(strElemType)('>') /* ">" */)) && /* line 1211 "../lib/scanstri.s7i" */ (((o_2035_symbol)->size!=0 /* "" */))) { { /* line 1212 "../lib/scanstri.s7i" */ striType old_stri=o_2035_symbol; /* line 1212 "../lib/scanstri.s7i" */ o_2035_symbol=o_2024_getSymbolInXmlTag(o_2034_stri); /* line 1212 "../lib/scanstri.s7i" */ strDestr(old_stri); } } /* line 1209 "../lib/scanstri.s7i" */ strDestr(o_2035_symbol); } /* line 1 "no_file" */ /* 951 */ /* line 1231 "../lib/scanstri.s7i" */ static void/*t_1_void*/ o_2036_getNextXmlAttribute (striType/*t_15_string*/ *const o_2037_stri, striType/*t_15_string*/ *const o_2038_attributeName, striType/*t_15_string*/ *const o_2039_attributeValue) { { /* line 1234 "../lib/scanstri.s7i" */ striType old_stri=*o_2038_attributeName; /* line 1234 "../lib/scanstri.s7i" */ *o_2038_attributeName=o_2024_getSymbolInXmlTag(o_2037_stri); /* line 1234 "../lib/scanstri.s7i" */ strDestr(old_stri); } /* line 1235 "../lib/scanstri.s7i" */ if (((*o_2038_attributeName)->size==1&&(*o_2038_attributeName)->mem[0]==(strElemType)('/') /* "/" */)) { /* line 1236 "../lib/scanstri.s7i" */ strCopy(&(*o_2038_attributeName), &str[0] /* "" */); { /* line 1237 "../lib/scanstri.s7i" */ striType old_stri=*o_2039_attributeValue; /* line 1237 "../lib/scanstri.s7i" */ *o_2039_attributeValue=o_2024_getSymbolInXmlTag(o_2037_stri); /* line 1237 "../lib/scanstri.s7i" */ strDestr(old_stri); } /* line 1238 "../lib/scanstri.s7i" */ if (((*o_2039_attributeValue)->size==1&&(*o_2039_attributeValue)->mem[0]==(strElemType)('>') /* ">" */)) { /* line 1239 "../lib/scanstri.s7i" */ strCopy(&(*o_2039_attributeValue), &str[33] /* "/>" */); } else { /* line 1241 "../lib/scanstri.s7i" */ strCopy(&(*o_2039_attributeValue), &str[20] /* "/" */); /* line 1242 "../lib/scanstri.s7i" */ o_2033_skipXmlTag(o_2037_stri, *o_2039_attributeValue); } } else /* line 1244 "../lib/scanstri.s7i" */ if (((*o_2038_attributeName)->size==1&&(*o_2038_attributeName)->mem[0]==(strElemType)('>') /* ">" */)) { /* line 1245 "../lib/scanstri.s7i" */ strCopy(&(*o_2038_attributeName), &str[0] /* "" */); /* line 1246 "../lib/scanstri.s7i" */ strCopy(&(*o_2039_attributeValue), &str[34] /* ">" */); } else { { /* line 1248 "../lib/scanstri.s7i" */ striType old_stri=*o_2039_attributeValue; /* line 1248 "../lib/scanstri.s7i" */ *o_2039_attributeValue=o_2024_getSymbolInXmlTag(o_2037_stri); /* line 1248 "../lib/scanstri.s7i" */ strDestr(old_stri); } /* line 1249 "../lib/scanstri.s7i" */ if (((*o_2039_attributeValue)->size==1&&(*o_2039_attributeValue)->mem[0]==(strElemType)('=') /* "=" */)) { { /* line 1250 "../lib/scanstri.s7i" */ striType old_stri=*o_2039_attributeValue; /* line 1250 "../lib/scanstri.s7i" */ *o_2039_attributeValue=o_2024_getSymbolInXmlTag(o_2037_stri); /* line 1250 "../lib/scanstri.s7i" */ strDestr(old_stri); } /* line 1251 "../lib/scanstri.s7i" */ if ((o_75_startsWith(*o_2039_attributeValue, &str[35] /* "\"" */)) || /* line 1252 "../lib/scanstri.s7i" */ (o_75_startsWith(*o_2039_attributeValue, &str[4] /* "'" */))) { { /* line 1253 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1253 "../lib/scanstri.s7i" */ strCopy(&(*o_2039_attributeValue), (strTailSlice(*o_2039_attributeValue, 2L, &slice_1), &slice_1)); } } else { /* line 1255 "../lib/scanstri.s7i" */ strCopy(&(*o_2039_attributeValue), *o_2038_attributeName); /* line 1256 "../lib/scanstri.s7i" */ strCopy(&(*o_2038_attributeName), &str[0] /* "" */); /* line 1257 "../lib/scanstri.s7i" */ o_2033_skipXmlTag(o_2037_stri, *o_2039_attributeValue); } } else { /* line 1260 "../lib/scanstri.s7i" */ strCopy(&(*o_2039_attributeValue), *o_2038_attributeName); /* line 1261 "../lib/scanstri.s7i" */ strCopy(&(*o_2038_attributeName), &str[0] /* "" */); /* line 1262 "../lib/scanstri.s7i" */ o_2033_skipXmlTag(o_2037_stri, *o_2039_attributeValue); } } } /* line 1 "no_file" */ /* 952 */ /* line 1279 "../lib/scanstri.s7i" */ static striType/*t_15_string*/ o_2040_getHtmlAttributeValue (striType/*t_15_string*/ *const o_2041_stri) { /* line 1281 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_2042_symbol; /* line 1283 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_2043_leng=0; /* line 1284 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_2044_start=1; /* line 1285 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_2045_pos=0; /* line 1281 "../lib/scanstri.s7i" */ o_2042_symbol=strEmpty(); /* "" */ /* line 1287 "../lib/scanstri.s7i" */ o_2043_leng=(intType)((*o_2041_stri)->size); { /* line 1288 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1288 "../lib/scanstri.s7i" */ while (((o_2044_start) <= (o_2043_leng)) && /* line 1288 "../lib/scanstri.s7i" */ (o_437_in((*o_2041_stri)->mem[(idx_1=(uintType)((o_2044_start)-1), idxChk(idx_1>=(*o_2041_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[9])))) { /* line 1289 "../lib/scanstri.s7i" */ ++(o_2044_start); } } /* line 1291 "../lib/scanstri.s7i" */ if ((o_2044_start) <= (o_2043_leng)) { /* line 1314 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1292 "../lib/scanstri.s7i" */ o_2045_pos=o_2044_start; /* line 1293 "../lib/scanstri.s7i" */ switch ((*o_2041_stri)->mem[(idx_1=(uintType)((o_2045_pos)-1), idxChk(idx_1>=(*o_2041_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) { /* line 43 "../lib/chartype.s7i" */ case 34: { /* line 1295 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1295 "../lib/scanstri.s7i" */ do { /* line 1296 "../lib/scanstri.s7i" */ ++(o_2045_pos); /* line 1297 "../lib/scanstri.s7i" */ } while (!(((o_2045_pos) > (o_2043_leng)) || /* line 1297 "../lib/scanstri.s7i" */ (((*o_2041_stri)->mem[(idx_1=(uintType)((o_2045_pos)-1), idxChk(idx_1>=(*o_2041_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '"')))); } { /* line 1298 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1298 "../lib/scanstri.s7i" */ intType start_2; /* line 1298 "../lib/scanstri.s7i" */ intType stop_3; /* line 1298 "../lib/scanstri.s7i" */ strCopy(&(o_2042_symbol), (start_2=(o_2044_start)+1,stop_3=(o_2045_pos)-1,start_2<1 ? start_2=1 : 0, slice_1.capacity=0, stop_3>=start_2 && (uintType)start_2<=(*o_2041_stri)->size ? (slice_1.mem = &(*o_2041_stri)->mem[start_2-1], (uintType)stop_3 > (*o_2041_stri)->size ? slice_1.size = (*o_2041_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)stop_3-(memSizeType)start_2+1)) : (slice_1.mem = NULL,slice_1.size = 0), &slice_1)); } { /* line 1299 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1299 "../lib/scanstri.s7i" */ strCopy(&(*o_2041_stri), (strTailSlice(*o_2041_stri, (o_2045_pos)+1, &slice_1), &slice_1)); } /* line 1299 "../lib/scanstri.s7i" */ break; /* line 42 "../lib/chartype.s7i" */ case 39: { /* line 1301 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1301 "../lib/scanstri.s7i" */ do { /* line 1302 "../lib/scanstri.s7i" */ ++(o_2045_pos); /* line 1303 "../lib/scanstri.s7i" */ } while (!(((o_2045_pos) > (o_2043_leng)) || /* line 1303 "../lib/scanstri.s7i" */ (((*o_2041_stri)->mem[(idx_1=(uintType)((o_2045_pos)-1), idxChk(idx_1>=(*o_2041_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '\'')))); } { /* line 1304 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1304 "../lib/scanstri.s7i" */ intType start_2; /* line 1304 "../lib/scanstri.s7i" */ intType stop_3; /* line 1304 "../lib/scanstri.s7i" */ strCopy(&(o_2042_symbol), (start_2=(o_2044_start)+1,stop_3=(o_2045_pos)-1,start_2<1 ? start_2=1 : 0, slice_1.capacity=0, stop_3>=start_2 && (uintType)start_2<=(*o_2041_stri)->size ? (slice_1.mem = &(*o_2041_stri)->mem[start_2-1], (uintType)stop_3 > (*o_2041_stri)->size ? slice_1.size = (*o_2041_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)stop_3-(memSizeType)start_2+1)) : (slice_1.mem = NULL,slice_1.size = 0), &slice_1)); } { /* line 1305 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1305 "../lib/scanstri.s7i" */ strCopy(&(*o_2041_stri), (strTailSlice(*o_2041_stri, (o_2045_pos)+1, &slice_1), &slice_1)); } /* line 1305 "../lib/scanstri.s7i" */ break; /* line 40 "../lib/chartype.s7i" */ case 62: { /* line 1307 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1307 "../lib/scanstri.s7i" */ struct striStruct stri_2; /* line 1307 "../lib/scanstri.s7i" */ strCopy(&(o_2042_symbol), (idx_1=(uintType)((o_2045_pos)-1), idx_1>=(*o_2041_stri)->size ? &str[0] /* "" */ : chrStrMacro((*o_2041_stri)->mem[idx_1],stri_2))); } { /* line 1308 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1308 "../lib/scanstri.s7i" */ strCopy(&(*o_2041_stri), (strTailSlice(*o_2041_stri, (o_2045_pos)+1, &slice_1), &slice_1)); } /* line 1308 "../lib/scanstri.s7i" */ break; default: { /* line 1310 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1310 "../lib/scanstri.s7i" */ do { /* line 1311 "../lib/scanstri.s7i" */ ++(o_2045_pos); /* line 1312 "../lib/scanstri.s7i" */ } while (!(((o_2045_pos) > (o_2043_leng)) || /* line 1312 "../lib/scanstri.s7i" */ (o_437_in((*o_2041_stri)->mem[(idx_1=(uintType)((o_2045_pos)-1), idxChk(idx_1>=(*o_2041_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[12]))))); } { /* line 1313 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1313 "../lib/scanstri.s7i" */ intType start_2; /* line 1313 "../lib/scanstri.s7i" */ intType stop_3; /* line 1313 "../lib/scanstri.s7i" */ strCopy(&(o_2042_symbol), (start_2=o_2044_start,stop_3=(o_2045_pos)-1,start_2<1 ? start_2=1 : 0, slice_1.capacity=0, stop_3>=start_2 && (uintType)start_2<=(*o_2041_stri)->size ? (slice_1.mem = &(*o_2041_stri)->mem[start_2-1], (uintType)stop_3 > (*o_2041_stri)->size ? slice_1.size = (*o_2041_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)stop_3-(memSizeType)start_2+1)) : (slice_1.mem = NULL,slice_1.size = 0), &slice_1)); } { /* line 1314 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1314 "../lib/scanstri.s7i" */ strCopy(&(*o_2041_stri), (strTailSlice(*o_2041_stri, o_2045_pos, &slice_1), &slice_1)); } break; } } else { /* line 1317 "../lib/scanstri.s7i" */ strCopy(&(*o_2041_stri), &str[0] /* "" */); } return o_2042_symbol; } /* line 1 "no_file" */ /* 953 */ /* line 1331 "../lib/scanstri.s7i" */ static void/*t_1_void*/ o_2046_getNextHtmlAttribute (striType/*t_15_string*/ *const o_2047_stri, striType/*t_15_string*/ *const o_2048_attributeName, striType/*t_15_string*/ *const o_2049_attributeValue) { { /* line 1334 "../lib/scanstri.s7i" */ striType old_stri=*o_2048_attributeName; /* line 1334 "../lib/scanstri.s7i" */ *o_2048_attributeName=o_2024_getSymbolInXmlTag(o_2047_stri); /* line 1334 "../lib/scanstri.s7i" */ strDestr(old_stri); } /* line 1335 "../lib/scanstri.s7i" */ if (((*o_2048_attributeName)->size==1&&(*o_2048_attributeName)->mem[0]==(strElemType)('/') /* "/" */)) { /* line 1336 "../lib/scanstri.s7i" */ do { { /* line 1337 "../lib/scanstri.s7i" */ striType old_stri=*o_2048_attributeName; /* line 1337 "../lib/scanstri.s7i" */ *o_2048_attributeName=o_2024_getSymbolInXmlTag(o_2047_stri); /* line 1337 "../lib/scanstri.s7i" */ strDestr(old_stri); } /* line 1338 "../lib/scanstri.s7i" */ } while (!((((*o_2048_attributeName)->size==1&&(*o_2048_attributeName)->mem[0]==(strElemType)('>') /* ">" */)) || /* line 1338 "../lib/scanstri.s7i" */ (((*o_2048_attributeName)->size==0 /* "" */)))); /* line 1339 "../lib/scanstri.s7i" */ strCopy(&(*o_2048_attributeName), &str[0] /* "" */); /* line 1340 "../lib/scanstri.s7i" */ strCopy(&(*o_2049_attributeValue), &str[20] /* "/" */); } else /* line 1341 "../lib/scanstri.s7i" */ if (((*o_2048_attributeName)->size==1&&(*o_2048_attributeName)->mem[0]==(strElemType)('>') /* ">" */)) { /* line 1342 "../lib/scanstri.s7i" */ strCopy(&(*o_2048_attributeName), &str[0] /* "" */); /* line 1343 "../lib/scanstri.s7i" */ strCopy(&(*o_2049_attributeValue), &str[0] /* "" */); } else { { /* line 1345 "../lib/scanstri.s7i" */ const_striType tmp_1; /* line 1345 "../lib/scanstri.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); /* line 1345 "../lib/scanstri.s7i" */ if ((tmp_1=(tmp_2=(striType/*t_15_string*/)(o_2024_getSymbolInXmlTag(o_2047_stri))),tmp_1->size==1&&tmp_1->mem[0]==(strElemType)('=') /* "=" */)) { { /* line 1346 "../lib/scanstri.s7i" */ striType old_stri=*o_2049_attributeValue; /* line 1346 "../lib/scanstri.s7i" */ *o_2049_attributeValue=o_2040_getHtmlAttributeValue(o_2047_stri); /* line 1346 "../lib/scanstri.s7i" */ strDestr(old_stri); } /* line 1347 "../lib/scanstri.s7i" */ if ((o_75_startsWith(*o_2049_attributeValue, &str[35] /* "\"" */)) || /* line 1348 "../lib/scanstri.s7i" */ (o_75_startsWith(*o_2049_attributeValue, &str[4] /* "'" */))) { { /* line 1349 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1349 "../lib/scanstri.s7i" */ strCopy(&(*o_2049_attributeValue), (strTailSlice(*o_2049_attributeValue, 2L, &slice_1), &slice_1)); } } else /* line 1350 "../lib/scanstri.s7i" */ if ((((*o_2049_attributeValue)->size==1&&(*o_2049_attributeValue)->mem[0]==(strElemType)('/') /* "/" */)) || /* line 1350 "../lib/scanstri.s7i" */ (((*o_2049_attributeValue)->size==1&&(*o_2049_attributeValue)->mem[0]==(strElemType)('>') /* ">" */))) { /* line 1351 "../lib/scanstri.s7i" */ strCopy(&(*o_2049_attributeValue), &str[0] /* "" */); } } else { /* line 1354 "../lib/scanstri.s7i" */ strCopy(&(*o_2049_attributeValue), &str[0] /* "" */); } /* line 1345 "../lib/scanstri.s7i" */ strDestr(tmp_2); } } } /* line 1 "no_file" */ /* 954 */ /* line 1370 "../lib/scanstri.s7i" */ static striType/*t_15_string*/ o_2050_getHttpSymbol (striType/*t_15_string*/ *const o_2051_stri) { /* line 1372 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_2052_symbol; /* line 1374 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_2053_leng=0; /* line 1375 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_2054_start=1; /* line 1376 "../lib/scanstri.s7i" */ intType/*t_14_integer*/ o_2055_pos=0; /* line 1372 "../lib/scanstri.s7i" */ o_2052_symbol=strEmpty(); /* "" */ /* line 1378 "../lib/scanstri.s7i" */ o_2053_leng=(intType)((*o_2051_stri)->size); { /* line 1379 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1379 "../lib/scanstri.s7i" */ while (((o_2054_start) <= (o_2053_leng)) && /* line 1379 "../lib/scanstri.s7i" */ (o_437_in((*o_2051_stri)->mem[(idx_1=(uintType)((o_2054_start)-1), idxChk(idx_1>=(*o_2051_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[13])))) { /* line 1380 "../lib/scanstri.s7i" */ ++(o_2054_start); } } /* line 1382 "../lib/scanstri.s7i" */ if ((o_2054_start) <= (o_2053_leng)) { /* line 1413 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1383 "../lib/scanstri.s7i" */ o_2055_pos=o_2054_start; /* line 1384 "../lib/scanstri.s7i" */ switch ((*o_2051_stri)->mem[(idx_1=(uintType)((o_2055_pos)-1), idxChk(idx_1>=(*o_2051_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) { /* line 62 "../lib/chartype.s7i" */ case 33: /* line 62 "../lib/chartype.s7i" */ case 35: /* line 62 "../lib/chartype.s7i" */ case 36: /* line 62 "../lib/chartype.s7i" */ case 37: /* line 62 "../lib/chartype.s7i" */ case 38: /* line 62 "../lib/chartype.s7i" */ case 39: /* line 62 "../lib/chartype.s7i" */ case 42: /* line 62 "../lib/chartype.s7i" */ case 43: /* line 62 "../lib/chartype.s7i" */ case 45: /* line 62 "../lib/chartype.s7i" */ case 46: /* line 62 "../lib/chartype.s7i" */ case 48: /* line 62 "../lib/chartype.s7i" */ case 49: /* line 62 "../lib/chartype.s7i" */ case 50: /* line 62 "../lib/chartype.s7i" */ case 51: /* line 62 "../lib/chartype.s7i" */ case 52: /* line 62 "../lib/chartype.s7i" */ case 53: /* line 62 "../lib/chartype.s7i" */ case 54: /* line 62 "../lib/chartype.s7i" */ case 55: /* line 62 "../lib/chartype.s7i" */ case 56: /* line 62 "../lib/chartype.s7i" */ case 57: /* line 62 "../lib/chartype.s7i" */ case 65: /* line 62 "../lib/chartype.s7i" */ case 66: /* line 62 "../lib/chartype.s7i" */ case 67: /* line 62 "../lib/chartype.s7i" */ case 68: /* line 62 "../lib/chartype.s7i" */ case 69: /* line 62 "../lib/chartype.s7i" */ case 70: /* line 62 "../lib/chartype.s7i" */ case 71: /* line 62 "../lib/chartype.s7i" */ case 72: /* line 62 "../lib/chartype.s7i" */ case 73: /* line 62 "../lib/chartype.s7i" */ case 74: /* line 62 "../lib/chartype.s7i" */ case 75: /* line 62 "../lib/chartype.s7i" */ case 76: /* line 62 "../lib/chartype.s7i" */ case 77: /* line 62 "../lib/chartype.s7i" */ case 78: /* line 62 "../lib/chartype.s7i" */ case 79: /* line 62 "../lib/chartype.s7i" */ case 80: /* line 62 "../lib/chartype.s7i" */ case 81: /* line 62 "../lib/chartype.s7i" */ case 82: /* line 62 "../lib/chartype.s7i" */ case 83: /* line 62 "../lib/chartype.s7i" */ case 84: /* line 62 "../lib/chartype.s7i" */ case 85: /* line 62 "../lib/chartype.s7i" */ case 86: /* line 62 "../lib/chartype.s7i" */ case 87: /* line 62 "../lib/chartype.s7i" */ case 88: /* line 62 "../lib/chartype.s7i" */ case 89: /* line 62 "../lib/chartype.s7i" */ case 90: /* line 62 "../lib/chartype.s7i" */ case 94: /* line 62 "../lib/chartype.s7i" */ case 95: /* line 62 "../lib/chartype.s7i" */ case 96: /* line 62 "../lib/chartype.s7i" */ case 97: /* line 62 "../lib/chartype.s7i" */ case 98: /* line 62 "../lib/chartype.s7i" */ case 99: /* line 62 "../lib/chartype.s7i" */ case 100: /* line 62 "../lib/chartype.s7i" */ case 101: /* line 62 "../lib/chartype.s7i" */ case 102: /* line 62 "../lib/chartype.s7i" */ case 103: /* line 62 "../lib/chartype.s7i" */ case 104: /* line 62 "../lib/chartype.s7i" */ case 105: /* line 62 "../lib/chartype.s7i" */ case 106: /* line 62 "../lib/chartype.s7i" */ case 107: /* line 62 "../lib/chartype.s7i" */ case 108: /* line 62 "../lib/chartype.s7i" */ case 109: /* line 62 "../lib/chartype.s7i" */ case 110: /* line 62 "../lib/chartype.s7i" */ case 111: /* line 62 "../lib/chartype.s7i" */ case 112: /* line 62 "../lib/chartype.s7i" */ case 113: /* line 62 "../lib/chartype.s7i" */ case 114: /* line 62 "../lib/chartype.s7i" */ case 115: /* line 62 "../lib/chartype.s7i" */ case 116: /* line 62 "../lib/chartype.s7i" */ case 117: /* line 62 "../lib/chartype.s7i" */ case 118: /* line 62 "../lib/chartype.s7i" */ case 119: /* line 62 "../lib/chartype.s7i" */ case 120: /* line 62 "../lib/chartype.s7i" */ case 121: /* line 62 "../lib/chartype.s7i" */ case 122: /* line 62 "../lib/chartype.s7i" */ case 124: /* line 62 "../lib/chartype.s7i" */ case 126: { /* line 1386 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1386 "../lib/scanstri.s7i" */ do { /* line 1387 "../lib/scanstri.s7i" */ ++(o_2055_pos); /* line 1388 "../lib/scanstri.s7i" */ } while (!(((o_2055_pos) > (o_2053_leng)) || /* line 1388 "../lib/scanstri.s7i" */ (o_440_not((*o_2051_stri)->mem[(idx_1=(uintType)((o_2055_pos)-1), idxChk(idx_1>=(*o_2051_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[14]))))); } { /* line 1389 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1389 "../lib/scanstri.s7i" */ intType start_2; /* line 1389 "../lib/scanstri.s7i" */ intType stop_3; /* line 1389 "../lib/scanstri.s7i" */ strCopy(&(o_2052_symbol), (start_2=o_2054_start,stop_3=(o_2055_pos)-1,start_2<1 ? start_2=1 : 0, slice_1.capacity=0, stop_3>=start_2 && (uintType)start_2<=(*o_2051_stri)->size ? (slice_1.mem = &(*o_2051_stri)->mem[start_2-1], (uintType)stop_3 > (*o_2051_stri)->size ? slice_1.size = (*o_2051_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)stop_3-(memSizeType)start_2+1)) : (slice_1.mem = NULL,slice_1.size = 0), &slice_1)); } { /* line 1390 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1390 "../lib/scanstri.s7i" */ strCopy(&(*o_2051_stri), (strTailSlice(*o_2051_stri, o_2055_pos, &slice_1), &slice_1)); } /* line 1390 "../lib/scanstri.s7i" */ break; /* line 43 "../lib/chartype.s7i" */ case 34: /* line 1392 "../lib/scanstri.s7i" */ ++(o_2054_start); /* line 1393 "../lib/scanstri.s7i" */ ++(o_2055_pos); { /* line 1394 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1394 "../lib/scanstri.s7i" */ while (((o_2055_pos) <= (o_2053_leng)) && /* line 1394 "../lib/scanstri.s7i" */ (((*o_2051_stri)->mem[(idx_1=(uintType)((o_2055_pos)-1), idxChk(idx_1>=(*o_2051_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) != ((charType) '"'))) { { /* line 1395 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1395 "../lib/scanstri.s7i" */ if ((((*o_2051_stri)->mem[(idx_1=(uintType)((o_2055_pos)-1), idxChk(idx_1>=(*o_2051_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '\\')) && /* line 1395 "../lib/scanstri.s7i" */ ((o_2055_pos) < (o_2053_leng))) { { /* line 1396 "../lib/scanstri.s7i" */ struct striStruct slice_2; /* line 1396 "../lib/scanstri.s7i" */ intType start_3; /* line 1396 "../lib/scanstri.s7i" */ intType stop_4; /* line 1396 "../lib/scanstri.s7i" */ uintType idx_5; /* line 1396 "../lib/scanstri.s7i" */ struct striStruct stri_6; /* line 1396 "../lib/scanstri.s7i" */ strAppendTemp(&(o_2052_symbol), strConcat((start_3=o_2054_start,stop_4=(o_2055_pos)-1,start_3<1 ? start_3=1 : 0, slice_2.capacity=0, stop_4>=start_3 && (uintType)start_3<=(*o_2051_stri)->size ? (slice_2.mem = &(*o_2051_stri)->mem[start_3-1], (uintType)stop_4 > (*o_2051_stri)->size ? slice_2.size = (*o_2051_stri)->size-(memSizeType)start_3+1 : (slice_2.size = (memSizeType)stop_4-(memSizeType)start_3+1)) : (slice_2.mem = NULL,slice_2.size = 0), &slice_2), (idx_5=(uintType)(((o_2055_pos)+1)-1), idx_5>=(*o_2051_stri)->size ? &str[0] /* "" */ : chrStrMacro((*o_2051_stri)->mem[idx_5],stri_6)))); } /* line 1397 "../lib/scanstri.s7i" */ o_2055_pos+=2L; /* line 1398 "../lib/scanstri.s7i" */ o_2054_start=o_2055_pos; } else { /* line 1400 "../lib/scanstri.s7i" */ ++(o_2055_pos); } } } } { /* line 1403 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1403 "../lib/scanstri.s7i" */ intType start_2; /* line 1403 "../lib/scanstri.s7i" */ intType stop_3; /* line 1403 "../lib/scanstri.s7i" */ strAppend(&(o_2052_symbol), (start_2=o_2054_start,stop_3=(o_2055_pos)-1,start_2<1 ? start_2=1 : 0, slice_1.capacity=0, stop_3>=start_2 && (uintType)start_2<=(*o_2051_stri)->size ? (slice_1.mem = &(*o_2051_stri)->mem[start_2-1], (uintType)stop_3 > (*o_2051_stri)->size ? slice_1.size = (*o_2051_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)stop_3-(memSizeType)start_2+1)) : (slice_1.mem = NULL,slice_1.size = 0), &slice_1)); } { /* line 1404 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1404 "../lib/scanstri.s7i" */ strCopy(&(*o_2051_stri), (strTailSlice(*o_2051_stri, (o_2055_pos)+1, &slice_1), &slice_1)); } /* line 1404 "../lib/scanstri.s7i" */ break; /* line 59 "../lib/chartype.s7i" */ case 40: /* line 59 "../lib/chartype.s7i" */ case 41: /* line 59 "../lib/chartype.s7i" */ case 44: /* line 59 "../lib/chartype.s7i" */ case 47: /* line 59 "../lib/chartype.s7i" */ case 58: /* line 59 "../lib/chartype.s7i" */ case 59: /* line 59 "../lib/chartype.s7i" */ case 60: /* line 59 "../lib/chartype.s7i" */ case 61: /* line 59 "../lib/chartype.s7i" */ case 62: /* line 59 "../lib/chartype.s7i" */ case 63: /* line 59 "../lib/chartype.s7i" */ case 64: /* line 59 "../lib/chartype.s7i" */ case 91: /* line 59 "../lib/chartype.s7i" */ case 92: /* line 59 "../lib/chartype.s7i" */ case 93: /* line 59 "../lib/chartype.s7i" */ case 123: /* line 59 "../lib/chartype.s7i" */ case 125: { /* line 1406 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1406 "../lib/scanstri.s7i" */ struct striStruct stri_2; /* line 1406 "../lib/scanstri.s7i" */ strCopy(&(o_2052_symbol), (idx_1=(uintType)((o_2055_pos)-1), idx_1>=(*o_2051_stri)->size ? &str[0] /* "" */ : chrStrMacro((*o_2051_stri)->mem[idx_1],stri_2))); } { /* line 1407 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1407 "../lib/scanstri.s7i" */ strCopy(&(*o_2051_stri), (strTailSlice(*o_2051_stri, (o_2055_pos)+1, &slice_1), &slice_1)); } /* line 1407 "../lib/scanstri.s7i" */ break; default: { /* line 1409 "../lib/scanstri.s7i" */ uintType idx_1; /* line 1409 "../lib/scanstri.s7i" */ do { /* line 1410 "../lib/scanstri.s7i" */ ++(o_2055_pos); /* line 1411 "../lib/scanstri.s7i" */ } while (!(((o_2055_pos) > (o_2053_leng)) || /* line 1411 "../lib/scanstri.s7i" */ (o_437_in((*o_2051_stri)->mem[(idx_1=(uintType)((o_2055_pos)-1), idxChk(idx_1>=(*o_2051_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)], (setType/*t_33_*ANONYM_TYPE**/)(set[12]))))); } { /* line 1412 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1412 "../lib/scanstri.s7i" */ intType start_2; /* line 1412 "../lib/scanstri.s7i" */ intType stop_3; /* line 1412 "../lib/scanstri.s7i" */ strCopy(&(o_2052_symbol), (start_2=o_2054_start,stop_3=(o_2055_pos)-1,start_2<1 ? start_2=1 : 0, slice_1.capacity=0, stop_3>=start_2 && (uintType)start_2<=(*o_2051_stri)->size ? (slice_1.mem = &(*o_2051_stri)->mem[start_2-1], (uintType)stop_3 > (*o_2051_stri)->size ? slice_1.size = (*o_2051_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)stop_3-(memSizeType)start_2+1)) : (slice_1.mem = NULL,slice_1.size = 0), &slice_1)); } { /* line 1413 "../lib/scanstri.s7i" */ struct striStruct slice_1; /* line 1413 "../lib/scanstri.s7i" */ strCopy(&(*o_2051_stri), (strTailSlice(*o_2051_stri, o_2055_pos, &slice_1), &slice_1)); } break; } } else { /* line 1416 "../lib/scanstri.s7i" */ strCopy(&(*o_2051_stri), &str[0] /* "" */); } return o_2052_symbol; } /* line 1 "no_file" */ /* 955 */ /* line 1421 "../lib/scanstri.s7i" */ static striType/*t_15_string*/ o_2056_getValueOfHeaderAttribute (const const_striType/*t_15_string*/ value_o_2057_headerLine, const const_striType/*t_15_string*/ o_2058_attribute) { /* line 1421 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_2057_headerLine; /* line 1423 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_2059_attrValue; /* line 1425 "../lib/scanstri.s7i" */ striType/*t_15_string*/ o_2060_symbol; /* line 1421 "../lib/scanstri.s7i" */ o_2057_headerLine=strCreate(value_o_2057_headerLine); /* line 1423 "../lib/scanstri.s7i" */ o_2059_attrValue=strEmpty(); /* "" */ /* line 1425 "../lib/scanstri.s7i" */ o_2060_symbol=strEmpty(); /* "" */ /* line 1427 "../lib/scanstri.s7i" */ do { { /* line 1428 "../lib/scanstri.s7i" */ striType old_stri=o_2060_symbol; /* line 1428 "../lib/scanstri.s7i" */ o_2060_symbol=o_2050_getHttpSymbol(&(o_2057_headerLine)); /* line 1428 "../lib/scanstri.s7i" */ strDestr(old_stri); } /* line 1429 "../lib/scanstri.s7i" */ } while (!((((o_2060_symbol)->size==(o_2058_attribute)->size&&memcmp((o_2060_symbol)->mem,(o_2058_attribute)->mem,(o_2060_symbol)->size*sizeof(strElemType))==0)) || /* line 1429 "../lib/scanstri.s7i" */ (((o_2060_symbol)->size==0 /* "" */)))); /* line 1430 "../lib/scanstri.s7i" */ if (((o_2060_symbol)->size==(o_2058_attribute)->size&&memcmp((o_2060_symbol)->mem,(o_2058_attribute)->mem,(o_2060_symbol)->size*sizeof(strElemType))==0)) { { /* line 1431 "../lib/scanstri.s7i" */ striType old_stri=o_2060_symbol; /* line 1431 "../lib/scanstri.s7i" */ o_2060_symbol=o_2050_getHttpSymbol(&(o_2057_headerLine)); /* line 1431 "../lib/scanstri.s7i" */ strDestr(old_stri); } /* line 1432 "../lib/scanstri.s7i" */ if (((o_2060_symbol)->size==1&&(o_2060_symbol)->mem[0]==(strElemType)('=') /* "=" */)) { { /* line 1433 "../lib/scanstri.s7i" */ striType old_stri=o_2059_attrValue; /* line 1433 "../lib/scanstri.s7i" */ o_2059_attrValue=o_2050_getHttpSymbol(&(o_2057_headerLine)); /* line 1433 "../lib/scanstri.s7i" */ strDestr(old_stri); } } } /* line 1421 "../lib/scanstri.s7i" */ strDestr(o_2057_headerLine); /* line 1421 "../lib/scanstri.s7i" */ strDestr(o_2060_symbol); return o_2059_attrValue; } /* line 1 "no_file" */ /* 956 */ /* line 56 "../lib/unicode.s7i" */ static striType/*t_15_string*/ o_2061_utf16beToStri (const const_striType/*t_15_string*/ o_2062_utf16be) { /* line 58 "../lib/unicode.s7i" */ striType/*t_15_string*/ o_2063_stri; /* line 60 "../lib/unicode.s7i" */ intType/*t_14_integer*/ o_2064_index=0; /* line 61 "../lib/unicode.s7i" */ charType/*t_18_char*/ o_2065_byte1=(charType) ' '; /* line 62 "../lib/unicode.s7i" */ charType/*t_18_char*/ o_2066_byte2=(charType) ' '; /* line 63 "../lib/unicode.s7i" */ charType/*t_18_char*/ o_2067_ch1=(charType) ' '; /* line 64 "../lib/unicode.s7i" */ charType/*t_18_char*/ o_2068_ch2=(charType) ' '; /* line 58 "../lib/unicode.s7i" */ o_2063_stri=strEmpty(); /* "" */ /* inline proc o_151_for */ { /* inline params */ /* line 66 "../lib/unicode.s7i" */ intType/*t_14_integer*/ *const o_2069_variable=&(o_2064_index); /* line 66 "../lib/unicode.s7i" */ const intType/*t_14_integer*/ o_2070_lowerLimit=1L; /* line 66 "../lib/unicode.s7i" */ const intType/*t_14_integer*/ o_2071_upperLimit=(intType)((o_2062_utf16be)->size); /* line 66 "../lib/unicode.s7i" */ const intType/*t_14_integer*/ o_2072_incr_step=2L; /* line 66 "../lib/unicode.s7i" */ /* push proc param o_2073_statements */ /* line 66 "../lib/unicode.s7i" */ /* inline local_vars */ /* inline body */ /* line 72 "../lib/forloop.s7i" */ *o_2069_variable=o_2070_lowerLimit; /* line 73 "../lib/forloop.s7i" */ while ((*o_2069_variable) <= (o_2071_upperLimit)) { /* closure o_2073_statements*/ { { /* line 67 "../lib/unicode.s7i" */ uintType idx_1; /* line 67 "../lib/unicode.s7i" */ o_2065_byte1=(o_2062_utf16be)->mem[(idx_1=(uintType)((o_2064_index)-1), idxChk(idx_1>=(o_2062_utf16be)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]; } { /* line 68 "../lib/unicode.s7i" */ uintType idx_1; /* line 68 "../lib/unicode.s7i" */ o_2066_byte2=(o_2062_utf16be)->mem[(idx_1=(uintType)(((o_2064_index)+1)-1), idxChk(idx_1>=(o_2062_utf16be)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]; } /* line 69 "../lib/unicode.s7i" */ if (((o_2065_byte1) > ((charType) 255)) || /* line 69 "../lib/unicode.s7i" */ ((o_2066_byte2) > ((charType) 255))) { /* line 70 "../lib/unicode.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/unicode.s7i", 70); } else { { /* line 72 "../lib/unicode.s7i" */ intType tmp_1; /* line 72 "../lib/unicode.s7i" */ o_2067_ch1=(tmp_1=(((intType)((scharType)(o_2065_byte1))) * 256L) + ((intType)((scharType)(o_2066_byte2))),tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1); } /* line 73 "../lib/unicode.s7i" */ if (((o_2067_ch1) >= ((charType) 55296)) && /* line 73 "../lib/unicode.s7i" */ ((o_2067_ch1) <= ((charType) 56319))) { /* line 74 "../lib/unicode.s7i" */ o_2064_index+=2L; { /* line 75 "../lib/unicode.s7i" */ uintType idx_1; /* line 75 "../lib/unicode.s7i" */ o_2065_byte1=(o_2062_utf16be)->mem[(idx_1=(uintType)((o_2064_index)-1), idxChk(idx_1>=(o_2062_utf16be)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]; } { /* line 76 "../lib/unicode.s7i" */ uintType idx_1; /* line 76 "../lib/unicode.s7i" */ o_2066_byte2=(o_2062_utf16be)->mem[(idx_1=(uintType)(((o_2064_index)+1)-1), idxChk(idx_1>=(o_2062_utf16be)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]; } /* line 77 "../lib/unicode.s7i" */ if (((o_2065_byte1) > ((charType) 255)) || /* line 77 "../lib/unicode.s7i" */ ((o_2066_byte2) > ((charType) 255))) { /* line 78 "../lib/unicode.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/unicode.s7i", 78); } else { { /* line 80 "../lib/unicode.s7i" */ intType tmp_1; /* line 80 "../lib/unicode.s7i" */ o_2068_ch2=(tmp_1=(((intType)((scharType)(o_2065_byte1))) * 256L) + ((intType)((scharType)(o_2066_byte2))),tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1); } /* line 81 "../lib/unicode.s7i" */ if (((o_2068_ch2) >= ((charType) 56320)) && /* line 81 "../lib/unicode.s7i" */ ((o_2068_ch2) <= ((charType) 57343))) { { /* line 82 "../lib/unicode.s7i" */ charType tmp_1; /* line 82 "../lib/unicode.s7i" */ intType tmp_2; /* line 82 "../lib/unicode.s7i" */ intType tmp_3; /* line 82 "../lib/unicode.s7i" */ tmp_1=(tmp_2=(((tmp_3=((intType)((scharType)(o_2067_ch1))) - 55296L,ovfChk((uintType)tmp_3+(uintType)9007199254740992L>(uintType)18014398509481983L)?intRaiseError(OVERFLOW_ERROR):tmp_3 << 10L)) + (((intType)((scharType)(o_2068_ch2))) - 56320L)) + 65536L,tmp_2INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_2); /* line 82 "../lib/unicode.s7i" */ if (((o_2063_stri))->size == ((o_2063_stri))->capacity) { /* line 82 "../lib/unicode.s7i" */ strPush(&((o_2063_stri)), tmp_1); /* line 82 "../lib/unicode.s7i" */ } else { /* line 82 "../lib/unicode.s7i" */ ((o_2063_stri))->mem[((o_2063_stri))->size]=tmp_1; /* line 82 "../lib/unicode.s7i" */ ((o_2063_stri))->size++; /* line 82 "../lib/unicode.s7i" */ } } } else { /* line 85 "../lib/unicode.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/unicode.s7i", 85); } } } else { /* line 89 "../lib/unicode.s7i" */ if (((o_2063_stri))->size == ((o_2063_stri))->capacity) { /* line 89 "../lib/unicode.s7i" */ strPush(&((o_2063_stri)), (o_2067_ch1)); /* line 89 "../lib/unicode.s7i" */ } else { /* line 89 "../lib/unicode.s7i" */ ((o_2063_stri))->mem[((o_2063_stri))->size]=(o_2067_ch1); /* line 89 "../lib/unicode.s7i" */ ((o_2063_stri))->size++; /* line 89 "../lib/unicode.s7i" */ } } } } /* closure o_2073_statements*/ /* line 75 "../lib/forloop.s7i" */ *o_2069_variable+=o_2072_incr_step; } /* pop proc param o_2073_statements */ } /* inline proc o_151_for */ return o_2063_stri; } /* line 1 "no_file" */ /* 957 */ /* line 103 "../lib/unicode.s7i" */ static striType/*t_15_string*/ o_2074_striToUtf16be (const const_striType/*t_15_string*/ o_2075_stri) { /* line 105 "../lib/unicode.s7i" */ striType/*t_15_string*/ o_2076_utf16be; /* line 107 "../lib/unicode.s7i" */ charType/*t_18_char*/ o_2077_ch=(charType) ' '; /* line 108 "../lib/unicode.s7i" */ intType/*t_14_integer*/ o_2078_ch1=0; /* line 109 "../lib/unicode.s7i" */ intType/*t_14_integer*/ o_2079_ch2=0; /* line 105 "../lib/unicode.s7i" */ o_2076_utf16be=strEmpty(); /* "" */ /* inline proc o_165_for */ { /* inline params */ /* line 111 "../lib/unicode.s7i" */ charType/*t_18_char*/ *const o_373_variable=&(o_2077_ch); /* line 111 "../lib/unicode.s7i" */ const const_striType/*t_15_string*/ o_374_stri=o_2075_stri; /* line 111 "../lib/unicode.s7i" */ /* push proc param o_375_statements */ /* line 111 "../lib/unicode.s7i" */ /* inline local_vars */ /* line 111 "../lib/unicode.s7i" */ /* line 214 "../lib/forloop.s7i" */ /* line 111 "../lib/unicode.s7i" */ intType/*t_14_integer*/ o_376_number=0; /* inline body */ { /* line 216 "../lib/forloop.s7i" */ intType tmp_e_1=(intType)((o_374_stri)->size); /* line 216 "../lib/forloop.s7i" */ for (o_376_number=1L; o_376_number<=tmp_e_1; (o_376_number)++) { { /* line 217 "../lib/forloop.s7i" */ uintType idx_1; /* line 217 "../lib/forloop.s7i" */ *o_373_variable=(o_374_stri)->mem[(idx_1=(uintType)((o_376_number)-1), idxChk(idx_1>=(o_374_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]; } /* closure o_375_statements*/ { /* line 112 "../lib/unicode.s7i" */ if ((o_2077_ch) <= ((charType) 65535)) { /* line 113 "../lib/unicode.s7i" */ if (((o_2077_ch) >= ((charType) 55296)) && /* line 113 "../lib/unicode.s7i" */ ((o_2077_ch) <= ((charType) 56319))) { /* line 114 "../lib/unicode.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/unicode.s7i", 114); } else { { /* line 116 "../lib/unicode.s7i" */ charType tmp_1; /* line 116 "../lib/unicode.s7i" */ intType tmp_2; /* line 116 "../lib/unicode.s7i" */ tmp_1=(tmp_2=(((intType)((scharType)(o_2077_ch))) >> 8L)&255L,tmp_2INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_2); /* line 116 "../lib/unicode.s7i" */ if (((o_2076_utf16be))->size == ((o_2076_utf16be))->capacity) { /* line 116 "../lib/unicode.s7i" */ strPush(&((o_2076_utf16be)), tmp_1); /* line 116 "../lib/unicode.s7i" */ } else { /* line 116 "../lib/unicode.s7i" */ ((o_2076_utf16be))->mem[((o_2076_utf16be))->size]=tmp_1; /* line 116 "../lib/unicode.s7i" */ ((o_2076_utf16be))->size++; /* line 116 "../lib/unicode.s7i" */ } } { /* line 117 "../lib/unicode.s7i" */ charType tmp_1; /* line 117 "../lib/unicode.s7i" */ intType tmp_2; /* line 117 "../lib/unicode.s7i" */ tmp_1=(tmp_2=((intType)((scharType)(o_2077_ch)))&255L,tmp_2INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_2); /* line 117 "../lib/unicode.s7i" */ if (((o_2076_utf16be))->size == ((o_2076_utf16be))->capacity) { /* line 117 "../lib/unicode.s7i" */ strPush(&((o_2076_utf16be)), tmp_1); /* line 117 "../lib/unicode.s7i" */ } else { /* line 117 "../lib/unicode.s7i" */ ((o_2076_utf16be))->mem[((o_2076_utf16be))->size]=tmp_1; /* line 117 "../lib/unicode.s7i" */ ((o_2076_utf16be))->size++; /* line 117 "../lib/unicode.s7i" */ } } } } else /* line 119 "../lib/unicode.s7i" */ if ((o_2077_ch) <= ((charType) 1114111)) { /* line 120 "../lib/unicode.s7i" */ o_2078_ch1=((((intType)((scharType)(o_2077_ch))) - 65536L) >> 10L) + 55296L; /* line 121 "../lib/unicode.s7i" */ o_2079_ch2=((((intType)((scharType)(o_2077_ch))) - 65536L)&1023L) + 56320L; { /* line 122 "../lib/unicode.s7i" */ charType tmp_1; /* line 122 "../lib/unicode.s7i" */ intType tmp_2; /* line 122 "../lib/unicode.s7i" */ tmp_1=(tmp_2=((o_2078_ch1) >> 8L)&255L,tmp_2INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_2); /* line 122 "../lib/unicode.s7i" */ if (((o_2076_utf16be))->size == ((o_2076_utf16be))->capacity) { /* line 122 "../lib/unicode.s7i" */ strPush(&((o_2076_utf16be)), tmp_1); /* line 122 "../lib/unicode.s7i" */ } else { /* line 122 "../lib/unicode.s7i" */ ((o_2076_utf16be))->mem[((o_2076_utf16be))->size]=tmp_1; /* line 122 "../lib/unicode.s7i" */ ((o_2076_utf16be))->size++; /* line 122 "../lib/unicode.s7i" */ } } { /* line 123 "../lib/unicode.s7i" */ charType tmp_1; /* line 123 "../lib/unicode.s7i" */ intType tmp_2; /* line 123 "../lib/unicode.s7i" */ tmp_1=(tmp_2=(o_2078_ch1)&255L,tmp_2INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_2); /* line 123 "../lib/unicode.s7i" */ if (((o_2076_utf16be))->size == ((o_2076_utf16be))->capacity) { /* line 123 "../lib/unicode.s7i" */ strPush(&((o_2076_utf16be)), tmp_1); /* line 123 "../lib/unicode.s7i" */ } else { /* line 123 "../lib/unicode.s7i" */ ((o_2076_utf16be))->mem[((o_2076_utf16be))->size]=tmp_1; /* line 123 "../lib/unicode.s7i" */ ((o_2076_utf16be))->size++; /* line 123 "../lib/unicode.s7i" */ } } { /* line 124 "../lib/unicode.s7i" */ charType tmp_1; /* line 124 "../lib/unicode.s7i" */ intType tmp_2; /* line 124 "../lib/unicode.s7i" */ tmp_1=(tmp_2=((o_2079_ch2) >> 8L)&255L,tmp_2INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_2); /* line 124 "../lib/unicode.s7i" */ if (((o_2076_utf16be))->size == ((o_2076_utf16be))->capacity) { /* line 124 "../lib/unicode.s7i" */ strPush(&((o_2076_utf16be)), tmp_1); /* line 124 "../lib/unicode.s7i" */ } else { /* line 124 "../lib/unicode.s7i" */ ((o_2076_utf16be))->mem[((o_2076_utf16be))->size]=tmp_1; /* line 124 "../lib/unicode.s7i" */ ((o_2076_utf16be))->size++; /* line 124 "../lib/unicode.s7i" */ } } { /* line 125 "../lib/unicode.s7i" */ charType tmp_1; /* line 125 "../lib/unicode.s7i" */ intType tmp_2; /* line 125 "../lib/unicode.s7i" */ tmp_1=(tmp_2=(o_2079_ch2)&255L,tmp_2INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_2); /* line 125 "../lib/unicode.s7i" */ if (((o_2076_utf16be))->size == ((o_2076_utf16be))->capacity) { /* line 125 "../lib/unicode.s7i" */ strPush(&((o_2076_utf16be)), tmp_1); /* line 125 "../lib/unicode.s7i" */ } else { /* line 125 "../lib/unicode.s7i" */ ((o_2076_utf16be))->mem[((o_2076_utf16be))->size]=tmp_1; /* line 125 "../lib/unicode.s7i" */ ((o_2076_utf16be))->size++; /* line 125 "../lib/unicode.s7i" */ } } } else { /* line 127 "../lib/unicode.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/unicode.s7i", 127); } } /* closure o_375_statements*/ } } /* pop proc param o_375_statements */ } /* inline proc o_165_for */ return o_2076_utf16be; } /* line 1 "no_file" */ /* 958 */ /* line 142 "../lib/unicode.s7i" */ static striType/*t_15_string*/ o_2080_utf16leToStri (const const_striType/*t_15_string*/ o_2081_utf16le) { /* line 144 "../lib/unicode.s7i" */ striType/*t_15_string*/ o_2082_stri; /* line 146 "../lib/unicode.s7i" */ intType/*t_14_integer*/ o_2083_index=0; /* line 147 "../lib/unicode.s7i" */ charType/*t_18_char*/ o_2084_byte1=(charType) ' '; /* line 148 "../lib/unicode.s7i" */ charType/*t_18_char*/ o_2085_byte2=(charType) ' '; /* line 149 "../lib/unicode.s7i" */ charType/*t_18_char*/ o_2086_ch1=(charType) ' '; /* line 150 "../lib/unicode.s7i" */ charType/*t_18_char*/ o_2087_ch2=(charType) ' '; /* line 144 "../lib/unicode.s7i" */ o_2082_stri=strEmpty(); /* "" */ /* inline proc o_151_for */ { /* inline params */ /* line 152 "../lib/unicode.s7i" */ intType/*t_14_integer*/ *const o_2069_variable=&(o_2083_index); /* line 152 "../lib/unicode.s7i" */ const intType/*t_14_integer*/ o_2070_lowerLimit=1L; /* line 152 "../lib/unicode.s7i" */ const intType/*t_14_integer*/ o_2071_upperLimit=(intType)((o_2081_utf16le)->size); /* line 152 "../lib/unicode.s7i" */ const intType/*t_14_integer*/ o_2072_incr_step=2L; /* line 152 "../lib/unicode.s7i" */ /* push proc param o_2073_statements */ /* line 152 "../lib/unicode.s7i" */ /* inline local_vars */ /* inline body */ /* line 72 "../lib/forloop.s7i" */ *o_2069_variable=o_2070_lowerLimit; /* line 73 "../lib/forloop.s7i" */ while ((*o_2069_variable) <= (o_2071_upperLimit)) { /* closure o_2073_statements*/ { { /* line 153 "../lib/unicode.s7i" */ uintType idx_1; /* line 153 "../lib/unicode.s7i" */ o_2084_byte1=(o_2081_utf16le)->mem[(idx_1=(uintType)((o_2083_index)-1), idxChk(idx_1>=(o_2081_utf16le)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]; } { /* line 154 "../lib/unicode.s7i" */ uintType idx_1; /* line 154 "../lib/unicode.s7i" */ o_2085_byte2=(o_2081_utf16le)->mem[(idx_1=(uintType)(((o_2083_index)+1)-1), idxChk(idx_1>=(o_2081_utf16le)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]; } /* line 155 "../lib/unicode.s7i" */ if (((o_2084_byte1) > ((charType) 255)) || /* line 155 "../lib/unicode.s7i" */ ((o_2085_byte2) > ((charType) 255))) { /* line 156 "../lib/unicode.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/unicode.s7i", 156); } else { { /* line 158 "../lib/unicode.s7i" */ intType tmp_1; /* line 158 "../lib/unicode.s7i" */ o_2086_ch1=(tmp_1=(((intType)((scharType)(o_2085_byte2))) * 256L) + ((intType)((scharType)(o_2084_byte1))),tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1); } /* line 159 "../lib/unicode.s7i" */ if (((o_2086_ch1) >= ((charType) 55296)) && /* line 159 "../lib/unicode.s7i" */ ((o_2086_ch1) <= ((charType) 56319))) { /* line 160 "../lib/unicode.s7i" */ o_2083_index+=2L; { /* line 161 "../lib/unicode.s7i" */ uintType idx_1; /* line 161 "../lib/unicode.s7i" */ o_2084_byte1=(o_2081_utf16le)->mem[(idx_1=(uintType)((o_2083_index)-1), idxChk(idx_1>=(o_2081_utf16le)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]; } { /* line 162 "../lib/unicode.s7i" */ uintType idx_1; /* line 162 "../lib/unicode.s7i" */ o_2085_byte2=(o_2081_utf16le)->mem[(idx_1=(uintType)(((o_2083_index)+1)-1), idxChk(idx_1>=(o_2081_utf16le)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]; } /* line 163 "../lib/unicode.s7i" */ if (((o_2084_byte1) > ((charType) 255)) || /* line 163 "../lib/unicode.s7i" */ ((o_2085_byte2) > ((charType) 255))) { /* line 164 "../lib/unicode.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/unicode.s7i", 164); } else { { /* line 166 "../lib/unicode.s7i" */ intType tmp_1; /* line 166 "../lib/unicode.s7i" */ o_2087_ch2=(tmp_1=(((intType)((scharType)(o_2085_byte2))) * 256L) + ((intType)((scharType)(o_2084_byte1))),tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1); } /* line 167 "../lib/unicode.s7i" */ if (((o_2087_ch2) >= ((charType) 56320)) && /* line 167 "../lib/unicode.s7i" */ ((o_2087_ch2) <= ((charType) 57343))) { { /* line 168 "../lib/unicode.s7i" */ charType tmp_1; /* line 168 "../lib/unicode.s7i" */ intType tmp_2; /* line 168 "../lib/unicode.s7i" */ intType tmp_3; /* line 168 "../lib/unicode.s7i" */ tmp_1=(tmp_2=(((tmp_3=((intType)((scharType)(o_2086_ch1))) - 55296L,ovfChk((uintType)tmp_3+(uintType)9007199254740992L>(uintType)18014398509481983L)?intRaiseError(OVERFLOW_ERROR):tmp_3 << 10L)) + (((intType)((scharType)(o_2087_ch2))) - 56320L)) + 65536L,tmp_2INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_2); /* line 168 "../lib/unicode.s7i" */ if (((o_2082_stri))->size == ((o_2082_stri))->capacity) { /* line 168 "../lib/unicode.s7i" */ strPush(&((o_2082_stri)), tmp_1); /* line 168 "../lib/unicode.s7i" */ } else { /* line 168 "../lib/unicode.s7i" */ ((o_2082_stri))->mem[((o_2082_stri))->size]=tmp_1; /* line 168 "../lib/unicode.s7i" */ ((o_2082_stri))->size++; /* line 168 "../lib/unicode.s7i" */ } } } else { /* line 171 "../lib/unicode.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/unicode.s7i", 171); } } } else { /* line 175 "../lib/unicode.s7i" */ if (((o_2082_stri))->size == ((o_2082_stri))->capacity) { /* line 175 "../lib/unicode.s7i" */ strPush(&((o_2082_stri)), (o_2086_ch1)); /* line 175 "../lib/unicode.s7i" */ } else { /* line 175 "../lib/unicode.s7i" */ ((o_2082_stri))->mem[((o_2082_stri))->size]=(o_2086_ch1); /* line 175 "../lib/unicode.s7i" */ ((o_2082_stri))->size++; /* line 175 "../lib/unicode.s7i" */ } } } } /* closure o_2073_statements*/ /* line 75 "../lib/forloop.s7i" */ *o_2069_variable+=o_2072_incr_step; } /* pop proc param o_2073_statements */ } /* inline proc o_151_for */ return o_2082_stri; } /* line 1 "no_file" */ /* 959 */ /* line 189 "../lib/unicode.s7i" */ static striType/*t_15_string*/ o_2088_striToUtf16le (const const_striType/*t_15_string*/ o_2089_stri) { /* line 191 "../lib/unicode.s7i" */ striType/*t_15_string*/ o_2090_utf16le; /* line 193 "../lib/unicode.s7i" */ charType/*t_18_char*/ o_2091_ch=(charType) ' '; /* line 194 "../lib/unicode.s7i" */ intType/*t_14_integer*/ o_2092_ch1=0; /* line 195 "../lib/unicode.s7i" */ intType/*t_14_integer*/ o_2093_ch2=0; /* line 191 "../lib/unicode.s7i" */ o_2090_utf16le=strEmpty(); /* "" */ /* inline proc o_165_for */ { /* inline params */ /* line 197 "../lib/unicode.s7i" */ charType/*t_18_char*/ *const o_373_variable=&(o_2091_ch); /* line 197 "../lib/unicode.s7i" */ const const_striType/*t_15_string*/ o_374_stri=o_2089_stri; /* line 197 "../lib/unicode.s7i" */ /* push proc param o_375_statements */ /* line 197 "../lib/unicode.s7i" */ /* inline local_vars */ /* line 197 "../lib/unicode.s7i" */ /* line 214 "../lib/forloop.s7i" */ /* line 197 "../lib/unicode.s7i" */ intType/*t_14_integer*/ o_376_number=0; /* inline body */ { /* line 216 "../lib/forloop.s7i" */ intType tmp_e_1=(intType)((o_374_stri)->size); /* line 216 "../lib/forloop.s7i" */ for (o_376_number=1L; o_376_number<=tmp_e_1; (o_376_number)++) { { /* line 217 "../lib/forloop.s7i" */ uintType idx_1; /* line 217 "../lib/forloop.s7i" */ *o_373_variable=(o_374_stri)->mem[(idx_1=(uintType)((o_376_number)-1), idxChk(idx_1>=(o_374_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]; } /* closure o_375_statements*/ { /* line 198 "../lib/unicode.s7i" */ if ((o_2091_ch) <= ((charType) 65535)) { /* line 199 "../lib/unicode.s7i" */ if (((o_2091_ch) >= ((charType) 55296)) && /* line 199 "../lib/unicode.s7i" */ ((o_2091_ch) <= ((charType) 56319))) { /* line 200 "../lib/unicode.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/unicode.s7i", 200); } else { { /* line 202 "../lib/unicode.s7i" */ charType tmp_1; /* line 202 "../lib/unicode.s7i" */ intType tmp_2; /* line 202 "../lib/unicode.s7i" */ tmp_1=(tmp_2=((intType)((scharType)(o_2091_ch)))&255L,tmp_2INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_2); /* line 202 "../lib/unicode.s7i" */ if (((o_2090_utf16le))->size == ((o_2090_utf16le))->capacity) { /* line 202 "../lib/unicode.s7i" */ strPush(&((o_2090_utf16le)), tmp_1); /* line 202 "../lib/unicode.s7i" */ } else { /* line 202 "../lib/unicode.s7i" */ ((o_2090_utf16le))->mem[((o_2090_utf16le))->size]=tmp_1; /* line 202 "../lib/unicode.s7i" */ ((o_2090_utf16le))->size++; /* line 202 "../lib/unicode.s7i" */ } } { /* line 203 "../lib/unicode.s7i" */ charType tmp_1; /* line 203 "../lib/unicode.s7i" */ intType tmp_2; /* line 203 "../lib/unicode.s7i" */ tmp_1=(tmp_2=(((intType)((scharType)(o_2091_ch))) >> 8L)&255L,tmp_2INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_2); /* line 203 "../lib/unicode.s7i" */ if (((o_2090_utf16le))->size == ((o_2090_utf16le))->capacity) { /* line 203 "../lib/unicode.s7i" */ strPush(&((o_2090_utf16le)), tmp_1); /* line 203 "../lib/unicode.s7i" */ } else { /* line 203 "../lib/unicode.s7i" */ ((o_2090_utf16le))->mem[((o_2090_utf16le))->size]=tmp_1; /* line 203 "../lib/unicode.s7i" */ ((o_2090_utf16le))->size++; /* line 203 "../lib/unicode.s7i" */ } } } } else /* line 205 "../lib/unicode.s7i" */ if ((o_2091_ch) <= ((charType) 1114111)) { /* line 206 "../lib/unicode.s7i" */ o_2092_ch1=((((intType)((scharType)(o_2091_ch))) - 65536L) >> 10L) + 55296L; /* line 207 "../lib/unicode.s7i" */ o_2093_ch2=((((intType)((scharType)(o_2091_ch))) - 65536L)&1023L) + 56320L; { /* line 208 "../lib/unicode.s7i" */ charType tmp_1; /* line 208 "../lib/unicode.s7i" */ intType tmp_2; /* line 208 "../lib/unicode.s7i" */ tmp_1=(tmp_2=(o_2092_ch1)&255L,tmp_2INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_2); /* line 208 "../lib/unicode.s7i" */ if (((o_2090_utf16le))->size == ((o_2090_utf16le))->capacity) { /* line 208 "../lib/unicode.s7i" */ strPush(&((o_2090_utf16le)), tmp_1); /* line 208 "../lib/unicode.s7i" */ } else { /* line 208 "../lib/unicode.s7i" */ ((o_2090_utf16le))->mem[((o_2090_utf16le))->size]=tmp_1; /* line 208 "../lib/unicode.s7i" */ ((o_2090_utf16le))->size++; /* line 208 "../lib/unicode.s7i" */ } } { /* line 209 "../lib/unicode.s7i" */ charType tmp_1; /* line 209 "../lib/unicode.s7i" */ intType tmp_2; /* line 209 "../lib/unicode.s7i" */ tmp_1=(tmp_2=((o_2092_ch1) >> 8L)&255L,tmp_2INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_2); /* line 209 "../lib/unicode.s7i" */ if (((o_2090_utf16le))->size == ((o_2090_utf16le))->capacity) { /* line 209 "../lib/unicode.s7i" */ strPush(&((o_2090_utf16le)), tmp_1); /* line 209 "../lib/unicode.s7i" */ } else { /* line 209 "../lib/unicode.s7i" */ ((o_2090_utf16le))->mem[((o_2090_utf16le))->size]=tmp_1; /* line 209 "../lib/unicode.s7i" */ ((o_2090_utf16le))->size++; /* line 209 "../lib/unicode.s7i" */ } } { /* line 210 "../lib/unicode.s7i" */ charType tmp_1; /* line 210 "../lib/unicode.s7i" */ intType tmp_2; /* line 210 "../lib/unicode.s7i" */ tmp_1=(tmp_2=(o_2093_ch2)&255L,tmp_2INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_2); /* line 210 "../lib/unicode.s7i" */ if (((o_2090_utf16le))->size == ((o_2090_utf16le))->capacity) { /* line 210 "../lib/unicode.s7i" */ strPush(&((o_2090_utf16le)), tmp_1); /* line 210 "../lib/unicode.s7i" */ } else { /* line 210 "../lib/unicode.s7i" */ ((o_2090_utf16le))->mem[((o_2090_utf16le))->size]=tmp_1; /* line 210 "../lib/unicode.s7i" */ ((o_2090_utf16le))->size++; /* line 210 "../lib/unicode.s7i" */ } } { /* line 211 "../lib/unicode.s7i" */ charType tmp_1; /* line 211 "../lib/unicode.s7i" */ intType tmp_2; /* line 211 "../lib/unicode.s7i" */ tmp_1=(tmp_2=((o_2093_ch2) >> 8L)&255L,tmp_2INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_2); /* line 211 "../lib/unicode.s7i" */ if (((o_2090_utf16le))->size == ((o_2090_utf16le))->capacity) { /* line 211 "../lib/unicode.s7i" */ strPush(&((o_2090_utf16le)), tmp_1); /* line 211 "../lib/unicode.s7i" */ } else { /* line 211 "../lib/unicode.s7i" */ ((o_2090_utf16le))->mem[((o_2090_utf16le))->size]=tmp_1; /* line 211 "../lib/unicode.s7i" */ ((o_2090_utf16le))->size++; /* line 211 "../lib/unicode.s7i" */ } } } else { /* line 213 "../lib/unicode.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/unicode.s7i", 213); } } /* closure o_375_statements*/ } } /* pop proc param o_375_statements */ } /* inline proc o_165_for */ return o_2090_utf16le; } /* line 1 "no_file" */ /* 960 */ /* line 226 "../lib/unicode.s7i" */ static striType/*t_15_string*/ o_2094_replaceUtf16SurrogatePairs (const const_striType/*t_15_string*/ o_2095_stri) { /* line 228 "../lib/unicode.s7i" */ striType/*t_15_string*/ o_2096_resultStri; /* line 230 "../lib/unicode.s7i" */ intType/*t_14_integer*/ o_2097_index=0; /* line 231 "../lib/unicode.s7i" */ intType/*t_14_integer*/ o_2098_startPos=1; /* line 232 "../lib/unicode.s7i" */ charType/*t_18_char*/ o_2099_ch1=(charType) ' '; /* line 233 "../lib/unicode.s7i" */ charType/*t_18_char*/ o_2100_ch2=(charType) ' '; /* line 228 "../lib/unicode.s7i" */ o_2096_resultStri=strEmpty(); /* "" */ { /* line 235 "../lib/unicode.s7i" */ intType tmp_e_1=(intType)((o_2095_stri)->size); /* line 235 "../lib/unicode.s7i" */ for (o_2097_index=1L; o_2097_index<=tmp_e_1; (o_2097_index)++) { { /* line 236 "../lib/unicode.s7i" */ uintType idx_1; /* line 236 "../lib/unicode.s7i" */ o_2099_ch1=(o_2095_stri)->mem[(idx_1=(uintType)((o_2097_index)-1), idxChk(idx_1>=(o_2095_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]; } /* line 237 "../lib/unicode.s7i" */ if (((o_2099_ch1) >= ((charType) 55296)) && /* line 237 "../lib/unicode.s7i" */ ((o_2099_ch1) <= ((charType) 56319))) { /* line 238 "../lib/unicode.s7i" */ if ((o_2097_index) < ((intType)((o_2095_stri)->size))) { { /* line 239 "../lib/unicode.s7i" */ uintType idx_1; /* line 239 "../lib/unicode.s7i" */ o_2100_ch2=(o_2095_stri)->mem[(idx_1=(uintType)(((o_2097_index)+1)-1), idxChk(idx_1>=(o_2095_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]; } /* line 240 "../lib/unicode.s7i" */ if (((o_2100_ch2) >= ((charType) 56320)) && /* line 240 "../lib/unicode.s7i" */ ((o_2100_ch2) <= ((charType) 57343))) { { /* line 241 "../lib/unicode.s7i" */ struct striStruct slice_1; /* line 241 "../lib/unicode.s7i" */ intType start_2; /* line 241 "../lib/unicode.s7i" */ intType stop_3; /* line 241 "../lib/unicode.s7i" */ strAppend(&(o_2096_resultStri), (start_2=o_2098_startPos,stop_3=(o_2097_index)-1,start_2<1 ? start_2=1 : 0, slice_1.capacity=0, stop_3>=start_2 && (uintType)start_2<=(o_2095_stri)->size ? (slice_1.mem = &(o_2095_stri)->mem[start_2-1], (uintType)stop_3 > (o_2095_stri)->size ? slice_1.size = (o_2095_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)stop_3-(memSizeType)start_2+1)) : (slice_1.mem = NULL,slice_1.size = 0), &slice_1)); } { /* line 242 "../lib/unicode.s7i" */ charType tmp_1; /* line 242 "../lib/unicode.s7i" */ intType tmp_2; /* line 242 "../lib/unicode.s7i" */ intType tmp_3; /* line 242 "../lib/unicode.s7i" */ tmp_1=(tmp_2=(((tmp_3=((intType)((scharType)(o_2099_ch1))) - 55296L,ovfChk((uintType)tmp_3+(uintType)9007199254740992L>(uintType)18014398509481983L)?intRaiseError(OVERFLOW_ERROR):tmp_3 << 10L)) + (((intType)((scharType)(o_2100_ch2))) - 56320L)) + 65536L,tmp_2INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_2); /* line 242 "../lib/unicode.s7i" */ if (((o_2096_resultStri))->size == ((o_2096_resultStri))->capacity) { /* line 242 "../lib/unicode.s7i" */ strPush(&((o_2096_resultStri)), tmp_1); /* line 242 "../lib/unicode.s7i" */ } else { /* line 242 "../lib/unicode.s7i" */ ((o_2096_resultStri))->mem[((o_2096_resultStri))->size]=tmp_1; /* line 242 "../lib/unicode.s7i" */ ((o_2096_resultStri))->size++; /* line 242 "../lib/unicode.s7i" */ } } /* line 244 "../lib/unicode.s7i" */ o_2098_startPos=(o_2097_index)+1; /* line 245 "../lib/unicode.s7i" */ ++(o_2097_index); } else { /* line 247 "../lib/unicode.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/unicode.s7i", 247); } } else { /* line 250 "../lib/unicode.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/unicode.s7i", 250); } } } } { /* line 254 "../lib/unicode.s7i" */ struct striStruct slice_1; /* line 254 "../lib/unicode.s7i" */ strAppend(&(o_2096_resultStri), (strTailSlice(o_2095_stri, o_2098_startPos, &slice_1), &slice_1)); } return o_2096_resultStri; } /* line 1 "no_file" */ /* 961 */ /* line 264 "../lib/unicode.s7i" */ static striType/*t_15_string*/ o_2101_utf7ToStri (const const_striType/*t_15_string*/ o_2102_stri7) { /* line 266 "../lib/unicode.s7i" */ striType/*t_15_string*/ o_2103_resultStri; /* line 277 "../lib/unicode.s7i" */ intType/*t_14_integer*/ o_2104_startPos=1; /* line 278 "../lib/unicode.s7i" */ intType/*t_14_integer*/ o_2105_plusPos=0; /* line 279 "../lib/unicode.s7i" */ intType/*t_14_integer*/ o_2106_minusPos=0; /* line 280 "../lib/unicode.s7i" */ intType/*t_14_integer*/ o_2107_index=0; /* line 281 "../lib/unicode.s7i" */ charType/*t_18_char*/ o_2108_ch=(charType) ' '; /* line 282 "../lib/unicode.s7i" */ intType/*t_14_integer*/ o_2109_charNum=0; /* line 283 "../lib/unicode.s7i" */ intType/*t_14_integer*/ o_2110_accumulator=0; /* line 284 "../lib/unicode.s7i" */ intType/*t_14_integer*/ o_2111_numBits=0; /* line 285 "../lib/unicode.s7i" */ intType/*t_14_integer*/ o_2112_number=0; /* line 286 "../lib/unicode.s7i" */ boolType/*t_13_boolean*/ o_2113_okay=0/*FALSE*/; /* line 287 "../lib/unicode.s7i" */ striType/*t_15_string*/ o_2114_unicodeStri; /* line 266 "../lib/unicode.s7i" */ o_2103_resultStri=strEmpty(); /* "" */ /* line 287 "../lib/unicode.s7i" */ o_2114_unicodeStri=strEmpty(); /* "" */ /* line 289 "../lib/unicode.s7i" */ o_2105_plusPos=strChPos(o_2102_stri7, (charType) '+'); /* line 290 "../lib/unicode.s7i" */ while ((o_2105_plusPos) != (0L)) { { /* line 291 "../lib/unicode.s7i" */ struct striStruct slice_1; /* line 291 "../lib/unicode.s7i" */ intType start_2; /* line 291 "../lib/unicode.s7i" */ intType stop_3; /* line 291 "../lib/unicode.s7i" */ strAppend(&(o_2103_resultStri), (start_2=o_2104_startPos,stop_3=(o_2105_plusPos)-1,start_2<1 ? start_2=1 : 0, slice_1.capacity=0, stop_3>=start_2 && (uintType)start_2<=(o_2102_stri7)->size ? (slice_1.mem = &(o_2102_stri7)->mem[start_2-1], (uintType)stop_3 > (o_2102_stri7)->size ? slice_1.size = (o_2102_stri7)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)stop_3-(memSizeType)start_2+1)) : (slice_1.mem = NULL,slice_1.size = 0), &slice_1)); } /* line 292 "../lib/unicode.s7i" */ o_2106_minusPos=strChIPos(o_2102_stri7, (charType) '-', (o_2105_plusPos)+1); /* line 293 "../lib/unicode.s7i" */ if ((o_2106_minusPos) == (0L)) { /* line 294 "../lib/unicode.s7i" */ /* line 294 "../lib/unicode.s7i" */ if (((o_2103_resultStri))->size == ((o_2103_resultStri))->capacity) { /* line 294 "../lib/unicode.s7i" */ strPush(&((o_2103_resultStri)), (charType) '+'); /* line 294 "../lib/unicode.s7i" */ } else { /* line 294 "../lib/unicode.s7i" */ ((o_2103_resultStri))->mem[((o_2103_resultStri))->size]=(charType) '+'; /* line 294 "../lib/unicode.s7i" */ ((o_2103_resultStri))->size++; /* line 294 "../lib/unicode.s7i" */ } /* line 295 "../lib/unicode.s7i" */ o_2106_minusPos=o_2105_plusPos; } else /* line 296 "../lib/unicode.s7i" */ if ((o_2106_minusPos) == ((o_2105_plusPos)+1)) { /* line 297 "../lib/unicode.s7i" */ /* line 297 "../lib/unicode.s7i" */ if (((o_2103_resultStri))->size == ((o_2103_resultStri))->capacity) { /* line 297 "../lib/unicode.s7i" */ strPush(&((o_2103_resultStri)), (charType) '+'); /* line 297 "../lib/unicode.s7i" */ } else { /* line 297 "../lib/unicode.s7i" */ ((o_2103_resultStri))->mem[((o_2103_resultStri))->size]=(charType) '+'; /* line 297 "../lib/unicode.s7i" */ ((o_2103_resultStri))->size++; /* line 297 "../lib/unicode.s7i" */ } } else { /* line 299 "../lib/unicode.s7i" */ o_2113_okay=o_26_TRUE; /* line 300 "../lib/unicode.s7i" */ strCopy(&(o_2114_unicodeStri), &str[0] /* "" */); /* line 301 "../lib/unicode.s7i" */ o_2110_accumulator=0L; /* line 302 "../lib/unicode.s7i" */ o_2111_numBits=0L; { /* line 303 "../lib/unicode.s7i" */ intType tmp_e_1=(o_2106_minusPos)-1; /* line 303 "../lib/unicode.s7i" */ for (o_2107_index=(o_2105_plusPos)+1; o_2107_index<=tmp_e_1; (o_2107_index)++) { { /* line 304 "../lib/unicode.s7i" */ uintType idx_1; /* line 304 "../lib/unicode.s7i" */ o_2108_ch=(o_2102_stri7)->mem[(idx_1=(uintType)((o_2107_index)-1), idxChk(idx_1>=(o_2102_stri7)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]; } /* line 305 "../lib/unicode.s7i" */ if (((o_2108_ch) >= ((charType) '+')) && /* line 305 "../lib/unicode.s7i" */ ((o_2108_ch) <= ((charType) 'z'))) { { /* line 306 "../lib/unicode.s7i" */ uintType idx_1; /* line 306 "../lib/unicode.s7i" */ uintType idx_2; /* line 306 "../lib/unicode.s7i" */ o_2112_number=arr[29]->arr[(idx_1=(((intType)((scharType)((o_2102_stri7)->mem[(idx_2=(uintType)((o_2107_index)-1), idxChk(idx_2>=(o_2102_stri7)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]))) - ((intType)((scharType)(((charType) '+')-1))))- 1, idxChk(idx_1>=80) ? intRaiseError(RANGE_ERROR) : 0, idx_1)].value.intValue; } /* line 307 "../lib/unicode.s7i" */ if ((o_2112_number) >= (0L)) { /* line 308 "../lib/unicode.s7i" */ o_2110_accumulator=((ovfChk((uintType)(o_2110_accumulator)+(uintType)144115188075855872L>(uintType)288230376151711743L)?intRaiseError(OVERFLOW_ERROR):(o_2110_accumulator) << 6L)) + (o_2112_number); /* line 309 "../lib/unicode.s7i" */ o_2111_numBits+=6L; /* line 310 "../lib/unicode.s7i" */ if ((o_2111_numBits) >= (16L)) { /* line 311 "../lib/unicode.s7i" */ o_2111_numBits-=16L; /* line 312 "../lib/unicode.s7i" */ o_2109_charNum=(ovfChk((uintType)(o_2111_numBits)>=(uintType)64L)?intRaiseError(OVERFLOW_ERROR):(o_2110_accumulator) >> (o_2111_numBits)); /* line 313 "../lib/unicode.s7i" */ o_2110_accumulator-=(ovfChk((uintType)(o_2111_numBits)>=(uintType)64L||(o_2109_charNum)<(-9223372036854775807L-1L)>>(o_2111_numBits)||(o_2109_charNum)>9223372036854775807L>>(o_2111_numBits))?intRaiseError(OVERFLOW_ERROR):(o_2109_charNum) << (o_2111_numBits)); { /* line 314 "../lib/unicode.s7i" */ charType tmp_1; /* line 314 "../lib/unicode.s7i" */ tmp_1=((o_2109_charNum)INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)(o_2109_charNum)); /* line 314 "../lib/unicode.s7i" */ if (((o_2114_unicodeStri))->size == ((o_2114_unicodeStri))->capacity) { /* line 314 "../lib/unicode.s7i" */ strPush(&((o_2114_unicodeStri)), tmp_1); /* line 314 "../lib/unicode.s7i" */ } else { /* line 314 "../lib/unicode.s7i" */ ((o_2114_unicodeStri))->mem[((o_2114_unicodeStri))->size]=tmp_1; /* line 314 "../lib/unicode.s7i" */ ((o_2114_unicodeStri))->size++; /* line 314 "../lib/unicode.s7i" */ } } } } else { /* line 317 "../lib/unicode.s7i" */ o_2113_okay=o_25_FALSE; /* line 318 "../lib/unicode.s7i" */ o_2107_index=o_2106_minusPos; } } else { /* line 321 "../lib/unicode.s7i" */ o_2113_okay=o_25_FALSE; /* line 322 "../lib/unicode.s7i" */ o_2107_index=o_2106_minusPos; } } } /* line 325 "../lib/unicode.s7i" */ if (o_2113_okay) { /* line 326 "../lib/unicode.s7i" */ if ((o_2110_accumulator) != (0L)) { /* line 327 "../lib/unicode.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/unicode.s7i", 327); } else { /* line 329 "../lib/unicode.s7i" */ strAppendTemp(&(o_2103_resultStri), o_2094_replaceUtf16SurrogatePairs(o_2114_unicodeStri)); } } else { /* line 332 "../lib/unicode.s7i" */ /* line 332 "../lib/unicode.s7i" */ if (((o_2103_resultStri))->size == ((o_2103_resultStri))->capacity) { /* line 332 "../lib/unicode.s7i" */ strPush(&((o_2103_resultStri)), (charType) '+'); /* line 332 "../lib/unicode.s7i" */ } else { /* line 332 "../lib/unicode.s7i" */ ((o_2103_resultStri))->mem[((o_2103_resultStri))->size]=(charType) '+'; /* line 332 "../lib/unicode.s7i" */ ((o_2103_resultStri))->size++; /* line 332 "../lib/unicode.s7i" */ } /* line 333 "../lib/unicode.s7i" */ o_2106_minusPos=o_2105_plusPos; } } /* line 336 "../lib/unicode.s7i" */ o_2104_startPos=(o_2106_minusPos)+1; /* line 337 "../lib/unicode.s7i" */ o_2105_plusPos=strChIPos(o_2102_stri7, (charType) '+', o_2104_startPos); } { /* line 339 "../lib/unicode.s7i" */ struct striStruct slice_1; /* line 339 "../lib/unicode.s7i" */ strAppend(&(o_2103_resultStri), (strTailSlice(o_2102_stri7, o_2104_startPos, &slice_1), &slice_1)); } /* line 264 "../lib/unicode.s7i" */ strDestr(o_2114_unicodeStri); return o_2103_resultStri; } /* line 1 "no_file" */ /* 962 */ /* 963 */ /* 964 */ /* 965 */ /* 966 */ /* 967 */ /* line 346 "../lib/float.s7i" */ static striType/*t_15_string*/ o_2115_exp (const const_striType/*t_15_string*/ o_2116_sciNumber, const intType/*t_14_integer*/ o_2117_expDigits) { /* line 348 "../lib/float.s7i" */ striType/*t_15_string*/ o_2118_paddedStri; /* line 350 "../lib/float.s7i" */ intType/*t_14_integer*/ o_2119_pos=0; /* line 348 "../lib/float.s7i" */ o_2118_paddedStri=strEmpty(); /* "" */ /* line 352 "../lib/float.s7i" */ o_2119_pos=(intType)((o_2116_sciNumber)->size); { /* line 353 "../lib/float.s7i" */ uintType idx_1; /* line 353 "../lib/float.s7i" */ uintType idx_2; /* line 353 "../lib/float.s7i" */ while (((o_2119_pos) >= (1L)) && /* line 353 "../lib/float.s7i" */ (((o_2116_sciNumber)->mem[(idx_1=(uintType)((o_2119_pos)-1), idxChk(idx_1>=(o_2116_sciNumber)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) >= ((charType) '0')) && /* line 353 "../lib/float.s7i" */ (((o_2116_sciNumber)->mem[(idx_2=(uintType)((o_2119_pos)-1), idxChk(idx_2>=(o_2116_sciNumber)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]) <= ((charType) '9'))) { /* line 354 "../lib/float.s7i" */ --(o_2119_pos); } } { /* line 356 "../lib/float.s7i" */ uintType idx_1; /* line 356 "../lib/float.s7i" */ uintType idx_2; /* line 356 "../lib/float.s7i" */ uintType idx_3; /* line 356 "../lib/float.s7i" */ if (((o_2119_pos) >= (2L)) && /* line 356 "../lib/float.s7i" */ (((o_2116_sciNumber)->mem[(idx_1=(uintType)(((o_2119_pos)-1)-1), idxChk(idx_1>=(o_2116_sciNumber)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) 'e')) && /* line 357 "../lib/float.s7i" */ ((((o_2116_sciNumber)->mem[(idx_2=(uintType)((o_2119_pos)-1), idxChk(idx_2>=(o_2116_sciNumber)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)]) == ((charType) '+')) || /* line 357 "../lib/float.s7i" */ (((o_2116_sciNumber)->mem[(idx_3=(uintType)((o_2119_pos)-1), idxChk(idx_3>=(o_2116_sciNumber)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_3)]) == ((charType) '-'))) && /* line 358 "../lib/float.s7i" */ ((o_2117_expDigits) > (((intType)((o_2116_sciNumber)->size)) - (o_2119_pos)))) { { /* line 359 "../lib/float.s7i" */ const_striType tmp_2[3]; /* line 359 "../lib/float.s7i" */ struct striStruct slice_3; /* line 359 "../lib/float.s7i" */ striType tmp_4 = NULL; /* line 359 "../lib/float.s7i" */ struct striStruct slice_5; /* line 359 "../lib/float.s7i" */ striType old_stri=o_2118_paddedStri; /* line 359 "../lib/float.s7i" */ o_2118_paddedStri=(tmp_2[0] = (strHeadSlice(o_2116_sciNumber, o_2119_pos, &slice_3), &slice_3), tmp_2[1] = (tmp_4=strChMult((charType) '0', ((o_2117_expDigits) - ((intType)((o_2116_sciNumber)->size))) + (o_2119_pos))), tmp_2[2] = (strTailSlice(o_2116_sciNumber, (o_2119_pos)+1, &slice_5), &slice_5), strConcatN(tmp_2, 3)); /* line 359 "../lib/float.s7i" */ strDestr(old_stri); /* line 359 "../lib/float.s7i" */ strDestr(tmp_4); } } else { /* line 362 "../lib/float.s7i" */ strCopy(&(o_2118_paddedStri), o_2116_sciNumber); } } return o_2118_paddedStri; } /* line 1 "no_file" */ /* 968 */ /* line 453 "../lib/float.s7i" */ static floatType/*t_65_float*/ o_2120_min (const floatType/*t_65_float*/ o_2121_value1, const floatType/*t_65_float*/ o_2122_value2) { /* line 455 "../lib/float.s7i" */ floatType/*t_65_float*/ o_2123_minimum=0.0; /* line 457 "../lib/float.s7i" */ if ((o_2121_value1) < (o_2122_value2)) { /* line 458 "../lib/float.s7i" */ o_2123_minimum=o_2121_value1; } else { /* line 460 "../lib/float.s7i" */ o_2123_minimum=o_2122_value2; } return o_2123_minimum; } /* line 1 "no_file" */ /* 969 */ /* line 469 "../lib/float.s7i" */ static floatType/*t_65_float*/ o_2124_max (const floatType/*t_65_float*/ o_2125_value1, const floatType/*t_65_float*/ o_2126_value2) { /* line 471 "../lib/float.s7i" */ floatType/*t_65_float*/ o_2127_maximum=0.0; /* line 473 "../lib/float.s7i" */ if ((o_2125_value1) > (o_2126_value2)) { /* line 474 "../lib/float.s7i" */ o_2127_maximum=o_2125_value1; } else { /* line 476 "../lib/float.s7i" */ o_2127_maximum=o_2126_value2; } return o_2127_maximum; } /* line 1 "no_file" */ /* 970 */ typedef genericType t_66/*t_66__floatArray*/; /* 971 */ /* 972 */ typedef genericType t_67/*t_67_*ANONYM_TYPE**/; /* 973 */ /* 974 */ /* 975 */ /* 976 */ /* ACTION ARR_GEN for type arrayType/t_67_*ANONYM_TYPE* element is floatType/t_65_float */ /* 977 */ /* 978 */ /* 979 */ /* 980 */ /* 981 */ /* 982 */ /* ACTION ARR_IDX for type arrayType/t_66__floatArray element is floatType/t_65_float */ /* 983 */ /* ACTION ARR_IDX for type arrayType/t_66__floatArray element is floatType/t_65_float */ /* 984 */ /* line 163 "../lib/array.s7i" */ static arrayType times_66 (intType n, const floatType/*t_65_float*/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.floatValue=b; /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 985 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_66__floatArray*/ create_66 (const_arrayType/*t_66__floatArray*/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_66__floatArray*/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_66__floatArray*/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.floatValue=b->arr[i].value.floatValue; /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_66 (const_arrayType/*t_66__floatArray*/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_67 (const_arrayType/*t_67_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_67_*ANONYM_TYPE**/ create_67 (const_arrayType/*t_67_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_67_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_67_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.floatValue=b->arr[i].value.floatValue; /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_66__floatArray*/ o_2128_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_2129_indexRange, const floatType/*t_65_float*/ o_2130_element) { /* line 186 "../lib/array.s7i" */ arrayType/*t_66__floatArray*/ o_2131_anArray; /* line 186 "../lib/array.s7i" */ o_2131_anArray=create_66(arr[30]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_2131_anArray; /* line 188 "../lib/array.s7i" */ o_2131_anArray=times_66(((((structType)(o_2129_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_2129_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_2130_element); /* line 188 "../lib/array.s7i" */ destr_66(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_2131_anArray; /* line 189 "../lib/array.s7i" */ o_2131_anArray=arrArrlit2(((structType)(o_2129_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_67(/*arrConv()*/o_2131_anArray)); /* line 189 "../lib/array.s7i" */ destr_66(old_array); } return o_2131_anArray; } /* line 1 "no_file" */ /* 986 */ /* declare inline o_2132_for*/ /* declare inline o_2133_for*/ /* declare inline o_2134_for*/ /* declare inline o_2135_for*/ /* declare inline o_2136_for*/ /* declare inline o_2137_for*/ /* declare inline o_2138_for*/ /* declare inline o_2139_for*/ /* declare inline o_2140_for*/ /* line 329 "../lib/array.s7i" */ static floatType/*t_65_float*/ o_2141_rand (const const_arrayType/*t_66__floatArray*/ o_2142_arr) { /* line 330 "../lib/array.s7i" */ floatType/*t_65_float*/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(floatType/*t_65_float*/)(((o_2142_arr)->arr[idx_1=intRand((o_2142_arr)->min_position, (o_2142_arr)->max_position),(idxChk(idx_1 < (o_2142_arr)->min_position || idx_1 > (o_2142_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_2142_arr)->min_position)].value.floatValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 987 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_2143_insert (arrayType/*t_66__floatArray*/ *const o_2144_arr, const intType/*t_14_integer*/ o_2145_index, const floatType/*t_65_float*/ o_2146_element) { /* line 334 "../lib/array.s7i" */ if (((o_2145_index) >= ((*o_2144_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_2145_index) <= (((*o_2144_arr)->max_position)+1))) { { /* line 335 "../lib/array.s7i" */ rtlValueUnion tmp_5; { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_2144_arr; /* line 335 "../lib/array.s7i" */ *o_2144_arr=arrCat(arrCat(arrHead(*o_2144_arr, (o_2145_index)-1), arrBaselit((genericType)((tmp_5.floatValue=o_2146_element,tmp_5.genericValue)))), arrTail(*o_2144_arr, o_2145_index)); /* line 335 "../lib/array.s7i" */ destr_66(old_array); } } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } } /* line 1 "no_file" */ /* 988 */ /* line 344 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_2147/*=*/ (const const_arrayType/*t_66__floatArray*/ o_2148_arr1, const const_arrayType/*t_66__floatArray*/ o_2149_arr2) { /* line 346 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_2150_isEqual=o_25_FALSE; /* line 348 "../lib/array.s7i" */ intType/*t_14_integer*/ o_2151_number=1; /* line 350 "../lib/array.s7i" */ if ((((o_2148_arr1)->min_position) == ((o_2149_arr2)->min_position)) && /* line 350 "../lib/array.s7i" */ (((o_2148_arr1)->max_position) == ((o_2149_arr2)->max_position))) { /* line 351 "../lib/array.s7i" */ o_2150_isEqual=o_26_TRUE; /* line 352 "../lib/array.s7i" */ o_2151_number=(o_2148_arr1)->min_position; /* line 353 "../lib/array.s7i" */ while (((o_2151_number) <= ((o_2148_arr1)->max_position)) && /* line 353 "../lib/array.s7i" */ (o_2150_isEqual)) { /* line 354 "../lib/array.s7i" */ o_2150_isEqual=((o_2148_arr1)->arr[(idxChk((o_2151_number) < (o_2148_arr1)->min_position || (o_2151_number) > (o_2148_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2151_number)-(o_2148_arr1)->min_position)].value.floatValue) == ((o_2149_arr2)->arr[(idxChk((o_2151_number) < (o_2149_arr2)->min_position || (o_2151_number) > (o_2149_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2151_number)-(o_2149_arr2)->min_position)].value.floatValue); /* line 355 "../lib/array.s7i" */ ++(o_2151_number); } } return o_2150_isEqual; } /* line 1 "no_file" */ /* 989 */ /* line 360 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_2152/*<>*/ (const const_arrayType/*t_66__floatArray*/ o_2153_arr1, const const_arrayType/*t_66__floatArray*/ o_2154_arr2) { /* line 362 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_2155_isNotEqual=o_26_TRUE; /* line 364 "../lib/array.s7i" */ intType/*t_14_integer*/ o_2156_number=1; /* line 366 "../lib/array.s7i" */ if ((((o_2153_arr1)->min_position) == ((o_2154_arr2)->min_position)) && /* line 366 "../lib/array.s7i" */ (((o_2153_arr1)->max_position) == ((o_2154_arr2)->max_position))) { /* line 367 "../lib/array.s7i" */ o_2155_isNotEqual=o_25_FALSE; /* line 368 "../lib/array.s7i" */ o_2156_number=(o_2153_arr1)->min_position; /* line 369 "../lib/array.s7i" */ while (((o_2156_number) <= ((o_2153_arr1)->max_position)) && /* line 369 "../lib/array.s7i" */ (!(o_2155_isNotEqual))) { /* line 370 "../lib/array.s7i" */ o_2155_isNotEqual=((o_2153_arr1)->arr[(idxChk((o_2156_number) < (o_2153_arr1)->min_position || (o_2156_number) > (o_2153_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2156_number)-(o_2153_arr1)->min_position)].value.floatValue) != ((o_2154_arr2)->arr[(idxChk((o_2156_number) < (o_2154_arr2)->min_position || (o_2156_number) > (o_2154_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2156_number)-(o_2154_arr2)->min_position)].value.floatValue); /* line 371 "../lib/array.s7i" */ ++(o_2156_number); } } return o_2155_isNotEqual; } /* line 1 "no_file" */ /* 990 */ /* line 381 "../lib/array.s7i" */ static void/*t_1_void*/ o_2157_insert (arrayType/*t_66__floatArray*/ *const o_2158_arr, const floatType/*t_65_float*/ o_2159_element) { /* line 383 "../lib/array.s7i" */ intType/*t_14_integer*/ o_2160_number=1; /* line 385 "../lib/array.s7i" */ o_2160_number=(*o_2158_arr)->min_position; /* line 386 "../lib/array.s7i" */ while (((o_2160_number) <= ((*o_2158_arr)->max_position)) && /* line 386 "../lib/array.s7i" */ (((*o_2158_arr)->arr[(idxChk((o_2160_number) < (*o_2158_arr)->min_position || (o_2160_number) > (*o_2158_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2160_number)-(*o_2158_arr)->min_position)].value.floatValue) < (o_2159_element))) { /* line 387 "../lib/array.s7i" */ ++(o_2160_number); } /* line 389 "../lib/array.s7i" */ if ((o_2160_number) > ((*o_2158_arr)->max_position)) { { /* line 390 "../lib/array.s7i" */ rtlValueUnion tmp_3; { /* line 390 "../lib/array.s7i" */ arrayType old_array=*o_2158_arr; /* line 390 "../lib/array.s7i" */ *o_2158_arr=arrCat(create_66(*o_2158_arr), arrBaselit((genericType)((tmp_3.floatValue=o_2159_element,tmp_3.genericValue)))); /* line 390 "../lib/array.s7i" */ destr_66(old_array); } } } else /* line 391 "../lib/array.s7i" */ if (((*o_2158_arr)->arr[(idxChk((o_2160_number) < (*o_2158_arr)->min_position || (o_2160_number) > (*o_2158_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2160_number)-(*o_2158_arr)->min_position)].value.floatValue) > (o_2159_element)) { { /* line 392 "../lib/array.s7i" */ rtlValueUnion tmp_5; { /* line 392 "../lib/array.s7i" */ arrayType old_array=*o_2158_arr; /* line 392 "../lib/array.s7i" */ *o_2158_arr=arrCat(arrCat(arrHead(*o_2158_arr, (o_2160_number)-1), arrBaselit((genericType)((tmp_5.floatValue=o_2159_element,tmp_5.genericValue)))), arrTail(*o_2158_arr, o_2160_number)); /* line 392 "../lib/array.s7i" */ destr_66(old_array); } } } } /* line 1 "no_file" */ /* 991 */ /* line 400 "../lib/array.s7i" */ static intType/*t_14_integer*/ o_2161_compare (const const_arrayType/*t_66__floatArray*/ o_2162_arr1, const const_arrayType/*t_66__floatArray*/ o_2163_arr2) { /* line 402 "../lib/array.s7i" */ intType/*t_14_integer*/ o_2164_signumValue=0; /* line 404 "../lib/array.s7i" */ intType/*t_14_integer*/ o_2165_idx1=0; /* line 405 "../lib/array.s7i" */ intType/*t_14_integer*/ o_2166_idx2=0; /* line 407 "../lib/array.s7i" */ o_2165_idx1=(o_2162_arr1)->min_position; /* line 408 "../lib/array.s7i" */ o_2166_idx2=(o_2163_arr2)->min_position; /* line 409 "../lib/array.s7i" */ while (((o_2165_idx1) <= ((o_2162_arr1)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_2166_idx2) <= ((o_2163_arr2)->max_position)) && /* line 409 "../lib/array.s7i" */ ((fltCmp((o_2162_arr1)->arr[(idxChk((o_2165_idx1) < (o_2162_arr1)->min_position || (o_2165_idx1) > (o_2162_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2165_idx1)-(o_2162_arr1)->min_position)].value.floatValue, (o_2163_arr2)->arr[(idxChk((o_2166_idx2) < (o_2163_arr2)->min_position || (o_2166_idx2) > (o_2163_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2166_idx2)-(o_2163_arr2)->min_position)].value.floatValue)) == (0L))) { /* line 410 "../lib/array.s7i" */ ++(o_2165_idx1); /* line 411 "../lib/array.s7i" */ ++(o_2166_idx2); } /* line 413 "../lib/array.s7i" */ if (((o_2165_idx1) <= ((o_2162_arr1)->max_position)) && /* line 413 "../lib/array.s7i" */ ((o_2166_idx2) <= ((o_2163_arr2)->max_position))) { /* line 414 "../lib/array.s7i" */ o_2164_signumValue=fltCmp((o_2162_arr1)->arr[(idxChk((o_2165_idx1) < (o_2162_arr1)->min_position || (o_2165_idx1) > (o_2162_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2165_idx1)-(o_2162_arr1)->min_position)].value.floatValue, (o_2163_arr2)->arr[(idxChk((o_2166_idx2) < (o_2163_arr2)->min_position || (o_2166_idx2) > (o_2163_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2166_idx2)-(o_2163_arr2)->min_position)].value.floatValue); } else { /* line 416 "../lib/array.s7i" */ o_2164_signumValue=intCmp(((o_2162_arr1)->max_position - (o_2162_arr1)->min_position + 1), ((o_2163_arr2)->max_position - (o_2163_arr2)->min_position + 1)); } return o_2164_signumValue; } /* line 1 "no_file" */ /* 992 */ /* line 420 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_2167/*<*/ (const const_arrayType/*t_66__floatArray*/ o_2168_arr1, const const_arrayType/*t_66__floatArray*/ o_2169_arr2) { /* line 421 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_2161_compare(o_2168_arr1, o_2169_arr2)) < (0L))); } /* line 1 "no_file" */ /* 993 */ /* line 423 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_2170/*>*/ (const const_arrayType/*t_66__floatArray*/ o_2171_arr1, const const_arrayType/*t_66__floatArray*/ o_2172_arr2) { /* line 424 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_2161_compare(o_2171_arr1, o_2172_arr2)) > (0L))); } /* line 1 "no_file" */ /* 994 */ /* line 426 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_2173/*<=*/ (const const_arrayType/*t_66__floatArray*/ o_2174_arr1, const const_arrayType/*t_66__floatArray*/ o_2175_arr2) { /* line 427 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_2161_compare(o_2174_arr1, o_2175_arr2)) <= (0L))); } /* line 1 "no_file" */ /* 995 */ /* line 429 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_2176/*>=*/ (const const_arrayType/*t_66__floatArray*/ o_2177_arr1, const const_arrayType/*t_66__floatArray*/ o_2178_arr2) { /* line 430 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_2161_compare(o_2177_arr1, o_2178_arr2)) >= (0L))); } /* line 1 "no_file" */ /* 996 */ /* objRefType/t_19_reference */ intfunctype o_2179/*.*/=(intfunctype)(&fltCmpGeneric); /* 997 */ /* line 436 "../lib/array.s7i" */ static arrayType/*t_66__floatArray*/ o_2180_sort (const const_arrayType/*t_66__floatArray*/ o_2181_arr_obj) { /* line 437 "../lib/array.s7i" */ return (arrayType/*t_66__floatArray*/)((arrSort(create_66(o_2181_arr_obj), (compareType)(o_2179/*.*/)))); } /* line 1 "no_file" */ /* 998 */ /* line 61 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_2182_read (interfaceType/*t_46_file*/ *const o_2183_inFile, floatType/*t_65_float*/ *const o_2184_aVar) { { /* line 63 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 63 "../lib/enable_input.s7i" */ *o_2184_aVar=fltParse((tmp_1=(striType/*t_15_string*/)(o_921_getwd(o_2183_inFile)))); /* line 63 "../lib/enable_input.s7i" */ strDestr(tmp_1); } } /* line 1 "no_file" */ /* 999 */ /* line 77 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_2185_read (interfaceType/*t_46_file*/ *const o_2186_inFile, floatType/*t_65_float*/ *const o_2187_aVar, const floatType/*t_65_float*/ o_2188_defaultValue) { /* line 80 "../lib/enable_input.s7i" */ striType/*t_15_string*/ o_2189_stri; /* line 80 "../lib/enable_input.s7i" */ o_2189_stri=strEmpty(); /* "" */ { /* line 82 "../lib/enable_input.s7i" */ striType old_stri=o_2189_stri; /* line 82 "../lib/enable_input.s7i" */ o_2189_stri=o_921_getwd(o_2186_inFile); /* line 82 "../lib/enable_input.s7i" */ strDestr(old_stri); } /* line 83 "../lib/enable_input.s7i" */ if (((o_2189_stri)->size==0 /* "" */)) { /* line 84 "../lib/enable_input.s7i" */ *o_2187_aVar=o_2188_defaultValue; } else { /* line 86 "../lib/enable_input.s7i" */ *o_2187_aVar=fltParse(o_2189_stri); } /* line 77 "../lib/enable_input.s7i" */ strDestr(o_2189_stri); } /* line 1 "no_file" */ /* 1000 */ /* line 99 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_2190_readln (interfaceType/*t_46_file*/ *const o_2191_inFile, floatType/*t_65_float*/ *const o_2192_aVar) { { /* line 101 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); /* line 101 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 101 "../lib/enable_input.s7i" */ *o_2192_aVar=fltParse((tmp_1=(striType/*t_15_string*/)(o_99_trimValue(&(typ[8] /* floatType/t_65_float */), (tmp_2=(striType/*t_15_string*/)(o_923_getln(o_2191_inFile))))))); /* line 101 "../lib/enable_input.s7i" */ strDestr(tmp_2); /* line 101 "../lib/enable_input.s7i" */ strDestr(tmp_1); } } /* line 1 "no_file" */ /* 1001 */ /* line 114 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_2193_readln (interfaceType/*t_46_file*/ *const o_2194_inFile, floatType/*t_65_float*/ *const o_2195_aVar, const floatType/*t_65_float*/ o_2196_defaultValue) { /* line 117 "../lib/enable_input.s7i" */ striType/*t_15_string*/ o_2197_stri; /* line 117 "../lib/enable_input.s7i" */ o_2197_stri=strEmpty(); /* "" */ { /* line 119 "../lib/enable_input.s7i" */ striType old_stri=o_2197_stri; /* line 119 "../lib/enable_input.s7i" */ o_2197_stri=o_923_getln(o_2194_inFile); /* line 119 "../lib/enable_input.s7i" */ strDestr(old_stri); } /* line 120 "../lib/enable_input.s7i" */ if (((o_2197_stri)->size==0 /* "" */)) { /* line 121 "../lib/enable_input.s7i" */ *o_2195_aVar=o_2196_defaultValue; } else { { /* line 123 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 123 "../lib/enable_input.s7i" */ *o_2195_aVar=fltParse((tmp_1=(striType/*t_15_string*/)(o_99_trimValue(&(typ[8] /* floatType/t_65_float */), o_2197_stri)))); /* line 123 "../lib/enable_input.s7i" */ strDestr(tmp_1); } } /* line 114 "../lib/enable_input.s7i" */ strDestr(o_2197_stri); } /* line 1 "no_file" */ /* 1002 */ /* line 137 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_2198_read (floatType/*t_65_float*/ *const o_2199_aVar) { /* line 139 "../lib/enable_input.s7i" */ o_2182_read(&(o_1071_IN), o_2199_aVar); } /* line 1 "no_file" */ /* 1003 */ /* line 153 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_2200_read (floatType/*t_65_float*/ *const o_2201_aVar, const floatType/*t_65_float*/ o_2202_defaultValue) { /* line 155 "../lib/enable_input.s7i" */ o_2185_read(&(o_1071_IN), o_2201_aVar, o_2202_defaultValue); } /* line 1 "no_file" */ /* 1004 */ /* line 167 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_2203_readln (floatType/*t_65_float*/ *const o_2204_aVar) { /* line 169 "../lib/enable_input.s7i" */ o_2190_readln(&(o_1071_IN), o_2204_aVar); } /* line 1 "no_file" */ /* 1005 */ /* line 182 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_2205_readln (floatType/*t_65_float*/ *const o_2206_aVar, const floatType/*t_65_float*/ o_2207_defaultValue) { /* line 184 "../lib/enable_input.s7i" */ o_2193_readln(&(o_1071_IN), o_2206_aVar, o_2207_defaultValue); } /* line 1 "no_file" */ /* 1006 */ /* line 54 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_2208_write (interfaceType/*t_46_file*/ *const o_2209_aFile, const floatType/*t_65_float*/ o_2210_aValue) { { /* line 56 "../lib/enable_output.s7i" */ striType tmp_1 = NULL; /* line 56 "../lib/enable_output.s7i" */ o_889_write(o_2209_aFile, (tmp_1=fltStr(o_2210_aValue))); /* line 56 "../lib/enable_output.s7i" */ strDestr(tmp_1); } } /* line 1 "no_file" */ /* 1007 */ /* line 62 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_2211_writeln (interfaceType/*t_46_file*/ *const o_2212_aFile, const floatType/*t_65_float*/ o_2213_aValue) { { /* line 64 "../lib/enable_output.s7i" */ striType tmp_1 = NULL; /* line 64 "../lib/enable_output.s7i" */ o_894_writeln(o_2212_aFile, (tmp_1=fltStr(o_2213_aValue))); /* line 64 "../lib/enable_output.s7i" */ strDestr(tmp_1); } } /* line 1 "no_file" */ /* 1008 */ /* line 70 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_2214_write (const floatType/*t_65_float*/ o_2215_aValue) { /* line 72 "../lib/enable_output.s7i" */ o_2208_write(&(o_1074_OUT), o_2215_aValue); } /* line 1 "no_file" */ /* 1009 */ /* line 78 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_2216_writeln (const floatType/*t_65_float*/ o_2217_aValue) { /* line 80 "../lib/enable_output.s7i" */ o_2211_writeln(&(o_1074_OUT), o_2217_aValue); } /* line 1 "no_file" */ /* 1010 */ /* line 88 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_2218_lpad (const floatType/*t_65_float*/ o_2219_aValue, const intType/*t_14_integer*/ o_2220_leng) { /* line 89 "../lib/enable_output.s7i" */ return (striType/*t_15_string*/)((strLpadTemp(fltStr(o_2219_aValue), o_2220_leng))); } /* line 1 "no_file" */ /* 1011 */ /* line 96 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_2221_rpad (const floatType/*t_65_float*/ o_2222_aValue, const intType/*t_14_integer*/ o_2223_leng) { /* line 97 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 97 "../lib/enable_output.s7i" */ striType tmp_2 = NULL; /* line 97 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strRpad((tmp_2=fltStr(o_2222_aValue)), o_2223_leng))); /* line 97 "../lib/enable_output.s7i" */ strDestr(tmp_2); /* line 97 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 1012 */ /* line 104 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_2224/*<&*/ (const const_striType/*t_15_string*/ o_2225_stri, const floatType/*t_65_float*/ o_2226_aValue) { /* line 105 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 105 "../lib/enable_output.s7i" */ striType tmp_2 = NULL; /* line 105 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strConcat(o_2225_stri, (tmp_2=fltStr(o_2226_aValue))))); /* line 105 "../lib/enable_output.s7i" */ strDestr(tmp_2); /* line 105 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 1013 */ /* line 112 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_2227/*<&*/ (const floatType/*t_65_float*/ o_2228_aValue, const const_striType/*t_15_string*/ o_2229_stri) { /* line 113 "../lib/enable_output.s7i" */ return (striType/*t_15_string*/)((strConcatTemp(fltStr(o_2228_aValue), o_2229_stri))); } /* line 1 "no_file" */ /* 1014 */ typedef genericType t_68/*t_68_bstring*/; /* 1015 */ /* 1016 */ /* 1017 */ /* 1018 */ /* declare inline o_2230_for*/ /* line 61 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_2231_read (interfaceType/*t_46_file*/ *const o_2232_inFile, bstriType/*t_68_bstring*/ *const o_2233_aVar) { { /* line 63 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); { /* line 63 "../lib/enable_input.s7i" */ bstriType old_bstri=*o_2233_aVar; /* line 63 "../lib/enable_input.s7i" */ *o_2233_aVar=bstParse((tmp_2=(striType/*t_15_string*/)(o_921_getwd(o_2232_inFile)))); /* line 63 "../lib/enable_input.s7i" */ bstDestr(old_bstri); } /* line 63 "../lib/enable_input.s7i" */ strDestr(tmp_2); } } /* line 1 "no_file" */ /* 1019 */ /* line 77 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_2234_read (interfaceType/*t_46_file*/ *const o_2235_inFile, bstriType/*t_68_bstring*/ *const o_2236_aVar, const bstriType/*t_68_bstring*/ value_o_2237_defaultValue) { /* line 77 "../lib/enable_input.s7i" */ bstriType/*t_68_bstring*/ o_2237_defaultValue; /* line 80 "../lib/enable_input.s7i" */ striType/*t_15_string*/ o_2238_stri; /* line 77 "../lib/enable_input.s7i" */ o_2237_defaultValue=bstCreate(value_o_2237_defaultValue); /* line 80 "../lib/enable_input.s7i" */ o_2238_stri=strEmpty(); /* "" */ { /* line 82 "../lib/enable_input.s7i" */ striType old_stri=o_2238_stri; /* line 82 "../lib/enable_input.s7i" */ o_2238_stri=o_921_getwd(o_2235_inFile); /* line 82 "../lib/enable_input.s7i" */ strDestr(old_stri); } /* line 83 "../lib/enable_input.s7i" */ if (((o_2238_stri)->size==0 /* "" */)) { /* line 84 "../lib/enable_input.s7i" */ bstCpy(&(*o_2236_aVar), o_2237_defaultValue); } else { { /* line 86 "../lib/enable_input.s7i" */ bstriType old_bstri=*o_2236_aVar; /* line 86 "../lib/enable_input.s7i" */ *o_2236_aVar=bstParse(o_2238_stri); /* line 86 "../lib/enable_input.s7i" */ bstDestr(old_bstri); } } /* line 77 "../lib/enable_input.s7i" */ bstDestr(o_2237_defaultValue); /* line 77 "../lib/enable_input.s7i" */ strDestr(o_2238_stri); } /* line 1 "no_file" */ /* 1020 */ /* line 99 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_2239_readln (interfaceType/*t_46_file*/ *const o_2240_inFile, bstriType/*t_68_bstring*/ *const o_2241_aVar) { { /* line 101 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_3 = (striType/*t_15_string*/)(NULL); /* line 101 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); { /* line 101 "../lib/enable_input.s7i" */ bstriType old_bstri=*o_2241_aVar; /* line 101 "../lib/enable_input.s7i" */ *o_2241_aVar=bstParse((tmp_2=(striType/*t_15_string*/)(o_99_trimValue(&(typ[9] /* bstriType/t_68_bstring */), (tmp_3=(striType/*t_15_string*/)(o_923_getln(o_2240_inFile))))))); /* line 101 "../lib/enable_input.s7i" */ bstDestr(old_bstri); } /* line 101 "../lib/enable_input.s7i" */ strDestr(tmp_3); /* line 101 "../lib/enable_input.s7i" */ strDestr(tmp_2); } } /* line 1 "no_file" */ /* 1021 */ /* line 114 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_2242_readln (interfaceType/*t_46_file*/ *const o_2243_inFile, bstriType/*t_68_bstring*/ *const o_2244_aVar, const bstriType/*t_68_bstring*/ value_o_2245_defaultValue) { /* line 114 "../lib/enable_input.s7i" */ bstriType/*t_68_bstring*/ o_2245_defaultValue; /* line 117 "../lib/enable_input.s7i" */ striType/*t_15_string*/ o_2246_stri; /* line 114 "../lib/enable_input.s7i" */ o_2245_defaultValue=bstCreate(value_o_2245_defaultValue); /* line 117 "../lib/enable_input.s7i" */ o_2246_stri=strEmpty(); /* "" */ { /* line 119 "../lib/enable_input.s7i" */ striType old_stri=o_2246_stri; /* line 119 "../lib/enable_input.s7i" */ o_2246_stri=o_923_getln(o_2243_inFile); /* line 119 "../lib/enable_input.s7i" */ strDestr(old_stri); } /* line 120 "../lib/enable_input.s7i" */ if (((o_2246_stri)->size==0 /* "" */)) { /* line 121 "../lib/enable_input.s7i" */ bstCpy(&(*o_2244_aVar), o_2245_defaultValue); } else { { /* line 123 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); { /* line 123 "../lib/enable_input.s7i" */ bstriType old_bstri=*o_2244_aVar; /* line 123 "../lib/enable_input.s7i" */ *o_2244_aVar=bstParse((tmp_2=(striType/*t_15_string*/)(o_99_trimValue(&(typ[9] /* bstriType/t_68_bstring */), o_2246_stri)))); /* line 123 "../lib/enable_input.s7i" */ bstDestr(old_bstri); } /* line 123 "../lib/enable_input.s7i" */ strDestr(tmp_2); } } /* line 114 "../lib/enable_input.s7i" */ bstDestr(o_2245_defaultValue); /* line 114 "../lib/enable_input.s7i" */ strDestr(o_2246_stri); } /* line 1 "no_file" */ /* 1022 */ /* line 137 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_2247_read (bstriType/*t_68_bstring*/ *const o_2248_aVar) { /* line 139 "../lib/enable_input.s7i" */ o_2231_read(&(o_1071_IN), o_2248_aVar); } /* line 1 "no_file" */ /* 1023 */ /* line 153 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_2249_read (bstriType/*t_68_bstring*/ *const o_2250_aVar, const bstriType/*t_68_bstring*/ value_o_2251_defaultValue) { /* line 153 "../lib/enable_input.s7i" */ bstriType/*t_68_bstring*/ o_2251_defaultValue; /* line 153 "../lib/enable_input.s7i" */ o_2251_defaultValue=bstCreate(value_o_2251_defaultValue); /* line 155 "../lib/enable_input.s7i" */ o_2234_read(&(o_1071_IN), o_2250_aVar, o_2251_defaultValue); /* line 153 "../lib/enable_input.s7i" */ bstDestr(o_2251_defaultValue); } /* line 1 "no_file" */ /* 1024 */ /* line 167 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_2252_readln (bstriType/*t_68_bstring*/ *const o_2253_aVar) { /* line 169 "../lib/enable_input.s7i" */ o_2239_readln(&(o_1071_IN), o_2253_aVar); } /* line 1 "no_file" */ /* 1025 */ /* line 182 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_2254_readln (bstriType/*t_68_bstring*/ *const o_2255_aVar, const bstriType/*t_68_bstring*/ value_o_2256_defaultValue) { /* line 182 "../lib/enable_input.s7i" */ bstriType/*t_68_bstring*/ o_2256_defaultValue; /* line 182 "../lib/enable_input.s7i" */ o_2256_defaultValue=bstCreate(value_o_2256_defaultValue); /* line 184 "../lib/enable_input.s7i" */ o_2242_readln(&(o_1071_IN), o_2255_aVar, o_2256_defaultValue); /* line 182 "../lib/enable_input.s7i" */ bstDestr(o_2256_defaultValue); } /* line 1 "no_file" */ /* 1026 */ /* line 54 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_2257_write (interfaceType/*t_46_file*/ *const o_2258_aFile, const bstriType/*t_68_bstring*/ value_o_2259_aValue) { /* line 54 "../lib/enable_output.s7i" */ bstriType/*t_68_bstring*/ o_2259_aValue; /* line 54 "../lib/enable_output.s7i" */ o_2259_aValue=bstCreate(value_o_2259_aValue); { /* line 56 "../lib/enable_output.s7i" */ striType tmp_1 = NULL; /* line 56 "../lib/enable_output.s7i" */ o_889_write(o_2258_aFile, (tmp_1=bstStr(o_2259_aValue))); /* line 56 "../lib/enable_output.s7i" */ strDestr(tmp_1); } /* line 54 "../lib/enable_output.s7i" */ bstDestr(o_2259_aValue); } /* line 1 "no_file" */ /* 1027 */ /* line 62 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_2260_writeln (interfaceType/*t_46_file*/ *const o_2261_aFile, const bstriType/*t_68_bstring*/ value_o_2262_aValue) { /* line 62 "../lib/enable_output.s7i" */ bstriType/*t_68_bstring*/ o_2262_aValue; /* line 62 "../lib/enable_output.s7i" */ o_2262_aValue=bstCreate(value_o_2262_aValue); { /* line 64 "../lib/enable_output.s7i" */ striType tmp_1 = NULL; /* line 64 "../lib/enable_output.s7i" */ o_894_writeln(o_2261_aFile, (tmp_1=bstStr(o_2262_aValue))); /* line 64 "../lib/enable_output.s7i" */ strDestr(tmp_1); } /* line 62 "../lib/enable_output.s7i" */ bstDestr(o_2262_aValue); } /* line 1 "no_file" */ /* 1028 */ /* line 70 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_2263_write (const bstriType/*t_68_bstring*/ value_o_2264_aValue) { /* line 70 "../lib/enable_output.s7i" */ bstriType/*t_68_bstring*/ o_2264_aValue; /* line 70 "../lib/enable_output.s7i" */ o_2264_aValue=bstCreate(value_o_2264_aValue); /* line 72 "../lib/enable_output.s7i" */ o_2257_write(&(o_1074_OUT), o_2264_aValue); /* line 70 "../lib/enable_output.s7i" */ bstDestr(o_2264_aValue); } /* line 1 "no_file" */ /* 1029 */ /* line 78 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_2265_writeln (const bstriType/*t_68_bstring*/ value_o_2266_aValue) { /* line 78 "../lib/enable_output.s7i" */ bstriType/*t_68_bstring*/ o_2266_aValue; /* line 78 "../lib/enable_output.s7i" */ o_2266_aValue=bstCreate(value_o_2266_aValue); /* line 80 "../lib/enable_output.s7i" */ o_2260_writeln(&(o_1074_OUT), o_2266_aValue); /* line 78 "../lib/enable_output.s7i" */ bstDestr(o_2266_aValue); } /* line 1 "no_file" */ /* 1030 */ /* line 88 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_2267_lpad (const bstriType/*t_68_bstring*/ value_o_2268_aValue, const intType/*t_14_integer*/ o_2269_leng) { /* line 89 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 89 "../lib/enable_output.s7i" */ bstriType/*t_68_bstring*/ o_2268_aValue; /* line 89 "../lib/enable_output.s7i" */ o_2268_aValue=bstCreate(value_o_2268_aValue); /* line 89 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strLpadTemp(bstStr(o_2268_aValue), o_2269_leng))); /* line 89 "../lib/enable_output.s7i" */ bstDestr(o_2268_aValue); /* line 89 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 1031 */ /* line 96 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_2270_rpad (const bstriType/*t_68_bstring*/ value_o_2271_aValue, const intType/*t_14_integer*/ o_2272_leng) { /* line 97 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 97 "../lib/enable_output.s7i" */ bstriType/*t_68_bstring*/ o_2271_aValue; /* line 97 "../lib/enable_output.s7i" */ striType tmp_2 = NULL; /* line 97 "../lib/enable_output.s7i" */ o_2271_aValue=bstCreate(value_o_2271_aValue); /* line 97 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strRpad((tmp_2=bstStr(o_2271_aValue)), o_2272_leng))); /* line 97 "../lib/enable_output.s7i" */ bstDestr(o_2271_aValue); /* line 97 "../lib/enable_output.s7i" */ strDestr(tmp_2); /* line 97 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 1032 */ /* line 104 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_2273/*<&*/ (const const_striType/*t_15_string*/ o_2274_stri, const bstriType/*t_68_bstring*/ value_o_2275_aValue) { /* line 105 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 105 "../lib/enable_output.s7i" */ bstriType/*t_68_bstring*/ o_2275_aValue; /* line 105 "../lib/enable_output.s7i" */ striType tmp_2 = NULL; /* line 105 "../lib/enable_output.s7i" */ o_2275_aValue=bstCreate(value_o_2275_aValue); /* line 105 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strConcat(o_2274_stri, (tmp_2=bstStr(o_2275_aValue))))); /* line 105 "../lib/enable_output.s7i" */ bstDestr(o_2275_aValue); /* line 105 "../lib/enable_output.s7i" */ strDestr(tmp_2); /* line 105 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 1033 */ /* line 112 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_2276/*<&*/ (const bstriType/*t_68_bstring*/ value_o_2277_aValue, const const_striType/*t_15_string*/ o_2278_stri) { /* line 113 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 113 "../lib/enable_output.s7i" */ bstriType/*t_68_bstring*/ o_2277_aValue; /* line 113 "../lib/enable_output.s7i" */ o_2277_aValue=bstCreate(value_o_2277_aValue); /* line 113 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strConcatTemp(bstStr(o_2277_aValue), o_2278_stri))); /* line 113 "../lib/enable_output.s7i" */ bstDestr(o_2277_aValue); /* line 113 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 1034 */ typedef genericType t_69/*t_69_signedness*/; /* 1035 */ /* 1036 */ /* 1037 */ /* 1038 */ const enumType/*t_69_signedness*/ o_2279_UNSIGNED=/*UNSIGNED*/0; /* 1039 */ const enumType/*t_69_signedness*/ o_2280_SIGNED=/*SIGNED*/1; /* 1040 */ struct listStruct rec_2281_2={NULL, (objRefType) &(o_2280_SIGNED)}; struct listStruct rec_2281_1={&rec_2281_2, (objRefType) &(o_2279_UNSIGNED)}; listType/*t_20_ref_list*/ o_2281/*.*/=&rec_2281_1; /* 1041 */ const enumType/*t_69_signedness*/ o_2282/*.*/=/*UNSIGNED*/0; /* 1042 */ const enumType/*t_69_signedness*/ o_2283/*.*/=/*UNSIGNED*/0; /* 1043 */ const enumType/*t_69_signedness*/ o_2284/*.*/=/*SIGNED*/1; /* 1044 */ /* line 976 "../lib/seed7_05.s7i" */ static enumType/*t_69_signedness*/ o_2285_conv (/* attr t_69 signedness*/ const intType/*t_14_integer*/ o_2286_number) { /* line 977 "../lib/seed7_05.s7i" */ return (enumType/*t_69_signedness*/)(((o_2286_number))); } /* line 1 "no_file" */ /* 1045 */ /* line 979 "../lib/seed7_05.s7i" */ static intType/*t_14_integer*/ o_2287_ord (const enumType/*t_69_signedness*/ o_2288_enum_val) { /* line 980 "../lib/seed7_05.s7i" */ return (intType/*t_14_integer*/)(((o_2288_enum_val))); } /* line 1 "no_file" */ /* 1046 */ /* line 982 "../lib/seed7_05.s7i" */ static intType/*t_14_integer*/ o_2289_hashCode (const enumType/*t_69_signedness*/ o_2290_enum_val) { /* line 983 "../lib/seed7_05.s7i" */ return (intType/*t_14_integer*/)((o_2287_ord(o_2290_enum_val))); } /* line 1 "no_file" */ /* 1047 */ /* line 985 "../lib/seed7_05.s7i" */ static intType/*t_14_integer*/ o_2291_compare (const enumType/*t_69_signedness*/ o_2292_enum1, const enumType/*t_69_signedness*/ o_2293_enum2) { /* line 986 "../lib/seed7_05.s7i" */ return (intType/*t_14_integer*/)((intCmp(o_2287_ord(o_2292_enum1), o_2287_ord(o_2293_enum2)))); } /* line 1 "no_file" */ /* 1048 */ /* line 988 "../lib/seed7_05.s7i" */ static intType/*t_14_integer*/ o_2294_conv (/* attr t_14 integer*/ const enumType/*t_69_signedness*/ o_2295_enum_val) { /* line 989 "../lib/seed7_05.s7i" */ return (intType/*t_14_integer*/)((o_2287_ord(o_2295_enum_val))); } /* line 1 "no_file" */ /* 1049 */ /* line 991 "../lib/seed7_05.s7i" */ static enumType/*t_69_signedness*/ o_2296_succ (const enumType/*t_69_signedness*/ *const o_2297_enum_val) { /* line 992 "../lib/seed7_05.s7i" */ return (enumType/*t_69_signedness*/)((o_2285_conv(/* attr t_69 signedness*/ (o_2287_ord(*o_2297_enum_val))+1))); } /* line 1 "no_file" */ /* 1050 */ /* line 994 "../lib/seed7_05.s7i" */ static enumType/*t_69_signedness*/ o_2298_pred (const enumType/*t_69_signedness*/ *const o_2299_enum_val) { /* line 995 "../lib/seed7_05.s7i" */ return (enumType/*t_69_signedness*/)((o_2285_conv(/* attr t_69 signedness*/ (o_2287_ord(*o_2299_enum_val))-1))); } /* line 1 "no_file" */ /* 1051 */ /* line 997 "../lib/seed7_05.s7i" */ static void/*t_1_void*/ o_2300_incr (enumType/*t_69_signedness*/ *const o_2301_enum_val) { /* line 999 "../lib/seed7_05.s7i" */ *o_2301_enum_val=o_2296_succ(o_2301_enum_val); } /* line 1 "no_file" */ /* 1052 */ /* line 1002 "../lib/seed7_05.s7i" */ static void/*t_1_void*/ o_2302_decr (enumType/*t_69_signedness*/ *const o_2303_enum_val) { /* line 1004 "../lib/seed7_05.s7i" */ *o_2303_enum_val=o_2298_pred(o_2303_enum_val); } /* line 1 "no_file" */ /* 1053 */ /* line 1007 "../lib/seed7_05.s7i" */ static boolType/*t_13_boolean*/ o_2304/*<*/ (const enumType/*t_69_signedness*/ o_2305_enum_val1, const enumType/*t_69_signedness*/ o_2306_enum_val2) { /* line 1008 "../lib/seed7_05.s7i" */ return (boolType/*t_13_boolean*/)(((o_2287_ord(o_2305_enum_val1)) < (o_2287_ord(o_2306_enum_val2)))); } /* line 1 "no_file" */ /* 1054 */ /* line 1010 "../lib/seed7_05.s7i" */ static boolType/*t_13_boolean*/ o_2307/*<=*/ (const enumType/*t_69_signedness*/ o_2308_enum_val1, const enumType/*t_69_signedness*/ o_2309_enum_val2) { /* line 1011 "../lib/seed7_05.s7i" */ return (boolType/*t_13_boolean*/)(((o_2287_ord(o_2308_enum_val1)) <= (o_2287_ord(o_2309_enum_val2)))); } /* line 1 "no_file" */ /* 1055 */ /* line 1013 "../lib/seed7_05.s7i" */ static boolType/*t_13_boolean*/ o_2310/*>*/ (const enumType/*t_69_signedness*/ o_2311_enum_val1, const enumType/*t_69_signedness*/ o_2312_enum_val2) { /* line 1014 "../lib/seed7_05.s7i" */ return (boolType/*t_13_boolean*/)(((o_2287_ord(o_2311_enum_val1)) > (o_2287_ord(o_2312_enum_val2)))); } /* line 1 "no_file" */ /* 1056 */ /* line 1016 "../lib/seed7_05.s7i" */ static boolType/*t_13_boolean*/ o_2313/*>=*/ (const enumType/*t_69_signedness*/ o_2314_enum_val1, const enumType/*t_69_signedness*/ o_2315_enum_val2) { /* line 1017 "../lib/seed7_05.s7i" */ return (boolType/*t_13_boolean*/)(((o_2287_ord(o_2314_enum_val1)) >= (o_2287_ord(o_2315_enum_val2)))); } /* line 1 "no_file" */ /* 1057 */ /* declare inline o_2316_for*/ /* declare inline o_2317_for*/ /* declare inline o_2318_for*/ /* declare inline o_2319_for*/ /* declare inline o_2320_for*/ /* declare inline o_2321_for*/ typedef genericType t_70/*t_70_*ANONYM_TYPE**/; /* 1058 */ typedef genericType t_71/*t_71_*ANONYM_TYPE**/; /* 1059 */ /* 1060 */ /* 1061 */ /* 1062 */ /* 1063 */ const boolType/*t_13_boolean*/ o_2322_isBitset=1/*TRUE*/; /* 1064 */ /* line 169 "../lib/bitsetof.s7i" */ static boolType/*t_13_boolean*/ o_2323_in (const enumType/*t_69_signedness*/ o_2324_aValue, const const_setType/*t_71_*ANONYM_TYPE**/ o_2325_aSet) { /* line 170 "../lib/bitsetof.s7i" */ boolType/*t_13_boolean*/ result; /* line 170 "../lib/bitsetof.s7i" */ intType tmp_1; /* line 170 "../lib/bitsetof.s7i" */ const_setType tmp_2; /* line 170 "../lib/bitsetof.s7i" */ intType tmp_3; /* line 170 "../lib/bitsetof.s7i" */ result=(boolType/*t_13_boolean*/)(((tmp_1=o_2287_ord(o_2324_aValue),tmp_2=(o_2325_aSet),tmp_3=bitset_pos(tmp_1),tmp_3>=tmp_2->min_position&&tmp_3<=tmp_2->max_position&&tmp_2->bitset[(uintType)(tmp_3-tmp_2->min_position)] >> (tmp_1 & bitset_mask)&1))); /* line 170 "../lib/bitsetof.s7i" */ return result; } /* line 1 "no_file" */ /* 1065 */ /* line 178 "../lib/bitsetof.s7i" */ static boolType/*t_13_boolean*/ o_2326_not (const enumType/*t_69_signedness*/ o_2327_aValue, const const_setType/*t_71_*ANONYM_TYPE**/ o_2328_aSet) { /* line 179 "../lib/bitsetof.s7i" */ boolType/*t_13_boolean*/ result; /* line 179 "../lib/bitsetof.s7i" */ intType tmp_1; /* line 179 "../lib/bitsetof.s7i" */ const_setType tmp_2; /* line 179 "../lib/bitsetof.s7i" */ intType tmp_3; /* line 179 "../lib/bitsetof.s7i" */ result=(boolType/*t_13_boolean*/)((!((tmp_1=o_2287_ord(o_2327_aValue),tmp_2=(o_2328_aSet),tmp_3=bitset_pos(tmp_1),tmp_3>=tmp_2->min_position&&tmp_3<=tmp_2->max_position&&tmp_2->bitset[(uintType)(tmp_3-tmp_2->min_position)] >> (tmp_1 & bitset_mask)&1)))); /* line 179 "../lib/bitsetof.s7i" */ return result; } /* line 1 "no_file" */ /* 1066 */ /* line 186 "../lib/bitsetof.s7i" */ static void/*t_1_void*/ o_2329_incl (setType/*t_71_*ANONYM_TYPE**/ *const o_2330_aSet, const enumType/*t_69_signedness*/ o_2331_aValue) { /* line 188 "../lib/bitsetof.s7i" */ setIncl(&((*o_2330_aSet)), o_2287_ord(o_2331_aValue)); } /* line 1 "no_file" */ /* 1067 */ /* line 195 "../lib/bitsetof.s7i" */ static void/*t_1_void*/ o_2332_excl (setType/*t_71_*ANONYM_TYPE**/ *const o_2333_aSet, const enumType/*t_69_signedness*/ o_2334_aValue) { { /* line 197 "../lib/bitsetof.s7i" */ setType tmp_1; /* line 197 "../lib/bitsetof.s7i" */ intType tmp_2; /* line 197 "../lib/bitsetof.s7i" */ intType tmp_3; /* line 197 "../lib/bitsetof.s7i" */ tmp_1=(*o_2333_aSet); /* line 197 "../lib/bitsetof.s7i" */ tmp_2=o_2287_ord(o_2334_aValue); /* line 197 "../lib/bitsetof.s7i" */ tmp_3=bitset_pos(tmp_2); /* line 197 "../lib/bitsetof.s7i" */ if (tmp_3>=tmp_1->min_position&&tmp_3<=tmp_1->max_position) { /* line 197 "../lib/bitsetof.s7i" */ tmp_1->bitset[(uintType)(tmp_3-tmp_1->min_position)] &= ~((bitSetType) 1 << (((unsigned int) tmp_2) & bitset_mask)); /* line 197 "../lib/bitsetof.s7i" */ } } } /* line 1 "no_file" */ /* 1068 */ /* line 212 "../lib/bitsetof.s7i" */ static enumType/*t_69_signedness*/ o_2335_rand (const const_setType/*t_71_*ANONYM_TYPE**/ o_2336_aSet) { /* line 213 "../lib/bitsetof.s7i" */ return (enumType/*t_69_signedness*/)((o_2285_conv(/* attr t_69 signedness*/ setRand((o_2336_aSet))))); } /* line 1 "no_file" */ /* 1069 */ /* line 223 "../lib/bitsetof.s7i" */ static enumType/*t_69_signedness*/ o_2337_min (const const_setType/*t_71_*ANONYM_TYPE**/ o_2338_aSet) { /* line 224 "../lib/bitsetof.s7i" */ return (enumType/*t_69_signedness*/)((o_2285_conv(/* attr t_69 signedness*/ setMin((o_2338_aSet))))); } /* line 1 "no_file" */ /* 1070 */ /* line 234 "../lib/bitsetof.s7i" */ static enumType/*t_69_signedness*/ o_2339_max (const const_setType/*t_71_*ANONYM_TYPE**/ o_2340_aSet) { /* line 235 "../lib/bitsetof.s7i" */ return (enumType/*t_69_signedness*/)((o_2285_conv(/* attr t_69 signedness*/ setMax((o_2340_aSet))))); } /* line 1 "no_file" */ /* 1071 */ /* line 237 "../lib/bitsetof.s7i" */ static enumType/*t_69_signedness*/ o_2341_next (const const_setType/*t_71_*ANONYM_TYPE**/ o_2342_aSet, const enumType/*t_69_signedness*/ o_2343_oldValue) { /* line 238 "../lib/bitsetof.s7i" */ return (enumType/*t_69_signedness*/)((o_2285_conv(/* attr t_69 signedness*/ setNext((o_2342_aSet), o_2287_ord(o_2343_oldValue))))); } /* line 1 "no_file" */ /* 1072 */ /* line 240 "../lib/bitsetof.s7i" */ static setType/*t_71_*ANONYM_TYPE**/ o_2344/*{*/ (const enumType/*t_69_signedness*/ o_2345_value) { /* line 241 "../lib/bitsetof.s7i" */ return (setType/*t_71_*ANONYM_TYPE**/)((setBaselit(o_2287_ord(o_2345_value)))); } /* line 1 "no_file" */ /* 1073 */ typedef genericType t_72/*t_72_*ANONYM_TYPE**/; /* 1074 */ /* 1075 */ /* 1076 */ /* 1077 */ /* ACTION ARR_GEN for type arrayType/t_72_*ANONYM_TYPE* element is enumType/t_69_signedness */ /* 1078 */ typedef genericType t_73/*t_73_*ANONYM_TYPE**/; /* 1079 */ /* 1080 */ /* 1081 */ /* 1082 */ /* 1083 */ /* 1084 */ /* ACTION ARR_IDX for type arrayType/t_73_*ANONYM_TYPE* element is enumType/t_69_signedness */ /* 1085 */ /* ACTION ARR_IDX for type arrayType/t_73_*ANONYM_TYPE* element is enumType/t_69_signedness */ /* 1086 */ /* line 163 "../lib/array.s7i" */ static arrayType times_73 (intType n, const enumType/*t_69_signedness*/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.enumValue=b; /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 1087 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_73_*ANONYM_TYPE**/ create_73 (const_arrayType/*t_73_*ANONYM_TYPE**/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_73_*ANONYM_TYPE**/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_73_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.enumValue=b->arr[i].value.enumValue; /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_73 (const_arrayType/*t_73_*ANONYM_TYPE**/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_72 (const_arrayType/*t_72_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_72_*ANONYM_TYPE**/ create_72 (const_arrayType/*t_72_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_72_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_72_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.enumValue=b->arr[i].value.enumValue; /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_73_*ANONYM_TYPE**/ o_2346_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_2347_indexRange, const enumType/*t_69_signedness*/ o_2348_element) { /* line 186 "../lib/array.s7i" */ arrayType/*t_73_*ANONYM_TYPE**/ o_2349_anArray; /* line 186 "../lib/array.s7i" */ o_2349_anArray=create_73(arr[31]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_2349_anArray; /* line 188 "../lib/array.s7i" */ o_2349_anArray=times_73(((((structType)(o_2347_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_2347_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_2348_element); /* line 188 "../lib/array.s7i" */ destr_73(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_2349_anArray; /* line 189 "../lib/array.s7i" */ o_2349_anArray=arrArrlit2(((structType)(o_2347_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_72(/*arrConv()*/o_2349_anArray)); /* line 189 "../lib/array.s7i" */ destr_73(old_array); } return o_2349_anArray; } /* line 1 "no_file" */ /* 1088 */ /* declare inline o_2350_for*/ /* declare inline o_2351_for*/ /* declare inline o_2352_for*/ /* declare inline o_2353_for*/ /* declare inline o_2354_for*/ /* declare inline o_2355_for*/ /* declare inline o_2356_for*/ /* declare inline o_2357_for*/ /* declare inline o_2358_for*/ /* line 329 "../lib/array.s7i" */ static enumType/*t_69_signedness*/ o_2359_rand (const const_arrayType/*t_73_*ANONYM_TYPE**/ o_2360_arr) { /* line 330 "../lib/array.s7i" */ enumType/*t_69_signedness*/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(enumType/*t_69_signedness*/)(((o_2360_arr)->arr[idx_1=intRand((o_2360_arr)->min_position, (o_2360_arr)->max_position),(idxChk(idx_1 < (o_2360_arr)->min_position || idx_1 > (o_2360_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_2360_arr)->min_position)].value.enumValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 1089 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_2361_insert (arrayType/*t_73_*ANONYM_TYPE**/ *const o_2362_arr, const intType/*t_14_integer*/ o_2363_index, const enumType/*t_69_signedness*/ o_2364_element) { /* line 334 "../lib/array.s7i" */ if (((o_2363_index) >= ((*o_2362_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_2363_index) <= (((*o_2362_arr)->max_position)+1))) { { { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_2362_arr; /* line 335 "../lib/array.s7i" */ *o_2362_arr=arrCat(arrCat(arrHead(*o_2362_arr, (o_2363_index)-1), arrBaselit((genericType)(o_2364_element))), arrTail(*o_2362_arr, o_2363_index)); /* line 335 "../lib/array.s7i" */ destr_73(old_array); } } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } } /* line 1 "no_file" */ /* 1090 */ /* line 344 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_2365/*=*/ (const const_arrayType/*t_73_*ANONYM_TYPE**/ o_2366_arr1, const const_arrayType/*t_73_*ANONYM_TYPE**/ o_2367_arr2) { /* line 346 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_2368_isEqual=o_25_FALSE; /* line 348 "../lib/array.s7i" */ intType/*t_14_integer*/ o_2369_number=1; /* line 350 "../lib/array.s7i" */ if ((((o_2366_arr1)->min_position) == ((o_2367_arr2)->min_position)) && /* line 350 "../lib/array.s7i" */ (((o_2366_arr1)->max_position) == ((o_2367_arr2)->max_position))) { /* line 351 "../lib/array.s7i" */ o_2368_isEqual=o_26_TRUE; /* line 352 "../lib/array.s7i" */ o_2369_number=(o_2366_arr1)->min_position; /* line 353 "../lib/array.s7i" */ while (((o_2369_number) <= ((o_2366_arr1)->max_position)) && /* line 353 "../lib/array.s7i" */ (o_2368_isEqual)) { /* line 354 "../lib/array.s7i" */ o_2368_isEqual=((o_2366_arr1)->arr[(idxChk((o_2369_number) < (o_2366_arr1)->min_position || (o_2369_number) > (o_2366_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2369_number)-(o_2366_arr1)->min_position)].value.enumValue) == ((o_2367_arr2)->arr[(idxChk((o_2369_number) < (o_2367_arr2)->min_position || (o_2369_number) > (o_2367_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2369_number)-(o_2367_arr2)->min_position)].value.enumValue); /* line 355 "../lib/array.s7i" */ ++(o_2369_number); } } return o_2368_isEqual; } /* line 1 "no_file" */ /* 1091 */ /* line 360 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_2370/*<>*/ (const const_arrayType/*t_73_*ANONYM_TYPE**/ o_2371_arr1, const const_arrayType/*t_73_*ANONYM_TYPE**/ o_2372_arr2) { /* line 362 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_2373_isNotEqual=o_26_TRUE; /* line 364 "../lib/array.s7i" */ intType/*t_14_integer*/ o_2374_number=1; /* line 366 "../lib/array.s7i" */ if ((((o_2371_arr1)->min_position) == ((o_2372_arr2)->min_position)) && /* line 366 "../lib/array.s7i" */ (((o_2371_arr1)->max_position) == ((o_2372_arr2)->max_position))) { /* line 367 "../lib/array.s7i" */ o_2373_isNotEqual=o_25_FALSE; /* line 368 "../lib/array.s7i" */ o_2374_number=(o_2371_arr1)->min_position; /* line 369 "../lib/array.s7i" */ while (((o_2374_number) <= ((o_2371_arr1)->max_position)) && /* line 369 "../lib/array.s7i" */ (!(o_2373_isNotEqual))) { /* line 370 "../lib/array.s7i" */ o_2373_isNotEqual=((o_2371_arr1)->arr[(idxChk((o_2374_number) < (o_2371_arr1)->min_position || (o_2374_number) > (o_2371_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2374_number)-(o_2371_arr1)->min_position)].value.enumValue) != ((o_2372_arr2)->arr[(idxChk((o_2374_number) < (o_2372_arr2)->min_position || (o_2374_number) > (o_2372_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2374_number)-(o_2372_arr2)->min_position)].value.enumValue); /* line 371 "../lib/array.s7i" */ ++(o_2374_number); } } return o_2373_isNotEqual; } /* line 1 "no_file" */ /* 1092 */ /* line 381 "../lib/array.s7i" */ static void/*t_1_void*/ o_2375_insert (arrayType/*t_73_*ANONYM_TYPE**/ *const o_2376_arr, const enumType/*t_69_signedness*/ o_2377_element) { /* line 383 "../lib/array.s7i" */ intType/*t_14_integer*/ o_2378_number=1; /* line 385 "../lib/array.s7i" */ o_2378_number=(*o_2376_arr)->min_position; /* line 386 "../lib/array.s7i" */ while (((o_2378_number) <= ((*o_2376_arr)->max_position)) && /* line 386 "../lib/array.s7i" */ (o_2304/*<*/((*o_2376_arr)->arr[(idxChk((o_2378_number) < (*o_2376_arr)->min_position || (o_2378_number) > (*o_2376_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2378_number)-(*o_2376_arr)->min_position)].value.enumValue, o_2377_element))) { /* line 387 "../lib/array.s7i" */ ++(o_2378_number); } /* line 389 "../lib/array.s7i" */ if ((o_2378_number) > ((*o_2376_arr)->max_position)) { { { /* line 390 "../lib/array.s7i" */ arrayType old_array=*o_2376_arr; /* line 390 "../lib/array.s7i" */ *o_2376_arr=arrCat(create_73(*o_2376_arr), arrBaselit((genericType)(o_2377_element))); /* line 390 "../lib/array.s7i" */ destr_73(old_array); } } } else /* line 391 "../lib/array.s7i" */ if (o_2310/*>*/((*o_2376_arr)->arr[(idxChk((o_2378_number) < (*o_2376_arr)->min_position || (o_2378_number) > (*o_2376_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2378_number)-(*o_2376_arr)->min_position)].value.enumValue, o_2377_element)) { { { /* line 392 "../lib/array.s7i" */ arrayType old_array=*o_2376_arr; /* line 392 "../lib/array.s7i" */ *o_2376_arr=arrCat(arrCat(arrHead(*o_2376_arr, (o_2378_number)-1), arrBaselit((genericType)(o_2377_element))), arrTail(*o_2376_arr, o_2378_number)); /* line 392 "../lib/array.s7i" */ destr_73(old_array); } } } } /* line 1 "no_file" */ /* 1093 */ /* line 400 "../lib/array.s7i" */ static intType/*t_14_integer*/ o_2379_compare (const const_arrayType/*t_73_*ANONYM_TYPE**/ o_2380_arr1, const const_arrayType/*t_73_*ANONYM_TYPE**/ o_2381_arr2) { /* line 402 "../lib/array.s7i" */ intType/*t_14_integer*/ o_2382_signumValue=0; /* line 404 "../lib/array.s7i" */ intType/*t_14_integer*/ o_2383_idx1=0; /* line 405 "../lib/array.s7i" */ intType/*t_14_integer*/ o_2384_idx2=0; /* line 407 "../lib/array.s7i" */ o_2383_idx1=(o_2380_arr1)->min_position; /* line 408 "../lib/array.s7i" */ o_2384_idx2=(o_2381_arr2)->min_position; /* line 409 "../lib/array.s7i" */ while (((o_2383_idx1) <= ((o_2380_arr1)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_2384_idx2) <= ((o_2381_arr2)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_2291_compare((o_2380_arr1)->arr[(idxChk((o_2383_idx1) < (o_2380_arr1)->min_position || (o_2383_idx1) > (o_2380_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2383_idx1)-(o_2380_arr1)->min_position)].value.enumValue, (o_2381_arr2)->arr[(idxChk((o_2384_idx2) < (o_2381_arr2)->min_position || (o_2384_idx2) > (o_2381_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2384_idx2)-(o_2381_arr2)->min_position)].value.enumValue)) == (0L))) { /* line 410 "../lib/array.s7i" */ ++(o_2383_idx1); /* line 411 "../lib/array.s7i" */ ++(o_2384_idx2); } /* line 413 "../lib/array.s7i" */ if (((o_2383_idx1) <= ((o_2380_arr1)->max_position)) && /* line 413 "../lib/array.s7i" */ ((o_2384_idx2) <= ((o_2381_arr2)->max_position))) { /* line 414 "../lib/array.s7i" */ o_2382_signumValue=o_2291_compare((o_2380_arr1)->arr[(idxChk((o_2383_idx1) < (o_2380_arr1)->min_position || (o_2383_idx1) > (o_2380_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2383_idx1)-(o_2380_arr1)->min_position)].value.enumValue, (o_2381_arr2)->arr[(idxChk((o_2384_idx2) < (o_2381_arr2)->min_position || (o_2384_idx2) > (o_2381_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2384_idx2)-(o_2381_arr2)->min_position)].value.enumValue); } else { /* line 416 "../lib/array.s7i" */ o_2382_signumValue=intCmp(((o_2380_arr1)->max_position - (o_2380_arr1)->min_position + 1), ((o_2381_arr2)->max_position - (o_2381_arr2)->min_position + 1)); } return o_2382_signumValue; } /* line 1 "no_file" */ /* 1094 */ /* line 420 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_2385/*<*/ (const const_arrayType/*t_73_*ANONYM_TYPE**/ o_2386_arr1, const const_arrayType/*t_73_*ANONYM_TYPE**/ o_2387_arr2) { /* line 421 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_2379_compare(o_2386_arr1, o_2387_arr2)) < (0L))); } /* line 1 "no_file" */ /* 1095 */ /* line 423 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_2388/*>*/ (const const_arrayType/*t_73_*ANONYM_TYPE**/ o_2389_arr1, const const_arrayType/*t_73_*ANONYM_TYPE**/ o_2390_arr2) { /* line 424 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_2379_compare(o_2389_arr1, o_2390_arr2)) > (0L))); } /* line 1 "no_file" */ /* 1096 */ /* line 426 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_2391/*<=*/ (const const_arrayType/*t_73_*ANONYM_TYPE**/ o_2392_arr1, const const_arrayType/*t_73_*ANONYM_TYPE**/ o_2393_arr2) { /* line 427 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_2379_compare(o_2392_arr1, o_2393_arr2)) <= (0L))); } /* line 1 "no_file" */ /* 1097 */ /* line 429 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_2394/*>=*/ (const const_arrayType/*t_73_*ANONYM_TYPE**/ o_2395_arr1, const const_arrayType/*t_73_*ANONYM_TYPE**/ o_2396_arr2) { /* line 430 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_2379_compare(o_2395_arr1, o_2396_arr2)) >= (0L))); } /* line 1 "no_file" */ /* 1098 */ static intType generic_cmp_69 (const genericType a, const genericType b) { return o_2291_compare(((const_rtlObjectType *) &a)->value.enumValue, ((const_rtlObjectType *) &b)->value.enumValue); } /* objRefType/t_19_reference */ intfunctype o_2397/*.*/=(intfunctype)(&generic_cmp_69); /* 1099 */ /* line 436 "../lib/array.s7i" */ static arrayType/*t_73_*ANONYM_TYPE**/ o_2398_sort (const const_arrayType/*t_73_*ANONYM_TYPE**/ o_2399_arr_obj) { /* line 437 "../lib/array.s7i" */ return (arrayType/*t_73_*ANONYM_TYPE**/)((arrSort(create_73(o_2399_arr_obj), (compareType)(o_2397/*.*/)))); } /* line 1 "no_file" */ /* 1100 */ /* line 246 "../lib/bitsetof.s7i" */ static setType/*t_71_*ANONYM_TYPE**/ o_2400/*{*/ (const const_arrayType/*t_72_*ANONYM_TYPE**/ o_2401_value) { /* line 248 "../lib/bitsetof.s7i" */ setType/*t_71_*ANONYM_TYPE**/ o_2402_aSet; /* line 250 "../lib/bitsetof.s7i" */ intType/*t_14_integer*/ o_2403_number=0; /* line 248 "../lib/bitsetof.s7i" */ o_2402_aSet=setCreate(set[0]); { /* line 252 "../lib/bitsetof.s7i" */ const_arrayType tmp_1; /* line 252 "../lib/bitsetof.s7i" */ intType tmp_e_2=(tmp_1=/*arrArrlit()*/o_2401_value,tmp_1->max_position - tmp_1->min_position + 1); /* line 252 "../lib/bitsetof.s7i" */ for (o_2403_number=1L; o_2403_number<=tmp_e_2; (o_2403_number)++) { { /* line 253 "../lib/bitsetof.s7i" */ const_arrayType tmp_1; /* line 253 "../lib/bitsetof.s7i" */ o_2329_incl(&(o_2402_aSet), (*(tmp_1=/*arrArrlit()*/o_2401_value, &tmp_1->arr[(idxChk((o_2403_number) < tmp_1->min_position || (o_2403_number) > tmp_1->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2403_number)-tmp_1->min_position)].value.enumValue))); } } } return o_2402_aSet; } /* line 1 "no_file" */ /* 1101 */ /* line 257 "../lib/bitsetof.s7i" */ static setType/*t_71_*ANONYM_TYPE**/ o_2404/*{*/ (const enumType/*t_69_signedness*/ o_2405_lowerValue, const enumType/*t_69_signedness*/ o_2406_upperValue) { /* line 258 "../lib/bitsetof.s7i" */ return (setType/*t_71_*ANONYM_TYPE**/)((setRangelit(o_2287_ord(o_2405_lowerValue), o_2287_ord(o_2406_upperValue)))); } /* line 1 "no_file" */ /* 1102 */ /* declare inline o_2407_for*/ /* declare inline o_2408_for*/ /* declare inline o_2409_for*/ /* 1103 */ const t_70/*t_70_*ANONYM_TYPE**/ o_2410_WHEN_EMPTY=/*WHEN_EMPTY*/0; /* 1104 */ /* 1105 */ /* 1106 */ typedef genericType t_74/*t_74_endianess*/; /* 1107 */ /* 1108 */ /* 1109 */ /* 1110 */ const enumType/*t_74_endianess*/ o_2415_LE=/*LE*/0; /* 1111 */ const enumType/*t_74_endianess*/ o_2416_BE=/*BE*/1; /* 1112 */ struct listStruct rec_2417_2={NULL, (objRefType) &(o_2416_BE)}; struct listStruct rec_2417_1={&rec_2417_2, (objRefType) &(o_2415_LE)}; listType/*t_20_ref_list*/ o_2417/*.*/=&rec_2417_1; /* 1113 */ const enumType/*t_74_endianess*/ o_2418/*.*/=/*LE*/0; /* 1114 */ const enumType/*t_74_endianess*/ o_2419/*.*/=/*LE*/0; /* 1115 */ const enumType/*t_74_endianess*/ o_2420/*.*/=/*BE*/1; /* 1116 */ /* line 976 "../lib/seed7_05.s7i" */ static enumType/*t_74_endianess*/ o_2421_conv (/* attr t_74 endianess*/ const intType/*t_14_integer*/ o_2422_number) { /* line 977 "../lib/seed7_05.s7i" */ return (enumType/*t_74_endianess*/)(((o_2422_number))); } /* line 1 "no_file" */ /* 1117 */ /* line 979 "../lib/seed7_05.s7i" */ static intType/*t_14_integer*/ o_2423_ord (const enumType/*t_74_endianess*/ o_2424_enum_val) { /* line 980 "../lib/seed7_05.s7i" */ return (intType/*t_14_integer*/)(((o_2424_enum_val))); } /* line 1 "no_file" */ /* 1118 */ /* line 982 "../lib/seed7_05.s7i" */ static intType/*t_14_integer*/ o_2425_hashCode (const enumType/*t_74_endianess*/ o_2426_enum_val) { /* line 983 "../lib/seed7_05.s7i" */ return (intType/*t_14_integer*/)((o_2423_ord(o_2426_enum_val))); } /* line 1 "no_file" */ /* 1119 */ /* line 985 "../lib/seed7_05.s7i" */ static intType/*t_14_integer*/ o_2427_compare (const enumType/*t_74_endianess*/ o_2428_enum1, const enumType/*t_74_endianess*/ o_2429_enum2) { /* line 986 "../lib/seed7_05.s7i" */ return (intType/*t_14_integer*/)((intCmp(o_2423_ord(o_2428_enum1), o_2423_ord(o_2429_enum2)))); } /* line 1 "no_file" */ /* 1120 */ /* line 988 "../lib/seed7_05.s7i" */ static intType/*t_14_integer*/ o_2430_conv (/* attr t_14 integer*/ const enumType/*t_74_endianess*/ o_2431_enum_val) { /* line 989 "../lib/seed7_05.s7i" */ return (intType/*t_14_integer*/)((o_2423_ord(o_2431_enum_val))); } /* line 1 "no_file" */ /* 1121 */ /* line 991 "../lib/seed7_05.s7i" */ static enumType/*t_74_endianess*/ o_2432_succ (const enumType/*t_74_endianess*/ *const o_2433_enum_val) { /* line 992 "../lib/seed7_05.s7i" */ return (enumType/*t_74_endianess*/)((o_2421_conv(/* attr t_74 endianess*/ (o_2423_ord(*o_2433_enum_val))+1))); } /* line 1 "no_file" */ /* 1122 */ /* line 994 "../lib/seed7_05.s7i" */ static enumType/*t_74_endianess*/ o_2434_pred (const enumType/*t_74_endianess*/ *const o_2435_enum_val) { /* line 995 "../lib/seed7_05.s7i" */ return (enumType/*t_74_endianess*/)((o_2421_conv(/* attr t_74 endianess*/ (o_2423_ord(*o_2435_enum_val))-1))); } /* line 1 "no_file" */ /* 1123 */ /* line 997 "../lib/seed7_05.s7i" */ static void/*t_1_void*/ o_2436_incr (enumType/*t_74_endianess*/ *const o_2437_enum_val) { /* line 999 "../lib/seed7_05.s7i" */ *o_2437_enum_val=o_2432_succ(o_2437_enum_val); } /* line 1 "no_file" */ /* 1124 */ /* line 1002 "../lib/seed7_05.s7i" */ static void/*t_1_void*/ o_2438_decr (enumType/*t_74_endianess*/ *const o_2439_enum_val) { /* line 1004 "../lib/seed7_05.s7i" */ *o_2439_enum_val=o_2434_pred(o_2439_enum_val); } /* line 1 "no_file" */ /* 1125 */ /* line 1007 "../lib/seed7_05.s7i" */ static boolType/*t_13_boolean*/ o_2440/*<*/ (const enumType/*t_74_endianess*/ o_2441_enum_val1, const enumType/*t_74_endianess*/ o_2442_enum_val2) { /* line 1008 "../lib/seed7_05.s7i" */ return (boolType/*t_13_boolean*/)(((o_2423_ord(o_2441_enum_val1)) < (o_2423_ord(o_2442_enum_val2)))); } /* line 1 "no_file" */ /* 1126 */ /* line 1010 "../lib/seed7_05.s7i" */ static boolType/*t_13_boolean*/ o_2443/*<=*/ (const enumType/*t_74_endianess*/ o_2444_enum_val1, const enumType/*t_74_endianess*/ o_2445_enum_val2) { /* line 1011 "../lib/seed7_05.s7i" */ return (boolType/*t_13_boolean*/)(((o_2423_ord(o_2444_enum_val1)) <= (o_2423_ord(o_2445_enum_val2)))); } /* line 1 "no_file" */ /* 1127 */ /* line 1013 "../lib/seed7_05.s7i" */ static boolType/*t_13_boolean*/ o_2446/*>*/ (const enumType/*t_74_endianess*/ o_2447_enum_val1, const enumType/*t_74_endianess*/ o_2448_enum_val2) { /* line 1014 "../lib/seed7_05.s7i" */ return (boolType/*t_13_boolean*/)(((o_2423_ord(o_2447_enum_val1)) > (o_2423_ord(o_2448_enum_val2)))); } /* line 1 "no_file" */ /* 1128 */ /* line 1016 "../lib/seed7_05.s7i" */ static boolType/*t_13_boolean*/ o_2449/*>=*/ (const enumType/*t_74_endianess*/ o_2450_enum_val1, const enumType/*t_74_endianess*/ o_2451_enum_val2) { /* line 1017 "../lib/seed7_05.s7i" */ return (boolType/*t_13_boolean*/)(((o_2423_ord(o_2450_enum_val1)) >= (o_2423_ord(o_2451_enum_val2)))); } /* line 1 "no_file" */ /* 1129 */ /* declare inline o_2452_for*/ /* declare inline o_2453_for*/ /* declare inline o_2454_for*/ /* declare inline o_2455_for*/ /* declare inline o_2456_for*/ /* declare inline o_2457_for*/ typedef genericType t_75/*t_75_*ANONYM_TYPE**/; /* 1130 */ typedef genericType t_76/*t_76_*ANONYM_TYPE**/; /* 1131 */ /* 1132 */ /* 1133 */ /* 1134 */ /* 1135 */ const boolType/*t_13_boolean*/ o_2458_isBitset=1/*TRUE*/; /* 1136 */ /* line 169 "../lib/bitsetof.s7i" */ static boolType/*t_13_boolean*/ o_2459_in (const enumType/*t_74_endianess*/ o_2460_aValue, const const_setType/*t_76_*ANONYM_TYPE**/ o_2461_aSet) { /* line 170 "../lib/bitsetof.s7i" */ boolType/*t_13_boolean*/ result; /* line 170 "../lib/bitsetof.s7i" */ intType tmp_1; /* line 170 "../lib/bitsetof.s7i" */ const_setType tmp_2; /* line 170 "../lib/bitsetof.s7i" */ intType tmp_3; /* line 170 "../lib/bitsetof.s7i" */ result=(boolType/*t_13_boolean*/)(((tmp_1=o_2423_ord(o_2460_aValue),tmp_2=(o_2461_aSet),tmp_3=bitset_pos(tmp_1),tmp_3>=tmp_2->min_position&&tmp_3<=tmp_2->max_position&&tmp_2->bitset[(uintType)(tmp_3-tmp_2->min_position)] >> (tmp_1 & bitset_mask)&1))); /* line 170 "../lib/bitsetof.s7i" */ return result; } /* line 1 "no_file" */ /* 1137 */ /* line 178 "../lib/bitsetof.s7i" */ static boolType/*t_13_boolean*/ o_2462_not (const enumType/*t_74_endianess*/ o_2463_aValue, const const_setType/*t_76_*ANONYM_TYPE**/ o_2464_aSet) { /* line 179 "../lib/bitsetof.s7i" */ boolType/*t_13_boolean*/ result; /* line 179 "../lib/bitsetof.s7i" */ intType tmp_1; /* line 179 "../lib/bitsetof.s7i" */ const_setType tmp_2; /* line 179 "../lib/bitsetof.s7i" */ intType tmp_3; /* line 179 "../lib/bitsetof.s7i" */ result=(boolType/*t_13_boolean*/)((!((tmp_1=o_2423_ord(o_2463_aValue),tmp_2=(o_2464_aSet),tmp_3=bitset_pos(tmp_1),tmp_3>=tmp_2->min_position&&tmp_3<=tmp_2->max_position&&tmp_2->bitset[(uintType)(tmp_3-tmp_2->min_position)] >> (tmp_1 & bitset_mask)&1)))); /* line 179 "../lib/bitsetof.s7i" */ return result; } /* line 1 "no_file" */ /* 1138 */ /* line 186 "../lib/bitsetof.s7i" */ static void/*t_1_void*/ o_2465_incl (setType/*t_76_*ANONYM_TYPE**/ *const o_2466_aSet, const enumType/*t_74_endianess*/ o_2467_aValue) { /* line 188 "../lib/bitsetof.s7i" */ setIncl(&((*o_2466_aSet)), o_2423_ord(o_2467_aValue)); } /* line 1 "no_file" */ /* 1139 */ /* line 195 "../lib/bitsetof.s7i" */ static void/*t_1_void*/ o_2468_excl (setType/*t_76_*ANONYM_TYPE**/ *const o_2469_aSet, const enumType/*t_74_endianess*/ o_2470_aValue) { { /* line 197 "../lib/bitsetof.s7i" */ setType tmp_1; /* line 197 "../lib/bitsetof.s7i" */ intType tmp_2; /* line 197 "../lib/bitsetof.s7i" */ intType tmp_3; /* line 197 "../lib/bitsetof.s7i" */ tmp_1=(*o_2469_aSet); /* line 197 "../lib/bitsetof.s7i" */ tmp_2=o_2423_ord(o_2470_aValue); /* line 197 "../lib/bitsetof.s7i" */ tmp_3=bitset_pos(tmp_2); /* line 197 "../lib/bitsetof.s7i" */ if (tmp_3>=tmp_1->min_position&&tmp_3<=tmp_1->max_position) { /* line 197 "../lib/bitsetof.s7i" */ tmp_1->bitset[(uintType)(tmp_3-tmp_1->min_position)] &= ~((bitSetType) 1 << (((unsigned int) tmp_2) & bitset_mask)); /* line 197 "../lib/bitsetof.s7i" */ } } } /* line 1 "no_file" */ /* 1140 */ /* line 212 "../lib/bitsetof.s7i" */ static enumType/*t_74_endianess*/ o_2471_rand (const const_setType/*t_76_*ANONYM_TYPE**/ o_2472_aSet) { /* line 213 "../lib/bitsetof.s7i" */ return (enumType/*t_74_endianess*/)((o_2421_conv(/* attr t_74 endianess*/ setRand((o_2472_aSet))))); } /* line 1 "no_file" */ /* 1141 */ /* line 223 "../lib/bitsetof.s7i" */ static enumType/*t_74_endianess*/ o_2473_min (const const_setType/*t_76_*ANONYM_TYPE**/ o_2474_aSet) { /* line 224 "../lib/bitsetof.s7i" */ return (enumType/*t_74_endianess*/)((o_2421_conv(/* attr t_74 endianess*/ setMin((o_2474_aSet))))); } /* line 1 "no_file" */ /* 1142 */ /* line 234 "../lib/bitsetof.s7i" */ static enumType/*t_74_endianess*/ o_2475_max (const const_setType/*t_76_*ANONYM_TYPE**/ o_2476_aSet) { /* line 235 "../lib/bitsetof.s7i" */ return (enumType/*t_74_endianess*/)((o_2421_conv(/* attr t_74 endianess*/ setMax((o_2476_aSet))))); } /* line 1 "no_file" */ /* 1143 */ /* line 237 "../lib/bitsetof.s7i" */ static enumType/*t_74_endianess*/ o_2477_next (const const_setType/*t_76_*ANONYM_TYPE**/ o_2478_aSet, const enumType/*t_74_endianess*/ o_2479_oldValue) { /* line 238 "../lib/bitsetof.s7i" */ return (enumType/*t_74_endianess*/)((o_2421_conv(/* attr t_74 endianess*/ setNext((o_2478_aSet), o_2423_ord(o_2479_oldValue))))); } /* line 1 "no_file" */ /* 1144 */ /* line 240 "../lib/bitsetof.s7i" */ static setType/*t_76_*ANONYM_TYPE**/ o_2480/*{*/ (const enumType/*t_74_endianess*/ o_2481_value) { /* line 241 "../lib/bitsetof.s7i" */ return (setType/*t_76_*ANONYM_TYPE**/)((setBaselit(o_2423_ord(o_2481_value)))); } /* line 1 "no_file" */ /* 1145 */ typedef genericType t_77/*t_77_*ANONYM_TYPE**/; /* 1146 */ /* 1147 */ /* 1148 */ /* 1149 */ /* ACTION ARR_GEN for type arrayType/t_77_*ANONYM_TYPE* element is enumType/t_74_endianess */ /* 1150 */ typedef genericType t_78/*t_78_*ANONYM_TYPE**/; /* 1151 */ /* 1152 */ /* 1153 */ /* 1154 */ /* 1155 */ /* 1156 */ /* ACTION ARR_IDX for type arrayType/t_78_*ANONYM_TYPE* element is enumType/t_74_endianess */ /* 1157 */ /* ACTION ARR_IDX for type arrayType/t_78_*ANONYM_TYPE* element is enumType/t_74_endianess */ /* 1158 */ /* line 163 "../lib/array.s7i" */ static arrayType times_78 (intType n, const enumType/*t_74_endianess*/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.enumValue=b; /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 1159 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_78_*ANONYM_TYPE**/ create_78 (const_arrayType/*t_78_*ANONYM_TYPE**/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_78_*ANONYM_TYPE**/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_78_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.enumValue=b->arr[i].value.enumValue; /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_78 (const_arrayType/*t_78_*ANONYM_TYPE**/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_77 (const_arrayType/*t_77_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_77_*ANONYM_TYPE**/ create_77 (const_arrayType/*t_77_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_77_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_77_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.enumValue=b->arr[i].value.enumValue; /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_78_*ANONYM_TYPE**/ o_2482_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_2483_indexRange, const enumType/*t_74_endianess*/ o_2484_element) { /* line 186 "../lib/array.s7i" */ arrayType/*t_78_*ANONYM_TYPE**/ o_2485_anArray; /* line 186 "../lib/array.s7i" */ o_2485_anArray=create_78(arr[32]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_2485_anArray; /* line 188 "../lib/array.s7i" */ o_2485_anArray=times_78(((((structType)(o_2483_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_2483_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_2484_element); /* line 188 "../lib/array.s7i" */ destr_78(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_2485_anArray; /* line 189 "../lib/array.s7i" */ o_2485_anArray=arrArrlit2(((structType)(o_2483_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_77(/*arrConv()*/o_2485_anArray)); /* line 189 "../lib/array.s7i" */ destr_78(old_array); } return o_2485_anArray; } /* line 1 "no_file" */ /* 1160 */ /* declare inline o_2486_for*/ /* declare inline o_2487_for*/ /* declare inline o_2488_for*/ /* declare inline o_2489_for*/ /* declare inline o_2490_for*/ /* declare inline o_2491_for*/ /* declare inline o_2492_for*/ /* declare inline o_2493_for*/ /* declare inline o_2494_for*/ /* line 329 "../lib/array.s7i" */ static enumType/*t_74_endianess*/ o_2495_rand (const const_arrayType/*t_78_*ANONYM_TYPE**/ o_2496_arr) { /* line 330 "../lib/array.s7i" */ enumType/*t_74_endianess*/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(enumType/*t_74_endianess*/)(((o_2496_arr)->arr[idx_1=intRand((o_2496_arr)->min_position, (o_2496_arr)->max_position),(idxChk(idx_1 < (o_2496_arr)->min_position || idx_1 > (o_2496_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_2496_arr)->min_position)].value.enumValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 1161 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_2497_insert (arrayType/*t_78_*ANONYM_TYPE**/ *const o_2498_arr, const intType/*t_14_integer*/ o_2499_index, const enumType/*t_74_endianess*/ o_2500_element) { /* line 334 "../lib/array.s7i" */ if (((o_2499_index) >= ((*o_2498_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_2499_index) <= (((*o_2498_arr)->max_position)+1))) { { { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_2498_arr; /* line 335 "../lib/array.s7i" */ *o_2498_arr=arrCat(arrCat(arrHead(*o_2498_arr, (o_2499_index)-1), arrBaselit((genericType)(o_2500_element))), arrTail(*o_2498_arr, o_2499_index)); /* line 335 "../lib/array.s7i" */ destr_78(old_array); } } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } } /* line 1 "no_file" */ /* 1162 */ /* line 344 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_2501/*=*/ (const const_arrayType/*t_78_*ANONYM_TYPE**/ o_2502_arr1, const const_arrayType/*t_78_*ANONYM_TYPE**/ o_2503_arr2) { /* line 346 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_2504_isEqual=o_25_FALSE; /* line 348 "../lib/array.s7i" */ intType/*t_14_integer*/ o_2505_number=1; /* line 350 "../lib/array.s7i" */ if ((((o_2502_arr1)->min_position) == ((o_2503_arr2)->min_position)) && /* line 350 "../lib/array.s7i" */ (((o_2502_arr1)->max_position) == ((o_2503_arr2)->max_position))) { /* line 351 "../lib/array.s7i" */ o_2504_isEqual=o_26_TRUE; /* line 352 "../lib/array.s7i" */ o_2505_number=(o_2502_arr1)->min_position; /* line 353 "../lib/array.s7i" */ while (((o_2505_number) <= ((o_2502_arr1)->max_position)) && /* line 353 "../lib/array.s7i" */ (o_2504_isEqual)) { /* line 354 "../lib/array.s7i" */ o_2504_isEqual=((o_2502_arr1)->arr[(idxChk((o_2505_number) < (o_2502_arr1)->min_position || (o_2505_number) > (o_2502_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2505_number)-(o_2502_arr1)->min_position)].value.enumValue) == ((o_2503_arr2)->arr[(idxChk((o_2505_number) < (o_2503_arr2)->min_position || (o_2505_number) > (o_2503_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2505_number)-(o_2503_arr2)->min_position)].value.enumValue); /* line 355 "../lib/array.s7i" */ ++(o_2505_number); } } return o_2504_isEqual; } /* line 1 "no_file" */ /* 1163 */ /* line 360 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_2506/*<>*/ (const const_arrayType/*t_78_*ANONYM_TYPE**/ o_2507_arr1, const const_arrayType/*t_78_*ANONYM_TYPE**/ o_2508_arr2) { /* line 362 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_2509_isNotEqual=o_26_TRUE; /* line 364 "../lib/array.s7i" */ intType/*t_14_integer*/ o_2510_number=1; /* line 366 "../lib/array.s7i" */ if ((((o_2507_arr1)->min_position) == ((o_2508_arr2)->min_position)) && /* line 366 "../lib/array.s7i" */ (((o_2507_arr1)->max_position) == ((o_2508_arr2)->max_position))) { /* line 367 "../lib/array.s7i" */ o_2509_isNotEqual=o_25_FALSE; /* line 368 "../lib/array.s7i" */ o_2510_number=(o_2507_arr1)->min_position; /* line 369 "../lib/array.s7i" */ while (((o_2510_number) <= ((o_2507_arr1)->max_position)) && /* line 369 "../lib/array.s7i" */ (!(o_2509_isNotEqual))) { /* line 370 "../lib/array.s7i" */ o_2509_isNotEqual=((o_2507_arr1)->arr[(idxChk((o_2510_number) < (o_2507_arr1)->min_position || (o_2510_number) > (o_2507_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2510_number)-(o_2507_arr1)->min_position)].value.enumValue) != ((o_2508_arr2)->arr[(idxChk((o_2510_number) < (o_2508_arr2)->min_position || (o_2510_number) > (o_2508_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2510_number)-(o_2508_arr2)->min_position)].value.enumValue); /* line 371 "../lib/array.s7i" */ ++(o_2510_number); } } return o_2509_isNotEqual; } /* line 1 "no_file" */ /* 1164 */ /* line 381 "../lib/array.s7i" */ static void/*t_1_void*/ o_2511_insert (arrayType/*t_78_*ANONYM_TYPE**/ *const o_2512_arr, const enumType/*t_74_endianess*/ o_2513_element) { /* line 383 "../lib/array.s7i" */ intType/*t_14_integer*/ o_2514_number=1; /* line 385 "../lib/array.s7i" */ o_2514_number=(*o_2512_arr)->min_position; /* line 386 "../lib/array.s7i" */ while (((o_2514_number) <= ((*o_2512_arr)->max_position)) && /* line 386 "../lib/array.s7i" */ (o_2440/*<*/((*o_2512_arr)->arr[(idxChk((o_2514_number) < (*o_2512_arr)->min_position || (o_2514_number) > (*o_2512_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2514_number)-(*o_2512_arr)->min_position)].value.enumValue, o_2513_element))) { /* line 387 "../lib/array.s7i" */ ++(o_2514_number); } /* line 389 "../lib/array.s7i" */ if ((o_2514_number) > ((*o_2512_arr)->max_position)) { { { /* line 390 "../lib/array.s7i" */ arrayType old_array=*o_2512_arr; /* line 390 "../lib/array.s7i" */ *o_2512_arr=arrCat(create_78(*o_2512_arr), arrBaselit((genericType)(o_2513_element))); /* line 390 "../lib/array.s7i" */ destr_78(old_array); } } } else /* line 391 "../lib/array.s7i" */ if (o_2446/*>*/((*o_2512_arr)->arr[(idxChk((o_2514_number) < (*o_2512_arr)->min_position || (o_2514_number) > (*o_2512_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2514_number)-(*o_2512_arr)->min_position)].value.enumValue, o_2513_element)) { { { /* line 392 "../lib/array.s7i" */ arrayType old_array=*o_2512_arr; /* line 392 "../lib/array.s7i" */ *o_2512_arr=arrCat(arrCat(arrHead(*o_2512_arr, (o_2514_number)-1), arrBaselit((genericType)(o_2513_element))), arrTail(*o_2512_arr, o_2514_number)); /* line 392 "../lib/array.s7i" */ destr_78(old_array); } } } } /* line 1 "no_file" */ /* 1165 */ /* line 400 "../lib/array.s7i" */ static intType/*t_14_integer*/ o_2515_compare (const const_arrayType/*t_78_*ANONYM_TYPE**/ o_2516_arr1, const const_arrayType/*t_78_*ANONYM_TYPE**/ o_2517_arr2) { /* line 402 "../lib/array.s7i" */ intType/*t_14_integer*/ o_2518_signumValue=0; /* line 404 "../lib/array.s7i" */ intType/*t_14_integer*/ o_2519_idx1=0; /* line 405 "../lib/array.s7i" */ intType/*t_14_integer*/ o_2520_idx2=0; /* line 407 "../lib/array.s7i" */ o_2519_idx1=(o_2516_arr1)->min_position; /* line 408 "../lib/array.s7i" */ o_2520_idx2=(o_2517_arr2)->min_position; /* line 409 "../lib/array.s7i" */ while (((o_2519_idx1) <= ((o_2516_arr1)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_2520_idx2) <= ((o_2517_arr2)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_2427_compare((o_2516_arr1)->arr[(idxChk((o_2519_idx1) < (o_2516_arr1)->min_position || (o_2519_idx1) > (o_2516_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2519_idx1)-(o_2516_arr1)->min_position)].value.enumValue, (o_2517_arr2)->arr[(idxChk((o_2520_idx2) < (o_2517_arr2)->min_position || (o_2520_idx2) > (o_2517_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2520_idx2)-(o_2517_arr2)->min_position)].value.enumValue)) == (0L))) { /* line 410 "../lib/array.s7i" */ ++(o_2519_idx1); /* line 411 "../lib/array.s7i" */ ++(o_2520_idx2); } /* line 413 "../lib/array.s7i" */ if (((o_2519_idx1) <= ((o_2516_arr1)->max_position)) && /* line 413 "../lib/array.s7i" */ ((o_2520_idx2) <= ((o_2517_arr2)->max_position))) { /* line 414 "../lib/array.s7i" */ o_2518_signumValue=o_2427_compare((o_2516_arr1)->arr[(idxChk((o_2519_idx1) < (o_2516_arr1)->min_position || (o_2519_idx1) > (o_2516_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2519_idx1)-(o_2516_arr1)->min_position)].value.enumValue, (o_2517_arr2)->arr[(idxChk((o_2520_idx2) < (o_2517_arr2)->min_position || (o_2520_idx2) > (o_2517_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2520_idx2)-(o_2517_arr2)->min_position)].value.enumValue); } else { /* line 416 "../lib/array.s7i" */ o_2518_signumValue=intCmp(((o_2516_arr1)->max_position - (o_2516_arr1)->min_position + 1), ((o_2517_arr2)->max_position - (o_2517_arr2)->min_position + 1)); } return o_2518_signumValue; } /* line 1 "no_file" */ /* 1166 */ /* line 420 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_2521/*<*/ (const const_arrayType/*t_78_*ANONYM_TYPE**/ o_2522_arr1, const const_arrayType/*t_78_*ANONYM_TYPE**/ o_2523_arr2) { /* line 421 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_2515_compare(o_2522_arr1, o_2523_arr2)) < (0L))); } /* line 1 "no_file" */ /* 1167 */ /* line 423 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_2524/*>*/ (const const_arrayType/*t_78_*ANONYM_TYPE**/ o_2525_arr1, const const_arrayType/*t_78_*ANONYM_TYPE**/ o_2526_arr2) { /* line 424 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_2515_compare(o_2525_arr1, o_2526_arr2)) > (0L))); } /* line 1 "no_file" */ /* 1168 */ /* line 426 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_2527/*<=*/ (const const_arrayType/*t_78_*ANONYM_TYPE**/ o_2528_arr1, const const_arrayType/*t_78_*ANONYM_TYPE**/ o_2529_arr2) { /* line 427 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_2515_compare(o_2528_arr1, o_2529_arr2)) <= (0L))); } /* line 1 "no_file" */ /* 1169 */ /* line 429 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_2530/*>=*/ (const const_arrayType/*t_78_*ANONYM_TYPE**/ o_2531_arr1, const const_arrayType/*t_78_*ANONYM_TYPE**/ o_2532_arr2) { /* line 430 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_2515_compare(o_2531_arr1, o_2532_arr2)) >= (0L))); } /* line 1 "no_file" */ /* 1170 */ static intType generic_cmp_74 (const genericType a, const genericType b) { return o_2427_compare(((const_rtlObjectType *) &a)->value.enumValue, ((const_rtlObjectType *) &b)->value.enumValue); } /* objRefType/t_19_reference */ intfunctype o_2533/*.*/=(intfunctype)(&generic_cmp_74); /* 1171 */ /* line 436 "../lib/array.s7i" */ static arrayType/*t_78_*ANONYM_TYPE**/ o_2534_sort (const const_arrayType/*t_78_*ANONYM_TYPE**/ o_2535_arr_obj) { /* line 437 "../lib/array.s7i" */ return (arrayType/*t_78_*ANONYM_TYPE**/)((arrSort(create_78(o_2535_arr_obj), (compareType)(o_2533/*.*/)))); } /* line 1 "no_file" */ /* 1172 */ /* line 246 "../lib/bitsetof.s7i" */ static setType/*t_76_*ANONYM_TYPE**/ o_2536/*{*/ (const const_arrayType/*t_77_*ANONYM_TYPE**/ o_2537_value) { /* line 248 "../lib/bitsetof.s7i" */ setType/*t_76_*ANONYM_TYPE**/ o_2538_aSet; /* line 250 "../lib/bitsetof.s7i" */ intType/*t_14_integer*/ o_2539_number=0; /* line 248 "../lib/bitsetof.s7i" */ o_2538_aSet=setCreate(set[0]); { /* line 252 "../lib/bitsetof.s7i" */ const_arrayType tmp_1; /* line 252 "../lib/bitsetof.s7i" */ intType tmp_e_2=(tmp_1=/*arrArrlit()*/o_2537_value,tmp_1->max_position - tmp_1->min_position + 1); /* line 252 "../lib/bitsetof.s7i" */ for (o_2539_number=1L; o_2539_number<=tmp_e_2; (o_2539_number)++) { { /* line 253 "../lib/bitsetof.s7i" */ const_arrayType tmp_1; /* line 253 "../lib/bitsetof.s7i" */ o_2465_incl(&(o_2538_aSet), (*(tmp_1=/*arrArrlit()*/o_2537_value, &tmp_1->arr[(idxChk((o_2539_number) < tmp_1->min_position || (o_2539_number) > tmp_1->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2539_number)-tmp_1->min_position)].value.enumValue))); } } } return o_2538_aSet; } /* line 1 "no_file" */ /* 1173 */ /* line 257 "../lib/bitsetof.s7i" */ static setType/*t_76_*ANONYM_TYPE**/ o_2540/*{*/ (const enumType/*t_74_endianess*/ o_2541_lowerValue, const enumType/*t_74_endianess*/ o_2542_upperValue) { /* line 258 "../lib/bitsetof.s7i" */ return (setType/*t_76_*ANONYM_TYPE**/)((setRangelit(o_2423_ord(o_2541_lowerValue), o_2423_ord(o_2542_upperValue)))); } /* line 1 "no_file" */ /* 1174 */ /* declare inline o_2543_for*/ /* declare inline o_2544_for*/ /* declare inline o_2545_for*/ /* 1175 */ const t_75/*t_75_*ANONYM_TYPE**/ o_2546_WHEN_EMPTY=/*WHEN_EMPTY*/0; /* 1176 */ /* 1177 */ /* 1178 */ /* line 59 "../lib/bytedata.s7i" */ static striType/*t_15_string*/ o_2551_getAsciiz (const const_striType/*t_15_string*/ o_2552_stri, intType/*t_14_integer*/ *const o_2553_currPos) { /* line 61 "../lib/bytedata.s7i" */ striType/*t_15_string*/ o_2554_resultStri; /* line 63 "../lib/bytedata.s7i" */ intType/*t_14_integer*/ o_2555_startPos=0; /* line 61 "../lib/bytedata.s7i" */ o_2554_resultStri=strEmpty(); /* "" */ /* line 65 "../lib/bytedata.s7i" */ o_2555_startPos=*o_2553_currPos; /* line 66 "../lib/bytedata.s7i" */ *o_2553_currPos=strChIPos(o_2552_stri, (charType) '\000', o_2555_startPos); /* line 67 "../lib/bytedata.s7i" */ if ((*o_2553_currPos) == (0L)) { { /* line 68 "../lib/bytedata.s7i" */ struct striStruct slice_1; /* line 68 "../lib/bytedata.s7i" */ strCopy(&(o_2554_resultStri), (strTailSlice(o_2552_stri, o_2555_startPos, &slice_1), &slice_1)); } /* line 69 "../lib/bytedata.s7i" */ *o_2553_currPos=((intType)((o_2552_stri)->size))+1; } else { { /* line 71 "../lib/bytedata.s7i" */ struct striStruct slice_1; /* line 71 "../lib/bytedata.s7i" */ intType start_2; /* line 71 "../lib/bytedata.s7i" */ intType stop_3; /* line 71 "../lib/bytedata.s7i" */ strCopy(&(o_2554_resultStri), (start_2=o_2555_startPos,stop_3=(*o_2553_currPos)-1,start_2<1 ? start_2=1 : 0, slice_1.capacity=0, stop_3>=start_2 && (uintType)start_2<=(o_2552_stri)->size ? (slice_1.mem = &(o_2552_stri)->mem[start_2-1], (uintType)stop_3 > (o_2552_stri)->size ? slice_1.size = (o_2552_stri)->size-(memSizeType)start_2+1 : (slice_1.size = (memSizeType)stop_3-(memSizeType)start_2+1)) : (slice_1.mem = NULL,slice_1.size = 0), &slice_1)); } /* line 72 "../lib/bytedata.s7i" */ ++(*o_2553_currPos); } return o_2554_resultStri; } /* line 1 "no_file" */ /* 1179 */ /* line 84 "../lib/bytedata.s7i" */ static striType/*t_15_string*/ o_2556_hex (const const_striType/*t_15_string*/ o_2557_stri) { /* line 86 "../lib/bytedata.s7i" */ striType/*t_15_string*/ o_2558_hex; /* line 88 "../lib/bytedata.s7i" */ charType/*t_18_char*/ o_2559_ch=(charType) ' '; /* line 86 "../lib/bytedata.s7i" */ o_2558_hex=strEmpty(); /* "" */ /* inline proc o_165_for */ { /* inline params */ /* line 90 "../lib/bytedata.s7i" */ charType/*t_18_char*/ *const o_373_variable=&(o_2559_ch); /* line 90 "../lib/bytedata.s7i" */ const const_striType/*t_15_string*/ o_374_stri=o_2557_stri; /* line 90 "../lib/bytedata.s7i" */ /* push proc param o_375_statements */ /* line 90 "../lib/bytedata.s7i" */ /* inline local_vars */ /* line 90 "../lib/bytedata.s7i" */ /* line 214 "../lib/forloop.s7i" */ /* line 90 "../lib/bytedata.s7i" */ intType/*t_14_integer*/ o_376_number=0; /* inline body */ { /* line 216 "../lib/forloop.s7i" */ intType tmp_e_1=(intType)((o_374_stri)->size); /* line 216 "../lib/forloop.s7i" */ for (o_376_number=1L; o_376_number<=tmp_e_1; (o_376_number)++) { { /* line 217 "../lib/forloop.s7i" */ uintType idx_1; /* line 217 "../lib/forloop.s7i" */ *o_373_variable=(o_374_stri)->mem[(idx_1=(uintType)((o_376_number)-1), idxChk(idx_1>=(o_374_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]; } /* closure o_375_statements*/ { /* line 91 "../lib/bytedata.s7i" */ if ((o_2559_ch) > ((charType) 255)) { /* line 92 "../lib/bytedata.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/bytedata.s7i", 92); } { /* line 94 "../lib/bytedata.s7i" */ strAppendTemp(&(o_2558_hex), strLpad0Temp(intRadixPow2((intType)((scharType)(o_2559_ch)),4L,15L,0), 2L)); } } /* closure o_375_statements*/ } } /* pop proc param o_375_statements */ } /* inline proc o_165_for */ return o_2558_hex; } /* line 1 "no_file" */ /* 1180 */ /* line 103 "../lib/bytedata.s7i" */ static striType/*t_15_string*/ o_2560_int16AsTwoBytesLe (const intType/*t_14_integer*/ o_2561_number) { /* line 105 "../lib/bytedata.s7i" */ striType/*t_15_string*/ o_2562_twoBytes; /* line 105 "../lib/bytedata.s7i" */ o_2562_twoBytes=(striType/*t_15_string*/)(strZero(2L)); { /* line 107 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2562_twoBytes; if (idxChk(str1->size<=0)) { raise_error(RANGE_ERROR); } else { /* line 107 "../lib/bytedata.s7i" */ str1->mem[0] = (strElemType)((tmp_1=(o_2561_number)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } { /* line 108 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2562_twoBytes; if (idxChk(str1->size<=1)) { raise_error(RANGE_ERROR); } else { /* line 108 "../lib/bytedata.s7i" */ str1->mem[1] = (strElemType)((tmp_1=((o_2561_number) >> 8L)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } return o_2562_twoBytes; } /* line 1 "no_file" */ /* 1181 */ /* line 116 "../lib/bytedata.s7i" */ static striType/*t_15_string*/ o_2563_int32AsFourBytesLe (const intType/*t_14_integer*/ o_2564_number) { /* line 118 "../lib/bytedata.s7i" */ striType/*t_15_string*/ o_2565_fourBytes; /* line 118 "../lib/bytedata.s7i" */ o_2565_fourBytes=(striType/*t_15_string*/)(strZero(4L)); { /* line 120 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2565_fourBytes; if (idxChk(str1->size<=0)) { raise_error(RANGE_ERROR); } else { /* line 120 "../lib/bytedata.s7i" */ str1->mem[0] = (strElemType)((tmp_1=(o_2564_number)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } { /* line 121 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2565_fourBytes; if (idxChk(str1->size<=1)) { raise_error(RANGE_ERROR); } else { /* line 121 "../lib/bytedata.s7i" */ str1->mem[1] = (strElemType)((tmp_1=((o_2564_number) >> 8L)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } { /* line 122 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2565_fourBytes; if (idxChk(str1->size<=2)) { raise_error(RANGE_ERROR); } else { /* line 122 "../lib/bytedata.s7i" */ str1->mem[2] = (strElemType)((tmp_1=((o_2564_number) >> 16L)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } { /* line 123 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2565_fourBytes; if (idxChk(str1->size<=3)) { raise_error(RANGE_ERROR); } else { /* line 123 "../lib/bytedata.s7i" */ str1->mem[3] = (strElemType)((tmp_1=((o_2564_number) >> 24L)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } return o_2565_fourBytes; } /* line 1 "no_file" */ /* 1182 */ /* line 131 "../lib/bytedata.s7i" */ static striType/*t_15_string*/ o_2566_int64AsEightBytesLe (const intType/*t_14_integer*/ o_2567_number) { /* line 133 "../lib/bytedata.s7i" */ striType/*t_15_string*/ o_2568_eightBytes; /* line 133 "../lib/bytedata.s7i" */ o_2568_eightBytes=(striType/*t_15_string*/)(strZero(8L)); { /* line 135 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2568_eightBytes; if (idxChk(str1->size<=0)) { raise_error(RANGE_ERROR); } else { /* line 135 "../lib/bytedata.s7i" */ str1->mem[0] = (strElemType)((tmp_1=(o_2567_number)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } { /* line 136 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2568_eightBytes; if (idxChk(str1->size<=1)) { raise_error(RANGE_ERROR); } else { /* line 136 "../lib/bytedata.s7i" */ str1->mem[1] = (strElemType)((tmp_1=((o_2567_number) >> 8L)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } { /* line 137 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2568_eightBytes; if (idxChk(str1->size<=2)) { raise_error(RANGE_ERROR); } else { /* line 137 "../lib/bytedata.s7i" */ str1->mem[2] = (strElemType)((tmp_1=((o_2567_number) >> 16L)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } { /* line 138 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2568_eightBytes; if (idxChk(str1->size<=3)) { raise_error(RANGE_ERROR); } else { /* line 138 "../lib/bytedata.s7i" */ str1->mem[3] = (strElemType)((tmp_1=((o_2567_number) >> 24L)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } { /* line 139 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2568_eightBytes; if (idxChk(str1->size<=4)) { raise_error(RANGE_ERROR); } else { /* line 139 "../lib/bytedata.s7i" */ str1->mem[4] = (strElemType)((tmp_1=((o_2567_number) >> 32L)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } { /* line 140 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2568_eightBytes; if (idxChk(str1->size<=5)) { raise_error(RANGE_ERROR); } else { /* line 140 "../lib/bytedata.s7i" */ str1->mem[5] = (strElemType)((tmp_1=((o_2567_number) >> 40L)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } { /* line 141 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2568_eightBytes; if (idxChk(str1->size<=6)) { raise_error(RANGE_ERROR); } else { /* line 141 "../lib/bytedata.s7i" */ str1->mem[6] = (strElemType)((tmp_1=((o_2567_number) >> 48L)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } { /* line 142 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2568_eightBytes; if (idxChk(str1->size<=7)) { raise_error(RANGE_ERROR); } else { /* line 142 "../lib/bytedata.s7i" */ str1->mem[7] = (strElemType)((tmp_1=((o_2567_number) >> 56L)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } return o_2568_eightBytes; } /* line 1 "no_file" */ /* 1183 */ /* line 150 "../lib/bytedata.s7i" */ static striType/*t_15_string*/ o_2569_int16AsTwoBytesBe (const intType/*t_14_integer*/ o_2570_number) { /* line 152 "../lib/bytedata.s7i" */ striType/*t_15_string*/ o_2571_twoBytes; /* line 152 "../lib/bytedata.s7i" */ o_2571_twoBytes=(striType/*t_15_string*/)(strZero(2L)); { /* line 154 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2571_twoBytes; if (idxChk(str1->size<=0)) { raise_error(RANGE_ERROR); } else { /* line 154 "../lib/bytedata.s7i" */ str1->mem[0] = (strElemType)((tmp_1=((o_2570_number) >> 8L)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } { /* line 155 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2571_twoBytes; if (idxChk(str1->size<=1)) { raise_error(RANGE_ERROR); } else { /* line 155 "../lib/bytedata.s7i" */ str1->mem[1] = (strElemType)((tmp_1=(o_2570_number)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } return o_2571_twoBytes; } /* line 1 "no_file" */ /* 1184 */ /* line 163 "../lib/bytedata.s7i" */ static striType/*t_15_string*/ o_2572_int32AsFourBytesBe (const intType/*t_14_integer*/ o_2573_number) { /* line 165 "../lib/bytedata.s7i" */ striType/*t_15_string*/ o_2574_fourBytes; /* line 165 "../lib/bytedata.s7i" */ o_2574_fourBytes=(striType/*t_15_string*/)(strZero(4L)); { /* line 167 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2574_fourBytes; if (idxChk(str1->size<=0)) { raise_error(RANGE_ERROR); } else { /* line 167 "../lib/bytedata.s7i" */ str1->mem[0] = (strElemType)((tmp_1=((o_2573_number) >> 24L)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } { /* line 168 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2574_fourBytes; if (idxChk(str1->size<=1)) { raise_error(RANGE_ERROR); } else { /* line 168 "../lib/bytedata.s7i" */ str1->mem[1] = (strElemType)((tmp_1=((o_2573_number) >> 16L)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } { /* line 169 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2574_fourBytes; if (idxChk(str1->size<=2)) { raise_error(RANGE_ERROR); } else { /* line 169 "../lib/bytedata.s7i" */ str1->mem[2] = (strElemType)((tmp_1=((o_2573_number) >> 8L)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } { /* line 170 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2574_fourBytes; if (idxChk(str1->size<=3)) { raise_error(RANGE_ERROR); } else { /* line 170 "../lib/bytedata.s7i" */ str1->mem[3] = (strElemType)((tmp_1=(o_2573_number)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } return o_2574_fourBytes; } /* line 1 "no_file" */ /* 1185 */ /* line 178 "../lib/bytedata.s7i" */ static striType/*t_15_string*/ o_2575_int64AsEightBytesBe (const intType/*t_14_integer*/ o_2576_number) { /* line 180 "../lib/bytedata.s7i" */ striType/*t_15_string*/ o_2577_eightBytes; /* line 180 "../lib/bytedata.s7i" */ o_2577_eightBytes=(striType/*t_15_string*/)(strZero(8L)); { /* line 182 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2577_eightBytes; if (idxChk(str1->size<=0)) { raise_error(RANGE_ERROR); } else { /* line 182 "../lib/bytedata.s7i" */ str1->mem[0] = (strElemType)((tmp_1=((o_2576_number) >> 56L)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } { /* line 183 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2577_eightBytes; if (idxChk(str1->size<=1)) { raise_error(RANGE_ERROR); } else { /* line 183 "../lib/bytedata.s7i" */ str1->mem[1] = (strElemType)((tmp_1=((o_2576_number) >> 48L)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } { /* line 184 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2577_eightBytes; if (idxChk(str1->size<=2)) { raise_error(RANGE_ERROR); } else { /* line 184 "../lib/bytedata.s7i" */ str1->mem[2] = (strElemType)((tmp_1=((o_2576_number) >> 40L)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } { /* line 185 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2577_eightBytes; if (idxChk(str1->size<=3)) { raise_error(RANGE_ERROR); } else { /* line 185 "../lib/bytedata.s7i" */ str1->mem[3] = (strElemType)((tmp_1=((o_2576_number) >> 32L)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } { /* line 186 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2577_eightBytes; if (idxChk(str1->size<=4)) { raise_error(RANGE_ERROR); } else { /* line 186 "../lib/bytedata.s7i" */ str1->mem[4] = (strElemType)((tmp_1=((o_2576_number) >> 24L)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } { /* line 187 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2577_eightBytes; if (idxChk(str1->size<=5)) { raise_error(RANGE_ERROR); } else { /* line 187 "../lib/bytedata.s7i" */ str1->mem[5] = (strElemType)((tmp_1=((o_2576_number) >> 16L)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } { /* line 188 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2577_eightBytes; if (idxChk(str1->size<=6)) { raise_error(RANGE_ERROR); } else { /* line 188 "../lib/bytedata.s7i" */ str1->mem[6] = (strElemType)((tmp_1=((o_2576_number) >> 8L)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } { /* line 189 "../lib/bytedata.s7i" */ intType tmp_1; striType str1=o_2577_eightBytes; if (idxChk(str1->size<=7)) { raise_error(RANGE_ERROR); } else { /* line 189 "../lib/bytedata.s7i" */ str1->mem[7] = (strElemType)((tmp_1=(o_2576_number)&255L,tmp_1INT32TYPE_MAX?intRaiseError(RANGE_ERROR):(charType)tmp_1)); } } return o_2577_eightBytes; } /* line 1 "no_file" */ /* 1186 */ /* line 199 "../lib/bytedata.s7i" */ static striType/*t_15_string*/ o_2578_UNSIGNED (const intType/*t_14_integer*/ o_2579_number) { /* line 200 "../lib/bytedata.s7i" */ return (striType/*t_15_string*/)((intBytesBe(o_2579_number, o_25_FALSE))); } /* line 1 "no_file" */ /* 1187 */ /* line 202 "../lib/bytedata.s7i" */ static striType/*t_15_string*/ o_2580_UNSIGNED (const intType/*t_14_integer*/ o_2581_number) { /* line 203 "../lib/bytedata.s7i" */ return (striType/*t_15_string*/)((intBytesLe(o_2581_number, o_25_FALSE))); } /* line 1 "no_file" */ /* 1188 */ /* line 205 "../lib/bytedata.s7i" */ static striType/*t_15_string*/ o_2582_SIGNED (const intType/*t_14_integer*/ o_2583_number) { /* line 206 "../lib/bytedata.s7i" */ return (striType/*t_15_string*/)((intBytesBe(o_2583_number, o_26_TRUE))); } /* line 1 "no_file" */ /* 1189 */ /* line 208 "../lib/bytedata.s7i" */ static striType/*t_15_string*/ o_2584_SIGNED (const intType/*t_14_integer*/ o_2585_number) { /* line 209 "../lib/bytedata.s7i" */ return (striType/*t_15_string*/)((intBytesLe(o_2585_number, o_26_TRUE))); } /* line 1 "no_file" */ /* 1190 */ /* DYNAMIC */ static striType/*t_15_string*/ o_2586_bytes (const intType/*t_14_integer*/ o_2587_number, const enumType/*t_69_signedness*/ o_2588_signed, const enumType/*t_74_endianess*/ o_2589_endian); /* 1191 */ /* line 234 "../lib/bytedata.s7i" */ static striType/*t_15_string*/ o_2590_UNSIGNED (const const_bigIntType/*t_57_bigInteger*/ o_2591_number) { /* line 235 "../lib/bytedata.s7i" */ striType/*t_15_string*/ result; /* line 235 "../lib/bytedata.s7i" */ bstriType tmp_2 = NULL; /* line 235 "../lib/bytedata.s7i" */ result=(striType/*t_15_string*/)((bstStr((tmp_2=bigToBStriBe(o_2591_number, o_25_FALSE))))); /* line 235 "../lib/bytedata.s7i" */ bstDestr(tmp_2); /* line 235 "../lib/bytedata.s7i" */ return result; } /* line 1 "no_file" */ /* 1192 */ /* line 237 "../lib/bytedata.s7i" */ static striType/*t_15_string*/ o_2592_UNSIGNED (const const_bigIntType/*t_57_bigInteger*/ o_2593_number) { /* line 238 "../lib/bytedata.s7i" */ striType/*t_15_string*/ result; /* line 238 "../lib/bytedata.s7i" */ bstriType tmp_2 = NULL; /* line 238 "../lib/bytedata.s7i" */ result=(striType/*t_15_string*/)((bstStr((tmp_2=bigToBStriLe(o_2593_number, o_25_FALSE))))); /* line 238 "../lib/bytedata.s7i" */ bstDestr(tmp_2); /* line 238 "../lib/bytedata.s7i" */ return result; } /* line 1 "no_file" */ /* 1193 */ /* line 240 "../lib/bytedata.s7i" */ static striType/*t_15_string*/ o_2594_SIGNED (const const_bigIntType/*t_57_bigInteger*/ o_2595_number) { /* line 241 "../lib/bytedata.s7i" */ striType/*t_15_string*/ result; /* line 241 "../lib/bytedata.s7i" */ bstriType tmp_2 = NULL; /* line 241 "../lib/bytedata.s7i" */ result=(striType/*t_15_string*/)((bstStr((tmp_2=bigToBStriBe(o_2595_number, o_26_TRUE))))); /* line 241 "../lib/bytedata.s7i" */ bstDestr(tmp_2); /* line 241 "../lib/bytedata.s7i" */ return result; } /* line 1 "no_file" */ /* 1194 */ /* line 243 "../lib/bytedata.s7i" */ static striType/*t_15_string*/ o_2596_SIGNED (const const_bigIntType/*t_57_bigInteger*/ o_2597_number) { /* line 244 "../lib/bytedata.s7i" */ striType/*t_15_string*/ result; /* line 244 "../lib/bytedata.s7i" */ bstriType tmp_2 = NULL; /* line 244 "../lib/bytedata.s7i" */ result=(striType/*t_15_string*/)((bstStr((tmp_2=bigToBStriLe(o_2597_number, o_26_TRUE))))); /* line 244 "../lib/bytedata.s7i" */ bstDestr(tmp_2); /* line 244 "../lib/bytedata.s7i" */ return result; } /* line 1 "no_file" */ /* 1195 */ /* DYNAMIC */ static striType/*t_15_string*/ o_2598_bytes (const const_bigIntType/*t_57_bigInteger*/ o_2599_number, const enumType/*t_69_signedness*/ o_2600_signed, const enumType/*t_74_endianess*/ o_2601_endian); /* 1196 */ /* line 280 "../lib/bytedata.s7i" */ static intType/*t_14_integer*/ o_2602_UNSIGNED (const const_striType/*t_15_string*/ o_2603_byteStri) { /* line 281 "../lib/bytedata.s7i" */ return (intType/*t_14_integer*/)((intBytesBe2Int(o_2603_byteStri, o_25_FALSE))); } /* line 1 "no_file" */ /* 1197 */ /* line 283 "../lib/bytedata.s7i" */ static intType/*t_14_integer*/ o_2604_UNSIGNED (const const_striType/*t_15_string*/ o_2605_byteStri) { /* line 284 "../lib/bytedata.s7i" */ return (intType/*t_14_integer*/)((intBytesLe2Int(o_2605_byteStri, o_25_FALSE))); } /* line 1 "no_file" */ /* 1198 */ /* line 286 "../lib/bytedata.s7i" */ static intType/*t_14_integer*/ o_2606_SIGNED (const const_striType/*t_15_string*/ o_2607_byteStri) { /* line 287 "../lib/bytedata.s7i" */ return (intType/*t_14_integer*/)((intBytesBe2Int(o_2607_byteStri, o_26_TRUE))); } /* line 1 "no_file" */ /* 1199 */ /* line 289 "../lib/bytedata.s7i" */ static intType/*t_14_integer*/ o_2608_SIGNED (const const_striType/*t_15_string*/ o_2609_byteStri) { /* line 290 "../lib/bytedata.s7i" */ return (intType/*t_14_integer*/)((intBytesLe2Int(o_2609_byteStri, o_26_TRUE))); } /* line 1 "no_file" */ /* 1200 */ /* DYNAMIC */ static intType/*t_14_integer*/ o_2610_bytes2Int (const const_striType/*t_15_string*/ o_2611_byteStri, const enumType/*t_69_signedness*/ o_2612_signed, const enumType/*t_74_endianess*/ o_2613_endian); /* 1201 */ /* line 315 "../lib/bytedata.s7i" */ static bigIntType/*t_57_bigInteger*/ o_2614_UNSIGNED (const const_striType/*t_15_string*/ o_2615_byteStri) { /* line 316 "../lib/bytedata.s7i" */ bigIntType/*t_57_bigInteger*/ result; /* line 316 "../lib/bytedata.s7i" */ bstriType tmp_2 = NULL; /* line 316 "../lib/bytedata.s7i" */ result=(bigIntType/*t_57_bigInteger*/)((bigFromBStriBe((tmp_2=bstParse(o_2615_byteStri)), o_25_FALSE))); /* line 316 "../lib/bytedata.s7i" */ bstDestr(tmp_2); /* line 316 "../lib/bytedata.s7i" */ return result; } /* line 1 "no_file" */ /* 1202 */ /* line 318 "../lib/bytedata.s7i" */ static bigIntType/*t_57_bigInteger*/ o_2616_UNSIGNED (const const_striType/*t_15_string*/ o_2617_byteStri) { /* line 319 "../lib/bytedata.s7i" */ bigIntType/*t_57_bigInteger*/ result; /* line 319 "../lib/bytedata.s7i" */ bstriType tmp_2 = NULL; /* line 319 "../lib/bytedata.s7i" */ result=(bigIntType/*t_57_bigInteger*/)((bigFromBStriLe((tmp_2=bstParse(o_2617_byteStri)), o_25_FALSE))); /* line 319 "../lib/bytedata.s7i" */ bstDestr(tmp_2); /* line 319 "../lib/bytedata.s7i" */ return result; } /* line 1 "no_file" */ /* 1203 */ /* line 321 "../lib/bytedata.s7i" */ static bigIntType/*t_57_bigInteger*/ o_2618_SIGNED (const const_striType/*t_15_string*/ o_2619_byteStri) { /* line 322 "../lib/bytedata.s7i" */ bigIntType/*t_57_bigInteger*/ result; /* line 322 "../lib/bytedata.s7i" */ bstriType tmp_2 = NULL; /* line 322 "../lib/bytedata.s7i" */ result=(bigIntType/*t_57_bigInteger*/)((bigFromBStriBe((tmp_2=bstParse(o_2619_byteStri)), o_26_TRUE))); /* line 322 "../lib/bytedata.s7i" */ bstDestr(tmp_2); /* line 322 "../lib/bytedata.s7i" */ return result; } /* line 1 "no_file" */ /* 1204 */ /* line 324 "../lib/bytedata.s7i" */ static bigIntType/*t_57_bigInteger*/ o_2620_SIGNED (const const_striType/*t_15_string*/ o_2621_byteStri) { /* line 325 "../lib/bytedata.s7i" */ bigIntType/*t_57_bigInteger*/ result; /* line 325 "../lib/bytedata.s7i" */ bstriType tmp_2 = NULL; /* line 325 "../lib/bytedata.s7i" */ result=(bigIntType/*t_57_bigInteger*/)((bigFromBStriLe((tmp_2=bstParse(o_2621_byteStri)), o_26_TRUE))); /* line 325 "../lib/bytedata.s7i" */ bstDestr(tmp_2); /* line 325 "../lib/bytedata.s7i" */ return result; } /* line 1 "no_file" */ /* 1205 */ /* DYNAMIC */ static bigIntType/*t_57_bigInteger*/ o_2622_bytes2BigInt (const const_striType/*t_15_string*/ o_2623_byteStri, const enumType/*t_69_signedness*/ o_2624_signed, const enumType/*t_74_endianess*/ o_2625_endian); /* 1206 */ /* line 356 "../lib/bytedata.s7i" */ static intType/*t_14_integer*/ o_2626_getUInt16Le (interfaceType/*t_46_file*/ *const o_2627_in_file) { /* line 358 "../lib/bytedata.s7i" */ intType/*t_14_integer*/ o_2628_number=0; /* line 360 "../lib/bytedata.s7i" */ striType/*t_15_string*/ o_2629_stri; /* line 360 "../lib/bytedata.s7i" */ o_2629_stri=strEmpty(); /* "" */ { /* line 362 "../lib/bytedata.s7i" */ striType old_stri=o_2629_stri; /* line 362 "../lib/bytedata.s7i" */ o_2629_stri=o_918_gets(o_2627_in_file, 2L); /* line 362 "../lib/bytedata.s7i" */ strDestr(old_stri); } /* line 363 "../lib/bytedata.s7i" */ o_2628_number=((intType)((scharType)((o_2629_stri)->mem[(idxChk((o_2629_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]))) + (((intType)((scharType)((o_2629_stri)->mem[(idxChk((o_2629_stri)->size<2) ? intRaiseError(RANGE_ERROR) : 0, 1)]))) * 256L); /* line 356 "../lib/bytedata.s7i" */ strDestr(o_2629_stri); return o_2628_number; } /* line 1 "no_file" */ /* 1207 */ /* line 371 "../lib/bytedata.s7i" */ static intType/*t_14_integer*/ o_2630_getUInt32Le (interfaceType/*t_46_file*/ *const o_2631_in_file) { /* line 373 "../lib/bytedata.s7i" */ intType/*t_14_integer*/ o_2632_number=0; /* line 375 "../lib/bytedata.s7i" */ striType/*t_15_string*/ o_2633_stri; /* line 375 "../lib/bytedata.s7i" */ o_2633_stri=strEmpty(); /* "" */ { /* line 377 "../lib/bytedata.s7i" */ striType old_stri=o_2633_stri; /* line 377 "../lib/bytedata.s7i" */ o_2633_stri=o_918_gets(o_2631_in_file, 4L); /* line 377 "../lib/bytedata.s7i" */ strDestr(old_stri); } /* line 378 "../lib/bytedata.s7i" */ o_2632_number=((((intType)((scharType)((o_2633_stri)->mem[(idxChk((o_2633_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]))) + (((intType)((scharType)((o_2633_stri)->mem[(idxChk((o_2633_stri)->size<2) ? intRaiseError(RANGE_ERROR) : 0, 1)]))) * 256L)) + (((intType)((scharType)((o_2633_stri)->mem[(idxChk((o_2633_stri)->size<3) ? intRaiseError(RANGE_ERROR) : 0, 2)]))) * 65536L)) + (((intType)((scharType)((o_2633_stri)->mem[(idxChk((o_2633_stri)->size<4) ? intRaiseError(RANGE_ERROR) : 0, 3)]))) * 16777216L); /* line 371 "../lib/bytedata.s7i" */ strDestr(o_2633_stri); return o_2632_number; } /* line 1 "no_file" */ /* 1208 */ /* line 388 "../lib/bytedata.s7i" */ static intType/*t_14_integer*/ o_2634_getUInt16Be (interfaceType/*t_46_file*/ *const o_2635_in_file) { /* line 390 "../lib/bytedata.s7i" */ intType/*t_14_integer*/ o_2636_number=0; /* line 392 "../lib/bytedata.s7i" */ striType/*t_15_string*/ o_2637_stri; /* line 392 "../lib/bytedata.s7i" */ o_2637_stri=strEmpty(); /* "" */ { /* line 394 "../lib/bytedata.s7i" */ striType old_stri=o_2637_stri; /* line 394 "../lib/bytedata.s7i" */ o_2637_stri=o_918_gets(o_2635_in_file, 2L); /* line 394 "../lib/bytedata.s7i" */ strDestr(old_stri); } /* line 395 "../lib/bytedata.s7i" */ o_2636_number=(((intType)((scharType)((o_2637_stri)->mem[(idxChk((o_2637_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]))) * 256L) + ((intType)((scharType)((o_2637_stri)->mem[(idxChk((o_2637_stri)->size<2) ? intRaiseError(RANGE_ERROR) : 0, 1)]))); /* line 388 "../lib/bytedata.s7i" */ strDestr(o_2637_stri); return o_2636_number; } /* line 1 "no_file" */ /* 1209 */ /* line 403 "../lib/bytedata.s7i" */ static intType/*t_14_integer*/ o_2638_getUInt32Be (interfaceType/*t_46_file*/ *const o_2639_in_file) { /* line 405 "../lib/bytedata.s7i" */ intType/*t_14_integer*/ o_2640_number=0; /* line 407 "../lib/bytedata.s7i" */ striType/*t_15_string*/ o_2641_stri; /* line 407 "../lib/bytedata.s7i" */ o_2641_stri=strEmpty(); /* "" */ { /* line 409 "../lib/bytedata.s7i" */ striType old_stri=o_2641_stri; /* line 409 "../lib/bytedata.s7i" */ o_2641_stri=o_918_gets(o_2639_in_file, 4L); /* line 409 "../lib/bytedata.s7i" */ strDestr(old_stri); } /* line 410 "../lib/bytedata.s7i" */ o_2640_number=(((((intType)((scharType)((o_2641_stri)->mem[(idxChk((o_2641_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]))) * 16777216L) + (((intType)((scharType)((o_2641_stri)->mem[(idxChk((o_2641_stri)->size<2) ? intRaiseError(RANGE_ERROR) : 0, 1)]))) * 65536L)) + (((intType)((scharType)((o_2641_stri)->mem[(idxChk((o_2641_stri)->size<3) ? intRaiseError(RANGE_ERROR) : 0, 2)]))) * 256L)) + ((intType)((scharType)((o_2641_stri)->mem[(idxChk((o_2641_stri)->size<4) ? intRaiseError(RANGE_ERROR) : 0, 3)]))); /* line 403 "../lib/bytedata.s7i" */ strDestr(o_2641_stri); return o_2640_number; } /* line 1 "no_file" */ /* 1210 */ /* 1211 */ /* 1212 */ /* 1213 */ /* DYNAMIC */ static charType/*t_18_char*/ o_2642_busy_getc (const interfaceType/*t_79_keyboard_file*/ o_2643_keybd); /* 1214 */ /* DYNAMIC */ static boolType/*t_13_boolean*/ o_2644_keypressed (const interfaceType/*t_79_keyboard_file*/ o_2645_keybd); /* 1215 */ /* DYNAMIC */ static boolType/*t_13_boolean*/ o_2646_buttonPressed (const interfaceType/*t_79_keyboard_file*/ o_2647_keybd, const charType/*t_18_char*/ o_2648_button); /* 1216 */ /* DYNAMIC */ static intType/*t_14_integer*/ o_2649_getxpos (const interfaceType/*t_79_keyboard_file*/ o_2650_keybd); /* 1217 */ /* DYNAMIC */ static intType/*t_14_integer*/ o_2651_getypos (const interfaceType/*t_79_keyboard_file*/ o_2652_keybd); /* 1218 */ /* 1219 */ /* 1220 */ /* 1221 */ typedef genericType t_80/*t_80_*ANONYM_TYPE**/; /* 1222 */ /* 1223 */ /* 1224 */ /* 1225 */ /* 1226 */ /* objRefType/t_80_*ANONYM_TYPE* */ objRefType o_2653/*.*/=(objRefType)(NULL); /* 1227 */ /* objRefType/t_80_*ANONYM_TYPE* */ objRefType o_2654/*.*/=(objRefType)(NULL); /* 1228 */ typedef genericType t_81/*t_81_*ANONYM_TYPE**/; /* 1229 */ /* 1230 */ /* 1231 */ /* 1232 */ /* 1233 */ /* objRefType/t_81_*ANONYM_TYPE* */ objRefType o_2655/*.*/=(objRefType)(NULL); /* 1234 */ /* objRefType/t_81_*ANONYM_TYPE* */ objRefType o_2656/*.*/=(objRefType)(NULL); /* 1235 */ /* 1236 */ /* 1237 */ /* 1238 */ structType/*t_82_console_keybd_file*/ o_2657/*.*/; /* 1239 */ /* itf_cpy2: interfaceType/t_79_keyboard_file := structType/t_82_console_keybd_file */ /* 1240 */ /* line 204 "../lib/struct.s7i" */ static structType/*t_82_console_keybd_file*/ create_82 (const_structType/*t_82_console_keybd_file*/ b) /* line 204 "../lib/struct.s7i" */ { /* line 204 "../lib/struct.s7i" */ structType/*t_82_console_keybd_file*/ a; /* line 204 "../lib/struct.s7i" */ a=(structType/*t_82_console_keybd_file*/)(malloc(sizeof(struct rtlStructStruct) - sizeof(rtlObjectType) + /* line 204 "../lib/struct.s7i" */ 1 * sizeof(rtlObjectType))); /* line 204 "../lib/struct.s7i" */ if (a == NULL) { /* line 204 "../lib/struct.s7i" */ raise_error(MEMORY_ERROR); /* line 204 "../lib/struct.s7i" */ } else { /* line 204 "../lib/struct.s7i" */ a->usage_count = 1; a->type_num = b->type_num; /* line 204 "../lib/struct.s7i" */ a->stru[0].value.charValue=b->stru[0].value.charValue; /* line 204 "../lib/struct.s7i" */ } /* line 204 "../lib/struct.s7i" */ return a; /* line 204 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 205 "../lib/struct.s7i" */ static void destr_82 (structType/*t_82_console_keybd_file*/ b) /* line 205 "../lib/struct.s7i" */ { /* line 205 "../lib/struct.s7i" */ if (b != NULL && b->usage_count != 0) { b->usage_count--; if (b->usage_count == 0) { /* line 205 "../lib/struct.s7i" */ /* line 205 "../lib/struct.s7i" */ free((void *)(b)); /* line 205 "../lib/struct.s7i" */ }} /* line 205 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 206 "../lib/struct.s7i" */ static void cpy_82 (structType/*t_82_console_keybd_file*/ a, structType/*t_82_console_keybd_file*/ b) /* line 206 "../lib/struct.s7i" */ { /* line 206 "../lib/struct.s7i" */ a->stru[0].value.charValue=b->stru[0].value.charValue; /* line 206 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 886 "../lib/seed7_05.s7i" */ static structType/*t_82_console_keybd_file*/ o_2658_xalloc (const structType/*t_82_console_keybd_file*/ o_2659_newStuct) { /* line 888 "../lib/seed7_05.s7i" */ structType/*t_82_console_keybd_file*/ o_2660_allocated; /* line 888 "../lib/seed7_05.s7i" */ o_2660_allocated=create_82(sct[33]); /* line 890 "../lib/seed7_05.s7i" */ cpy_82((structType/*t_82_console_keybd_file*/)(o_2660_allocated), (structType/*t_82_console_keybd_file*/)(o_2659_newStuct)); return o_2660_allocated; } /* line 1 "no_file" */ /* 1241 */ structType/*t_82_console_keybd_file*/ o_2661_CONSOLE_KEYBOARD; /* 1242 */ /* line 142 "../lib/keybd.s7i" */ static striType/*t_15_string*/ o_2662_getk (const structType/*t_82_console_keybd_file*/ o_2663_keybd) { /* line 144 "../lib/keybd.s7i" */ striType/*t_15_string*/ o_2664_rawKey; /* line 144 "../lib/keybd.s7i" */ o_2664_rawKey=strEmpty(); /* "" */ { /* line 146 "../lib/keybd.s7i" */ struct striStruct stri_1; /* line 146 "../lib/keybd.s7i" */ strCopy(&(o_2664_rawKey), chrStrMacro(kbdRawGetc(),stri_1)); } /* line 147 "../lib/keybd.s7i" */ while (o_2644_keypressed(o_2663_keybd)) { /* line 148 "../lib/keybd.s7i" */ strPush(&(o_2664_rawKey), kbdRawGetc()); } return o_2664_rawKey; } /* line 1 "no_file" */ /* 1243 */ /* line 163 "../lib/keybd.s7i" */ static striType/*t_15_string*/ o_2665_getwd (structType/*t_82_console_keybd_file*/ *const o_2666_keybd) { /* line 165 "../lib/keybd.s7i" */ striType/*t_15_string*/ o_2667_stri; /* line 165 "../lib/keybd.s7i" */ o_2667_stri=strEmpty(); /* "" */ { /* line 167 "../lib/keybd.s7i" */ striType old_stri=o_2667_stri; /* line 167 "../lib/keybd.s7i" */ o_2667_stri=kbdWordRead(&(((structType)(*o_2666_keybd))->stru[0].value.charValue/*->o_971_bufferChar*/)); /* line 167 "../lib/keybd.s7i" */ strDestr(old_stri); } return o_2667_stri; } /* line 1 "no_file" */ /* 1244 */ /* line 180 "../lib/keybd.s7i" */ static striType/*t_15_string*/ o_2668_getln (structType/*t_82_console_keybd_file*/ *const o_2669_keybd) { /* line 182 "../lib/keybd.s7i" */ striType/*t_15_string*/ o_2670_stri; /* line 182 "../lib/keybd.s7i" */ o_2670_stri=strEmpty(); /* "" */ { /* line 184 "../lib/keybd.s7i" */ striType old_stri=o_2670_stri; /* line 184 "../lib/keybd.s7i" */ o_2670_stri=kbdLineRead(&(((structType)(*o_2669_keybd))->stru[0].value.charValue/*->o_971_bufferChar*/)); /* line 184 "../lib/keybd.s7i" */ strDestr(old_stri); } return o_2670_stri; } /* line 1 "no_file" */ /* 1245 */ /* 1246 */ /* 1247 */ /* 1248 */ typedef genericType t_83/*t_83_*ANONYM_TYPE**/; /* 1249 */ /* 1250 */ /* 1251 */ /* 1252 */ /* 1253 */ /* objRefType/t_83_*ANONYM_TYPE* */ objRefType o_2671/*.*/=(objRefType)(NULL); /* 1254 */ /* objRefType/t_83_*ANONYM_TYPE* */ objRefType o_2672/*.*/=(objRefType)(NULL); /* 1255 */ typedef genericType t_84/*t_84_*ANONYM_TYPE**/; /* 1256 */ /* 1257 */ /* 1258 */ /* 1259 */ /* 1260 */ /* objRefType/t_84_*ANONYM_TYPE* */ objRefType o_2673/*.*/=(objRefType)(NULL); /* 1261 */ /* objRefType/t_84_*ANONYM_TYPE* */ objRefType o_2674/*.*/=(objRefType)(NULL); /* 1262 */ /* 1263 */ /* 1264 */ /* 1265 */ structType/*t_85_graph_keybd_file*/ o_2675/*.*/; /* 1266 */ /* itf_cpy2: interfaceType/t_79_keyboard_file := structType/t_85_graph_keybd_file */ /* 1267 */ /* line 204 "../lib/struct.s7i" */ static structType/*t_85_graph_keybd_file*/ create_85 (const_structType/*t_85_graph_keybd_file*/ b) /* line 204 "../lib/struct.s7i" */ { /* line 204 "../lib/struct.s7i" */ structType/*t_85_graph_keybd_file*/ a; /* line 204 "../lib/struct.s7i" */ a=(structType/*t_85_graph_keybd_file*/)(malloc(sizeof(struct rtlStructStruct) - sizeof(rtlObjectType) + /* line 204 "../lib/struct.s7i" */ 1 * sizeof(rtlObjectType))); /* line 204 "../lib/struct.s7i" */ if (a == NULL) { /* line 204 "../lib/struct.s7i" */ raise_error(MEMORY_ERROR); /* line 204 "../lib/struct.s7i" */ } else { /* line 204 "../lib/struct.s7i" */ a->usage_count = 1; a->type_num = b->type_num; /* line 204 "../lib/struct.s7i" */ a->stru[0].value.charValue=b->stru[0].value.charValue; /* line 204 "../lib/struct.s7i" */ } /* line 204 "../lib/struct.s7i" */ return a; /* line 204 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 205 "../lib/struct.s7i" */ static void destr_85 (structType/*t_85_graph_keybd_file*/ b) /* line 205 "../lib/struct.s7i" */ { /* line 205 "../lib/struct.s7i" */ if (b != NULL && b->usage_count != 0) { b->usage_count--; if (b->usage_count == 0) { /* line 205 "../lib/struct.s7i" */ /* line 205 "../lib/struct.s7i" */ free((void *)(b)); /* line 205 "../lib/struct.s7i" */ }} /* line 205 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 206 "../lib/struct.s7i" */ static void cpy_85 (structType/*t_85_graph_keybd_file*/ a, structType/*t_85_graph_keybd_file*/ b) /* line 206 "../lib/struct.s7i" */ { /* line 206 "../lib/struct.s7i" */ a->stru[0].value.charValue=b->stru[0].value.charValue; /* line 206 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 886 "../lib/seed7_05.s7i" */ static structType/*t_85_graph_keybd_file*/ o_2676_xalloc (const structType/*t_85_graph_keybd_file*/ o_2677_newStuct) { /* line 888 "../lib/seed7_05.s7i" */ structType/*t_85_graph_keybd_file*/ o_2678_allocated; /* line 888 "../lib/seed7_05.s7i" */ o_2678_allocated=create_85(sct[35]); /* line 890 "../lib/seed7_05.s7i" */ cpy_85((structType/*t_85_graph_keybd_file*/)(o_2678_allocated), (structType/*t_85_graph_keybd_file*/)(o_2677_newStuct)); return o_2678_allocated; } /* line 1 "no_file" */ /* 1268 */ structType/*t_85_graph_keybd_file*/ o_2679_GRAPH_KEYBOARD; /* 1269 */ /* line 270 "../lib/keybd.s7i" */ static striType/*t_15_string*/ o_2680_getk (const structType/*t_85_graph_keybd_file*/ o_2681_keybd) { /* line 272 "../lib/keybd.s7i" */ striType/*t_15_string*/ o_2682_rawKey; /* line 272 "../lib/keybd.s7i" */ o_2682_rawKey=strEmpty(); /* "" */ { /* line 274 "../lib/keybd.s7i" */ struct striStruct stri_1; /* line 274 "../lib/keybd.s7i" */ strCopy(&(o_2682_rawKey), chrStrMacro(gkbRawGetc(),stri_1)); } /* line 275 "../lib/keybd.s7i" */ while (o_2644_keypressed(o_2681_keybd)) { /* line 276 "../lib/keybd.s7i" */ strPush(&(o_2682_rawKey), gkbRawGetc()); } return o_2682_rawKey; } /* line 1 "no_file" */ /* 1270 */ /* line 291 "../lib/keybd.s7i" */ static striType/*t_15_string*/ o_2683_getwd (structType/*t_85_graph_keybd_file*/ *const o_2684_keybd) { /* line 293 "../lib/keybd.s7i" */ striType/*t_15_string*/ o_2685_stri; /* line 293 "../lib/keybd.s7i" */ o_2685_stri=strEmpty(); /* "" */ { /* line 295 "../lib/keybd.s7i" */ striType old_stri=o_2685_stri; /* line 295 "../lib/keybd.s7i" */ o_2685_stri=gkbWordRead(&(((structType)(*o_2684_keybd))->stru[0].value.charValue/*->o_971_bufferChar*/)); /* line 295 "../lib/keybd.s7i" */ strDestr(old_stri); } return o_2685_stri; } /* line 1 "no_file" */ /* 1271 */ /* line 308 "../lib/keybd.s7i" */ static striType/*t_15_string*/ o_2686_getln (structType/*t_85_graph_keybd_file*/ *const o_2687_keybd) { /* line 310 "../lib/keybd.s7i" */ striType/*t_15_string*/ o_2688_stri; /* line 310 "../lib/keybd.s7i" */ o_2688_stri=strEmpty(); /* "" */ { /* line 312 "../lib/keybd.s7i" */ striType old_stri=o_2688_stri; /* line 312 "../lib/keybd.s7i" */ o_2688_stri=gkbLineRead(&(((structType)(*o_2687_keybd))->stru[0].value.charValue/*->o_971_bufferChar*/)); /* line 312 "../lib/keybd.s7i" */ strDestr(old_stri); } return o_2688_stri; } /* line 1 "no_file" */ /* 1272 */ interfaceType/*t_79_keyboard_file*/ o_2689_KEYBOARD; /* 1273 */ typedef genericType t_86/*t_86_category*/; /* 1274 */ /* 1275 */ /* 1276 */ /* 1277 */ typedef genericType t_87/*t_87_*ANONYM_TYPE**/; /* 1278 */ typedef genericType t_88/*t_88_setOfCategory*/; /* 1279 */ /* 1280 */ /* 1281 */ /* 1282 */ /* 1283 */ const boolType/*t_13_boolean*/ o_2690_isBitset=1/*TRUE*/; /* 1284 */ /* line 169 "../lib/bitsetof.s7i" */ static boolType/*t_13_boolean*/ o_2691_in (const intType/*t_86_category*/ o_2692_aValue, const const_setType/*t_88_setOfCategory*/ o_2693_aSet) { /* line 170 "../lib/bitsetof.s7i" */ boolType/*t_13_boolean*/ result; /* line 170 "../lib/bitsetof.s7i" */ intType tmp_1; /* line 170 "../lib/bitsetof.s7i" */ const_setType tmp_2; /* line 170 "../lib/bitsetof.s7i" */ intType tmp_3; /* line 170 "../lib/bitsetof.s7i" */ result=(boolType/*t_13_boolean*/)(((tmp_1=(o_2692_aValue),tmp_2=(o_2693_aSet),tmp_3=bitset_pos(tmp_1),tmp_3>=tmp_2->min_position&&tmp_3<=tmp_2->max_position&&tmp_2->bitset[(uintType)(tmp_3-tmp_2->min_position)] >> (tmp_1 & bitset_mask)&1))); /* line 170 "../lib/bitsetof.s7i" */ return result; } /* line 1 "no_file" */ /* 1285 */ /* line 178 "../lib/bitsetof.s7i" */ static boolType/*t_13_boolean*/ o_2694_not (const intType/*t_86_category*/ o_2695_aValue, const const_setType/*t_88_setOfCategory*/ o_2696_aSet) { /* line 179 "../lib/bitsetof.s7i" */ boolType/*t_13_boolean*/ result; /* line 179 "../lib/bitsetof.s7i" */ intType tmp_1; /* line 179 "../lib/bitsetof.s7i" */ const_setType tmp_2; /* line 179 "../lib/bitsetof.s7i" */ intType tmp_3; /* line 179 "../lib/bitsetof.s7i" */ result=(boolType/*t_13_boolean*/)((!((tmp_1=(o_2695_aValue),tmp_2=(o_2696_aSet),tmp_3=bitset_pos(tmp_1),tmp_3>=tmp_2->min_position&&tmp_3<=tmp_2->max_position&&tmp_2->bitset[(uintType)(tmp_3-tmp_2->min_position)] >> (tmp_1 & bitset_mask)&1)))); /* line 179 "../lib/bitsetof.s7i" */ return result; } /* line 1 "no_file" */ /* 1286 */ /* line 186 "../lib/bitsetof.s7i" */ static void/*t_1_void*/ o_2697_incl (setType/*t_88_setOfCategory*/ *const o_2698_aSet, const intType/*t_86_category*/ o_2699_aValue) { /* line 188 "../lib/bitsetof.s7i" */ setIncl(&((*o_2698_aSet)), (o_2699_aValue)); } /* line 1 "no_file" */ /* 1287 */ /* line 195 "../lib/bitsetof.s7i" */ static void/*t_1_void*/ o_2700_excl (setType/*t_88_setOfCategory*/ *const o_2701_aSet, const intType/*t_86_category*/ o_2702_aValue) { { /* line 197 "../lib/bitsetof.s7i" */ setType tmp_1; /* line 197 "../lib/bitsetof.s7i" */ intType tmp_2; /* line 197 "../lib/bitsetof.s7i" */ intType tmp_3; /* line 197 "../lib/bitsetof.s7i" */ tmp_1=(*o_2701_aSet); /* line 197 "../lib/bitsetof.s7i" */ tmp_2=(o_2702_aValue); /* line 197 "../lib/bitsetof.s7i" */ tmp_3=bitset_pos(tmp_2); /* line 197 "../lib/bitsetof.s7i" */ if (tmp_3>=tmp_1->min_position&&tmp_3<=tmp_1->max_position) { /* line 197 "../lib/bitsetof.s7i" */ tmp_1->bitset[(uintType)(tmp_3-tmp_1->min_position)] &= ~((bitSetType) 1 << (((unsigned int) tmp_2) & bitset_mask)); /* line 197 "../lib/bitsetof.s7i" */ } } } /* line 1 "no_file" */ /* 1288 */ /* line 212 "../lib/bitsetof.s7i" */ static intType/*t_86_category*/ o_2703_rand (const const_setType/*t_88_setOfCategory*/ o_2704_aSet) { /* line 213 "../lib/bitsetof.s7i" */ return (intType/*t_86_category*/)(((setRand((o_2704_aSet))))); } /* line 1 "no_file" */ /* 1289 */ /* line 223 "../lib/bitsetof.s7i" */ static intType/*t_86_category*/ o_2705_min (const const_setType/*t_88_setOfCategory*/ o_2706_aSet) { /* line 224 "../lib/bitsetof.s7i" */ return (intType/*t_86_category*/)(((setMin((o_2706_aSet))))); } /* line 1 "no_file" */ /* 1290 */ /* line 234 "../lib/bitsetof.s7i" */ static intType/*t_86_category*/ o_2707_max (const const_setType/*t_88_setOfCategory*/ o_2708_aSet) { /* line 235 "../lib/bitsetof.s7i" */ return (intType/*t_86_category*/)(((setMax((o_2708_aSet))))); } /* line 1 "no_file" */ /* 1291 */ /* line 237 "../lib/bitsetof.s7i" */ static intType/*t_86_category*/ o_2709_next (const const_setType/*t_88_setOfCategory*/ o_2710_aSet, const intType/*t_86_category*/ o_2711_oldValue) { /* line 238 "../lib/bitsetof.s7i" */ return (intType/*t_86_category*/)(((setNext((o_2710_aSet), (o_2711_oldValue))))); } /* line 1 "no_file" */ /* 1292 */ /* line 240 "../lib/bitsetof.s7i" */ static setType/*t_88_setOfCategory*/ o_2712/*{*/ (const intType/*t_86_category*/ o_2713_value) { /* line 241 "../lib/bitsetof.s7i" */ return (setType/*t_88_setOfCategory*/)((setBaselit((o_2713_value)))); } /* line 1 "no_file" */ /* 1293 */ typedef genericType t_89/*t_89_*ANONYM_TYPE**/; /* 1294 */ /* 1295 */ /* 1296 */ /* 1297 */ /* ACTION ARR_GEN for type arrayType/t_89_*ANONYM_TYPE* element is intType/t_86_category */ /* 1298 */ typedef genericType t_90/*t_90_*ANONYM_TYPE**/; /* 1299 */ /* 1300 */ /* 1301 */ /* 1302 */ /* 1303 */ /* 1304 */ /* ACTION ARR_IDX for type arrayType/t_90_*ANONYM_TYPE* element is intType/t_86_category */ /* 1305 */ /* ACTION ARR_IDX for type arrayType/t_90_*ANONYM_TYPE* element is intType/t_86_category */ /* 1306 */ /* line 163 "../lib/array.s7i" */ static arrayType times_90 (intType n, const intType/*t_86_category*/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.intValue=b; /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 1307 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_90_*ANONYM_TYPE**/ create_90 (const_arrayType/*t_90_*ANONYM_TYPE**/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_90_*ANONYM_TYPE**/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_90_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.intValue=b->arr[i].value.intValue; /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_90 (const_arrayType/*t_90_*ANONYM_TYPE**/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_89 (const_arrayType/*t_89_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_89_*ANONYM_TYPE**/ create_89 (const_arrayType/*t_89_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_89_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_89_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.intValue=b->arr[i].value.intValue; /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_90_*ANONYM_TYPE**/ o_2714_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_2715_indexRange, const intType/*t_86_category*/ o_2716_element) { /* line 186 "../lib/array.s7i" */ arrayType/*t_90_*ANONYM_TYPE**/ o_2717_anArray; /* line 186 "../lib/array.s7i" */ o_2717_anArray=create_90(arr[38]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_2717_anArray; /* line 188 "../lib/array.s7i" */ o_2717_anArray=times_90(((((structType)(o_2715_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_2715_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_2716_element); /* line 188 "../lib/array.s7i" */ destr_90(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_2717_anArray; /* line 189 "../lib/array.s7i" */ o_2717_anArray=arrArrlit2(((structType)(o_2715_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_89(/*arrConv()*/o_2717_anArray)); /* line 189 "../lib/array.s7i" */ destr_90(old_array); } return o_2717_anArray; } /* line 1 "no_file" */ /* 1308 */ /* declare inline o_2718_for*/ /* declare inline o_2719_for*/ /* declare inline o_2720_for*/ /* declare inline o_2721_for*/ /* declare inline o_2722_for*/ /* declare inline o_2723_for*/ /* declare inline o_2724_for*/ /* declare inline o_2725_for*/ /* declare inline o_2726_for*/ /* line 329 "../lib/array.s7i" */ static intType/*t_86_category*/ o_2727_rand (const const_arrayType/*t_90_*ANONYM_TYPE**/ o_2728_arr) { /* line 330 "../lib/array.s7i" */ intType/*t_86_category*/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(intType/*t_86_category*/)(((o_2728_arr)->arr[idx_1=intRand((o_2728_arr)->min_position, (o_2728_arr)->max_position),(idxChk(idx_1 < (o_2728_arr)->min_position || idx_1 > (o_2728_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_2728_arr)->min_position)].value.intValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 1309 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_2729_insert (arrayType/*t_90_*ANONYM_TYPE**/ *const o_2730_arr, const intType/*t_14_integer*/ o_2731_index, const intType/*t_86_category*/ o_2732_element) { /* line 334 "../lib/array.s7i" */ if (((o_2731_index) >= ((*o_2730_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_2731_index) <= (((*o_2730_arr)->max_position)+1))) { { { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_2730_arr; /* line 335 "../lib/array.s7i" */ *o_2730_arr=arrCat(arrCat(arrHead(*o_2730_arr, (o_2731_index)-1), arrBaselit((genericType)(o_2732_element))), arrTail(*o_2730_arr, o_2731_index)); /* line 335 "../lib/array.s7i" */ destr_90(old_array); } } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } } /* line 1 "no_file" */ /* 1310 */ /* line 344 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_2733/*=*/ (const const_arrayType/*t_90_*ANONYM_TYPE**/ o_2734_arr1, const const_arrayType/*t_90_*ANONYM_TYPE**/ o_2735_arr2) { /* line 346 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_2736_isEqual=o_25_FALSE; /* line 348 "../lib/array.s7i" */ intType/*t_14_integer*/ o_2737_number=1; /* line 350 "../lib/array.s7i" */ if ((((o_2734_arr1)->min_position) == ((o_2735_arr2)->min_position)) && /* line 350 "../lib/array.s7i" */ (((o_2734_arr1)->max_position) == ((o_2735_arr2)->max_position))) { /* line 351 "../lib/array.s7i" */ o_2736_isEqual=o_26_TRUE; /* line 352 "../lib/array.s7i" */ o_2737_number=(o_2734_arr1)->min_position; /* line 353 "../lib/array.s7i" */ while (((o_2737_number) <= ((o_2734_arr1)->max_position)) && /* line 353 "../lib/array.s7i" */ (o_2736_isEqual)) { /* line 354 "../lib/array.s7i" */ o_2736_isEqual=((o_2734_arr1)->arr[(idxChk((o_2737_number) < (o_2734_arr1)->min_position || (o_2737_number) > (o_2734_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2737_number)-(o_2734_arr1)->min_position)].value.intValue) == ((o_2735_arr2)->arr[(idxChk((o_2737_number) < (o_2735_arr2)->min_position || (o_2737_number) > (o_2735_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2737_number)-(o_2735_arr2)->min_position)].value.intValue); /* line 355 "../lib/array.s7i" */ ++(o_2737_number); } } return o_2736_isEqual; } /* line 1 "no_file" */ /* 1311 */ /* line 360 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_2738/*<>*/ (const const_arrayType/*t_90_*ANONYM_TYPE**/ o_2739_arr1, const const_arrayType/*t_90_*ANONYM_TYPE**/ o_2740_arr2) { /* line 362 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_2741_isNotEqual=o_26_TRUE; /* line 364 "../lib/array.s7i" */ intType/*t_14_integer*/ o_2742_number=1; /* line 366 "../lib/array.s7i" */ if ((((o_2739_arr1)->min_position) == ((o_2740_arr2)->min_position)) && /* line 366 "../lib/array.s7i" */ (((o_2739_arr1)->max_position) == ((o_2740_arr2)->max_position))) { /* line 367 "../lib/array.s7i" */ o_2741_isNotEqual=o_25_FALSE; /* line 368 "../lib/array.s7i" */ o_2742_number=(o_2739_arr1)->min_position; /* line 369 "../lib/array.s7i" */ while (((o_2742_number) <= ((o_2739_arr1)->max_position)) && /* line 369 "../lib/array.s7i" */ (!(o_2741_isNotEqual))) { /* line 370 "../lib/array.s7i" */ o_2741_isNotEqual=((o_2739_arr1)->arr[(idxChk((o_2742_number) < (o_2739_arr1)->min_position || (o_2742_number) > (o_2739_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2742_number)-(o_2739_arr1)->min_position)].value.intValue) != ((o_2740_arr2)->arr[(idxChk((o_2742_number) < (o_2740_arr2)->min_position || (o_2742_number) > (o_2740_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2742_number)-(o_2740_arr2)->min_position)].value.intValue); /* line 371 "../lib/array.s7i" */ ++(o_2742_number); } } return o_2741_isNotEqual; } /* line 1 "no_file" */ /* 1312 */ /* line 246 "../lib/bitsetof.s7i" */ static setType/*t_88_setOfCategory*/ o_2743/*{*/ (const const_arrayType/*t_89_*ANONYM_TYPE**/ o_2744_value) { /* line 248 "../lib/bitsetof.s7i" */ setType/*t_88_setOfCategory*/ o_2745_aSet; /* line 250 "../lib/bitsetof.s7i" */ intType/*t_14_integer*/ o_2746_number=0; /* line 248 "../lib/bitsetof.s7i" */ o_2745_aSet=setCreate(set[0]); { /* line 252 "../lib/bitsetof.s7i" */ const_arrayType tmp_1; /* line 252 "../lib/bitsetof.s7i" */ intType tmp_e_2=(tmp_1=/*arrArrlit()*/o_2744_value,tmp_1->max_position - tmp_1->min_position + 1); /* line 252 "../lib/bitsetof.s7i" */ for (o_2746_number=1L; o_2746_number<=tmp_e_2; (o_2746_number)++) { { /* line 253 "../lib/bitsetof.s7i" */ const_arrayType tmp_1; /* line 253 "../lib/bitsetof.s7i" */ o_2697_incl(&(o_2745_aSet), (*(tmp_1=/*arrArrlit()*/o_2744_value, &tmp_1->arr[(idxChk((o_2746_number) < tmp_1->min_position || (o_2746_number) > tmp_1->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_2746_number)-tmp_1->min_position)].value.intValue))); } } } return o_2745_aSet; } /* line 1 "no_file" */ /* 1313 */ /* line 257 "../lib/bitsetof.s7i" */ static setType/*t_88_setOfCategory*/ o_2747/*{*/ (const intType/*t_86_category*/ o_2748_lowerValue, const intType/*t_86_category*/ o_2749_upperValue) { /* line 258 "../lib/bitsetof.s7i" */ return (setType/*t_88_setOfCategory*/)((setRangelit((o_2748_lowerValue), (o_2749_upperValue)))); } /* line 1 "no_file" */ /* 1314 */ /* declare inline o_2750_for*/ /* declare inline o_2751_for*/ /* declare inline o_2752_for*/ /* line 322 "../lib/bitsetof.s7i" */ static striType/*t_15_string*/ o_2753_str (const const_setType/*t_88_setOfCategory*/ o_2754_aSet) { /* line 324 "../lib/bitsetof.s7i" */ striType/*t_15_string*/ o_2755_stri; /* line 326 "../lib/bitsetof.s7i" */ intType/*t_86_category*/ o_2756_setElement=0; /* line 324 "../lib/bitsetof.s7i" */ o_2755_stri=chrStr((charType) '{'); /* "{" */ /* inline proc o_2750_for */ { /* inline params */ /* line 328 "../lib/bitsetof.s7i" */ intType/*t_86_category*/ *const o_2757_variable=&(o_2756_setElement); /* line 328 "../lib/bitsetof.s7i" */ const const_setType/*t_88_setOfCategory*/ o_2758_aSet=o_2754_aSet; /* line 328 "../lib/bitsetof.s7i" */ /* push proc param o_2759_statements */ /* line 328 "../lib/bitsetof.s7i" */ /* inline local_vars */ /* line 328 "../lib/bitsetof.s7i" */ /* line 267 "../lib/bitsetof.s7i" */ /* line 328 "../lib/bitsetof.s7i" */ intType/*t_86_category*/ o_2760_upperBound=0; /* line 328 "../lib/bitsetof.s7i" */ /* line 268 "../lib/bitsetof.s7i" */ /* line 328 "../lib/bitsetof.s7i" */ boolType/*t_13_boolean*/ o_2761_leave=0/*FALSE*/; /* inline body */ /* line 270 "../lib/bitsetof.s7i" */ if (!setEq(o_2758_aSet, (setType/*t_88_setOfCategory*/)(set[0]))) { /* line 271 "../lib/bitsetof.s7i" */ *o_2757_variable=o_2705_min(o_2758_aSet); /* line 272 "../lib/bitsetof.s7i" */ o_2760_upperBound=o_2707_max(o_2758_aSet); /* line 273 "../lib/bitsetof.s7i" */ do { /* closure o_2759_statements*/ { /* line 329 "../lib/bitsetof.s7i" */ if (((o_2755_stri)->size!=1||(o_2755_stri)->mem[0]!=(strElemType)('{') /* "{" */)) { /* line 330 "../lib/bitsetof.s7i" */ strAppend(&(o_2755_stri), &str[12] /* ", " */); } /* line 332 "../lib/bitsetof.s7i" */ strAppendTemp(&(o_2755_stri), refCatStr(o_2756_setElement)); } /* closure o_2759_statements*/ /* line 275 "../lib/bitsetof.s7i" */ if ((*o_2757_variable) == (o_2760_upperBound)) { /* line 276 "../lib/bitsetof.s7i" */ o_2761_leave=o_26_TRUE; } else { /* line 278 "../lib/bitsetof.s7i" */ *o_2757_variable=o_2709_next(o_2758_aSet, *o_2757_variable); } /* line 268 "../lib/bitsetof.s7i" */ } while (!(o_2761_leave)); } /* pop proc param o_2759_statements */ } /* inline proc o_2750_for */ /* line 334 "../lib/bitsetof.s7i" */ /* line 334 "../lib/bitsetof.s7i" */ if (((o_2755_stri))->size == ((o_2755_stri))->capacity) { /* line 334 "../lib/bitsetof.s7i" */ strPush(&((o_2755_stri)), (charType) '}'); /* line 334 "../lib/bitsetof.s7i" */ } else { /* line 334 "../lib/bitsetof.s7i" */ ((o_2755_stri))->mem[((o_2755_stri))->size]=(charType) '}'; /* line 334 "../lib/bitsetof.s7i" */ ((o_2755_stri))->size++; /* line 334 "../lib/bitsetof.s7i" */ } return o_2755_stri; } /* line 1 "no_file" */ /* 1315 */ /* 1316 */ const t_87/*t_87_*ANONYM_TYPE**/ o_2762_WHEN_EMPTY=/*WHEN_EMPTY*/0; /* 1317 */ /* 1318 */ /* 1319 */ typedef genericType t_91/*t_91_PRIMITIVE_WINDOW*/; /* 1320 */ /* 1321 */ /* 1322 */ /* 1323 */ typedef genericType t_92/*t_92_pixel*/; /* 1324 */ /* 1325 */ /* 1326 */ /* 1327 */ typedef genericType t_93/*t_93_pointList*/; /* 1328 */ /* 1329 */ /* 1330 */ /* 1331 */ typedef genericType t_94/*t_94_socketAddress*/; /* 1332 */ /* 1333 */ /* 1334 */ /* 1335 */ typedef genericType t_95/*t_95_PRIMITIVE_SOCKET*/; /* 1336 */ /* 1337 */ /* 1338 */ /* 1339 */ socketType o_2763/*.*/ = (socketType) -1; /* 1340 */ socketType o_2764_PRIMITIVE_NULL_SOCKET = (socketType) -1; /* 1341 */ typedef genericType t_96/*t_96_duration*/; /* 1342 */ /* 1343 */ /* 1344 */ typedef genericType t_97/*t_97_*ANONYM_TYPE**/; /* 1345 */ /* 1346 */ /* 1347 */ /* 1348 */ /* 1349 */ /* objRefType/t_97_*ANONYM_TYPE* */ objRefType o_2765/*.*/=(objRefType)(NULL); /* 1350 */ /* objRefType/t_97_*ANONYM_TYPE* */ objRefType o_2766/*.*/=(objRefType)(NULL); /* 1351 */ typedef genericType t_98/*t_98_*ANONYM_TYPE**/; /* 1352 */ /* 1353 */ /* 1354 */ /* 1355 */ /* 1356 */ /* objRefType/t_98_*ANONYM_TYPE* */ objRefType o_2767/*.*/=(objRefType)(NULL); /* 1357 */ /* objRefType/t_98_*ANONYM_TYPE* */ objRefType o_2768/*.*/=(objRefType)(NULL); /* 1358 */ /* 1359 */ /* 1360 */ /* 1361 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_2769_year_365 = 0 */ /* 1362 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_2769_year_365 = 0 */ /* 1363 */ /* ref struct element intType/t_14_integer ** objRefType/t_97_*ANONYM_TYPE*->o_2769_year_365 = 0 */ /* 1364 */ /* ref struct element intType/t_14_integer ** objRefType/t_98_*ANONYM_TYPE*->o_2769_year_365 = 0 */ /* 1365 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_2770_year_366 = 1 */ /* 1366 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_2770_year_366 = 1 */ /* 1367 */ /* ref struct element intType/t_14_integer ** objRefType/t_97_*ANONYM_TYPE*->o_2770_year_366 = 1 */ /* 1368 */ /* ref struct element intType/t_14_integer ** objRefType/t_98_*ANONYM_TYPE*->o_2770_year_366 = 1 */ /* 1369 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_2771_month_28 = 2 */ /* 1370 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_2771_month_28 = 2 */ /* 1371 */ /* ref struct element intType/t_14_integer ** objRefType/t_97_*ANONYM_TYPE*->o_2771_month_28 = 2 */ /* 1372 */ /* ref struct element intType/t_14_integer ** objRefType/t_98_*ANONYM_TYPE*->o_2771_month_28 = 2 */ /* 1373 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_2772_month_29 = 3 */ /* 1374 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_2772_month_29 = 3 */ /* 1375 */ /* ref struct element intType/t_14_integer ** objRefType/t_97_*ANONYM_TYPE*->o_2772_month_29 = 3 */ /* 1376 */ /* ref struct element intType/t_14_integer ** objRefType/t_98_*ANONYM_TYPE*->o_2772_month_29 = 3 */ /* 1377 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_2773_month_30 = 4 */ /* 1378 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_2773_month_30 = 4 */ /* 1379 */ /* ref struct element intType/t_14_integer ** objRefType/t_97_*ANONYM_TYPE*->o_2773_month_30 = 4 */ /* 1380 */ /* ref struct element intType/t_14_integer ** objRefType/t_98_*ANONYM_TYPE*->o_2773_month_30 = 4 */ /* 1381 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_2774_month_31 = 5 */ /* 1382 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_2774_month_31 = 5 */ /* 1383 */ /* ref struct element intType/t_14_integer ** objRefType/t_97_*ANONYM_TYPE*->o_2774_month_31 = 5 */ /* 1384 */ /* ref struct element intType/t_14_integer ** objRefType/t_98_*ANONYM_TYPE*->o_2774_month_31 = 5 */ /* 1385 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_1302_day = 6 */ /* 1386 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_1302_day = 6 */ /* 1387 */ /* ref struct element intType/t_14_integer ** objRefType/t_97_*ANONYM_TYPE*->o_1302_day = 6 */ /* 1388 */ /* ref struct element intType/t_14_integer ** objRefType/t_98_*ANONYM_TYPE*->o_1302_day = 6 */ /* 1389 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_1303_hour = 7 */ /* 1390 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_1303_hour = 7 */ /* 1391 */ /* ref struct element intType/t_14_integer ** objRefType/t_97_*ANONYM_TYPE*->o_1303_hour = 7 */ /* 1392 */ /* ref struct element intType/t_14_integer ** objRefType/t_98_*ANONYM_TYPE*->o_1303_hour = 7 */ /* 1393 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_1304_minute = 8 */ /* 1394 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_1304_minute = 8 */ /* 1395 */ /* ref struct element intType/t_14_integer ** objRefType/t_97_*ANONYM_TYPE*->o_1304_minute = 8 */ /* 1396 */ /* ref struct element intType/t_14_integer ** objRefType/t_98_*ANONYM_TYPE*->o_1304_minute = 8 */ /* 1397 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_1305_second = 9 */ /* 1398 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_1305_second = 9 */ /* 1399 */ /* ref struct element intType/t_14_integer ** objRefType/t_97_*ANONYM_TYPE*->o_1305_second = 9 */ /* 1400 */ /* ref struct element intType/t_14_integer ** objRefType/t_98_*ANONYM_TYPE*->o_1305_second = 9 */ /* 1401 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_1306_micro_second = 10 */ /* 1402 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_1306_micro_second = 10 */ /* 1403 */ /* ref struct element intType/t_14_integer ** objRefType/t_97_*ANONYM_TYPE*->o_1306_micro_second = 10 */ /* 1404 */ /* ref struct element intType/t_14_integer ** objRefType/t_98_*ANONYM_TYPE*->o_1306_micro_second = 10 */ /* 1405 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_2775_year_correction = 11 */ /* 1406 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_2775_year_correction = 11 */ /* 1407 */ /* ref struct element intType/t_14_integer ** objRefType/t_97_*ANONYM_TYPE*->o_2775_year_correction = 11 */ /* 1408 */ /* ref struct element intType/t_14_integer ** objRefType/t_98_*ANONYM_TYPE*->o_2775_year_correction = 11 */ /* 1409 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_2776_month_correction = 12 */ /* 1410 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_2776_month_correction = 12 */ /* 1411 */ /* ref struct element intType/t_14_integer ** objRefType/t_97_*ANONYM_TYPE*->o_2776_month_correction = 12 */ /* 1412 */ /* ref struct element intType/t_14_integer ** objRefType/t_98_*ANONYM_TYPE*->o_2776_month_correction = 12 */ /* 1413 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_2777_day_correction = 13 */ /* 1414 */ /* struct element intType/t_14_integer ** structType/t_96_duration->o_2777_day_correction = 13 */ /* 1415 */ /* ref struct element intType/t_14_integer ** objRefType/t_97_*ANONYM_TYPE*->o_2777_day_correction = 13 */ /* 1416 */ /* ref struct element intType/t_14_integer ** objRefType/t_98_*ANONYM_TYPE*->o_2777_day_correction = 13 */ /* 1417 */ structType/*t_96_duration*/ o_2778/*.*/; /* 1418 */ /* line 54 "../lib/duration.s7i" */ static intType/*t_14_integer*/ o_2779_sumOfYearFields (const structType/*t_96_duration*/ o_2780_aDuration) { /* line 55 "../lib/duration.s7i" */ return (intType/*t_14_integer*/)(((((structType)(o_2780_aDuration))->stru[0].value.intValue/*->o_2769_year_365*/) + (((structType)(o_2780_aDuration))->stru[1].value.intValue/*->o_2770_year_366*/))); } /* line 1 "no_file" */ /* 1419 */ /* line 59 "../lib/duration.s7i" */ static intType/*t_14_integer*/ o_2781_sumOfMonthFields (const structType/*t_96_duration*/ o_2782_aDuration) { /* line 62 "../lib/duration.s7i" */ return (intType/*t_14_integer*/)(((((((structType)(o_2782_aDuration))->stru[2].value.intValue/*->o_2771_month_28*/) + (((structType)(o_2782_aDuration))->stru[3].value.intValue/*->o_2772_month_29*/)) + (((structType)(o_2782_aDuration))->stru[4].value.intValue/*->o_2773_month_30*/)) + (((structType)(o_2782_aDuration))->stru[5].value.intValue/*->o_2774_month_31*/))); } /* line 1 "no_file" */ /* 1420 */ /* line 70 "../lib/duration.s7i" */ static intType/*t_14_integer*/ o_2783_getYears (const structType/*t_96_duration*/ o_2784_aDuration) { /* line 72 "../lib/duration.s7i" */ return (intType/*t_14_integer*/)((((((structType)(o_2784_aDuration))->stru[0].value.intValue/*->o_2769_year_365*/) + (((structType)(o_2784_aDuration))->stru[1].value.intValue/*->o_2770_year_366*/)) + (((structType)(o_2784_aDuration))->stru[11].value.intValue/*->o_2775_year_correction*/))); } /* line 1 "no_file" */ /* 1421 */ /* line 80 "../lib/duration.s7i" */ static intType/*t_14_integer*/ o_2785_getMonths (const structType/*t_96_duration*/ o_2786_aDuration) { /* line 84 "../lib/duration.s7i" */ return (intType/*t_14_integer*/)((((((((structType)(o_2786_aDuration))->stru[2].value.intValue/*->o_2771_month_28*/) + (((structType)(o_2786_aDuration))->stru[3].value.intValue/*->o_2772_month_29*/)) + (((structType)(o_2786_aDuration))->stru[4].value.intValue/*->o_2773_month_30*/)) + (((structType)(o_2786_aDuration))->stru[5].value.intValue/*->o_2774_month_31*/)) + (((structType)(o_2786_aDuration))->stru[12].value.intValue/*->o_2776_month_correction*/))); } /* line 1 "no_file" */ /* 1422 */ /* line 92 "../lib/duration.s7i" */ static intType/*t_14_integer*/ o_2787_getDays (const structType/*t_96_duration*/ o_2788_aDuration) { /* line 93 "../lib/duration.s7i" */ return (intType/*t_14_integer*/)(((((structType)(o_2788_aDuration))->stru[6].value.intValue/*->o_1302_day*/) + (((structType)(o_2788_aDuration))->stru[13].value.intValue/*->o_2777_day_correction*/))); } /* line 1 "no_file" */ /* 1423 */ /* line 101 "../lib/duration.s7i" */ static intType/*t_14_integer*/ o_2789_getHours (const structType/*t_96_duration*/ o_2790_aDuration) { /* line 102 "../lib/duration.s7i" */ return (intType/*t_14_integer*/)((((structType)(o_2790_aDuration))->stru[7].value.intValue/*->o_1303_hour*/)); } /* line 1 "no_file" */ /* 1424 */ /* line 109 "../lib/duration.s7i" */ static intType/*t_14_integer*/ o_2791_getMinutes (const structType/*t_96_duration*/ o_2792_aDuration) { /* line 110 "../lib/duration.s7i" */ return (intType/*t_14_integer*/)((((structType)(o_2792_aDuration))->stru[8].value.intValue/*->o_1304_minute*/)); } /* line 1 "no_file" */ /* 1425 */ /* line 117 "../lib/duration.s7i" */ static intType/*t_14_integer*/ o_2793_getSeconds (const structType/*t_96_duration*/ o_2794_aDuration) { /* line 118 "../lib/duration.s7i" */ return (intType/*t_14_integer*/)((((structType)(o_2794_aDuration))->stru[9].value.intValue/*->o_1305_second*/)); } /* line 1 "no_file" */ /* 1426 */ /* line 125 "../lib/duration.s7i" */ static intType/*t_14_integer*/ o_2795_getMicroSeconds (const structType/*t_96_duration*/ o_2796_aDuration) { /* line 126 "../lib/duration.s7i" */ return (intType/*t_14_integer*/)((((structType)(o_2796_aDuration))->stru[10].value.intValue/*->o_1306_micro_second*/)); } /* line 1 "no_file" */ /* 1427 */ /* line 133 "../lib/duration.s7i" */ static striType/*t_15_string*/ o_2797_str (const structType/*t_96_duration*/ o_2798_aDuration) { /* line 135 "../lib/duration.s7i" */ striType/*t_15_string*/ o_2799_stri; /* line 137 "../lib/duration.s7i" */ intType/*t_14_integer*/ o_2800_years=0; /* line 138 "../lib/duration.s7i" */ intType/*t_14_integer*/ o_2801_months=0; /* line 139 "../lib/duration.s7i" */ intType/*t_14_integer*/ o_2802_days=0; /* line 135 "../lib/duration.s7i" */ o_2799_stri=strEmpty(); /* "" */ /* line 141 "../lib/duration.s7i" */ o_2800_years=o_2783_getYears(o_2798_aDuration); /* line 142 "../lib/duration.s7i" */ o_2801_months=o_2785_getMonths(o_2798_aDuration); /* line 143 "../lib/duration.s7i" */ o_2802_days=o_2787_getDays(o_2798_aDuration); /* line 144 "../lib/duration.s7i" */ if (((o_2800_years) < (0L)) || /* line 144 "../lib/duration.s7i" */ ((o_2801_months) < (0L)) || /* line 144 "../lib/duration.s7i" */ ((o_2802_days) < (0L)) || /* line 144 "../lib/duration.s7i" */ ((((structType)(o_2798_aDuration))->stru[7].value.intValue/*->o_1303_hour*/) < (0L)) || /* line 145 "../lib/duration.s7i" */ ((((structType)(o_2798_aDuration))->stru[8].value.intValue/*->o_1304_minute*/) < (0L)) || /* line 145 "../lib/duration.s7i" */ ((((structType)(o_2798_aDuration))->stru[9].value.intValue/*->o_1305_second*/) < (0L)) || /* line 146 "../lib/duration.s7i" */ ((((structType)(o_2798_aDuration))->stru[10].value.intValue/*->o_1306_micro_second*/) < (0L))) { /* line 147 "../lib/duration.s7i" */ strCopy(&(o_2799_stri), &str[19] /* "-" */); } { /* line 149 "../lib/duration.s7i" */ const_striType tmp_2[10]; /* line 149 "../lib/duration.s7i" */ striType/*t_15_string*/ tmp_3 = (striType/*t_15_string*/)(NULL); /* line 149 "../lib/duration.s7i" */ striType tmp_4 = NULL; /* line 149 "../lib/duration.s7i" */ striType tmp_5 = NULL; /* line 149 "../lib/duration.s7i" */ intType tmp_7; /* line 149 "../lib/duration.s7i" */ striType tmp_6 = NULL; /* line 149 "../lib/duration.s7i" */ intType tmp_9; /* line 149 "../lib/duration.s7i" */ striType tmp_8 = NULL; /* line 149 "../lib/duration.s7i" */ intType tmp_11; /* line 149 "../lib/duration.s7i" */ striType tmp_10 = NULL; /* line 149 "../lib/duration.s7i" */ strAppendTemp(&(o_2799_stri), (tmp_2[0] = (tmp_3=(striType/*t_15_string*/)(o_1172/*<&*/(((o_2800_years)<0? -(o_2800_years):(o_2800_years)), &str[19] /* "-" */))), tmp_2[1] = (tmp_4=intLpad0(((o_2801_months)<0? -(o_2801_months):(o_2801_months)),2L)), tmp_2[2] = &str[19] /* "-" */, tmp_2[3] = (tmp_5=intLpad0(((o_2802_days)<0? -(o_2802_days):(o_2802_days)),2L)), tmp_2[4] = &str[26] /* " " */, tmp_2[5] = (tmp_6=intLpad0((tmp_7=((structType)(o_2798_aDuration))->stru[7].value.intValue/*->o_1303_hour*/,tmp_7<0? -tmp_7:tmp_7),2L)), tmp_2[6] = &str[23] /* ":" */, tmp_2[7] = (tmp_8=intLpad0((tmp_9=((structType)(o_2798_aDuration))->stru[8].value.intValue/*->o_1304_minute*/,tmp_9<0? -tmp_9:tmp_9),2L)), tmp_2[8] = &str[23] /* ":" */, tmp_2[9] = (tmp_10=intLpad0((tmp_11=((structType)(o_2798_aDuration))->stru[9].value.intValue/*->o_1305_second*/,tmp_11<0? -tmp_11:tmp_11),2L)), strConcatN(tmp_2, 10))); /* line 149 "../lib/duration.s7i" */ strDestr(tmp_3); /* line 149 "../lib/duration.s7i" */ strDestr(tmp_4); /* line 149 "../lib/duration.s7i" */ strDestr(tmp_5); /* line 149 "../lib/duration.s7i" */ strDestr(tmp_6); /* line 149 "../lib/duration.s7i" */ strDestr(tmp_8); /* line 149 "../lib/duration.s7i" */ strDestr(tmp_10); } /* line 155 "../lib/duration.s7i" */ if ((((structType)(o_2798_aDuration))->stru[10].value.intValue/*->o_1306_micro_second*/) != (0L)) { { /* line 156 "../lib/duration.s7i" */ intType tmp_3; /* line 156 "../lib/duration.s7i" */ striType tmp_2 = NULL; /* line 156 "../lib/duration.s7i" */ strAppendTemp(&(o_2799_stri), strConcat(&str[16] /* "." */, (tmp_2=intLpad0((tmp_3=((structType)(o_2798_aDuration))->stru[10].value.intValue/*->o_1306_micro_second*/,tmp_3<0? -tmp_3:tmp_3),6L)))); /* line 156 "../lib/duration.s7i" */ strDestr(tmp_2); } } return o_2799_stri; } /* line 1 "no_file" */ /* 1428 */ /* line 116 "../lib/struct.s7i" */ static structType/*t_96_duration*/ create_96 (const_structType/*t_96_duration*/ b) /* line 116 "../lib/struct.s7i" */ { /* line 116 "../lib/struct.s7i" */ structType/*t_96_duration*/ a; /* line 116 "../lib/struct.s7i" */ a=(structType/*t_96_duration*/)(malloc(sizeof(struct rtlStructStruct) - sizeof(rtlObjectType) + /* line 116 "../lib/struct.s7i" */ 14 * sizeof(rtlObjectType))); /* line 116 "../lib/struct.s7i" */ if (a == NULL) { /* line 116 "../lib/struct.s7i" */ raise_error(MEMORY_ERROR); /* line 116 "../lib/struct.s7i" */ } else { /* line 116 "../lib/struct.s7i" */ a->usage_count = 1; a->type_num = b->type_num; /* line 116 "../lib/struct.s7i" */ a->stru[0].value.intValue=b->stru[0].value.intValue; /* line 116 "../lib/struct.s7i" */ a->stru[1].value.intValue=b->stru[1].value.intValue; /* line 116 "../lib/struct.s7i" */ a->stru[2].value.intValue=b->stru[2].value.intValue; /* line 116 "../lib/struct.s7i" */ a->stru[3].value.intValue=b->stru[3].value.intValue; /* line 116 "../lib/struct.s7i" */ a->stru[4].value.intValue=b->stru[4].value.intValue; /* line 116 "../lib/struct.s7i" */ a->stru[5].value.intValue=b->stru[5].value.intValue; /* line 116 "../lib/struct.s7i" */ a->stru[6].value.intValue=b->stru[6].value.intValue; /* line 116 "../lib/struct.s7i" */ a->stru[7].value.intValue=b->stru[7].value.intValue; /* line 116 "../lib/struct.s7i" */ a->stru[8].value.intValue=b->stru[8].value.intValue; /* line 116 "../lib/struct.s7i" */ a->stru[9].value.intValue=b->stru[9].value.intValue; /* line 116 "../lib/struct.s7i" */ a->stru[10].value.intValue=b->stru[10].value.intValue; /* line 116 "../lib/struct.s7i" */ a->stru[11].value.intValue=b->stru[11].value.intValue; /* line 116 "../lib/struct.s7i" */ a->stru[12].value.intValue=b->stru[12].value.intValue; /* line 116 "../lib/struct.s7i" */ a->stru[13].value.intValue=b->stru[13].value.intValue; /* line 116 "../lib/struct.s7i" */ } /* line 116 "../lib/struct.s7i" */ return a; /* line 116 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 117 "../lib/struct.s7i" */ static void destr_96 (structType/*t_96_duration*/ b) /* line 117 "../lib/struct.s7i" */ { /* line 117 "../lib/struct.s7i" */ if (b != NULL && b->usage_count != 0) { b->usage_count--; if (b->usage_count == 0) { /* line 117 "../lib/struct.s7i" */ /* line 117 "../lib/struct.s7i" */ /* line 117 "../lib/struct.s7i" */ /* line 117 "../lib/struct.s7i" */ /* line 117 "../lib/struct.s7i" */ /* line 117 "../lib/struct.s7i" */ /* line 117 "../lib/struct.s7i" */ /* line 117 "../lib/struct.s7i" */ /* line 117 "../lib/struct.s7i" */ /* line 117 "../lib/struct.s7i" */ /* line 117 "../lib/struct.s7i" */ /* line 117 "../lib/struct.s7i" */ /* line 117 "../lib/struct.s7i" */ /* line 117 "../lib/struct.s7i" */ /* line 117 "../lib/struct.s7i" */ free((void *)(b)); /* line 117 "../lib/struct.s7i" */ }} /* line 117 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 168 "../lib/duration.s7i" */ static structType/*t_96_duration*/ o_2803_parse (/* attr t_96 duration*/ const const_striType/*t_15_string*/ value_o_2804_stri) { /* line 168 "../lib/duration.s7i" */ striType/*t_15_string*/ o_2804_stri; /* line 170 "../lib/duration.s7i" */ structType/*t_96_duration*/ o_2805_aDuration; /* line 168 "../lib/duration.s7i" */ o_2804_stri=strCreate(value_o_2804_stri); /* line 170 "../lib/duration.s7i" */ o_2805_aDuration=create_96(sct[39]); { /* line 172 "../lib/duration.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 172 "../lib/duration.s7i" */ ((structType)(o_2805_aDuration))->stru[0].value.intValue/*->o_2769_year_365*/=intParse((tmp_1=(striType/*t_15_string*/)(o_104_getint(&(o_2804_stri))))); /* line 172 "../lib/duration.s7i" */ strDestr(tmp_1); } /* line 173 "../lib/duration.s7i" */ if (((o_2804_stri)->mem[(idxChk((o_2804_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]) != ((charType) '-')) { /* line 174 "../lib/duration.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/duration.s7i", 174); } { /* line 176 "../lib/duration.s7i" */ struct striStruct slice_1; /* line 176 "../lib/duration.s7i" */ strCopy(&(o_2804_stri), (strTailSlice(o_2804_stri, 2L, &slice_1), &slice_1)); } { /* line 177 "../lib/duration.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 177 "../lib/duration.s7i" */ ((structType)(o_2805_aDuration))->stru[4].value.intValue/*->o_2773_month_30*/=intParse((tmp_1=(striType/*t_15_string*/)(o_104_getint(&(o_2804_stri))))); /* line 177 "../lib/duration.s7i" */ strDestr(tmp_1); } /* line 178 "../lib/duration.s7i" */ if (((o_2804_stri)->mem[(idxChk((o_2804_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]) != ((charType) '-')) { /* line 179 "../lib/duration.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/duration.s7i", 179); } { /* line 181 "../lib/duration.s7i" */ struct striStruct slice_1; /* line 181 "../lib/duration.s7i" */ strCopy(&(o_2804_stri), (strTailSlice(o_2804_stri, 2L, &slice_1), &slice_1)); } { /* line 182 "../lib/duration.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 182 "../lib/duration.s7i" */ ((structType)(o_2805_aDuration))->stru[6].value.intValue/*->o_1302_day*/=intParse((tmp_1=(striType/*t_15_string*/)(o_104_getint(&(o_2804_stri))))); /* line 182 "../lib/duration.s7i" */ strDestr(tmp_1); } /* line 183 "../lib/duration.s7i" */ if (((o_2804_stri)->mem[(idxChk((o_2804_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]) != ((charType) ' ')) { /* line 184 "../lib/duration.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/duration.s7i", 184); } { /* line 186 "../lib/duration.s7i" */ struct striStruct slice_1; /* line 186 "../lib/duration.s7i" */ strCopy(&(o_2804_stri), (strTailSlice(o_2804_stri, 2L, &slice_1), &slice_1)); } { /* line 187 "../lib/duration.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 187 "../lib/duration.s7i" */ ((structType)(o_2805_aDuration))->stru[7].value.intValue/*->o_1303_hour*/=intParse((tmp_1=(striType/*t_15_string*/)(o_104_getint(&(o_2804_stri))))); /* line 187 "../lib/duration.s7i" */ strDestr(tmp_1); } /* line 188 "../lib/duration.s7i" */ if (((o_2804_stri)->mem[(idxChk((o_2804_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]) != ((charType) ':')) { /* line 189 "../lib/duration.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/duration.s7i", 189); } { /* line 191 "../lib/duration.s7i" */ struct striStruct slice_1; /* line 191 "../lib/duration.s7i" */ strCopy(&(o_2804_stri), (strTailSlice(o_2804_stri, 2L, &slice_1), &slice_1)); } { /* line 192 "../lib/duration.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 192 "../lib/duration.s7i" */ ((structType)(o_2805_aDuration))->stru[8].value.intValue/*->o_1304_minute*/=intParse((tmp_1=(striType/*t_15_string*/)(o_104_getint(&(o_2804_stri))))); /* line 192 "../lib/duration.s7i" */ strDestr(tmp_1); } /* line 193 "../lib/duration.s7i" */ if (((o_2804_stri)->mem[(idxChk((o_2804_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]) != ((charType) ':')) { /* line 194 "../lib/duration.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/duration.s7i", 194); } { /* line 196 "../lib/duration.s7i" */ struct striStruct slice_1; /* line 196 "../lib/duration.s7i" */ strCopy(&(o_2804_stri), (strTailSlice(o_2804_stri, 2L, &slice_1), &slice_1)); } { /* line 197 "../lib/duration.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 197 "../lib/duration.s7i" */ ((structType)(o_2805_aDuration))->stru[9].value.intValue/*->o_1305_second*/=intParse((tmp_1=(striType/*t_15_string*/)(o_104_getint(&(o_2804_stri))))); /* line 197 "../lib/duration.s7i" */ strDestr(tmp_1); } /* line 198 "../lib/duration.s7i" */ if (((o_2804_stri)->size!=0 /* "" */)) { /* line 199 "../lib/duration.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/duration.s7i", 199); } /* line 201 "../lib/duration.s7i" */ ((structType)(o_2805_aDuration))->stru[10].value.intValue/*->o_1306_micro_second*/=0L; /* line 202 "../lib/duration.s7i" */ if (((((structType)(o_2805_aDuration))->stru[4].value.intValue/*->o_2773_month_30*/) < (1L)) || /* line 202 "../lib/duration.s7i" */ ((((structType)(o_2805_aDuration))->stru[4].value.intValue/*->o_2773_month_30*/) > (12L)) || /* line 203 "../lib/duration.s7i" */ ((((structType)(o_2805_aDuration))->stru[6].value.intValue/*->o_1302_day*/) < (1L)) || /* line 203 "../lib/duration.s7i" */ ((((structType)(o_2805_aDuration))->stru[6].value.intValue/*->o_1302_day*/) > (o_1315_daysInMonth(((structType)(o_2805_aDuration))->stru[0].value.intValue/*->o_2769_year_365*/, ((structType)(o_2805_aDuration))->stru[4].value.intValue/*->o_2773_month_30*/))) || /* line 204 "../lib/duration.s7i" */ ((((structType)(o_2805_aDuration))->stru[7].value.intValue/*->o_1303_hour*/) < (0L)) || /* line 204 "../lib/duration.s7i" */ ((((structType)(o_2805_aDuration))->stru[7].value.intValue/*->o_1303_hour*/) > (23L)) || /* line 205 "../lib/duration.s7i" */ ((((structType)(o_2805_aDuration))->stru[8].value.intValue/*->o_1304_minute*/) < (0L)) || /* line 205 "../lib/duration.s7i" */ ((((structType)(o_2805_aDuration))->stru[8].value.intValue/*->o_1304_minute*/) > (59L)) || /* line 206 "../lib/duration.s7i" */ ((((structType)(o_2805_aDuration))->stru[9].value.intValue/*->o_1305_second*/) < (0L)) || /* line 206 "../lib/duration.s7i" */ ((((structType)(o_2805_aDuration))->stru[9].value.intValue/*->o_1305_second*/) > (59L))) { /* line 207 "../lib/duration.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/duration.s7i", 207); } /* line 168 "../lib/duration.s7i" */ strDestr(o_2804_stri); return o_2805_aDuration; } /* line 1 "no_file" */ /* 1429 */ /* line 61 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_2806_read (interfaceType/*t_46_file*/ *const o_2807_inFile, structType/*t_96_duration*/ *const o_2808_aVar) { { /* line 63 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); { /* line 63 "../lib/enable_input.s7i" */ structType old_struct=*o_2808_aVar; /* line 63 "../lib/enable_input.s7i" */ *o_2808_aVar=o_2803_parse(/* attr t_96 duration*/ (tmp_2=(striType/*t_15_string*/)(o_921_getwd(o_2807_inFile)))); /* line 63 "../lib/enable_input.s7i" */ (*o_2808_aVar)->type_num = old_struct->type_num; /* line 63 "../lib/enable_input.s7i" */ destr_96(old_struct); } /* line 63 "../lib/enable_input.s7i" */ strDestr(tmp_2); } } /* line 1 "no_file" */ /* 1430 */ /* line 118 "../lib/struct.s7i" */ static void cpy_96 (structType/*t_96_duration*/ a, structType/*t_96_duration*/ b) /* line 118 "../lib/struct.s7i" */ { /* line 118 "../lib/struct.s7i" */ a->stru[0].value.intValue=b->stru[0].value.intValue; /* line 118 "../lib/struct.s7i" */ a->stru[1].value.intValue=b->stru[1].value.intValue; /* line 118 "../lib/struct.s7i" */ a->stru[2].value.intValue=b->stru[2].value.intValue; /* line 118 "../lib/struct.s7i" */ a->stru[3].value.intValue=b->stru[3].value.intValue; /* line 118 "../lib/struct.s7i" */ a->stru[4].value.intValue=b->stru[4].value.intValue; /* line 118 "../lib/struct.s7i" */ a->stru[5].value.intValue=b->stru[5].value.intValue; /* line 118 "../lib/struct.s7i" */ a->stru[6].value.intValue=b->stru[6].value.intValue; /* line 118 "../lib/struct.s7i" */ a->stru[7].value.intValue=b->stru[7].value.intValue; /* line 118 "../lib/struct.s7i" */ a->stru[8].value.intValue=b->stru[8].value.intValue; /* line 118 "../lib/struct.s7i" */ a->stru[9].value.intValue=b->stru[9].value.intValue; /* line 118 "../lib/struct.s7i" */ a->stru[10].value.intValue=b->stru[10].value.intValue; /* line 118 "../lib/struct.s7i" */ a->stru[11].value.intValue=b->stru[11].value.intValue; /* line 118 "../lib/struct.s7i" */ a->stru[12].value.intValue=b->stru[12].value.intValue; /* line 118 "../lib/struct.s7i" */ a->stru[13].value.intValue=b->stru[13].value.intValue; /* line 118 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 77 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_2809_read (interfaceType/*t_46_file*/ *const o_2810_inFile, structType/*t_96_duration*/ *const o_2811_aVar, const structType/*t_96_duration*/ value_o_2812_defaultValue) { /* line 77 "../lib/enable_input.s7i" */ structType/*t_96_duration*/ o_2812_defaultValue; /* line 80 "../lib/enable_input.s7i" */ striType/*t_15_string*/ o_2813_stri; /* line 77 "../lib/enable_input.s7i" */ o_2812_defaultValue=create_96(value_o_2812_defaultValue); /* line 80 "../lib/enable_input.s7i" */ o_2813_stri=strEmpty(); /* "" */ { /* line 82 "../lib/enable_input.s7i" */ striType old_stri=o_2813_stri; /* line 82 "../lib/enable_input.s7i" */ o_2813_stri=o_921_getwd(o_2810_inFile); /* line 82 "../lib/enable_input.s7i" */ strDestr(old_stri); } /* line 83 "../lib/enable_input.s7i" */ if (((o_2813_stri)->size==0 /* "" */)) { /* line 84 "../lib/enable_input.s7i" */ cpy_96((structType/*t_96_duration*/)(*o_2811_aVar), (structType/*t_96_duration*/)(o_2812_defaultValue)); } else { { /* line 86 "../lib/enable_input.s7i" */ structType old_struct=*o_2811_aVar; /* line 86 "../lib/enable_input.s7i" */ *o_2811_aVar=o_2803_parse(/* attr t_96 duration*/ o_2813_stri); /* line 86 "../lib/enable_input.s7i" */ (*o_2811_aVar)->type_num = old_struct->type_num; /* line 86 "../lib/enable_input.s7i" */ destr_96(old_struct); } } /* line 77 "../lib/enable_input.s7i" */ destr_96(o_2812_defaultValue); /* line 77 "../lib/enable_input.s7i" */ strDestr(o_2813_stri); } /* line 1 "no_file" */ /* 1431 */ /* line 99 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_2814_readln (interfaceType/*t_46_file*/ *const o_2815_inFile, structType/*t_96_duration*/ *const o_2816_aVar) { { /* line 101 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_3 = (striType/*t_15_string*/)(NULL); /* line 101 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); { /* line 101 "../lib/enable_input.s7i" */ structType old_struct=*o_2816_aVar; /* line 101 "../lib/enable_input.s7i" */ *o_2816_aVar=o_2803_parse(/* attr t_96 duration*/ (tmp_2=(striType/*t_15_string*/)(o_99_trimValue(&(typ[10] /* structType/t_96_duration */), (tmp_3=(striType/*t_15_string*/)(o_923_getln(o_2815_inFile))))))); /* line 101 "../lib/enable_input.s7i" */ (*o_2816_aVar)->type_num = old_struct->type_num; /* line 101 "../lib/enable_input.s7i" */ destr_96(old_struct); } /* line 101 "../lib/enable_input.s7i" */ strDestr(tmp_3); /* line 101 "../lib/enable_input.s7i" */ strDestr(tmp_2); } } /* line 1 "no_file" */ /* 1432 */ /* line 114 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_2817_readln (interfaceType/*t_46_file*/ *const o_2818_inFile, structType/*t_96_duration*/ *const o_2819_aVar, const structType/*t_96_duration*/ value_o_2820_defaultValue) { /* line 114 "../lib/enable_input.s7i" */ structType/*t_96_duration*/ o_2820_defaultValue; /* line 117 "../lib/enable_input.s7i" */ striType/*t_15_string*/ o_2821_stri; /* line 114 "../lib/enable_input.s7i" */ o_2820_defaultValue=create_96(value_o_2820_defaultValue); /* line 117 "../lib/enable_input.s7i" */ o_2821_stri=strEmpty(); /* "" */ { /* line 119 "../lib/enable_input.s7i" */ striType old_stri=o_2821_stri; /* line 119 "../lib/enable_input.s7i" */ o_2821_stri=o_923_getln(o_2818_inFile); /* line 119 "../lib/enable_input.s7i" */ strDestr(old_stri); } /* line 120 "../lib/enable_input.s7i" */ if (((o_2821_stri)->size==0 /* "" */)) { /* line 121 "../lib/enable_input.s7i" */ cpy_96((structType/*t_96_duration*/)(*o_2819_aVar), (structType/*t_96_duration*/)(o_2820_defaultValue)); } else { { /* line 123 "../lib/enable_input.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); { /* line 123 "../lib/enable_input.s7i" */ structType old_struct=*o_2819_aVar; /* line 123 "../lib/enable_input.s7i" */ *o_2819_aVar=o_2803_parse(/* attr t_96 duration*/ (tmp_2=(striType/*t_15_string*/)(o_99_trimValue(&(typ[10] /* structType/t_96_duration */), o_2821_stri)))); /* line 123 "../lib/enable_input.s7i" */ (*o_2819_aVar)->type_num = old_struct->type_num; /* line 123 "../lib/enable_input.s7i" */ destr_96(old_struct); } /* line 123 "../lib/enable_input.s7i" */ strDestr(tmp_2); } } /* line 114 "../lib/enable_input.s7i" */ destr_96(o_2820_defaultValue); /* line 114 "../lib/enable_input.s7i" */ strDestr(o_2821_stri); } /* line 1 "no_file" */ /* 1433 */ /* line 137 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_2822_read (structType/*t_96_duration*/ *const o_2823_aVar) { /* line 139 "../lib/enable_input.s7i" */ o_2806_read(&(o_1071_IN), o_2823_aVar); } /* line 1 "no_file" */ /* 1434 */ /* line 153 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_2824_read (structType/*t_96_duration*/ *const o_2825_aVar, const structType/*t_96_duration*/ value_o_2826_defaultValue) { /* line 153 "../lib/enable_input.s7i" */ structType/*t_96_duration*/ o_2826_defaultValue; /* line 153 "../lib/enable_input.s7i" */ o_2826_defaultValue=create_96(value_o_2826_defaultValue); /* line 155 "../lib/enable_input.s7i" */ o_2809_read(&(o_1071_IN), o_2825_aVar, o_2826_defaultValue); /* line 153 "../lib/enable_input.s7i" */ destr_96(o_2826_defaultValue); } /* line 1 "no_file" */ /* 1435 */ /* line 167 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_2827_readln (structType/*t_96_duration*/ *const o_2828_aVar) { /* line 169 "../lib/enable_input.s7i" */ o_2814_readln(&(o_1071_IN), o_2828_aVar); } /* line 1 "no_file" */ /* 1436 */ /* line 182 "../lib/enable_input.s7i" */ static void/*t_1_void*/ o_2829_readln (structType/*t_96_duration*/ *const o_2830_aVar, const structType/*t_96_duration*/ value_o_2831_defaultValue) { /* line 182 "../lib/enable_input.s7i" */ structType/*t_96_duration*/ o_2831_defaultValue; /* line 182 "../lib/enable_input.s7i" */ o_2831_defaultValue=create_96(value_o_2831_defaultValue); /* line 184 "../lib/enable_input.s7i" */ o_2817_readln(&(o_1071_IN), o_2830_aVar, o_2831_defaultValue); /* line 182 "../lib/enable_input.s7i" */ destr_96(o_2831_defaultValue); } /* line 1 "no_file" */ /* 1437 */ /* line 54 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_2832_write (interfaceType/*t_46_file*/ *const o_2833_aFile, const structType/*t_96_duration*/ value_o_2834_aValue) { /* line 54 "../lib/enable_output.s7i" */ structType/*t_96_duration*/ o_2834_aValue; /* line 54 "../lib/enable_output.s7i" */ o_2834_aValue=create_96(value_o_2834_aValue); { /* line 56 "../lib/enable_output.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 56 "../lib/enable_output.s7i" */ o_889_write(o_2833_aFile, (tmp_1=(striType/*t_15_string*/)(o_2797_str(o_2834_aValue)))); /* line 56 "../lib/enable_output.s7i" */ strDestr(tmp_1); } /* line 54 "../lib/enable_output.s7i" */ destr_96(o_2834_aValue); } /* line 1 "no_file" */ /* 1438 */ /* line 62 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_2835_writeln (interfaceType/*t_46_file*/ *const o_2836_aFile, const structType/*t_96_duration*/ value_o_2837_aValue) { /* line 62 "../lib/enable_output.s7i" */ structType/*t_96_duration*/ o_2837_aValue; /* line 62 "../lib/enable_output.s7i" */ o_2837_aValue=create_96(value_o_2837_aValue); { /* line 64 "../lib/enable_output.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 64 "../lib/enable_output.s7i" */ o_894_writeln(o_2836_aFile, (tmp_1=(striType/*t_15_string*/)(o_2797_str(o_2837_aValue)))); /* line 64 "../lib/enable_output.s7i" */ strDestr(tmp_1); } /* line 62 "../lib/enable_output.s7i" */ destr_96(o_2837_aValue); } /* line 1 "no_file" */ /* 1439 */ /* line 70 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_2838_write (const structType/*t_96_duration*/ value_o_2839_aValue) { /* line 70 "../lib/enable_output.s7i" */ structType/*t_96_duration*/ o_2839_aValue; /* line 70 "../lib/enable_output.s7i" */ o_2839_aValue=create_96(value_o_2839_aValue); /* line 72 "../lib/enable_output.s7i" */ o_2832_write(&(o_1074_OUT), o_2839_aValue); /* line 70 "../lib/enable_output.s7i" */ destr_96(o_2839_aValue); } /* line 1 "no_file" */ /* 1440 */ /* line 78 "../lib/enable_output.s7i" */ static void/*t_1_void*/ o_2840_writeln (const structType/*t_96_duration*/ value_o_2841_aValue) { /* line 78 "../lib/enable_output.s7i" */ structType/*t_96_duration*/ o_2841_aValue; /* line 78 "../lib/enable_output.s7i" */ o_2841_aValue=create_96(value_o_2841_aValue); /* line 80 "../lib/enable_output.s7i" */ o_2835_writeln(&(o_1074_OUT), o_2841_aValue); /* line 78 "../lib/enable_output.s7i" */ destr_96(o_2841_aValue); } /* line 1 "no_file" */ /* 1441 */ /* line 88 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_2842_lpad (const structType/*t_96_duration*/ value_o_2843_aValue, const intType/*t_14_integer*/ o_2844_leng) { /* line 89 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 89 "../lib/enable_output.s7i" */ structType/*t_96_duration*/ o_2843_aValue; /* line 89 "../lib/enable_output.s7i" */ o_2843_aValue=create_96(value_o_2843_aValue); /* line 89 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strLpadTemp(o_2797_str(o_2843_aValue), o_2844_leng))); /* line 89 "../lib/enable_output.s7i" */ destr_96(o_2843_aValue); /* line 89 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 1442 */ /* line 96 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_2845_rpad (const structType/*t_96_duration*/ value_o_2846_aValue, const intType/*t_14_integer*/ o_2847_leng) { /* line 97 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 97 "../lib/enable_output.s7i" */ structType/*t_96_duration*/ o_2846_aValue; /* line 97 "../lib/enable_output.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); /* line 97 "../lib/enable_output.s7i" */ o_2846_aValue=create_96(value_o_2846_aValue); /* line 97 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strRpad((tmp_2=(striType/*t_15_string*/)(o_2797_str(o_2846_aValue))), o_2847_leng))); /* line 97 "../lib/enable_output.s7i" */ destr_96(o_2846_aValue); /* line 97 "../lib/enable_output.s7i" */ strDestr(tmp_2); /* line 97 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 1443 */ /* line 104 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_2848/*<&*/ (const const_striType/*t_15_string*/ o_2849_stri, const structType/*t_96_duration*/ value_o_2850_aValue) { /* line 105 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 105 "../lib/enable_output.s7i" */ structType/*t_96_duration*/ o_2850_aValue; /* line 105 "../lib/enable_output.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); /* line 105 "../lib/enable_output.s7i" */ o_2850_aValue=create_96(value_o_2850_aValue); /* line 105 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strConcat(o_2849_stri, (tmp_2=(striType/*t_15_string*/)(o_2797_str(o_2850_aValue)))))); /* line 105 "../lib/enable_output.s7i" */ destr_96(o_2850_aValue); /* line 105 "../lib/enable_output.s7i" */ strDestr(tmp_2); /* line 105 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 1444 */ /* line 112 "../lib/enable_output.s7i" */ static striType/*t_15_string*/ o_2851/*<&*/ (const structType/*t_96_duration*/ value_o_2852_aValue, const const_striType/*t_15_string*/ o_2853_stri) { /* line 113 "../lib/enable_output.s7i" */ striType/*t_15_string*/ result; /* line 113 "../lib/enable_output.s7i" */ structType/*t_96_duration*/ o_2852_aValue; /* line 113 "../lib/enable_output.s7i" */ o_2852_aValue=create_96(value_o_2852_aValue); /* line 113 "../lib/enable_output.s7i" */ result=(striType/*t_15_string*/)((strConcatTemp(o_2797_str(o_2852_aValue), o_2853_stri))); /* line 113 "../lib/enable_output.s7i" */ destr_96(o_2852_aValue); /* line 113 "../lib/enable_output.s7i" */ return result; } /* line 1 "no_file" */ /* 1445 */ /* line 219 "../lib/duration.s7i" */ static boolType/*t_13_boolean*/ o_2854/*=*/ (const structType/*t_96_duration*/ o_2855_aDuration1, const structType/*t_96_duration*/ o_2856_aDuration2) { /* line 230 "../lib/duration.s7i" */ return (boolType/*t_13_boolean*/)((((((structType)(o_2855_aDuration1))->stru[0].value.intValue/*->o_2769_year_365*/) == (((structType)(o_2856_aDuration2))->stru[0].value.intValue/*->o_2769_year_365*/)) && /* line 222 "../lib/duration.s7i" */ ((((structType)(o_2855_aDuration1))->stru[1].value.intValue/*->o_2770_year_366*/) == (((structType)(o_2856_aDuration2))->stru[1].value.intValue/*->o_2770_year_366*/)) && /* line 223 "../lib/duration.s7i" */ ((((structType)(o_2855_aDuration1))->stru[2].value.intValue/*->o_2771_month_28*/) == (((structType)(o_2856_aDuration2))->stru[2].value.intValue/*->o_2771_month_28*/)) && /* line 224 "../lib/duration.s7i" */ ((((structType)(o_2855_aDuration1))->stru[3].value.intValue/*->o_2772_month_29*/) == (((structType)(o_2856_aDuration2))->stru[3].value.intValue/*->o_2772_month_29*/)) && /* line 225 "../lib/duration.s7i" */ ((((structType)(o_2855_aDuration1))->stru[4].value.intValue/*->o_2773_month_30*/) == (((structType)(o_2856_aDuration2))->stru[4].value.intValue/*->o_2773_month_30*/)) && /* line 226 "../lib/duration.s7i" */ ((((structType)(o_2855_aDuration1))->stru[5].value.intValue/*->o_2774_month_31*/) == (((structType)(o_2856_aDuration2))->stru[5].value.intValue/*->o_2774_month_31*/)) && /* line 227 "../lib/duration.s7i" */ ((((structType)(o_2855_aDuration1))->stru[6].value.intValue/*->o_1302_day*/) == (((structType)(o_2856_aDuration2))->stru[6].value.intValue/*->o_1302_day*/)) && /* line 228 "../lib/duration.s7i" */ ((((structType)(o_2855_aDuration1))->stru[7].value.intValue/*->o_1303_hour*/) == (((structType)(o_2856_aDuration2))->stru[7].value.intValue/*->o_1303_hour*/)) && /* line 229 "../lib/duration.s7i" */ ((((structType)(o_2855_aDuration1))->stru[8].value.intValue/*->o_1304_minute*/) == (((structType)(o_2856_aDuration2))->stru[8].value.intValue/*->o_1304_minute*/)) && /* line 230 "../lib/duration.s7i" */ ((((structType)(o_2855_aDuration1))->stru[9].value.intValue/*->o_1305_second*/) == (((structType)(o_2856_aDuration2))->stru[9].value.intValue/*->o_1305_second*/)) && /* line 231 "../lib/duration.s7i" */ ((((structType)(o_2855_aDuration1))->stru[10].value.intValue/*->o_1306_micro_second*/) == (((structType)(o_2856_aDuration2))->stru[10].value.intValue/*->o_1306_micro_second*/)))); } /* line 1 "no_file" */ /* 1446 */ /* line 238 "../lib/duration.s7i" */ static boolType/*t_13_boolean*/ o_2857/*<>*/ (const structType/*t_96_duration*/ o_2858_aDuration1, const structType/*t_96_duration*/ o_2859_aDuration2) { /* line 249 "../lib/duration.s7i" */ return (boolType/*t_13_boolean*/)((((((structType)(o_2858_aDuration1))->stru[0].value.intValue/*->o_2769_year_365*/) != (((structType)(o_2859_aDuration2))->stru[0].value.intValue/*->o_2769_year_365*/)) || /* line 241 "../lib/duration.s7i" */ ((((structType)(o_2858_aDuration1))->stru[1].value.intValue/*->o_2770_year_366*/) != (((structType)(o_2859_aDuration2))->stru[1].value.intValue/*->o_2770_year_366*/)) || /* line 242 "../lib/duration.s7i" */ ((((structType)(o_2858_aDuration1))->stru[2].value.intValue/*->o_2771_month_28*/) != (((structType)(o_2859_aDuration2))->stru[2].value.intValue/*->o_2771_month_28*/)) || /* line 243 "../lib/duration.s7i" */ ((((structType)(o_2858_aDuration1))->stru[3].value.intValue/*->o_2772_month_29*/) != (((structType)(o_2859_aDuration2))->stru[3].value.intValue/*->o_2772_month_29*/)) || /* line 244 "../lib/duration.s7i" */ ((((structType)(o_2858_aDuration1))->stru[4].value.intValue/*->o_2773_month_30*/) != (((structType)(o_2859_aDuration2))->stru[4].value.intValue/*->o_2773_month_30*/)) || /* line 245 "../lib/duration.s7i" */ ((((structType)(o_2858_aDuration1))->stru[5].value.intValue/*->o_2774_month_31*/) != (((structType)(o_2859_aDuration2))->stru[5].value.intValue/*->o_2774_month_31*/)) || /* line 246 "../lib/duration.s7i" */ ((((structType)(o_2858_aDuration1))->stru[6].value.intValue/*->o_1302_day*/) != (((structType)(o_2859_aDuration2))->stru[6].value.intValue/*->o_1302_day*/)) || /* line 247 "../lib/duration.s7i" */ ((((structType)(o_2858_aDuration1))->stru[7].value.intValue/*->o_1303_hour*/) != (((structType)(o_2859_aDuration2))->stru[7].value.intValue/*->o_1303_hour*/)) || /* line 248 "../lib/duration.s7i" */ ((((structType)(o_2858_aDuration1))->stru[8].value.intValue/*->o_1304_minute*/) != (((structType)(o_2859_aDuration2))->stru[8].value.intValue/*->o_1304_minute*/)) || /* line 249 "../lib/duration.s7i" */ ((((structType)(o_2858_aDuration1))->stru[9].value.intValue/*->o_1305_second*/) != (((structType)(o_2859_aDuration2))->stru[9].value.intValue/*->o_1305_second*/)) || /* line 250 "../lib/duration.s7i" */ ((((structType)(o_2858_aDuration1))->stru[10].value.intValue/*->o_1306_micro_second*/) != (((structType)(o_2859_aDuration2))->stru[10].value.intValue/*->o_1306_micro_second*/)))); } /* line 1 "no_file" */ /* 1447 */ /* line 258 "../lib/duration.s7i" */ static boolType/*t_13_boolean*/ o_2860/*<=*/ (const structType/*t_96_duration*/ o_2861_aDuration1, const structType/*t_96_duration*/ o_2862_aDuration2) { /* line 260 "../lib/duration.s7i" */ boolType/*t_13_boolean*/ o_2863_isLessEqual=o_25_FALSE; /* line 262 "../lib/duration.s7i" */ if (((((structType)(o_2861_aDuration1))->stru[0].value.intValue/*->o_2769_year_365*/) + (((structType)(o_2861_aDuration1))->stru[1].value.intValue/*->o_2770_year_366*/)) < ((((structType)(o_2862_aDuration2))->stru[0].value.intValue/*->o_2769_year_365*/) + (((structType)(o_2862_aDuration2))->stru[1].value.intValue/*->o_2770_year_366*/))) { /* line 263 "../lib/duration.s7i" */ o_2863_isLessEqual=o_26_TRUE; } else /* line 264 "../lib/duration.s7i" */ if (((((structType)(o_2861_aDuration1))->stru[0].value.intValue/*->o_2769_year_365*/) + (((structType)(o_2861_aDuration1))->stru[1].value.intValue/*->o_2770_year_366*/)) == ((((structType)(o_2862_aDuration2))->stru[0].value.intValue/*->o_2769_year_365*/) + (((structType)(o_2862_aDuration2))->stru[1].value.intValue/*->o_2770_year_366*/))) { /* line 265 "../lib/duration.s7i" */ if (((((((structType)(o_2861_aDuration1))->stru[2].value.intValue/*->o_2771_month_28*/) + (((structType)(o_2861_aDuration1))->stru[3].value.intValue/*->o_2772_month_29*/)) + (((structType)(o_2861_aDuration1))->stru[4].value.intValue/*->o_2773_month_30*/)) + (((structType)(o_2861_aDuration1))->stru[5].value.intValue/*->o_2774_month_31*/)) < ((((((structType)(o_2862_aDuration2))->stru[2].value.intValue/*->o_2771_month_28*/) + (((structType)(o_2862_aDuration2))->stru[3].value.intValue/*->o_2772_month_29*/)) + (((structType)(o_2862_aDuration2))->stru[4].value.intValue/*->o_2773_month_30*/)) + (((structType)(o_2862_aDuration2))->stru[5].value.intValue/*->o_2774_month_31*/))) { /* line 267 "../lib/duration.s7i" */ o_2863_isLessEqual=o_26_TRUE; } else /* line 268 "../lib/duration.s7i" */ if (((((((structType)(o_2861_aDuration1))->stru[2].value.intValue/*->o_2771_month_28*/) + (((structType)(o_2861_aDuration1))->stru[3].value.intValue/*->o_2772_month_29*/)) + (((structType)(o_2861_aDuration1))->stru[4].value.intValue/*->o_2773_month_30*/)) + (((structType)(o_2861_aDuration1))->stru[5].value.intValue/*->o_2774_month_31*/)) == ((((((structType)(o_2862_aDuration2))->stru[2].value.intValue/*->o_2771_month_28*/) + (((structType)(o_2862_aDuration2))->stru[3].value.intValue/*->o_2772_month_29*/)) + (((structType)(o_2862_aDuration2))->stru[4].value.intValue/*->o_2773_month_30*/)) + (((structType)(o_2862_aDuration2))->stru[5].value.intValue/*->o_2774_month_31*/))) { /* line 270 "../lib/duration.s7i" */ if ((((structType)(o_2861_aDuration1))->stru[6].value.intValue/*->o_1302_day*/) < (((structType)(o_2862_aDuration2))->stru[6].value.intValue/*->o_1302_day*/)) { /* line 271 "../lib/duration.s7i" */ o_2863_isLessEqual=o_26_TRUE; } else /* line 272 "../lib/duration.s7i" */ if ((((structType)(o_2861_aDuration1))->stru[6].value.intValue/*->o_1302_day*/) == (((structType)(o_2862_aDuration2))->stru[6].value.intValue/*->o_1302_day*/)) { /* line 273 "../lib/duration.s7i" */ if ((((structType)(o_2861_aDuration1))->stru[7].value.intValue/*->o_1303_hour*/) < (((structType)(o_2862_aDuration2))->stru[7].value.intValue/*->o_1303_hour*/)) { /* line 274 "../lib/duration.s7i" */ o_2863_isLessEqual=o_26_TRUE; } else /* line 275 "../lib/duration.s7i" */ if ((((structType)(o_2861_aDuration1))->stru[7].value.intValue/*->o_1303_hour*/) == (((structType)(o_2862_aDuration2))->stru[7].value.intValue/*->o_1303_hour*/)) { /* line 276 "../lib/duration.s7i" */ if ((((structType)(o_2861_aDuration1))->stru[8].value.intValue/*->o_1304_minute*/) < (((structType)(o_2862_aDuration2))->stru[8].value.intValue/*->o_1304_minute*/)) { /* line 277 "../lib/duration.s7i" */ o_2863_isLessEqual=o_26_TRUE; } else /* line 278 "../lib/duration.s7i" */ if ((((structType)(o_2861_aDuration1))->stru[8].value.intValue/*->o_1304_minute*/) == (((structType)(o_2862_aDuration2))->stru[8].value.intValue/*->o_1304_minute*/)) { /* line 279 "../lib/duration.s7i" */ if ((((structType)(o_2861_aDuration1))->stru[9].value.intValue/*->o_1305_second*/) < (((structType)(o_2862_aDuration2))->stru[9].value.intValue/*->o_1305_second*/)) { /* line 280 "../lib/duration.s7i" */ o_2863_isLessEqual=o_26_TRUE; } else /* line 281 "../lib/duration.s7i" */ if ((((structType)(o_2861_aDuration1))->stru[9].value.intValue/*->o_1305_second*/) == (((structType)(o_2862_aDuration2))->stru[9].value.intValue/*->o_1305_second*/)) { /* line 282 "../lib/duration.s7i" */ if ((((structType)(o_2861_aDuration1))->stru[10].value.intValue/*->o_1306_micro_second*/) <= (((structType)(o_2862_aDuration2))->stru[10].value.intValue/*->o_1306_micro_second*/)) { /* line 283 "../lib/duration.s7i" */ o_2863_isLessEqual=o_26_TRUE; } } } } } } } return o_2863_isLessEqual; } /* line 1 "no_file" */ /* 1448 */ /* line 299 "../lib/duration.s7i" */ static boolType/*t_13_boolean*/ o_2864/*>=*/ (const structType/*t_96_duration*/ o_2865_aDuration1, const structType/*t_96_duration*/ o_2866_aDuration2) { /* line 301 "../lib/duration.s7i" */ boolType/*t_13_boolean*/ o_2867_isGreaterEqual=o_25_FALSE; /* line 303 "../lib/duration.s7i" */ if (((((structType)(o_2865_aDuration1))->stru[0].value.intValue/*->o_2769_year_365*/) + (((structType)(o_2865_aDuration1))->stru[1].value.intValue/*->o_2770_year_366*/)) > ((((structType)(o_2866_aDuration2))->stru[0].value.intValue/*->o_2769_year_365*/) + (((structType)(o_2866_aDuration2))->stru[1].value.intValue/*->o_2770_year_366*/))) { /* line 304 "../lib/duration.s7i" */ o_2867_isGreaterEqual=o_26_TRUE; } else /* line 305 "../lib/duration.s7i" */ if (((((structType)(o_2865_aDuration1))->stru[0].value.intValue/*->o_2769_year_365*/) + (((structType)(o_2865_aDuration1))->stru[1].value.intValue/*->o_2770_year_366*/)) == ((((structType)(o_2866_aDuration2))->stru[0].value.intValue/*->o_2769_year_365*/) + (((structType)(o_2866_aDuration2))->stru[1].value.intValue/*->o_2770_year_366*/))) { /* line 306 "../lib/duration.s7i" */ if (((((((structType)(o_2865_aDuration1))->stru[2].value.intValue/*->o_2771_month_28*/) + (((structType)(o_2865_aDuration1))->stru[3].value.intValue/*->o_2772_month_29*/)) + (((structType)(o_2865_aDuration1))->stru[4].value.intValue/*->o_2773_month_30*/)) + (((structType)(o_2865_aDuration1))->stru[5].value.intValue/*->o_2774_month_31*/)) > ((((((structType)(o_2866_aDuration2))->stru[2].value.intValue/*->o_2771_month_28*/) + (((structType)(o_2866_aDuration2))->stru[3].value.intValue/*->o_2772_month_29*/)) + (((structType)(o_2866_aDuration2))->stru[4].value.intValue/*->o_2773_month_30*/)) + (((structType)(o_2866_aDuration2))->stru[5].value.intValue/*->o_2774_month_31*/))) { /* line 308 "../lib/duration.s7i" */ o_2867_isGreaterEqual=o_26_TRUE; } else /* line 309 "../lib/duration.s7i" */ if (((((((structType)(o_2865_aDuration1))->stru[2].value.intValue/*->o_2771_month_28*/) + (((structType)(o_2865_aDuration1))->stru[3].value.intValue/*->o_2772_month_29*/)) + (((structType)(o_2865_aDuration1))->stru[4].value.intValue/*->o_2773_month_30*/)) + (((structType)(o_2865_aDuration1))->stru[5].value.intValue/*->o_2774_month_31*/)) == ((((((structType)(o_2866_aDuration2))->stru[2].value.intValue/*->o_2771_month_28*/) + (((structType)(o_2866_aDuration2))->stru[3].value.intValue/*->o_2772_month_29*/)) + (((structType)(o_2866_aDuration2))->stru[4].value.intValue/*->o_2773_month_30*/)) + (((structType)(o_2866_aDuration2))->stru[5].value.intValue/*->o_2774_month_31*/))) { /* line 311 "../lib/duration.s7i" */ if ((((structType)(o_2865_aDuration1))->stru[6].value.intValue/*->o_1302_day*/) > (((structType)(o_2866_aDuration2))->stru[6].value.intValue/*->o_1302_day*/)) { /* line 312 "../lib/duration.s7i" */ o_2867_isGreaterEqual=o_26_TRUE; } else /* line 313 "../lib/duration.s7i" */ if ((((structType)(o_2865_aDuration1))->stru[6].value.intValue/*->o_1302_day*/) == (((structType)(o_2866_aDuration2))->stru[6].value.intValue/*->o_1302_day*/)) { /* line 314 "../lib/duration.s7i" */ if ((((structType)(o_2865_aDuration1))->stru[7].value.intValue/*->o_1303_hour*/) > (((structType)(o_2866_aDuration2))->stru[7].value.intValue/*->o_1303_hour*/)) { /* line 315 "../lib/duration.s7i" */ o_2867_isGreaterEqual=o_26_TRUE; } else /* line 316 "../lib/duration.s7i" */ if ((((structType)(o_2865_aDuration1))->stru[7].value.intValue/*->o_1303_hour*/) == (((structType)(o_2866_aDuration2))->stru[7].value.intValue/*->o_1303_hour*/)) { /* line 317 "../lib/duration.s7i" */ if ((((structType)(o_2865_aDuration1))->stru[8].value.intValue/*->o_1304_minute*/) > (((structType)(o_2866_aDuration2))->stru[8].value.intValue/*->o_1304_minute*/)) { /* line 318 "../lib/duration.s7i" */ o_2867_isGreaterEqual=o_26_TRUE; } else /* line 319 "../lib/duration.s7i" */ if ((((structType)(o_2865_aDuration1))->stru[8].value.intValue/*->o_1304_minute*/) == (((structType)(o_2866_aDuration2))->stru[8].value.intValue/*->o_1304_minute*/)) { /* line 320 "../lib/duration.s7i" */ if ((((structType)(o_2865_aDuration1))->stru[9].value.intValue/*->o_1305_second*/) > (((structType)(o_2866_aDuration2))->stru[9].value.intValue/*->o_1305_second*/)) { /* line 321 "../lib/duration.s7i" */ o_2867_isGreaterEqual=o_26_TRUE; } else /* line 322 "../lib/duration.s7i" */ if ((((structType)(o_2865_aDuration1))->stru[9].value.intValue/*->o_1305_second*/) == (((structType)(o_2866_aDuration2))->stru[9].value.intValue/*->o_1305_second*/)) { /* line 323 "../lib/duration.s7i" */ if ((((structType)(o_2865_aDuration1))->stru[10].value.intValue/*->o_1306_micro_second*/) >= (((structType)(o_2866_aDuration2))->stru[10].value.intValue/*->o_1306_micro_second*/)) { /* line 324 "../lib/duration.s7i" */ o_2867_isGreaterEqual=o_26_TRUE; } } } } } } } return o_2867_isGreaterEqual; } /* line 1 "no_file" */ /* 1449 */ /* line 340 "../lib/duration.s7i" */ static boolType/*t_13_boolean*/ o_2868/*<*/ (const structType/*t_96_duration*/ o_2869_aDuration1, const structType/*t_96_duration*/ o_2870_aDuration2) { /* line 341 "../lib/duration.s7i" */ return (boolType/*t_13_boolean*/)((!(o_2864/*>=*/(o_2869_aDuration1, o_2870_aDuration2)))); } /* line 1 "no_file" */ /* 1450 */ /* line 349 "../lib/duration.s7i" */ static boolType/*t_13_boolean*/ o_2871/*>*/ (const structType/*t_96_duration*/ o_2872_aDuration1, const structType/*t_96_duration*/ o_2873_aDuration2) { /* line 350 "../lib/duration.s7i" */ return (boolType/*t_13_boolean*/)((!(o_2860/*<=*/(o_2872_aDuration1, o_2873_aDuration2)))); } /* line 1 "no_file" */ /* 1451 */ /* line 358 "../lib/duration.s7i" */ static intType/*t_14_integer*/ o_2874_compare (const structType/*t_96_duration*/ o_2875_aDuration1, const structType/*t_96_duration*/ o_2876_aDuration2) { /* line 360 "../lib/duration.s7i" */ intType/*t_14_integer*/ o_2877_signumValue=0; /* line 362 "../lib/duration.s7i" */ if (((((structType)(o_2875_aDuration1))->stru[0].value.intValue/*->o_2769_year_365*/) + (((structType)(o_2875_aDuration1))->stru[1].value.intValue/*->o_2770_year_366*/)) < ((((structType)(o_2876_aDuration2))->stru[0].value.intValue/*->o_2769_year_365*/) + (((structType)(o_2876_aDuration2))->stru[1].value.intValue/*->o_2770_year_366*/))) { /* line 363 "../lib/duration.s7i" */ o_2877_signumValue=-1L; } else /* line 364 "../lib/duration.s7i" */ if (((((structType)(o_2875_aDuration1))->stru[0].value.intValue/*->o_2769_year_365*/) + (((structType)(o_2875_aDuration1))->stru[1].value.intValue/*->o_2770_year_366*/)) > ((((structType)(o_2876_aDuration2))->stru[0].value.intValue/*->o_2769_year_365*/) + (((structType)(o_2876_aDuration2))->stru[1].value.intValue/*->o_2770_year_366*/))) { /* line 365 "../lib/duration.s7i" */ o_2877_signumValue=1L; } else /* line 366 "../lib/duration.s7i" */ if (((((((structType)(o_2875_aDuration1))->stru[2].value.intValue/*->o_2771_month_28*/) + (((structType)(o_2875_aDuration1))->stru[3].value.intValue/*->o_2772_month_29*/)) + (((structType)(o_2875_aDuration1))->stru[4].value.intValue/*->o_2773_month_30*/)) + (((structType)(o_2875_aDuration1))->stru[5].value.intValue/*->o_2774_month_31*/)) < ((((((structType)(o_2876_aDuration2))->stru[2].value.intValue/*->o_2771_month_28*/) + (((structType)(o_2876_aDuration2))->stru[3].value.intValue/*->o_2772_month_29*/)) + (((structType)(o_2876_aDuration2))->stru[4].value.intValue/*->o_2773_month_30*/)) + (((structType)(o_2876_aDuration2))->stru[5].value.intValue/*->o_2774_month_31*/))) { /* line 368 "../lib/duration.s7i" */ o_2877_signumValue=-1L; } else /* line 369 "../lib/duration.s7i" */ if (((((((structType)(o_2875_aDuration1))->stru[2].value.intValue/*->o_2771_month_28*/) + (((structType)(o_2875_aDuration1))->stru[3].value.intValue/*->o_2772_month_29*/)) + (((structType)(o_2875_aDuration1))->stru[4].value.intValue/*->o_2773_month_30*/)) + (((structType)(o_2875_aDuration1))->stru[5].value.intValue/*->o_2774_month_31*/)) > ((((((structType)(o_2876_aDuration2))->stru[2].value.intValue/*->o_2771_month_28*/) + (((structType)(o_2876_aDuration2))->stru[3].value.intValue/*->o_2772_month_29*/)) + (((structType)(o_2876_aDuration2))->stru[4].value.intValue/*->o_2773_month_30*/)) + (((structType)(o_2876_aDuration2))->stru[5].value.intValue/*->o_2774_month_31*/))) { /* line 371 "../lib/duration.s7i" */ o_2877_signumValue=1L; } else /* line 372 "../lib/duration.s7i" */ if ((((structType)(o_2875_aDuration1))->stru[6].value.intValue/*->o_1302_day*/) < (((structType)(o_2876_aDuration2))->stru[6].value.intValue/*->o_1302_day*/)) { /* line 373 "../lib/duration.s7i" */ o_2877_signumValue=-1L; } else /* line 374 "../lib/duration.s7i" */ if ((((structType)(o_2875_aDuration1))->stru[6].value.intValue/*->o_1302_day*/) > (((structType)(o_2876_aDuration2))->stru[6].value.intValue/*->o_1302_day*/)) { /* line 375 "../lib/duration.s7i" */ o_2877_signumValue=1L; } else /* line 376 "../lib/duration.s7i" */ if ((((structType)(o_2875_aDuration1))->stru[7].value.intValue/*->o_1303_hour*/) < (((structType)(o_2876_aDuration2))->stru[7].value.intValue/*->o_1303_hour*/)) { /* line 377 "../lib/duration.s7i" */ o_2877_signumValue=-1L; } else /* line 378 "../lib/duration.s7i" */ if ((((structType)(o_2875_aDuration1))->stru[7].value.intValue/*->o_1303_hour*/) > (((structType)(o_2876_aDuration2))->stru[7].value.intValue/*->o_1303_hour*/)) { /* line 379 "../lib/duration.s7i" */ o_2877_signumValue=1L; } else /* line 380 "../lib/duration.s7i" */ if ((((structType)(o_2875_aDuration1))->stru[8].value.intValue/*->o_1304_minute*/) < (((structType)(o_2876_aDuration2))->stru[8].value.intValue/*->o_1304_minute*/)) { /* line 381 "../lib/duration.s7i" */ o_2877_signumValue=-1L; } else /* line 382 "../lib/duration.s7i" */ if ((((structType)(o_2875_aDuration1))->stru[8].value.intValue/*->o_1304_minute*/) > (((structType)(o_2876_aDuration2))->stru[8].value.intValue/*->o_1304_minute*/)) { /* line 383 "../lib/duration.s7i" */ o_2877_signumValue=1L; } else /* line 384 "../lib/duration.s7i" */ if ((((structType)(o_2875_aDuration1))->stru[9].value.intValue/*->o_1305_second*/) < (((structType)(o_2876_aDuration2))->stru[9].value.intValue/*->o_1305_second*/)) { /* line 385 "../lib/duration.s7i" */ o_2877_signumValue=-1L; } else /* line 386 "../lib/duration.s7i" */ if ((((structType)(o_2875_aDuration1))->stru[9].value.intValue/*->o_1305_second*/) > (((structType)(o_2876_aDuration2))->stru[9].value.intValue/*->o_1305_second*/)) { /* line 387 "../lib/duration.s7i" */ o_2877_signumValue=1L; } else /* line 388 "../lib/duration.s7i" */ if ((((structType)(o_2875_aDuration1))->stru[10].value.intValue/*->o_1306_micro_second*/) < (((structType)(o_2876_aDuration2))->stru[10].value.intValue/*->o_1306_micro_second*/)) { /* line 389 "../lib/duration.s7i" */ o_2877_signumValue=-1L; } else /* line 390 "../lib/duration.s7i" */ if ((((structType)(o_2875_aDuration1))->stru[10].value.intValue/*->o_1306_micro_second*/) > (((structType)(o_2876_aDuration2))->stru[10].value.intValue/*->o_1306_micro_second*/)) { /* line 391 "../lib/duration.s7i" */ o_2877_signumValue=1L; } return o_2877_signumValue; } /* line 1 "no_file" */ /* 1452 */ /* line 400 "../lib/duration.s7i" */ static intType/*t_14_integer*/ o_2878_hashCode (const structType/*t_96_duration*/ o_2879_aDuration) { /* line 404 "../lib/duration.s7i" */ intType/*t_14_integer*/ result; /* line 404 "../lib/duration.s7i" */ intType tmp_1; /* line 404 "../lib/duration.s7i" */ intType tmp_2; /* line 404 "../lib/duration.s7i" */ intType tmp_3; /* line 404 "../lib/duration.s7i" */ intType tmp_4; /* line 404 "../lib/duration.s7i" */ intType tmp_5; /* line 404 "../lib/duration.s7i" */ intType tmp_6; /* line 404 "../lib/duration.s7i" */ intType lshift_7; /* line 404 "../lib/duration.s7i" */ intType lshift_8; /* line 404 "../lib/duration.s7i" */ intType lshift_9; /* line 404 "../lib/duration.s7i" */ intType lshift_10; /* line 404 "../lib/duration.s7i" */ intType lshift_11; /* line 404 "../lib/duration.s7i" */ intType lshift_12; /* line 404 "../lib/duration.s7i" */ result=(intType/*t_14_integer*/)(((tmp_1=(tmp_2=(tmp_3=(tmp_4=(tmp_5=(tmp_6=(((structType)(o_2879_aDuration))->stru[0].value.intValue/*->o_2769_year_365*/) + (((structType)(o_2879_aDuration))->stru[1].value.intValue/*->o_2770_year_366*/),lshift_7=((((((structType)(o_2879_aDuration))->stru[2].value.intValue/*->o_2771_month_28*/) + (((structType)(o_2879_aDuration))->stru[3].value.intValue/*->o_2772_month_29*/)) + (((structType)(o_2879_aDuration))->stru[4].value.intValue/*->o_2773_month_30*/)) + (((structType)(o_2879_aDuration))->stru[5].value.intValue/*->o_2774_month_31*/)) + 6L,ovfChk((uintType)lshift_7>=(uintType)64L||tmp_6<(-9223372036854775807L-1L)>>lshift_7||tmp_6>9223372036854775807L>>lshift_7)?intRaiseError(OVERFLOW_ERROR):tmp_6 << lshift_7),lshift_8=(((structType)(o_2879_aDuration))->stru[6].value.intValue/*->o_1302_day*/) + 5L,ovfChk((uintType)lshift_8>=(uintType)64L||tmp_5<(-9223372036854775807L-1L)>>lshift_8||tmp_5>9223372036854775807L>>lshift_8)?intRaiseError(OVERFLOW_ERROR):tmp_5 << lshift_8),lshift_9=(((structType)(o_2879_aDuration))->stru[7].value.intValue/*->o_1303_hour*/) + 4L,ovfChk((uintType)lshift_9>=(uintType)64L||tmp_4<(-9223372036854775807L-1L)>>lshift_9||tmp_4>9223372036854775807L>>lshift_9)?intRaiseError(OVERFLOW_ERROR):tmp_4 << lshift_9),lshift_10=(((structType)(o_2879_aDuration))->stru[8].value.intValue/*->o_1304_minute*/) + 3L,ovfChk((uintType)lshift_10>=(uintType)64L||tmp_3<(-9223372036854775807L-1L)>>lshift_10||tmp_3>9223372036854775807L>>lshift_10)?intRaiseError(OVERFLOW_ERROR):tmp_3 << lshift_10),lshift_11=(((structType)(o_2879_aDuration))->stru[9].value.intValue/*->o_1305_second*/) + 2L,ovfChk((uintType)lshift_11>=(uintType)64L||tmp_2<(-9223372036854775807L-1L)>>lshift_11||tmp_2>9223372036854775807L>>lshift_11)?intRaiseError(OVERFLOW_ERROR):tmp_2 << lshift_11),lshift_12=(((structType)(o_2879_aDuration))->stru[10].value.intValue/*->o_1306_micro_second*/) + 1L,ovfChk((uintType)lshift_12>=(uintType)64L||tmp_1<(-9223372036854775807L-1L)>>lshift_12||tmp_1>9223372036854775807L>>lshift_12)?intRaiseError(OVERFLOW_ERROR):tmp_1 << lshift_12))); /* line 404 "../lib/duration.s7i" */ return result; } /* line 1 "no_file" */ /* 1453 */ /* line 408 "../lib/duration.s7i" */ static structType/*t_96_duration*/ o_2880/*.*/ (const intType/*t_14_integer*/ o_2881_numYears) { /* line 410 "../lib/duration.s7i" */ structType/*t_96_duration*/ o_2882_dur_val; /* line 410 "../lib/duration.s7i" */ o_2882_dur_val=create_96(sct[39]); /* line 412 "../lib/duration.s7i" */ ((structType)(o_2882_dur_val))->stru[0].value.intValue/*->o_2769_year_365*/=o_2881_numYears; return o_2882_dur_val; } /* line 1 "no_file" */ /* 1454 */ /* line 416 "../lib/duration.s7i" */ static structType/*t_96_duration*/ o_2883/*.*/ (const intType/*t_14_integer*/ o_2884_numMonths) { /* line 418 "../lib/duration.s7i" */ structType/*t_96_duration*/ o_2885_dur_val; /* line 418 "../lib/duration.s7i" */ o_2885_dur_val=create_96(sct[39]); /* line 420 "../lib/duration.s7i" */ ((structType)(o_2885_dur_val))->stru[4].value.intValue/*->o_2773_month_30*/=o_2884_numMonths; return o_2885_dur_val; } /* line 1 "no_file" */ /* 1455 */ /* line 424 "../lib/duration.s7i" */ static structType/*t_96_duration*/ o_2886/*.*/ (const intType/*t_14_integer*/ o_2887_numDays) { /* line 426 "../lib/duration.s7i" */ structType/*t_96_duration*/ o_2888_dur_val; /* line 426 "../lib/duration.s7i" */ o_2888_dur_val=create_96(sct[39]); /* line 428 "../lib/duration.s7i" */ ((structType)(o_2888_dur_val))->stru[6].value.intValue/*->o_1302_day*/=o_2887_numDays; return o_2888_dur_val; } /* line 1 "no_file" */ /* 1456 */ /* line 432 "../lib/duration.s7i" */ static structType/*t_96_duration*/ o_2889/*.*/ (const intType/*t_14_integer*/ o_2890_HRS) { /* line 434 "../lib/duration.s7i" */ structType/*t_96_duration*/ o_2891_dur_val; /* line 434 "../lib/duration.s7i" */ o_2891_dur_val=create_96(sct[39]); /* line 436 "../lib/duration.s7i" */ ((structType)(o_2891_dur_val))->stru[7].value.intValue/*->o_1303_hour*/=o_2890_HRS; return o_2891_dur_val; } /* line 1 "no_file" */ /* 1457 */ /* line 440 "../lib/duration.s7i" */ static structType/*t_96_duration*/ o_2892/*.*/ (const intType/*t_14_integer*/ o_2893_MINS) { /* line 442 "../lib/duration.s7i" */ structType/*t_96_duration*/ o_2894_dur_val; /* line 442 "../lib/duration.s7i" */ o_2894_dur_val=create_96(sct[39]); /* line 444 "../lib/duration.s7i" */ ((structType)(o_2894_dur_val))->stru[8].value.intValue/*->o_1304_minute*/=o_2893_MINS; return o_2894_dur_val; } /* line 1 "no_file" */ /* 1458 */ /* line 448 "../lib/duration.s7i" */ static structType/*t_96_duration*/ o_2895/*.*/ (const intType/*t_14_integer*/ o_2896_SECS) { /* line 450 "../lib/duration.s7i" */ structType/*t_96_duration*/ o_2897_dur_val; /* line 450 "../lib/duration.s7i" */ o_2897_dur_val=create_96(sct[39]); /* line 452 "../lib/duration.s7i" */ ((structType)(o_2897_dur_val))->stru[9].value.intValue/*->o_1305_second*/=o_2896_SECS; return o_2897_dur_val; } /* line 1 "no_file" */ /* 1459 */ /* line 456 "../lib/duration.s7i" */ static structType/*t_96_duration*/ o_2898/*.*/ (const intType/*t_14_integer*/ o_2899_MY_SECS) { /* line 458 "../lib/duration.s7i" */ structType/*t_96_duration*/ o_2900_dur_val; /* line 458 "../lib/duration.s7i" */ o_2900_dur_val=create_96(sct[39]); /* line 460 "../lib/duration.s7i" */ ((structType)(o_2900_dur_val))->stru[10].value.intValue/*->o_1306_micro_second*/=o_2899_MY_SECS; return o_2900_dur_val; } /* line 1 "no_file" */ /* 1460 */ /* line 468 "../lib/duration.s7i" */ static intType/*t_14_integer*/ o_2901_toYears (const structType/*t_96_duration*/ o_2902_aDuration) { /* line 470 "../lib/duration.s7i" */ return (intType/*t_14_integer*/)((((((structType)(o_2902_aDuration))->stru[0].value.intValue/*->o_2769_year_365*/) + (((structType)(o_2902_aDuration))->stru[1].value.intValue/*->o_2770_year_366*/)) + (((structType)(o_2902_aDuration))->stru[11].value.intValue/*->o_2775_year_correction*/))); } /* line 1 "no_file" */ /* 1461 */ /* line 478 "../lib/duration.s7i" */ static intType/*t_14_integer*/ o_2903_toMonths (const structType/*t_96_duration*/ o_2904_aDuration) { /* line 483 "../lib/duration.s7i" */ return (intType/*t_14_integer*/)(((((((((((structType)(o_2904_aDuration))->stru[0].value.intValue/*->o_2769_year_365*/) + (((structType)(o_2904_aDuration))->stru[1].value.intValue/*->o_2770_year_366*/)) * 12L) + (((structType)(o_2904_aDuration))->stru[2].value.intValue/*->o_2771_month_28*/)) + (((structType)(o_2904_aDuration))->stru[3].value.intValue/*->o_2772_month_29*/)) + (((structType)(o_2904_aDuration))->stru[4].value.intValue/*->o_2773_month_30*/)) + (((structType)(o_2904_aDuration))->stru[5].value.intValue/*->o_2774_month_31*/)) + (((structType)(o_2904_aDuration))->stru[12].value.intValue/*->o_2776_month_correction*/))); } /* line 1 "no_file" */ /* 1462 */ /* line 491 "../lib/duration.s7i" */ static intType/*t_14_integer*/ o_2905_toDays (const structType/*t_96_duration*/ o_2906_aDuration) { /* line 497 "../lib/duration.s7i" */ return (intType/*t_14_integer*/)(((((((((((structType)(o_2906_aDuration))->stru[0].value.intValue/*->o_2769_year_365*/) * 365L) + ((((structType)(o_2906_aDuration))->stru[1].value.intValue/*->o_2770_year_366*/) * 366L)) + ((((structType)(o_2906_aDuration))->stru[2].value.intValue/*->o_2771_month_28*/) * 28L)) + ((((structType)(o_2906_aDuration))->stru[3].value.intValue/*->o_2772_month_29*/) * 29L)) + ((((structType)(o_2906_aDuration))->stru[4].value.intValue/*->o_2773_month_30*/) * 30L)) + ((((structType)(o_2906_aDuration))->stru[5].value.intValue/*->o_2774_month_31*/) * 31L)) + (((structType)(o_2906_aDuration))->stru[6].value.intValue/*->o_1302_day*/))); } /* line 1 "no_file" */ /* 1463 */ /* line 505 "../lib/duration.s7i" */ static intType/*t_14_integer*/ o_2907_toHours (const structType/*t_96_duration*/ o_2908_aDuration) { /* line 506 "../lib/duration.s7i" */ return (intType/*t_14_integer*/)((((o_2905_toDays(o_2908_aDuration)) * 24L) + (((structType)(o_2908_aDuration))->stru[7].value.intValue/*->o_1303_hour*/))); } /* line 1 "no_file" */ /* 1464 */ /* line 513 "../lib/duration.s7i" */ static intType/*t_14_integer*/ o_2909_toMinutes (const structType/*t_96_duration*/ o_2910_aDuration) { /* line 515 "../lib/duration.s7i" */ return (intType/*t_14_integer*/)((((((o_2905_toDays(o_2910_aDuration)) * 24L) + (((structType)(o_2910_aDuration))->stru[7].value.intValue/*->o_1303_hour*/)) * 60L) + (((structType)(o_2910_aDuration))->stru[8].value.intValue/*->o_1304_minute*/))); } /* line 1 "no_file" */ /* 1465 */ /* line 523 "../lib/duration.s7i" */ static intType/*t_14_integer*/ o_2911_toSeconds (const structType/*t_96_duration*/ o_2912_aDuration) { /* line 526 "../lib/duration.s7i" */ return (intType/*t_14_integer*/)((((((((o_2905_toDays(o_2912_aDuration)) * 24L) + (((structType)(o_2912_aDuration))->stru[7].value.intValue/*->o_1303_hour*/)) * 60L) + (((structType)(o_2912_aDuration))->stru[8].value.intValue/*->o_1304_minute*/)) * 60L) + (((structType)(o_2912_aDuration))->stru[9].value.intValue/*->o_1305_second*/))); } /* line 1 "no_file" */ /* 1466 */ /* line 534 "../lib/duration.s7i" */ static intType/*t_14_integer*/ o_2913_toMicroSeconds (const structType/*t_96_duration*/ o_2914_aDuration) { /* line 538 "../lib/duration.s7i" */ return (intType/*t_14_integer*/)((((((((((o_2905_toDays(o_2914_aDuration)) * 24L) + (((structType)(o_2914_aDuration))->stru[7].value.intValue/*->o_1303_hour*/)) * 60L) + (((structType)(o_2914_aDuration))->stru[8].value.intValue/*->o_1304_minute*/)) * 60L) + (((structType)(o_2914_aDuration))->stru[9].value.intValue/*->o_1305_second*/)) * 1000000L) + (((structType)(o_2914_aDuration))->stru[10].value.intValue/*->o_1306_micro_second*/))); } /* line 1 "no_file" */ /* 1467 */ /* line 542 "../lib/duration.s7i" */ static void/*t_1_void*/ o_2915_NORMALIZE_DUR_TIME (structType/*t_96_duration*/ *const o_2916_aDuration) { { /* line 544 "../lib/duration.s7i" */ intType tmp_a_1; /* line 544 "../lib/duration.s7i" */ ((structType)(*o_2916_aDuration))->stru[9].value.intValue/*->o_1305_second*/+=(tmp_a_1=((structType)(*o_2916_aDuration))->stru[10].value.intValue/*->o_1306_micro_second*/,tmp_a_1<0?(tmp_a_1+1)/1000000L-1:(intType)((uintType)tmp_a_1/1000000L)); } { /* line 545 "../lib/duration.s7i" */ intType tmp_a_1; /* line 545 "../lib/duration.s7i" */ intType tmp_c_2; /* line 545 "../lib/duration.s7i" */ ((structType)(*o_2916_aDuration))->stru[10].value.intValue/*->o_1306_micro_second*/=(tmp_a_1=((structType)(*o_2916_aDuration))->stru[10].value.intValue/*->o_1306_micro_second*/,tmp_c_2=tmp_a_1%1000000L,tmp_a_1<0&&tmp_c_2!=0?tmp_c_2+1000000L:tmp_c_2); } { /* line 546 "../lib/duration.s7i" */ intType tmp_a_1; /* line 546 "../lib/duration.s7i" */ ((structType)(*o_2916_aDuration))->stru[8].value.intValue/*->o_1304_minute*/+=(tmp_a_1=((structType)(*o_2916_aDuration))->stru[9].value.intValue/*->o_1305_second*/,tmp_a_1<0?(tmp_a_1+1)/60L-1:(intType)((uintType)tmp_a_1/60L)); } { /* line 547 "../lib/duration.s7i" */ intType tmp_a_1; /* line 547 "../lib/duration.s7i" */ intType tmp_c_2; /* line 547 "../lib/duration.s7i" */ ((structType)(*o_2916_aDuration))->stru[9].value.intValue/*->o_1305_second*/=(tmp_a_1=((structType)(*o_2916_aDuration))->stru[9].value.intValue/*->o_1305_second*/,tmp_c_2=tmp_a_1%60L,tmp_a_1<0&&tmp_c_2!=0?tmp_c_2+60L:tmp_c_2); } { /* line 548 "../lib/duration.s7i" */ intType tmp_a_1; /* line 548 "../lib/duration.s7i" */ ((structType)(*o_2916_aDuration))->stru[7].value.intValue/*->o_1303_hour*/+=(tmp_a_1=((structType)(*o_2916_aDuration))->stru[8].value.intValue/*->o_1304_minute*/,tmp_a_1<0?(tmp_a_1+1)/60L-1:(intType)((uintType)tmp_a_1/60L)); } { /* line 549 "../lib/duration.s7i" */ intType tmp_a_1; /* line 549 "../lib/duration.s7i" */ intType tmp_c_2; /* line 549 "../lib/duration.s7i" */ ((structType)(*o_2916_aDuration))->stru[8].value.intValue/*->o_1304_minute*/=(tmp_a_1=((structType)(*o_2916_aDuration))->stru[8].value.intValue/*->o_1304_minute*/,tmp_c_2=tmp_a_1%60L,tmp_a_1<0&&tmp_c_2!=0?tmp_c_2+60L:tmp_c_2); } { /* line 550 "../lib/duration.s7i" */ intType tmp_a_1; /* line 550 "../lib/duration.s7i" */ ((structType)(*o_2916_aDuration))->stru[6].value.intValue/*->o_1302_day*/+=(tmp_a_1=((structType)(*o_2916_aDuration))->stru[7].value.intValue/*->o_1303_hour*/,tmp_a_1<0?(tmp_a_1+1)/24L-1:(intType)((uintType)tmp_a_1/24L)); } { /* line 551 "../lib/duration.s7i" */ intType tmp_a_1; /* line 551 "../lib/duration.s7i" */ intType tmp_c_2; /* line 551 "../lib/duration.s7i" */ ((structType)(*o_2916_aDuration))->stru[7].value.intValue/*->o_1303_hour*/=(tmp_a_1=((structType)(*o_2916_aDuration))->stru[7].value.intValue/*->o_1303_hour*/,tmp_c_2=tmp_a_1%24L,tmp_a_1<0&&tmp_c_2!=0?tmp_c_2+24L:tmp_c_2); } } /* line 1 "no_file" */ /* 1468 */ /* line 555 "../lib/duration.s7i" */ static void/*t_1_void*/ o_2917_NORMALIZE (structType/*t_96_duration*/ *const o_2918_aDuration) { /* line 557 "../lib/duration.s7i" */ o_2915_NORMALIZE_DUR_TIME(o_2918_aDuration); { /* line 558 "../lib/duration.s7i" */ intType tmp_a_1; /* line 558 "../lib/duration.s7i" */ ((structType)(*o_2918_aDuration))->stru[4].value.intValue/*->o_2773_month_30*/+=(tmp_a_1=((structType)(*o_2918_aDuration))->stru[6].value.intValue/*->o_1302_day*/,tmp_a_1<0?(tmp_a_1+1)/30L-1:(intType)((uintType)tmp_a_1/30L)); } { /* line 559 "../lib/duration.s7i" */ intType tmp_a_1; /* line 559 "../lib/duration.s7i" */ intType tmp_c_2; /* line 559 "../lib/duration.s7i" */ ((structType)(*o_2918_aDuration))->stru[6].value.intValue/*->o_1302_day*/=(tmp_a_1=((structType)(*o_2918_aDuration))->stru[6].value.intValue/*->o_1302_day*/,tmp_c_2=tmp_a_1%30L,tmp_a_1<0&&tmp_c_2!=0?tmp_c_2+30L:tmp_c_2); } { /* line 560 "../lib/duration.s7i" */ intType tmp_a_1; /* line 560 "../lib/duration.s7i" */ ((structType)(*o_2918_aDuration))->stru[0].value.intValue/*->o_2769_year_365*/+=(tmp_a_1=((structType)(*o_2918_aDuration))->stru[4].value.intValue/*->o_2773_month_30*/,tmp_a_1<0?(tmp_a_1+1)/12L-1:(intType)((uintType)tmp_a_1/12L)); } { /* line 561 "../lib/duration.s7i" */ intType tmp_a_1; /* line 561 "../lib/duration.s7i" */ intType tmp_c_2; /* line 561 "../lib/duration.s7i" */ ((structType)(*o_2918_aDuration))->stru[4].value.intValue/*->o_2773_month_30*/=(tmp_a_1=((structType)(*o_2918_aDuration))->stru[4].value.intValue/*->o_2773_month_30*/,tmp_c_2=tmp_a_1%12L,tmp_a_1<0&&tmp_c_2!=0?tmp_c_2+12L:tmp_c_2); } } /* line 1 "no_file" */ /* 1469 */ /* line 569 "../lib/duration.s7i" */ static structType/*t_96_duration*/ o_2919/*+*/ (const structType/*t_96_duration*/ o_2920_aDuration) { /* line 571 "../lib/duration.s7i" */ structType/*t_96_duration*/ o_2921_dur_val; /* line 571 "../lib/duration.s7i" */ o_2921_dur_val=create_96(sct[39]); /* line 573 "../lib/duration.s7i" */ ((structType)(o_2921_dur_val))->stru[0].value.intValue/*->o_2769_year_365*/=((structType)(o_2920_aDuration))->stru[0].value.intValue/*->o_2769_year_365*/; /* line 574 "../lib/duration.s7i" */ ((structType)(o_2921_dur_val))->stru[1].value.intValue/*->o_2770_year_366*/=((structType)(o_2920_aDuration))->stru[1].value.intValue/*->o_2770_year_366*/; /* line 575 "../lib/duration.s7i" */ ((structType)(o_2921_dur_val))->stru[2].value.intValue/*->o_2771_month_28*/=((structType)(o_2920_aDuration))->stru[2].value.intValue/*->o_2771_month_28*/; /* line 576 "../lib/duration.s7i" */ ((structType)(o_2921_dur_val))->stru[3].value.intValue/*->o_2772_month_29*/=((structType)(o_2920_aDuration))->stru[3].value.intValue/*->o_2772_month_29*/; /* line 577 "../lib/duration.s7i" */ ((structType)(o_2921_dur_val))->stru[4].value.intValue/*->o_2773_month_30*/=((structType)(o_2920_aDuration))->stru[4].value.intValue/*->o_2773_month_30*/; /* line 578 "../lib/duration.s7i" */ ((structType)(o_2921_dur_val))->stru[5].value.intValue/*->o_2774_month_31*/=((structType)(o_2920_aDuration))->stru[5].value.intValue/*->o_2774_month_31*/; /* line 579 "../lib/duration.s7i" */ ((structType)(o_2921_dur_val))->stru[6].value.intValue/*->o_1302_day*/=((structType)(o_2920_aDuration))->stru[6].value.intValue/*->o_1302_day*/; /* line 580 "../lib/duration.s7i" */ ((structType)(o_2921_dur_val))->stru[7].value.intValue/*->o_1303_hour*/=((structType)(o_2920_aDuration))->stru[7].value.intValue/*->o_1303_hour*/; /* line 581 "../lib/duration.s7i" */ ((structType)(o_2921_dur_val))->stru[8].value.intValue/*->o_1304_minute*/=((structType)(o_2920_aDuration))->stru[8].value.intValue/*->o_1304_minute*/; /* line 582 "../lib/duration.s7i" */ ((structType)(o_2921_dur_val))->stru[9].value.intValue/*->o_1305_second*/=((structType)(o_2920_aDuration))->stru[9].value.intValue/*->o_1305_second*/; /* line 583 "../lib/duration.s7i" */ ((structType)(o_2921_dur_val))->stru[10].value.intValue/*->o_1306_micro_second*/=((structType)(o_2920_aDuration))->stru[10].value.intValue/*->o_1306_micro_second*/; /* line 584 "../lib/duration.s7i" */ ((structType)(o_2921_dur_val))->stru[11].value.intValue/*->o_2775_year_correction*/=((structType)(o_2920_aDuration))->stru[11].value.intValue/*->o_2775_year_correction*/; /* line 585 "../lib/duration.s7i" */ ((structType)(o_2921_dur_val))->stru[12].value.intValue/*->o_2776_month_correction*/=((structType)(o_2920_aDuration))->stru[12].value.intValue/*->o_2776_month_correction*/; /* line 586 "../lib/duration.s7i" */ ((structType)(o_2921_dur_val))->stru[13].value.intValue/*->o_2777_day_correction*/=((structType)(o_2920_aDuration))->stru[13].value.intValue/*->o_2777_day_correction*/; return o_2921_dur_val; } /* line 1 "no_file" */ /* 1470 */ /* line 594 "../lib/duration.s7i" */ static structType/*t_96_duration*/ o_2922/*-*/ (const structType/*t_96_duration*/ o_2923_aDuration) { /* line 596 "../lib/duration.s7i" */ structType/*t_96_duration*/ o_2924_dur_val; /* line 596 "../lib/duration.s7i" */ o_2924_dur_val=create_96(sct[39]); /* line 598 "../lib/duration.s7i" */ ((structType)(o_2924_dur_val))->stru[0].value.intValue/*->o_2769_year_365*/=-(((structType)(o_2923_aDuration))->stru[0].value.intValue/*->o_2769_year_365*/); /* line 599 "../lib/duration.s7i" */ ((structType)(o_2924_dur_val))->stru[1].value.intValue/*->o_2770_year_366*/=-(((structType)(o_2923_aDuration))->stru[1].value.intValue/*->o_2770_year_366*/); /* line 600 "../lib/duration.s7i" */ ((structType)(o_2924_dur_val))->stru[2].value.intValue/*->o_2771_month_28*/=-(((structType)(o_2923_aDuration))->stru[2].value.intValue/*->o_2771_month_28*/); /* line 601 "../lib/duration.s7i" */ ((structType)(o_2924_dur_val))->stru[3].value.intValue/*->o_2772_month_29*/=-(((structType)(o_2923_aDuration))->stru[3].value.intValue/*->o_2772_month_29*/); /* line 602 "../lib/duration.s7i" */ ((structType)(o_2924_dur_val))->stru[4].value.intValue/*->o_2773_month_30*/=-(((structType)(o_2923_aDuration))->stru[4].value.intValue/*->o_2773_month_30*/); /* line 603 "../lib/duration.s7i" */ ((structType)(o_2924_dur_val))->stru[5].value.intValue/*->o_2774_month_31*/=-(((structType)(o_2923_aDuration))->stru[5].value.intValue/*->o_2774_month_31*/); /* line 604 "../lib/duration.s7i" */ ((structType)(o_2924_dur_val))->stru[6].value.intValue/*->o_1302_day*/=-(((structType)(o_2923_aDuration))->stru[6].value.intValue/*->o_1302_day*/); /* line 605 "../lib/duration.s7i" */ ((structType)(o_2924_dur_val))->stru[7].value.intValue/*->o_1303_hour*/=-(((structType)(o_2923_aDuration))->stru[7].value.intValue/*->o_1303_hour*/); /* line 606 "../lib/duration.s7i" */ ((structType)(o_2924_dur_val))->stru[8].value.intValue/*->o_1304_minute*/=-(((structType)(o_2923_aDuration))->stru[8].value.intValue/*->o_1304_minute*/); /* line 607 "../lib/duration.s7i" */ ((structType)(o_2924_dur_val))->stru[9].value.intValue/*->o_1305_second*/=-(((structType)(o_2923_aDuration))->stru[9].value.intValue/*->o_1305_second*/); /* line 608 "../lib/duration.s7i" */ ((structType)(o_2924_dur_val))->stru[10].value.intValue/*->o_1306_micro_second*/=-(((structType)(o_2923_aDuration))->stru[10].value.intValue/*->o_1306_micro_second*/); /* line 609 "../lib/duration.s7i" */ ((structType)(o_2924_dur_val))->stru[11].value.intValue/*->o_2775_year_correction*/=-(((structType)(o_2923_aDuration))->stru[11].value.intValue/*->o_2775_year_correction*/); /* line 610 "../lib/duration.s7i" */ ((structType)(o_2924_dur_val))->stru[12].value.intValue/*->o_2776_month_correction*/=-(((structType)(o_2923_aDuration))->stru[12].value.intValue/*->o_2776_month_correction*/); /* line 611 "../lib/duration.s7i" */ ((structType)(o_2924_dur_val))->stru[13].value.intValue/*->o_2777_day_correction*/=-(((structType)(o_2923_aDuration))->stru[13].value.intValue/*->o_2777_day_correction*/); return o_2924_dur_val; } /* line 1 "no_file" */ /* 1471 */ /* line 619 "../lib/duration.s7i" */ static structType/*t_96_duration*/ o_2925/*+*/ (const structType/*t_96_duration*/ o_2926_aDuration1, const structType/*t_96_duration*/ o_2927_aDuration2) { /* line 621 "../lib/duration.s7i" */ structType/*t_96_duration*/ o_2928_sum; /* line 621 "../lib/duration.s7i" */ o_2928_sum=create_96(sct[39]); /* line 623 "../lib/duration.s7i" */ ((structType)(o_2928_sum))->stru[0].value.intValue/*->o_2769_year_365*/=(((structType)(o_2926_aDuration1))->stru[0].value.intValue/*->o_2769_year_365*/) + (((structType)(o_2927_aDuration2))->stru[0].value.intValue/*->o_2769_year_365*/); /* line 624 "../lib/duration.s7i" */ ((structType)(o_2928_sum))->stru[1].value.intValue/*->o_2770_year_366*/=(((structType)(o_2926_aDuration1))->stru[1].value.intValue/*->o_2770_year_366*/) + (((structType)(o_2927_aDuration2))->stru[1].value.intValue/*->o_2770_year_366*/); /* line 625 "../lib/duration.s7i" */ ((structType)(o_2928_sum))->stru[2].value.intValue/*->o_2771_month_28*/=(((structType)(o_2926_aDuration1))->stru[2].value.intValue/*->o_2771_month_28*/) + (((structType)(o_2927_aDuration2))->stru[2].value.intValue/*->o_2771_month_28*/); /* line 626 "../lib/duration.s7i" */ ((structType)(o_2928_sum))->stru[3].value.intValue/*->o_2772_month_29*/=(((structType)(o_2926_aDuration1))->stru[3].value.intValue/*->o_2772_month_29*/) + (((structType)(o_2927_aDuration2))->stru[3].value.intValue/*->o_2772_month_29*/); /* line 627 "../lib/duration.s7i" */ ((structType)(o_2928_sum))->stru[4].value.intValue/*->o_2773_month_30*/=(((structType)(o_2926_aDuration1))->stru[4].value.intValue/*->o_2773_month_30*/) + (((structType)(o_2927_aDuration2))->stru[4].value.intValue/*->o_2773_month_30*/); /* line 628 "../lib/duration.s7i" */ ((structType)(o_2928_sum))->stru[5].value.intValue/*->o_2774_month_31*/=(((structType)(o_2926_aDuration1))->stru[5].value.intValue/*->o_2774_month_31*/) + (((structType)(o_2927_aDuration2))->stru[5].value.intValue/*->o_2774_month_31*/); /* line 629 "../lib/duration.s7i" */ ((structType)(o_2928_sum))->stru[6].value.intValue/*->o_1302_day*/=(((structType)(o_2926_aDuration1))->stru[6].value.intValue/*->o_1302_day*/) + (((structType)(o_2927_aDuration2))->stru[6].value.intValue/*->o_1302_day*/); /* line 630 "../lib/duration.s7i" */ ((structType)(o_2928_sum))->stru[7].value.intValue/*->o_1303_hour*/=(((structType)(o_2926_aDuration1))->stru[7].value.intValue/*->o_1303_hour*/) + (((structType)(o_2927_aDuration2))->stru[7].value.intValue/*->o_1303_hour*/); /* line 631 "../lib/duration.s7i" */ ((structType)(o_2928_sum))->stru[8].value.intValue/*->o_1304_minute*/=(((structType)(o_2926_aDuration1))->stru[8].value.intValue/*->o_1304_minute*/) + (((structType)(o_2927_aDuration2))->stru[8].value.intValue/*->o_1304_minute*/); /* line 632 "../lib/duration.s7i" */ ((structType)(o_2928_sum))->stru[9].value.intValue/*->o_1305_second*/=(((structType)(o_2926_aDuration1))->stru[9].value.intValue/*->o_1305_second*/) + (((structType)(o_2927_aDuration2))->stru[9].value.intValue/*->o_1305_second*/); /* line 633 "../lib/duration.s7i" */ ((structType)(o_2928_sum))->stru[10].value.intValue/*->o_1306_micro_second*/=(((structType)(o_2926_aDuration1))->stru[10].value.intValue/*->o_1306_micro_second*/) + (((structType)(o_2927_aDuration2))->stru[10].value.intValue/*->o_1306_micro_second*/); /* line 634 "../lib/duration.s7i" */ o_2917_NORMALIZE(&(o_2928_sum)); return o_2928_sum; } /* line 1 "no_file" */ /* 1472 */ /* line 642 "../lib/duration.s7i" */ static structType/*t_96_duration*/ o_2929/*-*/ (const structType/*t_96_duration*/ o_2930_aDuration1, const structType/*t_96_duration*/ o_2931_aDuration2) { /* line 644 "../lib/duration.s7i" */ structType/*t_96_duration*/ o_2932_difference; /* line 644 "../lib/duration.s7i" */ o_2932_difference=create_96(sct[39]); /* line 646 "../lib/duration.s7i" */ ((structType)(o_2932_difference))->stru[0].value.intValue/*->o_2769_year_365*/=(((structType)(o_2930_aDuration1))->stru[0].value.intValue/*->o_2769_year_365*/) - (((structType)(o_2931_aDuration2))->stru[0].value.intValue/*->o_2769_year_365*/); /* line 647 "../lib/duration.s7i" */ ((structType)(o_2932_difference))->stru[1].value.intValue/*->o_2770_year_366*/=(((structType)(o_2930_aDuration1))->stru[1].value.intValue/*->o_2770_year_366*/) - (((structType)(o_2931_aDuration2))->stru[1].value.intValue/*->o_2770_year_366*/); /* line 648 "../lib/duration.s7i" */ ((structType)(o_2932_difference))->stru[2].value.intValue/*->o_2771_month_28*/=(((structType)(o_2930_aDuration1))->stru[2].value.intValue/*->o_2771_month_28*/) - (((structType)(o_2931_aDuration2))->stru[2].value.intValue/*->o_2771_month_28*/); /* line 649 "../lib/duration.s7i" */ ((structType)(o_2932_difference))->stru[3].value.intValue/*->o_2772_month_29*/=(((structType)(o_2930_aDuration1))->stru[3].value.intValue/*->o_2772_month_29*/) - (((structType)(o_2931_aDuration2))->stru[3].value.intValue/*->o_2772_month_29*/); /* line 650 "../lib/duration.s7i" */ ((structType)(o_2932_difference))->stru[4].value.intValue/*->o_2773_month_30*/=(((structType)(o_2930_aDuration1))->stru[4].value.intValue/*->o_2773_month_30*/) - (((structType)(o_2931_aDuration2))->stru[4].value.intValue/*->o_2773_month_30*/); /* line 651 "../lib/duration.s7i" */ ((structType)(o_2932_difference))->stru[5].value.intValue/*->o_2774_month_31*/=(((structType)(o_2930_aDuration1))->stru[5].value.intValue/*->o_2774_month_31*/) - (((structType)(o_2931_aDuration2))->stru[5].value.intValue/*->o_2774_month_31*/); /* line 652 "../lib/duration.s7i" */ ((structType)(o_2932_difference))->stru[6].value.intValue/*->o_1302_day*/=(((structType)(o_2930_aDuration1))->stru[6].value.intValue/*->o_1302_day*/) - (((structType)(o_2931_aDuration2))->stru[6].value.intValue/*->o_1302_day*/); /* line 653 "../lib/duration.s7i" */ ((structType)(o_2932_difference))->stru[7].value.intValue/*->o_1303_hour*/=(((structType)(o_2930_aDuration1))->stru[7].value.intValue/*->o_1303_hour*/) - (((structType)(o_2931_aDuration2))->stru[7].value.intValue/*->o_1303_hour*/); /* line 654 "../lib/duration.s7i" */ ((structType)(o_2932_difference))->stru[8].value.intValue/*->o_1304_minute*/=(((structType)(o_2930_aDuration1))->stru[8].value.intValue/*->o_1304_minute*/) - (((structType)(o_2931_aDuration2))->stru[8].value.intValue/*->o_1304_minute*/); /* line 655 "../lib/duration.s7i" */ ((structType)(o_2932_difference))->stru[9].value.intValue/*->o_1305_second*/=(((structType)(o_2930_aDuration1))->stru[9].value.intValue/*->o_1305_second*/) - (((structType)(o_2931_aDuration2))->stru[9].value.intValue/*->o_1305_second*/); /* line 656 "../lib/duration.s7i" */ ((structType)(o_2932_difference))->stru[10].value.intValue/*->o_1306_micro_second*/=(((structType)(o_2930_aDuration1))->stru[10].value.intValue/*->o_1306_micro_second*/) - (((structType)(o_2931_aDuration2))->stru[10].value.intValue/*->o_1306_micro_second*/); /* line 657 "../lib/duration.s7i" */ o_2917_NORMALIZE(&(o_2932_difference)); return o_2932_difference; } /* line 1 "no_file" */ /* 1473 */ /* line 665 "../lib/duration.s7i" */ static structType/*t_96_duration*/ o_2933/***/ (const intType/*t_14_integer*/ o_2934_number, const structType/*t_96_duration*/ o_2935_aDuration) { /* line 667 "../lib/duration.s7i" */ structType/*t_96_duration*/ o_2936_dur_val; /* line 667 "../lib/duration.s7i" */ o_2936_dur_val=create_96(sct[39]); /* line 669 "../lib/duration.s7i" */ ((structType)(o_2936_dur_val))->stru[0].value.intValue/*->o_2769_year_365*/=(o_2934_number) * (((structType)(o_2935_aDuration))->stru[0].value.intValue/*->o_2769_year_365*/); /* line 670 "../lib/duration.s7i" */ ((structType)(o_2936_dur_val))->stru[1].value.intValue/*->o_2770_year_366*/=(o_2934_number) * (((structType)(o_2935_aDuration))->stru[1].value.intValue/*->o_2770_year_366*/); /* line 671 "../lib/duration.s7i" */ ((structType)(o_2936_dur_val))->stru[2].value.intValue/*->o_2771_month_28*/=(o_2934_number) * (((structType)(o_2935_aDuration))->stru[2].value.intValue/*->o_2771_month_28*/); /* line 672 "../lib/duration.s7i" */ ((structType)(o_2936_dur_val))->stru[3].value.intValue/*->o_2772_month_29*/=(o_2934_number) * (((structType)(o_2935_aDuration))->stru[3].value.intValue/*->o_2772_month_29*/); /* line 673 "../lib/duration.s7i" */ ((structType)(o_2936_dur_val))->stru[4].value.intValue/*->o_2773_month_30*/=(o_2934_number) * (((structType)(o_2935_aDuration))->stru[4].value.intValue/*->o_2773_month_30*/); /* line 674 "../lib/duration.s7i" */ ((structType)(o_2936_dur_val))->stru[5].value.intValue/*->o_2774_month_31*/=(o_2934_number) * (((structType)(o_2935_aDuration))->stru[5].value.intValue/*->o_2774_month_31*/); /* line 675 "../lib/duration.s7i" */ ((structType)(o_2936_dur_val))->stru[6].value.intValue/*->o_1302_day*/=(o_2934_number) * (((structType)(o_2935_aDuration))->stru[6].value.intValue/*->o_1302_day*/); /* line 676 "../lib/duration.s7i" */ ((structType)(o_2936_dur_val))->stru[7].value.intValue/*->o_1303_hour*/=(o_2934_number) * (((structType)(o_2935_aDuration))->stru[7].value.intValue/*->o_1303_hour*/); /* line 677 "../lib/duration.s7i" */ ((structType)(o_2936_dur_val))->stru[8].value.intValue/*->o_1304_minute*/=(o_2934_number) * (((structType)(o_2935_aDuration))->stru[8].value.intValue/*->o_1304_minute*/); /* line 678 "../lib/duration.s7i" */ ((structType)(o_2936_dur_val))->stru[9].value.intValue/*->o_1305_second*/=(o_2934_number) * (((structType)(o_2935_aDuration))->stru[9].value.intValue/*->o_1305_second*/); /* line 679 "../lib/duration.s7i" */ ((structType)(o_2936_dur_val))->stru[10].value.intValue/*->o_1306_micro_second*/=(o_2934_number) * (((structType)(o_2935_aDuration))->stru[10].value.intValue/*->o_1306_micro_second*/); /* line 680 "../lib/duration.s7i" */ o_2917_NORMALIZE(&(o_2936_dur_val)); return o_2936_dur_val; } /* line 1 "no_file" */ /* 1474 */ /* line 688 "../lib/duration.s7i" */ static structType/*t_96_duration*/ o_2937/***/ (const structType/*t_96_duration*/ o_2938_aDuration, const intType/*t_14_integer*/ o_2939_number) { /* line 690 "../lib/duration.s7i" */ structType/*t_96_duration*/ o_2940_dur_val; /* line 690 "../lib/duration.s7i" */ o_2940_dur_val=create_96(sct[39]); /* line 692 "../lib/duration.s7i" */ ((structType)(o_2940_dur_val))->stru[0].value.intValue/*->o_2769_year_365*/=(((structType)(o_2938_aDuration))->stru[0].value.intValue/*->o_2769_year_365*/) * (o_2939_number); /* line 693 "../lib/duration.s7i" */ ((structType)(o_2940_dur_val))->stru[1].value.intValue/*->o_2770_year_366*/=(((structType)(o_2938_aDuration))->stru[1].value.intValue/*->o_2770_year_366*/) * (o_2939_number); /* line 694 "../lib/duration.s7i" */ ((structType)(o_2940_dur_val))->stru[2].value.intValue/*->o_2771_month_28*/=(((structType)(o_2938_aDuration))->stru[2].value.intValue/*->o_2771_month_28*/) * (o_2939_number); /* line 695 "../lib/duration.s7i" */ ((structType)(o_2940_dur_val))->stru[3].value.intValue/*->o_2772_month_29*/=(((structType)(o_2938_aDuration))->stru[3].value.intValue/*->o_2772_month_29*/) * (o_2939_number); /* line 696 "../lib/duration.s7i" */ ((structType)(o_2940_dur_val))->stru[4].value.intValue/*->o_2773_month_30*/=(((structType)(o_2938_aDuration))->stru[4].value.intValue/*->o_2773_month_30*/) * (o_2939_number); /* line 697 "../lib/duration.s7i" */ ((structType)(o_2940_dur_val))->stru[5].value.intValue/*->o_2774_month_31*/=(((structType)(o_2938_aDuration))->stru[5].value.intValue/*->o_2774_month_31*/) * (o_2939_number); /* line 698 "../lib/duration.s7i" */ ((structType)(o_2940_dur_val))->stru[6].value.intValue/*->o_1302_day*/=(((structType)(o_2938_aDuration))->stru[6].value.intValue/*->o_1302_day*/) * (o_2939_number); /* line 699 "../lib/duration.s7i" */ ((structType)(o_2940_dur_val))->stru[7].value.intValue/*->o_1303_hour*/=(((structType)(o_2938_aDuration))->stru[7].value.intValue/*->o_1303_hour*/) * (o_2939_number); /* line 700 "../lib/duration.s7i" */ ((structType)(o_2940_dur_val))->stru[8].value.intValue/*->o_1304_minute*/=(((structType)(o_2938_aDuration))->stru[8].value.intValue/*->o_1304_minute*/) * (o_2939_number); /* line 701 "../lib/duration.s7i" */ ((structType)(o_2940_dur_val))->stru[9].value.intValue/*->o_1305_second*/=(((structType)(o_2938_aDuration))->stru[9].value.intValue/*->o_1305_second*/) * (o_2939_number); /* line 702 "../lib/duration.s7i" */ ((structType)(o_2940_dur_val))->stru[10].value.intValue/*->o_1306_micro_second*/=(((structType)(o_2938_aDuration))->stru[10].value.intValue/*->o_1306_micro_second*/) * (o_2939_number); /* line 703 "../lib/duration.s7i" */ o_2917_NORMALIZE(&(o_2940_dur_val)); return o_2940_dur_val; } /* line 1 "no_file" */ /* 1475 */ /* line 710 "../lib/duration.s7i" */ static void/*t_1_void*/ o_2941/*+:=*/ (structType/*t_96_duration*/ *const o_2942_aDuration, const structType/*t_96_duration*/ o_2943_delta) { /* line 712 "../lib/duration.s7i" */ ((structType)(*o_2942_aDuration))->stru[0].value.intValue/*->o_2769_year_365*/+=((structType)(o_2943_delta))->stru[0].value.intValue/*->o_2769_year_365*/; /* line 713 "../lib/duration.s7i" */ ((structType)(*o_2942_aDuration))->stru[1].value.intValue/*->o_2770_year_366*/+=((structType)(o_2943_delta))->stru[1].value.intValue/*->o_2770_year_366*/; /* line 714 "../lib/duration.s7i" */ ((structType)(*o_2942_aDuration))->stru[2].value.intValue/*->o_2771_month_28*/+=((structType)(o_2943_delta))->stru[2].value.intValue/*->o_2771_month_28*/; /* line 715 "../lib/duration.s7i" */ ((structType)(*o_2942_aDuration))->stru[3].value.intValue/*->o_2772_month_29*/+=((structType)(o_2943_delta))->stru[3].value.intValue/*->o_2772_month_29*/; /* line 716 "../lib/duration.s7i" */ ((structType)(*o_2942_aDuration))->stru[4].value.intValue/*->o_2773_month_30*/+=((structType)(o_2943_delta))->stru[4].value.intValue/*->o_2773_month_30*/; /* line 717 "../lib/duration.s7i" */ ((structType)(*o_2942_aDuration))->stru[5].value.intValue/*->o_2774_month_31*/+=((structType)(o_2943_delta))->stru[5].value.intValue/*->o_2774_month_31*/; /* line 718 "../lib/duration.s7i" */ ((structType)(*o_2942_aDuration))->stru[6].value.intValue/*->o_1302_day*/+=((structType)(o_2943_delta))->stru[6].value.intValue/*->o_1302_day*/; /* line 719 "../lib/duration.s7i" */ ((structType)(*o_2942_aDuration))->stru[7].value.intValue/*->o_1303_hour*/+=((structType)(o_2943_delta))->stru[7].value.intValue/*->o_1303_hour*/; /* line 720 "../lib/duration.s7i" */ ((structType)(*o_2942_aDuration))->stru[8].value.intValue/*->o_1304_minute*/+=((structType)(o_2943_delta))->stru[8].value.intValue/*->o_1304_minute*/; /* line 721 "../lib/duration.s7i" */ ((structType)(*o_2942_aDuration))->stru[9].value.intValue/*->o_1305_second*/+=((structType)(o_2943_delta))->stru[9].value.intValue/*->o_1305_second*/; /* line 722 "../lib/duration.s7i" */ ((structType)(*o_2942_aDuration))->stru[10].value.intValue/*->o_1306_micro_second*/+=((structType)(o_2943_delta))->stru[10].value.intValue/*->o_1306_micro_second*/; /* line 723 "../lib/duration.s7i" */ o_2917_NORMALIZE(o_2942_aDuration); } /* line 1 "no_file" */ /* 1476 */ /* line 730 "../lib/duration.s7i" */ static void/*t_1_void*/ o_2944/*-:=*/ (structType/*t_96_duration*/ *const o_2945_aDuration, const structType/*t_96_duration*/ o_2946_delta) { /* line 732 "../lib/duration.s7i" */ ((structType)(*o_2945_aDuration))->stru[0].value.intValue/*->o_2769_year_365*/-=((structType)(o_2946_delta))->stru[0].value.intValue/*->o_2769_year_365*/; /* line 733 "../lib/duration.s7i" */ ((structType)(*o_2945_aDuration))->stru[1].value.intValue/*->o_2770_year_366*/-=((structType)(o_2946_delta))->stru[1].value.intValue/*->o_2770_year_366*/; /* line 734 "../lib/duration.s7i" */ ((structType)(*o_2945_aDuration))->stru[2].value.intValue/*->o_2771_month_28*/-=((structType)(o_2946_delta))->stru[2].value.intValue/*->o_2771_month_28*/; /* line 735 "../lib/duration.s7i" */ ((structType)(*o_2945_aDuration))->stru[3].value.intValue/*->o_2772_month_29*/-=((structType)(o_2946_delta))->stru[3].value.intValue/*->o_2772_month_29*/; /* line 736 "../lib/duration.s7i" */ ((structType)(*o_2945_aDuration))->stru[4].value.intValue/*->o_2773_month_30*/-=((structType)(o_2946_delta))->stru[4].value.intValue/*->o_2773_month_30*/; /* line 737 "../lib/duration.s7i" */ ((structType)(*o_2945_aDuration))->stru[5].value.intValue/*->o_2774_month_31*/-=((structType)(o_2946_delta))->stru[5].value.intValue/*->o_2774_month_31*/; /* line 738 "../lib/duration.s7i" */ ((structType)(*o_2945_aDuration))->stru[6].value.intValue/*->o_1302_day*/-=((structType)(o_2946_delta))->stru[6].value.intValue/*->o_1302_day*/; /* line 739 "../lib/duration.s7i" */ ((structType)(*o_2945_aDuration))->stru[7].value.intValue/*->o_1303_hour*/-=((structType)(o_2946_delta))->stru[7].value.intValue/*->o_1303_hour*/; /* line 740 "../lib/duration.s7i" */ ((structType)(*o_2945_aDuration))->stru[8].value.intValue/*->o_1304_minute*/-=((structType)(o_2946_delta))->stru[8].value.intValue/*->o_1304_minute*/; /* line 741 "../lib/duration.s7i" */ ((structType)(*o_2945_aDuration))->stru[9].value.intValue/*->o_1305_second*/-=((structType)(o_2946_delta))->stru[9].value.intValue/*->o_1305_second*/; /* line 742 "../lib/duration.s7i" */ ((structType)(*o_2945_aDuration))->stru[10].value.intValue/*->o_1306_micro_second*/-=((structType)(o_2946_delta))->stru[10].value.intValue/*->o_1306_micro_second*/; /* line 743 "../lib/duration.s7i" */ o_2917_NORMALIZE(o_2945_aDuration); } /* line 1 "no_file" */ /* 1477 */ /* line 750 "../lib/duration.s7i" */ static void/*t_1_void*/ o_2947/*+:=*/ (structType/*t_54_time*/ *const o_2948_tim, const structType/*t_96_duration*/ o_2949_aDuration) { /* line 752 "../lib/duration.s7i" */ ((structType)(*o_2948_tim))->stru[0].value.intValue/*->o_1300_year*/+=o_2779_sumOfYearFields(o_2949_aDuration); /* line 753 "../lib/duration.s7i" */ ((structType)(*o_2948_tim))->stru[1].value.intValue/*->o_1301_month*/+=o_2781_sumOfMonthFields(o_2949_aDuration); /* line 754 "../lib/duration.s7i" */ ((structType)(*o_2948_tim))->stru[2].value.intValue/*->o_1302_day*/+=((structType)(o_2949_aDuration))->stru[6].value.intValue/*->o_1302_day*/; /* line 755 "../lib/duration.s7i" */ ((structType)(*o_2948_tim))->stru[3].value.intValue/*->o_1303_hour*/+=((structType)(o_2949_aDuration))->stru[7].value.intValue/*->o_1303_hour*/; /* line 756 "../lib/duration.s7i" */ ((structType)(*o_2948_tim))->stru[4].value.intValue/*->o_1304_minute*/+=((structType)(o_2949_aDuration))->stru[8].value.intValue/*->o_1304_minute*/; /* line 757 "../lib/duration.s7i" */ ((structType)(*o_2948_tim))->stru[5].value.intValue/*->o_1305_second*/+=((structType)(o_2949_aDuration))->stru[9].value.intValue/*->o_1305_second*/; /* line 758 "../lib/duration.s7i" */ ((structType)(*o_2948_tim))->stru[6].value.intValue/*->o_1306_micro_second*/+=((structType)(o_2949_aDuration))->stru[10].value.intValue/*->o_1306_micro_second*/; /* line 759 "../lib/duration.s7i" */ o_1477_NORMALIZE(o_2948_tim); } /* line 1 "no_file" */ /* 1478 */ /* line 766 "../lib/duration.s7i" */ static void/*t_1_void*/ o_2950/*-:=*/ (structType/*t_54_time*/ *const o_2951_tim, const structType/*t_96_duration*/ o_2952_aDuration) { /* line 768 "../lib/duration.s7i" */ ((structType)(*o_2951_tim))->stru[0].value.intValue/*->o_1300_year*/-=o_2779_sumOfYearFields(o_2952_aDuration); /* line 769 "../lib/duration.s7i" */ ((structType)(*o_2951_tim))->stru[1].value.intValue/*->o_1301_month*/-=o_2781_sumOfMonthFields(o_2952_aDuration); /* line 770 "../lib/duration.s7i" */ ((structType)(*o_2951_tim))->stru[2].value.intValue/*->o_1302_day*/-=((structType)(o_2952_aDuration))->stru[6].value.intValue/*->o_1302_day*/; /* line 771 "../lib/duration.s7i" */ ((structType)(*o_2951_tim))->stru[3].value.intValue/*->o_1303_hour*/-=((structType)(o_2952_aDuration))->stru[7].value.intValue/*->o_1303_hour*/; /* line 772 "../lib/duration.s7i" */ ((structType)(*o_2951_tim))->stru[4].value.intValue/*->o_1304_minute*/-=((structType)(o_2952_aDuration))->stru[8].value.intValue/*->o_1304_minute*/; /* line 773 "../lib/duration.s7i" */ ((structType)(*o_2951_tim))->stru[5].value.intValue/*->o_1305_second*/-=((structType)(o_2952_aDuration))->stru[9].value.intValue/*->o_1305_second*/; /* line 774 "../lib/duration.s7i" */ ((structType)(*o_2951_tim))->stru[6].value.intValue/*->o_1306_micro_second*/-=((structType)(o_2952_aDuration))->stru[10].value.intValue/*->o_1306_micro_second*/; /* line 775 "../lib/duration.s7i" */ o_1477_NORMALIZE(o_2951_tim); } /* line 1 "no_file" */ /* 1479 */ /* line 783 "../lib/duration.s7i" */ static structType/*t_54_time*/ o_2953/*+*/ (const structType/*t_54_time*/ o_2954_tim, const structType/*t_96_duration*/ o_2955_aDuration) { /* line 785 "../lib/duration.s7i" */ structType/*t_54_time*/ o_2956_laterTime; /* line 785 "../lib/duration.s7i" */ o_2956_laterTime=create_54(sct[24]); /* line 787 "../lib/duration.s7i" */ ((structType)(o_2956_laterTime))->stru[0].value.intValue/*->o_1300_year*/=(((structType)(o_2954_tim))->stru[0].value.intValue/*->o_1300_year*/) + (o_2779_sumOfYearFields(o_2955_aDuration)); /* line 788 "../lib/duration.s7i" */ ((structType)(o_2956_laterTime))->stru[1].value.intValue/*->o_1301_month*/=(((structType)(o_2954_tim))->stru[1].value.intValue/*->o_1301_month*/) + (o_2781_sumOfMonthFields(o_2955_aDuration)); /* line 789 "../lib/duration.s7i" */ ((structType)(o_2956_laterTime))->stru[2].value.intValue/*->o_1302_day*/=(((structType)(o_2954_tim))->stru[2].value.intValue/*->o_1302_day*/) + (((structType)(o_2955_aDuration))->stru[6].value.intValue/*->o_1302_day*/); /* line 790 "../lib/duration.s7i" */ ((structType)(o_2956_laterTime))->stru[3].value.intValue/*->o_1303_hour*/=(((structType)(o_2954_tim))->stru[3].value.intValue/*->o_1303_hour*/) + (((structType)(o_2955_aDuration))->stru[7].value.intValue/*->o_1303_hour*/); /* line 791 "../lib/duration.s7i" */ ((structType)(o_2956_laterTime))->stru[4].value.intValue/*->o_1304_minute*/=(((structType)(o_2954_tim))->stru[4].value.intValue/*->o_1304_minute*/) + (((structType)(o_2955_aDuration))->stru[8].value.intValue/*->o_1304_minute*/); /* line 792 "../lib/duration.s7i" */ ((structType)(o_2956_laterTime))->stru[5].value.intValue/*->o_1305_second*/=(((structType)(o_2954_tim))->stru[5].value.intValue/*->o_1305_second*/) + (((structType)(o_2955_aDuration))->stru[9].value.intValue/*->o_1305_second*/); /* line 793 "../lib/duration.s7i" */ ((structType)(o_2956_laterTime))->stru[6].value.intValue/*->o_1306_micro_second*/=(((structType)(o_2954_tim))->stru[6].value.intValue/*->o_1306_micro_second*/) + (((structType)(o_2955_aDuration))->stru[10].value.intValue/*->o_1306_micro_second*/); /* line 794 "../lib/duration.s7i" */ ((structType)(o_2956_laterTime))->stru[7].value.intValue/*->o_1307_timeZone*/=((structType)(o_2954_tim))->stru[7].value.intValue/*->o_1307_timeZone*/; /* line 795 "../lib/duration.s7i" */ ((structType)(o_2956_laterTime))->stru[8].value.boolValue/*->o_1308_daylightSavingTime*/=((structType)(o_2954_tim))->stru[8].value.boolValue/*->o_1308_daylightSavingTime*/; /* line 796 "../lib/duration.s7i" */ o_1477_NORMALIZE(&(o_2956_laterTime)); return o_2956_laterTime; } /* line 1 "no_file" */ /* 1480 */ /* line 804 "../lib/duration.s7i" */ static structType/*t_54_time*/ o_2957/*-*/ (const structType/*t_54_time*/ o_2958_tim, const structType/*t_96_duration*/ o_2959_aDuration) { /* line 806 "../lib/duration.s7i" */ structType/*t_54_time*/ o_2960_formerTimer; /* line 806 "../lib/duration.s7i" */ o_2960_formerTimer=create_54(sct[24]); /* line 808 "../lib/duration.s7i" */ ((structType)(o_2960_formerTimer))->stru[0].value.intValue/*->o_1300_year*/=(((structType)(o_2958_tim))->stru[0].value.intValue/*->o_1300_year*/) - (o_2779_sumOfYearFields(o_2959_aDuration)); /* line 809 "../lib/duration.s7i" */ ((structType)(o_2960_formerTimer))->stru[1].value.intValue/*->o_1301_month*/=(((structType)(o_2958_tim))->stru[1].value.intValue/*->o_1301_month*/) - (o_2781_sumOfMonthFields(o_2959_aDuration)); /* line 810 "../lib/duration.s7i" */ ((structType)(o_2960_formerTimer))->stru[2].value.intValue/*->o_1302_day*/=(((structType)(o_2958_tim))->stru[2].value.intValue/*->o_1302_day*/) - (((structType)(o_2959_aDuration))->stru[6].value.intValue/*->o_1302_day*/); /* line 811 "../lib/duration.s7i" */ ((structType)(o_2960_formerTimer))->stru[3].value.intValue/*->o_1303_hour*/=(((structType)(o_2958_tim))->stru[3].value.intValue/*->o_1303_hour*/) - (((structType)(o_2959_aDuration))->stru[7].value.intValue/*->o_1303_hour*/); /* line 812 "../lib/duration.s7i" */ ((structType)(o_2960_formerTimer))->stru[4].value.intValue/*->o_1304_minute*/=(((structType)(o_2958_tim))->stru[4].value.intValue/*->o_1304_minute*/) - (((structType)(o_2959_aDuration))->stru[8].value.intValue/*->o_1304_minute*/); /* line 813 "../lib/duration.s7i" */ ((structType)(o_2960_formerTimer))->stru[5].value.intValue/*->o_1305_second*/=(((structType)(o_2958_tim))->stru[5].value.intValue/*->o_1305_second*/) - (((structType)(o_2959_aDuration))->stru[9].value.intValue/*->o_1305_second*/); /* line 814 "../lib/duration.s7i" */ ((structType)(o_2960_formerTimer))->stru[6].value.intValue/*->o_1306_micro_second*/=(((structType)(o_2958_tim))->stru[6].value.intValue/*->o_1306_micro_second*/) - (((structType)(o_2959_aDuration))->stru[10].value.intValue/*->o_1306_micro_second*/); /* line 815 "../lib/duration.s7i" */ ((structType)(o_2960_formerTimer))->stru[7].value.intValue/*->o_1307_timeZone*/=((structType)(o_2958_tim))->stru[7].value.intValue/*->o_1307_timeZone*/; /* line 816 "../lib/duration.s7i" */ ((structType)(o_2960_formerTimer))->stru[8].value.boolValue/*->o_1308_daylightSavingTime*/=((structType)(o_2958_tim))->stru[8].value.boolValue/*->o_1308_daylightSavingTime*/; /* line 817 "../lib/duration.s7i" */ o_1477_NORMALIZE(&(o_2960_formerTimer)); return o_2960_formerTimer; } /* line 1 "no_file" */ /* 1481 */ /* line 825 "../lib/duration.s7i" */ static structType/*t_96_duration*/ o_2961/*-*/ (const structType/*t_54_time*/ o_2962_tim1, const structType/*t_54_time*/ o_2963_tim2) { /* line 827 "../lib/duration.s7i" */ structType/*t_96_duration*/ o_2964_dur_val; /* line 829 "../lib/duration.s7i" */ intType/*t_14_integer*/ o_2965_year=0; /* line 830 "../lib/duration.s7i" */ intType/*t_14_integer*/ o_2966_month=1; /* line 831 "../lib/duration.s7i" */ intType/*t_14_integer*/ o_2967_tim_year=1; /* line 832 "../lib/duration.s7i" */ intType/*t_14_integer*/ o_2968_tim_month=1; /* line 827 "../lib/duration.s7i" */ o_2964_dur_val=create_96(sct[39]); /* line 834 "../lib/duration.s7i" */ if (o_1425/*<*/(o_2962_tim1, o_2963_tim2)) { /* line 835 "../lib/duration.s7i" */ ((structType)(o_2964_dur_val))->stru[6].value.intValue/*->o_1302_day*/=(((structType)(o_2963_tim2))->stru[2].value.intValue/*->o_1302_day*/) - (((structType)(o_2962_tim1))->stru[2].value.intValue/*->o_1302_day*/); /* line 836 "../lib/duration.s7i" */ ((structType)(o_2964_dur_val))->stru[7].value.intValue/*->o_1303_hour*/=(((structType)(o_2963_tim2))->stru[3].value.intValue/*->o_1303_hour*/) - (((structType)(o_2962_tim1))->stru[3].value.intValue/*->o_1303_hour*/); /* line 837 "../lib/duration.s7i" */ ((structType)(o_2964_dur_val))->stru[8].value.intValue/*->o_1304_minute*/=(((structType)(o_2963_tim2))->stru[4].value.intValue/*->o_1304_minute*/) - (((structType)(o_2962_tim1))->stru[4].value.intValue/*->o_1304_minute*/); /* line 838 "../lib/duration.s7i" */ ((structType)(o_2964_dur_val))->stru[9].value.intValue/*->o_1305_second*/=(((structType)(o_2963_tim2))->stru[5].value.intValue/*->o_1305_second*/) - (((structType)(o_2962_tim1))->stru[5].value.intValue/*->o_1305_second*/); /* line 839 "../lib/duration.s7i" */ ((structType)(o_2964_dur_val))->stru[10].value.intValue/*->o_1306_micro_second*/=(((structType)(o_2963_tim2))->stru[6].value.intValue/*->o_1306_micro_second*/) - (((structType)(o_2962_tim1))->stru[6].value.intValue/*->o_1306_micro_second*/); /* line 840 "../lib/duration.s7i" */ o_2915_NORMALIZE_DUR_TIME(&(o_2964_dur_val)); /* line 841 "../lib/duration.s7i" */ ((structType)(o_2964_dur_val))->stru[6].value.intValue/*->o_1302_day*/=-(((structType)(o_2964_dur_val))->stru[6].value.intValue/*->o_1302_day*/); /* line 842 "../lib/duration.s7i" */ ((structType)(o_2964_dur_val))->stru[7].value.intValue/*->o_1303_hour*/=-(((structType)(o_2964_dur_val))->stru[7].value.intValue/*->o_1303_hour*/); /* line 843 "../lib/duration.s7i" */ ((structType)(o_2964_dur_val))->stru[8].value.intValue/*->o_1304_minute*/=-(((structType)(o_2964_dur_val))->stru[8].value.intValue/*->o_1304_minute*/); /* line 844 "../lib/duration.s7i" */ ((structType)(o_2964_dur_val))->stru[9].value.intValue/*->o_1305_second*/=-(((structType)(o_2964_dur_val))->stru[9].value.intValue/*->o_1305_second*/); /* line 845 "../lib/duration.s7i" */ ((structType)(o_2964_dur_val))->stru[10].value.intValue/*->o_1306_micro_second*/=-(((structType)(o_2964_dur_val))->stru[10].value.intValue/*->o_1306_micro_second*/); /* line 846 "../lib/duration.s7i" */ o_2968_tim_month=((structType)(o_2962_tim1))->stru[1].value.intValue/*->o_1301_month*/; /* line 847 "../lib/duration.s7i" */ o_2967_tim_year=((structType)(o_2962_tim1))->stru[0].value.intValue/*->o_1300_year*/; /* line 848 "../lib/duration.s7i" */ if ((((structType)(o_2964_dur_val))->stru[6].value.intValue/*->o_1302_day*/) > (0L)) { /* line 849 "../lib/duration.s7i" */ ((structType)(o_2964_dur_val))->stru[13].value.intValue/*->o_2777_day_correction*/=-(o_1315_daysInMonth(o_2967_tim_year, o_2968_tim_month)); } /* line 851 "../lib/duration.s7i" */ if (((o_2968_tim_month) > (((structType)(o_2963_tim2))->stru[1].value.intValue/*->o_1301_month*/)) || /* line 851 "../lib/duration.s7i" */ (((o_2968_tim_month) == (((structType)(o_2963_tim2))->stru[1].value.intValue/*->o_1301_month*/)) && /* line 851 "../lib/duration.s7i" */ ((((structType)(o_2964_dur_val))->stru[6].value.intValue/*->o_1302_day*/) > (0L)))) { /* line 852 "../lib/duration.s7i" */ if ((o_2968_tim_month) <= (2L)) { /* line 853 "../lib/duration.s7i" */ o_2965_year=(o_2967_tim_year) - 1L; } else { /* line 855 "../lib/duration.s7i" */ o_2965_year=o_2967_tim_year; } /* line 857 "../lib/duration.s7i" */ ++(o_2967_tim_year); /* line 858 "../lib/duration.s7i" */ o_2968_tim_month-=12L; } { /* line 860 "../lib/duration.s7i" */ intType tmp_e_3=(((structType)(o_2963_tim2))->stru[1].value.intValue/*->o_1301_month*/)-1; /* line 860 "../lib/duration.s7i" */ for (o_2966_month=o_2968_tim_month; o_2966_month<=tmp_e_3; (o_2966_month)++) { /* line 865 "../lib/duration.s7i" */ intType tmp_a_1; /* line 865 "../lib/duration.s7i" */ intType tmp_c_2; /* line 861 "../lib/duration.s7i" */ switch (o_1315_daysInMonth(o_2965_year, ((tmp_a_1=(o_2966_month)-1,tmp_c_2=tmp_a_1%12L,tmp_a_1<0&&tmp_c_2!=0?tmp_c_2+12L:tmp_c_2))+1)) { /* line 862 "../lib/duration.s7i" */ case 28: /* line 862 "../lib/duration.s7i" */ --(((structType)(o_2964_dur_val))->stru[2].value.intValue/*->o_2771_month_28*/); /* line 862 "../lib/duration.s7i" */ break; /* line 863 "../lib/duration.s7i" */ case 29: /* line 863 "../lib/duration.s7i" */ --(((structType)(o_2964_dur_val))->stru[3].value.intValue/*->o_2772_month_29*/); /* line 863 "../lib/duration.s7i" */ break; /* line 864 "../lib/duration.s7i" */ case 30: /* line 864 "../lib/duration.s7i" */ --(((structType)(o_2964_dur_val))->stru[4].value.intValue/*->o_2773_month_30*/); /* line 864 "../lib/duration.s7i" */ break; /* line 865 "../lib/duration.s7i" */ case 31: /* line 865 "../lib/duration.s7i" */ --(((structType)(o_2964_dur_val))->stru[5].value.intValue/*->o_2774_month_31*/); /* line 865 "../lib/duration.s7i" */ break; } } } } else { /* line 869 "../lib/duration.s7i" */ ((structType)(o_2964_dur_val))->stru[6].value.intValue/*->o_1302_day*/=(((structType)(o_2962_tim1))->stru[2].value.intValue/*->o_1302_day*/) - (((structType)(o_2963_tim2))->stru[2].value.intValue/*->o_1302_day*/); /* line 870 "../lib/duration.s7i" */ ((structType)(o_2964_dur_val))->stru[7].value.intValue/*->o_1303_hour*/=(((structType)(o_2962_tim1))->stru[3].value.intValue/*->o_1303_hour*/) - (((structType)(o_2963_tim2))->stru[3].value.intValue/*->o_1303_hour*/); /* line 871 "../lib/duration.s7i" */ ((structType)(o_2964_dur_val))->stru[8].value.intValue/*->o_1304_minute*/=(((structType)(o_2962_tim1))->stru[4].value.intValue/*->o_1304_minute*/) - (((structType)(o_2963_tim2))->stru[4].value.intValue/*->o_1304_minute*/); /* line 872 "../lib/duration.s7i" */ ((structType)(o_2964_dur_val))->stru[9].value.intValue/*->o_1305_second*/=(((structType)(o_2962_tim1))->stru[5].value.intValue/*->o_1305_second*/) - (((structType)(o_2963_tim2))->stru[5].value.intValue/*->o_1305_second*/); /* line 873 "../lib/duration.s7i" */ ((structType)(o_2964_dur_val))->stru[10].value.intValue/*->o_1306_micro_second*/=(((structType)(o_2962_tim1))->stru[6].value.intValue/*->o_1306_micro_second*/) - (((structType)(o_2963_tim2))->stru[6].value.intValue/*->o_1306_micro_second*/); /* line 874 "../lib/duration.s7i" */ o_2915_NORMALIZE_DUR_TIME(&(o_2964_dur_val)); /* line 875 "../lib/duration.s7i" */ o_2968_tim_month=((structType)(o_2962_tim1))->stru[1].value.intValue/*->o_1301_month*/; /* line 876 "../lib/duration.s7i" */ o_2967_tim_year=((structType)(o_2962_tim1))->stru[0].value.intValue/*->o_1300_year*/; /* line 877 "../lib/duration.s7i" */ if ((((structType)(o_2964_dur_val))->stru[6].value.intValue/*->o_1302_day*/) < (0L)) { { /* line 878 "../lib/duration.s7i" */ intType tmp_a_1; /* line 878 "../lib/duration.s7i" */ intType tmp_c_2; /* line 878 "../lib/duration.s7i" */ ((structType)(o_2964_dur_val))->stru[13].value.intValue/*->o_2777_day_correction*/=o_1315_daysInMonth(o_2967_tim_year, ((tmp_a_1=(o_2968_tim_month) - 2L,tmp_c_2=tmp_a_1%12L,tmp_a_1<0&&tmp_c_2!=0?tmp_c_2+12L:tmp_c_2))+1); } } /* line 880 "../lib/duration.s7i" */ if (((o_2968_tim_month) < (((structType)(o_2963_tim2))->stru[1].value.intValue/*->o_1301_month*/)) || /* line 880 "../lib/duration.s7i" */ (((o_2968_tim_month) == (((structType)(o_2963_tim2))->stru[1].value.intValue/*->o_1301_month*/)) && /* line 880 "../lib/duration.s7i" */ ((((structType)(o_2964_dur_val))->stru[6].value.intValue/*->o_1302_day*/) < (0L)))) { /* line 881 "../lib/duration.s7i" */ if ((o_2968_tim_month) <= (2L)) { /* line 882 "../lib/duration.s7i" */ o_2965_year=(o_2967_tim_year) - 1L; } else { /* line 884 "../lib/duration.s7i" */ o_2965_year=o_2967_tim_year; } /* line 886 "../lib/duration.s7i" */ --(o_2967_tim_year); /* line 887 "../lib/duration.s7i" */ o_2968_tim_month+=12L; } { /* line 889 "../lib/duration.s7i" */ intType tmp_e_3=(o_2968_tim_month)-1; /* line 889 "../lib/duration.s7i" */ for (o_2966_month=((structType)(o_2963_tim2))->stru[1].value.intValue/*->o_1301_month*/; o_2966_month<=tmp_e_3; (o_2966_month)++) { /* line 894 "../lib/duration.s7i" */ intType tmp_a_1; /* line 894 "../lib/duration.s7i" */ intType tmp_c_2; /* line 890 "../lib/duration.s7i" */ switch (o_1315_daysInMonth(o_2965_year, ((tmp_a_1=(o_2966_month)-1,tmp_c_2=tmp_a_1%12L,tmp_a_1<0&&tmp_c_2!=0?tmp_c_2+12L:tmp_c_2))+1)) { /* line 891 "../lib/duration.s7i" */ case 28: /* line 891 "../lib/duration.s7i" */ ++(((structType)(o_2964_dur_val))->stru[2].value.intValue/*->o_2771_month_28*/); /* line 891 "../lib/duration.s7i" */ break; /* line 892 "../lib/duration.s7i" */ case 29: /* line 892 "../lib/duration.s7i" */ ++(((structType)(o_2964_dur_val))->stru[3].value.intValue/*->o_2772_month_29*/); /* line 892 "../lib/duration.s7i" */ break; /* line 893 "../lib/duration.s7i" */ case 30: /* line 893 "../lib/duration.s7i" */ ++(((structType)(o_2964_dur_val))->stru[4].value.intValue/*->o_2773_month_30*/); /* line 893 "../lib/duration.s7i" */ break; /* line 894 "../lib/duration.s7i" */ case 31: /* line 894 "../lib/duration.s7i" */ ++(((structType)(o_2964_dur_val))->stru[5].value.intValue/*->o_2774_month_31*/); /* line 894 "../lib/duration.s7i" */ break; } } } } /* line 898 "../lib/duration.s7i" */ ((structType)(o_2964_dur_val))->stru[0].value.intValue/*->o_2769_year_365*/=(o_2967_tim_year) - (((structType)(o_2963_tim2))->stru[0].value.intValue/*->o_1300_year*/); { /* line 899 "../lib/duration.s7i" */ intType tmp_a_1; /* line 899 "../lib/duration.s7i" */ intType tmp_a_2; /* line 899 "../lib/duration.s7i" */ intType tmp_a_3; /* line 899 "../lib/duration.s7i" */ intType tmp_a_4; /* line 899 "../lib/duration.s7i" */ ((structType)(o_2964_dur_val))->stru[1].value.intValue/*->o_2770_year_366*/=(((((((o_2967_tim_year)-1) >> 2L) - ((tmp_a_1=(o_2967_tim_year)-1,tmp_a_1<0?(tmp_a_1+1)/100L-1:(intType)((uintType)tmp_a_1/100L)))) + ((tmp_a_2=(o_2967_tim_year)-1,tmp_a_2<0?(tmp_a_2+1)/400L-1:(intType)((uintType)tmp_a_2/400L)))) - (((((structType)(o_2963_tim2))->stru[0].value.intValue/*->o_1300_year*/)-1) >> 2L)) + ((tmp_a_3=(((structType)(o_2963_tim2))->stru[0].value.intValue/*->o_1300_year*/)-1,tmp_a_3<0?(tmp_a_3+1)/100L-1:(intType)((uintType)tmp_a_3/100L)))) - ((tmp_a_4=(((structType)(o_2963_tim2))->stru[0].value.intValue/*->o_1300_year*/)-1,tmp_a_4<0?(tmp_a_4+1)/400L-1:(intType)((uintType)tmp_a_4/400L))); } /* line 902 "../lib/duration.s7i" */ ((structType)(o_2964_dur_val))->stru[0].value.intValue/*->o_2769_year_365*/-=((structType)(o_2964_dur_val))->stru[1].value.intValue/*->o_2770_year_366*/; /* line 903 "../lib/duration.s7i" */ if ((((structType)(o_2964_dur_val))->stru[13].value.intValue/*->o_2777_day_correction*/) > (0L)) { /* line 904 "../lib/duration.s7i" */ if ((o_2781_sumOfMonthFields(o_2964_dur_val)) == (0L)) { /* line 905 "../lib/duration.s7i" */ ((structType)(o_2964_dur_val))->stru[12].value.intValue/*->o_2776_month_correction*/=11L; /* line 906 "../lib/duration.s7i" */ ((structType)(o_2964_dur_val))->stru[11].value.intValue/*->o_2775_year_correction*/=-1L; } else { /* line 908 "../lib/duration.s7i" */ ((structType)(o_2964_dur_val))->stru[12].value.intValue/*->o_2776_month_correction*/=-1L; } } else /* line 910 "../lib/duration.s7i" */ if ((((structType)(o_2964_dur_val))->stru[13].value.intValue/*->o_2777_day_correction*/) < (0L)) { /* line 911 "../lib/duration.s7i" */ if ((o_2781_sumOfMonthFields(o_2964_dur_val)) == (12L)) { /* line 912 "../lib/duration.s7i" */ ((structType)(o_2964_dur_val))->stru[12].value.intValue/*->o_2776_month_correction*/=-11L; /* line 913 "../lib/duration.s7i" */ ((structType)(o_2964_dur_val))->stru[11].value.intValue/*->o_2775_year_correction*/=1L; } else { /* line 915 "../lib/duration.s7i" */ ((structType)(o_2964_dur_val))->stru[12].value.intValue/*->o_2776_month_correction*/=1L; } } return o_2964_dur_val; } /* line 1 "no_file" */ /* 1482 */ /* line 924 "../lib/duration.s7i" */ static void/*t_1_void*/ o_2969_wait (const structType/*t_96_duration*/ o_2970_aDuration) { { /* line 926 "../lib/duration.s7i" */ structType/*t_54_time*/ tmp_2 = (structType/*t_54_time*/)(NULL); /* line 926 "../lib/duration.s7i" */ structType/*t_54_time*/ tmp_1 = (structType/*t_54_time*/)(NULL); /* line 926 "../lib/duration.s7i" */ o_1529_await((tmp_1=(structType/*t_54_time*/)(o_2953/*+*/((tmp_2=(structType/*t_54_time*/)(o_1505_NOW())), o_2970_aDuration)))); /* line 926 "../lib/duration.s7i" */ destr_54(tmp_2); /* line 926 "../lib/duration.s7i" */ destr_54(tmp_1); } } /* line 1 "no_file" */ /* 1483 */ typedef genericType t_99/*t_99_listener*/; /* 1484 */ /* 1485 */ /* 1486 */ /* 1487 */ /* DYNAMIC */ static void/*t_1_void*/ o_2971_close (interfaceType/*t_99_listener*/ *const o_2972_aListener); /* 1488 */ /* DYNAMIC */ static void/*t_1_void*/ o_2973_listen (const interfaceType/*t_99_listener*/ o_2974_aListener, const intType/*t_14_integer*/ o_2975_backlog); /* 1489 */ /* DYNAMIC */ static interfaceType/*t_46_file*/ o_2976_accept (interfaceType/*t_99_listener*/ *const o_2977_aListener); /* 1490 */ /* DYNAMIC */ static void/*t_1_void*/ o_2978_signOn (interfaceType/*t_99_listener*/ *const o_2979_aListener, const interfaceType/*t_46_file*/ o_2980_sock); /* 1491 */ /* DYNAMIC */ static void/*t_1_void*/ o_2981_signOff (interfaceType/*t_99_listener*/ *const o_2982_aListener, const interfaceType/*t_46_file*/ o_2983_sock); /* 1492 */ /* DYNAMIC */ static void/*t_1_void*/ o_2984_waitForRequest (interfaceType/*t_99_listener*/ *const o_2985_aListener); /* 1493 */ /* DYNAMIC */ static interfaceType/*t_46_file*/ o_2986_getExistingConnection (const interfaceType/*t_99_listener*/ o_2987_aListener); /* 1494 */ /* DYNAMIC */ static interfaceType/*t_46_file*/ o_2988_getNewConnection (const interfaceType/*t_99_listener*/ o_2989_aListener); /* 1495 */ typedef genericType t_100/*t_100_baseListener*/; /* 1496 */ /* 1497 */ typedef genericType t_101/*t_101_*ANONYM_TYPE**/; /* 1498 */ /* 1499 */ /* 1500 */ /* 1501 */ /* 1502 */ /* objRefType/t_101_*ANONYM_TYPE* */ objRefType o_2990/*.*/=(objRefType)(NULL); /* 1503 */ /* objRefType/t_101_*ANONYM_TYPE* */ objRefType o_2991/*.*/=(objRefType)(NULL); /* 1504 */ typedef genericType t_102/*t_102_*ANONYM_TYPE**/; /* 1505 */ /* 1506 */ /* 1507 */ /* 1508 */ /* 1509 */ /* objRefType/t_102_*ANONYM_TYPE* */ objRefType o_2992/*.*/=(objRefType)(NULL); /* 1510 */ /* objRefType/t_102_*ANONYM_TYPE* */ objRefType o_2993/*.*/=(objRefType)(NULL); /* 1511 */ /* 1512 */ /* 1513 */ /* 1514 */ structType/*t_100_baseListener*/ o_2994/*.*/; /* 1515 */ /* itf_cpy2: interfaceType/t_99_listener := structType/t_100_baseListener */ /* 1516 */ /* line 90 "../lib/struct.s7i" */ static structType/*t_100_baseListener*/ create_100 (const_structType/*t_100_baseListener*/ b) /* line 90 "../lib/struct.s7i" */ { /* line 90 "../lib/struct.s7i" */ structType/*t_100_baseListener*/ a; /* line 90 "../lib/struct.s7i" */ a=(structType/*t_100_baseListener*/)(malloc(sizeof(struct rtlStructStruct) - sizeof(rtlObjectType) + /* line 90 "../lib/struct.s7i" */ 0 * sizeof(rtlObjectType))); /* line 90 "../lib/struct.s7i" */ if (a == NULL) { /* line 90 "../lib/struct.s7i" */ raise_error(MEMORY_ERROR); /* line 90 "../lib/struct.s7i" */ } else { /* line 90 "../lib/struct.s7i" */ a->usage_count = 1; a->type_num = b->type_num; /* line 90 "../lib/struct.s7i" */ } /* line 90 "../lib/struct.s7i" */ return a; /* line 90 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 91 "../lib/struct.s7i" */ static void destr_100 (structType/*t_100_baseListener*/ b) /* line 91 "../lib/struct.s7i" */ { /* line 91 "../lib/struct.s7i" */ if (b != NULL && b->usage_count != 0) { b->usage_count--; if (b->usage_count == 0) { /* line 91 "../lib/struct.s7i" */ free((void *)(b)); /* line 91 "../lib/struct.s7i" */ }} /* line 91 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 92 "../lib/struct.s7i" */ static void cpy_100 (structType/*t_100_baseListener*/ a, structType/*t_100_baseListener*/ b) /* line 92 "../lib/struct.s7i" */ { /* line 92 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 886 "../lib/seed7_05.s7i" */ static structType/*t_100_baseListener*/ o_2995_xalloc (const structType/*t_100_baseListener*/ o_2996_newStuct) { /* line 888 "../lib/seed7_05.s7i" */ structType/*t_100_baseListener*/ o_2997_allocated; /* line 888 "../lib/seed7_05.s7i" */ o_2997_allocated=create_100(sct[40]); /* line 890 "../lib/seed7_05.s7i" */ cpy_100((structType/*t_100_baseListener*/)(o_2997_allocated), (structType/*t_100_baseListener*/)(o_2996_newStuct)); return o_2997_allocated; } /* line 1 "no_file" */ /* 1517 */ interfaceType/*t_99_listener*/ o_2998/*.*/; /* 1518 */ /* 1519 */ /* 1520 */ /* 1521 */ typedef genericType t_103/*t_103_*ANONYM_TYPE**/; /* 1522 */ /* 1523 */ /* 1524 */ /* 1525 */ /* 1526 */ /* objRefType/t_103_*ANONYM_TYPE* */ objRefType o_2999/*.*/=(objRefType)(NULL); /* 1527 */ /* objRefType/t_103_*ANONYM_TYPE* */ objRefType o_3000/*.*/=(objRefType)(NULL); /* 1528 */ typedef genericType t_104/*t_104_*ANONYM_TYPE**/; /* 1529 */ /* 1530 */ /* 1531 */ /* 1532 */ /* 1533 */ /* objRefType/t_104_*ANONYM_TYPE* */ objRefType o_3001/*.*/=(objRefType)(NULL); /* 1534 */ /* objRefType/t_104_*ANONYM_TYPE* */ objRefType o_3002/*.*/=(objRefType)(NULL); /* 1535 */ /* 1536 */ /* 1537 */ /* 1538 */ /* struct element socketType/t_95_PRIMITIVE_SOCKET ** structType/t_105_socket->o_3003_sock = 1 */ /* 1539 */ /* struct element socketType/t_95_PRIMITIVE_SOCKET ** structType/t_105_socket->o_3003_sock = 1 */ /* 1540 */ /* ref struct element socketType/t_95_PRIMITIVE_SOCKET ** objRefType/t_103_*ANONYM_TYPE*->o_3003_sock = 0 */ /* 1541 */ /* ref struct element socketType/t_95_PRIMITIVE_SOCKET ** objRefType/t_104_*ANONYM_TYPE*->o_3003_sock = 0 */ /* 1542 */ /* struct element bstriType/t_94_socketAddress ** structType/t_105_socket->o_3004_addr = 2 */ /* 1543 */ /* struct element bstriType/t_94_socketAddress ** structType/t_105_socket->o_3004_addr = 2 */ /* 1544 */ /* ref struct element bstriType/t_94_socketAddress ** objRefType/t_103_*ANONYM_TYPE*->o_3004_addr = 1 */ /* 1545 */ /* ref struct element bstriType/t_94_socketAddress ** objRefType/t_104_*ANONYM_TYPE*->o_3004_addr = 1 */ /* 1546 */ /* struct element striType/t_15_string ** structType/t_105_socket->o_3005_service = 3 */ /* 1547 */ /* struct element striType/t_15_string ** structType/t_105_socket->o_3005_service = 3 */ /* 1548 */ /* ref struct element striType/t_15_string ** objRefType/t_103_*ANONYM_TYPE*->o_3005_service = 2 */ /* 1549 */ /* ref struct element striType/t_15_string ** objRefType/t_104_*ANONYM_TYPE*->o_3005_service = 2 */ /* 1550 */ /* struct element interfaceType/t_99_listener ** structType/t_105_socket->o_3006_acceptedFrom = 4 */ /* 1551 */ /* struct element interfaceType/t_99_listener ** structType/t_105_socket->o_3006_acceptedFrom = 4 */ /* 1552 */ /* ref struct element interfaceType/t_99_listener ** objRefType/t_103_*ANONYM_TYPE*->o_3006_acceptedFrom = 3 */ /* 1553 */ /* ref struct element interfaceType/t_99_listener ** objRefType/t_104_*ANONYM_TYPE*->o_3006_acceptedFrom = 3 */ /* 1554 */ structType/*t_105_socket*/ o_3007/*.*/; /* 1555 */ /* itf_cpy2: interfaceType/t_46_file := structType/t_105_socket */ /* 1556 */ /* line 173 "../lib/struct.s7i" */ static structType/*t_105_socket*/ create_105 (const_structType/*t_105_socket*/ b) /* line 173 "../lib/struct.s7i" */ { /* line 173 "../lib/struct.s7i" */ structType/*t_105_socket*/ a; /* line 173 "../lib/struct.s7i" */ a=(structType/*t_105_socket*/)(malloc(sizeof(struct rtlStructStruct) - sizeof(rtlObjectType) + /* line 173 "../lib/struct.s7i" */ 5 * sizeof(rtlObjectType))); /* line 173 "../lib/struct.s7i" */ if (a == NULL) { /* line 173 "../lib/struct.s7i" */ raise_error(MEMORY_ERROR); /* line 173 "../lib/struct.s7i" */ } else { /* line 173 "../lib/struct.s7i" */ a->usage_count = 1; a->type_num = b->type_num; /* line 173 "../lib/struct.s7i" */ a->stru[0].value.charValue=b->stru[0].value.charValue; /* line 173 "../lib/struct.s7i" */ a->stru[1].value.socketValue=b->stru[1].value.socketValue; /* line 173 "../lib/struct.s7i" */ a->stru[2].value.bstriValue=bstCreate(b->stru[2].value.bstriValue); /* line 173 "../lib/struct.s7i" */ a->stru[3].value.striValue=strCreate(b->stru[3].value.striValue); /* line 173 "../lib/struct.s7i" */ a->stru[4].value.interfaceValue=itfCreate(b->stru[4].value.interfaceValue); /* line 173 "../lib/struct.s7i" */ } /* line 173 "../lib/struct.s7i" */ return a; /* line 173 "../lib/struct.s7i" */ } /* line 1 "no_file" */ static void destr_99 (interfaceType/*t_99_listener*/); /* line 174 "../lib/struct.s7i" */ static void destr_105 (structType/*t_105_socket*/ b) /* line 174 "../lib/struct.s7i" */ { /* line 174 "../lib/struct.s7i" */ if (b != NULL && b->usage_count != 0) { b->usage_count--; if (b->usage_count == 0) { /* line 174 "../lib/struct.s7i" */ /* line 174 "../lib/struct.s7i" */ /* line 174 "../lib/struct.s7i" */ bstDestr(b->stru[2].value.bstriValue); /* line 174 "../lib/struct.s7i" */ strDestr(b->stru[3].value.striValue); /* line 174 "../lib/struct.s7i" */ destr_99(b->stru[4].value.interfaceValue); /* line 174 "../lib/struct.s7i" */ free((void *)(b)); /* line 174 "../lib/struct.s7i" */ }} /* line 174 "../lib/struct.s7i" */ } /* line 1 "no_file" */ static void cpy_99 (interfaceType/*t_99_listener*/ *a, interfaceType/*t_99_listener*/ b) { interfaceType old_value = *a; *a=b; if ((*a)->usage_count != 0) { (*a)->usage_count++; } destr_99(old_value); } /* line 1 "no_file" */ /* line 175 "../lib/struct.s7i" */ static void cpy_105 (structType/*t_105_socket*/ a, structType/*t_105_socket*/ b) /* line 175 "../lib/struct.s7i" */ { /* line 175 "../lib/struct.s7i" */ a->stru[0].value.charValue=b->stru[0].value.charValue; /* line 175 "../lib/struct.s7i" */ a->stru[1].value.socketValue=b->stru[1].value.socketValue; /* line 175 "../lib/struct.s7i" */ bstCpy(&(a->stru[2].value.bstriValue), b->stru[2].value.bstriValue); /* line 175 "../lib/struct.s7i" */ strCopy(&(a->stru[3].value.striValue), b->stru[3].value.striValue); /* line 175 "../lib/struct.s7i" */ cpy_99((interfaceType/*t_99_listener*/ *)(&(a->stru[4].value.interfaceValue)), (interfaceType/*t_99_listener*/)(b->stru[4].value.interfaceValue)); /* line 175 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 886 "../lib/seed7_05.s7i" */ static structType/*t_105_socket*/ o_3008_xalloc (const structType/*t_105_socket*/ o_3009_newStuct) { /* line 888 "../lib/seed7_05.s7i" */ structType/*t_105_socket*/ o_3010_allocated; /* line 888 "../lib/seed7_05.s7i" */ o_3010_allocated=create_105(sct[42]); /* line 890 "../lib/seed7_05.s7i" */ cpy_105((structType/*t_105_socket*/)(o_3010_allocated), (structType/*t_105_socket*/)(o_3009_newStuct)); return o_3010_allocated; } /* line 1 "no_file" */ /* 1557 */ /* DYNAMIC */ static striType/*t_15_string*/ o_3011_service (const interfaceType/*t_46_file*/ o_3012_aFile); /* 1558 */ /* line 86 "../lib/socket.s7i" */ static striType/*t_15_string*/ o_3013_service (const structType/*t_105_socket*/ o_3014_aSocket) { /* line 87 "../lib/socket.s7i" */ return (striType/*t_15_string*/)((/*ref_to_value*/ ((structType)(o_3014_aSocket))->stru[3].value.striValue/*->o_3005_service*/)); } /* line 1 "no_file" */ /* 1559 */ /* DYNAMIC */ static bstriType/*t_94_socketAddress*/ o_3015_address (const interfaceType/*t_46_file*/ o_3016_aFile); /* 1560 */ /* line 90 "../lib/socket.s7i" */ static bstriType/*t_94_socketAddress*/ o_3017_address (const structType/*t_105_socket*/ o_3018_aSocket) { /* line 91 "../lib/socket.s7i" */ return (bstriType/*t_94_socketAddress*/)((socGetAddr(((structType)(o_3018_aSocket))->stru[1].value.socketValue/*->o_3003_sock*/))); } /* line 1 "no_file" */ /* 1561 */ /* DYNAMIC */ static intType/*t_14_integer*/ o_3019_port (const interfaceType/*t_46_file*/ o_3020_aFile); /* 1562 */ /* line 94 "../lib/socket.s7i" */ static intType/*t_14_integer*/ o_3021_port (const structType/*t_105_socket*/ o_3022_aSocket) { /* line 95 "../lib/socket.s7i" */ intType/*t_14_integer*/ result; /* line 95 "../lib/socket.s7i" */ striType tmp_1 = NULL; /* line 95 "../lib/socket.s7i" */ result=(intType/*t_14_integer*/)((intParse((tmp_1=socAddrService(((structType)(o_3022_aSocket))->stru[2].value.bstriValue/*->o_3004_addr*/))))); /* line 95 "../lib/socket.s7i" */ strDestr(tmp_1); /* line 95 "../lib/socket.s7i" */ return result; } /* line 1 "no_file" */ /* 1563 */ /* DYNAMIC */ static boolType/*t_13_boolean*/ o_3023_inputReady (const interfaceType/*t_46_file*/ o_3024_inFile, const structType/*t_96_duration*/ o_3025_timeout); /* 1564 */ /* line 99 "../lib/socket.s7i" */ static boolType/*t_13_boolean*/ o_3026_inputReady (const structType/*t_105_socket*/ o_3027_inSocket, const structType/*t_96_duration*/ o_3028_timeout) { /* line 100 "../lib/socket.s7i" */ return (boolType/*t_13_boolean*/)((socInputReady(((structType)(o_3027_inSocket))->stru[1].value.socketValue/*->o_3003_sock*/, o_2911_toSeconds(o_3028_timeout), ((structType)(o_3028_timeout))->stru[10].value.intValue/*->o_1306_micro_second*/))); } /* line 1 "no_file" */ /* 1565 */ /* line 110 "../lib/socket.s7i" */ static interfaceType/*t_46_file*/ o_3029_openSocket (const bstriType/*t_94_socketAddress*/ o_3030_address) { /* line 112 "../lib/socket.s7i" */ interfaceType/*t_46_file*/ o_3031_newSocket; /* line 114 "../lib/socket.s7i" */ socketType/*t_95_PRIMITIVE_SOCKET*/ o_3032_open_socket=-1; /* line 115 "../lib/socket.s7i" */ structType/*t_105_socket*/ o_3033_new_socket; /* line 112 "../lib/socket.s7i" */ o_3031_newSocket=itfCreate(o_976_STD_NULL/* STRUCTOBJECT */); /* line 115 "../lib/socket.s7i" */ o_3033_new_socket=create_105(sct[43]); { /* line 117 "../lib/socket.s7i" */ const_bstriType tmp_b_1; /* line 117 "../lib/socket.s7i" */ if ((tmp_b_1=&bst[0],(o_3030_address)->size!=tmp_b_1->size||memcmp((o_3030_address)->mem,tmp_b_1->mem,(o_3030_address)->size*sizeof(unsigned char))!=0)) { /* line 118 "../lib/socket.s7i" */ o_3032_open_socket=socSocket(socAddrFamily(o_3030_address), 1L, 0L); /* line 119 "../lib/socket.s7i" */ if ((o_3032_open_socket) != (o_2764_PRIMITIVE_NULL_SOCKET)) { /* line 120 "../lib/socket.s7i" */ { /* line 120 "../lib/socket.s7i" */ int fail_value; /* line 120 "../lib/socket.s7i" */ catch_stack_pos++; /* line 120 "../lib/socket.s7i" */ if (unlikely(catch_stack_pos >= max_catch_stack)) { /* line 120 "../lib/socket.s7i" */ resize_catch_stack(); /* line 120 "../lib/socket.s7i" */ } /* line 120 "../lib/socket.s7i" */ if (likely((fail_value = do_setjmp(catch_stack[catch_stack_pos])) == 0)) { /* line 121 "../lib/socket.s7i" */ socConnect(o_3032_open_socket, o_3030_address); /* line 122 "../lib/socket.s7i" */ bstCpy(&(((structType)(o_3033_new_socket))->stru[2].value.bstriValue/*->o_3004_addr*/), o_3030_address); { /* line 123 "../lib/socket.s7i" */ striType *stri_ptr=&(((structType)(o_3033_new_socket))->stru[3].value.striValue/*->o_3005_service*/); /* line 123 "../lib/socket.s7i" */ striType old_stri=*stri_ptr; /* line 123 "../lib/socket.s7i" */ *stri_ptr=socAddrService(o_3030_address); /* line 123 "../lib/socket.s7i" */ strDestr(old_stri); } /* line 124 "../lib/socket.s7i" */ ((structType)(o_3033_new_socket))->stru[1].value.socketValue/*->o_3003_sock*/=o_3032_open_socket; { /* line 125 "../lib/socket.s7i" */ interfaceType result_2; /* line 125 "../lib/socket.s7i" */ structType old_struct=o_3031_newSocket; /* line 125 "../lib/socket.s7i" */ o_3031_newSocket=/* ITF_TO_INTERFACE */(result_2=o_3033_new_socket,result_2->usage_count!=0 ? result_2->usage_count++ : 0,result_2); /* line 125 "../lib/socket.s7i" */ destr_46(old_struct); } /* line 125 "../lib/socket.s7i" */ catch_stack_pos--; /* line 127 "../lib/socket.s7i" */ } else { /* line 125 "../lib/socket.s7i" */ catch_stack_pos--; /* line 127 "../lib/socket.s7i" */ if (o_19_FILE_ERROR == fail_value - 1) { /* line 128 "../lib/socket.s7i" */ socClose(o_3032_open_socket); /* line 129 "../lib/socket.s7i" */ } else { /* line 129 "../lib/socket.s7i" */ rtlRaiseError(fail_value, error_file, error_line); /* line 129 "../lib/socket.s7i" */ } /* line 129 "../lib/socket.s7i" */ } /* line 129 "../lib/socket.s7i" */ } } } } /* line 110 "../lib/socket.s7i" */ destr_105(o_3033_new_socket); return o_3031_newSocket; } /* line 1 "no_file" */ /* 1566 */ /* line 143 "../lib/socket.s7i" */ static interfaceType/*t_46_file*/ o_3034_openInetSocket (const intType/*t_14_integer*/ o_3035_portNumber) { /* line 144 "../lib/socket.s7i" */ interfaceType/*t_46_file*/ result; /* line 144 "../lib/socket.s7i" */ bstriType tmp_2 = NULL; /* line 144 "../lib/socket.s7i" */ result=(interfaceType/*t_46_file*/)((o_3029_openSocket((tmp_2=socInetLocalAddr(o_3035_portNumber))))); /* line 144 "../lib/socket.s7i" */ bstDestr(tmp_2); /* line 144 "../lib/socket.s7i" */ return result; } /* line 1 "no_file" */ /* 1567 */ /* line 159 "../lib/socket.s7i" */ static interfaceType/*t_46_file*/ o_3036_openInetSocket (const const_striType/*t_15_string*/ o_3037_hostName, const intType/*t_14_integer*/ o_3038_portNumber) { /* line 160 "../lib/socket.s7i" */ interfaceType/*t_46_file*/ result; /* line 160 "../lib/socket.s7i" */ bstriType tmp_2 = NULL; /* line 160 "../lib/socket.s7i" */ result=(interfaceType/*t_46_file*/)((o_3029_openSocket((tmp_2=socInetAddr(o_3037_hostName, o_3038_portNumber))))); /* line 160 "../lib/socket.s7i" */ bstDestr(tmp_2); /* line 160 "../lib/socket.s7i" */ return result; } /* line 1 "no_file" */ /* 1568 */ /* line 169 "../lib/socket.s7i" */ static void/*t_1_void*/ o_3039_close (structType/*t_105_socket*/ *const o_3040_aSocket) { /* line 171 "../lib/socket.s7i" */ if ((((structType)(*o_3040_aSocket))->stru[4].value.interfaceValue/*->o_3006_acceptedFrom*/) != (itf[41])) { /* line 172 "../lib/socket.s7i" */ o_2981_signOff(&(((structType)(*o_3040_aSocket))->stru[4].value.interfaceValue/*->o_3006_acceptedFrom*/), *o_3040_aSocket); } /* line 174 "../lib/socket.s7i" */ socClose(((structType)(*o_3040_aSocket))->stru[1].value.socketValue/*->o_3003_sock*/); /* line 175 "../lib/socket.s7i" */ ((structType)(*o_3040_aSocket))->stru[1].value.socketValue/*->o_3003_sock*/=o_2764_PRIMITIVE_NULL_SOCKET; } /* line 1 "no_file" */ /* 1569 */ /* DYNAMIC */ static void/*t_1_void*/ o_3041_release (interfaceType/*t_46_file*/ *const o_3042_aFile); /* 1570 */ /* line 182 "../lib/socket.s7i" */ static void/*t_1_void*/ o_3043_release (structType/*t_105_socket*/ *const o_3044_aSocket) { { /* line 184 "../lib/socket.s7i" */ interfaceType *interface_ptr=&(((structType)(*o_3044_aSocket))->stru[4].value.interfaceValue/*->o_3006_acceptedFrom*/); /* line 184 "../lib/socket.s7i" */ structType old_struct=*interface_ptr; /* line 184 "../lib/socket.s7i" */ *interface_ptr=itf[41]; /* line 184 "../lib/socket.s7i" */ if ((*interface_ptr)->usage_count != 0) {(*interface_ptr)->usage_count++; } /* line 184 "../lib/socket.s7i" */ destr_99(old_struct); } } /* line 1 "no_file" */ /* 1571 */ /* line 192 "../lib/socket.s7i" */ static void/*t_1_void*/ o_3045_flush (const structType/*t_105_socket*/ o_3046_outSocket) { /*noop*/ } /* line 1 "no_file" */ /* 1572 */ /* line 205 "../lib/socket.s7i" */ static void/*t_1_void*/ o_3047_write (const structType/*t_105_socket*/ o_3048_outSocket, const const_striType/*t_15_string*/ o_3049_stri) { /* line 207 "../lib/socket.s7i" */ socWrite(((structType)(o_3048_outSocket))->stru[1].value.socketValue/*->o_3003_sock*/, o_3049_stri); } /* line 1 "no_file" */ /* 1573 */ /* line 219 "../lib/socket.s7i" */ static void/*t_1_void*/ o_3050_writeln (const structType/*t_105_socket*/ o_3051_outSocket, const const_striType/*t_15_string*/ o_3052_stri) { /* line 219 "../lib/socket.s7i" */ striType tmp_1 = NULL; /* line 221 "../lib/socket.s7i" */ socWrite(((structType)(o_3051_outSocket))->stru[1].value.socketValue/*->o_3003_sock*/, (tmp_1=strConcat(o_3052_stri, &str[21] /* "\n" */))); /* line 219 "../lib/socket.s7i" */ strDestr(tmp_1); } /* line 1 "no_file" */ /* 1574 */ /* line 229 "../lib/socket.s7i" */ static charType/*t_18_char*/ o_3053_getc (structType/*t_105_socket*/ *const o_3054_inSocket) { /* line 230 "../lib/socket.s7i" */ return (charType/*t_18_char*/)((socGetc(((structType)(*o_3054_inSocket))->stru[1].value.socketValue/*->o_3003_sock*/, &(*o_944/*.*/(o_3054_inSocket))))); } /* line 1 "no_file" */ /* 1575 */ /* line 239 "../lib/socket.s7i" */ static striType/*t_15_string*/ o_3055_gets (structType/*t_105_socket*/ *const o_3056_inSocket, const intType/*t_14_integer*/ o_3057_maxLength) { /* line 240 "../lib/socket.s7i" */ return (striType/*t_15_string*/)((socGets(((structType)(*o_3056_inSocket))->stru[1].value.socketValue/*->o_3003_sock*/, o_3057_maxLength, &(*o_944/*.*/(o_3056_inSocket))))); } /* line 1 "no_file" */ /* 1576 */ /* line 254 "../lib/socket.s7i" */ static striType/*t_15_string*/ o_3058_getwd (structType/*t_105_socket*/ *const o_3059_inSocket) { /* line 255 "../lib/socket.s7i" */ return (striType/*t_15_string*/)((socWordRead(((structType)(*o_3059_inSocket))->stru[1].value.socketValue/*->o_3003_sock*/, &(*o_944/*.*/(o_3059_inSocket))))); } /* line 1 "no_file" */ /* 1577 */ /* line 267 "../lib/socket.s7i" */ static striType/*t_15_string*/ o_3060_getln (structType/*t_105_socket*/ *const o_3061_inSocket) { /* line 268 "../lib/socket.s7i" */ return (striType/*t_15_string*/)((socLineRead(((structType)(*o_3061_inSocket))->stru[1].value.socketValue/*->o_3003_sock*/, &(*o_944/*.*/(o_3061_inSocket))))); } /* line 1 "no_file" */ /* 1578 */ /* line 279 "../lib/socket.s7i" */ static boolType/*t_13_boolean*/ o_3062_eof (const structType/*t_105_socket*/ o_3063_inSocket) { /* line 280 "../lib/socket.s7i" */ return (boolType/*t_13_boolean*/)(((o_942/*.*/(o_3063_inSocket)) == ((charType) 4294967295))); } /* line 1 "no_file" */ /* 1579 */ /* line 290 "../lib/socket.s7i" */ static boolType/*t_13_boolean*/ o_3064_hasNext (const structType/*t_105_socket*/ o_3065_inSocket) { /* line 291 "../lib/socket.s7i" */ return (boolType/*t_13_boolean*/)((socHasNext(((structType)(o_3065_inSocket))->stru[1].value.socketValue/*->o_3003_sock*/))); } /* line 1 "no_file" */ /* 1580 */ typedef genericType t_106/*t_106_pollData*/; /* 1581 */ /* 1582 */ /* 1583 */ /* 1584 */ pollType o_3066/*.*/; /* 1585 */ /* line 86 "../lib/poll.s7i" */ static void/*t_1_void*/ o_3067_addCheck (pollType/*t_106_pollData*/ *const o_3068_pData, const structType/*t_105_socket*/ o_3069_aSocket, const intType/*t_14_integer*/ o_3070_eventsToCheck) { /* line 89 "../lib/poll.s7i" */ polAddCheck(*o_3068_pData, ((structType)(o_3069_aSocket))->stru[1].value.socketValue/*->o_3003_sock*/, o_3070_eventsToCheck, (genericType)(o_3069_aSocket)); } /* line 1 "no_file" */ /* 1586 */ /* DYNAMIC */ static void/*t_1_void*/ o_3071_addCheck (pollType/*t_106_pollData*/ *const o_3072_pData, const interfaceType/*t_46_file*/ o_3073_aFile, const intType/*t_14_integer*/ o_3074_eventsToCheck); /* 1587 */ /* line 121 "../lib/poll.s7i" */ static void/*t_1_void*/ o_3075_removeCheck (pollType/*t_106_pollData*/ *const o_3076_pData, const structType/*t_105_socket*/ o_3077_aSocket, const intType/*t_14_integer*/ o_3078_eventsToCheck) { /* line 124 "../lib/poll.s7i" */ polRemoveCheck(*o_3076_pData, ((structType)(o_3077_aSocket))->stru[1].value.socketValue/*->o_3003_sock*/, o_3078_eventsToCheck); } /* line 1 "no_file" */ /* 1588 */ /* DYNAMIC */ static void/*t_1_void*/ o_3079_removeCheck (pollType/*t_106_pollData*/ *const o_3080_pData, const interfaceType/*t_46_file*/ o_3081_aFile, const intType/*t_14_integer*/ o_3082_eventsToCheck); /* 1589 */ /* line 157 "../lib/poll.s7i" */ static intType/*t_14_integer*/ o_3083_getCheck (pollType/*t_106_pollData*/ *const o_3084_pData, const structType/*t_105_socket*/ o_3085_aSocket) { /* line 158 "../lib/poll.s7i" */ return (intType/*t_14_integer*/)((polGetCheck(*o_3084_pData, ((structType)(o_3085_aSocket))->stru[1].value.socketValue/*->o_3003_sock*/))); } /* line 1 "no_file" */ /* 1590 */ /* DYNAMIC */ static intType/*t_14_integer*/ o_3086_getCheck (pollType/*t_106_pollData*/ *const o_3087_pData, const interfaceType/*t_46_file*/ o_3088_aFile); /* 1591 */ /* line 207 "../lib/poll.s7i" */ static intType/*t_14_integer*/ o_3089_getFinding (pollType/*t_106_pollData*/ *const o_3090_pData, const structType/*t_105_socket*/ o_3091_aSocket) { /* line 208 "../lib/poll.s7i" */ return (intType/*t_14_integer*/)((polGetFinding(*o_3090_pData, ((structType)(o_3091_aSocket))->stru[1].value.socketValue/*->o_3003_sock*/))); } /* line 1 "no_file" */ /* 1592 */ /* DYNAMIC */ static intType/*t_14_integer*/ o_3092_getFinding (pollType/*t_106_pollData*/ *const o_3093_pData, const interfaceType/*t_46_file*/ o_3094_aFile); /* 1593 */ /* 1594 */ /* line 275 "../lib/poll.s7i" */ static interfaceType/*t_46_file*/ o_3095_nextFile (pollType/*t_106_pollData*/ *const o_3096_pData) { /* line 276 "../lib/poll.s7i" */ return (interfaceType/*t_46_file*/)((/*ref_to_value*/ polNextFile(*o_3096_pData, (genericType)(o_976_STD_NULL)))); } /* line 1 "no_file" */ /* 1595 */ /* declare inline o_3097_for*/ typedef genericType t_107/*t_107_program*/; /* 1596 */ /* 1597 */ /* 1598 */ /* 1599 */ /* 1600 */ typedef genericType t_108/*t_108_singleParseOption*/; /* 1601 */ /* 1602 */ /* 1603 */ /* 1604 */ const enumType/*t_108_singleParseOption*/ o_3098_TRACE_ACTIONS=/*TRACE_ACTIONS*/0; /* 1605 */ const enumType/*t_108_singleParseOption*/ o_3099_TRACE_DO_ACTION_CHECK=/*TRACE_DO_ACTION_CHECK*/1; /* 1606 */ const enumType/*t_108_singleParseOption*/ o_3100_TRACE_DYNAMIC_CALLS=/*TRACE_DYNAMIC_CALLS*/2; /* 1607 */ const enumType/*t_108_singleParseOption*/ o_3101_TRACE_EXCEPTIONS=/*TRACE_EXCEPTIONS*/3; /* 1608 */ const enumType/*t_108_singleParseOption*/ o_3102_TRACE_HEAP_SIZE=/*TRACE_HEAP_SIZE*/4; /* 1609 */ const enumType/*t_108_singleParseOption*/ o_3103_TRACE_MATCH=/*TRACE_MATCH*/5; /* 1610 */ const enumType/*t_108_singleParseOption*/ o_3104_TRACE_EXECUTIL=/*TRACE_EXECUTIL*/6; /* 1611 */ const enumType/*t_108_singleParseOption*/ o_3105_WRITE_LIBRARY_NAMES=/*WRITE_LIBRARY_NAMES*/7; /* 1612 */ const enumType/*t_108_singleParseOption*/ o_3106_WRITE_LINE_NUMBERS=/*WRITE_LINE_NUMBERS*/8; /* 1613 */ const enumType/*t_108_singleParseOption*/ o_3107_SHOW_IDENT_TABLE=/*SHOW_IDENT_TABLE*/9; /* 1614 */ const enumType/*t_108_singleParseOption*/ o_3108_SHOW_STATISTICS=/*SHOW_STATISTICS*/10; /* 1615 */ struct listStruct rec_3109_11={NULL, (objRefType) &(o_3108_SHOW_STATISTICS)}; struct listStruct rec_3109_10={&rec_3109_11, (objRefType) &(o_3107_SHOW_IDENT_TABLE)}; struct listStruct rec_3109_9={&rec_3109_10, (objRefType) &(o_3106_WRITE_LINE_NUMBERS)}; struct listStruct rec_3109_8={&rec_3109_9, (objRefType) &(o_3105_WRITE_LIBRARY_NAMES)}; struct listStruct rec_3109_7={&rec_3109_8, (objRefType) &(o_3104_TRACE_EXECUTIL)}; struct listStruct rec_3109_6={&rec_3109_7, (objRefType) &(o_3103_TRACE_MATCH)}; struct listStruct rec_3109_5={&rec_3109_6, (objRefType) &(o_3102_TRACE_HEAP_SIZE)}; struct listStruct rec_3109_4={&rec_3109_5, (objRefType) &(o_3101_TRACE_EXCEPTIONS)}; struct listStruct rec_3109_3={&rec_3109_4, (objRefType) &(o_3100_TRACE_DYNAMIC_CALLS)}; struct listStruct rec_3109_2={&rec_3109_3, (objRefType) &(o_3099_TRACE_DO_ACTION_CHECK)}; struct listStruct rec_3109_1={&rec_3109_2, (objRefType) &(o_3098_TRACE_ACTIONS)}; listType/*t_20_ref_list*/ o_3109/*.*/=&rec_3109_1; /* 1616 */ const enumType/*t_108_singleParseOption*/ o_3110/*.*/=/*TRACE_ACTIONS*/0; /* 1617 */ const enumType/*t_108_singleParseOption*/ o_3111/*.*/=/*TRACE_ACTIONS*/0; /* 1618 */ const enumType/*t_108_singleParseOption*/ o_3112/*.*/=/*SHOW_STATISTICS*/10; /* 1619 */ /* line 976 "../lib/seed7_05.s7i" */ static enumType/*t_108_singleParseOption*/ o_3113_conv (/* attr t_108 singleParseOption*/ const intType/*t_14_integer*/ o_3114_number) { /* line 977 "../lib/seed7_05.s7i" */ return (enumType/*t_108_singleParseOption*/)(((o_3114_number))); } /* line 1 "no_file" */ /* 1620 */ /* line 979 "../lib/seed7_05.s7i" */ static intType/*t_14_integer*/ o_3115_ord (const enumType/*t_108_singleParseOption*/ o_3116_enum_val) { /* line 980 "../lib/seed7_05.s7i" */ return (intType/*t_14_integer*/)(((o_3116_enum_val))); } /* line 1 "no_file" */ /* 1621 */ /* line 982 "../lib/seed7_05.s7i" */ static intType/*t_14_integer*/ o_3117_hashCode (const enumType/*t_108_singleParseOption*/ o_3118_enum_val) { /* line 983 "../lib/seed7_05.s7i" */ return (intType/*t_14_integer*/)((o_3115_ord(o_3118_enum_val))); } /* line 1 "no_file" */ /* 1622 */ /* line 985 "../lib/seed7_05.s7i" */ static intType/*t_14_integer*/ o_3119_compare (const enumType/*t_108_singleParseOption*/ o_3120_enum1, const enumType/*t_108_singleParseOption*/ o_3121_enum2) { /* line 986 "../lib/seed7_05.s7i" */ return (intType/*t_14_integer*/)((intCmp(o_3115_ord(o_3120_enum1), o_3115_ord(o_3121_enum2)))); } /* line 1 "no_file" */ /* 1623 */ /* line 988 "../lib/seed7_05.s7i" */ static intType/*t_14_integer*/ o_3122_conv (/* attr t_14 integer*/ const enumType/*t_108_singleParseOption*/ o_3123_enum_val) { /* line 989 "../lib/seed7_05.s7i" */ return (intType/*t_14_integer*/)((o_3115_ord(o_3123_enum_val))); } /* line 1 "no_file" */ /* 1624 */ /* line 991 "../lib/seed7_05.s7i" */ static enumType/*t_108_singleParseOption*/ o_3124_succ (const enumType/*t_108_singleParseOption*/ *const o_3125_enum_val) { /* line 992 "../lib/seed7_05.s7i" */ return (enumType/*t_108_singleParseOption*/)((o_3113_conv(/* attr t_108 singleParseOption*/ (o_3115_ord(*o_3125_enum_val))+1))); } /* line 1 "no_file" */ /* 1625 */ /* line 994 "../lib/seed7_05.s7i" */ static enumType/*t_108_singleParseOption*/ o_3126_pred (const enumType/*t_108_singleParseOption*/ *const o_3127_enum_val) { /* line 995 "../lib/seed7_05.s7i" */ return (enumType/*t_108_singleParseOption*/)((o_3113_conv(/* attr t_108 singleParseOption*/ (o_3115_ord(*o_3127_enum_val))-1))); } /* line 1 "no_file" */ /* 1626 */ /* line 997 "../lib/seed7_05.s7i" */ static void/*t_1_void*/ o_3128_incr (enumType/*t_108_singleParseOption*/ *const o_3129_enum_val) { /* line 999 "../lib/seed7_05.s7i" */ *o_3129_enum_val=o_3124_succ(o_3129_enum_val); } /* line 1 "no_file" */ /* 1627 */ /* line 1002 "../lib/seed7_05.s7i" */ static void/*t_1_void*/ o_3130_decr (enumType/*t_108_singleParseOption*/ *const o_3131_enum_val) { /* line 1004 "../lib/seed7_05.s7i" */ *o_3131_enum_val=o_3126_pred(o_3131_enum_val); } /* line 1 "no_file" */ /* 1628 */ /* line 1007 "../lib/seed7_05.s7i" */ static boolType/*t_13_boolean*/ o_3132/*<*/ (const enumType/*t_108_singleParseOption*/ o_3133_enum_val1, const enumType/*t_108_singleParseOption*/ o_3134_enum_val2) { /* line 1008 "../lib/seed7_05.s7i" */ return (boolType/*t_13_boolean*/)(((o_3115_ord(o_3133_enum_val1)) < (o_3115_ord(o_3134_enum_val2)))); } /* line 1 "no_file" */ /* 1629 */ /* line 1010 "../lib/seed7_05.s7i" */ static boolType/*t_13_boolean*/ o_3135/*<=*/ (const enumType/*t_108_singleParseOption*/ o_3136_enum_val1, const enumType/*t_108_singleParseOption*/ o_3137_enum_val2) { /* line 1011 "../lib/seed7_05.s7i" */ return (boolType/*t_13_boolean*/)(((o_3115_ord(o_3136_enum_val1)) <= (o_3115_ord(o_3137_enum_val2)))); } /* line 1 "no_file" */ /* 1630 */ /* line 1013 "../lib/seed7_05.s7i" */ static boolType/*t_13_boolean*/ o_3138/*>*/ (const enumType/*t_108_singleParseOption*/ o_3139_enum_val1, const enumType/*t_108_singleParseOption*/ o_3140_enum_val2) { /* line 1014 "../lib/seed7_05.s7i" */ return (boolType/*t_13_boolean*/)(((o_3115_ord(o_3139_enum_val1)) > (o_3115_ord(o_3140_enum_val2)))); } /* line 1 "no_file" */ /* 1631 */ /* line 1016 "../lib/seed7_05.s7i" */ static boolType/*t_13_boolean*/ o_3141/*>=*/ (const enumType/*t_108_singleParseOption*/ o_3142_enum_val1, const enumType/*t_108_singleParseOption*/ o_3143_enum_val2) { /* line 1017 "../lib/seed7_05.s7i" */ return (boolType/*t_13_boolean*/)(((o_3115_ord(o_3142_enum_val1)) >= (o_3115_ord(o_3143_enum_val2)))); } /* line 1 "no_file" */ /* 1632 */ /* declare inline o_3144_for*/ /* declare inline o_3145_for*/ /* declare inline o_3146_for*/ /* declare inline o_3147_for*/ /* declare inline o_3148_for*/ /* declare inline o_3149_for*/ typedef genericType t_109/*t_109_*ANONYM_TYPE**/; /* 1633 */ typedef genericType t_110/*t_110_parseOptions*/; /* 1634 */ /* 1635 */ /* 1636 */ /* 1637 */ /* 1638 */ const boolType/*t_13_boolean*/ o_3150_isBitset=1/*TRUE*/; /* 1639 */ /* line 169 "../lib/bitsetof.s7i" */ static boolType/*t_13_boolean*/ o_3151_in (const enumType/*t_108_singleParseOption*/ o_3152_aValue, const const_setType/*t_110_parseOptions*/ o_3153_aSet) { /* line 170 "../lib/bitsetof.s7i" */ boolType/*t_13_boolean*/ result; /* line 170 "../lib/bitsetof.s7i" */ intType tmp_1; /* line 170 "../lib/bitsetof.s7i" */ const_setType tmp_2; /* line 170 "../lib/bitsetof.s7i" */ intType tmp_3; /* line 170 "../lib/bitsetof.s7i" */ result=(boolType/*t_13_boolean*/)(((tmp_1=o_3115_ord(o_3152_aValue),tmp_2=(o_3153_aSet),tmp_3=bitset_pos(tmp_1),tmp_3>=tmp_2->min_position&&tmp_3<=tmp_2->max_position&&tmp_2->bitset[(uintType)(tmp_3-tmp_2->min_position)] >> (tmp_1 & bitset_mask)&1))); /* line 170 "../lib/bitsetof.s7i" */ return result; } /* line 1 "no_file" */ /* 1640 */ /* line 178 "../lib/bitsetof.s7i" */ static boolType/*t_13_boolean*/ o_3154_not (const enumType/*t_108_singleParseOption*/ o_3155_aValue, const const_setType/*t_110_parseOptions*/ o_3156_aSet) { /* line 179 "../lib/bitsetof.s7i" */ boolType/*t_13_boolean*/ result; /* line 179 "../lib/bitsetof.s7i" */ intType tmp_1; /* line 179 "../lib/bitsetof.s7i" */ const_setType tmp_2; /* line 179 "../lib/bitsetof.s7i" */ intType tmp_3; /* line 179 "../lib/bitsetof.s7i" */ result=(boolType/*t_13_boolean*/)((!((tmp_1=o_3115_ord(o_3155_aValue),tmp_2=(o_3156_aSet),tmp_3=bitset_pos(tmp_1),tmp_3>=tmp_2->min_position&&tmp_3<=tmp_2->max_position&&tmp_2->bitset[(uintType)(tmp_3-tmp_2->min_position)] >> (tmp_1 & bitset_mask)&1)))); /* line 179 "../lib/bitsetof.s7i" */ return result; } /* line 1 "no_file" */ /* 1641 */ /* line 186 "../lib/bitsetof.s7i" */ static void/*t_1_void*/ o_3157_incl (setType/*t_110_parseOptions*/ *const o_3158_aSet, const enumType/*t_108_singleParseOption*/ o_3159_aValue) { /* line 188 "../lib/bitsetof.s7i" */ setIncl(&((*o_3158_aSet)), o_3115_ord(o_3159_aValue)); } /* line 1 "no_file" */ /* 1642 */ /* line 195 "../lib/bitsetof.s7i" */ static void/*t_1_void*/ o_3160_excl (setType/*t_110_parseOptions*/ *const o_3161_aSet, const enumType/*t_108_singleParseOption*/ o_3162_aValue) { { /* line 197 "../lib/bitsetof.s7i" */ setType tmp_1; /* line 197 "../lib/bitsetof.s7i" */ intType tmp_2; /* line 197 "../lib/bitsetof.s7i" */ intType tmp_3; /* line 197 "../lib/bitsetof.s7i" */ tmp_1=(*o_3161_aSet); /* line 197 "../lib/bitsetof.s7i" */ tmp_2=o_3115_ord(o_3162_aValue); /* line 197 "../lib/bitsetof.s7i" */ tmp_3=bitset_pos(tmp_2); /* line 197 "../lib/bitsetof.s7i" */ if (tmp_3>=tmp_1->min_position&&tmp_3<=tmp_1->max_position) { /* line 197 "../lib/bitsetof.s7i" */ tmp_1->bitset[(uintType)(tmp_3-tmp_1->min_position)] &= ~((bitSetType) 1 << (((unsigned int) tmp_2) & bitset_mask)); /* line 197 "../lib/bitsetof.s7i" */ } } } /* line 1 "no_file" */ /* 1643 */ /* line 212 "../lib/bitsetof.s7i" */ static enumType/*t_108_singleParseOption*/ o_3163_rand (const const_setType/*t_110_parseOptions*/ o_3164_aSet) { /* line 213 "../lib/bitsetof.s7i" */ return (enumType/*t_108_singleParseOption*/)((o_3113_conv(/* attr t_108 singleParseOption*/ setRand((o_3164_aSet))))); } /* line 1 "no_file" */ /* 1644 */ /* line 223 "../lib/bitsetof.s7i" */ static enumType/*t_108_singleParseOption*/ o_3165_min (const const_setType/*t_110_parseOptions*/ o_3166_aSet) { /* line 224 "../lib/bitsetof.s7i" */ return (enumType/*t_108_singleParseOption*/)((o_3113_conv(/* attr t_108 singleParseOption*/ setMin((o_3166_aSet))))); } /* line 1 "no_file" */ /* 1645 */ /* line 234 "../lib/bitsetof.s7i" */ static enumType/*t_108_singleParseOption*/ o_3167_max (const const_setType/*t_110_parseOptions*/ o_3168_aSet) { /* line 235 "../lib/bitsetof.s7i" */ return (enumType/*t_108_singleParseOption*/)((o_3113_conv(/* attr t_108 singleParseOption*/ setMax((o_3168_aSet))))); } /* line 1 "no_file" */ /* 1646 */ /* line 237 "../lib/bitsetof.s7i" */ static enumType/*t_108_singleParseOption*/ o_3169_next (const const_setType/*t_110_parseOptions*/ o_3170_aSet, const enumType/*t_108_singleParseOption*/ o_3171_oldValue) { /* line 238 "../lib/bitsetof.s7i" */ return (enumType/*t_108_singleParseOption*/)((o_3113_conv(/* attr t_108 singleParseOption*/ setNext((o_3170_aSet), o_3115_ord(o_3171_oldValue))))); } /* line 1 "no_file" */ /* 1647 */ /* line 240 "../lib/bitsetof.s7i" */ static setType/*t_110_parseOptions*/ o_3172/*{*/ (const enumType/*t_108_singleParseOption*/ o_3173_value) { /* line 241 "../lib/bitsetof.s7i" */ return (setType/*t_110_parseOptions*/)((setBaselit(o_3115_ord(o_3173_value)))); } /* line 1 "no_file" */ /* 1648 */ typedef genericType t_111/*t_111_*ANONYM_TYPE**/; /* 1649 */ /* 1650 */ /* 1651 */ /* 1652 */ /* ACTION ARR_GEN for type arrayType/t_111_*ANONYM_TYPE* element is enumType/t_108_singleParseOption */ /* 1653 */ typedef genericType t_112/*t_112_*ANONYM_TYPE**/; /* 1654 */ /* 1655 */ /* 1656 */ /* 1657 */ /* 1658 */ /* 1659 */ /* ACTION ARR_IDX for type arrayType/t_112_*ANONYM_TYPE* element is enumType/t_108_singleParseOption */ /* 1660 */ /* ACTION ARR_IDX for type arrayType/t_112_*ANONYM_TYPE* element is enumType/t_108_singleParseOption */ /* 1661 */ /* line 163 "../lib/array.s7i" */ static arrayType times_112 (intType n, const enumType/*t_108_singleParseOption*/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.enumValue=b; /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 1662 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_112_*ANONYM_TYPE**/ create_112 (const_arrayType/*t_112_*ANONYM_TYPE**/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_112_*ANONYM_TYPE**/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_112_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.enumValue=b->arr[i].value.enumValue; /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_112 (const_arrayType/*t_112_*ANONYM_TYPE**/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_111 (const_arrayType/*t_111_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_111_*ANONYM_TYPE**/ create_111 (const_arrayType/*t_111_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_111_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_111_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.enumValue=b->arr[i].value.enumValue; /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_112_*ANONYM_TYPE**/ o_3174_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_3175_indexRange, const enumType/*t_108_singleParseOption*/ o_3176_element) { /* line 186 "../lib/array.s7i" */ arrayType/*t_112_*ANONYM_TYPE**/ o_3177_anArray; /* line 186 "../lib/array.s7i" */ o_3177_anArray=create_112(arr[44]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_3177_anArray; /* line 188 "../lib/array.s7i" */ o_3177_anArray=times_112(((((structType)(o_3175_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_3175_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_3176_element); /* line 188 "../lib/array.s7i" */ destr_112(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_3177_anArray; /* line 189 "../lib/array.s7i" */ o_3177_anArray=arrArrlit2(((structType)(o_3175_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_111(/*arrConv()*/o_3177_anArray)); /* line 189 "../lib/array.s7i" */ destr_112(old_array); } return o_3177_anArray; } /* line 1 "no_file" */ /* 1663 */ /* declare inline o_3178_for*/ /* declare inline o_3179_for*/ /* declare inline o_3180_for*/ /* declare inline o_3181_for*/ /* declare inline o_3182_for*/ /* declare inline o_3183_for*/ /* declare inline o_3184_for*/ /* declare inline o_3185_for*/ /* declare inline o_3186_for*/ /* line 329 "../lib/array.s7i" */ static enumType/*t_108_singleParseOption*/ o_3187_rand (const const_arrayType/*t_112_*ANONYM_TYPE**/ o_3188_arr) { /* line 330 "../lib/array.s7i" */ enumType/*t_108_singleParseOption*/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(enumType/*t_108_singleParseOption*/)(((o_3188_arr)->arr[idx_1=intRand((o_3188_arr)->min_position, (o_3188_arr)->max_position),(idxChk(idx_1 < (o_3188_arr)->min_position || idx_1 > (o_3188_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_3188_arr)->min_position)].value.enumValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 1664 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_3189_insert (arrayType/*t_112_*ANONYM_TYPE**/ *const o_3190_arr, const intType/*t_14_integer*/ o_3191_index, const enumType/*t_108_singleParseOption*/ o_3192_element) { /* line 334 "../lib/array.s7i" */ if (((o_3191_index) >= ((*o_3190_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_3191_index) <= (((*o_3190_arr)->max_position)+1))) { { { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_3190_arr; /* line 335 "../lib/array.s7i" */ *o_3190_arr=arrCat(arrCat(arrHead(*o_3190_arr, (o_3191_index)-1), arrBaselit((genericType)(o_3192_element))), arrTail(*o_3190_arr, o_3191_index)); /* line 335 "../lib/array.s7i" */ destr_112(old_array); } } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } } /* line 1 "no_file" */ /* 1665 */ /* line 344 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_3193/*=*/ (const const_arrayType/*t_112_*ANONYM_TYPE**/ o_3194_arr1, const const_arrayType/*t_112_*ANONYM_TYPE**/ o_3195_arr2) { /* line 346 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_3196_isEqual=o_25_FALSE; /* line 348 "../lib/array.s7i" */ intType/*t_14_integer*/ o_3197_number=1; /* line 350 "../lib/array.s7i" */ if ((((o_3194_arr1)->min_position) == ((o_3195_arr2)->min_position)) && /* line 350 "../lib/array.s7i" */ (((o_3194_arr1)->max_position) == ((o_3195_arr2)->max_position))) { /* line 351 "../lib/array.s7i" */ o_3196_isEqual=o_26_TRUE; /* line 352 "../lib/array.s7i" */ o_3197_number=(o_3194_arr1)->min_position; /* line 353 "../lib/array.s7i" */ while (((o_3197_number) <= ((o_3194_arr1)->max_position)) && /* line 353 "../lib/array.s7i" */ (o_3196_isEqual)) { /* line 354 "../lib/array.s7i" */ o_3196_isEqual=((o_3194_arr1)->arr[(idxChk((o_3197_number) < (o_3194_arr1)->min_position || (o_3197_number) > (o_3194_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3197_number)-(o_3194_arr1)->min_position)].value.enumValue) == ((o_3195_arr2)->arr[(idxChk((o_3197_number) < (o_3195_arr2)->min_position || (o_3197_number) > (o_3195_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3197_number)-(o_3195_arr2)->min_position)].value.enumValue); /* line 355 "../lib/array.s7i" */ ++(o_3197_number); } } return o_3196_isEqual; } /* line 1 "no_file" */ /* 1666 */ /* line 360 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_3198/*<>*/ (const const_arrayType/*t_112_*ANONYM_TYPE**/ o_3199_arr1, const const_arrayType/*t_112_*ANONYM_TYPE**/ o_3200_arr2) { /* line 362 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_3201_isNotEqual=o_26_TRUE; /* line 364 "../lib/array.s7i" */ intType/*t_14_integer*/ o_3202_number=1; /* line 366 "../lib/array.s7i" */ if ((((o_3199_arr1)->min_position) == ((o_3200_arr2)->min_position)) && /* line 366 "../lib/array.s7i" */ (((o_3199_arr1)->max_position) == ((o_3200_arr2)->max_position))) { /* line 367 "../lib/array.s7i" */ o_3201_isNotEqual=o_25_FALSE; /* line 368 "../lib/array.s7i" */ o_3202_number=(o_3199_arr1)->min_position; /* line 369 "../lib/array.s7i" */ while (((o_3202_number) <= ((o_3199_arr1)->max_position)) && /* line 369 "../lib/array.s7i" */ (!(o_3201_isNotEqual))) { /* line 370 "../lib/array.s7i" */ o_3201_isNotEqual=((o_3199_arr1)->arr[(idxChk((o_3202_number) < (o_3199_arr1)->min_position || (o_3202_number) > (o_3199_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3202_number)-(o_3199_arr1)->min_position)].value.enumValue) != ((o_3200_arr2)->arr[(idxChk((o_3202_number) < (o_3200_arr2)->min_position || (o_3202_number) > (o_3200_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3202_number)-(o_3200_arr2)->min_position)].value.enumValue); /* line 371 "../lib/array.s7i" */ ++(o_3202_number); } } return o_3201_isNotEqual; } /* line 1 "no_file" */ /* 1667 */ /* line 381 "../lib/array.s7i" */ static void/*t_1_void*/ o_3203_insert (arrayType/*t_112_*ANONYM_TYPE**/ *const o_3204_arr, const enumType/*t_108_singleParseOption*/ o_3205_element) { /* line 383 "../lib/array.s7i" */ intType/*t_14_integer*/ o_3206_number=1; /* line 385 "../lib/array.s7i" */ o_3206_number=(*o_3204_arr)->min_position; /* line 386 "../lib/array.s7i" */ while (((o_3206_number) <= ((*o_3204_arr)->max_position)) && /* line 386 "../lib/array.s7i" */ (o_3132/*<*/((*o_3204_arr)->arr[(idxChk((o_3206_number) < (*o_3204_arr)->min_position || (o_3206_number) > (*o_3204_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3206_number)-(*o_3204_arr)->min_position)].value.enumValue, o_3205_element))) { /* line 387 "../lib/array.s7i" */ ++(o_3206_number); } /* line 389 "../lib/array.s7i" */ if ((o_3206_number) > ((*o_3204_arr)->max_position)) { { { /* line 390 "../lib/array.s7i" */ arrayType old_array=*o_3204_arr; /* line 390 "../lib/array.s7i" */ *o_3204_arr=arrCat(create_112(*o_3204_arr), arrBaselit((genericType)(o_3205_element))); /* line 390 "../lib/array.s7i" */ destr_112(old_array); } } } else /* line 391 "../lib/array.s7i" */ if (o_3138/*>*/((*o_3204_arr)->arr[(idxChk((o_3206_number) < (*o_3204_arr)->min_position || (o_3206_number) > (*o_3204_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3206_number)-(*o_3204_arr)->min_position)].value.enumValue, o_3205_element)) { { { /* line 392 "../lib/array.s7i" */ arrayType old_array=*o_3204_arr; /* line 392 "../lib/array.s7i" */ *o_3204_arr=arrCat(arrCat(arrHead(*o_3204_arr, (o_3206_number)-1), arrBaselit((genericType)(o_3205_element))), arrTail(*o_3204_arr, o_3206_number)); /* line 392 "../lib/array.s7i" */ destr_112(old_array); } } } } /* line 1 "no_file" */ /* 1668 */ /* line 400 "../lib/array.s7i" */ static intType/*t_14_integer*/ o_3207_compare (const const_arrayType/*t_112_*ANONYM_TYPE**/ o_3208_arr1, const const_arrayType/*t_112_*ANONYM_TYPE**/ o_3209_arr2) { /* line 402 "../lib/array.s7i" */ intType/*t_14_integer*/ o_3210_signumValue=0; /* line 404 "../lib/array.s7i" */ intType/*t_14_integer*/ o_3211_idx1=0; /* line 405 "../lib/array.s7i" */ intType/*t_14_integer*/ o_3212_idx2=0; /* line 407 "../lib/array.s7i" */ o_3211_idx1=(o_3208_arr1)->min_position; /* line 408 "../lib/array.s7i" */ o_3212_idx2=(o_3209_arr2)->min_position; /* line 409 "../lib/array.s7i" */ while (((o_3211_idx1) <= ((o_3208_arr1)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_3212_idx2) <= ((o_3209_arr2)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_3119_compare((o_3208_arr1)->arr[(idxChk((o_3211_idx1) < (o_3208_arr1)->min_position || (o_3211_idx1) > (o_3208_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3211_idx1)-(o_3208_arr1)->min_position)].value.enumValue, (o_3209_arr2)->arr[(idxChk((o_3212_idx2) < (o_3209_arr2)->min_position || (o_3212_idx2) > (o_3209_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3212_idx2)-(o_3209_arr2)->min_position)].value.enumValue)) == (0L))) { /* line 410 "../lib/array.s7i" */ ++(o_3211_idx1); /* line 411 "../lib/array.s7i" */ ++(o_3212_idx2); } /* line 413 "../lib/array.s7i" */ if (((o_3211_idx1) <= ((o_3208_arr1)->max_position)) && /* line 413 "../lib/array.s7i" */ ((o_3212_idx2) <= ((o_3209_arr2)->max_position))) { /* line 414 "../lib/array.s7i" */ o_3210_signumValue=o_3119_compare((o_3208_arr1)->arr[(idxChk((o_3211_idx1) < (o_3208_arr1)->min_position || (o_3211_idx1) > (o_3208_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3211_idx1)-(o_3208_arr1)->min_position)].value.enumValue, (o_3209_arr2)->arr[(idxChk((o_3212_idx2) < (o_3209_arr2)->min_position || (o_3212_idx2) > (o_3209_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3212_idx2)-(o_3209_arr2)->min_position)].value.enumValue); } else { /* line 416 "../lib/array.s7i" */ o_3210_signumValue=intCmp(((o_3208_arr1)->max_position - (o_3208_arr1)->min_position + 1), ((o_3209_arr2)->max_position - (o_3209_arr2)->min_position + 1)); } return o_3210_signumValue; } /* line 1 "no_file" */ /* 1669 */ /* line 420 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_3213/*<*/ (const const_arrayType/*t_112_*ANONYM_TYPE**/ o_3214_arr1, const const_arrayType/*t_112_*ANONYM_TYPE**/ o_3215_arr2) { /* line 421 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_3207_compare(o_3214_arr1, o_3215_arr2)) < (0L))); } /* line 1 "no_file" */ /* 1670 */ /* line 423 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_3216/*>*/ (const const_arrayType/*t_112_*ANONYM_TYPE**/ o_3217_arr1, const const_arrayType/*t_112_*ANONYM_TYPE**/ o_3218_arr2) { /* line 424 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_3207_compare(o_3217_arr1, o_3218_arr2)) > (0L))); } /* line 1 "no_file" */ /* 1671 */ /* line 426 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_3219/*<=*/ (const const_arrayType/*t_112_*ANONYM_TYPE**/ o_3220_arr1, const const_arrayType/*t_112_*ANONYM_TYPE**/ o_3221_arr2) { /* line 427 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_3207_compare(o_3220_arr1, o_3221_arr2)) <= (0L))); } /* line 1 "no_file" */ /* 1672 */ /* line 429 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_3222/*>=*/ (const const_arrayType/*t_112_*ANONYM_TYPE**/ o_3223_arr1, const const_arrayType/*t_112_*ANONYM_TYPE**/ o_3224_arr2) { /* line 430 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_3207_compare(o_3223_arr1, o_3224_arr2)) >= (0L))); } /* line 1 "no_file" */ /* 1673 */ static intType generic_cmp_108 (const genericType a, const genericType b) { return o_3119_compare(((const_rtlObjectType *) &a)->value.enumValue, ((const_rtlObjectType *) &b)->value.enumValue); } /* objRefType/t_19_reference */ intfunctype o_3225/*.*/=(intfunctype)(&generic_cmp_108); /* 1674 */ /* line 436 "../lib/array.s7i" */ static arrayType/*t_112_*ANONYM_TYPE**/ o_3226_sort (const const_arrayType/*t_112_*ANONYM_TYPE**/ o_3227_arr_obj) { /* line 437 "../lib/array.s7i" */ return (arrayType/*t_112_*ANONYM_TYPE**/)((arrSort(create_112(o_3227_arr_obj), (compareType)(o_3225/*.*/)))); } /* line 1 "no_file" */ /* 1675 */ /* line 246 "../lib/bitsetof.s7i" */ static setType/*t_110_parseOptions*/ o_3228/*{*/ (const const_arrayType/*t_111_*ANONYM_TYPE**/ o_3229_value) { /* line 248 "../lib/bitsetof.s7i" */ setType/*t_110_parseOptions*/ o_3230_aSet; /* line 250 "../lib/bitsetof.s7i" */ intType/*t_14_integer*/ o_3231_number=0; /* line 248 "../lib/bitsetof.s7i" */ o_3230_aSet=setCreate(set[0]); { /* line 252 "../lib/bitsetof.s7i" */ const_arrayType tmp_1; /* line 252 "../lib/bitsetof.s7i" */ intType tmp_e_2=(tmp_1=/*arrArrlit()*/o_3229_value,tmp_1->max_position - tmp_1->min_position + 1); /* line 252 "../lib/bitsetof.s7i" */ for (o_3231_number=1L; o_3231_number<=tmp_e_2; (o_3231_number)++) { { /* line 253 "../lib/bitsetof.s7i" */ const_arrayType tmp_1; /* line 253 "../lib/bitsetof.s7i" */ o_3157_incl(&(o_3230_aSet), (*(tmp_1=/*arrArrlit()*/o_3229_value, &tmp_1->arr[(idxChk((o_3231_number) < tmp_1->min_position || (o_3231_number) > tmp_1->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3231_number)-tmp_1->min_position)].value.enumValue))); } } } return o_3230_aSet; } /* line 1 "no_file" */ /* 1676 */ /* line 257 "../lib/bitsetof.s7i" */ static setType/*t_110_parseOptions*/ o_3232/*{*/ (const enumType/*t_108_singleParseOption*/ o_3233_lowerValue, const enumType/*t_108_singleParseOption*/ o_3234_upperValue) { /* line 258 "../lib/bitsetof.s7i" */ return (setType/*t_110_parseOptions*/)((setRangelit(o_3115_ord(o_3233_lowerValue), o_3115_ord(o_3234_upperValue)))); } /* line 1 "no_file" */ /* 1677 */ /* declare inline o_3235_for*/ /* declare inline o_3236_for*/ /* declare inline o_3237_for*/ /* 1678 */ const t_109/*t_109_*ANONYM_TYPE**/ o_3238_WHEN_EMPTY=/*WHEN_EMPTY*/0; /* 1679 */ /* 1680 */ /* 1681 */ /* 1682 */ /* line 118 "../lib/progs.s7i" */ static progType/*t_107_program*/ o_3243_parseFile (const const_striType/*t_15_string*/ o_3244_fileName, const const_setType/*t_110_parseOptions*/ o_3245_options, const const_arrayType/*t_28_TEST_3*/ o_3246_libraryDirs) { /* line 120 "../lib/progs.s7i" */ return (progType/*t_107_program*/)((prgFilParse(o_3244_fileName, o_3245_options, o_3246_libraryDirs, &str[0] /* "" */))); } /* line 1 "no_file" */ /* 1683 */ /* line 123 "../lib/progs.s7i" */ static progType/*t_107_program*/ o_3247_parseFile (const const_striType/*t_15_string*/ o_3248_fileName, const const_setType/*t_110_parseOptions*/ o_3249_options) { /* line 124 "../lib/progs.s7i" */ progType/*t_107_program*/ result; /* line 124 "../lib/progs.s7i" */ arrayType/*t_28_TEST_3*/ tmp_2 = (arrayType/*t_28_TEST_3*/)(NULL); /* line 124 "../lib/progs.s7i" */ result=(progType/*t_107_program*/)((prgFilParse(o_3248_fileName, o_3249_options, (tmp_2=(arrayType/*t_28_TEST_3*/)(times_28(0L, &str[0] /* "" */))), &str[0] /* "" */))); /* line 124 "../lib/progs.s7i" */ destr_28(tmp_2); /* line 124 "../lib/progs.s7i" */ return result; } /* line 1 "no_file" */ /* 1684 */ /* line 127 "../lib/progs.s7i" */ static progType/*t_107_program*/ o_3250_parseFile (const const_striType/*t_15_string*/ o_3251_fileName) { /* line 128 "../lib/progs.s7i" */ progType/*t_107_program*/ result; /* line 128 "../lib/progs.s7i" */ arrayType/*t_28_TEST_3*/ tmp_2 = (arrayType/*t_28_TEST_3*/)(NULL); /* line 128 "../lib/progs.s7i" */ result=(progType/*t_107_program*/)((prgFilParse(o_3251_fileName, (setType/*t_110_parseOptions*/)(set[0]), (tmp_2=(arrayType/*t_28_TEST_3*/)(times_28(0L, &str[0] /* "" */))), &str[0] /* "" */))); /* line 128 "../lib/progs.s7i" */ destr_28(tmp_2); /* line 128 "../lib/progs.s7i" */ return result; } /* line 1 "no_file" */ /* 1685 */ /* line 141 "../lib/progs.s7i" */ static progType/*t_107_program*/ o_3252_parseStri (const const_striType/*t_15_string*/ o_3253_stri, const const_setType/*t_110_parseOptions*/ o_3254_options, const const_arrayType/*t_28_TEST_3*/ o_3255_libraryDirs) { /* line 143 "../lib/progs.s7i" */ return (progType/*t_107_program*/)((prgStrParse(o_3253_stri, o_3254_options, o_3255_libraryDirs, &str[0] /* "" */))); } /* line 1 "no_file" */ /* 1686 */ /* line 146 "../lib/progs.s7i" */ static progType/*t_107_program*/ o_3256_parseStri (const const_striType/*t_15_string*/ o_3257_stri, const const_setType/*t_110_parseOptions*/ o_3258_options) { /* line 147 "../lib/progs.s7i" */ progType/*t_107_program*/ result; /* line 147 "../lib/progs.s7i" */ arrayType/*t_28_TEST_3*/ tmp_2 = (arrayType/*t_28_TEST_3*/)(NULL); /* line 147 "../lib/progs.s7i" */ result=(progType/*t_107_program*/)((prgStrParse(o_3257_stri, o_3258_options, (tmp_2=(arrayType/*t_28_TEST_3*/)(times_28(0L, &str[0] /* "" */))), &str[0] /* "" */))); /* line 147 "../lib/progs.s7i" */ destr_28(tmp_2); /* line 147 "../lib/progs.s7i" */ return result; } /* line 1 "no_file" */ /* 1687 */ /* line 150 "../lib/progs.s7i" */ static progType/*t_107_program*/ o_3259_parseStri (const const_striType/*t_15_string*/ o_3260_stri) { /* line 151 "../lib/progs.s7i" */ progType/*t_107_program*/ result; /* line 151 "../lib/progs.s7i" */ arrayType/*t_28_TEST_3*/ tmp_2 = (arrayType/*t_28_TEST_3*/)(NULL); /* line 151 "../lib/progs.s7i" */ result=(progType/*t_107_program*/)((prgStrParse(o_3260_stri, (setType/*t_110_parseOptions*/)(set[0]), (tmp_2=(arrayType/*t_28_TEST_3*/)(times_28(0L, &str[0] /* "" */))), &str[0] /* "" */))); /* line 151 "../lib/progs.s7i" */ destr_28(tmp_2); /* line 151 "../lib/progs.s7i" */ return result; } /* line 1 "no_file" */ /* 1688 */ /* line 170 "../lib/progs.s7i" */ static void/*t_1_void*/ o_3261_execute (const const_progType/*t_107_program*/ o_3262_aProgram, const const_arrayType/*t_28_TEST_3*/ o_3263_parameters, const const_setType/*t_110_parseOptions*/ o_3264_options) { prgExec(o_3262_aProgram, o_3263_parameters, o_3264_options, &str[0] /* "" */); } /* line 1 "no_file" */ /* 1689 */ /* line 177 "../lib/progs.s7i" */ static void/*t_1_void*/ o_3265_execute (const const_progType/*t_107_program*/ o_3266_aProgram, const const_arrayType/*t_28_TEST_3*/ o_3267_parameters) { prgExec(o_3266_aProgram, o_3267_parameters, (setType/*t_110_parseOptions*/)(set[0]), &str[0] /* "" */); } /* line 1 "no_file" */ /* 1690 */ /* line 183 "../lib/progs.s7i" */ static void/*t_1_void*/ o_3268_execute (const const_progType/*t_107_program*/ o_3269_aProgram) { /* line 183 "../lib/progs.s7i" */ arrayType/*t_28_TEST_3*/ tmp_1 = (arrayType/*t_28_TEST_3*/)(NULL); prgExec(o_3269_aProgram, (tmp_1=(arrayType/*t_28_TEST_3*/)(times_28(0L, &str[0] /* "" */))), (setType/*t_110_parseOptions*/)(set[0]), &str[0] /* "" */); /* line 183 "../lib/progs.s7i" */ destr_28(tmp_1); } /* line 1 "no_file" */ /* 1691 */ /* 1692 */ /* 1693 */ /* 1694 */ typedef genericType t_113/*t_113_*ANONYM_TYPE**/; /* 1695 */ /* 1696 */ /* 1697 */ /* 1698 */ /* 1699 */ /* objRefType/t_113_*ANONYM_TYPE* */ objRefType o_3270/*.*/=(objRefType)(NULL); /* 1700 */ /* objRefType/t_113_*ANONYM_TYPE* */ objRefType o_3271/*.*/=(objRefType)(NULL); /* 1701 */ typedef genericType t_114/*t_114_*ANONYM_TYPE**/; /* 1702 */ /* 1703 */ /* 1704 */ /* 1705 */ /* 1706 */ /* objRefType/t_114_*ANONYM_TYPE* */ objRefType o_3272/*.*/=(objRefType)(NULL); /* 1707 */ /* objRefType/t_114_*ANONYM_TYPE* */ objRefType o_3273/*.*/=(objRefType)(NULL); /* 1708 */ /* 1709 */ /* 1710 */ /* 1711 */ structType/*t_115_utf8_file*/ o_3274/*.*/; /* 1712 */ /* line 204 "../lib/struct.s7i" */ static structType/*t_115_utf8_file*/ create_115 (const_structType/*t_115_utf8_file*/ b) /* line 204 "../lib/struct.s7i" */ { /* line 204 "../lib/struct.s7i" */ structType/*t_115_utf8_file*/ a; /* line 204 "../lib/struct.s7i" */ a=(structType/*t_115_utf8_file*/)(malloc(sizeof(struct rtlStructStruct) - sizeof(rtlObjectType) + /* line 204 "../lib/struct.s7i" */ 3 * sizeof(rtlObjectType))); /* line 204 "../lib/struct.s7i" */ if (a == NULL) { /* line 204 "../lib/struct.s7i" */ raise_error(MEMORY_ERROR); /* line 204 "../lib/struct.s7i" */ } else { /* line 204 "../lib/struct.s7i" */ a->usage_count = 1; a->type_num = b->type_num; /* line 204 "../lib/struct.s7i" */ a->stru[0].value.charValue=b->stru[0].value.charValue; /* line 204 "../lib/struct.s7i" */ a->stru[1].value.fileValue=b->stru[1].value.fileValue; /* line 204 "../lib/struct.s7i" */ a->stru[2].value.striValue=strCreate(b->stru[2].value.striValue); /* line 204 "../lib/struct.s7i" */ } /* line 204 "../lib/struct.s7i" */ return a; /* line 204 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 205 "../lib/struct.s7i" */ static void destr_115 (structType/*t_115_utf8_file*/ b) /* line 205 "../lib/struct.s7i" */ { /* line 205 "../lib/struct.s7i" */ if (b != NULL && b->usage_count != 0) { b->usage_count--; if (b->usage_count == 0) { /* line 205 "../lib/struct.s7i" */ /* line 205 "../lib/struct.s7i" */ /* line 205 "../lib/struct.s7i" */ strDestr(b->stru[2].value.striValue); /* line 205 "../lib/struct.s7i" */ free((void *)(b)); /* line 205 "../lib/struct.s7i" */ }} /* line 205 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 88 "../lib/utf8.s7i" */ static interfaceType/*t_46_file*/ o_3275_openUtf8 (const const_striType/*t_15_string*/ o_3276_path, const const_striType/*t_15_string*/ o_3277_mode) { /* line 90 "../lib/utf8.s7i" */ interfaceType/*t_46_file*/ o_3278_newFile; /* line 92 "../lib/utf8.s7i" */ fileType/*t_50_clib_file*/ o_3279_open_file=NULL; /* line 93 "../lib/utf8.s7i" */ structType/*t_115_utf8_file*/ o_3280_new_file; /* line 90 "../lib/utf8.s7i" */ o_3278_newFile=itfCreate(o_976_STD_NULL/* STRUCTOBJECT */); /* line 93 "../lib/utf8.s7i" */ o_3280_new_file=create_115(sct[46]); /* line 95 "../lib/utf8.s7i" */ o_3279_open_file=filOpen(o_3276_path, o_3277_mode); /* line 96 "../lib/utf8.s7i" */ if ((o_3279_open_file) != (o_1015_CLIB_NULL_FILE)) { /* line 97 "../lib/utf8.s7i" */ ((structType)(o_3280_new_file))->stru[1].value.fileValue/*->o_1020_ext_file*/=o_3279_open_file; /* line 98 "../lib/utf8.s7i" */ strCopy(&(((structType)(o_3280_new_file))->stru[2].value.striValue/*->o_1021_name*/), o_3276_path); { /* line 99 "../lib/utf8.s7i" */ interfaceType result_2; /* line 99 "../lib/utf8.s7i" */ structType old_struct=o_3278_newFile; /* line 99 "../lib/utf8.s7i" */ o_3278_newFile=/* ITF_TO_INTERFACE */(result_2=o_3280_new_file,result_2->usage_count!=0 ? result_2->usage_count++ : 0,result_2); /* line 99 "../lib/utf8.s7i" */ destr_46(old_struct); } } /* line 88 "../lib/utf8.s7i" */ destr_115(o_3280_new_file); return o_3278_newFile; } /* line 1 "no_file" */ /* 1713 */ /* line 105 "../lib/utf8.s7i" */ static interfaceType/*t_46_file*/ o_3281_open_utf8 (const const_striType/*t_15_string*/ o_3282_path, const const_striType/*t_15_string*/ o_3283_mode) { /* line 106 "../lib/utf8.s7i" */ return (interfaceType/*t_46_file*/)((o_3275_openUtf8(o_3282_path, o_3283_mode))); } /* line 1 "no_file" */ /* 1714 */ /* line 113 "../lib/utf8.s7i" */ static void/*t_1_void*/ o_3284_write (const structType/*t_115_utf8_file*/ o_3285_outFile, const const_striType/*t_15_string*/ o_3286_stri) { /* line 115 "../lib/utf8.s7i" */ ut8Write(((structType)(o_3285_outFile))->stru[1].value.fileValue/*->o_1020_ext_file*/, o_3286_stri); } /* line 1 "no_file" */ /* 1715 */ /* line 124 "../lib/utf8.s7i" */ static charType/*t_18_char*/ o_3287_getc (const structType/*t_115_utf8_file*/ o_3288_inFile) { /* line 125 "../lib/utf8.s7i" */ return (charType/*t_18_char*/)((ut8Getc(((structType)(o_3288_inFile))->stru[1].value.fileValue/*->o_1020_ext_file*/))); } /* line 1 "no_file" */ /* 1716 */ /* line 134 "../lib/utf8.s7i" */ static striType/*t_15_string*/ o_3289_gets (const structType/*t_115_utf8_file*/ o_3290_inFile, const intType/*t_14_integer*/ o_3291_maxLength) { /* line 135 "../lib/utf8.s7i" */ return (striType/*t_15_string*/)((ut8Gets(((structType)(o_3290_inFile))->stru[1].value.fileValue/*->o_1020_ext_file*/, o_3291_maxLength))); } /* line 1 "no_file" */ /* 1717 */ /* line 151 "../lib/utf8.s7i" */ static striType/*t_15_string*/ o_3292_getwd (structType/*t_115_utf8_file*/ *const o_3293_inFile) { /* line 152 "../lib/utf8.s7i" */ return (striType/*t_15_string*/)((ut8WordRead(((structType)(*o_3293_inFile))->stru[1].value.fileValue/*->o_1020_ext_file*/, &(((structType)(*o_3293_inFile))->stru[0].value.charValue/*->o_971_bufferChar*/)))); } /* line 1 "no_file" */ /* 1718 */ /* line 167 "../lib/utf8.s7i" */ static striType/*t_15_string*/ o_3294_getln (structType/*t_115_utf8_file*/ *const o_3295_inFile) { /* line 168 "../lib/utf8.s7i" */ return (striType/*t_15_string*/)((ut8LineRead(((structType)(*o_3295_inFile))->stru[1].value.fileValue/*->o_1020_ext_file*/, &(((structType)(*o_3295_inFile))->stru[0].value.charValue/*->o_971_bufferChar*/)))); } /* line 1 "no_file" */ /* 1719 */ /* line 181 "../lib/utf8.s7i" */ static void/*t_1_void*/ o_3296_seek (const structType/*t_115_utf8_file*/ o_3297_aFile, const intType/*t_14_integer*/ o_3298_position) { ut8Seek(((structType)(o_3297_aFile))->stru[1].value.fileValue/*->o_1020_ext_file*/, o_3298_position); } /* line 1 "no_file" */ /* 1720 */ /* line 190 "../lib/utf8.s7i" */ static structType/*t_115_utf8_file*/ o_3299_INIT_STD_UTF8_FILE (const fileType/*t_50_clib_file*/ *const o_3300_primitive_file, const const_striType/*t_15_string*/ o_3301_path) { /* line 193 "../lib/utf8.s7i" */ structType/*t_115_utf8_file*/ o_3302_aFile; /* line 193 "../lib/utf8.s7i" */ o_3302_aFile=create_115(sct[45]); /* line 195 "../lib/utf8.s7i" */ ((structType)(o_3302_aFile))->stru[1].value.fileValue/*->o_1020_ext_file*/=*o_3300_primitive_file; /* line 196 "../lib/utf8.s7i" */ strCopy(&(((structType)(o_3302_aFile))->stru[2].value.striValue/*->o_1021_name*/), o_3301_path); return o_3302_aFile; } /* line 1 "no_file" */ /* 1721 */ structType/*t_115_utf8_file*/ o_3303_STD_UTF8_IN; /* 1722 */ structType/*t_115_utf8_file*/ o_3304_STD_UTF8_OUT; /* 1723 */ structType/*t_115_utf8_file*/ o_3305_STD_UTF8_ERR; /* 1724 */ /* line 64 "../lib/shell.s7i" */ static void/*t_1_void*/ o_3306_cmd_sh (const const_striType/*t_15_string*/ o_3307_command, const const_striType/*t_15_string*/ o_3308_parameters) { /*noop*//* CALLOBJECT ACTOBJECT CMD_SHELL */cmdShell(o_3307_command, o_3308_parameters);/*ignore*/ } /* line 1 "no_file" */ /* 1725 */ /* line 87 "../lib/shell.s7i" */ static intType/*t_14_integer*/ o_3309_shell (const const_striType/*t_15_string*/ o_3310_cmdAndParams) { /* line 89 "../lib/shell.s7i" */ intType/*t_14_integer*/ o_3311_returnCode=0; /* line 91 "../lib/shell.s7i" */ striType/*t_15_string*/ o_3312_command; /* line 92 "../lib/shell.s7i" */ striType/*t_15_string*/ o_3313_parameters; /* line 91 "../lib/shell.s7i" */ o_3312_command=strEmpty(); /* "" */ /* line 92 "../lib/shell.s7i" */ o_3313_parameters=strEmpty(); /* "" */ /* line 94 "../lib/shell.s7i" */ strCopy(&(o_3313_parameters), o_3310_cmdAndParams); { /* line 95 "../lib/shell.s7i" */ striType old_stri=o_3312_command; /* line 95 "../lib/shell.s7i" */ o_3312_command=o_1929_getCommandLineWord(&(o_3313_parameters)); /* line 95 "../lib/shell.s7i" */ strDestr(old_stri); } /* line 96 "../lib/shell.s7i" */ o_3311_returnCode=cmdShell(o_3312_command, o_3313_parameters); /* line 87 "../lib/shell.s7i" */ strDestr(o_3312_command); /* line 87 "../lib/shell.s7i" */ strDestr(o_3313_parameters); return o_3311_returnCode; } /* line 1 "no_file" */ /* 1726 */ /* line 116 "../lib/shell.s7i" */ static void/*t_1_void*/ o_3314_cmd_sh (const const_striType/*t_15_string*/ o_3315_cmdAndParams) { /*noop*//* CALLOBJECT BLOCKOBJECT */o_3309_shell(o_3315_cmdAndParams);/*ignore*/ } /* line 1 "no_file" */ /* 1727 */ /* line 161 "../lib/shell.s7i" */ static striType/*t_15_string*/ o_3316_toShellPath (const const_striType/*t_15_string*/ o_3317_path) { /* line 162 "../lib/shell.s7i" */ striType/*t_15_string*/ result; /* line 162 "../lib/shell.s7i" */ striType tmp_2 = NULL; /* line 162 "../lib/shell.s7i" */ result=(striType/*t_15_string*/)((cmdShellEscape((tmp_2=cmdToOsPath(o_3317_path))))); /* line 162 "../lib/shell.s7i" */ strDestr(tmp_2); /* line 162 "../lib/shell.s7i" */ return result; } /* line 1 "no_file" */ /* 1728 */ /* line 165 "../lib/shell.s7i" */ static intType/*t_14_integer*/ o_3318_shell (const const_striType/*t_15_string*/ o_3319_command, const const_arrayType/*t_28_TEST_3*/ o_3320_paramList) { /* line 167 "../lib/shell.s7i" */ intType/*t_14_integer*/ o_3321_returnCode=0; /* line 169 "../lib/shell.s7i" */ striType/*t_15_string*/ o_3322_parameter; /* line 170 "../lib/shell.s7i" */ striType/*t_15_string*/ o_3323_parameters; /* line 169 "../lib/shell.s7i" */ o_3322_parameter=strEmpty(); /* "" */ /* line 170 "../lib/shell.s7i" */ o_3323_parameters=strEmpty(); /* "" */ /* inline proc o_301_for */ { /* inline params */ /* line 172 "../lib/shell.s7i" */ striType/*t_15_string*/ *const o_3324_forVar=&(o_3322_parameter); /* line 172 "../lib/shell.s7i" */ const const_arrayType/*t_28_TEST_3*/ o_3325_arr=o_3320_paramList; /* line 172 "../lib/shell.s7i" */ /* push proc param o_3326_statements */ /* line 172 "../lib/shell.s7i" */ /* inline local_vars */ /* line 172 "../lib/shell.s7i" */ /* line 199 "../lib/array.s7i" */ /* line 172 "../lib/shell.s7i" */ intType/*t_14_integer*/ o_3327_number=0; /* inline body */ { /* line 201 "../lib/array.s7i" */ intType tmp_e_1=(o_3325_arr)->max_position; /* line 201 "../lib/array.s7i" */ for (o_3327_number=(o_3325_arr)->min_position; o_3327_number<=tmp_e_1; (o_3327_number)++) { /* line 202 "../lib/array.s7i" */ strCopy(&(*o_3324_forVar), (o_3325_arr)->arr[(idxChk((o_3327_number) < (o_3325_arr)->min_position || (o_3327_number) > (o_3325_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3327_number)-(o_3325_arr)->min_position)].value.striValue); /* closure o_3326_statements*/ { /* line 173 "../lib/shell.s7i" */ if (((o_3323_parameters)->size!=0 /* "" */)) { /* line 174 "../lib/shell.s7i" */ /* line 174 "../lib/shell.s7i" */ if (((o_3323_parameters))->size == ((o_3323_parameters))->capacity) { /* line 174 "../lib/shell.s7i" */ strPush(&((o_3323_parameters)), (charType) ' '); /* line 174 "../lib/shell.s7i" */ } else { /* line 174 "../lib/shell.s7i" */ ((o_3323_parameters))->mem[((o_3323_parameters))->size]=(charType) ' '; /* line 174 "../lib/shell.s7i" */ ((o_3323_parameters))->size++; /* line 174 "../lib/shell.s7i" */ } } /* line 176 "../lib/shell.s7i" */ strAppendTemp(&(o_3323_parameters), cmdShellEscape(o_3322_parameter)); } /* closure o_3326_statements*/ } } /* pop proc param o_3326_statements */ } /* inline proc o_301_for */ /* line 178 "../lib/shell.s7i" */ o_3321_returnCode=cmdShell(o_3319_command, o_3323_parameters); /* line 165 "../lib/shell.s7i" */ strDestr(o_3322_parameter); /* line 165 "../lib/shell.s7i" */ strDestr(o_3323_parameters); return o_3321_returnCode; } /* line 1 "no_file" */ /* 1729 */ /* 1730 */ /* 1731 */ /* 1732 */ typedef genericType t_116/*t_116_*ANONYM_TYPE**/; /* 1733 */ /* 1734 */ /* 1735 */ /* 1736 */ /* 1737 */ /* objRefType/t_116_*ANONYM_TYPE* */ objRefType o_3328/*.*/=(objRefType)(NULL); /* 1738 */ /* objRefType/t_116_*ANONYM_TYPE* */ objRefType o_3329/*.*/=(objRefType)(NULL); /* 1739 */ typedef genericType t_117/*t_117_*ANONYM_TYPE**/; /* 1740 */ /* 1741 */ /* 1742 */ /* 1743 */ /* 1744 */ /* objRefType/t_117_*ANONYM_TYPE* */ objRefType o_3330/*.*/=(objRefType)(NULL); /* 1745 */ /* objRefType/t_117_*ANONYM_TYPE* */ objRefType o_3331/*.*/=(objRefType)(NULL); /* 1746 */ /* 1747 */ /* 1748 */ /* 1749 */ structType/*t_118_popen_file*/ o_3332/*.*/; /* 1750 */ /* itf_cpy2: interfaceType/t_46_file := structType/t_118_popen_file */ /* 1751 */ /* line 204 "../lib/struct.s7i" */ static structType/*t_118_popen_file*/ create_118 (const_structType/*t_118_popen_file*/ b) /* line 204 "../lib/struct.s7i" */ { /* line 204 "../lib/struct.s7i" */ structType/*t_118_popen_file*/ a; /* line 204 "../lib/struct.s7i" */ a=(structType/*t_118_popen_file*/)(malloc(sizeof(struct rtlStructStruct) - sizeof(rtlObjectType) + /* line 204 "../lib/struct.s7i" */ 3 * sizeof(rtlObjectType))); /* line 204 "../lib/struct.s7i" */ if (a == NULL) { /* line 204 "../lib/struct.s7i" */ raise_error(MEMORY_ERROR); /* line 204 "../lib/struct.s7i" */ } else { /* line 204 "../lib/struct.s7i" */ a->usage_count = 1; a->type_num = b->type_num; /* line 204 "../lib/struct.s7i" */ a->stru[0].value.charValue=b->stru[0].value.charValue; /* line 204 "../lib/struct.s7i" */ a->stru[1].value.fileValue=b->stru[1].value.fileValue; /* line 204 "../lib/struct.s7i" */ a->stru[2].value.striValue=strCreate(b->stru[2].value.striValue); /* line 204 "../lib/struct.s7i" */ } /* line 204 "../lib/struct.s7i" */ return a; /* line 204 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 205 "../lib/struct.s7i" */ static void destr_118 (structType/*t_118_popen_file*/ b) /* line 205 "../lib/struct.s7i" */ { /* line 205 "../lib/struct.s7i" */ if (b != NULL && b->usage_count != 0) { b->usage_count--; if (b->usage_count == 0) { /* line 205 "../lib/struct.s7i" */ /* line 205 "../lib/struct.s7i" */ /* line 205 "../lib/struct.s7i" */ strDestr(b->stru[2].value.striValue); /* line 205 "../lib/struct.s7i" */ free((void *)(b)); /* line 205 "../lib/struct.s7i" */ }} /* line 205 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 206 "../lib/struct.s7i" */ static void cpy_118 (structType/*t_118_popen_file*/ a, structType/*t_118_popen_file*/ b) /* line 206 "../lib/struct.s7i" */ { /* line 206 "../lib/struct.s7i" */ a->stru[0].value.charValue=b->stru[0].value.charValue; /* line 206 "../lib/struct.s7i" */ a->stru[1].value.fileValue=b->stru[1].value.fileValue; /* line 206 "../lib/struct.s7i" */ strCopy(&(a->stru[2].value.striValue), b->stru[2].value.striValue); /* line 206 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 886 "../lib/seed7_05.s7i" */ static structType/*t_118_popen_file*/ o_3333_xalloc (const structType/*t_118_popen_file*/ o_3334_newStuct) { /* line 888 "../lib/seed7_05.s7i" */ structType/*t_118_popen_file*/ o_3335_allocated; /* line 888 "../lib/seed7_05.s7i" */ o_3335_allocated=create_118(sct[50]); /* line 890 "../lib/seed7_05.s7i" */ cpy_118((structType/*t_118_popen_file*/)(o_3335_allocated), (structType/*t_118_popen_file*/)(o_3334_newStuct)); return o_3335_allocated; } /* line 1 "no_file" */ /* 1752 */ /* line 211 "../lib/shell.s7i" */ static interfaceType/*t_46_file*/ o_3336_popen (const const_striType/*t_15_string*/ o_3337_command, const const_striType/*t_15_string*/ o_3338_parameters, const const_striType/*t_15_string*/ o_3339_mode) { /* line 214 "../lib/shell.s7i" */ interfaceType/*t_46_file*/ o_3340_newPipe; /* line 216 "../lib/shell.s7i" */ fileType/*t_50_clib_file*/ o_3341_open_file=NULL; /* line 217 "../lib/shell.s7i" */ structType/*t_118_popen_file*/ o_3342_new_file; /* line 214 "../lib/shell.s7i" */ o_3340_newPipe=itfCreate(o_976_STD_NULL/* STRUCTOBJECT */); /* line 217 "../lib/shell.s7i" */ o_3342_new_file=create_118(sct[51]); /* line 219 "../lib/shell.s7i" */ o_3341_open_file=filPopen(o_3337_command, o_3338_parameters, o_3339_mode); /* line 220 "../lib/shell.s7i" */ if ((o_3341_open_file) != (o_1015_CLIB_NULL_FILE)) { /* line 221 "../lib/shell.s7i" */ ((structType)(o_3342_new_file))->stru[1].value.fileValue/*->o_1020_ext_file*/=o_3341_open_file; /* line 222 "../lib/shell.s7i" */ strCopy(&(((structType)(o_3342_new_file))->stru[2].value.striValue/*->o_1021_name*/), o_3337_command); { /* line 223 "../lib/shell.s7i" */ interfaceType result_2; /* line 223 "../lib/shell.s7i" */ structType old_struct=o_3340_newPipe; /* line 223 "../lib/shell.s7i" */ o_3340_newPipe=/* ITF_TO_INTERFACE */(result_2=o_3342_new_file,result_2->usage_count!=0 ? result_2->usage_count++ : 0,result_2); /* line 223 "../lib/shell.s7i" */ destr_46(old_struct); } } /* line 211 "../lib/shell.s7i" */ destr_118(o_3342_new_file); return o_3340_newPipe; } /* line 1 "no_file" */ /* 1753 */ /* line 249 "../lib/shell.s7i" */ static interfaceType/*t_46_file*/ o_3343_popen (const const_striType/*t_15_string*/ o_3344_cmdAndParams, const const_striType/*t_15_string*/ o_3345_mode) { /* line 251 "../lib/shell.s7i" */ interfaceType/*t_46_file*/ o_3346_newPipe; /* line 253 "../lib/shell.s7i" */ striType/*t_15_string*/ o_3347_command; /* line 254 "../lib/shell.s7i" */ striType/*t_15_string*/ o_3348_parameters; /* line 251 "../lib/shell.s7i" */ o_3346_newPipe=itfCreate(o_976_STD_NULL/* STRUCTOBJECT */); /* line 253 "../lib/shell.s7i" */ o_3347_command=strEmpty(); /* "" */ /* line 254 "../lib/shell.s7i" */ o_3348_parameters=strEmpty(); /* "" */ /* line 256 "../lib/shell.s7i" */ strCopy(&(o_3348_parameters), o_3344_cmdAndParams); { /* line 257 "../lib/shell.s7i" */ striType old_stri=o_3347_command; /* line 257 "../lib/shell.s7i" */ o_3347_command=o_1929_getCommandLineWord(&(o_3348_parameters)); /* line 257 "../lib/shell.s7i" */ strDestr(old_stri); } { /* line 258 "../lib/shell.s7i" */ structType old_struct=o_3346_newPipe; /* line 258 "../lib/shell.s7i" */ o_3346_newPipe=o_3336_popen(o_3347_command, o_3348_parameters, o_3345_mode); /* line 258 "../lib/shell.s7i" */ destr_46(old_struct); } /* line 249 "../lib/shell.s7i" */ strDestr(o_3347_command); /* line 249 "../lib/shell.s7i" */ strDestr(o_3348_parameters); return o_3346_newPipe; } /* line 1 "no_file" */ /* 1754 */ /* line 262 "../lib/shell.s7i" */ static void/*t_1_void*/ o_3349_close (const structType/*t_118_popen_file*/ o_3350_aFile) { /* line 264 "../lib/shell.s7i" */ filPclose(((structType)(o_3350_aFile))->stru[1].value.fileValue/*->o_1020_ext_file*/); } /* line 1 "no_file" */ /* 1755 */ /* 1756 */ /* 1757 */ /* 1758 */ typedef genericType t_119/*t_119_*ANONYM_TYPE**/; /* 1759 */ /* 1760 */ /* 1761 */ /* 1762 */ /* 1763 */ /* objRefType/t_119_*ANONYM_TYPE* */ objRefType o_3351/*.*/=(objRefType)(NULL); /* 1764 */ /* objRefType/t_119_*ANONYM_TYPE* */ objRefType o_3352/*.*/=(objRefType)(NULL); /* 1765 */ typedef genericType t_120/*t_120_*ANONYM_TYPE**/; /* 1766 */ /* 1767 */ /* 1768 */ /* 1769 */ /* 1770 */ /* objRefType/t_120_*ANONYM_TYPE* */ objRefType o_3353/*.*/=(objRefType)(NULL); /* 1771 */ /* objRefType/t_120_*ANONYM_TYPE* */ objRefType o_3354/*.*/=(objRefType)(NULL); /* 1772 */ /* 1773 */ /* 1774 */ /* 1775 */ structType/*t_121_popen8_file*/ o_3355/*.*/; /* 1776 */ /* itf_cpy2: interfaceType/t_46_file := structType/t_121_popen8_file */ /* 1777 */ /* line 204 "../lib/struct.s7i" */ static structType/*t_121_popen8_file*/ create_121 (const_structType/*t_121_popen8_file*/ b) /* line 204 "../lib/struct.s7i" */ { /* line 204 "../lib/struct.s7i" */ structType/*t_121_popen8_file*/ a; /* line 204 "../lib/struct.s7i" */ a=(structType/*t_121_popen8_file*/)(malloc(sizeof(struct rtlStructStruct) - sizeof(rtlObjectType) + /* line 204 "../lib/struct.s7i" */ 3 * sizeof(rtlObjectType))); /* line 204 "../lib/struct.s7i" */ if (a == NULL) { /* line 204 "../lib/struct.s7i" */ raise_error(MEMORY_ERROR); /* line 204 "../lib/struct.s7i" */ } else { /* line 204 "../lib/struct.s7i" */ a->usage_count = 1; a->type_num = b->type_num; /* line 204 "../lib/struct.s7i" */ a->stru[0].value.charValue=b->stru[0].value.charValue; /* line 204 "../lib/struct.s7i" */ a->stru[1].value.fileValue=b->stru[1].value.fileValue; /* line 204 "../lib/struct.s7i" */ a->stru[2].value.striValue=strCreate(b->stru[2].value.striValue); /* line 204 "../lib/struct.s7i" */ } /* line 204 "../lib/struct.s7i" */ return a; /* line 204 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 205 "../lib/struct.s7i" */ static void destr_121 (structType/*t_121_popen8_file*/ b) /* line 205 "../lib/struct.s7i" */ { /* line 205 "../lib/struct.s7i" */ if (b != NULL && b->usage_count != 0) { b->usage_count--; if (b->usage_count == 0) { /* line 205 "../lib/struct.s7i" */ /* line 205 "../lib/struct.s7i" */ /* line 205 "../lib/struct.s7i" */ strDestr(b->stru[2].value.striValue); /* line 205 "../lib/struct.s7i" */ free((void *)(b)); /* line 205 "../lib/struct.s7i" */ }} /* line 205 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 206 "../lib/struct.s7i" */ static void cpy_121 (structType/*t_121_popen8_file*/ a, structType/*t_121_popen8_file*/ b) /* line 206 "../lib/struct.s7i" */ { /* line 206 "../lib/struct.s7i" */ a->stru[0].value.charValue=b->stru[0].value.charValue; /* line 206 "../lib/struct.s7i" */ a->stru[1].value.fileValue=b->stru[1].value.fileValue; /* line 206 "../lib/struct.s7i" */ strCopy(&(a->stru[2].value.striValue), b->stru[2].value.striValue); /* line 206 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 886 "../lib/seed7_05.s7i" */ static structType/*t_121_popen8_file*/ o_3356_xalloc (const structType/*t_121_popen8_file*/ o_3357_newStuct) { /* line 888 "../lib/seed7_05.s7i" */ structType/*t_121_popen8_file*/ o_3358_allocated; /* line 888 "../lib/seed7_05.s7i" */ o_3358_allocated=create_121(sct[52]); /* line 890 "../lib/seed7_05.s7i" */ cpy_121((structType/*t_121_popen8_file*/)(o_3358_allocated), (structType/*t_121_popen8_file*/)(o_3357_newStuct)); return o_3358_allocated; } /* line 1 "no_file" */ /* 1778 */ /* line 292 "../lib/shell.s7i" */ static interfaceType/*t_46_file*/ o_3359_popen8 (const const_striType/*t_15_string*/ o_3360_command, const const_striType/*t_15_string*/ o_3361_parameters, const const_striType/*t_15_string*/ o_3362_mode) { /* line 295 "../lib/shell.s7i" */ interfaceType/*t_46_file*/ o_3363_newPipe; /* line 297 "../lib/shell.s7i" */ fileType/*t_50_clib_file*/ o_3364_open_file=NULL; /* line 298 "../lib/shell.s7i" */ structType/*t_121_popen8_file*/ o_3365_new_file; /* line 295 "../lib/shell.s7i" */ o_3363_newPipe=itfCreate(o_976_STD_NULL/* STRUCTOBJECT */); /* line 298 "../lib/shell.s7i" */ o_3365_new_file=create_121(sct[53]); /* line 300 "../lib/shell.s7i" */ o_3364_open_file=filPopen(o_3360_command, o_3361_parameters, o_3362_mode); /* line 301 "../lib/shell.s7i" */ if ((o_3364_open_file) != (o_1015_CLIB_NULL_FILE)) { /* line 302 "../lib/shell.s7i" */ ((structType)(o_3365_new_file))->stru[1].value.fileValue/*->o_1020_ext_file*/=o_3364_open_file; /* line 303 "../lib/shell.s7i" */ strCopy(&(((structType)(o_3365_new_file))->stru[2].value.striValue/*->o_1021_name*/), o_3360_command); { /* line 304 "../lib/shell.s7i" */ interfaceType result_2; /* line 304 "../lib/shell.s7i" */ structType old_struct=o_3363_newPipe; /* line 304 "../lib/shell.s7i" */ o_3363_newPipe=/* ITF_TO_INTERFACE */(result_2=o_3365_new_file,result_2->usage_count!=0 ? result_2->usage_count++ : 0,result_2); /* line 304 "../lib/shell.s7i" */ destr_46(old_struct); } } /* line 292 "../lib/shell.s7i" */ destr_121(o_3365_new_file); return o_3363_newPipe; } /* line 1 "no_file" */ /* 1779 */ /* line 330 "../lib/shell.s7i" */ static interfaceType/*t_46_file*/ o_3366_popen8 (const const_striType/*t_15_string*/ o_3367_cmdAndParams, const const_striType/*t_15_string*/ o_3368_mode) { /* line 332 "../lib/shell.s7i" */ interfaceType/*t_46_file*/ o_3369_newPipe; /* line 334 "../lib/shell.s7i" */ striType/*t_15_string*/ o_3370_command; /* line 335 "../lib/shell.s7i" */ striType/*t_15_string*/ o_3371_parameters; /* line 332 "../lib/shell.s7i" */ o_3369_newPipe=itfCreate(o_976_STD_NULL/* STRUCTOBJECT */); /* line 334 "../lib/shell.s7i" */ o_3370_command=strEmpty(); /* "" */ /* line 335 "../lib/shell.s7i" */ o_3371_parameters=strEmpty(); /* "" */ /* line 337 "../lib/shell.s7i" */ strCopy(&(o_3371_parameters), o_3367_cmdAndParams); { /* line 338 "../lib/shell.s7i" */ striType old_stri=o_3370_command; /* line 338 "../lib/shell.s7i" */ o_3370_command=o_1929_getCommandLineWord(&(o_3371_parameters)); /* line 338 "../lib/shell.s7i" */ strDestr(old_stri); } { /* line 339 "../lib/shell.s7i" */ structType old_struct=o_3369_newPipe; /* line 339 "../lib/shell.s7i" */ o_3369_newPipe=o_3359_popen8(o_3370_command, o_3371_parameters, o_3368_mode); /* line 339 "../lib/shell.s7i" */ destr_46(old_struct); } /* line 330 "../lib/shell.s7i" */ strDestr(o_3370_command); /* line 330 "../lib/shell.s7i" */ strDestr(o_3371_parameters); return o_3369_newPipe; } /* line 1 "no_file" */ /* 1780 */ /* line 343 "../lib/shell.s7i" */ static void/*t_1_void*/ o_3372_close (const structType/*t_121_popen8_file*/ o_3373_aFile) { /* line 345 "../lib/shell.s7i" */ filPclose(((structType)(o_3373_aFile))->stru[1].value.fileValue/*->o_1020_ext_file*/); } /* line 1 "no_file" */ /* 1781 */ typedef genericType t_122/*t_122_ccConfigType*/; /* 1782 */ /* 1783 */ typedef genericType t_123/*t_123_*ANONYM_TYPE**/; /* 1784 */ /* 1785 */ /* 1786 */ /* 1787 */ /* 1788 */ /* objRefType/t_123_*ANONYM_TYPE* */ objRefType o_3374/*.*/=(objRefType)(NULL); /* 1789 */ /* objRefType/t_123_*ANONYM_TYPE* */ objRefType o_3375/*.*/=(objRefType)(NULL); /* 1790 */ typedef genericType t_124/*t_124_*ANONYM_TYPE**/; /* 1791 */ /* 1792 */ /* 1793 */ /* 1794 */ /* 1795 */ /* objRefType/t_124_*ANONYM_TYPE* */ objRefType o_3376/*.*/=(objRefType)(NULL); /* 1796 */ /* objRefType/t_124_*ANONYM_TYPE* */ objRefType o_3377/*.*/=(objRefType)(NULL); /* 1797 */ /* 1798 */ /* 1799 */ /* 1800 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3378_WITH_STRI_CAPACITY = 0 */ /* 1801 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3378_WITH_STRI_CAPACITY = 0 */ /* 1802 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_123_*ANONYM_TYPE*->o_3378_WITH_STRI_CAPACITY = 0 */ /* 1803 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_124_*ANONYM_TYPE*->o_3378_WITH_STRI_CAPACITY = 0 */ /* 1804 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3379_ALLOW_STRITYPE_SLICES = 1 */ /* 1805 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3379_ALLOW_STRITYPE_SLICES = 1 */ /* 1806 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_123_*ANONYM_TYPE*->o_3379_ALLOW_STRITYPE_SLICES = 1 */ /* 1807 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_124_*ANONYM_TYPE*->o_3379_ALLOW_STRITYPE_SLICES = 1 */ /* 1808 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3380_ALLOW_BSTRITYPE_SLICES = 2 */ /* 1809 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3380_ALLOW_BSTRITYPE_SLICES = 2 */ /* 1810 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_123_*ANONYM_TYPE*->o_3380_ALLOW_BSTRITYPE_SLICES = 2 */ /* 1811 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_124_*ANONYM_TYPE*->o_3380_ALLOW_BSTRITYPE_SLICES = 2 */ /* 1812 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3381_RSHIFT_DOES_SIGN_EXTEND = 3 */ /* 1813 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3381_RSHIFT_DOES_SIGN_EXTEND = 3 */ /* 1814 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_123_*ANONYM_TYPE*->o_3381_RSHIFT_DOES_SIGN_EXTEND = 3 */ /* 1815 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_124_*ANONYM_TYPE*->o_3381_RSHIFT_DOES_SIGN_EXTEND = 3 */ /* 1816 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3382_TWOS_COMPLEMENT_INTTYPE = 4 */ /* 1817 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3382_TWOS_COMPLEMENT_INTTYPE = 4 */ /* 1818 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_123_*ANONYM_TYPE*->o_3382_TWOS_COMPLEMENT_INTTYPE = 4 */ /* 1819 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_124_*ANONYM_TYPE*->o_3382_TWOS_COMPLEMENT_INTTYPE = 4 */ /* 1820 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3383_LITTLE_ENDIAN_INTTYPE = 5 */ /* 1821 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3383_LITTLE_ENDIAN_INTTYPE = 5 */ /* 1822 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_123_*ANONYM_TYPE*->o_3383_LITTLE_ENDIAN_INTTYPE = 5 */ /* 1823 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_124_*ANONYM_TYPE*->o_3383_LITTLE_ENDIAN_INTTYPE = 5 */ /* 1824 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3384_NAN_COMPARISON_WRONG = 6 */ /* 1825 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3384_NAN_COMPARISON_WRONG = 6 */ /* 1826 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_123_*ANONYM_TYPE*->o_3384_NAN_COMPARISON_WRONG = 6 */ /* 1827 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_124_*ANONYM_TYPE*->o_3384_NAN_COMPARISON_WRONG = 6 */ /* 1828 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3385_POWER_OF_ZERO_WRONG = 7 */ /* 1829 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3385_POWER_OF_ZERO_WRONG = 7 */ /* 1830 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_123_*ANONYM_TYPE*->o_3385_POWER_OF_ZERO_WRONG = 7 */ /* 1831 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_124_*ANONYM_TYPE*->o_3385_POWER_OF_ZERO_WRONG = 7 */ /* 1832 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3386_HAS_SIGSETJMP = 8 */ /* 1833 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3386_HAS_SIGSETJMP = 8 */ /* 1834 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_123_*ANONYM_TYPE*->o_3386_HAS_SIGSETJMP = 8 */ /* 1835 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_124_*ANONYM_TYPE*->o_3386_HAS_SIGSETJMP = 8 */ /* 1836 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3387_FLOAT_ZERO_DIV_ERROR = 9 */ /* 1837 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3387_FLOAT_ZERO_DIV_ERROR = 9 */ /* 1838 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_123_*ANONYM_TYPE*->o_3387_FLOAT_ZERO_DIV_ERROR = 9 */ /* 1839 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_124_*ANONYM_TYPE*->o_3387_FLOAT_ZERO_DIV_ERROR = 9 */ /* 1840 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3388_ISNAN_WITH_UNDERLINE = 10 */ /* 1841 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3388_ISNAN_WITH_UNDERLINE = 10 */ /* 1842 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_123_*ANONYM_TYPE*->o_3388_ISNAN_WITH_UNDERLINE = 10 */ /* 1843 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_124_*ANONYM_TYPE*->o_3388_ISNAN_WITH_UNDERLINE = 10 */ /* 1844 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3389_DO_SIGFPE_WITH_DIV_BY_ZERO = 11 */ /* 1845 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3389_DO_SIGFPE_WITH_DIV_BY_ZERO = 11 */ /* 1846 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_123_*ANONYM_TYPE*->o_3389_DO_SIGFPE_WITH_DIV_BY_ZERO = 11 */ /* 1847 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_124_*ANONYM_TYPE*->o_3389_DO_SIGFPE_WITH_DIV_BY_ZERO = 11 */ /* 1848 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3390_CHECK_INT_DIV_BY_ZERO = 12 */ /* 1849 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3390_CHECK_INT_DIV_BY_ZERO = 12 */ /* 1850 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_123_*ANONYM_TYPE*->o_3390_CHECK_INT_DIV_BY_ZERO = 12 */ /* 1851 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_124_*ANONYM_TYPE*->o_3390_CHECK_INT_DIV_BY_ZERO = 12 */ /* 1852 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3391_CHECK_INT_REM_BY_ZERO = 13 */ /* 1853 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3391_CHECK_INT_REM_BY_ZERO = 13 */ /* 1854 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_123_*ANONYM_TYPE*->o_3391_CHECK_INT_REM_BY_ZERO = 13 */ /* 1855 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_124_*ANONYM_TYPE*->o_3391_CHECK_INT_REM_BY_ZERO = 13 */ /* 1856 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3392_CHECK_INT_REM_ZERO_BY_ZERO = 14 */ /* 1857 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3392_CHECK_INT_REM_ZERO_BY_ZERO = 14 */ /* 1858 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_123_*ANONYM_TYPE*->o_3392_CHECK_INT_REM_ZERO_BY_ZERO = 14 */ /* 1859 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_124_*ANONYM_TYPE*->o_3392_CHECK_INT_REM_ZERO_BY_ZERO = 14 */ /* 1860 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3393_CHECK_FLOAT_DIV_BY_ZERO = 15 */ /* 1861 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3393_CHECK_FLOAT_DIV_BY_ZERO = 15 */ /* 1862 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_123_*ANONYM_TYPE*->o_3393_CHECK_FLOAT_DIV_BY_ZERO = 15 */ /* 1863 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_124_*ANONYM_TYPE*->o_3393_CHECK_FLOAT_DIV_BY_ZERO = 15 */ /* 1864 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3394_LIMITED_CSTRI_LITERAL_LEN = 16 */ /* 1865 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3394_LIMITED_CSTRI_LITERAL_LEN = 16 */ /* 1866 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_123_*ANONYM_TYPE*->o_3394_LIMITED_CSTRI_LITERAL_LEN = 16 */ /* 1867 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_124_*ANONYM_TYPE*->o_3394_LIMITED_CSTRI_LITERAL_LEN = 16 */ /* 1868 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3395_CC_SOURCE_UTF8 = 17 */ /* 1869 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3395_CC_SOURCE_UTF8 = 17 */ /* 1870 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_123_*ANONYM_TYPE*->o_3395_CC_SOURCE_UTF8 = 17 */ /* 1871 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_124_*ANONYM_TYPE*->o_3395_CC_SOURCE_UTF8 = 17 */ /* 1872 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3396_USE_WMAIN = 18 */ /* 1873 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3396_USE_WMAIN = 18 */ /* 1874 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_123_*ANONYM_TYPE*->o_3396_USE_WMAIN = 18 */ /* 1875 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_124_*ANONYM_TYPE*->o_3396_USE_WMAIN = 18 */ /* 1876 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3397_USE_WINMAIN = 19 */ /* 1877 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3397_USE_WINMAIN = 19 */ /* 1878 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_123_*ANONYM_TYPE*->o_3397_USE_WINMAIN = 19 */ /* 1879 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_124_*ANONYM_TYPE*->o_3397_USE_WINMAIN = 19 */ /* 1880 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3398_FLOATTYPE_DOUBLE = 20 */ /* 1881 */ /* struct element boolType/t_13_boolean ** structType/t_122_ccConfigType->o_3398_FLOATTYPE_DOUBLE = 20 */ /* 1882 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_123_*ANONYM_TYPE*->o_3398_FLOATTYPE_DOUBLE = 20 */ /* 1883 */ /* ref struct element boolType/t_13_boolean ** objRefType/t_124_*ANONYM_TYPE*->o_3398_FLOATTYPE_DOUBLE = 20 */ /* 1884 */ /* struct element intType/t_14_integer ** structType/t_122_ccConfigType->o_3399_INTTYPE_SIZE = 21 */ /* 1885 */ /* struct element intType/t_14_integer ** structType/t_122_ccConfigType->o_3399_INTTYPE_SIZE = 21 */ /* 1886 */ /* ref struct element intType/t_14_integer ** objRefType/t_123_*ANONYM_TYPE*->o_3399_INTTYPE_SIZE = 21 */ /* 1887 */ /* ref struct element intType/t_14_integer ** objRefType/t_124_*ANONYM_TYPE*->o_3399_INTTYPE_SIZE = 21 */ /* 1888 */ /* struct element intType/t_14_integer ** structType/t_122_ccConfigType->o_3400_FLOATTYPE_SIZE = 22 */ /* 1889 */ /* struct element intType/t_14_integer ** structType/t_122_ccConfigType->o_3400_FLOATTYPE_SIZE = 22 */ /* 1890 */ /* ref struct element intType/t_14_integer ** objRefType/t_123_*ANONYM_TYPE*->o_3400_FLOATTYPE_SIZE = 22 */ /* 1891 */ /* ref struct element intType/t_14_integer ** objRefType/t_124_*ANONYM_TYPE*->o_3400_FLOATTYPE_SIZE = 22 */ /* 1892 */ /* struct element intType/t_14_integer ** structType/t_122_ccConfigType->o_3401_POINTER_SIZE = 23 */ /* 1893 */ /* struct element intType/t_14_integer ** structType/t_122_ccConfigType->o_3401_POINTER_SIZE = 23 */ /* 1894 */ /* ref struct element intType/t_14_integer ** objRefType/t_123_*ANONYM_TYPE*->o_3401_POINTER_SIZE = 23 */ /* 1895 */ /* ref struct element intType/t_14_integer ** objRefType/t_124_*ANONYM_TYPE*->o_3401_POINTER_SIZE = 23 */ /* 1896 */ /* struct element intType/t_14_integer ** structType/t_122_ccConfigType->o_3402_GENERIC_SIZE = 24 */ /* 1897 */ /* struct element intType/t_14_integer ** structType/t_122_ccConfigType->o_3402_GENERIC_SIZE = 24 */ /* 1898 */ /* ref struct element intType/t_14_integer ** objRefType/t_123_*ANONYM_TYPE*->o_3402_GENERIC_SIZE = 24 */ /* 1899 */ /* ref struct element intType/t_14_integer ** objRefType/t_124_*ANONYM_TYPE*->o_3402_GENERIC_SIZE = 24 */ /* 1900 */ /* struct element intType/t_14_integer ** structType/t_122_ccConfigType->o_3403_INT_SIZE = 25 */ /* 1901 */ /* struct element intType/t_14_integer ** structType/t_122_ccConfigType->o_3403_INT_SIZE = 25 */ /* 1902 */ /* ref struct element intType/t_14_integer ** objRefType/t_123_*ANONYM_TYPE*->o_3403_INT_SIZE = 25 */ /* 1903 */ /* ref struct element intType/t_14_integer ** objRefType/t_124_*ANONYM_TYPE*->o_3403_INT_SIZE = 25 */ /* 1904 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3404_INT32TYPE = 26 */ /* 1905 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3404_INT32TYPE = 26 */ /* 1906 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3404_INT32TYPE = 26 */ /* 1907 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3404_INT32TYPE = 26 */ /* 1908 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3405_UINT32TYPE = 27 */ /* 1909 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3405_UINT32TYPE = 27 */ /* 1910 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3405_UINT32TYPE = 27 */ /* 1911 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3405_UINT32TYPE = 27 */ /* 1912 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3406_INT64TYPE = 28 */ /* 1913 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3406_INT64TYPE = 28 */ /* 1914 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3406_INT64TYPE = 28 */ /* 1915 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3406_INT64TYPE = 28 */ /* 1916 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3407_UINT64TYPE = 29 */ /* 1917 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3407_UINT64TYPE = 29 */ /* 1918 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3407_UINT64TYPE = 29 */ /* 1919 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3407_UINT64TYPE = 29 */ /* 1920 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3408_INT128TYPE = 30 */ /* 1921 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3408_INT128TYPE = 30 */ /* 1922 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3408_INT128TYPE = 30 */ /* 1923 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3408_INT128TYPE = 30 */ /* 1924 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3409_UINT128TYPE = 31 */ /* 1925 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3409_UINT128TYPE = 31 */ /* 1926 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3409_UINT128TYPE = 31 */ /* 1927 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3409_UINT128TYPE = 31 */ /* 1928 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3410_INT32TYPE_LITERAL_SUFFIX = 32 */ /* 1929 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3410_INT32TYPE_LITERAL_SUFFIX = 32 */ /* 1930 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3410_INT32TYPE_LITERAL_SUFFIX = 32 */ /* 1931 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3410_INT32TYPE_LITERAL_SUFFIX = 32 */ /* 1932 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3411_INT64TYPE_LITERAL_SUFFIX = 33 */ /* 1933 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3411_INT64TYPE_LITERAL_SUFFIX = 33 */ /* 1934 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3411_INT64TYPE_LITERAL_SUFFIX = 33 */ /* 1935 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3411_INT64TYPE_LITERAL_SUFFIX = 33 */ /* 1936 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3412_MACRO_DEFS = 34 */ /* 1937 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3412_MACRO_DEFS = 34 */ /* 1938 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3412_MACRO_DEFS = 34 */ /* 1939 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3412_MACRO_DEFS = 34 */ /* 1940 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3413_OVERFLOW_SIGNAL = 35 */ /* 1941 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3413_OVERFLOW_SIGNAL = 35 */ /* 1942 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3413_OVERFLOW_SIGNAL = 35 */ /* 1943 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3413_OVERFLOW_SIGNAL = 35 */ /* 1944 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3414_OBJECT_FILE_EXTENSION = 36 */ /* 1945 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3414_OBJECT_FILE_EXTENSION = 36 */ /* 1946 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3414_OBJECT_FILE_EXTENSION = 36 */ /* 1947 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3414_OBJECT_FILE_EXTENSION = 36 */ /* 1948 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3415_LIBRARY_FILE_EXTENSION = 37 */ /* 1949 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3415_LIBRARY_FILE_EXTENSION = 37 */ /* 1950 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3415_LIBRARY_FILE_EXTENSION = 37 */ /* 1951 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3415_LIBRARY_FILE_EXTENSION = 37 */ /* 1952 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3416_EXECUTABLE_FILE_EXTENSION = 38 */ /* 1953 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3416_EXECUTABLE_FILE_EXTENSION = 38 */ /* 1954 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3416_EXECUTABLE_FILE_EXTENSION = 38 */ /* 1955 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3416_EXECUTABLE_FILE_EXTENSION = 38 */ /* 1956 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3417_C_COMPILER = 39 */ /* 1957 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3417_C_COMPILER = 39 */ /* 1958 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3417_C_COMPILER = 39 */ /* 1959 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3417_C_COMPILER = 39 */ /* 1960 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3418_CPLUSPLUS_COMPILER = 40 */ /* 1961 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3418_CPLUSPLUS_COMPILER = 40 */ /* 1962 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3418_CPLUSPLUS_COMPILER = 40 */ /* 1963 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3418_CPLUSPLUS_COMPILER = 40 */ /* 1964 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3419_C_COMPILER_VERSION = 41 */ /* 1965 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3419_C_COMPILER_VERSION = 41 */ /* 1966 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3419_C_COMPILER_VERSION = 41 */ /* 1967 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3419_C_COMPILER_VERSION = 41 */ /* 1968 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3420_GET_CC_VERSION_INFO = 42 */ /* 1969 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3420_GET_CC_VERSION_INFO = 42 */ /* 1970 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3420_GET_CC_VERSION_INFO = 42 */ /* 1971 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3420_GET_CC_VERSION_INFO = 42 */ /* 1972 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3421_CC_OPT_DEBUG_INFO = 43 */ /* 1973 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3421_CC_OPT_DEBUG_INFO = 43 */ /* 1974 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3421_CC_OPT_DEBUG_INFO = 43 */ /* 1975 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3421_CC_OPT_DEBUG_INFO = 43 */ /* 1976 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3422_CC_OPT_NO_WARNINGS = 44 */ /* 1977 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3422_CC_OPT_NO_WARNINGS = 44 */ /* 1978 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3422_CC_OPT_NO_WARNINGS = 44 */ /* 1979 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3422_CC_OPT_NO_WARNINGS = 44 */ /* 1980 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3423_CC_FLAGS = 45 */ /* 1981 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3423_CC_FLAGS = 45 */ /* 1982 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3423_CC_FLAGS = 45 */ /* 1983 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3423_CC_FLAGS = 45 */ /* 1984 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3424_REDIRECT_C_ERRORS = 46 */ /* 1985 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3424_REDIRECT_C_ERRORS = 46 */ /* 1986 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3424_REDIRECT_C_ERRORS = 46 */ /* 1987 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3424_REDIRECT_C_ERRORS = 46 */ /* 1988 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3425_LINKER_OPT_DEBUG_INFO = 47 */ /* 1989 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3425_LINKER_OPT_DEBUG_INFO = 47 */ /* 1990 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3425_LINKER_OPT_DEBUG_INFO = 47 */ /* 1991 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3425_LINKER_OPT_DEBUG_INFO = 47 */ /* 1992 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3426_LINKER_OPT_NO_DEBUG_INFO = 48 */ /* 1993 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3426_LINKER_OPT_NO_DEBUG_INFO = 48 */ /* 1994 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3426_LINKER_OPT_NO_DEBUG_INFO = 48 */ /* 1995 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3426_LINKER_OPT_NO_DEBUG_INFO = 48 */ /* 1996 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3427_LINKER_OPT_OUTPUT_FILE = 49 */ /* 1997 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3427_LINKER_OPT_OUTPUT_FILE = 49 */ /* 1998 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3427_LINKER_OPT_OUTPUT_FILE = 49 */ /* 1999 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3427_LINKER_OPT_OUTPUT_FILE = 49 */ /* 2000 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3428_LINKER_FLAGS = 50 */ /* 2001 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3428_LINKER_FLAGS = 50 */ /* 2002 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3428_LINKER_FLAGS = 50 */ /* 2003 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3428_LINKER_FLAGS = 50 */ /* 2004 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3429_SYSTEM_LIBS = 51 */ /* 2005 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3429_SYSTEM_LIBS = 51 */ /* 2006 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3429_SYSTEM_LIBS = 51 */ /* 2007 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3429_SYSTEM_LIBS = 51 */ /* 2008 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3430_SYSTEM_CONSOLE_LIBS = 52 */ /* 2009 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3430_SYSTEM_CONSOLE_LIBS = 52 */ /* 2010 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3430_SYSTEM_CONSOLE_LIBS = 52 */ /* 2011 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3430_SYSTEM_CONSOLE_LIBS = 52 */ /* 2012 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3431_SYSTEM_DRAW_LIBS = 53 */ /* 2013 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3431_SYSTEM_DRAW_LIBS = 53 */ /* 2014 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3431_SYSTEM_DRAW_LIBS = 53 */ /* 2015 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3431_SYSTEM_DRAW_LIBS = 53 */ /* 2016 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3432_SYSTEM_DB_LIBS = 54 */ /* 2017 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3432_SYSTEM_DB_LIBS = 54 */ /* 2018 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3432_SYSTEM_DB_LIBS = 54 */ /* 2019 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3432_SYSTEM_DB_LIBS = 54 */ /* 2020 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3433_SEED7_LIB = 55 */ /* 2021 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3433_SEED7_LIB = 55 */ /* 2022 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3433_SEED7_LIB = 55 */ /* 2023 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3433_SEED7_LIB = 55 */ /* 2024 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3434_CONSOLE_LIB = 56 */ /* 2025 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3434_CONSOLE_LIB = 56 */ /* 2026 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3434_CONSOLE_LIB = 56 */ /* 2027 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3434_CONSOLE_LIB = 56 */ /* 2028 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3435_DRAW_LIB = 57 */ /* 2029 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3435_DRAW_LIB = 57 */ /* 2030 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3435_DRAW_LIB = 57 */ /* 2031 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3435_DRAW_LIB = 57 */ /* 2032 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3436_COMP_DATA_LIB = 58 */ /* 2033 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3436_COMP_DATA_LIB = 58 */ /* 2034 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3436_COMP_DATA_LIB = 58 */ /* 2035 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3436_COMP_DATA_LIB = 58 */ /* 2036 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3437_COMPILER_LIB = 59 */ /* 2037 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3437_COMPILER_LIB = 59 */ /* 2038 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3437_COMPILER_LIB = 59 */ /* 2039 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3437_COMPILER_LIB = 59 */ /* 2040 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3438_S7_LIB_DIR = 60 */ /* 2041 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3438_S7_LIB_DIR = 60 */ /* 2042 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3438_S7_LIB_DIR = 60 */ /* 2043 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3438_S7_LIB_DIR = 60 */ /* 2044 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3439_INTTYPE_LITERAL_SUFFIX = 61 */ /* 2045 */ /* struct element striType/t_15_string ** structType/t_122_ccConfigType->o_3439_INTTYPE_LITERAL_SUFFIX = 61 */ /* 2046 */ /* ref struct element striType/t_15_string ** objRefType/t_123_*ANONYM_TYPE*->o_3439_INTTYPE_LITERAL_SUFFIX = 61 */ /* 2047 */ /* ref struct element striType/t_15_string ** objRefType/t_124_*ANONYM_TYPE*->o_3439_INTTYPE_LITERAL_SUFFIX = 61 */ /* 2048 */ structType/*t_122_ccConfigType*/ o_3440/*.*/; /* 2049 */ /* line 58 "../lib/struct.s7i" */ static structType/*t_122_ccConfigType*/ create_122 (const_structType/*t_122_ccConfigType*/ b) /* line 58 "../lib/struct.s7i" */ { /* line 58 "../lib/struct.s7i" */ structType/*t_122_ccConfigType*/ a; /* line 58 "../lib/struct.s7i" */ a=(structType/*t_122_ccConfigType*/)(malloc(sizeof(struct rtlStructStruct) - sizeof(rtlObjectType) + /* line 58 "../lib/struct.s7i" */ 62 * sizeof(rtlObjectType))); /* line 58 "../lib/struct.s7i" */ if (a == NULL) { /* line 58 "../lib/struct.s7i" */ raise_error(MEMORY_ERROR); /* line 58 "../lib/struct.s7i" */ } else { /* line 58 "../lib/struct.s7i" */ a->usage_count = 1; a->type_num = b->type_num; /* line 58 "../lib/struct.s7i" */ a->stru[0].value.boolValue=b->stru[0].value.boolValue; /* line 58 "../lib/struct.s7i" */ a->stru[1].value.boolValue=b->stru[1].value.boolValue; /* line 58 "../lib/struct.s7i" */ a->stru[2].value.boolValue=b->stru[2].value.boolValue; /* line 58 "../lib/struct.s7i" */ a->stru[3].value.boolValue=b->stru[3].value.boolValue; /* line 58 "../lib/struct.s7i" */ a->stru[4].value.boolValue=b->stru[4].value.boolValue; /* line 58 "../lib/struct.s7i" */ a->stru[5].value.boolValue=b->stru[5].value.boolValue; /* line 58 "../lib/struct.s7i" */ a->stru[6].value.boolValue=b->stru[6].value.boolValue; /* line 58 "../lib/struct.s7i" */ a->stru[7].value.boolValue=b->stru[7].value.boolValue; /* line 58 "../lib/struct.s7i" */ a->stru[8].value.boolValue=b->stru[8].value.boolValue; /* line 58 "../lib/struct.s7i" */ a->stru[9].value.boolValue=b->stru[9].value.boolValue; /* line 58 "../lib/struct.s7i" */ a->stru[10].value.boolValue=b->stru[10].value.boolValue; /* line 58 "../lib/struct.s7i" */ a->stru[11].value.boolValue=b->stru[11].value.boolValue; /* line 58 "../lib/struct.s7i" */ a->stru[12].value.boolValue=b->stru[12].value.boolValue; /* line 58 "../lib/struct.s7i" */ a->stru[13].value.boolValue=b->stru[13].value.boolValue; /* line 58 "../lib/struct.s7i" */ a->stru[14].value.boolValue=b->stru[14].value.boolValue; /* line 58 "../lib/struct.s7i" */ a->stru[15].value.boolValue=b->stru[15].value.boolValue; /* line 58 "../lib/struct.s7i" */ a->stru[16].value.boolValue=b->stru[16].value.boolValue; /* line 58 "../lib/struct.s7i" */ a->stru[17].value.boolValue=b->stru[17].value.boolValue; /* line 58 "../lib/struct.s7i" */ a->stru[18].value.boolValue=b->stru[18].value.boolValue; /* line 58 "../lib/struct.s7i" */ a->stru[19].value.boolValue=b->stru[19].value.boolValue; /* line 58 "../lib/struct.s7i" */ a->stru[20].value.boolValue=b->stru[20].value.boolValue; /* line 58 "../lib/struct.s7i" */ a->stru[21].value.intValue=b->stru[21].value.intValue; /* line 58 "../lib/struct.s7i" */ a->stru[22].value.intValue=b->stru[22].value.intValue; /* line 58 "../lib/struct.s7i" */ a->stru[23].value.intValue=b->stru[23].value.intValue; /* line 58 "../lib/struct.s7i" */ a->stru[24].value.intValue=b->stru[24].value.intValue; /* line 58 "../lib/struct.s7i" */ a->stru[25].value.intValue=b->stru[25].value.intValue; /* line 58 "../lib/struct.s7i" */ a->stru[26].value.striValue=strCreate(b->stru[26].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[27].value.striValue=strCreate(b->stru[27].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[28].value.striValue=strCreate(b->stru[28].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[29].value.striValue=strCreate(b->stru[29].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[30].value.striValue=strCreate(b->stru[30].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[31].value.striValue=strCreate(b->stru[31].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[32].value.striValue=strCreate(b->stru[32].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[33].value.striValue=strCreate(b->stru[33].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[34].value.striValue=strCreate(b->stru[34].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[35].value.striValue=strCreate(b->stru[35].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[36].value.striValue=strCreate(b->stru[36].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[37].value.striValue=strCreate(b->stru[37].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[38].value.striValue=strCreate(b->stru[38].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[39].value.striValue=strCreate(b->stru[39].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[40].value.striValue=strCreate(b->stru[40].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[41].value.striValue=strCreate(b->stru[41].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[42].value.striValue=strCreate(b->stru[42].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[43].value.striValue=strCreate(b->stru[43].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[44].value.striValue=strCreate(b->stru[44].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[45].value.striValue=strCreate(b->stru[45].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[46].value.striValue=strCreate(b->stru[46].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[47].value.striValue=strCreate(b->stru[47].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[48].value.striValue=strCreate(b->stru[48].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[49].value.striValue=strCreate(b->stru[49].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[50].value.striValue=strCreate(b->stru[50].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[51].value.striValue=strCreate(b->stru[51].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[52].value.striValue=strCreate(b->stru[52].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[53].value.striValue=strCreate(b->stru[53].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[54].value.striValue=strCreate(b->stru[54].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[55].value.striValue=strCreate(b->stru[55].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[56].value.striValue=strCreate(b->stru[56].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[57].value.striValue=strCreate(b->stru[57].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[58].value.striValue=strCreate(b->stru[58].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[59].value.striValue=strCreate(b->stru[59].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[60].value.striValue=strCreate(b->stru[60].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[61].value.striValue=strCreate(b->stru[61].value.striValue); /* line 58 "../lib/struct.s7i" */ } /* line 58 "../lib/struct.s7i" */ return a; /* line 58 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 59 "../lib/struct.s7i" */ static void destr_122 (structType/*t_122_ccConfigType*/ b) /* line 59 "../lib/struct.s7i" */ { /* line 59 "../lib/struct.s7i" */ if (b != NULL && b->usage_count != 0) { b->usage_count--; if (b->usage_count == 0) { /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[26].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[27].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[28].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[29].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[30].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[31].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[32].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[33].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[34].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[35].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[36].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[37].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[38].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[39].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[40].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[41].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[42].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[43].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[44].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[45].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[46].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[47].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[48].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[49].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[50].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[51].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[52].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[53].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[54].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[55].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[56].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[57].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[58].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[59].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[60].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[61].value.striValue); /* line 59 "../lib/struct.s7i" */ free((void *)(b)); /* line 59 "../lib/struct.s7i" */ }} /* line 59 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 459 "../lib/cc_conf.s7i" */ static structType/*t_122_ccConfigType*/ o_3441_getBuiltInConfig (void) { /* line 461 "../lib/cc_conf.s7i" */ structType/*t_122_ccConfigType*/ o_3442_conf; /* line 461 "../lib/cc_conf.s7i" */ o_3442_conf=create_122(sct[54]); { /* line 463 "../lib/cc_conf.s7i" */ striType tmp_1 = NULL; /* line 463 "../lib/cc_conf.s7i" */ ((structType)(o_3442_conf))->stru[0].value.boolValue/*->o_3378_WITH_STRI_CAPACITY*/=o_45_parse(/* attr t_13 boolean*/ (tmp_1=cmdConfigValue(&str[36] /* "WITH_STRI_CAPACITY" */))); /* line 463 "../lib/cc_conf.s7i" */ strDestr(tmp_1); } { /* line 464 "../lib/cc_conf.s7i" */ striType tmp_1 = NULL; /* line 464 "../lib/cc_conf.s7i" */ ((structType)(o_3442_conf))->stru[1].value.boolValue/*->o_3379_ALLOW_STRITYPE_SLICES*/=o_45_parse(/* attr t_13 boolean*/ (tmp_1=cmdConfigValue(&str[37] /* "ALLOW_STRITYPE_SLICES" */))); /* line 464 "../lib/cc_conf.s7i" */ strDestr(tmp_1); } { /* line 465 "../lib/cc_conf.s7i" */ striType tmp_1 = NULL; /* line 465 "../lib/cc_conf.s7i" */ ((structType)(o_3442_conf))->stru[2].value.boolValue/*->o_3380_ALLOW_BSTRITYPE_SLICES*/=o_45_parse(/* attr t_13 boolean*/ (tmp_1=cmdConfigValue(&str[38] /* "ALLOW_BSTRITYPE_SLICES" */))); /* line 465 "../lib/cc_conf.s7i" */ strDestr(tmp_1); } { /* line 466 "../lib/cc_conf.s7i" */ striType tmp_1 = NULL; /* line 466 "../lib/cc_conf.s7i" */ ((structType)(o_3442_conf))->stru[3].value.boolValue/*->o_3381_RSHIFT_DOES_SIGN_EXTEND*/=o_45_parse(/* attr t_13 boolean*/ (tmp_1=cmdConfigValue(&str[39] /* "RSHIFT_DOES_SIGN_EXTEND" */))); /* line 466 "../lib/cc_conf.s7i" */ strDestr(tmp_1); } { /* line 467 "../lib/cc_conf.s7i" */ striType tmp_1 = NULL; /* line 467 "../lib/cc_conf.s7i" */ ((structType)(o_3442_conf))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/=o_45_parse(/* attr t_13 boolean*/ (tmp_1=cmdConfigValue(&str[40] /* "TWOS_COMPLEMENT_INTTYPE" */))); /* line 467 "../lib/cc_conf.s7i" */ strDestr(tmp_1); } { /* line 468 "../lib/cc_conf.s7i" */ striType tmp_1 = NULL; /* line 468 "../lib/cc_conf.s7i" */ ((structType)(o_3442_conf))->stru[5].value.boolValue/*->o_3383_LITTLE_ENDIAN_INTTYPE*/=o_45_parse(/* attr t_13 boolean*/ (tmp_1=cmdConfigValue(&str[41] /* "LITTLE_ENDIAN_INTTYPE" */))); /* line 468 "../lib/cc_conf.s7i" */ strDestr(tmp_1); } { /* line 469 "../lib/cc_conf.s7i" */ striType tmp_1 = NULL; /* line 469 "../lib/cc_conf.s7i" */ ((structType)(o_3442_conf))->stru[6].value.boolValue/*->o_3384_NAN_COMPARISON_WRONG*/=o_45_parse(/* attr t_13 boolean*/ (tmp_1=cmdConfigValue(&str[42] /* "NAN_COMPARISON_WRONG" */))); /* line 469 "../lib/cc_conf.s7i" */ strDestr(tmp_1); } { /* line 470 "../lib/cc_conf.s7i" */ striType tmp_1 = NULL; /* line 470 "../lib/cc_conf.s7i" */ ((structType)(o_3442_conf))->stru[7].value.boolValue/*->o_3385_POWER_OF_ZERO_WRONG*/=o_45_parse(/* attr t_13 boolean*/ (tmp_1=cmdConfigValue(&str[43] /* "POWER_OF_ZERO_WRONG" */))); /* line 470 "../lib/cc_conf.s7i" */ strDestr(tmp_1); } { /* line 471 "../lib/cc_conf.s7i" */ striType tmp_1 = NULL; /* line 471 "../lib/cc_conf.s7i" */ ((structType)(o_3442_conf))->stru[8].value.boolValue/*->o_3386_HAS_SIGSETJMP*/=o_45_parse(/* attr t_13 boolean*/ (tmp_1=cmdConfigValue(&str[44] /* "HAS_SIGSETJMP" */))); /* line 471 "../lib/cc_conf.s7i" */ strDestr(tmp_1); } { /* line 472 "../lib/cc_conf.s7i" */ striType tmp_1 = NULL; /* line 472 "../lib/cc_conf.s7i" */ ((structType)(o_3442_conf))->stru[9].value.boolValue/*->o_3387_FLOAT_ZERO_DIV_ERROR*/=o_45_parse(/* attr t_13 boolean*/ (tmp_1=cmdConfigValue(&str[45] /* "FLOAT_ZERO_DIV_ERROR" */))); /* line 472 "../lib/cc_conf.s7i" */ strDestr(tmp_1); } { /* line 473 "../lib/cc_conf.s7i" */ striType tmp_1 = NULL; /* line 473 "../lib/cc_conf.s7i" */ ((structType)(o_3442_conf))->stru[10].value.boolValue/*->o_3388_ISNAN_WITH_UNDERLINE*/=o_45_parse(/* attr t_13 boolean*/ (tmp_1=cmdConfigValue(&str[46] /* "ISNAN_WITH_UNDERLINE" */))); /* line 473 "../lib/cc_conf.s7i" */ strDestr(tmp_1); } { /* line 474 "../lib/cc_conf.s7i" */ striType tmp_1 = NULL; /* line 474 "../lib/cc_conf.s7i" */ ((structType)(o_3442_conf))->stru[11].value.boolValue/*->o_3389_DO_SIGFPE_WITH_DIV_BY_ZERO*/=o_45_parse(/* attr t_13 boolean*/ (tmp_1=cmdConfigValue(&str[47] /* "DO_SIGFPE_WITH_DIV_BY_ZERO" */))); /* line 474 "../lib/cc_conf.s7i" */ strDestr(tmp_1); } { /* line 475 "../lib/cc_conf.s7i" */ striType tmp_1 = NULL; /* line 475 "../lib/cc_conf.s7i" */ ((structType)(o_3442_conf))->stru[12].value.boolValue/*->o_3390_CHECK_INT_DIV_BY_ZERO*/=o_45_parse(/* attr t_13 boolean*/ (tmp_1=cmdConfigValue(&str[48] /* "CHECK_INT_DIV_BY_ZERO" */))); /* line 475 "../lib/cc_conf.s7i" */ strDestr(tmp_1); } { /* line 476 "../lib/cc_conf.s7i" */ striType tmp_1 = NULL; /* line 476 "../lib/cc_conf.s7i" */ ((structType)(o_3442_conf))->stru[13].value.boolValue/*->o_3391_CHECK_INT_REM_BY_ZERO*/=o_45_parse(/* attr t_13 boolean*/ (tmp_1=cmdConfigValue(&str[49] /* "CHECK_INT_REM_BY_ZERO" */))); /* line 476 "../lib/cc_conf.s7i" */ strDestr(tmp_1); } { /* line 477 "../lib/cc_conf.s7i" */ striType tmp_1 = NULL; /* line 477 "../lib/cc_conf.s7i" */ ((structType)(o_3442_conf))->stru[14].value.boolValue/*->o_3392_CHECK_INT_REM_ZERO_BY_ZERO*/=o_45_parse(/* attr t_13 boolean*/ (tmp_1=cmdConfigValue(&str[50] /* "CHECK_INT_REM_ZERO_BY_ZERO" */))); /* line 477 "../lib/cc_conf.s7i" */ strDestr(tmp_1); } { /* line 478 "../lib/cc_conf.s7i" */ striType tmp_1 = NULL; /* line 478 "../lib/cc_conf.s7i" */ ((structType)(o_3442_conf))->stru[15].value.boolValue/*->o_3393_CHECK_FLOAT_DIV_BY_ZERO*/=o_45_parse(/* attr t_13 boolean*/ (tmp_1=cmdConfigValue(&str[51] /* "CHECK_FLOAT_DIV_BY_ZERO" */))); /* line 478 "../lib/cc_conf.s7i" */ strDestr(tmp_1); } { /* line 479 "../lib/cc_conf.s7i" */ striType tmp_1 = NULL; /* line 479 "../lib/cc_conf.s7i" */ ((structType)(o_3442_conf))->stru[16].value.boolValue/*->o_3394_LIMITED_CSTRI_LITERAL_LEN*/=o_45_parse(/* attr t_13 boolean*/ (tmp_1=cmdConfigValue(&str[52] /* "LIMITED_CSTRI_LITERAL_LEN" */))); /* line 479 "../lib/cc_conf.s7i" */ strDestr(tmp_1); } { /* line 480 "../lib/cc_conf.s7i" */ striType tmp_1 = NULL; /* line 480 "../lib/cc_conf.s7i" */ ((structType)(o_3442_conf))->stru[17].value.boolValue/*->o_3395_CC_SOURCE_UTF8*/=o_45_parse(/* attr t_13 boolean*/ (tmp_1=cmdConfigValue(&str[53] /* "CC_SOURCE_UTF8" */))); /* line 480 "../lib/cc_conf.s7i" */ strDestr(tmp_1); } { /* line 481 "../lib/cc_conf.s7i" */ striType tmp_1 = NULL; /* line 481 "../lib/cc_conf.s7i" */ ((structType)(o_3442_conf))->stru[18].value.boolValue/*->o_3396_USE_WMAIN*/=o_45_parse(/* attr t_13 boolean*/ (tmp_1=cmdConfigValue(&str[54] /* "USE_WMAIN" */))); /* line 481 "../lib/cc_conf.s7i" */ strDestr(tmp_1); } { /* line 482 "../lib/cc_conf.s7i" */ striType tmp_1 = NULL; /* line 482 "../lib/cc_conf.s7i" */ ((structType)(o_3442_conf))->stru[19].value.boolValue/*->o_3397_USE_WINMAIN*/=o_45_parse(/* attr t_13 boolean*/ (tmp_1=cmdConfigValue(&str[55] /* "USE_WINMAIN" */))); /* line 482 "../lib/cc_conf.s7i" */ strDestr(tmp_1); } { /* line 483 "../lib/cc_conf.s7i" */ striType tmp_1 = NULL; /* line 483 "../lib/cc_conf.s7i" */ ((structType)(o_3442_conf))->stru[20].value.boolValue/*->o_3398_FLOATTYPE_DOUBLE*/=o_45_parse(/* attr t_13 boolean*/ (tmp_1=cmdConfigValue(&str[56] /* "FLOATTYPE_DOUBLE" */))); /* line 483 "../lib/cc_conf.s7i" */ strDestr(tmp_1); } { /* line 484 "../lib/cc_conf.s7i" */ striType tmp_1 = NULL; /* line 484 "../lib/cc_conf.s7i" */ ((structType)(o_3442_conf))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/=intParse((tmp_1=cmdConfigValue(&str[57] /* "INTTYPE_SIZE" */))); /* line 484 "../lib/cc_conf.s7i" */ strDestr(tmp_1); } { /* line 485 "../lib/cc_conf.s7i" */ striType tmp_1 = NULL; /* line 485 "../lib/cc_conf.s7i" */ ((structType)(o_3442_conf))->stru[22].value.intValue/*->o_3400_FLOATTYPE_SIZE*/=intParse((tmp_1=cmdConfigValue(&str[58] /* "FLOATTYPE_SIZE" */))); /* line 485 "../lib/cc_conf.s7i" */ strDestr(tmp_1); } { /* line 486 "../lib/cc_conf.s7i" */ striType tmp_1 = NULL; /* line 486 "../lib/cc_conf.s7i" */ ((structType)(o_3442_conf))->stru[23].value.intValue/*->o_3401_POINTER_SIZE*/=intParse((tmp_1=cmdConfigValue(&str[59] /* "POINTER_SIZE" */))); /* line 486 "../lib/cc_conf.s7i" */ strDestr(tmp_1); } { /* line 487 "../lib/cc_conf.s7i" */ arrayType/*t_23_TST_1*/ tmp_2 = (arrayType/*t_23_TST_1*/)(NULL); /* line 487 "../lib/cc_conf.s7i" */ setType/*t_30_bitset*/ tmp_1 = (setType/*t_30_bitset*/)(NULL); /* line 487 "../lib/cc_conf.s7i" */ ((structType)(o_3442_conf))->stru[24].value.intValue/*->o_3402_GENERIC_SIZE*/=setMax((tmp_1=(setType/*t_30_bitset*/)(setArrlit((tmp_2=(arrayType/*t_23_TST_1*/)(arrExtend(arrGen((genericType)(((structType)(o_3442_conf))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/), (genericType)(((structType)(o_3442_conf))->stru[22].value.intValue/*->o_3400_FLOATTYPE_SIZE*/)), (genericType)(((structType)(o_3442_conf))->stru[23].value.intValue/*->o_3401_POINTER_SIZE*/)))))))); /* line 487 "../lib/cc_conf.s7i" */ destr_23(tmp_2); /* line 487 "../lib/cc_conf.s7i" */ setDestr(tmp_1); } { /* line 488 "../lib/cc_conf.s7i" */ striType tmp_1 = NULL; /* line 488 "../lib/cc_conf.s7i" */ ((structType)(o_3442_conf))->stru[25].value.intValue/*->o_3403_INT_SIZE*/=intParse((tmp_1=cmdConfigValue(&str[60] /* "INT_SIZE" */))); /* line 488 "../lib/cc_conf.s7i" */ strDestr(tmp_1); } { /* line 489 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[26].value.striValue/*->o_3404_INT32TYPE*/); /* line 489 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 489 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[61] /* "INT32TYPE" */); /* line 489 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 490 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[27].value.striValue/*->o_3405_UINT32TYPE*/); /* line 490 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 490 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[62] /* "UINT32TYPE" */); /* line 490 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 491 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[28].value.striValue/*->o_3406_INT64TYPE*/); /* line 491 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 491 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[63] /* "INT64TYPE" */); /* line 491 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 492 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[29].value.striValue/*->o_3407_UINT64TYPE*/); /* line 492 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 492 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[64] /* "UINT64TYPE" */); /* line 492 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 493 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[30].value.striValue/*->o_3408_INT128TYPE*/); /* line 493 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 493 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[65] /* "INT128TYPE" */); /* line 493 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 494 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[31].value.striValue/*->o_3409_UINT128TYPE*/); /* line 494 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 494 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[66] /* "UINT128TYPE" */); /* line 494 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 495 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[32].value.striValue/*->o_3410_INT32TYPE_LITERAL_SUFFIX*/); /* line 495 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 495 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[67] /* "INT32TYPE_LITERAL_SUFFIX" */); /* line 495 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 496 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[33].value.striValue/*->o_3411_INT64TYPE_LITERAL_SUFFIX*/); /* line 496 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 496 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[68] /* "INT64TYPE_LITERAL_SUFFIX" */); /* line 496 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 497 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[34].value.striValue/*->o_3412_MACRO_DEFS*/); /* line 497 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 497 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[69] /* "MACRO_DEFS" */); /* line 497 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 498 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[35].value.striValue/*->o_3413_OVERFLOW_SIGNAL*/); /* line 498 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 498 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[70] /* "OVERFLOW_SIGNAL" */); /* line 498 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 499 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[36].value.striValue/*->o_3414_OBJECT_FILE_EXTENSION*/); /* line 499 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 499 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[71] /* "OBJECT_FILE_EXTENSION" */); /* line 499 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 500 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[37].value.striValue/*->o_3415_LIBRARY_FILE_EXTENSION*/); /* line 500 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 500 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[72] /* "LIBRARY_FILE_EXTENSION" */); /* line 500 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 501 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[38].value.striValue/*->o_3416_EXECUTABLE_FILE_EXTENSION*/); /* line 501 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 501 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[73] /* "EXECUTABLE_FILE_EXTENSION" */); /* line 501 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 502 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[39].value.striValue/*->o_3417_C_COMPILER*/); /* line 502 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 502 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[74] /* "C_COMPILER" */); /* line 502 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 503 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[40].value.striValue/*->o_3418_CPLUSPLUS_COMPILER*/); /* line 503 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 503 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[75] /* "CPLUSPLUS_COMPILER" */); /* line 503 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 504 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[41].value.striValue/*->o_3419_C_COMPILER_VERSION*/); /* line 504 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 504 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[76] /* "C_COMPILER_VERSION" */); /* line 504 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 505 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[42].value.striValue/*->o_3420_GET_CC_VERSION_INFO*/); /* line 505 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 505 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[77] /* "GET_CC_VERSION_INFO" */); /* line 505 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 506 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[43].value.striValue/*->o_3421_CC_OPT_DEBUG_INFO*/); /* line 506 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 506 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[78] /* "CC_OPT_DEBUG_INFO" */); /* line 506 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 507 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[44].value.striValue/*->o_3422_CC_OPT_NO_WARNINGS*/); /* line 507 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 507 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[79] /* "CC_OPT_NO_WARNINGS" */); /* line 507 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 508 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[45].value.striValue/*->o_3423_CC_FLAGS*/); /* line 508 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 508 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[80] /* "CC_FLAGS" */); /* line 508 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 509 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[46].value.striValue/*->o_3424_REDIRECT_C_ERRORS*/); /* line 509 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 509 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[81] /* "REDIRECT_C_ERRORS" */); /* line 509 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 510 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[47].value.striValue/*->o_3425_LINKER_OPT_DEBUG_INFO*/); /* line 510 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 510 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[82] /* "LINKER_OPT_DEBUG_INFO" */); /* line 510 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 511 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[48].value.striValue/*->o_3426_LINKER_OPT_NO_DEBUG_INFO*/); /* line 511 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 511 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[83] /* "LINKER_OPT_NO_DEBUG_INFO" */); /* line 511 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 512 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[49].value.striValue/*->o_3427_LINKER_OPT_OUTPUT_FILE*/); /* line 512 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 512 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[84] /* "LINKER_OPT_OUTPUT_FILE" */); /* line 512 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 513 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[50].value.striValue/*->o_3428_LINKER_FLAGS*/); /* line 513 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 513 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[85] /* "LINKER_FLAGS" */); /* line 513 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 514 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[51].value.striValue/*->o_3429_SYSTEM_LIBS*/); /* line 514 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 514 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[86] /* "SYSTEM_LIBS" */); /* line 514 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 515 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[52].value.striValue/*->o_3430_SYSTEM_CONSOLE_LIBS*/); /* line 515 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 515 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[87] /* "SYSTEM_CONSOLE_LIBS" */); /* line 515 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 516 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[53].value.striValue/*->o_3431_SYSTEM_DRAW_LIBS*/); /* line 516 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 516 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[88] /* "SYSTEM_DRAW_LIBS" */); /* line 516 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 517 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[54].value.striValue/*->o_3432_SYSTEM_DB_LIBS*/); /* line 517 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 517 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[89] /* "SYSTEM_DB_LIBS" */); /* line 517 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 518 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[55].value.striValue/*->o_3433_SEED7_LIB*/); /* line 518 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 518 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[90] /* "SEED7_LIB" */); /* line 518 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 519 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[56].value.striValue/*->o_3434_CONSOLE_LIB*/); /* line 519 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 519 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[91] /* "CONSOLE_LIB" */); /* line 519 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 520 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[57].value.striValue/*->o_3435_DRAW_LIB*/); /* line 520 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 520 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[92] /* "DRAW_LIB" */); /* line 520 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 521 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[58].value.striValue/*->o_3436_COMP_DATA_LIB*/); /* line 521 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 521 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[93] /* "COMP_DATA_LIB" */); /* line 521 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 522 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[59].value.striValue/*->o_3437_COMPILER_LIB*/); /* line 522 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 522 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[94] /* "COMPILER_LIB" */); /* line 522 "../lib/cc_conf.s7i" */ strDestr(old_stri); } { /* line 523 "../lib/cc_conf.s7i" */ striType *stri_ptr=&(((structType)(o_3442_conf))->stru[60].value.striValue/*->o_3438_S7_LIB_DIR*/); /* line 523 "../lib/cc_conf.s7i" */ striType old_stri=*stri_ptr; /* line 523 "../lib/cc_conf.s7i" */ *stri_ptr=cmdConfigValue(&str[95] /* "S7_LIB_DIR" */); /* line 523 "../lib/cc_conf.s7i" */ strDestr(old_stri); } /* line 524 "../lib/cc_conf.s7i" */ if ((((structType)(o_3442_conf))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/) == (32L)) { /* line 525 "../lib/cc_conf.s7i" */ strCopy(&(((structType)(o_3442_conf))->stru[61].value.striValue/*->o_3439_INTTYPE_LITERAL_SUFFIX*/), ((structType)(o_3442_conf))->stru[32].value.striValue/*->o_3410_INT32TYPE_LITERAL_SUFFIX*/); } else { /* line 527 "../lib/cc_conf.s7i" */ strCopy(&(((structType)(o_3442_conf))->stru[61].value.striValue/*->o_3439_INTTYPE_LITERAL_SUFFIX*/), ((structType)(o_3442_conf))->stru[33].value.striValue/*->o_3411_INT64TYPE_LITERAL_SUFFIX*/); } return o_3442_conf; } /* line 1 "no_file" */ /* 2050 */ structType/*t_122_ccConfigType*/ o_3443_ccConf; /* 2051 */ /* line 538 "../lib/cc_conf.s7i" */ static striType/*t_15_string*/ o_3444_determineCCVersion (const const_striType/*t_15_string*/ o_3445_get_cc_version_info) { /* line 540 "../lib/cc_conf.s7i" */ striType/*t_15_string*/ o_3446_c_compiler_version; /* line 542 "../lib/cc_conf.s7i" */ striType/*t_15_string*/ o_3447_ccVersionFile; /* line 543 "../lib/cc_conf.s7i" */ interfaceType/*t_46_file*/ o_3448_aFile; /* line 540 "../lib/cc_conf.s7i" */ o_3446_c_compiler_version=strEmpty(); /* "" */ /* line 542 "../lib/cc_conf.s7i" */ o_3447_ccVersionFile=strCreate(&str[96] /* "cc_version" */); /* line 543 "../lib/cc_conf.s7i" */ o_3448_aFile=itfCreate(o_976_STD_NULL/* STRUCTOBJECT */); { /* line 545 "../lib/cc_conf.s7i" */ striType tmp_2 = NULL; /* line 545 "../lib/cc_conf.s7i" */ strAppendTemp(&(o_3447_ccVersionFile), strConcat(&str[97] /* "_" */, (tmp_2=intLpad0(intRand(0L, 999999990L),9L)))); /* line 545 "../lib/cc_conf.s7i" */ strDestr(tmp_2); } { /* line 546 "../lib/cc_conf.s7i" */ striType tmp_1 = NULL; /* line 546 "../lib/cc_conf.s7i" */ o_3314_cmd_sh((tmp_1=strConcat(o_3445_get_cc_version_info, o_3447_ccVersionFile))); /* line 546 "../lib/cc_conf.s7i" */ strDestr(tmp_1); } { /* line 547 "../lib/cc_conf.s7i" */ structType old_struct=o_3448_aFile; /* line 547 "../lib/cc_conf.s7i" */ o_3448_aFile=o_1026_open(o_3447_ccVersionFile, &str[22] /* "r" */); /* line 547 "../lib/cc_conf.s7i" */ destr_46(old_struct); } /* line 548 "../lib/cc_conf.s7i" */ if ((o_3448_aFile) != (o_976_STD_NULL)) { { /* line 549 "../lib/cc_conf.s7i" */ striType old_stri=o_3446_c_compiler_version; /* line 549 "../lib/cc_conf.s7i" */ o_3446_c_compiler_version=o_923_getln(&(o_3448_aFile)); /* line 549 "../lib/cc_conf.s7i" */ strDestr(old_stri); } /* line 550 "../lib/cc_conf.s7i" */ o_912_close(&(o_3448_aFile)); } /* line 552 "../lib/cc_conf.s7i" */ if ((cmdFileType(o_3447_ccVersionFile)) == (2L)) { /* line 553 "../lib/cc_conf.s7i" */ cmdRemoveFile(o_3447_ccVersionFile); } /* line 538 "../lib/cc_conf.s7i" */ strDestr(o_3447_ccVersionFile); /* line 538 "../lib/cc_conf.s7i" */ destr_46(o_3448_aFile); return o_3446_c_compiler_version; } /* line 1 "no_file" */ /* 2052 */ /* line 558 "../lib/cc_conf.s7i" */ static boolType/*t_13_boolean*/ o_3449_ccVersionIsOkay (void) { /* line 559 "../lib/cc_conf.s7i" */ boolType/*t_13_boolean*/ result; /* line 559 "../lib/cc_conf.s7i" */ const_striType tmp_a_1; /* line 559 "../lib/cc_conf.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); /* line 559 "../lib/cc_conf.s7i" */ const_striType tmp_b_3; /* line 559 "../lib/cc_conf.s7i" */ result=(boolType/*t_13_boolean*/)(((tmp_a_1=(tmp_2=(striType/*t_15_string*/)(o_3444_determineCCVersion(((structType)(sct[55]))->stru[42].value.striValue/*->o_3420_GET_CC_VERSION_INFO*/))),tmp_b_3=((structType)(sct[55]))->stru[41].value.striValue/*->o_3419_C_COMPILER_VERSION*/,tmp_a_1->size==tmp_b_3->size&&memcmp(tmp_a_1->mem,tmp_b_3->mem,tmp_a_1->size*sizeof(strElemType))==0))); /* line 559 "../lib/cc_conf.s7i" */ strDestr(tmp_2); /* line 559 "../lib/cc_conf.s7i" */ return result; } /* line 1 "no_file" */ /* 2053 */ boolType/*t_13_boolean*/ o_3450_array_range_check=1/*TRUE*/; /* 2054 */ boolType/*t_13_boolean*/ o_3451_conversion_range_check=1/*TRUE*/; /* 2055 */ boolType/*t_13_boolean*/ o_3452_integer_overflow_check=1/*TRUE*/; /* 2056 */ boolType/*t_13_boolean*/ o_3453_source_debug_info=1/*TRUE*/; /* 2057 */ boolType/*t_13_boolean*/ o_3454_trace_exception=0/*FALSE*/; /* 2058 */ boolType/*t_13_boolean*/ o_3455_trace_signal=1/*TRUE*/; /* 2059 */ boolType/*t_13_boolean*/ o_3456_signal_exception=0/*FALSE*/; /* 2060 */ intType o_3457_evaluate_const_expr=1L; /* 2061 */ boolType/*t_13_boolean*/ o_3458_inlineFunctions=1/*TRUE*/; /* 2062 */ boolType/*t_13_boolean*/ o_3459_declare_with_extern_c=0/*FALSE*/; /* 2063 */ boolType/*t_13_boolean*/ o_3460_generate_c_plus_plus=0/*FALSE*/; /* 2064 */ boolType/*t_13_boolean*/ o_3461_check_int_arithmetic_overflow=0/*FALSE*/; /* 2065 */ boolType/*t_13_boolean*/ o_3462_check_int_division_overflow=0/*FALSE*/; /* 2066 */ boolType/*t_13_boolean*/ o_3463_check_int_shift_overflow=0/*FALSE*/; /* 2067 */ /* line 44 "../lib/comp/config.s7i" */ static void/*t_1_void*/ o_3464_setIntegerOverflowCheck (const boolType/*t_13_boolean*/ o_3465_check) { /* line 46 "../lib/comp/config.s7i" */ if (o_3465_check) { /* line 47 "../lib/comp/config.s7i" */ o_3461_check_int_arithmetic_overflow=((((structType)(sct[55]))->stru[35].value.striValue/*->o_3413_OVERFLOW_SIGNAL*/)->size==0 /* "" */); /* line 48 "../lib/comp/config.s7i" */ o_3462_check_int_division_overflow=((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/; /* line 49 "../lib/comp/config.s7i" */ o_3463_check_int_shift_overflow=o_26_TRUE; } else { /* line 51 "../lib/comp/config.s7i" */ o_3461_check_int_arithmetic_overflow=o_25_FALSE; /* line 52 "../lib/comp/config.s7i" */ o_3462_check_int_division_overflow=o_25_FALSE; /* line 53 "../lib/comp/config.s7i" */ o_3463_check_int_shift_overflow=o_25_FALSE; } } /* line 1 "no_file" */ /* 2068 */ typedef genericType t_125/*t_125_typeReferenceHash*/; /* 2069 */ /* 2070 */ /* 2071 */ /* 2072 */ /* 2073 */ /* objRefType/t_19_reference */ intfunctype o_3466/*.*/=(intfunctype)(&ptrCreateGeneric); /* 2074 */ /* objRefType/t_19_reference */ intfunctype o_3467/*.*/=(intfunctype)(&genericDestr); /* 2075 */ /* objRefType/t_19_reference */ intfunctype o_3468/*.*/=(intfunctype)(&ptrCpyGeneric); /* 2076 */ /* objRefType/t_19_reference */ intfunctype o_3469/*.*/=(intfunctype)(&typCmpGeneric); /* 2077 */ /* objRefType/t_19_reference */ intfunctype o_3470/*.*/=(intfunctype)(&ptrCreateGeneric); /* 2078 */ /* objRefType/t_19_reference */ intfunctype o_3471/*.*/=(intfunctype)(&genericDestr); /* 2079 */ /* objRefType/t_19_reference */ intfunctype o_3472/*.*/=(intfunctype)(&ptrCpyGeneric); /* 2080 */ /* 2081 */ /* 2082 */ /* 2083 */ typedef genericType t_126/*t_126_*ANONYM_TYPE**/; /* 2084 */ typedef genericType t_127/*t_127_*ANONYM_TYPE**/; /* 2085 */ /* 2086 */ /* 2087 */ /* 2088 */ /* ACTION ARR_GEN for type arrayType/t_127_*ANONYM_TYPE* element is typeType/t_7_type */ /* 2089 */ /* 2090 */ /* 2091 */ /* 2092 */ /* 2093 */ /* 2094 */ /* ACTION ARR_IDX for type arrayType/t_126_*ANONYM_TYPE* element is typeType/t_7_type */ /* 2095 */ /* ACTION ARR_IDX for type arrayType/t_126_*ANONYM_TYPE* element is typeType/t_7_type */ /* 2096 */ /* line 163 "../lib/array.s7i" */ static arrayType times_126 (intType n, const typeType/*t_7_type*/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.typeValue=b; /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 2097 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ create_126 (const_arrayType/*t_126_*ANONYM_TYPE**/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_126_*ANONYM_TYPE**/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_126_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.typeValue=b->arr[i].value.typeValue; /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_126 (const_arrayType/*t_126_*ANONYM_TYPE**/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_127 (const_arrayType/*t_127_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_127_*ANONYM_TYPE**/ create_127 (const_arrayType/*t_127_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_127_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_127_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.typeValue=b->arr[i].value.typeValue; /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_3473_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_3474_indexRange, const typeType/*t_7_type*/ o_3475_element) { /* line 186 "../lib/array.s7i" */ arrayType/*t_126_*ANONYM_TYPE**/ o_3476_anArray; /* line 186 "../lib/array.s7i" */ o_3476_anArray=create_126(arr[56]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_3476_anArray; /* line 188 "../lib/array.s7i" */ o_3476_anArray=times_126(((((structType)(o_3474_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_3474_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_3475_element); /* line 188 "../lib/array.s7i" */ destr_126(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_3476_anArray; /* line 189 "../lib/array.s7i" */ o_3476_anArray=arrArrlit2(((structType)(o_3474_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_127(/*arrConv()*/o_3476_anArray)); /* line 189 "../lib/array.s7i" */ destr_126(old_array); } return o_3476_anArray; } /* line 1 "no_file" */ /* 2098 */ /* declare inline o_3477_for*/ /* declare inline o_3478_for*/ /* declare inline o_3479_for*/ /* declare inline o_3480_for*/ /* declare inline o_3481_for*/ /* declare inline o_3482_for*/ /* declare inline o_3483_for*/ /* declare inline o_3484_for*/ /* declare inline o_3485_for*/ /* line 329 "../lib/array.s7i" */ static typeType/*t_7_type*/ o_3486_rand (const const_arrayType/*t_126_*ANONYM_TYPE**/ o_3487_arr) { /* line 330 "../lib/array.s7i" */ typeType/*t_7_type*/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(typeType/*t_7_type*/)(((o_3487_arr)->arr[idx_1=intRand((o_3487_arr)->min_position, (o_3487_arr)->max_position),(idxChk(idx_1 < (o_3487_arr)->min_position || idx_1 > (o_3487_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_3487_arr)->min_position)].value.typeValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 2099 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_3488_insert (arrayType/*t_126_*ANONYM_TYPE**/ *const o_3489_arr, const intType/*t_14_integer*/ o_3490_index, const typeType/*t_7_type*/ o_3491_element) { /* line 334 "../lib/array.s7i" */ if (((o_3490_index) >= ((*o_3489_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_3490_index) <= (((*o_3489_arr)->max_position)+1))) { { { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_3489_arr; /* line 335 "../lib/array.s7i" */ *o_3489_arr=arrCat(arrCat(arrHead(*o_3489_arr, (o_3490_index)-1), arrBaselit((genericType)(o_3491_element))), arrTail(*o_3489_arr, o_3490_index)); /* line 335 "../lib/array.s7i" */ destr_126(old_array); } } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } } /* line 1 "no_file" */ /* 2100 */ /* line 344 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_3492/*=*/ (const const_arrayType/*t_126_*ANONYM_TYPE**/ o_3493_arr1, const const_arrayType/*t_126_*ANONYM_TYPE**/ o_3494_arr2) { /* line 346 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_3495_isEqual=o_25_FALSE; /* line 348 "../lib/array.s7i" */ intType/*t_14_integer*/ o_3496_number=1; /* line 350 "../lib/array.s7i" */ if ((((o_3493_arr1)->min_position) == ((o_3494_arr2)->min_position)) && /* line 350 "../lib/array.s7i" */ (((o_3493_arr1)->max_position) == ((o_3494_arr2)->max_position))) { /* line 351 "../lib/array.s7i" */ o_3495_isEqual=o_26_TRUE; /* line 352 "../lib/array.s7i" */ o_3496_number=(o_3493_arr1)->min_position; /* line 353 "../lib/array.s7i" */ while (((o_3496_number) <= ((o_3493_arr1)->max_position)) && /* line 353 "../lib/array.s7i" */ (o_3495_isEqual)) { /* line 354 "../lib/array.s7i" */ o_3495_isEqual=((o_3493_arr1)->arr[(idxChk((o_3496_number) < (o_3493_arr1)->min_position || (o_3496_number) > (o_3493_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3496_number)-(o_3493_arr1)->min_position)].value.typeValue) == ((o_3494_arr2)->arr[(idxChk((o_3496_number) < (o_3494_arr2)->min_position || (o_3496_number) > (o_3494_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3496_number)-(o_3494_arr2)->min_position)].value.typeValue); /* line 355 "../lib/array.s7i" */ ++(o_3496_number); } } return o_3495_isEqual; } /* line 1 "no_file" */ /* 2101 */ /* line 360 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_3497/*<>*/ (const const_arrayType/*t_126_*ANONYM_TYPE**/ o_3498_arr1, const const_arrayType/*t_126_*ANONYM_TYPE**/ o_3499_arr2) { /* line 362 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_3500_isNotEqual=o_26_TRUE; /* line 364 "../lib/array.s7i" */ intType/*t_14_integer*/ o_3501_number=1; /* line 366 "../lib/array.s7i" */ if ((((o_3498_arr1)->min_position) == ((o_3499_arr2)->min_position)) && /* line 366 "../lib/array.s7i" */ (((o_3498_arr1)->max_position) == ((o_3499_arr2)->max_position))) { /* line 367 "../lib/array.s7i" */ o_3500_isNotEqual=o_25_FALSE; /* line 368 "../lib/array.s7i" */ o_3501_number=(o_3498_arr1)->min_position; /* line 369 "../lib/array.s7i" */ while (((o_3501_number) <= ((o_3498_arr1)->max_position)) && /* line 369 "../lib/array.s7i" */ (!(o_3500_isNotEqual))) { /* line 370 "../lib/array.s7i" */ o_3500_isNotEqual=((o_3498_arr1)->arr[(idxChk((o_3501_number) < (o_3498_arr1)->min_position || (o_3501_number) > (o_3498_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3501_number)-(o_3498_arr1)->min_position)].value.typeValue) != ((o_3499_arr2)->arr[(idxChk((o_3501_number) < (o_3499_arr2)->min_position || (o_3501_number) > (o_3499_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3501_number)-(o_3499_arr2)->min_position)].value.typeValue); /* line 371 "../lib/array.s7i" */ ++(o_3501_number); } } return o_3500_isNotEqual; } /* line 1 "no_file" */ /* 2102 */ /* line 400 "../lib/array.s7i" */ static intType/*t_14_integer*/ o_3502_compare (const const_arrayType/*t_126_*ANONYM_TYPE**/ o_3503_arr1, const const_arrayType/*t_126_*ANONYM_TYPE**/ o_3504_arr2) { /* line 402 "../lib/array.s7i" */ intType/*t_14_integer*/ o_3505_signumValue=0; /* line 404 "../lib/array.s7i" */ intType/*t_14_integer*/ o_3506_idx1=0; /* line 405 "../lib/array.s7i" */ intType/*t_14_integer*/ o_3507_idx2=0; /* line 407 "../lib/array.s7i" */ o_3506_idx1=(o_3503_arr1)->min_position; /* line 408 "../lib/array.s7i" */ o_3507_idx2=(o_3504_arr2)->min_position; /* line 409 "../lib/array.s7i" */ while (((o_3506_idx1) <= ((o_3503_arr1)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_3507_idx2) <= ((o_3504_arr2)->max_position)) && /* line 409 "../lib/array.s7i" */ ((typCmp((o_3503_arr1)->arr[(idxChk((o_3506_idx1) < (o_3503_arr1)->min_position || (o_3506_idx1) > (o_3503_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3506_idx1)-(o_3503_arr1)->min_position)].value.typeValue, (o_3504_arr2)->arr[(idxChk((o_3507_idx2) < (o_3504_arr2)->min_position || (o_3507_idx2) > (o_3504_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3507_idx2)-(o_3504_arr2)->min_position)].value.typeValue)) == (0L))) { /* line 410 "../lib/array.s7i" */ ++(o_3506_idx1); /* line 411 "../lib/array.s7i" */ ++(o_3507_idx2); } /* line 413 "../lib/array.s7i" */ if (((o_3506_idx1) <= ((o_3503_arr1)->max_position)) && /* line 413 "../lib/array.s7i" */ ((o_3507_idx2) <= ((o_3504_arr2)->max_position))) { /* line 414 "../lib/array.s7i" */ o_3505_signumValue=typCmp((o_3503_arr1)->arr[(idxChk((o_3506_idx1) < (o_3503_arr1)->min_position || (o_3506_idx1) > (o_3503_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3506_idx1)-(o_3503_arr1)->min_position)].value.typeValue, (o_3504_arr2)->arr[(idxChk((o_3507_idx2) < (o_3504_arr2)->min_position || (o_3507_idx2) > (o_3504_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3507_idx2)-(o_3504_arr2)->min_position)].value.typeValue); } else { /* line 416 "../lib/array.s7i" */ o_3505_signumValue=intCmp(((o_3503_arr1)->max_position - (o_3503_arr1)->min_position + 1), ((o_3504_arr2)->max_position - (o_3504_arr2)->min_position + 1)); } return o_3505_signumValue; } /* line 1 "no_file" */ /* 2103 */ /* line 420 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_3508/*<*/ (const const_arrayType/*t_126_*ANONYM_TYPE**/ o_3509_arr1, const const_arrayType/*t_126_*ANONYM_TYPE**/ o_3510_arr2) { /* line 421 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_3502_compare(o_3509_arr1, o_3510_arr2)) < (0L))); } /* line 1 "no_file" */ /* 2104 */ /* line 423 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_3511/*>*/ (const const_arrayType/*t_126_*ANONYM_TYPE**/ o_3512_arr1, const const_arrayType/*t_126_*ANONYM_TYPE**/ o_3513_arr2) { /* line 424 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_3502_compare(o_3512_arr1, o_3513_arr2)) > (0L))); } /* line 1 "no_file" */ /* 2105 */ /* line 426 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_3514/*<=*/ (const const_arrayType/*t_126_*ANONYM_TYPE**/ o_3515_arr1, const const_arrayType/*t_126_*ANONYM_TYPE**/ o_3516_arr2) { /* line 427 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_3502_compare(o_3515_arr1, o_3516_arr2)) <= (0L))); } /* line 1 "no_file" */ /* 2106 */ /* line 429 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_3517/*>=*/ (const const_arrayType/*t_126_*ANONYM_TYPE**/ o_3518_arr1, const const_arrayType/*t_126_*ANONYM_TYPE**/ o_3519_arr2) { /* line 430 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_3502_compare(o_3518_arr1, o_3519_arr2)) >= (0L))); } /* line 1 "no_file" */ /* 2107 */ /* objRefType/t_19_reference */ intfunctype o_3520/*.*/=(intfunctype)(&typCmpGeneric); /* 2108 */ /* line 436 "../lib/array.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_3521_sort (const const_arrayType/*t_126_*ANONYM_TYPE**/ o_3522_arr_obj) { /* line 437 "../lib/array.s7i" */ return (arrayType/*t_126_*ANONYM_TYPE**/)((arrSort(create_126(o_3522_arr_obj), (compareType)(o_3520/*.*/)))); } /* line 1 "no_file" */ /* 2109 */ typedef genericType t_128/*t_128_*ANONYM_TYPE**/; /* 2110 */ typedef genericType t_129/*t_129_*ANONYM_TYPE**/; /* 2111 */ /* 2112 */ /* 2113 */ /* 2114 */ /* ACTION ARR_GEN for type arrayType/t_129_*ANONYM_TYPE* element is objRefType/t_19_reference */ /* 2115 */ /* 2116 */ /* 2117 */ /* 2118 */ /* 2119 */ /* 2120 */ /* ACTION ARR_IDX for type arrayType/t_128_*ANONYM_TYPE* element is objRefType/t_19_reference */ /* 2121 */ /* ACTION ARR_IDX for type arrayType/t_128_*ANONYM_TYPE* element is objRefType/t_19_reference */ /* 2122 */ /* line 163 "../lib/array.s7i" */ static arrayType times_128 (intType n, const objRefType/*t_19_reference*/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.objRefValue=b; /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 2123 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ create_128 (const_arrayType/*t_128_*ANONYM_TYPE**/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_128_*ANONYM_TYPE**/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_128_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.objRefValue=b->arr[i].value.objRefValue; /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_128 (const_arrayType/*t_128_*ANONYM_TYPE**/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_129 (const_arrayType/*t_129_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_129_*ANONYM_TYPE**/ create_129 (const_arrayType/*t_129_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_129_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_129_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.objRefValue=b->arr[i].value.objRefValue; /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_3523_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_3524_indexRange, const objRefType/*t_19_reference*/ o_3525_element) { /* line 186 "../lib/array.s7i" */ arrayType/*t_128_*ANONYM_TYPE**/ o_3526_anArray; /* line 186 "../lib/array.s7i" */ o_3526_anArray=create_128(arr[57]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_3526_anArray; /* line 188 "../lib/array.s7i" */ o_3526_anArray=times_128(((((structType)(o_3524_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_3524_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_3525_element); /* line 188 "../lib/array.s7i" */ destr_128(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_3526_anArray; /* line 189 "../lib/array.s7i" */ o_3526_anArray=arrArrlit2(((structType)(o_3524_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_129(/*arrConv()*/o_3526_anArray)); /* line 189 "../lib/array.s7i" */ destr_128(old_array); } return o_3526_anArray; } /* line 1 "no_file" */ /* 2124 */ /* declare inline o_3527_for*/ /* declare inline o_3528_for*/ /* declare inline o_3529_for*/ /* declare inline o_3530_for*/ /* declare inline o_3531_for*/ /* declare inline o_3532_for*/ /* declare inline o_3533_for*/ /* declare inline o_3534_for*/ /* declare inline o_3535_for*/ /* line 329 "../lib/array.s7i" */ static objRefType/*t_19_reference*/ o_3536_rand (const const_arrayType/*t_128_*ANONYM_TYPE**/ o_3537_arr) { /* line 330 "../lib/array.s7i" */ objRefType/*t_19_reference*/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(objRefType/*t_19_reference*/)(((o_3537_arr)->arr[idx_1=intRand((o_3537_arr)->min_position, (o_3537_arr)->max_position),(idxChk(idx_1 < (o_3537_arr)->min_position || idx_1 > (o_3537_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_3537_arr)->min_position)].value.objRefValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 2125 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_3538_insert (arrayType/*t_128_*ANONYM_TYPE**/ *const o_3539_arr, const intType/*t_14_integer*/ o_3540_index, const objRefType/*t_19_reference*/ o_3541_element) { /* line 334 "../lib/array.s7i" */ if (((o_3540_index) >= ((*o_3539_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_3540_index) <= (((*o_3539_arr)->max_position)+1))) { { { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_3539_arr; /* line 335 "../lib/array.s7i" */ *o_3539_arr=arrCat(arrCat(arrHead(*o_3539_arr, (o_3540_index)-1), arrBaselit((genericType)(o_3541_element))), arrTail(*o_3539_arr, o_3540_index)); /* line 335 "../lib/array.s7i" */ destr_128(old_array); } } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } } /* line 1 "no_file" */ /* 2126 */ /* line 344 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_3542/*=*/ (const const_arrayType/*t_128_*ANONYM_TYPE**/ o_3543_arr1, const const_arrayType/*t_128_*ANONYM_TYPE**/ o_3544_arr2) { /* line 346 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_3545_isEqual=o_25_FALSE; /* line 348 "../lib/array.s7i" */ intType/*t_14_integer*/ o_3546_number=1; /* line 350 "../lib/array.s7i" */ if ((((o_3543_arr1)->min_position) == ((o_3544_arr2)->min_position)) && /* line 350 "../lib/array.s7i" */ (((o_3543_arr1)->max_position) == ((o_3544_arr2)->max_position))) { /* line 351 "../lib/array.s7i" */ o_3545_isEqual=o_26_TRUE; /* line 352 "../lib/array.s7i" */ o_3546_number=(o_3543_arr1)->min_position; /* line 353 "../lib/array.s7i" */ while (((o_3546_number) <= ((o_3543_arr1)->max_position)) && /* line 353 "../lib/array.s7i" */ (o_3545_isEqual)) { /* line 354 "../lib/array.s7i" */ o_3545_isEqual=((o_3543_arr1)->arr[(idxChk((o_3546_number) < (o_3543_arr1)->min_position || (o_3546_number) > (o_3543_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3546_number)-(o_3543_arr1)->min_position)].value.objRefValue) == ((o_3544_arr2)->arr[(idxChk((o_3546_number) < (o_3544_arr2)->min_position || (o_3546_number) > (o_3544_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3546_number)-(o_3544_arr2)->min_position)].value.objRefValue); /* line 355 "../lib/array.s7i" */ ++(o_3546_number); } } return o_3545_isEqual; } /* line 1 "no_file" */ /* 2127 */ /* line 360 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_3547/*<>*/ (const const_arrayType/*t_128_*ANONYM_TYPE**/ o_3548_arr1, const const_arrayType/*t_128_*ANONYM_TYPE**/ o_3549_arr2) { /* line 362 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_3550_isNotEqual=o_26_TRUE; /* line 364 "../lib/array.s7i" */ intType/*t_14_integer*/ o_3551_number=1; /* line 366 "../lib/array.s7i" */ if ((((o_3548_arr1)->min_position) == ((o_3549_arr2)->min_position)) && /* line 366 "../lib/array.s7i" */ (((o_3548_arr1)->max_position) == ((o_3549_arr2)->max_position))) { /* line 367 "../lib/array.s7i" */ o_3550_isNotEqual=o_25_FALSE; /* line 368 "../lib/array.s7i" */ o_3551_number=(o_3548_arr1)->min_position; /* line 369 "../lib/array.s7i" */ while (((o_3551_number) <= ((o_3548_arr1)->max_position)) && /* line 369 "../lib/array.s7i" */ (!(o_3550_isNotEqual))) { /* line 370 "../lib/array.s7i" */ o_3550_isNotEqual=((o_3548_arr1)->arr[(idxChk((o_3551_number) < (o_3548_arr1)->min_position || (o_3551_number) > (o_3548_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3551_number)-(o_3548_arr1)->min_position)].value.objRefValue) != ((o_3549_arr2)->arr[(idxChk((o_3551_number) < (o_3549_arr2)->min_position || (o_3551_number) > (o_3549_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3551_number)-(o_3549_arr2)->min_position)].value.objRefValue); /* line 371 "../lib/array.s7i" */ ++(o_3551_number); } } return o_3550_isNotEqual; } /* line 1 "no_file" */ /* 2128 */ /* line 400 "../lib/array.s7i" */ static intType/*t_14_integer*/ o_3552_compare (const const_arrayType/*t_128_*ANONYM_TYPE**/ o_3553_arr1, const const_arrayType/*t_128_*ANONYM_TYPE**/ o_3554_arr2) { /* line 402 "../lib/array.s7i" */ intType/*t_14_integer*/ o_3555_signumValue=0; /* line 404 "../lib/array.s7i" */ intType/*t_14_integer*/ o_3556_idx1=0; /* line 405 "../lib/array.s7i" */ intType/*t_14_integer*/ o_3557_idx2=0; /* line 407 "../lib/array.s7i" */ o_3556_idx1=(o_3553_arr1)->min_position; /* line 408 "../lib/array.s7i" */ o_3557_idx2=(o_3554_arr2)->min_position; /* line 409 "../lib/array.s7i" */ while (((o_3556_idx1) <= ((o_3553_arr1)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_3557_idx2) <= ((o_3554_arr2)->max_position)) && /* line 409 "../lib/array.s7i" */ ((ptrCmp((o_3553_arr1)->arr[(idxChk((o_3556_idx1) < (o_3553_arr1)->min_position || (o_3556_idx1) > (o_3553_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3556_idx1)-(o_3553_arr1)->min_position)].value.objRefValue, (o_3554_arr2)->arr[(idxChk((o_3557_idx2) < (o_3554_arr2)->min_position || (o_3557_idx2) > (o_3554_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3557_idx2)-(o_3554_arr2)->min_position)].value.objRefValue)) == (0L))) { /* line 410 "../lib/array.s7i" */ ++(o_3556_idx1); /* line 411 "../lib/array.s7i" */ ++(o_3557_idx2); } /* line 413 "../lib/array.s7i" */ if (((o_3556_idx1) <= ((o_3553_arr1)->max_position)) && /* line 413 "../lib/array.s7i" */ ((o_3557_idx2) <= ((o_3554_arr2)->max_position))) { /* line 414 "../lib/array.s7i" */ o_3555_signumValue=ptrCmp((o_3553_arr1)->arr[(idxChk((o_3556_idx1) < (o_3553_arr1)->min_position || (o_3556_idx1) > (o_3553_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3556_idx1)-(o_3553_arr1)->min_position)].value.objRefValue, (o_3554_arr2)->arr[(idxChk((o_3557_idx2) < (o_3554_arr2)->min_position || (o_3557_idx2) > (o_3554_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3557_idx2)-(o_3554_arr2)->min_position)].value.objRefValue); } else { /* line 416 "../lib/array.s7i" */ o_3555_signumValue=intCmp(((o_3553_arr1)->max_position - (o_3553_arr1)->min_position + 1), ((o_3554_arr2)->max_position - (o_3554_arr2)->min_position + 1)); } return o_3555_signumValue; } /* line 1 "no_file" */ /* 2129 */ /* line 420 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_3558/*<*/ (const const_arrayType/*t_128_*ANONYM_TYPE**/ o_3559_arr1, const const_arrayType/*t_128_*ANONYM_TYPE**/ o_3560_arr2) { /* line 421 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_3552_compare(o_3559_arr1, o_3560_arr2)) < (0L))); } /* line 1 "no_file" */ /* 2130 */ /* line 423 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_3561/*>*/ (const const_arrayType/*t_128_*ANONYM_TYPE**/ o_3562_arr1, const const_arrayType/*t_128_*ANONYM_TYPE**/ o_3563_arr2) { /* line 424 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_3552_compare(o_3562_arr1, o_3563_arr2)) > (0L))); } /* line 1 "no_file" */ /* 2131 */ /* line 426 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_3564/*<=*/ (const const_arrayType/*t_128_*ANONYM_TYPE**/ o_3565_arr1, const const_arrayType/*t_128_*ANONYM_TYPE**/ o_3566_arr2) { /* line 427 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_3552_compare(o_3565_arr1, o_3566_arr2)) <= (0L))); } /* line 1 "no_file" */ /* 2132 */ /* line 429 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_3567/*>=*/ (const const_arrayType/*t_128_*ANONYM_TYPE**/ o_3568_arr1, const const_arrayType/*t_128_*ANONYM_TYPE**/ o_3569_arr2) { /* line 430 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_3552_compare(o_3568_arr1, o_3569_arr2)) >= (0L))); } /* line 1 "no_file" */ /* 2133 */ /* objRefType/t_19_reference */ intfunctype o_3570/*.*/=(intfunctype)(&ptrCmpGeneric); /* 2134 */ /* line 436 "../lib/array.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_3571_sort (const const_arrayType/*t_128_*ANONYM_TYPE**/ o_3572_arr_obj) { /* line 437 "../lib/array.s7i" */ return (arrayType/*t_128_*ANONYM_TYPE**/)((arrSort(create_128(o_3572_arr_obj), (compareType)(o_3570/*.*/)))); } /* line 1 "no_file" */ /* 2135 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3573/*::=*/ (const const_hashType/*t_125_typeReferenceHash*/ o_3574_dest, const const_hashType/*t_125_typeReferenceHash*/ o_3575_source) { /* hshCreate implemented with create_125 */ } /* line 1 "no_file" */ /* 2136 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3576_destroy (const const_hashType/*t_125_typeReferenceHash*/ o_3577_oldHash) { /* hshDestr implemented with destr_125 */ } /* line 1 "no_file" */ /* 2137 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3578/*:=*/ (hashType/*t_125_typeReferenceHash*/ *const o_3579_dest, const const_hashType/*t_125_typeReferenceHash*/ o_3580_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_3579_dest), o_3580_source, (createFuncType)(o_3466/*.*/), (destrFuncType)(o_3467/*.*/), (createFuncType)(o_3470/*.*/), (destrFuncType)(o_3471/*.*/)); } /* line 1 "no_file" */ /* 2138 */ typedef genericType t_130/*t_130_*ANONYM_TYPE**/; /* 2139 */ /* 2140 */ /* 2141 */ /* 2142 */ /* 2143 */ /* objRefType/t_130_*ANONYM_TYPE* */ objRefType o_3581/*.*/=(objRefType)(NULL); /* 2144 */ /* objRefType/t_130_*ANONYM_TYPE* */ objRefType o_3582/*.*/=(objRefType)(NULL); /* 2145 */ hashType/*t_125_typeReferenceHash*/ o_3583/*.*/; /* 2146 */ hashType/*t_125_typeReferenceHash*/ o_3584/*.*/; /* 2147 */ /* line 149 "../lib/hash.s7i" */ static objRefType/*t_19_reference*/ o_3585/*[*/ (const const_hashType/*t_125_typeReferenceHash*/ o_3586_aHashMap, const typeType/*t_7_type*/ *const o_3587_aKey) { /* line 150 "../lib/hash.s7i" */ return (objRefType/*t_19_reference*/)(((objRefType/*t_19_reference*/)(hshIdx(o_3586_aHashMap, (genericType)(*o_3587_aKey), (intType)(((memSizeType)(*o_3587_aKey)) >> 6), (compareType)(o_3469/*.*/))))); } /* line 1 "no_file" */ /* 2148 */ /* line 152 "../lib/hash.s7i" */ static objRefType/*t_19_reference*/ /*varfunc*/ *o_3588/*[*/ (hashType/*t_125_typeReferenceHash*/ *const o_3589_aHashMap, const typeType/*t_7_type*/ *const o_3590_aKey) { /* line 153 "../lib/hash.s7i" */ return (objRefType/*t_19_reference*/ *)(&(hshIdxAddr(*o_3589_aHashMap, (genericType)(*o_3590_aKey), (intType)(((memSizeType)(*o_3590_aKey)) >> 6), (compareType)(o_3469/*.*/))->value.objRefValue)); } /* line 1 "no_file" */ /* 2149 */ /* line 161 "../lib/hash.s7i" */ static objRefType/*t_19_reference*/ o_3591/*[*/ (const const_hashType/*t_125_typeReferenceHash*/ o_3592_aHashMap, const typeType/*t_7_type*/ *const o_3593_aKey, const objRefType/*t_19_reference*/ o_3594_defaultValue) { /* line 162 "../lib/hash.s7i" */ objRefType/*t_19_reference*/ result; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ result=(objRefType/*t_19_reference*/)(((addr_1=hshIdxAddr2(o_3592_aHashMap, (genericType)(*o_3593_aKey), (intType)(((memSizeType)(*o_3593_aKey)) >> 6), (compareType)(o_3469/*.*/)),addr_1!=NULL?addr_1->value.objRefValue:(o_3594_defaultValue)))); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2150 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_3595_in (const typeType/*t_7_type*/ *const o_3596_aKey, const const_hashType/*t_125_typeReferenceHash*/ o_3597_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_3597_aHashMap, (genericType)(*o_3596_aKey), (intType)(((memSizeType)(*o_3596_aKey)) >> 6), (compareType)(o_3469/*.*/)))); } /* line 1 "no_file" */ /* 2151 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_3598_not (const typeType/*t_7_type*/ *const o_3599_aKey, const const_hashType/*t_125_typeReferenceHash*/ o_3600_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_3600_aHashMap, (genericType)(*o_3599_aKey), (intType)(((memSizeType)(*o_3599_aKey)) >> 6), (compareType)(o_3469/*.*/))))); } /* line 1 "no_file" */ /* 2152 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3601_incl (hashType/*t_125_typeReferenceHash*/ *const o_3602_aHashMap, const typeType/*t_7_type*/ *const o_3603_aKey, const objRefType/*t_19_reference*/ o_3604_anElem) { /* line 191 "../lib/hash.s7i" */ hshIncl(*o_3602_aHashMap, (genericType)(*o_3603_aKey), (genericType)(o_3604_anElem), (intType)(((memSizeType)(*o_3603_aKey)) >> 6), (compareType)(o_3469/*.*/), (createFuncType)(o_3466/*.*/), (createFuncType)(o_3470/*.*/), (copyFuncType)(o_3472/*.*/)); } /* line 1 "no_file" */ /* 2153 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3605_excl (hashType/*t_125_typeReferenceHash*/ *const o_3606_aHashMap, const typeType/*t_7_type*/ *const o_3607_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_3606_aHashMap, (genericType)(*o_3607_aKey), (intType)(((memSizeType)(*o_3607_aKey)) >> 6), (compareType)(o_3469/*.*/), (destrFuncType)(o_3467/*.*/), (destrFuncType)(o_3471/*.*/)); } /* line 1 "no_file" */ /* 2154 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3608/*@:=*/ (hashType/*t_125_typeReferenceHash*/ *const o_3609_aHashMap, const typeType/*t_7_type*/ *const o_3610_aKey, const objRefType/*t_19_reference*/ o_3611_anElem) { /* line 212 "../lib/hash.s7i" */ hshIncl(*o_3609_aHashMap, (genericType)(*o_3610_aKey), (genericType)(o_3611_anElem), (intType)(((memSizeType)(*o_3610_aKey)) >> 6), (compareType)(o_3469/*.*/), (createFuncType)(o_3466/*.*/), (createFuncType)(o_3470/*.*/), (copyFuncType)(o_3472/*.*/)); } /* line 1 "no_file" */ /* 2155 */ /* line 216 "../lib/hash.s7i" */ static objRefType/*t_19_reference*/ o_3612_update (hashType/*t_125_typeReferenceHash*/ *const o_3613_aHashMap, const typeType/*t_7_type*/ *const o_3614_aKey, const objRefType/*t_19_reference*/ o_3615_anElem) { /* line 217 "../lib/hash.s7i" */ return (objRefType/*t_19_reference*/)(((objRefType/*t_19_reference*/)(hshUpdate(*o_3613_aHashMap, (genericType)(*o_3614_aKey), (genericType)(o_3615_anElem), (intType)(((memSizeType)(*o_3614_aKey)) >> 6), (compareType)(o_3469/*.*/), (createFuncType)(o_3466/*.*/), (createFuncType)(o_3470/*.*/))))); } /* line 1 "no_file" */ /* 2156 */ /* declare inline o_3616_for*/ /* declare inline o_3617_for*/ /* declare inline o_3618_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_3619_keys (const const_hashType/*t_125_typeReferenceHash*/ o_3620_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_126_*ANONYM_TYPE**/)((hshKeys(o_3620_aHashMap, (createFuncType)(o_3466/*.*/), (destrFuncType)(o_3467/*.*/)))); } /* line 1 "no_file" */ /* 2157 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_3621_values (const const_hashType/*t_125_typeReferenceHash*/ o_3622_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_128_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_3622_aHashMap, (createFuncType)(o_3470/*.*/), (destrFuncType)(o_3471/*.*/)))); } /* line 1 "no_file" */ /* 2158 */ typedef genericType t_131/*t_131_*ANONYM_TYPE**/; /* 2159 */ /* 2160 */ /* 2161 */ /* 2162 */ /* objRefType/t_19_reference */ intfunctype o_3623/*.*/=(intfunctype)(&ptrCreateGeneric); /* 2163 */ /* objRefType/t_19_reference */ intfunctype o_3624/*.*/=(intfunctype)(&genericDestr); /* 2164 */ /* objRefType/t_19_reference */ intfunctype o_3625/*.*/=(intfunctype)(&ptrCpyGeneric); /* 2165 */ /* objRefType/t_19_reference */ intfunctype o_3626/*.*/=(intfunctype)(&ptrCmpGeneric); /* 2166 */ static genericType generic_create_126 (const genericType b) { rtlObjectType result; result.value.arrayValue=create_126(((const_rtlObjectType *) &b)->value.arrayValue); return result.value.genericValue; } /* objRefType/t_19_reference */ intfunctype o_3627/*.*/=(intfunctype)(&generic_create_126); /* 2167 */ static void generic_destr_126 (const genericType b) { destr_126(((const_rtlObjectType *) &b)->value.arrayValue); } /* objRefType/t_19_reference */ intfunctype o_3628/*.*/=(intfunctype)(&generic_destr_126); /* 2168 */ /* line 64 "../lib/array.s7i" */ static void cpy_126 (arrayType/*t_126_*ANONYM_TYPE**/ *a, arrayType/*t_126_*ANONYM_TYPE**/ b) /* line 64 "../lib/array.s7i" */ { /* line 64 "../lib/array.s7i" */ memSizeType i; /* line 64 "../lib/array.s7i" */ memSizeType size_a = (uintType)((*a)->max_position - (*a)->min_position + 1); /* line 64 "../lib/array.s7i" */ memSizeType size_b = (uintType)(b->max_position - b->min_position + 1); /* line 64 "../lib/array.s7i" */ memSizeType size; /* line 64 "../lib/array.s7i" */ (*a)->min_position = b->min_position; /* line 64 "../lib/array.s7i" */ (*a)->max_position = b->max_position; /* line 64 "../lib/array.s7i" */ if (size_a == size_b) { /* line 64 "../lib/array.s7i" */ size = size_a; /* line 64 "../lib/array.s7i" */ } else { /* line 64 "../lib/array.s7i" */ if (size_a < size_b) { /* line 64 "../lib/array.s7i" */ *a=(arrayType/*t_126_*ANONYM_TYPE**/)(arrRealloc((arrayType)(*a), size_a, size_b)); size = size_a; /* line 64 "../lib/array.s7i" */ for (i = size_a; i < size_b; i++) { /* line 64 "../lib/array.s7i" */ (*a)->arr[i].value.typeValue=b->arr[i].value.typeValue; /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ } else /* size_a > size_b */ { /* line 64 "../lib/array.s7i" */ size = size_b; /* line 64 "../lib/array.s7i" */ for (i = size_b; i < size_a; i++) { /* line 64 "../lib/array.s7i" */ /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ *a=(arrayType/*t_126_*ANONYM_TYPE**/)(arrRealloc((arrayType)(*a), size_a, size_b)); /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 64 "../lib/array.s7i" */ (*a)->arr[i].value.typeValue=b->arr[i].value.typeValue; /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ } /* line 1 "no_file" */ static void generic_cpy_126 (genericType *a, const genericType b) { cpy_126((arrayType/*t_126_*ANONYM_TYPE**/ *)(&(((const_rtlObjectType *) a)->value.arrayValue)), (arrayType/*t_126_*ANONYM_TYPE**/)(((const_rtlObjectType *) &b)->value.arrayValue)); } /* objRefType/t_19_reference */ intfunctype o_3629/*.*/=(intfunctype)(&generic_cpy_126); /* 2169 */ /* 2170 */ /* 2171 */ /* 2172 */ typedef genericType t_132/*t_132_*ANONYM_TYPE**/; /* 2173 */ typedef genericType t_133/*t_133_*ANONYM_TYPE**/; /* 2174 */ /* 2175 */ /* 2176 */ /* 2177 */ /* ACTION ARR_GEN for type arrayType/t_133_*ANONYM_TYPE* element is arrayType/t_126_*ANONYM_TYPE* */ /* 2178 */ /* 2179 */ /* 2180 */ /* 2181 */ /* 2182 */ /* 2183 */ /* ACTION ARR_IDX for type arrayType/t_132_*ANONYM_TYPE* element is arrayType/t_126_*ANONYM_TYPE* */ /* 2184 */ /* ACTION ARR_IDX for type arrayType/t_132_*ANONYM_TYPE* element is arrayType/t_126_*ANONYM_TYPE* */ /* 2185 */ /* line 163 "../lib/array.s7i" */ static arrayType times_132 (intType n, const const_arrayType/*t_126_*ANONYM_TYPE**/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.arrayValue=create_126(b); /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 2186 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_132_*ANONYM_TYPE**/ create_132 (const_arrayType/*t_132_*ANONYM_TYPE**/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_132_*ANONYM_TYPE**/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_132_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.arrayValue=create_126(b->arr[i].value.arrayValue); /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_132 (const_arrayType/*t_132_*ANONYM_TYPE**/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ destr_126(b->arr[i].value.arrayValue); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_133 (const_arrayType/*t_133_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ destr_126(b->arr[i].value.arrayValue); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_133_*ANONYM_TYPE**/ create_133 (const_arrayType/*t_133_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_133_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_133_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.arrayValue=create_126(b->arr[i].value.arrayValue); /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_132_*ANONYM_TYPE**/ o_3630_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_3631_indexRange, const const_arrayType/*t_126_*ANONYM_TYPE**/ value_o_3632_element) { /* line 183 "../lib/array.s7i" */ const_arrayType/*t_126_*ANONYM_TYPE**/ o_3632_element; /* line 186 "../lib/array.s7i" */ arrayType/*t_132_*ANONYM_TYPE**/ o_3633_anArray; /* line 183 "../lib/array.s7i" */ o_3632_element=create_126(value_o_3632_element); /* line 186 "../lib/array.s7i" */ o_3633_anArray=create_132(arr[60]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_3633_anArray; /* line 188 "../lib/array.s7i" */ o_3633_anArray=times_132(((((structType)(o_3631_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_3631_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_3632_element); /* line 188 "../lib/array.s7i" */ destr_132(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_3633_anArray; /* line 189 "../lib/array.s7i" */ o_3633_anArray=arrArrlit2(((structType)(o_3631_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_133(/*arrConv()*/o_3633_anArray)); /* line 189 "../lib/array.s7i" */ destr_132(old_array); } /* line 183 "../lib/array.s7i" */ destr_126(o_3632_element); return o_3633_anArray; } /* line 1 "no_file" */ /* 2187 */ /* declare inline o_3634_for*/ /* declare inline o_3635_for*/ /* declare inline o_3636_for*/ /* declare inline o_3637_for*/ /* declare inline o_3638_for*/ /* declare inline o_3639_for*/ /* declare inline o_3640_for*/ /* declare inline o_3641_for*/ /* declare inline o_3642_for*/ /* line 329 "../lib/array.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_3643_rand (const const_arrayType/*t_132_*ANONYM_TYPE**/ o_3644_arr) { /* line 330 "../lib/array.s7i" */ arrayType/*t_126_*ANONYM_TYPE**/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(arrayType/*t_126_*ANONYM_TYPE**/)((/*ref_to_value*/ (o_3644_arr)->arr[idx_1=intRand((o_3644_arr)->min_position, (o_3644_arr)->max_position),(idxChk(idx_1 < (o_3644_arr)->min_position || idx_1 > (o_3644_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_3644_arr)->min_position)].value.arrayValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 2188 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_3645_insert (arrayType/*t_132_*ANONYM_TYPE**/ *const o_3646_arr, const intType/*t_14_integer*/ o_3647_index, const const_arrayType/*t_126_*ANONYM_TYPE**/ value_o_3648_element) { /* line 332 "../lib/array.s7i" */ const_arrayType/*t_126_*ANONYM_TYPE**/ o_3648_element; /* line 332 "../lib/array.s7i" */ o_3648_element=create_126(value_o_3648_element); /* line 334 "../lib/array.s7i" */ if (((o_3647_index) >= ((*o_3646_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_3647_index) <= (((*o_3646_arr)->max_position)+1))) { { /* line 335 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 335 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_3646_arr; /* line 335 "../lib/array.s7i" */ *o_3646_arr=arrCat(arrCat((tmp_4=arrHead(*o_3646_arr, (o_3647_index)-1), create_132(tmp_4)), arrBaselit((genericType)(create_126(o_3648_element)))), (tmp_7=arrTail(*o_3646_arr, o_3647_index), create_132(tmp_7))); /* line 335 "../lib/array.s7i" */ destr_132(old_array); } /* line 335 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 335 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } /* line 332 "../lib/array.s7i" */ destr_126(o_3648_element); } /* line 1 "no_file" */ /* 2189 */ /* line 344 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_3649/*=*/ (const const_arrayType/*t_132_*ANONYM_TYPE**/ o_3650_arr1, const const_arrayType/*t_132_*ANONYM_TYPE**/ o_3651_arr2) { /* line 346 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_3652_isEqual=o_25_FALSE; /* line 348 "../lib/array.s7i" */ intType/*t_14_integer*/ o_3653_number=1; /* line 350 "../lib/array.s7i" */ if ((((o_3650_arr1)->min_position) == ((o_3651_arr2)->min_position)) && /* line 350 "../lib/array.s7i" */ (((o_3650_arr1)->max_position) == ((o_3651_arr2)->max_position))) { /* line 351 "../lib/array.s7i" */ o_3652_isEqual=o_26_TRUE; /* line 352 "../lib/array.s7i" */ o_3653_number=(o_3650_arr1)->min_position; /* line 353 "../lib/array.s7i" */ while (((o_3653_number) <= ((o_3650_arr1)->max_position)) && /* line 353 "../lib/array.s7i" */ (o_3652_isEqual)) { /* line 354 "../lib/array.s7i" */ o_3652_isEqual=o_3492/*=*/((o_3650_arr1)->arr[(idxChk((o_3653_number) < (o_3650_arr1)->min_position || (o_3653_number) > (o_3650_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3653_number)-(o_3650_arr1)->min_position)].value.arrayValue, (o_3651_arr2)->arr[(idxChk((o_3653_number) < (o_3651_arr2)->min_position || (o_3653_number) > (o_3651_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3653_number)-(o_3651_arr2)->min_position)].value.arrayValue); /* line 355 "../lib/array.s7i" */ ++(o_3653_number); } } return o_3652_isEqual; } /* line 1 "no_file" */ /* 2190 */ /* line 360 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_3654/*<>*/ (const const_arrayType/*t_132_*ANONYM_TYPE**/ o_3655_arr1, const const_arrayType/*t_132_*ANONYM_TYPE**/ o_3656_arr2) { /* line 362 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_3657_isNotEqual=o_26_TRUE; /* line 364 "../lib/array.s7i" */ intType/*t_14_integer*/ o_3658_number=1; /* line 366 "../lib/array.s7i" */ if ((((o_3655_arr1)->min_position) == ((o_3656_arr2)->min_position)) && /* line 366 "../lib/array.s7i" */ (((o_3655_arr1)->max_position) == ((o_3656_arr2)->max_position))) { /* line 367 "../lib/array.s7i" */ o_3657_isNotEqual=o_25_FALSE; /* line 368 "../lib/array.s7i" */ o_3658_number=(o_3655_arr1)->min_position; /* line 369 "../lib/array.s7i" */ while (((o_3658_number) <= ((o_3655_arr1)->max_position)) && /* line 369 "../lib/array.s7i" */ (!(o_3657_isNotEqual))) { /* line 370 "../lib/array.s7i" */ o_3657_isNotEqual=o_3497/*<>*/((o_3655_arr1)->arr[(idxChk((o_3658_number) < (o_3655_arr1)->min_position || (o_3658_number) > (o_3655_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3658_number)-(o_3655_arr1)->min_position)].value.arrayValue, (o_3656_arr2)->arr[(idxChk((o_3658_number) < (o_3656_arr2)->min_position || (o_3658_number) > (o_3656_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3658_number)-(o_3656_arr2)->min_position)].value.arrayValue); /* line 371 "../lib/array.s7i" */ ++(o_3658_number); } } return o_3657_isNotEqual; } /* line 1 "no_file" */ /* 2191 */ /* line 381 "../lib/array.s7i" */ static void/*t_1_void*/ o_3659_insert (arrayType/*t_132_*ANONYM_TYPE**/ *const o_3660_arr, const const_arrayType/*t_126_*ANONYM_TYPE**/ value_o_3661_element) { /* line 381 "../lib/array.s7i" */ const_arrayType/*t_126_*ANONYM_TYPE**/ o_3661_element; /* line 383 "../lib/array.s7i" */ intType/*t_14_integer*/ o_3662_number=1; /* line 381 "../lib/array.s7i" */ o_3661_element=create_126(value_o_3661_element); /* line 385 "../lib/array.s7i" */ o_3662_number=(*o_3660_arr)->min_position; /* line 386 "../lib/array.s7i" */ while (((o_3662_number) <= ((*o_3660_arr)->max_position)) && /* line 386 "../lib/array.s7i" */ (o_3508/*<*/((*o_3660_arr)->arr[(idxChk((o_3662_number) < (*o_3660_arr)->min_position || (o_3662_number) > (*o_3660_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3662_number)-(*o_3660_arr)->min_position)].value.arrayValue, o_3661_element))) { /* line 387 "../lib/array.s7i" */ ++(o_3662_number); } /* line 389 "../lib/array.s7i" */ if ((o_3662_number) > ((*o_3660_arr)->max_position)) { { { /* line 390 "../lib/array.s7i" */ arrayType old_array=*o_3660_arr; /* line 390 "../lib/array.s7i" */ *o_3660_arr=arrCat(create_132(*o_3660_arr), arrBaselit((genericType)(create_126(o_3661_element)))); /* line 390 "../lib/array.s7i" */ destr_132(old_array); } } } else /* line 391 "../lib/array.s7i" */ if (o_3511/*>*/((*o_3660_arr)->arr[(idxChk((o_3662_number) < (*o_3660_arr)->min_position || (o_3662_number) > (*o_3660_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3662_number)-(*o_3660_arr)->min_position)].value.arrayValue, o_3661_element)) { { /* line 392 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 392 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 392 "../lib/array.s7i" */ arrayType old_array=*o_3660_arr; /* line 392 "../lib/array.s7i" */ *o_3660_arr=arrCat(arrCat((tmp_4=arrHead(*o_3660_arr, (o_3662_number)-1), create_132(tmp_4)), arrBaselit((genericType)(create_126(o_3661_element)))), (tmp_7=arrTail(*o_3660_arr, o_3662_number), create_132(tmp_7))); /* line 392 "../lib/array.s7i" */ destr_132(old_array); } /* line 392 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 392 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } /* line 381 "../lib/array.s7i" */ destr_126(o_3661_element); } /* line 1 "no_file" */ /* 2192 */ /* line 400 "../lib/array.s7i" */ static intType/*t_14_integer*/ o_3663_compare (const const_arrayType/*t_132_*ANONYM_TYPE**/ o_3664_arr1, const const_arrayType/*t_132_*ANONYM_TYPE**/ o_3665_arr2) { /* line 402 "../lib/array.s7i" */ intType/*t_14_integer*/ o_3666_signumValue=0; /* line 404 "../lib/array.s7i" */ intType/*t_14_integer*/ o_3667_idx1=0; /* line 405 "../lib/array.s7i" */ intType/*t_14_integer*/ o_3668_idx2=0; /* line 407 "../lib/array.s7i" */ o_3667_idx1=(o_3664_arr1)->min_position; /* line 408 "../lib/array.s7i" */ o_3668_idx2=(o_3665_arr2)->min_position; /* line 409 "../lib/array.s7i" */ while (((o_3667_idx1) <= ((o_3664_arr1)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_3668_idx2) <= ((o_3665_arr2)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_3502_compare((o_3664_arr1)->arr[(idxChk((o_3667_idx1) < (o_3664_arr1)->min_position || (o_3667_idx1) > (o_3664_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3667_idx1)-(o_3664_arr1)->min_position)].value.arrayValue, (o_3665_arr2)->arr[(idxChk((o_3668_idx2) < (o_3665_arr2)->min_position || (o_3668_idx2) > (o_3665_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3668_idx2)-(o_3665_arr2)->min_position)].value.arrayValue)) == (0L))) { /* line 410 "../lib/array.s7i" */ ++(o_3667_idx1); /* line 411 "../lib/array.s7i" */ ++(o_3668_idx2); } /* line 413 "../lib/array.s7i" */ if (((o_3667_idx1) <= ((o_3664_arr1)->max_position)) && /* line 413 "../lib/array.s7i" */ ((o_3668_idx2) <= ((o_3665_arr2)->max_position))) { /* line 414 "../lib/array.s7i" */ o_3666_signumValue=o_3502_compare((o_3664_arr1)->arr[(idxChk((o_3667_idx1) < (o_3664_arr1)->min_position || (o_3667_idx1) > (o_3664_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3667_idx1)-(o_3664_arr1)->min_position)].value.arrayValue, (o_3665_arr2)->arr[(idxChk((o_3668_idx2) < (o_3665_arr2)->min_position || (o_3668_idx2) > (o_3665_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3668_idx2)-(o_3665_arr2)->min_position)].value.arrayValue); } else { /* line 416 "../lib/array.s7i" */ o_3666_signumValue=intCmp(((o_3664_arr1)->max_position - (o_3664_arr1)->min_position + 1), ((o_3665_arr2)->max_position - (o_3665_arr2)->min_position + 1)); } return o_3666_signumValue; } /* line 1 "no_file" */ /* 2193 */ /* line 420 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_3669/*<*/ (const const_arrayType/*t_132_*ANONYM_TYPE**/ o_3670_arr1, const const_arrayType/*t_132_*ANONYM_TYPE**/ o_3671_arr2) { /* line 421 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_3663_compare(o_3670_arr1, o_3671_arr2)) < (0L))); } /* line 1 "no_file" */ /* 2194 */ /* line 423 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_3672/*>*/ (const const_arrayType/*t_132_*ANONYM_TYPE**/ o_3673_arr1, const const_arrayType/*t_132_*ANONYM_TYPE**/ o_3674_arr2) { /* line 424 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_3663_compare(o_3673_arr1, o_3674_arr2)) > (0L))); } /* line 1 "no_file" */ /* 2195 */ /* line 426 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_3675/*<=*/ (const const_arrayType/*t_132_*ANONYM_TYPE**/ o_3676_arr1, const const_arrayType/*t_132_*ANONYM_TYPE**/ o_3677_arr2) { /* line 427 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_3663_compare(o_3676_arr1, o_3677_arr2)) <= (0L))); } /* line 1 "no_file" */ /* 2196 */ /* line 429 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_3678/*>=*/ (const const_arrayType/*t_132_*ANONYM_TYPE**/ o_3679_arr1, const const_arrayType/*t_132_*ANONYM_TYPE**/ o_3680_arr2) { /* line 430 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_3663_compare(o_3679_arr1, o_3680_arr2)) >= (0L))); } /* line 1 "no_file" */ /* 2197 */ static intType generic_cmp_126 (const genericType a, const genericType b) { return o_3502_compare(((const_rtlObjectType *) &a)->value.arrayValue, ((const_rtlObjectType *) &b)->value.arrayValue); } /* objRefType/t_19_reference */ intfunctype o_3681/*.*/=(intfunctype)(&generic_cmp_126); /* 2198 */ /* line 436 "../lib/array.s7i" */ static arrayType/*t_132_*ANONYM_TYPE**/ o_3682_sort (const const_arrayType/*t_132_*ANONYM_TYPE**/ o_3683_arr_obj) { /* line 437 "../lib/array.s7i" */ return (arrayType/*t_132_*ANONYM_TYPE**/)((arrSort(create_132(o_3683_arr_obj), (compareType)(o_3681/*.*/)))); } /* line 1 "no_file" */ /* 2199 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3684/*::=*/ (const const_hashType/*t_131_*ANONYM_TYPE**/ o_3685_dest, const const_hashType/*t_131_*ANONYM_TYPE**/ o_3686_source) { /* hshCreate implemented with create_131 */ } /* line 1 "no_file" */ /* 2200 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3687_destroy (const const_hashType/*t_131_*ANONYM_TYPE**/ o_3688_oldHash) { /* hshDestr implemented with destr_131 */ } /* line 1 "no_file" */ /* 2201 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3689/*:=*/ (hashType/*t_131_*ANONYM_TYPE**/ *const o_3690_dest, const const_hashType/*t_131_*ANONYM_TYPE**/ o_3691_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_3690_dest), o_3691_source, (createFuncType)(o_3623/*.*/), (destrFuncType)(o_3624/*.*/), (createFuncType)(o_3627/*.*/), (destrFuncType)(o_3628/*.*/)); } /* line 1 "no_file" */ /* 2202 */ typedef genericType t_134/*t_134_*ANONYM_TYPE**/; /* 2203 */ /* 2204 */ /* 2205 */ /* 2206 */ /* 2207 */ /* objRefType/t_134_*ANONYM_TYPE* */ objRefType o_3692/*.*/=(objRefType)(NULL); /* 2208 */ /* objRefType/t_134_*ANONYM_TYPE* */ objRefType o_3693/*.*/=(objRefType)(NULL); /* 2209 */ hashType/*t_131_*ANONYM_TYPE**/ o_3694/*.*/; /* 2210 */ hashType/*t_131_*ANONYM_TYPE**/ o_3695/*.*/; /* 2211 */ /* line 149 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_3696/*[*/ (const const_hashType/*t_131_*ANONYM_TYPE**/ o_3697_aHashMap, const objRefType/*t_19_reference*/ *const o_3698_aKey) { /* line 150 "../lib/hash.s7i" */ return (arrayType/*t_126_*ANONYM_TYPE**/)((/*ref_to_value*/ (arrayType/*t_126_*ANONYM_TYPE**/)(hshIdx(o_3697_aHashMap, (genericType)(*o_3698_aKey), (intType)(((memSizeType)(*o_3698_aKey)) >> 6), (compareType)(o_3626/*.*/))))); } /* line 1 "no_file" */ /* 2212 */ /* line 152 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ /*varfunc*/ *o_3699/*[*/ (hashType/*t_131_*ANONYM_TYPE**/ *const o_3700_aHashMap, const objRefType/*t_19_reference*/ *const o_3701_aKey) { /* line 153 "../lib/hash.s7i" */ return (arrayType/*t_126_*ANONYM_TYPE**/ *)(&(hshIdxAddr(*o_3700_aHashMap, (genericType)(*o_3701_aKey), (intType)(((memSizeType)(*o_3701_aKey)) >> 6), (compareType)(o_3626/*.*/))->value.arrayValue)); } /* line 1 "no_file" */ /* 2213 */ /* line 161 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_3702/*[*/ (const const_hashType/*t_131_*ANONYM_TYPE**/ o_3703_aHashMap, const objRefType/*t_19_reference*/ *const o_3704_aKey, const const_arrayType/*t_126_*ANONYM_TYPE**/ value_o_3705_defaultValue) { /* line 162 "../lib/hash.s7i" */ arrayType/*t_126_*ANONYM_TYPE**/ result; /* line 162 "../lib/hash.s7i" */ const_arrayType/*t_126_*ANONYM_TYPE**/ o_3705_defaultValue; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ o_3705_defaultValue=create_126(value_o_3705_defaultValue); /* line 162 "../lib/hash.s7i" */ result=(arrayType/*t_126_*ANONYM_TYPE**/)((/*ref_to_value*/ (addr_1=hshIdxAddr2(o_3703_aHashMap, (genericType)(*o_3704_aKey), (intType)(((memSizeType)(*o_3704_aKey)) >> 6), (compareType)(o_3626/*.*/)),addr_1!=NULL?addr_1->value.arrayValue:(o_3705_defaultValue)))); /* line 162 "../lib/hash.s7i" */ destr_126(o_3705_defaultValue); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2214 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_3706_in (const objRefType/*t_19_reference*/ *const o_3707_aKey, const const_hashType/*t_131_*ANONYM_TYPE**/ o_3708_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_3708_aHashMap, (genericType)(*o_3707_aKey), (intType)(((memSizeType)(*o_3707_aKey)) >> 6), (compareType)(o_3626/*.*/)))); } /* line 1 "no_file" */ /* 2215 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_3709_not (const objRefType/*t_19_reference*/ *const o_3710_aKey, const const_hashType/*t_131_*ANONYM_TYPE**/ o_3711_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_3711_aHashMap, (genericType)(*o_3710_aKey), (intType)(((memSizeType)(*o_3710_aKey)) >> 6), (compareType)(o_3626/*.*/))))); } /* line 1 "no_file" */ /* 2216 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3712_incl (hashType/*t_131_*ANONYM_TYPE**/ *const o_3713_aHashMap, const objRefType/*t_19_reference*/ *const o_3714_aKey, const const_arrayType/*t_126_*ANONYM_TYPE**/ value_o_3715_anElem) { /* line 189 "../lib/hash.s7i" */ const_arrayType/*t_126_*ANONYM_TYPE**/ o_3715_anElem; /* line 189 "../lib/hash.s7i" */ o_3715_anElem=create_126(value_o_3715_anElem); /* line 191 "../lib/hash.s7i" */ hshIncl(*o_3713_aHashMap, (genericType)(*o_3714_aKey), (genericType)(o_3715_anElem), (intType)(((memSizeType)(*o_3714_aKey)) >> 6), (compareType)(o_3626/*.*/), (createFuncType)(o_3623/*.*/), (createFuncType)(o_3627/*.*/), (copyFuncType)(o_3629/*.*/)); /* line 189 "../lib/hash.s7i" */ destr_126(o_3715_anElem); } /* line 1 "no_file" */ /* 2217 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3716_excl (hashType/*t_131_*ANONYM_TYPE**/ *const o_3717_aHashMap, const objRefType/*t_19_reference*/ *const o_3718_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_3717_aHashMap, (genericType)(*o_3718_aKey), (intType)(((memSizeType)(*o_3718_aKey)) >> 6), (compareType)(o_3626/*.*/), (destrFuncType)(o_3624/*.*/), (destrFuncType)(o_3628/*.*/)); } /* line 1 "no_file" */ /* 2218 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3719/*@:=*/ (hashType/*t_131_*ANONYM_TYPE**/ *const o_3720_aHashMap, const objRefType/*t_19_reference*/ *const o_3721_aKey, const const_arrayType/*t_126_*ANONYM_TYPE**/ value_o_3722_anElem) { /* line 210 "../lib/hash.s7i" */ const_arrayType/*t_126_*ANONYM_TYPE**/ o_3722_anElem; /* line 210 "../lib/hash.s7i" */ o_3722_anElem=create_126(value_o_3722_anElem); /* line 212 "../lib/hash.s7i" */ hshIncl(*o_3720_aHashMap, (genericType)(*o_3721_aKey), (genericType)(o_3722_anElem), (intType)(((memSizeType)(*o_3721_aKey)) >> 6), (compareType)(o_3626/*.*/), (createFuncType)(o_3623/*.*/), (createFuncType)(o_3627/*.*/), (copyFuncType)(o_3629/*.*/)); /* line 210 "../lib/hash.s7i" */ destr_126(o_3722_anElem); } /* line 1 "no_file" */ /* 2219 */ /* line 216 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_3723_update (hashType/*t_131_*ANONYM_TYPE**/ *const o_3724_aHashMap, const objRefType/*t_19_reference*/ *const o_3725_aKey, const const_arrayType/*t_126_*ANONYM_TYPE**/ value_o_3726_anElem) { /* line 217 "../lib/hash.s7i" */ arrayType/*t_126_*ANONYM_TYPE**/ result; /* line 217 "../lib/hash.s7i" */ const_arrayType/*t_126_*ANONYM_TYPE**/ o_3726_anElem; /* line 217 "../lib/hash.s7i" */ o_3726_anElem=create_126(value_o_3726_anElem); /* line 217 "../lib/hash.s7i" */ result=(arrayType/*t_126_*ANONYM_TYPE**/)(((arrayType/*t_126_*ANONYM_TYPE**/)(hshUpdate(*o_3724_aHashMap, (genericType)(*o_3725_aKey), (genericType)(create_126(o_3726_anElem)), (intType)(((memSizeType)(*o_3725_aKey)) >> 6), (compareType)(o_3626/*.*/), (createFuncType)(o_3623/*.*/), (createFuncType)(o_3627/*.*/))))); /* line 217 "../lib/hash.s7i" */ destr_126(o_3726_anElem); /* line 217 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2220 */ /* declare inline o_3727_for*/ /* declare inline o_3728_for*/ /* declare inline o_3729_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_3730_keys (const const_hashType/*t_131_*ANONYM_TYPE**/ o_3731_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_128_*ANONYM_TYPE**/)((hshKeys(o_3731_aHashMap, (createFuncType)(o_3623/*.*/), (destrFuncType)(o_3624/*.*/)))); } /* line 1 "no_file" */ /* 2221 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_132_*ANONYM_TYPE**/ o_3732_values (const const_hashType/*t_131_*ANONYM_TYPE**/ o_3733_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_132_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_3733_aHashMap, (createFuncType)(o_3627/*.*/), (destrFuncType)(o_3628/*.*/)))); } /* line 1 "no_file" */ /* 2222 */ /* line 61 "../lib/hash.s7i" */ static void destr_131 (const_hashType/*t_131_*ANONYM_TYPE**/ b) /* line 61 "../lib/hash.s7i" */ { /* line 61 "../lib/hash.s7i" */ hshDestr(b, (destrFuncType)(o_3624/*.*/), (destrFuncType)(o_3628/*.*/)); /* line 61 "../lib/hash.s7i" */ } /* line 1 "no_file" */ /* line 283 "../lib/hash.s7i" */ static hashType/*t_131_*ANONYM_TYPE**/ o_3734_flip (const const_hashType/*t_125_typeReferenceHash*/ o_3735_aHashMap) { /* line 285 "../lib/hash.s7i" */ hashType/*t_131_*ANONYM_TYPE**/ o_3736_inverseHash; /* line 287 "../lib/hash.s7i" */ typeType/*t_7_type*/ o_3737_aKey=typ[0] /* void/t_1_void */; /* line 288 "../lib/hash.s7i" */ objRefType/*t_19_reference*/ o_3738_aValue=NULL; /* line 285 "../lib/hash.s7i" */ o_3736_inverseHash=hshEmpty(); /* inline proc o_3618_for */ { /* inline params */ /* line 290 "../lib/hash.s7i" */ objRefType/*t_19_reference*/ *const o_3739_forVar=&(o_3738_aValue); /* line 290 "../lib/hash.s7i" */ typeType/*t_7_type*/ *const o_3740_keyVar=&(o_3737_aKey); /* line 290 "../lib/hash.s7i" */ const const_hashType/*t_125_typeReferenceHash*/ o_3741_aHashMap=o_3735_aHashMap; /* line 290 "../lib/hash.s7i" */ /* push proc param o_3742_statements */ /* line 290 "../lib/hash.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 258 "../lib/hash.s7i" */ const_hashType hash_1=o_3741_aHashMap; /* line 258 "../lib/hash.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 258 "../lib/hash.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 258 "../lib/hash.s7i" */ const_hashElemType helem_4; /* line 258 "../lib/hash.s7i" */ hashElemListType stack_5=NULL; /* line 258 "../lib/hash.s7i" */ while (counter_2 > 0) { /* line 258 "../lib/hash.s7i" */ helem_4=*table_elem_3; /* line 258 "../lib/hash.s7i" */ while (helem_4 != NULL) { /* line 258 "../lib/hash.s7i" */ if (helem_4->next_greater != NULL) { /* line 258 "../lib/hash.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ (*o_3739_forVar)=helem_4->data.value.objRefValue; /* line 258 "../lib/hash.s7i" */ (*o_3740_keyVar)=helem_4->key.value.typeValue; /* closure o_3742_statements*/ { /* line 291 "../lib/hash.s7i" */ if (o_3706_in(&(o_3738_aValue), o_3736_inverseHash)) { /* line 292 "../lib/hash.s7i" */ arrPush(&(*o_3699/*[*/(&(o_3736_inverseHash), &(o_3738_aValue))), (genericType)(o_3737_aKey)); } else { { /* line 294 "../lib/hash.s7i" */ arrayType/*t_126_*ANONYM_TYPE**/ tmp_1 = (arrayType/*t_126_*ANONYM_TYPE**/)(NULL); /* line 294 "../lib/hash.s7i" */ o_3719/*@:=*/(&(o_3736_inverseHash), &(o_3738_aValue), (tmp_1=(arrayType/*t_126_*ANONYM_TYPE**/)(arrBaselit((genericType)(o_3737_aKey))))); /* line 294 "../lib/hash.s7i" */ destr_126(tmp_1); } } } /* closure o_3742_statements*/ /* line 258 "../lib/hash.s7i" */ if (helem_4->next_less != NULL) { /* line 258 "../lib/hash.s7i" */ helem_4=helem_4->next_less; /* line 258 "../lib/hash.s7i" */ } else { /* line 258 "../lib/hash.s7i" */ pop_stack(stack_5, helem_4); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ counter_2--; /* line 258 "../lib/hash.s7i" */ table_elem_3++; /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ } /* hsh_for */ /* pop proc param o_3742_statements */ } /* inline proc o_3618_for */ return o_3736_inverseHash; } /* line 1 "no_file" */ /* 2223 */ typedef genericType t_135/*t_135_typeCategoryHash*/; /* 2224 */ /* 2225 */ /* 2226 */ /* 2227 */ /* 2228 */ /* objRefType/t_19_reference */ intfunctype o_3743/*.*/=(intfunctype)(&ptrCreateGeneric); /* 2229 */ /* objRefType/t_19_reference */ intfunctype o_3744/*.*/=(intfunctype)(&genericDestr); /* 2230 */ /* objRefType/t_19_reference */ intfunctype o_3745/*.*/=(intfunctype)(&ptrCpyGeneric); /* 2231 */ /* objRefType/t_19_reference */ intfunctype o_3746/*.*/=(intfunctype)(&typCmpGeneric); /* 2232 */ /* objRefType/t_19_reference */ intfunctype o_3747/*.*/=(intfunctype)(&genericCreate); /* 2233 */ /* objRefType/t_19_reference */ intfunctype o_3748/*.*/=(intfunctype)(&genericDestr); /* 2234 */ /* objRefType/t_19_reference */ intfunctype o_3749/*.*/=(intfunctype)(&genericCpy); /* 2235 */ /* 2236 */ /* 2237 */ /* 2238 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3750/*::=*/ (const const_hashType/*t_135_typeCategoryHash*/ o_3751_dest, const const_hashType/*t_135_typeCategoryHash*/ o_3752_source) { /* hshCreate implemented with create_135 */ } /* line 1 "no_file" */ /* 2239 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3753_destroy (const const_hashType/*t_135_typeCategoryHash*/ o_3754_oldHash) { /* hshDestr implemented with destr_135 */ } /* line 1 "no_file" */ /* 2240 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3755/*:=*/ (hashType/*t_135_typeCategoryHash*/ *const o_3756_dest, const const_hashType/*t_135_typeCategoryHash*/ o_3757_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_3756_dest), o_3757_source, (createFuncType)(o_3743/*.*/), (destrFuncType)(o_3744/*.*/), (createFuncType)(o_3747/*.*/), (destrFuncType)(o_3748/*.*/)); } /* line 1 "no_file" */ /* 2241 */ typedef genericType t_136/*t_136_*ANONYM_TYPE**/; /* 2242 */ /* 2243 */ /* 2244 */ /* 2245 */ /* 2246 */ /* objRefType/t_136_*ANONYM_TYPE* */ objRefType o_3758/*.*/=(objRefType)(NULL); /* 2247 */ /* objRefType/t_136_*ANONYM_TYPE* */ objRefType o_3759/*.*/=(objRefType)(NULL); /* 2248 */ hashType/*t_135_typeCategoryHash*/ o_3760/*.*/; /* 2249 */ hashType/*t_135_typeCategoryHash*/ o_3761/*.*/; /* 2250 */ /* line 149 "../lib/hash.s7i" */ static intType/*t_86_category*/ o_3762/*[*/ (const const_hashType/*t_135_typeCategoryHash*/ o_3763_aHashMap, const typeType/*t_7_type*/ *const o_3764_aKey) { /* line 150 "../lib/hash.s7i" */ return (intType/*t_86_category*/)(((intType/*t_86_category*/)(hshIdx(o_3763_aHashMap, (genericType)(*o_3764_aKey), (intType)(((memSizeType)(*o_3764_aKey)) >> 6), (compareType)(o_3746/*.*/))))); } /* line 1 "no_file" */ /* 2251 */ /* line 152 "../lib/hash.s7i" */ static intType/*t_86_category*/ /*varfunc*/ *o_3765/*[*/ (hashType/*t_135_typeCategoryHash*/ *const o_3766_aHashMap, const typeType/*t_7_type*/ *const o_3767_aKey) { /* line 153 "../lib/hash.s7i" */ return (intType/*t_86_category*/ *)(&(hshIdxAddr(*o_3766_aHashMap, (genericType)(*o_3767_aKey), (intType)(((memSizeType)(*o_3767_aKey)) >> 6), (compareType)(o_3746/*.*/))->value.intValue)); } /* line 1 "no_file" */ /* 2252 */ /* line 161 "../lib/hash.s7i" */ static intType/*t_86_category*/ o_3768/*[*/ (const const_hashType/*t_135_typeCategoryHash*/ o_3769_aHashMap, const typeType/*t_7_type*/ *const o_3770_aKey, const intType/*t_86_category*/ o_3771_defaultValue) { /* line 162 "../lib/hash.s7i" */ intType/*t_86_category*/ result; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ result=(intType/*t_86_category*/)(((addr_1=hshIdxAddr2(o_3769_aHashMap, (genericType)(*o_3770_aKey), (intType)(((memSizeType)(*o_3770_aKey)) >> 6), (compareType)(o_3746/*.*/)),addr_1!=NULL?addr_1->value.intValue:(o_3771_defaultValue)))); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2253 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_3772_in (const typeType/*t_7_type*/ *const o_3773_aKey, const const_hashType/*t_135_typeCategoryHash*/ o_3774_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_3774_aHashMap, (genericType)(*o_3773_aKey), (intType)(((memSizeType)(*o_3773_aKey)) >> 6), (compareType)(o_3746/*.*/)))); } /* line 1 "no_file" */ /* 2254 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_3775_not (const typeType/*t_7_type*/ *const o_3776_aKey, const const_hashType/*t_135_typeCategoryHash*/ o_3777_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_3777_aHashMap, (genericType)(*o_3776_aKey), (intType)(((memSizeType)(*o_3776_aKey)) >> 6), (compareType)(o_3746/*.*/))))); } /* line 1 "no_file" */ /* 2255 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3778_incl (hashType/*t_135_typeCategoryHash*/ *const o_3779_aHashMap, const typeType/*t_7_type*/ *const o_3780_aKey, const intType/*t_86_category*/ o_3781_anElem) { /* line 191 "../lib/hash.s7i" */ hshIncl(*o_3779_aHashMap, (genericType)(*o_3780_aKey), (genericType)(o_3781_anElem), (intType)(((memSizeType)(*o_3780_aKey)) >> 6), (compareType)(o_3746/*.*/), (createFuncType)(o_3743/*.*/), (createFuncType)(o_3747/*.*/), (copyFuncType)(o_3749/*.*/)); } /* line 1 "no_file" */ /* 2256 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3782_excl (hashType/*t_135_typeCategoryHash*/ *const o_3783_aHashMap, const typeType/*t_7_type*/ *const o_3784_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_3783_aHashMap, (genericType)(*o_3784_aKey), (intType)(((memSizeType)(*o_3784_aKey)) >> 6), (compareType)(o_3746/*.*/), (destrFuncType)(o_3744/*.*/), (destrFuncType)(o_3748/*.*/)); } /* line 1 "no_file" */ /* 2257 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3785/*@:=*/ (hashType/*t_135_typeCategoryHash*/ *const o_3786_aHashMap, const typeType/*t_7_type*/ *const o_3787_aKey, const intType/*t_86_category*/ o_3788_anElem) { /* line 212 "../lib/hash.s7i" */ hshIncl(*o_3786_aHashMap, (genericType)(*o_3787_aKey), (genericType)(o_3788_anElem), (intType)(((memSizeType)(*o_3787_aKey)) >> 6), (compareType)(o_3746/*.*/), (createFuncType)(o_3743/*.*/), (createFuncType)(o_3747/*.*/), (copyFuncType)(o_3749/*.*/)); } /* line 1 "no_file" */ /* 2258 */ /* line 216 "../lib/hash.s7i" */ static intType/*t_86_category*/ o_3789_update (hashType/*t_135_typeCategoryHash*/ *const o_3790_aHashMap, const typeType/*t_7_type*/ *const o_3791_aKey, const intType/*t_86_category*/ o_3792_anElem) { /* line 217 "../lib/hash.s7i" */ return (intType/*t_86_category*/)(((intType/*t_86_category*/)(hshUpdate(*o_3790_aHashMap, (genericType)(*o_3791_aKey), (genericType)(o_3792_anElem), (intType)(((memSizeType)(*o_3791_aKey)) >> 6), (compareType)(o_3746/*.*/), (createFuncType)(o_3743/*.*/), (createFuncType)(o_3747/*.*/))))); } /* line 1 "no_file" */ /* 2259 */ /* declare inline o_3793_for*/ /* declare inline o_3794_for*/ /* declare inline o_3795_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_3796_keys (const const_hashType/*t_135_typeCategoryHash*/ o_3797_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_126_*ANONYM_TYPE**/)((hshKeys(o_3797_aHashMap, (createFuncType)(o_3743/*.*/), (destrFuncType)(o_3744/*.*/)))); } /* line 1 "no_file" */ /* 2260 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_90_*ANONYM_TYPE**/ o_3798_values (const const_hashType/*t_135_typeCategoryHash*/ o_3799_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_90_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_3799_aHashMap, (createFuncType)(o_3747/*.*/), (destrFuncType)(o_3748/*.*/)))); } /* line 1 "no_file" */ /* 2261 */ typedef genericType t_137/*t_137_type_hash*/; /* 2262 */ /* 2263 */ /* 2264 */ /* 2265 */ /* 2266 */ /* objRefType/t_19_reference */ intfunctype o_3800/*.*/=(intfunctype)(&ptrCreateGeneric); /* 2267 */ /* objRefType/t_19_reference */ intfunctype o_3801/*.*/=(intfunctype)(&genericDestr); /* 2268 */ /* objRefType/t_19_reference */ intfunctype o_3802/*.*/=(intfunctype)(&ptrCpyGeneric); /* 2269 */ /* objRefType/t_19_reference */ intfunctype o_3803/*.*/=(intfunctype)(&typCmpGeneric); /* 2270 */ /* objRefType/t_19_reference */ intfunctype o_3804/*.*/=(intfunctype)(&ptrCreateGeneric); /* 2271 */ /* objRefType/t_19_reference */ intfunctype o_3805/*.*/=(intfunctype)(&genericDestr); /* 2272 */ /* objRefType/t_19_reference */ intfunctype o_3806/*.*/=(intfunctype)(&ptrCpyGeneric); /* 2273 */ /* 2274 */ /* 2275 */ /* 2276 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3807/*::=*/ (const const_hashType/*t_137_type_hash*/ o_3808_dest, const const_hashType/*t_137_type_hash*/ o_3809_source) { /* hshCreate implemented with create_137 */ } /* line 1 "no_file" */ /* 2277 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3810_destroy (const const_hashType/*t_137_type_hash*/ o_3811_oldHash) { /* hshDestr implemented with destr_137 */ } /* line 1 "no_file" */ /* 2278 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3812/*:=*/ (hashType/*t_137_type_hash*/ *const o_3813_dest, const const_hashType/*t_137_type_hash*/ o_3814_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_3813_dest), o_3814_source, (createFuncType)(o_3800/*.*/), (destrFuncType)(o_3801/*.*/), (createFuncType)(o_3804/*.*/), (destrFuncType)(o_3805/*.*/)); } /* line 1 "no_file" */ /* 2279 */ typedef genericType t_138/*t_138_*ANONYM_TYPE**/; /* 2280 */ /* 2281 */ /* 2282 */ /* 2283 */ /* 2284 */ /* objRefType/t_138_*ANONYM_TYPE* */ objRefType o_3815/*.*/=(objRefType)(NULL); /* 2285 */ /* objRefType/t_138_*ANONYM_TYPE* */ objRefType o_3816/*.*/=(objRefType)(NULL); /* 2286 */ hashType/*t_137_type_hash*/ o_3817/*.*/; /* 2287 */ hashType/*t_137_type_hash*/ o_3818/*.*/; /* 2288 */ /* line 149 "../lib/hash.s7i" */ static typeType/*t_7_type*/ o_3819/*[*/ (const const_hashType/*t_137_type_hash*/ o_3820_aHashMap, const typeType/*t_7_type*/ *const o_3821_aKey) { /* line 150 "../lib/hash.s7i" */ return (typeType/*t_7_type*/)(((typeType/*t_7_type*/)(hshIdx(o_3820_aHashMap, (genericType)(*o_3821_aKey), (intType)(((memSizeType)(*o_3821_aKey)) >> 6), (compareType)(o_3803/*.*/))))); } /* line 1 "no_file" */ /* 2289 */ /* line 152 "../lib/hash.s7i" */ static typeType/*t_7_type*/ /*varfunc*/ *o_3822/*[*/ (hashType/*t_137_type_hash*/ *const o_3823_aHashMap, const typeType/*t_7_type*/ *const o_3824_aKey) { /* line 153 "../lib/hash.s7i" */ return (typeType/*t_7_type*/ *)(&(hshIdxAddr(*o_3823_aHashMap, (genericType)(*o_3824_aKey), (intType)(((memSizeType)(*o_3824_aKey)) >> 6), (compareType)(o_3803/*.*/))->value.typeValue)); } /* line 1 "no_file" */ /* 2290 */ /* line 161 "../lib/hash.s7i" */ static typeType/*t_7_type*/ o_3825/*[*/ (const const_hashType/*t_137_type_hash*/ o_3826_aHashMap, const typeType/*t_7_type*/ *const o_3827_aKey, const typeType/*t_7_type*/ o_3828_defaultValue) { /* line 162 "../lib/hash.s7i" */ typeType/*t_7_type*/ result; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ result=(typeType/*t_7_type*/)(((addr_1=hshIdxAddr2(o_3826_aHashMap, (genericType)(*o_3827_aKey), (intType)(((memSizeType)(*o_3827_aKey)) >> 6), (compareType)(o_3803/*.*/)),addr_1!=NULL?addr_1->value.typeValue:(o_3828_defaultValue)))); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2291 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_3829_in (const typeType/*t_7_type*/ *const o_3830_aKey, const const_hashType/*t_137_type_hash*/ o_3831_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_3831_aHashMap, (genericType)(*o_3830_aKey), (intType)(((memSizeType)(*o_3830_aKey)) >> 6), (compareType)(o_3803/*.*/)))); } /* line 1 "no_file" */ /* 2292 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_3832_not (const typeType/*t_7_type*/ *const o_3833_aKey, const const_hashType/*t_137_type_hash*/ o_3834_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_3834_aHashMap, (genericType)(*o_3833_aKey), (intType)(((memSizeType)(*o_3833_aKey)) >> 6), (compareType)(o_3803/*.*/))))); } /* line 1 "no_file" */ /* 2293 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3835_incl (hashType/*t_137_type_hash*/ *const o_3836_aHashMap, const typeType/*t_7_type*/ *const o_3837_aKey, const typeType/*t_7_type*/ o_3838_anElem) { /* line 191 "../lib/hash.s7i" */ hshIncl(*o_3836_aHashMap, (genericType)(*o_3837_aKey), (genericType)(o_3838_anElem), (intType)(((memSizeType)(*o_3837_aKey)) >> 6), (compareType)(o_3803/*.*/), (createFuncType)(o_3800/*.*/), (createFuncType)(o_3804/*.*/), (copyFuncType)(o_3806/*.*/)); } /* line 1 "no_file" */ /* 2294 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3839_excl (hashType/*t_137_type_hash*/ *const o_3840_aHashMap, const typeType/*t_7_type*/ *const o_3841_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_3840_aHashMap, (genericType)(*o_3841_aKey), (intType)(((memSizeType)(*o_3841_aKey)) >> 6), (compareType)(o_3803/*.*/), (destrFuncType)(o_3801/*.*/), (destrFuncType)(o_3805/*.*/)); } /* line 1 "no_file" */ /* 2295 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3842/*@:=*/ (hashType/*t_137_type_hash*/ *const o_3843_aHashMap, const typeType/*t_7_type*/ *const o_3844_aKey, const typeType/*t_7_type*/ o_3845_anElem) { /* line 212 "../lib/hash.s7i" */ hshIncl(*o_3843_aHashMap, (genericType)(*o_3844_aKey), (genericType)(o_3845_anElem), (intType)(((memSizeType)(*o_3844_aKey)) >> 6), (compareType)(o_3803/*.*/), (createFuncType)(o_3800/*.*/), (createFuncType)(o_3804/*.*/), (copyFuncType)(o_3806/*.*/)); } /* line 1 "no_file" */ /* 2296 */ /* line 216 "../lib/hash.s7i" */ static typeType/*t_7_type*/ o_3846_update (hashType/*t_137_type_hash*/ *const o_3847_aHashMap, const typeType/*t_7_type*/ *const o_3848_aKey, const typeType/*t_7_type*/ o_3849_anElem) { /* line 217 "../lib/hash.s7i" */ return (typeType/*t_7_type*/)(((typeType/*t_7_type*/)(hshUpdate(*o_3847_aHashMap, (genericType)(*o_3848_aKey), (genericType)(o_3849_anElem), (intType)(((memSizeType)(*o_3848_aKey)) >> 6), (compareType)(o_3803/*.*/), (createFuncType)(o_3800/*.*/), (createFuncType)(o_3804/*.*/))))); } /* line 1 "no_file" */ /* 2297 */ /* declare inline o_3850_for*/ /* declare inline o_3851_for*/ /* declare inline o_3852_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_3853_keys (const const_hashType/*t_137_type_hash*/ o_3854_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_126_*ANONYM_TYPE**/)((hshKeys(o_3854_aHashMap, (createFuncType)(o_3800/*.*/), (destrFuncType)(o_3801/*.*/)))); } /* line 1 "no_file" */ /* 2298 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_3855_values (const const_hashType/*t_137_type_hash*/ o_3856_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_126_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_3856_aHashMap, (createFuncType)(o_3804/*.*/), (destrFuncType)(o_3805/*.*/)))); } /* line 1 "no_file" */ /* 2299 */ typedef genericType t_139/*t_139_implements_hash*/; /* 2300 */ /* 2301 */ /* 2302 */ /* 2303 */ /* objRefType/t_19_reference */ intfunctype o_3857/*.*/=(intfunctype)(&ptrCreateGeneric); /* 2304 */ /* objRefType/t_19_reference */ intfunctype o_3858/*.*/=(intfunctype)(&genericDestr); /* 2305 */ /* objRefType/t_19_reference */ intfunctype o_3859/*.*/=(intfunctype)(&ptrCpyGeneric); /* 2306 */ /* objRefType/t_19_reference */ intfunctype o_3860/*.*/=(intfunctype)(&typCmpGeneric); /* 2307 */ /* objRefType/t_19_reference */ intfunctype o_3861/*.*/=(intfunctype)(&generic_create_126); /* 2308 */ /* objRefType/t_19_reference */ intfunctype o_3862/*.*/=(intfunctype)(&generic_destr_126); /* 2309 */ /* objRefType/t_19_reference */ intfunctype o_3863/*.*/=(intfunctype)(&generic_cpy_126); /* 2310 */ /* 2311 */ /* 2312 */ /* 2313 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3864/*::=*/ (const const_hashType/*t_139_implements_hash*/ o_3865_dest, const const_hashType/*t_139_implements_hash*/ o_3866_source) { /* hshCreate implemented with create_139 */ } /* line 1 "no_file" */ /* 2314 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3867_destroy (const const_hashType/*t_139_implements_hash*/ o_3868_oldHash) { /* hshDestr implemented with destr_139 */ } /* line 1 "no_file" */ /* 2315 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3869/*:=*/ (hashType/*t_139_implements_hash*/ *const o_3870_dest, const const_hashType/*t_139_implements_hash*/ o_3871_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_3870_dest), o_3871_source, (createFuncType)(o_3857/*.*/), (destrFuncType)(o_3858/*.*/), (createFuncType)(o_3861/*.*/), (destrFuncType)(o_3862/*.*/)); } /* line 1 "no_file" */ /* 2316 */ hashType/*t_139_implements_hash*/ o_3872/*.*/; /* 2317 */ hashType/*t_139_implements_hash*/ o_3873/*.*/; /* 2318 */ /* line 149 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_3874/*[*/ (const const_hashType/*t_139_implements_hash*/ o_3875_aHashMap, const typeType/*t_7_type*/ *const o_3876_aKey) { /* line 150 "../lib/hash.s7i" */ return (arrayType/*t_126_*ANONYM_TYPE**/)((/*ref_to_value*/ (arrayType/*t_126_*ANONYM_TYPE**/)(hshIdx(o_3875_aHashMap, (genericType)(*o_3876_aKey), (intType)(((memSizeType)(*o_3876_aKey)) >> 6), (compareType)(o_3860/*.*/))))); } /* line 1 "no_file" */ /* 2319 */ /* line 152 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ /*varfunc*/ *o_3877/*[*/ (hashType/*t_139_implements_hash*/ *const o_3878_aHashMap, const typeType/*t_7_type*/ *const o_3879_aKey) { /* line 153 "../lib/hash.s7i" */ return (arrayType/*t_126_*ANONYM_TYPE**/ *)(&(hshIdxAddr(*o_3878_aHashMap, (genericType)(*o_3879_aKey), (intType)(((memSizeType)(*o_3879_aKey)) >> 6), (compareType)(o_3860/*.*/))->value.arrayValue)); } /* line 1 "no_file" */ /* 2320 */ /* line 161 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_3880/*[*/ (const const_hashType/*t_139_implements_hash*/ o_3881_aHashMap, const typeType/*t_7_type*/ *const o_3882_aKey, const const_arrayType/*t_126_*ANONYM_TYPE**/ value_o_3883_defaultValue) { /* line 162 "../lib/hash.s7i" */ arrayType/*t_126_*ANONYM_TYPE**/ result; /* line 162 "../lib/hash.s7i" */ const_arrayType/*t_126_*ANONYM_TYPE**/ o_3883_defaultValue; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ o_3883_defaultValue=create_126(value_o_3883_defaultValue); /* line 162 "../lib/hash.s7i" */ result=(arrayType/*t_126_*ANONYM_TYPE**/)((/*ref_to_value*/ (addr_1=hshIdxAddr2(o_3881_aHashMap, (genericType)(*o_3882_aKey), (intType)(((memSizeType)(*o_3882_aKey)) >> 6), (compareType)(o_3860/*.*/)),addr_1!=NULL?addr_1->value.arrayValue:(o_3883_defaultValue)))); /* line 162 "../lib/hash.s7i" */ destr_126(o_3883_defaultValue); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2321 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_3884_in (const typeType/*t_7_type*/ *const o_3885_aKey, const const_hashType/*t_139_implements_hash*/ o_3886_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_3886_aHashMap, (genericType)(*o_3885_aKey), (intType)(((memSizeType)(*o_3885_aKey)) >> 6), (compareType)(o_3860/*.*/)))); } /* line 1 "no_file" */ /* 2322 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_3887_not (const typeType/*t_7_type*/ *const o_3888_aKey, const const_hashType/*t_139_implements_hash*/ o_3889_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_3889_aHashMap, (genericType)(*o_3888_aKey), (intType)(((memSizeType)(*o_3888_aKey)) >> 6), (compareType)(o_3860/*.*/))))); } /* line 1 "no_file" */ /* 2323 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3890_incl (hashType/*t_139_implements_hash*/ *const o_3891_aHashMap, const typeType/*t_7_type*/ *const o_3892_aKey, const const_arrayType/*t_126_*ANONYM_TYPE**/ value_o_3893_anElem) { /* line 189 "../lib/hash.s7i" */ const_arrayType/*t_126_*ANONYM_TYPE**/ o_3893_anElem; /* line 189 "../lib/hash.s7i" */ o_3893_anElem=create_126(value_o_3893_anElem); /* line 191 "../lib/hash.s7i" */ hshIncl(*o_3891_aHashMap, (genericType)(*o_3892_aKey), (genericType)(o_3893_anElem), (intType)(((memSizeType)(*o_3892_aKey)) >> 6), (compareType)(o_3860/*.*/), (createFuncType)(o_3857/*.*/), (createFuncType)(o_3861/*.*/), (copyFuncType)(o_3863/*.*/)); /* line 189 "../lib/hash.s7i" */ destr_126(o_3893_anElem); } /* line 1 "no_file" */ /* 2324 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3894_excl (hashType/*t_139_implements_hash*/ *const o_3895_aHashMap, const typeType/*t_7_type*/ *const o_3896_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_3895_aHashMap, (genericType)(*o_3896_aKey), (intType)(((memSizeType)(*o_3896_aKey)) >> 6), (compareType)(o_3860/*.*/), (destrFuncType)(o_3858/*.*/), (destrFuncType)(o_3862/*.*/)); } /* line 1 "no_file" */ /* 2325 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3897/*@:=*/ (hashType/*t_139_implements_hash*/ *const o_3898_aHashMap, const typeType/*t_7_type*/ *const o_3899_aKey, const const_arrayType/*t_126_*ANONYM_TYPE**/ value_o_3900_anElem) { /* line 210 "../lib/hash.s7i" */ const_arrayType/*t_126_*ANONYM_TYPE**/ o_3900_anElem; /* line 210 "../lib/hash.s7i" */ o_3900_anElem=create_126(value_o_3900_anElem); /* line 212 "../lib/hash.s7i" */ hshIncl(*o_3898_aHashMap, (genericType)(*o_3899_aKey), (genericType)(o_3900_anElem), (intType)(((memSizeType)(*o_3899_aKey)) >> 6), (compareType)(o_3860/*.*/), (createFuncType)(o_3857/*.*/), (createFuncType)(o_3861/*.*/), (copyFuncType)(o_3863/*.*/)); /* line 210 "../lib/hash.s7i" */ destr_126(o_3900_anElem); } /* line 1 "no_file" */ /* 2326 */ /* line 216 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_3901_update (hashType/*t_139_implements_hash*/ *const o_3902_aHashMap, const typeType/*t_7_type*/ *const o_3903_aKey, const const_arrayType/*t_126_*ANONYM_TYPE**/ value_o_3904_anElem) { /* line 217 "../lib/hash.s7i" */ arrayType/*t_126_*ANONYM_TYPE**/ result; /* line 217 "../lib/hash.s7i" */ const_arrayType/*t_126_*ANONYM_TYPE**/ o_3904_anElem; /* line 217 "../lib/hash.s7i" */ o_3904_anElem=create_126(value_o_3904_anElem); /* line 217 "../lib/hash.s7i" */ result=(arrayType/*t_126_*ANONYM_TYPE**/)(((arrayType/*t_126_*ANONYM_TYPE**/)(hshUpdate(*o_3902_aHashMap, (genericType)(*o_3903_aKey), (genericType)(create_126(o_3904_anElem)), (intType)(((memSizeType)(*o_3903_aKey)) >> 6), (compareType)(o_3860/*.*/), (createFuncType)(o_3857/*.*/), (createFuncType)(o_3861/*.*/))))); /* line 217 "../lib/hash.s7i" */ destr_126(o_3904_anElem); /* line 217 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2327 */ /* declare inline o_3905_for*/ /* declare inline o_3906_for*/ /* declare inline o_3907_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_3908_keys (const const_hashType/*t_139_implements_hash*/ o_3909_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_126_*ANONYM_TYPE**/)((hshKeys(o_3909_aHashMap, (createFuncType)(o_3857/*.*/), (destrFuncType)(o_3858/*.*/)))); } /* line 1 "no_file" */ /* 2328 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_132_*ANONYM_TYPE**/ o_3910_values (const const_hashType/*t_139_implements_hash*/ o_3911_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_132_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_3911_aHashMap, (createFuncType)(o_3861/*.*/), (destrFuncType)(o_3862/*.*/)))); } /* line 1 "no_file" */ /* 2329 */ /* line 61 "../lib/hash.s7i" */ static void destr_139 (const_hashType/*t_139_implements_hash*/ b) /* line 61 "../lib/hash.s7i" */ { /* line 61 "../lib/hash.s7i" */ hshDestr(b, (destrFuncType)(o_3858/*.*/), (destrFuncType)(o_3862/*.*/)); /* line 61 "../lib/hash.s7i" */ } /* line 1 "no_file" */ /* line 283 "../lib/hash.s7i" */ static hashType/*t_139_implements_hash*/ o_3912_flip (const const_hashType/*t_137_type_hash*/ o_3913_aHashMap) { /* line 285 "../lib/hash.s7i" */ hashType/*t_139_implements_hash*/ o_3914_inverseHash; /* line 287 "../lib/hash.s7i" */ typeType/*t_7_type*/ o_3915_aKey=typ[0] /* void/t_1_void */; /* line 288 "../lib/hash.s7i" */ typeType/*t_7_type*/ o_3916_aValue=typ[0] /* void/t_1_void */; /* line 285 "../lib/hash.s7i" */ o_3914_inverseHash=hshEmpty(); /* inline proc o_3852_for */ { /* inline params */ /* line 290 "../lib/hash.s7i" */ typeType/*t_7_type*/ *const o_3917_forVar=&(o_3916_aValue); /* line 290 "../lib/hash.s7i" */ typeType/*t_7_type*/ *const o_3918_keyVar=&(o_3915_aKey); /* line 290 "../lib/hash.s7i" */ const const_hashType/*t_137_type_hash*/ o_3919_aHashMap=o_3913_aHashMap; /* line 290 "../lib/hash.s7i" */ /* push proc param o_3920_statements */ /* line 290 "../lib/hash.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 258 "../lib/hash.s7i" */ const_hashType hash_1=o_3919_aHashMap; /* line 258 "../lib/hash.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 258 "../lib/hash.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 258 "../lib/hash.s7i" */ const_hashElemType helem_4; /* line 258 "../lib/hash.s7i" */ hashElemListType stack_5=NULL; /* line 258 "../lib/hash.s7i" */ while (counter_2 > 0) { /* line 258 "../lib/hash.s7i" */ helem_4=*table_elem_3; /* line 258 "../lib/hash.s7i" */ while (helem_4 != NULL) { /* line 258 "../lib/hash.s7i" */ if (helem_4->next_greater != NULL) { /* line 258 "../lib/hash.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ (*o_3917_forVar)=helem_4->data.value.typeValue; /* line 258 "../lib/hash.s7i" */ (*o_3918_keyVar)=helem_4->key.value.typeValue; /* closure o_3920_statements*/ { /* line 291 "../lib/hash.s7i" */ if (o_3884_in(&(o_3916_aValue), o_3914_inverseHash)) { /* line 292 "../lib/hash.s7i" */ arrPush(&(*o_3877/*[*/(&(o_3914_inverseHash), &(o_3916_aValue))), (genericType)(o_3915_aKey)); } else { { /* line 294 "../lib/hash.s7i" */ arrayType/*t_126_*ANONYM_TYPE**/ tmp_1 = (arrayType/*t_126_*ANONYM_TYPE**/)(NULL); /* line 294 "../lib/hash.s7i" */ o_3897/*@:=*/(&(o_3914_inverseHash), &(o_3916_aValue), (tmp_1=(arrayType/*t_126_*ANONYM_TYPE**/)(arrBaselit((genericType)(o_3915_aKey))))); /* line 294 "../lib/hash.s7i" */ destr_126(tmp_1); } } } /* closure o_3920_statements*/ /* line 258 "../lib/hash.s7i" */ if (helem_4->next_less != NULL) { /* line 258 "../lib/hash.s7i" */ helem_4=helem_4->next_less; /* line 258 "../lib/hash.s7i" */ } else { /* line 258 "../lib/hash.s7i" */ pop_stack(stack_5, helem_4); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ counter_2--; /* line 258 "../lib/hash.s7i" */ table_elem_3++; /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ } /* hsh_for */ /* pop proc param o_3920_statements */ } /* inline proc o_3852_for */ return o_3914_inverseHash; } /* line 1 "no_file" */ /* 2330 */ typedef genericType t_140/*t_140_boolean_type_hash*/; /* 2331 */ /* 2332 */ /* 2333 */ /* 2334 */ /* 2335 */ /* objRefType/t_19_reference */ intfunctype o_3921/*.*/=(intfunctype)(&ptrCreateGeneric); /* 2336 */ /* objRefType/t_19_reference */ intfunctype o_3922/*.*/=(intfunctype)(&genericDestr); /* 2337 */ /* objRefType/t_19_reference */ intfunctype o_3923/*.*/=(intfunctype)(&ptrCpyGeneric); /* 2338 */ /* objRefType/t_19_reference */ intfunctype o_3924/*.*/=(intfunctype)(&typCmpGeneric); /* 2339 */ /* objRefType/t_19_reference */ intfunctype o_3925/*.*/=(intfunctype)(&genericCreate); /* 2340 */ /* objRefType/t_19_reference */ intfunctype o_3926/*.*/=(intfunctype)(&genericDestr); /* 2341 */ /* objRefType/t_19_reference */ intfunctype o_3927/*.*/=(intfunctype)(&genericCpy); /* 2342 */ /* 2343 */ /* 2344 */ /* 2345 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3928/*::=*/ (const const_hashType/*t_140_boolean_type_hash*/ o_3929_dest, const const_hashType/*t_140_boolean_type_hash*/ o_3930_source) { /* hshCreate implemented with create_140 */ } /* line 1 "no_file" */ /* 2346 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3931_destroy (const const_hashType/*t_140_boolean_type_hash*/ o_3932_oldHash) { /* hshDestr implemented with destr_140 */ } /* line 1 "no_file" */ /* 2347 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3933/*:=*/ (hashType/*t_140_boolean_type_hash*/ *const o_3934_dest, const const_hashType/*t_140_boolean_type_hash*/ o_3935_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_3934_dest), o_3935_source, (createFuncType)(o_3921/*.*/), (destrFuncType)(o_3922/*.*/), (createFuncType)(o_3925/*.*/), (destrFuncType)(o_3926/*.*/)); } /* line 1 "no_file" */ /* 2348 */ typedef genericType t_141/*t_141_*ANONYM_TYPE**/; /* 2349 */ /* 2350 */ /* 2351 */ /* 2352 */ /* 2353 */ /* objRefType/t_141_*ANONYM_TYPE* */ objRefType o_3936/*.*/=(objRefType)(NULL); /* 2354 */ /* objRefType/t_141_*ANONYM_TYPE* */ objRefType o_3937/*.*/=(objRefType)(NULL); /* 2355 */ hashType/*t_140_boolean_type_hash*/ o_3938/*.*/; /* 2356 */ hashType/*t_140_boolean_type_hash*/ o_3939/*.*/; /* 2357 */ /* line 149 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_3940/*[*/ (const const_hashType/*t_140_boolean_type_hash*/ o_3941_aHashMap, const typeType/*t_7_type*/ *const o_3942_aKey) { /* line 150 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)(((boolType/*t_13_boolean*/)(hshIdx(o_3941_aHashMap, (genericType)(*o_3942_aKey), (intType)(((memSizeType)(*o_3942_aKey)) >> 6), (compareType)(o_3924/*.*/))))); } /* line 1 "no_file" */ /* 2358 */ /* line 152 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ /*varfunc*/ *o_3943/*[*/ (hashType/*t_140_boolean_type_hash*/ *const o_3944_aHashMap, const typeType/*t_7_type*/ *const o_3945_aKey) { /* line 153 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/ *)(&(hshIdxAddr(*o_3944_aHashMap, (genericType)(*o_3945_aKey), (intType)(((memSizeType)(*o_3945_aKey)) >> 6), (compareType)(o_3924/*.*/))->value.boolValue)); } /* line 1 "no_file" */ /* 2359 */ /* line 161 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_3946/*[*/ (const const_hashType/*t_140_boolean_type_hash*/ o_3947_aHashMap, const typeType/*t_7_type*/ *const o_3948_aKey, const boolType/*t_13_boolean*/ o_3949_defaultValue) { /* line 162 "../lib/hash.s7i" */ boolType/*t_13_boolean*/ result; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ result=(boolType/*t_13_boolean*/)(((addr_1=hshIdxAddr2(o_3947_aHashMap, (genericType)(*o_3948_aKey), (intType)(((memSizeType)(*o_3948_aKey)) >> 6), (compareType)(o_3924/*.*/)),addr_1!=NULL?addr_1->value.boolValue:(o_3949_defaultValue)))); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2360 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_3950_in (const typeType/*t_7_type*/ *const o_3951_aKey, const const_hashType/*t_140_boolean_type_hash*/ o_3952_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_3952_aHashMap, (genericType)(*o_3951_aKey), (intType)(((memSizeType)(*o_3951_aKey)) >> 6), (compareType)(o_3924/*.*/)))); } /* line 1 "no_file" */ /* 2361 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_3953_not (const typeType/*t_7_type*/ *const o_3954_aKey, const const_hashType/*t_140_boolean_type_hash*/ o_3955_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_3955_aHashMap, (genericType)(*o_3954_aKey), (intType)(((memSizeType)(*o_3954_aKey)) >> 6), (compareType)(o_3924/*.*/))))); } /* line 1 "no_file" */ /* 2362 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3956_incl (hashType/*t_140_boolean_type_hash*/ *const o_3957_aHashMap, const typeType/*t_7_type*/ *const o_3958_aKey, const boolType/*t_13_boolean*/ o_3959_anElem) { /* line 191 "../lib/hash.s7i" */ hshIncl(*o_3957_aHashMap, (genericType)(*o_3958_aKey), (genericType)(o_3959_anElem), (intType)(((memSizeType)(*o_3958_aKey)) >> 6), (compareType)(o_3924/*.*/), (createFuncType)(o_3921/*.*/), (createFuncType)(o_3925/*.*/), (copyFuncType)(o_3927/*.*/)); } /* line 1 "no_file" */ /* 2363 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3960_excl (hashType/*t_140_boolean_type_hash*/ *const o_3961_aHashMap, const typeType/*t_7_type*/ *const o_3962_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_3961_aHashMap, (genericType)(*o_3962_aKey), (intType)(((memSizeType)(*o_3962_aKey)) >> 6), (compareType)(o_3924/*.*/), (destrFuncType)(o_3922/*.*/), (destrFuncType)(o_3926/*.*/)); } /* line 1 "no_file" */ /* 2364 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3963/*@:=*/ (hashType/*t_140_boolean_type_hash*/ *const o_3964_aHashMap, const typeType/*t_7_type*/ *const o_3965_aKey, const boolType/*t_13_boolean*/ o_3966_anElem) { /* line 212 "../lib/hash.s7i" */ hshIncl(*o_3964_aHashMap, (genericType)(*o_3965_aKey), (genericType)(o_3966_anElem), (intType)(((memSizeType)(*o_3965_aKey)) >> 6), (compareType)(o_3924/*.*/), (createFuncType)(o_3921/*.*/), (createFuncType)(o_3925/*.*/), (copyFuncType)(o_3927/*.*/)); } /* line 1 "no_file" */ /* 2365 */ /* line 216 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_3967_update (hashType/*t_140_boolean_type_hash*/ *const o_3968_aHashMap, const typeType/*t_7_type*/ *const o_3969_aKey, const boolType/*t_13_boolean*/ o_3970_anElem) { /* line 217 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)(((boolType/*t_13_boolean*/)(hshUpdate(*o_3968_aHashMap, (genericType)(*o_3969_aKey), (genericType)(o_3970_anElem), (intType)(((memSizeType)(*o_3969_aKey)) >> 6), (compareType)(o_3924/*.*/), (createFuncType)(o_3921/*.*/), (createFuncType)(o_3925/*.*/))))); } /* line 1 "no_file" */ /* 2366 */ /* declare inline o_3971_for*/ /* declare inline o_3972_for*/ /* declare inline o_3973_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_3974_keys (const const_hashType/*t_140_boolean_type_hash*/ o_3975_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_126_*ANONYM_TYPE**/)((hshKeys(o_3975_aHashMap, (createFuncType)(o_3921/*.*/), (destrFuncType)(o_3922/*.*/)))); } /* line 1 "no_file" */ /* 2367 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_39_*ANONYM_TYPE**/ o_3976_values (const const_hashType/*t_140_boolean_type_hash*/ o_3977_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_39_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_3977_aHashMap, (createFuncType)(o_3925/*.*/), (destrFuncType)(o_3926/*.*/)))); } /* line 1 "no_file" */ /* 2368 */ typedef genericType t_142/*t_142_*ANONYM_TYPE**/; /* 2369 */ /* 2370 */ /* 2371 */ /* 2372 */ /* objRefType/t_19_reference */ intfunctype o_3978/*.*/=(intfunctype)(&genericCreate); /* 2373 */ /* objRefType/t_19_reference */ intfunctype o_3979/*.*/=(intfunctype)(&genericDestr); /* 2374 */ /* objRefType/t_19_reference */ intfunctype o_3980/*.*/=(intfunctype)(&genericCpy); /* 2375 */ /* objRefType/t_19_reference */ intfunctype o_3981/*.*/=(intfunctype)(&generic_cmp_13); /* 2376 */ /* objRefType/t_19_reference */ intfunctype o_3982/*.*/=(intfunctype)(&generic_create_126); /* 2377 */ /* objRefType/t_19_reference */ intfunctype o_3983/*.*/=(intfunctype)(&generic_destr_126); /* 2378 */ /* objRefType/t_19_reference */ intfunctype o_3984/*.*/=(intfunctype)(&generic_cpy_126); /* 2379 */ /* 2380 */ /* 2381 */ /* 2382 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3985/*::=*/ (const const_hashType/*t_142_*ANONYM_TYPE**/ o_3986_dest, const const_hashType/*t_142_*ANONYM_TYPE**/ o_3987_source) { /* hshCreate implemented with create_142 */ } /* line 1 "no_file" */ /* 2383 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3988_destroy (const const_hashType/*t_142_*ANONYM_TYPE**/ o_3989_oldHash) { /* hshDestr implemented with destr_142 */ } /* line 1 "no_file" */ /* 2384 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_3990/*:=*/ (hashType/*t_142_*ANONYM_TYPE**/ *const o_3991_dest, const const_hashType/*t_142_*ANONYM_TYPE**/ o_3992_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_3991_dest), o_3992_source, (createFuncType)(o_3978/*.*/), (destrFuncType)(o_3979/*.*/), (createFuncType)(o_3982/*.*/), (destrFuncType)(o_3983/*.*/)); } /* line 1 "no_file" */ /* 2385 */ hashType/*t_142_*ANONYM_TYPE**/ o_3993/*.*/; /* 2386 */ hashType/*t_142_*ANONYM_TYPE**/ o_3994/*.*/; /* 2387 */ /* line 149 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_3995/*[*/ (const const_hashType/*t_142_*ANONYM_TYPE**/ o_3996_aHashMap, const boolType/*t_13_boolean*/ *const o_3997_aKey) { /* line 150 "../lib/hash.s7i" */ return (arrayType/*t_126_*ANONYM_TYPE**/)((/*ref_to_value*/ (arrayType/*t_126_*ANONYM_TYPE**/)(hshIdx(o_3996_aHashMap, (genericType)(*o_3997_aKey), (intType)(*o_3997_aKey), (compareType)(o_3981/*.*/))))); } /* line 1 "no_file" */ /* 2388 */ /* line 152 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ /*varfunc*/ *o_3998/*[*/ (hashType/*t_142_*ANONYM_TYPE**/ *const o_3999_aHashMap, const boolType/*t_13_boolean*/ *const o_4000_aKey) { /* line 153 "../lib/hash.s7i" */ return (arrayType/*t_126_*ANONYM_TYPE**/ *)(&(hshIdxAddr(*o_3999_aHashMap, (genericType)(*o_4000_aKey), (intType)(*o_4000_aKey), (compareType)(o_3981/*.*/))->value.arrayValue)); } /* line 1 "no_file" */ /* 2389 */ /* line 161 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_4001/*[*/ (const const_hashType/*t_142_*ANONYM_TYPE**/ o_4002_aHashMap, const boolType/*t_13_boolean*/ *const o_4003_aKey, const const_arrayType/*t_126_*ANONYM_TYPE**/ value_o_4004_defaultValue) { /* line 162 "../lib/hash.s7i" */ arrayType/*t_126_*ANONYM_TYPE**/ result; /* line 162 "../lib/hash.s7i" */ const_arrayType/*t_126_*ANONYM_TYPE**/ o_4004_defaultValue; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ o_4004_defaultValue=create_126(value_o_4004_defaultValue); /* line 162 "../lib/hash.s7i" */ result=(arrayType/*t_126_*ANONYM_TYPE**/)((/*ref_to_value*/ (addr_1=hshIdxAddr2(o_4002_aHashMap, (genericType)(*o_4003_aKey), (intType)(*o_4003_aKey), (compareType)(o_3981/*.*/)),addr_1!=NULL?addr_1->value.arrayValue:(o_4004_defaultValue)))); /* line 162 "../lib/hash.s7i" */ destr_126(o_4004_defaultValue); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2390 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_4005_in (const boolType/*t_13_boolean*/ *const o_4006_aKey, const const_hashType/*t_142_*ANONYM_TYPE**/ o_4007_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_4007_aHashMap, (genericType)(*o_4006_aKey), (intType)(*o_4006_aKey), (compareType)(o_3981/*.*/)))); } /* line 1 "no_file" */ /* 2391 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_4008_not (const boolType/*t_13_boolean*/ *const o_4009_aKey, const const_hashType/*t_142_*ANONYM_TYPE**/ o_4010_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_4010_aHashMap, (genericType)(*o_4009_aKey), (intType)(*o_4009_aKey), (compareType)(o_3981/*.*/))))); } /* line 1 "no_file" */ /* 2392 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4011_incl (hashType/*t_142_*ANONYM_TYPE**/ *const o_4012_aHashMap, const boolType/*t_13_boolean*/ *const o_4013_aKey, const const_arrayType/*t_126_*ANONYM_TYPE**/ value_o_4014_anElem) { /* line 189 "../lib/hash.s7i" */ const_arrayType/*t_126_*ANONYM_TYPE**/ o_4014_anElem; /* line 189 "../lib/hash.s7i" */ o_4014_anElem=create_126(value_o_4014_anElem); /* line 191 "../lib/hash.s7i" */ hshIncl(*o_4012_aHashMap, (genericType)(*o_4013_aKey), (genericType)(o_4014_anElem), (intType)(*o_4013_aKey), (compareType)(o_3981/*.*/), (createFuncType)(o_3978/*.*/), (createFuncType)(o_3982/*.*/), (copyFuncType)(o_3984/*.*/)); /* line 189 "../lib/hash.s7i" */ destr_126(o_4014_anElem); } /* line 1 "no_file" */ /* 2393 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4015_excl (hashType/*t_142_*ANONYM_TYPE**/ *const o_4016_aHashMap, const boolType/*t_13_boolean*/ *const o_4017_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_4016_aHashMap, (genericType)(*o_4017_aKey), (intType)(*o_4017_aKey), (compareType)(o_3981/*.*/), (destrFuncType)(o_3979/*.*/), (destrFuncType)(o_3983/*.*/)); } /* line 1 "no_file" */ /* 2394 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4018/*@:=*/ (hashType/*t_142_*ANONYM_TYPE**/ *const o_4019_aHashMap, const boolType/*t_13_boolean*/ *const o_4020_aKey, const const_arrayType/*t_126_*ANONYM_TYPE**/ value_o_4021_anElem) { /* line 210 "../lib/hash.s7i" */ const_arrayType/*t_126_*ANONYM_TYPE**/ o_4021_anElem; /* line 210 "../lib/hash.s7i" */ o_4021_anElem=create_126(value_o_4021_anElem); /* line 212 "../lib/hash.s7i" */ hshIncl(*o_4019_aHashMap, (genericType)(*o_4020_aKey), (genericType)(o_4021_anElem), (intType)(*o_4020_aKey), (compareType)(o_3981/*.*/), (createFuncType)(o_3978/*.*/), (createFuncType)(o_3982/*.*/), (copyFuncType)(o_3984/*.*/)); /* line 210 "../lib/hash.s7i" */ destr_126(o_4021_anElem); } /* line 1 "no_file" */ /* 2395 */ /* line 216 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_4022_update (hashType/*t_142_*ANONYM_TYPE**/ *const o_4023_aHashMap, const boolType/*t_13_boolean*/ *const o_4024_aKey, const const_arrayType/*t_126_*ANONYM_TYPE**/ value_o_4025_anElem) { /* line 217 "../lib/hash.s7i" */ arrayType/*t_126_*ANONYM_TYPE**/ result; /* line 217 "../lib/hash.s7i" */ const_arrayType/*t_126_*ANONYM_TYPE**/ o_4025_anElem; /* line 217 "../lib/hash.s7i" */ o_4025_anElem=create_126(value_o_4025_anElem); /* line 217 "../lib/hash.s7i" */ result=(arrayType/*t_126_*ANONYM_TYPE**/)(((arrayType/*t_126_*ANONYM_TYPE**/)(hshUpdate(*o_4023_aHashMap, (genericType)(*o_4024_aKey), (genericType)(create_126(o_4025_anElem)), (intType)(*o_4024_aKey), (compareType)(o_3981/*.*/), (createFuncType)(o_3978/*.*/), (createFuncType)(o_3982/*.*/))))); /* line 217 "../lib/hash.s7i" */ destr_126(o_4025_anElem); /* line 217 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2396 */ /* declare inline o_4026_for*/ /* declare inline o_4027_for*/ /* declare inline o_4028_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_39_*ANONYM_TYPE**/ o_4029_keys (const const_hashType/*t_142_*ANONYM_TYPE**/ o_4030_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_39_*ANONYM_TYPE**/)((hshKeys(o_4030_aHashMap, (createFuncType)(o_3978/*.*/), (destrFuncType)(o_3979/*.*/)))); } /* line 1 "no_file" */ /* 2397 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_132_*ANONYM_TYPE**/ o_4031_values (const const_hashType/*t_142_*ANONYM_TYPE**/ o_4032_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_132_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_4032_aHashMap, (createFuncType)(o_3982/*.*/), (destrFuncType)(o_3983/*.*/)))); } /* line 1 "no_file" */ /* 2398 */ /* line 61 "../lib/hash.s7i" */ static void destr_142 (const_hashType/*t_142_*ANONYM_TYPE**/ b) /* line 61 "../lib/hash.s7i" */ { /* line 61 "../lib/hash.s7i" */ hshDestr(b, (destrFuncType)(o_3979/*.*/), (destrFuncType)(o_3983/*.*/)); /* line 61 "../lib/hash.s7i" */ } /* line 1 "no_file" */ /* line 283 "../lib/hash.s7i" */ static hashType/*t_142_*ANONYM_TYPE**/ o_4033_flip (const const_hashType/*t_140_boolean_type_hash*/ o_4034_aHashMap) { /* line 285 "../lib/hash.s7i" */ hashType/*t_142_*ANONYM_TYPE**/ o_4035_inverseHash; /* line 287 "../lib/hash.s7i" */ typeType/*t_7_type*/ o_4036_aKey=typ[0] /* void/t_1_void */; /* line 288 "../lib/hash.s7i" */ boolType/*t_13_boolean*/ o_4037_aValue=0/*FALSE*/; /* line 285 "../lib/hash.s7i" */ o_4035_inverseHash=hshEmpty(); /* inline proc o_3973_for */ { /* inline params */ /* line 290 "../lib/hash.s7i" */ boolType/*t_13_boolean*/ *const o_4038_forVar=&(o_4037_aValue); /* line 290 "../lib/hash.s7i" */ typeType/*t_7_type*/ *const o_4039_keyVar=&(o_4036_aKey); /* line 290 "../lib/hash.s7i" */ const const_hashType/*t_140_boolean_type_hash*/ o_4040_aHashMap=o_4034_aHashMap; /* line 290 "../lib/hash.s7i" */ /* push proc param o_4041_statements */ /* line 290 "../lib/hash.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 258 "../lib/hash.s7i" */ const_hashType hash_1=o_4040_aHashMap; /* line 258 "../lib/hash.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 258 "../lib/hash.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 258 "../lib/hash.s7i" */ const_hashElemType helem_4; /* line 258 "../lib/hash.s7i" */ hashElemListType stack_5=NULL; /* line 258 "../lib/hash.s7i" */ while (counter_2 > 0) { /* line 258 "../lib/hash.s7i" */ helem_4=*table_elem_3; /* line 258 "../lib/hash.s7i" */ while (helem_4 != NULL) { /* line 258 "../lib/hash.s7i" */ if (helem_4->next_greater != NULL) { /* line 258 "../lib/hash.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ (*o_4038_forVar)=helem_4->data.value.boolValue; /* line 258 "../lib/hash.s7i" */ (*o_4039_keyVar)=helem_4->key.value.typeValue; /* closure o_4041_statements*/ { /* line 291 "../lib/hash.s7i" */ if (o_4005_in(&(o_4037_aValue), o_4035_inverseHash)) { /* line 292 "../lib/hash.s7i" */ arrPush(&(*o_3998/*[*/(&(o_4035_inverseHash), &(o_4037_aValue))), (genericType)(o_4036_aKey)); } else { { /* line 294 "../lib/hash.s7i" */ arrayType/*t_126_*ANONYM_TYPE**/ tmp_1 = (arrayType/*t_126_*ANONYM_TYPE**/)(NULL); /* line 294 "../lib/hash.s7i" */ o_4018/*@:=*/(&(o_4035_inverseHash), &(o_4037_aValue), (tmp_1=(arrayType/*t_126_*ANONYM_TYPE**/)(arrBaselit((genericType)(o_4036_aKey))))); /* line 294 "../lib/hash.s7i" */ destr_126(tmp_1); } } } /* closure o_4041_statements*/ /* line 258 "../lib/hash.s7i" */ if (helem_4->next_less != NULL) { /* line 258 "../lib/hash.s7i" */ helem_4=helem_4->next_less; /* line 258 "../lib/hash.s7i" */ } else { /* line 258 "../lib/hash.s7i" */ pop_stack(stack_5, helem_4); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ counter_2--; /* line 258 "../lib/hash.s7i" */ table_elem_3++; /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ } /* hsh_for */ /* pop proc param o_4041_statements */ } /* inline proc o_3973_for */ return o_4035_inverseHash; } /* line 1 "no_file" */ /* 2399 */ typedef genericType t_143/*t_143_element_type_hash*/; /* 2400 */ /* 2401 */ /* 2402 */ /* 2403 */ /* 2404 */ /* objRefType/t_19_reference */ intfunctype o_4042/*.*/=(intfunctype)(&ptrCreateGeneric); /* 2405 */ /* objRefType/t_19_reference */ intfunctype o_4043/*.*/=(intfunctype)(&genericDestr); /* 2406 */ /* objRefType/t_19_reference */ intfunctype o_4044/*.*/=(intfunctype)(&ptrCpyGeneric); /* 2407 */ /* objRefType/t_19_reference */ intfunctype o_4045/*.*/=(intfunctype)(&ptrCmpGeneric); /* 2408 */ /* objRefType/t_19_reference */ intfunctype o_4046/*.*/=(intfunctype)(&ptrCreateGeneric); /* 2409 */ /* objRefType/t_19_reference */ intfunctype o_4047/*.*/=(intfunctype)(&genericDestr); /* 2410 */ /* objRefType/t_19_reference */ intfunctype o_4048/*.*/=(intfunctype)(&ptrCpyGeneric); /* 2411 */ /* 2412 */ /* 2413 */ /* 2414 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4049/*::=*/ (const const_hashType/*t_143_element_type_hash*/ o_4050_dest, const const_hashType/*t_143_element_type_hash*/ o_4051_source) { /* hshCreate implemented with create_143 */ } /* line 1 "no_file" */ /* 2415 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4052_destroy (const const_hashType/*t_143_element_type_hash*/ o_4053_oldHash) { /* hshDestr implemented with destr_143 */ } /* line 1 "no_file" */ /* 2416 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4054/*:=*/ (hashType/*t_143_element_type_hash*/ *const o_4055_dest, const const_hashType/*t_143_element_type_hash*/ o_4056_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_4055_dest), o_4056_source, (createFuncType)(o_4042/*.*/), (destrFuncType)(o_4043/*.*/), (createFuncType)(o_4046/*.*/), (destrFuncType)(o_4047/*.*/)); } /* line 1 "no_file" */ /* 2417 */ hashType/*t_143_element_type_hash*/ o_4057/*.*/; /* 2418 */ hashType/*t_143_element_type_hash*/ o_4058/*.*/; /* 2419 */ /* line 149 "../lib/hash.s7i" */ static typeType/*t_7_type*/ o_4059/*[*/ (const const_hashType/*t_143_element_type_hash*/ o_4060_aHashMap, const objRefType/*t_19_reference*/ *const o_4061_aKey) { /* line 150 "../lib/hash.s7i" */ return (typeType/*t_7_type*/)(((typeType/*t_7_type*/)(hshIdx(o_4060_aHashMap, (genericType)(*o_4061_aKey), (intType)(((memSizeType)(*o_4061_aKey)) >> 6), (compareType)(o_4045/*.*/))))); } /* line 1 "no_file" */ /* 2420 */ /* line 152 "../lib/hash.s7i" */ static typeType/*t_7_type*/ /*varfunc*/ *o_4062/*[*/ (hashType/*t_143_element_type_hash*/ *const o_4063_aHashMap, const objRefType/*t_19_reference*/ *const o_4064_aKey) { /* line 153 "../lib/hash.s7i" */ return (typeType/*t_7_type*/ *)(&(hshIdxAddr(*o_4063_aHashMap, (genericType)(*o_4064_aKey), (intType)(((memSizeType)(*o_4064_aKey)) >> 6), (compareType)(o_4045/*.*/))->value.typeValue)); } /* line 1 "no_file" */ /* 2421 */ /* line 161 "../lib/hash.s7i" */ static typeType/*t_7_type*/ o_4065/*[*/ (const const_hashType/*t_143_element_type_hash*/ o_4066_aHashMap, const objRefType/*t_19_reference*/ *const o_4067_aKey, const typeType/*t_7_type*/ o_4068_defaultValue) { /* line 162 "../lib/hash.s7i" */ typeType/*t_7_type*/ result; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ result=(typeType/*t_7_type*/)(((addr_1=hshIdxAddr2(o_4066_aHashMap, (genericType)(*o_4067_aKey), (intType)(((memSizeType)(*o_4067_aKey)) >> 6), (compareType)(o_4045/*.*/)),addr_1!=NULL?addr_1->value.typeValue:(o_4068_defaultValue)))); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2422 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_4069_in (const objRefType/*t_19_reference*/ *const o_4070_aKey, const const_hashType/*t_143_element_type_hash*/ o_4071_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_4071_aHashMap, (genericType)(*o_4070_aKey), (intType)(((memSizeType)(*o_4070_aKey)) >> 6), (compareType)(o_4045/*.*/)))); } /* line 1 "no_file" */ /* 2423 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_4072_not (const objRefType/*t_19_reference*/ *const o_4073_aKey, const const_hashType/*t_143_element_type_hash*/ o_4074_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_4074_aHashMap, (genericType)(*o_4073_aKey), (intType)(((memSizeType)(*o_4073_aKey)) >> 6), (compareType)(o_4045/*.*/))))); } /* line 1 "no_file" */ /* 2424 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4075_incl (hashType/*t_143_element_type_hash*/ *const o_4076_aHashMap, const objRefType/*t_19_reference*/ *const o_4077_aKey, const typeType/*t_7_type*/ o_4078_anElem) { /* line 191 "../lib/hash.s7i" */ hshIncl(*o_4076_aHashMap, (genericType)(*o_4077_aKey), (genericType)(o_4078_anElem), (intType)(((memSizeType)(*o_4077_aKey)) >> 6), (compareType)(o_4045/*.*/), (createFuncType)(o_4042/*.*/), (createFuncType)(o_4046/*.*/), (copyFuncType)(o_4048/*.*/)); } /* line 1 "no_file" */ /* 2425 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4079_excl (hashType/*t_143_element_type_hash*/ *const o_4080_aHashMap, const objRefType/*t_19_reference*/ *const o_4081_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_4080_aHashMap, (genericType)(*o_4081_aKey), (intType)(((memSizeType)(*o_4081_aKey)) >> 6), (compareType)(o_4045/*.*/), (destrFuncType)(o_4043/*.*/), (destrFuncType)(o_4047/*.*/)); } /* line 1 "no_file" */ /* 2426 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4082/*@:=*/ (hashType/*t_143_element_type_hash*/ *const o_4083_aHashMap, const objRefType/*t_19_reference*/ *const o_4084_aKey, const typeType/*t_7_type*/ o_4085_anElem) { /* line 212 "../lib/hash.s7i" */ hshIncl(*o_4083_aHashMap, (genericType)(*o_4084_aKey), (genericType)(o_4085_anElem), (intType)(((memSizeType)(*o_4084_aKey)) >> 6), (compareType)(o_4045/*.*/), (createFuncType)(o_4042/*.*/), (createFuncType)(o_4046/*.*/), (copyFuncType)(o_4048/*.*/)); } /* line 1 "no_file" */ /* 2427 */ /* line 216 "../lib/hash.s7i" */ static typeType/*t_7_type*/ o_4086_update (hashType/*t_143_element_type_hash*/ *const o_4087_aHashMap, const objRefType/*t_19_reference*/ *const o_4088_aKey, const typeType/*t_7_type*/ o_4089_anElem) { /* line 217 "../lib/hash.s7i" */ return (typeType/*t_7_type*/)(((typeType/*t_7_type*/)(hshUpdate(*o_4087_aHashMap, (genericType)(*o_4088_aKey), (genericType)(o_4089_anElem), (intType)(((memSizeType)(*o_4088_aKey)) >> 6), (compareType)(o_4045/*.*/), (createFuncType)(o_4042/*.*/), (createFuncType)(o_4046/*.*/))))); } /* line 1 "no_file" */ /* 2428 */ /* declare inline o_4090_for*/ /* declare inline o_4091_for*/ /* declare inline o_4092_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_4093_keys (const const_hashType/*t_143_element_type_hash*/ o_4094_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_128_*ANONYM_TYPE**/)((hshKeys(o_4094_aHashMap, (createFuncType)(o_4042/*.*/), (destrFuncType)(o_4043/*.*/)))); } /* line 1 "no_file" */ /* 2429 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_4095_values (const const_hashType/*t_143_element_type_hash*/ o_4096_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_126_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_4096_aHashMap, (createFuncType)(o_4046/*.*/), (destrFuncType)(o_4047/*.*/)))); } /* line 1 "no_file" */ /* 2430 */ typedef genericType t_144/*t_144_*ANONYM_TYPE**/; /* 2431 */ /* 2432 */ /* 2433 */ /* 2434 */ /* objRefType/t_19_reference */ intfunctype o_4097/*.*/=(intfunctype)(&ptrCreateGeneric); /* 2435 */ /* objRefType/t_19_reference */ intfunctype o_4098/*.*/=(intfunctype)(&genericDestr); /* 2436 */ /* objRefType/t_19_reference */ intfunctype o_4099/*.*/=(intfunctype)(&ptrCpyGeneric); /* 2437 */ /* objRefType/t_19_reference */ intfunctype o_4100/*.*/=(intfunctype)(&typCmpGeneric); /* 2438 */ static genericType generic_create_128 (const genericType b) { rtlObjectType result; result.value.arrayValue=create_128(((const_rtlObjectType *) &b)->value.arrayValue); return result.value.genericValue; } /* objRefType/t_19_reference */ intfunctype o_4101/*.*/=(intfunctype)(&generic_create_128); /* 2439 */ static void generic_destr_128 (const genericType b) { destr_128(((const_rtlObjectType *) &b)->value.arrayValue); } /* objRefType/t_19_reference */ intfunctype o_4102/*.*/=(intfunctype)(&generic_destr_128); /* 2440 */ /* line 64 "../lib/array.s7i" */ static void cpy_128 (arrayType/*t_128_*ANONYM_TYPE**/ *a, arrayType/*t_128_*ANONYM_TYPE**/ b) /* line 64 "../lib/array.s7i" */ { /* line 64 "../lib/array.s7i" */ memSizeType i; /* line 64 "../lib/array.s7i" */ memSizeType size_a = (uintType)((*a)->max_position - (*a)->min_position + 1); /* line 64 "../lib/array.s7i" */ memSizeType size_b = (uintType)(b->max_position - b->min_position + 1); /* line 64 "../lib/array.s7i" */ memSizeType size; /* line 64 "../lib/array.s7i" */ (*a)->min_position = b->min_position; /* line 64 "../lib/array.s7i" */ (*a)->max_position = b->max_position; /* line 64 "../lib/array.s7i" */ if (size_a == size_b) { /* line 64 "../lib/array.s7i" */ size = size_a; /* line 64 "../lib/array.s7i" */ } else { /* line 64 "../lib/array.s7i" */ if (size_a < size_b) { /* line 64 "../lib/array.s7i" */ *a=(arrayType/*t_128_*ANONYM_TYPE**/)(arrRealloc((arrayType)(*a), size_a, size_b)); size = size_a; /* line 64 "../lib/array.s7i" */ for (i = size_a; i < size_b; i++) { /* line 64 "../lib/array.s7i" */ (*a)->arr[i].value.objRefValue=b->arr[i].value.objRefValue; /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ } else /* size_a > size_b */ { /* line 64 "../lib/array.s7i" */ size = size_b; /* line 64 "../lib/array.s7i" */ for (i = size_b; i < size_a; i++) { /* line 64 "../lib/array.s7i" */ /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ *a=(arrayType/*t_128_*ANONYM_TYPE**/)(arrRealloc((arrayType)(*a), size_a, size_b)); /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 64 "../lib/array.s7i" */ (*a)->arr[i].value.objRefValue=b->arr[i].value.objRefValue; /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ } /* line 1 "no_file" */ static void generic_cpy_128 (genericType *a, const genericType b) { cpy_128((arrayType/*t_128_*ANONYM_TYPE**/ *)(&(((const_rtlObjectType *) a)->value.arrayValue)), (arrayType/*t_128_*ANONYM_TYPE**/)(((const_rtlObjectType *) &b)->value.arrayValue)); } /* objRefType/t_19_reference */ intfunctype o_4103/*.*/=(intfunctype)(&generic_cpy_128); /* 2441 */ /* 2442 */ /* 2443 */ /* 2444 */ typedef genericType t_145/*t_145_*ANONYM_TYPE**/; /* 2445 */ typedef genericType t_146/*t_146_*ANONYM_TYPE**/; /* 2446 */ /* 2447 */ /* 2448 */ /* 2449 */ /* ACTION ARR_GEN for type arrayType/t_146_*ANONYM_TYPE* element is arrayType/t_128_*ANONYM_TYPE* */ /* 2450 */ /* 2451 */ /* 2452 */ /* 2453 */ /* 2454 */ /* 2455 */ /* ACTION ARR_IDX for type arrayType/t_145_*ANONYM_TYPE* element is arrayType/t_128_*ANONYM_TYPE* */ /* 2456 */ /* ACTION ARR_IDX for type arrayType/t_145_*ANONYM_TYPE* element is arrayType/t_128_*ANONYM_TYPE* */ /* 2457 */ /* line 163 "../lib/array.s7i" */ static arrayType times_145 (intType n, const const_arrayType/*t_128_*ANONYM_TYPE**/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.arrayValue=create_128(b); /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 2458 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_145_*ANONYM_TYPE**/ create_145 (const_arrayType/*t_145_*ANONYM_TYPE**/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_145_*ANONYM_TYPE**/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_145_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.arrayValue=create_128(b->arr[i].value.arrayValue); /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_145 (const_arrayType/*t_145_*ANONYM_TYPE**/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ destr_128(b->arr[i].value.arrayValue); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_146 (const_arrayType/*t_146_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ destr_128(b->arr[i].value.arrayValue); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_146_*ANONYM_TYPE**/ create_146 (const_arrayType/*t_146_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_146_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_146_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.arrayValue=create_128(b->arr[i].value.arrayValue); /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_145_*ANONYM_TYPE**/ o_4104_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_4105_indexRange, const const_arrayType/*t_128_*ANONYM_TYPE**/ value_o_4106_element) { /* line 183 "../lib/array.s7i" */ const_arrayType/*t_128_*ANONYM_TYPE**/ o_4106_element; /* line 186 "../lib/array.s7i" */ arrayType/*t_145_*ANONYM_TYPE**/ o_4107_anArray; /* line 183 "../lib/array.s7i" */ o_4106_element=create_128(value_o_4106_element); /* line 186 "../lib/array.s7i" */ o_4107_anArray=create_145(arr[75]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_4107_anArray; /* line 188 "../lib/array.s7i" */ o_4107_anArray=times_145(((((structType)(o_4105_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_4105_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_4106_element); /* line 188 "../lib/array.s7i" */ destr_145(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_4107_anArray; /* line 189 "../lib/array.s7i" */ o_4107_anArray=arrArrlit2(((structType)(o_4105_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_146(/*arrConv()*/o_4107_anArray)); /* line 189 "../lib/array.s7i" */ destr_145(old_array); } /* line 183 "../lib/array.s7i" */ destr_128(o_4106_element); return o_4107_anArray; } /* line 1 "no_file" */ /* 2459 */ /* declare inline o_4108_for*/ /* declare inline o_4109_for*/ /* declare inline o_4110_for*/ /* declare inline o_4111_for*/ /* declare inline o_4112_for*/ /* declare inline o_4113_for*/ /* declare inline o_4114_for*/ /* declare inline o_4115_for*/ /* declare inline o_4116_for*/ /* line 329 "../lib/array.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_4117_rand (const const_arrayType/*t_145_*ANONYM_TYPE**/ o_4118_arr) { /* line 330 "../lib/array.s7i" */ arrayType/*t_128_*ANONYM_TYPE**/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(arrayType/*t_128_*ANONYM_TYPE**/)((/*ref_to_value*/ (o_4118_arr)->arr[idx_1=intRand((o_4118_arr)->min_position, (o_4118_arr)->max_position),(idxChk(idx_1 < (o_4118_arr)->min_position || idx_1 > (o_4118_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_4118_arr)->min_position)].value.arrayValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 2460 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_4119_insert (arrayType/*t_145_*ANONYM_TYPE**/ *const o_4120_arr, const intType/*t_14_integer*/ o_4121_index, const const_arrayType/*t_128_*ANONYM_TYPE**/ value_o_4122_element) { /* line 332 "../lib/array.s7i" */ const_arrayType/*t_128_*ANONYM_TYPE**/ o_4122_element; /* line 332 "../lib/array.s7i" */ o_4122_element=create_128(value_o_4122_element); /* line 334 "../lib/array.s7i" */ if (((o_4121_index) >= ((*o_4120_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_4121_index) <= (((*o_4120_arr)->max_position)+1))) { { /* line 335 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 335 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_4120_arr; /* line 335 "../lib/array.s7i" */ *o_4120_arr=arrCat(arrCat((tmp_4=arrHead(*o_4120_arr, (o_4121_index)-1), create_145(tmp_4)), arrBaselit((genericType)(create_128(o_4122_element)))), (tmp_7=arrTail(*o_4120_arr, o_4121_index), create_145(tmp_7))); /* line 335 "../lib/array.s7i" */ destr_145(old_array); } /* line 335 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 335 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } /* line 332 "../lib/array.s7i" */ destr_128(o_4122_element); } /* line 1 "no_file" */ /* 2461 */ /* line 344 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_4123/*=*/ (const const_arrayType/*t_145_*ANONYM_TYPE**/ o_4124_arr1, const const_arrayType/*t_145_*ANONYM_TYPE**/ o_4125_arr2) { /* line 346 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_4126_isEqual=o_25_FALSE; /* line 348 "../lib/array.s7i" */ intType/*t_14_integer*/ o_4127_number=1; /* line 350 "../lib/array.s7i" */ if ((((o_4124_arr1)->min_position) == ((o_4125_arr2)->min_position)) && /* line 350 "../lib/array.s7i" */ (((o_4124_arr1)->max_position) == ((o_4125_arr2)->max_position))) { /* line 351 "../lib/array.s7i" */ o_4126_isEqual=o_26_TRUE; /* line 352 "../lib/array.s7i" */ o_4127_number=(o_4124_arr1)->min_position; /* line 353 "../lib/array.s7i" */ while (((o_4127_number) <= ((o_4124_arr1)->max_position)) && /* line 353 "../lib/array.s7i" */ (o_4126_isEqual)) { /* line 354 "../lib/array.s7i" */ o_4126_isEqual=o_3542/*=*/((o_4124_arr1)->arr[(idxChk((o_4127_number) < (o_4124_arr1)->min_position || (o_4127_number) > (o_4124_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_4127_number)-(o_4124_arr1)->min_position)].value.arrayValue, (o_4125_arr2)->arr[(idxChk((o_4127_number) < (o_4125_arr2)->min_position || (o_4127_number) > (o_4125_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_4127_number)-(o_4125_arr2)->min_position)].value.arrayValue); /* line 355 "../lib/array.s7i" */ ++(o_4127_number); } } return o_4126_isEqual; } /* line 1 "no_file" */ /* 2462 */ /* line 360 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_4128/*<>*/ (const const_arrayType/*t_145_*ANONYM_TYPE**/ o_4129_arr1, const const_arrayType/*t_145_*ANONYM_TYPE**/ o_4130_arr2) { /* line 362 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_4131_isNotEqual=o_26_TRUE; /* line 364 "../lib/array.s7i" */ intType/*t_14_integer*/ o_4132_number=1; /* line 366 "../lib/array.s7i" */ if ((((o_4129_arr1)->min_position) == ((o_4130_arr2)->min_position)) && /* line 366 "../lib/array.s7i" */ (((o_4129_arr1)->max_position) == ((o_4130_arr2)->max_position))) { /* line 367 "../lib/array.s7i" */ o_4131_isNotEqual=o_25_FALSE; /* line 368 "../lib/array.s7i" */ o_4132_number=(o_4129_arr1)->min_position; /* line 369 "../lib/array.s7i" */ while (((o_4132_number) <= ((o_4129_arr1)->max_position)) && /* line 369 "../lib/array.s7i" */ (!(o_4131_isNotEqual))) { /* line 370 "../lib/array.s7i" */ o_4131_isNotEqual=o_3547/*<>*/((o_4129_arr1)->arr[(idxChk((o_4132_number) < (o_4129_arr1)->min_position || (o_4132_number) > (o_4129_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_4132_number)-(o_4129_arr1)->min_position)].value.arrayValue, (o_4130_arr2)->arr[(idxChk((o_4132_number) < (o_4130_arr2)->min_position || (o_4132_number) > (o_4130_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_4132_number)-(o_4130_arr2)->min_position)].value.arrayValue); /* line 371 "../lib/array.s7i" */ ++(o_4132_number); } } return o_4131_isNotEqual; } /* line 1 "no_file" */ /* 2463 */ /* line 381 "../lib/array.s7i" */ static void/*t_1_void*/ o_4133_insert (arrayType/*t_145_*ANONYM_TYPE**/ *const o_4134_arr, const const_arrayType/*t_128_*ANONYM_TYPE**/ value_o_4135_element) { /* line 381 "../lib/array.s7i" */ const_arrayType/*t_128_*ANONYM_TYPE**/ o_4135_element; /* line 383 "../lib/array.s7i" */ intType/*t_14_integer*/ o_4136_number=1; /* line 381 "../lib/array.s7i" */ o_4135_element=create_128(value_o_4135_element); /* line 385 "../lib/array.s7i" */ o_4136_number=(*o_4134_arr)->min_position; /* line 386 "../lib/array.s7i" */ while (((o_4136_number) <= ((*o_4134_arr)->max_position)) && /* line 386 "../lib/array.s7i" */ (o_3558/*<*/((*o_4134_arr)->arr[(idxChk((o_4136_number) < (*o_4134_arr)->min_position || (o_4136_number) > (*o_4134_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_4136_number)-(*o_4134_arr)->min_position)].value.arrayValue, o_4135_element))) { /* line 387 "../lib/array.s7i" */ ++(o_4136_number); } /* line 389 "../lib/array.s7i" */ if ((o_4136_number) > ((*o_4134_arr)->max_position)) { { { /* line 390 "../lib/array.s7i" */ arrayType old_array=*o_4134_arr; /* line 390 "../lib/array.s7i" */ *o_4134_arr=arrCat(create_145(*o_4134_arr), arrBaselit((genericType)(create_128(o_4135_element)))); /* line 390 "../lib/array.s7i" */ destr_145(old_array); } } } else /* line 391 "../lib/array.s7i" */ if (o_3561/*>*/((*o_4134_arr)->arr[(idxChk((o_4136_number) < (*o_4134_arr)->min_position || (o_4136_number) > (*o_4134_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_4136_number)-(*o_4134_arr)->min_position)].value.arrayValue, o_4135_element)) { { /* line 392 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 392 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 392 "../lib/array.s7i" */ arrayType old_array=*o_4134_arr; /* line 392 "../lib/array.s7i" */ *o_4134_arr=arrCat(arrCat((tmp_4=arrHead(*o_4134_arr, (o_4136_number)-1), create_145(tmp_4)), arrBaselit((genericType)(create_128(o_4135_element)))), (tmp_7=arrTail(*o_4134_arr, o_4136_number), create_145(tmp_7))); /* line 392 "../lib/array.s7i" */ destr_145(old_array); } /* line 392 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 392 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } /* line 381 "../lib/array.s7i" */ destr_128(o_4135_element); } /* line 1 "no_file" */ /* 2464 */ /* line 400 "../lib/array.s7i" */ static intType/*t_14_integer*/ o_4137_compare (const const_arrayType/*t_145_*ANONYM_TYPE**/ o_4138_arr1, const const_arrayType/*t_145_*ANONYM_TYPE**/ o_4139_arr2) { /* line 402 "../lib/array.s7i" */ intType/*t_14_integer*/ o_4140_signumValue=0; /* line 404 "../lib/array.s7i" */ intType/*t_14_integer*/ o_4141_idx1=0; /* line 405 "../lib/array.s7i" */ intType/*t_14_integer*/ o_4142_idx2=0; /* line 407 "../lib/array.s7i" */ o_4141_idx1=(o_4138_arr1)->min_position; /* line 408 "../lib/array.s7i" */ o_4142_idx2=(o_4139_arr2)->min_position; /* line 409 "../lib/array.s7i" */ while (((o_4141_idx1) <= ((o_4138_arr1)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_4142_idx2) <= ((o_4139_arr2)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_3552_compare((o_4138_arr1)->arr[(idxChk((o_4141_idx1) < (o_4138_arr1)->min_position || (o_4141_idx1) > (o_4138_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_4141_idx1)-(o_4138_arr1)->min_position)].value.arrayValue, (o_4139_arr2)->arr[(idxChk((o_4142_idx2) < (o_4139_arr2)->min_position || (o_4142_idx2) > (o_4139_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_4142_idx2)-(o_4139_arr2)->min_position)].value.arrayValue)) == (0L))) { /* line 410 "../lib/array.s7i" */ ++(o_4141_idx1); /* line 411 "../lib/array.s7i" */ ++(o_4142_idx2); } /* line 413 "../lib/array.s7i" */ if (((o_4141_idx1) <= ((o_4138_arr1)->max_position)) && /* line 413 "../lib/array.s7i" */ ((o_4142_idx2) <= ((o_4139_arr2)->max_position))) { /* line 414 "../lib/array.s7i" */ o_4140_signumValue=o_3552_compare((o_4138_arr1)->arr[(idxChk((o_4141_idx1) < (o_4138_arr1)->min_position || (o_4141_idx1) > (o_4138_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_4141_idx1)-(o_4138_arr1)->min_position)].value.arrayValue, (o_4139_arr2)->arr[(idxChk((o_4142_idx2) < (o_4139_arr2)->min_position || (o_4142_idx2) > (o_4139_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_4142_idx2)-(o_4139_arr2)->min_position)].value.arrayValue); } else { /* line 416 "../lib/array.s7i" */ o_4140_signumValue=intCmp(((o_4138_arr1)->max_position - (o_4138_arr1)->min_position + 1), ((o_4139_arr2)->max_position - (o_4139_arr2)->min_position + 1)); } return o_4140_signumValue; } /* line 1 "no_file" */ /* 2465 */ /* line 420 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_4143/*<*/ (const const_arrayType/*t_145_*ANONYM_TYPE**/ o_4144_arr1, const const_arrayType/*t_145_*ANONYM_TYPE**/ o_4145_arr2) { /* line 421 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_4137_compare(o_4144_arr1, o_4145_arr2)) < (0L))); } /* line 1 "no_file" */ /* 2466 */ /* line 423 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_4146/*>*/ (const const_arrayType/*t_145_*ANONYM_TYPE**/ o_4147_arr1, const const_arrayType/*t_145_*ANONYM_TYPE**/ o_4148_arr2) { /* line 424 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_4137_compare(o_4147_arr1, o_4148_arr2)) > (0L))); } /* line 1 "no_file" */ /* 2467 */ /* line 426 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_4149/*<=*/ (const const_arrayType/*t_145_*ANONYM_TYPE**/ o_4150_arr1, const const_arrayType/*t_145_*ANONYM_TYPE**/ o_4151_arr2) { /* line 427 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_4137_compare(o_4150_arr1, o_4151_arr2)) <= (0L))); } /* line 1 "no_file" */ /* 2468 */ /* line 429 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_4152/*>=*/ (const const_arrayType/*t_145_*ANONYM_TYPE**/ o_4153_arr1, const const_arrayType/*t_145_*ANONYM_TYPE**/ o_4154_arr2) { /* line 430 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_4137_compare(o_4153_arr1, o_4154_arr2)) >= (0L))); } /* line 1 "no_file" */ /* 2469 */ static intType generic_cmp_128 (const genericType a, const genericType b) { return o_3552_compare(((const_rtlObjectType *) &a)->value.arrayValue, ((const_rtlObjectType *) &b)->value.arrayValue); } /* objRefType/t_19_reference */ intfunctype o_4155/*.*/=(intfunctype)(&generic_cmp_128); /* 2470 */ /* line 436 "../lib/array.s7i" */ static arrayType/*t_145_*ANONYM_TYPE**/ o_4156_sort (const const_arrayType/*t_145_*ANONYM_TYPE**/ o_4157_arr_obj) { /* line 437 "../lib/array.s7i" */ return (arrayType/*t_145_*ANONYM_TYPE**/)((arrSort(create_145(o_4157_arr_obj), (compareType)(o_4155/*.*/)))); } /* line 1 "no_file" */ /* 2471 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4158/*::=*/ (const const_hashType/*t_144_*ANONYM_TYPE**/ o_4159_dest, const const_hashType/*t_144_*ANONYM_TYPE**/ o_4160_source) { /* hshCreate implemented with create_144 */ } /* line 1 "no_file" */ /* 2472 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4161_destroy (const const_hashType/*t_144_*ANONYM_TYPE**/ o_4162_oldHash) { /* hshDestr implemented with destr_144 */ } /* line 1 "no_file" */ /* 2473 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4163/*:=*/ (hashType/*t_144_*ANONYM_TYPE**/ *const o_4164_dest, const const_hashType/*t_144_*ANONYM_TYPE**/ o_4165_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_4164_dest), o_4165_source, (createFuncType)(o_4097/*.*/), (destrFuncType)(o_4098/*.*/), (createFuncType)(o_4101/*.*/), (destrFuncType)(o_4102/*.*/)); } /* line 1 "no_file" */ /* 2474 */ typedef genericType t_147/*t_147_*ANONYM_TYPE**/; /* 2475 */ /* 2476 */ /* 2477 */ /* 2478 */ /* 2479 */ /* objRefType/t_147_*ANONYM_TYPE* */ objRefType o_4166/*.*/=(objRefType)(NULL); /* 2480 */ /* objRefType/t_147_*ANONYM_TYPE* */ objRefType o_4167/*.*/=(objRefType)(NULL); /* 2481 */ hashType/*t_144_*ANONYM_TYPE**/ o_4168/*.*/; /* 2482 */ hashType/*t_144_*ANONYM_TYPE**/ o_4169/*.*/; /* 2483 */ /* line 149 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_4170/*[*/ (const const_hashType/*t_144_*ANONYM_TYPE**/ o_4171_aHashMap, const typeType/*t_7_type*/ *const o_4172_aKey) { /* line 150 "../lib/hash.s7i" */ return (arrayType/*t_128_*ANONYM_TYPE**/)((/*ref_to_value*/ (arrayType/*t_128_*ANONYM_TYPE**/)(hshIdx(o_4171_aHashMap, (genericType)(*o_4172_aKey), (intType)(((memSizeType)(*o_4172_aKey)) >> 6), (compareType)(o_4100/*.*/))))); } /* line 1 "no_file" */ /* 2484 */ /* line 152 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ /*varfunc*/ *o_4173/*[*/ (hashType/*t_144_*ANONYM_TYPE**/ *const o_4174_aHashMap, const typeType/*t_7_type*/ *const o_4175_aKey) { /* line 153 "../lib/hash.s7i" */ return (arrayType/*t_128_*ANONYM_TYPE**/ *)(&(hshIdxAddr(*o_4174_aHashMap, (genericType)(*o_4175_aKey), (intType)(((memSizeType)(*o_4175_aKey)) >> 6), (compareType)(o_4100/*.*/))->value.arrayValue)); } /* line 1 "no_file" */ /* 2485 */ /* line 161 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_4176/*[*/ (const const_hashType/*t_144_*ANONYM_TYPE**/ o_4177_aHashMap, const typeType/*t_7_type*/ *const o_4178_aKey, const const_arrayType/*t_128_*ANONYM_TYPE**/ value_o_4179_defaultValue) { /* line 162 "../lib/hash.s7i" */ arrayType/*t_128_*ANONYM_TYPE**/ result; /* line 162 "../lib/hash.s7i" */ const_arrayType/*t_128_*ANONYM_TYPE**/ o_4179_defaultValue; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ o_4179_defaultValue=create_128(value_o_4179_defaultValue); /* line 162 "../lib/hash.s7i" */ result=(arrayType/*t_128_*ANONYM_TYPE**/)((/*ref_to_value*/ (addr_1=hshIdxAddr2(o_4177_aHashMap, (genericType)(*o_4178_aKey), (intType)(((memSizeType)(*o_4178_aKey)) >> 6), (compareType)(o_4100/*.*/)),addr_1!=NULL?addr_1->value.arrayValue:(o_4179_defaultValue)))); /* line 162 "../lib/hash.s7i" */ destr_128(o_4179_defaultValue); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2486 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_4180_in (const typeType/*t_7_type*/ *const o_4181_aKey, const const_hashType/*t_144_*ANONYM_TYPE**/ o_4182_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_4182_aHashMap, (genericType)(*o_4181_aKey), (intType)(((memSizeType)(*o_4181_aKey)) >> 6), (compareType)(o_4100/*.*/)))); } /* line 1 "no_file" */ /* 2487 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_4183_not (const typeType/*t_7_type*/ *const o_4184_aKey, const const_hashType/*t_144_*ANONYM_TYPE**/ o_4185_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_4185_aHashMap, (genericType)(*o_4184_aKey), (intType)(((memSizeType)(*o_4184_aKey)) >> 6), (compareType)(o_4100/*.*/))))); } /* line 1 "no_file" */ /* 2488 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4186_incl (hashType/*t_144_*ANONYM_TYPE**/ *const o_4187_aHashMap, const typeType/*t_7_type*/ *const o_4188_aKey, const const_arrayType/*t_128_*ANONYM_TYPE**/ value_o_4189_anElem) { /* line 189 "../lib/hash.s7i" */ const_arrayType/*t_128_*ANONYM_TYPE**/ o_4189_anElem; /* line 189 "../lib/hash.s7i" */ o_4189_anElem=create_128(value_o_4189_anElem); /* line 191 "../lib/hash.s7i" */ hshIncl(*o_4187_aHashMap, (genericType)(*o_4188_aKey), (genericType)(o_4189_anElem), (intType)(((memSizeType)(*o_4188_aKey)) >> 6), (compareType)(o_4100/*.*/), (createFuncType)(o_4097/*.*/), (createFuncType)(o_4101/*.*/), (copyFuncType)(o_4103/*.*/)); /* line 189 "../lib/hash.s7i" */ destr_128(o_4189_anElem); } /* line 1 "no_file" */ /* 2489 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4190_excl (hashType/*t_144_*ANONYM_TYPE**/ *const o_4191_aHashMap, const typeType/*t_7_type*/ *const o_4192_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_4191_aHashMap, (genericType)(*o_4192_aKey), (intType)(((memSizeType)(*o_4192_aKey)) >> 6), (compareType)(o_4100/*.*/), (destrFuncType)(o_4098/*.*/), (destrFuncType)(o_4102/*.*/)); } /* line 1 "no_file" */ /* 2490 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4193/*@:=*/ (hashType/*t_144_*ANONYM_TYPE**/ *const o_4194_aHashMap, const typeType/*t_7_type*/ *const o_4195_aKey, const const_arrayType/*t_128_*ANONYM_TYPE**/ value_o_4196_anElem) { /* line 210 "../lib/hash.s7i" */ const_arrayType/*t_128_*ANONYM_TYPE**/ o_4196_anElem; /* line 210 "../lib/hash.s7i" */ o_4196_anElem=create_128(value_o_4196_anElem); /* line 212 "../lib/hash.s7i" */ hshIncl(*o_4194_aHashMap, (genericType)(*o_4195_aKey), (genericType)(o_4196_anElem), (intType)(((memSizeType)(*o_4195_aKey)) >> 6), (compareType)(o_4100/*.*/), (createFuncType)(o_4097/*.*/), (createFuncType)(o_4101/*.*/), (copyFuncType)(o_4103/*.*/)); /* line 210 "../lib/hash.s7i" */ destr_128(o_4196_anElem); } /* line 1 "no_file" */ /* 2491 */ /* line 216 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_4197_update (hashType/*t_144_*ANONYM_TYPE**/ *const o_4198_aHashMap, const typeType/*t_7_type*/ *const o_4199_aKey, const const_arrayType/*t_128_*ANONYM_TYPE**/ value_o_4200_anElem) { /* line 217 "../lib/hash.s7i" */ arrayType/*t_128_*ANONYM_TYPE**/ result; /* line 217 "../lib/hash.s7i" */ const_arrayType/*t_128_*ANONYM_TYPE**/ o_4200_anElem; /* line 217 "../lib/hash.s7i" */ o_4200_anElem=create_128(value_o_4200_anElem); /* line 217 "../lib/hash.s7i" */ result=(arrayType/*t_128_*ANONYM_TYPE**/)(((arrayType/*t_128_*ANONYM_TYPE**/)(hshUpdate(*o_4198_aHashMap, (genericType)(*o_4199_aKey), (genericType)(create_128(o_4200_anElem)), (intType)(((memSizeType)(*o_4199_aKey)) >> 6), (compareType)(o_4100/*.*/), (createFuncType)(o_4097/*.*/), (createFuncType)(o_4101/*.*/))))); /* line 217 "../lib/hash.s7i" */ destr_128(o_4200_anElem); /* line 217 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2492 */ /* declare inline o_4201_for*/ /* declare inline o_4202_for*/ /* declare inline o_4203_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_4204_keys (const const_hashType/*t_144_*ANONYM_TYPE**/ o_4205_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_126_*ANONYM_TYPE**/)((hshKeys(o_4205_aHashMap, (createFuncType)(o_4097/*.*/), (destrFuncType)(o_4098/*.*/)))); } /* line 1 "no_file" */ /* 2493 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_145_*ANONYM_TYPE**/ o_4206_values (const const_hashType/*t_144_*ANONYM_TYPE**/ o_4207_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_145_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_4207_aHashMap, (createFuncType)(o_4101/*.*/), (destrFuncType)(o_4102/*.*/)))); } /* line 1 "no_file" */ /* 2494 */ /* line 61 "../lib/hash.s7i" */ static void destr_144 (const_hashType/*t_144_*ANONYM_TYPE**/ b) /* line 61 "../lib/hash.s7i" */ { /* line 61 "../lib/hash.s7i" */ hshDestr(b, (destrFuncType)(o_4098/*.*/), (destrFuncType)(o_4102/*.*/)); /* line 61 "../lib/hash.s7i" */ } /* line 1 "no_file" */ /* line 283 "../lib/hash.s7i" */ static hashType/*t_144_*ANONYM_TYPE**/ o_4208_flip (const const_hashType/*t_143_element_type_hash*/ o_4209_aHashMap) { /* line 285 "../lib/hash.s7i" */ hashType/*t_144_*ANONYM_TYPE**/ o_4210_inverseHash; /* line 287 "../lib/hash.s7i" */ objRefType/*t_19_reference*/ o_4211_aKey=NULL; /* line 288 "../lib/hash.s7i" */ typeType/*t_7_type*/ o_4212_aValue=typ[0] /* void/t_1_void */; /* line 285 "../lib/hash.s7i" */ o_4210_inverseHash=hshEmpty(); /* inline proc o_4092_for */ { /* inline params */ /* line 290 "../lib/hash.s7i" */ typeType/*t_7_type*/ *const o_4213_forVar=&(o_4212_aValue); /* line 290 "../lib/hash.s7i" */ objRefType/*t_19_reference*/ *const o_4214_keyVar=&(o_4211_aKey); /* line 290 "../lib/hash.s7i" */ const const_hashType/*t_143_element_type_hash*/ o_4215_aHashMap=o_4209_aHashMap; /* line 290 "../lib/hash.s7i" */ /* push proc param o_4216_statements */ /* line 290 "../lib/hash.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 258 "../lib/hash.s7i" */ const_hashType hash_1=o_4215_aHashMap; /* line 258 "../lib/hash.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 258 "../lib/hash.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 258 "../lib/hash.s7i" */ const_hashElemType helem_4; /* line 258 "../lib/hash.s7i" */ hashElemListType stack_5=NULL; /* line 258 "../lib/hash.s7i" */ while (counter_2 > 0) { /* line 258 "../lib/hash.s7i" */ helem_4=*table_elem_3; /* line 258 "../lib/hash.s7i" */ while (helem_4 != NULL) { /* line 258 "../lib/hash.s7i" */ if (helem_4->next_greater != NULL) { /* line 258 "../lib/hash.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ (*o_4213_forVar)=helem_4->data.value.typeValue; /* line 258 "../lib/hash.s7i" */ (*o_4214_keyVar)=helem_4->key.value.objRefValue; /* closure o_4216_statements*/ { /* line 291 "../lib/hash.s7i" */ if (o_4180_in(&(o_4212_aValue), o_4210_inverseHash)) { /* line 292 "../lib/hash.s7i" */ arrPush(&(*o_4173/*[*/(&(o_4210_inverseHash), &(o_4212_aValue))), (genericType)(o_4211_aKey)); } else { { /* line 294 "../lib/hash.s7i" */ arrayType/*t_128_*ANONYM_TYPE**/ tmp_1 = (arrayType/*t_128_*ANONYM_TYPE**/)(NULL); /* line 294 "../lib/hash.s7i" */ o_4193/*@:=*/(&(o_4210_inverseHash), &(o_4212_aValue), (tmp_1=(arrayType/*t_128_*ANONYM_TYPE**/)(arrBaselit((genericType)(o_4211_aKey))))); /* line 294 "../lib/hash.s7i" */ destr_128(tmp_1); } } } /* closure o_4216_statements*/ /* line 258 "../lib/hash.s7i" */ if (helem_4->next_less != NULL) { /* line 258 "../lib/hash.s7i" */ helem_4=helem_4->next_less; /* line 258 "../lib/hash.s7i" */ } else { /* line 258 "../lib/hash.s7i" */ pop_stack(stack_5, helem_4); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ counter_2--; /* line 258 "../lib/hash.s7i" */ table_elem_3++; /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ } /* hsh_for */ /* pop proc param o_4216_statements */ } /* inline proc o_4092_for */ return o_4210_inverseHash; } /* line 1 "no_file" */ /* 2495 */ typedef genericType t_148/*t_148_struct_element_type_hash*/; /* 2496 */ /* 2497 */ /* 2498 */ /* 2499 */ /* 2500 */ /* objRefType/t_19_reference */ intfunctype o_4217/*.*/=(intfunctype)(&ptrCreateGeneric); /* 2501 */ /* objRefType/t_19_reference */ intfunctype o_4218/*.*/=(intfunctype)(&genericDestr); /* 2502 */ /* objRefType/t_19_reference */ intfunctype o_4219/*.*/=(intfunctype)(&ptrCpyGeneric); /* 2503 */ /* objRefType/t_19_reference */ intfunctype o_4220/*.*/=(intfunctype)(&typCmpGeneric); /* 2504 */ /* line 58 "../lib/hash.s7i" */ static hashType/*t_143_element_type_hash*/ create_143 (const_hashType/*t_143_element_type_hash*/ b) /* line 58 "../lib/hash.s7i" */ { /* line 58 "../lib/hash.s7i" */ return hshCreate(b, (createFuncType)(o_4042/*.*/), (destrFuncType)(o_4043/*.*/), (createFuncType)(o_4046/*.*/), (destrFuncType)(o_4047/*.*/)); /* line 58 "../lib/hash.s7i" */ } /* line 1 "no_file" */ static genericType generic_create_143 (const genericType b) { rtlObjectType result; result.value.hashValue=create_143(((const_rtlObjectType *) &b)->value.hashValue); return result.value.genericValue; } /* objRefType/t_19_reference */ intfunctype o_4221/*.*/=(intfunctype)(&generic_create_143); /* 2505 */ /* line 61 "../lib/hash.s7i" */ static void destr_143 (const_hashType/*t_143_element_type_hash*/ b) /* line 61 "../lib/hash.s7i" */ { /* line 61 "../lib/hash.s7i" */ hshDestr(b, (destrFuncType)(o_4043/*.*/), (destrFuncType)(o_4047/*.*/)); /* line 61 "../lib/hash.s7i" */ } /* line 1 "no_file" */ static void generic_destr_143 (const genericType b) { destr_143(((const_rtlObjectType *) &b)->value.hashValue); } /* objRefType/t_19_reference */ intfunctype o_4222/*.*/=(intfunctype)(&generic_destr_143); /* 2506 */ /* line 63 "../lib/hash.s7i" */ static void cpy_143 (hashType/*t_143_element_type_hash*/ *a, hashType/*t_143_element_type_hash*/ b) /* line 63 "../lib/hash.s7i" */ { /* line 63 "../lib/hash.s7i" */ hshCpy(a, b, (createFuncType)(o_4042/*.*/), (destrFuncType)(o_4043/*.*/), (createFuncType)(o_4046/*.*/), (destrFuncType)(o_4047/*.*/)); /* line 63 "../lib/hash.s7i" */ } /* line 1 "no_file" */ static void generic_cpy_143 (genericType *a, const genericType b) { cpy_143((hashType/*t_143_element_type_hash*/ *)(&(((const_rtlObjectType *) a)->value.hashValue)), (hashType/*t_143_element_type_hash*/)(((const_rtlObjectType *) &b)->value.hashValue)); } /* objRefType/t_19_reference */ intfunctype o_4223/*.*/=(intfunctype)(&generic_cpy_143); /* 2507 */ /* 2508 */ /* 2509 */ /* 2510 */ typedef genericType t_149/*t_149_*ANONYM_TYPE**/; /* 2511 */ typedef genericType t_150/*t_150_*ANONYM_TYPE**/; /* 2512 */ /* 2513 */ /* 2514 */ /* 2515 */ /* ACTION ARR_GEN for type arrayType/t_150_*ANONYM_TYPE* element is hashType/t_143_element_type_hash */ /* 2516 */ /* 2517 */ /* 2518 */ /* 2519 */ /* 2520 */ /* 2521 */ /* ACTION ARR_IDX for type arrayType/t_149_*ANONYM_TYPE* element is hashType/t_143_element_type_hash */ /* 2522 */ /* ACTION ARR_IDX for type arrayType/t_149_*ANONYM_TYPE* element is hashType/t_143_element_type_hash */ /* 2523 */ /* line 163 "../lib/array.s7i" */ static arrayType times_149 (intType n, const const_hashType/*t_143_element_type_hash*/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.hashValue=create_143(b); /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 2524 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_149_*ANONYM_TYPE**/ create_149 (const_arrayType/*t_149_*ANONYM_TYPE**/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_149_*ANONYM_TYPE**/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_149_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.hashValue=create_143(b->arr[i].value.hashValue); /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_149 (const_arrayType/*t_149_*ANONYM_TYPE**/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ destr_143(b->arr[i].value.hashValue); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_150 (const_arrayType/*t_150_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ destr_143(b->arr[i].value.hashValue); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_150_*ANONYM_TYPE**/ create_150 (const_arrayType/*t_150_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_150_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_150_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.hashValue=create_143(b->arr[i].value.hashValue); /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_149_*ANONYM_TYPE**/ o_4224_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_4225_indexRange, const const_hashType/*t_143_element_type_hash*/ value_o_4226_element) { /* line 183 "../lib/array.s7i" */ const_hashType/*t_143_element_type_hash*/ o_4226_element; /* line 186 "../lib/array.s7i" */ arrayType/*t_149_*ANONYM_TYPE**/ o_4227_anArray; /* line 183 "../lib/array.s7i" */ o_4226_element=create_143(value_o_4226_element); /* line 186 "../lib/array.s7i" */ o_4227_anArray=create_149(arr[78]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_4227_anArray; /* line 188 "../lib/array.s7i" */ o_4227_anArray=times_149(((((structType)(o_4225_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_4225_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_4226_element); /* line 188 "../lib/array.s7i" */ destr_149(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_4227_anArray; /* line 189 "../lib/array.s7i" */ o_4227_anArray=arrArrlit2(((structType)(o_4225_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_150(/*arrConv()*/o_4227_anArray)); /* line 189 "../lib/array.s7i" */ destr_149(old_array); } /* line 183 "../lib/array.s7i" */ destr_143(o_4226_element); return o_4227_anArray; } /* line 1 "no_file" */ /* 2525 */ /* declare inline o_4228_for*/ /* declare inline o_4229_for*/ /* declare inline o_4230_for*/ /* declare inline o_4231_for*/ /* declare inline o_4232_for*/ /* declare inline o_4233_for*/ /* declare inline o_4234_for*/ /* declare inline o_4235_for*/ /* declare inline o_4236_for*/ /* line 329 "../lib/array.s7i" */ static hashType/*t_143_element_type_hash*/ o_4237_rand (const const_arrayType/*t_149_*ANONYM_TYPE**/ o_4238_arr) { /* line 330 "../lib/array.s7i" */ hashType/*t_143_element_type_hash*/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(hashType/*t_143_element_type_hash*/)((/*ref_to_value*/ (o_4238_arr)->arr[idx_1=intRand((o_4238_arr)->min_position, (o_4238_arr)->max_position),(idxChk(idx_1 < (o_4238_arr)->min_position || idx_1 > (o_4238_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_4238_arr)->min_position)].value.hashValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 2526 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_4239_insert (arrayType/*t_149_*ANONYM_TYPE**/ *const o_4240_arr, const intType/*t_14_integer*/ o_4241_index, const const_hashType/*t_143_element_type_hash*/ value_o_4242_element) { /* line 332 "../lib/array.s7i" */ const_hashType/*t_143_element_type_hash*/ o_4242_element; /* line 332 "../lib/array.s7i" */ o_4242_element=create_143(value_o_4242_element); /* line 334 "../lib/array.s7i" */ if (((o_4241_index) >= ((*o_4240_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_4241_index) <= (((*o_4240_arr)->max_position)+1))) { { /* line 335 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 335 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_4240_arr; /* line 335 "../lib/array.s7i" */ *o_4240_arr=arrCat(arrCat((tmp_4=arrHead(*o_4240_arr, (o_4241_index)-1), create_149(tmp_4)), arrBaselit((genericType)(create_143(o_4242_element)))), (tmp_7=arrTail(*o_4240_arr, o_4241_index), create_149(tmp_7))); /* line 335 "../lib/array.s7i" */ destr_149(old_array); } /* line 335 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 335 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } /* line 332 "../lib/array.s7i" */ destr_143(o_4242_element); } /* line 1 "no_file" */ /* 2527 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4243/*::=*/ (const const_hashType/*t_148_struct_element_type_hash*/ o_4244_dest, const const_hashType/*t_148_struct_element_type_hash*/ o_4245_source) { /* hshCreate implemented with create_148 */ } /* line 1 "no_file" */ /* 2528 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4246_destroy (const const_hashType/*t_148_struct_element_type_hash*/ o_4247_oldHash) { /* hshDestr implemented with destr_148 */ } /* line 1 "no_file" */ /* 2529 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4248/*:=*/ (hashType/*t_148_struct_element_type_hash*/ *const o_4249_dest, const const_hashType/*t_148_struct_element_type_hash*/ o_4250_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_4249_dest), o_4250_source, (createFuncType)(o_4217/*.*/), (destrFuncType)(o_4218/*.*/), (createFuncType)(o_4221/*.*/), (destrFuncType)(o_4222/*.*/)); } /* line 1 "no_file" */ /* 2530 */ typedef genericType t_151/*t_151_*ANONYM_TYPE**/; /* 2531 */ /* 2532 */ /* 2533 */ /* 2534 */ /* 2535 */ /* objRefType/t_151_*ANONYM_TYPE* */ objRefType o_4251/*.*/=(objRefType)(NULL); /* 2536 */ /* objRefType/t_151_*ANONYM_TYPE* */ objRefType o_4252/*.*/=(objRefType)(NULL); /* 2537 */ hashType/*t_148_struct_element_type_hash*/ o_4253/*.*/; /* 2538 */ hashType/*t_148_struct_element_type_hash*/ o_4254/*.*/; /* 2539 */ /* line 149 "../lib/hash.s7i" */ static hashType/*t_143_element_type_hash*/ o_4255/*[*/ (const const_hashType/*t_148_struct_element_type_hash*/ o_4256_aHashMap, const typeType/*t_7_type*/ *const o_4257_aKey) { /* line 150 "../lib/hash.s7i" */ return (hashType/*t_143_element_type_hash*/)((/*ref_to_value*/ (hashType/*t_143_element_type_hash*/)(hshIdx(o_4256_aHashMap, (genericType)(*o_4257_aKey), (intType)(((memSizeType)(*o_4257_aKey)) >> 6), (compareType)(o_4220/*.*/))))); } /* line 1 "no_file" */ /* 2540 */ /* line 152 "../lib/hash.s7i" */ static hashType/*t_143_element_type_hash*/ /*varfunc*/ *o_4258/*[*/ (hashType/*t_148_struct_element_type_hash*/ *const o_4259_aHashMap, const typeType/*t_7_type*/ *const o_4260_aKey) { /* line 153 "../lib/hash.s7i" */ return (hashType/*t_143_element_type_hash*/ *)(&(hshIdxAddr(*o_4259_aHashMap, (genericType)(*o_4260_aKey), (intType)(((memSizeType)(*o_4260_aKey)) >> 6), (compareType)(o_4220/*.*/))->value.hashValue)); } /* line 1 "no_file" */ /* 2541 */ /* line 161 "../lib/hash.s7i" */ static hashType/*t_143_element_type_hash*/ o_4261/*[*/ (const const_hashType/*t_148_struct_element_type_hash*/ o_4262_aHashMap, const typeType/*t_7_type*/ *const o_4263_aKey, const const_hashType/*t_143_element_type_hash*/ value_o_4264_defaultValue) { /* line 162 "../lib/hash.s7i" */ hashType/*t_143_element_type_hash*/ result; /* line 162 "../lib/hash.s7i" */ const_hashType/*t_143_element_type_hash*/ o_4264_defaultValue; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ o_4264_defaultValue=create_143(value_o_4264_defaultValue); /* line 162 "../lib/hash.s7i" */ result=(hashType/*t_143_element_type_hash*/)((/*ref_to_value*/ (addr_1=hshIdxAddr2(o_4262_aHashMap, (genericType)(*o_4263_aKey), (intType)(((memSizeType)(*o_4263_aKey)) >> 6), (compareType)(o_4220/*.*/)),addr_1!=NULL?addr_1->value.hashValue:(o_4264_defaultValue)))); /* line 162 "../lib/hash.s7i" */ destr_143(o_4264_defaultValue); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2542 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_4265_in (const typeType/*t_7_type*/ *const o_4266_aKey, const const_hashType/*t_148_struct_element_type_hash*/ o_4267_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_4267_aHashMap, (genericType)(*o_4266_aKey), (intType)(((memSizeType)(*o_4266_aKey)) >> 6), (compareType)(o_4220/*.*/)))); } /* line 1 "no_file" */ /* 2543 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_4268_not (const typeType/*t_7_type*/ *const o_4269_aKey, const const_hashType/*t_148_struct_element_type_hash*/ o_4270_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_4270_aHashMap, (genericType)(*o_4269_aKey), (intType)(((memSizeType)(*o_4269_aKey)) >> 6), (compareType)(o_4220/*.*/))))); } /* line 1 "no_file" */ /* 2544 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4271_incl (hashType/*t_148_struct_element_type_hash*/ *const o_4272_aHashMap, const typeType/*t_7_type*/ *const o_4273_aKey, const const_hashType/*t_143_element_type_hash*/ value_o_4274_anElem) { /* line 189 "../lib/hash.s7i" */ const_hashType/*t_143_element_type_hash*/ o_4274_anElem; /* line 189 "../lib/hash.s7i" */ o_4274_anElem=create_143(value_o_4274_anElem); /* line 191 "../lib/hash.s7i" */ hshIncl(*o_4272_aHashMap, (genericType)(*o_4273_aKey), (genericType)(o_4274_anElem), (intType)(((memSizeType)(*o_4273_aKey)) >> 6), (compareType)(o_4220/*.*/), (createFuncType)(o_4217/*.*/), (createFuncType)(o_4221/*.*/), (copyFuncType)(o_4223/*.*/)); /* line 189 "../lib/hash.s7i" */ destr_143(o_4274_anElem); } /* line 1 "no_file" */ /* 2545 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4275_excl (hashType/*t_148_struct_element_type_hash*/ *const o_4276_aHashMap, const typeType/*t_7_type*/ *const o_4277_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_4276_aHashMap, (genericType)(*o_4277_aKey), (intType)(((memSizeType)(*o_4277_aKey)) >> 6), (compareType)(o_4220/*.*/), (destrFuncType)(o_4218/*.*/), (destrFuncType)(o_4222/*.*/)); } /* line 1 "no_file" */ /* 2546 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4278/*@:=*/ (hashType/*t_148_struct_element_type_hash*/ *const o_4279_aHashMap, const typeType/*t_7_type*/ *const o_4280_aKey, const const_hashType/*t_143_element_type_hash*/ value_o_4281_anElem) { /* line 210 "../lib/hash.s7i" */ const_hashType/*t_143_element_type_hash*/ o_4281_anElem; /* line 210 "../lib/hash.s7i" */ o_4281_anElem=create_143(value_o_4281_anElem); /* line 212 "../lib/hash.s7i" */ hshIncl(*o_4279_aHashMap, (genericType)(*o_4280_aKey), (genericType)(o_4281_anElem), (intType)(((memSizeType)(*o_4280_aKey)) >> 6), (compareType)(o_4220/*.*/), (createFuncType)(o_4217/*.*/), (createFuncType)(o_4221/*.*/), (copyFuncType)(o_4223/*.*/)); /* line 210 "../lib/hash.s7i" */ destr_143(o_4281_anElem); } /* line 1 "no_file" */ /* 2547 */ /* line 216 "../lib/hash.s7i" */ static hashType/*t_143_element_type_hash*/ o_4282_update (hashType/*t_148_struct_element_type_hash*/ *const o_4283_aHashMap, const typeType/*t_7_type*/ *const o_4284_aKey, const const_hashType/*t_143_element_type_hash*/ value_o_4285_anElem) { /* line 217 "../lib/hash.s7i" */ hashType/*t_143_element_type_hash*/ result; /* line 217 "../lib/hash.s7i" */ const_hashType/*t_143_element_type_hash*/ o_4285_anElem; /* line 217 "../lib/hash.s7i" */ o_4285_anElem=create_143(value_o_4285_anElem); /* line 217 "../lib/hash.s7i" */ result=(hashType/*t_143_element_type_hash*/)(((hashType/*t_143_element_type_hash*/)(hshUpdate(*o_4283_aHashMap, (genericType)(*o_4284_aKey), (genericType)(create_143(o_4285_anElem)), (intType)(((memSizeType)(*o_4284_aKey)) >> 6), (compareType)(o_4220/*.*/), (createFuncType)(o_4217/*.*/), (createFuncType)(o_4221/*.*/))))); /* line 217 "../lib/hash.s7i" */ destr_143(o_4285_anElem); /* line 217 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2548 */ /* declare inline o_4286_for*/ /* declare inline o_4287_for*/ /* declare inline o_4288_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_4289_keys (const const_hashType/*t_148_struct_element_type_hash*/ o_4290_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_126_*ANONYM_TYPE**/)((hshKeys(o_4290_aHashMap, (createFuncType)(o_4217/*.*/), (destrFuncType)(o_4218/*.*/)))); } /* line 1 "no_file" */ /* 2549 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_149_*ANONYM_TYPE**/ o_4291_values (const const_hashType/*t_148_struct_element_type_hash*/ o_4292_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_149_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_4292_aHashMap, (createFuncType)(o_4221/*.*/), (destrFuncType)(o_4222/*.*/)))); } /* line 1 "no_file" */ /* 2550 */ typedef genericType t_152/*t_152_string_type_hash*/; /* 2551 */ /* 2552 */ /* 2553 */ /* 2554 */ /* 2555 */ /* objRefType/t_19_reference */ intfunctype o_4293/*.*/=(intfunctype)(&ptrCreateGeneric); /* 2556 */ /* objRefType/t_19_reference */ intfunctype o_4294/*.*/=(intfunctype)(&genericDestr); /* 2557 */ /* objRefType/t_19_reference */ intfunctype o_4295/*.*/=(intfunctype)(&ptrCpyGeneric); /* 2558 */ /* objRefType/t_19_reference */ intfunctype o_4296/*.*/=(intfunctype)(&typCmpGeneric); /* 2559 */ /* objRefType/t_19_reference */ intfunctype o_4297/*.*/=(intfunctype)(&strCreateGeneric); /* 2560 */ /* objRefType/t_19_reference */ intfunctype o_4298/*.*/=(intfunctype)(&strDestrGeneric); /* 2561 */ /* objRefType/t_19_reference */ intfunctype o_4299/*.*/=(intfunctype)(&strCpyGeneric); /* 2562 */ /* 2563 */ /* 2564 */ /* 2565 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4300/*::=*/ (const const_hashType/*t_152_string_type_hash*/ o_4301_dest, const const_hashType/*t_152_string_type_hash*/ o_4302_source) { /* hshCreate implemented with create_152 */ } /* line 1 "no_file" */ /* 2566 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4303_destroy (const const_hashType/*t_152_string_type_hash*/ o_4304_oldHash) { /* hshDestr implemented with destr_152 */ } /* line 1 "no_file" */ /* 2567 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4305/*:=*/ (hashType/*t_152_string_type_hash*/ *const o_4306_dest, const const_hashType/*t_152_string_type_hash*/ o_4307_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_4306_dest), o_4307_source, (createFuncType)(o_4293/*.*/), (destrFuncType)(o_4294/*.*/), (createFuncType)(o_4297/*.*/), (destrFuncType)(o_4298/*.*/)); } /* line 1 "no_file" */ /* 2568 */ typedef genericType t_153/*t_153_*ANONYM_TYPE**/; /* 2569 */ /* 2570 */ /* 2571 */ /* 2572 */ /* 2573 */ /* objRefType/t_153_*ANONYM_TYPE* */ objRefType o_4308/*.*/=(objRefType)(NULL); /* 2574 */ /* objRefType/t_153_*ANONYM_TYPE* */ objRefType o_4309/*.*/=(objRefType)(NULL); /* 2575 */ hashType/*t_152_string_type_hash*/ o_4310/*.*/; /* 2576 */ hashType/*t_152_string_type_hash*/ o_4311/*.*/; /* 2577 */ /* line 149 "../lib/hash.s7i" */ static striType/*t_15_string*/ o_4312/*[*/ (const const_hashType/*t_152_string_type_hash*/ o_4313_aHashMap, const typeType/*t_7_type*/ *const o_4314_aKey) { /* line 150 "../lib/hash.s7i" */ return (striType/*t_15_string*/)((/*ref_to_value*/ (striType/*t_15_string*/)(hshIdx(o_4313_aHashMap, (genericType)(*o_4314_aKey), (intType)(((memSizeType)(*o_4314_aKey)) >> 6), (compareType)(o_4296/*.*/))))); } /* line 1 "no_file" */ /* 2578 */ /* line 152 "../lib/hash.s7i" */ static striType/*t_15_string*/ /*varfunc*/ *o_4315/*[*/ (hashType/*t_152_string_type_hash*/ *const o_4316_aHashMap, const typeType/*t_7_type*/ *const o_4317_aKey) { /* line 153 "../lib/hash.s7i" */ return (striType/*t_15_string*/ *)(&(hshIdxAddr(*o_4316_aHashMap, (genericType)(*o_4317_aKey), (intType)(((memSizeType)(*o_4317_aKey)) >> 6), (compareType)(o_4296/*.*/))->value.striValue)); } /* line 1 "no_file" */ /* 2579 */ /* line 161 "../lib/hash.s7i" */ static striType/*t_15_string*/ o_4318/*[*/ (const const_hashType/*t_152_string_type_hash*/ o_4319_aHashMap, const typeType/*t_7_type*/ *const o_4320_aKey, const const_striType/*t_15_string*/ value_o_4321_defaultValue) { /* line 162 "../lib/hash.s7i" */ striType/*t_15_string*/ result; /* line 162 "../lib/hash.s7i" */ const_striType/*t_15_string*/ o_4321_defaultValue; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ o_4321_defaultValue=strCreate(value_o_4321_defaultValue); /* line 162 "../lib/hash.s7i" */ result=(striType/*t_15_string*/)((/*ref_to_value*/ (addr_1=hshIdxAddr2(o_4319_aHashMap, (genericType)(*o_4320_aKey), (intType)(((memSizeType)(*o_4320_aKey)) >> 6), (compareType)(o_4296/*.*/)),addr_1!=NULL?addr_1->value.striValue:(o_4321_defaultValue)))); /* line 162 "../lib/hash.s7i" */ strDestr(o_4321_defaultValue); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2580 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_4322_in (const typeType/*t_7_type*/ *const o_4323_aKey, const const_hashType/*t_152_string_type_hash*/ o_4324_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_4324_aHashMap, (genericType)(*o_4323_aKey), (intType)(((memSizeType)(*o_4323_aKey)) >> 6), (compareType)(o_4296/*.*/)))); } /* line 1 "no_file" */ /* 2581 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_4325_not (const typeType/*t_7_type*/ *const o_4326_aKey, const const_hashType/*t_152_string_type_hash*/ o_4327_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_4327_aHashMap, (genericType)(*o_4326_aKey), (intType)(((memSizeType)(*o_4326_aKey)) >> 6), (compareType)(o_4296/*.*/))))); } /* line 1 "no_file" */ /* 2582 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4328_incl (hashType/*t_152_string_type_hash*/ *const o_4329_aHashMap, const typeType/*t_7_type*/ *const o_4330_aKey, const const_striType/*t_15_string*/ value_o_4331_anElem) { /* line 189 "../lib/hash.s7i" */ const_striType/*t_15_string*/ o_4331_anElem; /* line 189 "../lib/hash.s7i" */ o_4331_anElem=strCreate(value_o_4331_anElem); /* line 191 "../lib/hash.s7i" */ hshIncl(*o_4329_aHashMap, (genericType)(*o_4330_aKey), (genericType)(o_4331_anElem), (intType)(((memSizeType)(*o_4330_aKey)) >> 6), (compareType)(o_4296/*.*/), (createFuncType)(o_4293/*.*/), (createFuncType)(o_4297/*.*/), (copyFuncType)(o_4299/*.*/)); /* line 189 "../lib/hash.s7i" */ strDestr(o_4331_anElem); } /* line 1 "no_file" */ /* 2583 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4332_excl (hashType/*t_152_string_type_hash*/ *const o_4333_aHashMap, const typeType/*t_7_type*/ *const o_4334_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_4333_aHashMap, (genericType)(*o_4334_aKey), (intType)(((memSizeType)(*o_4334_aKey)) >> 6), (compareType)(o_4296/*.*/), (destrFuncType)(o_4294/*.*/), (destrFuncType)(o_4298/*.*/)); } /* line 1 "no_file" */ /* 2584 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4335/*@:=*/ (hashType/*t_152_string_type_hash*/ *const o_4336_aHashMap, const typeType/*t_7_type*/ *const o_4337_aKey, const const_striType/*t_15_string*/ value_o_4338_anElem) { /* line 210 "../lib/hash.s7i" */ const_striType/*t_15_string*/ o_4338_anElem; /* line 210 "../lib/hash.s7i" */ o_4338_anElem=strCreate(value_o_4338_anElem); /* line 212 "../lib/hash.s7i" */ hshIncl(*o_4336_aHashMap, (genericType)(*o_4337_aKey), (genericType)(o_4338_anElem), (intType)(((memSizeType)(*o_4337_aKey)) >> 6), (compareType)(o_4296/*.*/), (createFuncType)(o_4293/*.*/), (createFuncType)(o_4297/*.*/), (copyFuncType)(o_4299/*.*/)); /* line 210 "../lib/hash.s7i" */ strDestr(o_4338_anElem); } /* line 1 "no_file" */ /* 2585 */ /* line 216 "../lib/hash.s7i" */ static striType/*t_15_string*/ o_4339_update (hashType/*t_152_string_type_hash*/ *const o_4340_aHashMap, const typeType/*t_7_type*/ *const o_4341_aKey, const const_striType/*t_15_string*/ value_o_4342_anElem) { /* line 217 "../lib/hash.s7i" */ striType/*t_15_string*/ result; /* line 217 "../lib/hash.s7i" */ const_striType/*t_15_string*/ o_4342_anElem; /* line 217 "../lib/hash.s7i" */ o_4342_anElem=strCreate(value_o_4342_anElem); /* line 217 "../lib/hash.s7i" */ result=(striType/*t_15_string*/)(((striType/*t_15_string*/)(hshUpdate(*o_4340_aHashMap, (genericType)(*o_4341_aKey), (genericType)(strCreate(o_4342_anElem)), (intType)(((memSizeType)(*o_4341_aKey)) >> 6), (compareType)(o_4296/*.*/), (createFuncType)(o_4293/*.*/), (createFuncType)(o_4297/*.*/))))); /* line 217 "../lib/hash.s7i" */ strDestr(o_4342_anElem); /* line 217 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2586 */ /* declare inline o_4343_for*/ /* declare inline o_4344_for*/ /* declare inline o_4345_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_4346_keys (const const_hashType/*t_152_string_type_hash*/ o_4347_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_126_*ANONYM_TYPE**/)((hshKeys(o_4347_aHashMap, (createFuncType)(o_4293/*.*/), (destrFuncType)(o_4294/*.*/)))); } /* line 1 "no_file" */ /* 2587 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_28_TEST_3*/ o_4348_values (const const_hashType/*t_152_string_type_hash*/ o_4349_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_28_TEST_3*/)((/*ref_to_value*/ hshValues(o_4349_aHashMap, (createFuncType)(o_4297/*.*/), (destrFuncType)(o_4298/*.*/)))); } /* line 1 "no_file" */ /* 2588 */ typedef genericType t_154/*t_154_*ANONYM_TYPE**/; /* 2589 */ /* 2590 */ /* 2591 */ /* 2592 */ /* objRefType/t_19_reference */ intfunctype o_4350/*.*/=(intfunctype)(&strCreateGeneric); /* 2593 */ /* objRefType/t_19_reference */ intfunctype o_4351/*.*/=(intfunctype)(&strDestrGeneric); /* 2594 */ /* objRefType/t_19_reference */ intfunctype o_4352/*.*/=(intfunctype)(&strCpyGeneric); /* 2595 */ /* objRefType/t_19_reference */ intfunctype o_4353/*.*/=(intfunctype)(&strCmpGeneric); /* 2596 */ /* objRefType/t_19_reference */ intfunctype o_4354/*.*/=(intfunctype)(&generic_create_126); /* 2597 */ /* objRefType/t_19_reference */ intfunctype o_4355/*.*/=(intfunctype)(&generic_destr_126); /* 2598 */ /* objRefType/t_19_reference */ intfunctype o_4356/*.*/=(intfunctype)(&generic_cpy_126); /* 2599 */ /* 2600 */ /* 2601 */ /* 2602 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4357/*::=*/ (const const_hashType/*t_154_*ANONYM_TYPE**/ o_4358_dest, const const_hashType/*t_154_*ANONYM_TYPE**/ o_4359_source) { /* hshCreate implemented with create_154 */ } /* line 1 "no_file" */ /* 2603 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4360_destroy (const const_hashType/*t_154_*ANONYM_TYPE**/ o_4361_oldHash) { /* hshDestr implemented with destr_154 */ } /* line 1 "no_file" */ /* 2604 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4362/*:=*/ (hashType/*t_154_*ANONYM_TYPE**/ *const o_4363_dest, const const_hashType/*t_154_*ANONYM_TYPE**/ o_4364_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_4363_dest), o_4364_source, (createFuncType)(o_4350/*.*/), (destrFuncType)(o_4351/*.*/), (createFuncType)(o_4354/*.*/), (destrFuncType)(o_4355/*.*/)); } /* line 1 "no_file" */ /* 2605 */ hashType/*t_154_*ANONYM_TYPE**/ o_4365/*.*/; /* 2606 */ hashType/*t_154_*ANONYM_TYPE**/ o_4366/*.*/; /* 2607 */ /* line 149 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_4367/*[*/ (const const_hashType/*t_154_*ANONYM_TYPE**/ o_4368_aHashMap, const const_striType/*t_15_string*/ o_4369_aKey) { /* line 150 "../lib/hash.s7i" */ return (arrayType/*t_126_*ANONYM_TYPE**/)((/*ref_to_value*/ (arrayType/*t_126_*ANONYM_TYPE**/)(hshIdx(o_4368_aHashMap, (genericType)(o_4369_aKey), ((o_4369_aKey)->size==0 ? 0 : ((o_4369_aKey)->mem[0]<<5 ^ (o_4369_aKey)->mem[(o_4369_aKey)->size>>1]<<3 ^ (o_4369_aKey)->mem[(o_4369_aKey)->size-1]<<1 ^ (o_4369_aKey)->size)), (compareType)(o_4353/*.*/))))); } /* line 1 "no_file" */ /* 2608 */ /* line 152 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ /*varfunc*/ *o_4370/*[*/ (hashType/*t_154_*ANONYM_TYPE**/ *const o_4371_aHashMap, const const_striType/*t_15_string*/ o_4372_aKey) { /* line 153 "../lib/hash.s7i" */ return (arrayType/*t_126_*ANONYM_TYPE**/ *)(&(hshIdxAddr(*o_4371_aHashMap, (genericType)(o_4372_aKey), ((o_4372_aKey)->size==0 ? 0 : ((o_4372_aKey)->mem[0]<<5 ^ (o_4372_aKey)->mem[(o_4372_aKey)->size>>1]<<3 ^ (o_4372_aKey)->mem[(o_4372_aKey)->size-1]<<1 ^ (o_4372_aKey)->size)), (compareType)(o_4353/*.*/))->value.arrayValue)); } /* line 1 "no_file" */ /* 2609 */ /* line 161 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_4373/*[*/ (const const_hashType/*t_154_*ANONYM_TYPE**/ o_4374_aHashMap, const const_striType/*t_15_string*/ o_4375_aKey, const const_arrayType/*t_126_*ANONYM_TYPE**/ value_o_4376_defaultValue) { /* line 162 "../lib/hash.s7i" */ arrayType/*t_126_*ANONYM_TYPE**/ result; /* line 162 "../lib/hash.s7i" */ const_arrayType/*t_126_*ANONYM_TYPE**/ o_4376_defaultValue; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ o_4376_defaultValue=create_126(value_o_4376_defaultValue); /* line 162 "../lib/hash.s7i" */ result=(arrayType/*t_126_*ANONYM_TYPE**/)((/*ref_to_value*/ (addr_1=hshIdxAddr2(o_4374_aHashMap, (genericType)(o_4375_aKey), ((o_4375_aKey)->size==0 ? 0 : ((o_4375_aKey)->mem[0]<<5 ^ (o_4375_aKey)->mem[(o_4375_aKey)->size>>1]<<3 ^ (o_4375_aKey)->mem[(o_4375_aKey)->size-1]<<1 ^ (o_4375_aKey)->size)), (compareType)(o_4353/*.*/)),addr_1!=NULL?addr_1->value.arrayValue:(o_4376_defaultValue)))); /* line 162 "../lib/hash.s7i" */ destr_126(o_4376_defaultValue); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2610 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_4377_in (const const_striType/*t_15_string*/ o_4378_aKey, const const_hashType/*t_154_*ANONYM_TYPE**/ o_4379_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_4379_aHashMap, (genericType)(o_4378_aKey), ((o_4378_aKey)->size==0 ? 0 : ((o_4378_aKey)->mem[0]<<5 ^ (o_4378_aKey)->mem[(o_4378_aKey)->size>>1]<<3 ^ (o_4378_aKey)->mem[(o_4378_aKey)->size-1]<<1 ^ (o_4378_aKey)->size)), (compareType)(o_4353/*.*/)))); } /* line 1 "no_file" */ /* 2611 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_4380_not (const const_striType/*t_15_string*/ o_4381_aKey, const const_hashType/*t_154_*ANONYM_TYPE**/ o_4382_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_4382_aHashMap, (genericType)(o_4381_aKey), ((o_4381_aKey)->size==0 ? 0 : ((o_4381_aKey)->mem[0]<<5 ^ (o_4381_aKey)->mem[(o_4381_aKey)->size>>1]<<3 ^ (o_4381_aKey)->mem[(o_4381_aKey)->size-1]<<1 ^ (o_4381_aKey)->size)), (compareType)(o_4353/*.*/))))); } /* line 1 "no_file" */ /* 2612 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4383_incl (hashType/*t_154_*ANONYM_TYPE**/ *const o_4384_aHashMap, const const_striType/*t_15_string*/ o_4385_aKey, const const_arrayType/*t_126_*ANONYM_TYPE**/ value_o_4386_anElem) { /* line 189 "../lib/hash.s7i" */ const_arrayType/*t_126_*ANONYM_TYPE**/ o_4386_anElem; /* line 189 "../lib/hash.s7i" */ o_4386_anElem=create_126(value_o_4386_anElem); /* line 191 "../lib/hash.s7i" */ hshIncl(*o_4384_aHashMap, (genericType)(o_4385_aKey), (genericType)(o_4386_anElem), ((o_4385_aKey)->size==0 ? 0 : ((o_4385_aKey)->mem[0]<<5 ^ (o_4385_aKey)->mem[(o_4385_aKey)->size>>1]<<3 ^ (o_4385_aKey)->mem[(o_4385_aKey)->size-1]<<1 ^ (o_4385_aKey)->size)), (compareType)(o_4353/*.*/), (createFuncType)(o_4350/*.*/), (createFuncType)(o_4354/*.*/), (copyFuncType)(o_4356/*.*/)); /* line 189 "../lib/hash.s7i" */ destr_126(o_4386_anElem); } /* line 1 "no_file" */ /* 2613 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4387_excl (hashType/*t_154_*ANONYM_TYPE**/ *const o_4388_aHashMap, const const_striType/*t_15_string*/ o_4389_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_4388_aHashMap, (genericType)(o_4389_aKey), ((o_4389_aKey)->size==0 ? 0 : ((o_4389_aKey)->mem[0]<<5 ^ (o_4389_aKey)->mem[(o_4389_aKey)->size>>1]<<3 ^ (o_4389_aKey)->mem[(o_4389_aKey)->size-1]<<1 ^ (o_4389_aKey)->size)), (compareType)(o_4353/*.*/), (destrFuncType)(o_4351/*.*/), (destrFuncType)(o_4355/*.*/)); } /* line 1 "no_file" */ /* 2614 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4390/*@:=*/ (hashType/*t_154_*ANONYM_TYPE**/ *const o_4391_aHashMap, const const_striType/*t_15_string*/ o_4392_aKey, const const_arrayType/*t_126_*ANONYM_TYPE**/ value_o_4393_anElem) { /* line 210 "../lib/hash.s7i" */ const_arrayType/*t_126_*ANONYM_TYPE**/ o_4393_anElem; /* line 210 "../lib/hash.s7i" */ o_4393_anElem=create_126(value_o_4393_anElem); /* line 212 "../lib/hash.s7i" */ hshIncl(*o_4391_aHashMap, (genericType)(o_4392_aKey), (genericType)(o_4393_anElem), ((o_4392_aKey)->size==0 ? 0 : ((o_4392_aKey)->mem[0]<<5 ^ (o_4392_aKey)->mem[(o_4392_aKey)->size>>1]<<3 ^ (o_4392_aKey)->mem[(o_4392_aKey)->size-1]<<1 ^ (o_4392_aKey)->size)), (compareType)(o_4353/*.*/), (createFuncType)(o_4350/*.*/), (createFuncType)(o_4354/*.*/), (copyFuncType)(o_4356/*.*/)); /* line 210 "../lib/hash.s7i" */ destr_126(o_4393_anElem); } /* line 1 "no_file" */ /* 2615 */ /* line 216 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_4394_update (hashType/*t_154_*ANONYM_TYPE**/ *const o_4395_aHashMap, const const_striType/*t_15_string*/ o_4396_aKey, const const_arrayType/*t_126_*ANONYM_TYPE**/ value_o_4397_anElem) { /* line 217 "../lib/hash.s7i" */ arrayType/*t_126_*ANONYM_TYPE**/ result; /* line 217 "../lib/hash.s7i" */ const_arrayType/*t_126_*ANONYM_TYPE**/ o_4397_anElem; /* line 217 "../lib/hash.s7i" */ o_4397_anElem=create_126(value_o_4397_anElem); /* line 217 "../lib/hash.s7i" */ result=(arrayType/*t_126_*ANONYM_TYPE**/)(((arrayType/*t_126_*ANONYM_TYPE**/)(hshUpdate(*o_4395_aHashMap, (genericType)(o_4396_aKey), (genericType)(create_126(o_4397_anElem)), ((o_4396_aKey)->size==0 ? 0 : ((o_4396_aKey)->mem[0]<<5 ^ (o_4396_aKey)->mem[(o_4396_aKey)->size>>1]<<3 ^ (o_4396_aKey)->mem[(o_4396_aKey)->size-1]<<1 ^ (o_4396_aKey)->size)), (compareType)(o_4353/*.*/), (createFuncType)(o_4350/*.*/), (createFuncType)(o_4354/*.*/))))); /* line 217 "../lib/hash.s7i" */ destr_126(o_4397_anElem); /* line 217 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2616 */ /* declare inline o_4398_for*/ /* declare inline o_4399_for*/ /* declare inline o_4400_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_28_TEST_3*/ o_4401_keys (const const_hashType/*t_154_*ANONYM_TYPE**/ o_4402_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_28_TEST_3*/)((hshKeys(o_4402_aHashMap, (createFuncType)(o_4350/*.*/), (destrFuncType)(o_4351/*.*/)))); } /* line 1 "no_file" */ /* 2617 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_132_*ANONYM_TYPE**/ o_4403_values (const const_hashType/*t_154_*ANONYM_TYPE**/ o_4404_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_132_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_4404_aHashMap, (createFuncType)(o_4354/*.*/), (destrFuncType)(o_4355/*.*/)))); } /* line 1 "no_file" */ /* 2618 */ /* line 61 "../lib/hash.s7i" */ static void destr_154 (const_hashType/*t_154_*ANONYM_TYPE**/ b) /* line 61 "../lib/hash.s7i" */ { /* line 61 "../lib/hash.s7i" */ hshDestr(b, (destrFuncType)(o_4351/*.*/), (destrFuncType)(o_4355/*.*/)); /* line 61 "../lib/hash.s7i" */ } /* line 1 "no_file" */ /* line 283 "../lib/hash.s7i" */ static hashType/*t_154_*ANONYM_TYPE**/ o_4405_flip (const const_hashType/*t_152_string_type_hash*/ o_4406_aHashMap) { /* line 285 "../lib/hash.s7i" */ hashType/*t_154_*ANONYM_TYPE**/ o_4407_inverseHash; /* line 287 "../lib/hash.s7i" */ typeType/*t_7_type*/ o_4408_aKey=typ[0] /* void/t_1_void */; /* line 288 "../lib/hash.s7i" */ striType/*t_15_string*/ o_4409_aValue; /* line 285 "../lib/hash.s7i" */ o_4407_inverseHash=hshEmpty(); /* line 288 "../lib/hash.s7i" */ o_4409_aValue=strEmpty(); /* "" */ /* inline proc o_4345_for */ { /* inline params */ /* line 290 "../lib/hash.s7i" */ striType/*t_15_string*/ *const o_4410_forVar=&(o_4409_aValue); /* line 290 "../lib/hash.s7i" */ typeType/*t_7_type*/ *const o_4411_keyVar=&(o_4408_aKey); /* line 290 "../lib/hash.s7i" */ const const_hashType/*t_152_string_type_hash*/ o_4412_aHashMap=o_4406_aHashMap; /* line 290 "../lib/hash.s7i" */ /* push proc param o_4413_statements */ /* line 290 "../lib/hash.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 258 "../lib/hash.s7i" */ const_hashType hash_1=o_4412_aHashMap; /* line 258 "../lib/hash.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 258 "../lib/hash.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 258 "../lib/hash.s7i" */ const_hashElemType helem_4; /* line 258 "../lib/hash.s7i" */ hashElemListType stack_5=NULL; /* line 258 "../lib/hash.s7i" */ while (counter_2 > 0) { /* line 258 "../lib/hash.s7i" */ helem_4=*table_elem_3; /* line 258 "../lib/hash.s7i" */ while (helem_4 != NULL) { /* line 258 "../lib/hash.s7i" */ if (helem_4->next_greater != NULL) { /* line 258 "../lib/hash.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ strCopy(&((*o_4410_forVar)), helem_4->data.value.striValue); /* line 258 "../lib/hash.s7i" */ (*o_4411_keyVar)=helem_4->key.value.typeValue; /* closure o_4413_statements*/ { /* line 291 "../lib/hash.s7i" */ if (o_4377_in(o_4409_aValue, o_4407_inverseHash)) { /* line 292 "../lib/hash.s7i" */ arrPush(&(*o_4370/*[*/(&(o_4407_inverseHash), o_4409_aValue)), (genericType)(o_4408_aKey)); } else { { /* line 294 "../lib/hash.s7i" */ arrayType/*t_126_*ANONYM_TYPE**/ tmp_1 = (arrayType/*t_126_*ANONYM_TYPE**/)(NULL); /* line 294 "../lib/hash.s7i" */ o_4390/*@:=*/(&(o_4407_inverseHash), o_4409_aValue, (tmp_1=(arrayType/*t_126_*ANONYM_TYPE**/)(arrBaselit((genericType)(o_4408_aKey))))); /* line 294 "../lib/hash.s7i" */ destr_126(tmp_1); } } } /* closure o_4413_statements*/ /* line 258 "../lib/hash.s7i" */ if (helem_4->next_less != NULL) { /* line 258 "../lib/hash.s7i" */ helem_4=helem_4->next_less; /* line 258 "../lib/hash.s7i" */ } else { /* line 258 "../lib/hash.s7i" */ pop_stack(stack_5, helem_4); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ counter_2--; /* line 258 "../lib/hash.s7i" */ table_elem_3++; /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ } /* hsh_for */ /* pop proc param o_4413_statements */ } /* inline proc o_4345_for */ /* line 283 "../lib/hash.s7i" */ strDestr(o_4409_aValue); return o_4407_inverseHash; } /* line 1 "no_file" */ /* 2619 */ /* 2620 */ /* line 58 "../lib/hash.s7i" */ static hashType/*t_135_typeCategoryHash*/ create_135 (const_hashType/*t_135_typeCategoryHash*/ b) /* line 58 "../lib/hash.s7i" */ { /* line 58 "../lib/hash.s7i" */ return hshCreate(b, (createFuncType)(o_3743/*.*/), (destrFuncType)(o_3744/*.*/), (createFuncType)(o_3747/*.*/), (destrFuncType)(o_3748/*.*/)); /* line 58 "../lib/hash.s7i" */ } /* line 1 "no_file" */ hashType/*t_135_typeCategoryHash*/ o_4414_typeCategory; /* 2621 */ /* line 58 "../lib/hash.s7i" */ static hashType/*t_137_type_hash*/ create_137 (const_hashType/*t_137_type_hash*/ b) /* line 58 "../lib/hash.s7i" */ { /* line 58 "../lib/hash.s7i" */ return hshCreate(b, (createFuncType)(o_3800/*.*/), (destrFuncType)(o_3801/*.*/), (createFuncType)(o_3804/*.*/), (destrFuncType)(o_3805/*.*/)); /* line 58 "../lib/hash.s7i" */ } /* line 1 "no_file" */ hashType/*t_137_type_hash*/ o_4415_array_element; /* 2622 */ hashType/*t_137_type_hash*/ o_4416_array_type; /* 2623 */ /* line 58 "../lib/hash.s7i" */ static hashType/*t_148_struct_element_type_hash*/ create_148 (const_hashType/*t_148_struct_element_type_hash*/ b) /* line 58 "../lib/hash.s7i" */ { /* line 58 "../lib/hash.s7i" */ return hshCreate(b, (createFuncType)(o_4217/*.*/), (destrFuncType)(o_4218/*.*/), (createFuncType)(o_4221/*.*/), (destrFuncType)(o_4222/*.*/)); /* line 58 "../lib/hash.s7i" */ } /* line 1 "no_file" */ hashType/*t_148_struct_element_type_hash*/ o_4417_struct_element_type; /* 2624 */ typedef genericType t_155/*t_155_number_element_hash*/; /* 2625 */ /* 2626 */ /* 2627 */ /* 2628 */ /* 2629 */ /* objRefType/t_19_reference */ intfunctype o_4418/*.*/=(intfunctype)(&genericCreate); /* 2630 */ /* objRefType/t_19_reference */ intfunctype o_4419/*.*/=(intfunctype)(&genericDestr); /* 2631 */ /* objRefType/t_19_reference */ intfunctype o_4420/*.*/=(intfunctype)(&genericCpy); /* 2632 */ /* objRefType/t_19_reference */ intfunctype o_4421/*.*/=(intfunctype)(&intCmpGeneric); /* 2633 */ /* objRefType/t_19_reference */ intfunctype o_4422/*.*/=(intfunctype)(&generic_create_128); /* 2634 */ /* objRefType/t_19_reference */ intfunctype o_4423/*.*/=(intfunctype)(&generic_destr_128); /* 2635 */ /* objRefType/t_19_reference */ intfunctype o_4424/*.*/=(intfunctype)(&generic_cpy_128); /* 2636 */ /* 2637 */ /* 2638 */ /* 2639 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4425/*::=*/ (const const_hashType/*t_155_number_element_hash*/ o_4426_dest, const const_hashType/*t_155_number_element_hash*/ o_4427_source) { /* hshCreate implemented with create_155 */ } /* line 1 "no_file" */ /* 2640 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4428_destroy (const const_hashType/*t_155_number_element_hash*/ o_4429_oldHash) { /* hshDestr implemented with destr_155 */ } /* line 1 "no_file" */ /* 2641 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4430/*:=*/ (hashType/*t_155_number_element_hash*/ *const o_4431_dest, const const_hashType/*t_155_number_element_hash*/ o_4432_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_4431_dest), o_4432_source, (createFuncType)(o_4418/*.*/), (destrFuncType)(o_4419/*.*/), (createFuncType)(o_4422/*.*/), (destrFuncType)(o_4423/*.*/)); } /* line 1 "no_file" */ /* 2642 */ hashType/*t_155_number_element_hash*/ o_4433/*.*/; /* 2643 */ hashType/*t_155_number_element_hash*/ o_4434/*.*/; /* 2644 */ /* line 149 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_4435/*[*/ (const const_hashType/*t_155_number_element_hash*/ o_4436_aHashMap, const intType/*t_14_integer*/ *const o_4437_aKey) { /* line 150 "../lib/hash.s7i" */ return (arrayType/*t_128_*ANONYM_TYPE**/)((/*ref_to_value*/ (arrayType/*t_128_*ANONYM_TYPE**/)(hshIdx(o_4436_aHashMap, (genericType)(*o_4437_aKey), (*o_4437_aKey), (compareType)(o_4421/*.*/))))); } /* line 1 "no_file" */ /* 2645 */ /* line 152 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ /*varfunc*/ *o_4438/*[*/ (hashType/*t_155_number_element_hash*/ *const o_4439_aHashMap, const intType/*t_14_integer*/ *const o_4440_aKey) { /* line 153 "../lib/hash.s7i" */ return (arrayType/*t_128_*ANONYM_TYPE**/ *)(&(hshIdxAddr(*o_4439_aHashMap, (genericType)(*o_4440_aKey), (*o_4440_aKey), (compareType)(o_4421/*.*/))->value.arrayValue)); } /* line 1 "no_file" */ /* 2646 */ /* line 161 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_4441/*[*/ (const const_hashType/*t_155_number_element_hash*/ o_4442_aHashMap, const intType/*t_14_integer*/ *const o_4443_aKey, const const_arrayType/*t_128_*ANONYM_TYPE**/ value_o_4444_defaultValue) { /* line 162 "../lib/hash.s7i" */ arrayType/*t_128_*ANONYM_TYPE**/ result; /* line 162 "../lib/hash.s7i" */ const_arrayType/*t_128_*ANONYM_TYPE**/ o_4444_defaultValue; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ o_4444_defaultValue=create_128(value_o_4444_defaultValue); /* line 162 "../lib/hash.s7i" */ result=(arrayType/*t_128_*ANONYM_TYPE**/)((/*ref_to_value*/ (addr_1=hshIdxAddr2(o_4442_aHashMap, (genericType)(*o_4443_aKey), (*o_4443_aKey), (compareType)(o_4421/*.*/)),addr_1!=NULL?addr_1->value.arrayValue:(o_4444_defaultValue)))); /* line 162 "../lib/hash.s7i" */ destr_128(o_4444_defaultValue); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2647 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_4445_in (const intType/*t_14_integer*/ *const o_4446_aKey, const const_hashType/*t_155_number_element_hash*/ o_4447_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_4447_aHashMap, (genericType)(*o_4446_aKey), (*o_4446_aKey), (compareType)(o_4421/*.*/)))); } /* line 1 "no_file" */ /* 2648 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_4448_not (const intType/*t_14_integer*/ *const o_4449_aKey, const const_hashType/*t_155_number_element_hash*/ o_4450_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_4450_aHashMap, (genericType)(*o_4449_aKey), (*o_4449_aKey), (compareType)(o_4421/*.*/))))); } /* line 1 "no_file" */ /* 2649 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4451_incl (hashType/*t_155_number_element_hash*/ *const o_4452_aHashMap, const intType/*t_14_integer*/ *const o_4453_aKey, const const_arrayType/*t_128_*ANONYM_TYPE**/ value_o_4454_anElem) { /* line 189 "../lib/hash.s7i" */ const_arrayType/*t_128_*ANONYM_TYPE**/ o_4454_anElem; /* line 189 "../lib/hash.s7i" */ o_4454_anElem=create_128(value_o_4454_anElem); /* line 191 "../lib/hash.s7i" */ hshIncl(*o_4452_aHashMap, (genericType)(*o_4453_aKey), (genericType)(o_4454_anElem), (*o_4453_aKey), (compareType)(o_4421/*.*/), (createFuncType)(o_4418/*.*/), (createFuncType)(o_4422/*.*/), (copyFuncType)(o_4424/*.*/)); /* line 189 "../lib/hash.s7i" */ destr_128(o_4454_anElem); } /* line 1 "no_file" */ /* 2650 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4455_excl (hashType/*t_155_number_element_hash*/ *const o_4456_aHashMap, const intType/*t_14_integer*/ *const o_4457_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_4456_aHashMap, (genericType)(*o_4457_aKey), (*o_4457_aKey), (compareType)(o_4421/*.*/), (destrFuncType)(o_4419/*.*/), (destrFuncType)(o_4423/*.*/)); } /* line 1 "no_file" */ /* 2651 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4458/*@:=*/ (hashType/*t_155_number_element_hash*/ *const o_4459_aHashMap, const intType/*t_14_integer*/ *const o_4460_aKey, const const_arrayType/*t_128_*ANONYM_TYPE**/ value_o_4461_anElem) { /* line 210 "../lib/hash.s7i" */ const_arrayType/*t_128_*ANONYM_TYPE**/ o_4461_anElem; /* line 210 "../lib/hash.s7i" */ o_4461_anElem=create_128(value_o_4461_anElem); /* line 212 "../lib/hash.s7i" */ hshIncl(*o_4459_aHashMap, (genericType)(*o_4460_aKey), (genericType)(o_4461_anElem), (*o_4460_aKey), (compareType)(o_4421/*.*/), (createFuncType)(o_4418/*.*/), (createFuncType)(o_4422/*.*/), (copyFuncType)(o_4424/*.*/)); /* line 210 "../lib/hash.s7i" */ destr_128(o_4461_anElem); } /* line 1 "no_file" */ /* 2652 */ /* line 216 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_4462_update (hashType/*t_155_number_element_hash*/ *const o_4463_aHashMap, const intType/*t_14_integer*/ *const o_4464_aKey, const const_arrayType/*t_128_*ANONYM_TYPE**/ value_o_4465_anElem) { /* line 217 "../lib/hash.s7i" */ arrayType/*t_128_*ANONYM_TYPE**/ result; /* line 217 "../lib/hash.s7i" */ const_arrayType/*t_128_*ANONYM_TYPE**/ o_4465_anElem; /* line 217 "../lib/hash.s7i" */ o_4465_anElem=create_128(value_o_4465_anElem); /* line 217 "../lib/hash.s7i" */ result=(arrayType/*t_128_*ANONYM_TYPE**/)(((arrayType/*t_128_*ANONYM_TYPE**/)(hshUpdate(*o_4463_aHashMap, (genericType)(*o_4464_aKey), (genericType)(create_128(o_4465_anElem)), (*o_4464_aKey), (compareType)(o_4421/*.*/), (createFuncType)(o_4418/*.*/), (createFuncType)(o_4422/*.*/))))); /* line 217 "../lib/hash.s7i" */ destr_128(o_4465_anElem); /* line 217 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2653 */ /* declare inline o_4466_for*/ /* declare inline o_4467_for*/ /* declare inline o_4468_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_27_TEST_1*/ o_4469_keys (const const_hashType/*t_155_number_element_hash*/ o_4470_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_27_TEST_1*/)((hshKeys(o_4470_aHashMap, (createFuncType)(o_4418/*.*/), (destrFuncType)(o_4419/*.*/)))); } /* line 1 "no_file" */ /* 2654 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_145_*ANONYM_TYPE**/ o_4471_values (const const_hashType/*t_155_number_element_hash*/ o_4472_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_145_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_4472_aHashMap, (createFuncType)(o_4422/*.*/), (destrFuncType)(o_4423/*.*/)))); } /* line 1 "no_file" */ /* 2655 */ typedef genericType t_156/*t_156_element_number_hash*/; /* 2656 */ /* 2657 */ /* 2658 */ /* 2659 */ /* 2660 */ /* objRefType/t_19_reference */ intfunctype o_4473/*.*/=(intfunctype)(&ptrCreateGeneric); /* 2661 */ /* objRefType/t_19_reference */ intfunctype o_4474/*.*/=(intfunctype)(&genericDestr); /* 2662 */ /* objRefType/t_19_reference */ intfunctype o_4475/*.*/=(intfunctype)(&ptrCpyGeneric); /* 2663 */ /* objRefType/t_19_reference */ intfunctype o_4476/*.*/=(intfunctype)(&ptrCmpGeneric); /* 2664 */ /* objRefType/t_19_reference */ intfunctype o_4477/*.*/=(intfunctype)(&genericCreate); /* 2665 */ /* objRefType/t_19_reference */ intfunctype o_4478/*.*/=(intfunctype)(&genericDestr); /* 2666 */ /* objRefType/t_19_reference */ intfunctype o_4479/*.*/=(intfunctype)(&genericCpy); /* 2667 */ /* 2668 */ /* 2669 */ /* 2670 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4480/*::=*/ (const const_hashType/*t_156_element_number_hash*/ o_4481_dest, const const_hashType/*t_156_element_number_hash*/ o_4482_source) { /* hshCreate implemented with create_156 */ } /* line 1 "no_file" */ /* 2671 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4483_destroy (const const_hashType/*t_156_element_number_hash*/ o_4484_oldHash) { /* hshDestr implemented with destr_156 */ } /* line 1 "no_file" */ /* 2672 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4485/*:=*/ (hashType/*t_156_element_number_hash*/ *const o_4486_dest, const const_hashType/*t_156_element_number_hash*/ o_4487_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_4486_dest), o_4487_source, (createFuncType)(o_4473/*.*/), (destrFuncType)(o_4474/*.*/), (createFuncType)(o_4477/*.*/), (destrFuncType)(o_4478/*.*/)); } /* line 1 "no_file" */ /* 2673 */ typedef genericType t_157/*t_157_*ANONYM_TYPE**/; /* 2674 */ /* 2675 */ /* 2676 */ /* 2677 */ /* 2678 */ /* objRefType/t_157_*ANONYM_TYPE* */ objRefType o_4488/*.*/=(objRefType)(NULL); /* 2679 */ /* objRefType/t_157_*ANONYM_TYPE* */ objRefType o_4489/*.*/=(objRefType)(NULL); /* 2680 */ hashType/*t_156_element_number_hash*/ o_4490/*.*/; /* 2681 */ hashType/*t_156_element_number_hash*/ o_4491/*.*/; /* 2682 */ /* line 149 "../lib/hash.s7i" */ static intType/*t_14_integer*/ o_4492/*[*/ (const const_hashType/*t_156_element_number_hash*/ o_4493_aHashMap, const objRefType/*t_19_reference*/ *const o_4494_aKey) { /* line 150 "../lib/hash.s7i" */ return (intType/*t_14_integer*/)(((intType/*t_14_integer*/)(hshIdx(o_4493_aHashMap, (genericType)(*o_4494_aKey), (intType)(((memSizeType)(*o_4494_aKey)) >> 6), (compareType)(o_4476/*.*/))))); } /* line 1 "no_file" */ /* 2683 */ /* line 152 "../lib/hash.s7i" */ static intType/*t_14_integer*/ /*varfunc*/ *o_4495/*[*/ (hashType/*t_156_element_number_hash*/ *const o_4496_aHashMap, const objRefType/*t_19_reference*/ *const o_4497_aKey) { /* line 153 "../lib/hash.s7i" */ return (intType/*t_14_integer*/ *)(&(hshIdxAddr(*o_4496_aHashMap, (genericType)(*o_4497_aKey), (intType)(((memSizeType)(*o_4497_aKey)) >> 6), (compareType)(o_4476/*.*/))->value.intValue)); } /* line 1 "no_file" */ /* 2684 */ /* line 161 "../lib/hash.s7i" */ static intType/*t_14_integer*/ o_4498/*[*/ (const const_hashType/*t_156_element_number_hash*/ o_4499_aHashMap, const objRefType/*t_19_reference*/ *const o_4500_aKey, const intType/*t_14_integer*/ o_4501_defaultValue) { /* line 162 "../lib/hash.s7i" */ intType/*t_14_integer*/ result; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ result=(intType/*t_14_integer*/)(((addr_1=hshIdxAddr2(o_4499_aHashMap, (genericType)(*o_4500_aKey), (intType)(((memSizeType)(*o_4500_aKey)) >> 6), (compareType)(o_4476/*.*/)),addr_1!=NULL?addr_1->value.intValue:(o_4501_defaultValue)))); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2685 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_4502_in (const objRefType/*t_19_reference*/ *const o_4503_aKey, const const_hashType/*t_156_element_number_hash*/ o_4504_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_4504_aHashMap, (genericType)(*o_4503_aKey), (intType)(((memSizeType)(*o_4503_aKey)) >> 6), (compareType)(o_4476/*.*/)))); } /* line 1 "no_file" */ /* 2686 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_4505_not (const objRefType/*t_19_reference*/ *const o_4506_aKey, const const_hashType/*t_156_element_number_hash*/ o_4507_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_4507_aHashMap, (genericType)(*o_4506_aKey), (intType)(((memSizeType)(*o_4506_aKey)) >> 6), (compareType)(o_4476/*.*/))))); } /* line 1 "no_file" */ /* 2687 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4508_incl (hashType/*t_156_element_number_hash*/ *const o_4509_aHashMap, const objRefType/*t_19_reference*/ *const o_4510_aKey, const intType/*t_14_integer*/ o_4511_anElem) { /* line 191 "../lib/hash.s7i" */ hshIncl(*o_4509_aHashMap, (genericType)(*o_4510_aKey), (genericType)(o_4511_anElem), (intType)(((memSizeType)(*o_4510_aKey)) >> 6), (compareType)(o_4476/*.*/), (createFuncType)(o_4473/*.*/), (createFuncType)(o_4477/*.*/), (copyFuncType)(o_4479/*.*/)); } /* line 1 "no_file" */ /* 2688 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4512_excl (hashType/*t_156_element_number_hash*/ *const o_4513_aHashMap, const objRefType/*t_19_reference*/ *const o_4514_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_4513_aHashMap, (genericType)(*o_4514_aKey), (intType)(((memSizeType)(*o_4514_aKey)) >> 6), (compareType)(o_4476/*.*/), (destrFuncType)(o_4474/*.*/), (destrFuncType)(o_4478/*.*/)); } /* line 1 "no_file" */ /* 2689 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4515/*@:=*/ (hashType/*t_156_element_number_hash*/ *const o_4516_aHashMap, const objRefType/*t_19_reference*/ *const o_4517_aKey, const intType/*t_14_integer*/ o_4518_anElem) { /* line 212 "../lib/hash.s7i" */ hshIncl(*o_4516_aHashMap, (genericType)(*o_4517_aKey), (genericType)(o_4518_anElem), (intType)(((memSizeType)(*o_4517_aKey)) >> 6), (compareType)(o_4476/*.*/), (createFuncType)(o_4473/*.*/), (createFuncType)(o_4477/*.*/), (copyFuncType)(o_4479/*.*/)); } /* line 1 "no_file" */ /* 2690 */ /* line 216 "../lib/hash.s7i" */ static intType/*t_14_integer*/ o_4519_update (hashType/*t_156_element_number_hash*/ *const o_4520_aHashMap, const objRefType/*t_19_reference*/ *const o_4521_aKey, const intType/*t_14_integer*/ o_4522_anElem) { /* line 217 "../lib/hash.s7i" */ return (intType/*t_14_integer*/)(((intType/*t_14_integer*/)(hshUpdate(*o_4520_aHashMap, (genericType)(*o_4521_aKey), (genericType)(o_4522_anElem), (intType)(((memSizeType)(*o_4521_aKey)) >> 6), (compareType)(o_4476/*.*/), (createFuncType)(o_4473/*.*/), (createFuncType)(o_4477/*.*/))))); } /* line 1 "no_file" */ /* 2691 */ /* declare inline o_4523_for*/ /* declare inline o_4524_for*/ /* declare inline o_4525_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_4526_keys (const const_hashType/*t_156_element_number_hash*/ o_4527_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_128_*ANONYM_TYPE**/)((hshKeys(o_4527_aHashMap, (createFuncType)(o_4473/*.*/), (destrFuncType)(o_4474/*.*/)))); } /* line 1 "no_file" */ /* 2692 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_27_TEST_1*/ o_4528_values (const const_hashType/*t_156_element_number_hash*/ o_4529_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_27_TEST_1*/)((/*ref_to_value*/ hshValues(o_4529_aHashMap, (createFuncType)(o_4477/*.*/), (destrFuncType)(o_4478/*.*/)))); } /* line 1 "no_file" */ /* 2693 */ /* line 61 "../lib/hash.s7i" */ static void destr_155 (const_hashType/*t_155_number_element_hash*/ b) /* line 61 "../lib/hash.s7i" */ { /* line 61 "../lib/hash.s7i" */ hshDestr(b, (destrFuncType)(o_4419/*.*/), (destrFuncType)(o_4423/*.*/)); /* line 61 "../lib/hash.s7i" */ } /* line 1 "no_file" */ /* line 283 "../lib/hash.s7i" */ static hashType/*t_155_number_element_hash*/ o_4530_flip (const const_hashType/*t_156_element_number_hash*/ o_4531_aHashMap) { /* line 285 "../lib/hash.s7i" */ hashType/*t_155_number_element_hash*/ o_4532_inverseHash; /* line 287 "../lib/hash.s7i" */ objRefType/*t_19_reference*/ o_4533_aKey=NULL; /* line 288 "../lib/hash.s7i" */ intType/*t_14_integer*/ o_4534_aValue=0; /* line 285 "../lib/hash.s7i" */ o_4532_inverseHash=hshEmpty(); /* inline proc o_4525_for */ { /* inline params */ /* line 290 "../lib/hash.s7i" */ intType/*t_14_integer*/ *const o_4535_forVar=&(o_4534_aValue); /* line 290 "../lib/hash.s7i" */ objRefType/*t_19_reference*/ *const o_4536_keyVar=&(o_4533_aKey); /* line 290 "../lib/hash.s7i" */ const const_hashType/*t_156_element_number_hash*/ o_4537_aHashMap=o_4531_aHashMap; /* line 290 "../lib/hash.s7i" */ /* push proc param o_4538_statements */ /* line 290 "../lib/hash.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 258 "../lib/hash.s7i" */ const_hashType hash_1=o_4537_aHashMap; /* line 258 "../lib/hash.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 258 "../lib/hash.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 258 "../lib/hash.s7i" */ const_hashElemType helem_4; /* line 258 "../lib/hash.s7i" */ hashElemListType stack_5=NULL; /* line 258 "../lib/hash.s7i" */ while (counter_2 > 0) { /* line 258 "../lib/hash.s7i" */ helem_4=*table_elem_3; /* line 258 "../lib/hash.s7i" */ while (helem_4 != NULL) { /* line 258 "../lib/hash.s7i" */ if (helem_4->next_greater != NULL) { /* line 258 "../lib/hash.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ (*o_4535_forVar)=helem_4->data.value.intValue; /* line 258 "../lib/hash.s7i" */ (*o_4536_keyVar)=helem_4->key.value.objRefValue; /* closure o_4538_statements*/ { /* line 291 "../lib/hash.s7i" */ if (o_4445_in(&(o_4534_aValue), o_4532_inverseHash)) { /* line 292 "../lib/hash.s7i" */ arrPush(&(*o_4438/*[*/(&(o_4532_inverseHash), &(o_4534_aValue))), (genericType)(o_4533_aKey)); } else { { /* line 294 "../lib/hash.s7i" */ arrayType/*t_128_*ANONYM_TYPE**/ tmp_1 = (arrayType/*t_128_*ANONYM_TYPE**/)(NULL); /* line 294 "../lib/hash.s7i" */ o_4458/*@:=*/(&(o_4532_inverseHash), &(o_4534_aValue), (tmp_1=(arrayType/*t_128_*ANONYM_TYPE**/)(arrBaselit((genericType)(o_4533_aKey))))); /* line 294 "../lib/hash.s7i" */ destr_128(tmp_1); } } } /* closure o_4538_statements*/ /* line 258 "../lib/hash.s7i" */ if (helem_4->next_less != NULL) { /* line 258 "../lib/hash.s7i" */ helem_4=helem_4->next_less; /* line 258 "../lib/hash.s7i" */ } else { /* line 258 "../lib/hash.s7i" */ pop_stack(stack_5, helem_4); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ counter_2--; /* line 258 "../lib/hash.s7i" */ table_elem_3++; /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ } /* hsh_for */ /* pop proc param o_4538_statements */ } /* inline proc o_4525_for */ return o_4532_inverseHash; } /* line 1 "no_file" */ /* 2694 */ typedef genericType t_158/*t_158_struct_elements_hash*/; /* 2695 */ /* 2696 */ /* 2697 */ /* 2698 */ /* 2699 */ /* objRefType/t_19_reference */ intfunctype o_4539/*.*/=(intfunctype)(&ptrCreateGeneric); /* 2700 */ /* objRefType/t_19_reference */ intfunctype o_4540/*.*/=(intfunctype)(&genericDestr); /* 2701 */ /* objRefType/t_19_reference */ intfunctype o_4541/*.*/=(intfunctype)(&ptrCpyGeneric); /* 2702 */ /* objRefType/t_19_reference */ intfunctype o_4542/*.*/=(intfunctype)(&typCmpGeneric); /* 2703 */ /* line 58 "../lib/hash.s7i" */ static hashType/*t_156_element_number_hash*/ create_156 (const_hashType/*t_156_element_number_hash*/ b) /* line 58 "../lib/hash.s7i" */ { /* line 58 "../lib/hash.s7i" */ return hshCreate(b, (createFuncType)(o_4473/*.*/), (destrFuncType)(o_4474/*.*/), (createFuncType)(o_4477/*.*/), (destrFuncType)(o_4478/*.*/)); /* line 58 "../lib/hash.s7i" */ } /* line 1 "no_file" */ static genericType generic_create_156 (const genericType b) { rtlObjectType result; result.value.hashValue=create_156(((const_rtlObjectType *) &b)->value.hashValue); return result.value.genericValue; } /* objRefType/t_19_reference */ intfunctype o_4543/*.*/=(intfunctype)(&generic_create_156); /* 2704 */ /* line 61 "../lib/hash.s7i" */ static void destr_156 (const_hashType/*t_156_element_number_hash*/ b) /* line 61 "../lib/hash.s7i" */ { /* line 61 "../lib/hash.s7i" */ hshDestr(b, (destrFuncType)(o_4474/*.*/), (destrFuncType)(o_4478/*.*/)); /* line 61 "../lib/hash.s7i" */ } /* line 1 "no_file" */ static void generic_destr_156 (const genericType b) { destr_156(((const_rtlObjectType *) &b)->value.hashValue); } /* objRefType/t_19_reference */ intfunctype o_4544/*.*/=(intfunctype)(&generic_destr_156); /* 2705 */ /* line 63 "../lib/hash.s7i" */ static void cpy_156 (hashType/*t_156_element_number_hash*/ *a, hashType/*t_156_element_number_hash*/ b) /* line 63 "../lib/hash.s7i" */ { /* line 63 "../lib/hash.s7i" */ hshCpy(a, b, (createFuncType)(o_4473/*.*/), (destrFuncType)(o_4474/*.*/), (createFuncType)(o_4477/*.*/), (destrFuncType)(o_4478/*.*/)); /* line 63 "../lib/hash.s7i" */ } /* line 1 "no_file" */ static void generic_cpy_156 (genericType *a, const genericType b) { cpy_156((hashType/*t_156_element_number_hash*/ *)(&(((const_rtlObjectType *) a)->value.hashValue)), (hashType/*t_156_element_number_hash*/)(((const_rtlObjectType *) &b)->value.hashValue)); } /* objRefType/t_19_reference */ intfunctype o_4545/*.*/=(intfunctype)(&generic_cpy_156); /* 2706 */ /* 2707 */ /* 2708 */ /* 2709 */ typedef genericType t_159/*t_159_*ANONYM_TYPE**/; /* 2710 */ typedef genericType t_160/*t_160_*ANONYM_TYPE**/; /* 2711 */ /* 2712 */ /* 2713 */ /* 2714 */ /* ACTION ARR_GEN for type arrayType/t_160_*ANONYM_TYPE* element is hashType/t_156_element_number_hash */ /* 2715 */ /* 2716 */ /* 2717 */ /* 2718 */ /* 2719 */ /* 2720 */ /* ACTION ARR_IDX for type arrayType/t_159_*ANONYM_TYPE* element is hashType/t_156_element_number_hash */ /* 2721 */ /* ACTION ARR_IDX for type arrayType/t_159_*ANONYM_TYPE* element is hashType/t_156_element_number_hash */ /* 2722 */ /* line 163 "../lib/array.s7i" */ static arrayType times_159 (intType n, const const_hashType/*t_156_element_number_hash*/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.hashValue=create_156(b); /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 2723 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_159_*ANONYM_TYPE**/ create_159 (const_arrayType/*t_159_*ANONYM_TYPE**/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_159_*ANONYM_TYPE**/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_159_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.hashValue=create_156(b->arr[i].value.hashValue); /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_159 (const_arrayType/*t_159_*ANONYM_TYPE**/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ destr_156(b->arr[i].value.hashValue); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_160 (const_arrayType/*t_160_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ destr_156(b->arr[i].value.hashValue); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_160_*ANONYM_TYPE**/ create_160 (const_arrayType/*t_160_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_160_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_160_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.hashValue=create_156(b->arr[i].value.hashValue); /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_159_*ANONYM_TYPE**/ o_4546_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_4547_indexRange, const const_hashType/*t_156_element_number_hash*/ value_o_4548_element) { /* line 183 "../lib/array.s7i" */ const_hashType/*t_156_element_number_hash*/ o_4548_element; /* line 186 "../lib/array.s7i" */ arrayType/*t_159_*ANONYM_TYPE**/ o_4549_anArray; /* line 183 "../lib/array.s7i" */ o_4548_element=create_156(value_o_4548_element); /* line 186 "../lib/array.s7i" */ o_4549_anArray=create_159(arr[93]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_4549_anArray; /* line 188 "../lib/array.s7i" */ o_4549_anArray=times_159(((((structType)(o_4547_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_4547_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_4548_element); /* line 188 "../lib/array.s7i" */ destr_159(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_4549_anArray; /* line 189 "../lib/array.s7i" */ o_4549_anArray=arrArrlit2(((structType)(o_4547_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_160(/*arrConv()*/o_4549_anArray)); /* line 189 "../lib/array.s7i" */ destr_159(old_array); } /* line 183 "../lib/array.s7i" */ destr_156(o_4548_element); return o_4549_anArray; } /* line 1 "no_file" */ /* 2724 */ /* declare inline o_4550_for*/ /* declare inline o_4551_for*/ /* declare inline o_4552_for*/ /* declare inline o_4553_for*/ /* declare inline o_4554_for*/ /* declare inline o_4555_for*/ /* declare inline o_4556_for*/ /* declare inline o_4557_for*/ /* declare inline o_4558_for*/ /* line 329 "../lib/array.s7i" */ static hashType/*t_156_element_number_hash*/ o_4559_rand (const const_arrayType/*t_159_*ANONYM_TYPE**/ o_4560_arr) { /* line 330 "../lib/array.s7i" */ hashType/*t_156_element_number_hash*/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(hashType/*t_156_element_number_hash*/)((/*ref_to_value*/ (o_4560_arr)->arr[idx_1=intRand((o_4560_arr)->min_position, (o_4560_arr)->max_position),(idxChk(idx_1 < (o_4560_arr)->min_position || idx_1 > (o_4560_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_4560_arr)->min_position)].value.hashValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 2725 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_4561_insert (arrayType/*t_159_*ANONYM_TYPE**/ *const o_4562_arr, const intType/*t_14_integer*/ o_4563_index, const const_hashType/*t_156_element_number_hash*/ value_o_4564_element) { /* line 332 "../lib/array.s7i" */ const_hashType/*t_156_element_number_hash*/ o_4564_element; /* line 332 "../lib/array.s7i" */ o_4564_element=create_156(value_o_4564_element); /* line 334 "../lib/array.s7i" */ if (((o_4563_index) >= ((*o_4562_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_4563_index) <= (((*o_4562_arr)->max_position)+1))) { { /* line 335 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 335 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_4562_arr; /* line 335 "../lib/array.s7i" */ *o_4562_arr=arrCat(arrCat((tmp_4=arrHead(*o_4562_arr, (o_4563_index)-1), create_159(tmp_4)), arrBaselit((genericType)(create_156(o_4564_element)))), (tmp_7=arrTail(*o_4562_arr, o_4563_index), create_159(tmp_7))); /* line 335 "../lib/array.s7i" */ destr_159(old_array); } /* line 335 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 335 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } /* line 332 "../lib/array.s7i" */ destr_156(o_4564_element); } /* line 1 "no_file" */ /* 2726 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4565/*::=*/ (const const_hashType/*t_158_struct_elements_hash*/ o_4566_dest, const const_hashType/*t_158_struct_elements_hash*/ o_4567_source) { /* hshCreate implemented with create_158 */ } /* line 1 "no_file" */ /* 2727 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4568_destroy (const const_hashType/*t_158_struct_elements_hash*/ o_4569_oldHash) { /* hshDestr implemented with destr_158 */ } /* line 1 "no_file" */ /* 2728 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4570/*:=*/ (hashType/*t_158_struct_elements_hash*/ *const o_4571_dest, const const_hashType/*t_158_struct_elements_hash*/ o_4572_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_4571_dest), o_4572_source, (createFuncType)(o_4539/*.*/), (destrFuncType)(o_4540/*.*/), (createFuncType)(o_4543/*.*/), (destrFuncType)(o_4544/*.*/)); } /* line 1 "no_file" */ /* 2729 */ typedef genericType t_161/*t_161_*ANONYM_TYPE**/; /* 2730 */ /* 2731 */ /* 2732 */ /* 2733 */ /* 2734 */ /* objRefType/t_161_*ANONYM_TYPE* */ objRefType o_4573/*.*/=(objRefType)(NULL); /* 2735 */ /* objRefType/t_161_*ANONYM_TYPE* */ objRefType o_4574/*.*/=(objRefType)(NULL); /* 2736 */ hashType/*t_158_struct_elements_hash*/ o_4575/*.*/; /* 2737 */ hashType/*t_158_struct_elements_hash*/ o_4576/*.*/; /* 2738 */ /* line 149 "../lib/hash.s7i" */ static hashType/*t_156_element_number_hash*/ o_4577/*[*/ (const const_hashType/*t_158_struct_elements_hash*/ o_4578_aHashMap, const typeType/*t_7_type*/ *const o_4579_aKey) { /* line 150 "../lib/hash.s7i" */ return (hashType/*t_156_element_number_hash*/)((/*ref_to_value*/ (hashType/*t_156_element_number_hash*/)(hshIdx(o_4578_aHashMap, (genericType)(*o_4579_aKey), (intType)(((memSizeType)(*o_4579_aKey)) >> 6), (compareType)(o_4542/*.*/))))); } /* line 1 "no_file" */ /* 2739 */ /* line 152 "../lib/hash.s7i" */ static hashType/*t_156_element_number_hash*/ /*varfunc*/ *o_4580/*[*/ (hashType/*t_158_struct_elements_hash*/ *const o_4581_aHashMap, const typeType/*t_7_type*/ *const o_4582_aKey) { /* line 153 "../lib/hash.s7i" */ return (hashType/*t_156_element_number_hash*/ *)(&(hshIdxAddr(*o_4581_aHashMap, (genericType)(*o_4582_aKey), (intType)(((memSizeType)(*o_4582_aKey)) >> 6), (compareType)(o_4542/*.*/))->value.hashValue)); } /* line 1 "no_file" */ /* 2740 */ /* line 161 "../lib/hash.s7i" */ static hashType/*t_156_element_number_hash*/ o_4583/*[*/ (const const_hashType/*t_158_struct_elements_hash*/ o_4584_aHashMap, const typeType/*t_7_type*/ *const o_4585_aKey, const const_hashType/*t_156_element_number_hash*/ value_o_4586_defaultValue) { /* line 162 "../lib/hash.s7i" */ hashType/*t_156_element_number_hash*/ result; /* line 162 "../lib/hash.s7i" */ const_hashType/*t_156_element_number_hash*/ o_4586_defaultValue; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ o_4586_defaultValue=create_156(value_o_4586_defaultValue); /* line 162 "../lib/hash.s7i" */ result=(hashType/*t_156_element_number_hash*/)((/*ref_to_value*/ (addr_1=hshIdxAddr2(o_4584_aHashMap, (genericType)(*o_4585_aKey), (intType)(((memSizeType)(*o_4585_aKey)) >> 6), (compareType)(o_4542/*.*/)),addr_1!=NULL?addr_1->value.hashValue:(o_4586_defaultValue)))); /* line 162 "../lib/hash.s7i" */ destr_156(o_4586_defaultValue); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2741 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_4587_in (const typeType/*t_7_type*/ *const o_4588_aKey, const const_hashType/*t_158_struct_elements_hash*/ o_4589_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_4589_aHashMap, (genericType)(*o_4588_aKey), (intType)(((memSizeType)(*o_4588_aKey)) >> 6), (compareType)(o_4542/*.*/)))); } /* line 1 "no_file" */ /* 2742 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_4590_not (const typeType/*t_7_type*/ *const o_4591_aKey, const const_hashType/*t_158_struct_elements_hash*/ o_4592_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_4592_aHashMap, (genericType)(*o_4591_aKey), (intType)(((memSizeType)(*o_4591_aKey)) >> 6), (compareType)(o_4542/*.*/))))); } /* line 1 "no_file" */ /* 2743 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4593_incl (hashType/*t_158_struct_elements_hash*/ *const o_4594_aHashMap, const typeType/*t_7_type*/ *const o_4595_aKey, const const_hashType/*t_156_element_number_hash*/ value_o_4596_anElem) { /* line 189 "../lib/hash.s7i" */ const_hashType/*t_156_element_number_hash*/ o_4596_anElem; /* line 189 "../lib/hash.s7i" */ o_4596_anElem=create_156(value_o_4596_anElem); /* line 191 "../lib/hash.s7i" */ hshIncl(*o_4594_aHashMap, (genericType)(*o_4595_aKey), (genericType)(o_4596_anElem), (intType)(((memSizeType)(*o_4595_aKey)) >> 6), (compareType)(o_4542/*.*/), (createFuncType)(o_4539/*.*/), (createFuncType)(o_4543/*.*/), (copyFuncType)(o_4545/*.*/)); /* line 189 "../lib/hash.s7i" */ destr_156(o_4596_anElem); } /* line 1 "no_file" */ /* 2744 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4597_excl (hashType/*t_158_struct_elements_hash*/ *const o_4598_aHashMap, const typeType/*t_7_type*/ *const o_4599_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_4598_aHashMap, (genericType)(*o_4599_aKey), (intType)(((memSizeType)(*o_4599_aKey)) >> 6), (compareType)(o_4542/*.*/), (destrFuncType)(o_4540/*.*/), (destrFuncType)(o_4544/*.*/)); } /* line 1 "no_file" */ /* 2745 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4600/*@:=*/ (hashType/*t_158_struct_elements_hash*/ *const o_4601_aHashMap, const typeType/*t_7_type*/ *const o_4602_aKey, const const_hashType/*t_156_element_number_hash*/ value_o_4603_anElem) { /* line 210 "../lib/hash.s7i" */ const_hashType/*t_156_element_number_hash*/ o_4603_anElem; /* line 210 "../lib/hash.s7i" */ o_4603_anElem=create_156(value_o_4603_anElem); /* line 212 "../lib/hash.s7i" */ hshIncl(*o_4601_aHashMap, (genericType)(*o_4602_aKey), (genericType)(o_4603_anElem), (intType)(((memSizeType)(*o_4602_aKey)) >> 6), (compareType)(o_4542/*.*/), (createFuncType)(o_4539/*.*/), (createFuncType)(o_4543/*.*/), (copyFuncType)(o_4545/*.*/)); /* line 210 "../lib/hash.s7i" */ destr_156(o_4603_anElem); } /* line 1 "no_file" */ /* 2746 */ /* line 216 "../lib/hash.s7i" */ static hashType/*t_156_element_number_hash*/ o_4604_update (hashType/*t_158_struct_elements_hash*/ *const o_4605_aHashMap, const typeType/*t_7_type*/ *const o_4606_aKey, const const_hashType/*t_156_element_number_hash*/ value_o_4607_anElem) { /* line 217 "../lib/hash.s7i" */ hashType/*t_156_element_number_hash*/ result; /* line 217 "../lib/hash.s7i" */ const_hashType/*t_156_element_number_hash*/ o_4607_anElem; /* line 217 "../lib/hash.s7i" */ o_4607_anElem=create_156(value_o_4607_anElem); /* line 217 "../lib/hash.s7i" */ result=(hashType/*t_156_element_number_hash*/)(((hashType/*t_156_element_number_hash*/)(hshUpdate(*o_4605_aHashMap, (genericType)(*o_4606_aKey), (genericType)(create_156(o_4607_anElem)), (intType)(((memSizeType)(*o_4606_aKey)) >> 6), (compareType)(o_4542/*.*/), (createFuncType)(o_4539/*.*/), (createFuncType)(o_4543/*.*/))))); /* line 217 "../lib/hash.s7i" */ destr_156(o_4607_anElem); /* line 217 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2747 */ /* declare inline o_4608_for*/ /* declare inline o_4609_for*/ /* declare inline o_4610_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_4611_keys (const const_hashType/*t_158_struct_elements_hash*/ o_4612_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_126_*ANONYM_TYPE**/)((hshKeys(o_4612_aHashMap, (createFuncType)(o_4539/*.*/), (destrFuncType)(o_4540/*.*/)))); } /* line 1 "no_file" */ /* 2748 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_159_*ANONYM_TYPE**/ o_4613_values (const const_hashType/*t_158_struct_elements_hash*/ o_4614_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_159_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_4614_aHashMap, (createFuncType)(o_4543/*.*/), (destrFuncType)(o_4544/*.*/)))); } /* line 1 "no_file" */ /* 2749 */ typedef genericType t_162/*t_162_boolean_obj_hash*/; /* 2750 */ /* 2751 */ /* 2752 */ /* 2753 */ /* 2754 */ /* objRefType/t_19_reference */ intfunctype o_4615/*.*/=(intfunctype)(&ptrCreateGeneric); /* 2755 */ /* objRefType/t_19_reference */ intfunctype o_4616/*.*/=(intfunctype)(&genericDestr); /* 2756 */ /* objRefType/t_19_reference */ intfunctype o_4617/*.*/=(intfunctype)(&ptrCpyGeneric); /* 2757 */ /* objRefType/t_19_reference */ intfunctype o_4618/*.*/=(intfunctype)(&ptrCmpGeneric); /* 2758 */ /* objRefType/t_19_reference */ intfunctype o_4619/*.*/=(intfunctype)(&genericCreate); /* 2759 */ /* objRefType/t_19_reference */ intfunctype o_4620/*.*/=(intfunctype)(&genericDestr); /* 2760 */ /* objRefType/t_19_reference */ intfunctype o_4621/*.*/=(intfunctype)(&genericCpy); /* 2761 */ /* 2762 */ /* 2763 */ /* 2764 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4622/*::=*/ (const const_hashType/*t_162_boolean_obj_hash*/ o_4623_dest, const const_hashType/*t_162_boolean_obj_hash*/ o_4624_source) { /* hshCreate implemented with create_162 */ } /* line 1 "no_file" */ /* 2765 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4625_destroy (const const_hashType/*t_162_boolean_obj_hash*/ o_4626_oldHash) { /* hshDestr implemented with destr_162 */ } /* line 1 "no_file" */ /* 2766 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4627/*:=*/ (hashType/*t_162_boolean_obj_hash*/ *const o_4628_dest, const const_hashType/*t_162_boolean_obj_hash*/ o_4629_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_4628_dest), o_4629_source, (createFuncType)(o_4615/*.*/), (destrFuncType)(o_4616/*.*/), (createFuncType)(o_4619/*.*/), (destrFuncType)(o_4620/*.*/)); } /* line 1 "no_file" */ /* 2767 */ hashType/*t_162_boolean_obj_hash*/ o_4630/*.*/; /* 2768 */ hashType/*t_162_boolean_obj_hash*/ o_4631/*.*/; /* 2769 */ /* line 149 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_4632/*[*/ (const const_hashType/*t_162_boolean_obj_hash*/ o_4633_aHashMap, const objRefType/*t_19_reference*/ *const o_4634_aKey) { /* line 150 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)(((boolType/*t_13_boolean*/)(hshIdx(o_4633_aHashMap, (genericType)(*o_4634_aKey), (intType)(((memSizeType)(*o_4634_aKey)) >> 6), (compareType)(o_4618/*.*/))))); } /* line 1 "no_file" */ /* 2770 */ /* line 152 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ /*varfunc*/ *o_4635/*[*/ (hashType/*t_162_boolean_obj_hash*/ *const o_4636_aHashMap, const objRefType/*t_19_reference*/ *const o_4637_aKey) { /* line 153 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/ *)(&(hshIdxAddr(*o_4636_aHashMap, (genericType)(*o_4637_aKey), (intType)(((memSizeType)(*o_4637_aKey)) >> 6), (compareType)(o_4618/*.*/))->value.boolValue)); } /* line 1 "no_file" */ /* 2771 */ /* line 161 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_4638/*[*/ (const const_hashType/*t_162_boolean_obj_hash*/ o_4639_aHashMap, const objRefType/*t_19_reference*/ *const o_4640_aKey, const boolType/*t_13_boolean*/ o_4641_defaultValue) { /* line 162 "../lib/hash.s7i" */ boolType/*t_13_boolean*/ result; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ result=(boolType/*t_13_boolean*/)(((addr_1=hshIdxAddr2(o_4639_aHashMap, (genericType)(*o_4640_aKey), (intType)(((memSizeType)(*o_4640_aKey)) >> 6), (compareType)(o_4618/*.*/)),addr_1!=NULL?addr_1->value.boolValue:(o_4641_defaultValue)))); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2772 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_4642_in (const objRefType/*t_19_reference*/ *const o_4643_aKey, const const_hashType/*t_162_boolean_obj_hash*/ o_4644_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_4644_aHashMap, (genericType)(*o_4643_aKey), (intType)(((memSizeType)(*o_4643_aKey)) >> 6), (compareType)(o_4618/*.*/)))); } /* line 1 "no_file" */ /* 2773 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_4645_not (const objRefType/*t_19_reference*/ *const o_4646_aKey, const const_hashType/*t_162_boolean_obj_hash*/ o_4647_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_4647_aHashMap, (genericType)(*o_4646_aKey), (intType)(((memSizeType)(*o_4646_aKey)) >> 6), (compareType)(o_4618/*.*/))))); } /* line 1 "no_file" */ /* 2774 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4648_incl (hashType/*t_162_boolean_obj_hash*/ *const o_4649_aHashMap, const objRefType/*t_19_reference*/ *const o_4650_aKey, const boolType/*t_13_boolean*/ o_4651_anElem) { /* line 191 "../lib/hash.s7i" */ hshIncl(*o_4649_aHashMap, (genericType)(*o_4650_aKey), (genericType)(o_4651_anElem), (intType)(((memSizeType)(*o_4650_aKey)) >> 6), (compareType)(o_4618/*.*/), (createFuncType)(o_4615/*.*/), (createFuncType)(o_4619/*.*/), (copyFuncType)(o_4621/*.*/)); } /* line 1 "no_file" */ /* 2775 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4652_excl (hashType/*t_162_boolean_obj_hash*/ *const o_4653_aHashMap, const objRefType/*t_19_reference*/ *const o_4654_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_4653_aHashMap, (genericType)(*o_4654_aKey), (intType)(((memSizeType)(*o_4654_aKey)) >> 6), (compareType)(o_4618/*.*/), (destrFuncType)(o_4616/*.*/), (destrFuncType)(o_4620/*.*/)); } /* line 1 "no_file" */ /* 2776 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4655/*@:=*/ (hashType/*t_162_boolean_obj_hash*/ *const o_4656_aHashMap, const objRefType/*t_19_reference*/ *const o_4657_aKey, const boolType/*t_13_boolean*/ o_4658_anElem) { /* line 212 "../lib/hash.s7i" */ hshIncl(*o_4656_aHashMap, (genericType)(*o_4657_aKey), (genericType)(o_4658_anElem), (intType)(((memSizeType)(*o_4657_aKey)) >> 6), (compareType)(o_4618/*.*/), (createFuncType)(o_4615/*.*/), (createFuncType)(o_4619/*.*/), (copyFuncType)(o_4621/*.*/)); } /* line 1 "no_file" */ /* 2777 */ /* line 216 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_4659_update (hashType/*t_162_boolean_obj_hash*/ *const o_4660_aHashMap, const objRefType/*t_19_reference*/ *const o_4661_aKey, const boolType/*t_13_boolean*/ o_4662_anElem) { /* line 217 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)(((boolType/*t_13_boolean*/)(hshUpdate(*o_4660_aHashMap, (genericType)(*o_4661_aKey), (genericType)(o_4662_anElem), (intType)(((memSizeType)(*o_4661_aKey)) >> 6), (compareType)(o_4618/*.*/), (createFuncType)(o_4615/*.*/), (createFuncType)(o_4619/*.*/))))); } /* line 1 "no_file" */ /* 2778 */ /* declare inline o_4663_for*/ /* declare inline o_4664_for*/ /* declare inline o_4665_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_4666_keys (const const_hashType/*t_162_boolean_obj_hash*/ o_4667_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_128_*ANONYM_TYPE**/)((hshKeys(o_4667_aHashMap, (createFuncType)(o_4615/*.*/), (destrFuncType)(o_4616/*.*/)))); } /* line 1 "no_file" */ /* 2779 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_39_*ANONYM_TYPE**/ o_4668_values (const const_hashType/*t_162_boolean_obj_hash*/ o_4669_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_39_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_4669_aHashMap, (createFuncType)(o_4619/*.*/), (destrFuncType)(o_4620/*.*/)))); } /* line 1 "no_file" */ /* 2780 */ typedef genericType t_163/*t_163_*ANONYM_TYPE**/; /* 2781 */ /* 2782 */ /* 2783 */ /* 2784 */ /* objRefType/t_19_reference */ intfunctype o_4670/*.*/=(intfunctype)(&genericCreate); /* 2785 */ /* objRefType/t_19_reference */ intfunctype o_4671/*.*/=(intfunctype)(&genericDestr); /* 2786 */ /* objRefType/t_19_reference */ intfunctype o_4672/*.*/=(intfunctype)(&genericCpy); /* 2787 */ /* objRefType/t_19_reference */ intfunctype o_4673/*.*/=(intfunctype)(&generic_cmp_13); /* 2788 */ /* objRefType/t_19_reference */ intfunctype o_4674/*.*/=(intfunctype)(&generic_create_128); /* 2789 */ /* objRefType/t_19_reference */ intfunctype o_4675/*.*/=(intfunctype)(&generic_destr_128); /* 2790 */ /* objRefType/t_19_reference */ intfunctype o_4676/*.*/=(intfunctype)(&generic_cpy_128); /* 2791 */ /* 2792 */ /* 2793 */ /* 2794 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4677/*::=*/ (const const_hashType/*t_163_*ANONYM_TYPE**/ o_4678_dest, const const_hashType/*t_163_*ANONYM_TYPE**/ o_4679_source) { /* hshCreate implemented with create_163 */ } /* line 1 "no_file" */ /* 2795 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4680_destroy (const const_hashType/*t_163_*ANONYM_TYPE**/ o_4681_oldHash) { /* hshDestr implemented with destr_163 */ } /* line 1 "no_file" */ /* 2796 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4682/*:=*/ (hashType/*t_163_*ANONYM_TYPE**/ *const o_4683_dest, const const_hashType/*t_163_*ANONYM_TYPE**/ o_4684_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_4683_dest), o_4684_source, (createFuncType)(o_4670/*.*/), (destrFuncType)(o_4671/*.*/), (createFuncType)(o_4674/*.*/), (destrFuncType)(o_4675/*.*/)); } /* line 1 "no_file" */ /* 2797 */ hashType/*t_163_*ANONYM_TYPE**/ o_4685/*.*/; /* 2798 */ hashType/*t_163_*ANONYM_TYPE**/ o_4686/*.*/; /* 2799 */ /* line 149 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_4687/*[*/ (const const_hashType/*t_163_*ANONYM_TYPE**/ o_4688_aHashMap, const boolType/*t_13_boolean*/ *const o_4689_aKey) { /* line 150 "../lib/hash.s7i" */ return (arrayType/*t_128_*ANONYM_TYPE**/)((/*ref_to_value*/ (arrayType/*t_128_*ANONYM_TYPE**/)(hshIdx(o_4688_aHashMap, (genericType)(*o_4689_aKey), (intType)(*o_4689_aKey), (compareType)(o_4673/*.*/))))); } /* line 1 "no_file" */ /* 2800 */ /* line 152 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ /*varfunc*/ *o_4690/*[*/ (hashType/*t_163_*ANONYM_TYPE**/ *const o_4691_aHashMap, const boolType/*t_13_boolean*/ *const o_4692_aKey) { /* line 153 "../lib/hash.s7i" */ return (arrayType/*t_128_*ANONYM_TYPE**/ *)(&(hshIdxAddr(*o_4691_aHashMap, (genericType)(*o_4692_aKey), (intType)(*o_4692_aKey), (compareType)(o_4673/*.*/))->value.arrayValue)); } /* line 1 "no_file" */ /* 2801 */ /* line 161 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_4693/*[*/ (const const_hashType/*t_163_*ANONYM_TYPE**/ o_4694_aHashMap, const boolType/*t_13_boolean*/ *const o_4695_aKey, const const_arrayType/*t_128_*ANONYM_TYPE**/ value_o_4696_defaultValue) { /* line 162 "../lib/hash.s7i" */ arrayType/*t_128_*ANONYM_TYPE**/ result; /* line 162 "../lib/hash.s7i" */ const_arrayType/*t_128_*ANONYM_TYPE**/ o_4696_defaultValue; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ o_4696_defaultValue=create_128(value_o_4696_defaultValue); /* line 162 "../lib/hash.s7i" */ result=(arrayType/*t_128_*ANONYM_TYPE**/)((/*ref_to_value*/ (addr_1=hshIdxAddr2(o_4694_aHashMap, (genericType)(*o_4695_aKey), (intType)(*o_4695_aKey), (compareType)(o_4673/*.*/)),addr_1!=NULL?addr_1->value.arrayValue:(o_4696_defaultValue)))); /* line 162 "../lib/hash.s7i" */ destr_128(o_4696_defaultValue); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2802 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_4697_in (const boolType/*t_13_boolean*/ *const o_4698_aKey, const const_hashType/*t_163_*ANONYM_TYPE**/ o_4699_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_4699_aHashMap, (genericType)(*o_4698_aKey), (intType)(*o_4698_aKey), (compareType)(o_4673/*.*/)))); } /* line 1 "no_file" */ /* 2803 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_4700_not (const boolType/*t_13_boolean*/ *const o_4701_aKey, const const_hashType/*t_163_*ANONYM_TYPE**/ o_4702_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_4702_aHashMap, (genericType)(*o_4701_aKey), (intType)(*o_4701_aKey), (compareType)(o_4673/*.*/))))); } /* line 1 "no_file" */ /* 2804 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4703_incl (hashType/*t_163_*ANONYM_TYPE**/ *const o_4704_aHashMap, const boolType/*t_13_boolean*/ *const o_4705_aKey, const const_arrayType/*t_128_*ANONYM_TYPE**/ value_o_4706_anElem) { /* line 189 "../lib/hash.s7i" */ const_arrayType/*t_128_*ANONYM_TYPE**/ o_4706_anElem; /* line 189 "../lib/hash.s7i" */ o_4706_anElem=create_128(value_o_4706_anElem); /* line 191 "../lib/hash.s7i" */ hshIncl(*o_4704_aHashMap, (genericType)(*o_4705_aKey), (genericType)(o_4706_anElem), (intType)(*o_4705_aKey), (compareType)(o_4673/*.*/), (createFuncType)(o_4670/*.*/), (createFuncType)(o_4674/*.*/), (copyFuncType)(o_4676/*.*/)); /* line 189 "../lib/hash.s7i" */ destr_128(o_4706_anElem); } /* line 1 "no_file" */ /* 2805 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4707_excl (hashType/*t_163_*ANONYM_TYPE**/ *const o_4708_aHashMap, const boolType/*t_13_boolean*/ *const o_4709_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_4708_aHashMap, (genericType)(*o_4709_aKey), (intType)(*o_4709_aKey), (compareType)(o_4673/*.*/), (destrFuncType)(o_4671/*.*/), (destrFuncType)(o_4675/*.*/)); } /* line 1 "no_file" */ /* 2806 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_4710/*@:=*/ (hashType/*t_163_*ANONYM_TYPE**/ *const o_4711_aHashMap, const boolType/*t_13_boolean*/ *const o_4712_aKey, const const_arrayType/*t_128_*ANONYM_TYPE**/ value_o_4713_anElem) { /* line 210 "../lib/hash.s7i" */ const_arrayType/*t_128_*ANONYM_TYPE**/ o_4713_anElem; /* line 210 "../lib/hash.s7i" */ o_4713_anElem=create_128(value_o_4713_anElem); /* line 212 "../lib/hash.s7i" */ hshIncl(*o_4711_aHashMap, (genericType)(*o_4712_aKey), (genericType)(o_4713_anElem), (intType)(*o_4712_aKey), (compareType)(o_4673/*.*/), (createFuncType)(o_4670/*.*/), (createFuncType)(o_4674/*.*/), (copyFuncType)(o_4676/*.*/)); /* line 210 "../lib/hash.s7i" */ destr_128(o_4713_anElem); } /* line 1 "no_file" */ /* 2807 */ /* line 216 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_4714_update (hashType/*t_163_*ANONYM_TYPE**/ *const o_4715_aHashMap, const boolType/*t_13_boolean*/ *const o_4716_aKey, const const_arrayType/*t_128_*ANONYM_TYPE**/ value_o_4717_anElem) { /* line 217 "../lib/hash.s7i" */ arrayType/*t_128_*ANONYM_TYPE**/ result; /* line 217 "../lib/hash.s7i" */ const_arrayType/*t_128_*ANONYM_TYPE**/ o_4717_anElem; /* line 217 "../lib/hash.s7i" */ o_4717_anElem=create_128(value_o_4717_anElem); /* line 217 "../lib/hash.s7i" */ result=(arrayType/*t_128_*ANONYM_TYPE**/)(((arrayType/*t_128_*ANONYM_TYPE**/)(hshUpdate(*o_4715_aHashMap, (genericType)(*o_4716_aKey), (genericType)(create_128(o_4717_anElem)), (intType)(*o_4716_aKey), (compareType)(o_4673/*.*/), (createFuncType)(o_4670/*.*/), (createFuncType)(o_4674/*.*/))))); /* line 217 "../lib/hash.s7i" */ destr_128(o_4717_anElem); /* line 217 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 2808 */ /* declare inline o_4718_for*/ /* declare inline o_4719_for*/ /* declare inline o_4720_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_39_*ANONYM_TYPE**/ o_4721_keys (const const_hashType/*t_163_*ANONYM_TYPE**/ o_4722_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_39_*ANONYM_TYPE**/)((hshKeys(o_4722_aHashMap, (createFuncType)(o_4670/*.*/), (destrFuncType)(o_4671/*.*/)))); } /* line 1 "no_file" */ /* 2809 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_145_*ANONYM_TYPE**/ o_4723_values (const const_hashType/*t_163_*ANONYM_TYPE**/ o_4724_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_145_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_4724_aHashMap, (createFuncType)(o_4674/*.*/), (destrFuncType)(o_4675/*.*/)))); } /* line 1 "no_file" */ /* 2810 */ /* line 61 "../lib/hash.s7i" */ static void destr_163 (const_hashType/*t_163_*ANONYM_TYPE**/ b) /* line 61 "../lib/hash.s7i" */ { /* line 61 "../lib/hash.s7i" */ hshDestr(b, (destrFuncType)(o_4671/*.*/), (destrFuncType)(o_4675/*.*/)); /* line 61 "../lib/hash.s7i" */ } /* line 1 "no_file" */ /* line 283 "../lib/hash.s7i" */ static hashType/*t_163_*ANONYM_TYPE**/ o_4725_flip (const const_hashType/*t_162_boolean_obj_hash*/ o_4726_aHashMap) { /* line 285 "../lib/hash.s7i" */ hashType/*t_163_*ANONYM_TYPE**/ o_4727_inverseHash; /* line 287 "../lib/hash.s7i" */ objRefType/*t_19_reference*/ o_4728_aKey=NULL; /* line 288 "../lib/hash.s7i" */ boolType/*t_13_boolean*/ o_4729_aValue=0/*FALSE*/; /* line 285 "../lib/hash.s7i" */ o_4727_inverseHash=hshEmpty(); /* inline proc o_4665_for */ { /* inline params */ /* line 290 "../lib/hash.s7i" */ boolType/*t_13_boolean*/ *const o_4730_forVar=&(o_4729_aValue); /* line 290 "../lib/hash.s7i" */ objRefType/*t_19_reference*/ *const o_4731_keyVar=&(o_4728_aKey); /* line 290 "../lib/hash.s7i" */ const const_hashType/*t_162_boolean_obj_hash*/ o_4732_aHashMap=o_4726_aHashMap; /* line 290 "../lib/hash.s7i" */ /* push proc param o_4733_statements */ /* line 290 "../lib/hash.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 258 "../lib/hash.s7i" */ const_hashType hash_1=o_4732_aHashMap; /* line 258 "../lib/hash.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 258 "../lib/hash.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 258 "../lib/hash.s7i" */ const_hashElemType helem_4; /* line 258 "../lib/hash.s7i" */ hashElemListType stack_5=NULL; /* line 258 "../lib/hash.s7i" */ while (counter_2 > 0) { /* line 258 "../lib/hash.s7i" */ helem_4=*table_elem_3; /* line 258 "../lib/hash.s7i" */ while (helem_4 != NULL) { /* line 258 "../lib/hash.s7i" */ if (helem_4->next_greater != NULL) { /* line 258 "../lib/hash.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ (*o_4730_forVar)=helem_4->data.value.boolValue; /* line 258 "../lib/hash.s7i" */ (*o_4731_keyVar)=helem_4->key.value.objRefValue; /* closure o_4733_statements*/ { /* line 291 "../lib/hash.s7i" */ if (o_4697_in(&(o_4729_aValue), o_4727_inverseHash)) { /* line 292 "../lib/hash.s7i" */ arrPush(&(*o_4690/*[*/(&(o_4727_inverseHash), &(o_4729_aValue))), (genericType)(o_4728_aKey)); } else { { /* line 294 "../lib/hash.s7i" */ arrayType/*t_128_*ANONYM_TYPE**/ tmp_1 = (arrayType/*t_128_*ANONYM_TYPE**/)(NULL); /* line 294 "../lib/hash.s7i" */ o_4710/*@:=*/(&(o_4727_inverseHash), &(o_4729_aValue), (tmp_1=(arrayType/*t_128_*ANONYM_TYPE**/)(arrBaselit((genericType)(o_4728_aKey))))); /* line 294 "../lib/hash.s7i" */ destr_128(tmp_1); } } } /* closure o_4733_statements*/ /* line 258 "../lib/hash.s7i" */ if (helem_4->next_less != NULL) { /* line 258 "../lib/hash.s7i" */ helem_4=helem_4->next_less; /* line 258 "../lib/hash.s7i" */ } else { /* line 258 "../lib/hash.s7i" */ pop_stack(stack_5, helem_4); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ counter_2--; /* line 258 "../lib/hash.s7i" */ table_elem_3++; /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ } /* hsh_for */ /* pop proc param o_4733_statements */ } /* inline proc o_4665_for */ return o_4727_inverseHash; } /* line 1 "no_file" */ /* 2811 */ /* line 58 "../lib/hash.s7i" */ static hashType/*t_139_implements_hash*/ create_139 (const_hashType/*t_139_implements_hash*/ b) /* line 58 "../lib/hash.s7i" */ { /* line 58 "../lib/hash.s7i" */ return hshCreate(b, (createFuncType)(o_3857/*.*/), (destrFuncType)(o_3858/*.*/), (createFuncType)(o_3861/*.*/), (destrFuncType)(o_3862/*.*/)); /* line 58 "../lib/hash.s7i" */ } /* line 1 "no_file" */ hashType/*t_139_implements_hash*/ o_4734_implements; /* 2812 */ /* line 58 "../lib/hash.s7i" */ static hashType/*t_158_struct_elements_hash*/ create_158 (const_hashType/*t_158_struct_elements_hash*/ b) /* line 58 "../lib/hash.s7i" */ { /* line 58 "../lib/hash.s7i" */ return hshCreate(b, (createFuncType)(o_4539/*.*/), (destrFuncType)(o_4540/*.*/), (createFuncType)(o_4543/*.*/), (destrFuncType)(o_4544/*.*/)); /* line 58 "../lib/hash.s7i" */ } /* line 1 "no_file" */ hashType/*t_158_struct_elements_hash*/ o_4735_struct_elements; /* 2813 */ typeType o_4736_proctype; /* 2814 */ typeType o_4737_voidtype; /* 2815 */ typeType o_4738_fileInterfaceType; /* 2816 */ progType o_4739_prog=NULL; /* 2817 */ /* line 62 "../lib/comp/type.s7i" */ static striType/*t_15_string*/ o_4740_raw_type_name (const typeType/*t_7_type*/ *const o_4741_object_type) { /* line 65 "../lib/comp/type.s7i" */ striType/*t_15_string*/ o_4742_typeName; /* line 65 "../lib/comp/type.s7i" */ o_4742_typeName=strEmpty(); /* "" */ /* line 67 "../lib/comp/type.s7i" */ if (o_3772_in(o_4741_object_type, o_4414_typeCategory)) { /* line 68 "../lib/comp/type.s7i" */ switch (*o_3765/*[*/(&(o_4414_typeCategory), o_4741_object_type)) { /* line 69 "../lib/comp/type.s7i" */ case 258: /* line 69 "../lib/comp/type.s7i" */ strCopy(&(o_4742_typeName), &str[98] /* "void" */); /* line 69 "../lib/comp/type.s7i" */ break; /* line 70 "../lib/comp/type.s7i" */ case 256: /* line 70 "../lib/comp/type.s7i" */ strCopy(&(o_4742_typeName), &str[99] /* "boolType" */); /* line 70 "../lib/comp/type.s7i" */ break; /* line 71 "../lib/comp/type.s7i" */ case 257: /* line 71 "../lib/comp/type.s7i" */ strCopy(&(o_4742_typeName), &str[100] /* "enumType" */); /* line 71 "../lib/comp/type.s7i" */ break; /* line 72 "../lib/comp/type.s7i" */ case 9: /* line 72 "../lib/comp/type.s7i" */ strCopy(&(o_4742_typeName), &str[101] /* "intType" */); /* line 72 "../lib/comp/type.s7i" */ break; /* line 73 "../lib/comp/type.s7i" */ case 10: /* line 73 "../lib/comp/type.s7i" */ strCopy(&(o_4742_typeName), &str[102] /* "bigIntType" */); /* line 73 "../lib/comp/type.s7i" */ break; /* line 74 "../lib/comp/type.s7i" */ case 25: /* line 74 "../lib/comp/type.s7i" */ strCopy(&(o_4742_typeName), &str[103] /* "floatType" */); /* line 74 "../lib/comp/type.s7i" */ break; /* line 75 "../lib/comp/type.s7i" */ case 11: /* line 75 "../lib/comp/type.s7i" */ strCopy(&(o_4742_typeName), &str[104] /* "charType" */); /* line 75 "../lib/comp/type.s7i" */ break; /* line 76 "../lib/comp/type.s7i" */ case 12: /* line 76 "../lib/comp/type.s7i" */ strCopy(&(o_4742_typeName), &str[105] /* "striType" */); /* line 76 "../lib/comp/type.s7i" */ break; /* line 77 "../lib/comp/type.s7i" */ case 13: /* line 77 "../lib/comp/type.s7i" */ strCopy(&(o_4742_typeName), &str[106] /* "bstriType" */); /* line 77 "../lib/comp/type.s7i" */ break; /* line 78 "../lib/comp/type.s7i" */ case 20: /* line 78 "../lib/comp/type.s7i" */ strCopy(&(o_4742_typeName), &str[107] /* "fileType" */); /* line 78 "../lib/comp/type.s7i" */ break; /* line 79 "../lib/comp/type.s7i" */ case 22: /* line 79 "../lib/comp/type.s7i" */ strCopy(&(o_4742_typeName), &str[108] /* "socketType" */); /* line 79 "../lib/comp/type.s7i" */ break; /* line 80 "../lib/comp/type.s7i" */ case 23: /* line 80 "../lib/comp/type.s7i" */ strCopy(&(o_4742_typeName), &str[109] /* "pollType" */); /* line 80 "../lib/comp/type.s7i" */ break; /* line 81 "../lib/comp/type.s7i" */ case 19: /* line 81 "../lib/comp/type.s7i" */ strCopy(&(o_4742_typeName), &str[110] /* "setType" */); /* line 81 "../lib/comp/type.s7i" */ break; /* line 82 "../lib/comp/type.s7i" */ case 26: /* line 82 "../lib/comp/type.s7i" */ strCopy(&(o_4742_typeName), &str[111] /* "winType" */); /* line 82 "../lib/comp/type.s7i" */ break; /* line 83 "../lib/comp/type.s7i" */ case 40: /* line 83 "../lib/comp/type.s7i" */ strCopy(&(o_4742_typeName), &str[112] /* "progType" */); /* line 83 "../lib/comp/type.s7i" */ break; /* line 84 "../lib/comp/type.s7i" */ case 14: /* line 84 "../lib/comp/type.s7i" */ strCopy(&(o_4742_typeName), &str[113] /* "arrayType" */); /* line 84 "../lib/comp/type.s7i" */ break; /* line 85 "../lib/comp/type.s7i" */ case 15: /* line 85 "../lib/comp/type.s7i" */ strCopy(&(o_4742_typeName), &str[114] /* "hashType" */); /* line 85 "../lib/comp/type.s7i" */ break; /* line 86 "../lib/comp/type.s7i" */ case 16: /* line 86 "../lib/comp/type.s7i" */ strCopy(&(o_4742_typeName), &str[115] /* "structType" */); /* line 86 "../lib/comp/type.s7i" */ break; /* line 87 "../lib/comp/type.s7i" */ case 18: /* line 87 "../lib/comp/type.s7i" */ strCopy(&(o_4742_typeName), &str[116] /* "interfaceType" */); /* line 87 "../lib/comp/type.s7i" */ break; /* line 88 "../lib/comp/type.s7i" */ case 30: /* line 88 "../lib/comp/type.s7i" */ strCopy(&(o_4742_typeName), &str[117] /* "objRefType" */); /* line 88 "../lib/comp/type.s7i" */ break; /* line 89 "../lib/comp/type.s7i" */ case 31: /* line 89 "../lib/comp/type.s7i" */ strCopy(&(o_4742_typeName), &str[118] /* "listType" */); /* line 89 "../lib/comp/type.s7i" */ break; /* line 90 "../lib/comp/type.s7i" */ case 7: /* line 90 "../lib/comp/type.s7i" */ strCopy(&(o_4742_typeName), &str[119] /* "typeType" */); /* line 90 "../lib/comp/type.s7i" */ break; /* line 91 "../lib/comp/type.s7i" */ case 33: /* line 91 "../lib/comp/type.s7i" */ strCopy(&(o_4742_typeName), &str[120] /* "actType" */); /* line 91 "../lib/comp/type.s7i" */ break; default: /* line 93 "../lib/comp/type.s7i" */ strCopy(&(o_4742_typeName), &str[121] /* "t_" */); { /* line 94 "../lib/comp/type.s7i" */ union { /* line 94 "../lib/comp/type.s7i" */ struct striStruct striBuf; /* line 94 "../lib/comp/type.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 94 "../lib/comp/type.s7i" */ } buffer_1; /* line 94 "../lib/comp/type.s7i" */ strAppend(&(o_4742_typeName), intStrToBuffer(typNum(*o_4741_object_type), &buffer_1.striBuf)); } break; } } else { /* line 97 "../lib/comp/type.s7i" */ strCopy(&(o_4742_typeName), &str[121] /* "t_" */); { /* line 98 "../lib/comp/type.s7i" */ union { /* line 98 "../lib/comp/type.s7i" */ struct striStruct striBuf; /* line 98 "../lib/comp/type.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 98 "../lib/comp/type.s7i" */ } buffer_1; /* line 98 "../lib/comp/type.s7i" */ strAppend(&(o_4742_typeName), intStrToBuffer(typNum(*o_4741_object_type), &buffer_1.striBuf)); } } return o_4742_typeName; } /* line 1 "no_file" */ /* 2818 */ /* line 103 "../lib/comp/type.s7i" */ static striType/*t_15_string*/ o_4743_type_name (const typeType/*t_7_type*/ *const o_4744_object_type) { /* line 106 "../lib/comp/type.s7i" */ striType/*t_15_string*/ o_4745_typeName; /* line 106 "../lib/comp/type.s7i" */ o_4745_typeName=strEmpty(); /* "" */ { /* line 108 "../lib/comp/type.s7i" */ striType old_stri=o_4745_typeName; /* line 108 "../lib/comp/type.s7i" */ o_4745_typeName=o_4740_raw_type_name(o_4744_object_type); /* line 108 "../lib/comp/type.s7i" */ strDestr(old_stri); } /* line 109 "../lib/comp/type.s7i" */ strAppend(&(o_4745_typeName), &str[122] /* "/*t_" */); { /* line 110 "../lib/comp/type.s7i" */ union { /* line 110 "../lib/comp/type.s7i" */ struct striStruct striBuf; /* line 110 "../lib/comp/type.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 110 "../lib/comp/type.s7i" */ } buffer_1; /* line 110 "../lib/comp/type.s7i" */ strAppend(&(o_4745_typeName), intStrToBuffer(typNum(*o_4744_object_type), &buffer_1.striBuf)); } /* line 111 "../lib/comp/type.s7i" */ /* line 111 "../lib/comp/type.s7i" */ if (((o_4745_typeName))->size == ((o_4745_typeName))->capacity) { /* line 111 "../lib/comp/type.s7i" */ strPush(&((o_4745_typeName)), (charType) '_'); /* line 111 "../lib/comp/type.s7i" */ } else { /* line 111 "../lib/comp/type.s7i" */ ((o_4745_typeName))->mem[((o_4745_typeName))->size]=(charType) '_'; /* line 111 "../lib/comp/type.s7i" */ ((o_4745_typeName))->size++; /* line 111 "../lib/comp/type.s7i" */ } /* line 112 "../lib/comp/type.s7i" */ strAppendTemp(&(o_4745_typeName), typStr(*o_4744_object_type)); /* line 113 "../lib/comp/type.s7i" */ strAppend(&(o_4745_typeName), &str[123] /* "*\/" */); return o_4745_typeName; } /* line 1 "no_file" */ /* 2819 */ /* line 117 "../lib/comp/type.s7i" */ static striType/*t_15_string*/ o_4746_type_name2 (const typeType/*t_7_type*/ *const o_4747_object_type) { /* line 120 "../lib/comp/type.s7i" */ striType/*t_15_string*/ o_4748_typeName; /* line 120 "../lib/comp/type.s7i" */ o_4748_typeName=strEmpty(); /* "" */ { /* line 122 "../lib/comp/type.s7i" */ striType old_stri=o_4748_typeName; /* line 122 "../lib/comp/type.s7i" */ o_4748_typeName=o_4740_raw_type_name(o_4747_object_type); /* line 122 "../lib/comp/type.s7i" */ strDestr(old_stri); } /* line 123 "../lib/comp/type.s7i" */ strAppend(&(o_4748_typeName), &str[124] /* "/t_" */); { /* line 124 "../lib/comp/type.s7i" */ union { /* line 124 "../lib/comp/type.s7i" */ struct striStruct striBuf; /* line 124 "../lib/comp/type.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 124 "../lib/comp/type.s7i" */ } buffer_1; /* line 124 "../lib/comp/type.s7i" */ strAppend(&(o_4748_typeName), intStrToBuffer(typNum(*o_4747_object_type), &buffer_1.striBuf)); } /* line 125 "../lib/comp/type.s7i" */ /* line 125 "../lib/comp/type.s7i" */ if (((o_4748_typeName))->size == ((o_4748_typeName))->capacity) { /* line 125 "../lib/comp/type.s7i" */ strPush(&((o_4748_typeName)), (charType) '_'); /* line 125 "../lib/comp/type.s7i" */ } else { /* line 125 "../lib/comp/type.s7i" */ ((o_4748_typeName))->mem[((o_4748_typeName))->size]=(charType) '_'; /* line 125 "../lib/comp/type.s7i" */ ((o_4748_typeName))->size++; /* line 125 "../lib/comp/type.s7i" */ } /* line 126 "../lib/comp/type.s7i" */ strAppendTemp(&(o_4748_typeName), typStr(*o_4747_object_type)); return o_4748_typeName; } /* line 1 "no_file" */ /* 2820 */ /* line 130 "../lib/comp/type.s7i" */ static typeType/*t_7_type*/ o_4749_base_type (const typeType/*t_7_type*/ *const o_4750_array_type) { /* line 133 "../lib/comp/type.s7i" */ typeType/*t_7_type*/ o_4751_baseType=typ[0] /* void/t_1_void */; /* line 135 "../lib/comp/type.s7i" */ listType/*t_20_ref_list*/ o_4752_param_list=NULL; /* line 136 "../lib/comp/type.s7i" */ objRefType/*t_19_reference*/ o_4753_matched_object=NULL; { /* line 138 "../lib/comp/type.s7i" */ listType old_rfl=o_4752_param_list; /* line 138 "../lib/comp/type.s7i" */ o_4752_param_list=rflMklist(typMatchobj(*o_4750_array_type)); /* line 138 "../lib/comp/type.s7i" */ rflDestr(old_rfl); } { /* line 139 "../lib/comp/type.s7i" */ rflAppend(&(o_4752_param_list), rflMklist(prgSyobject(o_4739_prog, &str[125] /* "base_type" */))); } /* line 140 "../lib/comp/type.s7i" */ o_4753_matched_object=prgMatch(o_4739_prog, o_4752_param_list); /* line 141 "../lib/comp/type.s7i" */ if (((o_4753_matched_object) != (NULL)) && /* line 141 "../lib/comp/type.s7i" */ ((refCategory(o_4753_matched_object)) == (7L))) { /* line 142 "../lib/comp/type.s7i" */ o_4751_baseType=typValue(o_4753_matched_object); } /* line 130 "../lib/comp/type.s7i" */ rflDestr(o_4752_param_list); return o_4751_baseType; } /* line 1 "no_file" */ /* 2821 */ /* line 147 "../lib/comp/type.s7i" */ static typeType/*t_7_type*/ o_4754_getExprResultType (const objRefType/*t_19_reference*/ o_4755_aReference) { /* line 150 "../lib/comp/type.s7i" */ typeType/*t_7_type*/ o_4756_resultType=typ[0] /* void/t_1_void */; /* line 152 "../lib/comp/type.s7i" */ o_4756_resultType=refType(o_4755_aReference); /* line 153 "../lib/comp/type.s7i" */ while ((typIsFunc(o_4756_resultType)) || /* line 153 "../lib/comp/type.s7i" */ (typIsVarfunc(o_4756_resultType))) { /* line 154 "../lib/comp/type.s7i" */ o_4756_resultType=typResult(o_4756_resultType); } return o_4756_resultType; } /* line 1 "no_file" */ /* 2822 */ /* line 159 "../lib/comp/type.s7i" */ static striType/*t_15_string*/ o_4757_raw_type_value (const typeType/*t_7_type*/ *const o_4758_object_type) { /* line 162 "../lib/comp/type.s7i" */ striType/*t_15_string*/ o_4759_valueName; /* line 162 "../lib/comp/type.s7i" */ o_4759_valueName=strEmpty(); /* "" */ /* line 164 "../lib/comp/type.s7i" */ if (o_3772_in(o_4758_object_type, o_4414_typeCategory)) { /* line 165 "../lib/comp/type.s7i" */ switch (*o_3765/*[*/(&(o_4414_typeCategory), o_4758_object_type)) { /* line 166 "../lib/comp/type.s7i" */ case 256: /* line 166 "../lib/comp/type.s7i" */ strCopy(&(o_4759_valueName), &str[126] /* "boolValue" */); /* line 166 "../lib/comp/type.s7i" */ break; /* line 167 "../lib/comp/type.s7i" */ case 257: /* line 167 "../lib/comp/type.s7i" */ strCopy(&(o_4759_valueName), &str[127] /* "enumValue" */); /* line 167 "../lib/comp/type.s7i" */ break; /* line 168 "../lib/comp/type.s7i" */ case 9: /* line 168 "../lib/comp/type.s7i" */ strCopy(&(o_4759_valueName), &str[128] /* "intValue" */); /* line 168 "../lib/comp/type.s7i" */ break; /* line 169 "../lib/comp/type.s7i" */ case 10: /* line 169 "../lib/comp/type.s7i" */ strCopy(&(o_4759_valueName), &str[129] /* "bigIntValue" */); /* line 169 "../lib/comp/type.s7i" */ break; /* line 170 "../lib/comp/type.s7i" */ case 25: /* line 170 "../lib/comp/type.s7i" */ strCopy(&(o_4759_valueName), &str[130] /* "floatValue" */); /* line 170 "../lib/comp/type.s7i" */ break; /* line 171 "../lib/comp/type.s7i" */ case 11: /* line 171 "../lib/comp/type.s7i" */ strCopy(&(o_4759_valueName), &str[131] /* "charValue" */); /* line 171 "../lib/comp/type.s7i" */ break; /* line 172 "../lib/comp/type.s7i" */ case 12: /* line 172 "../lib/comp/type.s7i" */ strCopy(&(o_4759_valueName), &str[132] /* "striValue" */); /* line 172 "../lib/comp/type.s7i" */ break; /* line 173 "../lib/comp/type.s7i" */ case 13: /* line 173 "../lib/comp/type.s7i" */ strCopy(&(o_4759_valueName), &str[133] /* "bstriValue" */); /* line 173 "../lib/comp/type.s7i" */ break; /* line 174 "../lib/comp/type.s7i" */ case 20: /* line 174 "../lib/comp/type.s7i" */ strCopy(&(o_4759_valueName), &str[134] /* "fileValue" */); /* line 174 "../lib/comp/type.s7i" */ break; /* line 175 "../lib/comp/type.s7i" */ case 22: /* line 175 "../lib/comp/type.s7i" */ strCopy(&(o_4759_valueName), &str[135] /* "socketValue" */); /* line 175 "../lib/comp/type.s7i" */ break; /* line 176 "../lib/comp/type.s7i" */ case 23: /* line 176 "../lib/comp/type.s7i" */ strCopy(&(o_4759_valueName), &str[136] /* "pollValue" */); /* line 176 "../lib/comp/type.s7i" */ break; /* line 177 "../lib/comp/type.s7i" */ case 19: /* line 177 "../lib/comp/type.s7i" */ strCopy(&(o_4759_valueName), &str[137] /* "setValue" */); /* line 177 "../lib/comp/type.s7i" */ break; /* line 178 "../lib/comp/type.s7i" */ case 26: /* line 178 "../lib/comp/type.s7i" */ strCopy(&(o_4759_valueName), &str[138] /* "winValue" */); /* line 178 "../lib/comp/type.s7i" */ break; /* line 179 "../lib/comp/type.s7i" */ case 40: /* line 179 "../lib/comp/type.s7i" */ strCopy(&(o_4759_valueName), &str[139] /* "progValue" */); /* line 179 "../lib/comp/type.s7i" */ break; /* line 180 "../lib/comp/type.s7i" */ case 14: /* line 180 "../lib/comp/type.s7i" */ strCopy(&(o_4759_valueName), &str[140] /* "arrayValue" */); /* line 180 "../lib/comp/type.s7i" */ break; /* line 181 "../lib/comp/type.s7i" */ case 15: /* line 181 "../lib/comp/type.s7i" */ strCopy(&(o_4759_valueName), &str[141] /* "hashValue" */); /* line 181 "../lib/comp/type.s7i" */ break; /* line 182 "../lib/comp/type.s7i" */ case 16: /* line 182 "../lib/comp/type.s7i" */ strCopy(&(o_4759_valueName), &str[142] /* "structValue" */); /* line 182 "../lib/comp/type.s7i" */ break; /* line 183 "../lib/comp/type.s7i" */ case 18: /* line 183 "../lib/comp/type.s7i" */ strCopy(&(o_4759_valueName), &str[143] /* "interfaceValue" */); /* line 183 "../lib/comp/type.s7i" */ break; /* line 184 "../lib/comp/type.s7i" */ case 30: /* line 184 "../lib/comp/type.s7i" */ strCopy(&(o_4759_valueName), &str[144] /* "objRefValue" */); /* line 184 "../lib/comp/type.s7i" */ break; /* line 185 "../lib/comp/type.s7i" */ case 31: /* line 185 "../lib/comp/type.s7i" */ strCopy(&(o_4759_valueName), &str[145] /* "listValue" */); /* line 185 "../lib/comp/type.s7i" */ break; /* line 186 "../lib/comp/type.s7i" */ case 7: /* line 186 "../lib/comp/type.s7i" */ strCopy(&(o_4759_valueName), &str[146] /* "typeValue" */); /* line 186 "../lib/comp/type.s7i" */ break; /* line 187 "../lib/comp/type.s7i" */ case 33: /* line 187 "../lib/comp/type.s7i" */ strCopy(&(o_4759_valueName), &str[147] /* "actValue" */); /* line 187 "../lib/comp/type.s7i" */ break; default: /* line 188 "../lib/comp/type.s7i" */ strCopy(&(o_4759_valueName), &str[148] /* "genericValue" */); break; } } else { /* line 191 "../lib/comp/type.s7i" */ strCopy(&(o_4759_valueName), &str[148] /* "genericValue" */); } return o_4759_valueName; } /* line 1 "no_file" */ /* 2823 */ /* line 196 "../lib/comp/type.s7i" */ static striType/*t_15_string*/ o_4760_select_value_from_rtlObjectStruct (const typeType/*t_7_type*/ *const o_4761_typeWanted) { /* line 197 "../lib/comp/type.s7i" */ striType/*t_15_string*/ result; /* line 197 "../lib/comp/type.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); /* line 197 "../lib/comp/type.s7i" */ result=(striType/*t_15_string*/)((strConcat(&str[149] /* ".value." */, (tmp_2=(striType/*t_15_string*/)(o_4757_raw_type_value(o_4761_typeWanted)))))); /* line 197 "../lib/comp/type.s7i" */ strDestr(tmp_2); /* line 197 "../lib/comp/type.s7i" */ return result; } /* line 1 "no_file" */ /* 2824 */ /* line 200 "../lib/comp/type.s7i" */ static striType/*t_15_string*/ o_4762_select_value_from_rtlObjectptr (const typeType/*t_7_type*/ *const o_4763_typeWanted) { /* line 201 "../lib/comp/type.s7i" */ striType/*t_15_string*/ result; /* line 201 "../lib/comp/type.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); /* line 201 "../lib/comp/type.s7i" */ result=(striType/*t_15_string*/)((strConcat(&str[150] /* "->value." */, (tmp_2=(striType/*t_15_string*/)(o_4757_raw_type_value(o_4763_typeWanted)))))); /* line 201 "../lib/comp/type.s7i" */ strDestr(tmp_2); /* line 201 "../lib/comp/type.s7i" */ return result; } /* line 1 "no_file" */ /* 2825 */ /* line 204 "../lib/comp/type.s7i" */ static boolType/*t_13_boolean*/ o_4764_valueIsAtHeap (const typeType/*t_7_type*/ *const o_4765_aType) { /* line 207 "../lib/comp/type.s7i" */ boolType/*t_13_boolean*/ o_4766_isAtHeap=o_25_FALSE; /* line 213 "../lib/comp/type.s7i" */ if ((o_3772_in(o_4765_aType, o_4414_typeCategory)) && /* line 213 "../lib/comp/type.s7i" */ (o_2691_in(*o_3765/*[*/(&(o_4414_typeCategory), o_4765_aType), (setType/*t_88_setOfCategory*/)(set[15])))) { /* line 214 "../lib/comp/type.s7i" */ o_4766_isAtHeap=o_26_TRUE; } return o_4766_isAtHeap; } /* line 1 "no_file" */ /* 2826 */ /* line 219 "../lib/comp/type.s7i" */ static boolType/*t_13_boolean*/ o_4767_valueIsAtHeap (const objRefType/*t_19_reference*/ o_4768_a_param) { /* line 220 "../lib/comp/type.s7i" */ boolType/*t_13_boolean*/ result; /* line 220 "../lib/comp/type.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 220 "../lib/comp/type.s7i" */ result=(boolType/*t_13_boolean*/)((o_4764_valueIsAtHeap(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_4768_a_param)), &tmp_1)))); /* line 220 "../lib/comp/type.s7i" */ return result; } /* line 1 "no_file" */ /* 2827 */ /* line 223 "../lib/comp/type.s7i" */ static boolType/*t_13_boolean*/ o_4769_useConstPrefix (const typeType/*t_7_type*/ *const o_4770_aType) { /* line 226 "../lib/comp/type.s7i" */ boolType/*t_13_boolean*/ o_4771_useConstPrefix=o_25_FALSE; /* line 232 "../lib/comp/type.s7i" */ if ((o_3772_in(o_4770_aType, o_4414_typeCategory)) && /* line 232 "../lib/comp/type.s7i" */ (o_2691_in(*o_3765/*[*/(&(o_4414_typeCategory), o_4770_aType), (setType/*t_88_setOfCategory*/)(set[16])))) { /* line 233 "../lib/comp/type.s7i" */ o_4771_useConstPrefix=o_26_TRUE; } return o_4771_useConstPrefix; } /* line 1 "no_file" */ /* 2828 */ /* line 238 "../lib/comp/type.s7i" */ static boolType/*t_13_boolean*/ o_4772_useConstPrefix (const objRefType/*t_19_reference*/ o_4773_a_param) { /* line 239 "../lib/comp/type.s7i" */ boolType/*t_13_boolean*/ result; /* line 239 "../lib/comp/type.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 239 "../lib/comp/type.s7i" */ result=(boolType/*t_13_boolean*/)((o_4769_useConstPrefix(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_4773_a_param)), &tmp_1)))); /* line 239 "../lib/comp/type.s7i" */ return result; } /* line 1 "no_file" */ /* 2829 */ typedef genericType t_164/*t_164_expr_type*/; /* 2830 */ /* 2831 */ typedef genericType t_21/*t_21_*ANONYM_TYPE**/; /* 2832 */ /* 2833 */ /* 2834 */ /* 2835 */ /* 2836 */ /* objRefType/t_21_*ANONYM_TYPE* */ objRefType o_4774/*.*/=(objRefType)(NULL); /* 2837 */ /* objRefType/t_21_*ANONYM_TYPE* */ objRefType o_4775/*.*/=(objRefType)(NULL); /* 2838 */ typedef genericType t_165/*t_165_*ANONYM_TYPE**/; /* 2839 */ /* 2840 */ /* 2841 */ /* 2842 */ /* 2843 */ /* objRefType/t_165_*ANONYM_TYPE* */ objRefType o_4776/*.*/=(objRefType)(NULL); /* 2844 */ /* objRefType/t_165_*ANONYM_TYPE* */ objRefType o_4777/*.*/=(objRefType)(NULL); /* 2845 */ /* 2846 */ /* 2847 */ /* 2848 */ /* struct element striType/t_15_string ** structType/t_164_expr_type->o_4778_currentFile = 0 */ /* 2849 */ /* struct element striType/t_15_string ** structType/t_164_expr_type->o_4778_currentFile = 0 */ /* 2850 */ /* ref struct element striType/t_15_string ** objRefType/t_21_*ANONYM_TYPE*->o_4778_currentFile = 0 */ /* 2851 */ /* ref struct element striType/t_15_string ** objRefType/t_165_*ANONYM_TYPE*->o_4778_currentFile = 0 */ /* 2852 */ /* struct element intType/t_14_integer ** structType/t_164_expr_type->o_4779_currentLine = 1 */ /* 2853 */ /* struct element intType/t_14_integer ** structType/t_164_expr_type->o_4779_currentLine = 1 */ /* 2854 */ /* ref struct element intType/t_14_integer ** objRefType/t_21_*ANONYM_TYPE*->o_4779_currentLine = 1 */ /* 2855 */ /* ref struct element intType/t_14_integer ** objRefType/t_165_*ANONYM_TYPE*->o_4779_currentLine = 1 */ /* 2856 */ /* struct element intType/t_14_integer ** structType/t_164_expr_type->o_4780_temp_num = 2 */ /* 2857 */ /* struct element intType/t_14_integer ** structType/t_164_expr_type->o_4780_temp_num = 2 */ /* 2858 */ /* ref struct element intType/t_14_integer ** objRefType/t_21_*ANONYM_TYPE*->o_4780_temp_num = 2 */ /* 2859 */ /* ref struct element intType/t_14_integer ** objRefType/t_165_*ANONYM_TYPE*->o_4780_temp_num = 2 */ /* 2860 */ /* struct element striType/t_15_string ** structType/t_164_expr_type->o_4781_temp_decls = 3 */ /* 2861 */ /* struct element striType/t_15_string ** structType/t_164_expr_type->o_4781_temp_decls = 3 */ /* 2862 */ /* ref struct element striType/t_15_string ** objRefType/t_21_*ANONYM_TYPE*->o_4781_temp_decls = 3 */ /* 2863 */ /* ref struct element striType/t_15_string ** objRefType/t_165_*ANONYM_TYPE*->o_4781_temp_decls = 3 */ /* 2864 */ /* struct element striType/t_15_string ** structType/t_164_expr_type->o_4782_temp_assigns = 4 */ /* 2865 */ /* struct element striType/t_15_string ** structType/t_164_expr_type->o_4782_temp_assigns = 4 */ /* 2866 */ /* ref struct element striType/t_15_string ** objRefType/t_21_*ANONYM_TYPE*->o_4782_temp_assigns = 4 */ /* 2867 */ /* ref struct element striType/t_15_string ** objRefType/t_165_*ANONYM_TYPE*->o_4782_temp_assigns = 4 */ /* 2868 */ /* struct element striType/t_15_string ** structType/t_164_expr_type->o_4783_expr = 5 */ /* 2869 */ /* struct element striType/t_15_string ** structType/t_164_expr_type->o_4783_expr = 5 */ /* 2870 */ /* ref struct element striType/t_15_string ** objRefType/t_21_*ANONYM_TYPE*->o_4783_expr = 5 */ /* 2871 */ /* ref struct element striType/t_15_string ** objRefType/t_165_*ANONYM_TYPE*->o_4783_expr = 5 */ /* 2872 */ /* struct element striType/t_15_string ** structType/t_164_expr_type->o_4784_temp_frees = 6 */ /* 2873 */ /* struct element striType/t_15_string ** structType/t_164_expr_type->o_4784_temp_frees = 6 */ /* 2874 */ /* ref struct element striType/t_15_string ** objRefType/t_21_*ANONYM_TYPE*->o_4784_temp_frees = 6 */ /* 2875 */ /* ref struct element striType/t_15_string ** objRefType/t_165_*ANONYM_TYPE*->o_4784_temp_frees = 6 */ /* 2876 */ /* struct element striType/t_15_string ** structType/t_164_expr_type->o_4785_temp_to_null = 7 */ /* 2877 */ /* struct element striType/t_15_string ** structType/t_164_expr_type->o_4785_temp_to_null = 7 */ /* 2878 */ /* ref struct element striType/t_15_string ** objRefType/t_21_*ANONYM_TYPE*->o_4785_temp_to_null = 7 */ /* 2879 */ /* ref struct element striType/t_15_string ** objRefType/t_165_*ANONYM_TYPE*->o_4785_temp_to_null = 7 */ /* 2880 */ /* struct element striType/t_15_string ** structType/t_164_expr_type->o_4786_result_temp = 8 */ /* 2881 */ /* struct element striType/t_15_string ** structType/t_164_expr_type->o_4786_result_temp = 8 */ /* 2882 */ /* ref struct element striType/t_15_string ** objRefType/t_21_*ANONYM_TYPE*->o_4786_result_temp = 8 */ /* 2883 */ /* ref struct element striType/t_15_string ** objRefType/t_165_*ANONYM_TYPE*->o_4786_result_temp = 8 */ /* 2884 */ /* struct element striType/t_15_string ** structType/t_164_expr_type->o_4787_result_decl = 9 */ /* 2885 */ /* struct element striType/t_15_string ** structType/t_164_expr_type->o_4787_result_decl = 9 */ /* 2886 */ /* ref struct element striType/t_15_string ** objRefType/t_21_*ANONYM_TYPE*->o_4787_result_decl = 9 */ /* 2887 */ /* ref struct element striType/t_15_string ** objRefType/t_165_*ANONYM_TYPE*->o_4787_result_decl = 9 */ /* 2888 */ /* struct element striType/t_15_string ** structType/t_164_expr_type->o_4788_result_free = 10 */ /* 2889 */ /* struct element striType/t_15_string ** structType/t_164_expr_type->o_4788_result_free = 10 */ /* 2890 */ /* ref struct element striType/t_15_string ** objRefType/t_21_*ANONYM_TYPE*->o_4788_result_free = 10 */ /* 2891 */ /* ref struct element striType/t_15_string ** objRefType/t_165_*ANONYM_TYPE*->o_4788_result_free = 10 */ /* 2892 */ /* struct element striType/t_15_string ** structType/t_164_expr_type->o_4789_result_to_null = 11 */ /* 2893 */ /* struct element striType/t_15_string ** structType/t_164_expr_type->o_4789_result_to_null = 11 */ /* 2894 */ /* ref struct element striType/t_15_string ** objRefType/t_21_*ANONYM_TYPE*->o_4789_result_to_null = 11 */ /* 2895 */ /* ref struct element striType/t_15_string ** objRefType/t_165_*ANONYM_TYPE*->o_4789_result_to_null = 11 */ /* 2896 */ /* struct element striType/t_15_string ** structType/t_164_expr_type->o_4790_result_intro = 12 */ /* 2897 */ /* struct element striType/t_15_string ** structType/t_164_expr_type->o_4790_result_intro = 12 */ /* 2898 */ /* ref struct element striType/t_15_string ** objRefType/t_21_*ANONYM_TYPE*->o_4790_result_intro = 12 */ /* 2899 */ /* ref struct element striType/t_15_string ** objRefType/t_165_*ANONYM_TYPE*->o_4790_result_intro = 12 */ /* 2900 */ /* struct element striType/t_15_string ** structType/t_164_expr_type->o_4791_result_expr = 13 */ /* 2901 */ /* struct element striType/t_15_string ** structType/t_164_expr_type->o_4791_result_expr = 13 */ /* 2902 */ /* ref struct element striType/t_15_string ** objRefType/t_21_*ANONYM_TYPE*->o_4791_result_expr = 13 */ /* 2903 */ /* ref struct element striType/t_15_string ** objRefType/t_165_*ANONYM_TYPE*->o_4791_result_expr = 13 */ /* 2904 */ /* struct element striType/t_15_string ** structType/t_164_expr_type->o_4792_result_finish = 14 */ /* 2905 */ /* struct element striType/t_15_string ** structType/t_164_expr_type->o_4792_result_finish = 14 */ /* 2906 */ /* ref struct element striType/t_15_string ** objRefType/t_21_*ANONYM_TYPE*->o_4792_result_finish = 14 */ /* 2907 */ /* ref struct element striType/t_15_string ** objRefType/t_165_*ANONYM_TYPE*->o_4792_result_finish = 14 */ /* 2908 */ structType/*t_164_expr_type*/ o_4793/*.*/; /* 2909 */ /* line 58 "../lib/struct.s7i" */ static structType/*t_164_expr_type*/ create_164 (const_structType/*t_164_expr_type*/ b) /* line 58 "../lib/struct.s7i" */ { /* line 58 "../lib/struct.s7i" */ structType/*t_164_expr_type*/ a; /* line 58 "../lib/struct.s7i" */ a=(structType/*t_164_expr_type*/)(malloc(sizeof(struct rtlStructStruct) - sizeof(rtlObjectType) + /* line 58 "../lib/struct.s7i" */ 15 * sizeof(rtlObjectType))); /* line 58 "../lib/struct.s7i" */ if (a == NULL) { /* line 58 "../lib/struct.s7i" */ raise_error(MEMORY_ERROR); /* line 58 "../lib/struct.s7i" */ } else { /* line 58 "../lib/struct.s7i" */ a->usage_count = 1; a->type_num = b->type_num; /* line 58 "../lib/struct.s7i" */ a->stru[0].value.striValue=strCreate(b->stru[0].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[1].value.intValue=b->stru[1].value.intValue; /* line 58 "../lib/struct.s7i" */ a->stru[2].value.intValue=b->stru[2].value.intValue; /* line 58 "../lib/struct.s7i" */ a->stru[3].value.striValue=strCreate(b->stru[3].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[4].value.striValue=strCreate(b->stru[4].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[5].value.striValue=strCreate(b->stru[5].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[6].value.striValue=strCreate(b->stru[6].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[7].value.striValue=strCreate(b->stru[7].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[8].value.striValue=strCreate(b->stru[8].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[9].value.striValue=strCreate(b->stru[9].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[10].value.striValue=strCreate(b->stru[10].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[11].value.striValue=strCreate(b->stru[11].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[12].value.striValue=strCreate(b->stru[12].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[13].value.striValue=strCreate(b->stru[13].value.striValue); /* line 58 "../lib/struct.s7i" */ a->stru[14].value.striValue=strCreate(b->stru[14].value.striValue); /* line 58 "../lib/struct.s7i" */ } /* line 58 "../lib/struct.s7i" */ return a; /* line 58 "../lib/struct.s7i" */ } /* line 1 "no_file" */ structType/*t_164_expr_type*/ o_4794_global_c_expr; /* 2910 */ listType/*t_20_ref_list*/ o_4795_declared_types=NULL; /* 2911 */ boolType/*t_13_boolean*/ o_4796_write_object_declaration=1/*TRUE*/; /* 2912 */ /* line 58 "../lib/hash.s7i" */ static hashType/*t_162_boolean_obj_hash*/ create_162 (const_hashType/*t_162_boolean_obj_hash*/ b) /* line 58 "../lib/hash.s7i" */ { /* line 58 "../lib/hash.s7i" */ return hshCreate(b, (createFuncType)(o_4615/*.*/), (destrFuncType)(o_4616/*.*/), (createFuncType)(o_4619/*.*/), (destrFuncType)(o_4620/*.*/)); /* line 58 "../lib/hash.s7i" */ } /* line 1 "no_file" */ hashType/*t_162_boolean_obj_hash*/ o_4797_prototype_declared; /* 2913 */ /* line 51 "../lib/comp/expr.s7i" */ static void/*t_1_void*/ o_4798_defineVarFuncType (const typeType/*t_7_type*/ *const o_4799_functionType, structType/*t_164_expr_type*/ *const o_4800_c_expr) { /* line 54 "../lib/comp/expr.s7i" */ strAppend(&(((structType)(*o_4800_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[151] /* "typedef struct {\n" */); { /* line 55 "../lib/comp/expr.s7i" */ typeType/*t_7_type*/ tmp_2; /* line 55 "../lib/comp/expr.s7i" */ strAppendTemp(&(((structType)(*o_4800_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(typResult(*o_4799_functionType)), &tmp_2))); } /* line 56 "../lib/comp/expr.s7i" */ strAppend(&(((structType)(*o_4800_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[152] /* " (*func) (void *);\n" */); /* line 57 "../lib/comp/expr.s7i" */ strAppend(&(((structType)(*o_4800_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[153] /* "struct {\n" */); /* line 58 "../lib/comp/expr.s7i" */ strAppend(&(((structType)(*o_4800_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[154] /* "int dummy;\n" */); /* line 59 "../lib/comp/expr.s7i" */ strAppend(&(((structType)(*o_4800_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[155] /* "} data;\n" */); /* line 60 "../lib/comp/expr.s7i" */ strAppend(&(((structType)(*o_4800_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[156] /* "} struct_" */); /* line 61 "../lib/comp/expr.s7i" */ strAppendTemp(&(((structType)(*o_4800_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4799_functionType)); /* line 62 "../lib/comp/expr.s7i" */ strAppend(&(((structType)(*o_4800_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[157] /* ", *" */); /* line 63 "../lib/comp/expr.s7i" */ strAppendTemp(&(((structType)(*o_4800_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4799_functionType)); /* line 64 "../lib/comp/expr.s7i" */ strAppend(&(((structType)(*o_4800_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[158] /* ";\n\n" */); } /* line 1 "no_file" */ /* 2914 */ static void/*t_1_void*/ o_4801_declare_type_if_necessary (const typeType/*t_7_type*/ *const o_4802_aType, structType/*t_164_expr_type*/ *const o_4803_c_expr); /* line 68 "../lib/comp/expr.s7i" */ static void/*t_1_void*/ o_4801_declare_type_if_necessary (const typeType/*t_7_type*/ *const o_4802_aType, structType/*t_164_expr_type*/ *const o_4803_c_expr) { /* line 71 "../lib/comp/expr.s7i" */ objRefType/*t_19_reference*/ o_4804_type_obj=NULL; /* line 72 "../lib/comp/expr.s7i" */ typeType/*t_7_type*/ o_4805_metaType=typ[0] /* void/t_1_void */; /* line 73 "../lib/comp/expr.s7i" */ typeType/*t_7_type*/ o_4806_baseType=typ[0] /* void/t_1_void */; /* line 75 "../lib/comp/expr.s7i" */ o_4804_type_obj=typMatchobj(*o_4802_aType); /* line 76 "../lib/comp/expr.s7i" */ if (!(rflElem(o_4804_type_obj, o_4795_declared_types))) { /* line 77 "../lib/comp/expr.s7i" */ if (o_3775_not(o_4802_aType, o_4414_typeCategory)) { /* line 78 "../lib/comp/expr.s7i" */ if (typIsDerived(*o_4802_aType)) { /* line 79 "../lib/comp/expr.s7i" */ o_4805_metaType=typMeta(*o_4802_aType); /* line 80 "../lib/comp/expr.s7i" */ if (o_3772_in(&(o_4805_metaType), o_4414_typeCategory)) { /* line 81 "../lib/comp/expr.s7i" */ o_3785/*@:=*/(&(o_4414_typeCategory), o_4802_aType, *o_3765/*[*/(&(o_4414_typeCategory), &(o_4805_metaType))); } else { /* line 83 "../lib/comp/expr.s7i" */ strAppend(&(((structType)(*o_4803_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[159] /* "typedef genericType " */); /* line 84 "../lib/comp/expr.s7i" */ strAppendTemp(&(((structType)(*o_4803_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4802_aType)); /* line 85 "../lib/comp/expr.s7i" */ strAppend(&(((structType)(*o_4803_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[158] /* ";\n\n" */); } /* line 87 "../lib/comp/expr.s7i" */ if (o_3829_in(&(o_4805_metaType), o_4415_array_element)) { /* line 88 "../lib/comp/expr.s7i" */ o_4806_baseType=o_4749_base_type(&(o_4805_metaType)); /* line 89 "../lib/comp/expr.s7i" */ if ((o_4806_baseType) != (typ[0] /* void/t_1_void */)) { /* line 90 "../lib/comp/expr.s7i" */ if (o_3832_not(o_4802_aType, o_4415_array_element)) { /* line 91 "../lib/comp/expr.s7i" */ o_3842/*@:=*/(&(o_4415_array_element), o_4802_aType, o_4806_baseType); } /* line 93 "../lib/comp/expr.s7i" */ if (o_3832_not(&(o_4806_baseType), o_4416_array_type)) { /* line 94 "../lib/comp/expr.s7i" */ o_3842/*@:=*/(&(o_4416_array_type), &(o_4806_baseType), *o_4802_aType); } } } } else /* line 98 "../lib/comp/expr.s7i" */ if (typIsFunc(*o_4802_aType)) { { /* line 99 "../lib/comp/expr.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 99 "../lib/comp/expr.s7i" */ o_4801_declare_type_if_necessary(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(*o_4802_aType)), &tmp_1), o_4803_c_expr); } /* line 100 "../lib/comp/expr.s7i" */ o_4798_defineVarFuncType(o_4802_aType, o_4803_c_expr); /* line 101 "../lib/comp/expr.s7i" */ o_3785/*@:=*/(&(o_4414_typeCategory), o_4802_aType, 4L); } else { /* line 103 "../lib/comp/expr.s7i" */ strAppend(&(((structType)(*o_4803_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[159] /* "typedef genericType " */); /* line 104 "../lib/comp/expr.s7i" */ strAppendTemp(&(((structType)(*o_4803_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4802_aType)); /* line 105 "../lib/comp/expr.s7i" */ strAppend(&(((structType)(*o_4803_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[158] /* ";\n\n" */); } /* line 107 "../lib/comp/expr.s7i" */ rflIncl(&(o_4795_declared_types), o_4804_type_obj); } } } /* line 1 "no_file" */ /* 2915 */ /* line 27 "../lib/comp/debug.s7i" */ static boolType/*t_13_boolean*/ o_4807_isByteString (const const_striType/*t_15_string*/ o_4808_stri) { /* line 30 "../lib/comp/debug.s7i" */ boolType/*t_13_boolean*/ o_4809_isByteString=o_26_TRUE; /* line 32 "../lib/comp/debug.s7i" */ charType/*t_18_char*/ o_4810_ch=(charType) ' '; /* inline proc o_165_for */ { /* inline params */ /* line 34 "../lib/comp/debug.s7i" */ charType/*t_18_char*/ *const o_373_variable=&(o_4810_ch); /* line 34 "../lib/comp/debug.s7i" */ const const_striType/*t_15_string*/ o_374_stri=o_4808_stri; /* line 34 "../lib/comp/debug.s7i" */ /* push proc param o_375_statements */ /* line 34 "../lib/comp/debug.s7i" */ /* inline local_vars */ /* line 34 "../lib/comp/debug.s7i" */ /* line 214 "../lib/forloop.s7i" */ /* line 34 "../lib/comp/debug.s7i" */ intType/*t_14_integer*/ o_376_number=0; /* inline body */ { /* line 216 "../lib/forloop.s7i" */ intType tmp_e_1=(intType)((o_374_stri)->size); /* line 216 "../lib/forloop.s7i" */ for (o_376_number=1L; o_376_number<=tmp_e_1; (o_376_number)++) { { /* line 217 "../lib/forloop.s7i" */ uintType idx_1; /* line 217 "../lib/forloop.s7i" */ *o_373_variable=(o_374_stri)->mem[(idx_1=(uintType)((o_376_number)-1), idxChk(idx_1>=(o_374_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]; } /* closure o_375_statements*/ { /* line 35 "../lib/comp/debug.s7i" */ if (((intType)((scharType)(o_4810_ch))) > (255L)) { /* line 36 "../lib/comp/debug.s7i" */ o_4809_isByteString=o_25_FALSE; } } /* closure o_375_statements*/ } } /* pop proc param o_375_statements */ } /* inline proc o_165_for */ return o_4809_isByteString; } /* line 1 "no_file" */ /* 2916 */ /* line 42 "../lib/comp/debug.s7i" */ static striType/*t_15_string*/ o_4811_sourceNameString (const const_striType/*t_15_string*/ o_4812_sourceName) { /* line 45 "../lib/comp/debug.s7i" */ striType/*t_15_string*/ o_4813_stri; /* line 45 "../lib/comp/debug.s7i" */ o_4813_stri=strEmpty(); /* "" */ /* line 47 "../lib/comp/debug.s7i" */ if ((((structType)(sct[55]))->stru[17].value.boolValue/*->o_3395_CC_SOURCE_UTF8*/) || /* line 47 "../lib/comp/debug.s7i" */ (!(o_4807_isByteString(o_4812_sourceName)))) { { /* line 48 "../lib/comp/debug.s7i" */ striType tmp_3 = NULL; /* line 48 "../lib/comp/debug.s7i" */ striType tmp_2 = NULL; /* line 48 "../lib/comp/debug.s7i" */ striType old_stri=o_4813_stri; /* line 48 "../lib/comp/debug.s7i" */ o_4813_stri=strCLit((tmp_2=strToUtf8((tmp_3=cmdToOsPath(o_4812_sourceName))))); /* line 48 "../lib/comp/debug.s7i" */ strDestr(old_stri); /* line 48 "../lib/comp/debug.s7i" */ strDestr(tmp_3); /* line 48 "../lib/comp/debug.s7i" */ strDestr(tmp_2); } } else { { /* line 50 "../lib/comp/debug.s7i" */ striType tmp_2 = NULL; /* line 50 "../lib/comp/debug.s7i" */ striType old_stri=o_4813_stri; /* line 50 "../lib/comp/debug.s7i" */ o_4813_stri=strCLit((tmp_2=cmdToOsPath(o_4812_sourceName))); /* line 50 "../lib/comp/debug.s7i" */ strDestr(old_stri); /* line 50 "../lib/comp/debug.s7i" */ strDestr(tmp_2); } } return o_4813_stri; } /* line 1 "no_file" */ /* 2917 */ /* line 55 "../lib/comp/debug.s7i" */ static striType/*t_15_string*/ o_4814_noDiagnosticLine (void) { /* line 58 "../lib/comp/debug.s7i" */ striType/*t_15_string*/ o_4815_diagnosticLine; /* line 58 "../lib/comp/debug.s7i" */ o_4815_diagnosticLine=strEmpty(); /* "" */ /* line 60 "../lib/comp/debug.s7i" */ if (o_3453_source_debug_info) { /* line 61 "../lib/comp/debug.s7i" */ strAppend(&(o_4815_diagnosticLine), &str[160] /* "#line 1 \"no_file\"\n" */); } else { /* line 63 "../lib/comp/debug.s7i" */ strAppend(&(o_4815_diagnosticLine), &str[161] /* "/* line 1 \"no_file\" *\/\n" */); } return o_4815_diagnosticLine; } /* line 1 "no_file" */ /* 2918 */ /* line 68 "../lib/comp/debug.s7i" */ static striType/*t_15_string*/ o_4816_diagnosticLine (const objRefType/*t_19_reference*/ o_4817_current_object) { /* line 71 "../lib/comp/debug.s7i" */ striType/*t_15_string*/ o_4818_diagnosticLine; /* line 71 "../lib/comp/debug.s7i" */ o_4818_diagnosticLine=strEmpty(); /* "" */ /* line 73 "../lib/comp/debug.s7i" */ if ((o_3453_source_debug_info) && /* line 73 "../lib/comp/debug.s7i" */ ((refLine(o_4817_current_object)) != (0L))) { /* line 74 "../lib/comp/debug.s7i" */ strAppend(&(o_4818_diagnosticLine), &str[162] /* "#line " */); { /* line 75 "../lib/comp/debug.s7i" */ union { /* line 75 "../lib/comp/debug.s7i" */ struct striStruct striBuf; /* line 75 "../lib/comp/debug.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 75 "../lib/comp/debug.s7i" */ } buffer_1; /* line 75 "../lib/comp/debug.s7i" */ strAppend(&(o_4818_diagnosticLine), intStrToBuffer(refLine(o_4817_current_object), &buffer_1.striBuf)); } /* line 76 "../lib/comp/debug.s7i" */ /* line 76 "../lib/comp/debug.s7i" */ if (((o_4818_diagnosticLine))->size == ((o_4818_diagnosticLine))->capacity) { /* line 76 "../lib/comp/debug.s7i" */ strPush(&((o_4818_diagnosticLine)), (charType) ' '); /* line 76 "../lib/comp/debug.s7i" */ } else { /* line 76 "../lib/comp/debug.s7i" */ ((o_4818_diagnosticLine))->mem[((o_4818_diagnosticLine))->size]=(charType) ' '; /* line 76 "../lib/comp/debug.s7i" */ ((o_4818_diagnosticLine))->size++; /* line 76 "../lib/comp/debug.s7i" */ } /* line 77 "../lib/comp/debug.s7i" */ strAppendTemp(&(o_4818_diagnosticLine), o_4811_sourceNameString(refFile(o_4817_current_object))); /* line 78 "../lib/comp/debug.s7i" */ /* line 78 "../lib/comp/debug.s7i" */ if (((o_4818_diagnosticLine))->size == ((o_4818_diagnosticLine))->capacity) { /* line 78 "../lib/comp/debug.s7i" */ strPush(&((o_4818_diagnosticLine)), (charType) '\n'); /* line 78 "../lib/comp/debug.s7i" */ } else { /* line 78 "../lib/comp/debug.s7i" */ ((o_4818_diagnosticLine))->mem[((o_4818_diagnosticLine))->size]=(charType) '\n'; /* line 78 "../lib/comp/debug.s7i" */ ((o_4818_diagnosticLine))->size++; /* line 78 "../lib/comp/debug.s7i" */ } } else { /* line 80 "../lib/comp/debug.s7i" */ strAppend(&(o_4818_diagnosticLine), &str[163] /* "/* line " */); { /* line 81 "../lib/comp/debug.s7i" */ union { /* line 81 "../lib/comp/debug.s7i" */ struct striStruct striBuf; /* line 81 "../lib/comp/debug.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 81 "../lib/comp/debug.s7i" */ } buffer_1; /* line 81 "../lib/comp/debug.s7i" */ strAppend(&(o_4818_diagnosticLine), intStrToBuffer(refLine(o_4817_current_object), &buffer_1.striBuf)); } /* line 82 "../lib/comp/debug.s7i" */ /* line 82 "../lib/comp/debug.s7i" */ if (((o_4818_diagnosticLine))->size == ((o_4818_diagnosticLine))->capacity) { /* line 82 "../lib/comp/debug.s7i" */ strPush(&((o_4818_diagnosticLine)), (charType) ' '); /* line 82 "../lib/comp/debug.s7i" */ } else { /* line 82 "../lib/comp/debug.s7i" */ ((o_4818_diagnosticLine))->mem[((o_4818_diagnosticLine))->size]=(charType) ' '; /* line 82 "../lib/comp/debug.s7i" */ ((o_4818_diagnosticLine))->size++; /* line 82 "../lib/comp/debug.s7i" */ } /* line 83 "../lib/comp/debug.s7i" */ strAppendTemp(&(o_4818_diagnosticLine), o_4811_sourceNameString(refFile(o_4817_current_object))); /* line 84 "../lib/comp/debug.s7i" */ strAppend(&(o_4818_diagnosticLine), &str[164] /* " *\/\n" */); } return o_4818_diagnosticLine; } /* line 1 "no_file" */ /* 2919 */ /* line 89 "../lib/comp/debug.s7i" */ static void/*t_1_void*/ o_4819_setDiagnosticLine (structType/*t_164_expr_type*/ *const o_4820_c_expr) { /* line 92 "../lib/comp/debug.s7i" */ if ((o_3453_source_debug_info) && /* line 92 "../lib/comp/debug.s7i" */ ((((structType)(*o_4820_c_expr))->stru[1].value.intValue/*->o_4779_currentLine*/) != (0L))) { /* line 93 "../lib/comp/debug.s7i" */ strAppend(&(((structType)(*o_4820_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[162] /* "#line " */); { /* line 94 "../lib/comp/debug.s7i" */ union { /* line 94 "../lib/comp/debug.s7i" */ struct striStruct striBuf; /* line 94 "../lib/comp/debug.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 94 "../lib/comp/debug.s7i" */ } buffer_1; /* line 94 "../lib/comp/debug.s7i" */ strAppend(&(((structType)(*o_4820_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(((structType)(*o_4820_c_expr))->stru[1].value.intValue/*->o_4779_currentLine*/, &buffer_1.striBuf)); } /* line 95 "../lib/comp/debug.s7i" */ { /* line 95 "../lib/comp/debug.s7i" */ striType *tmp_1; /* line 95 "../lib/comp/debug.s7i" */ tmp_1=&(((structType)(*o_4820_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 95 "../lib/comp/debug.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 95 "../lib/comp/debug.s7i" */ strPush(&(*tmp_1), (charType) ' '); /* line 95 "../lib/comp/debug.s7i" */ } else { /* line 95 "../lib/comp/debug.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ' '; /* line 95 "../lib/comp/debug.s7i" */ (*tmp_1)->size++; /* line 95 "../lib/comp/debug.s7i" */ } } /* line 96 "../lib/comp/debug.s7i" */ strAppendTemp(&(((structType)(*o_4820_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4811_sourceNameString(((structType)(*o_4820_c_expr))->stru[0].value.striValue/*->o_4778_currentFile*/)); /* line 97 "../lib/comp/debug.s7i" */ { /* line 97 "../lib/comp/debug.s7i" */ striType *tmp_1; /* line 97 "../lib/comp/debug.s7i" */ tmp_1=&(((structType)(*o_4820_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 97 "../lib/comp/debug.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 97 "../lib/comp/debug.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 97 "../lib/comp/debug.s7i" */ } else { /* line 97 "../lib/comp/debug.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 97 "../lib/comp/debug.s7i" */ (*tmp_1)->size++; /* line 97 "../lib/comp/debug.s7i" */ } } } else { /* line 99 "../lib/comp/debug.s7i" */ strAppend(&(((structType)(*o_4820_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[163] /* "/* line " */); { /* line 100 "../lib/comp/debug.s7i" */ union { /* line 100 "../lib/comp/debug.s7i" */ struct striStruct striBuf; /* line 100 "../lib/comp/debug.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 100 "../lib/comp/debug.s7i" */ } buffer_1; /* line 100 "../lib/comp/debug.s7i" */ strAppend(&(((structType)(*o_4820_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(((structType)(*o_4820_c_expr))->stru[1].value.intValue/*->o_4779_currentLine*/, &buffer_1.striBuf)); } /* line 101 "../lib/comp/debug.s7i" */ { /* line 101 "../lib/comp/debug.s7i" */ striType *tmp_1; /* line 101 "../lib/comp/debug.s7i" */ tmp_1=&(((structType)(*o_4820_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 101 "../lib/comp/debug.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 101 "../lib/comp/debug.s7i" */ strPush(&(*tmp_1), (charType) ' '); /* line 101 "../lib/comp/debug.s7i" */ } else { /* line 101 "../lib/comp/debug.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ' '; /* line 101 "../lib/comp/debug.s7i" */ (*tmp_1)->size++; /* line 101 "../lib/comp/debug.s7i" */ } } /* line 102 "../lib/comp/debug.s7i" */ strAppendTemp(&(((structType)(*o_4820_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4811_sourceNameString(((structType)(*o_4820_c_expr))->stru[0].value.striValue/*->o_4778_currentFile*/)); /* line 103 "../lib/comp/debug.s7i" */ strAppend(&(((structType)(*o_4820_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[164] /* " *\/\n" */); } } /* line 1 "no_file" */ /* 2920 */ /* line 108 "../lib/comp/debug.s7i" */ static void/*t_1_void*/ o_4821_AppendWithDiagnostic (const const_striType/*t_15_string*/ o_4822_decls, structType/*t_164_expr_type*/ *const o_4823_c_expr) { /* line 111 "../lib/comp/debug.s7i" */ striType/*t_15_string*/ o_4824_line; /* line 111 "../lib/comp/debug.s7i" */ o_4824_line=strEmpty(); /* "" */ /* inline proc o_301_for */ { /* inline params */ /* line 113 "../lib/comp/debug.s7i" */ striType/*t_15_string*/ *const o_3324_forVar=&(o_4824_line); /* line 113 "../lib/comp/debug.s7i" */ arrayType/*t_29_*ANONYM_TYPE**/ tmp_1 = (arrayType/*t_29_*ANONYM_TYPE**/)(NULL); /* line 113 "../lib/comp/debug.s7i" */ const const_arrayType/*t_28_TEST_3*/ o_3325_arr=(tmp_1=(arrayType/*t_29_*ANONYM_TYPE**/)(strChSplit(o_4822_decls, (charType) '\n'))); /* line 113 "../lib/comp/debug.s7i" */ /* push proc param o_3326_statements */ /* line 113 "../lib/comp/debug.s7i" */ /* inline local_vars */ /* line 113 "../lib/comp/debug.s7i" */ /* line 199 "../lib/array.s7i" */ /* line 113 "../lib/comp/debug.s7i" */ intType/*t_14_integer*/ o_3327_number=0; /* inline body */ { /* line 201 "../lib/array.s7i" */ intType tmp_e_1=(o_3325_arr)->max_position; /* line 201 "../lib/array.s7i" */ for (o_3327_number=(o_3325_arr)->min_position; o_3327_number<=tmp_e_1; (o_3327_number)++) { /* line 202 "../lib/array.s7i" */ strCopy(&(*o_3324_forVar), (o_3325_arr)->arr[(idxChk((o_3327_number) < (o_3325_arr)->min_position || (o_3327_number) > (o_3325_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_3327_number)-(o_3325_arr)->min_position)].value.striValue); /* closure o_3326_statements*/ { /* line 114 "../lib/comp/debug.s7i" */ if (((o_4824_line)->size!=0 /* "" */)) { /* line 115 "../lib/comp/debug.s7i" */ o_4819_setDiagnosticLine(o_4823_c_expr); /* line 116 "../lib/comp/debug.s7i" */ strAppend(&(((structType)(*o_4823_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4824_line); /* line 117 "../lib/comp/debug.s7i" */ { /* line 117 "../lib/comp/debug.s7i" */ striType *tmp_1; /* line 117 "../lib/comp/debug.s7i" */ tmp_1=&(((structType)(*o_4823_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 117 "../lib/comp/debug.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 117 "../lib/comp/debug.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 117 "../lib/comp/debug.s7i" */ } else { /* line 117 "../lib/comp/debug.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 117 "../lib/comp/debug.s7i" */ (*tmp_1)->size++; /* line 117 "../lib/comp/debug.s7i" */ } } } } /* closure o_3326_statements*/ } } /* line 202 "../lib/array.s7i" */ destr_29(tmp_1); /* pop proc param o_3326_statements */ } /* inline proc o_301_for */ /* line 108 "../lib/comp/debug.s7i" */ strDestr(o_4824_line); } /* line 1 "no_file" */ /* 2921 */ /* line 58 "../lib/hash.s7i" */ static hashType/*t_125_typeReferenceHash*/ create_125 (const_hashType/*t_125_typeReferenceHash*/ b) /* line 58 "../lib/hash.s7i" */ { /* line 58 "../lib/hash.s7i" */ return hshCreate(b, (createFuncType)(o_3466/*.*/), (destrFuncType)(o_3467/*.*/), (createFuncType)(o_3470/*.*/), (destrFuncType)(o_3471/*.*/)); /* line 58 "../lib/hash.s7i" */ } /* line 1 "no_file" */ hashType/*t_125_typeReferenceHash*/ o_4825_destrFunction; /* 2922 */ /* line 58 "../lib/hash.s7i" */ static hashType/*t_140_boolean_type_hash*/ create_140 (const_hashType/*t_140_boolean_type_hash*/ b) /* line 58 "../lib/hash.s7i" */ { /* line 58 "../lib/hash.s7i" */ return hshCreate(b, (createFuncType)(o_3921/*.*/), (destrFuncType)(o_3922/*.*/), (createFuncType)(o_3925/*.*/), (destrFuncType)(o_3926/*.*/)); /* line 58 "../lib/hash.s7i" */ } /* line 1 "no_file" */ hashType/*t_140_boolean_type_hash*/ o_4826_destr_declared; /* 2923 */ hashType/*t_140_boolean_type_hash*/ o_4827_destr_prototype_declared; /* 2924 */ /* line 58 "../lib/hash.s7i" */ static hashType/*t_152_string_type_hash*/ create_152 (const_hashType/*t_152_string_type_hash*/ b) /* line 58 "../lib/hash.s7i" */ { /* line 58 "../lib/hash.s7i" */ return hshCreate(b, (createFuncType)(o_4293/*.*/), (destrFuncType)(o_4294/*.*/), (createFuncType)(o_4297/*.*/), (destrFuncType)(o_4298/*.*/)); /* line 58 "../lib/hash.s7i" */ } /* line 1 "no_file" */ hashType/*t_152_string_type_hash*/ o_4828_parametersOfHshDestr; /* 2925 */ static void/*t_1_void*/ o_4829_process_destr_declaration (const typeType/*t_7_type*/ *const o_4830_object_type, structType/*t_164_expr_type*/ *const o_4831_c_expr); static void/*t_1_void*/ o_4832_process_destr_call (const typeType/*t_7_type*/ *const o_4833_object_type, const const_striType/*t_15_string*/ o_4834_param_b, striType/*t_15_string*/ *const o_4835_expr); static void/*t_1_void*/ o_4829_process_destr_declaration (const typeType/*t_7_type*/ *const o_4830_object_type, structType/*t_164_expr_type*/ *const o_4831_c_expr); static void/*t_1_void*/ o_4832_process_destr_call (const typeType/*t_7_type*/ *const o_4833_object_type, const const_striType/*t_15_string*/ o_4834_param_b, striType/*t_15_string*/ *const o_4835_expr); /* line 41 "../lib/comp/destr.s7i" */ static void/*t_1_void*/ o_4836_process_arr_destr_declaration (const typeType/*t_7_type*/ *const o_4837_object_type, structType/*t_164_expr_type*/ *const o_4838_c_expr) { /* line 45 "../lib/comp/destr.s7i" */ striType/*t_15_string*/ o_4839_diagnosticLine; /* line 46 "../lib/comp/destr.s7i" */ striType/*t_15_string*/ o_4840_select_value; /* line 45 "../lib/comp/destr.s7i" */ o_4839_diagnosticLine=strEmpty(); /* "" */ /* line 46 "../lib/comp/destr.s7i" */ o_4840_select_value=strEmpty(); /* "" */ /* line 48 "../lib/comp/destr.s7i" */ if (o_3595_in(o_4837_object_type, o_4825_destrFunction)) { { /* line 49 "../lib/comp/destr.s7i" */ striType old_stri=o_4839_diagnosticLine; /* line 49 "../lib/comp/destr.s7i" */ o_4839_diagnosticLine=o_4816_diagnosticLine(*o_3588/*[*/(&(o_4825_destrFunction), o_4837_object_type)); /* line 49 "../lib/comp/destr.s7i" */ strDestr(old_stri); } } { /* line 51 "../lib/comp/destr.s7i" */ striType old_stri=o_4840_select_value; /* line 51 "../lib/comp/destr.s7i" */ o_4840_select_value=o_4760_select_value_from_rtlObjectStruct(&(*o_3822/*[*/(&(o_4415_array_element), o_4837_object_type))); /* line 51 "../lib/comp/destr.s7i" */ strDestr(old_stri); } /* line 52 "../lib/comp/destr.s7i" */ o_4829_process_destr_declaration(&(*o_3822/*[*/(&(o_4415_array_element), o_4837_object_type)), o_4838_c_expr); /* line 53 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4839_diagnosticLine); /* line 54 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[165] /* "static void destr_" */); { /* line 55 "../lib/comp/destr.s7i" */ union { /* line 55 "../lib/comp/destr.s7i" */ struct striStruct striBuf; /* line 55 "../lib/comp/destr.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 55 "../lib/comp/destr.s7i" */ } buffer_1; /* line 55 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(*o_4837_object_type), &buffer_1.striBuf)); } /* line 56 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[166] /* " (const_" */); /* line 57 "../lib/comp/destr.s7i" */ strAppendTemp(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4837_object_type)); /* line 58 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[167] /* " b)\n" */); /* line 59 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4839_diagnosticLine); /* line 60 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 61 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4839_diagnosticLine); /* line 62 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[169] /* "memSizeType i;\n" */); /* line 63 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4839_diagnosticLine); /* line 64 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[170] /* "memSizeType size;\n" */); /* line 65 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4839_diagnosticLine); /* line 66 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[171] /* "if (b != NULL) {\n" */); /* line 67 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4839_diagnosticLine); /* line 68 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[172] /* "size = (uintType)(b->max_position - b->min_position + 1);\n" */); /* line 69 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4839_diagnosticLine); /* line 70 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[173] /* "for (i = 0; i < size; i++) {\n" */); /* line 71 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4839_diagnosticLine); { /* line 72 "../lib/comp/destr.s7i" */ striType tmp_1 = NULL; /* line 72 "../lib/comp/destr.s7i" */ o_4832_process_destr_call(&(*o_3822/*[*/(&(o_4415_array_element), o_4837_object_type)), (tmp_1=strConcat(&str[174] /* "b->arr[i]" */, o_4840_select_value)), &(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 72 "../lib/comp/destr.s7i" */ strDestr(tmp_1); } /* line 74 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4839_diagnosticLine); /* line 75 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 76 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4839_diagnosticLine); /* line 77 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[176] /* "arrFree((arrayType)(b));\n" */); /* line 78 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4839_diagnosticLine); /* line 79 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 80 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4839_diagnosticLine); /* line 81 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 82 "../lib/comp/destr.s7i" */ strAppendTemp(&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4814_noDiagnosticLine()); /* line 83 "../lib/comp/destr.s7i" */ { /* line 83 "../lib/comp/destr.s7i" */ striType *tmp_1; /* line 83 "../lib/comp/destr.s7i" */ tmp_1=&(((structType)(*o_4838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 83 "../lib/comp/destr.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 83 "../lib/comp/destr.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 83 "../lib/comp/destr.s7i" */ } else { /* line 83 "../lib/comp/destr.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 83 "../lib/comp/destr.s7i" */ (*tmp_1)->size++; /* line 83 "../lib/comp/destr.s7i" */ } } /* line 84 "../lib/comp/destr.s7i" */ o_3963/*@:=*/(&(o_4826_destr_declared), o_4837_object_type, o_26_TRUE); /* line 41 "../lib/comp/destr.s7i" */ strDestr(o_4839_diagnosticLine); /* line 41 "../lib/comp/destr.s7i" */ strDestr(o_4840_select_value); } /* line 1 "no_file" */ /* 2926 */ /* line 88 "../lib/comp/destr.s7i" */ static void/*t_1_void*/ o_4841_process_sct_destr_declaration (const typeType/*t_7_type*/ *const o_4842_object_type, structType/*t_164_expr_type*/ *const o_4843_c_expr) { /* line 92 "../lib/comp/destr.s7i" */ striType/*t_15_string*/ o_4844_diagnosticLine; /* line 93 "../lib/comp/destr.s7i" */ hashType/*t_155_number_element_hash*/ o_4845_elements; /* line 94 "../lib/comp/destr.s7i" */ intType/*t_14_integer*/ o_4846_number=0; /* line 95 "../lib/comp/destr.s7i" */ objRefType/*t_19_reference*/ o_4847_struct_elem=NULL; /* line 96 "../lib/comp/destr.s7i" */ striType/*t_15_string*/ o_4848_select_value; /* line 92 "../lib/comp/destr.s7i" */ o_4844_diagnosticLine=strEmpty(); /* "" */ /* line 93 "../lib/comp/destr.s7i" */ o_4845_elements=hshEmpty(); /* line 96 "../lib/comp/destr.s7i" */ o_4848_select_value=strEmpty(); /* "" */ /* line 98 "../lib/comp/destr.s7i" */ if (o_3595_in(o_4842_object_type, o_4825_destrFunction)) { { /* line 99 "../lib/comp/destr.s7i" */ striType old_stri=o_4844_diagnosticLine; /* line 99 "../lib/comp/destr.s7i" */ o_4844_diagnosticLine=o_4816_diagnosticLine(*o_3588/*[*/(&(o_4825_destrFunction), o_4842_object_type)); /* line 99 "../lib/comp/destr.s7i" */ strDestr(old_stri); } } /* line 101 "../lib/comp/destr.s7i" */ if (o_4587_in(o_4842_object_type, o_4735_struct_elements)) { { /* line 102 "../lib/comp/destr.s7i" */ hashType/*t_155_number_element_hash*/ tmp_1 = (hashType/*t_155_number_element_hash*/)(NULL); /* line 102 "../lib/comp/destr.s7i" */ o_4430/*:=*/(&(o_4845_elements), (tmp_1=(hashType/*t_155_number_element_hash*/)(o_4530_flip(*o_4580/*[*/(&(o_4735_struct_elements), o_4842_object_type))))); /* line 102 "../lib/comp/destr.s7i" */ destr_155(tmp_1); } } { /* line 104 "../lib/comp/destr.s7i" */ intType tmp_e_1=((intType)((o_4845_elements)->size))-1; /* line 104 "../lib/comp/destr.s7i" */ for (o_4846_number=0L; o_4846_number<=tmp_e_1; (o_4846_number)++) { { /* line 105 "../lib/comp/destr.s7i" */ arrayType tmp_1; /* line 105 "../lib/comp/destr.s7i" */ o_4847_struct_elem=(*(tmp_1=*o_4438/*[*/(&(o_4845_elements), &(o_4846_number)), &tmp_1->arr[(idxChk(1min_position || 1>tmp_1->max_position) ? intRaiseError(RANGE_ERROR) : 0, 1-tmp_1->min_position)].value.objRefValue)); } /* line 106 "../lib/comp/destr.s7i" */ o_4829_process_destr_declaration(&(*o_4062/*[*/(&(*o_4258/*[*/(&(o_4417_struct_element_type), o_4842_object_type)), &(o_4847_struct_elem))), o_4843_c_expr); } } /* line 108 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4843_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4844_diagnosticLine); /* line 109 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4843_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[165] /* "static void destr_" */); { /* line 110 "../lib/comp/destr.s7i" */ union { /* line 110 "../lib/comp/destr.s7i" */ struct striStruct striBuf; /* line 110 "../lib/comp/destr.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 110 "../lib/comp/destr.s7i" */ } buffer_1; /* line 110 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4843_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(*o_4842_object_type), &buffer_1.striBuf)); } /* line 111 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4843_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[177] /* " (" */); /* line 112 "../lib/comp/destr.s7i" */ strAppendTemp(&(((structType)(*o_4843_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4842_object_type)); /* line 113 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4843_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[167] /* " b)\n" */); /* line 114 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4843_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4844_diagnosticLine); /* line 115 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4843_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 116 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4843_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4844_diagnosticLine); /* line 117 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4843_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[178] /* "if (b != NULL && b->usage_count != 0) {\n" */); /* line 118 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4843_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[179] /* "b->usage_count--;\n" */); /* line 119 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4843_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[180] /* "if (b->usage_count == 0) {\n" */); { /* line 120 "../lib/comp/destr.s7i" */ intType tmp_e_1=((intType)((o_4845_elements)->size))-1; /* line 120 "../lib/comp/destr.s7i" */ for (o_4846_number=0L; o_4846_number<=tmp_e_1; (o_4846_number)++) { { /* line 121 "../lib/comp/destr.s7i" */ arrayType tmp_1; /* line 121 "../lib/comp/destr.s7i" */ o_4847_struct_elem=(*(tmp_1=*o_4438/*[*/(&(o_4845_elements), &(o_4846_number)), &tmp_1->arr[(idxChk(1min_position || 1>tmp_1->max_position) ? intRaiseError(RANGE_ERROR) : 0, 1-tmp_1->min_position)].value.objRefValue)); } { /* line 122 "../lib/comp/destr.s7i" */ striType old_stri=o_4848_select_value; /* line 122 "../lib/comp/destr.s7i" */ o_4848_select_value=o_4760_select_value_from_rtlObjectStruct(&(*o_4062/*[*/(&(*o_4258/*[*/(&(o_4417_struct_element_type), o_4842_object_type)), &(o_4847_struct_elem)))); /* line 122 "../lib/comp/destr.s7i" */ strDestr(old_stri); } /* line 123 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4843_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4844_diagnosticLine); { /* line 124 "../lib/comp/destr.s7i" */ const_striType tmp_2[4]; /* line 124 "../lib/comp/destr.s7i" */ union { /* line 124 "../lib/comp/destr.s7i" */ struct striStruct striBuf; /* line 124 "../lib/comp/destr.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 124 "../lib/comp/destr.s7i" */ } buffer_3; /* line 124 "../lib/comp/destr.s7i" */ striType tmp_1 = NULL; /* line 124 "../lib/comp/destr.s7i" */ o_4832_process_destr_call(&(*o_4062/*[*/(&(*o_4258/*[*/(&(o_4417_struct_element_type), o_4842_object_type)), &(o_4847_struct_elem))), (tmp_1=(tmp_2[0] = &str[181] /* "b->stru[" */, tmp_2[1] = intStrToBuffer(o_4846_number, &buffer_3.striBuf), tmp_2[2] = &str[182] /* "]" */, tmp_2[3] = o_4848_select_value, strConcatN(tmp_2, 4))), &(((structType)(*o_4843_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 124 "../lib/comp/destr.s7i" */ strDestr(tmp_1); } } } /* line 127 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4843_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4844_diagnosticLine); /* line 128 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4843_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[183] /* "free((void *)(b));\n" */); /* line 129 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4843_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4844_diagnosticLine); /* line 130 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4843_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[184] /* "}}\n" */); /* line 131 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4843_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4844_diagnosticLine); /* line 132 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4843_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 133 "../lib/comp/destr.s7i" */ strAppendTemp(&(((structType)(*o_4843_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4814_noDiagnosticLine()); /* line 134 "../lib/comp/destr.s7i" */ { /* line 134 "../lib/comp/destr.s7i" */ striType *tmp_1; /* line 134 "../lib/comp/destr.s7i" */ tmp_1=&(((structType)(*o_4843_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 134 "../lib/comp/destr.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 134 "../lib/comp/destr.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 134 "../lib/comp/destr.s7i" */ } else { /* line 134 "../lib/comp/destr.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 134 "../lib/comp/destr.s7i" */ (*tmp_1)->size++; /* line 134 "../lib/comp/destr.s7i" */ } } /* line 135 "../lib/comp/destr.s7i" */ o_3963/*@:=*/(&(o_4826_destr_declared), o_4842_object_type, o_26_TRUE); /* line 88 "../lib/comp/destr.s7i" */ strDestr(o_4844_diagnosticLine); /* line 88 "../lib/comp/destr.s7i" */ destr_155(o_4845_elements); /* line 88 "../lib/comp/destr.s7i" */ strDestr(o_4848_select_value); } /* line 1 "no_file" */ /* 2927 */ /* line 139 "../lib/comp/destr.s7i" */ static void/*t_1_void*/ o_4849_process_hsh_destr_declaration (const typeType/*t_7_type*/ *const o_4850_object_type, structType/*t_164_expr_type*/ *const o_4851_c_expr) { /* line 143 "../lib/comp/destr.s7i" */ striType/*t_15_string*/ o_4852_diagnosticLine; /* line 143 "../lib/comp/destr.s7i" */ o_4852_diagnosticLine=strEmpty(); /* "" */ /* line 145 "../lib/comp/destr.s7i" */ if (o_3595_in(o_4850_object_type, o_4825_destrFunction)) { { /* line 146 "../lib/comp/destr.s7i" */ striType old_stri=o_4852_diagnosticLine; /* line 146 "../lib/comp/destr.s7i" */ o_4852_diagnosticLine=o_4816_diagnosticLine(*o_3588/*[*/(&(o_4825_destrFunction), o_4850_object_type)); /* line 146 "../lib/comp/destr.s7i" */ strDestr(old_stri); } } /* line 148 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4851_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4852_diagnosticLine); /* line 149 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4851_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[165] /* "static void destr_" */); { /* line 150 "../lib/comp/destr.s7i" */ union { /* line 150 "../lib/comp/destr.s7i" */ struct striStruct striBuf; /* line 150 "../lib/comp/destr.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 150 "../lib/comp/destr.s7i" */ } buffer_1; /* line 150 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4851_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(*o_4850_object_type), &buffer_1.striBuf)); } /* line 151 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4851_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[166] /* " (const_" */); /* line 152 "../lib/comp/destr.s7i" */ strAppendTemp(&(((structType)(*o_4851_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4850_object_type)); /* line 153 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4851_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[167] /* " b)\n" */); /* line 154 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4851_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4852_diagnosticLine); /* line 155 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4851_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 156 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4851_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4852_diagnosticLine); /* line 157 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4851_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[185] /* "hshDestr(b" */); /* line 158 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4851_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), *o_4315/*[*/(&(o_4828_parametersOfHshDestr), o_4850_object_type)); /* line 159 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4851_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 160 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4851_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4852_diagnosticLine); /* line 161 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4851_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 162 "../lib/comp/destr.s7i" */ strAppendTemp(&(((structType)(*o_4851_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4814_noDiagnosticLine()); /* line 163 "../lib/comp/destr.s7i" */ { /* line 163 "../lib/comp/destr.s7i" */ striType *tmp_1; /* line 163 "../lib/comp/destr.s7i" */ tmp_1=&(((structType)(*o_4851_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 163 "../lib/comp/destr.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 163 "../lib/comp/destr.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 163 "../lib/comp/destr.s7i" */ } else { /* line 163 "../lib/comp/destr.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 163 "../lib/comp/destr.s7i" */ (*tmp_1)->size++; /* line 163 "../lib/comp/destr.s7i" */ } } /* line 164 "../lib/comp/destr.s7i" */ o_3963/*@:=*/(&(o_4826_destr_declared), o_4850_object_type, o_26_TRUE); /* line 139 "../lib/comp/destr.s7i" */ strDestr(o_4852_diagnosticLine); } /* line 1 "no_file" */ /* 2928 */ /* line 168 "../lib/comp/destr.s7i" */ static void/*t_1_void*/ o_4853_process_itf_destr_declaration (const typeType/*t_7_type*/ *const o_4854_object_type, structType/*t_164_expr_type*/ *const o_4855_c_expr) { /* line 172 "../lib/comp/destr.s7i" */ striType/*t_15_string*/ o_4856_diagnosticLine; /* line 173 "../lib/comp/destr.s7i" */ typeType/*t_7_type*/ o_4857_implementationType=typ[0] /* void/t_1_void */; /* line 172 "../lib/comp/destr.s7i" */ o_4856_diagnosticLine=strEmpty(); /* "" */ /* line 175 "../lib/comp/destr.s7i" */ if (o_3595_in(o_4854_object_type, o_4825_destrFunction)) { { /* line 176 "../lib/comp/destr.s7i" */ striType old_stri=o_4856_diagnosticLine; /* line 176 "../lib/comp/destr.s7i" */ o_4856_diagnosticLine=o_4816_diagnosticLine(*o_3588/*[*/(&(o_4825_destrFunction), o_4854_object_type)); /* line 176 "../lib/comp/destr.s7i" */ strDestr(old_stri); } } /* line 178 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4856_diagnosticLine); /* line 179 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[165] /* "static void destr_" */); { /* line 180 "../lib/comp/destr.s7i" */ union { /* line 180 "../lib/comp/destr.s7i" */ struct striStruct striBuf; /* line 180 "../lib/comp/destr.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 180 "../lib/comp/destr.s7i" */ } buffer_1; /* line 180 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(*o_4854_object_type), &buffer_1.striBuf)); } /* line 181 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[177] /* " (" */); /* line 182 "../lib/comp/destr.s7i" */ strAppendTemp(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4854_object_type)); /* line 183 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[167] /* " b)\n" */); /* line 184 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4856_diagnosticLine); /* line 185 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 186 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4856_diagnosticLine); /* line 187 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[171] /* "if (b != NULL) {\n" */); /* line 188 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4856_diagnosticLine); /* line 189 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[187] /* "if (b->usage_count >= 2) {\n" */); /* line 190 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4856_diagnosticLine); /* line 191 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[179] /* "b->usage_count--;\n" */); /* line 192 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4856_diagnosticLine); /* line 193 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[188] /* "} else if (b->usage_count != 0) {\n" */); /* line 194 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4856_diagnosticLine); /* inline proc o_3477_for */ { /* inline params */ /* line 195 "../lib/comp/destr.s7i" */ typeType/*t_7_type*/ *const o_4858_forVar=&(o_4857_implementationType); /* line 195 "../lib/comp/destr.s7i" */ const const_arrayType/*t_126_*ANONYM_TYPE**/ o_4859_arr=*o_3877/*[*/(&(o_4734_implements), o_4854_object_type); /* line 195 "../lib/comp/destr.s7i" */ /* push proc param o_4860_statements */ /* line 195 "../lib/comp/destr.s7i" */ /* inline local_vars */ /* line 195 "../lib/comp/destr.s7i" */ /* line 199 "../lib/array.s7i" */ /* line 195 "../lib/comp/destr.s7i" */ intType/*t_14_integer*/ o_4861_number=0; /* inline body */ { /* line 201 "../lib/array.s7i" */ intType tmp_e_1=(o_4859_arr)->max_position; /* line 201 "../lib/array.s7i" */ for (o_4861_number=(o_4859_arr)->min_position; o_4861_number<=tmp_e_1; (o_4861_number)++) { /* line 202 "../lib/array.s7i" */ *o_4858_forVar=(o_4859_arr)->arr[(idxChk((o_4861_number) < (o_4859_arr)->min_position || (o_4861_number) > (o_4859_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_4861_number)-(o_4859_arr)->min_position)].value.typeValue; /* closure o_4860_statements*/ { /* line 196 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[189] /* "if (b->type_num == " */); { /* line 197 "../lib/comp/destr.s7i" */ union { /* line 197 "../lib/comp/destr.s7i" */ struct striStruct striBuf; /* line 197 "../lib/comp/destr.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 197 "../lib/comp/destr.s7i" */ } buffer_1; /* line 197 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(o_4857_implementationType), &buffer_1.striBuf)); } /* line 198 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[190] /* "/*" */); /* line 199 "../lib/comp/destr.s7i" */ strAppendTemp(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), typStr(o_4857_implementationType)); /* line 200 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[123] /* "*\/" */); /* line 201 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[191] /* ") {\n" */); /* line 202 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4856_diagnosticLine); /* line 203 "../lib/comp/destr.s7i" */ o_4829_process_destr_declaration(&(o_4857_implementationType), &(o_4794_global_c_expr)); /* line 204 "../lib/comp/destr.s7i" */ o_4832_process_destr_call(&(o_4857_implementationType), &str[192] /* "b" */, &(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 205 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4856_diagnosticLine); /* line 206 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[193] /* "} else " */); } /* closure o_4860_statements*/ } } /* pop proc param o_4860_statements */ } /* inline proc o_3477_for */ /* line 208 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 209 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4856_diagnosticLine); /* line 210 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[194] /* "raise_error(ACTION_ERROR);\n" */); /* line 211 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4856_diagnosticLine); /* line 212 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 213 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4856_diagnosticLine); /* line 214 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 215 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4856_diagnosticLine); /* line 216 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 217 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4856_diagnosticLine); /* line 218 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 219 "../lib/comp/destr.s7i" */ strAppendTemp(&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4814_noDiagnosticLine()); /* line 220 "../lib/comp/destr.s7i" */ { /* line 220 "../lib/comp/destr.s7i" */ striType *tmp_1; /* line 220 "../lib/comp/destr.s7i" */ tmp_1=&(((structType)(*o_4855_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 220 "../lib/comp/destr.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 220 "../lib/comp/destr.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 220 "../lib/comp/destr.s7i" */ } else { /* line 220 "../lib/comp/destr.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 220 "../lib/comp/destr.s7i" */ (*tmp_1)->size++; /* line 220 "../lib/comp/destr.s7i" */ } } /* line 221 "../lib/comp/destr.s7i" */ o_3963/*@:=*/(&(o_4826_destr_declared), o_4854_object_type, o_26_TRUE); /* line 168 "../lib/comp/destr.s7i" */ strDestr(o_4856_diagnosticLine); } /* line 1 "no_file" */ /* 2929 */ /* line 225 "../lib/comp/destr.s7i" */ static void/*t_1_void*/ o_4862_process_itf_destr_prototype (const typeType/*t_7_type*/ *const o_4863_object_type, structType/*t_164_expr_type*/ *const o_4864_c_expr) { /* line 229 "../lib/comp/destr.s7i" */ if (o_3953_not(o_4863_object_type, o_4827_destr_prototype_declared)) { /* line 230 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[165] /* "static void destr_" */); { /* line 231 "../lib/comp/destr.s7i" */ union { /* line 231 "../lib/comp/destr.s7i" */ struct striStruct striBuf; /* line 231 "../lib/comp/destr.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 231 "../lib/comp/destr.s7i" */ } buffer_1; /* line 231 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(*o_4863_object_type), &buffer_1.striBuf)); } /* line 232 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[177] /* " (" */); /* line 233 "../lib/comp/destr.s7i" */ strAppendTemp(&(((structType)(*o_4864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4863_object_type)); /* line 234 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[195] /* ");\n\n" */); /* line 235 "../lib/comp/destr.s7i" */ o_3963/*@:=*/(&(o_4827_destr_prototype_declared), o_4863_object_type, o_26_TRUE); } } /* line 1 "no_file" */ /* 2930 */ /* line 240 "../lib/comp/destr.s7i" */ static void/*t_1_void*/ o_4865_declare_destr_prototype (const typeType/*t_7_type*/ *const o_4866_object_type, structType/*t_164_expr_type*/ *const o_4867_c_expr) { /* line 244 "../lib/comp/destr.s7i" */ if (o_3953_not(o_4866_object_type, o_4827_destr_prototype_declared)) { /* line 245 "../lib/comp/destr.s7i" */ o_4801_declare_type_if_necessary(o_4866_object_type, o_4867_c_expr); /* line 246 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4867_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[165] /* "static void destr_" */); { /* line 247 "../lib/comp/destr.s7i" */ union { /* line 247 "../lib/comp/destr.s7i" */ struct striStruct striBuf; /* line 247 "../lib/comp/destr.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 247 "../lib/comp/destr.s7i" */ } buffer_1; /* line 247 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4867_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(*o_4866_object_type), &buffer_1.striBuf)); } /* line 248 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4867_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[166] /* " (const_" */); /* line 249 "../lib/comp/destr.s7i" */ strAppendTemp(&(((structType)(*o_4867_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4866_object_type)); /* line 250 "../lib/comp/destr.s7i" */ strAppend(&(((structType)(*o_4867_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[195] /* ");\n\n" */); /* line 251 "../lib/comp/destr.s7i" */ o_3963/*@:=*/(&(o_4827_destr_prototype_declared), o_4866_object_type, o_26_TRUE); } } /* line 1 "no_file" */ /* 2931 */ /* line 256 "../lib/comp/destr.s7i" */ static void/*t_1_void*/ o_4829_process_destr_declaration (const typeType/*t_7_type*/ *const o_4830_object_type, structType/*t_164_expr_type*/ *const o_4831_c_expr) { /* line 260 "../lib/comp/destr.s7i" */ if (o_3953_not(o_4830_object_type, o_4826_destr_declared)) { /* line 261 "../lib/comp/destr.s7i" */ if (o_3772_in(o_4830_object_type, o_4414_typeCategory)) { /* line 262 "../lib/comp/destr.s7i" */ switch (*o_3765/*[*/(&(o_4414_typeCategory), o_4830_object_type)) { /* line 263 "../lib/comp/destr.s7i" */ case 14: /* line 264 "../lib/comp/destr.s7i" */ if (o_3829_in(o_4830_object_type, o_4415_array_element)) { /* line 265 "../lib/comp/destr.s7i" */ o_4836_process_arr_destr_declaration(o_4830_object_type, o_4831_c_expr); } else { /* line 267 "../lib/comp/destr.s7i" */ o_4865_declare_destr_prototype(o_4830_object_type, o_4831_c_expr); } /* line 265 "../lib/comp/destr.s7i" */ break; /* line 269 "../lib/comp/destr.s7i" */ case 16: /* line 270 "../lib/comp/destr.s7i" */ o_4841_process_sct_destr_declaration(o_4830_object_type, o_4831_c_expr); /* line 270 "../lib/comp/destr.s7i" */ break; /* line 271 "../lib/comp/destr.s7i" */ case 15: /* line 272 "../lib/comp/destr.s7i" */ if (o_4322_in(o_4830_object_type, o_4828_parametersOfHshDestr)) { /* line 273 "../lib/comp/destr.s7i" */ o_4849_process_hsh_destr_declaration(o_4830_object_type, o_4831_c_expr); } else { /* line 275 "../lib/comp/destr.s7i" */ o_4865_declare_destr_prototype(o_4830_object_type, o_4831_c_expr); } /* line 273 "../lib/comp/destr.s7i" */ break; /* line 277 "../lib/comp/destr.s7i" */ case 18: /* line 278 "../lib/comp/destr.s7i" */ o_4862_process_itf_destr_prototype(o_4830_object_type, o_4831_c_expr); /* line 278 "../lib/comp/destr.s7i" */ break; default: /* line 280 "../lib/comp/destr.s7i" */ o_3963/*@:=*/(&(o_4826_destr_declared), o_4830_object_type, o_26_TRUE); break; } } else { /* line 283 "../lib/comp/destr.s7i" */ o_4865_declare_destr_prototype(o_4830_object_type, o_4831_c_expr); } } } /* line 1 "no_file" */ /* 2932 */ /* line 289 "../lib/comp/destr.s7i" */ static void/*t_1_void*/ o_4868_declare_missing_destr_declarations (structType/*t_164_expr_type*/ *const o_4869_c_expr) { /* line 292 "../lib/comp/destr.s7i" */ typeType/*t_7_type*/ o_4870_object_type=typ[0] /* void/t_1_void */; /* inline proc o_3972_for */ { /* inline params */ /* line 294 "../lib/comp/destr.s7i" */ typeType/*t_7_type*/ *const o_4871_keyVar=&(o_4870_object_type); /* line 294 "../lib/comp/destr.s7i" */ const const_hashType/*t_140_boolean_type_hash*/ o_4872_aHashMap=o_4827_destr_prototype_declared; /* line 294 "../lib/comp/destr.s7i" */ /* push proc param o_4873_statements */ /* line 294 "../lib/comp/destr.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 248 "../lib/hash.s7i" */ const_hashType hash_1=o_4872_aHashMap; /* line 248 "../lib/hash.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 248 "../lib/hash.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 248 "../lib/hash.s7i" */ const_hashElemType helem_4; /* line 248 "../lib/hash.s7i" */ hashElemListType stack_5=NULL; /* line 248 "../lib/hash.s7i" */ while (counter_2 > 0) { /* line 248 "../lib/hash.s7i" */ helem_4=*table_elem_3; /* line 248 "../lib/hash.s7i" */ while (helem_4 != NULL) { /* line 248 "../lib/hash.s7i" */ if (helem_4->next_greater != NULL) { /* line 248 "../lib/hash.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 248 "../lib/hash.s7i" */ } /* if */ /* line 248 "../lib/hash.s7i" */ (*o_4871_keyVar)=helem_4->key.value.typeValue; /* closure o_4873_statements*/ { /* line 295 "../lib/comp/destr.s7i" */ o_4829_process_destr_declaration(&(o_4870_object_type), o_4869_c_expr); } /* closure o_4873_statements*/ /* line 248 "../lib/hash.s7i" */ if (helem_4->next_less != NULL) { /* line 248 "../lib/hash.s7i" */ helem_4=helem_4->next_less; /* line 248 "../lib/hash.s7i" */ } else { /* line 248 "../lib/hash.s7i" */ pop_stack(stack_5, helem_4); /* line 248 "../lib/hash.s7i" */ } /* if */ /* line 248 "../lib/hash.s7i" */ } /* while */ /* line 248 "../lib/hash.s7i" */ counter_2--; /* line 248 "../lib/hash.s7i" */ table_elem_3++; /* line 248 "../lib/hash.s7i" */ } /* while */ /* line 248 "../lib/hash.s7i" */ } /* hsh_for */ /* pop proc param o_4873_statements */ } /* inline proc o_3972_for */ /* inline proc o_3972_for */ { /* inline params */ /* line 297 "../lib/comp/destr.s7i" */ typeType/*t_7_type*/ *const o_4871_keyVar=&(o_4870_object_type); /* line 297 "../lib/comp/destr.s7i" */ const const_hashType/*t_140_boolean_type_hash*/ o_4872_aHashMap=o_4827_destr_prototype_declared; /* line 297 "../lib/comp/destr.s7i" */ /* push proc param o_4873_statements */ /* line 297 "../lib/comp/destr.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 248 "../lib/hash.s7i" */ const_hashType hash_6=o_4872_aHashMap; /* line 248 "../lib/hash.s7i" */ memSizeType counter_7=hash_6->table_size; /* line 248 "../lib/hash.s7i" */ hashElemType_const *table_elem_8=&hash_6->table[0]; /* line 248 "../lib/hash.s7i" */ const_hashElemType helem_9; /* line 248 "../lib/hash.s7i" */ hashElemListType stack_10=NULL; /* line 248 "../lib/hash.s7i" */ while (counter_7 > 0) { /* line 248 "../lib/hash.s7i" */ helem_9=*table_elem_8; /* line 248 "../lib/hash.s7i" */ while (helem_9 != NULL) { /* line 248 "../lib/hash.s7i" */ if (helem_9->next_greater != NULL) { /* line 248 "../lib/hash.s7i" */ push_stack(stack_10, helem_9->next_greater); /* line 248 "../lib/hash.s7i" */ } /* if */ /* line 248 "../lib/hash.s7i" */ (*o_4871_keyVar)=helem_9->key.value.typeValue; /* closure o_4873_statements*/ { /* line 298 "../lib/comp/destr.s7i" */ if ((o_3772_in(&(o_4870_object_type), o_4414_typeCategory)) && /* line 298 "../lib/comp/destr.s7i" */ ((*o_3765/*[*/(&(o_4414_typeCategory), &(o_4870_object_type))) == (18L))) { /* line 299 "../lib/comp/destr.s7i" */ o_4853_process_itf_destr_declaration(&(o_4870_object_type), o_4869_c_expr); } } /* closure o_4873_statements*/ /* line 248 "../lib/hash.s7i" */ if (helem_9->next_less != NULL) { /* line 248 "../lib/hash.s7i" */ helem_9=helem_9->next_less; /* line 248 "../lib/hash.s7i" */ } else { /* line 248 "../lib/hash.s7i" */ pop_stack(stack_10, helem_9); /* line 248 "../lib/hash.s7i" */ } /* if */ /* line 248 "../lib/hash.s7i" */ } /* while */ /* line 248 "../lib/hash.s7i" */ counter_7--; /* line 248 "../lib/hash.s7i" */ table_elem_8++; /* line 248 "../lib/hash.s7i" */ } /* while */ /* line 248 "../lib/hash.s7i" */ } /* hsh_for */ /* pop proc param o_4873_statements */ } /* inline proc o_3972_for */ } /* line 1 "no_file" */ /* 2933 */ /* line 310 "../lib/comp/destr.s7i" */ static void/*t_1_void*/ o_4832_process_destr_call (const typeType/*t_7_type*/ *const o_4833_object_type, const const_striType/*t_15_string*/ o_4834_param_b, striType/*t_15_string*/ *const o_4835_expr) { /* line 314 "../lib/comp/destr.s7i" */ if (o_3772_in(o_4833_object_type, o_4414_typeCategory)) { /* line 315 "../lib/comp/destr.s7i" */ switch (*o_3765/*[*/(&(o_4414_typeCategory), o_4833_object_type)) { /* line 316 "../lib/comp/destr.s7i" */ case 4: /* line 316 "../lib/comp/destr.s7i" */ case 7: /* line 316 "../lib/comp/destr.s7i" */ case 9: /* line 316 "../lib/comp/destr.s7i" */ case 11: /* line 316 "../lib/comp/destr.s7i" */ case 20: /* line 316 "../lib/comp/destr.s7i" */ case 22: /* line 316 "../lib/comp/destr.s7i" */ case 25: /* line 316 "../lib/comp/destr.s7i" */ case 30: /* line 316 "../lib/comp/destr.s7i" */ case 33: /* line 316 "../lib/comp/destr.s7i" */ case 256: /* line 316 "../lib/comp/destr.s7i" */ case 257: /* process_expr ACTOBJECT PRC_NOOP *//*noop*/ /* line 315 "../lib/comp/destr.s7i" */ break; /* line 320 "../lib/comp/destr.s7i" */ case 10: { /* line 320 "../lib/comp/destr.s7i" */ const_striType tmp_2[3]; /* line 320 "../lib/comp/destr.s7i" */ strAppendTemp(&(*o_4835_expr), (tmp_2[0] = &str[196] /* "bigDestr(" */, tmp_2[1] = o_4834_param_b, tmp_2[2] = &str[186] /* ");\n" */, strConcatN(tmp_2, 3))); } /* line 320 "../lib/comp/destr.s7i" */ break; /* line 321 "../lib/comp/destr.s7i" */ case 12: { /* line 321 "../lib/comp/destr.s7i" */ const_striType tmp_2[3]; /* line 321 "../lib/comp/destr.s7i" */ strAppendTemp(&(*o_4835_expr), (tmp_2[0] = &str[197] /* "strDestr(" */, tmp_2[1] = o_4834_param_b, tmp_2[2] = &str[186] /* ");\n" */, strConcatN(tmp_2, 3))); } /* line 321 "../lib/comp/destr.s7i" */ break; /* line 322 "../lib/comp/destr.s7i" */ case 13: { /* line 322 "../lib/comp/destr.s7i" */ const_striType tmp_2[3]; /* line 322 "../lib/comp/destr.s7i" */ strAppendTemp(&(*o_4835_expr), (tmp_2[0] = &str[198] /* "bstDestr(" */, tmp_2[1] = o_4834_param_b, tmp_2[2] = &str[186] /* ");\n" */, strConcatN(tmp_2, 3))); } /* line 322 "../lib/comp/destr.s7i" */ break; /* line 323 "../lib/comp/destr.s7i" */ case 19: { /* line 323 "../lib/comp/destr.s7i" */ const_striType tmp_2[3]; /* line 323 "../lib/comp/destr.s7i" */ strAppendTemp(&(*o_4835_expr), (tmp_2[0] = &str[199] /* "setDestr(" */, tmp_2[1] = o_4834_param_b, tmp_2[2] = &str[186] /* ");\n" */, strConcatN(tmp_2, 3))); } /* line 323 "../lib/comp/destr.s7i" */ break; /* line 324 "../lib/comp/destr.s7i" */ case 23: { /* line 324 "../lib/comp/destr.s7i" */ const_striType tmp_2[3]; /* line 324 "../lib/comp/destr.s7i" */ strAppendTemp(&(*o_4835_expr), (tmp_2[0] = &str[200] /* "polDestr(" */, tmp_2[1] = o_4834_param_b, tmp_2[2] = &str[186] /* ");\n" */, strConcatN(tmp_2, 3))); } /* line 324 "../lib/comp/destr.s7i" */ break; /* line 325 "../lib/comp/destr.s7i" */ case 31: { /* line 325 "../lib/comp/destr.s7i" */ const_striType tmp_2[3]; /* line 325 "../lib/comp/destr.s7i" */ strAppendTemp(&(*o_4835_expr), (tmp_2[0] = &str[201] /* "rflDestr(" */, tmp_2[1] = o_4834_param_b, tmp_2[2] = &str[186] /* ");\n" */, strConcatN(tmp_2, 3))); } /* line 325 "../lib/comp/destr.s7i" */ break; /* line 326 "../lib/comp/destr.s7i" */ case 26: { /* line 326 "../lib/comp/destr.s7i" */ const_striType tmp_2[3]; /* line 326 "../lib/comp/destr.s7i" */ strAppendTemp(&(*o_4835_expr), (tmp_2[0] = &str[202] /* "drwDestr(" */, tmp_2[1] = o_4834_param_b, tmp_2[2] = &str[186] /* ");\n" */, strConcatN(tmp_2, 3))); } /* line 326 "../lib/comp/destr.s7i" */ break; /* line 327 "../lib/comp/destr.s7i" */ case 40: { /* line 327 "../lib/comp/destr.s7i" */ const_striType tmp_2[3]; /* line 327 "../lib/comp/destr.s7i" */ strAppendTemp(&(*o_4835_expr), (tmp_2[0] = &str[203] /* "prgDestr(" */, tmp_2[1] = o_4834_param_b, tmp_2[2] = &str[186] /* ");\n" */, strConcatN(tmp_2, 3))); } /* line 327 "../lib/comp/destr.s7i" */ break; /* line 328 "../lib/comp/destr.s7i" */ case 14: /* line 328 "../lib/comp/destr.s7i" */ case 15: /* line 328 "../lib/comp/destr.s7i" */ case 16: /* line 328 "../lib/comp/destr.s7i" */ case 18: /* line 329 "../lib/comp/destr.s7i" */ strAppend(&(*o_4835_expr), &str[204] /* "destr_" */); { /* line 330 "../lib/comp/destr.s7i" */ union { /* line 330 "../lib/comp/destr.s7i" */ struct striStruct striBuf; /* line 330 "../lib/comp/destr.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 330 "../lib/comp/destr.s7i" */ } buffer_1; /* line 330 "../lib/comp/destr.s7i" */ strAppend(&(*o_4835_expr), intStrToBuffer(typNum(*o_4833_object_type), &buffer_1.striBuf)); } /* line 331 "../lib/comp/destr.s7i" */ /* line 331 "../lib/comp/destr.s7i" */ if (((*o_4835_expr))->size == ((*o_4835_expr))->capacity) { /* line 331 "../lib/comp/destr.s7i" */ strPush(&((*o_4835_expr)), (charType) '('); /* line 331 "../lib/comp/destr.s7i" */ } else { /* line 331 "../lib/comp/destr.s7i" */ ((*o_4835_expr))->mem[((*o_4835_expr))->size]=(charType) '('; /* line 331 "../lib/comp/destr.s7i" */ ((*o_4835_expr))->size++; /* line 331 "../lib/comp/destr.s7i" */ } /* line 332 "../lib/comp/destr.s7i" */ strAppend(&(*o_4835_expr), o_4834_param_b); /* line 333 "../lib/comp/destr.s7i" */ strAppend(&(*o_4835_expr), &str[186] /* ");\n" */); /* line 333 "../lib/comp/destr.s7i" */ break; } } else { /* line 336 "../lib/comp/destr.s7i" */ strAppend(&(*o_4835_expr), &str[204] /* "destr_" */); { /* line 337 "../lib/comp/destr.s7i" */ union { /* line 337 "../lib/comp/destr.s7i" */ struct striStruct striBuf; /* line 337 "../lib/comp/destr.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 337 "../lib/comp/destr.s7i" */ } buffer_1; /* line 337 "../lib/comp/destr.s7i" */ strAppend(&(*o_4835_expr), intStrToBuffer(typNum(*o_4833_object_type), &buffer_1.striBuf)); } /* line 338 "../lib/comp/destr.s7i" */ strAppend(&(*o_4835_expr), &str[205] /* "((" */); /* line 339 "../lib/comp/destr.s7i" */ strAppendTemp(&(*o_4835_expr), o_4743_type_name(o_4833_object_type)); /* line 340 "../lib/comp/destr.s7i" */ strAppend(&(*o_4835_expr), &str[206] /* ")(" */); /* line 341 "../lib/comp/destr.s7i" */ strAppend(&(*o_4835_expr), o_4834_param_b); /* line 342 "../lib/comp/destr.s7i" */ strAppend(&(*o_4835_expr), &str[207] /* "));\n" */); } } /* line 1 "no_file" */ /* 2934 */ hashType/*t_125_typeReferenceHash*/ o_4874_createFunction; /* 2935 */ hashType/*t_140_boolean_type_hash*/ o_4875_create_declared; /* 2936 */ hashType/*t_140_boolean_type_hash*/ o_4876_create_prototype_declared; /* 2937 */ hashType/*t_152_string_type_hash*/ o_4877_parametersOfHshCreate; /* 2938 */ static void/*t_1_void*/ o_4878_process_create_declaration (const typeType/*t_7_type*/ *const o_4879_object_type, structType/*t_164_expr_type*/ *const o_4880_c_expr); static void/*t_1_void*/ o_4881_process_create_call (const typeType/*t_7_type*/ *const o_4882_object_type, const const_striType/*t_15_string*/ o_4883_param_b, striType/*t_15_string*/ *const o_4884_expr); static void/*t_1_void*/ o_4878_process_create_declaration (const typeType/*t_7_type*/ *const o_4879_object_type, structType/*t_164_expr_type*/ *const o_4880_c_expr); static void/*t_1_void*/ o_4881_process_create_call (const typeType/*t_7_type*/ *const o_4882_object_type, const const_striType/*t_15_string*/ o_4883_param_b, striType/*t_15_string*/ *const o_4884_expr); /* line 41 "../lib/comp/create.s7i" */ static void/*t_1_void*/ o_4885_process_arr_create_declaration (const typeType/*t_7_type*/ *const o_4886_object_type, structType/*t_164_expr_type*/ *const o_4887_c_expr) { /* line 45 "../lib/comp/create.s7i" */ striType/*t_15_string*/ o_4888_diagnosticLine; /* line 46 "../lib/comp/create.s7i" */ striType/*t_15_string*/ o_4889_select_value; /* line 45 "../lib/comp/create.s7i" */ o_4888_diagnosticLine=strEmpty(); /* "" */ /* line 46 "../lib/comp/create.s7i" */ o_4889_select_value=strEmpty(); /* "" */ /* line 48 "../lib/comp/create.s7i" */ if (o_3595_in(o_4886_object_type, o_4874_createFunction)) { { /* line 49 "../lib/comp/create.s7i" */ striType old_stri=o_4888_diagnosticLine; /* line 49 "../lib/comp/create.s7i" */ o_4888_diagnosticLine=o_4816_diagnosticLine(*o_3588/*[*/(&(o_4874_createFunction), o_4886_object_type)); /* line 49 "../lib/comp/create.s7i" */ strDestr(old_stri); } } { /* line 51 "../lib/comp/create.s7i" */ striType old_stri=o_4889_select_value; /* line 51 "../lib/comp/create.s7i" */ o_4889_select_value=o_4760_select_value_from_rtlObjectStruct(&(*o_3822/*[*/(&(o_4415_array_element), o_4886_object_type))); /* line 51 "../lib/comp/create.s7i" */ strDestr(old_stri); } /* line 52 "../lib/comp/create.s7i" */ o_4878_process_create_declaration(&(*o_3822/*[*/(&(o_4415_array_element), o_4886_object_type)), o_4887_c_expr); /* line 53 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4888_diagnosticLine); /* line 54 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[208] /* "static " */); /* line 55 "../lib/comp/create.s7i" */ strAppendTemp(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4886_object_type)); /* line 56 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[209] /* " create_" */); { /* line 57 "../lib/comp/create.s7i" */ union { /* line 57 "../lib/comp/create.s7i" */ struct striStruct striBuf; /* line 57 "../lib/comp/create.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 57 "../lib/comp/create.s7i" */ } buffer_1; /* line 57 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(*o_4886_object_type), &buffer_1.striBuf)); } /* line 58 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[166] /* " (const_" */); /* line 59 "../lib/comp/create.s7i" */ strAppendTemp(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4886_object_type)); /* line 60 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[167] /* " b)\n" */); /* line 61 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4888_diagnosticLine); /* line 62 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 63 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4888_diagnosticLine); /* line 64 "../lib/comp/create.s7i" */ strAppendTemp(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4886_object_type)); /* line 65 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[210] /* " a;\n" */); /* line 66 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4888_diagnosticLine); /* line 67 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[169] /* "memSizeType i;\n" */); /* line 68 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4888_diagnosticLine); /* line 69 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[211] /* "memSizeType size = (uintType)(b->max_position - b->min_position + 1);\n" */); /* line 70 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4888_diagnosticLine); /* line 71 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[212] /* "a=(" */); /* line 72 "../lib/comp/create.s7i" */ strAppendTemp(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4886_object_type)); /* line 73 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[213] /* ")(arrMalloc(b->min_position, b->max_position));\n" */); /* line 74 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4888_diagnosticLine); /* line 75 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[173] /* "for (i = 0; i < size; i++) {\n" */); /* line 76 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4888_diagnosticLine); /* line 77 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[214] /* "a->arr[i]" */); /* line 78 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4889_select_value); /* line 79 "../lib/comp/create.s7i" */ { /* line 79 "../lib/comp/create.s7i" */ striType *tmp_1; /* line 79 "../lib/comp/create.s7i" */ tmp_1=&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 79 "../lib/comp/create.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 79 "../lib/comp/create.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 79 "../lib/comp/create.s7i" */ } else { /* line 79 "../lib/comp/create.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 79 "../lib/comp/create.s7i" */ (*tmp_1)->size++; /* line 79 "../lib/comp/create.s7i" */ } } { /* line 80 "../lib/comp/create.s7i" */ striType tmp_1 = NULL; /* line 80 "../lib/comp/create.s7i" */ o_4881_process_create_call(&(*o_3822/*[*/(&(o_4415_array_element), o_4886_object_type)), (tmp_1=strConcat(&str[174] /* "b->arr[i]" */, o_4889_select_value)), &(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 80 "../lib/comp/create.s7i" */ strDestr(tmp_1); } /* line 82 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 83 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4888_diagnosticLine); /* line 84 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 85 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4888_diagnosticLine); /* line 86 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[216] /* "return a;\n" */); /* line 87 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4888_diagnosticLine); /* line 88 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 89 "../lib/comp/create.s7i" */ strAppendTemp(&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4814_noDiagnosticLine()); /* line 90 "../lib/comp/create.s7i" */ { /* line 90 "../lib/comp/create.s7i" */ striType *tmp_1; /* line 90 "../lib/comp/create.s7i" */ tmp_1=&(((structType)(*o_4887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 90 "../lib/comp/create.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 90 "../lib/comp/create.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 90 "../lib/comp/create.s7i" */ } else { /* line 90 "../lib/comp/create.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 90 "../lib/comp/create.s7i" */ (*tmp_1)->size++; /* line 90 "../lib/comp/create.s7i" */ } } /* line 91 "../lib/comp/create.s7i" */ o_3963/*@:=*/(&(o_4875_create_declared), o_4886_object_type, o_26_TRUE); /* line 41 "../lib/comp/create.s7i" */ strDestr(o_4888_diagnosticLine); /* line 41 "../lib/comp/create.s7i" */ strDestr(o_4889_select_value); } /* line 1 "no_file" */ /* 2939 */ /* line 95 "../lib/comp/create.s7i" */ static void/*t_1_void*/ o_4890_process_sct_create_declaration (const typeType/*t_7_type*/ *const o_4891_object_type, structType/*t_164_expr_type*/ *const o_4892_c_expr) { /* line 99 "../lib/comp/create.s7i" */ striType/*t_15_string*/ o_4893_diagnosticLine; /* line 100 "../lib/comp/create.s7i" */ hashType/*t_155_number_element_hash*/ o_4894_elements; /* line 101 "../lib/comp/create.s7i" */ intType/*t_14_integer*/ o_4895_number=0; /* line 102 "../lib/comp/create.s7i" */ objRefType/*t_19_reference*/ o_4896_struct_elem=NULL; /* line 103 "../lib/comp/create.s7i" */ striType/*t_15_string*/ o_4897_select_value; /* line 99 "../lib/comp/create.s7i" */ o_4893_diagnosticLine=strEmpty(); /* "" */ /* line 100 "../lib/comp/create.s7i" */ o_4894_elements=hshEmpty(); /* line 103 "../lib/comp/create.s7i" */ o_4897_select_value=strEmpty(); /* "" */ /* line 105 "../lib/comp/create.s7i" */ if (o_3595_in(o_4891_object_type, o_4874_createFunction)) { { /* line 106 "../lib/comp/create.s7i" */ striType old_stri=o_4893_diagnosticLine; /* line 106 "../lib/comp/create.s7i" */ o_4893_diagnosticLine=o_4816_diagnosticLine(*o_3588/*[*/(&(o_4874_createFunction), o_4891_object_type)); /* line 106 "../lib/comp/create.s7i" */ strDestr(old_stri); } } /* line 108 "../lib/comp/create.s7i" */ if (o_4587_in(o_4891_object_type, o_4735_struct_elements)) { { /* line 109 "../lib/comp/create.s7i" */ hashType/*t_155_number_element_hash*/ tmp_1 = (hashType/*t_155_number_element_hash*/)(NULL); /* line 109 "../lib/comp/create.s7i" */ o_4430/*:=*/(&(o_4894_elements), (tmp_1=(hashType/*t_155_number_element_hash*/)(o_4530_flip(*o_4580/*[*/(&(o_4735_struct_elements), o_4891_object_type))))); /* line 109 "../lib/comp/create.s7i" */ destr_155(tmp_1); } } { /* line 111 "../lib/comp/create.s7i" */ intType tmp_e_1=((intType)((o_4894_elements)->size))-1; /* line 111 "../lib/comp/create.s7i" */ for (o_4895_number=0L; o_4895_number<=tmp_e_1; (o_4895_number)++) { { /* line 112 "../lib/comp/create.s7i" */ arrayType tmp_1; /* line 112 "../lib/comp/create.s7i" */ o_4896_struct_elem=(*(tmp_1=*o_4438/*[*/(&(o_4894_elements), &(o_4895_number)), &tmp_1->arr[(idxChk(1min_position || 1>tmp_1->max_position) ? intRaiseError(RANGE_ERROR) : 0, 1-tmp_1->min_position)].value.objRefValue)); } /* line 113 "../lib/comp/create.s7i" */ o_4878_process_create_declaration(&(*o_4062/*[*/(&(*o_4258/*[*/(&(o_4417_struct_element_type), o_4891_object_type)), &(o_4896_struct_elem))), o_4892_c_expr); } } /* line 115 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4893_diagnosticLine); /* line 116 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[208] /* "static " */); /* line 117 "../lib/comp/create.s7i" */ strAppendTemp(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4891_object_type)); /* line 118 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[209] /* " create_" */); { /* line 119 "../lib/comp/create.s7i" */ union { /* line 119 "../lib/comp/create.s7i" */ struct striStruct striBuf; /* line 119 "../lib/comp/create.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 119 "../lib/comp/create.s7i" */ } buffer_1; /* line 119 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(*o_4891_object_type), &buffer_1.striBuf)); } /* line 120 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[166] /* " (const_" */); /* line 121 "../lib/comp/create.s7i" */ strAppendTemp(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4891_object_type)); /* line 122 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[167] /* " b)\n" */); /* line 123 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4893_diagnosticLine); /* line 124 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 125 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4893_diagnosticLine); /* line 126 "../lib/comp/create.s7i" */ strAppendTemp(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4891_object_type)); /* line 127 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[210] /* " a;\n" */); /* line 128 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4893_diagnosticLine); /* line 129 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[212] /* "a=(" */); /* line 130 "../lib/comp/create.s7i" */ strAppendTemp(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4891_object_type)); /* line 131 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[217] /* ")(malloc(sizeof(struct rtlStructStruct) - sizeof(rtlObjectType) + \n" */); /* line 132 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4893_diagnosticLine); /* line 133 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[218] /* " " */); { /* line 134 "../lib/comp/create.s7i" */ union { /* line 134 "../lib/comp/create.s7i" */ struct striStruct striBuf; /* line 134 "../lib/comp/create.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 134 "../lib/comp/create.s7i" */ } buffer_1; /* line 134 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((intType)((o_4894_elements)->size), &buffer_1.striBuf)); } /* line 135 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[219] /* " * sizeof(rtlObjectType)));\n" */); /* line 136 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4893_diagnosticLine); /* line 137 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[220] /* "if (a == NULL) {\n" */); /* line 138 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4893_diagnosticLine); /* line 139 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[221] /* "raise_error(MEMORY_ERROR);\n" */); /* line 140 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4893_diagnosticLine); /* line 141 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[222] /* "} else {\n" */); /* line 142 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4893_diagnosticLine); /* line 143 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[223] /* "a->usage_count = 1;\n" */); /* line 144 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[224] /* "a->type_num = b->type_num;\n" */); { /* line 145 "../lib/comp/create.s7i" */ intType tmp_e_1=((intType)((o_4894_elements)->size))-1; /* line 145 "../lib/comp/create.s7i" */ for (o_4895_number=0L; o_4895_number<=tmp_e_1; (o_4895_number)++) { /* line 146 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4893_diagnosticLine); { /* line 147 "../lib/comp/create.s7i" */ arrayType tmp_1; /* line 147 "../lib/comp/create.s7i" */ o_4896_struct_elem=(*(tmp_1=*o_4438/*[*/(&(o_4894_elements), &(o_4895_number)), &tmp_1->arr[(idxChk(1min_position || 1>tmp_1->max_position) ? intRaiseError(RANGE_ERROR) : 0, 1-tmp_1->min_position)].value.objRefValue)); } { /* line 148 "../lib/comp/create.s7i" */ striType old_stri=o_4897_select_value; /* line 148 "../lib/comp/create.s7i" */ o_4897_select_value=o_4760_select_value_from_rtlObjectStruct(&(*o_4062/*[*/(&(*o_4258/*[*/(&(o_4417_struct_element_type), o_4891_object_type)), &(o_4896_struct_elem)))); /* line 148 "../lib/comp/create.s7i" */ strDestr(old_stri); } { /* line 149 "../lib/comp/create.s7i" */ const_striType tmp_2[5]; /* line 149 "../lib/comp/create.s7i" */ union { /* line 149 "../lib/comp/create.s7i" */ struct striStruct striBuf; /* line 149 "../lib/comp/create.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 149 "../lib/comp/create.s7i" */ } buffer_3; /* line 149 "../lib/comp/create.s7i" */ strAppendTemp(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), (tmp_2[0] = &str[225] /* "a->stru[" */, tmp_2[1] = intStrToBuffer(o_4895_number, &buffer_3.striBuf), tmp_2[2] = &str[182] /* "]" */, tmp_2[3] = o_4897_select_value, tmp_2[4] = &str[226] /* "=" */, strConcatN(tmp_2, 5))); } { /* line 150 "../lib/comp/create.s7i" */ const_striType tmp_2[4]; /* line 150 "../lib/comp/create.s7i" */ union { /* line 150 "../lib/comp/create.s7i" */ struct striStruct striBuf; /* line 150 "../lib/comp/create.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 150 "../lib/comp/create.s7i" */ } buffer_3; /* line 150 "../lib/comp/create.s7i" */ striType tmp_1 = NULL; /* line 150 "../lib/comp/create.s7i" */ o_4881_process_create_call(&(*o_4062/*[*/(&(*o_4258/*[*/(&(o_4417_struct_element_type), o_4891_object_type)), &(o_4896_struct_elem))), (tmp_1=(tmp_2[0] = &str[181] /* "b->stru[" */, tmp_2[1] = intStrToBuffer(o_4895_number, &buffer_3.striBuf), tmp_2[2] = &str[182] /* "]" */, tmp_2[3] = o_4897_select_value, strConcatN(tmp_2, 4))), &(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 150 "../lib/comp/create.s7i" */ strDestr(tmp_1); } /* line 152 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); } } /* line 154 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4893_diagnosticLine); /* line 155 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 156 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4893_diagnosticLine); /* line 157 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[216] /* "return a;\n" */); /* line 158 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4893_diagnosticLine); /* line 159 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 160 "../lib/comp/create.s7i" */ strAppendTemp(&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4814_noDiagnosticLine()); /* line 161 "../lib/comp/create.s7i" */ { /* line 161 "../lib/comp/create.s7i" */ striType *tmp_1; /* line 161 "../lib/comp/create.s7i" */ tmp_1=&(((structType)(*o_4892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 161 "../lib/comp/create.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 161 "../lib/comp/create.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 161 "../lib/comp/create.s7i" */ } else { /* line 161 "../lib/comp/create.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 161 "../lib/comp/create.s7i" */ (*tmp_1)->size++; /* line 161 "../lib/comp/create.s7i" */ } } /* line 162 "../lib/comp/create.s7i" */ o_3963/*@:=*/(&(o_4875_create_declared), o_4891_object_type, o_26_TRUE); /* line 95 "../lib/comp/create.s7i" */ strDestr(o_4893_diagnosticLine); /* line 95 "../lib/comp/create.s7i" */ destr_155(o_4894_elements); /* line 95 "../lib/comp/create.s7i" */ strDestr(o_4897_select_value); } /* line 1 "no_file" */ /* 2940 */ /* line 166 "../lib/comp/create.s7i" */ static void/*t_1_void*/ o_4898_process_hsh_create_declaration (const typeType/*t_7_type*/ *const o_4899_object_type, structType/*t_164_expr_type*/ *const o_4900_c_expr) { /* line 170 "../lib/comp/create.s7i" */ striType/*t_15_string*/ o_4901_diagnosticLine; /* line 170 "../lib/comp/create.s7i" */ o_4901_diagnosticLine=strEmpty(); /* "" */ /* line 172 "../lib/comp/create.s7i" */ if (o_3595_in(o_4899_object_type, o_4874_createFunction)) { { /* line 173 "../lib/comp/create.s7i" */ striType old_stri=o_4901_diagnosticLine; /* line 173 "../lib/comp/create.s7i" */ o_4901_diagnosticLine=o_4816_diagnosticLine(*o_3588/*[*/(&(o_4874_createFunction), o_4899_object_type)); /* line 173 "../lib/comp/create.s7i" */ strDestr(old_stri); } } /* line 175 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4900_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4901_diagnosticLine); /* line 176 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4900_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[208] /* "static " */); /* line 177 "../lib/comp/create.s7i" */ strAppendTemp(&(((structType)(*o_4900_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4899_object_type)); /* line 178 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4900_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[209] /* " create_" */); { /* line 179 "../lib/comp/create.s7i" */ union { /* line 179 "../lib/comp/create.s7i" */ struct striStruct striBuf; /* line 179 "../lib/comp/create.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 179 "../lib/comp/create.s7i" */ } buffer_1; /* line 179 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4900_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(*o_4899_object_type), &buffer_1.striBuf)); } /* line 180 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4900_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[166] /* " (const_" */); /* line 181 "../lib/comp/create.s7i" */ strAppendTemp(&(((structType)(*o_4900_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4899_object_type)); /* line 182 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4900_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[167] /* " b)\n" */); /* line 183 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4900_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4901_diagnosticLine); /* line 184 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4900_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 185 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4900_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4901_diagnosticLine); /* line 186 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4900_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[227] /* "return hshCreate(b" */); /* line 187 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4900_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), *o_4315/*[*/(&(o_4877_parametersOfHshCreate), o_4899_object_type)); /* line 188 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4900_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 189 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4900_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4901_diagnosticLine); /* line 190 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4900_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 191 "../lib/comp/create.s7i" */ strAppendTemp(&(((structType)(*o_4900_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4814_noDiagnosticLine()); /* line 192 "../lib/comp/create.s7i" */ { /* line 192 "../lib/comp/create.s7i" */ striType *tmp_1; /* line 192 "../lib/comp/create.s7i" */ tmp_1=&(((structType)(*o_4900_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 192 "../lib/comp/create.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 192 "../lib/comp/create.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 192 "../lib/comp/create.s7i" */ } else { /* line 192 "../lib/comp/create.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 192 "../lib/comp/create.s7i" */ (*tmp_1)->size++; /* line 192 "../lib/comp/create.s7i" */ } } /* line 193 "../lib/comp/create.s7i" */ o_3963/*@:=*/(&(o_4875_create_declared), o_4899_object_type, o_26_TRUE); /* line 166 "../lib/comp/create.s7i" */ strDestr(o_4901_diagnosticLine); } /* line 1 "no_file" */ /* 2941 */ /* line 197 "../lib/comp/create.s7i" */ static void/*t_1_void*/ o_4902_declare_create_prototype (const typeType/*t_7_type*/ *const o_4903_object_type, structType/*t_164_expr_type*/ *const o_4904_c_expr) { /* line 201 "../lib/comp/create.s7i" */ if (o_3953_not(o_4903_object_type, o_4876_create_prototype_declared)) { /* line 202 "../lib/comp/create.s7i" */ o_4801_declare_type_if_necessary(o_4903_object_type, o_4904_c_expr); /* line 203 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4904_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[208] /* "static " */); /* line 204 "../lib/comp/create.s7i" */ strAppendTemp(&(((structType)(*o_4904_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4903_object_type)); /* line 205 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4904_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[209] /* " create_" */); { /* line 206 "../lib/comp/create.s7i" */ union { /* line 206 "../lib/comp/create.s7i" */ struct striStruct striBuf; /* line 206 "../lib/comp/create.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 206 "../lib/comp/create.s7i" */ } buffer_1; /* line 206 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4904_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(*o_4903_object_type), &buffer_1.striBuf)); } /* line 207 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4904_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[177] /* " (" */); /* line 208 "../lib/comp/create.s7i" */ if (o_4769_useConstPrefix(o_4903_object_type)) { /* line 209 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4904_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[228] /* "const_" */); } /* line 211 "../lib/comp/create.s7i" */ strAppendTemp(&(((structType)(*o_4904_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4903_object_type)); /* line 212 "../lib/comp/create.s7i" */ strAppend(&(((structType)(*o_4904_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[195] /* ");\n\n" */); /* line 213 "../lib/comp/create.s7i" */ o_3963/*@:=*/(&(o_4876_create_prototype_declared), o_4903_object_type, o_26_TRUE); } } /* line 1 "no_file" */ /* 2942 */ /* line 218 "../lib/comp/create.s7i" */ static void/*t_1_void*/ o_4878_process_create_declaration (const typeType/*t_7_type*/ *const o_4879_object_type, structType/*t_164_expr_type*/ *const o_4880_c_expr) { /* line 222 "../lib/comp/create.s7i" */ if (o_3953_not(o_4879_object_type, o_4875_create_declared)) { /* line 223 "../lib/comp/create.s7i" */ if (o_3772_in(o_4879_object_type, o_4414_typeCategory)) { /* line 224 "../lib/comp/create.s7i" */ switch (*o_3765/*[*/(&(o_4414_typeCategory), o_4879_object_type)) { /* line 225 "../lib/comp/create.s7i" */ case 14: /* line 226 "../lib/comp/create.s7i" */ if (o_3829_in(o_4879_object_type, o_4415_array_element)) { /* line 227 "../lib/comp/create.s7i" */ o_4885_process_arr_create_declaration(o_4879_object_type, o_4880_c_expr); } else { /* line 229 "../lib/comp/create.s7i" */ o_4902_declare_create_prototype(o_4879_object_type, o_4880_c_expr); } /* line 227 "../lib/comp/create.s7i" */ break; /* line 231 "../lib/comp/create.s7i" */ case 16: /* line 232 "../lib/comp/create.s7i" */ o_4890_process_sct_create_declaration(o_4879_object_type, o_4880_c_expr); /* line 232 "../lib/comp/create.s7i" */ break; /* line 233 "../lib/comp/create.s7i" */ case 15: /* line 234 "../lib/comp/create.s7i" */ if (o_4322_in(o_4879_object_type, o_4877_parametersOfHshCreate)) { /* line 235 "../lib/comp/create.s7i" */ o_4898_process_hsh_create_declaration(o_4879_object_type, o_4880_c_expr); } else { /* line 237 "../lib/comp/create.s7i" */ o_4902_declare_create_prototype(o_4879_object_type, o_4880_c_expr); } /* line 235 "../lib/comp/create.s7i" */ break; default: /* line 240 "../lib/comp/create.s7i" */ o_3963/*@:=*/(&(o_4875_create_declared), o_4879_object_type, o_26_TRUE); break; } } else { /* line 243 "../lib/comp/create.s7i" */ o_4902_declare_create_prototype(o_4879_object_type, o_4880_c_expr); } } } /* line 1 "no_file" */ /* 2943 */ /* line 249 "../lib/comp/create.s7i" */ static void/*t_1_void*/ o_4905_declare_missing_create_declarations (structType/*t_164_expr_type*/ *const o_4906_c_expr) { /* line 252 "../lib/comp/create.s7i" */ typeType/*t_7_type*/ o_4907_object_type=typ[0] /* void/t_1_void */; /* inline proc o_3972_for */ { /* inline params */ /* line 254 "../lib/comp/create.s7i" */ typeType/*t_7_type*/ *const o_4871_keyVar=&(o_4907_object_type); /* line 254 "../lib/comp/create.s7i" */ const const_hashType/*t_140_boolean_type_hash*/ o_4872_aHashMap=o_4876_create_prototype_declared; /* line 254 "../lib/comp/create.s7i" */ /* push proc param o_4873_statements */ /* line 254 "../lib/comp/create.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 248 "../lib/hash.s7i" */ const_hashType hash_1=o_4872_aHashMap; /* line 248 "../lib/hash.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 248 "../lib/hash.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 248 "../lib/hash.s7i" */ const_hashElemType helem_4; /* line 248 "../lib/hash.s7i" */ hashElemListType stack_5=NULL; /* line 248 "../lib/hash.s7i" */ while (counter_2 > 0) { /* line 248 "../lib/hash.s7i" */ helem_4=*table_elem_3; /* line 248 "../lib/hash.s7i" */ while (helem_4 != NULL) { /* line 248 "../lib/hash.s7i" */ if (helem_4->next_greater != NULL) { /* line 248 "../lib/hash.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 248 "../lib/hash.s7i" */ } /* if */ /* line 248 "../lib/hash.s7i" */ (*o_4871_keyVar)=helem_4->key.value.typeValue; /* closure o_4873_statements*/ { /* line 255 "../lib/comp/create.s7i" */ o_4878_process_create_declaration(&(o_4907_object_type), o_4906_c_expr); } /* closure o_4873_statements*/ /* line 248 "../lib/hash.s7i" */ if (helem_4->next_less != NULL) { /* line 248 "../lib/hash.s7i" */ helem_4=helem_4->next_less; /* line 248 "../lib/hash.s7i" */ } else { /* line 248 "../lib/hash.s7i" */ pop_stack(stack_5, helem_4); /* line 248 "../lib/hash.s7i" */ } /* if */ /* line 248 "../lib/hash.s7i" */ } /* while */ /* line 248 "../lib/hash.s7i" */ counter_2--; /* line 248 "../lib/hash.s7i" */ table_elem_3++; /* line 248 "../lib/hash.s7i" */ } /* while */ /* line 248 "../lib/hash.s7i" */ } /* hsh_for */ /* pop proc param o_4873_statements */ } /* inline proc o_3972_for */ } /* line 1 "no_file" */ /* 2944 */ /* line 260 "../lib/comp/create.s7i" */ static void/*t_1_void*/ o_4881_process_create_call (const typeType/*t_7_type*/ *const o_4882_object_type, const const_striType/*t_15_string*/ o_4883_param_b, striType/*t_15_string*/ *const o_4884_expr) { /* line 264 "../lib/comp/create.s7i" */ if (o_3772_in(o_4882_object_type, o_4414_typeCategory)) { /* line 265 "../lib/comp/create.s7i" */ switch (*o_3765/*[*/(&(o_4414_typeCategory), o_4882_object_type)) { /* line 266 "../lib/comp/create.s7i" */ case 4: /* line 266 "../lib/comp/create.s7i" */ case 7: /* line 266 "../lib/comp/create.s7i" */ case 9: /* line 266 "../lib/comp/create.s7i" */ case 11: /* line 266 "../lib/comp/create.s7i" */ case 20: /* line 266 "../lib/comp/create.s7i" */ case 22: /* line 266 "../lib/comp/create.s7i" */ case 25: /* line 266 "../lib/comp/create.s7i" */ case 30: /* line 266 "../lib/comp/create.s7i" */ case 33: /* line 266 "../lib/comp/create.s7i" */ case 256: /* line 266 "../lib/comp/create.s7i" */ case 257: /* line 269 "../lib/comp/create.s7i" */ strAppend(&(*o_4884_expr), o_4883_param_b); /* line 269 "../lib/comp/create.s7i" */ break; /* line 270 "../lib/comp/create.s7i" */ case 10: { /* line 270 "../lib/comp/create.s7i" */ const_striType tmp_2[3]; /* line 270 "../lib/comp/create.s7i" */ strAppendTemp(&(*o_4884_expr), (tmp_2[0] = &str[229] /* "bigCreate(" */, tmp_2[1] = o_4883_param_b, tmp_2[2] = &str[230] /* ")" */, strConcatN(tmp_2, 3))); } /* line 270 "../lib/comp/create.s7i" */ break; /* line 271 "../lib/comp/create.s7i" */ case 12: { /* line 271 "../lib/comp/create.s7i" */ const_striType tmp_2[3]; /* line 271 "../lib/comp/create.s7i" */ strAppendTemp(&(*o_4884_expr), (tmp_2[0] = &str[231] /* "strCreate(" */, tmp_2[1] = o_4883_param_b, tmp_2[2] = &str[230] /* ")" */, strConcatN(tmp_2, 3))); } /* line 271 "../lib/comp/create.s7i" */ break; /* line 272 "../lib/comp/create.s7i" */ case 13: { /* line 272 "../lib/comp/create.s7i" */ const_striType tmp_2[3]; /* line 272 "../lib/comp/create.s7i" */ strAppendTemp(&(*o_4884_expr), (tmp_2[0] = &str[232] /* "bstCreate(" */, tmp_2[1] = o_4883_param_b, tmp_2[2] = &str[230] /* ")" */, strConcatN(tmp_2, 3))); } /* line 272 "../lib/comp/create.s7i" */ break; /* line 273 "../lib/comp/create.s7i" */ case 19: { /* line 273 "../lib/comp/create.s7i" */ const_striType tmp_2[3]; /* line 273 "../lib/comp/create.s7i" */ strAppendTemp(&(*o_4884_expr), (tmp_2[0] = &str[233] /* "setCreate(" */, tmp_2[1] = o_4883_param_b, tmp_2[2] = &str[230] /* ")" */, strConcatN(tmp_2, 3))); } /* line 273 "../lib/comp/create.s7i" */ break; /* line 274 "../lib/comp/create.s7i" */ case 23: { /* line 274 "../lib/comp/create.s7i" */ const_striType tmp_2[3]; /* line 274 "../lib/comp/create.s7i" */ strAppendTemp(&(*o_4884_expr), (tmp_2[0] = &str[234] /* "polCreate(" */, tmp_2[1] = o_4883_param_b, tmp_2[2] = &str[230] /* ")" */, strConcatN(tmp_2, 3))); } /* line 274 "../lib/comp/create.s7i" */ break; /* line 275 "../lib/comp/create.s7i" */ case 31: { /* line 275 "../lib/comp/create.s7i" */ const_striType tmp_2[3]; /* line 275 "../lib/comp/create.s7i" */ strAppendTemp(&(*o_4884_expr), (tmp_2[0] = &str[235] /* "rflCreate(" */, tmp_2[1] = o_4883_param_b, tmp_2[2] = &str[230] /* ")" */, strConcatN(tmp_2, 3))); } /* line 275 "../lib/comp/create.s7i" */ break; /* line 276 "../lib/comp/create.s7i" */ case 26: { /* line 276 "../lib/comp/create.s7i" */ const_striType tmp_2[3]; /* line 276 "../lib/comp/create.s7i" */ strAppendTemp(&(*o_4884_expr), (tmp_2[0] = &str[236] /* "drwCreate(" */, tmp_2[1] = o_4883_param_b, tmp_2[2] = &str[230] /* ")" */, strConcatN(tmp_2, 3))); } /* line 276 "../lib/comp/create.s7i" */ break; /* line 277 "../lib/comp/create.s7i" */ case 40: { /* line 277 "../lib/comp/create.s7i" */ const_striType tmp_2[3]; /* line 277 "../lib/comp/create.s7i" */ strAppendTemp(&(*o_4884_expr), (tmp_2[0] = &str[237] /* "prgCreate(" */, tmp_2[1] = o_4883_param_b, tmp_2[2] = &str[230] /* ")" */, strConcatN(tmp_2, 3))); } /* line 277 "../lib/comp/create.s7i" */ break; /* line 278 "../lib/comp/create.s7i" */ case 18: { /* line 278 "../lib/comp/create.s7i" */ const_striType tmp_2[3]; /* line 278 "../lib/comp/create.s7i" */ strAppendTemp(&(*o_4884_expr), (tmp_2[0] = &str[238] /* "itfCreate(" */, tmp_2[1] = o_4883_param_b, tmp_2[2] = &str[230] /* ")" */, strConcatN(tmp_2, 3))); } /* line 278 "../lib/comp/create.s7i" */ break; /* line 279 "../lib/comp/create.s7i" */ case 14: /* line 279 "../lib/comp/create.s7i" */ case 15: /* line 279 "../lib/comp/create.s7i" */ case 16: /* line 280 "../lib/comp/create.s7i" */ strAppend(&(*o_4884_expr), &str[239] /* "create_" */); { /* line 281 "../lib/comp/create.s7i" */ union { /* line 281 "../lib/comp/create.s7i" */ struct striStruct striBuf; /* line 281 "../lib/comp/create.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 281 "../lib/comp/create.s7i" */ } buffer_1; /* line 281 "../lib/comp/create.s7i" */ strAppend(&(*o_4884_expr), intStrToBuffer(typNum(*o_4882_object_type), &buffer_1.striBuf)); } /* line 282 "../lib/comp/create.s7i" */ /* line 282 "../lib/comp/create.s7i" */ if (((*o_4884_expr))->size == ((*o_4884_expr))->capacity) { /* line 282 "../lib/comp/create.s7i" */ strPush(&((*o_4884_expr)), (charType) '('); /* line 282 "../lib/comp/create.s7i" */ } else { /* line 282 "../lib/comp/create.s7i" */ ((*o_4884_expr))->mem[((*o_4884_expr))->size]=(charType) '('; /* line 282 "../lib/comp/create.s7i" */ ((*o_4884_expr))->size++; /* line 282 "../lib/comp/create.s7i" */ } /* line 283 "../lib/comp/create.s7i" */ strAppend(&(*o_4884_expr), o_4883_param_b); /* line 284 "../lib/comp/create.s7i" */ /* line 284 "../lib/comp/create.s7i" */ if (((*o_4884_expr))->size == ((*o_4884_expr))->capacity) { /* line 284 "../lib/comp/create.s7i" */ strPush(&((*o_4884_expr)), (charType) ')'); /* line 284 "../lib/comp/create.s7i" */ } else { /* line 284 "../lib/comp/create.s7i" */ ((*o_4884_expr))->mem[((*o_4884_expr))->size]=(charType) ')'; /* line 284 "../lib/comp/create.s7i" */ ((*o_4884_expr))->size++; /* line 284 "../lib/comp/create.s7i" */ } /* line 284 "../lib/comp/create.s7i" */ break; } } else { /* line 287 "../lib/comp/create.s7i" */ strAppend(&(*o_4884_expr), &str[239] /* "create_" */); { /* line 288 "../lib/comp/create.s7i" */ union { /* line 288 "../lib/comp/create.s7i" */ struct striStruct striBuf; /* line 288 "../lib/comp/create.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 288 "../lib/comp/create.s7i" */ } buffer_1; /* line 288 "../lib/comp/create.s7i" */ strAppend(&(*o_4884_expr), intStrToBuffer(typNum(*o_4882_object_type), &buffer_1.striBuf)); } /* line 289 "../lib/comp/create.s7i" */ strAppend(&(*o_4884_expr), &str[205] /* "((" */); /* line 290 "../lib/comp/create.s7i" */ strAppendTemp(&(*o_4884_expr), o_4743_type_name(o_4882_object_type)); /* line 291 "../lib/comp/create.s7i" */ strAppend(&(*o_4884_expr), &str[206] /* ")(" */); /* line 292 "../lib/comp/create.s7i" */ strAppend(&(*o_4884_expr), o_4883_param_b); /* line 293 "../lib/comp/create.s7i" */ strAppend(&(*o_4884_expr), &str[240] /* "))" */); } } /* line 1 "no_file" */ /* 2945 */ hashType/*t_125_typeReferenceHash*/ o_4908_copyFunction; /* 2946 */ hashType/*t_140_boolean_type_hash*/ o_4909_cpy_declared; /* 2947 */ hashType/*t_152_string_type_hash*/ o_4910_parametersOfHshCpy; /* 2948 */ static void/*t_1_void*/ o_4911_process_cpy_declaration (const typeType/*t_7_type*/ *const o_4912_object_type, structType/*t_164_expr_type*/ *const o_4913_c_expr); static void/*t_1_void*/ o_4914_process_cpy_call (const typeType/*t_7_type*/ *const o_4915_object_type, const const_striType/*t_15_string*/ o_4916_param_a, const const_striType/*t_15_string*/ o_4917_param_b, striType/*t_15_string*/ *const o_4918_expr); static void/*t_1_void*/ o_4911_process_cpy_declaration (const typeType/*t_7_type*/ *const o_4912_object_type, structType/*t_164_expr_type*/ *const o_4913_c_expr); static void/*t_1_void*/ o_4914_process_cpy_call (const typeType/*t_7_type*/ *const o_4915_object_type, const const_striType/*t_15_string*/ o_4916_param_a, const const_striType/*t_15_string*/ o_4917_param_b, striType/*t_15_string*/ *const o_4918_expr); /* line 40 "../lib/comp/copy.s7i" */ static void/*t_1_void*/ o_4919_process_arr_cpy_declaration (const typeType/*t_7_type*/ *const o_4920_object_type, structType/*t_164_expr_type*/ *const o_4921_c_expr) { /* line 44 "../lib/comp/copy.s7i" */ striType/*t_15_string*/ o_4922_diagnosticLine; /* line 45 "../lib/comp/copy.s7i" */ striType/*t_15_string*/ o_4923_select_value; /* line 44 "../lib/comp/copy.s7i" */ o_4922_diagnosticLine=strEmpty(); /* "" */ /* line 45 "../lib/comp/copy.s7i" */ o_4923_select_value=strEmpty(); /* "" */ /* line 47 "../lib/comp/copy.s7i" */ if (o_3595_in(o_4920_object_type, o_4908_copyFunction)) { { /* line 48 "../lib/comp/copy.s7i" */ striType old_stri=o_4922_diagnosticLine; /* line 48 "../lib/comp/copy.s7i" */ o_4922_diagnosticLine=o_4816_diagnosticLine(*o_3588/*[*/(&(o_4908_copyFunction), o_4920_object_type)); /* line 48 "../lib/comp/copy.s7i" */ strDestr(old_stri); } } { /* line 50 "../lib/comp/copy.s7i" */ striType old_stri=o_4923_select_value; /* line 50 "../lib/comp/copy.s7i" */ o_4923_select_value=o_4760_select_value_from_rtlObjectStruct(&(*o_3822/*[*/(&(o_4415_array_element), o_4920_object_type))); /* line 50 "../lib/comp/copy.s7i" */ strDestr(old_stri); } /* line 51 "../lib/comp/copy.s7i" */ o_4878_process_create_declaration(&(*o_3822/*[*/(&(o_4415_array_element), o_4920_object_type)), o_4921_c_expr); /* line 52 "../lib/comp/copy.s7i" */ o_4829_process_destr_declaration(&(*o_3822/*[*/(&(o_4415_array_element), o_4920_object_type)), o_4921_c_expr); /* line 53 "../lib/comp/copy.s7i" */ o_4911_process_cpy_declaration(&(*o_3822/*[*/(&(o_4415_array_element), o_4920_object_type)), o_4921_c_expr); /* line 54 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); /* line 55 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[241] /* "static void cpy_" */); { /* line 56 "../lib/comp/copy.s7i" */ union { /* line 56 "../lib/comp/copy.s7i" */ struct striStruct striBuf; /* line 56 "../lib/comp/copy.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 56 "../lib/comp/copy.s7i" */ } buffer_1; /* line 56 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(*o_4920_object_type), &buffer_1.striBuf)); } /* line 57 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[177] /* " (" */); /* line 58 "../lib/comp/copy.s7i" */ strAppendTemp(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4920_object_type)); /* line 59 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[242] /* " *a, " */); /* line 60 "../lib/comp/copy.s7i" */ strAppendTemp(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4920_object_type)); /* line 61 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[167] /* " b)\n" */); /* line 62 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); /* line 63 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 64 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); /* line 65 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[169] /* "memSizeType i;\n" */); /* line 66 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); /* line 67 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[243] /* "memSizeType size_a = (uintType)((*a)->max_position - (*a)->min_position + 1);\n" */); /* line 68 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); /* line 69 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[244] /* "memSizeType size_b = (uintType)(b->max_position - b->min_position + 1);\n" */); /* line 70 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); /* line 71 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[170] /* "memSizeType size;\n" */); /* line 72 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); /* line 73 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[245] /* "(*a)->min_position = b->min_position;\n" */); /* line 74 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); /* line 75 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[246] /* "(*a)->max_position = b->max_position;\n" */); /* line 76 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); /* line 77 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[247] /* "if (size_a == size_b) {\n" */); /* line 78 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); /* line 79 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[248] /* "size = size_a;\n" */); /* line 80 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); /* line 81 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[222] /* "} else {\n" */); /* line 82 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); /* line 83 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[249] /* "if (size_a < size_b) {\n" */); /* line 84 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); /* line 85 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[250] /* "*a=(" */); /* line 86 "../lib/comp/copy.s7i" */ strAppendTemp(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4920_object_type)); /* line 87 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[251] /* ")(arrRealloc((arrayType)(*a), size_a, size_b));\n" */); /* line 88 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[248] /* "size = size_a;\n" */); /* line 89 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); /* line 90 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[252] /* "for (i = size_a; i < size_b; i++) {\n" */); /* line 91 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); /* line 92 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[253] /* "(*a)->arr[i]" */); /* line 93 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4923_select_value); /* line 94 "../lib/comp/copy.s7i" */ { /* line 94 "../lib/comp/copy.s7i" */ striType *tmp_1; /* line 94 "../lib/comp/copy.s7i" */ tmp_1=&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 94 "../lib/comp/copy.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 94 "../lib/comp/copy.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 94 "../lib/comp/copy.s7i" */ } else { /* line 94 "../lib/comp/copy.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 94 "../lib/comp/copy.s7i" */ (*tmp_1)->size++; /* line 94 "../lib/comp/copy.s7i" */ } } { /* line 95 "../lib/comp/copy.s7i" */ striType tmp_1 = NULL; /* line 95 "../lib/comp/copy.s7i" */ o_4881_process_create_call(&(*o_3822/*[*/(&(o_4415_array_element), o_4920_object_type)), (tmp_1=strConcat(&str[174] /* "b->arr[i]" */, o_4923_select_value)), &(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 95 "../lib/comp/copy.s7i" */ strDestr(tmp_1); } /* line 97 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 98 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); /* line 99 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 100 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); /* line 101 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[254] /* "} else /* size_a > size_b *\/ {\n" */); /* line 102 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); /* line 103 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[255] /* "size = size_b;\n" */); /* line 104 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); /* line 105 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[256] /* "for (i = size_b; i < size_a; i++) {\n" */); /* line 106 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); { /* line 107 "../lib/comp/copy.s7i" */ striType tmp_1 = NULL; /* line 107 "../lib/comp/copy.s7i" */ o_4832_process_destr_call(&(*o_3822/*[*/(&(o_4415_array_element), o_4920_object_type)), (tmp_1=strConcat(&str[253] /* "(*a)->arr[i]" */, o_4923_select_value)), &(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 107 "../lib/comp/copy.s7i" */ strDestr(tmp_1); } /* line 109 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); /* line 110 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 111 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); /* line 112 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[250] /* "*a=(" */); /* line 113 "../lib/comp/copy.s7i" */ strAppendTemp(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4920_object_type)); /* line 114 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[251] /* ")(arrRealloc((arrayType)(*a), size_a, size_b));\n" */); /* line 115 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); /* line 116 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 117 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); /* line 118 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 119 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); /* line 120 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[173] /* "for (i = 0; i < size; i++) {\n" */); /* line 121 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); { /* line 122 "../lib/comp/copy.s7i" */ striType tmp_1 = NULL; /* line 122 "../lib/comp/copy.s7i" */ striType tmp_2 = NULL; /* line 122 "../lib/comp/copy.s7i" */ o_4914_process_cpy_call(&(*o_3822/*[*/(&(o_4415_array_element), o_4920_object_type)), (tmp_1=strConcat(&str[253] /* "(*a)->arr[i]" */, o_4923_select_value)), (tmp_2=strConcat(&str[174] /* "b->arr[i]" */, o_4923_select_value)), &(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 122 "../lib/comp/copy.s7i" */ strDestr(tmp_1); /* line 122 "../lib/comp/copy.s7i" */ strDestr(tmp_2); } /* line 125 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 126 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); /* line 127 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 128 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4922_diagnosticLine); /* line 129 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 130 "../lib/comp/copy.s7i" */ strAppendTemp(&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4814_noDiagnosticLine()); /* line 131 "../lib/comp/copy.s7i" */ { /* line 131 "../lib/comp/copy.s7i" */ striType *tmp_1; /* line 131 "../lib/comp/copy.s7i" */ tmp_1=&(((structType)(*o_4921_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 131 "../lib/comp/copy.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 131 "../lib/comp/copy.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 131 "../lib/comp/copy.s7i" */ } else { /* line 131 "../lib/comp/copy.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 131 "../lib/comp/copy.s7i" */ (*tmp_1)->size++; /* line 131 "../lib/comp/copy.s7i" */ } } /* line 132 "../lib/comp/copy.s7i" */ o_3963/*@:=*/(&(o_4909_cpy_declared), o_4920_object_type, o_26_TRUE); /* line 40 "../lib/comp/copy.s7i" */ strDestr(o_4922_diagnosticLine); /* line 40 "../lib/comp/copy.s7i" */ strDestr(o_4923_select_value); } /* line 1 "no_file" */ /* 2949 */ /* line 136 "../lib/comp/copy.s7i" */ static void/*t_1_void*/ o_4924_process_sct_cpy_declaration (const typeType/*t_7_type*/ *const o_4925_object_type, structType/*t_164_expr_type*/ *const o_4926_c_expr) { /* line 140 "../lib/comp/copy.s7i" */ striType/*t_15_string*/ o_4927_diagnosticLine; /* line 141 "../lib/comp/copy.s7i" */ hashType/*t_155_number_element_hash*/ o_4928_elements; /* line 142 "../lib/comp/copy.s7i" */ intType/*t_14_integer*/ o_4929_number=0; /* line 143 "../lib/comp/copy.s7i" */ objRefType/*t_19_reference*/ o_4930_struct_elem=NULL; /* line 144 "../lib/comp/copy.s7i" */ striType/*t_15_string*/ o_4931_select_value; /* line 140 "../lib/comp/copy.s7i" */ o_4927_diagnosticLine=strEmpty(); /* "" */ /* line 141 "../lib/comp/copy.s7i" */ o_4928_elements=hshEmpty(); /* line 144 "../lib/comp/copy.s7i" */ o_4931_select_value=strEmpty(); /* "" */ /* line 146 "../lib/comp/copy.s7i" */ if (o_3595_in(o_4925_object_type, o_4908_copyFunction)) { { /* line 147 "../lib/comp/copy.s7i" */ striType old_stri=o_4927_diagnosticLine; /* line 147 "../lib/comp/copy.s7i" */ o_4927_diagnosticLine=o_4816_diagnosticLine(*o_3588/*[*/(&(o_4908_copyFunction), o_4925_object_type)); /* line 147 "../lib/comp/copy.s7i" */ strDestr(old_stri); } } /* line 149 "../lib/comp/copy.s7i" */ if (o_4587_in(o_4925_object_type, o_4735_struct_elements)) { { /* line 150 "../lib/comp/copy.s7i" */ hashType/*t_155_number_element_hash*/ tmp_1 = (hashType/*t_155_number_element_hash*/)(NULL); /* line 150 "../lib/comp/copy.s7i" */ o_4430/*:=*/(&(o_4928_elements), (tmp_1=(hashType/*t_155_number_element_hash*/)(o_4530_flip(*o_4580/*[*/(&(o_4735_struct_elements), o_4925_object_type))))); /* line 150 "../lib/comp/copy.s7i" */ destr_155(tmp_1); } } { /* line 152 "../lib/comp/copy.s7i" */ intType tmp_e_1=((intType)((o_4928_elements)->size))-1; /* line 152 "../lib/comp/copy.s7i" */ for (o_4929_number=0L; o_4929_number<=tmp_e_1; (o_4929_number)++) { { /* line 153 "../lib/comp/copy.s7i" */ arrayType tmp_1; /* line 153 "../lib/comp/copy.s7i" */ o_4930_struct_elem=(*(tmp_1=*o_4438/*[*/(&(o_4928_elements), &(o_4929_number)), &tmp_1->arr[(idxChk(1min_position || 1>tmp_1->max_position) ? intRaiseError(RANGE_ERROR) : 0, 1-tmp_1->min_position)].value.objRefValue)); } /* line 154 "../lib/comp/copy.s7i" */ o_4911_process_cpy_declaration(&(*o_4062/*[*/(&(*o_4258/*[*/(&(o_4417_struct_element_type), o_4925_object_type)), &(o_4930_struct_elem))), o_4926_c_expr); } } /* line 156 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4927_diagnosticLine); /* line 157 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[241] /* "static void cpy_" */); { /* line 158 "../lib/comp/copy.s7i" */ union { /* line 158 "../lib/comp/copy.s7i" */ struct striStruct striBuf; /* line 158 "../lib/comp/copy.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 158 "../lib/comp/copy.s7i" */ } buffer_1; /* line 158 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(*o_4925_object_type), &buffer_1.striBuf)); } /* line 159 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[177] /* " (" */); /* line 160 "../lib/comp/copy.s7i" */ strAppendTemp(&(((structType)(*o_4926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4925_object_type)); /* line 161 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[257] /* " a, " */); /* line 162 "../lib/comp/copy.s7i" */ strAppendTemp(&(((structType)(*o_4926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4925_object_type)); /* line 163 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[167] /* " b)\n" */); /* line 164 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4927_diagnosticLine); /* line 165 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); { /* line 170 "../lib/comp/copy.s7i" */ intType tmp_e_1=((intType)((o_4928_elements)->size))-1; /* line 170 "../lib/comp/copy.s7i" */ for (o_4929_number=0L; o_4929_number<=tmp_e_1; (o_4929_number)++) { { /* line 171 "../lib/comp/copy.s7i" */ arrayType tmp_1; /* line 171 "../lib/comp/copy.s7i" */ o_4930_struct_elem=(*(tmp_1=*o_4438/*[*/(&(o_4928_elements), &(o_4929_number)), &tmp_1->arr[(idxChk(1min_position || 1>tmp_1->max_position) ? intRaiseError(RANGE_ERROR) : 0, 1-tmp_1->min_position)].value.objRefValue)); } { /* line 172 "../lib/comp/copy.s7i" */ striType old_stri=o_4931_select_value; /* line 172 "../lib/comp/copy.s7i" */ o_4931_select_value=o_4760_select_value_from_rtlObjectStruct(&(*o_4062/*[*/(&(*o_4258/*[*/(&(o_4417_struct_element_type), o_4925_object_type)), &(o_4930_struct_elem)))); /* line 172 "../lib/comp/copy.s7i" */ strDestr(old_stri); } /* line 173 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4927_diagnosticLine); { /* line 174 "../lib/comp/copy.s7i" */ const_striType tmp_2[4]; /* line 174 "../lib/comp/copy.s7i" */ union { /* line 174 "../lib/comp/copy.s7i" */ struct striStruct striBuf; /* line 174 "../lib/comp/copy.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 174 "../lib/comp/copy.s7i" */ } buffer_3; /* line 174 "../lib/comp/copy.s7i" */ striType tmp_1 = NULL; /* line 174 "../lib/comp/copy.s7i" */ const_striType tmp_5[4]; /* line 174 "../lib/comp/copy.s7i" */ union { /* line 174 "../lib/comp/copy.s7i" */ struct striStruct striBuf; /* line 174 "../lib/comp/copy.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 174 "../lib/comp/copy.s7i" */ } buffer_6; /* line 174 "../lib/comp/copy.s7i" */ striType tmp_4 = NULL; /* line 174 "../lib/comp/copy.s7i" */ o_4914_process_cpy_call(&(*o_4062/*[*/(&(*o_4258/*[*/(&(o_4417_struct_element_type), o_4925_object_type)), &(o_4930_struct_elem))), (tmp_1=(tmp_2[0] = &str[225] /* "a->stru[" */, tmp_2[1] = intStrToBuffer(o_4929_number, &buffer_3.striBuf), tmp_2[2] = &str[182] /* "]" */, tmp_2[3] = o_4931_select_value, strConcatN(tmp_2, 4))), (tmp_4=(tmp_5[0] = &str[181] /* "b->stru[" */, tmp_5[1] = intStrToBuffer(o_4929_number, &buffer_6.striBuf), tmp_5[2] = &str[182] /* "]" */, tmp_5[3] = o_4931_select_value, strConcatN(tmp_5, 4))), &(((structType)(*o_4926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 174 "../lib/comp/copy.s7i" */ strDestr(tmp_1); /* line 174 "../lib/comp/copy.s7i" */ strDestr(tmp_4); } /* line 177 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); } } /* line 179 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4927_diagnosticLine); /* line 180 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 181 "../lib/comp/copy.s7i" */ strAppendTemp(&(((structType)(*o_4926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4814_noDiagnosticLine()); /* line 182 "../lib/comp/copy.s7i" */ { /* line 182 "../lib/comp/copy.s7i" */ striType *tmp_1; /* line 182 "../lib/comp/copy.s7i" */ tmp_1=&(((structType)(*o_4926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 182 "../lib/comp/copy.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 182 "../lib/comp/copy.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 182 "../lib/comp/copy.s7i" */ } else { /* line 182 "../lib/comp/copy.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 182 "../lib/comp/copy.s7i" */ (*tmp_1)->size++; /* line 182 "../lib/comp/copy.s7i" */ } } /* line 183 "../lib/comp/copy.s7i" */ o_3963/*@:=*/(&(o_4909_cpy_declared), o_4925_object_type, o_26_TRUE); /* line 136 "../lib/comp/copy.s7i" */ strDestr(o_4927_diagnosticLine); /* line 136 "../lib/comp/copy.s7i" */ destr_155(o_4928_elements); /* line 136 "../lib/comp/copy.s7i" */ strDestr(o_4931_select_value); } /* line 1 "no_file" */ /* 2950 */ /* line 187 "../lib/comp/copy.s7i" */ static void/*t_1_void*/ o_4932_process_hsh_cpy_declaration (const typeType/*t_7_type*/ *const o_4933_object_type, structType/*t_164_expr_type*/ *const o_4934_c_expr) { /* line 191 "../lib/comp/copy.s7i" */ striType/*t_15_string*/ o_4935_diagnosticLine; /* line 191 "../lib/comp/copy.s7i" */ o_4935_diagnosticLine=strEmpty(); /* "" */ /* line 193 "../lib/comp/copy.s7i" */ if (o_3595_in(o_4933_object_type, o_4908_copyFunction)) { { /* line 194 "../lib/comp/copy.s7i" */ striType old_stri=o_4935_diagnosticLine; /* line 194 "../lib/comp/copy.s7i" */ o_4935_diagnosticLine=o_4816_diagnosticLine(*o_3588/*[*/(&(o_4908_copyFunction), o_4933_object_type)); /* line 194 "../lib/comp/copy.s7i" */ strDestr(old_stri); } } /* line 196 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4934_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4935_diagnosticLine); /* line 197 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4934_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[241] /* "static void cpy_" */); { /* line 198 "../lib/comp/copy.s7i" */ union { /* line 198 "../lib/comp/copy.s7i" */ struct striStruct striBuf; /* line 198 "../lib/comp/copy.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 198 "../lib/comp/copy.s7i" */ } buffer_1; /* line 198 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4934_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(*o_4933_object_type), &buffer_1.striBuf)); } /* line 199 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4934_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[177] /* " (" */); /* line 200 "../lib/comp/copy.s7i" */ strAppendTemp(&(((structType)(*o_4934_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4933_object_type)); /* line 201 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4934_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[242] /* " *a, " */); /* line 202 "../lib/comp/copy.s7i" */ strAppendTemp(&(((structType)(*o_4934_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4933_object_type)); /* line 203 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4934_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[167] /* " b)\n" */); /* line 204 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4934_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4935_diagnosticLine); /* line 205 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4934_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 206 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4934_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4935_diagnosticLine); /* line 207 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4934_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[258] /* "hshCpy(a, b" */); /* line 208 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4934_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), *o_4315/*[*/(&(o_4910_parametersOfHshCpy), o_4933_object_type)); /* line 209 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4934_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 210 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4934_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4935_diagnosticLine); /* line 211 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4934_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 212 "../lib/comp/copy.s7i" */ strAppendTemp(&(((structType)(*o_4934_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4814_noDiagnosticLine()); /* line 213 "../lib/comp/copy.s7i" */ { /* line 213 "../lib/comp/copy.s7i" */ striType *tmp_1; /* line 213 "../lib/comp/copy.s7i" */ tmp_1=&(((structType)(*o_4934_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 213 "../lib/comp/copy.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 213 "../lib/comp/copy.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 213 "../lib/comp/copy.s7i" */ } else { /* line 213 "../lib/comp/copy.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 213 "../lib/comp/copy.s7i" */ (*tmp_1)->size++; /* line 213 "../lib/comp/copy.s7i" */ } } /* line 214 "../lib/comp/copy.s7i" */ o_3963/*@:=*/(&(o_4909_cpy_declared), o_4933_object_type, o_26_TRUE); /* line 187 "../lib/comp/copy.s7i" */ strDestr(o_4935_diagnosticLine); } /* line 1 "no_file" */ /* 2951 */ /* line 218 "../lib/comp/copy.s7i" */ static void/*t_1_void*/ o_4936_process_itf_cpy_declaration (const typeType/*t_7_type*/ *const o_4937_object_type, structType/*t_164_expr_type*/ *const o_4938_c_expr) { /* line 222 "../lib/comp/copy.s7i" */ striType/*t_15_string*/ o_4939_diagnosticLine; /* line 222 "../lib/comp/copy.s7i" */ o_4939_diagnosticLine=strEmpty(); /* "" */ /* line 224 "../lib/comp/copy.s7i" */ if (o_3595_in(o_4937_object_type, o_4908_copyFunction)) { { /* line 225 "../lib/comp/copy.s7i" */ striType old_stri=o_4939_diagnosticLine; /* line 225 "../lib/comp/copy.s7i" */ o_4939_diagnosticLine=o_4816_diagnosticLine(*o_3588/*[*/(&(o_4908_copyFunction), o_4937_object_type)); /* line 225 "../lib/comp/copy.s7i" */ strDestr(old_stri); } } /* line 227 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4938_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4939_diagnosticLine); /* line 228 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4938_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[241] /* "static void cpy_" */); { /* line 229 "../lib/comp/copy.s7i" */ union { /* line 229 "../lib/comp/copy.s7i" */ struct striStruct striBuf; /* line 229 "../lib/comp/copy.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 229 "../lib/comp/copy.s7i" */ } buffer_1; /* line 229 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4938_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(*o_4937_object_type), &buffer_1.striBuf)); } /* line 230 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4938_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[177] /* " (" */); /* line 231 "../lib/comp/copy.s7i" */ strAppendTemp(&(((structType)(*o_4938_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4937_object_type)); /* line 232 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4938_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[242] /* " *a, " */); /* line 233 "../lib/comp/copy.s7i" */ strAppendTemp(&(((structType)(*o_4938_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_4937_object_type)); /* line 234 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4938_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[167] /* " b)\n" */); /* line 235 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4938_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4939_diagnosticLine); /* line 236 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4938_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 237 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4938_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4939_diagnosticLine); /* line 238 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4938_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[259] /* "interfaceType old_value = *a;\n" */); /* line 239 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4938_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4939_diagnosticLine); /* line 240 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4938_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[260] /* "*a=b;\n" */); /* line 241 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4938_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4939_diagnosticLine); /* line 242 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4938_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[261] /* "if ((*a)->usage_count != 0) { (*a)->usage_count++; }\n" */); /* line 243 "../lib/comp/copy.s7i" */ o_4829_process_destr_declaration(o_4937_object_type, &(o_4794_global_c_expr)); /* line 244 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4938_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4939_diagnosticLine); /* line 245 "../lib/comp/copy.s7i" */ o_4832_process_destr_call(o_4937_object_type, &str[262] /* "old_value" */, &(((structType)(*o_4938_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 246 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4938_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4939_diagnosticLine); /* line 247 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4938_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 248 "../lib/comp/copy.s7i" */ strAppendTemp(&(((structType)(*o_4938_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4814_noDiagnosticLine()); /* line 249 "../lib/comp/copy.s7i" */ { /* line 249 "../lib/comp/copy.s7i" */ striType *tmp_1; /* line 249 "../lib/comp/copy.s7i" */ tmp_1=&(((structType)(*o_4938_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 249 "../lib/comp/copy.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 249 "../lib/comp/copy.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 249 "../lib/comp/copy.s7i" */ } else { /* line 249 "../lib/comp/copy.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 249 "../lib/comp/copy.s7i" */ (*tmp_1)->size++; /* line 249 "../lib/comp/copy.s7i" */ } } /* line 250 "../lib/comp/copy.s7i" */ o_3963/*@:=*/(&(o_4909_cpy_declared), o_4937_object_type, o_26_TRUE); /* line 218 "../lib/comp/copy.s7i" */ strDestr(o_4939_diagnosticLine); } /* line 1 "no_file" */ /* 2952 */ /* line 254 "../lib/comp/copy.s7i" */ static void/*t_1_void*/ o_4911_process_cpy_declaration (const typeType/*t_7_type*/ *const o_4912_object_type, structType/*t_164_expr_type*/ *const o_4913_c_expr) { /* line 258 "../lib/comp/copy.s7i" */ if (o_3953_not(o_4912_object_type, o_4909_cpy_declared)) { /* line 259 "../lib/comp/copy.s7i" */ if (o_3772_in(o_4912_object_type, o_4414_typeCategory)) { /* line 260 "../lib/comp/copy.s7i" */ switch (*o_3765/*[*/(&(o_4414_typeCategory), o_4912_object_type)) { /* line 261 "../lib/comp/copy.s7i" */ case 14: /* line 262 "../lib/comp/copy.s7i" */ o_4919_process_arr_cpy_declaration(o_4912_object_type, o_4913_c_expr); /* line 262 "../lib/comp/copy.s7i" */ break; /* line 263 "../lib/comp/copy.s7i" */ case 16: /* line 264 "../lib/comp/copy.s7i" */ o_4924_process_sct_cpy_declaration(o_4912_object_type, o_4913_c_expr); /* line 264 "../lib/comp/copy.s7i" */ break; /* line 265 "../lib/comp/copy.s7i" */ case 15: /* line 266 "../lib/comp/copy.s7i" */ o_4932_process_hsh_cpy_declaration(o_4912_object_type, o_4913_c_expr); /* line 266 "../lib/comp/copy.s7i" */ break; /* line 267 "../lib/comp/copy.s7i" */ case 18: /* line 268 "../lib/comp/copy.s7i" */ o_4936_process_itf_cpy_declaration(o_4912_object_type, o_4913_c_expr); /* line 268 "../lib/comp/copy.s7i" */ break; default: /* line 270 "../lib/comp/copy.s7i" */ o_3963/*@:=*/(&(o_4909_cpy_declared), o_4912_object_type, o_26_TRUE); break; } } else { /* line 273 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4913_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[263] /* "/* cpy_" */); { /* line 274 "../lib/comp/copy.s7i" */ union { /* line 274 "../lib/comp/copy.s7i" */ struct striStruct striBuf; /* line 274 "../lib/comp/copy.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 274 "../lib/comp/copy.s7i" */ } buffer_1; /* line 274 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4913_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(*o_4912_object_type), &buffer_1.striBuf)); } /* line 275 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4913_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[264] /* " declaration for type " */); /* line 276 "../lib/comp/copy.s7i" */ strAppendTemp(&(((structType)(*o_4913_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4746_type_name2(o_4912_object_type)); /* line 277 "../lib/comp/copy.s7i" */ strAppend(&(((structType)(*o_4913_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[265] /* " *\/\n\n" */); } } } /* line 1 "no_file" */ /* 2953 */ /* line 283 "../lib/comp/copy.s7i" */ static void/*t_1_void*/ o_4914_process_cpy_call (const typeType/*t_7_type*/ *const o_4915_object_type, const const_striType/*t_15_string*/ o_4916_param_a, const const_striType/*t_15_string*/ o_4917_param_b, striType/*t_15_string*/ *const o_4918_expr) { /* line 287 "../lib/comp/copy.s7i" */ if (o_3772_in(o_4915_object_type, o_4414_typeCategory)) { /* line 288 "../lib/comp/copy.s7i" */ switch (*o_3765/*[*/(&(o_4414_typeCategory), o_4915_object_type)) { /* line 289 "../lib/comp/copy.s7i" */ case 4: /* line 289 "../lib/comp/copy.s7i" */ case 7: /* line 289 "../lib/comp/copy.s7i" */ case 9: /* line 289 "../lib/comp/copy.s7i" */ case 11: /* line 289 "../lib/comp/copy.s7i" */ case 20: /* line 289 "../lib/comp/copy.s7i" */ case 22: /* line 289 "../lib/comp/copy.s7i" */ case 25: /* line 289 "../lib/comp/copy.s7i" */ case 30: /* line 289 "../lib/comp/copy.s7i" */ case 33: /* line 289 "../lib/comp/copy.s7i" */ case 256: /* line 289 "../lib/comp/copy.s7i" */ case 257: { /* line 292 "../lib/comp/copy.s7i" */ const_striType tmp_2[3]; /* line 292 "../lib/comp/copy.s7i" */ strAppendTemp(&(*o_4918_expr), (tmp_2[0] = o_4916_param_a, tmp_2[1] = &str[226] /* "=" */, tmp_2[2] = o_4917_param_b, strConcatN(tmp_2, 3))); } /* line 292 "../lib/comp/copy.s7i" */ break; /* line 293 "../lib/comp/copy.s7i" */ case 10: { /* line 293 "../lib/comp/copy.s7i" */ const_striType tmp_2[5]; /* line 293 "../lib/comp/copy.s7i" */ strAppendTemp(&(*o_4918_expr), (tmp_2[0] = &str[266] /* "bigCpy(&(" */, tmp_2[1] = o_4916_param_a, tmp_2[2] = &str[267] /* "), " */, tmp_2[3] = o_4917_param_b, tmp_2[4] = &str[230] /* ")" */, strConcatN(tmp_2, 5))); } /* line 293 "../lib/comp/copy.s7i" */ break; /* line 294 "../lib/comp/copy.s7i" */ case 12: { /* line 294 "../lib/comp/copy.s7i" */ const_striType tmp_2[5]; /* line 294 "../lib/comp/copy.s7i" */ strAppendTemp(&(*o_4918_expr), (tmp_2[0] = &str[268] /* "strCopy(&(" */, tmp_2[1] = o_4916_param_a, tmp_2[2] = &str[267] /* "), " */, tmp_2[3] = o_4917_param_b, tmp_2[4] = &str[230] /* ")" */, strConcatN(tmp_2, 5))); } /* line 294 "../lib/comp/copy.s7i" */ break; /* line 295 "../lib/comp/copy.s7i" */ case 13: { /* line 295 "../lib/comp/copy.s7i" */ const_striType tmp_2[5]; /* line 295 "../lib/comp/copy.s7i" */ strAppendTemp(&(*o_4918_expr), (tmp_2[0] = &str[269] /* "bstCpy(&(" */, tmp_2[1] = o_4916_param_a, tmp_2[2] = &str[267] /* "), " */, tmp_2[3] = o_4917_param_b, tmp_2[4] = &str[230] /* ")" */, strConcatN(tmp_2, 5))); } /* line 295 "../lib/comp/copy.s7i" */ break; /* line 296 "../lib/comp/copy.s7i" */ case 19: { /* line 296 "../lib/comp/copy.s7i" */ const_striType tmp_2[5]; /* line 296 "../lib/comp/copy.s7i" */ strAppendTemp(&(*o_4918_expr), (tmp_2[0] = &str[270] /* "setCpy(&(" */, tmp_2[1] = o_4916_param_a, tmp_2[2] = &str[267] /* "), " */, tmp_2[3] = o_4917_param_b, tmp_2[4] = &str[230] /* ")" */, strConcatN(tmp_2, 5))); } /* line 296 "../lib/comp/copy.s7i" */ break; /* line 297 "../lib/comp/copy.s7i" */ case 23: { /* line 297 "../lib/comp/copy.s7i" */ const_striType tmp_2[5]; /* line 297 "../lib/comp/copy.s7i" */ strAppendTemp(&(*o_4918_expr), (tmp_2[0] = &str[271] /* "polCpy(" */, tmp_2[1] = o_4916_param_a, tmp_2[2] = &str[12] /* ", " */, tmp_2[3] = o_4917_param_b, tmp_2[4] = &str[230] /* ")" */, strConcatN(tmp_2, 5))); } /* line 297 "../lib/comp/copy.s7i" */ break; /* line 298 "../lib/comp/copy.s7i" */ case 31: { /* line 298 "../lib/comp/copy.s7i" */ const_striType tmp_2[5]; /* line 298 "../lib/comp/copy.s7i" */ strAppendTemp(&(*o_4918_expr), (tmp_2[0] = &str[272] /* "rflCpy(&(" */, tmp_2[1] = o_4916_param_a, tmp_2[2] = &str[267] /* "), " */, tmp_2[3] = o_4917_param_b, tmp_2[4] = &str[230] /* ")" */, strConcatN(tmp_2, 5))); } /* line 298 "../lib/comp/copy.s7i" */ break; /* line 299 "../lib/comp/copy.s7i" */ case 26: { /* line 299 "../lib/comp/copy.s7i" */ const_striType tmp_2[5]; /* line 299 "../lib/comp/copy.s7i" */ strAppendTemp(&(*o_4918_expr), (tmp_2[0] = &str[273] /* "drwCpy(&(" */, tmp_2[1] = o_4916_param_a, tmp_2[2] = &str[267] /* "), " */, tmp_2[3] = o_4917_param_b, tmp_2[4] = &str[230] /* ")" */, strConcatN(tmp_2, 5))); } /* line 299 "../lib/comp/copy.s7i" */ break; /* line 300 "../lib/comp/copy.s7i" */ case 40: { /* line 300 "../lib/comp/copy.s7i" */ const_striType tmp_2[5]; /* line 300 "../lib/comp/copy.s7i" */ strAppendTemp(&(*o_4918_expr), (tmp_2[0] = &str[274] /* "prgCpy(&(" */, tmp_2[1] = o_4916_param_a, tmp_2[2] = &str[267] /* "), " */, tmp_2[3] = o_4917_param_b, tmp_2[4] = &str[230] /* ")" */, strConcatN(tmp_2, 5))); } /* line 300 "../lib/comp/copy.s7i" */ break; /* line 301 "../lib/comp/copy.s7i" */ case 14: /* line 301 "../lib/comp/copy.s7i" */ case 15: /* line 301 "../lib/comp/copy.s7i" */ case 18: /* line 302 "../lib/comp/copy.s7i" */ strAppend(&(*o_4918_expr), &str[275] /* "cpy_" */); { /* line 303 "../lib/comp/copy.s7i" */ union { /* line 303 "../lib/comp/copy.s7i" */ struct striStruct striBuf; /* line 303 "../lib/comp/copy.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 303 "../lib/comp/copy.s7i" */ } buffer_1; /* line 303 "../lib/comp/copy.s7i" */ strAppend(&(*o_4918_expr), intStrToBuffer(typNum(*o_4915_object_type), &buffer_1.striBuf)); } /* line 304 "../lib/comp/copy.s7i" */ strAppend(&(*o_4918_expr), &str[205] /* "((" */); /* line 305 "../lib/comp/copy.s7i" */ strAppendTemp(&(*o_4918_expr), o_4743_type_name(o_4915_object_type)); /* line 306 "../lib/comp/copy.s7i" */ strAppend(&(*o_4918_expr), &str[276] /* " *)(&(" */); /* line 307 "../lib/comp/copy.s7i" */ strAppend(&(*o_4918_expr), o_4916_param_a); /* line 308 "../lib/comp/copy.s7i" */ strAppend(&(*o_4918_expr), &str[277] /* ")), (" */); /* line 309 "../lib/comp/copy.s7i" */ strAppendTemp(&(*o_4918_expr), o_4743_type_name(o_4915_object_type)); /* line 310 "../lib/comp/copy.s7i" */ strAppend(&(*o_4918_expr), &str[206] /* ")(" */); /* line 311 "../lib/comp/copy.s7i" */ strAppend(&(*o_4918_expr), o_4917_param_b); /* line 312 "../lib/comp/copy.s7i" */ strAppend(&(*o_4918_expr), &str[240] /* "))" */); /* line 312 "../lib/comp/copy.s7i" */ break; /* line 313 "../lib/comp/copy.s7i" */ case 16: /* line 314 "../lib/comp/copy.s7i" */ strAppend(&(*o_4918_expr), &str[275] /* "cpy_" */); { /* line 315 "../lib/comp/copy.s7i" */ union { /* line 315 "../lib/comp/copy.s7i" */ struct striStruct striBuf; /* line 315 "../lib/comp/copy.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 315 "../lib/comp/copy.s7i" */ } buffer_1; /* line 315 "../lib/comp/copy.s7i" */ strAppend(&(*o_4918_expr), intStrToBuffer(typNum(*o_4915_object_type), &buffer_1.striBuf)); } /* line 316 "../lib/comp/copy.s7i" */ strAppend(&(*o_4918_expr), &str[205] /* "((" */); /* line 317 "../lib/comp/copy.s7i" */ strAppendTemp(&(*o_4918_expr), o_4743_type_name(o_4915_object_type)); /* line 318 "../lib/comp/copy.s7i" */ strAppend(&(*o_4918_expr), &str[206] /* ")(" */); /* line 319 "../lib/comp/copy.s7i" */ strAppend(&(*o_4918_expr), o_4916_param_a); /* line 320 "../lib/comp/copy.s7i" */ strAppend(&(*o_4918_expr), &str[278] /* "), (" */); /* line 321 "../lib/comp/copy.s7i" */ strAppendTemp(&(*o_4918_expr), o_4743_type_name(o_4915_object_type)); /* line 322 "../lib/comp/copy.s7i" */ strAppend(&(*o_4918_expr), &str[206] /* ")(" */); /* line 323 "../lib/comp/copy.s7i" */ strAppend(&(*o_4918_expr), o_4917_param_b); /* line 324 "../lib/comp/copy.s7i" */ strAppend(&(*o_4918_expr), &str[240] /* "))" */); /* line 324 "../lib/comp/copy.s7i" */ break; } } else { /* line 327 "../lib/comp/copy.s7i" */ strAppendTemp(&(*o_4918_expr), strConcat(o_4917_param_b, &str[279] /* " /* cpy_" */)); { /* line 328 "../lib/comp/copy.s7i" */ union { /* line 328 "../lib/comp/copy.s7i" */ struct striStruct striBuf; /* line 328 "../lib/comp/copy.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 328 "../lib/comp/copy.s7i" */ } buffer_1; /* line 328 "../lib/comp/copy.s7i" */ strAppend(&(*o_4918_expr), intStrToBuffer(typNum(*o_4915_object_type), &buffer_1.striBuf)); } /* line 329 "../lib/comp/copy.s7i" */ strAppend(&(*o_4918_expr), &str[280] /* " for type " */); /* line 330 "../lib/comp/copy.s7i" */ strAppendTemp(&(*o_4918_expr), o_4746_type_name2(o_4915_object_type)); /* line 331 "../lib/comp/copy.s7i" */ strAppend(&(*o_4918_expr), &str[281] /* " *\/" */); } } /* line 1 "no_file" */ /* 2954 */ hashType/*t_162_boolean_obj_hash*/ o_4940_function_pointer_declared; /* 2955 */ static void/*t_1_void*/ o_4941_process_expr (objRefType/*t_19_reference*/ o_4942_current_expression, structType/*t_164_expr_type*/ *const o_4943_c_expr); /* line 33 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_4944_prepare_typed_result (const typeType/*t_7_type*/ *const o_4945_aType, structType/*t_164_expr_type*/ *const o_4946_c_expr) { /* line 36 "../lib/comp/expr_util.s7i" */ ++(((structType)(*o_4946_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); /* line 37 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4946_c_expr))->stru[8].value.striValue/*->o_4786_result_temp*/), &str[282] /* "tmp_" */); { /* line 38 "../lib/comp/expr_util.s7i" */ union { /* line 38 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 38 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 38 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 38 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4946_c_expr))->stru[8].value.striValue/*->o_4786_result_temp*/), intStrToBuffer(((structType)(*o_4946_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } { /* line 39 "../lib/comp/expr_util.s7i" */ striType *stri_ptr=&(((structType)(*o_4946_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/); /* line 39 "../lib/comp/expr_util.s7i" */ striType old_stri=*stri_ptr; /* line 39 "../lib/comp/expr_util.s7i" */ *stri_ptr=o_4743_type_name(o_4945_aType); /* line 39 "../lib/comp/expr_util.s7i" */ strDestr(old_stri); } /* line 40 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4946_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), &str[283] /* " tmp_" */); { /* line 41 "../lib/comp/expr_util.s7i" */ union { /* line 41 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 41 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 41 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 41 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4946_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), intStrToBuffer(((structType)(*o_4946_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 42 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4946_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), &str[284] /* " = (" */); /* line 43 "../lib/comp/expr_util.s7i" */ strAppendTemp(&(((structType)(*o_4946_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), o_4743_type_name(o_4945_aType)); /* line 44 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4946_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), &str[285] /* ")(NULL);\n" */); /* line 45 "../lib/comp/expr_util.s7i" */ o_4829_process_destr_declaration(o_4945_aType, &(o_4794_global_c_expr)); /* line 46 "../lib/comp/expr_util.s7i" */ o_4832_process_destr_call(o_4945_aType, ((structType)(*o_4946_c_expr))->stru[8].value.striValue/*->o_4786_result_temp*/, &(((structType)(*o_4946_c_expr))->stru[10].value.striValue/*->o_4788_result_free*/)); /* line 47 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4946_c_expr))->stru[11].value.striValue/*->o_4789_result_to_null*/), ((structType)(*o_4946_c_expr))->stru[8].value.striValue/*->o_4786_result_temp*/); /* line 48 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4946_c_expr))->stru[11].value.striValue/*->o_4789_result_to_null*/), &str[284] /* " = (" */); /* line 49 "../lib/comp/expr_util.s7i" */ strAppendTemp(&(((structType)(*o_4946_c_expr))->stru[11].value.striValue/*->o_4789_result_to_null*/), o_4743_type_name(o_4945_aType)); /* line 50 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4946_c_expr))->stru[11].value.striValue/*->o_4789_result_to_null*/), &str[285] /* ")(NULL);\n" */); /* line 51 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4946_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/), &str[286] /* "(tmp_" */); { /* line 52 "../lib/comp/expr_util.s7i" */ union { /* line 52 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 52 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 52 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 52 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4946_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/), intStrToBuffer(((structType)(*o_4946_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 53 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4946_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/), &str[287] /* "=(" */); /* line 54 "../lib/comp/expr_util.s7i" */ strAppendTemp(&(((structType)(*o_4946_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/), o_4743_type_name(o_4945_aType)); /* line 55 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4946_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/), &str[206] /* ")(" */); /* line 56 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4946_c_expr))->stru[14].value.striValue/*->o_4792_result_finish*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 2956 */ /* line 60 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_4947_prepare_bigint_result (structType/*t_164_expr_type*/ *const o_4948_c_expr) { /* line 63 "../lib/comp/expr_util.s7i" */ ++(((structType)(*o_4948_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); /* line 64 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4948_c_expr))->stru[8].value.striValue/*->o_4786_result_temp*/), &str[282] /* "tmp_" */); { /* line 65 "../lib/comp/expr_util.s7i" */ union { /* line 65 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 65 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 65 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 65 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4948_c_expr))->stru[8].value.striValue/*->o_4786_result_temp*/), intStrToBuffer(((structType)(*o_4948_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 66 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4948_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), &str[288] /* "bigIntType tmp_" */); { /* line 67 "../lib/comp/expr_util.s7i" */ union { /* line 67 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 67 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 67 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 67 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4948_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), intStrToBuffer(((structType)(*o_4948_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 68 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4948_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), &str[289] /* " = NULL;\n" */); /* line 69 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4948_c_expr))->stru[10].value.striValue/*->o_4788_result_free*/), &str[290] /* "bigDestr(tmp_" */); { /* line 70 "../lib/comp/expr_util.s7i" */ union { /* line 70 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 70 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 70 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 70 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4948_c_expr))->stru[10].value.striValue/*->o_4788_result_free*/), intStrToBuffer(((structType)(*o_4948_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 71 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4948_c_expr))->stru[10].value.striValue/*->o_4788_result_free*/), &str[186] /* ");\n" */); /* line 72 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4948_c_expr))->stru[11].value.striValue/*->o_4789_result_to_null*/), ((structType)(*o_4948_c_expr))->stru[8].value.striValue/*->o_4786_result_temp*/); /* line 73 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4948_c_expr))->stru[11].value.striValue/*->o_4789_result_to_null*/), &str[289] /* " = NULL;\n" */); /* line 74 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4948_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/), &str[286] /* "(tmp_" */); { /* line 75 "../lib/comp/expr_util.s7i" */ union { /* line 75 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 75 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 75 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 75 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4948_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/), intStrToBuffer(((structType)(*o_4948_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 76 "../lib/comp/expr_util.s7i" */ { /* line 76 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 76 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_4948_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/); /* line 76 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 76 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 76 "../lib/comp/expr_util.s7i" */ } else { /* line 76 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 76 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 76 "../lib/comp/expr_util.s7i" */ } } /* line 77 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4948_c_expr))->stru[14].value.striValue/*->o_4792_result_finish*/), &str[230] /* ")" */); } /* line 1 "no_file" */ /* 2957 */ /* line 81 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_4949_prepare_list_result (const typeType/*t_7_type*/ *const o_4950_list_type, structType/*t_164_expr_type*/ *const o_4951_c_expr) { /* line 84 "../lib/comp/expr_util.s7i" */ ++(((structType)(*o_4951_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); /* line 85 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4951_c_expr))->stru[8].value.striValue/*->o_4786_result_temp*/), &str[282] /* "tmp_" */); { /* line 86 "../lib/comp/expr_util.s7i" */ union { /* line 86 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 86 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 86 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 86 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4951_c_expr))->stru[8].value.striValue/*->o_4786_result_temp*/), intStrToBuffer(((structType)(*o_4951_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } { /* line 87 "../lib/comp/expr_util.s7i" */ striType *stri_ptr=&(((structType)(*o_4951_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/); /* line 87 "../lib/comp/expr_util.s7i" */ striType old_stri=*stri_ptr; /* line 87 "../lib/comp/expr_util.s7i" */ *stri_ptr=o_4743_type_name(o_4950_list_type); /* line 87 "../lib/comp/expr_util.s7i" */ strDestr(old_stri); } /* line 88 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4951_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), &str[283] /* " tmp_" */); { /* line 89 "../lib/comp/expr_util.s7i" */ union { /* line 89 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 89 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 89 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 89 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4951_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), intStrToBuffer(((structType)(*o_4951_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 90 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4951_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), &str[284] /* " = (" */); /* line 91 "../lib/comp/expr_util.s7i" */ strAppendTemp(&(((structType)(*o_4951_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), o_4743_type_name(o_4950_list_type)); /* line 92 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4951_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), &str[285] /* ")(NULL);\n" */); /* line 93 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4951_c_expr))->stru[10].value.striValue/*->o_4788_result_free*/), &str[291] /* "rflDestr(tmp_" */); { /* line 94 "../lib/comp/expr_util.s7i" */ union { /* line 94 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 94 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 94 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 94 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4951_c_expr))->stru[10].value.striValue/*->o_4788_result_free*/), intStrToBuffer(((structType)(*o_4951_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 95 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4951_c_expr))->stru[10].value.striValue/*->o_4788_result_free*/), &str[186] /* ");\n" */); /* line 96 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4951_c_expr))->stru[11].value.striValue/*->o_4789_result_to_null*/), ((structType)(*o_4951_c_expr))->stru[8].value.striValue/*->o_4786_result_temp*/); /* line 97 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4951_c_expr))->stru[11].value.striValue/*->o_4789_result_to_null*/), &str[284] /* " = (" */); /* line 98 "../lib/comp/expr_util.s7i" */ strAppendTemp(&(((structType)(*o_4951_c_expr))->stru[11].value.striValue/*->o_4789_result_to_null*/), o_4743_type_name(o_4950_list_type)); /* line 99 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4951_c_expr))->stru[11].value.striValue/*->o_4789_result_to_null*/), &str[285] /* ")(NULL);\n" */); /* line 100 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4951_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/), &str[286] /* "(tmp_" */); { /* line 101 "../lib/comp/expr_util.s7i" */ union { /* line 101 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 101 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 101 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 101 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4951_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/), intStrToBuffer(((structType)(*o_4951_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 102 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4951_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/), &str[287] /* "=(" */); /* line 103 "../lib/comp/expr_util.s7i" */ strAppendTemp(&(((structType)(*o_4951_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/), o_4743_type_name(o_4950_list_type)); /* line 104 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4951_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/), &str[206] /* ")(" */); /* line 105 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4951_c_expr))->stru[14].value.striValue/*->o_4792_result_finish*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 2958 */ /* line 109 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_4952_prepare_set_result (const typeType/*t_7_type*/ *const o_4953_set_type, structType/*t_164_expr_type*/ *const o_4954_c_expr) { /* line 112 "../lib/comp/expr_util.s7i" */ ++(((structType)(*o_4954_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); /* line 113 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4954_c_expr))->stru[8].value.striValue/*->o_4786_result_temp*/), &str[282] /* "tmp_" */); { /* line 114 "../lib/comp/expr_util.s7i" */ union { /* line 114 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 114 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 114 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 114 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4954_c_expr))->stru[8].value.striValue/*->o_4786_result_temp*/), intStrToBuffer(((structType)(*o_4954_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } { /* line 115 "../lib/comp/expr_util.s7i" */ striType *stri_ptr=&(((structType)(*o_4954_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/); /* line 115 "../lib/comp/expr_util.s7i" */ striType old_stri=*stri_ptr; /* line 115 "../lib/comp/expr_util.s7i" */ *stri_ptr=o_4743_type_name(o_4953_set_type); /* line 115 "../lib/comp/expr_util.s7i" */ strDestr(old_stri); } /* line 116 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4954_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), &str[283] /* " tmp_" */); { /* line 117 "../lib/comp/expr_util.s7i" */ union { /* line 117 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 117 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 117 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 117 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4954_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), intStrToBuffer(((structType)(*o_4954_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 118 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4954_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), &str[284] /* " = (" */); /* line 119 "../lib/comp/expr_util.s7i" */ strAppendTemp(&(((structType)(*o_4954_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), o_4743_type_name(o_4953_set_type)); /* line 120 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4954_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), &str[285] /* ")(NULL);\n" */); /* line 121 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4954_c_expr))->stru[10].value.striValue/*->o_4788_result_free*/), &str[292] /* "setDestr(tmp_" */); { /* line 122 "../lib/comp/expr_util.s7i" */ union { /* line 122 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 122 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 122 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 122 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4954_c_expr))->stru[10].value.striValue/*->o_4788_result_free*/), intStrToBuffer(((structType)(*o_4954_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 123 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4954_c_expr))->stru[10].value.striValue/*->o_4788_result_free*/), &str[186] /* ");\n" */); /* line 124 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4954_c_expr))->stru[11].value.striValue/*->o_4789_result_to_null*/), ((structType)(*o_4954_c_expr))->stru[8].value.striValue/*->o_4786_result_temp*/); /* line 125 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4954_c_expr))->stru[11].value.striValue/*->o_4789_result_to_null*/), &str[284] /* " = (" */); /* line 126 "../lib/comp/expr_util.s7i" */ strAppendTemp(&(((structType)(*o_4954_c_expr))->stru[11].value.striValue/*->o_4789_result_to_null*/), o_4743_type_name(o_4953_set_type)); /* line 127 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4954_c_expr))->stru[11].value.striValue/*->o_4789_result_to_null*/), &str[285] /* ")(NULL);\n" */); /* line 128 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4954_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/), &str[286] /* "(tmp_" */); { /* line 129 "../lib/comp/expr_util.s7i" */ union { /* line 129 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 129 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 129 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 129 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4954_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/), intStrToBuffer(((structType)(*o_4954_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 130 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4954_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/), &str[287] /* "=(" */); /* line 131 "../lib/comp/expr_util.s7i" */ strAppendTemp(&(((structType)(*o_4954_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/), o_4743_type_name(o_4953_set_type)); /* line 132 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4954_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/), &str[206] /* ")(" */); /* line 133 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4954_c_expr))->stru[14].value.striValue/*->o_4792_result_finish*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 2959 */ /* line 137 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_4955_prepare_stri_result (structType/*t_164_expr_type*/ *const o_4956_c_expr) { /* line 140 "../lib/comp/expr_util.s7i" */ ++(((structType)(*o_4956_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); /* line 141 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4956_c_expr))->stru[8].value.striValue/*->o_4786_result_temp*/), &str[282] /* "tmp_" */); { /* line 142 "../lib/comp/expr_util.s7i" */ union { /* line 142 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 142 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 142 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 142 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4956_c_expr))->stru[8].value.striValue/*->o_4786_result_temp*/), intStrToBuffer(((structType)(*o_4956_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 143 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4956_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), &str[293] /* "striType tmp_" */); { /* line 144 "../lib/comp/expr_util.s7i" */ union { /* line 144 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 144 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 144 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 144 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4956_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), intStrToBuffer(((structType)(*o_4956_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 145 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4956_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), &str[289] /* " = NULL;\n" */); /* line 146 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4956_c_expr))->stru[10].value.striValue/*->o_4788_result_free*/), &str[294] /* "strDestr(tmp_" */); { /* line 147 "../lib/comp/expr_util.s7i" */ union { /* line 147 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 147 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 147 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 147 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4956_c_expr))->stru[10].value.striValue/*->o_4788_result_free*/), intStrToBuffer(((structType)(*o_4956_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 148 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4956_c_expr))->stru[10].value.striValue/*->o_4788_result_free*/), &str[186] /* ");\n" */); /* line 149 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4956_c_expr))->stru[11].value.striValue/*->o_4789_result_to_null*/), ((structType)(*o_4956_c_expr))->stru[8].value.striValue/*->o_4786_result_temp*/); /* line 150 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4956_c_expr))->stru[11].value.striValue/*->o_4789_result_to_null*/), &str[289] /* " = NULL;\n" */); /* line 151 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4956_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/), &str[286] /* "(tmp_" */); { /* line 152 "../lib/comp/expr_util.s7i" */ union { /* line 152 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 152 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 152 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 152 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4956_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/), intStrToBuffer(((structType)(*o_4956_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 153 "../lib/comp/expr_util.s7i" */ { /* line 153 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 153 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_4956_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/); /* line 153 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 153 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 153 "../lib/comp/expr_util.s7i" */ } else { /* line 153 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 153 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 153 "../lib/comp/expr_util.s7i" */ } } /* line 154 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4956_c_expr))->stru[14].value.striValue/*->o_4792_result_finish*/), &str[230] /* ")" */); } /* line 1 "no_file" */ /* 2960 */ /* line 158 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_4957_prepare_bstri_result (structType/*t_164_expr_type*/ *const o_4958_c_expr) { /* line 161 "../lib/comp/expr_util.s7i" */ ++(((structType)(*o_4958_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); /* line 162 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4958_c_expr))->stru[8].value.striValue/*->o_4786_result_temp*/), &str[282] /* "tmp_" */); { /* line 163 "../lib/comp/expr_util.s7i" */ union { /* line 163 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 163 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 163 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 163 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4958_c_expr))->stru[8].value.striValue/*->o_4786_result_temp*/), intStrToBuffer(((structType)(*o_4958_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 164 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4958_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), &str[295] /* "bstriType tmp_" */); { /* line 165 "../lib/comp/expr_util.s7i" */ union { /* line 165 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 165 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 165 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 165 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4958_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), intStrToBuffer(((structType)(*o_4958_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 166 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4958_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), &str[289] /* " = NULL;\n" */); /* line 167 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4958_c_expr))->stru[10].value.striValue/*->o_4788_result_free*/), &str[296] /* "bstDestr(tmp_" */); { /* line 168 "../lib/comp/expr_util.s7i" */ union { /* line 168 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 168 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 168 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 168 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4958_c_expr))->stru[10].value.striValue/*->o_4788_result_free*/), intStrToBuffer(((structType)(*o_4958_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 169 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4958_c_expr))->stru[10].value.striValue/*->o_4788_result_free*/), &str[186] /* ");\n" */); /* line 170 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4958_c_expr))->stru[11].value.striValue/*->o_4789_result_to_null*/), ((structType)(*o_4958_c_expr))->stru[8].value.striValue/*->o_4786_result_temp*/); /* line 171 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4958_c_expr))->stru[11].value.striValue/*->o_4789_result_to_null*/), &str[289] /* " = NULL;\n" */); /* line 172 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4958_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/), &str[286] /* "(tmp_" */); { /* line 173 "../lib/comp/expr_util.s7i" */ union { /* line 173 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 173 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 173 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 173 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4958_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/), intStrToBuffer(((structType)(*o_4958_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 174 "../lib/comp/expr_util.s7i" */ { /* line 174 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 174 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_4958_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/); /* line 174 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 174 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 174 "../lib/comp/expr_util.s7i" */ } else { /* line 174 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 174 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 174 "../lib/comp/expr_util.s7i" */ } } /* line 175 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4958_c_expr))->stru[14].value.striValue/*->o_4792_result_finish*/), &str[230] /* ")" */); } /* line 1 "no_file" */ /* 2961 */ /* line 179 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_4959_prepare_prog_result (structType/*t_164_expr_type*/ *const o_4960_c_expr) { /* line 182 "../lib/comp/expr_util.s7i" */ ++(((structType)(*o_4960_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); /* line 183 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4960_c_expr))->stru[8].value.striValue/*->o_4786_result_temp*/), &str[282] /* "tmp_" */); { /* line 184 "../lib/comp/expr_util.s7i" */ union { /* line 184 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 184 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 184 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 184 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4960_c_expr))->stru[8].value.striValue/*->o_4786_result_temp*/), intStrToBuffer(((structType)(*o_4960_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 185 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4960_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), &str[297] /* "progType tmp_" */); { /* line 186 "../lib/comp/expr_util.s7i" */ union { /* line 186 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 186 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 186 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 186 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4960_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), intStrToBuffer(((structType)(*o_4960_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 187 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4960_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), &str[289] /* " = NULL;\n" */); /* line 188 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4960_c_expr))->stru[10].value.striValue/*->o_4788_result_free*/), &str[298] /* "prgDestr(tmp_" */); { /* line 189 "../lib/comp/expr_util.s7i" */ union { /* line 189 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 189 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 189 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 189 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4960_c_expr))->stru[10].value.striValue/*->o_4788_result_free*/), intStrToBuffer(((structType)(*o_4960_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 190 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4960_c_expr))->stru[10].value.striValue/*->o_4788_result_free*/), &str[186] /* ");\n" */); /* line 191 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4960_c_expr))->stru[11].value.striValue/*->o_4789_result_to_null*/), ((structType)(*o_4960_c_expr))->stru[8].value.striValue/*->o_4786_result_temp*/); /* line 192 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4960_c_expr))->stru[11].value.striValue/*->o_4789_result_to_null*/), &str[289] /* " = NULL;\n" */); /* line 193 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4960_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/), &str[286] /* "(tmp_" */); { /* line 194 "../lib/comp/expr_util.s7i" */ union { /* line 194 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 194 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 194 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 194 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4960_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/), intStrToBuffer(((structType)(*o_4960_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 195 "../lib/comp/expr_util.s7i" */ { /* line 195 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 195 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_4960_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/); /* line 195 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 195 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 195 "../lib/comp/expr_util.s7i" */ } else { /* line 195 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 195 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 195 "../lib/comp/expr_util.s7i" */ } } /* line 196 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4960_c_expr))->stru[14].value.striValue/*->o_4792_result_finish*/), &str[230] /* ")" */); } /* line 1 "no_file" */ /* 2962 */ /* line 200 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_4961_prepare_win_result (structType/*t_164_expr_type*/ *const o_4962_c_expr) { /* line 203 "../lib/comp/expr_util.s7i" */ ++(((structType)(*o_4962_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); /* line 204 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4962_c_expr))->stru[8].value.striValue/*->o_4786_result_temp*/), &str[282] /* "tmp_" */); { /* line 205 "../lib/comp/expr_util.s7i" */ union { /* line 205 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 205 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 205 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 205 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4962_c_expr))->stru[8].value.striValue/*->o_4786_result_temp*/), intStrToBuffer(((structType)(*o_4962_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 206 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4962_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), &str[299] /* "winType tmp_" */); { /* line 207 "../lib/comp/expr_util.s7i" */ union { /* line 207 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 207 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 207 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 207 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4962_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), intStrToBuffer(((structType)(*o_4962_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 208 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4962_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), &str[289] /* " = NULL;\n" */); /* line 209 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4962_c_expr))->stru[10].value.striValue/*->o_4788_result_free*/), &str[300] /* "winDestr(tmp_" */); { /* line 210 "../lib/comp/expr_util.s7i" */ union { /* line 210 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 210 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 210 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 210 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4962_c_expr))->stru[10].value.striValue/*->o_4788_result_free*/), intStrToBuffer(((structType)(*o_4962_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 211 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4962_c_expr))->stru[10].value.striValue/*->o_4788_result_free*/), &str[186] /* ");\n" */); /* line 212 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4962_c_expr))->stru[11].value.striValue/*->o_4789_result_to_null*/), ((structType)(*o_4962_c_expr))->stru[8].value.striValue/*->o_4786_result_temp*/); /* line 213 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4962_c_expr))->stru[11].value.striValue/*->o_4789_result_to_null*/), &str[289] /* " = NULL;\n" */); /* line 214 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4962_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/), &str[286] /* "(tmp_" */); { /* line 215 "../lib/comp/expr_util.s7i" */ union { /* line 215 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 215 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 215 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 215 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4962_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/), intStrToBuffer(((structType)(*o_4962_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_1.striBuf)); } /* line 216 "../lib/comp/expr_util.s7i" */ { /* line 216 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 216 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_4962_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/); /* line 216 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 216 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 216 "../lib/comp/expr_util.s7i" */ } else { /* line 216 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 216 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 216 "../lib/comp/expr_util.s7i" */ } } /* line 217 "../lib/comp/expr_util.s7i" */ strCopy(&(((structType)(*o_4962_c_expr))->stru[14].value.striValue/*->o_4792_result_finish*/), &str[230] /* ")" */); } /* line 1 "no_file" */ /* 2963 */ static void/*t_1_void*/ o_4941_process_expr (objRefType/*t_19_reference*/ o_4942_current_expression, structType/*t_164_expr_type*/ *const o_4943_c_expr); /* line 221 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_4963_prepareAnyParamTemporarys (const objRefType/*t_19_reference*/ o_4964_aParam, structType/*t_164_expr_type*/ *const o_4965_c_param, structType/*t_164_expr_type*/ *const o_4966_c_expr) { /* line 225 "../lib/comp/expr_util.s7i" */ ((structType)(*o_4965_c_param))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(*o_4966_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 226 "../lib/comp/expr_util.s7i" */ o_4941_process_expr(o_4964_aParam, o_4965_c_param); /* line 227 "../lib/comp/expr_util.s7i" */ ((structType)(*o_4966_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(*o_4965_c_param))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 228 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4966_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), ((structType)(*o_4965_c_param))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 229 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4966_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), ((structType)(*o_4965_c_param))->stru[4].value.striValue/*->o_4782_temp_assigns*/); /* line 230 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4966_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), ((structType)(*o_4965_c_param))->stru[6].value.striValue/*->o_4784_temp_frees*/); /* line 231 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4966_c_expr))->stru[7].value.striValue/*->o_4785_temp_to_null*/), ((structType)(*o_4965_c_param))->stru[7].value.striValue/*->o_4785_temp_to_null*/); } /* line 1 "no_file" */ /* 2964 */ /* line 235 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_4967_getAnyParamToExpr (const structType/*t_164_expr_type*/ o_4968_c_param, structType/*t_164_expr_type*/ *const o_4969_c_expr) { /* line 238 "../lib/comp/expr_util.s7i" */ if (((((structType)(o_4968_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 239 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4969_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), ((structType)(o_4968_c_param))->stru[9].value.striValue/*->o_4787_result_decl*/); /* line 240 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4969_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), ((structType)(o_4968_c_param))->stru[10].value.striValue/*->o_4788_result_free*/); /* line 241 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4969_c_expr))->stru[7].value.striValue/*->o_4785_temp_to_null*/), ((structType)(o_4968_c_param))->stru[11].value.striValue/*->o_4789_result_to_null*/); /* line 242 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4969_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_4968_c_param))->stru[12].value.striValue/*->o_4790_result_intro*/); /* line 243 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4969_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_4968_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 244 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4969_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_4968_c_param))->stru[14].value.striValue/*->o_4792_result_finish*/); } else { /* line 246 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4969_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_4968_c_param))->stru[5].value.striValue/*->o_4783_expr*/); } } /* line 1 "no_file" */ /* 2965 */ /* line 59 "../lib/struct.s7i" */ static void destr_164 (structType/*t_164_expr_type*/ b) /* line 59 "../lib/struct.s7i" */ { /* line 59 "../lib/struct.s7i" */ if (b != NULL && b->usage_count != 0) { b->usage_count--; if (b->usage_count == 0) { /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[0].value.striValue); /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[3].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[4].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[5].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[6].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[7].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[8].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[9].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[10].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[11].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[12].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[13].value.striValue); /* line 59 "../lib/struct.s7i" */ strDestr(b->stru[14].value.striValue); /* line 59 "../lib/struct.s7i" */ free((void *)(b)); /* line 59 "../lib/struct.s7i" */ }} /* line 59 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 251 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_4970_getAnyParamToExpr (const objRefType/*t_19_reference*/ o_4971_aParam, structType/*t_164_expr_type*/ *const o_4972_c_expr) { /* line 254 "../lib/comp/expr_util.s7i" */ structType/*t_164_expr_type*/ o_4973_c_param; /* line 254 "../lib/comp/expr_util.s7i" */ o_4973_c_param=create_164(sct[117]); /* line 256 "../lib/comp/expr_util.s7i" */ o_4963_prepareAnyParamTemporarys(o_4971_aParam, &(o_4973_c_param), o_4972_c_expr); /* line 257 "../lib/comp/expr_util.s7i" */ o_4967_getAnyParamToExpr(o_4973_c_param, o_4972_c_expr); /* line 251 "../lib/comp/expr_util.s7i" */ destr_164(o_4973_c_param); } /* line 1 "no_file" */ /* 2966 */ /* line 261 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_4974_getAnyParamToResultExpr (const structType/*t_164_expr_type*/ o_4975_c_param, structType/*t_164_expr_type*/ *const o_4976_c_expr) { /* line 264 "../lib/comp/expr_util.s7i" */ if (((((structType)(o_4975_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 265 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4976_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), ((structType)(o_4975_c_param))->stru[9].value.striValue/*->o_4787_result_decl*/); /* line 266 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4976_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), ((structType)(o_4975_c_param))->stru[10].value.striValue/*->o_4788_result_free*/); /* line 267 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4976_c_expr))->stru[7].value.striValue/*->o_4785_temp_to_null*/), ((structType)(o_4975_c_param))->stru[11].value.striValue/*->o_4789_result_to_null*/); /* line 268 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4976_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_4975_c_param))->stru[12].value.striValue/*->o_4790_result_intro*/); /* line 269 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4976_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_4975_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 270 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4976_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_4975_c_param))->stru[14].value.striValue/*->o_4792_result_finish*/); } else { /* line 272 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4976_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_4975_c_param))->stru[5].value.striValue/*->o_4783_expr*/); } } /* line 1 "no_file" */ /* 2967 */ /* line 277 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_4977_getAnyParamToResultExpr (const objRefType/*t_19_reference*/ o_4978_aParam, structType/*t_164_expr_type*/ *const o_4979_c_expr) { /* line 280 "../lib/comp/expr_util.s7i" */ structType/*t_164_expr_type*/ o_4980_c_param; /* line 280 "../lib/comp/expr_util.s7i" */ o_4980_c_param=create_164(sct[118]); /* line 282 "../lib/comp/expr_util.s7i" */ o_4963_prepareAnyParamTemporarys(o_4978_aParam, &(o_4980_c_param), o_4979_c_expr); /* line 283 "../lib/comp/expr_util.s7i" */ o_4974_getAnyParamToResultExpr(o_4980_c_param, o_4979_c_expr); /* line 277 "../lib/comp/expr_util.s7i" */ destr_164(o_4980_c_param); } /* line 1 "no_file" */ /* 2968 */ /* line 287 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_4981_getStdParamToResultExpr (const objRefType/*t_19_reference*/ o_4982_aParam, structType/*t_164_expr_type*/ *const o_4983_c_expr) { /* line 290 "../lib/comp/expr_util.s7i" */ structType/*t_164_expr_type*/ o_4984_c_param; /* line 290 "../lib/comp/expr_util.s7i" */ o_4984_c_param=create_164(sct[119]); /* line 292 "../lib/comp/expr_util.s7i" */ o_4963_prepareAnyParamTemporarys(o_4982_aParam, &(o_4984_c_param), o_4983_c_expr); /* line 293 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4983_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_4984_c_param))->stru[5].value.striValue/*->o_4783_expr*/); /* line 287 "../lib/comp/expr_util.s7i" */ destr_164(o_4984_c_param); } /* line 1 "no_file" */ /* 2969 */ /* line 297 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_4985_getGenericValue (const objRefType/*t_19_reference*/ o_4986_current_expression, structType/*t_164_expr_type*/ *const o_4987_c_expr) { /* line 301 "../lib/comp/expr_util.s7i" */ typeType/*t_7_type*/ o_4988_result_type=typ[0] /* void/t_1_void */; /* line 302 "../lib/comp/expr_util.s7i" */ striType/*t_15_string*/ o_4989_temp_name; /* line 302 "../lib/comp/expr_util.s7i" */ o_4989_temp_name=strEmpty(); /* "" */ /* line 304 "../lib/comp/expr_util.s7i" */ o_4988_result_type=o_4754_getExprResultType(o_4986_current_expression); /* line 305 "../lib/comp/expr_util.s7i" */ if (((o_3772_in(&(o_4988_result_type), o_4414_typeCategory)) && /* line 305 "../lib/comp/expr_util.s7i" */ ((*o_3765/*[*/(&(o_4414_typeCategory), &(o_4988_result_type))) == (25L))) || /* line 306 "../lib/comp/expr_util.s7i" */ (!(((structType)(sct[55]))->stru[5].value.boolValue/*->o_3383_LITTLE_ENDIAN_INTTYPE*/))) { /* line 307 "../lib/comp/expr_util.s7i" */ ++(((structType)(*o_4987_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 308 "../lib/comp/expr_util.s7i" */ union { /* line 308 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 308 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 308 "../lib/comp/expr_util.s7i" */ } buffer_2; /* line 308 "../lib/comp/expr_util.s7i" */ striType old_stri=o_4989_temp_name; /* line 308 "../lib/comp/expr_util.s7i" */ o_4989_temp_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_4987_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 308 "../lib/comp/expr_util.s7i" */ strDestr(old_stri); } /* line 309 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4987_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[301] /* "const_rtlValueUnion " */); /* line 310 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4987_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_4989_temp_name); /* line 311 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4987_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 312 "../lib/comp/expr_util.s7i" */ { /* line 312 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 312 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_4987_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 312 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 312 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 312 "../lib/comp/expr_util.s7i" */ } else { /* line 312 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 312 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 312 "../lib/comp/expr_util.s7i" */ } } /* line 313 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4987_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4989_temp_name); /* line 314 "../lib/comp/expr_util.s7i" */ { /* line 314 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 314 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_4987_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 314 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 314 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) '.'); /* line 314 "../lib/comp/expr_util.s7i" */ } else { /* line 314 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '.'; /* line 314 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 314 "../lib/comp/expr_util.s7i" */ } } /* line 315 "../lib/comp/expr_util.s7i" */ strAppendTemp(&(((structType)(*o_4987_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4757_raw_type_value(&(o_4988_result_type))); /* line 316 "../lib/comp/expr_util.s7i" */ { /* line 316 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 316 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_4987_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 316 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 316 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 316 "../lib/comp/expr_util.s7i" */ } else { /* line 316 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 316 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 316 "../lib/comp/expr_util.s7i" */ } } /* line 317 "../lib/comp/expr_util.s7i" */ o_4941_process_expr(o_4986_current_expression, o_4987_c_expr); /* line 318 "../lib/comp/expr_util.s7i" */ { /* line 318 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 318 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_4987_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 318 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 318 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 318 "../lib/comp/expr_util.s7i" */ } else { /* line 318 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 318 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 318 "../lib/comp/expr_util.s7i" */ } } /* line 319 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4987_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4989_temp_name); /* line 320 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4987_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[302] /* ".genericValue)" */); } else { /* line 322 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4987_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[303] /* "(genericType)(" */); /* line 323 "../lib/comp/expr_util.s7i" */ o_4941_process_expr(o_4986_current_expression, o_4987_c_expr); /* line 324 "../lib/comp/expr_util.s7i" */ { /* line 324 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 324 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_4987_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 324 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 324 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 324 "../lib/comp/expr_util.s7i" */ } else { /* line 324 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 324 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 324 "../lib/comp/expr_util.s7i" */ } } } /* line 297 "../lib/comp/expr_util.s7i" */ strDestr(o_4989_temp_name); } /* line 1 "no_file" */ /* 2970 */ /* line 329 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_4990_getGenericValueToResultExpr (const objRefType/*t_19_reference*/ o_4991_current_expression, structType/*t_164_expr_type*/ *const o_4992_c_expr) { /* line 333 "../lib/comp/expr_util.s7i" */ typeType/*t_7_type*/ o_4993_result_type=typ[0] /* void/t_1_void */; /* line 334 "../lib/comp/expr_util.s7i" */ striType/*t_15_string*/ o_4994_temp_name; /* line 334 "../lib/comp/expr_util.s7i" */ o_4994_temp_name=strEmpty(); /* "" */ /* line 336 "../lib/comp/expr_util.s7i" */ o_4993_result_type=o_4754_getExprResultType(o_4991_current_expression); /* line 337 "../lib/comp/expr_util.s7i" */ if (((o_3772_in(&(o_4993_result_type), o_4414_typeCategory)) && /* line 337 "../lib/comp/expr_util.s7i" */ ((*o_3765/*[*/(&(o_4414_typeCategory), &(o_4993_result_type))) == (25L))) || /* line 338 "../lib/comp/expr_util.s7i" */ (!(((structType)(sct[55]))->stru[5].value.boolValue/*->o_3383_LITTLE_ENDIAN_INTTYPE*/))) { /* line 339 "../lib/comp/expr_util.s7i" */ ++(((structType)(*o_4992_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 340 "../lib/comp/expr_util.s7i" */ union { /* line 340 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 340 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 340 "../lib/comp/expr_util.s7i" */ } buffer_2; /* line 340 "../lib/comp/expr_util.s7i" */ striType old_stri=o_4994_temp_name; /* line 340 "../lib/comp/expr_util.s7i" */ o_4994_temp_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_4992_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 340 "../lib/comp/expr_util.s7i" */ strDestr(old_stri); } /* line 341 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4992_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[301] /* "const_rtlValueUnion " */); /* line 342 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4992_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_4994_temp_name); /* line 343 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4992_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 344 "../lib/comp/expr_util.s7i" */ { /* line 344 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 344 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_4992_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 344 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 344 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 344 "../lib/comp/expr_util.s7i" */ } else { /* line 344 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 344 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 344 "../lib/comp/expr_util.s7i" */ } } /* line 345 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4992_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_4994_temp_name); /* line 346 "../lib/comp/expr_util.s7i" */ { /* line 346 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 346 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_4992_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 346 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 346 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) '.'); /* line 346 "../lib/comp/expr_util.s7i" */ } else { /* line 346 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '.'; /* line 346 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 346 "../lib/comp/expr_util.s7i" */ } } /* line 347 "../lib/comp/expr_util.s7i" */ strAppendTemp(&(((structType)(*o_4992_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_4757_raw_type_value(&(o_4993_result_type))); /* line 348 "../lib/comp/expr_util.s7i" */ { /* line 348 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 348 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_4992_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 348 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 348 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 348 "../lib/comp/expr_util.s7i" */ } else { /* line 348 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 348 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 348 "../lib/comp/expr_util.s7i" */ } } /* line 349 "../lib/comp/expr_util.s7i" */ o_4977_getAnyParamToResultExpr(o_4991_current_expression, o_4992_c_expr); /* line 350 "../lib/comp/expr_util.s7i" */ { /* line 350 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 350 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_4992_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 350 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 350 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 350 "../lib/comp/expr_util.s7i" */ } else { /* line 350 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 350 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 350 "../lib/comp/expr_util.s7i" */ } } /* line 351 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4992_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_4994_temp_name); /* line 352 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4992_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[302] /* ".genericValue)" */); } else { /* line 354 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4992_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[303] /* "(genericType)(" */); /* line 355 "../lib/comp/expr_util.s7i" */ o_4977_getAnyParamToResultExpr(o_4991_current_expression, o_4992_c_expr); /* line 356 "../lib/comp/expr_util.s7i" */ { /* line 356 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 356 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_4992_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 356 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 356 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 356 "../lib/comp/expr_util.s7i" */ } else { /* line 356 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 356 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 356 "../lib/comp/expr_util.s7i" */ } } } /* line 329 "../lib/comp/expr_util.s7i" */ strDestr(o_4994_temp_name); } /* line 1 "no_file" */ /* 2971 */ /* line 361 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_4995_getGenericTemporaryToResultExpr (const typeType/*t_7_type*/ *const o_4996_param_type, const structType/*t_164_expr_type*/ o_4997_c_param, structType/*t_164_expr_type*/ *const o_4998_c_expr) { /* line 365 "../lib/comp/expr_util.s7i" */ striType/*t_15_string*/ o_4999_temp_name; /* line 365 "../lib/comp/expr_util.s7i" */ o_4999_temp_name=strEmpty(); /* "" */ /* line 367 "../lib/comp/expr_util.s7i" */ if (((o_3772_in(o_4996_param_type, o_4414_typeCategory)) && /* line 367 "../lib/comp/expr_util.s7i" */ ((*o_3765/*[*/(&(o_4414_typeCategory), o_4996_param_type)) == (25L))) || /* line 368 "../lib/comp/expr_util.s7i" */ (!(((structType)(sct[55]))->stru[5].value.boolValue/*->o_3383_LITTLE_ENDIAN_INTTYPE*/))) { /* line 369 "../lib/comp/expr_util.s7i" */ ++(((structType)(*o_4998_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 370 "../lib/comp/expr_util.s7i" */ union { /* line 370 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 370 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 370 "../lib/comp/expr_util.s7i" */ } buffer_2; /* line 370 "../lib/comp/expr_util.s7i" */ striType old_stri=o_4999_temp_name; /* line 370 "../lib/comp/expr_util.s7i" */ o_4999_temp_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_4998_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 370 "../lib/comp/expr_util.s7i" */ strDestr(old_stri); } /* line 371 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4998_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[304] /* "rtlValueUnion " */); /* line 372 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4998_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_4999_temp_name); /* line 373 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4998_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 374 "../lib/comp/expr_util.s7i" */ { /* line 374 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 374 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_4998_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 374 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 374 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 374 "../lib/comp/expr_util.s7i" */ } else { /* line 374 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 374 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 374 "../lib/comp/expr_util.s7i" */ } } /* line 375 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4998_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_4999_temp_name); /* line 376 "../lib/comp/expr_util.s7i" */ { /* line 376 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 376 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_4998_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 376 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 376 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) '.'); /* line 376 "../lib/comp/expr_util.s7i" */ } else { /* line 376 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '.'; /* line 376 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 376 "../lib/comp/expr_util.s7i" */ } } /* line 377 "../lib/comp/expr_util.s7i" */ strAppendTemp(&(((structType)(*o_4998_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_4757_raw_type_value(o_4996_param_type)); /* line 378 "../lib/comp/expr_util.s7i" */ { /* line 378 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 378 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_4998_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 378 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 378 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 378 "../lib/comp/expr_util.s7i" */ } else { /* line 378 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 378 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 378 "../lib/comp/expr_util.s7i" */ } } /* line 379 "../lib/comp/expr_util.s7i" */ if (((((structType)(o_4997_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 380 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4998_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_4997_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 382 "../lib/comp/expr_util.s7i" */ o_4878_process_create_declaration(o_4996_param_type, &(o_4794_global_c_expr)); /* line 383 "../lib/comp/expr_util.s7i" */ o_4881_process_create_call(o_4996_param_type, ((structType)(o_4997_c_param))->stru[5].value.striValue/*->o_4783_expr*/, &(((structType)(*o_4998_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/)); } /* line 385 "../lib/comp/expr_util.s7i" */ { /* line 385 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 385 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_4998_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 385 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 385 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 385 "../lib/comp/expr_util.s7i" */ } else { /* line 385 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 385 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 385 "../lib/comp/expr_util.s7i" */ } } /* line 386 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4998_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_4999_temp_name); /* line 387 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4998_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[302] /* ".genericValue)" */); } else /* line 388 "../lib/comp/expr_util.s7i" */ if (((((structType)(o_4997_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 389 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_4998_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_4997_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 391 "../lib/comp/expr_util.s7i" */ o_4878_process_create_declaration(o_4996_param_type, &(o_4794_global_c_expr)); /* line 392 "../lib/comp/expr_util.s7i" */ o_4881_process_create_call(o_4996_param_type, ((structType)(o_4997_c_param))->stru[5].value.striValue/*->o_4783_expr*/, &(((structType)(*o_4998_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/)); } /* line 361 "../lib/comp/expr_util.s7i" */ strDestr(o_4999_temp_name); } /* line 1 "no_file" */ /* 2972 */ /* line 397 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_5000_getGenericTemporaryToResultExpr (const objRefType/*t_19_reference*/ o_5001_aParam, structType/*t_164_expr_type*/ *const o_5002_c_expr) { /* line 400 "../lib/comp/expr_util.s7i" */ structType/*t_164_expr_type*/ o_5003_c_param; /* line 401 "../lib/comp/expr_util.s7i" */ typeType/*t_7_type*/ o_5004_param_type=typ[0] /* void/t_1_void */; /* line 400 "../lib/comp/expr_util.s7i" */ o_5003_c_param=create_164(sct[120]); /* line 403 "../lib/comp/expr_util.s7i" */ o_5004_param_type=o_4754_getExprResultType(o_5001_aParam); /* line 404 "../lib/comp/expr_util.s7i" */ o_4963_prepareAnyParamTemporarys(o_5001_aParam, &(o_5003_c_param), o_5002_c_expr); /* line 405 "../lib/comp/expr_util.s7i" */ o_4995_getGenericTemporaryToResultExpr(&(o_5004_param_type), o_5003_c_param, o_5002_c_expr); /* line 397 "../lib/comp/expr_util.s7i" */ destr_164(o_5003_c_param); } /* line 1 "no_file" */ /* 2973 */ /* line 409 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_5005_getTemporaryToResultExpr (const typeType/*t_7_type*/ *const o_5006_param_type, const structType/*t_164_expr_type*/ o_5007_c_param, structType/*t_164_expr_type*/ *const o_5008_c_expr) { /* line 413 "../lib/comp/expr_util.s7i" */ striType/*t_15_string*/ o_5009_temp_name; /* line 413 "../lib/comp/expr_util.s7i" */ o_5009_temp_name=strEmpty(); /* "" */ /* line 415 "../lib/comp/expr_util.s7i" */ if ((o_3772_in(o_5006_param_type, o_4414_typeCategory)) && /* line 415 "../lib/comp/expr_util.s7i" */ ((*o_3765/*[*/(&(o_4414_typeCategory), o_5006_param_type)) == (25L))) { /* line 416 "../lib/comp/expr_util.s7i" */ ++(((structType)(*o_5008_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 417 "../lib/comp/expr_util.s7i" */ union { /* line 417 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 417 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 417 "../lib/comp/expr_util.s7i" */ } buffer_2; /* line 417 "../lib/comp/expr_util.s7i" */ striType old_stri=o_5009_temp_name; /* line 417 "../lib/comp/expr_util.s7i" */ o_5009_temp_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_5008_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 417 "../lib/comp/expr_util.s7i" */ strDestr(old_stri); } /* line 418 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5008_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[304] /* "rtlValueUnion " */); /* line 419 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5008_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_5009_temp_name); /* line 420 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5008_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 421 "../lib/comp/expr_util.s7i" */ { /* line 421 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 421 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_5008_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 421 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 421 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 421 "../lib/comp/expr_util.s7i" */ } else { /* line 421 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 421 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 421 "../lib/comp/expr_util.s7i" */ } } /* line 422 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5008_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_5009_temp_name); /* line 423 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5008_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[305] /* ".floatValue=" */); /* line 424 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5008_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_5007_c_param))->stru[5].value.striValue/*->o_4783_expr*/); /* line 425 "../lib/comp/expr_util.s7i" */ { /* line 425 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 425 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_5008_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 425 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 425 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 425 "../lib/comp/expr_util.s7i" */ } else { /* line 425 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 425 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 425 "../lib/comp/expr_util.s7i" */ } } /* line 426 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5008_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_5009_temp_name); /* line 427 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5008_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[302] /* ".genericValue)" */); } else /* line 428 "../lib/comp/expr_util.s7i" */ if (((((structType)(o_5007_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 429 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5008_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_5007_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 431 "../lib/comp/expr_util.s7i" */ o_4878_process_create_declaration(o_5006_param_type, &(o_4794_global_c_expr)); /* line 432 "../lib/comp/expr_util.s7i" */ o_4881_process_create_call(o_5006_param_type, ((structType)(o_5007_c_param))->stru[5].value.striValue/*->o_4783_expr*/, &(((structType)(*o_5008_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/)); } /* line 409 "../lib/comp/expr_util.s7i" */ strDestr(o_5009_temp_name); } /* line 1 "no_file" */ /* 2974 */ /* line 437 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_5010_getTemporaryToResultExpr (const objRefType/*t_19_reference*/ o_5011_aParam, structType/*t_164_expr_type*/ *const o_5012_c_expr) { /* line 440 "../lib/comp/expr_util.s7i" */ structType/*t_164_expr_type*/ o_5013_c_param; /* line 441 "../lib/comp/expr_util.s7i" */ typeType/*t_7_type*/ o_5014_param_type=typ[0] /* void/t_1_void */; /* line 440 "../lib/comp/expr_util.s7i" */ o_5013_c_param=create_164(sct[121]); /* line 443 "../lib/comp/expr_util.s7i" */ o_5014_param_type=o_4754_getExprResultType(o_5011_aParam); /* line 444 "../lib/comp/expr_util.s7i" */ o_4963_prepareAnyParamTemporarys(o_5011_aParam, &(o_5013_c_param), o_5012_c_expr); /* line 445 "../lib/comp/expr_util.s7i" */ o_5005_getTemporaryToResultExpr(&(o_5014_param_type), o_5013_c_param, o_5012_c_expr); /* line 437 "../lib/comp/expr_util.s7i" */ destr_164(o_5013_c_param); } /* line 1 "no_file" */ /* 2975 */ /* line 449 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_5015_doLocalDeclsOfStatement (const structType/*t_164_expr_type*/ o_5016_statement, structType/*t_164_expr_type*/ *const o_5017_c_expr) { /* line 452 "../lib/comp/expr_util.s7i" */ if ((((structType)(o_5016_statement))->stru[2].value.intValue/*->o_4780_temp_num*/) > (0L)) { /* line 453 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5017_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 454 "../lib/comp/expr_util.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_5016_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_5017_c_expr); /* line 455 "../lib/comp/expr_util.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_5016_statement))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_5017_c_expr); /* line 456 "../lib/comp/expr_util.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_5016_statement))->stru[5].value.striValue/*->o_4783_expr*/, o_5017_c_expr); /* line 457 "../lib/comp/expr_util.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_5016_statement))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_5017_c_expr); /* line 458 "../lib/comp/expr_util.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_5016_statement))->stru[10].value.striValue/*->o_4788_result_free*/, o_5017_c_expr); /* line 459 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5017_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } else { /* line 461 "../lib/comp/expr_util.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_5016_statement))->stru[5].value.striValue/*->o_4783_expr*/, o_5017_c_expr); } } /* line 1 "no_file" */ /* 2976 */ /* line 466 "../lib/comp/expr_util.s7i" */ static boolType/*t_13_boolean*/ o_5018_isNormalVariable (const objRefType/*t_19_reference*/ o_5019_a_param) { /* line 467 "../lib/comp/expr_util.s7i" */ boolType/*t_13_boolean*/ result; /* line 467 "../lib/comp/expr_util.s7i" */ arrayType/*t_89_*ANONYM_TYPE**/ tmp_2 = (arrayType/*t_89_*ANONYM_TYPE**/)(NULL); /* line 467 "../lib/comp/expr_util.s7i" */ setType/*t_88_setOfCategory*/ tmp_1 = (setType/*t_88_setOfCategory*/)(NULL); /* line 467 "../lib/comp/expr_util.s7i" */ result=(boolType/*t_13_boolean*/)((o_2691_in(refCategory(o_5019_a_param), (tmp_1=(setType/*t_88_setOfCategory*/)(o_2743/*{*/((tmp_2=(arrayType/*t_89_*ANONYM_TYPE**/)(arrExtend(arrExtend(arrExtend(arrExtend(arrExtend(arrExtend(arrExtend(arrExtend(arrExtend(arrExtend(arrExtend(arrExtend(arrExtend(arrExtend(arrExtend(arrExtend(arrExtend(arrExtend(arrExtend(arrExtend(arrExtend(arrExtend(arrExtend(arrGen((genericType)(7L), (genericType)(9L)), (genericType)(10L)), (genericType)(11L)), (genericType)(12L)), (genericType)(13L)), (genericType)(14L)), (genericType)(15L)), (genericType)(16L)), (genericType)(18L)), (genericType)(19L)), (genericType)(20L)), (genericType)(22L)), (genericType)(23L)), (genericType)(24L)), (genericType)(25L)), (genericType)(26L)), (genericType)(30L)), (genericType)(31L)), (genericType)(33L)), (genericType)(34L)), (genericType)(35L)), (genericType)(36L)), (genericType)(37L)), (genericType)(40L)))))))))); /* line 467 "../lib/comp/expr_util.s7i" */ destr_89(tmp_2); /* line 467 "../lib/comp/expr_util.s7i" */ setDestr(tmp_1); /* line 467 "../lib/comp/expr_util.s7i" */ return result; } /* line 1 "no_file" */ /* 2977 */ /* line 475 "../lib/comp/expr_util.s7i" */ static striType/*t_15_string*/ o_5020_normalVariable (const objRefType/*t_19_reference*/ o_5021_aParam, structType/*t_164_expr_type*/ *const o_5022_c_expr) { /* line 478 "../lib/comp/expr_util.s7i" */ striType/*t_15_string*/ o_5023_varName; /* line 480 "../lib/comp/expr_util.s7i" */ structType/*t_164_expr_type*/ o_5024_c_param; /* line 478 "../lib/comp/expr_util.s7i" */ o_5023_varName=strEmpty(); /* "" */ /* line 480 "../lib/comp/expr_util.s7i" */ o_5024_c_param=create_164(sct[122]); /* line 482 "../lib/comp/expr_util.s7i" */ o_4963_prepareAnyParamTemporarys(o_5021_aParam, &(o_5024_c_param), o_5022_c_expr); { /* line 483 "../lib/comp/expr_util.s7i" */ const_striType tmp_2[3]; /* line 483 "../lib/comp/expr_util.s7i" */ striType old_stri=o_5023_varName; /* line 483 "../lib/comp/expr_util.s7i" */ o_5023_varName=(tmp_2[0] = &str[32] /* "(" */, tmp_2[1] = ((structType)(o_5024_c_param))->stru[5].value.striValue/*->o_4783_expr*/, tmp_2[2] = &str[230] /* ")" */, strConcatN(tmp_2, 3)); /* line 483 "../lib/comp/expr_util.s7i" */ strDestr(old_stri); } /* line 475 "../lib/comp/expr_util.s7i" */ destr_164(o_5024_c_param); return o_5023_varName; } /* line 1 "no_file" */ /* 2978 */ /* line 487 "../lib/comp/expr_util.s7i" */ static striType/*t_15_string*/ o_5025_getTempVariable (const const_striType/*t_15_string*/ o_5026_typeName, const const_striType/*t_15_string*/ o_5027_namePrefix, const objRefType/*t_19_reference*/ o_5028_param1, structType/*t_164_expr_type*/ *const o_5029_c_expr) { /* line 491 "../lib/comp/expr_util.s7i" */ striType/*t_15_string*/ o_5030_variableName; /* line 491 "../lib/comp/expr_util.s7i" */ o_5030_variableName=strEmpty(); /* "" */ /* line 493 "../lib/comp/expr_util.s7i" */ ++(((structType)(*o_5029_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 494 "../lib/comp/expr_util.s7i" */ union { /* line 494 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 494 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 494 "../lib/comp/expr_util.s7i" */ } buffer_2; /* line 494 "../lib/comp/expr_util.s7i" */ striType old_stri=o_5030_variableName; /* line 494 "../lib/comp/expr_util.s7i" */ o_5030_variableName=strConcat(o_5027_namePrefix, intStrToBuffer(((structType)(*o_5029_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 494 "../lib/comp/expr_util.s7i" */ strDestr(old_stri); } /* line 495 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5029_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_5026_typeName); /* line 496 "../lib/comp/expr_util.s7i" */ { /* line 496 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 496 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_5029_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 496 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 496 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) ' '); /* line 496 "../lib/comp/expr_util.s7i" */ } else { /* line 496 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ' '; /* line 496 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 496 "../lib/comp/expr_util.s7i" */ } } /* line 497 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5029_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_5030_variableName); /* line 498 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5029_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 499 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5029_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_5030_variableName); /* line 500 "../lib/comp/expr_util.s7i" */ { /* line 500 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 500 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_5029_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 500 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 500 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 500 "../lib/comp/expr_util.s7i" */ } else { /* line 500 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 500 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 500 "../lib/comp/expr_util.s7i" */ } } /* line 501 "../lib/comp/expr_util.s7i" */ o_4970_getAnyParamToExpr(o_5028_param1, o_5029_c_expr); /* line 502 "../lib/comp/expr_util.s7i" */ { /* line 502 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 502 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_5029_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 502 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 502 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 502 "../lib/comp/expr_util.s7i" */ } else { /* line 502 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 502 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 502 "../lib/comp/expr_util.s7i" */ } } return o_5030_variableName; } /* line 1 "no_file" */ /* 2979 */ /* line 506 "../lib/comp/expr_util.s7i" */ static striType/*t_15_string*/ o_5031_getParameterAsVariable (const const_striType/*t_15_string*/ o_5032_typeName, const const_striType/*t_15_string*/ o_5033_namePrefix, const objRefType/*t_19_reference*/ o_5034_param1, structType/*t_164_expr_type*/ *const o_5035_c_expr) { /* line 510 "../lib/comp/expr_util.s7i" */ striType/*t_15_string*/ o_5036_variableName; /* line 510 "../lib/comp/expr_util.s7i" */ o_5036_variableName=strEmpty(); /* "" */ /* line 512 "../lib/comp/expr_util.s7i" */ if (o_5018_isNormalVariable(o_5034_param1)) { { /* line 513 "../lib/comp/expr_util.s7i" */ striType old_stri=o_5036_variableName; /* line 513 "../lib/comp/expr_util.s7i" */ o_5036_variableName=o_5020_normalVariable(o_5034_param1, o_5035_c_expr); /* line 513 "../lib/comp/expr_util.s7i" */ strDestr(old_stri); } } else { { /* line 515 "../lib/comp/expr_util.s7i" */ striType old_stri=o_5036_variableName; /* line 515 "../lib/comp/expr_util.s7i" */ o_5036_variableName=o_5025_getTempVariable(o_5032_typeName, o_5033_namePrefix, o_5034_param1, o_5035_c_expr); /* line 515 "../lib/comp/expr_util.s7i" */ strDestr(old_stri); } } return o_5036_variableName; } /* line 1 "no_file" */ /* 2980 */ /* line 520 "../lib/comp/expr_util.s7i" */ static striType/*t_15_string*/ o_5037_getReference (const const_striType/*t_15_string*/ o_5038_typeName, const const_striType/*t_15_string*/ o_5039_namePrefix, const objRefType/*t_19_reference*/ o_5040_param1, structType/*t_164_expr_type*/ *const o_5041_c_expr) { /* line 524 "../lib/comp/expr_util.s7i" */ striType/*t_15_string*/ o_5042_variableName; /* line 524 "../lib/comp/expr_util.s7i" */ o_5042_variableName=strEmpty(); /* "" */ /* line 526 "../lib/comp/expr_util.s7i" */ ++(((structType)(*o_5041_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 527 "../lib/comp/expr_util.s7i" */ union { /* line 527 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 527 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 527 "../lib/comp/expr_util.s7i" */ } buffer_2; /* line 527 "../lib/comp/expr_util.s7i" */ striType old_stri=o_5042_variableName; /* line 527 "../lib/comp/expr_util.s7i" */ o_5042_variableName=strConcat(o_5039_namePrefix, intStrToBuffer(((structType)(*o_5041_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 527 "../lib/comp/expr_util.s7i" */ strDestr(old_stri); } /* line 528 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5041_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_5038_typeName); /* line 529 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5041_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[306] /* " *" */); /* line 530 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5041_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_5042_variableName); /* line 531 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5041_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 532 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5041_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_5042_variableName); /* line 533 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5041_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[307] /* "=&(" */); /* line 534 "../lib/comp/expr_util.s7i" */ o_4970_getAnyParamToExpr(o_5040_param1, o_5041_c_expr); /* line 535 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5041_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[308] /* ")," */); { /* line 536 "../lib/comp/expr_util.s7i" */ const_striType tmp_2[3]; /* line 536 "../lib/comp/expr_util.s7i" */ striType old_stri=o_5042_variableName; /* line 536 "../lib/comp/expr_util.s7i" */ o_5042_variableName=(tmp_2[0] = &str[309] /* "(*" */, tmp_2[1] = o_5042_variableName, tmp_2[2] = &str[230] /* ")" */, strConcatN(tmp_2, 3)); /* line 536 "../lib/comp/expr_util.s7i" */ strDestr(old_stri); } return o_5042_variableName; } /* line 1 "no_file" */ /* 2981 */ /* line 540 "../lib/comp/expr_util.s7i" */ static striType/*t_15_string*/ o_5043_getParameterAsReference (const const_striType/*t_15_string*/ o_5044_typeName, const const_striType/*t_15_string*/ o_5045_namePrefix, const objRefType/*t_19_reference*/ o_5046_param1, structType/*t_164_expr_type*/ *const o_5047_c_expr) { /* line 544 "../lib/comp/expr_util.s7i" */ striType/*t_15_string*/ o_5048_variableName; /* line 544 "../lib/comp/expr_util.s7i" */ o_5048_variableName=strEmpty(); /* "" */ /* line 546 "../lib/comp/expr_util.s7i" */ if (o_5018_isNormalVariable(o_5046_param1)) { { /* line 547 "../lib/comp/expr_util.s7i" */ striType old_stri=o_5048_variableName; /* line 547 "../lib/comp/expr_util.s7i" */ o_5048_variableName=o_5020_normalVariable(o_5046_param1, o_5047_c_expr); /* line 547 "../lib/comp/expr_util.s7i" */ strDestr(old_stri); } } else { { /* line 549 "../lib/comp/expr_util.s7i" */ striType old_stri=o_5048_variableName; /* line 549 "../lib/comp/expr_util.s7i" */ o_5048_variableName=o_5037_getReference(o_5044_typeName, o_5045_namePrefix, o_5046_param1, o_5047_c_expr); /* line 549 "../lib/comp/expr_util.s7i" */ strDestr(old_stri); } } return o_5048_variableName; } /* line 1 "no_file" */ /* 2982 */ /* line 554 "../lib/comp/expr_util.s7i" */ static boolType/*t_13_boolean*/ o_5049_has_temp_values (const structType/*t_164_expr_type*/ o_5050_c_expr) { /* line 555 "../lib/comp/expr_util.s7i" */ return (boolType/*t_13_boolean*/)((((((structType)(o_5050_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/) >= (2L)) || /* line 556 "../lib/comp/expr_util.s7i" */ (((((structType)(o_5050_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/) == (1L)) && /* line 556 "../lib/comp/expr_util.s7i" */ (((((structType)(o_5050_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/)->size==0 /* "" */))))); } /* line 1 "no_file" */ /* 2983 */ /* line 559 "../lib/comp/expr_util.s7i" */ static striType/*t_15_string*/ o_5051_beginCastGeneric (const typeType/*t_7_type*/ *const o_5052_dest_type, structType/*t_164_expr_type*/ *const o_5053_c_expr) { /* line 562 "../lib/comp/expr_util.s7i" */ striType/*t_15_string*/ o_5054_temp_name; /* line 562 "../lib/comp/expr_util.s7i" */ o_5054_temp_name=strEmpty(); /* "" */ /* line 564 "../lib/comp/expr_util.s7i" */ { /* line 564 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 564 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_5053_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 564 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 564 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 564 "../lib/comp/expr_util.s7i" */ } else { /* line 564 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 564 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 564 "../lib/comp/expr_util.s7i" */ } } /* line 565 "../lib/comp/expr_util.s7i" */ if (((o_3772_in(o_5052_dest_type, o_4414_typeCategory)) && /* line 565 "../lib/comp/expr_util.s7i" */ ((*o_3765/*[*/(&(o_4414_typeCategory), o_5052_dest_type)) == (25L))) || /* line 566 "../lib/comp/expr_util.s7i" */ (!(((structType)(sct[55]))->stru[5].value.boolValue/*->o_3383_LITTLE_ENDIAN_INTTYPE*/))) { /* line 567 "../lib/comp/expr_util.s7i" */ ++(((structType)(*o_5053_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 568 "../lib/comp/expr_util.s7i" */ union { /* line 568 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 568 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 568 "../lib/comp/expr_util.s7i" */ } buffer_2; /* line 568 "../lib/comp/expr_util.s7i" */ striType old_stri=o_5054_temp_name; /* line 568 "../lib/comp/expr_util.s7i" */ o_5054_temp_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_5053_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 568 "../lib/comp/expr_util.s7i" */ strDestr(old_stri); } /* line 569 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5053_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[304] /* "rtlValueUnion " */); /* line 570 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5053_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_5054_temp_name); /* line 571 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5053_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 572 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5053_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_5054_temp_name); /* line 573 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5053_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[310] /* ".genericValue=" */); } else { /* line 575 "../lib/comp/expr_util.s7i" */ strAppendTemp(&(((structType)(*o_5053_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_5052_dest_type)); /* line 576 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5053_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[206] /* ")(" */); } return o_5054_temp_name; } /* line 1 "no_file" */ /* 2984 */ /* line 581 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_5055_endCastGeneric (const typeType/*t_7_type*/ *const o_5056_dest_type, const const_striType/*t_15_string*/ o_5057_temp_name, structType/*t_164_expr_type*/ *const o_5058_c_expr) { /* line 584 "../lib/comp/expr_util.s7i" */ if (((o_3772_in(o_5056_dest_type, o_4414_typeCategory)) && /* line 584 "../lib/comp/expr_util.s7i" */ ((*o_3765/*[*/(&(o_4414_typeCategory), o_5056_dest_type)) == (25L))) || /* line 585 "../lib/comp/expr_util.s7i" */ (!(((structType)(sct[55]))->stru[5].value.boolValue/*->o_3383_LITTLE_ENDIAN_INTTYPE*/))) { /* line 586 "../lib/comp/expr_util.s7i" */ { /* line 586 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 586 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_5058_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 586 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 586 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 586 "../lib/comp/expr_util.s7i" */ } else { /* line 586 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 586 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 586 "../lib/comp/expr_util.s7i" */ } } /* line 587 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5058_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_5057_temp_name); /* line 588 "../lib/comp/expr_util.s7i" */ { /* line 588 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 588 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_5058_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 588 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 588 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) '.'); /* line 588 "../lib/comp/expr_util.s7i" */ } else { /* line 588 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '.'; /* line 588 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 588 "../lib/comp/expr_util.s7i" */ } } /* line 589 "../lib/comp/expr_util.s7i" */ strAppendTemp(&(((structType)(*o_5058_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4757_raw_type_value(o_5056_dest_type)); } /* line 591 "../lib/comp/expr_util.s7i" */ { /* line 591 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 591 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_5058_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 591 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 591 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 591 "../lib/comp/expr_util.s7i" */ } else { /* line 591 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 591 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 591 "../lib/comp/expr_util.s7i" */ } } } /* line 1 "no_file" */ /* 2985 */ /* line 595 "../lib/comp/expr_util.s7i" */ static striType/*t_15_string*/ o_5059_beginCastGenericToResultExpr (const typeType/*t_7_type*/ *const o_5060_dest_type, structType/*t_164_expr_type*/ *const o_5061_c_expr) { /* line 598 "../lib/comp/expr_util.s7i" */ striType/*t_15_string*/ o_5062_temp_name; /* line 598 "../lib/comp/expr_util.s7i" */ o_5062_temp_name=strEmpty(); /* "" */ /* line 600 "../lib/comp/expr_util.s7i" */ { /* line 600 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 600 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_5061_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 600 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 600 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 600 "../lib/comp/expr_util.s7i" */ } else { /* line 600 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 600 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 600 "../lib/comp/expr_util.s7i" */ } } /* line 601 "../lib/comp/expr_util.s7i" */ if (((o_3772_in(o_5060_dest_type, o_4414_typeCategory)) && /* line 601 "../lib/comp/expr_util.s7i" */ ((*o_3765/*[*/(&(o_4414_typeCategory), o_5060_dest_type)) == (25L))) || /* line 602 "../lib/comp/expr_util.s7i" */ (!(((structType)(sct[55]))->stru[5].value.boolValue/*->o_3383_LITTLE_ENDIAN_INTTYPE*/))) { /* line 603 "../lib/comp/expr_util.s7i" */ ++(((structType)(*o_5061_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 604 "../lib/comp/expr_util.s7i" */ union { /* line 604 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 604 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 604 "../lib/comp/expr_util.s7i" */ } buffer_2; /* line 604 "../lib/comp/expr_util.s7i" */ striType old_stri=o_5062_temp_name; /* line 604 "../lib/comp/expr_util.s7i" */ o_5062_temp_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_5061_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 604 "../lib/comp/expr_util.s7i" */ strDestr(old_stri); } /* line 605 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5061_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[304] /* "rtlValueUnion " */); /* line 606 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5061_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_5062_temp_name); /* line 607 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5061_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 608 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5061_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_5062_temp_name); /* line 609 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5061_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[310] /* ".genericValue=" */); } else { /* line 611 "../lib/comp/expr_util.s7i" */ strAppendTemp(&(((structType)(*o_5061_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_4743_type_name(o_5060_dest_type)); /* line 612 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5061_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[206] /* ")(" */); } return o_5062_temp_name; } /* line 1 "no_file" */ /* 2986 */ /* line 617 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_5063_endCastGenericToResultExpr (const typeType/*t_7_type*/ *const o_5064_dest_type, const const_striType/*t_15_string*/ o_5065_temp_name, structType/*t_164_expr_type*/ *const o_5066_c_expr) { /* line 620 "../lib/comp/expr_util.s7i" */ if (((o_3772_in(o_5064_dest_type, o_4414_typeCategory)) && /* line 620 "../lib/comp/expr_util.s7i" */ ((*o_3765/*[*/(&(o_4414_typeCategory), o_5064_dest_type)) == (25L))) || /* line 621 "../lib/comp/expr_util.s7i" */ (!(((structType)(sct[55]))->stru[5].value.boolValue/*->o_3383_LITTLE_ENDIAN_INTTYPE*/))) { /* line 622 "../lib/comp/expr_util.s7i" */ { /* line 622 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 622 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_5066_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 622 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 622 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 622 "../lib/comp/expr_util.s7i" */ } else { /* line 622 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 622 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 622 "../lib/comp/expr_util.s7i" */ } } /* line 623 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5066_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_5065_temp_name); /* line 624 "../lib/comp/expr_util.s7i" */ { /* line 624 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 624 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_5066_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 624 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 624 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) '.'); /* line 624 "../lib/comp/expr_util.s7i" */ } else { /* line 624 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '.'; /* line 624 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 624 "../lib/comp/expr_util.s7i" */ } } /* line 625 "../lib/comp/expr_util.s7i" */ strAppendTemp(&(((structType)(*o_5066_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_4757_raw_type_value(o_5064_dest_type)); } /* line 627 "../lib/comp/expr_util.s7i" */ { /* line 627 "../lib/comp/expr_util.s7i" */ striType *tmp_1; /* line 627 "../lib/comp/expr_util.s7i" */ tmp_1=&(((structType)(*o_5066_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 627 "../lib/comp/expr_util.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 627 "../lib/comp/expr_util.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 627 "../lib/comp/expr_util.s7i" */ } else { /* line 627 "../lib/comp/expr_util.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 627 "../lib/comp/expr_util.s7i" */ (*tmp_1)->size++; /* line 627 "../lib/comp/expr_util.s7i" */ } } } /* line 1 "no_file" */ /* 2987 */ /* line 631 "../lib/comp/expr_util.s7i" */ static boolType/*t_13_boolean*/ o_5067_useFunctype (const objRefType/*t_19_reference*/ o_5068_current_object) { /* line 634 "../lib/comp/expr_util.s7i" */ boolType/*t_13_boolean*/ o_5069_okay=o_25_FALSE; /* line 636 "../lib/comp/expr_util.s7i" */ objRefType/*t_19_reference*/ o_5070_curr_expr=NULL; /* line 637 "../lib/comp/expr_util.s7i" */ intType/*t_86_category*/ o_5071_exprCategory=0; /* line 639 "../lib/comp/expr_util.s7i" */ o_5070_curr_expr=refValue(o_5068_current_object); /* line 640 "../lib/comp/expr_util.s7i" */ if ((o_5070_curr_expr) != (NULL)) { /* line 641 "../lib/comp/expr_util.s7i" */ o_5071_exprCategory=refCategory(o_5070_curr_expr); /* line 642 "../lib/comp/expr_util.s7i" */ o_5069_okay=((o_5071_exprCategory) == (33L)) || /* line 642 "../lib/comp/expr_util.s7i" */ /* line 643 "../lib/comp/expr_util.s7i" */ /* line 642 "../lib/comp/expr_util.s7i" */ ((o_5071_exprCategory) == (4L)); } return o_5069_okay; } /* line 1 "no_file" */ /* 2988 */ /* line 648 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_5072_create_name (const objRefType/*t_19_reference*/ o_5073_current_object, striType/*t_15_string*/ *const o_5074_expr) { /* line 651 "../lib/comp/expr_util.s7i" */ striType/*t_15_string*/ o_5075_raw_name; /* line 652 "../lib/comp/expr_util.s7i" */ striType/*t_15_string*/ o_5076_name; /* line 651 "../lib/comp/expr_util.s7i" */ o_5075_raw_name=strEmpty(); /* "" */ /* line 652 "../lib/comp/expr_util.s7i" */ o_5076_name=strEmpty(); /* "" */ { /* line 654 "../lib/comp/expr_util.s7i" */ striType old_stri=o_5075_raw_name; /* line 654 "../lib/comp/expr_util.s7i" */ o_5075_raw_name=refStr(o_5073_current_object); /* line 654 "../lib/comp/expr_util.s7i" */ strDestr(old_stri); } { /* line 655 "../lib/comp/expr_util.s7i" */ striType old_stri=o_5076_name; /* line 655 "../lib/comp/expr_util.s7i" */ o_5076_name=o_1960_getName(&(o_5075_raw_name)); /* line 655 "../lib/comp/expr_util.s7i" */ strDestr(old_stri); } { /* line 656 "../lib/comp/expr_util.s7i" */ union { /* line 656 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 656 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 656 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 656 "../lib/comp/expr_util.s7i" */ strAppend(&(*o_5074_expr), intStrToBuffer(refNum(o_5073_current_object), &buffer_1.striBuf)); } /* line 657 "../lib/comp/expr_util.s7i" */ if (((o_5076_name)->size!=0 /* "" */)) { /* line 658 "../lib/comp/expr_util.s7i" */ /* line 658 "../lib/comp/expr_util.s7i" */ if (((*o_5074_expr))->size == ((*o_5074_expr))->capacity) { /* line 658 "../lib/comp/expr_util.s7i" */ strPush(&((*o_5074_expr)), (charType) '_'); /* line 658 "../lib/comp/expr_util.s7i" */ } else { /* line 658 "../lib/comp/expr_util.s7i" */ ((*o_5074_expr))->mem[((*o_5074_expr))->size]=(charType) '_'; /* line 658 "../lib/comp/expr_util.s7i" */ ((*o_5074_expr))->size++; /* line 658 "../lib/comp/expr_util.s7i" */ } /* line 659 "../lib/comp/expr_util.s7i" */ strAppend(&(*o_5074_expr), o_5076_name); } /* line 661 "../lib/comp/expr_util.s7i" */ if (((o_5075_raw_name)->size!=0 /* "" */)) { /* line 662 "../lib/comp/expr_util.s7i" */ strAppend(&(*o_5074_expr), &str[190] /* "/*" */); /* line 663 "../lib/comp/expr_util.s7i" */ strAppend(&(*o_5074_expr), o_5075_raw_name); /* line 664 "../lib/comp/expr_util.s7i" */ strAppend(&(*o_5074_expr), &str[123] /* "*\/" */); } /* line 648 "../lib/comp/expr_util.s7i" */ strDestr(o_5075_raw_name); /* line 648 "../lib/comp/expr_util.s7i" */ strDestr(o_5076_name); } /* line 1 "no_file" */ /* 2989 */ /* line 669 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_5077_create_name2 (const objRefType/*t_19_reference*/ o_5078_current_object, striType/*t_15_string*/ *const o_5079_expr) { /* line 672 "../lib/comp/expr_util.s7i" */ striType/*t_15_string*/ o_5080_raw_name; /* line 673 "../lib/comp/expr_util.s7i" */ striType/*t_15_string*/ o_5081_name; /* line 672 "../lib/comp/expr_util.s7i" */ o_5080_raw_name=strEmpty(); /* "" */ /* line 673 "../lib/comp/expr_util.s7i" */ o_5081_name=strEmpty(); /* "" */ { /* line 675 "../lib/comp/expr_util.s7i" */ striType old_stri=o_5080_raw_name; /* line 675 "../lib/comp/expr_util.s7i" */ o_5080_raw_name=refStr(o_5078_current_object); /* line 675 "../lib/comp/expr_util.s7i" */ strDestr(old_stri); } { /* line 676 "../lib/comp/expr_util.s7i" */ striType old_stri=o_5081_name; /* line 676 "../lib/comp/expr_util.s7i" */ o_5081_name=o_1960_getName(&(o_5080_raw_name)); /* line 676 "../lib/comp/expr_util.s7i" */ strDestr(old_stri); } { /* line 677 "../lib/comp/expr_util.s7i" */ union { /* line 677 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 677 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 677 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 677 "../lib/comp/expr_util.s7i" */ strAppend(&(*o_5079_expr), intStrToBuffer(refNum(o_5078_current_object), &buffer_1.striBuf)); } /* line 678 "../lib/comp/expr_util.s7i" */ if (((o_5081_name)->size!=0 /* "" */)) { /* line 679 "../lib/comp/expr_util.s7i" */ /* line 679 "../lib/comp/expr_util.s7i" */ if (((*o_5079_expr))->size == ((*o_5079_expr))->capacity) { /* line 679 "../lib/comp/expr_util.s7i" */ strPush(&((*o_5079_expr)), (charType) '_'); /* line 679 "../lib/comp/expr_util.s7i" */ } else { /* line 679 "../lib/comp/expr_util.s7i" */ ((*o_5079_expr))->mem[((*o_5079_expr))->size]=(charType) '_'; /* line 679 "../lib/comp/expr_util.s7i" */ ((*o_5079_expr))->size++; /* line 679 "../lib/comp/expr_util.s7i" */ } /* line 680 "../lib/comp/expr_util.s7i" */ strAppend(&(*o_5079_expr), o_5081_name); } /* line 682 "../lib/comp/expr_util.s7i" */ if (((o_5080_raw_name)->size!=0 /* "" */)) { /* line 683 "../lib/comp/expr_util.s7i" */ strAppend(&(*o_5079_expr), &str[311] /* "/ " */); /* line 684 "../lib/comp/expr_util.s7i" */ strAppend(&(*o_5079_expr), o_5080_raw_name); } /* line 669 "../lib/comp/expr_util.s7i" */ strDestr(o_5080_raw_name); /* line 669 "../lib/comp/expr_util.s7i" */ strDestr(o_5081_name); } /* line 1 "no_file" */ /* 2990 */ /* line 689 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_5082_create_name (const objRefType/*t_19_reference*/ o_5083_current_object, const intType/*t_14_integer*/ o_5084_object_number, striType/*t_15_string*/ *const o_5085_expr) { /* line 693 "../lib/comp/expr_util.s7i" */ striType/*t_15_string*/ o_5086_raw_name; /* line 694 "../lib/comp/expr_util.s7i" */ striType/*t_15_string*/ o_5087_name; /* line 693 "../lib/comp/expr_util.s7i" */ o_5086_raw_name=strEmpty(); /* "" */ /* line 694 "../lib/comp/expr_util.s7i" */ o_5087_name=strEmpty(); /* "" */ { /* line 696 "../lib/comp/expr_util.s7i" */ striType old_stri=o_5086_raw_name; /* line 696 "../lib/comp/expr_util.s7i" */ o_5086_raw_name=refStr(o_5083_current_object); /* line 696 "../lib/comp/expr_util.s7i" */ strDestr(old_stri); } { /* line 697 "../lib/comp/expr_util.s7i" */ striType old_stri=o_5087_name; /* line 697 "../lib/comp/expr_util.s7i" */ o_5087_name=o_1960_getName(&(o_5086_raw_name)); /* line 697 "../lib/comp/expr_util.s7i" */ strDestr(old_stri); } { /* line 698 "../lib/comp/expr_util.s7i" */ union { /* line 698 "../lib/comp/expr_util.s7i" */ struct striStruct striBuf; /* line 698 "../lib/comp/expr_util.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 698 "../lib/comp/expr_util.s7i" */ } buffer_1; /* line 698 "../lib/comp/expr_util.s7i" */ strAppend(&(*o_5085_expr), intStrToBuffer(o_5084_object_number, &buffer_1.striBuf)); } /* line 699 "../lib/comp/expr_util.s7i" */ if (((o_5087_name)->size!=0 /* "" */)) { /* line 700 "../lib/comp/expr_util.s7i" */ /* line 700 "../lib/comp/expr_util.s7i" */ if (((*o_5085_expr))->size == ((*o_5085_expr))->capacity) { /* line 700 "../lib/comp/expr_util.s7i" */ strPush(&((*o_5085_expr)), (charType) '_'); /* line 700 "../lib/comp/expr_util.s7i" */ } else { /* line 700 "../lib/comp/expr_util.s7i" */ ((*o_5085_expr))->mem[((*o_5085_expr))->size]=(charType) '_'; /* line 700 "../lib/comp/expr_util.s7i" */ ((*o_5085_expr))->size++; /* line 700 "../lib/comp/expr_util.s7i" */ } /* line 701 "../lib/comp/expr_util.s7i" */ strAppend(&(*o_5085_expr), o_5087_name); } /* line 703 "../lib/comp/expr_util.s7i" */ if (((o_5086_raw_name)->size!=0 /* "" */)) { /* line 704 "../lib/comp/expr_util.s7i" */ strAppend(&(*o_5085_expr), &str[190] /* "/*" */); /* line 705 "../lib/comp/expr_util.s7i" */ strAppend(&(*o_5085_expr), o_5086_raw_name); /* line 706 "../lib/comp/expr_util.s7i" */ strAppend(&(*o_5085_expr), &str[123] /* "*\/" */); } /* line 689 "../lib/comp/expr_util.s7i" */ strDestr(o_5086_raw_name); /* line 689 "../lib/comp/expr_util.s7i" */ strDestr(o_5087_name); } /* line 1 "no_file" */ /* 2991 */ /* line 711 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_5088_declare_func_pointer_if_necessary (const objRefType/*t_19_reference*/ o_5089_current_object, structType/*t_164_expr_type*/ *const o_5090_c_expr) { /* line 715 "../lib/comp/expr_util.s7i" */ listType/*t_20_ref_list*/ o_5091_params=NULL; /* line 716 "../lib/comp/expr_util.s7i" */ objRefType/*t_19_reference*/ o_5092_func_pointer=NULL; /* line 718 "../lib/comp/expr_util.s7i" */ if ((refCategory(o_5089_current_object)) == (5L)) { { /* line 719 "../lib/comp/expr_util.s7i" */ listType old_rfl=o_5091_params; /* line 719 "../lib/comp/expr_util.s7i" */ o_5091_params=rflValue(o_5089_current_object); /* line 719 "../lib/comp/expr_util.s7i" */ rflDestr(old_rfl); } /* line 720 "../lib/comp/expr_util.s7i" */ if ((rflLng(o_5091_params)) >= (1L)) { /* line 721 "../lib/comp/expr_util.s7i" */ o_5092_func_pointer=rflIdx(o_5091_params, 1L); /* line 722 "../lib/comp/expr_util.s7i" */ if ((refCategory(o_5092_func_pointer)) == (30L)) { /* line 723 "../lib/comp/expr_util.s7i" */ if (o_4645_not(&(o_5092_func_pointer), o_4940_function_pointer_declared)) { /* line 724 "../lib/comp/expr_util.s7i" */ if (o_5067_useFunctype(o_5092_func_pointer)) { /* line 725 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5090_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[312] /* "extern intfunctype o_" */); } else { /* line 727 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5090_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[313] /* "extern objRefType o_" */); } /* line 729 "../lib/comp/expr_util.s7i" */ o_5072_create_name(o_5092_func_pointer, &(((structType)(*o_5090_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 730 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5090_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[158] /* ";\n\n" */); /* line 731 "../lib/comp/expr_util.s7i" */ o_4655/*@:=*/(&(o_4940_function_pointer_declared), &(o_5092_func_pointer), o_26_TRUE); } } } } /* line 711 "../lib/comp/expr_util.s7i" */ rflDestr(o_5091_params); } /* line 1 "no_file" */ /* 2992 */ /* line 739 "../lib/comp/expr_util.s7i" */ static boolType/*t_13_boolean*/ o_5093_isActionExpression (const objRefType/*t_19_reference*/ o_5094_current_expression, const const_striType/*t_15_string*/ o_5095_actionName) { /* line 742 "../lib/comp/expr_util.s7i" */ boolType/*t_13_boolean*/ o_5096_isActionExpression=o_25_FALSE; /* line 744 "../lib/comp/expr_util.s7i" */ listType/*t_20_ref_list*/ o_5097_params=NULL; /* line 746 "../lib/comp/expr_util.s7i" */ if ((refCategory(o_5094_current_expression)) == (5L)) { { /* line 747 "../lib/comp/expr_util.s7i" */ listType old_rfl=o_5097_params; /* line 747 "../lib/comp/expr_util.s7i" */ o_5097_params=rflValue(o_5094_current_expression); /* line 747 "../lib/comp/expr_util.s7i" */ rflDestr(old_rfl); } { /* line 748 "../lib/comp/expr_util.s7i" */ const_striType tmp_a_1; /* line 748 "../lib/comp/expr_util.s7i" */ striType tmp_2 = NULL; /* line 748 "../lib/comp/expr_util.s7i" */ if (((refCategory(rflIdx(o_5097_params, 1L))) == (33L)) && /* line 748 "../lib/comp/expr_util.s7i" */ ((tmp_a_1=(tmp_2=actStr(actValue(rflIdx(o_5097_params, 1L)))),tmp_a_1->size==(o_5095_actionName)->size&&memcmp(tmp_a_1->mem,(o_5095_actionName)->mem,tmp_a_1->size*sizeof(strElemType))==0))) { /* line 749 "../lib/comp/expr_util.s7i" */ o_5096_isActionExpression=o_26_TRUE; } /* line 748 "../lib/comp/expr_util.s7i" */ strDestr(tmp_2); } } /* line 739 "../lib/comp/expr_util.s7i" */ rflDestr(o_5097_params); return o_5096_isActionExpression; } /* line 1 "no_file" */ /* 2993 */ /* line 755 "../lib/comp/expr_util.s7i" */ static objRefType/*t_19_reference*/ o_5098_getActionParameter (const objRefType/*t_19_reference*/ o_5099_current_expression, const intType/*t_14_integer*/ o_5100_number) { /* line 758 "../lib/comp/expr_util.s7i" */ objRefType/*t_19_reference*/ o_5101_actionParameter=NULL; /* line 760 "../lib/comp/expr_util.s7i" */ listType/*t_20_ref_list*/ o_5102_params=NULL; /* line 762 "../lib/comp/expr_util.s7i" */ if ((refCategory(o_5099_current_expression)) == (5L)) { { /* line 763 "../lib/comp/expr_util.s7i" */ listType old_rfl=o_5102_params; /* line 763 "../lib/comp/expr_util.s7i" */ o_5102_params=rflValue(o_5099_current_expression); /* line 763 "../lib/comp/expr_util.s7i" */ rflDestr(old_rfl); } /* line 764 "../lib/comp/expr_util.s7i" */ o_5101_actionParameter=rflIdx(o_5102_params, (o_5100_number)+1); } /* line 755 "../lib/comp/expr_util.s7i" */ rflDestr(o_5102_params); return o_5101_actionParameter; } /* line 1 "no_file" */ /* 2994 */ /* line 769 "../lib/comp/expr_util.s7i" */ static void/*t_1_void*/ o_5103_doRshift (const const_striType/*t_15_string*/ o_5104_number_name, const const_striType/*t_15_string*/ o_5105_rshift_name, structType/*t_164_expr_type*/ *const o_5106_c_expr) { /* line 774 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5106_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_5104_number_name); /* line 775 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5106_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[314] /* "<0?~(~" */); /* line 776 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5106_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_5104_number_name); /* line 777 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5106_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[315] /* " >> " */); /* line 778 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5106_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_5105_rshift_name); /* line 779 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5106_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[316] /* "):" */); /* line 780 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5106_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_5104_number_name); /* line 781 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5106_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[315] /* " >> " */); /* line 782 "../lib/comp/expr_util.s7i" */ strAppend(&(((structType)(*o_5106_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_5105_rshift_name); } /* line 1 "no_file" */ /* 2995 */ intType o_5107_countOptimizations=0L; /* 2996 */ intType o_5108_countEvaluations=0L; /* 2997 */ intType o_5109_countRangeChecks=0L; /* 2998 */ intType o_5110_countNoRangeChecks=0L; /* 2999 */ intType o_5111_countOverflowChecks=0L; /* 3000 */ static boolType/*t_13_boolean*/ o_5112_isPureFunction (const objRefType/*t_19_reference*/ o_5113_function); static boolType/*t_13_boolean*/ o_5114_isConstant (const objRefType/*t_19_reference*/ o_5115_current_expression, const const_hashType/*t_162_boolean_obj_hash*/ o_5116_local_objects); static boolType/*t_13_boolean*/ o_5112_isPureFunction (const objRefType/*t_19_reference*/ o_5113_function); static boolType/*t_13_boolean*/ o_5114_isConstant (const objRefType/*t_19_reference*/ o_5115_current_expression, const const_hashType/*t_162_boolean_obj_hash*/ o_5116_local_objects); /* line 41 "../lib/comp/const.s7i" */ static boolType/*t_13_boolean*/ o_5117_isConstantCall (const objRefType/*t_19_reference*/ o_5118_current_expression, const const_hashType/*t_162_boolean_obj_hash*/ o_5119_local_objects) { /* line 45 "../lib/comp/const.s7i" */ boolType/*t_13_boolean*/ o_5120_isConstantCall=o_25_FALSE; /* line 47 "../lib/comp/const.s7i" */ listType/*t_20_ref_list*/ o_5121_params=NULL; /* line 48 "../lib/comp/const.s7i" */ objRefType/*t_19_reference*/ o_5122_function=NULL; /* line 49 "../lib/comp/const.s7i" */ objRefType/*t_19_reference*/ o_5123_obj=NULL; { /* line 51 "../lib/comp/const.s7i" */ listType old_rfl=o_5121_params; /* line 51 "../lib/comp/const.s7i" */ o_5121_params=rflValue(o_5118_current_expression); /* line 51 "../lib/comp/const.s7i" */ rflDestr(old_rfl); } /* line 52 "../lib/comp/const.s7i" */ o_5122_function=rflIdx(o_5121_params, 1L); { /* line 53 "../lib/comp/const.s7i" */ listType old_rfl=o_5121_params; /* line 53 "../lib/comp/const.s7i" */ o_5121_params=rflTail(o_5121_params, 2L); /* line 53 "../lib/comp/const.s7i" */ rflDestr(old_rfl); } /* line 54 "../lib/comp/const.s7i" */ if (o_2691_in(refCategory(o_5122_function), (setType/*t_88_setOfCategory*/)(set[17]))) { /* line 55 "../lib/comp/const.s7i" */ o_5120_isConstantCall=o_26_TRUE; } else /* line 56 "../lib/comp/const.s7i" */ if (o_5112_isPureFunction(o_5122_function)) { /* line 58 "../lib/comp/const.s7i" */ o_5120_isConstantCall=o_26_TRUE; { /* line 59 "../lib/comp/const.s7i" */ listType tmp_elem_1; /* line 59 "../lib/comp/const.s7i" */ for (tmp_elem_1 = o_5121_params; tmp_elem_1 != NULL && (o_5123_obj = tmp_elem_1->obj, !(!(o_5120_isConstantCall))); tmp_elem_1 = tmp_elem_1->next) { /* line 60 "../lib/comp/const.s7i" */ if (!(o_5114_isConstant(o_5123_obj, o_5119_local_objects))) { /* line 62 "../lib/comp/const.s7i" */ o_5120_isConstantCall=o_25_FALSE; } } } } /* line 41 "../lib/comp/const.s7i" */ rflDestr(o_5121_params); return o_5120_isConstantCall; } /* line 1 "no_file" */ /* 3001 */ /* line 76 "../lib/comp/const.s7i" */ static boolType/*t_13_boolean*/ o_5114_isConstant (const objRefType/*t_19_reference*/ o_5115_current_expression, const const_hashType/*t_162_boolean_obj_hash*/ o_5116_local_objects) { /* line 80 "../lib/comp/const.s7i" */ boolType/*t_13_boolean*/ o_5124_isConstant=o_25_FALSE; /* line 82 "../lib/comp/const.s7i" */ intType/*t_86_category*/ o_5125_exprCategory=0; /* line 84 "../lib/comp/const.s7i" */ if (o_4642_in(&(o_5115_current_expression), o_5116_local_objects)) { /* line 86 "../lib/comp/const.s7i" */ o_5124_isConstant=o_26_TRUE; } else /* line 87 "../lib/comp/const.s7i" */ if (!(refIsVar(o_5115_current_expression))) { /* line 88 "../lib/comp/const.s7i" */ o_5125_exprCategory=refCategory(o_5115_current_expression); /* line 89 "../lib/comp/const.s7i" */ if (((o_5125_exprCategory) == (6L)) || /* line 89 "../lib/comp/const.s7i" */ ((o_5125_exprCategory) == (5L))) { /* line 90 "../lib/comp/const.s7i" */ o_5124_isConstant=o_5117_isConstantCall(o_5115_current_expression, o_5116_local_objects); } else /* line 91 "../lib/comp/const.s7i" */ if (o_2691_in(o_5125_exprCategory, (setType/*t_88_setOfCategory*/)(set[17]))) { /* line 92 "../lib/comp/const.s7i" */ o_5124_isConstant=o_26_TRUE; } } return o_5124_isConstant; } /* line 1 "no_file" */ /* 3002 */ /* line 61 "../lib/hash.s7i" */ static void destr_162 (const_hashType/*t_162_boolean_obj_hash*/ b) /* line 61 "../lib/hash.s7i" */ { /* line 61 "../lib/hash.s7i" */ hshDestr(b, (destrFuncType)(o_4616/*.*/), (destrFuncType)(o_4620/*.*/)); /* line 61 "../lib/hash.s7i" */ } /* line 1 "no_file" */ /* line 98 "../lib/comp/const.s7i" */ static boolType/*t_13_boolean*/ o_5126_isPureBlockFunction (const objRefType/*t_19_reference*/ o_5127_function) { /* line 101 "../lib/comp/const.s7i" */ boolType/*t_13_boolean*/ o_5128_isPureBlockFunction=o_25_FALSE; /* line 103 "../lib/comp/const.s7i" */ typeType/*t_7_type*/ o_5129_function_type=typ[0] /* void/t_1_void */; /* line 104 "../lib/comp/const.s7i" */ objRefType/*t_19_reference*/ o_5130_result_object=NULL; /* line 105 "../lib/comp/const.s7i" */ listType/*t_20_ref_list*/ o_5131_local_object_list=NULL; /* line 106 "../lib/comp/const.s7i" */ objRefType/*t_19_reference*/ o_5132_obj=NULL; /* line 107 "../lib/comp/const.s7i" */ hashType/*t_162_boolean_obj_hash*/ o_5133_local_objects; /* line 107 "../lib/comp/const.s7i" */ o_5133_local_objects=hshEmpty(); /* line 110 "../lib/comp/const.s7i" */ o_5129_function_type=refType(o_5127_function); /* line 111 "../lib/comp/const.s7i" */ o_5130_result_object=refResult(o_5127_function); /* line 112 "../lib/comp/const.s7i" */ if (!(typIsVarfunc(o_5129_function_type))) { /* line 113 "../lib/comp/const.s7i" */ if ((o_5130_result_object) != (NULL)) { { /* line 114 "../lib/comp/const.s7i" */ listType old_rfl=o_5131_local_object_list; /* line 114 "../lib/comp/const.s7i" */ o_5131_local_object_list=rflMklist(o_5130_result_object); /* line 114 "../lib/comp/const.s7i" */ rflDestr(old_rfl); } } { /* line 116 "../lib/comp/const.s7i" */ rflAppend(&(o_5131_local_object_list), rflCat(rflCreate(refParams(o_5127_function)), refLocalVars(o_5127_function))); } { /* line 117 "../lib/comp/const.s7i" */ listType tmp_elem_1; /* line 117 "../lib/comp/const.s7i" */ for (tmp_elem_1 = o_5131_local_object_list; tmp_elem_1 != NULL; tmp_elem_1 = tmp_elem_1->next) { /* line 117 "../lib/comp/const.s7i" */ o_5132_obj = tmp_elem_1->obj; /* line 119 "../lib/comp/const.s7i" */ o_4655/*@:=*/(&(o_5133_local_objects), &(o_5132_obj), o_26_TRUE); } } /* line 121 "../lib/comp/const.s7i" */ o_5128_isPureBlockFunction=o_5114_isConstant(refBody(o_5127_function), o_5133_local_objects); } /* line 98 "../lib/comp/const.s7i" */ rflDestr(o_5131_local_object_list); /* line 98 "../lib/comp/const.s7i" */ destr_162(o_5133_local_objects); return o_5128_isPureBlockFunction; } /* line 1 "no_file" */ /* 3003 */ hashType/*t_45_*ANONYM_TYPE**/ o_5134_pureFunctionActions; /* 3004 */ hashType/*t_45_*ANONYM_TYPE**/ o_5135_specialFunctionActions; /* 3005 */ /* line 127 "../lib/comp/const.s7i" */ static boolType/*t_13_boolean*/ o_5112_isPureFunction (const objRefType/*t_19_reference*/ o_5113_function) { /* line 130 "../lib/comp/const.s7i" */ boolType/*t_13_boolean*/ o_5136_isPureFunction=o_25_FALSE; /* line 200 "../lib/comp/const.s7i" */ intType/*t_86_category*/ o_5137_functionCategory=0; /* line 201 "../lib/comp/const.s7i" */ striType/*t_15_string*/ o_5138_action_name; /* line 202 "../lib/comp/const.s7i" */ objRefType/*t_19_reference*/ o_5139_obj=NULL; /* line 201 "../lib/comp/const.s7i" */ o_5138_action_name=strEmpty(); /* "" */ /* line 204 "../lib/comp/const.s7i" */ o_5137_functionCategory=refCategory(o_5113_function); /* line 205 "../lib/comp/const.s7i" */ if ((o_5137_functionCategory) == (33L)) { { /* line 206 "../lib/comp/const.s7i" */ striType old_stri=o_5138_action_name; /* line 206 "../lib/comp/const.s7i" */ o_5138_action_name=actStr(actValue(o_5113_function)); /* line 206 "../lib/comp/const.s7i" */ strDestr(old_stri); } /* line 207 "../lib/comp/const.s7i" */ o_5136_isPureFunction=(o_807_in(o_5138_action_name, hsh[123])) || /* line 207 "../lib/comp/const.s7i" */ /* line 207 "../lib/comp/const.s7i" */ /* line 207 "../lib/comp/const.s7i" */ (o_807_in(o_5138_action_name, hsh[124])); } else /* line 208 "../lib/comp/const.s7i" */ if ((o_5137_functionCategory) == (4L)) { /* line 209 "../lib/comp/const.s7i" */ o_5136_isPureFunction=o_5126_isPureBlockFunction(o_5113_function); } /* line 127 "../lib/comp/const.s7i" */ strDestr(o_5138_action_name); return o_5136_isPureFunction; } /* line 1 "no_file" */ /* 3006 */ static boolType/*t_13_boolean*/ o_5140_isConstant (const objRefType/*t_19_reference*/ o_5141_current_expression); static boolType/*t_13_boolean*/ o_5140_isConstant (const objRefType/*t_19_reference*/ o_5141_current_expression); /* line 217 "../lib/comp/const.s7i" */ static boolType/*t_13_boolean*/ o_5142_isConstantCall (const objRefType/*t_19_reference*/ o_5143_current_expression) { /* line 220 "../lib/comp/const.s7i" */ boolType/*t_13_boolean*/ o_5144_isConstantCall=o_25_FALSE; /* line 222 "../lib/comp/const.s7i" */ listType/*t_20_ref_list*/ o_5145_params=NULL; /* line 223 "../lib/comp/const.s7i" */ objRefType/*t_19_reference*/ o_5146_function=NULL; /* line 224 "../lib/comp/const.s7i" */ objRefType/*t_19_reference*/ o_5147_obj=NULL; { /* line 226 "../lib/comp/const.s7i" */ listType old_rfl=o_5145_params; /* line 226 "../lib/comp/const.s7i" */ o_5145_params=rflValue(o_5143_current_expression); /* line 226 "../lib/comp/const.s7i" */ rflDestr(old_rfl); } /* line 227 "../lib/comp/const.s7i" */ o_5146_function=rflIdx(o_5145_params, 1L); { /* line 228 "../lib/comp/const.s7i" */ listType old_rfl=o_5145_params; /* line 228 "../lib/comp/const.s7i" */ o_5145_params=rflTail(o_5145_params, 2L); /* line 228 "../lib/comp/const.s7i" */ rflDestr(old_rfl); } /* line 229 "../lib/comp/const.s7i" */ if (o_5112_isPureFunction(o_5146_function)) { /* line 230 "../lib/comp/const.s7i" */ o_5144_isConstantCall=o_26_TRUE; { /* line 231 "../lib/comp/const.s7i" */ listType tmp_elem_1; /* line 231 "../lib/comp/const.s7i" */ for (tmp_elem_1 = o_5145_params; tmp_elem_1 != NULL && (o_5147_obj = tmp_elem_1->obj, !(!(o_5144_isConstantCall))); tmp_elem_1 = tmp_elem_1->next) { /* line 232 "../lib/comp/const.s7i" */ if (!(o_5140_isConstant(o_5147_obj))) { /* line 233 "../lib/comp/const.s7i" */ o_5144_isConstantCall=o_25_FALSE; } } } } /* line 217 "../lib/comp/const.s7i" */ rflDestr(o_5145_params); return o_5144_isConstantCall; } /* line 1 "no_file" */ /* 3007 */ /* line 240 "../lib/comp/const.s7i" */ static boolType/*t_13_boolean*/ o_5140_isConstant (const objRefType/*t_19_reference*/ o_5141_current_expression) { /* line 243 "../lib/comp/const.s7i" */ boolType/*t_13_boolean*/ o_5148_isConstant=o_25_FALSE; /* line 245 "../lib/comp/const.s7i" */ intType/*t_86_category*/ o_5149_exprCategory=0; /* line 247 "../lib/comp/const.s7i" */ if (!(refIsVar(o_5141_current_expression))) { /* line 248 "../lib/comp/const.s7i" */ o_5149_exprCategory=refCategory(o_5141_current_expression); /* line 249 "../lib/comp/const.s7i" */ if (((o_5149_exprCategory) == (6L)) || /* line 249 "../lib/comp/const.s7i" */ ((o_5149_exprCategory) == (5L))) { /* line 250 "../lib/comp/const.s7i" */ o_5148_isConstant=o_5142_isConstantCall(o_5141_current_expression); } else /* line 251 "../lib/comp/const.s7i" */ if (o_2691_in(o_5149_exprCategory, (setType/*t_88_setOfCategory*/)(set[17]))) { /* line 252 "../lib/comp/const.s7i" */ o_5148_isConstant=o_26_TRUE; } else /* line 253 "../lib/comp/const.s7i" */ if ((o_5149_exprCategory) == (4L)) { /* line 254 "../lib/comp/const.s7i" */ o_5148_isConstant=o_26_TRUE; } else /* line 255 "../lib/comp/const.s7i" */ if ((o_5149_exprCategory) == (33L)) { /* line 256 "../lib/comp/const.s7i" */ o_5148_isConstant=o_26_TRUE; } } return o_5148_isConstant; } /* line 1 "no_file" */ /* 3008 */ /* line 262 "../lib/comp/const.s7i" */ static boolType/*t_13_boolean*/ o_5150_isConstantExpr (const objRefType/*t_19_reference*/ o_5151_current_expression) { /* line 265 "../lib/comp/const.s7i" */ boolType/*t_13_boolean*/ o_5152_isConstantExpr=o_25_FALSE; /* line 267 "../lib/comp/const.s7i" */ intType/*t_86_category*/ o_5153_exprCategory=0; /* line 269 "../lib/comp/const.s7i" */ if (!(refIsVar(o_5151_current_expression))) { /* line 270 "../lib/comp/const.s7i" */ o_5153_exprCategory=refCategory(o_5151_current_expression); /* line 271 "../lib/comp/const.s7i" */ if (((o_5153_exprCategory) == (6L)) || /* line 271 "../lib/comp/const.s7i" */ ((o_5153_exprCategory) == (5L))) { /* line 272 "../lib/comp/const.s7i" */ o_5152_isConstantExpr=o_5142_isConstantCall(o_5151_current_expression); } } return o_5152_isConstantExpr; } /* line 1 "no_file" */ /* 3009 */ /* line 278 "../lib/comp/const.s7i" */ static boolType/*t_13_boolean*/ o_5154_getConstant (const objRefType/*t_19_reference*/ o_5155_currExpr, const intType/*t_86_category*/ o_5156_exprCategory, objRefType/*t_19_reference*/ *const o_5157_evaluatedExpr) { /* line 281 "../lib/comp/const.s7i" */ boolType/*t_13_boolean*/ o_5158_okay=o_25_FALSE; /* line 283 "../lib/comp/const.s7i" */ if (((o_3457_evaluate_const_expr) >= (1L)) && /* line 283 "../lib/comp/const.s7i" */ ((refCategory(o_5155_currExpr)) == (o_5156_exprCategory)) && /* line 284 "../lib/comp/const.s7i" */ (!(refIsVar(o_5155_currExpr)))) { /* line 285 "../lib/comp/const.s7i" */ *o_5157_evaluatedExpr=o_5155_currExpr; /* line 286 "../lib/comp/const.s7i" */ ++(o_5108_countEvaluations); /* line 287 "../lib/comp/const.s7i" */ o_5158_okay=o_26_TRUE; } else /* line 288 "../lib/comp/const.s7i" */ if (((o_3457_evaluate_const_expr) >= (2L)) && /* line 288 "../lib/comp/const.s7i" */ (o_5140_isConstant(o_5155_currExpr))) { /* line 289 "../lib/comp/const.s7i" */ { /* line 289 "../lib/comp/const.s7i" */ int fail_value; /* line 289 "../lib/comp/const.s7i" */ catch_stack_pos++; /* line 289 "../lib/comp/const.s7i" */ if (unlikely(catch_stack_pos >= max_catch_stack)) { /* line 289 "../lib/comp/const.s7i" */ resize_catch_stack(); /* line 289 "../lib/comp/const.s7i" */ } /* line 289 "../lib/comp/const.s7i" */ if (likely((fail_value = do_setjmp(catch_stack[catch_stack_pos])) == 0)) { /* line 290 "../lib/comp/const.s7i" */ *o_5157_evaluatedExpr=prgEval(o_4739_prog, o_5155_currExpr); /* line 291 "../lib/comp/const.s7i" */ if ((*o_5157_evaluatedExpr) != (NULL)) { /* line 292 "../lib/comp/const.s7i" */ if ((refCategory(*o_5157_evaluatedExpr)) == (o_5156_exprCategory)) { /* line 293 "../lib/comp/const.s7i" */ ++(o_5108_countEvaluations); /* line 294 "../lib/comp/const.s7i" */ o_5158_okay=o_26_TRUE; } } /* line 294 "../lib/comp/const.s7i" */ catch_stack_pos--; /* line 298 "../lib/comp/const.s7i" */ } else { /* line 294 "../lib/comp/const.s7i" */ catch_stack_pos--; /* line 298 "../lib/comp/const.s7i" */ if (o_16_NUMERIC_ERROR == fail_value - 1) { /* process_expr ACTOBJECT PRC_NOOP *//*noop*/ /* line 298 "../lib/comp/const.s7i" */ } else /* line 299 "../lib/comp/const.s7i" */ if (o_17_OVERFLOW_ERROR == fail_value - 1) { /* process_expr ACTOBJECT PRC_NOOP *//*noop*/ /* line 299 "../lib/comp/const.s7i" */ } else /* line 300 "../lib/comp/const.s7i" */ if (o_18_RANGE_ERROR == fail_value - 1) { /* process_expr ACTOBJECT PRC_NOOP *//*noop*/ /* line 300 "../lib/comp/const.s7i" */ } else /* line 301 "../lib/comp/const.s7i" */ if (o_19_FILE_ERROR == fail_value - 1) { /* process_expr ACTOBJECT PRC_NOOP *//*noop*/ /* line 295 "../lib/comp/const.s7i" */ } else { /* line 295 "../lib/comp/const.s7i" */ rtlRaiseError(fail_value, error_file, error_line); /* line 295 "../lib/comp/const.s7i" */ } /* line 295 "../lib/comp/const.s7i" */ } /* line 295 "../lib/comp/const.s7i" */ } } return o_5158_okay; } /* line 1 "no_file" */ /* 3010 */ typedef genericType t_166/*t_166_bigint_table_hash*/; /* 3011 */ /* 3012 */ /* 3013 */ /* 3014 */ /* 3015 */ /* objRefType/t_19_reference */ intfunctype o_5159/*.*/=(intfunctype)(&bigCreateGeneric); /* 3016 */ /* objRefType/t_19_reference */ intfunctype o_5160/*.*/=(intfunctype)(&bigDestrGeneric); /* 3017 */ /* objRefType/t_19_reference */ intfunctype o_5161/*.*/=(intfunctype)(&bigCpyGeneric); /* 3018 */ /* objRefType/t_19_reference */ intfunctype o_5162/*.*/=(intfunctype)(&bigCmpGeneric); /* 3019 */ /* objRefType/t_19_reference */ intfunctype o_5163/*.*/=(intfunctype)(&genericCreate); /* 3020 */ /* objRefType/t_19_reference */ intfunctype o_5164/*.*/=(intfunctype)(&genericDestr); /* 3021 */ /* objRefType/t_19_reference */ intfunctype o_5165/*.*/=(intfunctype)(&genericCpy); /* 3022 */ /* 3023 */ /* 3024 */ /* 3025 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5166/*::=*/ (const const_hashType/*t_166_bigint_table_hash*/ o_5167_dest, const const_hashType/*t_166_bigint_table_hash*/ o_5168_source) { /* hshCreate implemented with create_166 */ } /* line 1 "no_file" */ /* 3026 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5169_destroy (const const_hashType/*t_166_bigint_table_hash*/ o_5170_oldHash) { /* hshDestr implemented with destr_166 */ } /* line 1 "no_file" */ /* 3027 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5171/*:=*/ (hashType/*t_166_bigint_table_hash*/ *const o_5172_dest, const const_hashType/*t_166_bigint_table_hash*/ o_5173_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_5172_dest), o_5173_source, (createFuncType)(o_5159/*.*/), (destrFuncType)(o_5160/*.*/), (createFuncType)(o_5163/*.*/), (destrFuncType)(o_5164/*.*/)); } /* line 1 "no_file" */ /* 3028 */ hashType/*t_166_bigint_table_hash*/ o_5174/*.*/; /* 3029 */ hashType/*t_166_bigint_table_hash*/ o_5175/*.*/; /* 3030 */ /* line 149 "../lib/hash.s7i" */ static intType/*t_14_integer*/ o_5176/*[*/ (const const_hashType/*t_166_bigint_table_hash*/ o_5177_aHashMap, const const_bigIntType/*t_57_bigInteger*/ o_5178_aKey) { /* line 150 "../lib/hash.s7i" */ return (intType/*t_14_integer*/)(((intType/*t_14_integer*/)(hshIdx(o_5177_aHashMap, (genericType)(o_5178_aKey), bigHashCode(o_5178_aKey), (compareType)(o_5162/*.*/))))); } /* line 1 "no_file" */ /* 3031 */ /* line 152 "../lib/hash.s7i" */ static intType/*t_14_integer*/ /*varfunc*/ *o_5179/*[*/ (hashType/*t_166_bigint_table_hash*/ *const o_5180_aHashMap, const const_bigIntType/*t_57_bigInteger*/ o_5181_aKey) { /* line 153 "../lib/hash.s7i" */ return (intType/*t_14_integer*/ *)(&(hshIdxAddr(*o_5180_aHashMap, (genericType)(o_5181_aKey), bigHashCode(o_5181_aKey), (compareType)(o_5162/*.*/))->value.intValue)); } /* line 1 "no_file" */ /* 3032 */ /* line 161 "../lib/hash.s7i" */ static intType/*t_14_integer*/ o_5182/*[*/ (const const_hashType/*t_166_bigint_table_hash*/ o_5183_aHashMap, const const_bigIntType/*t_57_bigInteger*/ o_5184_aKey, const intType/*t_14_integer*/ o_5185_defaultValue) { /* line 162 "../lib/hash.s7i" */ intType/*t_14_integer*/ result; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ result=(intType/*t_14_integer*/)(((addr_1=hshIdxAddr2(o_5183_aHashMap, (genericType)(o_5184_aKey), bigHashCode(o_5184_aKey), (compareType)(o_5162/*.*/)),addr_1!=NULL?addr_1->value.intValue:(o_5185_defaultValue)))); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 3033 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_5186_in (const const_bigIntType/*t_57_bigInteger*/ o_5187_aKey, const const_hashType/*t_166_bigint_table_hash*/ o_5188_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_5188_aHashMap, (genericType)(o_5187_aKey), bigHashCode(o_5187_aKey), (compareType)(o_5162/*.*/)))); } /* line 1 "no_file" */ /* 3034 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_5189_not (const const_bigIntType/*t_57_bigInteger*/ o_5190_aKey, const const_hashType/*t_166_bigint_table_hash*/ o_5191_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_5191_aHashMap, (genericType)(o_5190_aKey), bigHashCode(o_5190_aKey), (compareType)(o_5162/*.*/))))); } /* line 1 "no_file" */ /* 3035 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5192_incl (hashType/*t_166_bigint_table_hash*/ *const o_5193_aHashMap, const const_bigIntType/*t_57_bigInteger*/ o_5194_aKey, const intType/*t_14_integer*/ o_5195_anElem) { /* line 191 "../lib/hash.s7i" */ hshIncl(*o_5193_aHashMap, (genericType)(o_5194_aKey), (genericType)(o_5195_anElem), bigHashCode(o_5194_aKey), (compareType)(o_5162/*.*/), (createFuncType)(o_5159/*.*/), (createFuncType)(o_5163/*.*/), (copyFuncType)(o_5165/*.*/)); } /* line 1 "no_file" */ /* 3036 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5196_excl (hashType/*t_166_bigint_table_hash*/ *const o_5197_aHashMap, const const_bigIntType/*t_57_bigInteger*/ o_5198_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_5197_aHashMap, (genericType)(o_5198_aKey), bigHashCode(o_5198_aKey), (compareType)(o_5162/*.*/), (destrFuncType)(o_5160/*.*/), (destrFuncType)(o_5164/*.*/)); } /* line 1 "no_file" */ /* 3037 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5199/*@:=*/ (hashType/*t_166_bigint_table_hash*/ *const o_5200_aHashMap, const const_bigIntType/*t_57_bigInteger*/ o_5201_aKey, const intType/*t_14_integer*/ o_5202_anElem) { /* line 212 "../lib/hash.s7i" */ hshIncl(*o_5200_aHashMap, (genericType)(o_5201_aKey), (genericType)(o_5202_anElem), bigHashCode(o_5201_aKey), (compareType)(o_5162/*.*/), (createFuncType)(o_5159/*.*/), (createFuncType)(o_5163/*.*/), (copyFuncType)(o_5165/*.*/)); } /* line 1 "no_file" */ /* 3038 */ /* line 216 "../lib/hash.s7i" */ static intType/*t_14_integer*/ o_5203_update (hashType/*t_166_bigint_table_hash*/ *const o_5204_aHashMap, const const_bigIntType/*t_57_bigInteger*/ o_5205_aKey, const intType/*t_14_integer*/ o_5206_anElem) { /* line 217 "../lib/hash.s7i" */ return (intType/*t_14_integer*/)(((intType/*t_14_integer*/)(hshUpdate(*o_5204_aHashMap, (genericType)(o_5205_aKey), (genericType)(o_5206_anElem), bigHashCode(o_5205_aKey), (compareType)(o_5162/*.*/), (createFuncType)(o_5159/*.*/), (createFuncType)(o_5163/*.*/))))); } /* line 1 "no_file" */ /* 3039 */ /* declare inline o_5207_for*/ /* declare inline o_5208_for*/ /* declare inline o_5209_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_58__bigIntegerArray*/ o_5210_keys (const const_hashType/*t_166_bigint_table_hash*/ o_5211_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_58__bigIntegerArray*/)((hshKeys(o_5211_aHashMap, (createFuncType)(o_5159/*.*/), (destrFuncType)(o_5160/*.*/)))); } /* line 1 "no_file" */ /* 3040 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_27_TEST_1*/ o_5212_values (const const_hashType/*t_166_bigint_table_hash*/ o_5213_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_27_TEST_1*/)((/*ref_to_value*/ hshValues(o_5213_aHashMap, (createFuncType)(o_5163/*.*/), (destrFuncType)(o_5164/*.*/)))); } /* line 1 "no_file" */ /* 3041 */ typedef genericType t_167/*t_167_bigint_index_hash*/; /* 3042 */ /* 3043 */ /* 3044 */ /* 3045 */ /* objRefType/t_19_reference */ intfunctype o_5214/*.*/=(intfunctype)(&genericCreate); /* 3046 */ /* objRefType/t_19_reference */ intfunctype o_5215/*.*/=(intfunctype)(&genericDestr); /* 3047 */ /* objRefType/t_19_reference */ intfunctype o_5216/*.*/=(intfunctype)(&genericCpy); /* 3048 */ /* objRefType/t_19_reference */ intfunctype o_5217/*.*/=(intfunctype)(&intCmpGeneric); /* 3049 */ static genericType generic_create_58 (const genericType b) { rtlObjectType result; result.value.arrayValue=create_58(((const_rtlObjectType *) &b)->value.arrayValue); return result.value.genericValue; } /* objRefType/t_19_reference */ intfunctype o_5218/*.*/=(intfunctype)(&generic_create_58); /* 3050 */ static void generic_destr_58 (const genericType b) { destr_58(((const_rtlObjectType *) &b)->value.arrayValue); } /* objRefType/t_19_reference */ intfunctype o_5219/*.*/=(intfunctype)(&generic_destr_58); /* 3051 */ /* line 64 "../lib/array.s7i" */ static void cpy_58 (arrayType/*t_58__bigIntegerArray*/ *a, arrayType/*t_58__bigIntegerArray*/ b) /* line 64 "../lib/array.s7i" */ { /* line 64 "../lib/array.s7i" */ memSizeType i; /* line 64 "../lib/array.s7i" */ memSizeType size_a = (uintType)((*a)->max_position - (*a)->min_position + 1); /* line 64 "../lib/array.s7i" */ memSizeType size_b = (uintType)(b->max_position - b->min_position + 1); /* line 64 "../lib/array.s7i" */ memSizeType size; /* line 64 "../lib/array.s7i" */ (*a)->min_position = b->min_position; /* line 64 "../lib/array.s7i" */ (*a)->max_position = b->max_position; /* line 64 "../lib/array.s7i" */ if (size_a == size_b) { /* line 64 "../lib/array.s7i" */ size = size_a; /* line 64 "../lib/array.s7i" */ } else { /* line 64 "../lib/array.s7i" */ if (size_a < size_b) { /* line 64 "../lib/array.s7i" */ *a=(arrayType/*t_58__bigIntegerArray*/)(arrRealloc((arrayType)(*a), size_a, size_b)); size = size_a; /* line 64 "../lib/array.s7i" */ for (i = size_a; i < size_b; i++) { /* line 64 "../lib/array.s7i" */ (*a)->arr[i].value.bigIntValue=bigCreate(b->arr[i].value.bigIntValue); /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ } else /* size_a > size_b */ { /* line 64 "../lib/array.s7i" */ size = size_b; /* line 64 "../lib/array.s7i" */ for (i = size_b; i < size_a; i++) { /* line 64 "../lib/array.s7i" */ bigDestr((*a)->arr[i].value.bigIntValue); /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ *a=(arrayType/*t_58__bigIntegerArray*/)(arrRealloc((arrayType)(*a), size_a, size_b)); /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 64 "../lib/array.s7i" */ bigCpy(&((*a)->arr[i].value.bigIntValue), b->arr[i].value.bigIntValue); /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ } /* line 1 "no_file" */ static void generic_cpy_58 (genericType *a, const genericType b) { cpy_58((arrayType/*t_58__bigIntegerArray*/ *)(&(((const_rtlObjectType *) a)->value.arrayValue)), (arrayType/*t_58__bigIntegerArray*/)(((const_rtlObjectType *) &b)->value.arrayValue)); } /* objRefType/t_19_reference */ intfunctype o_5220/*.*/=(intfunctype)(&generic_cpy_58); /* 3052 */ /* 3053 */ /* 3054 */ /* 3055 */ typedef genericType t_168/*t_168_*ANONYM_TYPE**/; /* 3056 */ typedef genericType t_169/*t_169_*ANONYM_TYPE**/; /* 3057 */ /* 3058 */ /* 3059 */ /* 3060 */ /* ACTION ARR_GEN for type arrayType/t_169_*ANONYM_TYPE* element is arrayType/t_58__bigIntegerArray */ /* 3061 */ /* 3062 */ /* 3063 */ /* 3064 */ /* 3065 */ /* 3066 */ /* ACTION ARR_IDX for type arrayType/t_168_*ANONYM_TYPE* element is arrayType/t_58__bigIntegerArray */ /* 3067 */ /* ACTION ARR_IDX for type arrayType/t_168_*ANONYM_TYPE* element is arrayType/t_58__bigIntegerArray */ /* 3068 */ /* line 163 "../lib/array.s7i" */ static arrayType times_168 (intType n, const const_arrayType/*t_58__bigIntegerArray*/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.arrayValue=create_58(b); /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 3069 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_168_*ANONYM_TYPE**/ create_168 (const_arrayType/*t_168_*ANONYM_TYPE**/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_168_*ANONYM_TYPE**/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_168_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.arrayValue=create_58(b->arr[i].value.arrayValue); /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_168 (const_arrayType/*t_168_*ANONYM_TYPE**/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ destr_58(b->arr[i].value.arrayValue); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_169 (const_arrayType/*t_169_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ destr_58(b->arr[i].value.arrayValue); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_169_*ANONYM_TYPE**/ create_169 (const_arrayType/*t_169_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_169_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_169_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.arrayValue=create_58(b->arr[i].value.arrayValue); /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_168_*ANONYM_TYPE**/ o_5221_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_5222_indexRange, const const_arrayType/*t_58__bigIntegerArray*/ value_o_5223_element) { /* line 183 "../lib/array.s7i" */ const_arrayType/*t_58__bigIntegerArray*/ o_5223_element; /* line 186 "../lib/array.s7i" */ arrayType/*t_168_*ANONYM_TYPE**/ o_5224_anArray; /* line 183 "../lib/array.s7i" */ o_5223_element=create_58(value_o_5223_element); /* line 186 "../lib/array.s7i" */ o_5224_anArray=create_168(arr[127]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_5224_anArray; /* line 188 "../lib/array.s7i" */ o_5224_anArray=times_168(((((structType)(o_5222_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_5222_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_5223_element); /* line 188 "../lib/array.s7i" */ destr_168(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_5224_anArray; /* line 189 "../lib/array.s7i" */ o_5224_anArray=arrArrlit2(((structType)(o_5222_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_169(/*arrConv()*/o_5224_anArray)); /* line 189 "../lib/array.s7i" */ destr_168(old_array); } /* line 183 "../lib/array.s7i" */ destr_58(o_5223_element); return o_5224_anArray; } /* line 1 "no_file" */ /* 3070 */ /* declare inline o_5225_for*/ /* declare inline o_5226_for*/ /* declare inline o_5227_for*/ /* declare inline o_5228_for*/ /* declare inline o_5229_for*/ /* declare inline o_5230_for*/ /* declare inline o_5231_for*/ /* declare inline o_5232_for*/ /* declare inline o_5233_for*/ /* line 329 "../lib/array.s7i" */ static arrayType/*t_58__bigIntegerArray*/ o_5234_rand (const const_arrayType/*t_168_*ANONYM_TYPE**/ o_5235_arr) { /* line 330 "../lib/array.s7i" */ arrayType/*t_58__bigIntegerArray*/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(arrayType/*t_58__bigIntegerArray*/)((/*ref_to_value*/ (o_5235_arr)->arr[idx_1=intRand((o_5235_arr)->min_position, (o_5235_arr)->max_position),(idxChk(idx_1 < (o_5235_arr)->min_position || idx_1 > (o_5235_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_5235_arr)->min_position)].value.arrayValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 3071 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_5236_insert (arrayType/*t_168_*ANONYM_TYPE**/ *const o_5237_arr, const intType/*t_14_integer*/ o_5238_index, const const_arrayType/*t_58__bigIntegerArray*/ value_o_5239_element) { /* line 332 "../lib/array.s7i" */ const_arrayType/*t_58__bigIntegerArray*/ o_5239_element; /* line 332 "../lib/array.s7i" */ o_5239_element=create_58(value_o_5239_element); /* line 334 "../lib/array.s7i" */ if (((o_5238_index) >= ((*o_5237_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_5238_index) <= (((*o_5237_arr)->max_position)+1))) { { /* line 335 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 335 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_5237_arr; /* line 335 "../lib/array.s7i" */ *o_5237_arr=arrCat(arrCat((tmp_4=arrHead(*o_5237_arr, (o_5238_index)-1), create_168(tmp_4)), arrBaselit((genericType)(create_58(o_5239_element)))), (tmp_7=arrTail(*o_5237_arr, o_5238_index), create_168(tmp_7))); /* line 335 "../lib/array.s7i" */ destr_168(old_array); } /* line 335 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 335 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } /* line 332 "../lib/array.s7i" */ destr_58(o_5239_element); } /* line 1 "no_file" */ /* 3072 */ /* line 344 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5240/*=*/ (const const_arrayType/*t_168_*ANONYM_TYPE**/ o_5241_arr1, const const_arrayType/*t_168_*ANONYM_TYPE**/ o_5242_arr2) { /* line 346 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_5243_isEqual=o_25_FALSE; /* line 348 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5244_number=1; /* line 350 "../lib/array.s7i" */ if ((((o_5241_arr1)->min_position) == ((o_5242_arr2)->min_position)) && /* line 350 "../lib/array.s7i" */ (((o_5241_arr1)->max_position) == ((o_5242_arr2)->max_position))) { /* line 351 "../lib/array.s7i" */ o_5243_isEqual=o_26_TRUE; /* line 352 "../lib/array.s7i" */ o_5244_number=(o_5241_arr1)->min_position; /* line 353 "../lib/array.s7i" */ while (((o_5244_number) <= ((o_5241_arr1)->max_position)) && /* line 353 "../lib/array.s7i" */ (o_5243_isEqual)) { /* line 354 "../lib/array.s7i" */ o_5243_isEqual=o_1652/*=*/((o_5241_arr1)->arr[(idxChk((o_5244_number) < (o_5241_arr1)->min_position || (o_5244_number) > (o_5241_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5244_number)-(o_5241_arr1)->min_position)].value.arrayValue, (o_5242_arr2)->arr[(idxChk((o_5244_number) < (o_5242_arr2)->min_position || (o_5244_number) > (o_5242_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5244_number)-(o_5242_arr2)->min_position)].value.arrayValue); /* line 355 "../lib/array.s7i" */ ++(o_5244_number); } } return o_5243_isEqual; } /* line 1 "no_file" */ /* 3073 */ /* line 360 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5245/*<>*/ (const const_arrayType/*t_168_*ANONYM_TYPE**/ o_5246_arr1, const const_arrayType/*t_168_*ANONYM_TYPE**/ o_5247_arr2) { /* line 362 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_5248_isNotEqual=o_26_TRUE; /* line 364 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5249_number=1; /* line 366 "../lib/array.s7i" */ if ((((o_5246_arr1)->min_position) == ((o_5247_arr2)->min_position)) && /* line 366 "../lib/array.s7i" */ (((o_5246_arr1)->max_position) == ((o_5247_arr2)->max_position))) { /* line 367 "../lib/array.s7i" */ o_5248_isNotEqual=o_25_FALSE; /* line 368 "../lib/array.s7i" */ o_5249_number=(o_5246_arr1)->min_position; /* line 369 "../lib/array.s7i" */ while (((o_5249_number) <= ((o_5246_arr1)->max_position)) && /* line 369 "../lib/array.s7i" */ (!(o_5248_isNotEqual))) { /* line 370 "../lib/array.s7i" */ o_5248_isNotEqual=o_1657/*<>*/((o_5246_arr1)->arr[(idxChk((o_5249_number) < (o_5246_arr1)->min_position || (o_5249_number) > (o_5246_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5249_number)-(o_5246_arr1)->min_position)].value.arrayValue, (o_5247_arr2)->arr[(idxChk((o_5249_number) < (o_5247_arr2)->min_position || (o_5249_number) > (o_5247_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5249_number)-(o_5247_arr2)->min_position)].value.arrayValue); /* line 371 "../lib/array.s7i" */ ++(o_5249_number); } } return o_5248_isNotEqual; } /* line 1 "no_file" */ /* 3074 */ /* line 381 "../lib/array.s7i" */ static void/*t_1_void*/ o_5250_insert (arrayType/*t_168_*ANONYM_TYPE**/ *const o_5251_arr, const const_arrayType/*t_58__bigIntegerArray*/ value_o_5252_element) { /* line 381 "../lib/array.s7i" */ const_arrayType/*t_58__bigIntegerArray*/ o_5252_element; /* line 383 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5253_number=1; /* line 381 "../lib/array.s7i" */ o_5252_element=create_58(value_o_5252_element); /* line 385 "../lib/array.s7i" */ o_5253_number=(*o_5251_arr)->min_position; /* line 386 "../lib/array.s7i" */ while (((o_5253_number) <= ((*o_5251_arr)->max_position)) && /* line 386 "../lib/array.s7i" */ (o_1672/*<*/((*o_5251_arr)->arr[(idxChk((o_5253_number) < (*o_5251_arr)->min_position || (o_5253_number) > (*o_5251_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5253_number)-(*o_5251_arr)->min_position)].value.arrayValue, o_5252_element))) { /* line 387 "../lib/array.s7i" */ ++(o_5253_number); } /* line 389 "../lib/array.s7i" */ if ((o_5253_number) > ((*o_5251_arr)->max_position)) { { { /* line 390 "../lib/array.s7i" */ arrayType old_array=*o_5251_arr; /* line 390 "../lib/array.s7i" */ *o_5251_arr=arrCat(create_168(*o_5251_arr), arrBaselit((genericType)(create_58(o_5252_element)))); /* line 390 "../lib/array.s7i" */ destr_168(old_array); } } } else /* line 391 "../lib/array.s7i" */ if (o_1675/*>*/((*o_5251_arr)->arr[(idxChk((o_5253_number) < (*o_5251_arr)->min_position || (o_5253_number) > (*o_5251_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5253_number)-(*o_5251_arr)->min_position)].value.arrayValue, o_5252_element)) { { /* line 392 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 392 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 392 "../lib/array.s7i" */ arrayType old_array=*o_5251_arr; /* line 392 "../lib/array.s7i" */ *o_5251_arr=arrCat(arrCat((tmp_4=arrHead(*o_5251_arr, (o_5253_number)-1), create_168(tmp_4)), arrBaselit((genericType)(create_58(o_5252_element)))), (tmp_7=arrTail(*o_5251_arr, o_5253_number), create_168(tmp_7))); /* line 392 "../lib/array.s7i" */ destr_168(old_array); } /* line 392 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 392 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } /* line 381 "../lib/array.s7i" */ destr_58(o_5252_element); } /* line 1 "no_file" */ /* 3075 */ /* line 400 "../lib/array.s7i" */ static intType/*t_14_integer*/ o_5254_compare (const const_arrayType/*t_168_*ANONYM_TYPE**/ o_5255_arr1, const const_arrayType/*t_168_*ANONYM_TYPE**/ o_5256_arr2) { /* line 402 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5257_signumValue=0; /* line 404 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5258_idx1=0; /* line 405 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5259_idx2=0; /* line 407 "../lib/array.s7i" */ o_5258_idx1=(o_5255_arr1)->min_position; /* line 408 "../lib/array.s7i" */ o_5259_idx2=(o_5256_arr2)->min_position; /* line 409 "../lib/array.s7i" */ while (((o_5258_idx1) <= ((o_5255_arr1)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_5259_idx2) <= ((o_5256_arr2)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_1666_compare((o_5255_arr1)->arr[(idxChk((o_5258_idx1) < (o_5255_arr1)->min_position || (o_5258_idx1) > (o_5255_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5258_idx1)-(o_5255_arr1)->min_position)].value.arrayValue, (o_5256_arr2)->arr[(idxChk((o_5259_idx2) < (o_5256_arr2)->min_position || (o_5259_idx2) > (o_5256_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5259_idx2)-(o_5256_arr2)->min_position)].value.arrayValue)) == (0L))) { /* line 410 "../lib/array.s7i" */ ++(o_5258_idx1); /* line 411 "../lib/array.s7i" */ ++(o_5259_idx2); } /* line 413 "../lib/array.s7i" */ if (((o_5258_idx1) <= ((o_5255_arr1)->max_position)) && /* line 413 "../lib/array.s7i" */ ((o_5259_idx2) <= ((o_5256_arr2)->max_position))) { /* line 414 "../lib/array.s7i" */ o_5257_signumValue=o_1666_compare((o_5255_arr1)->arr[(idxChk((o_5258_idx1) < (o_5255_arr1)->min_position || (o_5258_idx1) > (o_5255_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5258_idx1)-(o_5255_arr1)->min_position)].value.arrayValue, (o_5256_arr2)->arr[(idxChk((o_5259_idx2) < (o_5256_arr2)->min_position || (o_5259_idx2) > (o_5256_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5259_idx2)-(o_5256_arr2)->min_position)].value.arrayValue); } else { /* line 416 "../lib/array.s7i" */ o_5257_signumValue=intCmp(((o_5255_arr1)->max_position - (o_5255_arr1)->min_position + 1), ((o_5256_arr2)->max_position - (o_5256_arr2)->min_position + 1)); } return o_5257_signumValue; } /* line 1 "no_file" */ /* 3076 */ /* line 420 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5260/*<*/ (const const_arrayType/*t_168_*ANONYM_TYPE**/ o_5261_arr1, const const_arrayType/*t_168_*ANONYM_TYPE**/ o_5262_arr2) { /* line 421 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_5254_compare(o_5261_arr1, o_5262_arr2)) < (0L))); } /* line 1 "no_file" */ /* 3077 */ /* line 423 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5263/*>*/ (const const_arrayType/*t_168_*ANONYM_TYPE**/ o_5264_arr1, const const_arrayType/*t_168_*ANONYM_TYPE**/ o_5265_arr2) { /* line 424 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_5254_compare(o_5264_arr1, o_5265_arr2)) > (0L))); } /* line 1 "no_file" */ /* 3078 */ /* line 426 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5266/*<=*/ (const const_arrayType/*t_168_*ANONYM_TYPE**/ o_5267_arr1, const const_arrayType/*t_168_*ANONYM_TYPE**/ o_5268_arr2) { /* line 427 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_5254_compare(o_5267_arr1, o_5268_arr2)) <= (0L))); } /* line 1 "no_file" */ /* 3079 */ /* line 429 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5269/*>=*/ (const const_arrayType/*t_168_*ANONYM_TYPE**/ o_5270_arr1, const const_arrayType/*t_168_*ANONYM_TYPE**/ o_5271_arr2) { /* line 430 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_5254_compare(o_5270_arr1, o_5271_arr2)) >= (0L))); } /* line 1 "no_file" */ /* 3080 */ static intType generic_cmp_58 (const genericType a, const genericType b) { return o_1666_compare(((const_rtlObjectType *) &a)->value.arrayValue, ((const_rtlObjectType *) &b)->value.arrayValue); } /* objRefType/t_19_reference */ intfunctype o_5272/*.*/=(intfunctype)(&generic_cmp_58); /* 3081 */ /* line 436 "../lib/array.s7i" */ static arrayType/*t_168_*ANONYM_TYPE**/ o_5273_sort (const const_arrayType/*t_168_*ANONYM_TYPE**/ o_5274_arr_obj) { /* line 437 "../lib/array.s7i" */ return (arrayType/*t_168_*ANONYM_TYPE**/)((arrSort(create_168(o_5274_arr_obj), (compareType)(o_5272/*.*/)))); } /* line 1 "no_file" */ /* 3082 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5275/*::=*/ (const const_hashType/*t_167_bigint_index_hash*/ o_5276_dest, const const_hashType/*t_167_bigint_index_hash*/ o_5277_source) { /* hshCreate implemented with create_167 */ } /* line 1 "no_file" */ /* 3083 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5278_destroy (const const_hashType/*t_167_bigint_index_hash*/ o_5279_oldHash) { /* hshDestr implemented with destr_167 */ } /* line 1 "no_file" */ /* 3084 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5280/*:=*/ (hashType/*t_167_bigint_index_hash*/ *const o_5281_dest, const const_hashType/*t_167_bigint_index_hash*/ o_5282_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_5281_dest), o_5282_source, (createFuncType)(o_5214/*.*/), (destrFuncType)(o_5215/*.*/), (createFuncType)(o_5218/*.*/), (destrFuncType)(o_5219/*.*/)); } /* line 1 "no_file" */ /* 3085 */ typedef genericType t_170/*t_170_*ANONYM_TYPE**/; /* 3086 */ /* 3087 */ /* 3088 */ /* 3089 */ /* 3090 */ /* objRefType/t_170_*ANONYM_TYPE* */ objRefType o_5283/*.*/=(objRefType)(NULL); /* 3091 */ /* objRefType/t_170_*ANONYM_TYPE* */ objRefType o_5284/*.*/=(objRefType)(NULL); /* 3092 */ hashType/*t_167_bigint_index_hash*/ o_5285/*.*/; /* 3093 */ hashType/*t_167_bigint_index_hash*/ o_5286/*.*/; /* 3094 */ /* line 149 "../lib/hash.s7i" */ static arrayType/*t_58__bigIntegerArray*/ o_5287/*[*/ (const const_hashType/*t_167_bigint_index_hash*/ o_5288_aHashMap, const intType/*t_14_integer*/ *const o_5289_aKey) { /* line 150 "../lib/hash.s7i" */ return (arrayType/*t_58__bigIntegerArray*/)((/*ref_to_value*/ (arrayType/*t_58__bigIntegerArray*/)(hshIdx(o_5288_aHashMap, (genericType)(*o_5289_aKey), (*o_5289_aKey), (compareType)(o_5217/*.*/))))); } /* line 1 "no_file" */ /* 3095 */ /* line 152 "../lib/hash.s7i" */ static arrayType/*t_58__bigIntegerArray*/ /*varfunc*/ *o_5290/*[*/ (hashType/*t_167_bigint_index_hash*/ *const o_5291_aHashMap, const intType/*t_14_integer*/ *const o_5292_aKey) { /* line 153 "../lib/hash.s7i" */ return (arrayType/*t_58__bigIntegerArray*/ *)(&(hshIdxAddr(*o_5291_aHashMap, (genericType)(*o_5292_aKey), (*o_5292_aKey), (compareType)(o_5217/*.*/))->value.arrayValue)); } /* line 1 "no_file" */ /* 3096 */ /* line 161 "../lib/hash.s7i" */ static arrayType/*t_58__bigIntegerArray*/ o_5293/*[*/ (const const_hashType/*t_167_bigint_index_hash*/ o_5294_aHashMap, const intType/*t_14_integer*/ *const o_5295_aKey, const const_arrayType/*t_58__bigIntegerArray*/ value_o_5296_defaultValue) { /* line 162 "../lib/hash.s7i" */ arrayType/*t_58__bigIntegerArray*/ result; /* line 162 "../lib/hash.s7i" */ const_arrayType/*t_58__bigIntegerArray*/ o_5296_defaultValue; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ o_5296_defaultValue=create_58(value_o_5296_defaultValue); /* line 162 "../lib/hash.s7i" */ result=(arrayType/*t_58__bigIntegerArray*/)((/*ref_to_value*/ (addr_1=hshIdxAddr2(o_5294_aHashMap, (genericType)(*o_5295_aKey), (*o_5295_aKey), (compareType)(o_5217/*.*/)),addr_1!=NULL?addr_1->value.arrayValue:(o_5296_defaultValue)))); /* line 162 "../lib/hash.s7i" */ destr_58(o_5296_defaultValue); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 3097 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_5297_in (const intType/*t_14_integer*/ *const o_5298_aKey, const const_hashType/*t_167_bigint_index_hash*/ o_5299_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_5299_aHashMap, (genericType)(*o_5298_aKey), (*o_5298_aKey), (compareType)(o_5217/*.*/)))); } /* line 1 "no_file" */ /* 3098 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_5300_not (const intType/*t_14_integer*/ *const o_5301_aKey, const const_hashType/*t_167_bigint_index_hash*/ o_5302_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_5302_aHashMap, (genericType)(*o_5301_aKey), (*o_5301_aKey), (compareType)(o_5217/*.*/))))); } /* line 1 "no_file" */ /* 3099 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5303_incl (hashType/*t_167_bigint_index_hash*/ *const o_5304_aHashMap, const intType/*t_14_integer*/ *const o_5305_aKey, const const_arrayType/*t_58__bigIntegerArray*/ value_o_5306_anElem) { /* line 189 "../lib/hash.s7i" */ const_arrayType/*t_58__bigIntegerArray*/ o_5306_anElem; /* line 189 "../lib/hash.s7i" */ o_5306_anElem=create_58(value_o_5306_anElem); /* line 191 "../lib/hash.s7i" */ hshIncl(*o_5304_aHashMap, (genericType)(*o_5305_aKey), (genericType)(o_5306_anElem), (*o_5305_aKey), (compareType)(o_5217/*.*/), (createFuncType)(o_5214/*.*/), (createFuncType)(o_5218/*.*/), (copyFuncType)(o_5220/*.*/)); /* line 189 "../lib/hash.s7i" */ destr_58(o_5306_anElem); } /* line 1 "no_file" */ /* 3100 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5307_excl (hashType/*t_167_bigint_index_hash*/ *const o_5308_aHashMap, const intType/*t_14_integer*/ *const o_5309_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_5308_aHashMap, (genericType)(*o_5309_aKey), (*o_5309_aKey), (compareType)(o_5217/*.*/), (destrFuncType)(o_5215/*.*/), (destrFuncType)(o_5219/*.*/)); } /* line 1 "no_file" */ /* 3101 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5310/*@:=*/ (hashType/*t_167_bigint_index_hash*/ *const o_5311_aHashMap, const intType/*t_14_integer*/ *const o_5312_aKey, const const_arrayType/*t_58__bigIntegerArray*/ value_o_5313_anElem) { /* line 210 "../lib/hash.s7i" */ const_arrayType/*t_58__bigIntegerArray*/ o_5313_anElem; /* line 210 "../lib/hash.s7i" */ o_5313_anElem=create_58(value_o_5313_anElem); /* line 212 "../lib/hash.s7i" */ hshIncl(*o_5311_aHashMap, (genericType)(*o_5312_aKey), (genericType)(o_5313_anElem), (*o_5312_aKey), (compareType)(o_5217/*.*/), (createFuncType)(o_5214/*.*/), (createFuncType)(o_5218/*.*/), (copyFuncType)(o_5220/*.*/)); /* line 210 "../lib/hash.s7i" */ destr_58(o_5313_anElem); } /* line 1 "no_file" */ /* 3102 */ /* line 216 "../lib/hash.s7i" */ static arrayType/*t_58__bigIntegerArray*/ o_5314_update (hashType/*t_167_bigint_index_hash*/ *const o_5315_aHashMap, const intType/*t_14_integer*/ *const o_5316_aKey, const const_arrayType/*t_58__bigIntegerArray*/ value_o_5317_anElem) { /* line 217 "../lib/hash.s7i" */ arrayType/*t_58__bigIntegerArray*/ result; /* line 217 "../lib/hash.s7i" */ const_arrayType/*t_58__bigIntegerArray*/ o_5317_anElem; /* line 217 "../lib/hash.s7i" */ o_5317_anElem=create_58(value_o_5317_anElem); /* line 217 "../lib/hash.s7i" */ result=(arrayType/*t_58__bigIntegerArray*/)(((arrayType/*t_58__bigIntegerArray*/)(hshUpdate(*o_5315_aHashMap, (genericType)(*o_5316_aKey), (genericType)(create_58(o_5317_anElem)), (*o_5316_aKey), (compareType)(o_5217/*.*/), (createFuncType)(o_5214/*.*/), (createFuncType)(o_5218/*.*/))))); /* line 217 "../lib/hash.s7i" */ destr_58(o_5317_anElem); /* line 217 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 3103 */ /* declare inline o_5318_for*/ /* declare inline o_5319_for*/ /* declare inline o_5320_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_27_TEST_1*/ o_5321_keys (const const_hashType/*t_167_bigint_index_hash*/ o_5322_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_27_TEST_1*/)((hshKeys(o_5322_aHashMap, (createFuncType)(o_5214/*.*/), (destrFuncType)(o_5215/*.*/)))); } /* line 1 "no_file" */ /* 3104 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_168_*ANONYM_TYPE**/ o_5323_values (const const_hashType/*t_167_bigint_index_hash*/ o_5324_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_168_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_5324_aHashMap, (createFuncType)(o_5218/*.*/), (destrFuncType)(o_5219/*.*/)))); } /* line 1 "no_file" */ /* 3105 */ /* line 61 "../lib/hash.s7i" */ static void destr_167 (const_hashType/*t_167_bigint_index_hash*/ b) /* line 61 "../lib/hash.s7i" */ { /* line 61 "../lib/hash.s7i" */ hshDestr(b, (destrFuncType)(o_5215/*.*/), (destrFuncType)(o_5219/*.*/)); /* line 61 "../lib/hash.s7i" */ } /* line 1 "no_file" */ /* line 283 "../lib/hash.s7i" */ static hashType/*t_167_bigint_index_hash*/ o_5325_flip (const const_hashType/*t_166_bigint_table_hash*/ o_5326_aHashMap) { /* line 285 "../lib/hash.s7i" */ hashType/*t_167_bigint_index_hash*/ o_5327_inverseHash; /* line 287 "../lib/hash.s7i" */ bigIntType/*t_57_bigInteger*/ o_5328_aKey; /* line 288 "../lib/hash.s7i" */ intType/*t_14_integer*/ o_5329_aValue=0; /* line 285 "../lib/hash.s7i" */ o_5327_inverseHash=hshEmpty(); /* line 287 "../lib/hash.s7i" */ o_5328_aKey=bigZero(); /* 0_ */ /* inline proc o_5209_for */ { /* inline params */ /* line 290 "../lib/hash.s7i" */ intType/*t_14_integer*/ *const o_5330_forVar=&(o_5329_aValue); /* line 290 "../lib/hash.s7i" */ bigIntType/*t_57_bigInteger*/ *const o_5331_keyVar=&(o_5328_aKey); /* line 290 "../lib/hash.s7i" */ const const_hashType/*t_166_bigint_table_hash*/ o_5332_aHashMap=o_5326_aHashMap; /* line 290 "../lib/hash.s7i" */ /* push proc param o_5333_statements */ /* line 290 "../lib/hash.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 258 "../lib/hash.s7i" */ const_hashType hash_1=o_5332_aHashMap; /* line 258 "../lib/hash.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 258 "../lib/hash.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 258 "../lib/hash.s7i" */ const_hashElemType helem_4; /* line 258 "../lib/hash.s7i" */ hashElemListType stack_5=NULL; /* line 258 "../lib/hash.s7i" */ while (counter_2 > 0) { /* line 258 "../lib/hash.s7i" */ helem_4=*table_elem_3; /* line 258 "../lib/hash.s7i" */ while (helem_4 != NULL) { /* line 258 "../lib/hash.s7i" */ if (helem_4->next_greater != NULL) { /* line 258 "../lib/hash.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ (*o_5330_forVar)=helem_4->data.value.intValue; /* line 258 "../lib/hash.s7i" */ bigCpy(&((*o_5331_keyVar)), helem_4->key.value.bigIntValue); /* closure o_5333_statements*/ { /* line 291 "../lib/hash.s7i" */ if (o_5297_in(&(o_5329_aValue), o_5327_inverseHash)) { /* line 292 "../lib/hash.s7i" */ arrPush(&(*o_5290/*[*/(&(o_5327_inverseHash), &(o_5329_aValue))), (genericType)(bigCreate(o_5328_aKey))); } else { { /* line 294 "../lib/hash.s7i" */ arrayType/*t_58__bigIntegerArray*/ tmp_1 = (arrayType/*t_58__bigIntegerArray*/)(NULL); /* line 294 "../lib/hash.s7i" */ o_5310/*@:=*/(&(o_5327_inverseHash), &(o_5329_aValue), (tmp_1=(arrayType/*t_58__bigIntegerArray*/)(arrBaselit((genericType)(bigCreate(o_5328_aKey)))))); /* line 294 "../lib/hash.s7i" */ destr_58(tmp_1); } } } /* closure o_5333_statements*/ /* line 258 "../lib/hash.s7i" */ if (helem_4->next_less != NULL) { /* line 258 "../lib/hash.s7i" */ helem_4=helem_4->next_less; /* line 258 "../lib/hash.s7i" */ } else { /* line 258 "../lib/hash.s7i" */ pop_stack(stack_5, helem_4); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ counter_2--; /* line 258 "../lib/hash.s7i" */ table_elem_3++; /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ } /* hsh_for */ /* pop proc param o_5333_statements */ } /* inline proc o_5209_for */ /* line 283 "../lib/hash.s7i" */ bigDestr(o_5328_aKey); return o_5327_inverseHash; } /* line 1 "no_file" */ /* 3106 */ /* 3107 */ typedef genericType t_171/*t_171_bigint_bstri_hash*/; /* 3108 */ /* 3109 */ /* 3110 */ /* 3111 */ /* 3112 */ /* objRefType/t_19_reference */ intfunctype o_5334/*.*/=(intfunctype)(&genericCreate); /* 3113 */ /* objRefType/t_19_reference */ intfunctype o_5335/*.*/=(intfunctype)(&genericDestr); /* 3114 */ /* objRefType/t_19_reference */ intfunctype o_5336/*.*/=(intfunctype)(&genericCpy); /* 3115 */ /* objRefType/t_19_reference */ intfunctype o_5337/*.*/=(intfunctype)(&intCmpGeneric); /* 3116 */ /* objRefType/t_19_reference */ intfunctype o_5338/*.*/=(intfunctype)(&genericCreate); /* 3117 */ /* objRefType/t_19_reference */ intfunctype o_5339/*.*/=(intfunctype)(&genericDestr); /* 3118 */ /* objRefType/t_19_reference */ intfunctype o_5340/*.*/=(intfunctype)(&genericCpy); /* 3119 */ /* 3120 */ /* 3121 */ /* 3122 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5341/*::=*/ (const const_hashType/*t_171_bigint_bstri_hash*/ o_5342_dest, const const_hashType/*t_171_bigint_bstri_hash*/ o_5343_source) { /* hshCreate implemented with create_171 */ } /* line 1 "no_file" */ /* 3123 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5344_destroy (const const_hashType/*t_171_bigint_bstri_hash*/ o_5345_oldHash) { /* hshDestr implemented with destr_171 */ } /* line 1 "no_file" */ /* 3124 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5346/*:=*/ (hashType/*t_171_bigint_bstri_hash*/ *const o_5347_dest, const const_hashType/*t_171_bigint_bstri_hash*/ o_5348_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_5347_dest), o_5348_source, (createFuncType)(o_5334/*.*/), (destrFuncType)(o_5335/*.*/), (createFuncType)(o_5338/*.*/), (destrFuncType)(o_5339/*.*/)); } /* line 1 "no_file" */ /* 3125 */ hashType/*t_171_bigint_bstri_hash*/ o_5349/*.*/; /* 3126 */ hashType/*t_171_bigint_bstri_hash*/ o_5350/*.*/; /* 3127 */ /* line 149 "../lib/hash.s7i" */ static intType/*t_14_integer*/ o_5351/*[*/ (const const_hashType/*t_171_bigint_bstri_hash*/ o_5352_aHashMap, const intType/*t_14_integer*/ *const o_5353_aKey) { /* line 150 "../lib/hash.s7i" */ return (intType/*t_14_integer*/)(((intType/*t_14_integer*/)(hshIdx(o_5352_aHashMap, (genericType)(*o_5353_aKey), (*o_5353_aKey), (compareType)(o_5337/*.*/))))); } /* line 1 "no_file" */ /* 3128 */ /* line 152 "../lib/hash.s7i" */ static intType/*t_14_integer*/ /*varfunc*/ *o_5354/*[*/ (hashType/*t_171_bigint_bstri_hash*/ *const o_5355_aHashMap, const intType/*t_14_integer*/ *const o_5356_aKey) { /* line 153 "../lib/hash.s7i" */ return (intType/*t_14_integer*/ *)(&(hshIdxAddr(*o_5355_aHashMap, (genericType)(*o_5356_aKey), (*o_5356_aKey), (compareType)(o_5337/*.*/))->value.intValue)); } /* line 1 "no_file" */ /* 3129 */ /* line 161 "../lib/hash.s7i" */ static intType/*t_14_integer*/ o_5357/*[*/ (const const_hashType/*t_171_bigint_bstri_hash*/ o_5358_aHashMap, const intType/*t_14_integer*/ *const o_5359_aKey, const intType/*t_14_integer*/ o_5360_defaultValue) { /* line 162 "../lib/hash.s7i" */ intType/*t_14_integer*/ result; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ result=(intType/*t_14_integer*/)(((addr_1=hshIdxAddr2(o_5358_aHashMap, (genericType)(*o_5359_aKey), (*o_5359_aKey), (compareType)(o_5337/*.*/)),addr_1!=NULL?addr_1->value.intValue:(o_5360_defaultValue)))); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 3130 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_5361_in (const intType/*t_14_integer*/ *const o_5362_aKey, const const_hashType/*t_171_bigint_bstri_hash*/ o_5363_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_5363_aHashMap, (genericType)(*o_5362_aKey), (*o_5362_aKey), (compareType)(o_5337/*.*/)))); } /* line 1 "no_file" */ /* 3131 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_5364_not (const intType/*t_14_integer*/ *const o_5365_aKey, const const_hashType/*t_171_bigint_bstri_hash*/ o_5366_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_5366_aHashMap, (genericType)(*o_5365_aKey), (*o_5365_aKey), (compareType)(o_5337/*.*/))))); } /* line 1 "no_file" */ /* 3132 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5367_incl (hashType/*t_171_bigint_bstri_hash*/ *const o_5368_aHashMap, const intType/*t_14_integer*/ *const o_5369_aKey, const intType/*t_14_integer*/ o_5370_anElem) { /* line 191 "../lib/hash.s7i" */ hshIncl(*o_5368_aHashMap, (genericType)(*o_5369_aKey), (genericType)(o_5370_anElem), (*o_5369_aKey), (compareType)(o_5337/*.*/), (createFuncType)(o_5334/*.*/), (createFuncType)(o_5338/*.*/), (copyFuncType)(o_5340/*.*/)); } /* line 1 "no_file" */ /* 3133 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5371_excl (hashType/*t_171_bigint_bstri_hash*/ *const o_5372_aHashMap, const intType/*t_14_integer*/ *const o_5373_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_5372_aHashMap, (genericType)(*o_5373_aKey), (*o_5373_aKey), (compareType)(o_5337/*.*/), (destrFuncType)(o_5335/*.*/), (destrFuncType)(o_5339/*.*/)); } /* line 1 "no_file" */ /* 3134 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5374/*@:=*/ (hashType/*t_171_bigint_bstri_hash*/ *const o_5375_aHashMap, const intType/*t_14_integer*/ *const o_5376_aKey, const intType/*t_14_integer*/ o_5377_anElem) { /* line 212 "../lib/hash.s7i" */ hshIncl(*o_5375_aHashMap, (genericType)(*o_5376_aKey), (genericType)(o_5377_anElem), (*o_5376_aKey), (compareType)(o_5337/*.*/), (createFuncType)(o_5334/*.*/), (createFuncType)(o_5338/*.*/), (copyFuncType)(o_5340/*.*/)); } /* line 1 "no_file" */ /* 3135 */ /* line 216 "../lib/hash.s7i" */ static intType/*t_14_integer*/ o_5378_update (hashType/*t_171_bigint_bstri_hash*/ *const o_5379_aHashMap, const intType/*t_14_integer*/ *const o_5380_aKey, const intType/*t_14_integer*/ o_5381_anElem) { /* line 217 "../lib/hash.s7i" */ return (intType/*t_14_integer*/)(((intType/*t_14_integer*/)(hshUpdate(*o_5379_aHashMap, (genericType)(*o_5380_aKey), (genericType)(o_5381_anElem), (*o_5380_aKey), (compareType)(o_5337/*.*/), (createFuncType)(o_5334/*.*/), (createFuncType)(o_5338/*.*/))))); } /* line 1 "no_file" */ /* 3136 */ /* declare inline o_5382_for*/ /* declare inline o_5383_for*/ /* declare inline o_5384_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_27_TEST_1*/ o_5385_keys (const const_hashType/*t_171_bigint_bstri_hash*/ o_5386_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_27_TEST_1*/)((hshKeys(o_5386_aHashMap, (createFuncType)(o_5334/*.*/), (destrFuncType)(o_5335/*.*/)))); } /* line 1 "no_file" */ /* 3137 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_27_TEST_1*/ o_5387_values (const const_hashType/*t_171_bigint_bstri_hash*/ o_5388_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_27_TEST_1*/)((/*ref_to_value*/ hshValues(o_5388_aHashMap, (createFuncType)(o_5338/*.*/), (destrFuncType)(o_5339/*.*/)))); } /* line 1 "no_file" */ /* 3138 */ typedef genericType t_172/*t_172_lengthToStriNumHash*/; /* 3139 */ /* 3140 */ /* 3141 */ /* 3142 */ /* objRefType/t_19_reference */ intfunctype o_5389/*.*/=(intfunctype)(&genericCreate); /* 3143 */ /* objRefType/t_19_reference */ intfunctype o_5390/*.*/=(intfunctype)(&genericDestr); /* 3144 */ /* objRefType/t_19_reference */ intfunctype o_5391/*.*/=(intfunctype)(&genericCpy); /* 3145 */ /* objRefType/t_19_reference */ intfunctype o_5392/*.*/=(intfunctype)(&intCmpGeneric); /* 3146 */ static genericType generic_create_27 (const genericType b) { rtlObjectType result; result.value.arrayValue=create_27(((const_rtlObjectType *) &b)->value.arrayValue); return result.value.genericValue; } /* objRefType/t_19_reference */ intfunctype o_5393/*.*/=(intfunctype)(&generic_create_27); /* 3147 */ static void generic_destr_27 (const genericType b) { destr_27(((const_rtlObjectType *) &b)->value.arrayValue); } /* objRefType/t_19_reference */ intfunctype o_5394/*.*/=(intfunctype)(&generic_destr_27); /* 3148 */ /* line 64 "../lib/array.s7i" */ static void cpy_27 (arrayType/*t_27_TEST_1*/ *a, arrayType/*t_27_TEST_1*/ b) /* line 64 "../lib/array.s7i" */ { /* line 64 "../lib/array.s7i" */ memSizeType i; /* line 64 "../lib/array.s7i" */ memSizeType size_a = (uintType)((*a)->max_position - (*a)->min_position + 1); /* line 64 "../lib/array.s7i" */ memSizeType size_b = (uintType)(b->max_position - b->min_position + 1); /* line 64 "../lib/array.s7i" */ memSizeType size; /* line 64 "../lib/array.s7i" */ (*a)->min_position = b->min_position; /* line 64 "../lib/array.s7i" */ (*a)->max_position = b->max_position; /* line 64 "../lib/array.s7i" */ if (size_a == size_b) { /* line 64 "../lib/array.s7i" */ size = size_a; /* line 64 "../lib/array.s7i" */ } else { /* line 64 "../lib/array.s7i" */ if (size_a < size_b) { /* line 64 "../lib/array.s7i" */ *a=(arrayType/*t_27_TEST_1*/)(arrRealloc((arrayType)(*a), size_a, size_b)); size = size_a; /* line 64 "../lib/array.s7i" */ for (i = size_a; i < size_b; i++) { /* line 64 "../lib/array.s7i" */ (*a)->arr[i].value.intValue=b->arr[i].value.intValue; /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ } else /* size_a > size_b */ { /* line 64 "../lib/array.s7i" */ size = size_b; /* line 64 "../lib/array.s7i" */ for (i = size_b; i < size_a; i++) { /* line 64 "../lib/array.s7i" */ /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ *a=(arrayType/*t_27_TEST_1*/)(arrRealloc((arrayType)(*a), size_a, size_b)); /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 64 "../lib/array.s7i" */ (*a)->arr[i].value.intValue=b->arr[i].value.intValue; /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ } /* line 1 "no_file" */ static void generic_cpy_27 (genericType *a, const genericType b) { cpy_27((arrayType/*t_27_TEST_1*/ *)(&(((const_rtlObjectType *) a)->value.arrayValue)), (arrayType/*t_27_TEST_1*/)(((const_rtlObjectType *) &b)->value.arrayValue)); } /* objRefType/t_19_reference */ intfunctype o_5395/*.*/=(intfunctype)(&generic_cpy_27); /* 3149 */ /* 3150 */ /* 3151 */ /* 3152 */ typedef genericType t_173/*t_173_*ANONYM_TYPE**/; /* 3153 */ typedef genericType t_174/*t_174_*ANONYM_TYPE**/; /* 3154 */ /* 3155 */ /* 3156 */ /* 3157 */ /* ACTION ARR_GEN for type arrayType/t_174_*ANONYM_TYPE* element is arrayType/t_27_TEST_1 */ /* 3158 */ /* 3159 */ /* 3160 */ /* 3161 */ /* 3162 */ /* 3163 */ /* ACTION ARR_IDX for type arrayType/t_173_*ANONYM_TYPE* element is arrayType/t_27_TEST_1 */ /* 3164 */ /* ACTION ARR_IDX for type arrayType/t_173_*ANONYM_TYPE* element is arrayType/t_27_TEST_1 */ /* 3165 */ /* line 163 "../lib/array.s7i" */ static arrayType times_173 (intType n, const const_arrayType/*t_27_TEST_1*/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.arrayValue=create_27(b); /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 3166 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_173_*ANONYM_TYPE**/ create_173 (const_arrayType/*t_173_*ANONYM_TYPE**/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_173_*ANONYM_TYPE**/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_173_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.arrayValue=create_27(b->arr[i].value.arrayValue); /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_173 (const_arrayType/*t_173_*ANONYM_TYPE**/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ destr_27(b->arr[i].value.arrayValue); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_174 (const_arrayType/*t_174_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ destr_27(b->arr[i].value.arrayValue); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_174_*ANONYM_TYPE**/ create_174 (const_arrayType/*t_174_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_174_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_174_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.arrayValue=create_27(b->arr[i].value.arrayValue); /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_173_*ANONYM_TYPE**/ o_5396_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_5397_indexRange, const const_arrayType/*t_27_TEST_1*/ value_o_5398_element) { /* line 183 "../lib/array.s7i" */ const_arrayType/*t_27_TEST_1*/ o_5398_element; /* line 186 "../lib/array.s7i" */ arrayType/*t_173_*ANONYM_TYPE**/ o_5399_anArray; /* line 183 "../lib/array.s7i" */ o_5398_element=create_27(value_o_5398_element); /* line 186 "../lib/array.s7i" */ o_5399_anArray=create_173(arr[132]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_5399_anArray; /* line 188 "../lib/array.s7i" */ o_5399_anArray=times_173(((((structType)(o_5397_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_5397_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_5398_element); /* line 188 "../lib/array.s7i" */ destr_173(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_5399_anArray; /* line 189 "../lib/array.s7i" */ o_5399_anArray=arrArrlit2(((structType)(o_5397_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_174(/*arrConv()*/o_5399_anArray)); /* line 189 "../lib/array.s7i" */ destr_173(old_array); } /* line 183 "../lib/array.s7i" */ destr_27(o_5398_element); return o_5399_anArray; } /* line 1 "no_file" */ /* 3167 */ /* declare inline o_5400_for*/ /* declare inline o_5401_for*/ /* declare inline o_5402_for*/ /* declare inline o_5403_for*/ /* declare inline o_5404_for*/ /* declare inline o_5405_for*/ /* declare inline o_5406_for*/ /* declare inline o_5407_for*/ /* declare inline o_5408_for*/ /* line 329 "../lib/array.s7i" */ static arrayType/*t_27_TEST_1*/ o_5409_rand (const const_arrayType/*t_173_*ANONYM_TYPE**/ o_5410_arr) { /* line 330 "../lib/array.s7i" */ arrayType/*t_27_TEST_1*/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(arrayType/*t_27_TEST_1*/)((/*ref_to_value*/ (o_5410_arr)->arr[idx_1=intRand((o_5410_arr)->min_position, (o_5410_arr)->max_position),(idxChk(idx_1 < (o_5410_arr)->min_position || idx_1 > (o_5410_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_5410_arr)->min_position)].value.arrayValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 3168 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_5411_insert (arrayType/*t_173_*ANONYM_TYPE**/ *const o_5412_arr, const intType/*t_14_integer*/ o_5413_index, const const_arrayType/*t_27_TEST_1*/ value_o_5414_element) { /* line 332 "../lib/array.s7i" */ const_arrayType/*t_27_TEST_1*/ o_5414_element; /* line 332 "../lib/array.s7i" */ o_5414_element=create_27(value_o_5414_element); /* line 334 "../lib/array.s7i" */ if (((o_5413_index) >= ((*o_5412_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_5413_index) <= (((*o_5412_arr)->max_position)+1))) { { /* line 335 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 335 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_5412_arr; /* line 335 "../lib/array.s7i" */ *o_5412_arr=arrCat(arrCat((tmp_4=arrHead(*o_5412_arr, (o_5413_index)-1), create_173(tmp_4)), arrBaselit((genericType)(create_27(o_5414_element)))), (tmp_7=arrTail(*o_5412_arr, o_5413_index), create_173(tmp_7))); /* line 335 "../lib/array.s7i" */ destr_173(old_array); } /* line 335 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 335 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } /* line 332 "../lib/array.s7i" */ destr_27(o_5414_element); } /* line 1 "no_file" */ /* 3169 */ /* line 344 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5415/*=*/ (const const_arrayType/*t_173_*ANONYM_TYPE**/ o_5416_arr1, const const_arrayType/*t_173_*ANONYM_TYPE**/ o_5417_arr2) { /* line 346 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_5418_isEqual=o_25_FALSE; /* line 348 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5419_number=1; /* line 350 "../lib/array.s7i" */ if ((((o_5416_arr1)->min_position) == ((o_5417_arr2)->min_position)) && /* line 350 "../lib/array.s7i" */ (((o_5416_arr1)->max_position) == ((o_5417_arr2)->max_position))) { /* line 351 "../lib/array.s7i" */ o_5418_isEqual=o_26_TRUE; /* line 352 "../lib/array.s7i" */ o_5419_number=(o_5416_arr1)->min_position; /* line 353 "../lib/array.s7i" */ while (((o_5419_number) <= ((o_5416_arr1)->max_position)) && /* line 353 "../lib/array.s7i" */ (o_5418_isEqual)) { /* line 354 "../lib/array.s7i" */ o_5418_isEqual=o_262/*=*/((o_5416_arr1)->arr[(idxChk((o_5419_number) < (o_5416_arr1)->min_position || (o_5419_number) > (o_5416_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5419_number)-(o_5416_arr1)->min_position)].value.arrayValue, (o_5417_arr2)->arr[(idxChk((o_5419_number) < (o_5417_arr2)->min_position || (o_5419_number) > (o_5417_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5419_number)-(o_5417_arr2)->min_position)].value.arrayValue); /* line 355 "../lib/array.s7i" */ ++(o_5419_number); } } return o_5418_isEqual; } /* line 1 "no_file" */ /* 3170 */ /* line 360 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5420/*<>*/ (const const_arrayType/*t_173_*ANONYM_TYPE**/ o_5421_arr1, const const_arrayType/*t_173_*ANONYM_TYPE**/ o_5422_arr2) { /* line 362 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_5423_isNotEqual=o_26_TRUE; /* line 364 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5424_number=1; /* line 366 "../lib/array.s7i" */ if ((((o_5421_arr1)->min_position) == ((o_5422_arr2)->min_position)) && /* line 366 "../lib/array.s7i" */ (((o_5421_arr1)->max_position) == ((o_5422_arr2)->max_position))) { /* line 367 "../lib/array.s7i" */ o_5423_isNotEqual=o_25_FALSE; /* line 368 "../lib/array.s7i" */ o_5424_number=(o_5421_arr1)->min_position; /* line 369 "../lib/array.s7i" */ while (((o_5424_number) <= ((o_5421_arr1)->max_position)) && /* line 369 "../lib/array.s7i" */ (!(o_5423_isNotEqual))) { /* line 370 "../lib/array.s7i" */ o_5423_isNotEqual=o_267/*<>*/((o_5421_arr1)->arr[(idxChk((o_5424_number) < (o_5421_arr1)->min_position || (o_5424_number) > (o_5421_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5424_number)-(o_5421_arr1)->min_position)].value.arrayValue, (o_5422_arr2)->arr[(idxChk((o_5424_number) < (o_5422_arr2)->min_position || (o_5424_number) > (o_5422_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5424_number)-(o_5422_arr2)->min_position)].value.arrayValue); /* line 371 "../lib/array.s7i" */ ++(o_5424_number); } } return o_5423_isNotEqual; } /* line 1 "no_file" */ /* 3171 */ /* line 381 "../lib/array.s7i" */ static void/*t_1_void*/ o_5425_insert (arrayType/*t_173_*ANONYM_TYPE**/ *const o_5426_arr, const const_arrayType/*t_27_TEST_1*/ value_o_5427_element) { /* line 381 "../lib/array.s7i" */ const_arrayType/*t_27_TEST_1*/ o_5427_element; /* line 383 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5428_number=1; /* line 381 "../lib/array.s7i" */ o_5427_element=create_27(value_o_5427_element); /* line 385 "../lib/array.s7i" */ o_5428_number=(*o_5426_arr)->min_position; /* line 386 "../lib/array.s7i" */ while (((o_5428_number) <= ((*o_5426_arr)->max_position)) && /* line 386 "../lib/array.s7i" */ (o_282/*<*/((*o_5426_arr)->arr[(idxChk((o_5428_number) < (*o_5426_arr)->min_position || (o_5428_number) > (*o_5426_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5428_number)-(*o_5426_arr)->min_position)].value.arrayValue, o_5427_element))) { /* line 387 "../lib/array.s7i" */ ++(o_5428_number); } /* line 389 "../lib/array.s7i" */ if ((o_5428_number) > ((*o_5426_arr)->max_position)) { { { /* line 390 "../lib/array.s7i" */ arrayType old_array=*o_5426_arr; /* line 390 "../lib/array.s7i" */ *o_5426_arr=arrCat(create_173(*o_5426_arr), arrBaselit((genericType)(create_27(o_5427_element)))); /* line 390 "../lib/array.s7i" */ destr_173(old_array); } } } else /* line 391 "../lib/array.s7i" */ if (o_285/*>*/((*o_5426_arr)->arr[(idxChk((o_5428_number) < (*o_5426_arr)->min_position || (o_5428_number) > (*o_5426_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5428_number)-(*o_5426_arr)->min_position)].value.arrayValue, o_5427_element)) { { /* line 392 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 392 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 392 "../lib/array.s7i" */ arrayType old_array=*o_5426_arr; /* line 392 "../lib/array.s7i" */ *o_5426_arr=arrCat(arrCat((tmp_4=arrHead(*o_5426_arr, (o_5428_number)-1), create_173(tmp_4)), arrBaselit((genericType)(create_27(o_5427_element)))), (tmp_7=arrTail(*o_5426_arr, o_5428_number), create_173(tmp_7))); /* line 392 "../lib/array.s7i" */ destr_173(old_array); } /* line 392 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 392 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } /* line 381 "../lib/array.s7i" */ destr_27(o_5427_element); } /* line 1 "no_file" */ /* 3172 */ /* line 400 "../lib/array.s7i" */ static intType/*t_14_integer*/ o_5429_compare (const const_arrayType/*t_173_*ANONYM_TYPE**/ o_5430_arr1, const const_arrayType/*t_173_*ANONYM_TYPE**/ o_5431_arr2) { /* line 402 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5432_signumValue=0; /* line 404 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5433_idx1=0; /* line 405 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5434_idx2=0; /* line 407 "../lib/array.s7i" */ o_5433_idx1=(o_5430_arr1)->min_position; /* line 408 "../lib/array.s7i" */ o_5434_idx2=(o_5431_arr2)->min_position; /* line 409 "../lib/array.s7i" */ while (((o_5433_idx1) <= ((o_5430_arr1)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_5434_idx2) <= ((o_5431_arr2)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_276_compare((o_5430_arr1)->arr[(idxChk((o_5433_idx1) < (o_5430_arr1)->min_position || (o_5433_idx1) > (o_5430_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5433_idx1)-(o_5430_arr1)->min_position)].value.arrayValue, (o_5431_arr2)->arr[(idxChk((o_5434_idx2) < (o_5431_arr2)->min_position || (o_5434_idx2) > (o_5431_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5434_idx2)-(o_5431_arr2)->min_position)].value.arrayValue)) == (0L))) { /* line 410 "../lib/array.s7i" */ ++(o_5433_idx1); /* line 411 "../lib/array.s7i" */ ++(o_5434_idx2); } /* line 413 "../lib/array.s7i" */ if (((o_5433_idx1) <= ((o_5430_arr1)->max_position)) && /* line 413 "../lib/array.s7i" */ ((o_5434_idx2) <= ((o_5431_arr2)->max_position))) { /* line 414 "../lib/array.s7i" */ o_5432_signumValue=o_276_compare((o_5430_arr1)->arr[(idxChk((o_5433_idx1) < (o_5430_arr1)->min_position || (o_5433_idx1) > (o_5430_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5433_idx1)-(o_5430_arr1)->min_position)].value.arrayValue, (o_5431_arr2)->arr[(idxChk((o_5434_idx2) < (o_5431_arr2)->min_position || (o_5434_idx2) > (o_5431_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5434_idx2)-(o_5431_arr2)->min_position)].value.arrayValue); } else { /* line 416 "../lib/array.s7i" */ o_5432_signumValue=intCmp(((o_5430_arr1)->max_position - (o_5430_arr1)->min_position + 1), ((o_5431_arr2)->max_position - (o_5431_arr2)->min_position + 1)); } return o_5432_signumValue; } /* line 1 "no_file" */ /* 3173 */ /* line 420 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5435/*<*/ (const const_arrayType/*t_173_*ANONYM_TYPE**/ o_5436_arr1, const const_arrayType/*t_173_*ANONYM_TYPE**/ o_5437_arr2) { /* line 421 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_5429_compare(o_5436_arr1, o_5437_arr2)) < (0L))); } /* line 1 "no_file" */ /* 3174 */ /* line 423 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5438/*>*/ (const const_arrayType/*t_173_*ANONYM_TYPE**/ o_5439_arr1, const const_arrayType/*t_173_*ANONYM_TYPE**/ o_5440_arr2) { /* line 424 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_5429_compare(o_5439_arr1, o_5440_arr2)) > (0L))); } /* line 1 "no_file" */ /* 3175 */ /* line 426 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5441/*<=*/ (const const_arrayType/*t_173_*ANONYM_TYPE**/ o_5442_arr1, const const_arrayType/*t_173_*ANONYM_TYPE**/ o_5443_arr2) { /* line 427 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_5429_compare(o_5442_arr1, o_5443_arr2)) <= (0L))); } /* line 1 "no_file" */ /* 3176 */ /* line 429 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5444/*>=*/ (const const_arrayType/*t_173_*ANONYM_TYPE**/ o_5445_arr1, const const_arrayType/*t_173_*ANONYM_TYPE**/ o_5446_arr2) { /* line 430 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_5429_compare(o_5445_arr1, o_5446_arr2)) >= (0L))); } /* line 1 "no_file" */ /* 3177 */ static intType generic_cmp_27 (const genericType a, const genericType b) { return o_276_compare(((const_rtlObjectType *) &a)->value.arrayValue, ((const_rtlObjectType *) &b)->value.arrayValue); } /* objRefType/t_19_reference */ intfunctype o_5447/*.*/=(intfunctype)(&generic_cmp_27); /* 3178 */ /* line 436 "../lib/array.s7i" */ static arrayType/*t_173_*ANONYM_TYPE**/ o_5448_sort (const const_arrayType/*t_173_*ANONYM_TYPE**/ o_5449_arr_obj) { /* line 437 "../lib/array.s7i" */ return (arrayType/*t_173_*ANONYM_TYPE**/)((arrSort(create_173(o_5449_arr_obj), (compareType)(o_5447/*.*/)))); } /* line 1 "no_file" */ /* 3179 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5450/*::=*/ (const const_hashType/*t_172_lengthToStriNumHash*/ o_5451_dest, const const_hashType/*t_172_lengthToStriNumHash*/ o_5452_source) { /* hshCreate implemented with create_172 */ } /* line 1 "no_file" */ /* 3180 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5453_destroy (const const_hashType/*t_172_lengthToStriNumHash*/ o_5454_oldHash) { /* hshDestr implemented with destr_172 */ } /* line 1 "no_file" */ /* 3181 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5455/*:=*/ (hashType/*t_172_lengthToStriNumHash*/ *const o_5456_dest, const const_hashType/*t_172_lengthToStriNumHash*/ o_5457_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_5456_dest), o_5457_source, (createFuncType)(o_5389/*.*/), (destrFuncType)(o_5390/*.*/), (createFuncType)(o_5393/*.*/), (destrFuncType)(o_5394/*.*/)); } /* line 1 "no_file" */ /* 3182 */ typedef genericType t_175/*t_175_*ANONYM_TYPE**/; /* 3183 */ /* 3184 */ /* 3185 */ /* 3186 */ /* 3187 */ /* objRefType/t_175_*ANONYM_TYPE* */ objRefType o_5458/*.*/=(objRefType)(NULL); /* 3188 */ /* objRefType/t_175_*ANONYM_TYPE* */ objRefType o_5459/*.*/=(objRefType)(NULL); /* 3189 */ hashType/*t_172_lengthToStriNumHash*/ o_5460/*.*/; /* 3190 */ hashType/*t_172_lengthToStriNumHash*/ o_5461/*.*/; /* 3191 */ /* line 149 "../lib/hash.s7i" */ static arrayType/*t_27_TEST_1*/ o_5462/*[*/ (const const_hashType/*t_172_lengthToStriNumHash*/ o_5463_aHashMap, const intType/*t_14_integer*/ *const o_5464_aKey) { /* line 150 "../lib/hash.s7i" */ return (arrayType/*t_27_TEST_1*/)((/*ref_to_value*/ (arrayType/*t_27_TEST_1*/)(hshIdx(o_5463_aHashMap, (genericType)(*o_5464_aKey), (*o_5464_aKey), (compareType)(o_5392/*.*/))))); } /* line 1 "no_file" */ /* 3192 */ /* line 152 "../lib/hash.s7i" */ static arrayType/*t_27_TEST_1*/ /*varfunc*/ *o_5465/*[*/ (hashType/*t_172_lengthToStriNumHash*/ *const o_5466_aHashMap, const intType/*t_14_integer*/ *const o_5467_aKey) { /* line 153 "../lib/hash.s7i" */ return (arrayType/*t_27_TEST_1*/ *)(&(hshIdxAddr(*o_5466_aHashMap, (genericType)(*o_5467_aKey), (*o_5467_aKey), (compareType)(o_5392/*.*/))->value.arrayValue)); } /* line 1 "no_file" */ /* 3193 */ /* line 161 "../lib/hash.s7i" */ static arrayType/*t_27_TEST_1*/ o_5468/*[*/ (const const_hashType/*t_172_lengthToStriNumHash*/ o_5469_aHashMap, const intType/*t_14_integer*/ *const o_5470_aKey, const const_arrayType/*t_27_TEST_1*/ value_o_5471_defaultValue) { /* line 162 "../lib/hash.s7i" */ arrayType/*t_27_TEST_1*/ result; /* line 162 "../lib/hash.s7i" */ const_arrayType/*t_27_TEST_1*/ o_5471_defaultValue; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ o_5471_defaultValue=create_27(value_o_5471_defaultValue); /* line 162 "../lib/hash.s7i" */ result=(arrayType/*t_27_TEST_1*/)((/*ref_to_value*/ (addr_1=hshIdxAddr2(o_5469_aHashMap, (genericType)(*o_5470_aKey), (*o_5470_aKey), (compareType)(o_5392/*.*/)),addr_1!=NULL?addr_1->value.arrayValue:(o_5471_defaultValue)))); /* line 162 "../lib/hash.s7i" */ destr_27(o_5471_defaultValue); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 3194 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_5472_in (const intType/*t_14_integer*/ *const o_5473_aKey, const const_hashType/*t_172_lengthToStriNumHash*/ o_5474_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_5474_aHashMap, (genericType)(*o_5473_aKey), (*o_5473_aKey), (compareType)(o_5392/*.*/)))); } /* line 1 "no_file" */ /* 3195 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_5475_not (const intType/*t_14_integer*/ *const o_5476_aKey, const const_hashType/*t_172_lengthToStriNumHash*/ o_5477_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_5477_aHashMap, (genericType)(*o_5476_aKey), (*o_5476_aKey), (compareType)(o_5392/*.*/))))); } /* line 1 "no_file" */ /* 3196 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5478_incl (hashType/*t_172_lengthToStriNumHash*/ *const o_5479_aHashMap, const intType/*t_14_integer*/ *const o_5480_aKey, const const_arrayType/*t_27_TEST_1*/ value_o_5481_anElem) { /* line 189 "../lib/hash.s7i" */ const_arrayType/*t_27_TEST_1*/ o_5481_anElem; /* line 189 "../lib/hash.s7i" */ o_5481_anElem=create_27(value_o_5481_anElem); /* line 191 "../lib/hash.s7i" */ hshIncl(*o_5479_aHashMap, (genericType)(*o_5480_aKey), (genericType)(o_5481_anElem), (*o_5480_aKey), (compareType)(o_5392/*.*/), (createFuncType)(o_5389/*.*/), (createFuncType)(o_5393/*.*/), (copyFuncType)(o_5395/*.*/)); /* line 189 "../lib/hash.s7i" */ destr_27(o_5481_anElem); } /* line 1 "no_file" */ /* 3197 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5482_excl (hashType/*t_172_lengthToStriNumHash*/ *const o_5483_aHashMap, const intType/*t_14_integer*/ *const o_5484_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_5483_aHashMap, (genericType)(*o_5484_aKey), (*o_5484_aKey), (compareType)(o_5392/*.*/), (destrFuncType)(o_5390/*.*/), (destrFuncType)(o_5394/*.*/)); } /* line 1 "no_file" */ /* 3198 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5485/*@:=*/ (hashType/*t_172_lengthToStriNumHash*/ *const o_5486_aHashMap, const intType/*t_14_integer*/ *const o_5487_aKey, const const_arrayType/*t_27_TEST_1*/ value_o_5488_anElem) { /* line 210 "../lib/hash.s7i" */ const_arrayType/*t_27_TEST_1*/ o_5488_anElem; /* line 210 "../lib/hash.s7i" */ o_5488_anElem=create_27(value_o_5488_anElem); /* line 212 "../lib/hash.s7i" */ hshIncl(*o_5486_aHashMap, (genericType)(*o_5487_aKey), (genericType)(o_5488_anElem), (*o_5487_aKey), (compareType)(o_5392/*.*/), (createFuncType)(o_5389/*.*/), (createFuncType)(o_5393/*.*/), (copyFuncType)(o_5395/*.*/)); /* line 210 "../lib/hash.s7i" */ destr_27(o_5488_anElem); } /* line 1 "no_file" */ /* 3199 */ /* line 216 "../lib/hash.s7i" */ static arrayType/*t_27_TEST_1*/ o_5489_update (hashType/*t_172_lengthToStriNumHash*/ *const o_5490_aHashMap, const intType/*t_14_integer*/ *const o_5491_aKey, const const_arrayType/*t_27_TEST_1*/ value_o_5492_anElem) { /* line 217 "../lib/hash.s7i" */ arrayType/*t_27_TEST_1*/ result; /* line 217 "../lib/hash.s7i" */ const_arrayType/*t_27_TEST_1*/ o_5492_anElem; /* line 217 "../lib/hash.s7i" */ o_5492_anElem=create_27(value_o_5492_anElem); /* line 217 "../lib/hash.s7i" */ result=(arrayType/*t_27_TEST_1*/)(((arrayType/*t_27_TEST_1*/)(hshUpdate(*o_5490_aHashMap, (genericType)(*o_5491_aKey), (genericType)(create_27(o_5492_anElem)), (*o_5491_aKey), (compareType)(o_5392/*.*/), (createFuncType)(o_5389/*.*/), (createFuncType)(o_5393/*.*/))))); /* line 217 "../lib/hash.s7i" */ destr_27(o_5492_anElem); /* line 217 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 3200 */ /* declare inline o_5493_for*/ /* declare inline o_5494_for*/ /* declare inline o_5495_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_27_TEST_1*/ o_5496_keys (const const_hashType/*t_172_lengthToStriNumHash*/ o_5497_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_27_TEST_1*/)((hshKeys(o_5497_aHashMap, (createFuncType)(o_5389/*.*/), (destrFuncType)(o_5390/*.*/)))); } /* line 1 "no_file" */ /* 3201 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_173_*ANONYM_TYPE**/ o_5498_values (const const_hashType/*t_172_lengthToStriNumHash*/ o_5499_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_173_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_5499_aHashMap, (createFuncType)(o_5393/*.*/), (destrFuncType)(o_5394/*.*/)))); } /* line 1 "no_file" */ /* 3202 */ /* line 61 "../lib/hash.s7i" */ static void destr_172 (const_hashType/*t_172_lengthToStriNumHash*/ b) /* line 61 "../lib/hash.s7i" */ { /* line 61 "../lib/hash.s7i" */ hshDestr(b, (destrFuncType)(o_5390/*.*/), (destrFuncType)(o_5394/*.*/)); /* line 61 "../lib/hash.s7i" */ } /* line 1 "no_file" */ /* line 283 "../lib/hash.s7i" */ static hashType/*t_172_lengthToStriNumHash*/ o_5500_flip (const const_hashType/*t_171_bigint_bstri_hash*/ o_5501_aHashMap) { /* line 285 "../lib/hash.s7i" */ hashType/*t_172_lengthToStriNumHash*/ o_5502_inverseHash; /* line 287 "../lib/hash.s7i" */ intType/*t_14_integer*/ o_5503_aKey=0; /* line 288 "../lib/hash.s7i" */ intType/*t_14_integer*/ o_5504_aValue=0; /* line 285 "../lib/hash.s7i" */ o_5502_inverseHash=hshEmpty(); /* inline proc o_5384_for */ { /* inline params */ /* line 290 "../lib/hash.s7i" */ intType/*t_14_integer*/ *const o_5505_forVar=&(o_5504_aValue); /* line 290 "../lib/hash.s7i" */ intType/*t_14_integer*/ *const o_5506_keyVar=&(o_5503_aKey); /* line 290 "../lib/hash.s7i" */ const const_hashType/*t_171_bigint_bstri_hash*/ o_5507_aHashMap=o_5501_aHashMap; /* line 290 "../lib/hash.s7i" */ /* push proc param o_5508_statements */ /* line 290 "../lib/hash.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 258 "../lib/hash.s7i" */ const_hashType hash_1=o_5507_aHashMap; /* line 258 "../lib/hash.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 258 "../lib/hash.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 258 "../lib/hash.s7i" */ const_hashElemType helem_4; /* line 258 "../lib/hash.s7i" */ hashElemListType stack_5=NULL; /* line 258 "../lib/hash.s7i" */ while (counter_2 > 0) { /* line 258 "../lib/hash.s7i" */ helem_4=*table_elem_3; /* line 258 "../lib/hash.s7i" */ while (helem_4 != NULL) { /* line 258 "../lib/hash.s7i" */ if (helem_4->next_greater != NULL) { /* line 258 "../lib/hash.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ (*o_5505_forVar)=helem_4->data.value.intValue; /* line 258 "../lib/hash.s7i" */ (*o_5506_keyVar)=helem_4->key.value.intValue; /* closure o_5508_statements*/ { /* line 291 "../lib/hash.s7i" */ if (o_5472_in(&(o_5504_aValue), o_5502_inverseHash)) { /* line 292 "../lib/hash.s7i" */ arrPush(&(*o_5465/*[*/(&(o_5502_inverseHash), &(o_5504_aValue))), (genericType)(o_5503_aKey)); } else { { /* line 294 "../lib/hash.s7i" */ arrayType/*t_27_TEST_1*/ tmp_1 = (arrayType/*t_27_TEST_1*/)(NULL); /* line 294 "../lib/hash.s7i" */ o_5485/*@:=*/(&(o_5502_inverseHash), &(o_5504_aValue), (tmp_1=(arrayType/*t_27_TEST_1*/)(arrBaselit((genericType)(o_5503_aKey))))); /* line 294 "../lib/hash.s7i" */ destr_27(tmp_1); } } } /* closure o_5508_statements*/ /* line 258 "../lib/hash.s7i" */ if (helem_4->next_less != NULL) { /* line 258 "../lib/hash.s7i" */ helem_4=helem_4->next_less; /* line 258 "../lib/hash.s7i" */ } else { /* line 258 "../lib/hash.s7i" */ pop_stack(stack_5, helem_4); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ counter_2--; /* line 258 "../lib/hash.s7i" */ table_elem_3++; /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ } /* hsh_for */ /* pop proc param o_5508_statements */ } /* inline proc o_5384_for */ return o_5502_inverseHash; } /* line 1 "no_file" */ /* 3203 */ /* line 58 "../lib/hash.s7i" */ static hashType/*t_166_bigint_table_hash*/ create_166 (const_hashType/*t_166_bigint_table_hash*/ b) /* line 58 "../lib/hash.s7i" */ { /* line 58 "../lib/hash.s7i" */ return hshCreate(b, (createFuncType)(o_5159/*.*/), (destrFuncType)(o_5160/*.*/), (createFuncType)(o_5163/*.*/), (destrFuncType)(o_5164/*.*/)); /* line 58 "../lib/hash.s7i" */ } /* line 1 "no_file" */ hashType/*t_166_bigint_table_hash*/ o_5509_bigint_const_table; /* 3204 */ /* line 58 "../lib/hash.s7i" */ static hashType/*t_171_bigint_bstri_hash*/ create_171 (const_hashType/*t_171_bigint_bstri_hash*/ b) /* line 58 "../lib/hash.s7i" */ { /* line 58 "../lib/hash.s7i" */ return hshCreate(b, (createFuncType)(o_5334/*.*/), (destrFuncType)(o_5335/*.*/), (createFuncType)(o_5338/*.*/), (destrFuncType)(o_5339/*.*/)); /* line 58 "../lib/hash.s7i" */ } /* line 1 "no_file" */ hashType/*t_171_bigint_bstri_hash*/ o_5510_bigint_bstri_table; /* 3205 */ typedef genericType t_176/*t_176_stri_table_hash*/; /* 3206 */ /* 3207 */ /* 3208 */ /* 3209 */ /* 3210 */ /* objRefType/t_19_reference */ intfunctype o_5511/*.*/=(intfunctype)(&strCreateGeneric); /* 3211 */ /* objRefType/t_19_reference */ intfunctype o_5512/*.*/=(intfunctype)(&strDestrGeneric); /* 3212 */ /* objRefType/t_19_reference */ intfunctype o_5513/*.*/=(intfunctype)(&strCpyGeneric); /* 3213 */ /* objRefType/t_19_reference */ intfunctype o_5514/*.*/=(intfunctype)(&strCmpGeneric); /* 3214 */ /* objRefType/t_19_reference */ intfunctype o_5515/*.*/=(intfunctype)(&genericCreate); /* 3215 */ /* objRefType/t_19_reference */ intfunctype o_5516/*.*/=(intfunctype)(&genericDestr); /* 3216 */ /* objRefType/t_19_reference */ intfunctype o_5517/*.*/=(intfunctype)(&genericCpy); /* 3217 */ /* 3218 */ /* 3219 */ /* 3220 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5518/*::=*/ (const const_hashType/*t_176_stri_table_hash*/ o_5519_dest, const const_hashType/*t_176_stri_table_hash*/ o_5520_source) { /* hshCreate implemented with create_176 */ } /* line 1 "no_file" */ /* 3221 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5521_destroy (const const_hashType/*t_176_stri_table_hash*/ o_5522_oldHash) { /* hshDestr implemented with destr_176 */ } /* line 1 "no_file" */ /* 3222 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5523/*:=*/ (hashType/*t_176_stri_table_hash*/ *const o_5524_dest, const const_hashType/*t_176_stri_table_hash*/ o_5525_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_5524_dest), o_5525_source, (createFuncType)(o_5511/*.*/), (destrFuncType)(o_5512/*.*/), (createFuncType)(o_5515/*.*/), (destrFuncType)(o_5516/*.*/)); } /* line 1 "no_file" */ /* 3223 */ hashType/*t_176_stri_table_hash*/ o_5526/*.*/; /* 3224 */ hashType/*t_176_stri_table_hash*/ o_5527/*.*/; /* 3225 */ /* line 149 "../lib/hash.s7i" */ static intType/*t_14_integer*/ o_5528/*[*/ (const const_hashType/*t_176_stri_table_hash*/ o_5529_aHashMap, const const_striType/*t_15_string*/ o_5530_aKey) { /* line 150 "../lib/hash.s7i" */ return (intType/*t_14_integer*/)(((intType/*t_14_integer*/)(hshIdx(o_5529_aHashMap, (genericType)(o_5530_aKey), ((o_5530_aKey)->size==0 ? 0 : ((o_5530_aKey)->mem[0]<<5 ^ (o_5530_aKey)->mem[(o_5530_aKey)->size>>1]<<3 ^ (o_5530_aKey)->mem[(o_5530_aKey)->size-1]<<1 ^ (o_5530_aKey)->size)), (compareType)(o_5514/*.*/))))); } /* line 1 "no_file" */ /* 3226 */ /* line 152 "../lib/hash.s7i" */ static intType/*t_14_integer*/ /*varfunc*/ *o_5531/*[*/ (hashType/*t_176_stri_table_hash*/ *const o_5532_aHashMap, const const_striType/*t_15_string*/ o_5533_aKey) { /* line 153 "../lib/hash.s7i" */ return (intType/*t_14_integer*/ *)(&(hshIdxAddr(*o_5532_aHashMap, (genericType)(o_5533_aKey), ((o_5533_aKey)->size==0 ? 0 : ((o_5533_aKey)->mem[0]<<5 ^ (o_5533_aKey)->mem[(o_5533_aKey)->size>>1]<<3 ^ (o_5533_aKey)->mem[(o_5533_aKey)->size-1]<<1 ^ (o_5533_aKey)->size)), (compareType)(o_5514/*.*/))->value.intValue)); } /* line 1 "no_file" */ /* 3227 */ /* line 161 "../lib/hash.s7i" */ static intType/*t_14_integer*/ o_5534/*[*/ (const const_hashType/*t_176_stri_table_hash*/ o_5535_aHashMap, const const_striType/*t_15_string*/ o_5536_aKey, const intType/*t_14_integer*/ o_5537_defaultValue) { /* line 162 "../lib/hash.s7i" */ intType/*t_14_integer*/ result; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ result=(intType/*t_14_integer*/)(((addr_1=hshIdxAddr2(o_5535_aHashMap, (genericType)(o_5536_aKey), ((o_5536_aKey)->size==0 ? 0 : ((o_5536_aKey)->mem[0]<<5 ^ (o_5536_aKey)->mem[(o_5536_aKey)->size>>1]<<3 ^ (o_5536_aKey)->mem[(o_5536_aKey)->size-1]<<1 ^ (o_5536_aKey)->size)), (compareType)(o_5514/*.*/)),addr_1!=NULL?addr_1->value.intValue:(o_5537_defaultValue)))); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 3228 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_5538_in (const const_striType/*t_15_string*/ o_5539_aKey, const const_hashType/*t_176_stri_table_hash*/ o_5540_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_5540_aHashMap, (genericType)(o_5539_aKey), ((o_5539_aKey)->size==0 ? 0 : ((o_5539_aKey)->mem[0]<<5 ^ (o_5539_aKey)->mem[(o_5539_aKey)->size>>1]<<3 ^ (o_5539_aKey)->mem[(o_5539_aKey)->size-1]<<1 ^ (o_5539_aKey)->size)), (compareType)(o_5514/*.*/)))); } /* line 1 "no_file" */ /* 3229 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_5541_not (const const_striType/*t_15_string*/ o_5542_aKey, const const_hashType/*t_176_stri_table_hash*/ o_5543_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_5543_aHashMap, (genericType)(o_5542_aKey), ((o_5542_aKey)->size==0 ? 0 : ((o_5542_aKey)->mem[0]<<5 ^ (o_5542_aKey)->mem[(o_5542_aKey)->size>>1]<<3 ^ (o_5542_aKey)->mem[(o_5542_aKey)->size-1]<<1 ^ (o_5542_aKey)->size)), (compareType)(o_5514/*.*/))))); } /* line 1 "no_file" */ /* 3230 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5544_incl (hashType/*t_176_stri_table_hash*/ *const o_5545_aHashMap, const const_striType/*t_15_string*/ o_5546_aKey, const intType/*t_14_integer*/ o_5547_anElem) { /* line 191 "../lib/hash.s7i" */ hshIncl(*o_5545_aHashMap, (genericType)(o_5546_aKey), (genericType)(o_5547_anElem), ((o_5546_aKey)->size==0 ? 0 : ((o_5546_aKey)->mem[0]<<5 ^ (o_5546_aKey)->mem[(o_5546_aKey)->size>>1]<<3 ^ (o_5546_aKey)->mem[(o_5546_aKey)->size-1]<<1 ^ (o_5546_aKey)->size)), (compareType)(o_5514/*.*/), (createFuncType)(o_5511/*.*/), (createFuncType)(o_5515/*.*/), (copyFuncType)(o_5517/*.*/)); } /* line 1 "no_file" */ /* 3231 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5548_excl (hashType/*t_176_stri_table_hash*/ *const o_5549_aHashMap, const const_striType/*t_15_string*/ o_5550_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_5549_aHashMap, (genericType)(o_5550_aKey), ((o_5550_aKey)->size==0 ? 0 : ((o_5550_aKey)->mem[0]<<5 ^ (o_5550_aKey)->mem[(o_5550_aKey)->size>>1]<<3 ^ (o_5550_aKey)->mem[(o_5550_aKey)->size-1]<<1 ^ (o_5550_aKey)->size)), (compareType)(o_5514/*.*/), (destrFuncType)(o_5512/*.*/), (destrFuncType)(o_5516/*.*/)); } /* line 1 "no_file" */ /* 3232 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5551/*@:=*/ (hashType/*t_176_stri_table_hash*/ *const o_5552_aHashMap, const const_striType/*t_15_string*/ o_5553_aKey, const intType/*t_14_integer*/ o_5554_anElem) { /* line 212 "../lib/hash.s7i" */ hshIncl(*o_5552_aHashMap, (genericType)(o_5553_aKey), (genericType)(o_5554_anElem), ((o_5553_aKey)->size==0 ? 0 : ((o_5553_aKey)->mem[0]<<5 ^ (o_5553_aKey)->mem[(o_5553_aKey)->size>>1]<<3 ^ (o_5553_aKey)->mem[(o_5553_aKey)->size-1]<<1 ^ (o_5553_aKey)->size)), (compareType)(o_5514/*.*/), (createFuncType)(o_5511/*.*/), (createFuncType)(o_5515/*.*/), (copyFuncType)(o_5517/*.*/)); } /* line 1 "no_file" */ /* 3233 */ /* line 216 "../lib/hash.s7i" */ static intType/*t_14_integer*/ o_5555_update (hashType/*t_176_stri_table_hash*/ *const o_5556_aHashMap, const const_striType/*t_15_string*/ o_5557_aKey, const intType/*t_14_integer*/ o_5558_anElem) { /* line 217 "../lib/hash.s7i" */ return (intType/*t_14_integer*/)(((intType/*t_14_integer*/)(hshUpdate(*o_5556_aHashMap, (genericType)(o_5557_aKey), (genericType)(o_5558_anElem), ((o_5557_aKey)->size==0 ? 0 : ((o_5557_aKey)->mem[0]<<5 ^ (o_5557_aKey)->mem[(o_5557_aKey)->size>>1]<<3 ^ (o_5557_aKey)->mem[(o_5557_aKey)->size-1]<<1 ^ (o_5557_aKey)->size)), (compareType)(o_5514/*.*/), (createFuncType)(o_5511/*.*/), (createFuncType)(o_5515/*.*/))))); } /* line 1 "no_file" */ /* 3234 */ /* declare inline o_5559_for*/ /* declare inline o_5560_for*/ /* declare inline o_5561_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_28_TEST_3*/ o_5562_keys (const const_hashType/*t_176_stri_table_hash*/ o_5563_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_28_TEST_3*/)((hshKeys(o_5563_aHashMap, (createFuncType)(o_5511/*.*/), (destrFuncType)(o_5512/*.*/)))); } /* line 1 "no_file" */ /* 3235 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_27_TEST_1*/ o_5564_values (const const_hashType/*t_176_stri_table_hash*/ o_5565_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_27_TEST_1*/)((/*ref_to_value*/ hshValues(o_5565_aHashMap, (createFuncType)(o_5515/*.*/), (destrFuncType)(o_5516/*.*/)))); } /* line 1 "no_file" */ /* 3236 */ typedef genericType t_177/*t_177_stri_index_hash*/; /* 3237 */ /* 3238 */ /* 3239 */ /* 3240 */ /* objRefType/t_19_reference */ intfunctype o_5566/*.*/=(intfunctype)(&genericCreate); /* 3241 */ /* objRefType/t_19_reference */ intfunctype o_5567/*.*/=(intfunctype)(&genericDestr); /* 3242 */ /* objRefType/t_19_reference */ intfunctype o_5568/*.*/=(intfunctype)(&genericCpy); /* 3243 */ /* objRefType/t_19_reference */ intfunctype o_5569/*.*/=(intfunctype)(&intCmpGeneric); /* 3244 */ static genericType generic_create_28 (const genericType b) { rtlObjectType result; result.value.arrayValue=create_28(((const_rtlObjectType *) &b)->value.arrayValue); return result.value.genericValue; } /* objRefType/t_19_reference */ intfunctype o_5570/*.*/=(intfunctype)(&generic_create_28); /* 3245 */ static void generic_destr_28 (const genericType b) { destr_28(((const_rtlObjectType *) &b)->value.arrayValue); } /* objRefType/t_19_reference */ intfunctype o_5571/*.*/=(intfunctype)(&generic_destr_28); /* 3246 */ /* line 64 "../lib/array.s7i" */ static void cpy_28 (arrayType/*t_28_TEST_3*/ *a, arrayType/*t_28_TEST_3*/ b) /* line 64 "../lib/array.s7i" */ { /* line 64 "../lib/array.s7i" */ memSizeType i; /* line 64 "../lib/array.s7i" */ memSizeType size_a = (uintType)((*a)->max_position - (*a)->min_position + 1); /* line 64 "../lib/array.s7i" */ memSizeType size_b = (uintType)(b->max_position - b->min_position + 1); /* line 64 "../lib/array.s7i" */ memSizeType size; /* line 64 "../lib/array.s7i" */ (*a)->min_position = b->min_position; /* line 64 "../lib/array.s7i" */ (*a)->max_position = b->max_position; /* line 64 "../lib/array.s7i" */ if (size_a == size_b) { /* line 64 "../lib/array.s7i" */ size = size_a; /* line 64 "../lib/array.s7i" */ } else { /* line 64 "../lib/array.s7i" */ if (size_a < size_b) { /* line 64 "../lib/array.s7i" */ *a=(arrayType/*t_28_TEST_3*/)(arrRealloc((arrayType)(*a), size_a, size_b)); size = size_a; /* line 64 "../lib/array.s7i" */ for (i = size_a; i < size_b; i++) { /* line 64 "../lib/array.s7i" */ (*a)->arr[i].value.striValue=strCreate(b->arr[i].value.striValue); /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ } else /* size_a > size_b */ { /* line 64 "../lib/array.s7i" */ size = size_b; /* line 64 "../lib/array.s7i" */ for (i = size_b; i < size_a; i++) { /* line 64 "../lib/array.s7i" */ strDestr((*a)->arr[i].value.striValue); /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ *a=(arrayType/*t_28_TEST_3*/)(arrRealloc((arrayType)(*a), size_a, size_b)); /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 64 "../lib/array.s7i" */ strCopy(&((*a)->arr[i].value.striValue), b->arr[i].value.striValue); /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ } /* line 1 "no_file" */ static void generic_cpy_28 (genericType *a, const genericType b) { cpy_28((arrayType/*t_28_TEST_3*/ *)(&(((const_rtlObjectType *) a)->value.arrayValue)), (arrayType/*t_28_TEST_3*/)(((const_rtlObjectType *) &b)->value.arrayValue)); } /* objRefType/t_19_reference */ intfunctype o_5572/*.*/=(intfunctype)(&generic_cpy_28); /* 3247 */ /* 3248 */ /* 3249 */ /* 3250 */ typedef genericType t_178/*t_178_*ANONYM_TYPE**/; /* 3251 */ typedef genericType t_179/*t_179_*ANONYM_TYPE**/; /* 3252 */ /* 3253 */ /* 3254 */ /* 3255 */ /* ACTION ARR_GEN for type arrayType/t_179_*ANONYM_TYPE* element is arrayType/t_28_TEST_3 */ /* 3256 */ /* 3257 */ /* 3258 */ /* 3259 */ /* 3260 */ /* 3261 */ /* ACTION ARR_IDX for type arrayType/t_178_*ANONYM_TYPE* element is arrayType/t_28_TEST_3 */ /* 3262 */ /* ACTION ARR_IDX for type arrayType/t_178_*ANONYM_TYPE* element is arrayType/t_28_TEST_3 */ /* 3263 */ /* line 163 "../lib/array.s7i" */ static arrayType times_178 (intType n, const const_arrayType/*t_28_TEST_3*/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.arrayValue=create_28(b); /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 3264 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_178_*ANONYM_TYPE**/ create_178 (const_arrayType/*t_178_*ANONYM_TYPE**/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_178_*ANONYM_TYPE**/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_178_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.arrayValue=create_28(b->arr[i].value.arrayValue); /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_178 (const_arrayType/*t_178_*ANONYM_TYPE**/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ destr_28(b->arr[i].value.arrayValue); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_179 (const_arrayType/*t_179_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ destr_28(b->arr[i].value.arrayValue); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_179_*ANONYM_TYPE**/ create_179 (const_arrayType/*t_179_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_179_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_179_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.arrayValue=create_28(b->arr[i].value.arrayValue); /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_178_*ANONYM_TYPE**/ o_5573_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_5574_indexRange, const const_arrayType/*t_28_TEST_3*/ value_o_5575_element) { /* line 183 "../lib/array.s7i" */ const_arrayType/*t_28_TEST_3*/ o_5575_element; /* line 186 "../lib/array.s7i" */ arrayType/*t_178_*ANONYM_TYPE**/ o_5576_anArray; /* line 183 "../lib/array.s7i" */ o_5575_element=create_28(value_o_5575_element); /* line 186 "../lib/array.s7i" */ o_5576_anArray=create_178(arr[139]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_5576_anArray; /* line 188 "../lib/array.s7i" */ o_5576_anArray=times_178(((((structType)(o_5574_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_5574_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_5575_element); /* line 188 "../lib/array.s7i" */ destr_178(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_5576_anArray; /* line 189 "../lib/array.s7i" */ o_5576_anArray=arrArrlit2(((structType)(o_5574_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_179(/*arrConv()*/o_5576_anArray)); /* line 189 "../lib/array.s7i" */ destr_178(old_array); } /* line 183 "../lib/array.s7i" */ destr_28(o_5575_element); return o_5576_anArray; } /* line 1 "no_file" */ /* 3265 */ /* declare inline o_5577_for*/ /* declare inline o_5578_for*/ /* declare inline o_5579_for*/ /* declare inline o_5580_for*/ /* declare inline o_5581_for*/ /* declare inline o_5582_for*/ /* declare inline o_5583_for*/ /* declare inline o_5584_for*/ /* declare inline o_5585_for*/ /* line 329 "../lib/array.s7i" */ static arrayType/*t_28_TEST_3*/ o_5586_rand (const const_arrayType/*t_178_*ANONYM_TYPE**/ o_5587_arr) { /* line 330 "../lib/array.s7i" */ arrayType/*t_28_TEST_3*/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(arrayType/*t_28_TEST_3*/)((/*ref_to_value*/ (o_5587_arr)->arr[idx_1=intRand((o_5587_arr)->min_position, (o_5587_arr)->max_position),(idxChk(idx_1 < (o_5587_arr)->min_position || idx_1 > (o_5587_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_5587_arr)->min_position)].value.arrayValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 3266 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_5588_insert (arrayType/*t_178_*ANONYM_TYPE**/ *const o_5589_arr, const intType/*t_14_integer*/ o_5590_index, const const_arrayType/*t_28_TEST_3*/ value_o_5591_element) { /* line 332 "../lib/array.s7i" */ const_arrayType/*t_28_TEST_3*/ o_5591_element; /* line 332 "../lib/array.s7i" */ o_5591_element=create_28(value_o_5591_element); /* line 334 "../lib/array.s7i" */ if (((o_5590_index) >= ((*o_5589_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_5590_index) <= (((*o_5589_arr)->max_position)+1))) { { /* line 335 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 335 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_5589_arr; /* line 335 "../lib/array.s7i" */ *o_5589_arr=arrCat(arrCat((tmp_4=arrHead(*o_5589_arr, (o_5590_index)-1), create_178(tmp_4)), arrBaselit((genericType)(create_28(o_5591_element)))), (tmp_7=arrTail(*o_5589_arr, o_5590_index), create_178(tmp_7))); /* line 335 "../lib/array.s7i" */ destr_178(old_array); } /* line 335 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 335 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } /* line 332 "../lib/array.s7i" */ destr_28(o_5591_element); } /* line 1 "no_file" */ /* 3267 */ /* line 344 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5592/*=*/ (const const_arrayType/*t_178_*ANONYM_TYPE**/ o_5593_arr1, const const_arrayType/*t_178_*ANONYM_TYPE**/ o_5594_arr2) { /* line 346 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_5595_isEqual=o_25_FALSE; /* line 348 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5596_number=1; /* line 350 "../lib/array.s7i" */ if ((((o_5593_arr1)->min_position) == ((o_5594_arr2)->min_position)) && /* line 350 "../lib/array.s7i" */ (((o_5593_arr1)->max_position) == ((o_5594_arr2)->max_position))) { /* line 351 "../lib/array.s7i" */ o_5595_isEqual=o_26_TRUE; /* line 352 "../lib/array.s7i" */ o_5596_number=(o_5593_arr1)->min_position; /* line 353 "../lib/array.s7i" */ while (((o_5596_number) <= ((o_5593_arr1)->max_position)) && /* line 353 "../lib/array.s7i" */ (o_5595_isEqual)) { /* line 354 "../lib/array.s7i" */ o_5595_isEqual=o_316/*=*/((o_5593_arr1)->arr[(idxChk((o_5596_number) < (o_5593_arr1)->min_position || (o_5596_number) > (o_5593_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5596_number)-(o_5593_arr1)->min_position)].value.arrayValue, (o_5594_arr2)->arr[(idxChk((o_5596_number) < (o_5594_arr2)->min_position || (o_5596_number) > (o_5594_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5596_number)-(o_5594_arr2)->min_position)].value.arrayValue); /* line 355 "../lib/array.s7i" */ ++(o_5596_number); } } return o_5595_isEqual; } /* line 1 "no_file" */ /* 3268 */ /* line 360 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5597/*<>*/ (const const_arrayType/*t_178_*ANONYM_TYPE**/ o_5598_arr1, const const_arrayType/*t_178_*ANONYM_TYPE**/ o_5599_arr2) { /* line 362 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_5600_isNotEqual=o_26_TRUE; /* line 364 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5601_number=1; /* line 366 "../lib/array.s7i" */ if ((((o_5598_arr1)->min_position) == ((o_5599_arr2)->min_position)) && /* line 366 "../lib/array.s7i" */ (((o_5598_arr1)->max_position) == ((o_5599_arr2)->max_position))) { /* line 367 "../lib/array.s7i" */ o_5600_isNotEqual=o_25_FALSE; /* line 368 "../lib/array.s7i" */ o_5601_number=(o_5598_arr1)->min_position; /* line 369 "../lib/array.s7i" */ while (((o_5601_number) <= ((o_5598_arr1)->max_position)) && /* line 369 "../lib/array.s7i" */ (!(o_5600_isNotEqual))) { /* line 370 "../lib/array.s7i" */ o_5600_isNotEqual=o_321/*<>*/((o_5598_arr1)->arr[(idxChk((o_5601_number) < (o_5598_arr1)->min_position || (o_5601_number) > (o_5598_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5601_number)-(o_5598_arr1)->min_position)].value.arrayValue, (o_5599_arr2)->arr[(idxChk((o_5601_number) < (o_5599_arr2)->min_position || (o_5601_number) > (o_5599_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5601_number)-(o_5599_arr2)->min_position)].value.arrayValue); /* line 371 "../lib/array.s7i" */ ++(o_5601_number); } } return o_5600_isNotEqual; } /* line 1 "no_file" */ /* 3269 */ /* line 381 "../lib/array.s7i" */ static void/*t_1_void*/ o_5602_insert (arrayType/*t_178_*ANONYM_TYPE**/ *const o_5603_arr, const const_arrayType/*t_28_TEST_3*/ value_o_5604_element) { /* line 381 "../lib/array.s7i" */ const_arrayType/*t_28_TEST_3*/ o_5604_element; /* line 383 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5605_number=1; /* line 381 "../lib/array.s7i" */ o_5604_element=create_28(value_o_5604_element); /* line 385 "../lib/array.s7i" */ o_5605_number=(*o_5603_arr)->min_position; /* line 386 "../lib/array.s7i" */ while (((o_5605_number) <= ((*o_5603_arr)->max_position)) && /* line 386 "../lib/array.s7i" */ (o_336/*<*/((*o_5603_arr)->arr[(idxChk((o_5605_number) < (*o_5603_arr)->min_position || (o_5605_number) > (*o_5603_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5605_number)-(*o_5603_arr)->min_position)].value.arrayValue, o_5604_element))) { /* line 387 "../lib/array.s7i" */ ++(o_5605_number); } /* line 389 "../lib/array.s7i" */ if ((o_5605_number) > ((*o_5603_arr)->max_position)) { { { /* line 390 "../lib/array.s7i" */ arrayType old_array=*o_5603_arr; /* line 390 "../lib/array.s7i" */ *o_5603_arr=arrCat(create_178(*o_5603_arr), arrBaselit((genericType)(create_28(o_5604_element)))); /* line 390 "../lib/array.s7i" */ destr_178(old_array); } } } else /* line 391 "../lib/array.s7i" */ if (o_339/*>*/((*o_5603_arr)->arr[(idxChk((o_5605_number) < (*o_5603_arr)->min_position || (o_5605_number) > (*o_5603_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5605_number)-(*o_5603_arr)->min_position)].value.arrayValue, o_5604_element)) { { /* line 392 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 392 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 392 "../lib/array.s7i" */ arrayType old_array=*o_5603_arr; /* line 392 "../lib/array.s7i" */ *o_5603_arr=arrCat(arrCat((tmp_4=arrHead(*o_5603_arr, (o_5605_number)-1), create_178(tmp_4)), arrBaselit((genericType)(create_28(o_5604_element)))), (tmp_7=arrTail(*o_5603_arr, o_5605_number), create_178(tmp_7))); /* line 392 "../lib/array.s7i" */ destr_178(old_array); } /* line 392 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 392 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } /* line 381 "../lib/array.s7i" */ destr_28(o_5604_element); } /* line 1 "no_file" */ /* 3270 */ /* line 400 "../lib/array.s7i" */ static intType/*t_14_integer*/ o_5606_compare (const const_arrayType/*t_178_*ANONYM_TYPE**/ o_5607_arr1, const const_arrayType/*t_178_*ANONYM_TYPE**/ o_5608_arr2) { /* line 402 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5609_signumValue=0; /* line 404 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5610_idx1=0; /* line 405 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5611_idx2=0; /* line 407 "../lib/array.s7i" */ o_5610_idx1=(o_5607_arr1)->min_position; /* line 408 "../lib/array.s7i" */ o_5611_idx2=(o_5608_arr2)->min_position; /* line 409 "../lib/array.s7i" */ while (((o_5610_idx1) <= ((o_5607_arr1)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_5611_idx2) <= ((o_5608_arr2)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_330_compare((o_5607_arr1)->arr[(idxChk((o_5610_idx1) < (o_5607_arr1)->min_position || (o_5610_idx1) > (o_5607_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5610_idx1)-(o_5607_arr1)->min_position)].value.arrayValue, (o_5608_arr2)->arr[(idxChk((o_5611_idx2) < (o_5608_arr2)->min_position || (o_5611_idx2) > (o_5608_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5611_idx2)-(o_5608_arr2)->min_position)].value.arrayValue)) == (0L))) { /* line 410 "../lib/array.s7i" */ ++(o_5610_idx1); /* line 411 "../lib/array.s7i" */ ++(o_5611_idx2); } /* line 413 "../lib/array.s7i" */ if (((o_5610_idx1) <= ((o_5607_arr1)->max_position)) && /* line 413 "../lib/array.s7i" */ ((o_5611_idx2) <= ((o_5608_arr2)->max_position))) { /* line 414 "../lib/array.s7i" */ o_5609_signumValue=o_330_compare((o_5607_arr1)->arr[(idxChk((o_5610_idx1) < (o_5607_arr1)->min_position || (o_5610_idx1) > (o_5607_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5610_idx1)-(o_5607_arr1)->min_position)].value.arrayValue, (o_5608_arr2)->arr[(idxChk((o_5611_idx2) < (o_5608_arr2)->min_position || (o_5611_idx2) > (o_5608_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5611_idx2)-(o_5608_arr2)->min_position)].value.arrayValue); } else { /* line 416 "../lib/array.s7i" */ o_5609_signumValue=intCmp(((o_5607_arr1)->max_position - (o_5607_arr1)->min_position + 1), ((o_5608_arr2)->max_position - (o_5608_arr2)->min_position + 1)); } return o_5609_signumValue; } /* line 1 "no_file" */ /* 3271 */ /* line 420 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5612/*<*/ (const const_arrayType/*t_178_*ANONYM_TYPE**/ o_5613_arr1, const const_arrayType/*t_178_*ANONYM_TYPE**/ o_5614_arr2) { /* line 421 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_5606_compare(o_5613_arr1, o_5614_arr2)) < (0L))); } /* line 1 "no_file" */ /* 3272 */ /* line 423 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5615/*>*/ (const const_arrayType/*t_178_*ANONYM_TYPE**/ o_5616_arr1, const const_arrayType/*t_178_*ANONYM_TYPE**/ o_5617_arr2) { /* line 424 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_5606_compare(o_5616_arr1, o_5617_arr2)) > (0L))); } /* line 1 "no_file" */ /* 3273 */ /* line 426 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5618/*<=*/ (const const_arrayType/*t_178_*ANONYM_TYPE**/ o_5619_arr1, const const_arrayType/*t_178_*ANONYM_TYPE**/ o_5620_arr2) { /* line 427 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_5606_compare(o_5619_arr1, o_5620_arr2)) <= (0L))); } /* line 1 "no_file" */ /* 3274 */ /* line 429 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5621/*>=*/ (const const_arrayType/*t_178_*ANONYM_TYPE**/ o_5622_arr1, const const_arrayType/*t_178_*ANONYM_TYPE**/ o_5623_arr2) { /* line 430 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_5606_compare(o_5622_arr1, o_5623_arr2)) >= (0L))); } /* line 1 "no_file" */ /* 3275 */ static intType generic_cmp_28 (const genericType a, const genericType b) { return o_330_compare(((const_rtlObjectType *) &a)->value.arrayValue, ((const_rtlObjectType *) &b)->value.arrayValue); } /* objRefType/t_19_reference */ intfunctype o_5624/*.*/=(intfunctype)(&generic_cmp_28); /* 3276 */ /* line 436 "../lib/array.s7i" */ static arrayType/*t_178_*ANONYM_TYPE**/ o_5625_sort (const const_arrayType/*t_178_*ANONYM_TYPE**/ o_5626_arr_obj) { /* line 437 "../lib/array.s7i" */ return (arrayType/*t_178_*ANONYM_TYPE**/)((arrSort(create_178(o_5626_arr_obj), (compareType)(o_5624/*.*/)))); } /* line 1 "no_file" */ /* 3277 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5627/*::=*/ (const const_hashType/*t_177_stri_index_hash*/ o_5628_dest, const const_hashType/*t_177_stri_index_hash*/ o_5629_source) { /* hshCreate implemented with create_177 */ } /* line 1 "no_file" */ /* 3278 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5630_destroy (const const_hashType/*t_177_stri_index_hash*/ o_5631_oldHash) { /* hshDestr implemented with destr_177 */ } /* line 1 "no_file" */ /* 3279 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5632/*:=*/ (hashType/*t_177_stri_index_hash*/ *const o_5633_dest, const const_hashType/*t_177_stri_index_hash*/ o_5634_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_5633_dest), o_5634_source, (createFuncType)(o_5566/*.*/), (destrFuncType)(o_5567/*.*/), (createFuncType)(o_5570/*.*/), (destrFuncType)(o_5571/*.*/)); } /* line 1 "no_file" */ /* 3280 */ typedef genericType t_180/*t_180_*ANONYM_TYPE**/; /* 3281 */ /* 3282 */ /* 3283 */ /* 3284 */ /* 3285 */ /* objRefType/t_180_*ANONYM_TYPE* */ objRefType o_5635/*.*/=(objRefType)(NULL); /* 3286 */ /* objRefType/t_180_*ANONYM_TYPE* */ objRefType o_5636/*.*/=(objRefType)(NULL); /* 3287 */ hashType/*t_177_stri_index_hash*/ o_5637/*.*/; /* 3288 */ hashType/*t_177_stri_index_hash*/ o_5638/*.*/; /* 3289 */ /* line 149 "../lib/hash.s7i" */ static arrayType/*t_28_TEST_3*/ o_5639/*[*/ (const const_hashType/*t_177_stri_index_hash*/ o_5640_aHashMap, const intType/*t_14_integer*/ *const o_5641_aKey) { /* line 150 "../lib/hash.s7i" */ return (arrayType/*t_28_TEST_3*/)((/*ref_to_value*/ (arrayType/*t_28_TEST_3*/)(hshIdx(o_5640_aHashMap, (genericType)(*o_5641_aKey), (*o_5641_aKey), (compareType)(o_5569/*.*/))))); } /* line 1 "no_file" */ /* 3290 */ /* line 152 "../lib/hash.s7i" */ static arrayType/*t_28_TEST_3*/ /*varfunc*/ *o_5642/*[*/ (hashType/*t_177_stri_index_hash*/ *const o_5643_aHashMap, const intType/*t_14_integer*/ *const o_5644_aKey) { /* line 153 "../lib/hash.s7i" */ return (arrayType/*t_28_TEST_3*/ *)(&(hshIdxAddr(*o_5643_aHashMap, (genericType)(*o_5644_aKey), (*o_5644_aKey), (compareType)(o_5569/*.*/))->value.arrayValue)); } /* line 1 "no_file" */ /* 3291 */ /* line 161 "../lib/hash.s7i" */ static arrayType/*t_28_TEST_3*/ o_5645/*[*/ (const const_hashType/*t_177_stri_index_hash*/ o_5646_aHashMap, const intType/*t_14_integer*/ *const o_5647_aKey, const const_arrayType/*t_28_TEST_3*/ value_o_5648_defaultValue) { /* line 162 "../lib/hash.s7i" */ arrayType/*t_28_TEST_3*/ result; /* line 162 "../lib/hash.s7i" */ const_arrayType/*t_28_TEST_3*/ o_5648_defaultValue; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ o_5648_defaultValue=create_28(value_o_5648_defaultValue); /* line 162 "../lib/hash.s7i" */ result=(arrayType/*t_28_TEST_3*/)((/*ref_to_value*/ (addr_1=hshIdxAddr2(o_5646_aHashMap, (genericType)(*o_5647_aKey), (*o_5647_aKey), (compareType)(o_5569/*.*/)),addr_1!=NULL?addr_1->value.arrayValue:(o_5648_defaultValue)))); /* line 162 "../lib/hash.s7i" */ destr_28(o_5648_defaultValue); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 3292 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_5649_in (const intType/*t_14_integer*/ *const o_5650_aKey, const const_hashType/*t_177_stri_index_hash*/ o_5651_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_5651_aHashMap, (genericType)(*o_5650_aKey), (*o_5650_aKey), (compareType)(o_5569/*.*/)))); } /* line 1 "no_file" */ /* 3293 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_5652_not (const intType/*t_14_integer*/ *const o_5653_aKey, const const_hashType/*t_177_stri_index_hash*/ o_5654_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_5654_aHashMap, (genericType)(*o_5653_aKey), (*o_5653_aKey), (compareType)(o_5569/*.*/))))); } /* line 1 "no_file" */ /* 3294 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5655_incl (hashType/*t_177_stri_index_hash*/ *const o_5656_aHashMap, const intType/*t_14_integer*/ *const o_5657_aKey, const const_arrayType/*t_28_TEST_3*/ value_o_5658_anElem) { /* line 189 "../lib/hash.s7i" */ const_arrayType/*t_28_TEST_3*/ o_5658_anElem; /* line 189 "../lib/hash.s7i" */ o_5658_anElem=create_28(value_o_5658_anElem); /* line 191 "../lib/hash.s7i" */ hshIncl(*o_5656_aHashMap, (genericType)(*o_5657_aKey), (genericType)(o_5658_anElem), (*o_5657_aKey), (compareType)(o_5569/*.*/), (createFuncType)(o_5566/*.*/), (createFuncType)(o_5570/*.*/), (copyFuncType)(o_5572/*.*/)); /* line 189 "../lib/hash.s7i" */ destr_28(o_5658_anElem); } /* line 1 "no_file" */ /* 3295 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5659_excl (hashType/*t_177_stri_index_hash*/ *const o_5660_aHashMap, const intType/*t_14_integer*/ *const o_5661_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_5660_aHashMap, (genericType)(*o_5661_aKey), (*o_5661_aKey), (compareType)(o_5569/*.*/), (destrFuncType)(o_5567/*.*/), (destrFuncType)(o_5571/*.*/)); } /* line 1 "no_file" */ /* 3296 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5662/*@:=*/ (hashType/*t_177_stri_index_hash*/ *const o_5663_aHashMap, const intType/*t_14_integer*/ *const o_5664_aKey, const const_arrayType/*t_28_TEST_3*/ value_o_5665_anElem) { /* line 210 "../lib/hash.s7i" */ const_arrayType/*t_28_TEST_3*/ o_5665_anElem; /* line 210 "../lib/hash.s7i" */ o_5665_anElem=create_28(value_o_5665_anElem); /* line 212 "../lib/hash.s7i" */ hshIncl(*o_5663_aHashMap, (genericType)(*o_5664_aKey), (genericType)(o_5665_anElem), (*o_5664_aKey), (compareType)(o_5569/*.*/), (createFuncType)(o_5566/*.*/), (createFuncType)(o_5570/*.*/), (copyFuncType)(o_5572/*.*/)); /* line 210 "../lib/hash.s7i" */ destr_28(o_5665_anElem); } /* line 1 "no_file" */ /* 3297 */ /* line 216 "../lib/hash.s7i" */ static arrayType/*t_28_TEST_3*/ o_5666_update (hashType/*t_177_stri_index_hash*/ *const o_5667_aHashMap, const intType/*t_14_integer*/ *const o_5668_aKey, const const_arrayType/*t_28_TEST_3*/ value_o_5669_anElem) { /* line 217 "../lib/hash.s7i" */ arrayType/*t_28_TEST_3*/ result; /* line 217 "../lib/hash.s7i" */ const_arrayType/*t_28_TEST_3*/ o_5669_anElem; /* line 217 "../lib/hash.s7i" */ o_5669_anElem=create_28(value_o_5669_anElem); /* line 217 "../lib/hash.s7i" */ result=(arrayType/*t_28_TEST_3*/)(((arrayType/*t_28_TEST_3*/)(hshUpdate(*o_5667_aHashMap, (genericType)(*o_5668_aKey), (genericType)(create_28(o_5669_anElem)), (*o_5668_aKey), (compareType)(o_5569/*.*/), (createFuncType)(o_5566/*.*/), (createFuncType)(o_5570/*.*/))))); /* line 217 "../lib/hash.s7i" */ destr_28(o_5669_anElem); /* line 217 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 3298 */ /* declare inline o_5670_for*/ /* declare inline o_5671_for*/ /* declare inline o_5672_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_27_TEST_1*/ o_5673_keys (const const_hashType/*t_177_stri_index_hash*/ o_5674_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_27_TEST_1*/)((hshKeys(o_5674_aHashMap, (createFuncType)(o_5566/*.*/), (destrFuncType)(o_5567/*.*/)))); } /* line 1 "no_file" */ /* 3299 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_178_*ANONYM_TYPE**/ o_5675_values (const const_hashType/*t_177_stri_index_hash*/ o_5676_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_178_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_5676_aHashMap, (createFuncType)(o_5570/*.*/), (destrFuncType)(o_5571/*.*/)))); } /* line 1 "no_file" */ /* 3300 */ /* line 61 "../lib/hash.s7i" */ static void destr_177 (const_hashType/*t_177_stri_index_hash*/ b) /* line 61 "../lib/hash.s7i" */ { /* line 61 "../lib/hash.s7i" */ hshDestr(b, (destrFuncType)(o_5567/*.*/), (destrFuncType)(o_5571/*.*/)); /* line 61 "../lib/hash.s7i" */ } /* line 1 "no_file" */ /* line 283 "../lib/hash.s7i" */ static hashType/*t_177_stri_index_hash*/ o_5677_flip (const const_hashType/*t_176_stri_table_hash*/ o_5678_aHashMap) { /* line 285 "../lib/hash.s7i" */ hashType/*t_177_stri_index_hash*/ o_5679_inverseHash; /* line 287 "../lib/hash.s7i" */ striType/*t_15_string*/ o_5680_aKey; /* line 288 "../lib/hash.s7i" */ intType/*t_14_integer*/ o_5681_aValue=0; /* line 285 "../lib/hash.s7i" */ o_5679_inverseHash=hshEmpty(); /* line 287 "../lib/hash.s7i" */ o_5680_aKey=strEmpty(); /* "" */ /* inline proc o_5561_for */ { /* inline params */ /* line 290 "../lib/hash.s7i" */ intType/*t_14_integer*/ *const o_5682_forVar=&(o_5681_aValue); /* line 290 "../lib/hash.s7i" */ striType/*t_15_string*/ *const o_5683_keyVar=&(o_5680_aKey); /* line 290 "../lib/hash.s7i" */ const const_hashType/*t_176_stri_table_hash*/ o_5684_aHashMap=o_5678_aHashMap; /* line 290 "../lib/hash.s7i" */ /* push proc param o_5685_statements */ /* line 290 "../lib/hash.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 258 "../lib/hash.s7i" */ const_hashType hash_1=o_5684_aHashMap; /* line 258 "../lib/hash.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 258 "../lib/hash.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 258 "../lib/hash.s7i" */ const_hashElemType helem_4; /* line 258 "../lib/hash.s7i" */ hashElemListType stack_5=NULL; /* line 258 "../lib/hash.s7i" */ while (counter_2 > 0) { /* line 258 "../lib/hash.s7i" */ helem_4=*table_elem_3; /* line 258 "../lib/hash.s7i" */ while (helem_4 != NULL) { /* line 258 "../lib/hash.s7i" */ if (helem_4->next_greater != NULL) { /* line 258 "../lib/hash.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ (*o_5682_forVar)=helem_4->data.value.intValue; /* line 258 "../lib/hash.s7i" */ strCopy(&((*o_5683_keyVar)), helem_4->key.value.striValue); /* closure o_5685_statements*/ { /* line 291 "../lib/hash.s7i" */ if (o_5649_in(&(o_5681_aValue), o_5679_inverseHash)) { /* line 292 "../lib/hash.s7i" */ arrPush(&(*o_5642/*[*/(&(o_5679_inverseHash), &(o_5681_aValue))), (genericType)(strCreate(o_5680_aKey))); } else { { /* line 294 "../lib/hash.s7i" */ arrayType/*t_28_TEST_3*/ tmp_1 = (arrayType/*t_28_TEST_3*/)(NULL); /* line 294 "../lib/hash.s7i" */ o_5662/*@:=*/(&(o_5679_inverseHash), &(o_5681_aValue), (tmp_1=(arrayType/*t_28_TEST_3*/)(arrBaselit((genericType)(strCreate(o_5680_aKey)))))); /* line 294 "../lib/hash.s7i" */ destr_28(tmp_1); } } } /* closure o_5685_statements*/ /* line 258 "../lib/hash.s7i" */ if (helem_4->next_less != NULL) { /* line 258 "../lib/hash.s7i" */ helem_4=helem_4->next_less; /* line 258 "../lib/hash.s7i" */ } else { /* line 258 "../lib/hash.s7i" */ pop_stack(stack_5, helem_4); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ counter_2--; /* line 258 "../lib/hash.s7i" */ table_elem_3++; /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ } /* hsh_for */ /* pop proc param o_5685_statements */ } /* inline proc o_5561_for */ /* line 283 "../lib/hash.s7i" */ strDestr(o_5680_aKey); return o_5679_inverseHash; } /* line 1 "no_file" */ /* 3301 */ /* 3302 */ /* line 58 "../lib/hash.s7i" */ static hashType/*t_176_stri_table_hash*/ create_176 (const_hashType/*t_176_stri_table_hash*/ b) /* line 58 "../lib/hash.s7i" */ { /* line 58 "../lib/hash.s7i" */ return hshCreate(b, (createFuncType)(o_5511/*.*/), (destrFuncType)(o_5512/*.*/), (createFuncType)(o_5515/*.*/), (destrFuncType)(o_5516/*.*/)); /* line 58 "../lib/hash.s7i" */ } /* line 1 "no_file" */ hashType/*t_176_stri_table_hash*/ o_5686_stri_const_table; /* 3303 */ typedef genericType t_181/*t_181_bstri_table_hash*/; /* 3304 */ /* 3305 */ /* 3306 */ /* 3307 */ /* 3308 */ /* objRefType/t_19_reference */ intfunctype o_5687/*.*/=(intfunctype)(&bstCreateGeneric); /* 3309 */ /* objRefType/t_19_reference */ intfunctype o_5688/*.*/=(intfunctype)(&bstDestrGeneric); /* 3310 */ /* objRefType/t_19_reference */ intfunctype o_5689/*.*/=(intfunctype)(&bstCpyGeneric); /* 3311 */ /* objRefType/t_19_reference */ intfunctype o_5690/*.*/=(intfunctype)(&bstCmpGeneric); /* 3312 */ /* objRefType/t_19_reference */ intfunctype o_5691/*.*/=(intfunctype)(&genericCreate); /* 3313 */ /* objRefType/t_19_reference */ intfunctype o_5692/*.*/=(intfunctype)(&genericDestr); /* 3314 */ /* objRefType/t_19_reference */ intfunctype o_5693/*.*/=(intfunctype)(&genericCpy); /* 3315 */ /* 3316 */ /* 3317 */ /* 3318 */ typedef genericType t_182/*t_182_*ANONYM_TYPE**/; /* 3319 */ typedef genericType t_183/*t_183_*ANONYM_TYPE**/; /* 3320 */ /* 3321 */ /* 3322 */ /* 3323 */ /* ACTION ARR_GEN for type arrayType/t_183_*ANONYM_TYPE* element is bstriType/t_68_bstring */ /* 3324 */ /* 3325 */ /* 3326 */ /* 3327 */ /* 3328 */ /* 3329 */ /* ACTION ARR_IDX for type arrayType/t_182_*ANONYM_TYPE* element is bstriType/t_68_bstring */ /* 3330 */ /* ACTION ARR_IDX for type arrayType/t_182_*ANONYM_TYPE* element is bstriType/t_68_bstring */ /* 3331 */ /* line 163 "../lib/array.s7i" */ static arrayType times_182 (intType n, const bstriType/*t_68_bstring*/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.bstriValue=bstCreate(b); /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 3332 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_182_*ANONYM_TYPE**/ create_182 (const_arrayType/*t_182_*ANONYM_TYPE**/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_182_*ANONYM_TYPE**/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_182_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.bstriValue=bstCreate(b->arr[i].value.bstriValue); /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_182 (const_arrayType/*t_182_*ANONYM_TYPE**/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ bstDestr(b->arr[i].value.bstriValue); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_183 (const_arrayType/*t_183_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ bstDestr(b->arr[i].value.bstriValue); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_183_*ANONYM_TYPE**/ create_183 (const_arrayType/*t_183_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_183_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_183_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.bstriValue=bstCreate(b->arr[i].value.bstriValue); /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_182_*ANONYM_TYPE**/ o_5694_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_5695_indexRange, const bstriType/*t_68_bstring*/ value_o_5696_element) { /* line 183 "../lib/array.s7i" */ bstriType/*t_68_bstring*/ o_5696_element; /* line 186 "../lib/array.s7i" */ arrayType/*t_182_*ANONYM_TYPE**/ o_5697_anArray; /* line 183 "../lib/array.s7i" */ o_5696_element=bstCreate(value_o_5696_element); /* line 186 "../lib/array.s7i" */ o_5697_anArray=create_182(arr[143]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_5697_anArray; /* line 188 "../lib/array.s7i" */ o_5697_anArray=times_182(((((structType)(o_5695_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_5695_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_5696_element); /* line 188 "../lib/array.s7i" */ destr_182(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_5697_anArray; /* line 189 "../lib/array.s7i" */ o_5697_anArray=arrArrlit2(((structType)(o_5695_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_183(/*arrConv()*/o_5697_anArray)); /* line 189 "../lib/array.s7i" */ destr_182(old_array); } /* line 183 "../lib/array.s7i" */ bstDestr(o_5696_element); return o_5697_anArray; } /* line 1 "no_file" */ /* 3333 */ /* declare inline o_5698_for*/ /* declare inline o_5699_for*/ /* declare inline o_5700_for*/ /* declare inline o_5701_for*/ /* declare inline o_5702_for*/ /* declare inline o_5703_for*/ /* declare inline o_5704_for*/ /* declare inline o_5705_for*/ /* declare inline o_5706_for*/ /* line 329 "../lib/array.s7i" */ static bstriType/*t_68_bstring*/ o_5707_rand (const const_arrayType/*t_182_*ANONYM_TYPE**/ o_5708_arr) { /* line 330 "../lib/array.s7i" */ bstriType/*t_68_bstring*/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(bstriType/*t_68_bstring*/)((/*ref_to_value*/ (o_5708_arr)->arr[idx_1=intRand((o_5708_arr)->min_position, (o_5708_arr)->max_position),(idxChk(idx_1 < (o_5708_arr)->min_position || idx_1 > (o_5708_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_5708_arr)->min_position)].value.bstriValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 3334 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_5709_insert (arrayType/*t_182_*ANONYM_TYPE**/ *const o_5710_arr, const intType/*t_14_integer*/ o_5711_index, const bstriType/*t_68_bstring*/ value_o_5712_element) { /* line 332 "../lib/array.s7i" */ bstriType/*t_68_bstring*/ o_5712_element; /* line 332 "../lib/array.s7i" */ o_5712_element=bstCreate(value_o_5712_element); /* line 334 "../lib/array.s7i" */ if (((o_5711_index) >= ((*o_5710_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_5711_index) <= (((*o_5710_arr)->max_position)+1))) { { /* line 335 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 335 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_5710_arr; /* line 335 "../lib/array.s7i" */ *o_5710_arr=arrCat(arrCat((tmp_4=arrHead(*o_5710_arr, (o_5711_index)-1), create_182(tmp_4)), arrBaselit((genericType)(bstCreate(o_5712_element)))), (tmp_7=arrTail(*o_5710_arr, o_5711_index), create_182(tmp_7))); /* line 335 "../lib/array.s7i" */ destr_182(old_array); } /* line 335 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 335 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } /* line 332 "../lib/array.s7i" */ bstDestr(o_5712_element); } /* line 1 "no_file" */ /* 3335 */ /* line 344 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5713/*=*/ (const const_arrayType/*t_182_*ANONYM_TYPE**/ o_5714_arr1, const const_arrayType/*t_182_*ANONYM_TYPE**/ o_5715_arr2) { /* line 346 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_5716_isEqual=o_25_FALSE; /* line 348 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5717_number=1; /* line 350 "../lib/array.s7i" */ if ((((o_5714_arr1)->min_position) == ((o_5715_arr2)->min_position)) && /* line 350 "../lib/array.s7i" */ (((o_5714_arr1)->max_position) == ((o_5715_arr2)->max_position))) { /* line 351 "../lib/array.s7i" */ o_5716_isEqual=o_26_TRUE; /* line 352 "../lib/array.s7i" */ o_5717_number=(o_5714_arr1)->min_position; /* line 353 "../lib/array.s7i" */ while (((o_5717_number) <= ((o_5714_arr1)->max_position)) && /* line 353 "../lib/array.s7i" */ (o_5716_isEqual)) { { /* line 354 "../lib/array.s7i" */ const_bstriType tmp_a_1; /* line 354 "../lib/array.s7i" */ const_bstriType tmp_b_2; /* line 354 "../lib/array.s7i" */ o_5716_isEqual=(tmp_a_1=(o_5714_arr1)->arr[(idxChk((o_5717_number) < (o_5714_arr1)->min_position || (o_5717_number) > (o_5714_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5717_number)-(o_5714_arr1)->min_position)].value.bstriValue,tmp_b_2=(o_5715_arr2)->arr[(idxChk((o_5717_number) < (o_5715_arr2)->min_position || (o_5717_number) > (o_5715_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5717_number)-(o_5715_arr2)->min_position)].value.bstriValue,tmp_a_1->size==tmp_b_2->size&&memcmp(tmp_a_1->mem,tmp_b_2->mem,tmp_a_1->size*sizeof(unsigned char))==0); } /* line 355 "../lib/array.s7i" */ ++(o_5717_number); } } return o_5716_isEqual; } /* line 1 "no_file" */ /* 3336 */ /* line 360 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5718/*<>*/ (const const_arrayType/*t_182_*ANONYM_TYPE**/ o_5719_arr1, const const_arrayType/*t_182_*ANONYM_TYPE**/ o_5720_arr2) { /* line 362 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_5721_isNotEqual=o_26_TRUE; /* line 364 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5722_number=1; /* line 366 "../lib/array.s7i" */ if ((((o_5719_arr1)->min_position) == ((o_5720_arr2)->min_position)) && /* line 366 "../lib/array.s7i" */ (((o_5719_arr1)->max_position) == ((o_5720_arr2)->max_position))) { /* line 367 "../lib/array.s7i" */ o_5721_isNotEqual=o_25_FALSE; /* line 368 "../lib/array.s7i" */ o_5722_number=(o_5719_arr1)->min_position; /* line 369 "../lib/array.s7i" */ while (((o_5722_number) <= ((o_5719_arr1)->max_position)) && /* line 369 "../lib/array.s7i" */ (!(o_5721_isNotEqual))) { { /* line 370 "../lib/array.s7i" */ const_bstriType tmp_a_1; /* line 370 "../lib/array.s7i" */ const_bstriType tmp_b_2; /* line 370 "../lib/array.s7i" */ o_5721_isNotEqual=(tmp_a_1=(o_5719_arr1)->arr[(idxChk((o_5722_number) < (o_5719_arr1)->min_position || (o_5722_number) > (o_5719_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5722_number)-(o_5719_arr1)->min_position)].value.bstriValue,tmp_b_2=(o_5720_arr2)->arr[(idxChk((o_5722_number) < (o_5720_arr2)->min_position || (o_5722_number) > (o_5720_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5722_number)-(o_5720_arr2)->min_position)].value.bstriValue,tmp_a_1->size!=tmp_b_2->size||memcmp(tmp_a_1->mem,tmp_b_2->mem,tmp_a_1->size*sizeof(unsigned char))!=0); } /* line 371 "../lib/array.s7i" */ ++(o_5722_number); } } return o_5721_isNotEqual; } /* line 1 "no_file" */ /* 3337 */ /* line 400 "../lib/array.s7i" */ static intType/*t_14_integer*/ o_5723_compare (const const_arrayType/*t_182_*ANONYM_TYPE**/ o_5724_arr1, const const_arrayType/*t_182_*ANONYM_TYPE**/ o_5725_arr2) { /* line 402 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5726_signumValue=0; /* line 404 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5727_idx1=0; /* line 405 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5728_idx2=0; /* line 407 "../lib/array.s7i" */ o_5727_idx1=(o_5724_arr1)->min_position; /* line 408 "../lib/array.s7i" */ o_5728_idx2=(o_5725_arr2)->min_position; /* line 409 "../lib/array.s7i" */ while (((o_5727_idx1) <= ((o_5724_arr1)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_5728_idx2) <= ((o_5725_arr2)->max_position)) && /* line 409 "../lib/array.s7i" */ ((bstCmp((o_5724_arr1)->arr[(idxChk((o_5727_idx1) < (o_5724_arr1)->min_position || (o_5727_idx1) > (o_5724_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5727_idx1)-(o_5724_arr1)->min_position)].value.bstriValue, (o_5725_arr2)->arr[(idxChk((o_5728_idx2) < (o_5725_arr2)->min_position || (o_5728_idx2) > (o_5725_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5728_idx2)-(o_5725_arr2)->min_position)].value.bstriValue)) == (0L))) { /* line 410 "../lib/array.s7i" */ ++(o_5727_idx1); /* line 411 "../lib/array.s7i" */ ++(o_5728_idx2); } /* line 413 "../lib/array.s7i" */ if (((o_5727_idx1) <= ((o_5724_arr1)->max_position)) && /* line 413 "../lib/array.s7i" */ ((o_5728_idx2) <= ((o_5725_arr2)->max_position))) { /* line 414 "../lib/array.s7i" */ o_5726_signumValue=bstCmp((o_5724_arr1)->arr[(idxChk((o_5727_idx1) < (o_5724_arr1)->min_position || (o_5727_idx1) > (o_5724_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5727_idx1)-(o_5724_arr1)->min_position)].value.bstriValue, (o_5725_arr2)->arr[(idxChk((o_5728_idx2) < (o_5725_arr2)->min_position || (o_5728_idx2) > (o_5725_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5728_idx2)-(o_5725_arr2)->min_position)].value.bstriValue); } else { /* line 416 "../lib/array.s7i" */ o_5726_signumValue=intCmp(((o_5724_arr1)->max_position - (o_5724_arr1)->min_position + 1), ((o_5725_arr2)->max_position - (o_5725_arr2)->min_position + 1)); } return o_5726_signumValue; } /* line 1 "no_file" */ /* 3338 */ /* line 420 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5729/*<*/ (const const_arrayType/*t_182_*ANONYM_TYPE**/ o_5730_arr1, const const_arrayType/*t_182_*ANONYM_TYPE**/ o_5731_arr2) { /* line 421 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_5723_compare(o_5730_arr1, o_5731_arr2)) < (0L))); } /* line 1 "no_file" */ /* 3339 */ /* line 423 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5732/*>*/ (const const_arrayType/*t_182_*ANONYM_TYPE**/ o_5733_arr1, const const_arrayType/*t_182_*ANONYM_TYPE**/ o_5734_arr2) { /* line 424 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_5723_compare(o_5733_arr1, o_5734_arr2)) > (0L))); } /* line 1 "no_file" */ /* 3340 */ /* line 426 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5735/*<=*/ (const const_arrayType/*t_182_*ANONYM_TYPE**/ o_5736_arr1, const const_arrayType/*t_182_*ANONYM_TYPE**/ o_5737_arr2) { /* line 427 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_5723_compare(o_5736_arr1, o_5737_arr2)) <= (0L))); } /* line 1 "no_file" */ /* 3341 */ /* line 429 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5738/*>=*/ (const const_arrayType/*t_182_*ANONYM_TYPE**/ o_5739_arr1, const const_arrayType/*t_182_*ANONYM_TYPE**/ o_5740_arr2) { /* line 430 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_5723_compare(o_5739_arr1, o_5740_arr2)) >= (0L))); } /* line 1 "no_file" */ /* 3342 */ /* objRefType/t_19_reference */ intfunctype o_5741/*.*/=(intfunctype)(&bstCmpGeneric); /* 3343 */ /* line 436 "../lib/array.s7i" */ static arrayType/*t_182_*ANONYM_TYPE**/ o_5742_sort (const const_arrayType/*t_182_*ANONYM_TYPE**/ o_5743_arr_obj) { /* line 437 "../lib/array.s7i" */ return (arrayType/*t_182_*ANONYM_TYPE**/)((arrSort(create_182(o_5743_arr_obj), (compareType)(o_5741/*.*/)))); } /* line 1 "no_file" */ /* 3344 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5744/*::=*/ (const const_hashType/*t_181_bstri_table_hash*/ o_5745_dest, const const_hashType/*t_181_bstri_table_hash*/ o_5746_source) { /* hshCreate implemented with create_181 */ } /* line 1 "no_file" */ /* 3345 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5747_destroy (const const_hashType/*t_181_bstri_table_hash*/ o_5748_oldHash) { /* hshDestr implemented with destr_181 */ } /* line 1 "no_file" */ /* 3346 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5749/*:=*/ (hashType/*t_181_bstri_table_hash*/ *const o_5750_dest, const const_hashType/*t_181_bstri_table_hash*/ o_5751_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_5750_dest), o_5751_source, (createFuncType)(o_5687/*.*/), (destrFuncType)(o_5688/*.*/), (createFuncType)(o_5691/*.*/), (destrFuncType)(o_5692/*.*/)); } /* line 1 "no_file" */ /* 3347 */ hashType/*t_181_bstri_table_hash*/ o_5752/*.*/; /* 3348 */ hashType/*t_181_bstri_table_hash*/ o_5753/*.*/; /* 3349 */ /* line 149 "../lib/hash.s7i" */ static intType/*t_14_integer*/ o_5754/*[*/ (const const_hashType/*t_181_bstri_table_hash*/ o_5755_aHashMap, const bstriType/*t_68_bstring*/ o_5756_aKey) { /* line 150 "../lib/hash.s7i" */ return (intType/*t_14_integer*/)(((intType/*t_14_integer*/)(hshIdx(o_5755_aHashMap, (genericType)(o_5756_aKey), bstHashCode(o_5756_aKey), (compareType)(o_5690/*.*/))))); } /* line 1 "no_file" */ /* 3350 */ /* line 152 "../lib/hash.s7i" */ static intType/*t_14_integer*/ /*varfunc*/ *o_5757/*[*/ (hashType/*t_181_bstri_table_hash*/ *const o_5758_aHashMap, const bstriType/*t_68_bstring*/ o_5759_aKey) { /* line 153 "../lib/hash.s7i" */ return (intType/*t_14_integer*/ *)(&(hshIdxAddr(*o_5758_aHashMap, (genericType)(o_5759_aKey), bstHashCode(o_5759_aKey), (compareType)(o_5690/*.*/))->value.intValue)); } /* line 1 "no_file" */ /* 3351 */ /* line 161 "../lib/hash.s7i" */ static intType/*t_14_integer*/ o_5760/*[*/ (const const_hashType/*t_181_bstri_table_hash*/ o_5761_aHashMap, const bstriType/*t_68_bstring*/ o_5762_aKey, const intType/*t_14_integer*/ o_5763_defaultValue) { /* line 162 "../lib/hash.s7i" */ intType/*t_14_integer*/ result; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ result=(intType/*t_14_integer*/)(((addr_1=hshIdxAddr2(o_5761_aHashMap, (genericType)(o_5762_aKey), bstHashCode(o_5762_aKey), (compareType)(o_5690/*.*/)),addr_1!=NULL?addr_1->value.intValue:(o_5763_defaultValue)))); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 3352 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_5764_in (const bstriType/*t_68_bstring*/ o_5765_aKey, const const_hashType/*t_181_bstri_table_hash*/ o_5766_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_5766_aHashMap, (genericType)(o_5765_aKey), bstHashCode(o_5765_aKey), (compareType)(o_5690/*.*/)))); } /* line 1 "no_file" */ /* 3353 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_5767_not (const bstriType/*t_68_bstring*/ o_5768_aKey, const const_hashType/*t_181_bstri_table_hash*/ o_5769_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_5769_aHashMap, (genericType)(o_5768_aKey), bstHashCode(o_5768_aKey), (compareType)(o_5690/*.*/))))); } /* line 1 "no_file" */ /* 3354 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5770_incl (hashType/*t_181_bstri_table_hash*/ *const o_5771_aHashMap, const bstriType/*t_68_bstring*/ o_5772_aKey, const intType/*t_14_integer*/ o_5773_anElem) { /* line 191 "../lib/hash.s7i" */ hshIncl(*o_5771_aHashMap, (genericType)(o_5772_aKey), (genericType)(o_5773_anElem), bstHashCode(o_5772_aKey), (compareType)(o_5690/*.*/), (createFuncType)(o_5687/*.*/), (createFuncType)(o_5691/*.*/), (copyFuncType)(o_5693/*.*/)); } /* line 1 "no_file" */ /* 3355 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5774_excl (hashType/*t_181_bstri_table_hash*/ *const o_5775_aHashMap, const bstriType/*t_68_bstring*/ o_5776_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_5775_aHashMap, (genericType)(o_5776_aKey), bstHashCode(o_5776_aKey), (compareType)(o_5690/*.*/), (destrFuncType)(o_5688/*.*/), (destrFuncType)(o_5692/*.*/)); } /* line 1 "no_file" */ /* 3356 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5777/*@:=*/ (hashType/*t_181_bstri_table_hash*/ *const o_5778_aHashMap, const bstriType/*t_68_bstring*/ o_5779_aKey, const intType/*t_14_integer*/ o_5780_anElem) { /* line 212 "../lib/hash.s7i" */ hshIncl(*o_5778_aHashMap, (genericType)(o_5779_aKey), (genericType)(o_5780_anElem), bstHashCode(o_5779_aKey), (compareType)(o_5690/*.*/), (createFuncType)(o_5687/*.*/), (createFuncType)(o_5691/*.*/), (copyFuncType)(o_5693/*.*/)); } /* line 1 "no_file" */ /* 3357 */ /* line 216 "../lib/hash.s7i" */ static intType/*t_14_integer*/ o_5781_update (hashType/*t_181_bstri_table_hash*/ *const o_5782_aHashMap, const bstriType/*t_68_bstring*/ o_5783_aKey, const intType/*t_14_integer*/ o_5784_anElem) { /* line 217 "../lib/hash.s7i" */ return (intType/*t_14_integer*/)(((intType/*t_14_integer*/)(hshUpdate(*o_5782_aHashMap, (genericType)(o_5783_aKey), (genericType)(o_5784_anElem), bstHashCode(o_5783_aKey), (compareType)(o_5690/*.*/), (createFuncType)(o_5687/*.*/), (createFuncType)(o_5691/*.*/))))); } /* line 1 "no_file" */ /* 3358 */ /* declare inline o_5785_for*/ /* declare inline o_5786_for*/ /* declare inline o_5787_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_182_*ANONYM_TYPE**/ o_5788_keys (const const_hashType/*t_181_bstri_table_hash*/ o_5789_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_182_*ANONYM_TYPE**/)((hshKeys(o_5789_aHashMap, (createFuncType)(o_5687/*.*/), (destrFuncType)(o_5688/*.*/)))); } /* line 1 "no_file" */ /* 3359 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_27_TEST_1*/ o_5790_values (const const_hashType/*t_181_bstri_table_hash*/ o_5791_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_27_TEST_1*/)((/*ref_to_value*/ hshValues(o_5791_aHashMap, (createFuncType)(o_5691/*.*/), (destrFuncType)(o_5692/*.*/)))); } /* line 1 "no_file" */ /* 3360 */ typedef genericType t_184/*t_184_bstri_index_hash*/; /* 3361 */ /* 3362 */ /* 3363 */ /* 3364 */ /* objRefType/t_19_reference */ intfunctype o_5792/*.*/=(intfunctype)(&genericCreate); /* 3365 */ /* objRefType/t_19_reference */ intfunctype o_5793/*.*/=(intfunctype)(&genericDestr); /* 3366 */ /* objRefType/t_19_reference */ intfunctype o_5794/*.*/=(intfunctype)(&genericCpy); /* 3367 */ /* objRefType/t_19_reference */ intfunctype o_5795/*.*/=(intfunctype)(&intCmpGeneric); /* 3368 */ static genericType generic_create_182 (const genericType b) { rtlObjectType result; result.value.arrayValue=create_182(((const_rtlObjectType *) &b)->value.arrayValue); return result.value.genericValue; } /* objRefType/t_19_reference */ intfunctype o_5796/*.*/=(intfunctype)(&generic_create_182); /* 3369 */ static void generic_destr_182 (const genericType b) { destr_182(((const_rtlObjectType *) &b)->value.arrayValue); } /* objRefType/t_19_reference */ intfunctype o_5797/*.*/=(intfunctype)(&generic_destr_182); /* 3370 */ /* line 64 "../lib/array.s7i" */ static void cpy_182 (arrayType/*t_182_*ANONYM_TYPE**/ *a, arrayType/*t_182_*ANONYM_TYPE**/ b) /* line 64 "../lib/array.s7i" */ { /* line 64 "../lib/array.s7i" */ memSizeType i; /* line 64 "../lib/array.s7i" */ memSizeType size_a = (uintType)((*a)->max_position - (*a)->min_position + 1); /* line 64 "../lib/array.s7i" */ memSizeType size_b = (uintType)(b->max_position - b->min_position + 1); /* line 64 "../lib/array.s7i" */ memSizeType size; /* line 64 "../lib/array.s7i" */ (*a)->min_position = b->min_position; /* line 64 "../lib/array.s7i" */ (*a)->max_position = b->max_position; /* line 64 "../lib/array.s7i" */ if (size_a == size_b) { /* line 64 "../lib/array.s7i" */ size = size_a; /* line 64 "../lib/array.s7i" */ } else { /* line 64 "../lib/array.s7i" */ if (size_a < size_b) { /* line 64 "../lib/array.s7i" */ *a=(arrayType/*t_182_*ANONYM_TYPE**/)(arrRealloc((arrayType)(*a), size_a, size_b)); size = size_a; /* line 64 "../lib/array.s7i" */ for (i = size_a; i < size_b; i++) { /* line 64 "../lib/array.s7i" */ (*a)->arr[i].value.bstriValue=bstCreate(b->arr[i].value.bstriValue); /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ } else /* size_a > size_b */ { /* line 64 "../lib/array.s7i" */ size = size_b; /* line 64 "../lib/array.s7i" */ for (i = size_b; i < size_a; i++) { /* line 64 "../lib/array.s7i" */ bstDestr((*a)->arr[i].value.bstriValue); /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ *a=(arrayType/*t_182_*ANONYM_TYPE**/)(arrRealloc((arrayType)(*a), size_a, size_b)); /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 64 "../lib/array.s7i" */ bstCpy(&((*a)->arr[i].value.bstriValue), b->arr[i].value.bstriValue); /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ } /* line 1 "no_file" */ static void generic_cpy_182 (genericType *a, const genericType b) { cpy_182((arrayType/*t_182_*ANONYM_TYPE**/ *)(&(((const_rtlObjectType *) a)->value.arrayValue)), (arrayType/*t_182_*ANONYM_TYPE**/)(((const_rtlObjectType *) &b)->value.arrayValue)); } /* objRefType/t_19_reference */ intfunctype o_5798/*.*/=(intfunctype)(&generic_cpy_182); /* 3371 */ /* 3372 */ /* 3373 */ /* 3374 */ typedef genericType t_185/*t_185_*ANONYM_TYPE**/; /* 3375 */ typedef genericType t_186/*t_186_*ANONYM_TYPE**/; /* 3376 */ /* 3377 */ /* 3378 */ /* 3379 */ /* ACTION ARR_GEN for type arrayType/t_186_*ANONYM_TYPE* element is arrayType/t_182_*ANONYM_TYPE* */ /* 3380 */ /* 3381 */ /* 3382 */ /* 3383 */ /* 3384 */ /* 3385 */ /* ACTION ARR_IDX for type arrayType/t_185_*ANONYM_TYPE* element is arrayType/t_182_*ANONYM_TYPE* */ /* 3386 */ /* ACTION ARR_IDX for type arrayType/t_185_*ANONYM_TYPE* element is arrayType/t_182_*ANONYM_TYPE* */ /* 3387 */ /* line 163 "../lib/array.s7i" */ static arrayType times_185 (intType n, const const_arrayType/*t_182_*ANONYM_TYPE**/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.arrayValue=create_182(b); /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 3388 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_185_*ANONYM_TYPE**/ create_185 (const_arrayType/*t_185_*ANONYM_TYPE**/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_185_*ANONYM_TYPE**/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_185_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.arrayValue=create_182(b->arr[i].value.arrayValue); /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_185 (const_arrayType/*t_185_*ANONYM_TYPE**/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ destr_182(b->arr[i].value.arrayValue); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_186 (const_arrayType/*t_186_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ destr_182(b->arr[i].value.arrayValue); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_186_*ANONYM_TYPE**/ create_186 (const_arrayType/*t_186_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_186_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_186_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.arrayValue=create_182(b->arr[i].value.arrayValue); /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_185_*ANONYM_TYPE**/ o_5799_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_5800_indexRange, const const_arrayType/*t_182_*ANONYM_TYPE**/ value_o_5801_element) { /* line 183 "../lib/array.s7i" */ const_arrayType/*t_182_*ANONYM_TYPE**/ o_5801_element; /* line 186 "../lib/array.s7i" */ arrayType/*t_185_*ANONYM_TYPE**/ o_5802_anArray; /* line 183 "../lib/array.s7i" */ o_5801_element=create_182(value_o_5801_element); /* line 186 "../lib/array.s7i" */ o_5802_anArray=create_185(arr[146]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_5802_anArray; /* line 188 "../lib/array.s7i" */ o_5802_anArray=times_185(((((structType)(o_5800_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_5800_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_5801_element); /* line 188 "../lib/array.s7i" */ destr_185(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_5802_anArray; /* line 189 "../lib/array.s7i" */ o_5802_anArray=arrArrlit2(((structType)(o_5800_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_186(/*arrConv()*/o_5802_anArray)); /* line 189 "../lib/array.s7i" */ destr_185(old_array); } /* line 183 "../lib/array.s7i" */ destr_182(o_5801_element); return o_5802_anArray; } /* line 1 "no_file" */ /* 3389 */ /* declare inline o_5803_for*/ /* declare inline o_5804_for*/ /* declare inline o_5805_for*/ /* declare inline o_5806_for*/ /* declare inline o_5807_for*/ /* declare inline o_5808_for*/ /* declare inline o_5809_for*/ /* declare inline o_5810_for*/ /* declare inline o_5811_for*/ /* line 329 "../lib/array.s7i" */ static arrayType/*t_182_*ANONYM_TYPE**/ o_5812_rand (const const_arrayType/*t_185_*ANONYM_TYPE**/ o_5813_arr) { /* line 330 "../lib/array.s7i" */ arrayType/*t_182_*ANONYM_TYPE**/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(arrayType/*t_182_*ANONYM_TYPE**/)((/*ref_to_value*/ (o_5813_arr)->arr[idx_1=intRand((o_5813_arr)->min_position, (o_5813_arr)->max_position),(idxChk(idx_1 < (o_5813_arr)->min_position || idx_1 > (o_5813_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_5813_arr)->min_position)].value.arrayValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 3390 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_5814_insert (arrayType/*t_185_*ANONYM_TYPE**/ *const o_5815_arr, const intType/*t_14_integer*/ o_5816_index, const const_arrayType/*t_182_*ANONYM_TYPE**/ value_o_5817_element) { /* line 332 "../lib/array.s7i" */ const_arrayType/*t_182_*ANONYM_TYPE**/ o_5817_element; /* line 332 "../lib/array.s7i" */ o_5817_element=create_182(value_o_5817_element); /* line 334 "../lib/array.s7i" */ if (((o_5816_index) >= ((*o_5815_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_5816_index) <= (((*o_5815_arr)->max_position)+1))) { { /* line 335 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 335 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_5815_arr; /* line 335 "../lib/array.s7i" */ *o_5815_arr=arrCat(arrCat((tmp_4=arrHead(*o_5815_arr, (o_5816_index)-1), create_185(tmp_4)), arrBaselit((genericType)(create_182(o_5817_element)))), (tmp_7=arrTail(*o_5815_arr, o_5816_index), create_185(tmp_7))); /* line 335 "../lib/array.s7i" */ destr_185(old_array); } /* line 335 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 335 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } /* line 332 "../lib/array.s7i" */ destr_182(o_5817_element); } /* line 1 "no_file" */ /* 3391 */ /* line 344 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5818/*=*/ (const const_arrayType/*t_185_*ANONYM_TYPE**/ o_5819_arr1, const const_arrayType/*t_185_*ANONYM_TYPE**/ o_5820_arr2) { /* line 346 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_5821_isEqual=o_25_FALSE; /* line 348 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5822_number=1; /* line 350 "../lib/array.s7i" */ if ((((o_5819_arr1)->min_position) == ((o_5820_arr2)->min_position)) && /* line 350 "../lib/array.s7i" */ (((o_5819_arr1)->max_position) == ((o_5820_arr2)->max_position))) { /* line 351 "../lib/array.s7i" */ o_5821_isEqual=o_26_TRUE; /* line 352 "../lib/array.s7i" */ o_5822_number=(o_5819_arr1)->min_position; /* line 353 "../lib/array.s7i" */ while (((o_5822_number) <= ((o_5819_arr1)->max_position)) && /* line 353 "../lib/array.s7i" */ (o_5821_isEqual)) { /* line 354 "../lib/array.s7i" */ o_5821_isEqual=o_5713/*=*/((o_5819_arr1)->arr[(idxChk((o_5822_number) < (o_5819_arr1)->min_position || (o_5822_number) > (o_5819_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5822_number)-(o_5819_arr1)->min_position)].value.arrayValue, (o_5820_arr2)->arr[(idxChk((o_5822_number) < (o_5820_arr2)->min_position || (o_5822_number) > (o_5820_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5822_number)-(o_5820_arr2)->min_position)].value.arrayValue); /* line 355 "../lib/array.s7i" */ ++(o_5822_number); } } return o_5821_isEqual; } /* line 1 "no_file" */ /* 3392 */ /* line 360 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5823/*<>*/ (const const_arrayType/*t_185_*ANONYM_TYPE**/ o_5824_arr1, const const_arrayType/*t_185_*ANONYM_TYPE**/ o_5825_arr2) { /* line 362 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_5826_isNotEqual=o_26_TRUE; /* line 364 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5827_number=1; /* line 366 "../lib/array.s7i" */ if ((((o_5824_arr1)->min_position) == ((o_5825_arr2)->min_position)) && /* line 366 "../lib/array.s7i" */ (((o_5824_arr1)->max_position) == ((o_5825_arr2)->max_position))) { /* line 367 "../lib/array.s7i" */ o_5826_isNotEqual=o_25_FALSE; /* line 368 "../lib/array.s7i" */ o_5827_number=(o_5824_arr1)->min_position; /* line 369 "../lib/array.s7i" */ while (((o_5827_number) <= ((o_5824_arr1)->max_position)) && /* line 369 "../lib/array.s7i" */ (!(o_5826_isNotEqual))) { /* line 370 "../lib/array.s7i" */ o_5826_isNotEqual=o_5718/*<>*/((o_5824_arr1)->arr[(idxChk((o_5827_number) < (o_5824_arr1)->min_position || (o_5827_number) > (o_5824_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5827_number)-(o_5824_arr1)->min_position)].value.arrayValue, (o_5825_arr2)->arr[(idxChk((o_5827_number) < (o_5825_arr2)->min_position || (o_5827_number) > (o_5825_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5827_number)-(o_5825_arr2)->min_position)].value.arrayValue); /* line 371 "../lib/array.s7i" */ ++(o_5827_number); } } return o_5826_isNotEqual; } /* line 1 "no_file" */ /* 3393 */ /* line 381 "../lib/array.s7i" */ static void/*t_1_void*/ o_5828_insert (arrayType/*t_185_*ANONYM_TYPE**/ *const o_5829_arr, const const_arrayType/*t_182_*ANONYM_TYPE**/ value_o_5830_element) { /* line 381 "../lib/array.s7i" */ const_arrayType/*t_182_*ANONYM_TYPE**/ o_5830_element; /* line 383 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5831_number=1; /* line 381 "../lib/array.s7i" */ o_5830_element=create_182(value_o_5830_element); /* line 385 "../lib/array.s7i" */ o_5831_number=(*o_5829_arr)->min_position; /* line 386 "../lib/array.s7i" */ while (((o_5831_number) <= ((*o_5829_arr)->max_position)) && /* line 386 "../lib/array.s7i" */ (o_5729/*<*/((*o_5829_arr)->arr[(idxChk((o_5831_number) < (*o_5829_arr)->min_position || (o_5831_number) > (*o_5829_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5831_number)-(*o_5829_arr)->min_position)].value.arrayValue, o_5830_element))) { /* line 387 "../lib/array.s7i" */ ++(o_5831_number); } /* line 389 "../lib/array.s7i" */ if ((o_5831_number) > ((*o_5829_arr)->max_position)) { { { /* line 390 "../lib/array.s7i" */ arrayType old_array=*o_5829_arr; /* line 390 "../lib/array.s7i" */ *o_5829_arr=arrCat(create_185(*o_5829_arr), arrBaselit((genericType)(create_182(o_5830_element)))); /* line 390 "../lib/array.s7i" */ destr_185(old_array); } } } else /* line 391 "../lib/array.s7i" */ if (o_5732/*>*/((*o_5829_arr)->arr[(idxChk((o_5831_number) < (*o_5829_arr)->min_position || (o_5831_number) > (*o_5829_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5831_number)-(*o_5829_arr)->min_position)].value.arrayValue, o_5830_element)) { { /* line 392 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 392 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 392 "../lib/array.s7i" */ arrayType old_array=*o_5829_arr; /* line 392 "../lib/array.s7i" */ *o_5829_arr=arrCat(arrCat((tmp_4=arrHead(*o_5829_arr, (o_5831_number)-1), create_185(tmp_4)), arrBaselit((genericType)(create_182(o_5830_element)))), (tmp_7=arrTail(*o_5829_arr, o_5831_number), create_185(tmp_7))); /* line 392 "../lib/array.s7i" */ destr_185(old_array); } /* line 392 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 392 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } /* line 381 "../lib/array.s7i" */ destr_182(o_5830_element); } /* line 1 "no_file" */ /* 3394 */ /* line 400 "../lib/array.s7i" */ static intType/*t_14_integer*/ o_5832_compare (const const_arrayType/*t_185_*ANONYM_TYPE**/ o_5833_arr1, const const_arrayType/*t_185_*ANONYM_TYPE**/ o_5834_arr2) { /* line 402 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5835_signumValue=0; /* line 404 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5836_idx1=0; /* line 405 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5837_idx2=0; /* line 407 "../lib/array.s7i" */ o_5836_idx1=(o_5833_arr1)->min_position; /* line 408 "../lib/array.s7i" */ o_5837_idx2=(o_5834_arr2)->min_position; /* line 409 "../lib/array.s7i" */ while (((o_5836_idx1) <= ((o_5833_arr1)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_5837_idx2) <= ((o_5834_arr2)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_5723_compare((o_5833_arr1)->arr[(idxChk((o_5836_idx1) < (o_5833_arr1)->min_position || (o_5836_idx1) > (o_5833_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5836_idx1)-(o_5833_arr1)->min_position)].value.arrayValue, (o_5834_arr2)->arr[(idxChk((o_5837_idx2) < (o_5834_arr2)->min_position || (o_5837_idx2) > (o_5834_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5837_idx2)-(o_5834_arr2)->min_position)].value.arrayValue)) == (0L))) { /* line 410 "../lib/array.s7i" */ ++(o_5836_idx1); /* line 411 "../lib/array.s7i" */ ++(o_5837_idx2); } /* line 413 "../lib/array.s7i" */ if (((o_5836_idx1) <= ((o_5833_arr1)->max_position)) && /* line 413 "../lib/array.s7i" */ ((o_5837_idx2) <= ((o_5834_arr2)->max_position))) { /* line 414 "../lib/array.s7i" */ o_5835_signumValue=o_5723_compare((o_5833_arr1)->arr[(idxChk((o_5836_idx1) < (o_5833_arr1)->min_position || (o_5836_idx1) > (o_5833_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5836_idx1)-(o_5833_arr1)->min_position)].value.arrayValue, (o_5834_arr2)->arr[(idxChk((o_5837_idx2) < (o_5834_arr2)->min_position || (o_5837_idx2) > (o_5834_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5837_idx2)-(o_5834_arr2)->min_position)].value.arrayValue); } else { /* line 416 "../lib/array.s7i" */ o_5835_signumValue=intCmp(((o_5833_arr1)->max_position - (o_5833_arr1)->min_position + 1), ((o_5834_arr2)->max_position - (o_5834_arr2)->min_position + 1)); } return o_5835_signumValue; } /* line 1 "no_file" */ /* 3395 */ /* line 420 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5838/*<*/ (const const_arrayType/*t_185_*ANONYM_TYPE**/ o_5839_arr1, const const_arrayType/*t_185_*ANONYM_TYPE**/ o_5840_arr2) { /* line 421 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_5832_compare(o_5839_arr1, o_5840_arr2)) < (0L))); } /* line 1 "no_file" */ /* 3396 */ /* line 423 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5841/*>*/ (const const_arrayType/*t_185_*ANONYM_TYPE**/ o_5842_arr1, const const_arrayType/*t_185_*ANONYM_TYPE**/ o_5843_arr2) { /* line 424 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_5832_compare(o_5842_arr1, o_5843_arr2)) > (0L))); } /* line 1 "no_file" */ /* 3397 */ /* line 426 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5844/*<=*/ (const const_arrayType/*t_185_*ANONYM_TYPE**/ o_5845_arr1, const const_arrayType/*t_185_*ANONYM_TYPE**/ o_5846_arr2) { /* line 427 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_5832_compare(o_5845_arr1, o_5846_arr2)) <= (0L))); } /* line 1 "no_file" */ /* 3398 */ /* line 429 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5847/*>=*/ (const const_arrayType/*t_185_*ANONYM_TYPE**/ o_5848_arr1, const const_arrayType/*t_185_*ANONYM_TYPE**/ o_5849_arr2) { /* line 430 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_5832_compare(o_5848_arr1, o_5849_arr2)) >= (0L))); } /* line 1 "no_file" */ /* 3399 */ static intType generic_cmp_182 (const genericType a, const genericType b) { return o_5723_compare(((const_rtlObjectType *) &a)->value.arrayValue, ((const_rtlObjectType *) &b)->value.arrayValue); } /* objRefType/t_19_reference */ intfunctype o_5850/*.*/=(intfunctype)(&generic_cmp_182); /* 3400 */ /* line 436 "../lib/array.s7i" */ static arrayType/*t_185_*ANONYM_TYPE**/ o_5851_sort (const const_arrayType/*t_185_*ANONYM_TYPE**/ o_5852_arr_obj) { /* line 437 "../lib/array.s7i" */ return (arrayType/*t_185_*ANONYM_TYPE**/)((arrSort(create_185(o_5852_arr_obj), (compareType)(o_5850/*.*/)))); } /* line 1 "no_file" */ /* 3401 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5853/*::=*/ (const const_hashType/*t_184_bstri_index_hash*/ o_5854_dest, const const_hashType/*t_184_bstri_index_hash*/ o_5855_source) { /* hshCreate implemented with create_184 */ } /* line 1 "no_file" */ /* 3402 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5856_destroy (const const_hashType/*t_184_bstri_index_hash*/ o_5857_oldHash) { /* hshDestr implemented with destr_184 */ } /* line 1 "no_file" */ /* 3403 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5858/*:=*/ (hashType/*t_184_bstri_index_hash*/ *const o_5859_dest, const const_hashType/*t_184_bstri_index_hash*/ o_5860_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_5859_dest), o_5860_source, (createFuncType)(o_5792/*.*/), (destrFuncType)(o_5793/*.*/), (createFuncType)(o_5796/*.*/), (destrFuncType)(o_5797/*.*/)); } /* line 1 "no_file" */ /* 3404 */ typedef genericType t_187/*t_187_*ANONYM_TYPE**/; /* 3405 */ /* 3406 */ /* 3407 */ /* 3408 */ /* 3409 */ /* objRefType/t_187_*ANONYM_TYPE* */ objRefType o_5861/*.*/=(objRefType)(NULL); /* 3410 */ /* objRefType/t_187_*ANONYM_TYPE* */ objRefType o_5862/*.*/=(objRefType)(NULL); /* 3411 */ hashType/*t_184_bstri_index_hash*/ o_5863/*.*/; /* 3412 */ hashType/*t_184_bstri_index_hash*/ o_5864/*.*/; /* 3413 */ /* line 149 "../lib/hash.s7i" */ static arrayType/*t_182_*ANONYM_TYPE**/ o_5865/*[*/ (const const_hashType/*t_184_bstri_index_hash*/ o_5866_aHashMap, const intType/*t_14_integer*/ *const o_5867_aKey) { /* line 150 "../lib/hash.s7i" */ return (arrayType/*t_182_*ANONYM_TYPE**/)((/*ref_to_value*/ (arrayType/*t_182_*ANONYM_TYPE**/)(hshIdx(o_5866_aHashMap, (genericType)(*o_5867_aKey), (*o_5867_aKey), (compareType)(o_5795/*.*/))))); } /* line 1 "no_file" */ /* 3414 */ /* line 152 "../lib/hash.s7i" */ static arrayType/*t_182_*ANONYM_TYPE**/ /*varfunc*/ *o_5868/*[*/ (hashType/*t_184_bstri_index_hash*/ *const o_5869_aHashMap, const intType/*t_14_integer*/ *const o_5870_aKey) { /* line 153 "../lib/hash.s7i" */ return (arrayType/*t_182_*ANONYM_TYPE**/ *)(&(hshIdxAddr(*o_5869_aHashMap, (genericType)(*o_5870_aKey), (*o_5870_aKey), (compareType)(o_5795/*.*/))->value.arrayValue)); } /* line 1 "no_file" */ /* 3415 */ /* line 161 "../lib/hash.s7i" */ static arrayType/*t_182_*ANONYM_TYPE**/ o_5871/*[*/ (const const_hashType/*t_184_bstri_index_hash*/ o_5872_aHashMap, const intType/*t_14_integer*/ *const o_5873_aKey, const const_arrayType/*t_182_*ANONYM_TYPE**/ value_o_5874_defaultValue) { /* line 162 "../lib/hash.s7i" */ arrayType/*t_182_*ANONYM_TYPE**/ result; /* line 162 "../lib/hash.s7i" */ const_arrayType/*t_182_*ANONYM_TYPE**/ o_5874_defaultValue; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ o_5874_defaultValue=create_182(value_o_5874_defaultValue); /* line 162 "../lib/hash.s7i" */ result=(arrayType/*t_182_*ANONYM_TYPE**/)((/*ref_to_value*/ (addr_1=hshIdxAddr2(o_5872_aHashMap, (genericType)(*o_5873_aKey), (*o_5873_aKey), (compareType)(o_5795/*.*/)),addr_1!=NULL?addr_1->value.arrayValue:(o_5874_defaultValue)))); /* line 162 "../lib/hash.s7i" */ destr_182(o_5874_defaultValue); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 3416 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_5875_in (const intType/*t_14_integer*/ *const o_5876_aKey, const const_hashType/*t_184_bstri_index_hash*/ o_5877_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_5877_aHashMap, (genericType)(*o_5876_aKey), (*o_5876_aKey), (compareType)(o_5795/*.*/)))); } /* line 1 "no_file" */ /* 3417 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_5878_not (const intType/*t_14_integer*/ *const o_5879_aKey, const const_hashType/*t_184_bstri_index_hash*/ o_5880_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_5880_aHashMap, (genericType)(*o_5879_aKey), (*o_5879_aKey), (compareType)(o_5795/*.*/))))); } /* line 1 "no_file" */ /* 3418 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5881_incl (hashType/*t_184_bstri_index_hash*/ *const o_5882_aHashMap, const intType/*t_14_integer*/ *const o_5883_aKey, const const_arrayType/*t_182_*ANONYM_TYPE**/ value_o_5884_anElem) { /* line 189 "../lib/hash.s7i" */ const_arrayType/*t_182_*ANONYM_TYPE**/ o_5884_anElem; /* line 189 "../lib/hash.s7i" */ o_5884_anElem=create_182(value_o_5884_anElem); /* line 191 "../lib/hash.s7i" */ hshIncl(*o_5882_aHashMap, (genericType)(*o_5883_aKey), (genericType)(o_5884_anElem), (*o_5883_aKey), (compareType)(o_5795/*.*/), (createFuncType)(o_5792/*.*/), (createFuncType)(o_5796/*.*/), (copyFuncType)(o_5798/*.*/)); /* line 189 "../lib/hash.s7i" */ destr_182(o_5884_anElem); } /* line 1 "no_file" */ /* 3419 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5885_excl (hashType/*t_184_bstri_index_hash*/ *const o_5886_aHashMap, const intType/*t_14_integer*/ *const o_5887_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_5886_aHashMap, (genericType)(*o_5887_aKey), (*o_5887_aKey), (compareType)(o_5795/*.*/), (destrFuncType)(o_5793/*.*/), (destrFuncType)(o_5797/*.*/)); } /* line 1 "no_file" */ /* 3420 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5888/*@:=*/ (hashType/*t_184_bstri_index_hash*/ *const o_5889_aHashMap, const intType/*t_14_integer*/ *const o_5890_aKey, const const_arrayType/*t_182_*ANONYM_TYPE**/ value_o_5891_anElem) { /* line 210 "../lib/hash.s7i" */ const_arrayType/*t_182_*ANONYM_TYPE**/ o_5891_anElem; /* line 210 "../lib/hash.s7i" */ o_5891_anElem=create_182(value_o_5891_anElem); /* line 212 "../lib/hash.s7i" */ hshIncl(*o_5889_aHashMap, (genericType)(*o_5890_aKey), (genericType)(o_5891_anElem), (*o_5890_aKey), (compareType)(o_5795/*.*/), (createFuncType)(o_5792/*.*/), (createFuncType)(o_5796/*.*/), (copyFuncType)(o_5798/*.*/)); /* line 210 "../lib/hash.s7i" */ destr_182(o_5891_anElem); } /* line 1 "no_file" */ /* 3421 */ /* line 216 "../lib/hash.s7i" */ static arrayType/*t_182_*ANONYM_TYPE**/ o_5892_update (hashType/*t_184_bstri_index_hash*/ *const o_5893_aHashMap, const intType/*t_14_integer*/ *const o_5894_aKey, const const_arrayType/*t_182_*ANONYM_TYPE**/ value_o_5895_anElem) { /* line 217 "../lib/hash.s7i" */ arrayType/*t_182_*ANONYM_TYPE**/ result; /* line 217 "../lib/hash.s7i" */ const_arrayType/*t_182_*ANONYM_TYPE**/ o_5895_anElem; /* line 217 "../lib/hash.s7i" */ o_5895_anElem=create_182(value_o_5895_anElem); /* line 217 "../lib/hash.s7i" */ result=(arrayType/*t_182_*ANONYM_TYPE**/)(((arrayType/*t_182_*ANONYM_TYPE**/)(hshUpdate(*o_5893_aHashMap, (genericType)(*o_5894_aKey), (genericType)(create_182(o_5895_anElem)), (*o_5894_aKey), (compareType)(o_5795/*.*/), (createFuncType)(o_5792/*.*/), (createFuncType)(o_5796/*.*/))))); /* line 217 "../lib/hash.s7i" */ destr_182(o_5895_anElem); /* line 217 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 3422 */ /* declare inline o_5896_for*/ /* declare inline o_5897_for*/ /* declare inline o_5898_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_27_TEST_1*/ o_5899_keys (const const_hashType/*t_184_bstri_index_hash*/ o_5900_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_27_TEST_1*/)((hshKeys(o_5900_aHashMap, (createFuncType)(o_5792/*.*/), (destrFuncType)(o_5793/*.*/)))); } /* line 1 "no_file" */ /* 3423 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_185_*ANONYM_TYPE**/ o_5901_values (const const_hashType/*t_184_bstri_index_hash*/ o_5902_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_185_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_5902_aHashMap, (createFuncType)(o_5796/*.*/), (destrFuncType)(o_5797/*.*/)))); } /* line 1 "no_file" */ /* 3424 */ /* line 61 "../lib/hash.s7i" */ static void destr_184 (const_hashType/*t_184_bstri_index_hash*/ b) /* line 61 "../lib/hash.s7i" */ { /* line 61 "../lib/hash.s7i" */ hshDestr(b, (destrFuncType)(o_5793/*.*/), (destrFuncType)(o_5797/*.*/)); /* line 61 "../lib/hash.s7i" */ } /* line 1 "no_file" */ /* line 283 "../lib/hash.s7i" */ static hashType/*t_184_bstri_index_hash*/ o_5903_flip (const const_hashType/*t_181_bstri_table_hash*/ o_5904_aHashMap) { /* line 285 "../lib/hash.s7i" */ hashType/*t_184_bstri_index_hash*/ o_5905_inverseHash; /* line 287 "../lib/hash.s7i" */ bstriType/*t_68_bstring*/ o_5906_aKey; /* line 288 "../lib/hash.s7i" */ intType/*t_14_integer*/ o_5907_aValue=0; /* line 285 "../lib/hash.s7i" */ o_5905_inverseHash=hshEmpty(); /* line 287 "../lib/hash.s7i" */ o_5906_aKey=bstCreate(&bst[0]); /* inline proc o_5787_for */ { /* inline params */ /* line 290 "../lib/hash.s7i" */ intType/*t_14_integer*/ *const o_5908_forVar=&(o_5907_aValue); /* line 290 "../lib/hash.s7i" */ bstriType/*t_68_bstring*/ *const o_5909_keyVar=&(o_5906_aKey); /* line 290 "../lib/hash.s7i" */ const const_hashType/*t_181_bstri_table_hash*/ o_5910_aHashMap=o_5904_aHashMap; /* line 290 "../lib/hash.s7i" */ /* push proc param o_5911_statements */ /* line 290 "../lib/hash.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 258 "../lib/hash.s7i" */ const_hashType hash_1=o_5910_aHashMap; /* line 258 "../lib/hash.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 258 "../lib/hash.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 258 "../lib/hash.s7i" */ const_hashElemType helem_4; /* line 258 "../lib/hash.s7i" */ hashElemListType stack_5=NULL; /* line 258 "../lib/hash.s7i" */ while (counter_2 > 0) { /* line 258 "../lib/hash.s7i" */ helem_4=*table_elem_3; /* line 258 "../lib/hash.s7i" */ while (helem_4 != NULL) { /* line 258 "../lib/hash.s7i" */ if (helem_4->next_greater != NULL) { /* line 258 "../lib/hash.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ (*o_5908_forVar)=helem_4->data.value.intValue; /* line 258 "../lib/hash.s7i" */ bstCpy(&((*o_5909_keyVar)), helem_4->key.value.bstriValue); /* closure o_5911_statements*/ { /* line 291 "../lib/hash.s7i" */ if (o_5875_in(&(o_5907_aValue), o_5905_inverseHash)) { /* line 292 "../lib/hash.s7i" */ arrPush(&(*o_5868/*[*/(&(o_5905_inverseHash), &(o_5907_aValue))), (genericType)(bstCreate(o_5906_aKey))); } else { { /* line 294 "../lib/hash.s7i" */ arrayType/*t_182_*ANONYM_TYPE**/ tmp_1 = (arrayType/*t_182_*ANONYM_TYPE**/)(NULL); /* line 294 "../lib/hash.s7i" */ o_5888/*@:=*/(&(o_5905_inverseHash), &(o_5907_aValue), (tmp_1=(arrayType/*t_182_*ANONYM_TYPE**/)(arrBaselit((genericType)(bstCreate(o_5906_aKey)))))); /* line 294 "../lib/hash.s7i" */ destr_182(tmp_1); } } } /* closure o_5911_statements*/ /* line 258 "../lib/hash.s7i" */ if (helem_4->next_less != NULL) { /* line 258 "../lib/hash.s7i" */ helem_4=helem_4->next_less; /* line 258 "../lib/hash.s7i" */ } else { /* line 258 "../lib/hash.s7i" */ pop_stack(stack_5, helem_4); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ counter_2--; /* line 258 "../lib/hash.s7i" */ table_elem_3++; /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ } /* hsh_for */ /* pop proc param o_5911_statements */ } /* inline proc o_5787_for */ /* line 283 "../lib/hash.s7i" */ bstDestr(o_5906_aKey); return o_5905_inverseHash; } /* line 1 "no_file" */ /* 3425 */ /* 3426 */ /* line 58 "../lib/hash.s7i" */ static hashType/*t_181_bstri_table_hash*/ create_181 (const_hashType/*t_181_bstri_table_hash*/ b) /* line 58 "../lib/hash.s7i" */ { /* line 58 "../lib/hash.s7i" */ return hshCreate(b, (createFuncType)(o_5687/*.*/), (destrFuncType)(o_5688/*.*/), (createFuncType)(o_5691/*.*/), (destrFuncType)(o_5692/*.*/)); /* line 58 "../lib/hash.s7i" */ } /* line 1 "no_file" */ hashType/*t_181_bstri_table_hash*/ o_5912_bstri_const_table; /* 3427 */ typedef genericType t_188/*t_188_set_table_hash*/; /* 3428 */ /* 3429 */ /* 3430 */ /* 3431 */ /* 3432 */ /* objRefType/t_19_reference */ intfunctype o_5913/*.*/=(intfunctype)(&setCreateGeneric); /* 3433 */ /* objRefType/t_19_reference */ intfunctype o_5914/*.*/=(intfunctype)(&setDestrGeneric); /* 3434 */ /* objRefType/t_19_reference */ intfunctype o_5915/*.*/=(intfunctype)(&setCpyGeneric); /* 3435 */ /* objRefType/t_19_reference */ intfunctype o_5916/*.*/=(intfunctype)(&setCmpGeneric); /* 3436 */ /* objRefType/t_19_reference */ intfunctype o_5917/*.*/=(intfunctype)(&genericCreate); /* 3437 */ /* objRefType/t_19_reference */ intfunctype o_5918/*.*/=(intfunctype)(&genericDestr); /* 3438 */ /* objRefType/t_19_reference */ intfunctype o_5919/*.*/=(intfunctype)(&genericCpy); /* 3439 */ /* 3440 */ /* 3441 */ /* 3442 */ typedef genericType t_189/*t_189_*ANONYM_TYPE**/; /* 3443 */ typedef genericType t_190/*t_190_*ANONYM_TYPE**/; /* 3444 */ /* 3445 */ /* 3446 */ /* 3447 */ /* ACTION ARR_GEN for type arrayType/t_190_*ANONYM_TYPE* element is setType/t_30_bitset */ /* 3448 */ /* 3449 */ /* 3450 */ /* 3451 */ /* 3452 */ /* 3453 */ /* ACTION ARR_IDX for type arrayType/t_189_*ANONYM_TYPE* element is setType/t_30_bitset */ /* 3454 */ /* ACTION ARR_IDX for type arrayType/t_189_*ANONYM_TYPE* element is setType/t_30_bitset */ /* 3455 */ /* line 163 "../lib/array.s7i" */ static arrayType times_189 (intType n, const const_setType/*t_30_bitset*/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.setValue=setCreate(b); /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 3456 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_189_*ANONYM_TYPE**/ create_189 (const_arrayType/*t_189_*ANONYM_TYPE**/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_189_*ANONYM_TYPE**/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_189_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.setValue=setCreate(b->arr[i].value.setValue); /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_189 (const_arrayType/*t_189_*ANONYM_TYPE**/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ setDestr(b->arr[i].value.setValue); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_190 (const_arrayType/*t_190_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ setDestr(b->arr[i].value.setValue); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_190_*ANONYM_TYPE**/ create_190 (const_arrayType/*t_190_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_190_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_190_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.setValue=setCreate(b->arr[i].value.setValue); /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_189_*ANONYM_TYPE**/ o_5920_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_5921_indexRange, const const_setType/*t_30_bitset*/ value_o_5922_element) { /* line 183 "../lib/array.s7i" */ const_setType/*t_30_bitset*/ o_5922_element; /* line 186 "../lib/array.s7i" */ arrayType/*t_189_*ANONYM_TYPE**/ o_5923_anArray; /* line 183 "../lib/array.s7i" */ o_5922_element=setCreate(value_o_5922_element); /* line 186 "../lib/array.s7i" */ o_5923_anArray=create_189(arr[150]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_5923_anArray; /* line 188 "../lib/array.s7i" */ o_5923_anArray=times_189(((((structType)(o_5921_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_5921_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_5922_element); /* line 188 "../lib/array.s7i" */ destr_189(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_5923_anArray; /* line 189 "../lib/array.s7i" */ o_5923_anArray=arrArrlit2(((structType)(o_5921_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_190(/*arrConv()*/o_5923_anArray)); /* line 189 "../lib/array.s7i" */ destr_189(old_array); } /* line 183 "../lib/array.s7i" */ setDestr(o_5922_element); return o_5923_anArray; } /* line 1 "no_file" */ /* 3457 */ /* declare inline o_5924_for*/ /* declare inline o_5925_for*/ /* declare inline o_5926_for*/ /* declare inline o_5927_for*/ /* declare inline o_5928_for*/ /* declare inline o_5929_for*/ /* declare inline o_5930_for*/ /* declare inline o_5931_for*/ /* declare inline o_5932_for*/ /* line 329 "../lib/array.s7i" */ static setType/*t_30_bitset*/ o_5933_rand (const const_arrayType/*t_189_*ANONYM_TYPE**/ o_5934_arr) { /* line 330 "../lib/array.s7i" */ setType/*t_30_bitset*/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(setType/*t_30_bitset*/)((/*ref_to_value*/ (o_5934_arr)->arr[idx_1=intRand((o_5934_arr)->min_position, (o_5934_arr)->max_position),(idxChk(idx_1 < (o_5934_arr)->min_position || idx_1 > (o_5934_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_5934_arr)->min_position)].value.setValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 3458 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_5935_insert (arrayType/*t_189_*ANONYM_TYPE**/ *const o_5936_arr, const intType/*t_14_integer*/ o_5937_index, const const_setType/*t_30_bitset*/ value_o_5938_element) { /* line 332 "../lib/array.s7i" */ const_setType/*t_30_bitset*/ o_5938_element; /* line 332 "../lib/array.s7i" */ o_5938_element=setCreate(value_o_5938_element); /* line 334 "../lib/array.s7i" */ if (((o_5937_index) >= ((*o_5936_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_5937_index) <= (((*o_5936_arr)->max_position)+1))) { { /* line 335 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 335 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_5936_arr; /* line 335 "../lib/array.s7i" */ *o_5936_arr=arrCat(arrCat((tmp_4=arrHead(*o_5936_arr, (o_5937_index)-1), create_189(tmp_4)), arrBaselit((genericType)(setCreate(o_5938_element)))), (tmp_7=arrTail(*o_5936_arr, o_5937_index), create_189(tmp_7))); /* line 335 "../lib/array.s7i" */ destr_189(old_array); } /* line 335 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 335 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } /* line 332 "../lib/array.s7i" */ setDestr(o_5938_element); } /* line 1 "no_file" */ /* 3459 */ /* line 344 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5939/*=*/ (const const_arrayType/*t_189_*ANONYM_TYPE**/ o_5940_arr1, const const_arrayType/*t_189_*ANONYM_TYPE**/ o_5941_arr2) { /* line 346 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_5942_isEqual=o_25_FALSE; /* line 348 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5943_number=1; /* line 350 "../lib/array.s7i" */ if ((((o_5940_arr1)->min_position) == ((o_5941_arr2)->min_position)) && /* line 350 "../lib/array.s7i" */ (((o_5940_arr1)->max_position) == ((o_5941_arr2)->max_position))) { /* line 351 "../lib/array.s7i" */ o_5942_isEqual=o_26_TRUE; /* line 352 "../lib/array.s7i" */ o_5943_number=(o_5940_arr1)->min_position; /* line 353 "../lib/array.s7i" */ while (((o_5943_number) <= ((o_5940_arr1)->max_position)) && /* line 353 "../lib/array.s7i" */ (o_5942_isEqual)) { /* line 354 "../lib/array.s7i" */ o_5942_isEqual=setEq((o_5940_arr1)->arr[(idxChk((o_5943_number) < (o_5940_arr1)->min_position || (o_5943_number) > (o_5940_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5943_number)-(o_5940_arr1)->min_position)].value.setValue, (o_5941_arr2)->arr[(idxChk((o_5943_number) < (o_5941_arr2)->min_position || (o_5943_number) > (o_5941_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5943_number)-(o_5941_arr2)->min_position)].value.setValue); /* line 355 "../lib/array.s7i" */ ++(o_5943_number); } } return o_5942_isEqual; } /* line 1 "no_file" */ /* 3460 */ /* line 360 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5944/*<>*/ (const const_arrayType/*t_189_*ANONYM_TYPE**/ o_5945_arr1, const const_arrayType/*t_189_*ANONYM_TYPE**/ o_5946_arr2) { /* line 362 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_5947_isNotEqual=o_26_TRUE; /* line 364 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5948_number=1; /* line 366 "../lib/array.s7i" */ if ((((o_5945_arr1)->min_position) == ((o_5946_arr2)->min_position)) && /* line 366 "../lib/array.s7i" */ (((o_5945_arr1)->max_position) == ((o_5946_arr2)->max_position))) { /* line 367 "../lib/array.s7i" */ o_5947_isNotEqual=o_25_FALSE; /* line 368 "../lib/array.s7i" */ o_5948_number=(o_5945_arr1)->min_position; /* line 369 "../lib/array.s7i" */ while (((o_5948_number) <= ((o_5945_arr1)->max_position)) && /* line 369 "../lib/array.s7i" */ (!(o_5947_isNotEqual))) { /* line 370 "../lib/array.s7i" */ o_5947_isNotEqual=!setEq((o_5945_arr1)->arr[(idxChk((o_5948_number) < (o_5945_arr1)->min_position || (o_5948_number) > (o_5945_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5948_number)-(o_5945_arr1)->min_position)].value.setValue, (o_5946_arr2)->arr[(idxChk((o_5948_number) < (o_5946_arr2)->min_position || (o_5948_number) > (o_5946_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5948_number)-(o_5946_arr2)->min_position)].value.setValue); /* line 371 "../lib/array.s7i" */ ++(o_5948_number); } } return o_5947_isNotEqual; } /* line 1 "no_file" */ /* 3461 */ /* line 381 "../lib/array.s7i" */ static void/*t_1_void*/ o_5949_insert (arrayType/*t_189_*ANONYM_TYPE**/ *const o_5950_arr, const const_setType/*t_30_bitset*/ value_o_5951_element) { /* line 381 "../lib/array.s7i" */ const_setType/*t_30_bitset*/ o_5951_element; /* line 383 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5952_number=1; /* line 381 "../lib/array.s7i" */ o_5951_element=setCreate(value_o_5951_element); /* line 385 "../lib/array.s7i" */ o_5952_number=(*o_5950_arr)->min_position; /* line 386 "../lib/array.s7i" */ while (((o_5952_number) <= ((*o_5950_arr)->max_position)) && /* line 386 "../lib/array.s7i" */ (setIsProperSubset((*o_5950_arr)->arr[(idxChk((o_5952_number) < (*o_5950_arr)->min_position || (o_5952_number) > (*o_5950_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5952_number)-(*o_5950_arr)->min_position)].value.setValue, o_5951_element))) { /* line 387 "../lib/array.s7i" */ ++(o_5952_number); } /* line 389 "../lib/array.s7i" */ if ((o_5952_number) > ((*o_5950_arr)->max_position)) { { { /* line 390 "../lib/array.s7i" */ arrayType old_array=*o_5950_arr; /* line 390 "../lib/array.s7i" */ *o_5950_arr=arrCat(create_189(*o_5950_arr), arrBaselit((genericType)(setCreate(o_5951_element)))); /* line 390 "../lib/array.s7i" */ destr_189(old_array); } } } else /* line 391 "../lib/array.s7i" */ if (setIsProperSubset(o_5951_element, (*o_5950_arr)->arr[(idxChk((o_5952_number) < (*o_5950_arr)->min_position || (o_5952_number) > (*o_5950_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5952_number)-(*o_5950_arr)->min_position)].value.setValue)) { { /* line 392 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 392 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 392 "../lib/array.s7i" */ arrayType old_array=*o_5950_arr; /* line 392 "../lib/array.s7i" */ *o_5950_arr=arrCat(arrCat((tmp_4=arrHead(*o_5950_arr, (o_5952_number)-1), create_189(tmp_4)), arrBaselit((genericType)(setCreate(o_5951_element)))), (tmp_7=arrTail(*o_5950_arr, o_5952_number), create_189(tmp_7))); /* line 392 "../lib/array.s7i" */ destr_189(old_array); } /* line 392 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 392 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } /* line 381 "../lib/array.s7i" */ setDestr(o_5951_element); } /* line 1 "no_file" */ /* 3462 */ /* line 400 "../lib/array.s7i" */ static intType/*t_14_integer*/ o_5953_compare (const const_arrayType/*t_189_*ANONYM_TYPE**/ o_5954_arr1, const const_arrayType/*t_189_*ANONYM_TYPE**/ o_5955_arr2) { /* line 402 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5956_signumValue=0; /* line 404 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5957_idx1=0; /* line 405 "../lib/array.s7i" */ intType/*t_14_integer*/ o_5958_idx2=0; /* line 407 "../lib/array.s7i" */ o_5957_idx1=(o_5954_arr1)->min_position; /* line 408 "../lib/array.s7i" */ o_5958_idx2=(o_5955_arr2)->min_position; /* line 409 "../lib/array.s7i" */ while (((o_5957_idx1) <= ((o_5954_arr1)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_5958_idx2) <= ((o_5955_arr2)->max_position)) && /* line 409 "../lib/array.s7i" */ ((setCmp((o_5954_arr1)->arr[(idxChk((o_5957_idx1) < (o_5954_arr1)->min_position || (o_5957_idx1) > (o_5954_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5957_idx1)-(o_5954_arr1)->min_position)].value.setValue, (o_5955_arr2)->arr[(idxChk((o_5958_idx2) < (o_5955_arr2)->min_position || (o_5958_idx2) > (o_5955_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5958_idx2)-(o_5955_arr2)->min_position)].value.setValue)) == (0L))) { /* line 410 "../lib/array.s7i" */ ++(o_5957_idx1); /* line 411 "../lib/array.s7i" */ ++(o_5958_idx2); } /* line 413 "../lib/array.s7i" */ if (((o_5957_idx1) <= ((o_5954_arr1)->max_position)) && /* line 413 "../lib/array.s7i" */ ((o_5958_idx2) <= ((o_5955_arr2)->max_position))) { /* line 414 "../lib/array.s7i" */ o_5956_signumValue=setCmp((o_5954_arr1)->arr[(idxChk((o_5957_idx1) < (o_5954_arr1)->min_position || (o_5957_idx1) > (o_5954_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5957_idx1)-(o_5954_arr1)->min_position)].value.setValue, (o_5955_arr2)->arr[(idxChk((o_5958_idx2) < (o_5955_arr2)->min_position || (o_5958_idx2) > (o_5955_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_5958_idx2)-(o_5955_arr2)->min_position)].value.setValue); } else { /* line 416 "../lib/array.s7i" */ o_5956_signumValue=intCmp(((o_5954_arr1)->max_position - (o_5954_arr1)->min_position + 1), ((o_5955_arr2)->max_position - (o_5955_arr2)->min_position + 1)); } return o_5956_signumValue; } /* line 1 "no_file" */ /* 3463 */ /* line 420 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5959/*<*/ (const const_arrayType/*t_189_*ANONYM_TYPE**/ o_5960_arr1, const const_arrayType/*t_189_*ANONYM_TYPE**/ o_5961_arr2) { /* line 421 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_5953_compare(o_5960_arr1, o_5961_arr2)) < (0L))); } /* line 1 "no_file" */ /* 3464 */ /* line 423 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5962/*>*/ (const const_arrayType/*t_189_*ANONYM_TYPE**/ o_5963_arr1, const const_arrayType/*t_189_*ANONYM_TYPE**/ o_5964_arr2) { /* line 424 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_5953_compare(o_5963_arr1, o_5964_arr2)) > (0L))); } /* line 1 "no_file" */ /* 3465 */ /* line 426 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5965/*<=*/ (const const_arrayType/*t_189_*ANONYM_TYPE**/ o_5966_arr1, const const_arrayType/*t_189_*ANONYM_TYPE**/ o_5967_arr2) { /* line 427 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_5953_compare(o_5966_arr1, o_5967_arr2)) <= (0L))); } /* line 1 "no_file" */ /* 3466 */ /* line 429 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_5968/*>=*/ (const const_arrayType/*t_189_*ANONYM_TYPE**/ o_5969_arr1, const const_arrayType/*t_189_*ANONYM_TYPE**/ o_5970_arr2) { /* line 430 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_5953_compare(o_5969_arr1, o_5970_arr2)) >= (0L))); } /* line 1 "no_file" */ /* 3467 */ /* objRefType/t_19_reference */ intfunctype o_5971/*.*/=(intfunctype)(&setCmpGeneric); /* 3468 */ /* line 436 "../lib/array.s7i" */ static arrayType/*t_189_*ANONYM_TYPE**/ o_5972_sort (const const_arrayType/*t_189_*ANONYM_TYPE**/ o_5973_arr_obj) { /* line 437 "../lib/array.s7i" */ return (arrayType/*t_189_*ANONYM_TYPE**/)((arrSort(create_189(o_5973_arr_obj), (compareType)(o_5971/*.*/)))); } /* line 1 "no_file" */ /* 3469 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5974/*::=*/ (const const_hashType/*t_188_set_table_hash*/ o_5975_dest, const const_hashType/*t_188_set_table_hash*/ o_5976_source) { /* hshCreate implemented with create_188 */ } /* line 1 "no_file" */ /* 3470 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5977_destroy (const const_hashType/*t_188_set_table_hash*/ o_5978_oldHash) { /* hshDestr implemented with destr_188 */ } /* line 1 "no_file" */ /* 3471 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_5979/*:=*/ (hashType/*t_188_set_table_hash*/ *const o_5980_dest, const const_hashType/*t_188_set_table_hash*/ o_5981_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_5980_dest), o_5981_source, (createFuncType)(o_5913/*.*/), (destrFuncType)(o_5914/*.*/), (createFuncType)(o_5917/*.*/), (destrFuncType)(o_5918/*.*/)); } /* line 1 "no_file" */ /* 3472 */ hashType/*t_188_set_table_hash*/ o_5982/*.*/; /* 3473 */ hashType/*t_188_set_table_hash*/ o_5983/*.*/; /* 3474 */ /* line 149 "../lib/hash.s7i" */ static intType/*t_14_integer*/ o_5984/*[*/ (const const_hashType/*t_188_set_table_hash*/ o_5985_aHashMap, const const_setType/*t_30_bitset*/ o_5986_aKey) { /* line 150 "../lib/hash.s7i" */ return (intType/*t_14_integer*/)(((intType/*t_14_integer*/)(hshIdx(o_5985_aHashMap, (genericType)(o_5986_aKey), setHashCode(o_5986_aKey), (compareType)(o_5916/*.*/))))); } /* line 1 "no_file" */ /* 3475 */ /* line 152 "../lib/hash.s7i" */ static intType/*t_14_integer*/ /*varfunc*/ *o_5987/*[*/ (hashType/*t_188_set_table_hash*/ *const o_5988_aHashMap, const const_setType/*t_30_bitset*/ o_5989_aKey) { /* line 153 "../lib/hash.s7i" */ return (intType/*t_14_integer*/ *)(&(hshIdxAddr(*o_5988_aHashMap, (genericType)(o_5989_aKey), setHashCode(o_5989_aKey), (compareType)(o_5916/*.*/))->value.intValue)); } /* line 1 "no_file" */ /* 3476 */ /* line 161 "../lib/hash.s7i" */ static intType/*t_14_integer*/ o_5990/*[*/ (const const_hashType/*t_188_set_table_hash*/ o_5991_aHashMap, const const_setType/*t_30_bitset*/ o_5992_aKey, const intType/*t_14_integer*/ o_5993_defaultValue) { /* line 162 "../lib/hash.s7i" */ intType/*t_14_integer*/ result; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ result=(intType/*t_14_integer*/)(((addr_1=hshIdxAddr2(o_5991_aHashMap, (genericType)(o_5992_aKey), setHashCode(o_5992_aKey), (compareType)(o_5916/*.*/)),addr_1!=NULL?addr_1->value.intValue:(o_5993_defaultValue)))); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 3477 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_5994_in (const const_setType/*t_30_bitset*/ o_5995_aKey, const const_hashType/*t_188_set_table_hash*/ o_5996_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_5996_aHashMap, (genericType)(o_5995_aKey), setHashCode(o_5995_aKey), (compareType)(o_5916/*.*/)))); } /* line 1 "no_file" */ /* 3478 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_5997_not (const const_setType/*t_30_bitset*/ o_5998_aKey, const const_hashType/*t_188_set_table_hash*/ o_5999_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_5999_aHashMap, (genericType)(o_5998_aKey), setHashCode(o_5998_aKey), (compareType)(o_5916/*.*/))))); } /* line 1 "no_file" */ /* 3479 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6000_incl (hashType/*t_188_set_table_hash*/ *const o_6001_aHashMap, const const_setType/*t_30_bitset*/ o_6002_aKey, const intType/*t_14_integer*/ o_6003_anElem) { /* line 191 "../lib/hash.s7i" */ hshIncl(*o_6001_aHashMap, (genericType)(o_6002_aKey), (genericType)(o_6003_anElem), setHashCode(o_6002_aKey), (compareType)(o_5916/*.*/), (createFuncType)(o_5913/*.*/), (createFuncType)(o_5917/*.*/), (copyFuncType)(o_5919/*.*/)); } /* line 1 "no_file" */ /* 3480 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6004_excl (hashType/*t_188_set_table_hash*/ *const o_6005_aHashMap, const const_setType/*t_30_bitset*/ o_6006_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_6005_aHashMap, (genericType)(o_6006_aKey), setHashCode(o_6006_aKey), (compareType)(o_5916/*.*/), (destrFuncType)(o_5914/*.*/), (destrFuncType)(o_5918/*.*/)); } /* line 1 "no_file" */ /* 3481 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6007/*@:=*/ (hashType/*t_188_set_table_hash*/ *const o_6008_aHashMap, const const_setType/*t_30_bitset*/ o_6009_aKey, const intType/*t_14_integer*/ o_6010_anElem) { /* line 212 "../lib/hash.s7i" */ hshIncl(*o_6008_aHashMap, (genericType)(o_6009_aKey), (genericType)(o_6010_anElem), setHashCode(o_6009_aKey), (compareType)(o_5916/*.*/), (createFuncType)(o_5913/*.*/), (createFuncType)(o_5917/*.*/), (copyFuncType)(o_5919/*.*/)); } /* line 1 "no_file" */ /* 3482 */ /* line 216 "../lib/hash.s7i" */ static intType/*t_14_integer*/ o_6011_update (hashType/*t_188_set_table_hash*/ *const o_6012_aHashMap, const const_setType/*t_30_bitset*/ o_6013_aKey, const intType/*t_14_integer*/ o_6014_anElem) { /* line 217 "../lib/hash.s7i" */ return (intType/*t_14_integer*/)(((intType/*t_14_integer*/)(hshUpdate(*o_6012_aHashMap, (genericType)(o_6013_aKey), (genericType)(o_6014_anElem), setHashCode(o_6013_aKey), (compareType)(o_5916/*.*/), (createFuncType)(o_5913/*.*/), (createFuncType)(o_5917/*.*/))))); } /* line 1 "no_file" */ /* 3483 */ /* declare inline o_6015_for*/ /* declare inline o_6016_for*/ /* declare inline o_6017_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_189_*ANONYM_TYPE**/ o_6018_keys (const const_hashType/*t_188_set_table_hash*/ o_6019_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_189_*ANONYM_TYPE**/)((hshKeys(o_6019_aHashMap, (createFuncType)(o_5913/*.*/), (destrFuncType)(o_5914/*.*/)))); } /* line 1 "no_file" */ /* 3484 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_27_TEST_1*/ o_6020_values (const const_hashType/*t_188_set_table_hash*/ o_6021_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_27_TEST_1*/)((/*ref_to_value*/ hshValues(o_6021_aHashMap, (createFuncType)(o_5917/*.*/), (destrFuncType)(o_5918/*.*/)))); } /* line 1 "no_file" */ /* 3485 */ typedef genericType t_191/*t_191_set_index_hash*/; /* 3486 */ /* 3487 */ /* 3488 */ /* 3489 */ /* objRefType/t_19_reference */ intfunctype o_6022/*.*/=(intfunctype)(&genericCreate); /* 3490 */ /* objRefType/t_19_reference */ intfunctype o_6023/*.*/=(intfunctype)(&genericDestr); /* 3491 */ /* objRefType/t_19_reference */ intfunctype o_6024/*.*/=(intfunctype)(&genericCpy); /* 3492 */ /* objRefType/t_19_reference */ intfunctype o_6025/*.*/=(intfunctype)(&intCmpGeneric); /* 3493 */ static genericType generic_create_189 (const genericType b) { rtlObjectType result; result.value.arrayValue=create_189(((const_rtlObjectType *) &b)->value.arrayValue); return result.value.genericValue; } /* objRefType/t_19_reference */ intfunctype o_6026/*.*/=(intfunctype)(&generic_create_189); /* 3494 */ static void generic_destr_189 (const genericType b) { destr_189(((const_rtlObjectType *) &b)->value.arrayValue); } /* objRefType/t_19_reference */ intfunctype o_6027/*.*/=(intfunctype)(&generic_destr_189); /* 3495 */ /* line 64 "../lib/array.s7i" */ static void cpy_189 (arrayType/*t_189_*ANONYM_TYPE**/ *a, arrayType/*t_189_*ANONYM_TYPE**/ b) /* line 64 "../lib/array.s7i" */ { /* line 64 "../lib/array.s7i" */ memSizeType i; /* line 64 "../lib/array.s7i" */ memSizeType size_a = (uintType)((*a)->max_position - (*a)->min_position + 1); /* line 64 "../lib/array.s7i" */ memSizeType size_b = (uintType)(b->max_position - b->min_position + 1); /* line 64 "../lib/array.s7i" */ memSizeType size; /* line 64 "../lib/array.s7i" */ (*a)->min_position = b->min_position; /* line 64 "../lib/array.s7i" */ (*a)->max_position = b->max_position; /* line 64 "../lib/array.s7i" */ if (size_a == size_b) { /* line 64 "../lib/array.s7i" */ size = size_a; /* line 64 "../lib/array.s7i" */ } else { /* line 64 "../lib/array.s7i" */ if (size_a < size_b) { /* line 64 "../lib/array.s7i" */ *a=(arrayType/*t_189_*ANONYM_TYPE**/)(arrRealloc((arrayType)(*a), size_a, size_b)); size = size_a; /* line 64 "../lib/array.s7i" */ for (i = size_a; i < size_b; i++) { /* line 64 "../lib/array.s7i" */ (*a)->arr[i].value.setValue=setCreate(b->arr[i].value.setValue); /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ } else /* size_a > size_b */ { /* line 64 "../lib/array.s7i" */ size = size_b; /* line 64 "../lib/array.s7i" */ for (i = size_b; i < size_a; i++) { /* line 64 "../lib/array.s7i" */ setDestr((*a)->arr[i].value.setValue); /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ *a=(arrayType/*t_189_*ANONYM_TYPE**/)(arrRealloc((arrayType)(*a), size_a, size_b)); /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 64 "../lib/array.s7i" */ setCpy(&((*a)->arr[i].value.setValue), b->arr[i].value.setValue); /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ } /* line 1 "no_file" */ static void generic_cpy_189 (genericType *a, const genericType b) { cpy_189((arrayType/*t_189_*ANONYM_TYPE**/ *)(&(((const_rtlObjectType *) a)->value.arrayValue)), (arrayType/*t_189_*ANONYM_TYPE**/)(((const_rtlObjectType *) &b)->value.arrayValue)); } /* objRefType/t_19_reference */ intfunctype o_6028/*.*/=(intfunctype)(&generic_cpy_189); /* 3496 */ /* 3497 */ /* 3498 */ /* 3499 */ typedef genericType t_192/*t_192_*ANONYM_TYPE**/; /* 3500 */ typedef genericType t_193/*t_193_*ANONYM_TYPE**/; /* 3501 */ /* 3502 */ /* 3503 */ /* 3504 */ /* ACTION ARR_GEN for type arrayType/t_193_*ANONYM_TYPE* element is arrayType/t_189_*ANONYM_TYPE* */ /* 3505 */ /* 3506 */ /* 3507 */ /* 3508 */ /* 3509 */ /* 3510 */ /* ACTION ARR_IDX for type arrayType/t_192_*ANONYM_TYPE* element is arrayType/t_189_*ANONYM_TYPE* */ /* 3511 */ /* ACTION ARR_IDX for type arrayType/t_192_*ANONYM_TYPE* element is arrayType/t_189_*ANONYM_TYPE* */ /* 3512 */ /* line 163 "../lib/array.s7i" */ static arrayType times_192 (intType n, const const_arrayType/*t_189_*ANONYM_TYPE**/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.arrayValue=create_189(b); /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 3513 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_192_*ANONYM_TYPE**/ create_192 (const_arrayType/*t_192_*ANONYM_TYPE**/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_192_*ANONYM_TYPE**/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_192_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.arrayValue=create_189(b->arr[i].value.arrayValue); /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_192 (const_arrayType/*t_192_*ANONYM_TYPE**/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ destr_189(b->arr[i].value.arrayValue); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_193 (const_arrayType/*t_193_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ destr_189(b->arr[i].value.arrayValue); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_193_*ANONYM_TYPE**/ create_193 (const_arrayType/*t_193_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_193_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_193_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.arrayValue=create_189(b->arr[i].value.arrayValue); /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_192_*ANONYM_TYPE**/ o_6029_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_6030_indexRange, const const_arrayType/*t_189_*ANONYM_TYPE**/ value_o_6031_element) { /* line 183 "../lib/array.s7i" */ const_arrayType/*t_189_*ANONYM_TYPE**/ o_6031_element; /* line 186 "../lib/array.s7i" */ arrayType/*t_192_*ANONYM_TYPE**/ o_6032_anArray; /* line 183 "../lib/array.s7i" */ o_6031_element=create_189(value_o_6031_element); /* line 186 "../lib/array.s7i" */ o_6032_anArray=create_192(arr[153]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_6032_anArray; /* line 188 "../lib/array.s7i" */ o_6032_anArray=times_192(((((structType)(o_6030_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_6030_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_6031_element); /* line 188 "../lib/array.s7i" */ destr_192(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_6032_anArray; /* line 189 "../lib/array.s7i" */ o_6032_anArray=arrArrlit2(((structType)(o_6030_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_193(/*arrConv()*/o_6032_anArray)); /* line 189 "../lib/array.s7i" */ destr_192(old_array); } /* line 183 "../lib/array.s7i" */ destr_189(o_6031_element); return o_6032_anArray; } /* line 1 "no_file" */ /* 3514 */ /* declare inline o_6033_for*/ /* declare inline o_6034_for*/ /* declare inline o_6035_for*/ /* declare inline o_6036_for*/ /* declare inline o_6037_for*/ /* declare inline o_6038_for*/ /* declare inline o_6039_for*/ /* declare inline o_6040_for*/ /* declare inline o_6041_for*/ /* line 329 "../lib/array.s7i" */ static arrayType/*t_189_*ANONYM_TYPE**/ o_6042_rand (const const_arrayType/*t_192_*ANONYM_TYPE**/ o_6043_arr) { /* line 330 "../lib/array.s7i" */ arrayType/*t_189_*ANONYM_TYPE**/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(arrayType/*t_189_*ANONYM_TYPE**/)((/*ref_to_value*/ (o_6043_arr)->arr[idx_1=intRand((o_6043_arr)->min_position, (o_6043_arr)->max_position),(idxChk(idx_1 < (o_6043_arr)->min_position || idx_1 > (o_6043_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_6043_arr)->min_position)].value.arrayValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 3515 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_6044_insert (arrayType/*t_192_*ANONYM_TYPE**/ *const o_6045_arr, const intType/*t_14_integer*/ o_6046_index, const const_arrayType/*t_189_*ANONYM_TYPE**/ value_o_6047_element) { /* line 332 "../lib/array.s7i" */ const_arrayType/*t_189_*ANONYM_TYPE**/ o_6047_element; /* line 332 "../lib/array.s7i" */ o_6047_element=create_189(value_o_6047_element); /* line 334 "../lib/array.s7i" */ if (((o_6046_index) >= ((*o_6045_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_6046_index) <= (((*o_6045_arr)->max_position)+1))) { { /* line 335 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 335 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_6045_arr; /* line 335 "../lib/array.s7i" */ *o_6045_arr=arrCat(arrCat((tmp_4=arrHead(*o_6045_arr, (o_6046_index)-1), create_192(tmp_4)), arrBaselit((genericType)(create_189(o_6047_element)))), (tmp_7=arrTail(*o_6045_arr, o_6046_index), create_192(tmp_7))); /* line 335 "../lib/array.s7i" */ destr_192(old_array); } /* line 335 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 335 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } /* line 332 "../lib/array.s7i" */ destr_189(o_6047_element); } /* line 1 "no_file" */ /* 3516 */ /* line 344 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_6048/*=*/ (const const_arrayType/*t_192_*ANONYM_TYPE**/ o_6049_arr1, const const_arrayType/*t_192_*ANONYM_TYPE**/ o_6050_arr2) { /* line 346 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_6051_isEqual=o_25_FALSE; /* line 348 "../lib/array.s7i" */ intType/*t_14_integer*/ o_6052_number=1; /* line 350 "../lib/array.s7i" */ if ((((o_6049_arr1)->min_position) == ((o_6050_arr2)->min_position)) && /* line 350 "../lib/array.s7i" */ (((o_6049_arr1)->max_position) == ((o_6050_arr2)->max_position))) { /* line 351 "../lib/array.s7i" */ o_6051_isEqual=o_26_TRUE; /* line 352 "../lib/array.s7i" */ o_6052_number=(o_6049_arr1)->min_position; /* line 353 "../lib/array.s7i" */ while (((o_6052_number) <= ((o_6049_arr1)->max_position)) && /* line 353 "../lib/array.s7i" */ (o_6051_isEqual)) { /* line 354 "../lib/array.s7i" */ o_6051_isEqual=o_5939/*=*/((o_6049_arr1)->arr[(idxChk((o_6052_number) < (o_6049_arr1)->min_position || (o_6052_number) > (o_6049_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6052_number)-(o_6049_arr1)->min_position)].value.arrayValue, (o_6050_arr2)->arr[(idxChk((o_6052_number) < (o_6050_arr2)->min_position || (o_6052_number) > (o_6050_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6052_number)-(o_6050_arr2)->min_position)].value.arrayValue); /* line 355 "../lib/array.s7i" */ ++(o_6052_number); } } return o_6051_isEqual; } /* line 1 "no_file" */ /* 3517 */ /* line 360 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_6053/*<>*/ (const const_arrayType/*t_192_*ANONYM_TYPE**/ o_6054_arr1, const const_arrayType/*t_192_*ANONYM_TYPE**/ o_6055_arr2) { /* line 362 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_6056_isNotEqual=o_26_TRUE; /* line 364 "../lib/array.s7i" */ intType/*t_14_integer*/ o_6057_number=1; /* line 366 "../lib/array.s7i" */ if ((((o_6054_arr1)->min_position) == ((o_6055_arr2)->min_position)) && /* line 366 "../lib/array.s7i" */ (((o_6054_arr1)->max_position) == ((o_6055_arr2)->max_position))) { /* line 367 "../lib/array.s7i" */ o_6056_isNotEqual=o_25_FALSE; /* line 368 "../lib/array.s7i" */ o_6057_number=(o_6054_arr1)->min_position; /* line 369 "../lib/array.s7i" */ while (((o_6057_number) <= ((o_6054_arr1)->max_position)) && /* line 369 "../lib/array.s7i" */ (!(o_6056_isNotEqual))) { /* line 370 "../lib/array.s7i" */ o_6056_isNotEqual=o_5944/*<>*/((o_6054_arr1)->arr[(idxChk((o_6057_number) < (o_6054_arr1)->min_position || (o_6057_number) > (o_6054_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6057_number)-(o_6054_arr1)->min_position)].value.arrayValue, (o_6055_arr2)->arr[(idxChk((o_6057_number) < (o_6055_arr2)->min_position || (o_6057_number) > (o_6055_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6057_number)-(o_6055_arr2)->min_position)].value.arrayValue); /* line 371 "../lib/array.s7i" */ ++(o_6057_number); } } return o_6056_isNotEqual; } /* line 1 "no_file" */ /* 3518 */ /* line 381 "../lib/array.s7i" */ static void/*t_1_void*/ o_6058_insert (arrayType/*t_192_*ANONYM_TYPE**/ *const o_6059_arr, const const_arrayType/*t_189_*ANONYM_TYPE**/ value_o_6060_element) { /* line 381 "../lib/array.s7i" */ const_arrayType/*t_189_*ANONYM_TYPE**/ o_6060_element; /* line 383 "../lib/array.s7i" */ intType/*t_14_integer*/ o_6061_number=1; /* line 381 "../lib/array.s7i" */ o_6060_element=create_189(value_o_6060_element); /* line 385 "../lib/array.s7i" */ o_6061_number=(*o_6059_arr)->min_position; /* line 386 "../lib/array.s7i" */ while (((o_6061_number) <= ((*o_6059_arr)->max_position)) && /* line 386 "../lib/array.s7i" */ (o_5959/*<*/((*o_6059_arr)->arr[(idxChk((o_6061_number) < (*o_6059_arr)->min_position || (o_6061_number) > (*o_6059_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6061_number)-(*o_6059_arr)->min_position)].value.arrayValue, o_6060_element))) { /* line 387 "../lib/array.s7i" */ ++(o_6061_number); } /* line 389 "../lib/array.s7i" */ if ((o_6061_number) > ((*o_6059_arr)->max_position)) { { { /* line 390 "../lib/array.s7i" */ arrayType old_array=*o_6059_arr; /* line 390 "../lib/array.s7i" */ *o_6059_arr=arrCat(create_192(*o_6059_arr), arrBaselit((genericType)(create_189(o_6060_element)))); /* line 390 "../lib/array.s7i" */ destr_192(old_array); } } } else /* line 391 "../lib/array.s7i" */ if (o_5962/*>*/((*o_6059_arr)->arr[(idxChk((o_6061_number) < (*o_6059_arr)->min_position || (o_6061_number) > (*o_6059_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6061_number)-(*o_6059_arr)->min_position)].value.arrayValue, o_6060_element)) { { /* line 392 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 392 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 392 "../lib/array.s7i" */ arrayType old_array=*o_6059_arr; /* line 392 "../lib/array.s7i" */ *o_6059_arr=arrCat(arrCat((tmp_4=arrHead(*o_6059_arr, (o_6061_number)-1), create_192(tmp_4)), arrBaselit((genericType)(create_189(o_6060_element)))), (tmp_7=arrTail(*o_6059_arr, o_6061_number), create_192(tmp_7))); /* line 392 "../lib/array.s7i" */ destr_192(old_array); } /* line 392 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 392 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } /* line 381 "../lib/array.s7i" */ destr_189(o_6060_element); } /* line 1 "no_file" */ /* 3519 */ /* line 400 "../lib/array.s7i" */ static intType/*t_14_integer*/ o_6062_compare (const const_arrayType/*t_192_*ANONYM_TYPE**/ o_6063_arr1, const const_arrayType/*t_192_*ANONYM_TYPE**/ o_6064_arr2) { /* line 402 "../lib/array.s7i" */ intType/*t_14_integer*/ o_6065_signumValue=0; /* line 404 "../lib/array.s7i" */ intType/*t_14_integer*/ o_6066_idx1=0; /* line 405 "../lib/array.s7i" */ intType/*t_14_integer*/ o_6067_idx2=0; /* line 407 "../lib/array.s7i" */ o_6066_idx1=(o_6063_arr1)->min_position; /* line 408 "../lib/array.s7i" */ o_6067_idx2=(o_6064_arr2)->min_position; /* line 409 "../lib/array.s7i" */ while (((o_6066_idx1) <= ((o_6063_arr1)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_6067_idx2) <= ((o_6064_arr2)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_5953_compare((o_6063_arr1)->arr[(idxChk((o_6066_idx1) < (o_6063_arr1)->min_position || (o_6066_idx1) > (o_6063_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6066_idx1)-(o_6063_arr1)->min_position)].value.arrayValue, (o_6064_arr2)->arr[(idxChk((o_6067_idx2) < (o_6064_arr2)->min_position || (o_6067_idx2) > (o_6064_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6067_idx2)-(o_6064_arr2)->min_position)].value.arrayValue)) == (0L))) { /* line 410 "../lib/array.s7i" */ ++(o_6066_idx1); /* line 411 "../lib/array.s7i" */ ++(o_6067_idx2); } /* line 413 "../lib/array.s7i" */ if (((o_6066_idx1) <= ((o_6063_arr1)->max_position)) && /* line 413 "../lib/array.s7i" */ ((o_6067_idx2) <= ((o_6064_arr2)->max_position))) { /* line 414 "../lib/array.s7i" */ o_6065_signumValue=o_5953_compare((o_6063_arr1)->arr[(idxChk((o_6066_idx1) < (o_6063_arr1)->min_position || (o_6066_idx1) > (o_6063_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6066_idx1)-(o_6063_arr1)->min_position)].value.arrayValue, (o_6064_arr2)->arr[(idxChk((o_6067_idx2) < (o_6064_arr2)->min_position || (o_6067_idx2) > (o_6064_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6067_idx2)-(o_6064_arr2)->min_position)].value.arrayValue); } else { /* line 416 "../lib/array.s7i" */ o_6065_signumValue=intCmp(((o_6063_arr1)->max_position - (o_6063_arr1)->min_position + 1), ((o_6064_arr2)->max_position - (o_6064_arr2)->min_position + 1)); } return o_6065_signumValue; } /* line 1 "no_file" */ /* 3520 */ /* line 420 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_6068/*<*/ (const const_arrayType/*t_192_*ANONYM_TYPE**/ o_6069_arr1, const const_arrayType/*t_192_*ANONYM_TYPE**/ o_6070_arr2) { /* line 421 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_6062_compare(o_6069_arr1, o_6070_arr2)) < (0L))); } /* line 1 "no_file" */ /* 3521 */ /* line 423 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_6071/*>*/ (const const_arrayType/*t_192_*ANONYM_TYPE**/ o_6072_arr1, const const_arrayType/*t_192_*ANONYM_TYPE**/ o_6073_arr2) { /* line 424 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_6062_compare(o_6072_arr1, o_6073_arr2)) > (0L))); } /* line 1 "no_file" */ /* 3522 */ /* line 426 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_6074/*<=*/ (const const_arrayType/*t_192_*ANONYM_TYPE**/ o_6075_arr1, const const_arrayType/*t_192_*ANONYM_TYPE**/ o_6076_arr2) { /* line 427 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_6062_compare(o_6075_arr1, o_6076_arr2)) <= (0L))); } /* line 1 "no_file" */ /* 3523 */ /* line 429 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_6077/*>=*/ (const const_arrayType/*t_192_*ANONYM_TYPE**/ o_6078_arr1, const const_arrayType/*t_192_*ANONYM_TYPE**/ o_6079_arr2) { /* line 430 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_6062_compare(o_6078_arr1, o_6079_arr2)) >= (0L))); } /* line 1 "no_file" */ /* 3524 */ static intType generic_cmp_189 (const genericType a, const genericType b) { return o_5953_compare(((const_rtlObjectType *) &a)->value.arrayValue, ((const_rtlObjectType *) &b)->value.arrayValue); } /* objRefType/t_19_reference */ intfunctype o_6080/*.*/=(intfunctype)(&generic_cmp_189); /* 3525 */ /* line 436 "../lib/array.s7i" */ static arrayType/*t_192_*ANONYM_TYPE**/ o_6081_sort (const const_arrayType/*t_192_*ANONYM_TYPE**/ o_6082_arr_obj) { /* line 437 "../lib/array.s7i" */ return (arrayType/*t_192_*ANONYM_TYPE**/)((arrSort(create_192(o_6082_arr_obj), (compareType)(o_6080/*.*/)))); } /* line 1 "no_file" */ /* 3526 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6083/*::=*/ (const const_hashType/*t_191_set_index_hash*/ o_6084_dest, const const_hashType/*t_191_set_index_hash*/ o_6085_source) { /* hshCreate implemented with create_191 */ } /* line 1 "no_file" */ /* 3527 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6086_destroy (const const_hashType/*t_191_set_index_hash*/ o_6087_oldHash) { /* hshDestr implemented with destr_191 */ } /* line 1 "no_file" */ /* 3528 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6088/*:=*/ (hashType/*t_191_set_index_hash*/ *const o_6089_dest, const const_hashType/*t_191_set_index_hash*/ o_6090_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_6089_dest), o_6090_source, (createFuncType)(o_6022/*.*/), (destrFuncType)(o_6023/*.*/), (createFuncType)(o_6026/*.*/), (destrFuncType)(o_6027/*.*/)); } /* line 1 "no_file" */ /* 3529 */ typedef genericType t_194/*t_194_*ANONYM_TYPE**/; /* 3530 */ /* 3531 */ /* 3532 */ /* 3533 */ /* 3534 */ /* objRefType/t_194_*ANONYM_TYPE* */ objRefType o_6091/*.*/=(objRefType)(NULL); /* 3535 */ /* objRefType/t_194_*ANONYM_TYPE* */ objRefType o_6092/*.*/=(objRefType)(NULL); /* 3536 */ hashType/*t_191_set_index_hash*/ o_6093/*.*/; /* 3537 */ hashType/*t_191_set_index_hash*/ o_6094/*.*/; /* 3538 */ /* line 149 "../lib/hash.s7i" */ static arrayType/*t_189_*ANONYM_TYPE**/ o_6095/*[*/ (const const_hashType/*t_191_set_index_hash*/ o_6096_aHashMap, const intType/*t_14_integer*/ *const o_6097_aKey) { /* line 150 "../lib/hash.s7i" */ return (arrayType/*t_189_*ANONYM_TYPE**/)((/*ref_to_value*/ (arrayType/*t_189_*ANONYM_TYPE**/)(hshIdx(o_6096_aHashMap, (genericType)(*o_6097_aKey), (*o_6097_aKey), (compareType)(o_6025/*.*/))))); } /* line 1 "no_file" */ /* 3539 */ /* line 152 "../lib/hash.s7i" */ static arrayType/*t_189_*ANONYM_TYPE**/ /*varfunc*/ *o_6098/*[*/ (hashType/*t_191_set_index_hash*/ *const o_6099_aHashMap, const intType/*t_14_integer*/ *const o_6100_aKey) { /* line 153 "../lib/hash.s7i" */ return (arrayType/*t_189_*ANONYM_TYPE**/ *)(&(hshIdxAddr(*o_6099_aHashMap, (genericType)(*o_6100_aKey), (*o_6100_aKey), (compareType)(o_6025/*.*/))->value.arrayValue)); } /* line 1 "no_file" */ /* 3540 */ /* line 161 "../lib/hash.s7i" */ static arrayType/*t_189_*ANONYM_TYPE**/ o_6101/*[*/ (const const_hashType/*t_191_set_index_hash*/ o_6102_aHashMap, const intType/*t_14_integer*/ *const o_6103_aKey, const const_arrayType/*t_189_*ANONYM_TYPE**/ value_o_6104_defaultValue) { /* line 162 "../lib/hash.s7i" */ arrayType/*t_189_*ANONYM_TYPE**/ result; /* line 162 "../lib/hash.s7i" */ const_arrayType/*t_189_*ANONYM_TYPE**/ o_6104_defaultValue; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ o_6104_defaultValue=create_189(value_o_6104_defaultValue); /* line 162 "../lib/hash.s7i" */ result=(arrayType/*t_189_*ANONYM_TYPE**/)((/*ref_to_value*/ (addr_1=hshIdxAddr2(o_6102_aHashMap, (genericType)(*o_6103_aKey), (*o_6103_aKey), (compareType)(o_6025/*.*/)),addr_1!=NULL?addr_1->value.arrayValue:(o_6104_defaultValue)))); /* line 162 "../lib/hash.s7i" */ destr_189(o_6104_defaultValue); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 3541 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_6105_in (const intType/*t_14_integer*/ *const o_6106_aKey, const const_hashType/*t_191_set_index_hash*/ o_6107_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_6107_aHashMap, (genericType)(*o_6106_aKey), (*o_6106_aKey), (compareType)(o_6025/*.*/)))); } /* line 1 "no_file" */ /* 3542 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_6108_not (const intType/*t_14_integer*/ *const o_6109_aKey, const const_hashType/*t_191_set_index_hash*/ o_6110_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_6110_aHashMap, (genericType)(*o_6109_aKey), (*o_6109_aKey), (compareType)(o_6025/*.*/))))); } /* line 1 "no_file" */ /* 3543 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6111_incl (hashType/*t_191_set_index_hash*/ *const o_6112_aHashMap, const intType/*t_14_integer*/ *const o_6113_aKey, const const_arrayType/*t_189_*ANONYM_TYPE**/ value_o_6114_anElem) { /* line 189 "../lib/hash.s7i" */ const_arrayType/*t_189_*ANONYM_TYPE**/ o_6114_anElem; /* line 189 "../lib/hash.s7i" */ o_6114_anElem=create_189(value_o_6114_anElem); /* line 191 "../lib/hash.s7i" */ hshIncl(*o_6112_aHashMap, (genericType)(*o_6113_aKey), (genericType)(o_6114_anElem), (*o_6113_aKey), (compareType)(o_6025/*.*/), (createFuncType)(o_6022/*.*/), (createFuncType)(o_6026/*.*/), (copyFuncType)(o_6028/*.*/)); /* line 189 "../lib/hash.s7i" */ destr_189(o_6114_anElem); } /* line 1 "no_file" */ /* 3544 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6115_excl (hashType/*t_191_set_index_hash*/ *const o_6116_aHashMap, const intType/*t_14_integer*/ *const o_6117_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_6116_aHashMap, (genericType)(*o_6117_aKey), (*o_6117_aKey), (compareType)(o_6025/*.*/), (destrFuncType)(o_6023/*.*/), (destrFuncType)(o_6027/*.*/)); } /* line 1 "no_file" */ /* 3545 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6118/*@:=*/ (hashType/*t_191_set_index_hash*/ *const o_6119_aHashMap, const intType/*t_14_integer*/ *const o_6120_aKey, const const_arrayType/*t_189_*ANONYM_TYPE**/ value_o_6121_anElem) { /* line 210 "../lib/hash.s7i" */ const_arrayType/*t_189_*ANONYM_TYPE**/ o_6121_anElem; /* line 210 "../lib/hash.s7i" */ o_6121_anElem=create_189(value_o_6121_anElem); /* line 212 "../lib/hash.s7i" */ hshIncl(*o_6119_aHashMap, (genericType)(*o_6120_aKey), (genericType)(o_6121_anElem), (*o_6120_aKey), (compareType)(o_6025/*.*/), (createFuncType)(o_6022/*.*/), (createFuncType)(o_6026/*.*/), (copyFuncType)(o_6028/*.*/)); /* line 210 "../lib/hash.s7i" */ destr_189(o_6121_anElem); } /* line 1 "no_file" */ /* 3546 */ /* line 216 "../lib/hash.s7i" */ static arrayType/*t_189_*ANONYM_TYPE**/ o_6122_update (hashType/*t_191_set_index_hash*/ *const o_6123_aHashMap, const intType/*t_14_integer*/ *const o_6124_aKey, const const_arrayType/*t_189_*ANONYM_TYPE**/ value_o_6125_anElem) { /* line 217 "../lib/hash.s7i" */ arrayType/*t_189_*ANONYM_TYPE**/ result; /* line 217 "../lib/hash.s7i" */ const_arrayType/*t_189_*ANONYM_TYPE**/ o_6125_anElem; /* line 217 "../lib/hash.s7i" */ o_6125_anElem=create_189(value_o_6125_anElem); /* line 217 "../lib/hash.s7i" */ result=(arrayType/*t_189_*ANONYM_TYPE**/)(((arrayType/*t_189_*ANONYM_TYPE**/)(hshUpdate(*o_6123_aHashMap, (genericType)(*o_6124_aKey), (genericType)(create_189(o_6125_anElem)), (*o_6124_aKey), (compareType)(o_6025/*.*/), (createFuncType)(o_6022/*.*/), (createFuncType)(o_6026/*.*/))))); /* line 217 "../lib/hash.s7i" */ destr_189(o_6125_anElem); /* line 217 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 3547 */ /* declare inline o_6126_for*/ /* declare inline o_6127_for*/ /* declare inline o_6128_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_27_TEST_1*/ o_6129_keys (const const_hashType/*t_191_set_index_hash*/ o_6130_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_27_TEST_1*/)((hshKeys(o_6130_aHashMap, (createFuncType)(o_6022/*.*/), (destrFuncType)(o_6023/*.*/)))); } /* line 1 "no_file" */ /* 3548 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_192_*ANONYM_TYPE**/ o_6131_values (const const_hashType/*t_191_set_index_hash*/ o_6132_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_192_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_6132_aHashMap, (createFuncType)(o_6026/*.*/), (destrFuncType)(o_6027/*.*/)))); } /* line 1 "no_file" */ /* 3549 */ /* line 61 "../lib/hash.s7i" */ static void destr_191 (const_hashType/*t_191_set_index_hash*/ b) /* line 61 "../lib/hash.s7i" */ { /* line 61 "../lib/hash.s7i" */ hshDestr(b, (destrFuncType)(o_6023/*.*/), (destrFuncType)(o_6027/*.*/)); /* line 61 "../lib/hash.s7i" */ } /* line 1 "no_file" */ /* line 283 "../lib/hash.s7i" */ static hashType/*t_191_set_index_hash*/ o_6133_flip (const const_hashType/*t_188_set_table_hash*/ o_6134_aHashMap) { /* line 285 "../lib/hash.s7i" */ hashType/*t_191_set_index_hash*/ o_6135_inverseHash; /* line 287 "../lib/hash.s7i" */ setType/*t_30_bitset*/ o_6136_aKey; /* line 288 "../lib/hash.s7i" */ intType/*t_14_integer*/ o_6137_aValue=0; /* line 285 "../lib/hash.s7i" */ o_6135_inverseHash=hshEmpty(); /* line 287 "../lib/hash.s7i" */ o_6136_aKey=setCreate(set[0]); /* inline proc o_6017_for */ { /* inline params */ /* line 290 "../lib/hash.s7i" */ intType/*t_14_integer*/ *const o_6138_forVar=&(o_6137_aValue); /* line 290 "../lib/hash.s7i" */ setType/*t_30_bitset*/ *const o_6139_keyVar=&(o_6136_aKey); /* line 290 "../lib/hash.s7i" */ const const_hashType/*t_188_set_table_hash*/ o_6140_aHashMap=o_6134_aHashMap; /* line 290 "../lib/hash.s7i" */ /* push proc param o_6141_statements */ /* line 290 "../lib/hash.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 258 "../lib/hash.s7i" */ const_hashType hash_1=o_6140_aHashMap; /* line 258 "../lib/hash.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 258 "../lib/hash.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 258 "../lib/hash.s7i" */ const_hashElemType helem_4; /* line 258 "../lib/hash.s7i" */ hashElemListType stack_5=NULL; /* line 258 "../lib/hash.s7i" */ while (counter_2 > 0) { /* line 258 "../lib/hash.s7i" */ helem_4=*table_elem_3; /* line 258 "../lib/hash.s7i" */ while (helem_4 != NULL) { /* line 258 "../lib/hash.s7i" */ if (helem_4->next_greater != NULL) { /* line 258 "../lib/hash.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ (*o_6138_forVar)=helem_4->data.value.intValue; /* line 258 "../lib/hash.s7i" */ setCpy(&((*o_6139_keyVar)), helem_4->key.value.setValue); /* closure o_6141_statements*/ { /* line 291 "../lib/hash.s7i" */ if (o_6105_in(&(o_6137_aValue), o_6135_inverseHash)) { /* line 292 "../lib/hash.s7i" */ arrPush(&(*o_6098/*[*/(&(o_6135_inverseHash), &(o_6137_aValue))), (genericType)(setCreate(o_6136_aKey))); } else { { /* line 294 "../lib/hash.s7i" */ arrayType/*t_189_*ANONYM_TYPE**/ tmp_1 = (arrayType/*t_189_*ANONYM_TYPE**/)(NULL); /* line 294 "../lib/hash.s7i" */ o_6118/*@:=*/(&(o_6135_inverseHash), &(o_6137_aValue), (tmp_1=(arrayType/*t_189_*ANONYM_TYPE**/)(arrBaselit((genericType)(setCreate(o_6136_aKey)))))); /* line 294 "../lib/hash.s7i" */ destr_189(tmp_1); } } } /* closure o_6141_statements*/ /* line 258 "../lib/hash.s7i" */ if (helem_4->next_less != NULL) { /* line 258 "../lib/hash.s7i" */ helem_4=helem_4->next_less; /* line 258 "../lib/hash.s7i" */ } else { /* line 258 "../lib/hash.s7i" */ pop_stack(stack_5, helem_4); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ counter_2--; /* line 258 "../lib/hash.s7i" */ table_elem_3++; /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ } /* hsh_for */ /* pop proc param o_6141_statements */ } /* inline proc o_6017_for */ /* line 283 "../lib/hash.s7i" */ setDestr(o_6136_aKey); return o_6135_inverseHash; } /* line 1 "no_file" */ /* 3550 */ /* 3551 */ /* line 58 "../lib/hash.s7i" */ static hashType/*t_188_set_table_hash*/ create_188 (const_hashType/*t_188_set_table_hash*/ b) /* line 58 "../lib/hash.s7i" */ { /* line 58 "../lib/hash.s7i" */ return hshCreate(b, (createFuncType)(o_5913/*.*/), (destrFuncType)(o_5914/*.*/), (createFuncType)(o_5917/*.*/), (destrFuncType)(o_5918/*.*/)); /* line 58 "../lib/hash.s7i" */ } /* line 1 "no_file" */ hashType/*t_188_set_table_hash*/ o_6142_set_const_table; /* 3552 */ typedef genericType t_195/*t_195_type_table_hash*/; /* 3553 */ /* 3554 */ /* 3555 */ /* 3556 */ /* 3557 */ /* objRefType/t_19_reference */ intfunctype o_6143/*.*/=(intfunctype)(&ptrCreateGeneric); /* 3558 */ /* objRefType/t_19_reference */ intfunctype o_6144/*.*/=(intfunctype)(&genericDestr); /* 3559 */ /* objRefType/t_19_reference */ intfunctype o_6145/*.*/=(intfunctype)(&ptrCpyGeneric); /* 3560 */ /* objRefType/t_19_reference */ intfunctype o_6146/*.*/=(intfunctype)(&typCmpGeneric); /* 3561 */ /* objRefType/t_19_reference */ intfunctype o_6147/*.*/=(intfunctype)(&genericCreate); /* 3562 */ /* objRefType/t_19_reference */ intfunctype o_6148/*.*/=(intfunctype)(&genericDestr); /* 3563 */ /* objRefType/t_19_reference */ intfunctype o_6149/*.*/=(intfunctype)(&genericCpy); /* 3564 */ /* 3565 */ /* 3566 */ /* 3567 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6150/*::=*/ (const const_hashType/*t_195_type_table_hash*/ o_6151_dest, const const_hashType/*t_195_type_table_hash*/ o_6152_source) { /* hshCreate implemented with create_195 */ } /* line 1 "no_file" */ /* 3568 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6153_destroy (const const_hashType/*t_195_type_table_hash*/ o_6154_oldHash) { /* hshDestr implemented with destr_195 */ } /* line 1 "no_file" */ /* 3569 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6155/*:=*/ (hashType/*t_195_type_table_hash*/ *const o_6156_dest, const const_hashType/*t_195_type_table_hash*/ o_6157_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_6156_dest), o_6157_source, (createFuncType)(o_6143/*.*/), (destrFuncType)(o_6144/*.*/), (createFuncType)(o_6147/*.*/), (destrFuncType)(o_6148/*.*/)); } /* line 1 "no_file" */ /* 3570 */ hashType/*t_195_type_table_hash*/ o_6158/*.*/; /* 3571 */ hashType/*t_195_type_table_hash*/ o_6159/*.*/; /* 3572 */ /* line 149 "../lib/hash.s7i" */ static intType/*t_14_integer*/ o_6160/*[*/ (const const_hashType/*t_195_type_table_hash*/ o_6161_aHashMap, const typeType/*t_7_type*/ *const o_6162_aKey) { /* line 150 "../lib/hash.s7i" */ return (intType/*t_14_integer*/)(((intType/*t_14_integer*/)(hshIdx(o_6161_aHashMap, (genericType)(*o_6162_aKey), (intType)(((memSizeType)(*o_6162_aKey)) >> 6), (compareType)(o_6146/*.*/))))); } /* line 1 "no_file" */ /* 3573 */ /* line 152 "../lib/hash.s7i" */ static intType/*t_14_integer*/ /*varfunc*/ *o_6163/*[*/ (hashType/*t_195_type_table_hash*/ *const o_6164_aHashMap, const typeType/*t_7_type*/ *const o_6165_aKey) { /* line 153 "../lib/hash.s7i" */ return (intType/*t_14_integer*/ *)(&(hshIdxAddr(*o_6164_aHashMap, (genericType)(*o_6165_aKey), (intType)(((memSizeType)(*o_6165_aKey)) >> 6), (compareType)(o_6146/*.*/))->value.intValue)); } /* line 1 "no_file" */ /* 3574 */ /* line 161 "../lib/hash.s7i" */ static intType/*t_14_integer*/ o_6166/*[*/ (const const_hashType/*t_195_type_table_hash*/ o_6167_aHashMap, const typeType/*t_7_type*/ *const o_6168_aKey, const intType/*t_14_integer*/ o_6169_defaultValue) { /* line 162 "../lib/hash.s7i" */ intType/*t_14_integer*/ result; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ result=(intType/*t_14_integer*/)(((addr_1=hshIdxAddr2(o_6167_aHashMap, (genericType)(*o_6168_aKey), (intType)(((memSizeType)(*o_6168_aKey)) >> 6), (compareType)(o_6146/*.*/)),addr_1!=NULL?addr_1->value.intValue:(o_6169_defaultValue)))); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 3575 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_6170_in (const typeType/*t_7_type*/ *const o_6171_aKey, const const_hashType/*t_195_type_table_hash*/ o_6172_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_6172_aHashMap, (genericType)(*o_6171_aKey), (intType)(((memSizeType)(*o_6171_aKey)) >> 6), (compareType)(o_6146/*.*/)))); } /* line 1 "no_file" */ /* 3576 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_6173_not (const typeType/*t_7_type*/ *const o_6174_aKey, const const_hashType/*t_195_type_table_hash*/ o_6175_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_6175_aHashMap, (genericType)(*o_6174_aKey), (intType)(((memSizeType)(*o_6174_aKey)) >> 6), (compareType)(o_6146/*.*/))))); } /* line 1 "no_file" */ /* 3577 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6176_incl (hashType/*t_195_type_table_hash*/ *const o_6177_aHashMap, const typeType/*t_7_type*/ *const o_6178_aKey, const intType/*t_14_integer*/ o_6179_anElem) { /* line 191 "../lib/hash.s7i" */ hshIncl(*o_6177_aHashMap, (genericType)(*o_6178_aKey), (genericType)(o_6179_anElem), (intType)(((memSizeType)(*o_6178_aKey)) >> 6), (compareType)(o_6146/*.*/), (createFuncType)(o_6143/*.*/), (createFuncType)(o_6147/*.*/), (copyFuncType)(o_6149/*.*/)); } /* line 1 "no_file" */ /* 3578 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6180_excl (hashType/*t_195_type_table_hash*/ *const o_6181_aHashMap, const typeType/*t_7_type*/ *const o_6182_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_6181_aHashMap, (genericType)(*o_6182_aKey), (intType)(((memSizeType)(*o_6182_aKey)) >> 6), (compareType)(o_6146/*.*/), (destrFuncType)(o_6144/*.*/), (destrFuncType)(o_6148/*.*/)); } /* line 1 "no_file" */ /* 3579 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6183/*@:=*/ (hashType/*t_195_type_table_hash*/ *const o_6184_aHashMap, const typeType/*t_7_type*/ *const o_6185_aKey, const intType/*t_14_integer*/ o_6186_anElem) { /* line 212 "../lib/hash.s7i" */ hshIncl(*o_6184_aHashMap, (genericType)(*o_6185_aKey), (genericType)(o_6186_anElem), (intType)(((memSizeType)(*o_6185_aKey)) >> 6), (compareType)(o_6146/*.*/), (createFuncType)(o_6143/*.*/), (createFuncType)(o_6147/*.*/), (copyFuncType)(o_6149/*.*/)); } /* line 1 "no_file" */ /* 3580 */ /* line 216 "../lib/hash.s7i" */ static intType/*t_14_integer*/ o_6187_update (hashType/*t_195_type_table_hash*/ *const o_6188_aHashMap, const typeType/*t_7_type*/ *const o_6189_aKey, const intType/*t_14_integer*/ o_6190_anElem) { /* line 217 "../lib/hash.s7i" */ return (intType/*t_14_integer*/)(((intType/*t_14_integer*/)(hshUpdate(*o_6188_aHashMap, (genericType)(*o_6189_aKey), (genericType)(o_6190_anElem), (intType)(((memSizeType)(*o_6189_aKey)) >> 6), (compareType)(o_6146/*.*/), (createFuncType)(o_6143/*.*/), (createFuncType)(o_6147/*.*/))))); } /* line 1 "no_file" */ /* 3581 */ /* declare inline o_6191_for*/ /* declare inline o_6192_for*/ /* declare inline o_6193_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_6194_keys (const const_hashType/*t_195_type_table_hash*/ o_6195_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_126_*ANONYM_TYPE**/)((hshKeys(o_6195_aHashMap, (createFuncType)(o_6143/*.*/), (destrFuncType)(o_6144/*.*/)))); } /* line 1 "no_file" */ /* 3582 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_27_TEST_1*/ o_6196_values (const const_hashType/*t_195_type_table_hash*/ o_6197_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_27_TEST_1*/)((/*ref_to_value*/ hshValues(o_6197_aHashMap, (createFuncType)(o_6147/*.*/), (destrFuncType)(o_6148/*.*/)))); } /* line 1 "no_file" */ /* 3583 */ typedef genericType t_196/*t_196_type_index_hash*/; /* 3584 */ /* 3585 */ /* 3586 */ /* 3587 */ /* objRefType/t_19_reference */ intfunctype o_6198/*.*/=(intfunctype)(&genericCreate); /* 3588 */ /* objRefType/t_19_reference */ intfunctype o_6199/*.*/=(intfunctype)(&genericDestr); /* 3589 */ /* objRefType/t_19_reference */ intfunctype o_6200/*.*/=(intfunctype)(&genericCpy); /* 3590 */ /* objRefType/t_19_reference */ intfunctype o_6201/*.*/=(intfunctype)(&intCmpGeneric); /* 3591 */ /* objRefType/t_19_reference */ intfunctype o_6202/*.*/=(intfunctype)(&generic_create_126); /* 3592 */ /* objRefType/t_19_reference */ intfunctype o_6203/*.*/=(intfunctype)(&generic_destr_126); /* 3593 */ /* objRefType/t_19_reference */ intfunctype o_6204/*.*/=(intfunctype)(&generic_cpy_126); /* 3594 */ /* 3595 */ /* 3596 */ /* 3597 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6205/*::=*/ (const const_hashType/*t_196_type_index_hash*/ o_6206_dest, const const_hashType/*t_196_type_index_hash*/ o_6207_source) { /* hshCreate implemented with create_196 */ } /* line 1 "no_file" */ /* 3598 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6208_destroy (const const_hashType/*t_196_type_index_hash*/ o_6209_oldHash) { /* hshDestr implemented with destr_196 */ } /* line 1 "no_file" */ /* 3599 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6210/*:=*/ (hashType/*t_196_type_index_hash*/ *const o_6211_dest, const const_hashType/*t_196_type_index_hash*/ o_6212_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_6211_dest), o_6212_source, (createFuncType)(o_6198/*.*/), (destrFuncType)(o_6199/*.*/), (createFuncType)(o_6202/*.*/), (destrFuncType)(o_6203/*.*/)); } /* line 1 "no_file" */ /* 3600 */ hashType/*t_196_type_index_hash*/ o_6213/*.*/; /* 3601 */ hashType/*t_196_type_index_hash*/ o_6214/*.*/; /* 3602 */ /* line 149 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_6215/*[*/ (const const_hashType/*t_196_type_index_hash*/ o_6216_aHashMap, const intType/*t_14_integer*/ *const o_6217_aKey) { /* line 150 "../lib/hash.s7i" */ return (arrayType/*t_126_*ANONYM_TYPE**/)((/*ref_to_value*/ (arrayType/*t_126_*ANONYM_TYPE**/)(hshIdx(o_6216_aHashMap, (genericType)(*o_6217_aKey), (*o_6217_aKey), (compareType)(o_6201/*.*/))))); } /* line 1 "no_file" */ /* 3603 */ /* line 152 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ /*varfunc*/ *o_6218/*[*/ (hashType/*t_196_type_index_hash*/ *const o_6219_aHashMap, const intType/*t_14_integer*/ *const o_6220_aKey) { /* line 153 "../lib/hash.s7i" */ return (arrayType/*t_126_*ANONYM_TYPE**/ *)(&(hshIdxAddr(*o_6219_aHashMap, (genericType)(*o_6220_aKey), (*o_6220_aKey), (compareType)(o_6201/*.*/))->value.arrayValue)); } /* line 1 "no_file" */ /* 3604 */ /* line 161 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_6221/*[*/ (const const_hashType/*t_196_type_index_hash*/ o_6222_aHashMap, const intType/*t_14_integer*/ *const o_6223_aKey, const const_arrayType/*t_126_*ANONYM_TYPE**/ value_o_6224_defaultValue) { /* line 162 "../lib/hash.s7i" */ arrayType/*t_126_*ANONYM_TYPE**/ result; /* line 162 "../lib/hash.s7i" */ const_arrayType/*t_126_*ANONYM_TYPE**/ o_6224_defaultValue; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ o_6224_defaultValue=create_126(value_o_6224_defaultValue); /* line 162 "../lib/hash.s7i" */ result=(arrayType/*t_126_*ANONYM_TYPE**/)((/*ref_to_value*/ (addr_1=hshIdxAddr2(o_6222_aHashMap, (genericType)(*o_6223_aKey), (*o_6223_aKey), (compareType)(o_6201/*.*/)),addr_1!=NULL?addr_1->value.arrayValue:(o_6224_defaultValue)))); /* line 162 "../lib/hash.s7i" */ destr_126(o_6224_defaultValue); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 3605 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_6225_in (const intType/*t_14_integer*/ *const o_6226_aKey, const const_hashType/*t_196_type_index_hash*/ o_6227_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_6227_aHashMap, (genericType)(*o_6226_aKey), (*o_6226_aKey), (compareType)(o_6201/*.*/)))); } /* line 1 "no_file" */ /* 3606 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_6228_not (const intType/*t_14_integer*/ *const o_6229_aKey, const const_hashType/*t_196_type_index_hash*/ o_6230_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_6230_aHashMap, (genericType)(*o_6229_aKey), (*o_6229_aKey), (compareType)(o_6201/*.*/))))); } /* line 1 "no_file" */ /* 3607 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6231_incl (hashType/*t_196_type_index_hash*/ *const o_6232_aHashMap, const intType/*t_14_integer*/ *const o_6233_aKey, const const_arrayType/*t_126_*ANONYM_TYPE**/ value_o_6234_anElem) { /* line 189 "../lib/hash.s7i" */ const_arrayType/*t_126_*ANONYM_TYPE**/ o_6234_anElem; /* line 189 "../lib/hash.s7i" */ o_6234_anElem=create_126(value_o_6234_anElem); /* line 191 "../lib/hash.s7i" */ hshIncl(*o_6232_aHashMap, (genericType)(*o_6233_aKey), (genericType)(o_6234_anElem), (*o_6233_aKey), (compareType)(o_6201/*.*/), (createFuncType)(o_6198/*.*/), (createFuncType)(o_6202/*.*/), (copyFuncType)(o_6204/*.*/)); /* line 189 "../lib/hash.s7i" */ destr_126(o_6234_anElem); } /* line 1 "no_file" */ /* 3608 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6235_excl (hashType/*t_196_type_index_hash*/ *const o_6236_aHashMap, const intType/*t_14_integer*/ *const o_6237_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_6236_aHashMap, (genericType)(*o_6237_aKey), (*o_6237_aKey), (compareType)(o_6201/*.*/), (destrFuncType)(o_6199/*.*/), (destrFuncType)(o_6203/*.*/)); } /* line 1 "no_file" */ /* 3609 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6238/*@:=*/ (hashType/*t_196_type_index_hash*/ *const o_6239_aHashMap, const intType/*t_14_integer*/ *const o_6240_aKey, const const_arrayType/*t_126_*ANONYM_TYPE**/ value_o_6241_anElem) { /* line 210 "../lib/hash.s7i" */ const_arrayType/*t_126_*ANONYM_TYPE**/ o_6241_anElem; /* line 210 "../lib/hash.s7i" */ o_6241_anElem=create_126(value_o_6241_anElem); /* line 212 "../lib/hash.s7i" */ hshIncl(*o_6239_aHashMap, (genericType)(*o_6240_aKey), (genericType)(o_6241_anElem), (*o_6240_aKey), (compareType)(o_6201/*.*/), (createFuncType)(o_6198/*.*/), (createFuncType)(o_6202/*.*/), (copyFuncType)(o_6204/*.*/)); /* line 210 "../lib/hash.s7i" */ destr_126(o_6241_anElem); } /* line 1 "no_file" */ /* 3610 */ /* line 216 "../lib/hash.s7i" */ static arrayType/*t_126_*ANONYM_TYPE**/ o_6242_update (hashType/*t_196_type_index_hash*/ *const o_6243_aHashMap, const intType/*t_14_integer*/ *const o_6244_aKey, const const_arrayType/*t_126_*ANONYM_TYPE**/ value_o_6245_anElem) { /* line 217 "../lib/hash.s7i" */ arrayType/*t_126_*ANONYM_TYPE**/ result; /* line 217 "../lib/hash.s7i" */ const_arrayType/*t_126_*ANONYM_TYPE**/ o_6245_anElem; /* line 217 "../lib/hash.s7i" */ o_6245_anElem=create_126(value_o_6245_anElem); /* line 217 "../lib/hash.s7i" */ result=(arrayType/*t_126_*ANONYM_TYPE**/)(((arrayType/*t_126_*ANONYM_TYPE**/)(hshUpdate(*o_6243_aHashMap, (genericType)(*o_6244_aKey), (genericType)(create_126(o_6245_anElem)), (*o_6244_aKey), (compareType)(o_6201/*.*/), (createFuncType)(o_6198/*.*/), (createFuncType)(o_6202/*.*/))))); /* line 217 "../lib/hash.s7i" */ destr_126(o_6245_anElem); /* line 217 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 3611 */ /* declare inline o_6246_for*/ /* declare inline o_6247_for*/ /* declare inline o_6248_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_27_TEST_1*/ o_6249_keys (const const_hashType/*t_196_type_index_hash*/ o_6250_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_27_TEST_1*/)((hshKeys(o_6250_aHashMap, (createFuncType)(o_6198/*.*/), (destrFuncType)(o_6199/*.*/)))); } /* line 1 "no_file" */ /* 3612 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_132_*ANONYM_TYPE**/ o_6251_values (const const_hashType/*t_196_type_index_hash*/ o_6252_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_132_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_6252_aHashMap, (createFuncType)(o_6202/*.*/), (destrFuncType)(o_6203/*.*/)))); } /* line 1 "no_file" */ /* 3613 */ /* line 61 "../lib/hash.s7i" */ static void destr_196 (const_hashType/*t_196_type_index_hash*/ b) /* line 61 "../lib/hash.s7i" */ { /* line 61 "../lib/hash.s7i" */ hshDestr(b, (destrFuncType)(o_6199/*.*/), (destrFuncType)(o_6203/*.*/)); /* line 61 "../lib/hash.s7i" */ } /* line 1 "no_file" */ /* line 283 "../lib/hash.s7i" */ static hashType/*t_196_type_index_hash*/ o_6253_flip (const const_hashType/*t_195_type_table_hash*/ o_6254_aHashMap) { /* line 285 "../lib/hash.s7i" */ hashType/*t_196_type_index_hash*/ o_6255_inverseHash; /* line 287 "../lib/hash.s7i" */ typeType/*t_7_type*/ o_6256_aKey=typ[0] /* void/t_1_void */; /* line 288 "../lib/hash.s7i" */ intType/*t_14_integer*/ o_6257_aValue=0; /* line 285 "../lib/hash.s7i" */ o_6255_inverseHash=hshEmpty(); /* inline proc o_6193_for */ { /* inline params */ /* line 290 "../lib/hash.s7i" */ intType/*t_14_integer*/ *const o_6258_forVar=&(o_6257_aValue); /* line 290 "../lib/hash.s7i" */ typeType/*t_7_type*/ *const o_6259_keyVar=&(o_6256_aKey); /* line 290 "../lib/hash.s7i" */ const const_hashType/*t_195_type_table_hash*/ o_6260_aHashMap=o_6254_aHashMap; /* line 290 "../lib/hash.s7i" */ /* push proc param o_6261_statements */ /* line 290 "../lib/hash.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 258 "../lib/hash.s7i" */ const_hashType hash_1=o_6260_aHashMap; /* line 258 "../lib/hash.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 258 "../lib/hash.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 258 "../lib/hash.s7i" */ const_hashElemType helem_4; /* line 258 "../lib/hash.s7i" */ hashElemListType stack_5=NULL; /* line 258 "../lib/hash.s7i" */ while (counter_2 > 0) { /* line 258 "../lib/hash.s7i" */ helem_4=*table_elem_3; /* line 258 "../lib/hash.s7i" */ while (helem_4 != NULL) { /* line 258 "../lib/hash.s7i" */ if (helem_4->next_greater != NULL) { /* line 258 "../lib/hash.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ (*o_6258_forVar)=helem_4->data.value.intValue; /* line 258 "../lib/hash.s7i" */ (*o_6259_keyVar)=helem_4->key.value.typeValue; /* closure o_6261_statements*/ { /* line 291 "../lib/hash.s7i" */ if (o_6225_in(&(o_6257_aValue), o_6255_inverseHash)) { /* line 292 "../lib/hash.s7i" */ arrPush(&(*o_6218/*[*/(&(o_6255_inverseHash), &(o_6257_aValue))), (genericType)(o_6256_aKey)); } else { { /* line 294 "../lib/hash.s7i" */ arrayType/*t_126_*ANONYM_TYPE**/ tmp_1 = (arrayType/*t_126_*ANONYM_TYPE**/)(NULL); /* line 294 "../lib/hash.s7i" */ o_6238/*@:=*/(&(o_6255_inverseHash), &(o_6257_aValue), (tmp_1=(arrayType/*t_126_*ANONYM_TYPE**/)(arrBaselit((genericType)(o_6256_aKey))))); /* line 294 "../lib/hash.s7i" */ destr_126(tmp_1); } } } /* closure o_6261_statements*/ /* line 258 "../lib/hash.s7i" */ if (helem_4->next_less != NULL) { /* line 258 "../lib/hash.s7i" */ helem_4=helem_4->next_less; /* line 258 "../lib/hash.s7i" */ } else { /* line 258 "../lib/hash.s7i" */ pop_stack(stack_5, helem_4); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ counter_2--; /* line 258 "../lib/hash.s7i" */ table_elem_3++; /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ } /* hsh_for */ /* pop proc param o_6261_statements */ } /* inline proc o_6193_for */ return o_6255_inverseHash; } /* line 1 "no_file" */ /* 3614 */ /* 3615 */ /* line 58 "../lib/hash.s7i" */ static hashType/*t_195_type_table_hash*/ create_195 (const_hashType/*t_195_type_table_hash*/ b) /* line 58 "../lib/hash.s7i" */ { /* line 58 "../lib/hash.s7i" */ return hshCreate(b, (createFuncType)(o_6143/*.*/), (destrFuncType)(o_6144/*.*/), (createFuncType)(o_6147/*.*/), (destrFuncType)(o_6148/*.*/)); /* line 58 "../lib/hash.s7i" */ } /* line 1 "no_file" */ hashType/*t_195_type_table_hash*/ o_6262_type_const_table; /* 3616 */ typedef genericType t_197/*t_197_win_table_hash*/; /* 3617 */ /* 3618 */ /* 3619 */ /* 3620 */ /* 3621 */ /* objRefType/t_19_reference */ intfunctype o_6263/*.*/=(intfunctype)(&drwCreateGeneric); /* 3622 */ /* objRefType/t_19_reference */ intfunctype o_6264/*.*/=(intfunctype)(&drwDestrGeneric); /* 3623 */ /* objRefType/t_19_reference */ intfunctype o_6265/*.*/=(intfunctype)(&drwCpyGeneric); /* 3624 */ /* objRefType/t_19_reference */ intfunctype o_6266/*.*/=(intfunctype)(&ptrCmpGeneric); /* 3625 */ /* objRefType/t_19_reference */ intfunctype o_6267/*.*/=(intfunctype)(&genericCreate); /* 3626 */ /* objRefType/t_19_reference */ intfunctype o_6268/*.*/=(intfunctype)(&genericDestr); /* 3627 */ /* objRefType/t_19_reference */ intfunctype o_6269/*.*/=(intfunctype)(&genericCpy); /* 3628 */ /* 3629 */ /* 3630 */ /* 3631 */ typedef genericType t_198/*t_198_*ANONYM_TYPE**/; /* 3632 */ typedef genericType t_199/*t_199_*ANONYM_TYPE**/; /* 3633 */ /* 3634 */ /* 3635 */ /* 3636 */ /* ACTION ARR_GEN for type arrayType/t_199_*ANONYM_TYPE* element is winType/t_91_PRIMITIVE_WINDOW */ /* 3637 */ /* 3638 */ /* 3639 */ /* 3640 */ /* 3641 */ /* 3642 */ /* ACTION ARR_IDX for type arrayType/t_198_*ANONYM_TYPE* element is winType/t_91_PRIMITIVE_WINDOW */ /* 3643 */ /* ACTION ARR_IDX for type arrayType/t_198_*ANONYM_TYPE* element is winType/t_91_PRIMITIVE_WINDOW */ /* 3644 */ /* line 163 "../lib/array.s7i" */ static arrayType times_198 (intType n, const winType/*t_91_PRIMITIVE_WINDOW*/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.winValue=drwCreate(b); /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 3645 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_198_*ANONYM_TYPE**/ create_198 (const_arrayType/*t_198_*ANONYM_TYPE**/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_198_*ANONYM_TYPE**/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_198_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.winValue=drwCreate(b->arr[i].value.winValue); /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_198 (const_arrayType/*t_198_*ANONYM_TYPE**/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ drwDestr(b->arr[i].value.winValue); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_199 (const_arrayType/*t_199_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ drwDestr(b->arr[i].value.winValue); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_199_*ANONYM_TYPE**/ create_199 (const_arrayType/*t_199_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_199_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_199_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.winValue=drwCreate(b->arr[i].value.winValue); /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_198_*ANONYM_TYPE**/ o_6270_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_6271_indexRange, const winType/*t_91_PRIMITIVE_WINDOW*/ value_o_6272_element) { /* line 183 "../lib/array.s7i" */ winType/*t_91_PRIMITIVE_WINDOW*/ o_6272_element; /* line 186 "../lib/array.s7i" */ arrayType/*t_198_*ANONYM_TYPE**/ o_6273_anArray; /* line 183 "../lib/array.s7i" */ o_6272_element=drwCreate(value_o_6272_element); /* line 186 "../lib/array.s7i" */ o_6273_anArray=create_198(arr[162]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_6273_anArray; /* line 188 "../lib/array.s7i" */ o_6273_anArray=times_198(((((structType)(o_6271_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_6271_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_6272_element); /* line 188 "../lib/array.s7i" */ destr_198(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_6273_anArray; /* line 189 "../lib/array.s7i" */ o_6273_anArray=arrArrlit2(((structType)(o_6271_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_199(/*arrConv()*/o_6273_anArray)); /* line 189 "../lib/array.s7i" */ destr_198(old_array); } /* line 183 "../lib/array.s7i" */ drwDestr(o_6272_element); return o_6273_anArray; } /* line 1 "no_file" */ /* 3646 */ /* declare inline o_6274_for*/ /* declare inline o_6275_for*/ /* declare inline o_6276_for*/ /* declare inline o_6277_for*/ /* declare inline o_6278_for*/ /* declare inline o_6279_for*/ /* declare inline o_6280_for*/ /* declare inline o_6281_for*/ /* declare inline o_6282_for*/ /* line 329 "../lib/array.s7i" */ static winType/*t_91_PRIMITIVE_WINDOW*/ o_6283_rand (const const_arrayType/*t_198_*ANONYM_TYPE**/ o_6284_arr) { /* line 330 "../lib/array.s7i" */ winType/*t_91_PRIMITIVE_WINDOW*/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(winType/*t_91_PRIMITIVE_WINDOW*/)((/*ref_to_value*/ (o_6284_arr)->arr[idx_1=intRand((o_6284_arr)->min_position, (o_6284_arr)->max_position),(idxChk(idx_1 < (o_6284_arr)->min_position || idx_1 > (o_6284_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_6284_arr)->min_position)].value.winValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 3647 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_6285_insert (arrayType/*t_198_*ANONYM_TYPE**/ *const o_6286_arr, const intType/*t_14_integer*/ o_6287_index, const winType/*t_91_PRIMITIVE_WINDOW*/ value_o_6288_element) { /* line 332 "../lib/array.s7i" */ winType/*t_91_PRIMITIVE_WINDOW*/ o_6288_element; /* line 332 "../lib/array.s7i" */ o_6288_element=drwCreate(value_o_6288_element); /* line 334 "../lib/array.s7i" */ if (((o_6287_index) >= ((*o_6286_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_6287_index) <= (((*o_6286_arr)->max_position)+1))) { { /* line 335 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 335 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_6286_arr; /* line 335 "../lib/array.s7i" */ *o_6286_arr=arrCat(arrCat((tmp_4=arrHead(*o_6286_arr, (o_6287_index)-1), create_198(tmp_4)), arrBaselit((genericType)(drwCreate(o_6288_element)))), (tmp_7=arrTail(*o_6286_arr, o_6287_index), create_198(tmp_7))); /* line 335 "../lib/array.s7i" */ destr_198(old_array); } /* line 335 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 335 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } /* line 332 "../lib/array.s7i" */ drwDestr(o_6288_element); } /* line 1 "no_file" */ /* 3648 */ /* line 344 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_6289/*=*/ (const const_arrayType/*t_198_*ANONYM_TYPE**/ o_6290_arr1, const const_arrayType/*t_198_*ANONYM_TYPE**/ o_6291_arr2) { /* line 346 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_6292_isEqual=o_25_FALSE; /* line 348 "../lib/array.s7i" */ intType/*t_14_integer*/ o_6293_number=1; /* line 350 "../lib/array.s7i" */ if ((((o_6290_arr1)->min_position) == ((o_6291_arr2)->min_position)) && /* line 350 "../lib/array.s7i" */ (((o_6290_arr1)->max_position) == ((o_6291_arr2)->max_position))) { /* line 351 "../lib/array.s7i" */ o_6292_isEqual=o_26_TRUE; /* line 352 "../lib/array.s7i" */ o_6293_number=(o_6290_arr1)->min_position; /* line 353 "../lib/array.s7i" */ while (((o_6293_number) <= ((o_6290_arr1)->max_position)) && /* line 353 "../lib/array.s7i" */ (o_6292_isEqual)) { /* line 354 "../lib/array.s7i" */ o_6292_isEqual=((o_6290_arr1)->arr[(idxChk((o_6293_number) < (o_6290_arr1)->min_position || (o_6293_number) > (o_6290_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6293_number)-(o_6290_arr1)->min_position)].value.winValue) == ((o_6291_arr2)->arr[(idxChk((o_6293_number) < (o_6291_arr2)->min_position || (o_6293_number) > (o_6291_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6293_number)-(o_6291_arr2)->min_position)].value.winValue); /* line 355 "../lib/array.s7i" */ ++(o_6293_number); } } return o_6292_isEqual; } /* line 1 "no_file" */ /* 3649 */ /* line 360 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_6294/*<>*/ (const const_arrayType/*t_198_*ANONYM_TYPE**/ o_6295_arr1, const const_arrayType/*t_198_*ANONYM_TYPE**/ o_6296_arr2) { /* line 362 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_6297_isNotEqual=o_26_TRUE; /* line 364 "../lib/array.s7i" */ intType/*t_14_integer*/ o_6298_number=1; /* line 366 "../lib/array.s7i" */ if ((((o_6295_arr1)->min_position) == ((o_6296_arr2)->min_position)) && /* line 366 "../lib/array.s7i" */ (((o_6295_arr1)->max_position) == ((o_6296_arr2)->max_position))) { /* line 367 "../lib/array.s7i" */ o_6297_isNotEqual=o_25_FALSE; /* line 368 "../lib/array.s7i" */ o_6298_number=(o_6295_arr1)->min_position; /* line 369 "../lib/array.s7i" */ while (((o_6298_number) <= ((o_6295_arr1)->max_position)) && /* line 369 "../lib/array.s7i" */ (!(o_6297_isNotEqual))) { /* line 370 "../lib/array.s7i" */ o_6297_isNotEqual=((o_6295_arr1)->arr[(idxChk((o_6298_number) < (o_6295_arr1)->min_position || (o_6298_number) > (o_6295_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6298_number)-(o_6295_arr1)->min_position)].value.winValue) != ((o_6296_arr2)->arr[(idxChk((o_6298_number) < (o_6296_arr2)->min_position || (o_6298_number) > (o_6296_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6298_number)-(o_6296_arr2)->min_position)].value.winValue); /* line 371 "../lib/array.s7i" */ ++(o_6298_number); } } return o_6297_isNotEqual; } /* line 1 "no_file" */ /* 3650 */ /* line 400 "../lib/array.s7i" */ static intType/*t_14_integer*/ o_6299_compare (const const_arrayType/*t_198_*ANONYM_TYPE**/ o_6300_arr1, const const_arrayType/*t_198_*ANONYM_TYPE**/ o_6301_arr2) { /* line 402 "../lib/array.s7i" */ intType/*t_14_integer*/ o_6302_signumValue=0; /* line 404 "../lib/array.s7i" */ intType/*t_14_integer*/ o_6303_idx1=0; /* line 405 "../lib/array.s7i" */ intType/*t_14_integer*/ o_6304_idx2=0; /* line 407 "../lib/array.s7i" */ o_6303_idx1=(o_6300_arr1)->min_position; /* line 408 "../lib/array.s7i" */ o_6304_idx2=(o_6301_arr2)->min_position; /* line 409 "../lib/array.s7i" */ while (((o_6303_idx1) <= ((o_6300_arr1)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_6304_idx2) <= ((o_6301_arr2)->max_position)) && /* line 409 "../lib/array.s7i" */ ((ptrCmp((o_6300_arr1)->arr[(idxChk((o_6303_idx1) < (o_6300_arr1)->min_position || (o_6303_idx1) > (o_6300_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6303_idx1)-(o_6300_arr1)->min_position)].value.winValue, (o_6301_arr2)->arr[(idxChk((o_6304_idx2) < (o_6301_arr2)->min_position || (o_6304_idx2) > (o_6301_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6304_idx2)-(o_6301_arr2)->min_position)].value.winValue)) == (0L))) { /* line 410 "../lib/array.s7i" */ ++(o_6303_idx1); /* line 411 "../lib/array.s7i" */ ++(o_6304_idx2); } /* line 413 "../lib/array.s7i" */ if (((o_6303_idx1) <= ((o_6300_arr1)->max_position)) && /* line 413 "../lib/array.s7i" */ ((o_6304_idx2) <= ((o_6301_arr2)->max_position))) { /* line 414 "../lib/array.s7i" */ o_6302_signumValue=ptrCmp((o_6300_arr1)->arr[(idxChk((o_6303_idx1) < (o_6300_arr1)->min_position || (o_6303_idx1) > (o_6300_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6303_idx1)-(o_6300_arr1)->min_position)].value.winValue, (o_6301_arr2)->arr[(idxChk((o_6304_idx2) < (o_6301_arr2)->min_position || (o_6304_idx2) > (o_6301_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6304_idx2)-(o_6301_arr2)->min_position)].value.winValue); } else { /* line 416 "../lib/array.s7i" */ o_6302_signumValue=intCmp(((o_6300_arr1)->max_position - (o_6300_arr1)->min_position + 1), ((o_6301_arr2)->max_position - (o_6301_arr2)->min_position + 1)); } return o_6302_signumValue; } /* line 1 "no_file" */ /* 3651 */ /* line 420 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_6305/*<*/ (const const_arrayType/*t_198_*ANONYM_TYPE**/ o_6306_arr1, const const_arrayType/*t_198_*ANONYM_TYPE**/ o_6307_arr2) { /* line 421 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_6299_compare(o_6306_arr1, o_6307_arr2)) < (0L))); } /* line 1 "no_file" */ /* 3652 */ /* line 423 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_6308/*>*/ (const const_arrayType/*t_198_*ANONYM_TYPE**/ o_6309_arr1, const const_arrayType/*t_198_*ANONYM_TYPE**/ o_6310_arr2) { /* line 424 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_6299_compare(o_6309_arr1, o_6310_arr2)) > (0L))); } /* line 1 "no_file" */ /* 3653 */ /* line 426 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_6311/*<=*/ (const const_arrayType/*t_198_*ANONYM_TYPE**/ o_6312_arr1, const const_arrayType/*t_198_*ANONYM_TYPE**/ o_6313_arr2) { /* line 427 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_6299_compare(o_6312_arr1, o_6313_arr2)) <= (0L))); } /* line 1 "no_file" */ /* 3654 */ /* line 429 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_6314/*>=*/ (const const_arrayType/*t_198_*ANONYM_TYPE**/ o_6315_arr1, const const_arrayType/*t_198_*ANONYM_TYPE**/ o_6316_arr2) { /* line 430 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_6299_compare(o_6315_arr1, o_6316_arr2)) >= (0L))); } /* line 1 "no_file" */ /* 3655 */ /* objRefType/t_19_reference */ intfunctype o_6317/*.*/=(intfunctype)(&ptrCmpGeneric); /* 3656 */ /* line 436 "../lib/array.s7i" */ static arrayType/*t_198_*ANONYM_TYPE**/ o_6318_sort (const const_arrayType/*t_198_*ANONYM_TYPE**/ o_6319_arr_obj) { /* line 437 "../lib/array.s7i" */ return (arrayType/*t_198_*ANONYM_TYPE**/)((arrSort(create_198(o_6319_arr_obj), (compareType)(o_6317/*.*/)))); } /* line 1 "no_file" */ /* 3657 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6320/*::=*/ (const const_hashType/*t_197_win_table_hash*/ o_6321_dest, const const_hashType/*t_197_win_table_hash*/ o_6322_source) { /* hshCreate implemented with create_197 */ } /* line 1 "no_file" */ /* 3658 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6323_destroy (const const_hashType/*t_197_win_table_hash*/ o_6324_oldHash) { /* hshDestr implemented with destr_197 */ } /* line 1 "no_file" */ /* 3659 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6325/*:=*/ (hashType/*t_197_win_table_hash*/ *const o_6326_dest, const const_hashType/*t_197_win_table_hash*/ o_6327_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_6326_dest), o_6327_source, (createFuncType)(o_6263/*.*/), (destrFuncType)(o_6264/*.*/), (createFuncType)(o_6267/*.*/), (destrFuncType)(o_6268/*.*/)); } /* line 1 "no_file" */ /* 3660 */ hashType/*t_197_win_table_hash*/ o_6328/*.*/; /* 3661 */ hashType/*t_197_win_table_hash*/ o_6329/*.*/; /* 3662 */ /* line 149 "../lib/hash.s7i" */ static intType/*t_14_integer*/ o_6330/*[*/ (const const_hashType/*t_197_win_table_hash*/ o_6331_aHashMap, const winType/*t_91_PRIMITIVE_WINDOW*/ o_6332_aKey) { /* line 150 "../lib/hash.s7i" */ return (intType/*t_14_integer*/)(((intType/*t_14_integer*/)(hshIdx(o_6331_aHashMap, (genericType)(o_6332_aKey), (intType)(((memSizeType)(o_6332_aKey)) >> 6), (compareType)(o_6266/*.*/))))); } /* line 1 "no_file" */ /* 3663 */ /* line 152 "../lib/hash.s7i" */ static intType/*t_14_integer*/ /*varfunc*/ *o_6333/*[*/ (hashType/*t_197_win_table_hash*/ *const o_6334_aHashMap, const winType/*t_91_PRIMITIVE_WINDOW*/ o_6335_aKey) { /* line 153 "../lib/hash.s7i" */ return (intType/*t_14_integer*/ *)(&(hshIdxAddr(*o_6334_aHashMap, (genericType)(o_6335_aKey), (intType)(((memSizeType)(o_6335_aKey)) >> 6), (compareType)(o_6266/*.*/))->value.intValue)); } /* line 1 "no_file" */ /* 3664 */ /* line 161 "../lib/hash.s7i" */ static intType/*t_14_integer*/ o_6336/*[*/ (const const_hashType/*t_197_win_table_hash*/ o_6337_aHashMap, const winType/*t_91_PRIMITIVE_WINDOW*/ o_6338_aKey, const intType/*t_14_integer*/ o_6339_defaultValue) { /* line 162 "../lib/hash.s7i" */ intType/*t_14_integer*/ result; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ result=(intType/*t_14_integer*/)(((addr_1=hshIdxAddr2(o_6337_aHashMap, (genericType)(o_6338_aKey), (intType)(((memSizeType)(o_6338_aKey)) >> 6), (compareType)(o_6266/*.*/)),addr_1!=NULL?addr_1->value.intValue:(o_6339_defaultValue)))); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 3665 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_6340_in (const winType/*t_91_PRIMITIVE_WINDOW*/ o_6341_aKey, const const_hashType/*t_197_win_table_hash*/ o_6342_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_6342_aHashMap, (genericType)(o_6341_aKey), (intType)(((memSizeType)(o_6341_aKey)) >> 6), (compareType)(o_6266/*.*/)))); } /* line 1 "no_file" */ /* 3666 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_6343_not (const winType/*t_91_PRIMITIVE_WINDOW*/ o_6344_aKey, const const_hashType/*t_197_win_table_hash*/ o_6345_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_6345_aHashMap, (genericType)(o_6344_aKey), (intType)(((memSizeType)(o_6344_aKey)) >> 6), (compareType)(o_6266/*.*/))))); } /* line 1 "no_file" */ /* 3667 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6346_incl (hashType/*t_197_win_table_hash*/ *const o_6347_aHashMap, const winType/*t_91_PRIMITIVE_WINDOW*/ o_6348_aKey, const intType/*t_14_integer*/ o_6349_anElem) { /* line 191 "../lib/hash.s7i" */ hshIncl(*o_6347_aHashMap, (genericType)(o_6348_aKey), (genericType)(o_6349_anElem), (intType)(((memSizeType)(o_6348_aKey)) >> 6), (compareType)(o_6266/*.*/), (createFuncType)(o_6263/*.*/), (createFuncType)(o_6267/*.*/), (copyFuncType)(o_6269/*.*/)); } /* line 1 "no_file" */ /* 3668 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6350_excl (hashType/*t_197_win_table_hash*/ *const o_6351_aHashMap, const winType/*t_91_PRIMITIVE_WINDOW*/ o_6352_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_6351_aHashMap, (genericType)(o_6352_aKey), (intType)(((memSizeType)(o_6352_aKey)) >> 6), (compareType)(o_6266/*.*/), (destrFuncType)(o_6264/*.*/), (destrFuncType)(o_6268/*.*/)); } /* line 1 "no_file" */ /* 3669 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6353/*@:=*/ (hashType/*t_197_win_table_hash*/ *const o_6354_aHashMap, const winType/*t_91_PRIMITIVE_WINDOW*/ o_6355_aKey, const intType/*t_14_integer*/ o_6356_anElem) { /* line 212 "../lib/hash.s7i" */ hshIncl(*o_6354_aHashMap, (genericType)(o_6355_aKey), (genericType)(o_6356_anElem), (intType)(((memSizeType)(o_6355_aKey)) >> 6), (compareType)(o_6266/*.*/), (createFuncType)(o_6263/*.*/), (createFuncType)(o_6267/*.*/), (copyFuncType)(o_6269/*.*/)); } /* line 1 "no_file" */ /* 3670 */ /* line 216 "../lib/hash.s7i" */ static intType/*t_14_integer*/ o_6357_update (hashType/*t_197_win_table_hash*/ *const o_6358_aHashMap, const winType/*t_91_PRIMITIVE_WINDOW*/ o_6359_aKey, const intType/*t_14_integer*/ o_6360_anElem) { /* line 217 "../lib/hash.s7i" */ return (intType/*t_14_integer*/)(((intType/*t_14_integer*/)(hshUpdate(*o_6358_aHashMap, (genericType)(o_6359_aKey), (genericType)(o_6360_anElem), (intType)(((memSizeType)(o_6359_aKey)) >> 6), (compareType)(o_6266/*.*/), (createFuncType)(o_6263/*.*/), (createFuncType)(o_6267/*.*/))))); } /* line 1 "no_file" */ /* 3671 */ /* declare inline o_6361_for*/ /* declare inline o_6362_for*/ /* declare inline o_6363_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_198_*ANONYM_TYPE**/ o_6364_keys (const const_hashType/*t_197_win_table_hash*/ o_6365_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_198_*ANONYM_TYPE**/)((hshKeys(o_6365_aHashMap, (createFuncType)(o_6263/*.*/), (destrFuncType)(o_6264/*.*/)))); } /* line 1 "no_file" */ /* 3672 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_27_TEST_1*/ o_6366_values (const const_hashType/*t_197_win_table_hash*/ o_6367_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_27_TEST_1*/)((/*ref_to_value*/ hshValues(o_6367_aHashMap, (createFuncType)(o_6267/*.*/), (destrFuncType)(o_6268/*.*/)))); } /* line 1 "no_file" */ /* 3673 */ typedef genericType t_200/*t_200_win_index_hash*/; /* 3674 */ /* 3675 */ /* 3676 */ /* 3677 */ /* objRefType/t_19_reference */ intfunctype o_6368/*.*/=(intfunctype)(&genericCreate); /* 3678 */ /* objRefType/t_19_reference */ intfunctype o_6369/*.*/=(intfunctype)(&genericDestr); /* 3679 */ /* objRefType/t_19_reference */ intfunctype o_6370/*.*/=(intfunctype)(&genericCpy); /* 3680 */ /* objRefType/t_19_reference */ intfunctype o_6371/*.*/=(intfunctype)(&intCmpGeneric); /* 3681 */ static genericType generic_create_198 (const genericType b) { rtlObjectType result; result.value.arrayValue=create_198(((const_rtlObjectType *) &b)->value.arrayValue); return result.value.genericValue; } /* objRefType/t_19_reference */ intfunctype o_6372/*.*/=(intfunctype)(&generic_create_198); /* 3682 */ static void generic_destr_198 (const genericType b) { destr_198(((const_rtlObjectType *) &b)->value.arrayValue); } /* objRefType/t_19_reference */ intfunctype o_6373/*.*/=(intfunctype)(&generic_destr_198); /* 3683 */ /* line 64 "../lib/array.s7i" */ static void cpy_198 (arrayType/*t_198_*ANONYM_TYPE**/ *a, arrayType/*t_198_*ANONYM_TYPE**/ b) /* line 64 "../lib/array.s7i" */ { /* line 64 "../lib/array.s7i" */ memSizeType i; /* line 64 "../lib/array.s7i" */ memSizeType size_a = (uintType)((*a)->max_position - (*a)->min_position + 1); /* line 64 "../lib/array.s7i" */ memSizeType size_b = (uintType)(b->max_position - b->min_position + 1); /* line 64 "../lib/array.s7i" */ memSizeType size; /* line 64 "../lib/array.s7i" */ (*a)->min_position = b->min_position; /* line 64 "../lib/array.s7i" */ (*a)->max_position = b->max_position; /* line 64 "../lib/array.s7i" */ if (size_a == size_b) { /* line 64 "../lib/array.s7i" */ size = size_a; /* line 64 "../lib/array.s7i" */ } else { /* line 64 "../lib/array.s7i" */ if (size_a < size_b) { /* line 64 "../lib/array.s7i" */ *a=(arrayType/*t_198_*ANONYM_TYPE**/)(arrRealloc((arrayType)(*a), size_a, size_b)); size = size_a; /* line 64 "../lib/array.s7i" */ for (i = size_a; i < size_b; i++) { /* line 64 "../lib/array.s7i" */ (*a)->arr[i].value.winValue=drwCreate(b->arr[i].value.winValue); /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ } else /* size_a > size_b */ { /* line 64 "../lib/array.s7i" */ size = size_b; /* line 64 "../lib/array.s7i" */ for (i = size_b; i < size_a; i++) { /* line 64 "../lib/array.s7i" */ drwDestr((*a)->arr[i].value.winValue); /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ *a=(arrayType/*t_198_*ANONYM_TYPE**/)(arrRealloc((arrayType)(*a), size_a, size_b)); /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 64 "../lib/array.s7i" */ drwCpy(&((*a)->arr[i].value.winValue), b->arr[i].value.winValue); /* line 64 "../lib/array.s7i" */ } /* line 64 "../lib/array.s7i" */ } /* line 1 "no_file" */ static void generic_cpy_198 (genericType *a, const genericType b) { cpy_198((arrayType/*t_198_*ANONYM_TYPE**/ *)(&(((const_rtlObjectType *) a)->value.arrayValue)), (arrayType/*t_198_*ANONYM_TYPE**/)(((const_rtlObjectType *) &b)->value.arrayValue)); } /* objRefType/t_19_reference */ intfunctype o_6374/*.*/=(intfunctype)(&generic_cpy_198); /* 3684 */ /* 3685 */ /* 3686 */ /* 3687 */ typedef genericType t_201/*t_201_*ANONYM_TYPE**/; /* 3688 */ typedef genericType t_202/*t_202_*ANONYM_TYPE**/; /* 3689 */ /* 3690 */ /* 3691 */ /* 3692 */ /* ACTION ARR_GEN for type arrayType/t_202_*ANONYM_TYPE* element is arrayType/t_198_*ANONYM_TYPE* */ /* 3693 */ /* 3694 */ /* 3695 */ /* 3696 */ /* 3697 */ /* 3698 */ /* ACTION ARR_IDX for type arrayType/t_201_*ANONYM_TYPE* element is arrayType/t_198_*ANONYM_TYPE* */ /* 3699 */ /* ACTION ARR_IDX for type arrayType/t_201_*ANONYM_TYPE* element is arrayType/t_198_*ANONYM_TYPE* */ /* 3700 */ /* line 163 "../lib/array.s7i" */ static arrayType times_201 (intType n, const const_arrayType/*t_198_*ANONYM_TYPE**/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.arrayValue=create_198(b); /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 3701 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_201_*ANONYM_TYPE**/ create_201 (const_arrayType/*t_201_*ANONYM_TYPE**/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_201_*ANONYM_TYPE**/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_201_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.arrayValue=create_198(b->arr[i].value.arrayValue); /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_201 (const_arrayType/*t_201_*ANONYM_TYPE**/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ destr_198(b->arr[i].value.arrayValue); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_202 (const_arrayType/*t_202_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ destr_198(b->arr[i].value.arrayValue); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_202_*ANONYM_TYPE**/ create_202 (const_arrayType/*t_202_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_202_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_202_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.arrayValue=create_198(b->arr[i].value.arrayValue); /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_201_*ANONYM_TYPE**/ o_6375_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_6376_indexRange, const const_arrayType/*t_198_*ANONYM_TYPE**/ value_o_6377_element) { /* line 183 "../lib/array.s7i" */ const_arrayType/*t_198_*ANONYM_TYPE**/ o_6377_element; /* line 186 "../lib/array.s7i" */ arrayType/*t_201_*ANONYM_TYPE**/ o_6378_anArray; /* line 183 "../lib/array.s7i" */ o_6377_element=create_198(value_o_6377_element); /* line 186 "../lib/array.s7i" */ o_6378_anArray=create_201(arr[165]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_6378_anArray; /* line 188 "../lib/array.s7i" */ o_6378_anArray=times_201(((((structType)(o_6376_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_6376_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_6377_element); /* line 188 "../lib/array.s7i" */ destr_201(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_6378_anArray; /* line 189 "../lib/array.s7i" */ o_6378_anArray=arrArrlit2(((structType)(o_6376_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_202(/*arrConv()*/o_6378_anArray)); /* line 189 "../lib/array.s7i" */ destr_201(old_array); } /* line 183 "../lib/array.s7i" */ destr_198(o_6377_element); return o_6378_anArray; } /* line 1 "no_file" */ /* 3702 */ /* declare inline o_6379_for*/ /* declare inline o_6380_for*/ /* declare inline o_6381_for*/ /* declare inline o_6382_for*/ /* declare inline o_6383_for*/ /* declare inline o_6384_for*/ /* declare inline o_6385_for*/ /* declare inline o_6386_for*/ /* declare inline o_6387_for*/ /* line 329 "../lib/array.s7i" */ static arrayType/*t_198_*ANONYM_TYPE**/ o_6388_rand (const const_arrayType/*t_201_*ANONYM_TYPE**/ o_6389_arr) { /* line 330 "../lib/array.s7i" */ arrayType/*t_198_*ANONYM_TYPE**/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(arrayType/*t_198_*ANONYM_TYPE**/)((/*ref_to_value*/ (o_6389_arr)->arr[idx_1=intRand((o_6389_arr)->min_position, (o_6389_arr)->max_position),(idxChk(idx_1 < (o_6389_arr)->min_position || idx_1 > (o_6389_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_6389_arr)->min_position)].value.arrayValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 3703 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_6390_insert (arrayType/*t_201_*ANONYM_TYPE**/ *const o_6391_arr, const intType/*t_14_integer*/ o_6392_index, const const_arrayType/*t_198_*ANONYM_TYPE**/ value_o_6393_element) { /* line 332 "../lib/array.s7i" */ const_arrayType/*t_198_*ANONYM_TYPE**/ o_6393_element; /* line 332 "../lib/array.s7i" */ o_6393_element=create_198(value_o_6393_element); /* line 334 "../lib/array.s7i" */ if (((o_6392_index) >= ((*o_6391_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_6392_index) <= (((*o_6391_arr)->max_position)+1))) { { /* line 335 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 335 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_6391_arr; /* line 335 "../lib/array.s7i" */ *o_6391_arr=arrCat(arrCat((tmp_4=arrHead(*o_6391_arr, (o_6392_index)-1), create_201(tmp_4)), arrBaselit((genericType)(create_198(o_6393_element)))), (tmp_7=arrTail(*o_6391_arr, o_6392_index), create_201(tmp_7))); /* line 335 "../lib/array.s7i" */ destr_201(old_array); } /* line 335 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 335 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } /* line 332 "../lib/array.s7i" */ destr_198(o_6393_element); } /* line 1 "no_file" */ /* 3704 */ /* line 344 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_6394/*=*/ (const const_arrayType/*t_201_*ANONYM_TYPE**/ o_6395_arr1, const const_arrayType/*t_201_*ANONYM_TYPE**/ o_6396_arr2) { /* line 346 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_6397_isEqual=o_25_FALSE; /* line 348 "../lib/array.s7i" */ intType/*t_14_integer*/ o_6398_number=1; /* line 350 "../lib/array.s7i" */ if ((((o_6395_arr1)->min_position) == ((o_6396_arr2)->min_position)) && /* line 350 "../lib/array.s7i" */ (((o_6395_arr1)->max_position) == ((o_6396_arr2)->max_position))) { /* line 351 "../lib/array.s7i" */ o_6397_isEqual=o_26_TRUE; /* line 352 "../lib/array.s7i" */ o_6398_number=(o_6395_arr1)->min_position; /* line 353 "../lib/array.s7i" */ while (((o_6398_number) <= ((o_6395_arr1)->max_position)) && /* line 353 "../lib/array.s7i" */ (o_6397_isEqual)) { /* line 354 "../lib/array.s7i" */ o_6397_isEqual=o_6289/*=*/((o_6395_arr1)->arr[(idxChk((o_6398_number) < (o_6395_arr1)->min_position || (o_6398_number) > (o_6395_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6398_number)-(o_6395_arr1)->min_position)].value.arrayValue, (o_6396_arr2)->arr[(idxChk((o_6398_number) < (o_6396_arr2)->min_position || (o_6398_number) > (o_6396_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6398_number)-(o_6396_arr2)->min_position)].value.arrayValue); /* line 355 "../lib/array.s7i" */ ++(o_6398_number); } } return o_6397_isEqual; } /* line 1 "no_file" */ /* 3705 */ /* line 360 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_6399/*<>*/ (const const_arrayType/*t_201_*ANONYM_TYPE**/ o_6400_arr1, const const_arrayType/*t_201_*ANONYM_TYPE**/ o_6401_arr2) { /* line 362 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_6402_isNotEqual=o_26_TRUE; /* line 364 "../lib/array.s7i" */ intType/*t_14_integer*/ o_6403_number=1; /* line 366 "../lib/array.s7i" */ if ((((o_6400_arr1)->min_position) == ((o_6401_arr2)->min_position)) && /* line 366 "../lib/array.s7i" */ (((o_6400_arr1)->max_position) == ((o_6401_arr2)->max_position))) { /* line 367 "../lib/array.s7i" */ o_6402_isNotEqual=o_25_FALSE; /* line 368 "../lib/array.s7i" */ o_6403_number=(o_6400_arr1)->min_position; /* line 369 "../lib/array.s7i" */ while (((o_6403_number) <= ((o_6400_arr1)->max_position)) && /* line 369 "../lib/array.s7i" */ (!(o_6402_isNotEqual))) { /* line 370 "../lib/array.s7i" */ o_6402_isNotEqual=o_6294/*<>*/((o_6400_arr1)->arr[(idxChk((o_6403_number) < (o_6400_arr1)->min_position || (o_6403_number) > (o_6400_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6403_number)-(o_6400_arr1)->min_position)].value.arrayValue, (o_6401_arr2)->arr[(idxChk((o_6403_number) < (o_6401_arr2)->min_position || (o_6403_number) > (o_6401_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6403_number)-(o_6401_arr2)->min_position)].value.arrayValue); /* line 371 "../lib/array.s7i" */ ++(o_6403_number); } } return o_6402_isNotEqual; } /* line 1 "no_file" */ /* 3706 */ /* line 381 "../lib/array.s7i" */ static void/*t_1_void*/ o_6404_insert (arrayType/*t_201_*ANONYM_TYPE**/ *const o_6405_arr, const const_arrayType/*t_198_*ANONYM_TYPE**/ value_o_6406_element) { /* line 381 "../lib/array.s7i" */ const_arrayType/*t_198_*ANONYM_TYPE**/ o_6406_element; /* line 383 "../lib/array.s7i" */ intType/*t_14_integer*/ o_6407_number=1; /* line 381 "../lib/array.s7i" */ o_6406_element=create_198(value_o_6406_element); /* line 385 "../lib/array.s7i" */ o_6407_number=(*o_6405_arr)->min_position; /* line 386 "../lib/array.s7i" */ while (((o_6407_number) <= ((*o_6405_arr)->max_position)) && /* line 386 "../lib/array.s7i" */ (o_6305/*<*/((*o_6405_arr)->arr[(idxChk((o_6407_number) < (*o_6405_arr)->min_position || (o_6407_number) > (*o_6405_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6407_number)-(*o_6405_arr)->min_position)].value.arrayValue, o_6406_element))) { /* line 387 "../lib/array.s7i" */ ++(o_6407_number); } /* line 389 "../lib/array.s7i" */ if ((o_6407_number) > ((*o_6405_arr)->max_position)) { { { /* line 390 "../lib/array.s7i" */ arrayType old_array=*o_6405_arr; /* line 390 "../lib/array.s7i" */ *o_6405_arr=arrCat(create_201(*o_6405_arr), arrBaselit((genericType)(create_198(o_6406_element)))); /* line 390 "../lib/array.s7i" */ destr_201(old_array); } } } else /* line 391 "../lib/array.s7i" */ if (o_6308/*>*/((*o_6405_arr)->arr[(idxChk((o_6407_number) < (*o_6405_arr)->min_position || (o_6407_number) > (*o_6405_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6407_number)-(*o_6405_arr)->min_position)].value.arrayValue, o_6406_element)) { { /* line 392 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 392 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 392 "../lib/array.s7i" */ arrayType old_array=*o_6405_arr; /* line 392 "../lib/array.s7i" */ *o_6405_arr=arrCat(arrCat((tmp_4=arrHead(*o_6405_arr, (o_6407_number)-1), create_201(tmp_4)), arrBaselit((genericType)(create_198(o_6406_element)))), (tmp_7=arrTail(*o_6405_arr, o_6407_number), create_201(tmp_7))); /* line 392 "../lib/array.s7i" */ destr_201(old_array); } /* line 392 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 392 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } /* line 381 "../lib/array.s7i" */ destr_198(o_6406_element); } /* line 1 "no_file" */ /* 3707 */ /* line 400 "../lib/array.s7i" */ static intType/*t_14_integer*/ o_6408_compare (const const_arrayType/*t_201_*ANONYM_TYPE**/ o_6409_arr1, const const_arrayType/*t_201_*ANONYM_TYPE**/ o_6410_arr2) { /* line 402 "../lib/array.s7i" */ intType/*t_14_integer*/ o_6411_signumValue=0; /* line 404 "../lib/array.s7i" */ intType/*t_14_integer*/ o_6412_idx1=0; /* line 405 "../lib/array.s7i" */ intType/*t_14_integer*/ o_6413_idx2=0; /* line 407 "../lib/array.s7i" */ o_6412_idx1=(o_6409_arr1)->min_position; /* line 408 "../lib/array.s7i" */ o_6413_idx2=(o_6410_arr2)->min_position; /* line 409 "../lib/array.s7i" */ while (((o_6412_idx1) <= ((o_6409_arr1)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_6413_idx2) <= ((o_6410_arr2)->max_position)) && /* line 409 "../lib/array.s7i" */ ((o_6299_compare((o_6409_arr1)->arr[(idxChk((o_6412_idx1) < (o_6409_arr1)->min_position || (o_6412_idx1) > (o_6409_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6412_idx1)-(o_6409_arr1)->min_position)].value.arrayValue, (o_6410_arr2)->arr[(idxChk((o_6413_idx2) < (o_6410_arr2)->min_position || (o_6413_idx2) > (o_6410_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6413_idx2)-(o_6410_arr2)->min_position)].value.arrayValue)) == (0L))) { /* line 410 "../lib/array.s7i" */ ++(o_6412_idx1); /* line 411 "../lib/array.s7i" */ ++(o_6413_idx2); } /* line 413 "../lib/array.s7i" */ if (((o_6412_idx1) <= ((o_6409_arr1)->max_position)) && /* line 413 "../lib/array.s7i" */ ((o_6413_idx2) <= ((o_6410_arr2)->max_position))) { /* line 414 "../lib/array.s7i" */ o_6411_signumValue=o_6299_compare((o_6409_arr1)->arr[(idxChk((o_6412_idx1) < (o_6409_arr1)->min_position || (o_6412_idx1) > (o_6409_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6412_idx1)-(o_6409_arr1)->min_position)].value.arrayValue, (o_6410_arr2)->arr[(idxChk((o_6413_idx2) < (o_6410_arr2)->min_position || (o_6413_idx2) > (o_6410_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_6413_idx2)-(o_6410_arr2)->min_position)].value.arrayValue); } else { /* line 416 "../lib/array.s7i" */ o_6411_signumValue=intCmp(((o_6409_arr1)->max_position - (o_6409_arr1)->min_position + 1), ((o_6410_arr2)->max_position - (o_6410_arr2)->min_position + 1)); } return o_6411_signumValue; } /* line 1 "no_file" */ /* 3708 */ /* line 420 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_6414/*<*/ (const const_arrayType/*t_201_*ANONYM_TYPE**/ o_6415_arr1, const const_arrayType/*t_201_*ANONYM_TYPE**/ o_6416_arr2) { /* line 421 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_6408_compare(o_6415_arr1, o_6416_arr2)) < (0L))); } /* line 1 "no_file" */ /* 3709 */ /* line 423 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_6417/*>*/ (const const_arrayType/*t_201_*ANONYM_TYPE**/ o_6418_arr1, const const_arrayType/*t_201_*ANONYM_TYPE**/ o_6419_arr2) { /* line 424 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_6408_compare(o_6418_arr1, o_6419_arr2)) > (0L))); } /* line 1 "no_file" */ /* 3710 */ /* line 426 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_6420/*<=*/ (const const_arrayType/*t_201_*ANONYM_TYPE**/ o_6421_arr1, const const_arrayType/*t_201_*ANONYM_TYPE**/ o_6422_arr2) { /* line 427 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_6408_compare(o_6421_arr1, o_6422_arr2)) <= (0L))); } /* line 1 "no_file" */ /* 3711 */ /* line 429 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_6423/*>=*/ (const const_arrayType/*t_201_*ANONYM_TYPE**/ o_6424_arr1, const const_arrayType/*t_201_*ANONYM_TYPE**/ o_6425_arr2) { /* line 430 "../lib/array.s7i" */ return (boolType/*t_13_boolean*/)(((o_6408_compare(o_6424_arr1, o_6425_arr2)) >= (0L))); } /* line 1 "no_file" */ /* 3712 */ static intType generic_cmp_198 (const genericType a, const genericType b) { return o_6299_compare(((const_rtlObjectType *) &a)->value.arrayValue, ((const_rtlObjectType *) &b)->value.arrayValue); } /* objRefType/t_19_reference */ intfunctype o_6426/*.*/=(intfunctype)(&generic_cmp_198); /* 3713 */ /* line 436 "../lib/array.s7i" */ static arrayType/*t_201_*ANONYM_TYPE**/ o_6427_sort (const const_arrayType/*t_201_*ANONYM_TYPE**/ o_6428_arr_obj) { /* line 437 "../lib/array.s7i" */ return (arrayType/*t_201_*ANONYM_TYPE**/)((arrSort(create_201(o_6428_arr_obj), (compareType)(o_6426/*.*/)))); } /* line 1 "no_file" */ /* 3714 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6429/*::=*/ (const const_hashType/*t_200_win_index_hash*/ o_6430_dest, const const_hashType/*t_200_win_index_hash*/ o_6431_source) { /* hshCreate implemented with create_200 */ } /* line 1 "no_file" */ /* 3715 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6432_destroy (const const_hashType/*t_200_win_index_hash*/ o_6433_oldHash) { /* hshDestr implemented with destr_200 */ } /* line 1 "no_file" */ /* 3716 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6434/*:=*/ (hashType/*t_200_win_index_hash*/ *const o_6435_dest, const const_hashType/*t_200_win_index_hash*/ o_6436_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_6435_dest), o_6436_source, (createFuncType)(o_6368/*.*/), (destrFuncType)(o_6369/*.*/), (createFuncType)(o_6372/*.*/), (destrFuncType)(o_6373/*.*/)); } /* line 1 "no_file" */ /* 3717 */ typedef genericType t_203/*t_203_*ANONYM_TYPE**/; /* 3718 */ /* 3719 */ /* 3720 */ /* 3721 */ /* 3722 */ /* objRefType/t_203_*ANONYM_TYPE* */ objRefType o_6437/*.*/=(objRefType)(NULL); /* 3723 */ /* objRefType/t_203_*ANONYM_TYPE* */ objRefType o_6438/*.*/=(objRefType)(NULL); /* 3724 */ hashType/*t_200_win_index_hash*/ o_6439/*.*/; /* 3725 */ hashType/*t_200_win_index_hash*/ o_6440/*.*/; /* 3726 */ /* line 149 "../lib/hash.s7i" */ static arrayType/*t_198_*ANONYM_TYPE**/ o_6441/*[*/ (const const_hashType/*t_200_win_index_hash*/ o_6442_aHashMap, const intType/*t_14_integer*/ *const o_6443_aKey) { /* line 150 "../lib/hash.s7i" */ return (arrayType/*t_198_*ANONYM_TYPE**/)((/*ref_to_value*/ (arrayType/*t_198_*ANONYM_TYPE**/)(hshIdx(o_6442_aHashMap, (genericType)(*o_6443_aKey), (*o_6443_aKey), (compareType)(o_6371/*.*/))))); } /* line 1 "no_file" */ /* 3727 */ /* line 152 "../lib/hash.s7i" */ static arrayType/*t_198_*ANONYM_TYPE**/ /*varfunc*/ *o_6444/*[*/ (hashType/*t_200_win_index_hash*/ *const o_6445_aHashMap, const intType/*t_14_integer*/ *const o_6446_aKey) { /* line 153 "../lib/hash.s7i" */ return (arrayType/*t_198_*ANONYM_TYPE**/ *)(&(hshIdxAddr(*o_6445_aHashMap, (genericType)(*o_6446_aKey), (*o_6446_aKey), (compareType)(o_6371/*.*/))->value.arrayValue)); } /* line 1 "no_file" */ /* 3728 */ /* line 161 "../lib/hash.s7i" */ static arrayType/*t_198_*ANONYM_TYPE**/ o_6447/*[*/ (const const_hashType/*t_200_win_index_hash*/ o_6448_aHashMap, const intType/*t_14_integer*/ *const o_6449_aKey, const const_arrayType/*t_198_*ANONYM_TYPE**/ value_o_6450_defaultValue) { /* line 162 "../lib/hash.s7i" */ arrayType/*t_198_*ANONYM_TYPE**/ result; /* line 162 "../lib/hash.s7i" */ const_arrayType/*t_198_*ANONYM_TYPE**/ o_6450_defaultValue; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ o_6450_defaultValue=create_198(value_o_6450_defaultValue); /* line 162 "../lib/hash.s7i" */ result=(arrayType/*t_198_*ANONYM_TYPE**/)((/*ref_to_value*/ (addr_1=hshIdxAddr2(o_6448_aHashMap, (genericType)(*o_6449_aKey), (*o_6449_aKey), (compareType)(o_6371/*.*/)),addr_1!=NULL?addr_1->value.arrayValue:(o_6450_defaultValue)))); /* line 162 "../lib/hash.s7i" */ destr_198(o_6450_defaultValue); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 3729 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_6451_in (const intType/*t_14_integer*/ *const o_6452_aKey, const const_hashType/*t_200_win_index_hash*/ o_6453_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_6453_aHashMap, (genericType)(*o_6452_aKey), (*o_6452_aKey), (compareType)(o_6371/*.*/)))); } /* line 1 "no_file" */ /* 3730 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_6454_not (const intType/*t_14_integer*/ *const o_6455_aKey, const const_hashType/*t_200_win_index_hash*/ o_6456_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_6456_aHashMap, (genericType)(*o_6455_aKey), (*o_6455_aKey), (compareType)(o_6371/*.*/))))); } /* line 1 "no_file" */ /* 3731 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6457_incl (hashType/*t_200_win_index_hash*/ *const o_6458_aHashMap, const intType/*t_14_integer*/ *const o_6459_aKey, const const_arrayType/*t_198_*ANONYM_TYPE**/ value_o_6460_anElem) { /* line 189 "../lib/hash.s7i" */ const_arrayType/*t_198_*ANONYM_TYPE**/ o_6460_anElem; /* line 189 "../lib/hash.s7i" */ o_6460_anElem=create_198(value_o_6460_anElem); /* line 191 "../lib/hash.s7i" */ hshIncl(*o_6458_aHashMap, (genericType)(*o_6459_aKey), (genericType)(o_6460_anElem), (*o_6459_aKey), (compareType)(o_6371/*.*/), (createFuncType)(o_6368/*.*/), (createFuncType)(o_6372/*.*/), (copyFuncType)(o_6374/*.*/)); /* line 189 "../lib/hash.s7i" */ destr_198(o_6460_anElem); } /* line 1 "no_file" */ /* 3732 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6461_excl (hashType/*t_200_win_index_hash*/ *const o_6462_aHashMap, const intType/*t_14_integer*/ *const o_6463_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_6462_aHashMap, (genericType)(*o_6463_aKey), (*o_6463_aKey), (compareType)(o_6371/*.*/), (destrFuncType)(o_6369/*.*/), (destrFuncType)(o_6373/*.*/)); } /* line 1 "no_file" */ /* 3733 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_6464/*@:=*/ (hashType/*t_200_win_index_hash*/ *const o_6465_aHashMap, const intType/*t_14_integer*/ *const o_6466_aKey, const const_arrayType/*t_198_*ANONYM_TYPE**/ value_o_6467_anElem) { /* line 210 "../lib/hash.s7i" */ const_arrayType/*t_198_*ANONYM_TYPE**/ o_6467_anElem; /* line 210 "../lib/hash.s7i" */ o_6467_anElem=create_198(value_o_6467_anElem); /* line 212 "../lib/hash.s7i" */ hshIncl(*o_6465_aHashMap, (genericType)(*o_6466_aKey), (genericType)(o_6467_anElem), (*o_6466_aKey), (compareType)(o_6371/*.*/), (createFuncType)(o_6368/*.*/), (createFuncType)(o_6372/*.*/), (copyFuncType)(o_6374/*.*/)); /* line 210 "../lib/hash.s7i" */ destr_198(o_6467_anElem); } /* line 1 "no_file" */ /* 3734 */ /* line 216 "../lib/hash.s7i" */ static arrayType/*t_198_*ANONYM_TYPE**/ o_6468_update (hashType/*t_200_win_index_hash*/ *const o_6469_aHashMap, const intType/*t_14_integer*/ *const o_6470_aKey, const const_arrayType/*t_198_*ANONYM_TYPE**/ value_o_6471_anElem) { /* line 217 "../lib/hash.s7i" */ arrayType/*t_198_*ANONYM_TYPE**/ result; /* line 217 "../lib/hash.s7i" */ const_arrayType/*t_198_*ANONYM_TYPE**/ o_6471_anElem; /* line 217 "../lib/hash.s7i" */ o_6471_anElem=create_198(value_o_6471_anElem); /* line 217 "../lib/hash.s7i" */ result=(arrayType/*t_198_*ANONYM_TYPE**/)(((arrayType/*t_198_*ANONYM_TYPE**/)(hshUpdate(*o_6469_aHashMap, (genericType)(*o_6470_aKey), (genericType)(create_198(o_6471_anElem)), (*o_6470_aKey), (compareType)(o_6371/*.*/), (createFuncType)(o_6368/*.*/), (createFuncType)(o_6372/*.*/))))); /* line 217 "../lib/hash.s7i" */ destr_198(o_6471_anElem); /* line 217 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 3735 */ /* declare inline o_6472_for*/ /* declare inline o_6473_for*/ /* declare inline o_6474_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_27_TEST_1*/ o_6475_keys (const const_hashType/*t_200_win_index_hash*/ o_6476_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_27_TEST_1*/)((hshKeys(o_6476_aHashMap, (createFuncType)(o_6368/*.*/), (destrFuncType)(o_6369/*.*/)))); } /* line 1 "no_file" */ /* 3736 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_201_*ANONYM_TYPE**/ o_6477_values (const const_hashType/*t_200_win_index_hash*/ o_6478_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_201_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_6478_aHashMap, (createFuncType)(o_6372/*.*/), (destrFuncType)(o_6373/*.*/)))); } /* line 1 "no_file" */ /* 3737 */ /* line 61 "../lib/hash.s7i" */ static void destr_200 (const_hashType/*t_200_win_index_hash*/ b) /* line 61 "../lib/hash.s7i" */ { /* line 61 "../lib/hash.s7i" */ hshDestr(b, (destrFuncType)(o_6369/*.*/), (destrFuncType)(o_6373/*.*/)); /* line 61 "../lib/hash.s7i" */ } /* line 1 "no_file" */ /* line 283 "../lib/hash.s7i" */ static hashType/*t_200_win_index_hash*/ o_6479_flip (const const_hashType/*t_197_win_table_hash*/ o_6480_aHashMap) { /* line 285 "../lib/hash.s7i" */ hashType/*t_200_win_index_hash*/ o_6481_inverseHash; /* line 287 "../lib/hash.s7i" */ winType/*t_91_PRIMITIVE_WINDOW*/ o_6482_aKey=NULL; /* line 288 "../lib/hash.s7i" */ intType/*t_14_integer*/ o_6483_aValue=0; /* line 285 "../lib/hash.s7i" */ o_6481_inverseHash=hshEmpty(); /* inline proc o_6363_for */ { /* inline params */ /* line 290 "../lib/hash.s7i" */ intType/*t_14_integer*/ *const o_6484_forVar=&(o_6483_aValue); /* line 290 "../lib/hash.s7i" */ winType/*t_91_PRIMITIVE_WINDOW*/ *const o_6485_keyVar=&(o_6482_aKey); /* line 290 "../lib/hash.s7i" */ const const_hashType/*t_197_win_table_hash*/ o_6486_aHashMap=o_6480_aHashMap; /* line 290 "../lib/hash.s7i" */ /* push proc param o_6487_statements */ /* line 290 "../lib/hash.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 258 "../lib/hash.s7i" */ const_hashType hash_1=o_6486_aHashMap; /* line 258 "../lib/hash.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 258 "../lib/hash.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 258 "../lib/hash.s7i" */ const_hashElemType helem_4; /* line 258 "../lib/hash.s7i" */ hashElemListType stack_5=NULL; /* line 258 "../lib/hash.s7i" */ while (counter_2 > 0) { /* line 258 "../lib/hash.s7i" */ helem_4=*table_elem_3; /* line 258 "../lib/hash.s7i" */ while (helem_4 != NULL) { /* line 258 "../lib/hash.s7i" */ if (helem_4->next_greater != NULL) { /* line 258 "../lib/hash.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ (*o_6484_forVar)=helem_4->data.value.intValue; /* line 258 "../lib/hash.s7i" */ drwCpy(&((*o_6485_keyVar)), helem_4->key.value.winValue); /* closure o_6487_statements*/ { /* line 291 "../lib/hash.s7i" */ if (o_6451_in(&(o_6483_aValue), o_6481_inverseHash)) { /* line 292 "../lib/hash.s7i" */ arrPush(&(*o_6444/*[*/(&(o_6481_inverseHash), &(o_6483_aValue))), (genericType)(drwCreate(o_6482_aKey))); } else { { /* line 294 "../lib/hash.s7i" */ arrayType/*t_198_*ANONYM_TYPE**/ tmp_1 = (arrayType/*t_198_*ANONYM_TYPE**/)(NULL); /* line 294 "../lib/hash.s7i" */ o_6464/*@:=*/(&(o_6481_inverseHash), &(o_6483_aValue), (tmp_1=(arrayType/*t_198_*ANONYM_TYPE**/)(arrBaselit((genericType)(drwCreate(o_6482_aKey)))))); /* line 294 "../lib/hash.s7i" */ destr_198(tmp_1); } } } /* closure o_6487_statements*/ /* line 258 "../lib/hash.s7i" */ if (helem_4->next_less != NULL) { /* line 258 "../lib/hash.s7i" */ helem_4=helem_4->next_less; /* line 258 "../lib/hash.s7i" */ } else { /* line 258 "../lib/hash.s7i" */ pop_stack(stack_5, helem_4); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ counter_2--; /* line 258 "../lib/hash.s7i" */ table_elem_3++; /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ } /* hsh_for */ /* pop proc param o_6487_statements */ } /* inline proc o_6363_for */ /* line 283 "../lib/hash.s7i" */ drwDestr(o_6482_aKey); return o_6481_inverseHash; } /* line 1 "no_file" */ /* 3738 */ /* 3739 */ /* 3740 */ /* line 58 "../lib/hash.s7i" */ static hashType/*t_197_win_table_hash*/ create_197 (const_hashType/*t_197_win_table_hash*/ b) /* line 58 "../lib/hash.s7i" */ { /* line 58 "../lib/hash.s7i" */ return hshCreate(b, (createFuncType)(o_6263/*.*/), (destrFuncType)(o_6264/*.*/), (createFuncType)(o_6267/*.*/), (destrFuncType)(o_6268/*.*/)); /* line 58 "../lib/hash.s7i" */ } /* line 1 "no_file" */ hashType/*t_197_win_table_hash*/ o_6488_win_const_table; /* 3741 */ hashType/*t_171_bigint_bstri_hash*/ o_6489_win_bstri_table; /* 3742 */ /* 3743 */ /* 3744 */ hashType/*t_156_element_number_hash*/ o_6490_const_table; /* 3745 */ /* line 73 "../lib/comp/literal.s7i" */ static striType/*t_15_string*/ o_6491_stringInComment (const const_striType/*t_15_string*/ o_6492_stri) { /* line 76 "../lib/comp/literal.s7i" */ striType/*t_15_string*/ o_6493_expr; /* line 76 "../lib/comp/literal.s7i" */ o_6493_expr=strEmpty(); /* "" */ /* line 78 "../lib/comp/literal.s7i" */ if (((intType)((o_6492_stri)->size)) <= (256L)) { /* line 79 "../lib/comp/literal.s7i" */ strAppend(&(o_6493_expr), &str[317] /* " /* " */); { /* line 80 "../lib/comp/literal.s7i" */ striType tmp_2 = NULL; /* line 80 "../lib/comp/literal.s7i" */ strAppendTemp(&(o_6493_expr), strRepl((tmp_2=strLit(o_6492_stri)), &str[123] /* "*\/" */, &str[318] /* "*\\/" */)); /* line 80 "../lib/comp/literal.s7i" */ strDestr(tmp_2); } /* line 81 "../lib/comp/literal.s7i" */ strAppend(&(o_6493_expr), &str[281] /* " *\/" */); } return o_6493_expr; } /* line 1 "no_file" */ /* 3746 */ /* line 86 "../lib/comp/literal.s7i" */ static striType/*t_15_string*/ o_6494_stringLiteral (const const_striType/*t_15_string*/ o_6495_stri) { /* line 89 "../lib/comp/literal.s7i" */ striType/*t_15_string*/ o_6496_expr; /* line 89 "../lib/comp/literal.s7i" */ o_6496_expr=strEmpty(); /* "" */ /* line 91 "../lib/comp/literal.s7i" */ if (o_5541_not(o_6495_stri, o_5686_stri_const_table)) { /* line 92 "../lib/comp/literal.s7i" */ o_5551/*@:=*/(&(o_5686_stri_const_table), o_6495_stri, (intType)((o_5686_stri_const_table)->size)); } /* line 94 "../lib/comp/literal.s7i" */ if (((structType)(sct[55]))->stru[1].value.boolValue/*->o_3379_ALLOW_STRITYPE_SLICES*/) { /* line 95 "../lib/comp/literal.s7i" */ strCopy(&(o_6496_expr), &str[319] /* "&" */); } /* line 97 "../lib/comp/literal.s7i" */ strAppend(&(o_6496_expr), &str[320] /* "str[" */); { /* line 98 "../lib/comp/literal.s7i" */ union { /* line 98 "../lib/comp/literal.s7i" */ struct striStruct striBuf; /* line 98 "../lib/comp/literal.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 98 "../lib/comp/literal.s7i" */ } buffer_1; /* line 98 "../lib/comp/literal.s7i" */ strAppend(&(o_6496_expr), intStrToBuffer(*o_5531/*[*/(&(o_5686_stri_const_table), o_6495_stri), &buffer_1.striBuf)); } /* line 99 "../lib/comp/literal.s7i" */ /* line 99 "../lib/comp/literal.s7i" */ if (((o_6496_expr))->size == ((o_6496_expr))->capacity) { /* line 99 "../lib/comp/literal.s7i" */ strPush(&((o_6496_expr)), (charType) ']'); /* line 99 "../lib/comp/literal.s7i" */ } else { /* line 99 "../lib/comp/literal.s7i" */ ((o_6496_expr))->mem[((o_6496_expr))->size]=(charType) ']'; /* line 99 "../lib/comp/literal.s7i" */ ((o_6496_expr))->size++; /* line 99 "../lib/comp/literal.s7i" */ } /* line 100 "../lib/comp/literal.s7i" */ strAppendTemp(&(o_6496_expr), o_6491_stringInComment(o_6495_stri)); return o_6496_expr; } /* line 1 "no_file" */ /* 3747 */ /* line 104 "../lib/comp/literal.s7i" */ static striType/*t_15_string*/ o_6497_bstriLiteral (const bstriType/*t_68_bstring*/ o_6498_bstri) { /* line 107 "../lib/comp/literal.s7i" */ striType/*t_15_string*/ o_6499_expr; /* line 107 "../lib/comp/literal.s7i" */ o_6499_expr=strEmpty(); /* "" */ /* line 109 "../lib/comp/literal.s7i" */ if (o_5767_not(o_6498_bstri, o_5912_bstri_const_table)) { /* line 110 "../lib/comp/literal.s7i" */ o_5777/*@:=*/(&(o_5912_bstri_const_table), o_6498_bstri, (intType)((o_5912_bstri_const_table)->size)); } /* line 112 "../lib/comp/literal.s7i" */ if (((structType)(sct[55]))->stru[2].value.boolValue/*->o_3380_ALLOW_BSTRITYPE_SLICES*/) { /* line 113 "../lib/comp/literal.s7i" */ strCopy(&(o_6499_expr), &str[319] /* "&" */); } /* line 115 "../lib/comp/literal.s7i" */ strAppend(&(o_6499_expr), &str[321] /* "bst[" */); { /* line 116 "../lib/comp/literal.s7i" */ union { /* line 116 "../lib/comp/literal.s7i" */ struct striStruct striBuf; /* line 116 "../lib/comp/literal.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 116 "../lib/comp/literal.s7i" */ } buffer_1; /* line 116 "../lib/comp/literal.s7i" */ strAppend(&(o_6499_expr), intStrToBuffer(*o_5757/*[*/(&(o_5912_bstri_const_table), o_6498_bstri), &buffer_1.striBuf)); } /* line 117 "../lib/comp/literal.s7i" */ /* line 117 "../lib/comp/literal.s7i" */ if (((o_6499_expr))->size == ((o_6499_expr))->capacity) { /* line 117 "../lib/comp/literal.s7i" */ strPush(&((o_6499_expr)), (charType) ']'); /* line 117 "../lib/comp/literal.s7i" */ } else { /* line 117 "../lib/comp/literal.s7i" */ ((o_6499_expr))->mem[((o_6499_expr))->size]=(charType) ']'; /* line 117 "../lib/comp/literal.s7i" */ ((o_6499_expr))->size++; /* line 117 "../lib/comp/literal.s7i" */ } return o_6499_expr; } /* line 1 "no_file" */ /* 3748 */ /* line 121 "../lib/comp/literal.s7i" */ static striType/*t_15_string*/ o_6500_charLiteral (const charType/*t_18_char*/ o_6501_ch) { /* line 122 "../lib/comp/literal.s7i" */ striType/*t_15_string*/ result; /* line 122 "../lib/comp/literal.s7i" */ union { /* line 122 "../lib/comp/literal.s7i" */ struct striStruct striBuf; /* line 122 "../lib/comp/literal.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 122 "../lib/comp/literal.s7i" */ } buffer_2; /* line 122 "../lib/comp/literal.s7i" */ result=(striType/*t_15_string*/)((strConcat(&str[322] /* "(charType) " */, chrCLitToBuffer(o_6501_ch, &buffer_2.striBuf)))); /* line 122 "../lib/comp/literal.s7i" */ return result; } /* line 1 "no_file" */ /* 3749 */ /* line 125 "../lib/comp/literal.s7i" */ static striType/*t_15_string*/ o_6502_integerLiteral (const intType/*t_14_integer*/ o_6503_number) { /* line 128 "../lib/comp/literal.s7i" */ striType/*t_15_string*/ o_6504_expr; /* line 128 "../lib/comp/literal.s7i" */ o_6504_expr=strEmpty(); /* "" */ /* line 130 "../lib/comp/literal.s7i" */ if (((((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/) == (64L)) && /* line 130 "../lib/comp/literal.s7i" */ (((((structType)(sct[55]))->stru[61].value.striValue/*->o_3439_INTTYPE_LITERAL_SUFFIX*/)->size==0 /* "" */))) { /* line 131 "../lib/comp/literal.s7i" */ if ((o_6503_number) < (0L)) { /* line 132 "../lib/comp/literal.s7i" */ if ((o_6503_number) == ((-9223372036854775807L-1L))) { /* line 133 "../lib/comp/literal.s7i" */ strCopy(&(o_6504_expr), &str[323] /* "(intType) (" */); { /* line 134 "../lib/comp/literal.s7i" */ union { /* line 134 "../lib/comp/literal.s7i" */ struct striStruct striBuf; /* line 134 "../lib/comp/literal.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 134 "../lib/comp/literal.s7i" */ } buffer_1; /* line 134 "../lib/comp/literal.s7i" */ strAppend(&(o_6504_expr), intStrToBuffer(((-9223372036854775807L-1L))+1, &buffer_1.striBuf)); } /* line 135 "../lib/comp/literal.s7i" */ strAppend(&(o_6504_expr), &str[324] /* "-1)" */); } else { /* line 137 "../lib/comp/literal.s7i" */ strCopy(&(o_6504_expr), &str[325] /* "-(intType) " */); { /* line 138 "../lib/comp/literal.s7i" */ union { /* line 138 "../lib/comp/literal.s7i" */ struct striStruct striBuf; /* line 138 "../lib/comp/literal.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 138 "../lib/comp/literal.s7i" */ } buffer_1; /* line 138 "../lib/comp/literal.s7i" */ strAppend(&(o_6504_expr), intStrToBuffer(-(o_6503_number), &buffer_1.striBuf)); } } } else { /* line 141 "../lib/comp/literal.s7i" */ strCopy(&(o_6504_expr), &str[326] /* "(intType) " */); { /* line 142 "../lib/comp/literal.s7i" */ union { /* line 142 "../lib/comp/literal.s7i" */ struct striStruct striBuf; /* line 142 "../lib/comp/literal.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 142 "../lib/comp/literal.s7i" */ } buffer_1; /* line 142 "../lib/comp/literal.s7i" */ strAppend(&(o_6504_expr), intStrToBuffer(o_6503_number, &buffer_1.striBuf)); } } } else /* line 144 "../lib/comp/literal.s7i" */ if ((o_6503_number) == ((-9223372036854775807L-1L))) { /* line 145 "../lib/comp/literal.s7i" */ strCopy(&(o_6504_expr), &str[32] /* "(" */); { /* line 146 "../lib/comp/literal.s7i" */ union { /* line 146 "../lib/comp/literal.s7i" */ struct striStruct striBuf; /* line 146 "../lib/comp/literal.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 146 "../lib/comp/literal.s7i" */ } buffer_1; /* line 146 "../lib/comp/literal.s7i" */ strAppend(&(o_6504_expr), intStrToBuffer(((-9223372036854775807L-1L))+1, &buffer_1.striBuf)); } /* line 147 "../lib/comp/literal.s7i" */ strAppend(&(o_6504_expr), ((structType)(sct[55]))->stru[61].value.striValue/*->o_3439_INTTYPE_LITERAL_SUFFIX*/); /* line 148 "../lib/comp/literal.s7i" */ strAppend(&(o_6504_expr), &str[327] /* "-1" */); /* line 149 "../lib/comp/literal.s7i" */ strAppend(&(o_6504_expr), ((structType)(sct[55]))->stru[61].value.striValue/*->o_3439_INTTYPE_LITERAL_SUFFIX*/); /* line 150 "../lib/comp/literal.s7i" */ /* line 150 "../lib/comp/literal.s7i" */ if (((o_6504_expr))->size == ((o_6504_expr))->capacity) { /* line 150 "../lib/comp/literal.s7i" */ strPush(&((o_6504_expr)), (charType) ')'); /* line 150 "../lib/comp/literal.s7i" */ } else { /* line 150 "../lib/comp/literal.s7i" */ ((o_6504_expr))->mem[((o_6504_expr))->size]=(charType) ')'; /* line 150 "../lib/comp/literal.s7i" */ ((o_6504_expr))->size++; /* line 150 "../lib/comp/literal.s7i" */ } } else { { /* line 152 "../lib/comp/literal.s7i" */ union { /* line 152 "../lib/comp/literal.s7i" */ struct striStruct striBuf; /* line 152 "../lib/comp/literal.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 152 "../lib/comp/literal.s7i" */ } buffer_1; /* line 152 "../lib/comp/literal.s7i" */ strCopy(&(o_6504_expr), intStrToBuffer(o_6503_number, &buffer_1.striBuf)); } /* line 153 "../lib/comp/literal.s7i" */ strAppend(&(o_6504_expr), ((structType)(sct[55]))->stru[61].value.striValue/*->o_3439_INTTYPE_LITERAL_SUFFIX*/); } return o_6504_expr; } /* line 1 "no_file" */ /* 3750 */ /* line 158 "../lib/comp/literal.s7i" */ static striType/*t_15_string*/ o_6505_bigIntegerLiteral (const const_bigIntType/*t_57_bigInteger*/ o_6506_number) { /* line 161 "../lib/comp/literal.s7i" */ striType/*t_15_string*/ o_6507_expr; /* line 161 "../lib/comp/literal.s7i" */ o_6507_expr=strEmpty(); /* "" */ /* line 163 "../lib/comp/literal.s7i" */ if (o_5189_not(o_6506_number, o_5509_bigint_const_table)) { /* line 164 "../lib/comp/literal.s7i" */ o_5199/*@:=*/(&(o_5509_bigint_const_table), o_6506_number, (intType)((o_5509_bigint_const_table)->size)); } /* line 166 "../lib/comp/literal.s7i" */ strCopy(&(o_6507_expr), &str[328] /* "big[" */); { /* line 167 "../lib/comp/literal.s7i" */ union { /* line 167 "../lib/comp/literal.s7i" */ struct striStruct striBuf; /* line 167 "../lib/comp/literal.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 167 "../lib/comp/literal.s7i" */ } buffer_1; /* line 167 "../lib/comp/literal.s7i" */ strAppend(&(o_6507_expr), intStrToBuffer(*o_5179/*[*/(&(o_5509_bigint_const_table), o_6506_number), &buffer_1.striBuf)); } /* line 168 "../lib/comp/literal.s7i" */ /* line 168 "../lib/comp/literal.s7i" */ if (((o_6507_expr))->size == ((o_6507_expr))->capacity) { /* line 168 "../lib/comp/literal.s7i" */ strPush(&((o_6507_expr)), (charType) ']'); /* line 168 "../lib/comp/literal.s7i" */ } else { /* line 168 "../lib/comp/literal.s7i" */ ((o_6507_expr))->mem[((o_6507_expr))->size]=(charType) ']'; /* line 168 "../lib/comp/literal.s7i" */ ((o_6507_expr))->size++; /* line 168 "../lib/comp/literal.s7i" */ } /* line 169 "../lib/comp/literal.s7i" */ if ((bigBitLength(o_6506_number)) <= (256L)) { /* line 170 "../lib/comp/literal.s7i" */ strAppend(&(o_6507_expr), &str[317] /* " /* " */); /* line 171 "../lib/comp/literal.s7i" */ strAppendTemp(&(o_6507_expr), bigStr(o_6506_number)); /* line 172 "../lib/comp/literal.s7i" */ strAppend(&(o_6507_expr), &str[281] /* " *\/" */); } return o_6507_expr; } /* line 1 "no_file" */ /* 3751 */ /* line 177 "../lib/comp/literal.s7i" */ static striType/*t_15_string*/ o_6508_bitsetLiteral (const const_setType/*t_30_bitset*/ o_6509_aBitset) { /* line 180 "../lib/comp/literal.s7i" */ striType/*t_15_string*/ o_6510_expr; /* line 180 "../lib/comp/literal.s7i" */ o_6510_expr=strEmpty(); /* "" */ /* line 182 "../lib/comp/literal.s7i" */ if (o_5997_not(o_6509_aBitset, o_6142_set_const_table)) { /* line 183 "../lib/comp/literal.s7i" */ o_6007/*@:=*/(&(o_6142_set_const_table), o_6509_aBitset, (intType)((o_6142_set_const_table)->size)); } /* line 185 "../lib/comp/literal.s7i" */ strCopy(&(o_6510_expr), &str[329] /* "set[" */); { /* line 186 "../lib/comp/literal.s7i" */ union { /* line 186 "../lib/comp/literal.s7i" */ struct striStruct striBuf; /* line 186 "../lib/comp/literal.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 186 "../lib/comp/literal.s7i" */ } buffer_1; /* line 186 "../lib/comp/literal.s7i" */ strAppend(&(o_6510_expr), intStrToBuffer(*o_5987/*[*/(&(o_6142_set_const_table), o_6509_aBitset), &buffer_1.striBuf)); } /* line 187 "../lib/comp/literal.s7i" */ /* line 187 "../lib/comp/literal.s7i" */ if (((o_6510_expr))->size == ((o_6510_expr))->capacity) { /* line 187 "../lib/comp/literal.s7i" */ strPush(&((o_6510_expr)), (charType) ']'); /* line 187 "../lib/comp/literal.s7i" */ } else { /* line 187 "../lib/comp/literal.s7i" */ ((o_6510_expr))->mem[((o_6510_expr))->size]=(charType) ']'; /* line 187 "../lib/comp/literal.s7i" */ ((o_6510_expr))->size++; /* line 187 "../lib/comp/literal.s7i" */ } return o_6510_expr; } /* line 1 "no_file" */ /* 3752 */ /* line 191 "../lib/comp/literal.s7i" */ static striType/*t_15_string*/ o_6511_floatLiteral (const floatType/*t_65_float*/ o_6512_aFloat) { /* line 194 "../lib/comp/literal.s7i" */ striType/*t_15_string*/ o_6513_expr; /* line 196 "../lib/comp/literal.s7i" */ intType/*t_14_integer*/ o_6514_exponentPos=0; /* line 197 "../lib/comp/literal.s7i" */ intType/*t_14_integer*/ o_6515_pos=0; /* line 194 "../lib/comp/literal.s7i" */ o_6513_expr=strEmpty(); /* "" */ /* line 199 "../lib/comp/literal.s7i" */ if (isnan(o_6512_aFloat)) { /* line 200 "../lib/comp/literal.s7i" */ strCopy(&(o_6513_expr), &str[330] /* "NOT_A_NUMBER" */); } else /* line 201 "../lib/comp/literal.s7i" */ if (POSITIVE_INFINITY == (o_6512_aFloat)) { /* line 202 "../lib/comp/literal.s7i" */ strCopy(&(o_6513_expr), &str[331] /* "POSITIVE_INFINITY" */); } else /* line 203 "../lib/comp/literal.s7i" */ if ((o_6512_aFloat) == (NEGATIVE_INFINITY)) { /* line 204 "../lib/comp/literal.s7i" */ strCopy(&(o_6513_expr), &str[332] /* "NEGATIVE_INFINITY" */); } else /* line 205 "../lib/comp/literal.s7i" */ if (fltIsNegativeZero(o_6512_aFloat)) { /* line 206 "../lib/comp/literal.s7i" */ strCopy(&(o_6513_expr), &str[333] /* "negativeZero" */); } else { { /* line 208 "../lib/comp/literal.s7i" */ striType old_stri=o_6513_expr; /* line 208 "../lib/comp/literal.s7i" */ o_6513_expr=fltStr(o_6512_aFloat); /* line 208 "../lib/comp/literal.s7i" */ strDestr(old_stri); } /* line 210 "../lib/comp/literal.s7i" */ if ((fltParse(o_6513_expr)) != (o_6512_aFloat)) { { /* line 211 "../lib/comp/literal.s7i" */ striType old_stri=o_6513_expr; /* line 211 "../lib/comp/literal.s7i" */ o_6513_expr=fltSci(o_6512_aFloat, 100L); /* line 211 "../lib/comp/literal.s7i" */ strDestr(old_stri); } /* line 212 "../lib/comp/literal.s7i" */ o_6514_exponentPos=strChPos(o_6513_expr, (charType) 'e'); /* line 213 "../lib/comp/literal.s7i" */ o_6515_pos=(o_6514_exponentPos)-1; { /* line 214 "../lib/comp/literal.s7i" */ uintType idx_1; /* line 214 "../lib/comp/literal.s7i" */ while (((o_6515_pos) >= (1L)) && /* line 214 "../lib/comp/literal.s7i" */ (((o_6513_expr)->mem[(idx_1=(uintType)((o_6515_pos)-1), idxChk(idx_1>=(o_6513_expr)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]) == ((charType) '0'))) { /* line 215 "../lib/comp/literal.s7i" */ --(o_6515_pos); } } { /* line 217 "../lib/comp/literal.s7i" */ struct striStruct slice_2; /* line 217 "../lib/comp/literal.s7i" */ struct striStruct slice_3; /* line 217 "../lib/comp/literal.s7i" */ striType old_stri=o_6513_expr; /* line 217 "../lib/comp/literal.s7i" */ o_6513_expr=strConcat((strHeadSlice(o_6513_expr, o_6515_pos, &slice_2), &slice_2), (strTailSlice(o_6513_expr, o_6514_exponentPos, &slice_3), &slice_3)); /* line 217 "../lib/comp/literal.s7i" */ strDestr(old_stri); } } } return o_6513_expr; } /* line 1 "no_file" */ /* 3753 */ /* line 223 "../lib/comp/literal.s7i" */ static striType/*t_15_string*/ o_6516_typeLiteral (const typeType/*t_7_type*/ *const o_6517_aType) { /* line 226 "../lib/comp/literal.s7i" */ striType/*t_15_string*/ o_6518_expr; /* line 226 "../lib/comp/literal.s7i" */ o_6518_expr=strEmpty(); /* "" */ /* line 228 "../lib/comp/literal.s7i" */ if (o_6173_not(o_6517_aType, o_6262_type_const_table)) { /* line 229 "../lib/comp/literal.s7i" */ o_6183/*@:=*/(&(o_6262_type_const_table), o_6517_aType, (intType)((o_6262_type_const_table)->size)); } /* line 231 "../lib/comp/literal.s7i" */ strCopy(&(o_6518_expr), &str[334] /* "typ[" */); { /* line 232 "../lib/comp/literal.s7i" */ union { /* line 232 "../lib/comp/literal.s7i" */ struct striStruct striBuf; /* line 232 "../lib/comp/literal.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 232 "../lib/comp/literal.s7i" */ } buffer_1; /* line 232 "../lib/comp/literal.s7i" */ strAppend(&(o_6518_expr), intStrToBuffer(*o_6163/*[*/(&(o_6262_type_const_table), o_6517_aType), &buffer_1.striBuf)); } /* line 233 "../lib/comp/literal.s7i" */ strAppend(&(o_6518_expr), &str[335] /* "] /* " */); /* line 234 "../lib/comp/literal.s7i" */ strAppendTemp(&(o_6518_expr), o_4746_type_name2(o_6517_aType)); /* line 235 "../lib/comp/literal.s7i" */ strAppend(&(o_6518_expr), &str[281] /* " *\/" */); return o_6518_expr; } /* line 1 "no_file" */ /* 3754 */ /* line 239 "../lib/comp/literal.s7i" */ static striType/*t_15_string*/ o_6519_windowLiteral (const winType/*t_91_PRIMITIVE_WINDOW*/ o_6520_aWindow) { /* line 242 "../lib/comp/literal.s7i" */ striType/*t_15_string*/ o_6521_expr; /* line 242 "../lib/comp/literal.s7i" */ o_6521_expr=strEmpty(); /* "" */ /* line 244 "../lib/comp/literal.s7i" */ if ((o_6520_aWindow) == ((winType) NULL)) { /* line 245 "../lib/comp/literal.s7i" */ strCopy(&(o_6521_expr), &str[336] /* "(winType) NULL" */); } else { /* line 247 "../lib/comp/literal.s7i" */ if (o_6343_not(o_6520_aWindow, o_6488_win_const_table)) { /* line 248 "../lib/comp/literal.s7i" */ o_6353/*@:=*/(&(o_6488_win_const_table), o_6520_aWindow, (intType)((o_6488_win_const_table)->size)); } /* line 250 "../lib/comp/literal.s7i" */ strCopy(&(o_6521_expr), &str[337] /* "win[" */); { /* line 251 "../lib/comp/literal.s7i" */ union { /* line 251 "../lib/comp/literal.s7i" */ struct striStruct striBuf; /* line 251 "../lib/comp/literal.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 251 "../lib/comp/literal.s7i" */ } buffer_1; /* line 251 "../lib/comp/literal.s7i" */ strAppend(&(o_6521_expr), intStrToBuffer(*o_6333/*[*/(&(o_6488_win_const_table), o_6520_aWindow), &buffer_1.striBuf)); } /* line 252 "../lib/comp/literal.s7i" */ /* line 252 "../lib/comp/literal.s7i" */ if (((o_6521_expr))->size == ((o_6521_expr))->capacity) { /* line 252 "../lib/comp/literal.s7i" */ strPush(&((o_6521_expr)), (charType) ']'); /* line 252 "../lib/comp/literal.s7i" */ } else { /* line 252 "../lib/comp/literal.s7i" */ ((o_6521_expr))->mem[((o_6521_expr))->size]=(charType) ']'; /* line 252 "../lib/comp/literal.s7i" */ ((o_6521_expr))->size++; /* line 252 "../lib/comp/literal.s7i" */ } } return o_6521_expr; } /* line 1 "no_file" */ /* 3755 */ /* line 27 "../lib/comp/error.s7i" */ static striType/*t_15_string*/ o_6522_voidRaiseError (const const_striType/*t_15_string*/ o_6523_exceptionName) { /* line 30 "../lib/comp/error.s7i" */ striType/*t_15_string*/ o_6524_expr; /* line 30 "../lib/comp/error.s7i" */ o_6524_expr=strEmpty(); /* "" */ /* line 32 "../lib/comp/error.s7i" */ strAppend(&(o_6524_expr), &str[338] /* "raise_error(" */); /* line 33 "../lib/comp/error.s7i" */ strAppend(&(o_6524_expr), o_6523_exceptionName); /* line 34 "../lib/comp/error.s7i" */ strAppend(&(o_6524_expr), &str[339] /* ");" */); return o_6524_expr; } /* line 1 "no_file" */ /* 3756 */ /* line 38 "../lib/comp/error.s7i" */ static striType/*t_15_string*/ o_6525_intRaiseError (const const_striType/*t_15_string*/ o_6526_exceptionName) { /* line 41 "../lib/comp/error.s7i" */ striType/*t_15_string*/ o_6527_expr; /* line 41 "../lib/comp/error.s7i" */ o_6527_expr=strEmpty(); /* "" */ /* line 43 "../lib/comp/error.s7i" */ strAppend(&(o_6527_expr), &str[340] /* "intRaiseError(" */); /* line 44 "../lib/comp/error.s7i" */ strAppend(&(o_6527_expr), o_6526_exceptionName); /* line 45 "../lib/comp/error.s7i" */ /* line 45 "../lib/comp/error.s7i" */ if (((o_6527_expr))->size == ((o_6527_expr))->capacity) { /* line 45 "../lib/comp/error.s7i" */ strPush(&((o_6527_expr)), (charType) ')'); /* line 45 "../lib/comp/error.s7i" */ } else { /* line 45 "../lib/comp/error.s7i" */ ((o_6527_expr))->mem[((o_6527_expr))->size]=(charType) ')'; /* line 45 "../lib/comp/error.s7i" */ ((o_6527_expr))->size++; /* line 45 "../lib/comp/error.s7i" */ } return o_6527_expr; } /* line 1 "no_file" */ /* 3757 */ /* line 49 "../lib/comp/error.s7i" */ static striType/*t_15_string*/ o_6528_bigRaiseError (const const_striType/*t_15_string*/ o_6529_exceptionName) { /* line 52 "../lib/comp/error.s7i" */ striType/*t_15_string*/ o_6530_expr; /* line 52 "../lib/comp/error.s7i" */ o_6530_expr=strEmpty(); /* "" */ /* line 54 "../lib/comp/error.s7i" */ strAppend(&(o_6530_expr), &str[341] /* "bigRaiseError(" */); /* line 55 "../lib/comp/error.s7i" */ strAppend(&(o_6530_expr), o_6529_exceptionName); /* line 56 "../lib/comp/error.s7i" */ /* line 56 "../lib/comp/error.s7i" */ if (((o_6530_expr))->size == ((o_6530_expr))->capacity) { /* line 56 "../lib/comp/error.s7i" */ strPush(&((o_6530_expr)), (charType) ')'); /* line 56 "../lib/comp/error.s7i" */ } else { /* line 56 "../lib/comp/error.s7i" */ ((o_6530_expr))->mem[((o_6530_expr))->size]=(charType) ')'; /* line 56 "../lib/comp/error.s7i" */ ((o_6530_expr))->size++; /* line 56 "../lib/comp/error.s7i" */ } return o_6530_expr; } /* line 1 "no_file" */ /* 3758 */ /* line 60 "../lib/comp/error.s7i" */ static void/*t_1_void*/ o_6531_DOES_RAISE (const const_striType/*t_15_string*/ o_6532_exceptionName, const structType/*t_164_expr_type*/ o_6533_c_expr) { /*noop*/ } /* line 1 "no_file" */ /* 3759 */ /* line 68 "../lib/comp/error.s7i" */ static void/*t_1_void*/ o_6534_WHEN_OVERLAPPING (const const_setType/*t_30_bitset*/ o_6535_overlappingWhenValues, const objRefType/*t_19_reference*/ o_6536_current_expression) { { /* line 71 "../lib/comp/error.s7i" */ const_striType tmp_6[3]; /* line 71 "../lib/comp/error.s7i" */ striType tmp_5 = NULL; /* line 71 "../lib/comp/error.s7i" */ striType tmp_3 = NULL; /* line 71 "../lib/comp/error.s7i" */ striType tmp_1 = NULL; /* line 71 "../lib/comp/error.s7i" */ o_1282_writeln((tmp_1=strConcatTemp(o_1265/*<&*/((tmp_3=strConcatTemp(o_1169/*<&*/((tmp_5=(tmp_6[0] = &str[342] /* "*** " */, tmp_6[1] = refFile(o_6536_current_expression), tmp_6[2] = &str[32] /* "(" */, strConcatN(tmp_6, 3))), refLine(o_6536_current_expression)), &str[343] /* "): When values " */)), o_6535_overlappingWhenValues), &str[344] /* " do overlap." */))); /* line 71 "../lib/comp/error.s7i" */ strDestr(tmp_5); /* line 71 "../lib/comp/error.s7i" */ strDestr(tmp_3); /* line 71 "../lib/comp/error.s7i" */ strDestr(tmp_1); } } /* line 1 "no_file" */ /* 3760 */ /* line 76 "../lib/comp/error.s7i" */ static void/*t_1_void*/ o_6537_VARIABLE_WHEN (const objRefType/*t_19_reference*/ o_6538_current_expression) { { /* line 78 "../lib/comp/error.s7i" */ const_striType tmp_4[3]; /* line 78 "../lib/comp/error.s7i" */ striType tmp_3 = NULL; /* line 78 "../lib/comp/error.s7i" */ striType tmp_1 = NULL; /* line 78 "../lib/comp/error.s7i" */ o_1282_writeln((tmp_1=strConcatTemp(o_1169/*<&*/((tmp_3=(tmp_4[0] = &str[342] /* "*** " */, tmp_4[1] = refFile(o_6538_current_expression), tmp_4[2] = &str[32] /* "(" */, strConcatN(tmp_4, 3))), refLine(o_6538_current_expression)), &str[345] /* "): When value must be constant." */))); /* line 78 "../lib/comp/error.s7i" */ strDestr(tmp_3); /* line 78 "../lib/comp/error.s7i" */ strDestr(tmp_1); } } /* line 1 "no_file" */ /* 3761 */ boolType/*t_13_boolean*/ o_6539_consoleLibraryUsed=0/*FALSE*/; /* 3762 */ boolType/*t_13_boolean*/ o_6540_drawLibraryUsed=0/*FALSE*/; /* 3763 */ boolType/*t_13_boolean*/ o_6541_compilerLibraryUsed=0/*FALSE*/; /* 3764 */ boolType/*t_13_boolean*/ o_6542_compDataLibraryUsed=0/*FALSE*/; /* 3765 */ static void/*t_1_void*/ o_6543_process_action (const objRefType/*t_19_reference*/ o_6544_function, const listType/*t_20_ref_list*/ *const o_6545_params, structType/*t_164_expr_type*/ *const o_6546_c_expr); static void/*t_1_void*/ o_6547_declareExtern (interfaceType/*t_46_file*/ *const o_6548_c_prog, const const_striType/*t_15_string*/ o_6549_prototype); /* 3766 */ static void/*t_1_void*/ o_6547_declareExtern (interfaceType/*t_46_file*/ *const o_6548_c_prog, const const_striType/*t_15_string*/ o_6549_prototype); /* line 36 "../lib/comp/act_act.s7i" */ static void/*t_1_void*/ o_6550_act_prototypes (interfaceType/*t_46_file*/ *const o_6551_c_prog) { /* line 39 "../lib/comp/act_act.s7i" */ o_6547_declareExtern(o_6551_c_prog, &str[346] /* "actType actIConv (intType);" */); /* line 40 "../lib/comp/act_act.s7i" */ o_6547_declareExtern(o_6551_c_prog, &str[347] /* "intType actOrd (actType);" */); /* line 41 "../lib/comp/act_act.s7i" */ o_6547_declareExtern(o_6551_c_prog, &str[348] /* "striType actStr (actType);" */); /* line 42 "../lib/comp/act_act.s7i" */ o_6547_declareExtern(o_6551_c_prog, &str[349] /* "actType actValue (objRefType);" */); } /* line 1 "no_file" */ /* 3767 */ /* line 46 "../lib/comp/act_act.s7i" */ static void/*t_1_void*/ o_6552_ACT_CPY (const objRefType/*t_19_reference*/ o_6553_function, const listType/*t_20_ref_list*/ *const o_6554_params, structType/*t_164_expr_type*/ *const o_6555_c_expr) { /* line 50 "../lib/comp/act_act.s7i" */ structType/*t_164_expr_type*/ o_6556_c_param1; /* line 51 "../lib/comp/act_act.s7i" */ structType/*t_164_expr_type*/ o_6557_c_param3; /* line 50 "../lib/comp/act_act.s7i" */ o_6556_c_param1=create_164(sct[171]); /* line 51 "../lib/comp/act_act.s7i" */ o_6557_c_param3=create_164(sct[172]); /* line 53 "../lib/comp/act_act.s7i" */ o_4941_process_expr(rflIdx(*o_6554_params, 1L), &(o_6556_c_param1)); /* line 54 "../lib/comp/act_act.s7i" */ ((structType)(o_6557_c_param3))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_6556_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 55 "../lib/comp/act_act.s7i" */ o_4941_process_expr(rflIdx(*o_6554_params, 3L), &(o_6557_c_param3)); /* line 56 "../lib/comp/act_act.s7i" */ if ((((structType)(o_6557_c_param3))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 57 "../lib/comp/act_act.s7i" */ strAppend(&(((structType)(*o_6555_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 58 "../lib/comp/act_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6556_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_6555_c_expr); /* line 59 "../lib/comp/act_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6557_c_param3))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_6555_c_expr); /* line 60 "../lib/comp/act_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6556_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_6555_c_expr); /* line 61 "../lib/comp/act_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6557_c_param3))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_6555_c_expr); } /* line 63 "../lib/comp/act_act.s7i" */ o_4819_setDiagnosticLine(o_6555_c_expr); /* line 64 "../lib/comp/act_act.s7i" */ strAppend(&(((structType)(*o_6555_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6556_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 65 "../lib/comp/act_act.s7i" */ { /* line 65 "../lib/comp/act_act.s7i" */ striType *tmp_1; /* line 65 "../lib/comp/act_act.s7i" */ tmp_1=&(((structType)(*o_6555_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 65 "../lib/comp/act_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 65 "../lib/comp/act_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 65 "../lib/comp/act_act.s7i" */ } else { /* line 65 "../lib/comp/act_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 65 "../lib/comp/act_act.s7i" */ (*tmp_1)->size++; /* line 65 "../lib/comp/act_act.s7i" */ } } /* line 66 "../lib/comp/act_act.s7i" */ if (((((structType)(o_6557_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 67 "../lib/comp/act_act.s7i" */ strAppend(&(((structType)(*o_6555_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6557_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 69 "../lib/comp/act_act.s7i" */ strAppend(&(((structType)(*o_6555_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6557_c_param3))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 71 "../lib/comp/act_act.s7i" */ strAppend(&(((structType)(*o_6555_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 72 "../lib/comp/act_act.s7i" */ if ((((structType)(o_6557_c_param3))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 73 "../lib/comp/act_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6556_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_6555_c_expr); /* line 74 "../lib/comp/act_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6557_c_param3))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_6555_c_expr); /* line 75 "../lib/comp/act_act.s7i" */ strAppend(&(((structType)(*o_6555_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 46 "../lib/comp/act_act.s7i" */ destr_164(o_6556_c_param1); /* line 46 "../lib/comp/act_act.s7i" */ destr_164(o_6557_c_param3); } /* line 1 "no_file" */ /* 3768 */ /* line 80 "../lib/comp/act_act.s7i" */ static void/*t_1_void*/ o_6558_ACT_EQ (const objRefType/*t_19_reference*/ o_6559_function, const listType/*t_20_ref_list*/ *const o_6560_params, structType/*t_164_expr_type*/ *const o_6561_c_expr) { /* line 84 "../lib/comp/act_act.s7i" */ { /* line 84 "../lib/comp/act_act.s7i" */ striType *tmp_1; /* line 84 "../lib/comp/act_act.s7i" */ tmp_1=&(((structType)(*o_6561_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 84 "../lib/comp/act_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 84 "../lib/comp/act_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 84 "../lib/comp/act_act.s7i" */ } else { /* line 84 "../lib/comp/act_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 84 "../lib/comp/act_act.s7i" */ (*tmp_1)->size++; /* line 84 "../lib/comp/act_act.s7i" */ } } /* line 85 "../lib/comp/act_act.s7i" */ o_4941_process_expr(rflIdx(*o_6560_params, 1L), o_6561_c_expr); /* line 86 "../lib/comp/act_act.s7i" */ strAppend(&(((structType)(*o_6561_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[350] /* ") == (" */); /* line 87 "../lib/comp/act_act.s7i" */ o_4941_process_expr(rflIdx(*o_6560_params, 3L), o_6561_c_expr); /* line 88 "../lib/comp/act_act.s7i" */ { /* line 88 "../lib/comp/act_act.s7i" */ striType *tmp_1; /* line 88 "../lib/comp/act_act.s7i" */ tmp_1=&(((structType)(*o_6561_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 88 "../lib/comp/act_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 88 "../lib/comp/act_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 88 "../lib/comp/act_act.s7i" */ } else { /* line 88 "../lib/comp/act_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 88 "../lib/comp/act_act.s7i" */ (*tmp_1)->size++; /* line 88 "../lib/comp/act_act.s7i" */ } } } /* line 1 "no_file" */ /* 3769 */ /* line 92 "../lib/comp/act_act.s7i" */ static void/*t_1_void*/ o_6562_ACT_ICONV (const objRefType/*t_19_reference*/ o_6563_function, const listType/*t_20_ref_list*/ *const o_6564_params, structType/*t_164_expr_type*/ *const o_6565_c_expr) { /* line 96 "../lib/comp/act_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 97 "../lib/comp/act_act.s7i" */ strAppend(&(((structType)(*o_6565_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[351] /* "actIConv(" */); /* line 98 "../lib/comp/act_act.s7i" */ o_4941_process_expr(rflIdx(*o_6564_params, 3L), o_6565_c_expr); /* line 99 "../lib/comp/act_act.s7i" */ { /* line 99 "../lib/comp/act_act.s7i" */ striType *tmp_1; /* line 99 "../lib/comp/act_act.s7i" */ tmp_1=&(((structType)(*o_6565_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 99 "../lib/comp/act_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 99 "../lib/comp/act_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 99 "../lib/comp/act_act.s7i" */ } else { /* line 99 "../lib/comp/act_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 99 "../lib/comp/act_act.s7i" */ (*tmp_1)->size++; /* line 99 "../lib/comp/act_act.s7i" */ } } } /* line 1 "no_file" */ /* 3770 */ /* line 103 "../lib/comp/act_act.s7i" */ static void/*t_1_void*/ o_6566_ACT_NE (const objRefType/*t_19_reference*/ o_6567_function, const listType/*t_20_ref_list*/ *const o_6568_params, structType/*t_164_expr_type*/ *const o_6569_c_expr) { /* line 107 "../lib/comp/act_act.s7i" */ { /* line 107 "../lib/comp/act_act.s7i" */ striType *tmp_1; /* line 107 "../lib/comp/act_act.s7i" */ tmp_1=&(((structType)(*o_6569_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 107 "../lib/comp/act_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 107 "../lib/comp/act_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 107 "../lib/comp/act_act.s7i" */ } else { /* line 107 "../lib/comp/act_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 107 "../lib/comp/act_act.s7i" */ (*tmp_1)->size++; /* line 107 "../lib/comp/act_act.s7i" */ } } /* line 108 "../lib/comp/act_act.s7i" */ o_4941_process_expr(rflIdx(*o_6568_params, 1L), o_6569_c_expr); /* line 109 "../lib/comp/act_act.s7i" */ strAppend(&(((structType)(*o_6569_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[352] /* ") != (" */); /* line 110 "../lib/comp/act_act.s7i" */ o_4941_process_expr(rflIdx(*o_6568_params, 3L), o_6569_c_expr); /* line 111 "../lib/comp/act_act.s7i" */ { /* line 111 "../lib/comp/act_act.s7i" */ striType *tmp_1; /* line 111 "../lib/comp/act_act.s7i" */ tmp_1=&(((structType)(*o_6569_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 111 "../lib/comp/act_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 111 "../lib/comp/act_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 111 "../lib/comp/act_act.s7i" */ } else { /* line 111 "../lib/comp/act_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 111 "../lib/comp/act_act.s7i" */ (*tmp_1)->size++; /* line 111 "../lib/comp/act_act.s7i" */ } } } /* line 1 "no_file" */ /* 3771 */ /* line 115 "../lib/comp/act_act.s7i" */ static void/*t_1_void*/ o_6570_ACT_ORD (const objRefType/*t_19_reference*/ o_6571_function, const listType/*t_20_ref_list*/ *const o_6572_params, structType/*t_164_expr_type*/ *const o_6573_c_expr) { /* line 119 "../lib/comp/act_act.s7i" */ o_6541_compilerLibraryUsed=o_26_TRUE; /* line 120 "../lib/comp/act_act.s7i" */ strCopy(&(((structType)(*o_6573_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[353] /* "actOrd(" */); /* line 121 "../lib/comp/act_act.s7i" */ o_4941_process_expr(rflIdx(*o_6572_params, 1L), o_6573_c_expr); /* line 122 "../lib/comp/act_act.s7i" */ { /* line 122 "../lib/comp/act_act.s7i" */ striType *tmp_1; /* line 122 "../lib/comp/act_act.s7i" */ tmp_1=&(((structType)(*o_6573_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 122 "../lib/comp/act_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 122 "../lib/comp/act_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 122 "../lib/comp/act_act.s7i" */ } else { /* line 122 "../lib/comp/act_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 122 "../lib/comp/act_act.s7i" */ (*tmp_1)->size++; /* line 122 "../lib/comp/act_act.s7i" */ } } } /* line 1 "no_file" */ /* 3772 */ /* line 126 "../lib/comp/act_act.s7i" */ static void/*t_1_void*/ o_6574_ACT_STR (const objRefType/*t_19_reference*/ o_6575_function, const listType/*t_20_ref_list*/ *const o_6576_params, structType/*t_164_expr_type*/ *const o_6577_c_expr) { /* line 130 "../lib/comp/act_act.s7i" */ o_6541_compilerLibraryUsed=o_26_TRUE; /* line 131 "../lib/comp/act_act.s7i" */ o_4955_prepare_stri_result(o_6577_c_expr); /* line 132 "../lib/comp/act_act.s7i" */ strCopy(&(((structType)(*o_6577_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[354] /* "actStr(" */); /* line 133 "../lib/comp/act_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6576_params, 1L), o_6577_c_expr); /* line 134 "../lib/comp/act_act.s7i" */ { /* line 134 "../lib/comp/act_act.s7i" */ striType *tmp_1; /* line 134 "../lib/comp/act_act.s7i" */ tmp_1=&(((structType)(*o_6577_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 134 "../lib/comp/act_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 134 "../lib/comp/act_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 134 "../lib/comp/act_act.s7i" */ } else { /* line 134 "../lib/comp/act_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 134 "../lib/comp/act_act.s7i" */ (*tmp_1)->size++; /* line 134 "../lib/comp/act_act.s7i" */ } } } /* line 1 "no_file" */ /* 3773 */ /* line 138 "../lib/comp/act_act.s7i" */ static void/*t_1_void*/ o_6578_ACT_VALUE (const objRefType/*t_19_reference*/ o_6579_function, const listType/*t_20_ref_list*/ *const o_6580_params, structType/*t_164_expr_type*/ *const o_6581_c_expr) { /* line 142 "../lib/comp/act_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 143 "../lib/comp/act_act.s7i" */ strAppend(&(((structType)(*o_6581_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[355] /* "actValue(" */); /* line 144 "../lib/comp/act_act.s7i" */ o_4941_process_expr(rflIdx(*o_6580_params, 1L), o_6581_c_expr); /* line 145 "../lib/comp/act_act.s7i" */ { /* line 145 "../lib/comp/act_act.s7i" */ striType *tmp_1; /* line 145 "../lib/comp/act_act.s7i" */ tmp_1=&(((structType)(*o_6581_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 145 "../lib/comp/act_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 145 "../lib/comp/act_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 145 "../lib/comp/act_act.s7i" */ } else { /* line 145 "../lib/comp/act_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 145 "../lib/comp/act_act.s7i" */ (*tmp_1)->size++; /* line 145 "../lib/comp/act_act.s7i" */ } } } /* line 1 "no_file" */ /* 3774 */ /* 3775 */ /* 3776 */ /* 3777 */ /* 3778 */ /* 3779 */ /* 3780 */ /* line 53 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6582_arr_prototypes (interfaceType/*t_46_file*/ *const o_6583_c_prog) { /* line 56 "../lib/comp/arr_act.s7i" */ o_6547_declareExtern(o_6583_c_prog, &str[356] /* "void arrAppend (arrayType *const, const arrayType);" */); /* line 57 "../lib/comp/arr_act.s7i" */ o_6547_declareExtern(o_6583_c_prog, &str[357] /* "arrayType arrArrlit2 (intType, arrayType);" */); /* line 58 "../lib/comp/arr_act.s7i" */ o_6547_declareExtern(o_6583_c_prog, &str[358] /* "arrayType arrBaselit (const genericType);" */); /* line 59 "../lib/comp/arr_act.s7i" */ o_6547_declareExtern(o_6583_c_prog, &str[359] /* "arrayType arrBaselit2 (intType, const genericType);" */); /* line 60 "../lib/comp/arr_act.s7i" */ o_6547_declareExtern(o_6583_c_prog, &str[360] /* "arrayType arrCat (arrayType, const arrayType);" */); /* line 61 "../lib/comp/arr_act.s7i" */ o_6547_declareExtern(o_6583_c_prog, &str[361] /* "arrayType arrExtend (arrayType, const genericType);" */); /* line 62 "../lib/comp/arr_act.s7i" */ o_6547_declareExtern(o_6583_c_prog, &str[362] /* "void arrFree (arrayType);" */); /* line 63 "../lib/comp/arr_act.s7i" */ o_6547_declareExtern(o_6583_c_prog, &str[363] /* "arrayType arrGen (const genericType, const genericType);" */); /* line 64 "../lib/comp/arr_act.s7i" */ o_6547_declareExtern(o_6583_c_prog, &str[364] /* "arrayType arrHead (const const_arrayType, intType);" */); /* line 65 "../lib/comp/arr_act.s7i" */ o_6547_declareExtern(o_6583_c_prog, &str[365] /* "arrayType arrHeadTemp (arrayType *, intType);" */); /* line 66 "../lib/comp/arr_act.s7i" */ o_6547_declareExtern(o_6583_c_prog, &str[366] /* "genericType arrIdxTemp (arrayType *, intType);" */); /* line 67 "../lib/comp/arr_act.s7i" */ o_6547_declareExtern(o_6583_c_prog, &str[367] /* "arrayType arrMalloc (intType, intType);" */); /* line 68 "../lib/comp/arr_act.s7i" */ o_6547_declareExtern(o_6583_c_prog, &str[368] /* "void arrPush (arrayType *const, const genericType);" */); /* line 69 "../lib/comp/arr_act.s7i" */ o_6547_declareExtern(o_6583_c_prog, &str[369] /* "arrayType arrRange (const const_arrayType, intType, intType);" */); /* line 70 "../lib/comp/arr_act.s7i" */ o_6547_declareExtern(o_6583_c_prog, &str[370] /* "arrayType arrRangeTemp (arrayType *, intType, intType);" */); /* line 71 "../lib/comp/arr_act.s7i" */ o_6547_declareExtern(o_6583_c_prog, &str[371] /* "arrayType arrRealloc (arrayType, memSizeType, memSizeType);" */); /* line 72 "../lib/comp/arr_act.s7i" */ o_6547_declareExtern(o_6583_c_prog, &str[372] /* "genericType arrRemove (arrayType *, intType);" */); /* line 73 "../lib/comp/arr_act.s7i" */ o_6547_declareExtern(o_6583_c_prog, &str[373] /* "arrayType arrSort (arrayType, compareType);" */); /* line 74 "../lib/comp/arr_act.s7i" */ o_6547_declareExtern(o_6583_c_prog, &str[374] /* "arrayType arrSubarr (const const_arrayType, intType, intType);" */); /* line 75 "../lib/comp/arr_act.s7i" */ o_6547_declareExtern(o_6583_c_prog, &str[375] /* "arrayType arrSubarrTemp (arrayType *, intType, intType);" */); /* line 76 "../lib/comp/arr_act.s7i" */ o_6547_declareExtern(o_6583_c_prog, &str[376] /* "arrayType arrTail (const const_arrayType, intType);" */); /* line 77 "../lib/comp/arr_act.s7i" */ o_6547_declareExtern(o_6583_c_prog, &str[377] /* "arrayType arrTailTemp (arrayType *, intType);" */); } /* line 1 "no_file" */ /* 3781 */ /* line 81 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6584_declare_prototype_if_necessary (const objRefType/*t_19_reference*/ o_6585_function, structType/*t_164_expr_type*/ *const o_6586_c_expr) { /* line 85 "../lib/comp/arr_act.s7i" */ listType/*t_20_ref_list*/ o_6587_params=NULL; /* line 86 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ o_6588_result_type=typ[0] /* void/t_1_void */; /* line 87 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ o_6589_object_type=typ[0] /* void/t_1_void */; /* line 89 "../lib/comp/arr_act.s7i" */ if (o_4645_not(&(o_6585_function), o_4797_prototype_declared)) { /* line 90 "../lib/comp/arr_act.s7i" */ o_6588_result_type=typResult(refType(o_6585_function)); /* line 91 "../lib/comp/arr_act.s7i" */ rflCpy(&(o_6587_params), refParams(o_6585_function)); /* line 92 "../lib/comp/arr_act.s7i" */ o_6589_object_type=refType(rflIdx(o_6587_params, 3L)); /* line 93 "../lib/comp/arr_act.s7i" */ o_4878_process_create_declaration(&(o_6589_object_type), o_6586_c_expr); /* line 95 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6586_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[378] /* "static arrayType times_" */); { /* line 96 "../lib/comp/arr_act.s7i" */ union { /* line 96 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 96 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 96 "../lib/comp/arr_act.s7i" */ } buffer_1; /* line 96 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6586_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(o_6588_result_type), &buffer_1.striBuf)); } /* line 97 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6586_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[379] /* " (intType, const " */); /* line 98 "../lib/comp/arr_act.s7i" */ if (o_4769_useConstPrefix(&(o_6589_object_type))) { /* line 99 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6586_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[228] /* "const_" */); } /* line 101 "../lib/comp/arr_act.s7i" */ strAppendTemp(&(((structType)(*o_6586_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(&(o_6589_object_type))); /* line 102 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6586_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[195] /* ");\n\n" */); /* line 103 "../lib/comp/arr_act.s7i" */ o_4655/*@:=*/(&(o_4797_prototype_declared), &(o_6585_function), o_26_TRUE); } /* line 81 "../lib/comp/arr_act.s7i" */ rflDestr(o_6587_params); } /* line 1 "no_file" */ /* 3782 */ /* line 108 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6590_ARR_APPEND (const objRefType/*t_19_reference*/ o_6591_function, const listType/*t_20_ref_list*/ *const o_6592_params, structType/*t_164_expr_type*/ *const o_6593_c_expr) { /* line 112 "../lib/comp/arr_act.s7i" */ structType/*t_164_expr_type*/ o_6594_c_param1; /* line 113 "../lib/comp/arr_act.s7i" */ structType/*t_164_expr_type*/ o_6595_c_param3; /* line 112 "../lib/comp/arr_act.s7i" */ o_6594_c_param1=create_164(sct[173]); /* line 113 "../lib/comp/arr_act.s7i" */ o_6595_c_param3=create_164(sct[174]); /* line 115 "../lib/comp/arr_act.s7i" */ o_4941_process_expr(rflIdx(*o_6592_params, 1L), &(o_6594_c_param1)); /* line 116 "../lib/comp/arr_act.s7i" */ ((structType)(o_6595_c_param3))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_6594_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 117 "../lib/comp/arr_act.s7i" */ o_5010_getTemporaryToResultExpr(rflIdx(*o_6592_params, 3L), &(o_6595_c_param3)); /* line 118 "../lib/comp/arr_act.s7i" */ ++(((structType)(o_6595_c_param3))->stru[2].value.intValue/*->o_4780_temp_num*/); /* line 119 "../lib/comp/arr_act.s7i" */ if (o_5049_has_temp_values(o_6595_c_param3)) { /* line 120 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6593_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 121 "../lib/comp/arr_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6594_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_6593_c_expr); /* line 122 "../lib/comp/arr_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6595_c_param3))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_6593_c_expr); /* line 123 "../lib/comp/arr_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6594_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_6593_c_expr); /* line 124 "../lib/comp/arr_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6595_c_param3))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_6593_c_expr); } /* line 126 "../lib/comp/arr_act.s7i" */ o_4819_setDiagnosticLine(o_6593_c_expr); /* line 127 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6593_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[380] /* "arrAppend(&(" */); /* line 128 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6593_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6594_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 129 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6593_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 130 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6593_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6595_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 131 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6593_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 132 "../lib/comp/arr_act.s7i" */ if (o_5049_has_temp_values(o_6595_c_param3)) { /* line 133 "../lib/comp/arr_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6594_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_6593_c_expr); /* line 134 "../lib/comp/arr_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6595_c_param3))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_6593_c_expr); /* line 135 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6593_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 108 "../lib/comp/arr_act.s7i" */ destr_164(o_6594_c_param1); /* line 108 "../lib/comp/arr_act.s7i" */ destr_164(o_6595_c_param3); } /* line 1 "no_file" */ /* 3783 */ /* line 140 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6596_ARR_ARRLIT (const objRefType/*t_19_reference*/ o_6597_function, const listType/*t_20_ref_list*/ *const o_6598_params, structType/*t_164_expr_type*/ *const o_6599_c_expr) { /* line 144 "../lib/comp/arr_act.s7i" */ objRefType/*t_19_reference*/ o_6600_anArray=NULL; /* line 145 "../lib/comp/arr_act.s7i" */ structType/*t_164_expr_type*/ o_6601_c_param; /* line 145 "../lib/comp/arr_act.s7i" */ o_6601_c_param=create_164(sct[175]); /* line 147 "../lib/comp/arr_act.s7i" */ if (o_5140_isConstant(rflIdx(*o_6598_params, 3L))) { /* line 148 "../lib/comp/arr_act.s7i" */ o_6600_anArray=prgEval(o_4739_prog, rflIdx(*o_6598_params, 3L)); /* line 149 "../lib/comp/arr_act.s7i" */ if ((refCategory(o_6600_anArray)) == (14L)) { /* line 150 "../lib/comp/arr_act.s7i" */ if (o_4505_not(&(o_6600_anArray), o_6490_const_table)) { /* line 151 "../lib/comp/arr_act.s7i" */ o_4515/*@:=*/(&(o_6490_const_table), &(o_6600_anArray), (intType)((o_6490_const_table)->size)); } /* line 153 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6599_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[381] /* "arr[" */); { /* line 154 "../lib/comp/arr_act.s7i" */ union { /* line 154 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 154 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 154 "../lib/comp/arr_act.s7i" */ } buffer_1; /* line 154 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6599_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(*o_4495/*[*/(&(o_6490_const_table), &(o_6600_anArray)), &buffer_1.striBuf)); } /* line 155 "../lib/comp/arr_act.s7i" */ { /* line 155 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 155 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6599_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 155 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 155 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) ']'); /* line 155 "../lib/comp/arr_act.s7i" */ } else { /* line 155 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ']'; /* line 155 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 155 "../lib/comp/arr_act.s7i" */ } } } } else { /* line 158 "../lib/comp/arr_act.s7i" */ o_4963_prepareAnyParamTemporarys(rflIdx(*o_6598_params, 3L), &(o_6601_c_param), o_6599_c_expr); /* line 159 "../lib/comp/arr_act.s7i" */ if (((((structType)(o_6601_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { { /* line 160 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 160 "../lib/comp/arr_act.s7i" */ o_4944_prepare_typed_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(o_4754_getExprResultType(rflIdx(*o_6598_params, 3L))), &tmp_1), o_6599_c_expr); } /* line 161 "../lib/comp/arr_act.s7i" */ strCopy(&(((structType)(*o_6599_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[382] /* "/*arrArrlit()*\/" */); /* line 162 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6599_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6601_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 164 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6599_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[382] /* "/*arrArrlit()*\/" */); /* line 165 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6599_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6601_c_param))->stru[5].value.striValue/*->o_4783_expr*/); } } /* line 140 "../lib/comp/arr_act.s7i" */ destr_164(o_6601_c_param); } /* line 1 "no_file" */ /* 3784 */ /* line 171 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6602_ARR_ARRLIT2 (const objRefType/*t_19_reference*/ o_6603_function, const listType/*t_20_ref_list*/ *const o_6604_params, structType/*t_164_expr_type*/ *const o_6605_c_expr) { { /* line 175 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 175 "../lib/comp/arr_act.s7i" */ o_4944_prepare_typed_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(o_4754_getExprResultType(rflIdx(*o_6604_params, 4L))), &tmp_1), o_6605_c_expr); } /* line 176 "../lib/comp/arr_act.s7i" */ strCopy(&(((structType)(*o_6605_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[383] /* "arrArrlit2(" */); /* line 177 "../lib/comp/arr_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6604_params, 2L), o_6605_c_expr); /* line 178 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6605_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 179 "../lib/comp/arr_act.s7i" */ o_5010_getTemporaryToResultExpr(rflIdx(*o_6604_params, 4L), o_6605_c_expr); /* line 180 "../lib/comp/arr_act.s7i" */ { /* line 180 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 180 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6605_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 180 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 180 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 180 "../lib/comp/arr_act.s7i" */ } else { /* line 180 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 180 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 180 "../lib/comp/arr_act.s7i" */ } } } /* line 1 "no_file" */ /* 3785 */ /* line 184 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6606_ARR_BASELIT (const objRefType/*t_19_reference*/ o_6607_function, const listType/*t_20_ref_list*/ *const o_6608_params, structType/*t_164_expr_type*/ *const o_6609_c_expr) { { /* line 188 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 188 "../lib/comp/arr_act.s7i" */ if (o_3832_not(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_6607_function))), &tmp_1), o_4415_array_element)) { { /* line 189 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 189 "../lib/comp/arr_act.s7i" */ o_3842/*@:=*/(&(o_4415_array_element), /* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_6607_function))), &tmp_1), refType(rflIdx(*o_6608_params, 3L))); } } } { /* line 191 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 191 "../lib/comp/arr_act.s7i" */ o_4944_prepare_typed_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_6607_function))), &tmp_1), o_6609_c_expr); } /* line 192 "../lib/comp/arr_act.s7i" */ strCopy(&(((structType)(*o_6609_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[384] /* "arrBaselit((genericType)(" */); /* line 193 "../lib/comp/arr_act.s7i" */ o_5000_getGenericTemporaryToResultExpr(rflIdx(*o_6608_params, 3L), o_6609_c_expr); /* line 194 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6609_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 3786 */ /* line 198 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6610_ARR_BASELIT2 (const objRefType/*t_19_reference*/ o_6611_function, const listType/*t_20_ref_list*/ *const o_6612_params, structType/*t_164_expr_type*/ *const o_6613_c_expr) { { /* line 202 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 202 "../lib/comp/arr_act.s7i" */ if (o_3832_not(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_6611_function))), &tmp_1), o_4415_array_element)) { { /* line 203 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 203 "../lib/comp/arr_act.s7i" */ o_3842/*@:=*/(&(o_4415_array_element), /* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_6611_function))), &tmp_1), refType(rflIdx(*o_6612_params, 4L))); } } } { /* line 205 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 205 "../lib/comp/arr_act.s7i" */ o_4944_prepare_typed_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_6611_function))), &tmp_1), o_6613_c_expr); } /* line 206 "../lib/comp/arr_act.s7i" */ strCopy(&(((structType)(*o_6613_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[385] /* "arrBaselit2(" */); /* line 207 "../lib/comp/arr_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6612_params, 2L), o_6613_c_expr); /* line 208 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6613_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[386] /* ", (genericType)(" */); /* line 209 "../lib/comp/arr_act.s7i" */ o_5000_getGenericTemporaryToResultExpr(rflIdx(*o_6612_params, 4L), o_6613_c_expr); /* line 210 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6613_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 3787 */ /* line 214 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6614_ARR_CAT (const objRefType/*t_19_reference*/ o_6615_function, const listType/*t_20_ref_list*/ *const o_6616_params, structType/*t_164_expr_type*/ *const o_6617_c_expr) { { /* line 218 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 218 "../lib/comp/arr_act.s7i" */ o_4944_prepare_typed_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(o_4754_getExprResultType(rflIdx(*o_6616_params, 1L))), &tmp_1), o_6617_c_expr); } /* line 219 "../lib/comp/arr_act.s7i" */ strCopy(&(((structType)(*o_6617_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[387] /* "arrCat(" */); /* line 220 "../lib/comp/arr_act.s7i" */ o_5010_getTemporaryToResultExpr(rflIdx(*o_6616_params, 1L), o_6617_c_expr); /* line 221 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6617_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 222 "../lib/comp/arr_act.s7i" */ o_5010_getTemporaryToResultExpr(rflIdx(*o_6616_params, 3L), o_6617_c_expr); /* line 223 "../lib/comp/arr_act.s7i" */ { /* line 223 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 223 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6617_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 223 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 223 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 223 "../lib/comp/arr_act.s7i" */ } else { /* line 223 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 223 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 223 "../lib/comp/arr_act.s7i" */ } } } /* line 1 "no_file" */ /* 3788 */ /* line 227 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6618_ARR_CONV (const objRefType/*t_19_reference*/ o_6619_function, const listType/*t_20_ref_list*/ *const o_6620_params, structType/*t_164_expr_type*/ *const o_6621_c_expr) { /* line 231 "../lib/comp/arr_act.s7i" */ structType/*t_164_expr_type*/ o_6622_c_param; /* line 231 "../lib/comp/arr_act.s7i" */ o_6622_c_param=create_164(sct[176]); /* line 233 "../lib/comp/arr_act.s7i" */ o_4963_prepareAnyParamTemporarys(rflIdx(*o_6620_params, 3L), &(o_6622_c_param), o_6621_c_expr); /* line 234 "../lib/comp/arr_act.s7i" */ if (((((structType)(o_6622_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { { /* line 235 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 235 "../lib/comp/arr_act.s7i" */ o_4944_prepare_typed_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(o_4754_getExprResultType(rflIdx(*o_6620_params, 3L))), &tmp_1), o_6621_c_expr); } /* line 236 "../lib/comp/arr_act.s7i" */ strCopy(&(((structType)(*o_6621_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[388] /* "/*arrConv()*\/" */); /* line 237 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6621_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6622_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 239 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6621_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[388] /* "/*arrConv()*\/" */); /* line 240 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6621_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6622_c_param))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 227 "../lib/comp/arr_act.s7i" */ destr_164(o_6622_c_param); } /* line 1 "no_file" */ /* 3789 */ /* line 245 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6623_ARR_CPY (const objRefType/*t_19_reference*/ o_6624_function, const listType/*t_20_ref_list*/ *const o_6625_params, structType/*t_164_expr_type*/ *const o_6626_c_expr) { /* line 249 "../lib/comp/arr_act.s7i" */ structType/*t_164_expr_type*/ o_6627_c_param1; /* line 250 "../lib/comp/arr_act.s7i" */ structType/*t_164_expr_type*/ o_6628_c_param3; /* line 249 "../lib/comp/arr_act.s7i" */ o_6627_c_param1=create_164(sct[177]); /* line 250 "../lib/comp/arr_act.s7i" */ o_6628_c_param3=create_164(sct[178]); /* line 252 "../lib/comp/arr_act.s7i" */ o_4941_process_expr(rflIdx(*o_6625_params, 1L), &(o_6627_c_param1)); /* line 253 "../lib/comp/arr_act.s7i" */ ((structType)(o_6628_c_param3))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_6627_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 254 "../lib/comp/arr_act.s7i" */ o_4941_process_expr(rflIdx(*o_6625_params, 3L), &(o_6628_c_param3)); /* line 255 "../lib/comp/arr_act.s7i" */ if (o_5049_has_temp_values(o_6628_c_param3)) { /* line 256 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6626_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 257 "../lib/comp/arr_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6627_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_6626_c_expr); /* line 258 "../lib/comp/arr_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6628_c_param3))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_6626_c_expr); /* line 259 "../lib/comp/arr_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6627_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_6626_c_expr); /* line 260 "../lib/comp/arr_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6628_c_param3))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_6626_c_expr); } /* line 262 "../lib/comp/arr_act.s7i" */ if (((((structType)(o_6628_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 263 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6626_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 264 "../lib/comp/arr_act.s7i" */ o_4819_setDiagnosticLine(o_6626_c_expr); /* line 265 "../lib/comp/arr_act.s7i" */ if (o_5018_isNormalVariable(rflIdx(*o_6625_params, 1L))) { /* line 266 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6626_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[389] /* "arrayType old_array=" */); /* line 267 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6626_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6627_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 268 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6626_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 269 "../lib/comp/arr_act.s7i" */ o_4819_setDiagnosticLine(o_6626_c_expr); /* line 270 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6626_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6627_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 271 "../lib/comp/arr_act.s7i" */ { /* line 271 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 271 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6626_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 271 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 271 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 271 "../lib/comp/arr_act.s7i" */ } else { /* line 271 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 271 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 271 "../lib/comp/arr_act.s7i" */ } } } else { /* line 273 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6626_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[390] /* "arrayType *array_ptr=&(" */); /* line 274 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6626_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6627_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 275 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6626_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 276 "../lib/comp/arr_act.s7i" */ o_4819_setDiagnosticLine(o_6626_c_expr); /* line 277 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6626_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[391] /* "arrayType old_array=*array_ptr;\n" */); /* line 278 "../lib/comp/arr_act.s7i" */ o_4819_setDiagnosticLine(o_6626_c_expr); /* line 279 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6626_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[392] /* "*array_ptr=" */); } /* line 281 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6626_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6628_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 282 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6626_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); { /* line 283 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 283 "../lib/comp/arr_act.s7i" */ o_4829_process_destr_declaration(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(o_4754_getExprResultType(rflIdx(*o_6625_params, 1L))), &tmp_1), &(o_4794_global_c_expr)); } /* line 284 "../lib/comp/arr_act.s7i" */ o_4819_setDiagnosticLine(o_6626_c_expr); { /* line 285 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 285 "../lib/comp/arr_act.s7i" */ o_4832_process_destr_call(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(o_4754_getExprResultType(rflIdx(*o_6625_params, 1L))), &tmp_1), &str[393] /* "old_array" */, &(((structType)(*o_6626_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } /* line 287 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6626_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } else { { /* line 289 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 289 "../lib/comp/arr_act.s7i" */ o_4911_process_cpy_declaration(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(o_4754_getExprResultType(rflIdx(*o_6625_params, 1L))), &tmp_1), &(o_4794_global_c_expr)); } /* line 290 "../lib/comp/arr_act.s7i" */ o_4819_setDiagnosticLine(o_6626_c_expr); { /* line 291 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 291 "../lib/comp/arr_act.s7i" */ o_4914_process_cpy_call(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(o_4754_getExprResultType(rflIdx(*o_6625_params, 1L))), &tmp_1), ((structType)(o_6627_c_param1))->stru[5].value.striValue/*->o_4783_expr*/, ((structType)(o_6628_c_param3))->stru[5].value.striValue/*->o_4783_expr*/, &(((structType)(*o_6626_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } /* line 293 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6626_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); } /* line 295 "../lib/comp/arr_act.s7i" */ if (o_5049_has_temp_values(o_6628_c_param3)) { /* line 296 "../lib/comp/arr_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6627_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_6626_c_expr); /* line 297 "../lib/comp/arr_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6628_c_param3))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_6626_c_expr); /* line 298 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6626_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 245 "../lib/comp/arr_act.s7i" */ destr_164(o_6627_c_param1); /* line 245 "../lib/comp/arr_act.s7i" */ destr_164(o_6628_c_param3); } /* line 1 "no_file" */ /* 3790 */ /* line 303 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6629_ARR_CREATE (const objRefType/*t_19_reference*/ o_6630_function, const listType/*t_20_ref_list*/ *const o_6631_params, structType/*t_164_expr_type*/ *const o_6632_c_expr) { /* line 307 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ o_6633_param_type=typ[0] /* void/t_1_void */; /* line 309 "../lib/comp/arr_act.s7i" */ o_6633_param_type=o_4754_getExprResultType(rflIdx(*o_6631_params, 3L)); /* line 310 "../lib/comp/arr_act.s7i" */ o_3785/*@:=*/(&(o_4414_typeCategory), &(o_6633_param_type), 14L); /* line 311 "../lib/comp/arr_act.s7i" */ o_4878_process_create_declaration(&(o_6633_param_type), &(o_4794_global_c_expr)); /* line 312 "../lib/comp/arr_act.s7i" */ o_4941_process_expr(rflIdx(*o_6631_params, 1L), o_6632_c_expr); /* line 313 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6632_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[394] /* "=create_" */); { /* line 314 "../lib/comp/arr_act.s7i" */ union { /* line 314 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 314 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 314 "../lib/comp/arr_act.s7i" */ } buffer_1; /* line 314 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6632_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(o_6633_param_type), &buffer_1.striBuf)); } /* line 315 "../lib/comp/arr_act.s7i" */ { /* line 315 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 315 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6632_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 315 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 315 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 315 "../lib/comp/arr_act.s7i" */ } else { /* line 315 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 315 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 315 "../lib/comp/arr_act.s7i" */ } } /* line 316 "../lib/comp/arr_act.s7i" */ o_4941_process_expr(rflIdx(*o_6631_params, 3L), o_6632_c_expr); /* line 317 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6632_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3791 */ /* line 321 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6634_ARR_DESTR (const objRefType/*t_19_reference*/ o_6635_function, const listType/*t_20_ref_list*/ *const o_6636_params, structType/*t_164_expr_type*/ *const o_6637_c_expr) { /* line 325 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ o_6638_param_type=typ[0] /* void/t_1_void */; /* line 327 "../lib/comp/arr_act.s7i" */ o_6638_param_type=o_4754_getExprResultType(rflIdx(*o_6636_params, 1L)); /* line 328 "../lib/comp/arr_act.s7i" */ o_4829_process_destr_declaration(&(o_6638_param_type), &(o_4794_global_c_expr)); /* line 329 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6637_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[204] /* "destr_" */); { /* line 330 "../lib/comp/arr_act.s7i" */ union { /* line 330 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 330 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 330 "../lib/comp/arr_act.s7i" */ } buffer_1; /* line 330 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6637_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(o_6638_param_type), &buffer_1.striBuf)); } /* line 331 "../lib/comp/arr_act.s7i" */ { /* line 331 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 331 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6637_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 331 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 331 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 331 "../lib/comp/arr_act.s7i" */ } else { /* line 331 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 331 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 331 "../lib/comp/arr_act.s7i" */ } } /* line 332 "../lib/comp/arr_act.s7i" */ o_4941_process_expr(rflIdx(*o_6636_params, 1L), o_6637_c_expr); /* line 333 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6637_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3792 */ /* line 337 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6639_ARR_EXTEND (const objRefType/*t_19_reference*/ o_6640_function, const listType/*t_20_ref_list*/ *const o_6641_params, structType/*t_164_expr_type*/ *const o_6642_c_expr) { { /* line 341 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 341 "../lib/comp/arr_act.s7i" */ o_4944_prepare_typed_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(o_4754_getExprResultType(rflIdx(*o_6641_params, 1L))), &tmp_1), o_6642_c_expr); } /* line 342 "../lib/comp/arr_act.s7i" */ strCopy(&(((structType)(*o_6642_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[395] /* "arrExtend(" */); /* line 343 "../lib/comp/arr_act.s7i" */ o_5010_getTemporaryToResultExpr(rflIdx(*o_6641_params, 1L), o_6642_c_expr); /* line 344 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6642_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[386] /* ", (genericType)(" */); /* line 345 "../lib/comp/arr_act.s7i" */ o_5000_getGenericTemporaryToResultExpr(rflIdx(*o_6641_params, 3L), o_6642_c_expr); /* line 346 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6642_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 3793 */ /* line 350 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6643_ARR_GEN (const objRefType/*t_19_reference*/ o_6644_function, const listType/*t_20_ref_list*/ *const o_6645_params, structType/*t_164_expr_type*/ *const o_6646_c_expr) { { /* line 354 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 354 "../lib/comp/arr_act.s7i" */ o_4944_prepare_typed_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_6644_function))), &tmp_1), o_6646_c_expr); } /* line 355 "../lib/comp/arr_act.s7i" */ strCopy(&(((structType)(*o_6646_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[396] /* "arrGen((genericType)(" */); /* line 356 "../lib/comp/arr_act.s7i" */ o_5000_getGenericTemporaryToResultExpr(rflIdx(*o_6645_params, 1L), o_6646_c_expr); /* line 357 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6646_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[397] /* "), (genericType)(" */); /* line 358 "../lib/comp/arr_act.s7i" */ o_5000_getGenericTemporaryToResultExpr(rflIdx(*o_6645_params, 3L), o_6646_c_expr); /* line 359 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6646_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 3794 */ /* line 363 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6647_ARR_HEAD (const objRefType/*t_19_reference*/ o_6648_function, const listType/*t_20_ref_list*/ *const o_6649_params, structType/*t_164_expr_type*/ *const o_6650_c_expr) { /* line 367 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ o_6651_param_type=typ[0] /* void/t_1_void */; /* line 368 "../lib/comp/arr_act.s7i" */ structType/*t_164_expr_type*/ o_6652_c_param; /* line 369 "../lib/comp/arr_act.s7i" */ striType/*t_15_string*/ o_6653_array_name; /* line 368 "../lib/comp/arr_act.s7i" */ o_6652_c_param=create_164(sct[179]); /* line 369 "../lib/comp/arr_act.s7i" */ o_6653_array_name=strEmpty(); /* "" */ /* line 371 "../lib/comp/arr_act.s7i" */ o_6651_param_type=o_4754_getExprResultType(rflIdx(*o_6649_params, 1L)); /* line 372 "../lib/comp/arr_act.s7i" */ o_4944_prepare_typed_result(&(o_6651_param_type), o_6650_c_expr); /* line 373 "../lib/comp/arr_act.s7i" */ o_4963_prepareAnyParamTemporarys(rflIdx(*o_6649_params, 1L), &(o_6652_c_param), o_6650_c_expr); /* line 374 "../lib/comp/arr_act.s7i" */ if (((((structType)(o_6652_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 375 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), ((structType)(o_6652_c_param))->stru[9].value.striValue/*->o_4787_result_decl*/); /* line 376 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), ((structType)(o_6652_c_param))->stru[10].value.striValue/*->o_4788_result_free*/); /* line 377 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[7].value.striValue/*->o_4785_temp_to_null*/), ((structType)(o_6652_c_param))->stru[11].value.striValue/*->o_4789_result_to_null*/); /* line 378 "../lib/comp/arr_act.s7i" */ strCopy(&(((structType)(*o_6650_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[32] /* "(" */); /* line 379 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6652_c_param))->stru[12].value.striValue/*->o_4790_result_intro*/); /* line 380 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6652_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 381 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6652_c_param))->stru[14].value.striValue/*->o_4792_result_finish*/); /* line 382 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[398] /* ", arrHeadTemp(&(" */); /* line 383 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6652_c_param))->stru[8].value.striValue/*->o_4786_result_temp*/); /* line 384 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[267] /* "), " */); /* line 385 "../lib/comp/arr_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6649_params, 4L), o_6650_c_expr); /* line 386 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[240] /* "))" */); } else /* line 387 "../lib/comp/arr_act.s7i" */ if (o_4764_valueIsAtHeap(&(*o_3822/*[*/(&(o_4415_array_element), &(o_6651_param_type))))) { /* line 388 "../lib/comp/arr_act.s7i" */ ++(((structType)(*o_6650_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 389 "../lib/comp/arr_act.s7i" */ union { /* line 389 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 389 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 389 "../lib/comp/arr_act.s7i" */ } buffer_2; /* line 389 "../lib/comp/arr_act.s7i" */ striType old_stri=o_6653_array_name; /* line 389 "../lib/comp/arr_act.s7i" */ o_6653_array_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_6650_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 389 "../lib/comp/arr_act.s7i" */ strDestr(old_stri); } /* line 390 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[399] /* "arrayType " */); /* line 391 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_6653_array_name); /* line 392 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[400] /* "=NULL;\n" */); /* line 393 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), &str[401] /* "if (" */); /* line 394 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), o_6653_array_name); /* line 395 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), &str[402] /* " != NULL) {arrFree(" */); /* line 396 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), o_6653_array_name); /* line 397 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), &str[403] /* ");}\n" */); /* line 398 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[7].value.striValue/*->o_4785_temp_to_null*/), o_6653_array_name); /* line 399 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[7].value.striValue/*->o_4785_temp_to_null*/), &str[400] /* "=NULL;\n" */); /* line 400 "../lib/comp/arr_act.s7i" */ strCopy(&(((structType)(*o_6650_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[32] /* "(" */); /* line 401 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6653_array_name); /* line 402 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[404] /* "=arrHead(" */); /* line 403 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6652_c_param))->stru[5].value.striValue/*->o_4783_expr*/); /* line 404 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 405 "../lib/comp/arr_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6649_params, 4L), o_6650_c_expr); /* line 406 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[267] /* "), " */); /* line 407 "../lib/comp/arr_act.s7i" */ o_3785/*@:=*/(&(o_4414_typeCategory), &(o_6651_param_type), 14L); /* line 408 "../lib/comp/arr_act.s7i" */ o_4878_process_create_declaration(&(o_6651_param_type), &(o_4794_global_c_expr)); /* line 409 "../lib/comp/arr_act.s7i" */ o_4881_process_create_call(&(o_6651_param_type), o_6653_array_name, &(((structType)(*o_6650_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/)); /* line 410 "../lib/comp/arr_act.s7i" */ { /* line 410 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 410 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6650_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 410 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 410 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 410 "../lib/comp/arr_act.s7i" */ } else { /* line 410 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 410 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 410 "../lib/comp/arr_act.s7i" */ } } } else { /* line 412 "../lib/comp/arr_act.s7i" */ strCopy(&(((structType)(*o_6650_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[405] /* "arrHead(" */); /* line 413 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6652_c_param))->stru[5].value.striValue/*->o_4783_expr*/); /* line 414 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6650_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 415 "../lib/comp/arr_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6649_params, 4L), o_6650_c_expr); /* line 416 "../lib/comp/arr_act.s7i" */ { /* line 416 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 416 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6650_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 416 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 416 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 416 "../lib/comp/arr_act.s7i" */ } else { /* line 416 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 416 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 416 "../lib/comp/arr_act.s7i" */ } } } /* line 363 "../lib/comp/arr_act.s7i" */ destr_164(o_6652_c_param); /* line 363 "../lib/comp/arr_act.s7i" */ strDestr(o_6653_array_name); } /* line 1 "no_file" */ /* 3795 */ /* line 421 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6654_process_const_arr_idx (const objRefType/*t_19_reference*/ o_6655_function, const objRefType/*t_19_reference*/ o_6656_anArray, const objRefType/*t_19_reference*/ o_6657_param3, structType/*t_164_expr_type*/ *const o_6658_c_expr) { /* line 425 "../lib/comp/arr_act.s7i" */ objRefType/*t_19_reference*/ o_6659_evaluatedParam=NULL; /* line 426 "../lib/comp/arr_act.s7i" */ intType/*t_14_integer*/ o_6660_index=0; /* line 427 "../lib/comp/arr_act.s7i" */ striType/*t_15_string*/ o_6661_index_name; /* line 427 "../lib/comp/arr_act.s7i" */ o_6661_index_name=strEmpty(); /* "" */ /* line 429 "../lib/comp/arr_act.s7i" */ ++(o_5107_countOptimizations); /* line 430 "../lib/comp/arr_act.s7i" */ if (o_4505_not(&(o_6656_anArray), o_6490_const_table)) { /* line 431 "../lib/comp/arr_act.s7i" */ o_4515/*@:=*/(&(o_6490_const_table), &(o_6656_anArray), (intType)((o_6490_const_table)->size)); } /* line 433 "../lib/comp/arr_act.s7i" */ if (o_5154_getConstant(o_6657_param3, 9L, &(o_6659_evaluatedParam))) { /* line 434 "../lib/comp/arr_act.s7i" */ o_6660_index=intValue(o_6659_evaluatedParam); /* line 435 "../lib/comp/arr_act.s7i" */ if (((o_6660_index) < (refArrMinIdx(o_6656_anArray))) || /* line 435 "../lib/comp/arr_act.s7i" */ ((o_6660_index) > (refArrMaxIdx(o_6656_anArray)))) { /* line 436 "../lib/comp/arr_act.s7i" */ strAppendTemp(&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[406] /* "RANGE_ERROR" */)); } else { /* line 438 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[381] /* "arr[" */); { /* line 439 "../lib/comp/arr_act.s7i" */ union { /* line 439 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 439 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 439 "../lib/comp/arr_act.s7i" */ } buffer_1; /* line 439 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(*o_4495/*[*/(&(o_6490_const_table), &(o_6656_anArray)), &buffer_1.striBuf)); } /* line 440 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[407] /* "]->arr[" */); { /* line 441 "../lib/comp/arr_act.s7i" */ union { /* line 441 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 441 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 441 "../lib/comp/arr_act.s7i" */ } buffer_1; /* line 441 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((o_6660_index) - (refArrMinIdx(o_6656_anArray)), &buffer_1.striBuf)); } /* line 442 "../lib/comp/arr_act.s7i" */ { /* line 442 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 442 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 442 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 442 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) ']'); /* line 442 "../lib/comp/arr_act.s7i" */ } else { /* line 442 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ']'; /* line 442 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 442 "../lib/comp/arr_act.s7i" */ } } { /* line 443 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_2; /* line 443 "../lib/comp/arr_act.s7i" */ strAppendTemp(&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4760_select_value_from_rtlObjectStruct(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(typResult(refType(o_6655_function))), &tmp_2))); } } } else { /* line 446 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[381] /* "arr[" */); { /* line 447 "../lib/comp/arr_act.s7i" */ union { /* line 447 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 447 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 447 "../lib/comp/arr_act.s7i" */ } buffer_1; /* line 447 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(*o_4495/*[*/(&(o_6490_const_table), &(o_6656_anArray)), &buffer_1.striBuf)); } /* line 448 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[407] /* "]->arr[" */); /* line 449 "../lib/comp/arr_act.s7i" */ if (o_3450_array_range_check) { /* line 450 "../lib/comp/arr_act.s7i" */ ++(o_5109_countRangeChecks); /* line 451 "../lib/comp/arr_act.s7i" */ ++(((structType)(*o_6658_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 452 "../lib/comp/arr_act.s7i" */ union { /* line 452 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 452 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 452 "../lib/comp/arr_act.s7i" */ } buffer_2; /* line 452 "../lib/comp/arr_act.s7i" */ striType old_stri=o_6661_index_name; /* line 452 "../lib/comp/arr_act.s7i" */ o_6661_index_name=strConcat(&str[408] /* "idx_" */, intStrToBuffer(((structType)(*o_6658_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 452 "../lib/comp/arr_act.s7i" */ strDestr(old_stri); } /* line 453 "../lib/comp/arr_act.s7i" */ if (((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/) { /* line 454 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6658_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[409] /* "uintType " */); } else { /* line 456 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6658_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[410] /* "intType " */); } /* line 458 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6658_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_6661_index_name); /* line 459 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6658_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 460 "../lib/comp/arr_act.s7i" */ { /* line 460 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 460 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 460 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 460 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 460 "../lib/comp/arr_act.s7i" */ } else { /* line 460 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 460 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 460 "../lib/comp/arr_act.s7i" */ } } /* line 461 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6661_index_name); /* line 462 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[287] /* "=(" */); /* line 463 "../lib/comp/arr_act.s7i" */ o_4941_process_expr(o_6657_param3, o_6658_c_expr); /* line 464 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[411] /* ")- " */); { /* line 465 "../lib/comp/arr_act.s7i" */ union { /* line 465 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 465 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 465 "../lib/comp/arr_act.s7i" */ } buffer_1; /* line 465 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(refArrMinIdx(o_6656_anArray), &buffer_1.striBuf)); } /* line 466 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[412] /* ", idxChk(" */); /* line 467 "../lib/comp/arr_act.s7i" */ if (!(((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/)) { /* line 468 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6661_index_name); /* line 469 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[413] /* "<0 || " */); } /* line 471 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6661_index_name); /* line 472 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[414] /* ">=" */); { /* line 473 "../lib/comp/arr_act.s7i" */ union { /* line 473 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 473 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 473 "../lib/comp/arr_act.s7i" */ } buffer_1; /* line 473 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(((refArrMaxIdx(o_6656_anArray)) - (refArrMinIdx(o_6656_anArray)))+1, &buffer_1.striBuf)); } /* line 474 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[415] /* ") ? " */); /* line 475 "../lib/comp/arr_act.s7i" */ strAppendTemp(&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[406] /* "RANGE_ERROR" */)); /* line 476 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[416] /* " : 0, " */); /* line 477 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6661_index_name); /* line 478 "../lib/comp/arr_act.s7i" */ { /* line 478 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 478 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 478 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 478 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 478 "../lib/comp/arr_act.s7i" */ } else { /* line 478 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 478 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 478 "../lib/comp/arr_act.s7i" */ } } } else { /* line 480 "../lib/comp/arr_act.s7i" */ ++(o_5110_countNoRangeChecks); /* line 481 "../lib/comp/arr_act.s7i" */ { /* line 481 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 481 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 481 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 481 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 481 "../lib/comp/arr_act.s7i" */ } else { /* line 481 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 481 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 481 "../lib/comp/arr_act.s7i" */ } } /* line 482 "../lib/comp/arr_act.s7i" */ o_4941_process_expr(o_6657_param3, o_6658_c_expr); /* line 483 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[411] /* ")- " */); { /* line 484 "../lib/comp/arr_act.s7i" */ union { /* line 484 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 484 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 484 "../lib/comp/arr_act.s7i" */ } buffer_1; /* line 484 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(refArrMinIdx(o_6656_anArray), &buffer_1.striBuf)); } } /* line 486 "../lib/comp/arr_act.s7i" */ { /* line 486 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 486 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 486 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 486 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) ']'); /* line 486 "../lib/comp/arr_act.s7i" */ } else { /* line 486 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ']'; /* line 486 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 486 "../lib/comp/arr_act.s7i" */ } } { /* line 487 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_2; /* line 487 "../lib/comp/arr_act.s7i" */ strAppendTemp(&(((structType)(*o_6658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4760_select_value_from_rtlObjectStruct(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(typResult(refType(o_6655_function))), &tmp_2))); } } /* line 421 "../lib/comp/arr_act.s7i" */ strDestr(o_6661_index_name); } /* line 1 "no_file" */ /* 3796 */ /* line 492 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6662_process_const_arr_idx (const objRefType/*t_19_reference*/ o_6663_function, const objRefType/*t_19_reference*/ o_6664_param1, const intType/*t_14_integer*/ o_6665_index, structType/*t_164_expr_type*/ *const o_6666_c_expr) { /* line 496 "../lib/comp/arr_act.s7i" */ structType/*t_164_expr_type*/ o_6667_c_param; /* line 497 "../lib/comp/arr_act.s7i" */ striType/*t_15_string*/ o_6668_array_name; /* line 498 "../lib/comp/arr_act.s7i" */ striType/*t_15_string*/ o_6669_result_name; /* line 496 "../lib/comp/arr_act.s7i" */ o_6667_c_param=create_164(sct[180]); /* line 497 "../lib/comp/arr_act.s7i" */ o_6668_array_name=strEmpty(); /* "" */ /* line 498 "../lib/comp/arr_act.s7i" */ o_6669_result_name=strEmpty(); /* "" */ /* line 500 "../lib/comp/arr_act.s7i" */ o_4963_prepareAnyParamTemporarys(o_6664_param1, &(o_6667_c_param), o_6666_c_expr); /* line 501 "../lib/comp/arr_act.s7i" */ if (((((structType)(o_6667_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 502 "../lib/comp/arr_act.s7i" */ ++(((structType)(*o_6666_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 503 "../lib/comp/arr_act.s7i" */ union { /* line 503 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 503 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 503 "../lib/comp/arr_act.s7i" */ } buffer_2; /* line 503 "../lib/comp/arr_act.s7i" */ striType old_stri=o_6669_result_name; /* line 503 "../lib/comp/arr_act.s7i" */ o_6669_result_name=strConcat(&str[417] /* "help_" */, intStrToBuffer(((structType)(*o_6666_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 503 "../lib/comp/arr_act.s7i" */ strDestr(old_stri); } /* line 504 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[418] /* "rtlObjectType " */); /* line 505 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_6669_result_name); /* line 506 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 507 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), ((structType)(o_6667_c_param))->stru[9].value.striValue/*->o_4787_result_decl*/); /* line 508 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), ((structType)(o_6667_c_param))->stru[10].value.striValue/*->o_4788_result_free*/); /* line 509 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[7].value.striValue/*->o_4785_temp_to_null*/), ((structType)(o_6667_c_param))->stru[11].value.striValue/*->o_4789_result_to_null*/); { /* line 510 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 510 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_2; /* line 510 "../lib/comp/arr_act.s7i" */ if ((o_3772_in(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_6663_function))), &tmp_1), o_4414_typeCategory)) && /* line 511 "../lib/comp/arr_act.s7i" */ (o_2691_in(*o_3765/*[*/(&(o_4414_typeCategory), /* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(typResult(refType(o_6663_function))), &tmp_2)), (setType/*t_88_setOfCategory*/)(set[18])))) { { /* line 512 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 512 "../lib/comp/arr_act.s7i" */ o_4944_prepare_typed_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_6663_function))), &tmp_1), o_6666_c_expr); } /* line 513 "../lib/comp/arr_act.s7i" */ { /* line 513 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 513 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 513 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 513 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 513 "../lib/comp/arr_act.s7i" */ } else { /* line 513 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 513 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 513 "../lib/comp/arr_act.s7i" */ } } /* line 514 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6667_c_param))->stru[12].value.striValue/*->o_4790_result_intro*/); /* line 515 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6667_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 516 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6667_c_param))->stru[14].value.striValue/*->o_4792_result_finish*/); /* line 517 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 518 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6669_result_name); /* line 519 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[419] /* ".value.genericValue=arrIdxTemp(&(" */); /* line 520 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6667_c_param))->stru[8].value.striValue/*->o_4786_result_temp*/); /* line 521 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[267] /* "), " */); { /* line 522 "../lib/comp/arr_act.s7i" */ union { /* line 522 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 522 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 522 "../lib/comp/arr_act.s7i" */ } buffer_1; /* line 522 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), intStrToBuffer(o_6665_index, &buffer_1.striBuf)); } /* line 523 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[267] /* "), " */); /* line 524 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6669_result_name); { /* line 525 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_2; /* line 525 "../lib/comp/arr_act.s7i" */ strAppendTemp(&(((structType)(*o_6666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_4760_select_value_from_rtlObjectStruct(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(typResult(refType(o_6663_function))), &tmp_2))); } /* line 526 "../lib/comp/arr_act.s7i" */ { /* line 526 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 526 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 526 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 526 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 526 "../lib/comp/arr_act.s7i" */ } else { /* line 526 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 526 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 526 "../lib/comp/arr_act.s7i" */ } } } else { /* line 528 "../lib/comp/arr_act.s7i" */ { /* line 528 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 528 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 528 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 528 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 528 "../lib/comp/arr_act.s7i" */ } else { /* line 528 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 528 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 528 "../lib/comp/arr_act.s7i" */ } } /* line 529 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6667_c_param))->stru[12].value.striValue/*->o_4790_result_intro*/); /* line 530 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6667_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 531 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6667_c_param))->stru[14].value.striValue/*->o_4792_result_finish*/); /* line 532 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 533 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6669_result_name); /* line 534 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[419] /* ".value.genericValue=arrIdxTemp(&(" */); /* line 535 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6667_c_param))->stru[8].value.striValue/*->o_4786_result_temp*/); /* line 536 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); { /* line 537 "../lib/comp/arr_act.s7i" */ union { /* line 537 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 537 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 537 "../lib/comp/arr_act.s7i" */ } buffer_1; /* line 537 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(o_6665_index, &buffer_1.striBuf)); } /* line 538 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 539 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6669_result_name); { /* line 540 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_2; /* line 540 "../lib/comp/arr_act.s7i" */ strAppendTemp(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4760_select_value_from_rtlObjectStruct(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(typResult(refType(o_6663_function))), &tmp_2))); } /* line 541 "../lib/comp/arr_act.s7i" */ { /* line 541 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 541 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 541 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 541 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 541 "../lib/comp/arr_act.s7i" */ } else { /* line 541 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 541 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 541 "../lib/comp/arr_act.s7i" */ } } } } } else { /* line 544 "../lib/comp/arr_act.s7i" */ ++(o_5107_countOptimizations); /* line 545 "../lib/comp/arr_act.s7i" */ if (o_5018_isNormalVariable(o_6664_param1)) { { /* line 546 "../lib/comp/arr_act.s7i" */ const_striType tmp_2[3]; /* line 546 "../lib/comp/arr_act.s7i" */ striType old_stri=o_6668_array_name; /* line 546 "../lib/comp/arr_act.s7i" */ o_6668_array_name=(tmp_2[0] = &str[32] /* "(" */, tmp_2[1] = ((structType)(o_6667_c_param))->stru[5].value.striValue/*->o_4783_expr*/, tmp_2[2] = &str[230] /* ")" */, strConcatN(tmp_2, 3)); /* line 546 "../lib/comp/arr_act.s7i" */ strDestr(old_stri); } } else { /* line 548 "../lib/comp/arr_act.s7i" */ ++(((structType)(*o_6666_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 549 "../lib/comp/arr_act.s7i" */ union { /* line 549 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 549 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 549 "../lib/comp/arr_act.s7i" */ } buffer_2; /* line 549 "../lib/comp/arr_act.s7i" */ striType old_stri=o_6668_array_name; /* line 549 "../lib/comp/arr_act.s7i" */ o_6668_array_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_6666_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 549 "../lib/comp/arr_act.s7i" */ strDestr(old_stri); } /* line 550 "../lib/comp/arr_act.s7i" */ if (!(typIsVarfunc(refType(o_6663_function)))) { /* line 551 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[228] /* "const_" */); } /* line 553 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[399] /* "arrayType " */); /* line 554 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_6668_array_name); /* line 555 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 556 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[420] /* "(*(" */); /* line 557 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6668_array_name); /* line 558 "../lib/comp/arr_act.s7i" */ { /* line 558 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 558 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 558 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 558 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 558 "../lib/comp/arr_act.s7i" */ } else { /* line 558 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 558 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 558 "../lib/comp/arr_act.s7i" */ } } /* line 559 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6667_c_param))->stru[5].value.striValue/*->o_4783_expr*/); /* line 560 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[421] /* ", &" */); } /* line 562 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6668_array_name); /* line 563 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[422] /* "->arr[" */); /* line 564 "../lib/comp/arr_act.s7i" */ if (o_3450_array_range_check) { /* line 565 "../lib/comp/arr_act.s7i" */ ++(o_5109_countRangeChecks); /* line 566 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[423] /* "(idxChk(" */); { /* line 567 "../lib/comp/arr_act.s7i" */ union { /* line 567 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 567 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 567 "../lib/comp/arr_act.s7i" */ } buffer_1; /* line 567 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(o_6665_index, &buffer_1.striBuf)); } /* line 568 "../lib/comp/arr_act.s7i" */ { /* line 568 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 568 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 568 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 568 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) '<'); /* line 568 "../lib/comp/arr_act.s7i" */ } else { /* line 568 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '<'; /* line 568 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 568 "../lib/comp/arr_act.s7i" */ } } /* line 569 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6668_array_name); /* line 570 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[424] /* "->min_position || " */); { /* line 571 "../lib/comp/arr_act.s7i" */ union { /* line 571 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 571 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 571 "../lib/comp/arr_act.s7i" */ } buffer_1; /* line 571 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(o_6665_index, &buffer_1.striBuf)); } /* line 572 "../lib/comp/arr_act.s7i" */ { /* line 572 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 572 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 572 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 572 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) '>'); /* line 572 "../lib/comp/arr_act.s7i" */ } else { /* line 572 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '>'; /* line 572 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 572 "../lib/comp/arr_act.s7i" */ } } /* line 573 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6668_array_name); /* line 574 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[425] /* "->max_position) ? " */); /* line 575 "../lib/comp/arr_act.s7i" */ strAppendTemp(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[406] /* "RANGE_ERROR" */)); /* line 576 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[416] /* " : 0, " */); { /* line 577 "../lib/comp/arr_act.s7i" */ union { /* line 577 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 577 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 577 "../lib/comp/arr_act.s7i" */ } buffer_1; /* line 577 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(o_6665_index, &buffer_1.striBuf)); } /* line 578 "../lib/comp/arr_act.s7i" */ { /* line 578 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 578 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 578 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 578 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) '-'); /* line 578 "../lib/comp/arr_act.s7i" */ } else { /* line 578 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '-'; /* line 578 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 578 "../lib/comp/arr_act.s7i" */ } } /* line 579 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6668_array_name); /* line 580 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[426] /* "->min_position)" */); } else { /* line 582 "../lib/comp/arr_act.s7i" */ ++(o_5110_countNoRangeChecks); { /* line 583 "../lib/comp/arr_act.s7i" */ union { /* line 583 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 583 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 583 "../lib/comp/arr_act.s7i" */ } buffer_1; /* line 583 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(o_6665_index, &buffer_1.striBuf)); } /* line 584 "../lib/comp/arr_act.s7i" */ { /* line 584 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 584 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 584 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 584 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) '-'); /* line 584 "../lib/comp/arr_act.s7i" */ } else { /* line 584 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '-'; /* line 584 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 584 "../lib/comp/arr_act.s7i" */ } } /* line 585 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6668_array_name); /* line 586 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[427] /* "->min_position" */); } /* line 588 "../lib/comp/arr_act.s7i" */ { /* line 588 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 588 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 588 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 588 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) ']'); /* line 588 "../lib/comp/arr_act.s7i" */ } else { /* line 588 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ']'; /* line 588 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 588 "../lib/comp/arr_act.s7i" */ } } { /* line 589 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_2; /* line 589 "../lib/comp/arr_act.s7i" */ strAppendTemp(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4760_select_value_from_rtlObjectStruct(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(typResult(refType(o_6663_function))), &tmp_2))); } /* line 590 "../lib/comp/arr_act.s7i" */ if (!(o_5018_isNormalVariable(o_6664_param1))) { /* line 591 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); } } /* line 492 "../lib/comp/arr_act.s7i" */ destr_164(o_6667_c_param); /* line 492 "../lib/comp/arr_act.s7i" */ strDestr(o_6668_array_name); /* line 492 "../lib/comp/arr_act.s7i" */ strDestr(o_6669_result_name); } /* line 1 "no_file" */ /* 3797 */ /* line 597 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6670_ARR_IDX (const objRefType/*t_19_reference*/ o_6671_function, const listType/*t_20_ref_list*/ *const o_6672_params, structType/*t_164_expr_type*/ *const o_6673_c_expr) { /* line 601 "../lib/comp/arr_act.s7i" */ objRefType/*t_19_reference*/ o_6674_evaluatedParam=NULL; /* line 602 "../lib/comp/arr_act.s7i" */ structType/*t_164_expr_type*/ o_6675_c_param; /* line 603 "../lib/comp/arr_act.s7i" */ striType/*t_15_string*/ o_6676_array_name; /* line 604 "../lib/comp/arr_act.s7i" */ striType/*t_15_string*/ o_6677_index_name; /* line 605 "../lib/comp/arr_act.s7i" */ striType/*t_15_string*/ o_6678_result_name; /* line 602 "../lib/comp/arr_act.s7i" */ o_6675_c_param=create_164(sct[181]); /* line 603 "../lib/comp/arr_act.s7i" */ o_6676_array_name=strEmpty(); /* "" */ /* line 604 "../lib/comp/arr_act.s7i" */ o_6677_index_name=strEmpty(); /* "" */ /* line 605 "../lib/comp/arr_act.s7i" */ o_6678_result_name=strEmpty(); /* "" */ { /* line 607 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 607 "../lib/comp/arr_act.s7i" */ if (o_3832_not(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(rflIdx(*o_6672_params, 1L))), &tmp_1), o_4415_array_element)) { { /* line 608 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 608 "../lib/comp/arr_act.s7i" */ o_3842/*@:=*/(&(o_4415_array_element), /* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(rflIdx(*o_6672_params, 1L))), &tmp_1), typResult(refType(o_6671_function))); } } } /* line 610 "../lib/comp/arr_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6672_params, 1L), 14L, &(o_6674_evaluatedParam))) { /* line 611 "../lib/comp/arr_act.s7i" */ o_6654_process_const_arr_idx(o_6671_function, o_6674_evaluatedParam, rflIdx(*o_6672_params, 3L), o_6673_c_expr); } else /* line 612 "../lib/comp/arr_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6672_params, 3L), 9L, &(o_6674_evaluatedParam))) { /* line 613 "../lib/comp/arr_act.s7i" */ o_6662_process_const_arr_idx(o_6671_function, rflIdx(*o_6672_params, 1L), intValue(o_6674_evaluatedParam), o_6673_c_expr); } else { /* line 615 "../lib/comp/arr_act.s7i" */ o_4963_prepareAnyParamTemporarys(rflIdx(*o_6672_params, 1L), &(o_6675_c_param), o_6673_c_expr); /* line 616 "../lib/comp/arr_act.s7i" */ if (((((structType)(o_6675_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 617 "../lib/comp/arr_act.s7i" */ ++(((structType)(*o_6673_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 618 "../lib/comp/arr_act.s7i" */ union { /* line 618 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 618 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 618 "../lib/comp/arr_act.s7i" */ } buffer_2; /* line 618 "../lib/comp/arr_act.s7i" */ striType old_stri=o_6678_result_name; /* line 618 "../lib/comp/arr_act.s7i" */ o_6678_result_name=strConcat(&str[417] /* "help_" */, intStrToBuffer(((structType)(*o_6673_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 618 "../lib/comp/arr_act.s7i" */ strDestr(old_stri); } /* line 619 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[418] /* "rtlObjectType " */); /* line 620 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_6678_result_name); /* line 621 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 622 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), ((structType)(o_6675_c_param))->stru[9].value.striValue/*->o_4787_result_decl*/); /* line 623 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), ((structType)(o_6675_c_param))->stru[10].value.striValue/*->o_4788_result_free*/); /* line 624 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[7].value.striValue/*->o_4785_temp_to_null*/), ((structType)(o_6675_c_param))->stru[11].value.striValue/*->o_4789_result_to_null*/); { /* line 625 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 625 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_2; /* line 625 "../lib/comp/arr_act.s7i" */ if ((o_3772_in(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_6671_function))), &tmp_1), o_4414_typeCategory)) && /* line 626 "../lib/comp/arr_act.s7i" */ (o_2691_in(*o_3765/*[*/(&(o_4414_typeCategory), /* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(typResult(refType(o_6671_function))), &tmp_2)), (setType/*t_88_setOfCategory*/)(set[18])))) { { /* line 627 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 627 "../lib/comp/arr_act.s7i" */ o_4944_prepare_typed_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_6671_function))), &tmp_1), o_6673_c_expr); } /* line 628 "../lib/comp/arr_act.s7i" */ { /* line 628 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 628 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6673_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 628 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 628 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 628 "../lib/comp/arr_act.s7i" */ } else { /* line 628 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 628 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 628 "../lib/comp/arr_act.s7i" */ } } /* line 629 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6675_c_param))->stru[12].value.striValue/*->o_4790_result_intro*/); /* line 630 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6675_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 631 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6675_c_param))->stru[14].value.striValue/*->o_4792_result_finish*/); /* line 632 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 633 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6678_result_name); /* line 634 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[419] /* ".value.genericValue=arrIdxTemp(&(" */); /* line 635 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6675_c_param))->stru[8].value.striValue/*->o_4786_result_temp*/); /* line 636 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[267] /* "), " */); /* line 637 "../lib/comp/arr_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_6672_params, 3L), o_6673_c_expr); /* line 638 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[267] /* "), " */); /* line 639 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6678_result_name); { /* line 640 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_2; /* line 640 "../lib/comp/arr_act.s7i" */ strAppendTemp(&(((structType)(*o_6673_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_4760_select_value_from_rtlObjectStruct(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(typResult(refType(o_6671_function))), &tmp_2))); } /* line 641 "../lib/comp/arr_act.s7i" */ { /* line 641 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 641 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6673_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 641 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 641 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 641 "../lib/comp/arr_act.s7i" */ } else { /* line 641 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 641 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 641 "../lib/comp/arr_act.s7i" */ } } } else { /* line 643 "../lib/comp/arr_act.s7i" */ { /* line 643 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 643 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 643 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 643 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 643 "../lib/comp/arr_act.s7i" */ } else { /* line 643 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 643 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 643 "../lib/comp/arr_act.s7i" */ } } /* line 644 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6675_c_param))->stru[12].value.striValue/*->o_4790_result_intro*/); /* line 645 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6675_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 646 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6675_c_param))->stru[14].value.striValue/*->o_4792_result_finish*/); /* line 647 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 648 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6678_result_name); /* line 649 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[419] /* ".value.genericValue=arrIdxTemp(&(" */); /* line 650 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6675_c_param))->stru[8].value.striValue/*->o_4786_result_temp*/); /* line 651 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 652 "../lib/comp/arr_act.s7i" */ o_4941_process_expr(rflIdx(*o_6672_params, 3L), o_6673_c_expr); /* line 653 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 654 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6678_result_name); { /* line 655 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_2; /* line 655 "../lib/comp/arr_act.s7i" */ strAppendTemp(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4760_select_value_from_rtlObjectStruct(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(typResult(refType(o_6671_function))), &tmp_2))); } /* line 656 "../lib/comp/arr_act.s7i" */ { /* line 656 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 656 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 656 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 656 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 656 "../lib/comp/arr_act.s7i" */ } else { /* line 656 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 656 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 656 "../lib/comp/arr_act.s7i" */ } } } } } else { /* line 659 "../lib/comp/arr_act.s7i" */ if (o_5018_isNormalVariable(rflIdx(*o_6672_params, 1L))) { { /* line 660 "../lib/comp/arr_act.s7i" */ const_striType tmp_2[3]; /* line 660 "../lib/comp/arr_act.s7i" */ striType old_stri=o_6676_array_name; /* line 660 "../lib/comp/arr_act.s7i" */ o_6676_array_name=(tmp_2[0] = &str[32] /* "(" */, tmp_2[1] = ((structType)(o_6675_c_param))->stru[5].value.striValue/*->o_4783_expr*/, tmp_2[2] = &str[230] /* ")" */, strConcatN(tmp_2, 3)); /* line 660 "../lib/comp/arr_act.s7i" */ strDestr(old_stri); } } else { /* line 662 "../lib/comp/arr_act.s7i" */ ++(((structType)(*o_6673_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 663 "../lib/comp/arr_act.s7i" */ union { /* line 663 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 663 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 663 "../lib/comp/arr_act.s7i" */ } buffer_2; /* line 663 "../lib/comp/arr_act.s7i" */ striType old_stri=o_6676_array_name; /* line 663 "../lib/comp/arr_act.s7i" */ o_6676_array_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_6673_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 663 "../lib/comp/arr_act.s7i" */ strDestr(old_stri); } /* line 664 "../lib/comp/arr_act.s7i" */ if (!(typIsVarfunc(refType(o_6671_function)))) { /* line 665 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[228] /* "const_" */); } /* line 667 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[399] /* "arrayType " */); /* line 668 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_6676_array_name); /* line 669 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 670 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[420] /* "(*(" */); /* line 671 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6676_array_name); /* line 672 "../lib/comp/arr_act.s7i" */ { /* line 672 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 672 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 672 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 672 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 672 "../lib/comp/arr_act.s7i" */ } else { /* line 672 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 672 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 672 "../lib/comp/arr_act.s7i" */ } } /* line 673 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6675_c_param))->stru[5].value.striValue/*->o_4783_expr*/); /* line 674 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[421] /* ", &" */); } /* line 676 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6676_array_name); /* line 677 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[422] /* "->arr[" */); /* line 678 "../lib/comp/arr_act.s7i" */ if (o_3450_array_range_check) { /* line 679 "../lib/comp/arr_act.s7i" */ ++(o_5109_countRangeChecks); { /* line 680 "../lib/comp/arr_act.s7i" */ striType old_stri=o_6677_index_name; /* line 680 "../lib/comp/arr_act.s7i" */ o_6677_index_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[408] /* "idx_" */, rflIdx(*o_6672_params, 3L), o_6673_c_expr); /* line 680 "../lib/comp/arr_act.s7i" */ strDestr(old_stri); } /* line 681 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[423] /* "(idxChk(" */); /* line 682 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6677_index_name); /* line 683 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[428] /* " < " */); /* line 684 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6676_array_name); /* line 685 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[424] /* "->min_position || " */); /* line 686 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6677_index_name); /* line 687 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[429] /* " > " */); /* line 688 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6676_array_name); /* line 689 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[425] /* "->max_position) ? " */); /* line 690 "../lib/comp/arr_act.s7i" */ strAppendTemp(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[406] /* "RANGE_ERROR" */)); /* line 691 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[416] /* " : 0, " */); /* line 692 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6677_index_name); /* line 693 "../lib/comp/arr_act.s7i" */ { /* line 693 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 693 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 693 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 693 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) '-'); /* line 693 "../lib/comp/arr_act.s7i" */ } else { /* line 693 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '-'; /* line 693 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 693 "../lib/comp/arr_act.s7i" */ } } /* line 694 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6676_array_name); /* line 695 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[426] /* "->min_position)" */); } else { /* line 697 "../lib/comp/arr_act.s7i" */ ++(o_5110_countNoRangeChecks); /* line 698 "../lib/comp/arr_act.s7i" */ { /* line 698 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 698 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 698 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 698 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 698 "../lib/comp/arr_act.s7i" */ } else { /* line 698 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 698 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 698 "../lib/comp/arr_act.s7i" */ } } /* line 699 "../lib/comp/arr_act.s7i" */ o_4941_process_expr(rflIdx(*o_6672_params, 3L), o_6673_c_expr); /* line 700 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[430] /* ")-" */); /* line 701 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6676_array_name); /* line 702 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[427] /* "->min_position" */); } /* line 704 "../lib/comp/arr_act.s7i" */ { /* line 704 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 704 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 704 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 704 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) ']'); /* line 704 "../lib/comp/arr_act.s7i" */ } else { /* line 704 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ']'; /* line 704 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 704 "../lib/comp/arr_act.s7i" */ } } { /* line 705 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_2; /* line 705 "../lib/comp/arr_act.s7i" */ strAppendTemp(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4760_select_value_from_rtlObjectStruct(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(typResult(refType(o_6671_function))), &tmp_2))); } /* line 706 "../lib/comp/arr_act.s7i" */ if (!(o_5018_isNormalVariable(rflIdx(*o_6672_params, 1L)))) { /* line 707 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6673_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); } } } /* line 597 "../lib/comp/arr_act.s7i" */ destr_164(o_6675_c_param); /* line 597 "../lib/comp/arr_act.s7i" */ strDestr(o_6676_array_name); /* line 597 "../lib/comp/arr_act.s7i" */ strDestr(o_6677_index_name); /* line 597 "../lib/comp/arr_act.s7i" */ strDestr(o_6678_result_name); } /* line 1 "no_file" */ /* 3798 */ /* line 714 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6679_ARR_LNG (const objRefType/*t_19_reference*/ o_6680_function, const listType/*t_20_ref_list*/ *const o_6681_params, structType/*t_164_expr_type*/ *const o_6682_c_expr) { /* line 718 "../lib/comp/arr_act.s7i" */ objRefType/*t_19_reference*/ o_6683_evaluatedParam=NULL; /* line 719 "../lib/comp/arr_act.s7i" */ striType/*t_15_string*/ o_6684_array_name; /* line 719 "../lib/comp/arr_act.s7i" */ o_6684_array_name=strEmpty(); /* "" */ /* line 721 "../lib/comp/arr_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6681_params, 1L), 14L, &(o_6683_evaluatedParam))) { /* line 722 "../lib/comp/arr_act.s7i" */ ++(o_5107_countOptimizations); { /* line 723 "../lib/comp/arr_act.s7i" */ union { /* line 723 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 723 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 723 "../lib/comp/arr_act.s7i" */ } buffer_1; /* line 723 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6682_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(((refArrMaxIdx(o_6683_evaluatedParam)) - (refArrMinIdx(o_6683_evaluatedParam))) + 1L, &buffer_1.striBuf)); } /* line 724 "../lib/comp/arr_act.s7i" */ if (o_4502_in(&(o_6683_evaluatedParam), o_6490_const_table)) { /* line 725 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6682_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[431] /* " /* length(arr[" */); { /* line 726 "../lib/comp/arr_act.s7i" */ union { /* line 726 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 726 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 726 "../lib/comp/arr_act.s7i" */ } buffer_1; /* line 726 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6682_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(*o_4495/*[*/(&(o_6490_const_table), &(o_6683_evaluatedParam)), &buffer_1.striBuf)); } /* line 727 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6682_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[432] /* "]) *\/" */); } else { /* line 729 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6682_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[433] /* " /* length(array) *\/" */); } } else { /* line 732 "../lib/comp/arr_act.s7i" */ { /* line 732 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 732 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6682_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 732 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 732 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 732 "../lib/comp/arr_act.s7i" */ } else { /* line 732 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 732 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 732 "../lib/comp/arr_act.s7i" */ } } { /* line 733 "../lib/comp/arr_act.s7i" */ striType old_stri=o_6684_array_name; /* line 733 "../lib/comp/arr_act.s7i" */ o_6684_array_name=o_5031_getParameterAsVariable(&str[434] /* "const_arrayType" */, &str[282] /* "tmp_" */, rflIdx(*o_6681_params, 1L), o_6682_c_expr); /* line 733 "../lib/comp/arr_act.s7i" */ strDestr(old_stri); } /* line 734 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6682_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6684_array_name); /* line 735 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6682_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[435] /* "->max_position - " */); /* line 736 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6682_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6684_array_name); /* line 737 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6682_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[436] /* "->min_position + 1)" */); } /* line 714 "../lib/comp/arr_act.s7i" */ strDestr(o_6684_array_name); } /* line 1 "no_file" */ /* 3799 */ /* line 742 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6685_ARR_MAXIDX (const objRefType/*t_19_reference*/ o_6686_function, const listType/*t_20_ref_list*/ *const o_6687_params, structType/*t_164_expr_type*/ *const o_6688_c_expr) { /* line 746 "../lib/comp/arr_act.s7i" */ objRefType/*t_19_reference*/ o_6689_evaluatedParam=NULL; /* line 748 "../lib/comp/arr_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6687_params, 1L), 14L, &(o_6689_evaluatedParam))) { /* line 749 "../lib/comp/arr_act.s7i" */ ++(o_5107_countOptimizations); { /* line 750 "../lib/comp/arr_act.s7i" */ union { /* line 750 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 750 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 750 "../lib/comp/arr_act.s7i" */ } buffer_1; /* line 750 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6688_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(refArrMaxIdx(o_6689_evaluatedParam), &buffer_1.striBuf)); } /* line 751 "../lib/comp/arr_act.s7i" */ if (o_4502_in(&(o_6689_evaluatedParam), o_6490_const_table)) { /* line 752 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6688_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[437] /* " /* maxIdx(arr[" */); { /* line 753 "../lib/comp/arr_act.s7i" */ union { /* line 753 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 753 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 753 "../lib/comp/arr_act.s7i" */ } buffer_1; /* line 753 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6688_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(*o_4495/*[*/(&(o_6490_const_table), &(o_6689_evaluatedParam)), &buffer_1.striBuf)); } /* line 754 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6688_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[432] /* "]) *\/" */); } else { /* line 756 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6688_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[438] /* " /* maxIdx(array) *\/" */); } } else { /* line 759 "../lib/comp/arr_act.s7i" */ { /* line 759 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 759 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6688_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 759 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 759 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 759 "../lib/comp/arr_act.s7i" */ } else { /* line 759 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 759 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 759 "../lib/comp/arr_act.s7i" */ } } /* line 760 "../lib/comp/arr_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_6687_params, 1L), o_6688_c_expr); /* line 761 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6688_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[439] /* ")->max_position" */); } } /* line 1 "no_file" */ /* 3800 */ /* line 766 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6690_ARR_MINIDX (const objRefType/*t_19_reference*/ o_6691_function, const listType/*t_20_ref_list*/ *const o_6692_params, structType/*t_164_expr_type*/ *const o_6693_c_expr) { /* line 770 "../lib/comp/arr_act.s7i" */ objRefType/*t_19_reference*/ o_6694_evaluatedParam=NULL; /* line 772 "../lib/comp/arr_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6692_params, 1L), 14L, &(o_6694_evaluatedParam))) { /* line 773 "../lib/comp/arr_act.s7i" */ ++(o_5107_countOptimizations); { /* line 774 "../lib/comp/arr_act.s7i" */ union { /* line 774 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 774 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 774 "../lib/comp/arr_act.s7i" */ } buffer_1; /* line 774 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(refArrMinIdx(o_6694_evaluatedParam), &buffer_1.striBuf)); } /* line 775 "../lib/comp/arr_act.s7i" */ if (o_4502_in(&(o_6694_evaluatedParam), o_6490_const_table)) { /* line 776 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[440] /* " /* minIdx(arr[" */); { /* line 777 "../lib/comp/arr_act.s7i" */ union { /* line 777 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 777 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 777 "../lib/comp/arr_act.s7i" */ } buffer_1; /* line 777 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(*o_4495/*[*/(&(o_6490_const_table), &(o_6694_evaluatedParam)), &buffer_1.striBuf)); } /* line 778 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[432] /* "]) *\/" */); } else { /* line 780 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[441] /* " /* minIdx(array) *\/" */); } } else { /* line 783 "../lib/comp/arr_act.s7i" */ { /* line 783 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 783 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 783 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 783 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 783 "../lib/comp/arr_act.s7i" */ } else { /* line 783 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 783 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 783 "../lib/comp/arr_act.s7i" */ } } /* line 784 "../lib/comp/arr_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_6692_params, 1L), o_6693_c_expr); /* line 785 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[442] /* ")->min_position" */); } } /* line 1 "no_file" */ /* 3801 */ /* line 790 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6695_ARR_PUSH (const objRefType/*t_19_reference*/ o_6696_function, const listType/*t_20_ref_list*/ *const o_6697_params, structType/*t_164_expr_type*/ *const o_6698_c_expr) { /* line 794 "../lib/comp/arr_act.s7i" */ structType/*t_164_expr_type*/ o_6699_c_param1; /* line 795 "../lib/comp/arr_act.s7i" */ structType/*t_164_expr_type*/ o_6700_c_param3; /* line 794 "../lib/comp/arr_act.s7i" */ o_6699_c_param1=create_164(sct[182]); /* line 795 "../lib/comp/arr_act.s7i" */ o_6700_c_param3=create_164(sct[183]); { /* line 797 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 797 "../lib/comp/arr_act.s7i" */ if (o_3832_not(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(rflIdx(*o_6697_params, 1L))), &tmp_1), o_4415_array_element)) { { /* line 798 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 798 "../lib/comp/arr_act.s7i" */ o_3842/*@:=*/(&(o_4415_array_element), /* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(rflIdx(*o_6697_params, 1L))), &tmp_1), refType(rflIdx(*o_6697_params, 3L))); } } } /* line 800 "../lib/comp/arr_act.s7i" */ o_4941_process_expr(rflIdx(*o_6697_params, 1L), &(o_6699_c_param1)); /* line 801 "../lib/comp/arr_act.s7i" */ ((structType)(o_6700_c_param3))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_6699_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 802 "../lib/comp/arr_act.s7i" */ o_5000_getGenericTemporaryToResultExpr(rflIdx(*o_6697_params, 3L), &(o_6700_c_param3)); /* line 803 "../lib/comp/arr_act.s7i" */ ++(((structType)(o_6700_c_param3))->stru[2].value.intValue/*->o_4780_temp_num*/); /* line 804 "../lib/comp/arr_act.s7i" */ if (o_5049_has_temp_values(o_6700_c_param3)) { /* line 805 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 806 "../lib/comp/arr_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6699_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_6698_c_expr); /* line 807 "../lib/comp/arr_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6700_c_param3))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_6698_c_expr); /* line 808 "../lib/comp/arr_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6699_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_6698_c_expr); /* line 809 "../lib/comp/arr_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6700_c_param3))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_6698_c_expr); } /* line 811 "../lib/comp/arr_act.s7i" */ o_4819_setDiagnosticLine(o_6698_c_expr); /* line 812 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[443] /* "arrPush(&(" */); /* line 813 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6699_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 814 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[397] /* "), (genericType)(" */); /* line 815 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6700_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 816 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); /* line 817 "../lib/comp/arr_act.s7i" */ if (o_5049_has_temp_values(o_6700_c_param3)) { /* line 818 "../lib/comp/arr_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6699_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_6698_c_expr); /* line 819 "../lib/comp/arr_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6700_c_param3))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_6698_c_expr); /* line 820 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 790 "../lib/comp/arr_act.s7i" */ destr_164(o_6699_c_param1); /* line 790 "../lib/comp/arr_act.s7i" */ destr_164(o_6700_c_param3); } /* line 1 "no_file" */ /* 3802 */ /* line 825 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6701_ARR_RANGE (const objRefType/*t_19_reference*/ o_6702_function, const listType/*t_20_ref_list*/ *const o_6703_params, structType/*t_164_expr_type*/ *const o_6704_c_expr) { /* line 829 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ o_6705_param_type=typ[0] /* void/t_1_void */; /* line 830 "../lib/comp/arr_act.s7i" */ structType/*t_164_expr_type*/ o_6706_c_param; /* line 831 "../lib/comp/arr_act.s7i" */ striType/*t_15_string*/ o_6707_array_name; /* line 830 "../lib/comp/arr_act.s7i" */ o_6706_c_param=create_164(sct[184]); /* line 831 "../lib/comp/arr_act.s7i" */ o_6707_array_name=strEmpty(); /* "" */ /* line 833 "../lib/comp/arr_act.s7i" */ o_6705_param_type=o_4754_getExprResultType(rflIdx(*o_6703_params, 1L)); /* line 834 "../lib/comp/arr_act.s7i" */ o_4944_prepare_typed_result(&(o_6705_param_type), o_6704_c_expr); /* line 835 "../lib/comp/arr_act.s7i" */ o_4963_prepareAnyParamTemporarys(rflIdx(*o_6703_params, 1L), &(o_6706_c_param), o_6704_c_expr); /* line 836 "../lib/comp/arr_act.s7i" */ if (((((structType)(o_6706_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 837 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), ((structType)(o_6706_c_param))->stru[9].value.striValue/*->o_4787_result_decl*/); /* line 838 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), ((structType)(o_6706_c_param))->stru[10].value.striValue/*->o_4788_result_free*/); /* line 839 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[7].value.striValue/*->o_4785_temp_to_null*/), ((structType)(o_6706_c_param))->stru[11].value.striValue/*->o_4789_result_to_null*/); /* line 840 "../lib/comp/arr_act.s7i" */ strCopy(&(((structType)(*o_6704_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[32] /* "(" */); /* line 841 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6706_c_param))->stru[12].value.striValue/*->o_4790_result_intro*/); /* line 842 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6706_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 843 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6706_c_param))->stru[14].value.striValue/*->o_4792_result_finish*/); /* line 844 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[444] /* ", arrRangeTemp(&(" */); /* line 845 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6706_c_param))->stru[8].value.striValue/*->o_4786_result_temp*/); /* line 846 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[267] /* "), " */); /* line 847 "../lib/comp/arr_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6703_params, 3L), o_6704_c_expr); /* line 848 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 849 "../lib/comp/arr_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6703_params, 5L), o_6704_c_expr); /* line 850 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[240] /* "))" */); } else /* line 851 "../lib/comp/arr_act.s7i" */ if (o_4764_valueIsAtHeap(&(*o_3822/*[*/(&(o_4415_array_element), &(o_6705_param_type))))) { /* line 852 "../lib/comp/arr_act.s7i" */ ++(((structType)(*o_6704_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 853 "../lib/comp/arr_act.s7i" */ union { /* line 853 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 853 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 853 "../lib/comp/arr_act.s7i" */ } buffer_2; /* line 853 "../lib/comp/arr_act.s7i" */ striType old_stri=o_6707_array_name; /* line 853 "../lib/comp/arr_act.s7i" */ o_6707_array_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_6704_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 853 "../lib/comp/arr_act.s7i" */ strDestr(old_stri); } /* line 854 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[399] /* "arrayType " */); /* line 855 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_6707_array_name); /* line 856 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[400] /* "=NULL;\n" */); /* line 857 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), &str[401] /* "if (" */); /* line 858 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), o_6707_array_name); /* line 859 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), &str[402] /* " != NULL) {arrFree(" */); /* line 860 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), o_6707_array_name); /* line 861 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), &str[403] /* ");}\n" */); /* line 862 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[7].value.striValue/*->o_4785_temp_to_null*/), o_6707_array_name); /* line 863 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[7].value.striValue/*->o_4785_temp_to_null*/), &str[400] /* "=NULL;\n" */); /* line 864 "../lib/comp/arr_act.s7i" */ strCopy(&(((structType)(*o_6704_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[32] /* "(" */); /* line 865 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6707_array_name); /* line 866 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[445] /* "=arrRange(" */); /* line 867 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6706_c_param))->stru[5].value.striValue/*->o_4783_expr*/); /* line 868 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 869 "../lib/comp/arr_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6703_params, 3L), o_6704_c_expr); /* line 870 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 871 "../lib/comp/arr_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6703_params, 5L), o_6704_c_expr); /* line 872 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[267] /* "), " */); /* line 873 "../lib/comp/arr_act.s7i" */ o_3785/*@:=*/(&(o_4414_typeCategory), &(o_6705_param_type), 14L); /* line 874 "../lib/comp/arr_act.s7i" */ o_4878_process_create_declaration(&(o_6705_param_type), &(o_4794_global_c_expr)); /* line 875 "../lib/comp/arr_act.s7i" */ o_4881_process_create_call(&(o_6705_param_type), o_6707_array_name, &(((structType)(*o_6704_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/)); /* line 876 "../lib/comp/arr_act.s7i" */ { /* line 876 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 876 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6704_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 876 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 876 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 876 "../lib/comp/arr_act.s7i" */ } else { /* line 876 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 876 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 876 "../lib/comp/arr_act.s7i" */ } } } else { /* line 878 "../lib/comp/arr_act.s7i" */ strCopy(&(((structType)(*o_6704_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[446] /* "arrRange(" */); /* line 879 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6706_c_param))->stru[5].value.striValue/*->o_4783_expr*/); /* line 880 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 881 "../lib/comp/arr_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6703_params, 3L), o_6704_c_expr); /* line 882 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6704_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 883 "../lib/comp/arr_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6703_params, 5L), o_6704_c_expr); /* line 884 "../lib/comp/arr_act.s7i" */ { /* line 884 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 884 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6704_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 884 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 884 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 884 "../lib/comp/arr_act.s7i" */ } else { /* line 884 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 884 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 884 "../lib/comp/arr_act.s7i" */ } } } /* line 825 "../lib/comp/arr_act.s7i" */ destr_164(o_6706_c_param); /* line 825 "../lib/comp/arr_act.s7i" */ strDestr(o_6707_array_name); } /* line 1 "no_file" */ /* 3803 */ /* line 889 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6708_ARR_REMOVE (const objRefType/*t_19_reference*/ o_6709_function, const listType/*t_20_ref_list*/ *const o_6710_params, structType/*t_164_expr_type*/ *const o_6711_c_expr) { /* line 893 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ o_6712_proc_type=typ[0] /* void/t_1_void */; /* line 894 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ o_6713_result_type=typ[0] /* void/t_1_void */; /* line 895 "../lib/comp/arr_act.s7i" */ striType/*t_15_string*/ o_6714_temp_name; /* line 895 "../lib/comp/arr_act.s7i" */ o_6714_temp_name=strEmpty(); /* "" */ /* line 897 "../lib/comp/arr_act.s7i" */ o_6712_proc_type=refType(o_6709_function); /* line 898 "../lib/comp/arr_act.s7i" */ o_6713_result_type=typResult(o_6712_proc_type); /* line 899 "../lib/comp/arr_act.s7i" */ if (o_4764_valueIsAtHeap(&(o_6713_result_type))) { /* line 900 "../lib/comp/arr_act.s7i" */ o_4944_prepare_typed_result(&(o_6713_result_type), o_6711_c_expr); { /* line 901 "../lib/comp/arr_act.s7i" */ striType old_stri=o_6714_temp_name; /* line 901 "../lib/comp/arr_act.s7i" */ o_6714_temp_name=o_5059_beginCastGenericToResultExpr(&(o_6713_result_type), o_6711_c_expr); /* line 901 "../lib/comp/arr_act.s7i" */ strDestr(old_stri); } /* line 902 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6711_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[447] /* "arrRemove(&(" */); /* line 903 "../lib/comp/arr_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6710_params, 1L), o_6711_c_expr); /* line 904 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6711_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[267] /* "), " */); /* line 905 "../lib/comp/arr_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6710_params, 2L), o_6711_c_expr); /* line 906 "../lib/comp/arr_act.s7i" */ { /* line 906 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 906 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6711_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 906 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 906 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 906 "../lib/comp/arr_act.s7i" */ } else { /* line 906 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 906 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 906 "../lib/comp/arr_act.s7i" */ } } /* line 907 "../lib/comp/arr_act.s7i" */ o_5063_endCastGenericToResultExpr(&(o_6713_result_type), o_6714_temp_name, o_6711_c_expr); } else { { /* line 909 "../lib/comp/arr_act.s7i" */ striType old_stri=o_6714_temp_name; /* line 909 "../lib/comp/arr_act.s7i" */ o_6714_temp_name=o_5051_beginCastGeneric(&(o_6713_result_type), o_6711_c_expr); /* line 909 "../lib/comp/arr_act.s7i" */ strDestr(old_stri); } /* line 910 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[447] /* "arrRemove(&(" */); /* line 911 "../lib/comp/arr_act.s7i" */ o_4941_process_expr(rflIdx(*o_6710_params, 1L), o_6711_c_expr); /* line 912 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 913 "../lib/comp/arr_act.s7i" */ o_4941_process_expr(rflIdx(*o_6710_params, 2L), o_6711_c_expr); /* line 914 "../lib/comp/arr_act.s7i" */ { /* line 914 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 914 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 914 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 914 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 914 "../lib/comp/arr_act.s7i" */ } else { /* line 914 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 914 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 914 "../lib/comp/arr_act.s7i" */ } } /* line 915 "../lib/comp/arr_act.s7i" */ o_5055_endCastGeneric(&(o_6713_result_type), o_6714_temp_name, o_6711_c_expr); } /* line 889 "../lib/comp/arr_act.s7i" */ strDestr(o_6714_temp_name); } /* line 1 "no_file" */ /* 3804 */ /* line 920 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6715_ARR_SORT (const objRefType/*t_19_reference*/ o_6716_function, const listType/*t_20_ref_list*/ *const o_6717_params, structType/*t_164_expr_type*/ *const o_6718_c_expr) { /* line 924 "../lib/comp/arr_act.s7i" */ o_5088_declare_func_pointer_if_necessary(rflIdx(*o_6717_params, 2L), &(o_4794_global_c_expr)); { /* line 925 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 925 "../lib/comp/arr_act.s7i" */ o_4944_prepare_typed_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(o_4754_getExprResultType(rflIdx(*o_6717_params, 1L))), &tmp_1), o_6718_c_expr); } /* line 926 "../lib/comp/arr_act.s7i" */ strCopy(&(((structType)(*o_6718_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[448] /* "arrSort(" */); /* line 927 "../lib/comp/arr_act.s7i" */ o_5010_getTemporaryToResultExpr(rflIdx(*o_6717_params, 1L), o_6718_c_expr); /* line 928 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6718_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[449] /* ", (compareType)(" */); /* line 929 "../lib/comp/arr_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6717_params, 2L), o_6718_c_expr); /* line 930 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6718_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 3805 */ /* line 934 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6719_ARR_SUBARR (const objRefType/*t_19_reference*/ o_6720_function, const listType/*t_20_ref_list*/ *const o_6721_params, structType/*t_164_expr_type*/ *const o_6722_c_expr) { /* line 938 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ o_6723_param_type=typ[0] /* void/t_1_void */; /* line 939 "../lib/comp/arr_act.s7i" */ structType/*t_164_expr_type*/ o_6724_c_param; /* line 940 "../lib/comp/arr_act.s7i" */ striType/*t_15_string*/ o_6725_array_name; /* line 939 "../lib/comp/arr_act.s7i" */ o_6724_c_param=create_164(sct[185]); /* line 940 "../lib/comp/arr_act.s7i" */ o_6725_array_name=strEmpty(); /* "" */ /* line 942 "../lib/comp/arr_act.s7i" */ o_6723_param_type=o_4754_getExprResultType(rflIdx(*o_6721_params, 1L)); /* line 943 "../lib/comp/arr_act.s7i" */ o_4944_prepare_typed_result(&(o_6723_param_type), o_6722_c_expr); /* line 944 "../lib/comp/arr_act.s7i" */ o_4963_prepareAnyParamTemporarys(rflIdx(*o_6721_params, 1L), &(o_6724_c_param), o_6722_c_expr); /* line 945 "../lib/comp/arr_act.s7i" */ if (((((structType)(o_6724_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 946 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), ((structType)(o_6724_c_param))->stru[9].value.striValue/*->o_4787_result_decl*/); /* line 947 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), ((structType)(o_6724_c_param))->stru[10].value.striValue/*->o_4788_result_free*/); /* line 948 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[7].value.striValue/*->o_4785_temp_to_null*/), ((structType)(o_6724_c_param))->stru[11].value.striValue/*->o_4789_result_to_null*/); /* line 949 "../lib/comp/arr_act.s7i" */ strCopy(&(((structType)(*o_6722_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[32] /* "(" */); /* line 950 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6724_c_param))->stru[12].value.striValue/*->o_4790_result_intro*/); /* line 951 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6724_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 952 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6724_c_param))->stru[14].value.striValue/*->o_4792_result_finish*/); /* line 953 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[450] /* ", arrSubarrTemp(&(" */); /* line 954 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6724_c_param))->stru[8].value.striValue/*->o_4786_result_temp*/); /* line 955 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[267] /* "), " */); /* line 956 "../lib/comp/arr_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6721_params, 3L), o_6722_c_expr); /* line 957 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 958 "../lib/comp/arr_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6721_params, 5L), o_6722_c_expr); /* line 959 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[240] /* "))" */); } else /* line 960 "../lib/comp/arr_act.s7i" */ if (o_4764_valueIsAtHeap(&(*o_3822/*[*/(&(o_4415_array_element), &(o_6723_param_type))))) { /* line 961 "../lib/comp/arr_act.s7i" */ ++(((structType)(*o_6722_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 962 "../lib/comp/arr_act.s7i" */ union { /* line 962 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 962 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 962 "../lib/comp/arr_act.s7i" */ } buffer_2; /* line 962 "../lib/comp/arr_act.s7i" */ striType old_stri=o_6725_array_name; /* line 962 "../lib/comp/arr_act.s7i" */ o_6725_array_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_6722_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 962 "../lib/comp/arr_act.s7i" */ strDestr(old_stri); } /* line 963 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[399] /* "arrayType " */); /* line 964 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_6725_array_name); /* line 965 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[400] /* "=NULL;\n" */); /* line 966 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), &str[401] /* "if (" */); /* line 967 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), o_6725_array_name); /* line 968 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), &str[402] /* " != NULL) {arrFree(" */); /* line 969 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), o_6725_array_name); /* line 970 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), &str[403] /* ");}\n" */); /* line 971 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[7].value.striValue/*->o_4785_temp_to_null*/), o_6725_array_name); /* line 972 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[7].value.striValue/*->o_4785_temp_to_null*/), &str[400] /* "=NULL;\n" */); /* line 973 "../lib/comp/arr_act.s7i" */ strCopy(&(((structType)(*o_6722_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[32] /* "(" */); /* line 974 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6725_array_name); /* line 975 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[451] /* "=arrSubarr(" */); /* line 976 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6724_c_param))->stru[5].value.striValue/*->o_4783_expr*/); /* line 977 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 978 "../lib/comp/arr_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6721_params, 3L), o_6722_c_expr); /* line 979 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 980 "../lib/comp/arr_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6721_params, 5L), o_6722_c_expr); /* line 981 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[267] /* "), " */); /* line 982 "../lib/comp/arr_act.s7i" */ o_3785/*@:=*/(&(o_4414_typeCategory), &(o_6723_param_type), 14L); /* line 983 "../lib/comp/arr_act.s7i" */ o_4878_process_create_declaration(&(o_6723_param_type), &(o_4794_global_c_expr)); /* line 984 "../lib/comp/arr_act.s7i" */ o_4881_process_create_call(&(o_6723_param_type), o_6725_array_name, &(((structType)(*o_6722_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/)); /* line 985 "../lib/comp/arr_act.s7i" */ { /* line 985 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 985 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6722_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 985 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 985 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 985 "../lib/comp/arr_act.s7i" */ } else { /* line 985 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 985 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 985 "../lib/comp/arr_act.s7i" */ } } } else { /* line 987 "../lib/comp/arr_act.s7i" */ strCopy(&(((structType)(*o_6722_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[452] /* "arrSubarr(" */); /* line 988 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6724_c_param))->stru[5].value.striValue/*->o_4783_expr*/); /* line 989 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 990 "../lib/comp/arr_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6721_params, 3L), o_6722_c_expr); /* line 991 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6722_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 992 "../lib/comp/arr_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6721_params, 5L), o_6722_c_expr); /* line 993 "../lib/comp/arr_act.s7i" */ { /* line 993 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 993 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6722_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 993 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 993 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 993 "../lib/comp/arr_act.s7i" */ } else { /* line 993 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 993 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 993 "../lib/comp/arr_act.s7i" */ } } } /* line 934 "../lib/comp/arr_act.s7i" */ destr_164(o_6724_c_param); /* line 934 "../lib/comp/arr_act.s7i" */ strDestr(o_6725_array_name); } /* line 1 "no_file" */ /* 3806 */ /* line 998 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6726_ARR_TAIL (const objRefType/*t_19_reference*/ o_6727_function, const listType/*t_20_ref_list*/ *const o_6728_params, structType/*t_164_expr_type*/ *const o_6729_c_expr) { /* line 1002 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ o_6730_param_type=typ[0] /* void/t_1_void */; /* line 1003 "../lib/comp/arr_act.s7i" */ structType/*t_164_expr_type*/ o_6731_c_param; /* line 1004 "../lib/comp/arr_act.s7i" */ striType/*t_15_string*/ o_6732_array_name; /* line 1003 "../lib/comp/arr_act.s7i" */ o_6731_c_param=create_164(sct[186]); /* line 1004 "../lib/comp/arr_act.s7i" */ o_6732_array_name=strEmpty(); /* "" */ /* line 1006 "../lib/comp/arr_act.s7i" */ o_6730_param_type=o_4754_getExprResultType(rflIdx(*o_6728_params, 1L)); /* line 1007 "../lib/comp/arr_act.s7i" */ o_4944_prepare_typed_result(&(o_6730_param_type), o_6729_c_expr); /* line 1008 "../lib/comp/arr_act.s7i" */ o_4963_prepareAnyParamTemporarys(rflIdx(*o_6728_params, 1L), &(o_6731_c_param), o_6729_c_expr); /* line 1009 "../lib/comp/arr_act.s7i" */ if (((((structType)(o_6731_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 1010 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), ((structType)(o_6731_c_param))->stru[9].value.striValue/*->o_4787_result_decl*/); /* line 1011 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), ((structType)(o_6731_c_param))->stru[10].value.striValue/*->o_4788_result_free*/); /* line 1012 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[7].value.striValue/*->o_4785_temp_to_null*/), ((structType)(o_6731_c_param))->stru[11].value.striValue/*->o_4789_result_to_null*/); /* line 1013 "../lib/comp/arr_act.s7i" */ strCopy(&(((structType)(*o_6729_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[32] /* "(" */); /* line 1014 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6731_c_param))->stru[12].value.striValue/*->o_4790_result_intro*/); /* line 1015 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6731_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1016 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6731_c_param))->stru[14].value.striValue/*->o_4792_result_finish*/); /* line 1017 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[453] /* ", arrTailTemp(&(" */); /* line 1018 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6731_c_param))->stru[8].value.striValue/*->o_4786_result_temp*/); /* line 1019 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[267] /* "), " */); /* line 1020 "../lib/comp/arr_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6728_params, 3L), o_6729_c_expr); /* line 1021 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[240] /* "))" */); } else /* line 1022 "../lib/comp/arr_act.s7i" */ if (o_4764_valueIsAtHeap(&(*o_3822/*[*/(&(o_4415_array_element), &(o_6730_param_type))))) { /* line 1023 "../lib/comp/arr_act.s7i" */ ++(((structType)(*o_6729_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 1024 "../lib/comp/arr_act.s7i" */ union { /* line 1024 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 1024 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1024 "../lib/comp/arr_act.s7i" */ } buffer_2; /* line 1024 "../lib/comp/arr_act.s7i" */ striType old_stri=o_6732_array_name; /* line 1024 "../lib/comp/arr_act.s7i" */ o_6732_array_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_6729_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 1024 "../lib/comp/arr_act.s7i" */ strDestr(old_stri); } /* line 1025 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[399] /* "arrayType " */); /* line 1026 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_6732_array_name); /* line 1027 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[400] /* "=NULL;\n" */); /* line 1028 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), &str[401] /* "if (" */); /* line 1029 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), o_6732_array_name); /* line 1030 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), &str[402] /* " != NULL) {arrFree(" */); /* line 1031 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), o_6732_array_name); /* line 1032 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), &str[403] /* ");}\n" */); /* line 1033 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[7].value.striValue/*->o_4785_temp_to_null*/), o_6732_array_name); /* line 1034 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[7].value.striValue/*->o_4785_temp_to_null*/), &str[400] /* "=NULL;\n" */); /* line 1035 "../lib/comp/arr_act.s7i" */ strCopy(&(((structType)(*o_6729_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[32] /* "(" */); /* line 1036 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6732_array_name); /* line 1037 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[454] /* "=arrTail(" */); /* line 1038 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6731_c_param))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1039 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1040 "../lib/comp/arr_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6728_params, 3L), o_6729_c_expr); /* line 1041 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[267] /* "), " */); /* line 1042 "../lib/comp/arr_act.s7i" */ o_3785/*@:=*/(&(o_4414_typeCategory), &(o_6730_param_type), 14L); /* line 1043 "../lib/comp/arr_act.s7i" */ o_4878_process_create_declaration(&(o_6730_param_type), &(o_4794_global_c_expr)); /* line 1044 "../lib/comp/arr_act.s7i" */ o_4881_process_create_call(&(o_6730_param_type), o_6732_array_name, &(((structType)(*o_6729_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/)); /* line 1045 "../lib/comp/arr_act.s7i" */ { /* line 1045 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 1045 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6729_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1045 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1045 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1045 "../lib/comp/arr_act.s7i" */ } else { /* line 1045 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1045 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 1045 "../lib/comp/arr_act.s7i" */ } } } else { /* line 1047 "../lib/comp/arr_act.s7i" */ strCopy(&(((structType)(*o_6729_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[455] /* "arrTail(" */); /* line 1048 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6731_c_param))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1049 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6729_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1050 "../lib/comp/arr_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6728_params, 3L), o_6729_c_expr); /* line 1051 "../lib/comp/arr_act.s7i" */ { /* line 1051 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 1051 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6729_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1051 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1051 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1051 "../lib/comp/arr_act.s7i" */ } else { /* line 1051 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1051 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 1051 "../lib/comp/arr_act.s7i" */ } } } /* line 998 "../lib/comp/arr_act.s7i" */ destr_164(o_6731_c_param); /* line 998 "../lib/comp/arr_act.s7i" */ strDestr(o_6732_array_name); } /* line 1 "no_file" */ /* 3807 */ /* line 1056 "../lib/comp/arr_act.s7i" */ static void/*t_1_void*/ o_6733_ARR_TIMES (const objRefType/*t_19_reference*/ o_6734_function, const listType/*t_20_ref_list*/ *const o_6735_params, structType/*t_164_expr_type*/ *const o_6736_c_expr) { /* line 1060 "../lib/comp/arr_act.s7i" */ typeType/*t_7_type*/ o_6737_result_type=typ[0] /* void/t_1_void */; /* line 1062 "../lib/comp/arr_act.s7i" */ o_6737_result_type=typResult(refType(o_6734_function)); /* line 1063 "../lib/comp/arr_act.s7i" */ o_3785/*@:=*/(&(o_4414_typeCategory), &(o_6737_result_type), 14L); /* line 1064 "../lib/comp/arr_act.s7i" */ o_6584_declare_prototype_if_necessary(o_6734_function, &(o_4794_global_c_expr)); /* line 1065 "../lib/comp/arr_act.s7i" */ o_4944_prepare_typed_result(&(o_6737_result_type), o_6736_c_expr); /* line 1066 "../lib/comp/arr_act.s7i" */ strCopy(&(((structType)(*o_6736_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[456] /* "times_" */); { /* line 1067 "../lib/comp/arr_act.s7i" */ union { /* line 1067 "../lib/comp/arr_act.s7i" */ struct striStruct striBuf; /* line 1067 "../lib/comp/arr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1067 "../lib/comp/arr_act.s7i" */ } buffer_1; /* line 1067 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6736_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), intStrToBuffer(typNum(o_6737_result_type), &buffer_1.striBuf)); } /* line 1068 "../lib/comp/arr_act.s7i" */ { /* line 1068 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 1068 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6736_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1068 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1068 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1068 "../lib/comp/arr_act.s7i" */ } else { /* line 1068 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1068 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 1068 "../lib/comp/arr_act.s7i" */ } } /* line 1069 "../lib/comp/arr_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6735_params, 1L), o_6736_c_expr); /* line 1070 "../lib/comp/arr_act.s7i" */ strAppend(&(((structType)(*o_6736_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1071 "../lib/comp/arr_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_6735_params, 3L), o_6736_c_expr); /* line 1072 "../lib/comp/arr_act.s7i" */ { /* line 1072 "../lib/comp/arr_act.s7i" */ striType *tmp_1; /* line 1072 "../lib/comp/arr_act.s7i" */ tmp_1=&(((structType)(*o_6736_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1072 "../lib/comp/arr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1072 "../lib/comp/arr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1072 "../lib/comp/arr_act.s7i" */ } else { /* line 1072 "../lib/comp/arr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1072 "../lib/comp/arr_act.s7i" */ (*tmp_1)->size++; /* line 1072 "../lib/comp/arr_act.s7i" */ } } } /* line 1 "no_file" */ /* 3808 */ /* 3809 */ /* line 83 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6738_big_prototypes (interfaceType/*t_46_file*/ *const o_6739_c_prog) { /* line 86 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[457] /* "bigIntType bigAbs (const const_bigIntType);" */); /* line 87 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[458] /* "bigIntType bigAdd (const_bigIntType, const_bigIntType);" */); /* line 88 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[459] /* "bigIntType bigAddTemp (bigIntType, const const_bigIntType);" */); /* line 89 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[460] /* "bigIntType bigAnd (const_bigIntType, const_bigIntType);" */); /* line 90 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[461] /* "intType bigBitLength (const const_bigIntType);" */); /* line 91 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[462] /* "intType bigCmp (const const_bigIntType, const const_bigIntType);" */); /* line 92 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[463] /* "intType bigCmpGeneric (const genericType, const genericType);" */); /* line 93 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[464] /* "intType bigCmpSignedDigit (const const_bigIntType, intType);" */); /* line 94 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[465] /* "void bigCpy (bigIntType *const, const const_bigIntType);" */); /* line 95 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[466] /* "void bigCpyGeneric (genericType *const, const genericType);" */); /* line 96 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[467] /* "bigIntType bigCreate (const const_bigIntType);" */); /* line 97 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[468] /* "genericType bigCreateGeneric (const genericType);" */); /* line 98 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[469] /* "void bigDecr (bigIntType *const);" */); /* line 99 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[470] /* "void bigDestr (const const_bigIntType);" */); /* line 100 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[471] /* "void bigDestrGeneric (const genericType);" */); /* line 101 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[472] /* "bigIntType bigDiv (const const_bigIntType, const const_bigIntType);" */); /* line 102 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[473] /* "boolType bigEq (const const_bigIntType, const const_bigIntType);" */); /* line 103 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[474] /* "boolType bigEqSignedDigit (const const_bigIntType, intType);" */); /* line 104 "../lib/comp/big_act.s7i" */ if ((((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/) == (64L)) { /* line 105 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[475] /* "bigIntType bigFromInt64 (intType);" */); /* line 106 "../lib/comp/big_act.s7i" */ o_894_writeln(o_6739_c_prog, &str[476] /* "#define bigIConv bigFromInt64" */); } else /* line 107 "../lib/comp/big_act.s7i" */ if ((((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/) == (32L)) { /* line 108 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[477] /* "bigIntType bigFromInt32 (intType);" */); /* line 109 "../lib/comp/big_act.s7i" */ o_894_writeln(o_6739_c_prog, &str[478] /* "#define bigIConv bigFromInt32" */); } /* line 111 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[479] /* "bigIntType bigFromBStriBe (const const_bstriType, const boolType);" */); /* line 112 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[480] /* "bigIntType bigFromBStriLe (const const_bstriType, const boolType);" */); /* line 113 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[481] /* "bigIntType bigGcd (const const_bigIntType, const const_bigIntType);" */); /* line 114 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[482] /* "void bigGrow (bigIntType *const, const const_bigIntType);" */); /* line 115 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[483] /* "void bigGrowSignedDigit (bigIntType *const, const intType);" */); /* line 116 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[484] /* "intType bigHashCode (const const_bigIntType);" */); /* line 117 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[485] /* "char *bigHexCStri (const const_bigIntType);" */); /* line 118 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[486] /* "void bigIncr (bigIntType *const);" */); /* line 119 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[487] /* "bigIntType bigIPow (const const_bigIntType, intType);" */); /* line 120 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[488] /* "bigIntType bigIPowSignedDigit (intType, intType);" */); /* line 121 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[489] /* "bigIntType bigLog10 (const const_bigIntType);" */); /* line 122 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[490] /* "bigIntType bigLog2 (const const_bigIntType);" */); /* line 123 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[491] /* "bigIntType bigLowerBits (const const_bigIntType, const intType);" */); /* line 124 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[492] /* "bigIntType bigLowerBitsTemp (const bigIntType, const intType);" */); /* line 125 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[493] /* "intType bigLowestSetBit (const const_bigIntType);" */); /* line 126 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[494] /* "bigIntType bigLShift (const const_bigIntType, const intType);" */); /* line 127 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[495] /* "void bigLShiftAssign (bigIntType *const, intType);" */); /* line 128 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[496] /* "bigIntType bigLShiftOne (const intType);" */); /* line 129 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[497] /* "bigIntType bigLog2BaseIPow (const intType, const intType);" */); /* line 130 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[498] /* "bigIntType bigMDiv (const const_bigIntType, const const_bigIntType);" */); /* line 131 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[499] /* "bigIntType bigMod (const const_bigIntType, const const_bigIntType);" */); /* line 132 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[500] /* "bigIntType bigMult (const_bigIntType, const_bigIntType);" */); /* line 133 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[501] /* "void bigMultAssign (bigIntType *const, const_bigIntType);" */); /* line 134 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[502] /* "bigIntType bigMultSignedDigit (const_bigIntType, intType);" */); /* line 135 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[503] /* "bigIntType bigNegate (const const_bigIntType);" */); /* line 136 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[504] /* "bigIntType bigNegateTemp (bigIntType);" */); /* line 137 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[505] /* "boolType bigOdd (const const_bigIntType);" */); /* line 138 "../lib/comp/big_act.s7i" */ if ((((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/) == (64L)) { /* line 139 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[506] /* "intType bigToInt64 (const const_bigIntType);" */); /* line 140 "../lib/comp/big_act.s7i" */ o_894_writeln(o_6739_c_prog, &str[507] /* "#define bigOrd bigToInt64" */); } else /* line 141 "../lib/comp/big_act.s7i" */ if ((((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/) == (32L)) { /* line 142 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[508] /* "intType bigToInt32 (const const_bigIntType);" */); /* line 143 "../lib/comp/big_act.s7i" */ o_894_writeln(o_6739_c_prog, &str[509] /* "#define bigOrd bigToInt32" */); } /* line 145 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[510] /* "bigIntType bigOr (const_bigIntType, const_bigIntType);" */); /* line 146 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[511] /* "bigIntType bigParse (const const_striType);" */); /* line 147 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[512] /* "bigIntType bigParseBased (const const_striType, intType);" */); /* line 148 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[513] /* "bigIntType bigPred (const const_bigIntType);" */); /* line 149 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[514] /* "bigIntType bigPredTemp (bigIntType);" */); /* line 150 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[515] /* "striType bigRadix (const const_bigIntType, intType, boolType);" */); /* line 151 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[516] /* "bigIntType bigRand (const const_bigIntType, const const_bigIntType);" */); /* line 152 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[517] /* "bigIntType bigRem (const const_bigIntType, const const_bigIntType);" */); /* line 153 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[518] /* "bigIntType bigRShift (const const_bigIntType, const intType);" */); /* line 154 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[519] /* "void bigRShiftAssign (bigIntType *const, intType);" */); /* line 155 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[520] /* "bigIntType bigSbtr (const const_bigIntType, const const_bigIntType);" */); /* line 156 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[521] /* "bigIntType bigSbtrTemp (bigIntType, const_bigIntType);" */); /* line 157 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[522] /* "void bigShrink (bigIntType *const, const const_bigIntType);" */); /* line 158 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[523] /* "bigIntType bigSquare (const_bigIntType);" */); /* line 159 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[524] /* "striType bigStr (const const_bigIntType);" */); /* line 160 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[525] /* "bigIntType bigSucc (const const_bigIntType);" */); /* line 161 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[526] /* "bigIntType bigSuccTemp (bigIntType);" */); /* line 162 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[527] /* "bstriType bigToBStriBe (const const_bigIntType, const boolType);" */); /* line 163 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[528] /* "bstriType bigToBStriLe (const const_bigIntType, const boolType);" */); /* line 164 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[529] /* "bigIntType bigValue (objRefType);" */); /* line 165 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[530] /* "bigIntType bigXor (const_bigIntType, const_bigIntType);" */); /* line 166 "../lib/comp/big_act.s7i" */ o_6547_declareExtern(o_6739_c_prog, &str[531] /* "bigIntType bigZero (void);" */); } /* line 1 "no_file" */ /* 3810 */ /* line 170 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6740_BIG_ABS (const objRefType/*t_19_reference*/ o_6741_function, const listType/*t_20_ref_list*/ *const o_6742_params, structType/*t_164_expr_type*/ *const o_6743_c_expr) { /* line 174 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6743_c_expr); /* line 175 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6743_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[532] /* "bigAbs(" */); /* line 176 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_6742_params, 1L), o_6743_c_expr); /* line 177 "../lib/comp/big_act.s7i" */ { /* line 177 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 177 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6743_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 177 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 177 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 177 "../lib/comp/big_act.s7i" */ } else { /* line 177 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 177 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 177 "../lib/comp/big_act.s7i" */ } } } /* line 1 "no_file" */ /* 3811 */ /* line 181 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6744_process_const_big_add (const objRefType/*t_19_reference*/ o_6745_param1, const const_bigIntType/*t_57_bigInteger*/ o_6746_number, structType/*t_164_expr_type*/ *const o_6747_c_expr) { /* line 185 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_6748_evaluatedParam=NULL; /* line 186 "../lib/comp/big_act.s7i" */ structType/*t_164_expr_type*/ o_6749_c_param1; /* line 186 "../lib/comp/big_act.s7i" */ o_6749_c_param1=create_164(sct[187]); /* line 188 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(o_6745_param1, 10L, &(o_6748_evaluatedParam))) { /* line 189 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); { /* line 190 "../lib/comp/big_act.s7i" */ bigIntType tmp_2 = NULL; /* line 190 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6747_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6505_bigIntegerLiteral((tmp_2=bigAddTemp(bigValue(o_6748_evaluatedParam), o_6746_number)))); /* line 190 "../lib/comp/big_act.s7i" */ bigDestr(tmp_2); } } else /* line 191 "../lib/comp/big_act.s7i" */ if (bigEqSignedDigit(o_6746_number, 0L)) { /* line 192 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 193 "../lib/comp/big_act.s7i" */ o_4941_process_expr(o_6745_param1, o_6747_c_expr); } else /* line 194 "../lib/comp/big_act.s7i" */ if (bigEqSignedDigit(o_6746_number, 1L)) { /* line 195 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 196 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6747_c_expr); /* line 197 "../lib/comp/big_act.s7i" */ o_4963_prepareAnyParamTemporarys(o_6745_param1, &(o_6749_c_param1), o_6747_c_expr); /* line 198 "../lib/comp/big_act.s7i" */ if (((((structType)(o_6749_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 199 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6747_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[533] /* "bigSuccTemp(" */); /* line 200 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6747_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6749_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 202 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6747_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[534] /* "bigSucc(" */); /* line 203 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6747_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6749_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 205 "../lib/comp/big_act.s7i" */ { /* line 205 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 205 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6747_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 205 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 205 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 205 "../lib/comp/big_act.s7i" */ } else { /* line 205 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 205 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 205 "../lib/comp/big_act.s7i" */ } } } else /* line 206 "../lib/comp/big_act.s7i" */ if (bigEq(o_6746_number, big[5] /* -1 */)) { /* line 207 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 208 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6747_c_expr); /* line 209 "../lib/comp/big_act.s7i" */ o_4963_prepareAnyParamTemporarys(o_6745_param1, &(o_6749_c_param1), o_6747_c_expr); /* line 210 "../lib/comp/big_act.s7i" */ if (((((structType)(o_6749_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 211 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6747_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[535] /* "bigPredTemp(" */); /* line 212 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6747_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6749_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 214 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6747_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[536] /* "bigPred(" */); /* line 215 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6747_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6749_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 217 "../lib/comp/big_act.s7i" */ { /* line 217 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 217 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6747_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 217 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 217 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 217 "../lib/comp/big_act.s7i" */ } else { /* line 217 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 217 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 217 "../lib/comp/big_act.s7i" */ } } } else /* line 218 "../lib/comp/big_act.s7i" */ if (bigCmpSignedDigit(o_6746_number, 0L) > 0) { /* line 219 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6747_c_expr); /* line 220 "../lib/comp/big_act.s7i" */ o_4963_prepareAnyParamTemporarys(o_6745_param1, &(o_6749_c_param1), o_6747_c_expr); /* line 221 "../lib/comp/big_act.s7i" */ if (((((structType)(o_6749_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 222 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6747_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[537] /* "bigAddTemp(" */); /* line 223 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6747_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6749_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 225 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6747_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[538] /* "bigAdd(" */); /* line 226 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6747_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6749_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 228 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6747_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 229 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6747_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6505_bigIntegerLiteral(o_6746_number)); /* line 230 "../lib/comp/big_act.s7i" */ { /* line 230 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 230 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6747_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 230 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 230 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 230 "../lib/comp/big_act.s7i" */ } else { /* line 230 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 230 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 230 "../lib/comp/big_act.s7i" */ } } } else { /* line 232 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6747_c_expr); /* line 233 "../lib/comp/big_act.s7i" */ o_4963_prepareAnyParamTemporarys(o_6745_param1, &(o_6749_c_param1), o_6747_c_expr); /* line 234 "../lib/comp/big_act.s7i" */ if (((((structType)(o_6749_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 235 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6747_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[539] /* "bigSbtrTemp(" */); /* line 236 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6747_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6749_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 238 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6747_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[540] /* "bigSbtr(" */); /* line 239 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6747_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6749_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 241 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6747_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); { /* line 242 "../lib/comp/big_act.s7i" */ bigIntType tmp_2 = NULL; /* line 242 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6747_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6505_bigIntegerLiteral((tmp_2=bigNegate(o_6746_number)))); /* line 242 "../lib/comp/big_act.s7i" */ bigDestr(tmp_2); } /* line 243 "../lib/comp/big_act.s7i" */ { /* line 243 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 243 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6747_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 243 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 243 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 243 "../lib/comp/big_act.s7i" */ } else { /* line 243 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 243 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 243 "../lib/comp/big_act.s7i" */ } } } /* line 181 "../lib/comp/big_act.s7i" */ destr_164(o_6749_c_param1); } /* line 1 "no_file" */ /* 3812 */ /* line 255 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6750_BIG_ADD (const objRefType/*t_19_reference*/ o_6751_function, const listType/*t_20_ref_list*/ *const o_6752_params, structType/*t_164_expr_type*/ *const o_6753_c_expr) { /* line 259 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_6754_evaluatedParam=NULL; /* line 260 "../lib/comp/big_act.s7i" */ structType/*t_164_expr_type*/ o_6755_c_param1; /* line 261 "../lib/comp/big_act.s7i" */ structType/*t_164_expr_type*/ o_6756_c_param3; /* line 260 "../lib/comp/big_act.s7i" */ o_6755_c_param1=create_164(sct[188]); /* line 261 "../lib/comp/big_act.s7i" */ o_6756_c_param3=create_164(sct[189]); /* line 263 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6752_params, 3L), 10L, &(o_6754_evaluatedParam))) { { /* line 264 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 264 "../lib/comp/big_act.s7i" */ o_6744_process_const_big_add(rflIdx(*o_6752_params, 1L), (tmp_1=bigValue(o_6754_evaluatedParam)), o_6753_c_expr); /* line 264 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else /* line 265 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6752_params, 1L), 10L, &(o_6754_evaluatedParam))) { { /* line 266 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 266 "../lib/comp/big_act.s7i" */ o_6744_process_const_big_add(rflIdx(*o_6752_params, 3L), (tmp_1=bigValue(o_6754_evaluatedParam)), o_6753_c_expr); /* line 266 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else /* line 267 "../lib/comp/big_act.s7i" */ if ((rflIdx(*o_6752_params, 1L)) == (rflIdx(*o_6752_params, 3L))) { /* line 268 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 269 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6753_c_expr); /* line 270 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6753_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[541] /* "bigLShift(" */); /* line 271 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_6752_params, 1L), o_6753_c_expr); /* line 272 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6753_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[542] /* ", 1)" */); } else { /* line 274 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6753_c_expr); /* line 275 "../lib/comp/big_act.s7i" */ if (o_5093_isActionExpression(rflIdx(*o_6752_params, 1L), &str[543] /* "BIG_NEGATE" */)) { /* line 276 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 277 "../lib/comp/big_act.s7i" */ o_4963_prepareAnyParamTemporarys(rflIdx(*o_6752_params, 3L), &(o_6756_c_param3), o_6753_c_expr); /* line 278 "../lib/comp/big_act.s7i" */ if (((((structType)(o_6756_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 279 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6753_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[539] /* "bigSbtrTemp(" */); /* line 280 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6753_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6756_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 282 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6753_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[540] /* "bigSbtr(" */); /* line 283 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6753_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6756_c_param3))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 285 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6753_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); { /* line 286 "../lib/comp/big_act.s7i" */ listType/*t_20_ref_list*/ tmp_1 = (listType/*t_20_ref_list*/)(NULL); /* line 286 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx((tmp_1=(listType/*t_20_ref_list*/)(rflValue(rflIdx(*o_6752_params, 1L)))), 3L), o_6753_c_expr); /* line 286 "../lib/comp/big_act.s7i" */ rflDestr(tmp_1); } } else { /* line 288 "../lib/comp/big_act.s7i" */ o_4963_prepareAnyParamTemporarys(rflIdx(*o_6752_params, 1L), &(o_6755_c_param1), o_6753_c_expr); /* line 289 "../lib/comp/big_act.s7i" */ if (((((structType)(o_6755_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 290 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6753_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[537] /* "bigAddTemp(" */); /* line 291 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6753_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6755_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 292 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6753_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 293 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_6752_params, 3L), o_6753_c_expr); } else { /* line 295 "../lib/comp/big_act.s7i" */ o_4963_prepareAnyParamTemporarys(rflIdx(*o_6752_params, 3L), &(o_6756_c_param3), o_6753_c_expr); /* line 296 "../lib/comp/big_act.s7i" */ if (((((structType)(o_6756_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 297 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6753_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[537] /* "bigAddTemp(" */); /* line 298 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6753_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6756_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 299 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6753_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 300 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6753_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6755_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); } else { /* line 302 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6753_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[538] /* "bigAdd(" */); /* line 303 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6753_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6755_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 304 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6753_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 305 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6753_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6756_c_param3))->stru[5].value.striValue/*->o_4783_expr*/); } } } /* line 309 "../lib/comp/big_act.s7i" */ { /* line 309 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 309 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6753_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 309 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 309 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 309 "../lib/comp/big_act.s7i" */ } else { /* line 309 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 309 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 309 "../lib/comp/big_act.s7i" */ } } } /* line 255 "../lib/comp/big_act.s7i" */ destr_164(o_6755_c_param1); /* line 255 "../lib/comp/big_act.s7i" */ destr_164(o_6756_c_param3); } /* line 1 "no_file" */ /* 3813 */ /* line 314 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6757_BIG_BIT_LENGTH (const objRefType/*t_19_reference*/ o_6758_function, const listType/*t_20_ref_list*/ *const o_6759_params, structType/*t_164_expr_type*/ *const o_6760_c_expr) { /* line 318 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6760_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[544] /* "bigBitLength(" */); /* line 319 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_6759_params, 1L), o_6760_c_expr); /* line 320 "../lib/comp/big_act.s7i" */ { /* line 320 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 320 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6760_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 320 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 320 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 320 "../lib/comp/big_act.s7i" */ } else { /* line 320 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 320 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 320 "../lib/comp/big_act.s7i" */ } } } /* line 1 "no_file" */ /* 3814 */ /* line 324 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6761_process_const_big_cmp (const objRefType/*t_19_reference*/ o_6762_param1, const const_bigIntType/*t_57_bigInteger*/ o_6763_number, structType/*t_164_expr_type*/ *const o_6764_c_expr) { /* line 328 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_6765_evaluatedParam=NULL; /* line 330 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(o_6762_param1, 10L, &(o_6765_evaluatedParam))) { /* line 331 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); { /* line 332 "../lib/comp/big_act.s7i" */ union { /* line 332 "../lib/comp/big_act.s7i" */ struct striStruct striBuf; /* line 332 "../lib/comp/big_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 332 "../lib/comp/big_act.s7i" */ } buffer_1; /* line 332 "../lib/comp/big_act.s7i" */ bigIntType tmp_2 = NULL; /* line 332 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6764_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(bigCmp((tmp_2=bigValue(o_6765_evaluatedParam)), o_6763_number), &buffer_1.striBuf)); /* line 332 "../lib/comp/big_act.s7i" */ bigDestr(tmp_2); } } else { /* line 333 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 333 "../lib/comp/big_act.s7i" */ if (bigCmpSignedDigit((tmp_1=bigAbs(o_6763_number)), 2147483647L) <= 0) { /* line 334 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 335 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6764_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[545] /* "bigCmpSignedDigit(" */); /* line 336 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(o_6762_param1, o_6764_c_expr); /* line 337 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6764_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 338 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6764_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(bigOrd(o_6763_number))); /* line 339 "../lib/comp/big_act.s7i" */ { /* line 339 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 339 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6764_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 339 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 339 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 339 "../lib/comp/big_act.s7i" */ } else { /* line 339 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 339 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 339 "../lib/comp/big_act.s7i" */ } } } else { /* line 341 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6764_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[546] /* "bigCmp(" */); /* line 342 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(o_6762_param1, o_6764_c_expr); /* line 343 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6764_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 344 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6764_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6505_bigIntegerLiteral(o_6763_number)); /* line 345 "../lib/comp/big_act.s7i" */ { /* line 345 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 345 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6764_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 345 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 345 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 345 "../lib/comp/big_act.s7i" */ } else { /* line 345 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 345 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 345 "../lib/comp/big_act.s7i" */ } } } /* line 333 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } /* line 1 "no_file" */ /* 3815 */ /* line 350 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6766_process_const_big_cmp (const const_bigIntType/*t_57_bigInteger*/ o_6767_number, const objRefType/*t_19_reference*/ o_6768_param2, structType/*t_164_expr_type*/ *const o_6769_c_expr) { /* line 354 "../lib/comp/big_act.s7i" */ { /* line 354 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 354 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6769_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 354 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 354 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) '-'); /* line 354 "../lib/comp/big_act.s7i" */ } else { /* line 354 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '-'; /* line 354 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 354 "../lib/comp/big_act.s7i" */ } } /* line 355 "../lib/comp/big_act.s7i" */ o_6761_process_const_big_cmp(o_6768_param2, o_6767_number, o_6769_c_expr); } /* line 1 "no_file" */ /* 3816 */ /* line 359 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6770_BIG_CMP (const objRefType/*t_19_reference*/ o_6771_function, const listType/*t_20_ref_list*/ *const o_6772_params, structType/*t_164_expr_type*/ *const o_6773_c_expr) { /* line 363 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_6774_evaluatedParam=NULL; /* line 365 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6772_params, 2L), 10L, &(o_6774_evaluatedParam))) { { /* line 366 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 366 "../lib/comp/big_act.s7i" */ o_6761_process_const_big_cmp(rflIdx(*o_6772_params, 1L), (tmp_1=bigValue(o_6774_evaluatedParam)), o_6773_c_expr); /* line 366 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else /* line 367 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6772_params, 1L), 10L, &(o_6774_evaluatedParam))) { { /* line 368 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 368 "../lib/comp/big_act.s7i" */ o_6766_process_const_big_cmp((tmp_1=bigValue(o_6774_evaluatedParam)), rflIdx(*o_6772_params, 2L), o_6773_c_expr); /* line 368 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else { /* line 370 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6773_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[546] /* "bigCmp(" */); /* line 371 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_6772_params, 1L), o_6773_c_expr); /* line 372 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6773_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 373 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_6772_params, 2L), o_6773_c_expr); /* line 374 "../lib/comp/big_act.s7i" */ { /* line 374 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 374 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6773_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 374 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 374 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 374 "../lib/comp/big_act.s7i" */ } else { /* line 374 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 374 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 374 "../lib/comp/big_act.s7i" */ } } } } /* line 1 "no_file" */ /* 3817 */ /* line 379 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6775_BIG_CONV (const objRefType/*t_19_reference*/ o_6776_function, const listType/*t_20_ref_list*/ *const o_6777_params, structType/*t_164_expr_type*/ *const o_6778_c_expr) { /* line 383 "../lib/comp/big_act.s7i" */ { /* line 383 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 383 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6778_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 383 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 383 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 383 "../lib/comp/big_act.s7i" */ } else { /* line 383 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 383 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 383 "../lib/comp/big_act.s7i" */ } } /* line 384 "../lib/comp/big_act.s7i" */ o_4941_process_expr(rflIdx(*o_6777_params, 3L), o_6778_c_expr); /* line 385 "../lib/comp/big_act.s7i" */ { /* line 385 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 385 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6778_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 385 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 385 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 385 "../lib/comp/big_act.s7i" */ } else { /* line 385 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 385 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 385 "../lib/comp/big_act.s7i" */ } } } /* line 1 "no_file" */ /* 3818 */ /* line 389 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6779_BIG_CPY (const objRefType/*t_19_reference*/ o_6780_function, const listType/*t_20_ref_list*/ *const o_6781_params, structType/*t_164_expr_type*/ *const o_6782_c_expr) { /* line 393 "../lib/comp/big_act.s7i" */ structType/*t_164_expr_type*/ o_6783_c_param1; /* line 394 "../lib/comp/big_act.s7i" */ structType/*t_164_expr_type*/ o_6784_c_param3; /* line 393 "../lib/comp/big_act.s7i" */ o_6783_c_param1=create_164(sct[190]); /* line 394 "../lib/comp/big_act.s7i" */ o_6784_c_param3=create_164(sct[191]); /* line 396 "../lib/comp/big_act.s7i" */ o_4941_process_expr(rflIdx(*o_6781_params, 1L), &(o_6783_c_param1)); /* line 397 "../lib/comp/big_act.s7i" */ ((structType)(o_6784_c_param3))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_6783_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 398 "../lib/comp/big_act.s7i" */ o_4941_process_expr(rflIdx(*o_6781_params, 3L), &(o_6784_c_param3)); /* line 399 "../lib/comp/big_act.s7i" */ if (o_5049_has_temp_values(o_6784_c_param3)) { /* line 400 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6782_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 401 "../lib/comp/big_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6783_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_6782_c_expr); /* line 402 "../lib/comp/big_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6784_c_param3))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_6782_c_expr); /* line 403 "../lib/comp/big_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6783_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_6782_c_expr); /* line 404 "../lib/comp/big_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6784_c_param3))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_6782_c_expr); } /* line 406 "../lib/comp/big_act.s7i" */ if (((((structType)(o_6784_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 407 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6782_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 408 "../lib/comp/big_act.s7i" */ o_4819_setDiagnosticLine(o_6782_c_expr); /* line 409 "../lib/comp/big_act.s7i" */ if (o_5018_isNormalVariable(rflIdx(*o_6781_params, 1L))) { /* line 410 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6782_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[547] /* "bigIntType old_big=" */); /* line 411 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6782_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6783_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 412 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6782_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 413 "../lib/comp/big_act.s7i" */ o_4819_setDiagnosticLine(o_6782_c_expr); /* line 414 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6782_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6783_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 415 "../lib/comp/big_act.s7i" */ { /* line 415 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 415 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6782_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 415 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 415 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 415 "../lib/comp/big_act.s7i" */ } else { /* line 415 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 415 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 415 "../lib/comp/big_act.s7i" */ } } } else { /* line 417 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6782_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[548] /* "bigIntType *big_ptr=&(" */); /* line 418 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6782_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6783_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 419 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6782_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 420 "../lib/comp/big_act.s7i" */ o_4819_setDiagnosticLine(o_6782_c_expr); /* line 421 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6782_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[549] /* "bigIntType old_big=*big_ptr;\n" */); /* line 422 "../lib/comp/big_act.s7i" */ o_4819_setDiagnosticLine(o_6782_c_expr); /* line 423 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6782_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[550] /* "*big_ptr=" */); } /* line 425 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6782_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6784_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 426 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6782_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 427 "../lib/comp/big_act.s7i" */ o_4819_setDiagnosticLine(o_6782_c_expr); /* line 428 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6782_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[551] /* "bigDestr(old_big);\n" */); /* line 429 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6782_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } else { /* line 431 "../lib/comp/big_act.s7i" */ o_4819_setDiagnosticLine(o_6782_c_expr); /* line 432 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6782_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[266] /* "bigCpy(&(" */); /* line 433 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6782_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6783_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 434 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6782_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 435 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6782_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_6784_c_param3))->stru[5].value.striValue/*->o_4783_expr*/); /* line 436 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6782_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 438 "../lib/comp/big_act.s7i" */ if (o_5049_has_temp_values(o_6784_c_param3)) { /* line 439 "../lib/comp/big_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6783_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_6782_c_expr); /* line 440 "../lib/comp/big_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_6784_c_param3))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_6782_c_expr); /* line 441 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6782_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 389 "../lib/comp/big_act.s7i" */ destr_164(o_6783_c_param1); /* line 389 "../lib/comp/big_act.s7i" */ destr_164(o_6784_c_param3); } /* line 1 "no_file" */ /* 3819 */ /* line 446 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6785_BIG_DECR (const objRefType/*t_19_reference*/ o_6786_function, const listType/*t_20_ref_list*/ *const o_6787_params, structType/*t_164_expr_type*/ *const o_6788_c_expr) { /* line 450 "../lib/comp/big_act.s7i" */ o_4819_setDiagnosticLine(o_6788_c_expr); /* line 451 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6788_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[552] /* "bigDecr(&(" */); /* line 452 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_6787_params, 1L), o_6788_c_expr); /* line 453 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6788_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); } /* line 1 "no_file" */ /* 3820 */ /* line 457 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6789_process_const_big_div (const objRefType/*t_19_reference*/ o_6790_dividend, const const_bigIntType/*t_57_bigInteger*/ o_6791_divisor, structType/*t_164_expr_type*/ *const o_6792_c_expr) { /* line 461 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_6793_evaluatedDividend=NULL; /* line 462 "../lib/comp/big_act.s7i" */ bigIntType/*t_57_bigInteger*/ o_6794_quotient; /* line 462 "../lib/comp/big_act.s7i" */ o_6794_quotient=bigZero(); /* 0_ */ /* line 464 "../lib/comp/big_act.s7i" */ if (bigEqSignedDigit(o_6791_divisor, 0L)) { /* line 465 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 466 "../lib/comp/big_act.s7i" */ o_6531_DOES_RAISE(&str[553] /* "NUMERIC_ERROR" */, *o_6792_c_expr); /* line 467 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6792_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6528_bigRaiseError(&str[553] /* "NUMERIC_ERROR" */)); } else /* line 468 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(o_6790_dividend, 10L, &(o_6793_evaluatedDividend))) { /* line 469 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); { /* line 470 "../lib/comp/big_act.s7i" */ bigIntType tmp_2 = NULL; { /* line 470 "../lib/comp/big_act.s7i" */ bigIntType old_big=o_6794_quotient; /* line 470 "../lib/comp/big_act.s7i" */ o_6794_quotient=bigDiv((tmp_2=bigValue(o_6793_evaluatedDividend)), o_6791_divisor); /* line 470 "../lib/comp/big_act.s7i" */ bigDestr(old_big); } /* line 470 "../lib/comp/big_act.s7i" */ bigDestr(tmp_2); } /* line 471 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6792_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6505_bigIntegerLiteral(o_6794_quotient)); } else /* line 472 "../lib/comp/big_act.s7i" */ if (bigEqSignedDigit(o_6791_divisor, 1L)) { /* line 473 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 474 "../lib/comp/big_act.s7i" */ { /* line 474 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 474 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6792_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 474 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 474 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 474 "../lib/comp/big_act.s7i" */ } else { /* line 474 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 474 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 474 "../lib/comp/big_act.s7i" */ } } /* line 475 "../lib/comp/big_act.s7i" */ o_4941_process_expr(o_6790_dividend, o_6792_c_expr); /* line 476 "../lib/comp/big_act.s7i" */ { /* line 476 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 476 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6792_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 476 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 476 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 476 "../lib/comp/big_act.s7i" */ } else { /* line 476 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 476 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 476 "../lib/comp/big_act.s7i" */ } } } else /* line 477 "../lib/comp/big_act.s7i" */ if (bigEq(o_6791_divisor, big[5] /* -1 */)) { /* line 478 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 479 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6792_c_expr); /* line 480 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6792_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[554] /* "bigNegate(" */); /* line 481 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(o_6790_dividend, o_6792_c_expr); /* line 482 "../lib/comp/big_act.s7i" */ { /* line 482 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 482 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6792_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 482 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 482 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 482 "../lib/comp/big_act.s7i" */ } else { /* line 482 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 482 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 482 "../lib/comp/big_act.s7i" */ } } } else { /* line 484 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6792_c_expr); /* line 485 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6792_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[555] /* "bigDiv(" */); /* line 486 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(o_6790_dividend, o_6792_c_expr); /* line 487 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6792_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 488 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6792_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6505_bigIntegerLiteral(o_6791_divisor)); /* line 489 "../lib/comp/big_act.s7i" */ { /* line 489 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 489 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6792_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 489 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 489 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 489 "../lib/comp/big_act.s7i" */ } else { /* line 489 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 489 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 489 "../lib/comp/big_act.s7i" */ } } } /* line 457 "../lib/comp/big_act.s7i" */ bigDestr(o_6794_quotient); } /* line 1 "no_file" */ /* 3821 */ /* line 494 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6795_BIG_DIV (const objRefType/*t_19_reference*/ o_6796_function, const listType/*t_20_ref_list*/ *const o_6797_params, structType/*t_164_expr_type*/ *const o_6798_c_expr) { /* line 498 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_6799_evaluatedParam=NULL; /* line 500 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6797_params, 3L), 10L, &(o_6799_evaluatedParam))) { { /* line 501 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 501 "../lib/comp/big_act.s7i" */ o_6789_process_const_big_div(rflIdx(*o_6797_params, 1L), (tmp_1=bigValue(o_6799_evaluatedParam)), o_6798_c_expr); /* line 501 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else { /* line 503 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6798_c_expr); /* line 504 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6798_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[555] /* "bigDiv(" */); /* line 505 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_6797_params, 1L), o_6798_c_expr); /* line 506 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6798_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 507 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_6797_params, 3L), o_6798_c_expr); /* line 508 "../lib/comp/big_act.s7i" */ { /* line 508 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 508 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6798_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 508 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 508 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 508 "../lib/comp/big_act.s7i" */ } else { /* line 508 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 508 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 508 "../lib/comp/big_act.s7i" */ } } } } /* line 1 "no_file" */ /* 3822 */ /* line 513 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6800_process_const_big_eq (const objRefType/*t_19_reference*/ o_6801_param1, const const_bigIntType/*t_57_bigInteger*/ o_6802_number, structType/*t_164_expr_type*/ *const o_6803_c_expr) { /* line 517 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_6804_evaluatedParam=NULL; /* line 519 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(o_6801_param1, 10L, &(o_6804_evaluatedParam))) { /* line 520 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); { /* line 521 "../lib/comp/big_act.s7i" */ union { /* line 521 "../lib/comp/big_act.s7i" */ struct striStruct striBuf; /* line 521 "../lib/comp/big_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 521 "../lib/comp/big_act.s7i" */ } buffer_1; /* line 521 "../lib/comp/big_act.s7i" */ bigIntType tmp_2 = NULL; /* line 521 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6803_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((intType)(bigEq((tmp_2=bigValue(o_6804_evaluatedParam)), o_6802_number)), &buffer_1.striBuf)); /* line 521 "../lib/comp/big_act.s7i" */ bigDestr(tmp_2); } /* line 522 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6803_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[190] /* "/*" */); { /* line 523 "../lib/comp/big_act.s7i" */ bigIntType tmp_2 = NULL; /* line 523 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6803_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_43_str(bigEq((tmp_2=bigValue(o_6804_evaluatedParam)), o_6802_number))); /* line 523 "../lib/comp/big_act.s7i" */ bigDestr(tmp_2); } /* line 524 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6803_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[123] /* "*\/" */); } else { /* line 525 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 525 "../lib/comp/big_act.s7i" */ if (bigCmpSignedDigit((tmp_1=bigAbs(o_6802_number)), 2147483647L) <= 0) { /* line 526 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 527 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6803_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[556] /* "bigEqSignedDigit(" */); /* line 528 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(o_6801_param1, o_6803_c_expr); /* line 529 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6803_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 530 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6803_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(bigOrd(o_6802_number))); /* line 531 "../lib/comp/big_act.s7i" */ { /* line 531 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 531 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6803_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 531 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 531 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 531 "../lib/comp/big_act.s7i" */ } else { /* line 531 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 531 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 531 "../lib/comp/big_act.s7i" */ } } } else { /* line 533 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6803_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[557] /* "bigEq(" */); /* line 534 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(o_6801_param1, o_6803_c_expr); /* line 535 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6803_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 536 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6803_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6505_bigIntegerLiteral(o_6802_number)); /* line 537 "../lib/comp/big_act.s7i" */ { /* line 537 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 537 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6803_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 537 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 537 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 537 "../lib/comp/big_act.s7i" */ } else { /* line 537 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 537 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 537 "../lib/comp/big_act.s7i" */ } } } /* line 525 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } /* line 1 "no_file" */ /* 3823 */ /* line 542 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6805_BIG_EQ (const objRefType/*t_19_reference*/ o_6806_function, const listType/*t_20_ref_list*/ *const o_6807_params, structType/*t_164_expr_type*/ *const o_6808_c_expr) { /* line 546 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_6809_evaluatedParam=NULL; /* line 548 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6807_params, 3L), 10L, &(o_6809_evaluatedParam))) { { /* line 549 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 549 "../lib/comp/big_act.s7i" */ o_6800_process_const_big_eq(rflIdx(*o_6807_params, 1L), (tmp_1=bigValue(o_6809_evaluatedParam)), o_6808_c_expr); /* line 549 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else /* line 550 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6807_params, 1L), 10L, &(o_6809_evaluatedParam))) { { /* line 551 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 551 "../lib/comp/big_act.s7i" */ o_6800_process_const_big_eq(rflIdx(*o_6807_params, 3L), (tmp_1=bigValue(o_6809_evaluatedParam)), o_6808_c_expr); /* line 551 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else { /* line 553 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6808_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[557] /* "bigEq(" */); /* line 554 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_6807_params, 1L), o_6808_c_expr); /* line 555 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6808_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 556 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_6807_params, 3L), o_6808_c_expr); /* line 557 "../lib/comp/big_act.s7i" */ { /* line 557 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 557 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6808_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 557 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 557 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 557 "../lib/comp/big_act.s7i" */ } else { /* line 557 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 557 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 557 "../lib/comp/big_act.s7i" */ } } } } /* line 1 "no_file" */ /* 3824 */ /* line 562 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6810_BIG_FROM_BSTRI_BE (const objRefType/*t_19_reference*/ o_6811_function, const listType/*t_20_ref_list*/ *const o_6812_params, structType/*t_164_expr_type*/ *const o_6813_c_expr) { /* line 566 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6813_c_expr); /* line 567 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6813_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[558] /* "bigFromBStriBe(" */); /* line 568 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_6812_params, 1L), o_6813_c_expr); /* line 569 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6813_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 570 "../lib/comp/big_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6812_params, 2L), o_6813_c_expr); /* line 571 "../lib/comp/big_act.s7i" */ { /* line 571 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 571 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6813_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 571 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 571 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 571 "../lib/comp/big_act.s7i" */ } else { /* line 571 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 571 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 571 "../lib/comp/big_act.s7i" */ } } } /* line 1 "no_file" */ /* 3825 */ /* line 575 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6814_BIG_FROM_BSTRI_LE (const objRefType/*t_19_reference*/ o_6815_function, const listType/*t_20_ref_list*/ *const o_6816_params, structType/*t_164_expr_type*/ *const o_6817_c_expr) { /* line 579 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6817_c_expr); /* line 580 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6817_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[559] /* "bigFromBStriLe(" */); /* line 581 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_6816_params, 1L), o_6817_c_expr); /* line 582 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6817_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 583 "../lib/comp/big_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6816_params, 2L), o_6817_c_expr); /* line 584 "../lib/comp/big_act.s7i" */ { /* line 584 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 584 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6817_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 584 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 584 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 584 "../lib/comp/big_act.s7i" */ } else { /* line 584 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 584 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 584 "../lib/comp/big_act.s7i" */ } } } /* line 1 "no_file" */ /* 3826 */ /* line 588 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6818_BIG_GCD (const objRefType/*t_19_reference*/ o_6819_function, const listType/*t_20_ref_list*/ *const o_6820_params, structType/*t_164_expr_type*/ *const o_6821_c_expr) { /* line 592 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6821_c_expr); /* line 593 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6821_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[560] /* "bigGcd(" */); /* line 594 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_6820_params, 1L), o_6821_c_expr); /* line 595 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6821_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 596 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_6820_params, 2L), o_6821_c_expr); /* line 597 "../lib/comp/big_act.s7i" */ { /* line 597 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 597 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6821_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 597 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 597 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 597 "../lib/comp/big_act.s7i" */ } else { /* line 597 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 597 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 597 "../lib/comp/big_act.s7i" */ } } } /* line 1 "no_file" */ /* 3827 */ /* line 601 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6822_BIG_GE (const objRefType/*t_19_reference*/ o_6823_function, const listType/*t_20_ref_list*/ *const o_6824_params, structType/*t_164_expr_type*/ *const o_6825_c_expr) { /* line 605 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_6826_evaluatedParam=NULL; /* line 607 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6824_params, 3L), 10L, &(o_6826_evaluatedParam))) { { /* line 608 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 608 "../lib/comp/big_act.s7i" */ o_6761_process_const_big_cmp(rflIdx(*o_6824_params, 1L), (tmp_1=bigValue(o_6826_evaluatedParam)), o_6825_c_expr); /* line 608 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else /* line 609 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6824_params, 1L), 10L, &(o_6826_evaluatedParam))) { { /* line 610 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 610 "../lib/comp/big_act.s7i" */ o_6766_process_const_big_cmp((tmp_1=bigValue(o_6826_evaluatedParam)), rflIdx(*o_6824_params, 3L), o_6825_c_expr); /* line 610 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else { /* line 612 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6825_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[546] /* "bigCmp(" */); /* line 613 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_6824_params, 1L), o_6825_c_expr); /* line 614 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6825_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 615 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_6824_params, 3L), o_6825_c_expr); /* line 616 "../lib/comp/big_act.s7i" */ { /* line 616 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 616 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6825_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 616 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 616 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 616 "../lib/comp/big_act.s7i" */ } else { /* line 616 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 616 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 616 "../lib/comp/big_act.s7i" */ } } } /* line 618 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6825_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[561] /* " >= 0" */); } /* line 1 "no_file" */ /* 3828 */ /* line 622 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6827_process_const_big_grow (const objRefType/*t_19_reference*/ o_6828_param1, const const_bigIntType/*t_57_bigInteger*/ o_6829_delta, structType/*t_164_expr_type*/ *const o_6830_c_expr) { /* line 626 "../lib/comp/big_act.s7i" */ structType/*t_164_expr_type*/ o_6831_statement; /* line 626 "../lib/comp/big_act.s7i" */ o_6831_statement=create_164(sct[192]); /* line 628 "../lib/comp/big_act.s7i" */ if (bigEq(o_6829_delta, big[5] /* -1 */)) { /* line 629 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 630 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(o_6831_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[552] /* "bigDecr(&(" */); /* line 631 "../lib/comp/big_act.s7i" */ o_4941_process_expr(o_6828_param1, &(o_6831_statement)); /* line 632 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_6831_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); /* line 633 "../lib/comp/big_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_6831_statement, o_6830_c_expr); } else /* line 634 "../lib/comp/big_act.s7i" */ if (bigEqSignedDigit(o_6829_delta, 0L)) { /* line 635 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 636 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6830_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[562] /* "/* ignore bigInteger +:= 0_; *\/\n" */); } else /* line 637 "../lib/comp/big_act.s7i" */ if (bigEqSignedDigit(o_6829_delta, 1L)) { /* line 638 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 639 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(o_6831_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[563] /* "bigIncr(&(" */); /* line 640 "../lib/comp/big_act.s7i" */ o_4941_process_expr(o_6828_param1, &(o_6831_statement)); /* line 641 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_6831_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); /* line 642 "../lib/comp/big_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_6831_statement, o_6830_c_expr); } else { /* line 643 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 643 "../lib/comp/big_act.s7i" */ if (bigCmpSignedDigit((tmp_1=bigAbs(o_6829_delta)), 2147483647L) <= 0) { /* line 644 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 645 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(o_6831_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[564] /* "bigGrowSignedDigit(&(" */); /* line 646 "../lib/comp/big_act.s7i" */ o_4941_process_expr(o_6828_param1, &(o_6831_statement)); /* line 647 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_6831_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 648 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(o_6831_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(bigOrd(o_6829_delta))); /* line 649 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_6831_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 650 "../lib/comp/big_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_6831_statement, o_6830_c_expr); } else { /* line 652 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(o_6831_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[565] /* "bigGrow(&(" */); /* line 653 "../lib/comp/big_act.s7i" */ o_4941_process_expr(o_6828_param1, &(o_6831_statement)); /* line 654 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_6831_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 655 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(o_6831_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6505_bigIntegerLiteral(o_6829_delta)); /* line 656 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_6831_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 657 "../lib/comp/big_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_6831_statement, o_6830_c_expr); } /* line 643 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } /* line 622 "../lib/comp/big_act.s7i" */ destr_164(o_6831_statement); } /* line 1 "no_file" */ /* 3829 */ /* line 662 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6832_BIG_GROW (const objRefType/*t_19_reference*/ o_6833_function, const listType/*t_20_ref_list*/ *const o_6834_params, structType/*t_164_expr_type*/ *const o_6835_c_expr) { /* line 666 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_6836_evaluatedParam=NULL; /* line 667 "../lib/comp/big_act.s7i" */ structType/*t_164_expr_type*/ o_6837_statement; /* line 667 "../lib/comp/big_act.s7i" */ o_6837_statement=create_164(sct[193]); /* line 669 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6834_params, 3L), 10L, &(o_6836_evaluatedParam))) { { /* line 670 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 670 "../lib/comp/big_act.s7i" */ o_6827_process_const_big_grow(rflIdx(*o_6834_params, 1L), (tmp_1=bigValue(o_6836_evaluatedParam)), o_6835_c_expr); /* line 670 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else { /* line 672 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(o_6837_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[565] /* "bigGrow(&(" */); /* line 673 "../lib/comp/big_act.s7i" */ o_4941_process_expr(rflIdx(*o_6834_params, 1L), &(o_6837_statement)); /* line 674 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_6837_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 675 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_6834_params, 3L), &(o_6837_statement)); /* line 676 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_6837_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 677 "../lib/comp/big_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_6837_statement, o_6835_c_expr); } /* line 662 "../lib/comp/big_act.s7i" */ destr_164(o_6837_statement); } /* line 1 "no_file" */ /* 3830 */ /* line 682 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6838_BIG_GT (const objRefType/*t_19_reference*/ o_6839_function, const listType/*t_20_ref_list*/ *const o_6840_params, structType/*t_164_expr_type*/ *const o_6841_c_expr) { /* line 686 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_6842_evaluatedParam=NULL; /* line 688 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6840_params, 3L), 10L, &(o_6842_evaluatedParam))) { { /* line 689 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 689 "../lib/comp/big_act.s7i" */ o_6761_process_const_big_cmp(rflIdx(*o_6840_params, 1L), (tmp_1=bigValue(o_6842_evaluatedParam)), o_6841_c_expr); /* line 689 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else /* line 690 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6840_params, 1L), 10L, &(o_6842_evaluatedParam))) { { /* line 691 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 691 "../lib/comp/big_act.s7i" */ o_6766_process_const_big_cmp((tmp_1=bigValue(o_6842_evaluatedParam)), rflIdx(*o_6840_params, 3L), o_6841_c_expr); /* line 691 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else { /* line 693 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6841_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[546] /* "bigCmp(" */); /* line 694 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_6840_params, 1L), o_6841_c_expr); /* line 695 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6841_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 696 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_6840_params, 3L), o_6841_c_expr); /* line 697 "../lib/comp/big_act.s7i" */ { /* line 697 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 697 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6841_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 697 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 697 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 697 "../lib/comp/big_act.s7i" */ } else { /* line 697 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 697 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 697 "../lib/comp/big_act.s7i" */ } } } /* line 699 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6841_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[566] /* " > 0" */); } /* line 1 "no_file" */ /* 3831 */ /* line 703 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6843_BIG_HASHCODE (const objRefType/*t_19_reference*/ o_6844_function, const listType/*t_20_ref_list*/ *const o_6845_params, structType/*t_164_expr_type*/ *const o_6846_c_expr) { /* line 707 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6846_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[567] /* "bigHashCode(" */); /* line 708 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_6845_params, 1L), o_6846_c_expr); /* line 709 "../lib/comp/big_act.s7i" */ { /* line 709 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 709 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6846_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 709 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 709 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 709 "../lib/comp/big_act.s7i" */ } else { /* line 709 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 709 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 709 "../lib/comp/big_act.s7i" */ } } } /* line 1 "no_file" */ /* 3832 */ /* line 713 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6847_BIG_ICONV (const objRefType/*t_19_reference*/ o_6848_function, const listType/*t_20_ref_list*/ *const o_6849_params, structType/*t_164_expr_type*/ *const o_6850_c_expr) { /* line 717 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6850_c_expr); /* line 718 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6850_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[568] /* "bigIConv(" */); /* line 719 "../lib/comp/big_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6849_params, 3L), o_6850_c_expr); /* line 720 "../lib/comp/big_act.s7i" */ { /* line 720 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 720 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6850_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 720 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 720 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 720 "../lib/comp/big_act.s7i" */ } else { /* line 720 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 720 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 720 "../lib/comp/big_act.s7i" */ } } } /* line 1 "no_file" */ /* 3833 */ /* line 724 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6851_BIG_INCR (const objRefType/*t_19_reference*/ o_6852_function, const listType/*t_20_ref_list*/ *const o_6853_params, structType/*t_164_expr_type*/ *const o_6854_c_expr) { /* line 728 "../lib/comp/big_act.s7i" */ o_4819_setDiagnosticLine(o_6854_c_expr); /* line 729 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6854_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[563] /* "bigIncr(&(" */); /* line 730 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_6853_params, 1L), o_6854_c_expr); /* line 731 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6854_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); } /* line 1 "no_file" */ /* 3834 */ /* line 735 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6855_process_const_big_ipow (const objRefType/*t_19_reference*/ o_6856_base, const intType/*t_14_integer*/ o_6857_exponent, structType/*t_164_expr_type*/ *const o_6858_c_expr) { /* line 739 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_6859_evaluatedBase=NULL; /* line 740 "../lib/comp/big_act.s7i" */ bigIntType/*t_57_bigInteger*/ o_6860_bigNumber; /* line 740 "../lib/comp/big_act.s7i" */ o_6860_bigNumber=bigZero(); /* 0_ */ /* line 742 "../lib/comp/big_act.s7i" */ if ((o_6857_exponent) < (0L)) { /* line 743 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 744 "../lib/comp/big_act.s7i" */ o_6531_DOES_RAISE(&str[553] /* "NUMERIC_ERROR" */, *o_6858_c_expr); /* line 745 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6858_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6528_bigRaiseError(&str[553] /* "NUMERIC_ERROR" */)); } else /* line 746 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(o_6856_base, 10L, &(o_6859_evaluatedBase))) { /* line 747 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); { /* line 748 "../lib/comp/big_act.s7i" */ bigIntType tmp_2 = NULL; { /* line 748 "../lib/comp/big_act.s7i" */ bigIntType old_big=o_6860_bigNumber; /* line 748 "../lib/comp/big_act.s7i" */ o_6860_bigNumber=bigIPow((tmp_2=bigValue(o_6859_evaluatedBase)), o_6857_exponent); /* line 748 "../lib/comp/big_act.s7i" */ bigDestr(old_big); } /* line 748 "../lib/comp/big_act.s7i" */ bigDestr(tmp_2); } /* line 749 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6858_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6505_bigIntegerLiteral(o_6860_bigNumber)); } else /* line 750 "../lib/comp/big_act.s7i" */ if ((o_6857_exponent) == (0L)) { /* line 751 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 752 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6858_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6505_bigIntegerLiteral(big[2] /* 1 */)); } else /* line 753 "../lib/comp/big_act.s7i" */ if ((o_6857_exponent) == (1L)) { /* line 754 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 755 "../lib/comp/big_act.s7i" */ o_4941_process_expr(o_6856_base, o_6858_c_expr); } else /* line 756 "../lib/comp/big_act.s7i" */ if ((o_6857_exponent) == (2L)) { /* line 757 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 758 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6858_c_expr); /* line 759 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6858_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[569] /* "bigSquare(" */); /* line 760 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(o_6856_base, o_6858_c_expr); /* line 761 "../lib/comp/big_act.s7i" */ { /* line 761 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 761 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6858_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 761 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 761 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 761 "../lib/comp/big_act.s7i" */ } else { /* line 761 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 761 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 761 "../lib/comp/big_act.s7i" */ } } } else { /* line 763 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6858_c_expr); /* line 764 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6858_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[570] /* "bigIPow(" */); /* line 765 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(o_6856_base, o_6858_c_expr); /* line 766 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6858_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); { /* line 767 "../lib/comp/big_act.s7i" */ union { /* line 767 "../lib/comp/big_act.s7i" */ struct striStruct striBuf; /* line 767 "../lib/comp/big_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 767 "../lib/comp/big_act.s7i" */ } buffer_1; /* line 767 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6858_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), intStrToBuffer(o_6857_exponent, &buffer_1.striBuf)); } /* line 768 "../lib/comp/big_act.s7i" */ { /* line 768 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 768 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6858_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 768 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 768 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 768 "../lib/comp/big_act.s7i" */ } else { /* line 768 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 768 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 768 "../lib/comp/big_act.s7i" */ } } } /* line 735 "../lib/comp/big_act.s7i" */ bigDestr(o_6860_bigNumber); } /* line 1 "no_file" */ /* 3835 */ /* line 773 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6861_process_const_big_ipow (const const_bigIntType/*t_57_bigInteger*/ o_6862_base, const objRefType/*t_19_reference*/ o_6863_exponent, structType/*t_164_expr_type*/ *const o_6864_c_expr) { /* line 777 "../lib/comp/big_act.s7i" */ striType/*t_15_string*/ o_6865_exponent_name; /* line 777 "../lib/comp/big_act.s7i" */ o_6865_exponent_name=strEmpty(); /* "" */ /* line 779 "../lib/comp/big_act.s7i" */ if (bigEq(o_6862_base, big[5] /* -1 */)) { /* line 780 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 781 "../lib/comp/big_act.s7i" */ { /* line 781 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 781 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 781 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 781 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 781 "../lib/comp/big_act.s7i" */ } else { /* line 781 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 781 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 781 "../lib/comp/big_act.s7i" */ } } { /* line 782 "../lib/comp/big_act.s7i" */ striType old_stri=o_6865_exponent_name; /* line 782 "../lib/comp/big_act.s7i" */ o_6865_exponent_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_6863_exponent, o_6864_c_expr); /* line 782 "../lib/comp/big_act.s7i" */ strDestr(old_stri); } /* line 783 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[571] /* "numChk(" */); /* line 784 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6865_exponent_name); /* line 785 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[572] /* "<0)?" */); /* line 786 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6528_bigRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 787 "../lib/comp/big_act.s7i" */ { /* line 787 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 787 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 787 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 787 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 787 "../lib/comp/big_act.s7i" */ } else { /* line 787 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 787 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 787 "../lib/comp/big_act.s7i" */ } } /* line 788 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6865_exponent_name); /* line 789 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[573] /* "&1?" */); /* line 790 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6505_bigIntegerLiteral(big[5] /* -1 */)); /* line 791 "../lib/comp/big_act.s7i" */ { /* line 791 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 791 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 791 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 791 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 791 "../lib/comp/big_act.s7i" */ } else { /* line 791 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 791 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 791 "../lib/comp/big_act.s7i" */ } } /* line 792 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6505_bigIntegerLiteral(big[2] /* 1 */)); /* line 793 "../lib/comp/big_act.s7i" */ { /* line 793 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 793 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 793 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 793 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 793 "../lib/comp/big_act.s7i" */ } else { /* line 793 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 793 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 793 "../lib/comp/big_act.s7i" */ } } } else /* line 794 "../lib/comp/big_act.s7i" */ if (bigEqSignedDigit(o_6862_base, 0L)) { /* line 795 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 796 "../lib/comp/big_act.s7i" */ { /* line 796 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 796 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 796 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 796 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 796 "../lib/comp/big_act.s7i" */ } else { /* line 796 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 796 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 796 "../lib/comp/big_act.s7i" */ } } { /* line 797 "../lib/comp/big_act.s7i" */ striType old_stri=o_6865_exponent_name; /* line 797 "../lib/comp/big_act.s7i" */ o_6865_exponent_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_6863_exponent, o_6864_c_expr); /* line 797 "../lib/comp/big_act.s7i" */ strDestr(old_stri); } /* line 798 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[571] /* "numChk(" */); /* line 799 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6865_exponent_name); /* line 800 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[572] /* "<0)?" */); /* line 801 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6528_bigRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 802 "../lib/comp/big_act.s7i" */ { /* line 802 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 802 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 802 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 802 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 802 "../lib/comp/big_act.s7i" */ } else { /* line 802 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 802 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 802 "../lib/comp/big_act.s7i" */ } } /* line 803 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6865_exponent_name); /* line 804 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[574] /* "==0?" */); /* line 805 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6505_bigIntegerLiteral(big[2] /* 1 */)); /* line 806 "../lib/comp/big_act.s7i" */ { /* line 806 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 806 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 806 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 806 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 806 "../lib/comp/big_act.s7i" */ } else { /* line 806 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 806 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 806 "../lib/comp/big_act.s7i" */ } } /* line 807 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6505_bigIntegerLiteral(big[4] /* 0 */)); /* line 808 "../lib/comp/big_act.s7i" */ { /* line 808 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 808 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 808 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 808 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 808 "../lib/comp/big_act.s7i" */ } else { /* line 808 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 808 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 808 "../lib/comp/big_act.s7i" */ } } } else /* line 809 "../lib/comp/big_act.s7i" */ if (bigEqSignedDigit(o_6862_base, 1L)) { /* line 810 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 811 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[575] /* "(numChk((" */); /* line 812 "../lib/comp/big_act.s7i" */ o_4941_process_expr(o_6863_exponent, o_6864_c_expr); /* line 813 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[576] /* ")<0)?" */); /* line 814 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6528_bigRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 815 "../lib/comp/big_act.s7i" */ { /* line 815 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 815 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 815 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 815 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 815 "../lib/comp/big_act.s7i" */ } else { /* line 815 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 815 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 815 "../lib/comp/big_act.s7i" */ } } /* line 816 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6505_bigIntegerLiteral(big[2] /* 1 */)); /* line 817 "../lib/comp/big_act.s7i" */ { /* line 817 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 817 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 817 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 817 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 817 "../lib/comp/big_act.s7i" */ } else { /* line 817 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 817 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 817 "../lib/comp/big_act.s7i" */ } } } else { /* line 818 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 818 "../lib/comp/big_act.s7i" */ bigIntType tmp_3 = NULL; /* line 818 "../lib/comp/big_act.s7i" */ bigIntType tmp_2 = NULL; /* line 818 "../lib/comp/big_act.s7i" */ if ((bigCmpSignedDigit(o_6862_base, 0L) > 0) && /* line 818 "../lib/comp/big_act.s7i" */ (bigCmp((tmp_1=bigLog2(o_6862_base)), big[6] /* 9223372036854775807 */) <= 0) && /* line 819 "../lib/comp/big_act.s7i" */ (bigEq((tmp_2=bigLog2BaseIPow(1L, bigOrd((tmp_3=bigLog2(o_6862_base))))), o_6862_base))) { /* line 820 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 821 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6864_c_expr); /* line 822 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6864_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[577] /* "bigLog2BaseIPow(" */); { /* line 823 "../lib/comp/big_act.s7i" */ bigIntType tmp_2 = NULL; /* line 823 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6864_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6502_integerLiteral(bigOrd((tmp_2=bigLog2(o_6862_base))))); /* line 823 "../lib/comp/big_act.s7i" */ bigDestr(tmp_2); } /* line 824 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6864_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 825 "../lib/comp/big_act.s7i" */ o_4981_getStdParamToResultExpr(o_6863_exponent, o_6864_c_expr); /* line 826 "../lib/comp/big_act.s7i" */ { /* line 826 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 826 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6864_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 826 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 826 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 826 "../lib/comp/big_act.s7i" */ } else { /* line 826 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 826 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 826 "../lib/comp/big_act.s7i" */ } } } else { /* line 827 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 827 "../lib/comp/big_act.s7i" */ if (bigCmpSignedDigit((tmp_1=bigAbs(o_6862_base)), 2147483647L) <= 0) { /* line 828 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 829 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6864_c_expr); /* line 830 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6864_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[578] /* "bigIPowSignedDigit(" */); /* line 831 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6864_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6502_integerLiteral(bigOrd(o_6862_base))); /* line 832 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6864_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 833 "../lib/comp/big_act.s7i" */ o_4981_getStdParamToResultExpr(o_6863_exponent, o_6864_c_expr); /* line 834 "../lib/comp/big_act.s7i" */ { /* line 834 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 834 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6864_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 834 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 834 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 834 "../lib/comp/big_act.s7i" */ } else { /* line 834 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 834 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 834 "../lib/comp/big_act.s7i" */ } } } else { /* line 836 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6864_c_expr); /* line 837 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6864_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[570] /* "bigIPow(" */); /* line 838 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6864_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6505_bigIntegerLiteral(o_6862_base)); /* line 839 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6864_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 840 "../lib/comp/big_act.s7i" */ o_4981_getStdParamToResultExpr(o_6863_exponent, o_6864_c_expr); /* line 841 "../lib/comp/big_act.s7i" */ { /* line 841 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 841 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6864_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 841 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 841 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 841 "../lib/comp/big_act.s7i" */ } else { /* line 841 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 841 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 841 "../lib/comp/big_act.s7i" */ } } } /* line 827 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } /* line 818 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); /* line 818 "../lib/comp/big_act.s7i" */ bigDestr(tmp_3); /* line 818 "../lib/comp/big_act.s7i" */ bigDestr(tmp_2); } /* line 773 "../lib/comp/big_act.s7i" */ strDestr(o_6865_exponent_name); } /* line 1 "no_file" */ /* 3836 */ /* line 846 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6866_BIG_IPOW (const objRefType/*t_19_reference*/ o_6867_function, const listType/*t_20_ref_list*/ *const o_6868_params, structType/*t_164_expr_type*/ *const o_6869_c_expr) { /* line 850 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_6870_evaluatedParam=NULL; /* line 852 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6868_params, 3L), 9L, &(o_6870_evaluatedParam))) { /* line 853 "../lib/comp/big_act.s7i" */ o_6855_process_const_big_ipow(rflIdx(*o_6868_params, 1L), intValue(o_6870_evaluatedParam), o_6869_c_expr); } else /* line 854 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6868_params, 1L), 10L, &(o_6870_evaluatedParam))) { { /* line 855 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 855 "../lib/comp/big_act.s7i" */ o_6861_process_const_big_ipow((tmp_1=bigValue(o_6870_evaluatedParam)), rflIdx(*o_6868_params, 3L), o_6869_c_expr); /* line 855 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else { /* line 857 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6869_c_expr); /* line 858 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6869_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[570] /* "bigIPow(" */); /* line 859 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_6868_params, 1L), o_6869_c_expr); /* line 860 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6869_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 861 "../lib/comp/big_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6868_params, 3L), o_6869_c_expr); /* line 862 "../lib/comp/big_act.s7i" */ { /* line 862 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 862 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6869_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 862 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 862 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 862 "../lib/comp/big_act.s7i" */ } else { /* line 862 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 862 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 862 "../lib/comp/big_act.s7i" */ } } } } /* line 1 "no_file" */ /* 3837 */ /* line 867 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6871_BIG_LE (const objRefType/*t_19_reference*/ o_6872_function, const listType/*t_20_ref_list*/ *const o_6873_params, structType/*t_164_expr_type*/ *const o_6874_c_expr) { /* line 871 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_6875_evaluatedParam=NULL; /* line 873 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6873_params, 3L), 10L, &(o_6875_evaluatedParam))) { { /* line 874 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 874 "../lib/comp/big_act.s7i" */ o_6761_process_const_big_cmp(rflIdx(*o_6873_params, 1L), (tmp_1=bigValue(o_6875_evaluatedParam)), o_6874_c_expr); /* line 874 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else /* line 875 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6873_params, 1L), 10L, &(o_6875_evaluatedParam))) { { /* line 876 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 876 "../lib/comp/big_act.s7i" */ o_6766_process_const_big_cmp((tmp_1=bigValue(o_6875_evaluatedParam)), rflIdx(*o_6873_params, 3L), o_6874_c_expr); /* line 876 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else { /* line 878 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6874_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[546] /* "bigCmp(" */); /* line 879 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_6873_params, 1L), o_6874_c_expr); /* line 880 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6874_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 881 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_6873_params, 3L), o_6874_c_expr); /* line 882 "../lib/comp/big_act.s7i" */ { /* line 882 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 882 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6874_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 882 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 882 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 882 "../lib/comp/big_act.s7i" */ } else { /* line 882 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 882 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 882 "../lib/comp/big_act.s7i" */ } } } /* line 884 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6874_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[579] /* " <= 0" */); } /* line 1 "no_file" */ /* 3838 */ /* line 888 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6876_BIG_LOG10 (const objRefType/*t_19_reference*/ o_6877_function, const listType/*t_20_ref_list*/ *const o_6878_params, structType/*t_164_expr_type*/ *const o_6879_c_expr) { /* line 892 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6879_c_expr); /* line 893 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6879_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[580] /* "bigLog10(" */); /* line 894 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_6878_params, 1L), o_6879_c_expr); /* line 895 "../lib/comp/big_act.s7i" */ { /* line 895 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 895 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6879_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 895 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 895 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 895 "../lib/comp/big_act.s7i" */ } else { /* line 895 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 895 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 895 "../lib/comp/big_act.s7i" */ } } } /* line 1 "no_file" */ /* 3839 */ /* line 899 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6880_BIG_LOG2 (const objRefType/*t_19_reference*/ o_6881_function, const listType/*t_20_ref_list*/ *const o_6882_params, structType/*t_164_expr_type*/ *const o_6883_c_expr) { /* line 903 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6883_c_expr); /* line 904 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6883_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[581] /* "bigLog2(" */); /* line 905 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_6882_params, 1L), o_6883_c_expr); /* line 906 "../lib/comp/big_act.s7i" */ { /* line 906 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 906 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6883_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 906 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 906 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 906 "../lib/comp/big_act.s7i" */ } else { /* line 906 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 906 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 906 "../lib/comp/big_act.s7i" */ } } } /* line 1 "no_file" */ /* 3840 */ /* line 910 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6884_BIG_LOWEST_SET_BIT (const objRefType/*t_19_reference*/ o_6885_function, const listType/*t_20_ref_list*/ *const o_6886_params, structType/*t_164_expr_type*/ *const o_6887_c_expr) { /* line 914 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[582] /* "bigLowestSetBit(" */); /* line 915 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_6886_params, 1L), o_6887_c_expr); /* line 916 "../lib/comp/big_act.s7i" */ { /* line 916 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 916 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6887_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 916 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 916 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 916 "../lib/comp/big_act.s7i" */ } else { /* line 916 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 916 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 916 "../lib/comp/big_act.s7i" */ } } } /* line 1 "no_file" */ /* 3841 */ /* line 920 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6888_process_const_big_lshift (const const_bigIntType/*t_57_bigInteger*/ o_6889_number, const objRefType/*t_19_reference*/ o_6890_param3, structType/*t_164_expr_type*/ *const o_6891_c_expr) { /* line 924 "../lib/comp/big_act.s7i" */ bigIntType/*t_57_bigInteger*/ o_6892_bigNumber; /* line 924 "../lib/comp/big_act.s7i" */ o_6892_bigNumber=bigZero(); /* 0_ */ /* line 931 "../lib/comp/big_act.s7i" */ if (bigEqSignedDigit(o_6889_number, 0L)) { /* line 932 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 933 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6891_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6505_bigIntegerLiteral(big[4] /* 0 */)); } else /* line 934 "../lib/comp/big_act.s7i" */ if (bigEqSignedDigit(o_6889_number, 1L)) { /* line 935 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 936 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6891_c_expr); /* line 937 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6891_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[583] /* "bigLShiftOne(" */); /* line 938 "../lib/comp/big_act.s7i" */ o_4981_getStdParamToResultExpr(o_6890_param3, o_6891_c_expr); /* line 939 "../lib/comp/big_act.s7i" */ { /* line 939 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 939 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6891_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 939 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 939 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 939 "../lib/comp/big_act.s7i" */ } else { /* line 939 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 939 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 939 "../lib/comp/big_act.s7i" */ } } } else { /* line 941 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6891_c_expr); /* line 942 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6891_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[541] /* "bigLShift(" */); /* line 943 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6891_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6505_bigIntegerLiteral(o_6889_number)); /* line 944 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6891_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 945 "../lib/comp/big_act.s7i" */ o_4981_getStdParamToResultExpr(o_6890_param3, o_6891_c_expr); /* line 946 "../lib/comp/big_act.s7i" */ { /* line 946 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 946 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6891_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 946 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 946 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 946 "../lib/comp/big_act.s7i" */ } else { /* line 946 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 946 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 946 "../lib/comp/big_act.s7i" */ } } } /* line 920 "../lib/comp/big_act.s7i" */ bigDestr(o_6892_bigNumber); } /* line 1 "no_file" */ /* 3842 */ /* line 951 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6893_process_const_big_lshift (const objRefType/*t_19_reference*/ o_6894_param1, const intType/*t_14_integer*/ o_6895_lshift, structType/*t_164_expr_type*/ *const o_6896_c_expr) { /* line 955 "../lib/comp/big_act.s7i" */ striType/*t_15_string*/ o_6897_bigint_name; /* line 956 "../lib/comp/big_act.s7i" */ structType/*t_164_expr_type*/ o_6898_c_param1; /* line 955 "../lib/comp/big_act.s7i" */ o_6897_bigint_name=strEmpty(); /* "" */ /* line 956 "../lib/comp/big_act.s7i" */ o_6898_c_param1=create_164(sct[194]); /* line 958 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6896_c_expr); /* line 959 "../lib/comp/big_act.s7i" */ o_4963_prepareAnyParamTemporarys(o_6894_param1, &(o_6898_c_param1), o_6896_c_expr); /* line 960 "../lib/comp/big_act.s7i" */ if (((((structType)(o_6898_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 961 "../lib/comp/big_act.s7i" */ ++(((structType)(*o_6896_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 962 "../lib/comp/big_act.s7i" */ union { /* line 962 "../lib/comp/big_act.s7i" */ struct striStruct striBuf; /* line 962 "../lib/comp/big_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 962 "../lib/comp/big_act.s7i" */ } buffer_2; /* line 962 "../lib/comp/big_act.s7i" */ striType old_stri=o_6897_bigint_name; /* line 962 "../lib/comp/big_act.s7i" */ o_6897_bigint_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_6896_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 962 "../lib/comp/big_act.s7i" */ strDestr(old_stri); } /* line 963 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6896_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[584] /* "bigIntType " */); /* line 964 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6896_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_6897_bigint_name); /* line 965 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6896_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 966 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6896_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[585] /* "(bigLShiftAssign((" */); /* line 967 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6896_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6897_bigint_name); /* line 968 "../lib/comp/big_act.s7i" */ { /* line 968 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 968 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6896_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 968 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 968 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 968 "../lib/comp/big_act.s7i" */ } else { /* line 968 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 968 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 968 "../lib/comp/big_act.s7i" */ } } /* line 969 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6896_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6898_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 970 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6896_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[421] /* ", &" */); /* line 971 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6896_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6897_bigint_name); /* line 972 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6896_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[267] /* "), " */); /* line 973 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6896_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6502_integerLiteral(o_6895_lshift)); /* line 974 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6896_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[267] /* "), " */); /* line 975 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6896_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6897_bigint_name); } else { /* line 977 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6896_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[541] /* "bigLShift(" */); /* line 978 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6896_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6898_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 979 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6896_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 980 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6896_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6502_integerLiteral(o_6895_lshift)); } /* line 982 "../lib/comp/big_act.s7i" */ { /* line 982 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 982 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6896_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 982 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 982 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 982 "../lib/comp/big_act.s7i" */ } else { /* line 982 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 982 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 982 "../lib/comp/big_act.s7i" */ } } /* line 951 "../lib/comp/big_act.s7i" */ strDestr(o_6897_bigint_name); /* line 951 "../lib/comp/big_act.s7i" */ destr_164(o_6898_c_param1); } /* line 1 "no_file" */ /* 3843 */ /* line 986 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6899_BIG_LSHIFT (const objRefType/*t_19_reference*/ o_6900_function, const listType/*t_20_ref_list*/ *const o_6901_params, structType/*t_164_expr_type*/ *const o_6902_c_expr) { /* line 990 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_6903_evaluatedParam=NULL; /* line 991 "../lib/comp/big_act.s7i" */ striType/*t_15_string*/ o_6904_bigint_name; /* line 992 "../lib/comp/big_act.s7i" */ structType/*t_164_expr_type*/ o_6905_c_param1; /* line 991 "../lib/comp/big_act.s7i" */ o_6904_bigint_name=strEmpty(); /* "" */ /* line 992 "../lib/comp/big_act.s7i" */ o_6905_c_param1=create_164(sct[195]); /* line 994 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6901_params, 1L), 10L, &(o_6903_evaluatedParam))) { { /* line 995 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 995 "../lib/comp/big_act.s7i" */ o_6888_process_const_big_lshift((tmp_1=bigValue(o_6903_evaluatedParam)), rflIdx(*o_6901_params, 3L), o_6902_c_expr); /* line 995 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else { /* line 997 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6902_c_expr); /* line 998 "../lib/comp/big_act.s7i" */ o_4963_prepareAnyParamTemporarys(rflIdx(*o_6901_params, 1L), &(o_6905_c_param1), o_6902_c_expr); /* line 999 "../lib/comp/big_act.s7i" */ if (((((structType)(o_6905_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 1000 "../lib/comp/big_act.s7i" */ ++(((structType)(*o_6902_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 1001 "../lib/comp/big_act.s7i" */ union { /* line 1001 "../lib/comp/big_act.s7i" */ struct striStruct striBuf; /* line 1001 "../lib/comp/big_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1001 "../lib/comp/big_act.s7i" */ } buffer_2; /* line 1001 "../lib/comp/big_act.s7i" */ striType old_stri=o_6904_bigint_name; /* line 1001 "../lib/comp/big_act.s7i" */ o_6904_bigint_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_6902_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 1001 "../lib/comp/big_act.s7i" */ strDestr(old_stri); } /* line 1002 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6902_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[584] /* "bigIntType " */); /* line 1003 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6902_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_6904_bigint_name); /* line 1004 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6902_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 1005 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6902_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[585] /* "(bigLShiftAssign((" */); /* line 1006 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6902_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6904_bigint_name); /* line 1007 "../lib/comp/big_act.s7i" */ { /* line 1007 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1007 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6902_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1007 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1007 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 1007 "../lib/comp/big_act.s7i" */ } else { /* line 1007 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 1007 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1007 "../lib/comp/big_act.s7i" */ } } /* line 1008 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6902_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6905_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1009 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6902_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[421] /* ", &" */); /* line 1010 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6902_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6904_bigint_name); /* line 1011 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6902_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[267] /* "), " */); /* line 1012 "../lib/comp/big_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6901_params, 3L), o_6902_c_expr); /* line 1013 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6902_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[267] /* "), " */); /* line 1014 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6902_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6904_bigint_name); } else { /* line 1016 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6902_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[541] /* "bigLShift(" */); /* line 1017 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6902_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6905_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1018 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6902_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1019 "../lib/comp/big_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6901_params, 3L), o_6902_c_expr); } /* line 1021 "../lib/comp/big_act.s7i" */ { /* line 1021 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1021 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6902_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1021 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1021 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1021 "../lib/comp/big_act.s7i" */ } else { /* line 1021 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1021 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1021 "../lib/comp/big_act.s7i" */ } } } /* line 986 "../lib/comp/big_act.s7i" */ strDestr(o_6904_bigint_name); /* line 986 "../lib/comp/big_act.s7i" */ destr_164(o_6905_c_param1); } /* line 1 "no_file" */ /* 3844 */ /* line 1026 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6906_BIG_LSHIFT_ASSIGN (const objRefType/*t_19_reference*/ o_6907_function, const listType/*t_20_ref_list*/ *const o_6908_params, structType/*t_164_expr_type*/ *const o_6909_c_expr) { /* line 1030 "../lib/comp/big_act.s7i" */ structType/*t_164_expr_type*/ o_6910_statement; /* line 1030 "../lib/comp/big_act.s7i" */ o_6910_statement=create_164(sct[196]); /* line 1032 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(o_6910_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[586] /* "bigLShiftAssign(&(" */); /* line 1033 "../lib/comp/big_act.s7i" */ o_4941_process_expr(rflIdx(*o_6908_params, 1L), &(o_6910_statement)); /* line 1034 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_6910_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 1035 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_6908_params, 3L), &(o_6910_statement)); /* line 1036 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_6910_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 1037 "../lib/comp/big_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_6910_statement, o_6909_c_expr); /* line 1026 "../lib/comp/big_act.s7i" */ destr_164(o_6910_statement); } /* line 1 "no_file" */ /* 3845 */ /* line 1041 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6911_BIG_LT (const objRefType/*t_19_reference*/ o_6912_function, const listType/*t_20_ref_list*/ *const o_6913_params, structType/*t_164_expr_type*/ *const o_6914_c_expr) { /* line 1045 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_6915_evaluatedParam=NULL; /* line 1047 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6913_params, 3L), 10L, &(o_6915_evaluatedParam))) { { /* line 1048 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 1048 "../lib/comp/big_act.s7i" */ o_6761_process_const_big_cmp(rflIdx(*o_6913_params, 1L), (tmp_1=bigValue(o_6915_evaluatedParam)), o_6914_c_expr); /* line 1048 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else /* line 1049 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6913_params, 1L), 10L, &(o_6915_evaluatedParam))) { { /* line 1050 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 1050 "../lib/comp/big_act.s7i" */ o_6766_process_const_big_cmp((tmp_1=bigValue(o_6915_evaluatedParam)), rflIdx(*o_6913_params, 3L), o_6914_c_expr); /* line 1050 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else { /* line 1052 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6914_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[546] /* "bigCmp(" */); /* line 1053 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_6913_params, 1L), o_6914_c_expr); /* line 1054 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6914_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 1055 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_6913_params, 3L), o_6914_c_expr); /* line 1056 "../lib/comp/big_act.s7i" */ { /* line 1056 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1056 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6914_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1056 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1056 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1056 "../lib/comp/big_act.s7i" */ } else { /* line 1056 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1056 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1056 "../lib/comp/big_act.s7i" */ } } } /* line 1058 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6914_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[587] /* " < 0" */); } /* line 1 "no_file" */ /* 3846 */ /* line 1062 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6916_process_const_big_rshift (const objRefType/*t_19_reference*/ o_6917_param1, const intType/*t_14_integer*/ o_6918_rshift, structType/*t_164_expr_type*/ *const o_6919_c_expr) { /* line 1066 "../lib/comp/big_act.s7i" */ striType/*t_15_string*/ o_6920_bigint_name; /* line 1067 "../lib/comp/big_act.s7i" */ structType/*t_164_expr_type*/ o_6921_c_param1; /* line 1066 "../lib/comp/big_act.s7i" */ o_6920_bigint_name=strEmpty(); /* "" */ /* line 1067 "../lib/comp/big_act.s7i" */ o_6921_c_param1=create_164(sct[197]); /* line 1069 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6919_c_expr); /* line 1070 "../lib/comp/big_act.s7i" */ o_4963_prepareAnyParamTemporarys(o_6917_param1, &(o_6921_c_param1), o_6919_c_expr); /* line 1071 "../lib/comp/big_act.s7i" */ if (((((structType)(o_6921_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 1072 "../lib/comp/big_act.s7i" */ ++(((structType)(*o_6919_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 1073 "../lib/comp/big_act.s7i" */ union { /* line 1073 "../lib/comp/big_act.s7i" */ struct striStruct striBuf; /* line 1073 "../lib/comp/big_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1073 "../lib/comp/big_act.s7i" */ } buffer_2; /* line 1073 "../lib/comp/big_act.s7i" */ striType old_stri=o_6920_bigint_name; /* line 1073 "../lib/comp/big_act.s7i" */ o_6920_bigint_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_6919_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 1073 "../lib/comp/big_act.s7i" */ strDestr(old_stri); } /* line 1074 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6919_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[584] /* "bigIntType " */); /* line 1075 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6919_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_6920_bigint_name); /* line 1076 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6919_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 1077 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6919_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[588] /* "(bigRShiftAssign((" */); /* line 1078 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6919_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6920_bigint_name); /* line 1079 "../lib/comp/big_act.s7i" */ { /* line 1079 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1079 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6919_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1079 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1079 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 1079 "../lib/comp/big_act.s7i" */ } else { /* line 1079 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 1079 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1079 "../lib/comp/big_act.s7i" */ } } /* line 1080 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6919_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6921_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1081 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6919_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[421] /* ", &" */); /* line 1082 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6919_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6920_bigint_name); /* line 1083 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6919_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[267] /* "), " */); /* line 1084 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6919_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6502_integerLiteral(o_6918_rshift)); /* line 1085 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6919_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[267] /* "), " */); /* line 1086 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6919_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6920_bigint_name); } else { /* line 1088 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6919_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[589] /* "bigRShift(" */); /* line 1089 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6919_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6921_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1090 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6919_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1091 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6919_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6502_integerLiteral(o_6918_rshift)); } /* line 1093 "../lib/comp/big_act.s7i" */ { /* line 1093 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1093 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6919_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1093 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1093 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1093 "../lib/comp/big_act.s7i" */ } else { /* line 1093 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1093 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1093 "../lib/comp/big_act.s7i" */ } } /* line 1062 "../lib/comp/big_act.s7i" */ strDestr(o_6920_bigint_name); /* line 1062 "../lib/comp/big_act.s7i" */ destr_164(o_6921_c_param1); } /* line 1 "no_file" */ /* 3847 */ /* line 1097 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6922_process_const_big_mdiv (const objRefType/*t_19_reference*/ o_6923_dividend, const const_bigIntType/*t_57_bigInteger*/ o_6924_divisor, structType/*t_164_expr_type*/ *const o_6925_c_expr) { /* line 1101 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_6926_evaluatedDividend=NULL; /* line 1102 "../lib/comp/big_act.s7i" */ bigIntType/*t_57_bigInteger*/ o_6927_quotient; /* line 1103 "../lib/comp/big_act.s7i" */ striType/*t_15_string*/ o_6928_bigint_name; /* line 1104 "../lib/comp/big_act.s7i" */ structType/*t_164_expr_type*/ o_6929_c_dividend; /* line 1102 "../lib/comp/big_act.s7i" */ o_6927_quotient=bigZero(); /* 0_ */ /* line 1103 "../lib/comp/big_act.s7i" */ o_6928_bigint_name=strEmpty(); /* "" */ /* line 1104 "../lib/comp/big_act.s7i" */ o_6929_c_dividend=create_164(sct[198]); /* line 1106 "../lib/comp/big_act.s7i" */ if (bigEqSignedDigit(o_6924_divisor, 0L)) { /* line 1107 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 1108 "../lib/comp/big_act.s7i" */ o_6531_DOES_RAISE(&str[553] /* "NUMERIC_ERROR" */, *o_6925_c_expr); /* line 1109 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6925_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6528_bigRaiseError(&str[553] /* "NUMERIC_ERROR" */)); } else /* line 1110 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(o_6923_dividend, 10L, &(o_6926_evaluatedDividend))) { /* line 1111 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); { /* line 1112 "../lib/comp/big_act.s7i" */ bigIntType tmp_2 = NULL; { /* line 1112 "../lib/comp/big_act.s7i" */ bigIntType old_big=o_6927_quotient; /* line 1112 "../lib/comp/big_act.s7i" */ o_6927_quotient=bigMDiv((tmp_2=bigValue(o_6926_evaluatedDividend)), o_6924_divisor); /* line 1112 "../lib/comp/big_act.s7i" */ bigDestr(old_big); } /* line 1112 "../lib/comp/big_act.s7i" */ bigDestr(tmp_2); } /* line 1113 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6925_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6505_bigIntegerLiteral(o_6927_quotient)); } else /* line 1114 "../lib/comp/big_act.s7i" */ if (bigEqSignedDigit(o_6924_divisor, 1L)) { /* line 1115 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 1116 "../lib/comp/big_act.s7i" */ { /* line 1116 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1116 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6925_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1116 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1116 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1116 "../lib/comp/big_act.s7i" */ } else { /* line 1116 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1116 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1116 "../lib/comp/big_act.s7i" */ } } /* line 1117 "../lib/comp/big_act.s7i" */ o_4941_process_expr(o_6923_dividend, o_6925_c_expr); /* line 1118 "../lib/comp/big_act.s7i" */ { /* line 1118 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1118 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6925_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1118 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1118 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1118 "../lib/comp/big_act.s7i" */ } else { /* line 1118 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1118 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1118 "../lib/comp/big_act.s7i" */ } } } else /* line 1119 "../lib/comp/big_act.s7i" */ if (bigEq(o_6924_divisor, big[5] /* -1 */)) { /* line 1120 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 1121 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6925_c_expr); /* line 1122 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6925_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[554] /* "bigNegate(" */); /* line 1123 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(o_6923_dividend, o_6925_c_expr); /* line 1124 "../lib/comp/big_act.s7i" */ { /* line 1124 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1124 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6925_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1124 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1124 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1124 "../lib/comp/big_act.s7i" */ } else { /* line 1124 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1124 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1124 "../lib/comp/big_act.s7i" */ } } } else { /* line 1125 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 1125 "../lib/comp/big_act.s7i" */ bigIntType tmp_3 = NULL; /* line 1125 "../lib/comp/big_act.s7i" */ bigIntType tmp_2 = NULL; /* line 1125 "../lib/comp/big_act.s7i" */ if ((bigCmpSignedDigit(o_6924_divisor, 0L) > 0) && /* line 1125 "../lib/comp/big_act.s7i" */ (bigCmp((tmp_1=bigLog2(o_6924_divisor)), big[6] /* 9223372036854775807 */) <= 0) && /* line 1126 "../lib/comp/big_act.s7i" */ (bigEq((tmp_2=bigLog2BaseIPow(1L, bigOrd((tmp_3=bigLog2(o_6924_divisor))))), o_6924_divisor))) { /* line 1127 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); { /* line 1128 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 1128 "../lib/comp/big_act.s7i" */ o_6916_process_const_big_rshift(o_6923_dividend, bigOrd((tmp_1=bigLog2(o_6924_divisor))), o_6925_c_expr); /* line 1128 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else { /* line 1129 "../lib/comp/big_act.s7i" */ bigIntType tmp_2 = NULL; /* line 1129 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 1129 "../lib/comp/big_act.s7i" */ bigIntType tmp_5 = NULL; /* line 1129 "../lib/comp/big_act.s7i" */ bigIntType tmp_4 = NULL; /* line 1129 "../lib/comp/big_act.s7i" */ bigIntType tmp_3 = NULL; /* line 1129 "../lib/comp/big_act.s7i" */ bigIntType tmp_6 = NULL; /* line 1129 "../lib/comp/big_act.s7i" */ if ((bigCmpSignedDigit(o_6924_divisor, 0L) < 0) && /* line 1129 "../lib/comp/big_act.s7i" */ (bigCmp((tmp_1=bigLog2((tmp_2=bigNegate(o_6924_divisor)))), big[6] /* 9223372036854775807 */) <= 0) && /* line 1130 "../lib/comp/big_act.s7i" */ (bigEq((tmp_3=bigLog2BaseIPow(1L, bigOrd((tmp_4=bigLog2((tmp_5=bigNegate(o_6924_divisor))))))), (tmp_6=bigNegate(o_6924_divisor))))) { /* line 1131 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 1132 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6925_c_expr); /* line 1133 "../lib/comp/big_act.s7i" */ ++(((structType)(*o_6925_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 1134 "../lib/comp/big_act.s7i" */ union { /* line 1134 "../lib/comp/big_act.s7i" */ struct striStruct striBuf; /* line 1134 "../lib/comp/big_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1134 "../lib/comp/big_act.s7i" */ } buffer_2; /* line 1134 "../lib/comp/big_act.s7i" */ striType old_stri=o_6928_bigint_name; /* line 1134 "../lib/comp/big_act.s7i" */ o_6928_bigint_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_6925_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 1134 "../lib/comp/big_act.s7i" */ strDestr(old_stri); } /* line 1135 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6925_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[584] /* "bigIntType " */); /* line 1136 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6925_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_6928_bigint_name); /* line 1137 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6925_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 1138 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6925_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[588] /* "(bigRShiftAssign((" */); /* line 1139 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6925_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6928_bigint_name); /* line 1140 "../lib/comp/big_act.s7i" */ { /* line 1140 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1140 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6925_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1140 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1140 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 1140 "../lib/comp/big_act.s7i" */ } else { /* line 1140 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 1140 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1140 "../lib/comp/big_act.s7i" */ } } /* line 1141 "../lib/comp/big_act.s7i" */ o_4963_prepareAnyParamTemporarys(o_6923_dividend, &(o_6929_c_dividend), o_6925_c_expr); /* line 1142 "../lib/comp/big_act.s7i" */ if (((((structType)(o_6929_c_dividend))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 1143 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6925_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[590] /* "bigNegateTemp(" */); /* line 1144 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6925_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6929_c_dividend))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 1146 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6925_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[554] /* "bigNegate(" */); /* line 1147 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6925_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6929_c_dividend))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 1149 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6925_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[591] /* "), &" */); /* line 1150 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6925_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6928_bigint_name); /* line 1151 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6925_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[267] /* "), " */); { /* line 1152 "../lib/comp/big_act.s7i" */ bigIntType tmp_3 = NULL; /* line 1152 "../lib/comp/big_act.s7i" */ bigIntType tmp_2 = NULL; /* line 1152 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6925_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6502_integerLiteral(bigOrd((tmp_2=bigLog2((tmp_3=bigNegate(o_6924_divisor))))))); /* line 1152 "../lib/comp/big_act.s7i" */ bigDestr(tmp_3); /* line 1152 "../lib/comp/big_act.s7i" */ bigDestr(tmp_2); } /* line 1153 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6925_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[267] /* "), " */); /* line 1154 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6925_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6928_bigint_name); /* line 1155 "../lib/comp/big_act.s7i" */ { /* line 1155 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1155 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6925_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1155 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1155 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1155 "../lib/comp/big_act.s7i" */ } else { /* line 1155 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1155 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1155 "../lib/comp/big_act.s7i" */ } } } else { /* line 1157 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6925_c_expr); /* line 1158 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6925_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[592] /* "bigMDiv(" */); /* line 1159 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(o_6923_dividend, o_6925_c_expr); /* line 1160 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6925_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1161 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6925_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6505_bigIntegerLiteral(o_6924_divisor)); /* line 1162 "../lib/comp/big_act.s7i" */ { /* line 1162 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1162 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6925_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1162 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1162 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1162 "../lib/comp/big_act.s7i" */ } else { /* line 1162 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1162 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1162 "../lib/comp/big_act.s7i" */ } } } /* line 1129 "../lib/comp/big_act.s7i" */ bigDestr(tmp_2); /* line 1129 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); /* line 1129 "../lib/comp/big_act.s7i" */ bigDestr(tmp_5); /* line 1129 "../lib/comp/big_act.s7i" */ bigDestr(tmp_4); /* line 1129 "../lib/comp/big_act.s7i" */ bigDestr(tmp_3); /* line 1129 "../lib/comp/big_act.s7i" */ bigDestr(tmp_6); } /* line 1125 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); /* line 1125 "../lib/comp/big_act.s7i" */ bigDestr(tmp_3); /* line 1125 "../lib/comp/big_act.s7i" */ bigDestr(tmp_2); } /* line 1097 "../lib/comp/big_act.s7i" */ bigDestr(o_6927_quotient); /* line 1097 "../lib/comp/big_act.s7i" */ strDestr(o_6928_bigint_name); /* line 1097 "../lib/comp/big_act.s7i" */ destr_164(o_6929_c_dividend); } /* line 1 "no_file" */ /* 3848 */ /* line 1167 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6930_BIG_MDIV (const objRefType/*t_19_reference*/ o_6931_function, const listType/*t_20_ref_list*/ *const o_6932_params, structType/*t_164_expr_type*/ *const o_6933_c_expr) { /* line 1171 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_6934_evaluatedParam=NULL; /* line 1173 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6932_params, 3L), 10L, &(o_6934_evaluatedParam))) { { /* line 1174 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 1174 "../lib/comp/big_act.s7i" */ o_6922_process_const_big_mdiv(rflIdx(*o_6932_params, 1L), (tmp_1=bigValue(o_6934_evaluatedParam)), o_6933_c_expr); /* line 1174 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else { /* line 1176 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6933_c_expr); /* line 1177 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6933_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[592] /* "bigMDiv(" */); /* line 1178 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_6932_params, 1L), o_6933_c_expr); /* line 1179 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6933_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1180 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_6932_params, 3L), o_6933_c_expr); /* line 1181 "../lib/comp/big_act.s7i" */ { /* line 1181 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1181 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6933_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1181 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1181 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1181 "../lib/comp/big_act.s7i" */ } else { /* line 1181 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1181 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1181 "../lib/comp/big_act.s7i" */ } } } } /* line 1 "no_file" */ /* 3849 */ /* line 1186 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6935_process_const_big_mod (const objRefType/*t_19_reference*/ o_6936_dividend, const const_bigIntType/*t_57_bigInteger*/ o_6937_divisor, structType/*t_164_expr_type*/ *const o_6938_c_expr) { /* line 1190 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_6939_evaluatedDividend=NULL; /* line 1191 "../lib/comp/big_act.s7i" */ bigIntType/*t_57_bigInteger*/ o_6940_modulus; /* line 1192 "../lib/comp/big_act.s7i" */ structType/*t_164_expr_type*/ o_6941_c_dividend; /* line 1191 "../lib/comp/big_act.s7i" */ o_6940_modulus=bigZero(); /* 0_ */ /* line 1192 "../lib/comp/big_act.s7i" */ o_6941_c_dividend=create_164(sct[199]); /* line 1194 "../lib/comp/big_act.s7i" */ if (bigEqSignedDigit(o_6937_divisor, 0L)) { /* line 1195 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 1196 "../lib/comp/big_act.s7i" */ o_6531_DOES_RAISE(&str[553] /* "NUMERIC_ERROR" */, *o_6938_c_expr); /* line 1197 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6938_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6528_bigRaiseError(&str[553] /* "NUMERIC_ERROR" */)); } else /* line 1198 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(o_6936_dividend, 10L, &(o_6939_evaluatedDividend))) { /* line 1199 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); { /* line 1200 "../lib/comp/big_act.s7i" */ bigIntType tmp_2 = NULL; { /* line 1200 "../lib/comp/big_act.s7i" */ bigIntType old_big=o_6940_modulus; /* line 1200 "../lib/comp/big_act.s7i" */ o_6940_modulus=bigMod((tmp_2=bigValue(o_6939_evaluatedDividend)), o_6937_divisor); /* line 1200 "../lib/comp/big_act.s7i" */ bigDestr(old_big); } /* line 1200 "../lib/comp/big_act.s7i" */ bigDestr(tmp_2); } /* line 1201 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6938_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6505_bigIntegerLiteral(o_6940_modulus)); } else /* line 1202 "../lib/comp/big_act.s7i" */ if ((bigEqSignedDigit(o_6937_divisor, 1L)) || /* line 1202 "../lib/comp/big_act.s7i" */ (bigEq(o_6937_divisor, big[5] /* -1 */))) { /* line 1203 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 1204 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6938_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6505_bigIntegerLiteral(big[4] /* 0 */)); } else { /* line 1205 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 1205 "../lib/comp/big_act.s7i" */ bigIntType tmp_3 = NULL; /* line 1205 "../lib/comp/big_act.s7i" */ bigIntType tmp_2 = NULL; /* line 1205 "../lib/comp/big_act.s7i" */ if ((bigCmpSignedDigit(o_6937_divisor, 0L) > 0) && /* line 1205 "../lib/comp/big_act.s7i" */ (bigCmp((tmp_1=bigLog2(o_6937_divisor)), big[6] /* 9223372036854775807 */) <= 0) && /* line 1206 "../lib/comp/big_act.s7i" */ (bigEq((tmp_2=bigLog2BaseIPow(1L, bigOrd((tmp_3=bigLog2(o_6937_divisor))))), o_6937_divisor))) { /* line 1207 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 1208 "../lib/comp/big_act.s7i" */ o_4963_prepareAnyParamTemporarys(o_6936_dividend, &(o_6941_c_dividend), o_6938_c_expr); /* line 1209 "../lib/comp/big_act.s7i" */ if (((((structType)(o_6941_c_dividend))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 1210 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6938_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[593] /* "bigLowerBitsTemp(" */); /* line 1211 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6938_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6941_c_dividend))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 1213 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6938_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[594] /* "bigLowerBits(" */); /* line 1214 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6938_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6941_c_dividend))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 1216 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6938_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); { /* line 1217 "../lib/comp/big_act.s7i" */ bigIntType tmp_2 = NULL; /* line 1217 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6938_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6502_integerLiteral(bigOrd((tmp_2=bigLog2(o_6937_divisor))))); /* line 1217 "../lib/comp/big_act.s7i" */ bigDestr(tmp_2); } /* line 1218 "../lib/comp/big_act.s7i" */ { /* line 1218 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1218 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6938_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1218 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1218 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1218 "../lib/comp/big_act.s7i" */ } else { /* line 1218 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1218 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1218 "../lib/comp/big_act.s7i" */ } } } else { /* line 1219 "../lib/comp/big_act.s7i" */ bigIntType tmp_2 = NULL; /* line 1219 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 1219 "../lib/comp/big_act.s7i" */ bigIntType tmp_5 = NULL; /* line 1219 "../lib/comp/big_act.s7i" */ bigIntType tmp_4 = NULL; /* line 1219 "../lib/comp/big_act.s7i" */ bigIntType tmp_3 = NULL; /* line 1219 "../lib/comp/big_act.s7i" */ bigIntType tmp_6 = NULL; /* line 1219 "../lib/comp/big_act.s7i" */ if ((bigCmpSignedDigit(o_6937_divisor, 0L) < 0) && /* line 1219 "../lib/comp/big_act.s7i" */ (bigCmp((tmp_1=bigLog2((tmp_2=bigNegate(o_6937_divisor)))), big[6] /* 9223372036854775807 */) <= 0) && /* line 1220 "../lib/comp/big_act.s7i" */ (bigEq((tmp_3=bigLog2BaseIPow(1L, bigOrd((tmp_4=bigLog2((tmp_5=bigNegate(o_6937_divisor))))))), (tmp_6=bigNegate(o_6937_divisor))))) { /* line 1221 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 1222 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6938_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[595] /* "bigNegateTemp(bigLowerBitsTemp(" */); /* line 1223 "../lib/comp/big_act.s7i" */ o_4963_prepareAnyParamTemporarys(o_6936_dividend, &(o_6941_c_dividend), o_6938_c_expr); /* line 1224 "../lib/comp/big_act.s7i" */ if (((((structType)(o_6941_c_dividend))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 1225 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6938_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[590] /* "bigNegateTemp(" */); /* line 1226 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6938_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6941_c_dividend))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 1228 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6938_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[554] /* "bigNegate(" */); /* line 1229 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6938_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6941_c_dividend))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 1231 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6938_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[267] /* "), " */); { /* line 1232 "../lib/comp/big_act.s7i" */ bigIntType tmp_3 = NULL; /* line 1232 "../lib/comp/big_act.s7i" */ bigIntType tmp_2 = NULL; /* line 1232 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6938_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6502_integerLiteral(bigOrd((tmp_2=bigLog2((tmp_3=bigNegate(o_6937_divisor))))))); /* line 1232 "../lib/comp/big_act.s7i" */ bigDestr(tmp_3); /* line 1232 "../lib/comp/big_act.s7i" */ bigDestr(tmp_2); } /* line 1233 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6938_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[240] /* "))" */); } else { /* line 1235 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6938_c_expr); /* line 1236 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6938_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[596] /* "bigMod(" */); /* line 1237 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(o_6936_dividend, o_6938_c_expr); /* line 1238 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6938_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1239 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6938_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6505_bigIntegerLiteral(o_6937_divisor)); /* line 1240 "../lib/comp/big_act.s7i" */ { /* line 1240 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1240 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6938_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1240 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1240 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1240 "../lib/comp/big_act.s7i" */ } else { /* line 1240 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1240 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1240 "../lib/comp/big_act.s7i" */ } } } /* line 1219 "../lib/comp/big_act.s7i" */ bigDestr(tmp_2); /* line 1219 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); /* line 1219 "../lib/comp/big_act.s7i" */ bigDestr(tmp_5); /* line 1219 "../lib/comp/big_act.s7i" */ bigDestr(tmp_4); /* line 1219 "../lib/comp/big_act.s7i" */ bigDestr(tmp_3); /* line 1219 "../lib/comp/big_act.s7i" */ bigDestr(tmp_6); } /* line 1205 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); /* line 1205 "../lib/comp/big_act.s7i" */ bigDestr(tmp_3); /* line 1205 "../lib/comp/big_act.s7i" */ bigDestr(tmp_2); } /* line 1186 "../lib/comp/big_act.s7i" */ bigDestr(o_6940_modulus); /* line 1186 "../lib/comp/big_act.s7i" */ destr_164(o_6941_c_dividend); } /* line 1 "no_file" */ /* 3850 */ /* line 1245 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6942_BIG_MOD (const objRefType/*t_19_reference*/ o_6943_function, const listType/*t_20_ref_list*/ *const o_6944_params, structType/*t_164_expr_type*/ *const o_6945_c_expr) { /* line 1249 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_6946_evaluatedParam=NULL; /* line 1251 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6944_params, 3L), 10L, &(o_6946_evaluatedParam))) { { /* line 1252 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 1252 "../lib/comp/big_act.s7i" */ o_6935_process_const_big_mod(rflIdx(*o_6944_params, 1L), (tmp_1=bigValue(o_6946_evaluatedParam)), o_6945_c_expr); /* line 1252 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else { /* line 1254 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6945_c_expr); /* line 1255 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6945_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[596] /* "bigMod(" */); /* line 1256 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_6944_params, 1L), o_6945_c_expr); /* line 1257 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6945_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1258 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_6944_params, 3L), o_6945_c_expr); /* line 1259 "../lib/comp/big_act.s7i" */ { /* line 1259 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1259 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6945_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1259 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1259 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1259 "../lib/comp/big_act.s7i" */ } else { /* line 1259 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1259 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1259 "../lib/comp/big_act.s7i" */ } } } } /* line 1 "no_file" */ /* 3851 */ /* line 1264 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6947_process_const_big_mult (const objRefType/*t_19_reference*/ o_6948_param1, const const_bigIntType/*t_57_bigInteger*/ o_6949_factor, structType/*t_164_expr_type*/ *const o_6950_c_expr) { /* line 1268 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_6951_evaluatedParam=NULL; /* line 1269 "../lib/comp/big_act.s7i" */ bigIntType/*t_57_bigInteger*/ o_6952_product; /* line 1269 "../lib/comp/big_act.s7i" */ o_6952_product=bigZero(); /* 0_ */ /* line 1271 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(o_6948_param1, 10L, &(o_6951_evaluatedParam))) { /* line 1272 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); { /* line 1273 "../lib/comp/big_act.s7i" */ bigIntType tmp_2 = NULL; { /* line 1273 "../lib/comp/big_act.s7i" */ bigIntType old_big=o_6952_product; /* line 1273 "../lib/comp/big_act.s7i" */ o_6952_product=bigMult((tmp_2=bigValue(o_6951_evaluatedParam)), o_6949_factor); /* line 1273 "../lib/comp/big_act.s7i" */ bigDestr(old_big); } /* line 1273 "../lib/comp/big_act.s7i" */ bigDestr(tmp_2); } /* line 1274 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6950_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6505_bigIntegerLiteral(o_6952_product)); } else /* line 1275 "../lib/comp/big_act.s7i" */ if (bigEq(o_6949_factor, big[5] /* -1 */)) { /* line 1276 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 1277 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6950_c_expr); /* line 1278 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6950_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[554] /* "bigNegate(" */); /* line 1279 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(o_6948_param1, o_6950_c_expr); /* line 1280 "../lib/comp/big_act.s7i" */ { /* line 1280 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1280 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6950_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1280 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1280 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1280 "../lib/comp/big_act.s7i" */ } else { /* line 1280 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1280 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1280 "../lib/comp/big_act.s7i" */ } } } else /* line 1281 "../lib/comp/big_act.s7i" */ if (bigEqSignedDigit(o_6949_factor, 0L)) { /* line 1282 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 1283 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6950_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6505_bigIntegerLiteral(big[4] /* 0 */)); } else /* line 1284 "../lib/comp/big_act.s7i" */ if (bigEqSignedDigit(o_6949_factor, 1L)) { /* line 1285 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 1286 "../lib/comp/big_act.s7i" */ o_4941_process_expr(o_6948_param1, o_6950_c_expr); } else { /* line 1287 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 1287 "../lib/comp/big_act.s7i" */ bigIntType tmp_3 = NULL; /* line 1287 "../lib/comp/big_act.s7i" */ bigIntType tmp_2 = NULL; /* line 1287 "../lib/comp/big_act.s7i" */ if ((bigCmpSignedDigit(o_6949_factor, 1L) > 0) && /* line 1287 "../lib/comp/big_act.s7i" */ (bigCmp((tmp_1=bigLog2(o_6949_factor)), big[6] /* 9223372036854775807 */) <= 0) && /* line 1288 "../lib/comp/big_act.s7i" */ (bigEq((tmp_2=bigLog2BaseIPow(1L, bigOrd((tmp_3=bigLog2(o_6949_factor))))), o_6949_factor))) { /* line 1289 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); { /* line 1290 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 1290 "../lib/comp/big_act.s7i" */ o_6893_process_const_big_lshift(o_6948_param1, bigOrd((tmp_1=bigLog2(o_6949_factor))), o_6950_c_expr); /* line 1290 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else { /* line 1291 "../lib/comp/big_act.s7i" */ bigIntType tmp_2 = NULL; /* line 1291 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 1291 "../lib/comp/big_act.s7i" */ bigIntType tmp_5 = NULL; /* line 1291 "../lib/comp/big_act.s7i" */ bigIntType tmp_4 = NULL; /* line 1291 "../lib/comp/big_act.s7i" */ bigIntType tmp_3 = NULL; /* line 1291 "../lib/comp/big_act.s7i" */ bigIntType tmp_6 = NULL; /* line 1291 "../lib/comp/big_act.s7i" */ if ((bigCmpSignedDigit(o_6949_factor, 1L) < 0) && /* line 1291 "../lib/comp/big_act.s7i" */ (bigCmp((tmp_1=bigLog2((tmp_2=bigNegate(o_6949_factor)))), big[6] /* 9223372036854775807 */) <= 0) && /* line 1292 "../lib/comp/big_act.s7i" */ (bigEq((tmp_3=bigLog2BaseIPow(1L, bigOrd((tmp_4=bigLog2((tmp_5=bigNegate(o_6949_factor))))))), (tmp_6=bigNegate(o_6949_factor))))) { /* line 1293 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 1294 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6950_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[590] /* "bigNegateTemp(" */); { /* line 1295 "../lib/comp/big_act.s7i" */ bigIntType tmp_2 = NULL; /* line 1295 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 1295 "../lib/comp/big_act.s7i" */ o_6893_process_const_big_lshift(o_6948_param1, bigOrd((tmp_1=bigLog2((tmp_2=bigNegate(o_6949_factor))))), o_6950_c_expr); /* line 1295 "../lib/comp/big_act.s7i" */ bigDestr(tmp_2); /* line 1295 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } /* line 1296 "../lib/comp/big_act.s7i" */ { /* line 1296 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1296 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6950_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1296 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1296 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1296 "../lib/comp/big_act.s7i" */ } else { /* line 1296 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1296 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1296 "../lib/comp/big_act.s7i" */ } } } else { /* line 1297 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 1297 "../lib/comp/big_act.s7i" */ if (bigCmpSignedDigit((tmp_1=bigAbs(o_6949_factor)), 2147483647L) <= 0) { /* line 1298 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 1299 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6950_c_expr); /* line 1300 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6950_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[597] /* "bigMultSignedDigit(" */); /* line 1301 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(o_6948_param1, o_6950_c_expr); /* line 1302 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6950_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1303 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6950_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6502_integerLiteral(bigOrd(o_6949_factor))); /* line 1304 "../lib/comp/big_act.s7i" */ { /* line 1304 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1304 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6950_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1304 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1304 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1304 "../lib/comp/big_act.s7i" */ } else { /* line 1304 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1304 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1304 "../lib/comp/big_act.s7i" */ } } } else { /* line 1306 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6950_c_expr); /* line 1307 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6950_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[598] /* "bigMult(" */); /* line 1308 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(o_6948_param1, o_6950_c_expr); /* line 1309 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6950_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1310 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6950_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6505_bigIntegerLiteral(o_6949_factor)); /* line 1311 "../lib/comp/big_act.s7i" */ { /* line 1311 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1311 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6950_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1311 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1311 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1311 "../lib/comp/big_act.s7i" */ } else { /* line 1311 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1311 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1311 "../lib/comp/big_act.s7i" */ } } } /* line 1297 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } /* line 1291 "../lib/comp/big_act.s7i" */ bigDestr(tmp_2); /* line 1291 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); /* line 1291 "../lib/comp/big_act.s7i" */ bigDestr(tmp_5); /* line 1291 "../lib/comp/big_act.s7i" */ bigDestr(tmp_4); /* line 1291 "../lib/comp/big_act.s7i" */ bigDestr(tmp_3); /* line 1291 "../lib/comp/big_act.s7i" */ bigDestr(tmp_6); } /* line 1287 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); /* line 1287 "../lib/comp/big_act.s7i" */ bigDestr(tmp_3); /* line 1287 "../lib/comp/big_act.s7i" */ bigDestr(tmp_2); } /* line 1264 "../lib/comp/big_act.s7i" */ bigDestr(o_6952_product); } /* line 1 "no_file" */ /* 3852 */ /* line 1316 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6953_BIG_MULT (const objRefType/*t_19_reference*/ o_6954_function, const listType/*t_20_ref_list*/ *const o_6955_params, structType/*t_164_expr_type*/ *const o_6956_c_expr) { /* line 1320 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_6957_evaluatedParam=NULL; /* line 1322 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6955_params, 3L), 10L, &(o_6957_evaluatedParam))) { { /* line 1323 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 1323 "../lib/comp/big_act.s7i" */ o_6947_process_const_big_mult(rflIdx(*o_6955_params, 1L), (tmp_1=bigValue(o_6957_evaluatedParam)), o_6956_c_expr); /* line 1323 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else /* line 1324 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6955_params, 1L), 10L, &(o_6957_evaluatedParam))) { { /* line 1325 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 1325 "../lib/comp/big_act.s7i" */ o_6947_process_const_big_mult(rflIdx(*o_6955_params, 3L), (tmp_1=bigValue(o_6957_evaluatedParam)), o_6956_c_expr); /* line 1325 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else /* line 1326 "../lib/comp/big_act.s7i" */ if ((rflIdx(*o_6955_params, 1L)) == (rflIdx(*o_6955_params, 3L))) { /* line 1327 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 1328 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6956_c_expr); /* line 1329 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6956_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[569] /* "bigSquare(" */); /* line 1330 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_6955_params, 1L), o_6956_c_expr); /* line 1331 "../lib/comp/big_act.s7i" */ { /* line 1331 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1331 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6956_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1331 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1331 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1331 "../lib/comp/big_act.s7i" */ } else { /* line 1331 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1331 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1331 "../lib/comp/big_act.s7i" */ } } } else { /* line 1333 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6956_c_expr); /* line 1334 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6956_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[598] /* "bigMult(" */); /* line 1335 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_6955_params, 1L), o_6956_c_expr); /* line 1336 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6956_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1337 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_6955_params, 3L), o_6956_c_expr); /* line 1338 "../lib/comp/big_act.s7i" */ { /* line 1338 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1338 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6956_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1338 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1338 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1338 "../lib/comp/big_act.s7i" */ } else { /* line 1338 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1338 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1338 "../lib/comp/big_act.s7i" */ } } } } /* line 1 "no_file" */ /* 3853 */ /* line 1343 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6958_process_const_big_mult_assign (const objRefType/*t_19_reference*/ o_6959_param1, const const_bigIntType/*t_57_bigInteger*/ o_6960_factor, structType/*t_164_expr_type*/ *const o_6961_c_expr) { /* line 1347 "../lib/comp/big_act.s7i" */ structType/*t_164_expr_type*/ o_6962_statement; /* line 1347 "../lib/comp/big_act.s7i" */ o_6962_statement=create_164(sct[200]); /* line 1349 "../lib/comp/big_act.s7i" */ if (bigEqSignedDigit(o_6960_factor, 0L)) { /* line 1350 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 1351 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(o_6962_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[266] /* "bigCpy(&(" */); /* line 1352 "../lib/comp/big_act.s7i" */ o_4941_process_expr(o_6959_param1, &(o_6962_statement)); /* line 1353 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_6962_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 1354 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(o_6962_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6505_bigIntegerLiteral(big[4] /* 0 */)); /* line 1355 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_6962_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 1356 "../lib/comp/big_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_6962_statement, o_6961_c_expr); } else /* line 1357 "../lib/comp/big_act.s7i" */ if (bigEqSignedDigit(o_6960_factor, 1L)) { /* line 1358 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 1359 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6961_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[599] /* "/* ignore bigInteger *:= 1_; *\/\n" */); } else { /* line 1360 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 1360 "../lib/comp/big_act.s7i" */ bigIntType tmp_3 = NULL; /* line 1360 "../lib/comp/big_act.s7i" */ bigIntType tmp_2 = NULL; /* line 1360 "../lib/comp/big_act.s7i" */ if ((bigCmpSignedDigit(o_6960_factor, 1L) > 0) && /* line 1360 "../lib/comp/big_act.s7i" */ (bigCmp((tmp_1=bigLog2(o_6960_factor)), big[6] /* 9223372036854775807 */) <= 0) && /* line 1361 "../lib/comp/big_act.s7i" */ (bigEq((tmp_2=bigLog2BaseIPow(1L, bigOrd((tmp_3=bigLog2(o_6960_factor))))), o_6960_factor))) { /* line 1362 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 1363 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(o_6962_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[586] /* "bigLShiftAssign(&(" */); /* line 1364 "../lib/comp/big_act.s7i" */ o_4941_process_expr(o_6959_param1, &(o_6962_statement)); /* line 1365 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_6962_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); { /* line 1366 "../lib/comp/big_act.s7i" */ bigIntType tmp_2 = NULL; /* line 1366 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(o_6962_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(bigOrd((tmp_2=bigLog2(o_6960_factor))))); /* line 1366 "../lib/comp/big_act.s7i" */ bigDestr(tmp_2); } /* line 1367 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_6962_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 1368 "../lib/comp/big_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_6962_statement, o_6961_c_expr); } else { /* line 1370 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(o_6962_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[600] /* "bigMultAssign(&(" */); /* line 1371 "../lib/comp/big_act.s7i" */ o_4941_process_expr(o_6959_param1, &(o_6962_statement)); /* line 1372 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_6962_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 1373 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(o_6962_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6505_bigIntegerLiteral(o_6960_factor)); /* line 1374 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_6962_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 1375 "../lib/comp/big_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_6962_statement, o_6961_c_expr); } /* line 1360 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); /* line 1360 "../lib/comp/big_act.s7i" */ bigDestr(tmp_3); /* line 1360 "../lib/comp/big_act.s7i" */ bigDestr(tmp_2); } /* line 1343 "../lib/comp/big_act.s7i" */ destr_164(o_6962_statement); } /* line 1 "no_file" */ /* 3854 */ /* line 1380 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6963_BIG_MULT_ASSIGN (const objRefType/*t_19_reference*/ o_6964_function, const listType/*t_20_ref_list*/ *const o_6965_params, structType/*t_164_expr_type*/ *const o_6966_c_expr) { /* line 1384 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_6967_evaluatedParam=NULL; /* line 1385 "../lib/comp/big_act.s7i" */ structType/*t_164_expr_type*/ o_6968_statement; /* line 1385 "../lib/comp/big_act.s7i" */ o_6968_statement=create_164(sct[201]); /* line 1387 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6965_params, 3L), 10L, &(o_6967_evaluatedParam))) { { /* line 1388 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 1388 "../lib/comp/big_act.s7i" */ o_6958_process_const_big_mult_assign(rflIdx(*o_6965_params, 1L), (tmp_1=bigValue(o_6967_evaluatedParam)), o_6966_c_expr); /* line 1388 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else { /* line 1390 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(o_6968_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[600] /* "bigMultAssign(&(" */); /* line 1391 "../lib/comp/big_act.s7i" */ o_4941_process_expr(rflIdx(*o_6965_params, 1L), &(o_6968_statement)); /* line 1392 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_6968_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 1393 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_6965_params, 3L), &(o_6968_statement)); /* line 1394 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_6968_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 1395 "../lib/comp/big_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_6968_statement, o_6966_c_expr); } /* line 1380 "../lib/comp/big_act.s7i" */ destr_164(o_6968_statement); } /* line 1 "no_file" */ /* 3855 */ /* line 1400 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6969_BIG_NE (const objRefType/*t_19_reference*/ o_6970_function, const listType/*t_20_ref_list*/ *const o_6971_params, structType/*t_164_expr_type*/ *const o_6972_c_expr) { /* line 1404 "../lib/comp/big_act.s7i" */ { /* line 1404 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1404 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6972_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1404 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1404 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) '!'); /* line 1404 "../lib/comp/big_act.s7i" */ } else { /* line 1404 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '!'; /* line 1404 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1404 "../lib/comp/big_act.s7i" */ } } /* line 1405 "../lib/comp/big_act.s7i" */ o_6805_BIG_EQ(o_6970_function, o_6971_params, o_6972_c_expr); } /* line 1 "no_file" */ /* 3856 */ /* line 1409 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6973_BIG_NEGATE (const objRefType/*t_19_reference*/ o_6974_function, const listType/*t_20_ref_list*/ *const o_6975_params, structType/*t_164_expr_type*/ *const o_6976_c_expr) { /* line 1413 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_6977_evaluatedParam=NULL; /* line 1414 "../lib/comp/big_act.s7i" */ bigIntType/*t_57_bigInteger*/ o_6978_bigNumber; /* line 1415 "../lib/comp/big_act.s7i" */ structType/*t_164_expr_type*/ o_6979_c_param1; /* line 1414 "../lib/comp/big_act.s7i" */ o_6978_bigNumber=bigZero(); /* 0_ */ /* line 1415 "../lib/comp/big_act.s7i" */ o_6979_c_param1=create_164(sct[202]); /* line 1417 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_6975_params, 2L), 10L, &(o_6977_evaluatedParam))) { /* line 1418 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); { { /* line 1419 "../lib/comp/big_act.s7i" */ bigIntType old_big=o_6978_bigNumber; /* line 1419 "../lib/comp/big_act.s7i" */ o_6978_bigNumber=bigNegateTemp(bigValue(o_6977_evaluatedParam)); /* line 1419 "../lib/comp/big_act.s7i" */ bigDestr(old_big); } } /* line 1420 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_6976_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6505_bigIntegerLiteral(o_6978_bigNumber)); } else { /* line 1422 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6976_c_expr); /* line 1423 "../lib/comp/big_act.s7i" */ o_4963_prepareAnyParamTemporarys(rflIdx(*o_6975_params, 2L), &(o_6979_c_param1), o_6976_c_expr); /* line 1424 "../lib/comp/big_act.s7i" */ if (((((structType)(o_6979_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 1425 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6976_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[590] /* "bigNegateTemp(" */); /* line 1426 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6976_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6979_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 1428 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6976_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[554] /* "bigNegate(" */); /* line 1429 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6976_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_6979_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 1431 "../lib/comp/big_act.s7i" */ { /* line 1431 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1431 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6976_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1431 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1431 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1431 "../lib/comp/big_act.s7i" */ } else { /* line 1431 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1431 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1431 "../lib/comp/big_act.s7i" */ } } } /* line 1409 "../lib/comp/big_act.s7i" */ bigDestr(o_6978_bigNumber); /* line 1409 "../lib/comp/big_act.s7i" */ destr_164(o_6979_c_param1); } /* line 1 "no_file" */ /* 3857 */ /* line 1436 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6980_BIG_ODD (const objRefType/*t_19_reference*/ o_6981_function, const listType/*t_20_ref_list*/ *const o_6982_params, structType/*t_164_expr_type*/ *const o_6983_c_expr) { /* line 1440 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6983_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[601] /* "bigOdd(" */); /* line 1441 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_6982_params, 1L), o_6983_c_expr); /* line 1442 "../lib/comp/big_act.s7i" */ { /* line 1442 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1442 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6983_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1442 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1442 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1442 "../lib/comp/big_act.s7i" */ } else { /* line 1442 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1442 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1442 "../lib/comp/big_act.s7i" */ } } } /* line 1 "no_file" */ /* 3858 */ /* line 1446 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6984_BIG_ORD (const objRefType/*t_19_reference*/ o_6985_function, const listType/*t_20_ref_list*/ *const o_6986_params, structType/*t_164_expr_type*/ *const o_6987_c_expr) { /* line 1450 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6987_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[602] /* "bigOrd(" */); /* line 1451 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_6986_params, 1L), o_6987_c_expr); /* line 1452 "../lib/comp/big_act.s7i" */ { /* line 1452 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1452 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6987_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1452 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1452 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1452 "../lib/comp/big_act.s7i" */ } else { /* line 1452 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1452 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1452 "../lib/comp/big_act.s7i" */ } } } /* line 1 "no_file" */ /* 3859 */ /* line 1456 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6988_BIG_PARSE (const objRefType/*t_19_reference*/ o_6989_function, const listType/*t_20_ref_list*/ *const o_6990_params, structType/*t_164_expr_type*/ *const o_6991_c_expr) { /* line 1460 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6991_c_expr); /* line 1461 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6991_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[603] /* "bigParse(" */); /* line 1462 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_6990_params, 3L), o_6991_c_expr); /* line 1463 "../lib/comp/big_act.s7i" */ { /* line 1463 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1463 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6991_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1463 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1463 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1463 "../lib/comp/big_act.s7i" */ } else { /* line 1463 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1463 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1463 "../lib/comp/big_act.s7i" */ } } } /* line 1 "no_file" */ /* 3860 */ /* line 1467 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6992_BIG_PARSE_BASED (const objRefType/*t_19_reference*/ o_6993_function, const listType/*t_20_ref_list*/ *const o_6994_params, structType/*t_164_expr_type*/ *const o_6995_c_expr) { /* line 1471 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_6995_c_expr); /* line 1472 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_6995_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[604] /* "bigParseBased(" */); /* line 1473 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_6994_params, 1L), o_6995_c_expr); /* line 1474 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_6995_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1475 "../lib/comp/big_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_6994_params, 2L), o_6995_c_expr); /* line 1476 "../lib/comp/big_act.s7i" */ { /* line 1476 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1476 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_6995_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1476 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1476 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1476 "../lib/comp/big_act.s7i" */ } else { /* line 1476 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1476 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1476 "../lib/comp/big_act.s7i" */ } } } /* line 1 "no_file" */ /* 3861 */ /* line 1480 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_6996_BIG_PLUS (const objRefType/*t_19_reference*/ o_6997_function, const listType/*t_20_ref_list*/ *const o_6998_params, structType/*t_164_expr_type*/ *const o_6999_c_expr) { /* line 1484 "../lib/comp/big_act.s7i" */ o_4941_process_expr(rflIdx(*o_6998_params, 2L), o_6999_c_expr); } /* line 1 "no_file" */ /* 3862 */ /* line 1488 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_7000_BIG_PRED (const objRefType/*t_19_reference*/ o_7001_function, const listType/*t_20_ref_list*/ *const o_7002_params, structType/*t_164_expr_type*/ *const o_7003_c_expr) { /* line 1492 "../lib/comp/big_act.s7i" */ structType/*t_164_expr_type*/ o_7004_c_param1; /* line 1492 "../lib/comp/big_act.s7i" */ o_7004_c_param1=create_164(sct[203]); /* line 1494 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_7003_c_expr); /* line 1495 "../lib/comp/big_act.s7i" */ o_4963_prepareAnyParamTemporarys(rflIdx(*o_7002_params, 1L), &(o_7004_c_param1), o_7003_c_expr); /* line 1496 "../lib/comp/big_act.s7i" */ if (((((structType)(o_7004_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 1497 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_7003_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[535] /* "bigPredTemp(" */); /* line 1498 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7003_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_7004_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 1500 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_7003_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[536] /* "bigPred(" */); /* line 1501 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7003_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_7004_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 1503 "../lib/comp/big_act.s7i" */ { /* line 1503 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1503 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_7003_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1503 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1503 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1503 "../lib/comp/big_act.s7i" */ } else { /* line 1503 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1503 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1503 "../lib/comp/big_act.s7i" */ } } /* line 1488 "../lib/comp/big_act.s7i" */ destr_164(o_7004_c_param1); } /* line 1 "no_file" */ /* 3863 */ /* line 1507 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_7005_BIG_radix (const objRefType/*t_19_reference*/ o_7006_function, const listType/*t_20_ref_list*/ *const o_7007_params, structType/*t_164_expr_type*/ *const o_7008_c_expr) { /* line 1511 "../lib/comp/big_act.s7i" */ o_4955_prepare_stri_result(o_7008_c_expr); /* line 1512 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_7008_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[605] /* "bigRadix(" */); /* line 1513 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_7007_params, 1L), o_7008_c_expr); /* line 1514 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7008_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1515 "../lib/comp/big_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7007_params, 3L), o_7008_c_expr); /* line 1516 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7008_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[606] /* ", 0)" */); } /* line 1 "no_file" */ /* 3864 */ /* line 1520 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_7009_BIG_RADIX (const objRefType/*t_19_reference*/ o_7010_function, const listType/*t_20_ref_list*/ *const o_7011_params, structType/*t_164_expr_type*/ *const o_7012_c_expr) { /* line 1524 "../lib/comp/big_act.s7i" */ o_4955_prepare_stri_result(o_7012_c_expr); /* line 1525 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_7012_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[605] /* "bigRadix(" */); /* line 1526 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_7011_params, 1L), o_7012_c_expr); /* line 1527 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7012_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1528 "../lib/comp/big_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7011_params, 3L), o_7012_c_expr); /* line 1529 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7012_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[542] /* ", 1)" */); } /* line 1 "no_file" */ /* 3865 */ /* line 1533 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_7013_BIG_RAND (const objRefType/*t_19_reference*/ o_7014_function, const listType/*t_20_ref_list*/ *const o_7015_params, structType/*t_164_expr_type*/ *const o_7016_c_expr) { /* line 1537 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_7016_c_expr); /* line 1538 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_7016_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[607] /* "bigRand(" */); /* line 1539 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_7015_params, 1L), o_7016_c_expr); /* line 1540 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7016_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1541 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_7015_params, 2L), o_7016_c_expr); /* line 1542 "../lib/comp/big_act.s7i" */ { /* line 1542 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1542 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_7016_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1542 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1542 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1542 "../lib/comp/big_act.s7i" */ } else { /* line 1542 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1542 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1542 "../lib/comp/big_act.s7i" */ } } } /* line 1 "no_file" */ /* 3866 */ /* line 1546 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_7017_process_const_big_rem (const objRefType/*t_19_reference*/ o_7018_dividend, const const_bigIntType/*t_57_bigInteger*/ o_7019_divisor, structType/*t_164_expr_type*/ *const o_7020_c_expr) { /* line 1550 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_7021_evaluatedDividend=NULL; /* line 1551 "../lib/comp/big_act.s7i" */ bigIntType/*t_57_bigInteger*/ o_7022_remainder; /* line 1551 "../lib/comp/big_act.s7i" */ o_7022_remainder=bigZero(); /* 0_ */ /* line 1553 "../lib/comp/big_act.s7i" */ if (bigEqSignedDigit(o_7019_divisor, 0L)) { /* line 1554 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 1555 "../lib/comp/big_act.s7i" */ o_6531_DOES_RAISE(&str[553] /* "NUMERIC_ERROR" */, *o_7020_c_expr); /* line 1556 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_7020_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6528_bigRaiseError(&str[553] /* "NUMERIC_ERROR" */)); } else /* line 1557 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(o_7018_dividend, 10L, &(o_7021_evaluatedDividend))) { /* line 1558 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); { /* line 1559 "../lib/comp/big_act.s7i" */ bigIntType tmp_2 = NULL; { /* line 1559 "../lib/comp/big_act.s7i" */ bigIntType old_big=o_7022_remainder; /* line 1559 "../lib/comp/big_act.s7i" */ o_7022_remainder=bigRem((tmp_2=bigValue(o_7021_evaluatedDividend)), o_7019_divisor); /* line 1559 "../lib/comp/big_act.s7i" */ bigDestr(old_big); } /* line 1559 "../lib/comp/big_act.s7i" */ bigDestr(tmp_2); } /* line 1560 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_7020_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6505_bigIntegerLiteral(o_7022_remainder)); } else /* line 1561 "../lib/comp/big_act.s7i" */ if ((bigEqSignedDigit(o_7019_divisor, 1L)) || /* line 1561 "../lib/comp/big_act.s7i" */ (bigEq(o_7019_divisor, big[5] /* -1 */))) { /* line 1562 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 1563 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_7020_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6505_bigIntegerLiteral(big[4] /* 0 */)); } else { /* line 1565 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_7020_c_expr); /* line 1566 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_7020_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[608] /* "bigRem(" */); /* line 1567 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(o_7018_dividend, o_7020_c_expr); /* line 1568 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7020_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1569 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(*o_7020_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6505_bigIntegerLiteral(o_7019_divisor)); /* line 1570 "../lib/comp/big_act.s7i" */ { /* line 1570 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1570 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_7020_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1570 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1570 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1570 "../lib/comp/big_act.s7i" */ } else { /* line 1570 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1570 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1570 "../lib/comp/big_act.s7i" */ } } } /* line 1546 "../lib/comp/big_act.s7i" */ bigDestr(o_7022_remainder); } /* line 1 "no_file" */ /* 3867 */ /* line 1575 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_7023_BIG_REM (const objRefType/*t_19_reference*/ o_7024_function, const listType/*t_20_ref_list*/ *const o_7025_params, structType/*t_164_expr_type*/ *const o_7026_c_expr) { /* line 1579 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_7027_evaluatedParam=NULL; /* line 1581 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_7025_params, 3L), 10L, &(o_7027_evaluatedParam))) { { /* line 1582 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 1582 "../lib/comp/big_act.s7i" */ o_7017_process_const_big_rem(rflIdx(*o_7025_params, 1L), (tmp_1=bigValue(o_7027_evaluatedParam)), o_7026_c_expr); /* line 1582 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else { /* line 1584 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_7026_c_expr); /* line 1585 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_7026_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[608] /* "bigRem(" */); /* line 1586 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_7025_params, 1L), o_7026_c_expr); /* line 1587 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7026_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1588 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_7025_params, 3L), o_7026_c_expr); /* line 1589 "../lib/comp/big_act.s7i" */ { /* line 1589 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1589 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_7026_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1589 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1589 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1589 "../lib/comp/big_act.s7i" */ } else { /* line 1589 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1589 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1589 "../lib/comp/big_act.s7i" */ } } } } /* line 1 "no_file" */ /* 3868 */ /* line 1594 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_7028_BIG_RSHIFT (const objRefType/*t_19_reference*/ o_7029_function, const listType/*t_20_ref_list*/ *const o_7030_params, structType/*t_164_expr_type*/ *const o_7031_c_expr) { /* line 1598 "../lib/comp/big_act.s7i" */ striType/*t_15_string*/ o_7032_bigint_name; /* line 1599 "../lib/comp/big_act.s7i" */ structType/*t_164_expr_type*/ o_7033_c_param1; /* line 1598 "../lib/comp/big_act.s7i" */ o_7032_bigint_name=strEmpty(); /* "" */ /* line 1599 "../lib/comp/big_act.s7i" */ o_7033_c_param1=create_164(sct[204]); /* line 1601 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_7031_c_expr); /* line 1602 "../lib/comp/big_act.s7i" */ o_4963_prepareAnyParamTemporarys(rflIdx(*o_7030_params, 1L), &(o_7033_c_param1), o_7031_c_expr); /* line 1603 "../lib/comp/big_act.s7i" */ if (((((structType)(o_7033_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 1604 "../lib/comp/big_act.s7i" */ ++(((structType)(*o_7031_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 1605 "../lib/comp/big_act.s7i" */ union { /* line 1605 "../lib/comp/big_act.s7i" */ struct striStruct striBuf; /* line 1605 "../lib/comp/big_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1605 "../lib/comp/big_act.s7i" */ } buffer_2; /* line 1605 "../lib/comp/big_act.s7i" */ striType old_stri=o_7032_bigint_name; /* line 1605 "../lib/comp/big_act.s7i" */ o_7032_bigint_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_7031_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 1605 "../lib/comp/big_act.s7i" */ strDestr(old_stri); } /* line 1606 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7031_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[584] /* "bigIntType " */); /* line 1607 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7031_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_7032_bigint_name); /* line 1608 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7031_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 1609 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_7031_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[588] /* "(bigRShiftAssign((" */); /* line 1610 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7031_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_7032_bigint_name); /* line 1611 "../lib/comp/big_act.s7i" */ { /* line 1611 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1611 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_7031_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1611 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1611 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 1611 "../lib/comp/big_act.s7i" */ } else { /* line 1611 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 1611 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1611 "../lib/comp/big_act.s7i" */ } } /* line 1612 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7031_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_7033_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1613 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7031_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[421] /* ", &" */); /* line 1614 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7031_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_7032_bigint_name); /* line 1615 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7031_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[267] /* "), " */); /* line 1616 "../lib/comp/big_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7030_params, 3L), o_7031_c_expr); /* line 1617 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7031_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[267] /* "), " */); /* line 1618 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7031_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_7032_bigint_name); } else { /* line 1620 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_7031_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[589] /* "bigRShift(" */); /* line 1621 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7031_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_7033_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1622 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7031_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1623 "../lib/comp/big_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7030_params, 3L), o_7031_c_expr); } /* line 1625 "../lib/comp/big_act.s7i" */ { /* line 1625 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1625 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_7031_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1625 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1625 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1625 "../lib/comp/big_act.s7i" */ } else { /* line 1625 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1625 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1625 "../lib/comp/big_act.s7i" */ } } /* line 1594 "../lib/comp/big_act.s7i" */ strDestr(o_7032_bigint_name); /* line 1594 "../lib/comp/big_act.s7i" */ destr_164(o_7033_c_param1); } /* line 1 "no_file" */ /* 3869 */ /* line 1629 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_7034_BIG_RSHIFT_ASSIGN (const objRefType/*t_19_reference*/ o_7035_function, const listType/*t_20_ref_list*/ *const o_7036_params, structType/*t_164_expr_type*/ *const o_7037_c_expr) { /* line 1633 "../lib/comp/big_act.s7i" */ structType/*t_164_expr_type*/ o_7038_statement; /* line 1633 "../lib/comp/big_act.s7i" */ o_7038_statement=create_164(sct[205]); /* line 1635 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(o_7038_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[609] /* "bigRShiftAssign(&(" */); /* line 1636 "../lib/comp/big_act.s7i" */ o_4941_process_expr(rflIdx(*o_7036_params, 1L), &(o_7038_statement)); /* line 1637 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_7038_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 1638 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7036_params, 3L), &(o_7038_statement)); /* line 1639 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_7038_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 1640 "../lib/comp/big_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_7038_statement, o_7037_c_expr); /* line 1629 "../lib/comp/big_act.s7i" */ destr_164(o_7038_statement); } /* line 1 "no_file" */ /* 3870 */ /* line 1651 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_7039_BIG_SBTR (const objRefType/*t_19_reference*/ o_7040_function, const listType/*t_20_ref_list*/ *const o_7041_params, structType/*t_164_expr_type*/ *const o_7042_c_expr) { /* line 1655 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_7043_evaluatedParam=NULL; /* line 1656 "../lib/comp/big_act.s7i" */ structType/*t_164_expr_type*/ o_7044_c_param1; /* line 1656 "../lib/comp/big_act.s7i" */ o_7044_c_param1=create_164(sct[206]); /* line 1658 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_7041_params, 3L), 10L, &(o_7043_evaluatedParam))) { { /* line 1659 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 1659 "../lib/comp/big_act.s7i" */ o_6744_process_const_big_add(rflIdx(*o_7041_params, 1L), (tmp_1=bigNegateTemp(bigValue(o_7043_evaluatedParam))), o_7042_c_expr); /* line 1659 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else { /* line 1661 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_7042_c_expr); /* line 1662 "../lib/comp/big_act.s7i" */ o_4963_prepareAnyParamTemporarys(rflIdx(*o_7041_params, 1L), &(o_7044_c_param1), o_7042_c_expr); /* line 1663 "../lib/comp/big_act.s7i" */ if (((((structType)(o_7044_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 1664 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_7042_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[539] /* "bigSbtrTemp(" */); /* line 1665 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7042_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_7044_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 1667 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_7042_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[540] /* "bigSbtr(" */); /* line 1668 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7042_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_7044_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 1670 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7042_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1671 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_7041_params, 3L), o_7042_c_expr); /* line 1672 "../lib/comp/big_act.s7i" */ { /* line 1672 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1672 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_7042_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1672 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1672 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1672 "../lib/comp/big_act.s7i" */ } else { /* line 1672 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1672 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1672 "../lib/comp/big_act.s7i" */ } } } /* line 1651 "../lib/comp/big_act.s7i" */ destr_164(o_7044_c_param1); } /* line 1 "no_file" */ /* 3871 */ /* line 1677 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_7045_process_const_big_shrink (const objRefType/*t_19_reference*/ o_7046_param1, const const_bigIntType/*t_57_bigInteger*/ o_7047_delta, structType/*t_164_expr_type*/ *const o_7048_c_expr) { /* line 1681 "../lib/comp/big_act.s7i" */ structType/*t_164_expr_type*/ o_7049_statement; /* line 1681 "../lib/comp/big_act.s7i" */ o_7049_statement=create_164(sct[207]); /* line 1683 "../lib/comp/big_act.s7i" */ if (bigEq(o_7047_delta, big[5] /* -1 */)) { /* line 1684 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 1685 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(o_7049_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[563] /* "bigIncr(&(" */); /* line 1686 "../lib/comp/big_act.s7i" */ o_4941_process_expr(o_7046_param1, &(o_7049_statement)); /* line 1687 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_7049_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); /* line 1688 "../lib/comp/big_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_7049_statement, o_7048_c_expr); } else /* line 1689 "../lib/comp/big_act.s7i" */ if (bigEqSignedDigit(o_7047_delta, 0L)) { /* line 1690 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 1691 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7048_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[610] /* "/* ignore bigInteger -:= 0_; *\/\n" */); } else /* line 1692 "../lib/comp/big_act.s7i" */ if (bigEqSignedDigit(o_7047_delta, 1L)) { /* line 1693 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 1694 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(o_7049_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[552] /* "bigDecr(&(" */); /* line 1695 "../lib/comp/big_act.s7i" */ o_4941_process_expr(o_7046_param1, &(o_7049_statement)); /* line 1696 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_7049_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); /* line 1697 "../lib/comp/big_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_7049_statement, o_7048_c_expr); } else { /* line 1698 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 1698 "../lib/comp/big_act.s7i" */ if (bigCmpSignedDigit((tmp_1=bigAbs(o_7047_delta)), 2147483647L) <= 0) { /* line 1699 "../lib/comp/big_act.s7i" */ ++(o_5107_countOptimizations); /* line 1700 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(o_7049_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[564] /* "bigGrowSignedDigit(&(" */); /* line 1701 "../lib/comp/big_act.s7i" */ o_4941_process_expr(o_7046_param1, &(o_7049_statement)); /* line 1702 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_7049_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 1703 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(o_7049_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(-(bigOrd(o_7047_delta)))); /* line 1704 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_7049_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 1705 "../lib/comp/big_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_7049_statement, o_7048_c_expr); } else { /* line 1707 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(o_7049_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[611] /* "bigShrink(&(" */); /* line 1708 "../lib/comp/big_act.s7i" */ o_4941_process_expr(o_7046_param1, &(o_7049_statement)); /* line 1709 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_7049_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 1710 "../lib/comp/big_act.s7i" */ strAppendTemp(&(((structType)(o_7049_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6505_bigIntegerLiteral(o_7047_delta)); /* line 1711 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_7049_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 1712 "../lib/comp/big_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_7049_statement, o_7048_c_expr); } /* line 1698 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } /* line 1677 "../lib/comp/big_act.s7i" */ destr_164(o_7049_statement); } /* line 1 "no_file" */ /* 3872 */ /* line 1717 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_7050_BIG_SHRINK (const objRefType/*t_19_reference*/ o_7051_function, const listType/*t_20_ref_list*/ *const o_7052_params, structType/*t_164_expr_type*/ *const o_7053_c_expr) { /* line 1721 "../lib/comp/big_act.s7i" */ objRefType/*t_19_reference*/ o_7054_evaluatedParam=NULL; /* line 1722 "../lib/comp/big_act.s7i" */ structType/*t_164_expr_type*/ o_7055_statement; /* line 1722 "../lib/comp/big_act.s7i" */ o_7055_statement=create_164(sct[208]); /* line 1724 "../lib/comp/big_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_7052_params, 3L), 10L, &(o_7054_evaluatedParam))) { { /* line 1725 "../lib/comp/big_act.s7i" */ bigIntType tmp_1 = NULL; /* line 1725 "../lib/comp/big_act.s7i" */ o_7045_process_const_big_shrink(rflIdx(*o_7052_params, 1L), (tmp_1=bigValue(o_7054_evaluatedParam)), o_7053_c_expr); /* line 1725 "../lib/comp/big_act.s7i" */ bigDestr(tmp_1); } } else { /* line 1727 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(o_7055_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[611] /* "bigShrink(&(" */); /* line 1728 "../lib/comp/big_act.s7i" */ o_4941_process_expr(rflIdx(*o_7052_params, 1L), &(o_7055_statement)); /* line 1729 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_7055_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 1730 "../lib/comp/big_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7052_params, 3L), &(o_7055_statement)); /* line 1731 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(o_7055_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 1732 "../lib/comp/big_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_7055_statement, o_7053_c_expr); } /* line 1717 "../lib/comp/big_act.s7i" */ destr_164(o_7055_statement); } /* line 1 "no_file" */ /* 3873 */ /* line 1737 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_7056_BIG_STR (const objRefType/*t_19_reference*/ o_7057_function, const listType/*t_20_ref_list*/ *const o_7058_params, structType/*t_164_expr_type*/ *const o_7059_c_expr) { /* line 1741 "../lib/comp/big_act.s7i" */ o_4955_prepare_stri_result(o_7059_c_expr); /* line 1742 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_7059_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[612] /* "bigStr(" */); /* line 1743 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_7058_params, 1L), o_7059_c_expr); /* line 1744 "../lib/comp/big_act.s7i" */ { /* line 1744 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1744 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_7059_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1744 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1744 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1744 "../lib/comp/big_act.s7i" */ } else { /* line 1744 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1744 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1744 "../lib/comp/big_act.s7i" */ } } } /* line 1 "no_file" */ /* 3874 */ /* line 1748 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_7060_BIG_SUCC (const objRefType/*t_19_reference*/ o_7061_function, const listType/*t_20_ref_list*/ *const o_7062_params, structType/*t_164_expr_type*/ *const o_7063_c_expr) { /* line 1752 "../lib/comp/big_act.s7i" */ structType/*t_164_expr_type*/ o_7064_c_param1; /* line 1752 "../lib/comp/big_act.s7i" */ o_7064_c_param1=create_164(sct[209]); /* line 1754 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_7063_c_expr); /* line 1755 "../lib/comp/big_act.s7i" */ o_4963_prepareAnyParamTemporarys(rflIdx(*o_7062_params, 1L), &(o_7064_c_param1), o_7063_c_expr); /* line 1756 "../lib/comp/big_act.s7i" */ if (((((structType)(o_7064_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 1757 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_7063_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[533] /* "bigSuccTemp(" */); /* line 1758 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7063_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_7064_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 1760 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_7063_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[534] /* "bigSucc(" */); /* line 1761 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7063_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_7064_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 1763 "../lib/comp/big_act.s7i" */ { /* line 1763 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1763 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_7063_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1763 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1763 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1763 "../lib/comp/big_act.s7i" */ } else { /* line 1763 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1763 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1763 "../lib/comp/big_act.s7i" */ } } /* line 1748 "../lib/comp/big_act.s7i" */ destr_164(o_7064_c_param1); } /* line 1 "no_file" */ /* 3875 */ /* line 1767 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_7065_BIG_TO_BSTRI_BE (const objRefType/*t_19_reference*/ o_7066_function, const listType/*t_20_ref_list*/ *const o_7067_params, structType/*t_164_expr_type*/ *const o_7068_c_expr) { /* line 1771 "../lib/comp/big_act.s7i" */ o_4957_prepare_bstri_result(o_7068_c_expr); /* line 1772 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_7068_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[613] /* "bigToBStriBe(" */); /* line 1773 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_7067_params, 1L), o_7068_c_expr); /* line 1774 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7068_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1775 "../lib/comp/big_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7067_params, 2L), o_7068_c_expr); /* line 1776 "../lib/comp/big_act.s7i" */ { /* line 1776 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1776 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_7068_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1776 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1776 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1776 "../lib/comp/big_act.s7i" */ } else { /* line 1776 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1776 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1776 "../lib/comp/big_act.s7i" */ } } } /* line 1 "no_file" */ /* 3876 */ /* line 1780 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_7069_BIG_TO_BSTRI_LE (const objRefType/*t_19_reference*/ o_7070_function, const listType/*t_20_ref_list*/ *const o_7071_params, structType/*t_164_expr_type*/ *const o_7072_c_expr) { /* line 1784 "../lib/comp/big_act.s7i" */ o_4957_prepare_bstri_result(o_7072_c_expr); /* line 1785 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_7072_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[614] /* "bigToBStriLe(" */); /* line 1786 "../lib/comp/big_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_7071_params, 1L), o_7072_c_expr); /* line 1787 "../lib/comp/big_act.s7i" */ strAppend(&(((structType)(*o_7072_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1788 "../lib/comp/big_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7071_params, 2L), o_7072_c_expr); /* line 1789 "../lib/comp/big_act.s7i" */ { /* line 1789 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1789 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_7072_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1789 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1789 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1789 "../lib/comp/big_act.s7i" */ } else { /* line 1789 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1789 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1789 "../lib/comp/big_act.s7i" */ } } } /* line 1 "no_file" */ /* 3877 */ /* line 1793 "../lib/comp/big_act.s7i" */ static void/*t_1_void*/ o_7073_BIG_VALUE (const objRefType/*t_19_reference*/ o_7074_function, const listType/*t_20_ref_list*/ *const o_7075_params, structType/*t_164_expr_type*/ *const o_7076_c_expr) { /* line 1797 "../lib/comp/big_act.s7i" */ o_4947_prepare_bigint_result(o_7076_c_expr); /* line 1798 "../lib/comp/big_act.s7i" */ strCopy(&(((structType)(*o_7076_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[615] /* "bigValue(" */); /* line 1799 "../lib/comp/big_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7075_params, 1L), o_7076_c_expr); /* line 1800 "../lib/comp/big_act.s7i" */ { /* line 1800 "../lib/comp/big_act.s7i" */ striType *tmp_1; /* line 1800 "../lib/comp/big_act.s7i" */ tmp_1=&(((structType)(*o_7076_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1800 "../lib/comp/big_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1800 "../lib/comp/big_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1800 "../lib/comp/big_act.s7i" */ } else { /* line 1800 "../lib/comp/big_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1800 "../lib/comp/big_act.s7i" */ (*tmp_1)->size++; /* line 1800 "../lib/comp/big_act.s7i" */ } } } /* line 1 "no_file" */ /* 3878 */ /* 3879 */ /* line 45 "../lib/comp/bln_act.s7i" */ static void/*t_1_void*/ o_7077_bln_prototypes (interfaceType/*t_46_file*/ *const o_7078_c_prog) { /* line 48 "../lib/comp/bln_act.s7i" */ o_6547_declareExtern(o_7078_c_prog, &str[616] /* "void blnCpyGeneric (genericType *const, const genericType);" */); /* line 49 "../lib/comp/bln_act.s7i" */ o_6547_declareExtern(o_7078_c_prog, &str[617] /* "boolType blnValue (objRefType);" */); } /* line 1 "no_file" */ /* 3880 */ /* line 53 "../lib/comp/bln_act.s7i" */ static void/*t_1_void*/ o_7079_BIN_AND (const objRefType/*t_19_reference*/ o_7080_function, const listType/*t_20_ref_list*/ *const o_7081_params, structType/*t_164_expr_type*/ *const o_7082_c_expr) { /* line 57 "../lib/comp/bln_act.s7i" */ strAppend(&(((structType)(*o_7082_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[618] /* "bigAnd(" */); /* line 58 "../lib/comp/bln_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7081_params, 1L), o_7082_c_expr); /* line 59 "../lib/comp/bln_act.s7i" */ strAppend(&(((structType)(*o_7082_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 60 "../lib/comp/bln_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7081_params, 3L), o_7082_c_expr); /* line 61 "../lib/comp/bln_act.s7i" */ { /* line 61 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 61 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7082_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 61 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 61 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 61 "../lib/comp/bln_act.s7i" */ } else { /* line 61 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 61 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 61 "../lib/comp/bln_act.s7i" */ } } } /* line 1 "no_file" */ /* 3881 */ /* line 65 "../lib/comp/bln_act.s7i" */ static void/*t_1_void*/ o_7083_BIN_OR (const objRefType/*t_19_reference*/ o_7084_function, const listType/*t_20_ref_list*/ *const o_7085_params, structType/*t_164_expr_type*/ *const o_7086_c_expr) { /* line 69 "../lib/comp/bln_act.s7i" */ strAppend(&(((structType)(*o_7086_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[619] /* "bigOr(" */); /* line 70 "../lib/comp/bln_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7085_params, 1L), o_7086_c_expr); /* line 71 "../lib/comp/bln_act.s7i" */ strAppend(&(((structType)(*o_7086_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 72 "../lib/comp/bln_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7085_params, 3L), o_7086_c_expr); /* line 73 "../lib/comp/bln_act.s7i" */ { /* line 73 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 73 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7086_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 73 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 73 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 73 "../lib/comp/bln_act.s7i" */ } else { /* line 73 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 73 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 73 "../lib/comp/bln_act.s7i" */ } } } /* line 1 "no_file" */ /* 3882 */ /* line 77 "../lib/comp/bln_act.s7i" */ static void/*t_1_void*/ o_7087_BIN_XOR (const objRefType/*t_19_reference*/ o_7088_function, const listType/*t_20_ref_list*/ *const o_7089_params, structType/*t_164_expr_type*/ *const o_7090_c_expr) { /* line 81 "../lib/comp/bln_act.s7i" */ strAppend(&(((structType)(*o_7090_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[620] /* "bigXor(" */); /* line 82 "../lib/comp/bln_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7089_params, 1L), o_7090_c_expr); /* line 83 "../lib/comp/bln_act.s7i" */ strAppend(&(((structType)(*o_7090_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 84 "../lib/comp/bln_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7089_params, 3L), o_7090_c_expr); /* line 85 "../lib/comp/bln_act.s7i" */ { /* line 85 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 85 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7090_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 85 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 85 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 85 "../lib/comp/bln_act.s7i" */ } else { /* line 85 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 85 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 85 "../lib/comp/bln_act.s7i" */ } } } /* line 1 "no_file" */ /* 3883 */ /* line 89 "../lib/comp/bln_act.s7i" */ static void/*t_1_void*/ o_7091_BLN_AND (const objRefType/*t_19_reference*/ o_7092_function, const listType/*t_20_ref_list*/ *const o_7093_params, structType/*t_164_expr_type*/ *const o_7094_c_expr) { /* line 93 "../lib/comp/bln_act.s7i" */ if (o_5093_isActionExpression(rflIdx(*o_7093_params, 1L), &str[621] /* "BLN_AND" */)) { /* line 94 "../lib/comp/bln_act.s7i" */ o_4941_process_expr(rflIdx(*o_7093_params, 1L), o_7094_c_expr); } else { /* line 96 "../lib/comp/bln_act.s7i" */ { /* line 96 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 96 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7094_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 96 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 96 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 96 "../lib/comp/bln_act.s7i" */ } else { /* line 96 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 96 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 96 "../lib/comp/bln_act.s7i" */ } } /* line 97 "../lib/comp/bln_act.s7i" */ o_4941_process_expr(rflIdx(*o_7093_params, 1L), o_7094_c_expr); /* line 98 "../lib/comp/bln_act.s7i" */ { /* line 98 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 98 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7094_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 98 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 98 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 98 "../lib/comp/bln_act.s7i" */ } else { /* line 98 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 98 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 98 "../lib/comp/bln_act.s7i" */ } } } /* line 100 "../lib/comp/bln_act.s7i" */ strAppend(&(((structType)(*o_7094_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[622] /* " &&\n" */); /* line 101 "../lib/comp/bln_act.s7i" */ if ((refCategory(rflIdx(*o_7093_params, 3L))) == (6L)) { /* line 102 "../lib/comp/bln_act.s7i" */ strAppendTemp(&(((structType)(*o_7094_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(rflIdx(*o_7093_params, 3L))); } else { /* line 104 "../lib/comp/bln_act.s7i" */ o_4819_setDiagnosticLine(o_7094_c_expr); } /* line 106 "../lib/comp/bln_act.s7i" */ { /* line 106 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 106 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7094_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 106 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 106 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 106 "../lib/comp/bln_act.s7i" */ } else { /* line 106 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 106 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 106 "../lib/comp/bln_act.s7i" */ } } /* line 107 "../lib/comp/bln_act.s7i" */ o_4941_process_expr(rflIdx(*o_7093_params, 3L), o_7094_c_expr); /* line 108 "../lib/comp/bln_act.s7i" */ { /* line 108 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 108 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7094_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 108 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 108 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 108 "../lib/comp/bln_act.s7i" */ } else { /* line 108 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 108 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 108 "../lib/comp/bln_act.s7i" */ } } } /* line 1 "no_file" */ /* 3884 */ /* line 112 "../lib/comp/bln_act.s7i" */ static void/*t_1_void*/ o_7095_BLN_CPY (const objRefType/*t_19_reference*/ o_7096_function, const listType/*t_20_ref_list*/ *const o_7097_params, structType/*t_164_expr_type*/ *const o_7098_c_expr) { /* line 116 "../lib/comp/bln_act.s7i" */ structType/*t_164_expr_type*/ o_7099_statement; /* line 116 "../lib/comp/bln_act.s7i" */ o_7099_statement=create_164(sct[210]); /* line 118 "../lib/comp/bln_act.s7i" */ o_4941_process_expr(rflIdx(*o_7097_params, 1L), &(o_7099_statement)); /* line 119 "../lib/comp/bln_act.s7i" */ { /* line 119 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 119 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(o_7099_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 119 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 119 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 119 "../lib/comp/bln_act.s7i" */ } else { /* line 119 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 119 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 119 "../lib/comp/bln_act.s7i" */ } } /* line 120 "../lib/comp/bln_act.s7i" */ o_4941_process_expr(rflIdx(*o_7097_params, 3L), &(o_7099_statement)); /* line 121 "../lib/comp/bln_act.s7i" */ strAppend(&(((structType)(o_7099_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 122 "../lib/comp/bln_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_7099_statement, o_7098_c_expr); /* line 112 "../lib/comp/bln_act.s7i" */ destr_164(o_7099_statement); } /* line 1 "no_file" */ /* 3885 */ /* line 126 "../lib/comp/bln_act.s7i" */ static void/*t_1_void*/ o_7100_BLN_EQ (const objRefType/*t_19_reference*/ o_7101_function, const listType/*t_20_ref_list*/ *const o_7102_params, structType/*t_164_expr_type*/ *const o_7103_c_expr) { /* line 130 "../lib/comp/bln_act.s7i" */ { /* line 130 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 130 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7103_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 130 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 130 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 130 "../lib/comp/bln_act.s7i" */ } else { /* line 130 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 130 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 130 "../lib/comp/bln_act.s7i" */ } } /* line 131 "../lib/comp/bln_act.s7i" */ o_4941_process_expr(rflIdx(*o_7102_params, 1L), o_7103_c_expr); /* line 132 "../lib/comp/bln_act.s7i" */ strAppend(&(((structType)(*o_7103_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[350] /* ") == (" */); /* line 133 "../lib/comp/bln_act.s7i" */ o_4941_process_expr(rflIdx(*o_7102_params, 3L), o_7103_c_expr); /* line 134 "../lib/comp/bln_act.s7i" */ { /* line 134 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 134 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7103_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 134 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 134 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 134 "../lib/comp/bln_act.s7i" */ } else { /* line 134 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 134 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 134 "../lib/comp/bln_act.s7i" */ } } } /* line 1 "no_file" */ /* 3886 */ /* line 138 "../lib/comp/bln_act.s7i" */ static void/*t_1_void*/ o_7104_BLN_GE (const objRefType/*t_19_reference*/ o_7105_function, const listType/*t_20_ref_list*/ *const o_7106_params, structType/*t_164_expr_type*/ *const o_7107_c_expr) { /* line 142 "../lib/comp/bln_act.s7i" */ { /* line 142 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 142 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7107_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 142 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 142 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 142 "../lib/comp/bln_act.s7i" */ } else { /* line 142 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 142 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 142 "../lib/comp/bln_act.s7i" */ } } /* line 143 "../lib/comp/bln_act.s7i" */ o_4941_process_expr(rflIdx(*o_7106_params, 1L), o_7107_c_expr); /* line 144 "../lib/comp/bln_act.s7i" */ strAppend(&(((structType)(*o_7107_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[623] /* ") >= (" */); /* line 145 "../lib/comp/bln_act.s7i" */ o_4941_process_expr(rflIdx(*o_7106_params, 3L), o_7107_c_expr); /* line 146 "../lib/comp/bln_act.s7i" */ { /* line 146 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 146 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7107_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 146 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 146 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 146 "../lib/comp/bln_act.s7i" */ } else { /* line 146 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 146 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 146 "../lib/comp/bln_act.s7i" */ } } } /* line 1 "no_file" */ /* 3887 */ /* line 150 "../lib/comp/bln_act.s7i" */ static void/*t_1_void*/ o_7108_BLN_GT (const objRefType/*t_19_reference*/ o_7109_function, const listType/*t_20_ref_list*/ *const o_7110_params, structType/*t_164_expr_type*/ *const o_7111_c_expr) { /* line 154 "../lib/comp/bln_act.s7i" */ { /* line 154 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 154 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7111_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 154 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 154 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 154 "../lib/comp/bln_act.s7i" */ } else { /* line 154 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 154 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 154 "../lib/comp/bln_act.s7i" */ } } /* line 155 "../lib/comp/bln_act.s7i" */ o_4941_process_expr(rflIdx(*o_7110_params, 1L), o_7111_c_expr); /* line 156 "../lib/comp/bln_act.s7i" */ strAppend(&(((structType)(*o_7111_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[624] /* ") > (" */); /* line 157 "../lib/comp/bln_act.s7i" */ o_4941_process_expr(rflIdx(*o_7110_params, 3L), o_7111_c_expr); /* line 158 "../lib/comp/bln_act.s7i" */ { /* line 158 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 158 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7111_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 158 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 158 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 158 "../lib/comp/bln_act.s7i" */ } else { /* line 158 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 158 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 158 "../lib/comp/bln_act.s7i" */ } } } /* line 1 "no_file" */ /* 3888 */ /* line 162 "../lib/comp/bln_act.s7i" */ static void/*t_1_void*/ o_7112_BLN_ICONV (const objRefType/*t_19_reference*/ o_7113_function, const listType/*t_20_ref_list*/ *const o_7114_params, structType/*t_164_expr_type*/ *const o_7115_c_expr) { /* line 166 "../lib/comp/bln_act.s7i" */ { /* line 166 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 166 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7115_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 166 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 166 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 166 "../lib/comp/bln_act.s7i" */ } else { /* line 166 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 166 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 166 "../lib/comp/bln_act.s7i" */ } } /* line 167 "../lib/comp/bln_act.s7i" */ o_4941_process_expr(rflIdx(*o_7114_params, 3L), o_7115_c_expr); /* line 168 "../lib/comp/bln_act.s7i" */ strAppend(&(((structType)(*o_7115_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[625] /* ") & 1" */); } /* line 1 "no_file" */ /* 3889 */ /* line 172 "../lib/comp/bln_act.s7i" */ static void/*t_1_void*/ o_7116_BLN_LE (const objRefType/*t_19_reference*/ o_7117_function, const listType/*t_20_ref_list*/ *const o_7118_params, structType/*t_164_expr_type*/ *const o_7119_c_expr) { /* line 176 "../lib/comp/bln_act.s7i" */ { /* line 176 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 176 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7119_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 176 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 176 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 176 "../lib/comp/bln_act.s7i" */ } else { /* line 176 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 176 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 176 "../lib/comp/bln_act.s7i" */ } } /* line 177 "../lib/comp/bln_act.s7i" */ o_4941_process_expr(rflIdx(*o_7118_params, 1L), o_7119_c_expr); /* line 178 "../lib/comp/bln_act.s7i" */ strAppend(&(((structType)(*o_7119_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[626] /* ") <= (" */); /* line 179 "../lib/comp/bln_act.s7i" */ o_4941_process_expr(rflIdx(*o_7118_params, 3L), o_7119_c_expr); /* line 180 "../lib/comp/bln_act.s7i" */ { /* line 180 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 180 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7119_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 180 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 180 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 180 "../lib/comp/bln_act.s7i" */ } else { /* line 180 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 180 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 180 "../lib/comp/bln_act.s7i" */ } } } /* line 1 "no_file" */ /* 3890 */ /* line 184 "../lib/comp/bln_act.s7i" */ static void/*t_1_void*/ o_7120_BLN_LT (const objRefType/*t_19_reference*/ o_7121_function, const listType/*t_20_ref_list*/ *const o_7122_params, structType/*t_164_expr_type*/ *const o_7123_c_expr) { /* line 188 "../lib/comp/bln_act.s7i" */ { /* line 188 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 188 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7123_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 188 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 188 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 188 "../lib/comp/bln_act.s7i" */ } else { /* line 188 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 188 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 188 "../lib/comp/bln_act.s7i" */ } } /* line 189 "../lib/comp/bln_act.s7i" */ o_4941_process_expr(rflIdx(*o_7122_params, 1L), o_7123_c_expr); /* line 190 "../lib/comp/bln_act.s7i" */ strAppend(&(((structType)(*o_7123_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[627] /* ") < (" */); /* line 191 "../lib/comp/bln_act.s7i" */ o_4941_process_expr(rflIdx(*o_7122_params, 3L), o_7123_c_expr); /* line 192 "../lib/comp/bln_act.s7i" */ { /* line 192 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 192 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7123_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 192 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 192 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 192 "../lib/comp/bln_act.s7i" */ } else { /* line 192 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 192 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 192 "../lib/comp/bln_act.s7i" */ } } } /* line 1 "no_file" */ /* 3891 */ /* line 196 "../lib/comp/bln_act.s7i" */ static void/*t_1_void*/ o_7124_BLN_NE (const objRefType/*t_19_reference*/ o_7125_function, const listType/*t_20_ref_list*/ *const o_7126_params, structType/*t_164_expr_type*/ *const o_7127_c_expr) { /* line 200 "../lib/comp/bln_act.s7i" */ { /* line 200 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 200 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7127_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 200 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 200 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 200 "../lib/comp/bln_act.s7i" */ } else { /* line 200 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 200 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 200 "../lib/comp/bln_act.s7i" */ } } /* line 201 "../lib/comp/bln_act.s7i" */ o_4941_process_expr(rflIdx(*o_7126_params, 1L), o_7127_c_expr); /* line 202 "../lib/comp/bln_act.s7i" */ strAppend(&(((structType)(*o_7127_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[352] /* ") != (" */); /* line 203 "../lib/comp/bln_act.s7i" */ o_4941_process_expr(rflIdx(*o_7126_params, 3L), o_7127_c_expr); /* line 204 "../lib/comp/bln_act.s7i" */ { /* line 204 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 204 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7127_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 204 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 204 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 204 "../lib/comp/bln_act.s7i" */ } else { /* line 204 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 204 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 204 "../lib/comp/bln_act.s7i" */ } } } /* line 1 "no_file" */ /* 3892 */ /* line 208 "../lib/comp/bln_act.s7i" */ static void/*t_1_void*/ o_7128_BLN_NOT (const objRefType/*t_19_reference*/ o_7129_function, const listType/*t_20_ref_list*/ *const o_7130_params, structType/*t_164_expr_type*/ *const o_7131_c_expr) { /* line 212 "../lib/comp/bln_act.s7i" */ strAppend(&(((structType)(*o_7131_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[628] /* "!(" */); /* line 213 "../lib/comp/bln_act.s7i" */ o_4941_process_expr(rflIdx(*o_7130_params, 2L), o_7131_c_expr); /* line 214 "../lib/comp/bln_act.s7i" */ { /* line 214 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 214 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7131_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 214 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 214 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 214 "../lib/comp/bln_act.s7i" */ } else { /* line 214 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 214 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 214 "../lib/comp/bln_act.s7i" */ } } } /* line 1 "no_file" */ /* 3893 */ /* line 218 "../lib/comp/bln_act.s7i" */ static void/*t_1_void*/ o_7132_BLN_OR (const objRefType/*t_19_reference*/ o_7133_function, const listType/*t_20_ref_list*/ *const o_7134_params, structType/*t_164_expr_type*/ *const o_7135_c_expr) { /* line 222 "../lib/comp/bln_act.s7i" */ if (o_5093_isActionExpression(rflIdx(*o_7134_params, 1L), &str[629] /* "BLN_OR" */)) { /* line 223 "../lib/comp/bln_act.s7i" */ o_4941_process_expr(rflIdx(*o_7134_params, 1L), o_7135_c_expr); } else { /* line 225 "../lib/comp/bln_act.s7i" */ { /* line 225 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 225 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7135_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 225 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 225 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 225 "../lib/comp/bln_act.s7i" */ } else { /* line 225 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 225 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 225 "../lib/comp/bln_act.s7i" */ } } /* line 226 "../lib/comp/bln_act.s7i" */ o_4941_process_expr(rflIdx(*o_7134_params, 1L), o_7135_c_expr); /* line 227 "../lib/comp/bln_act.s7i" */ { /* line 227 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 227 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7135_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 227 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 227 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 227 "../lib/comp/bln_act.s7i" */ } else { /* line 227 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 227 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 227 "../lib/comp/bln_act.s7i" */ } } } /* line 229 "../lib/comp/bln_act.s7i" */ strAppend(&(((structType)(*o_7135_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[630] /* " ||\n" */); /* line 230 "../lib/comp/bln_act.s7i" */ if ((refCategory(rflIdx(*o_7134_params, 3L))) == (6L)) { /* line 231 "../lib/comp/bln_act.s7i" */ strAppendTemp(&(((structType)(*o_7135_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(rflIdx(*o_7134_params, 3L))); } else { /* line 233 "../lib/comp/bln_act.s7i" */ o_4819_setDiagnosticLine(o_7135_c_expr); } /* line 235 "../lib/comp/bln_act.s7i" */ { /* line 235 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 235 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7135_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 235 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 235 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 235 "../lib/comp/bln_act.s7i" */ } else { /* line 235 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 235 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 235 "../lib/comp/bln_act.s7i" */ } } /* line 236 "../lib/comp/bln_act.s7i" */ o_4941_process_expr(rflIdx(*o_7134_params, 3L), o_7135_c_expr); /* line 237 "../lib/comp/bln_act.s7i" */ { /* line 237 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 237 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7135_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 237 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 237 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 237 "../lib/comp/bln_act.s7i" */ } else { /* line 237 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 237 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 237 "../lib/comp/bln_act.s7i" */ } } } /* line 1 "no_file" */ /* 3894 */ /* line 241 "../lib/comp/bln_act.s7i" */ static void/*t_1_void*/ o_7136_BLN_ORD (const objRefType/*t_19_reference*/ o_7137_function, const listType/*t_20_ref_list*/ *const o_7138_params, structType/*t_164_expr_type*/ *const o_7139_c_expr) { /* line 245 "../lib/comp/bln_act.s7i" */ strAppend(&(((structType)(*o_7139_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[631] /* "(intType)(" */); /* line 246 "../lib/comp/bln_act.s7i" */ o_4941_process_expr(rflIdx(*o_7138_params, 1L), o_7139_c_expr); /* line 247 "../lib/comp/bln_act.s7i" */ { /* line 247 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 247 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7139_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 247 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 247 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 247 "../lib/comp/bln_act.s7i" */ } else { /* line 247 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 247 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 247 "../lib/comp/bln_act.s7i" */ } } } /* line 1 "no_file" */ /* 3895 */ /* line 251 "../lib/comp/bln_act.s7i" */ static void/*t_1_void*/ o_7140_BLN_VALUE (const objRefType/*t_19_reference*/ o_7141_function, const listType/*t_20_ref_list*/ *const o_7142_params, structType/*t_164_expr_type*/ *const o_7143_c_expr) { /* line 255 "../lib/comp/bln_act.s7i" */ strAppend(&(((structType)(*o_7143_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[632] /* "blnValue(" */); /* line 256 "../lib/comp/bln_act.s7i" */ o_4941_process_expr(rflIdx(*o_7142_params, 1L), o_7143_c_expr); /* line 257 "../lib/comp/bln_act.s7i" */ { /* line 257 "../lib/comp/bln_act.s7i" */ striType *tmp_1; /* line 257 "../lib/comp/bln_act.s7i" */ tmp_1=&(((structType)(*o_7143_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 257 "../lib/comp/bln_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 257 "../lib/comp/bln_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 257 "../lib/comp/bln_act.s7i" */ } else { /* line 257 "../lib/comp/bln_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 257 "../lib/comp/bln_act.s7i" */ (*tmp_1)->size++; /* line 257 "../lib/comp/bln_act.s7i" */ } } } /* line 1 "no_file" */ /* 3896 */ /* 3897 */ /* line 40 "../lib/comp/bst_act.s7i" */ static void/*t_1_void*/ o_7144_bst_prototypes (interfaceType/*t_46_file*/ *const o_7145_c_prog) { /* line 43 "../lib/comp/bst_act.s7i" */ o_6547_declareExtern(o_7145_c_prog, &str[633] /* "void bstAppend (bstriType *const, const_bstriType);" */); /* line 44 "../lib/comp/bst_act.s7i" */ o_6547_declareExtern(o_7145_c_prog, &str[634] /* "bstriType bstCat (const_bstriType, const_bstriType);" */); /* line 45 "../lib/comp/bst_act.s7i" */ o_6547_declareExtern(o_7145_c_prog, &str[635] /* "intType bstCmp (const const_bstriType, const const_bstriType);" */); /* line 46 "../lib/comp/bst_act.s7i" */ o_6547_declareExtern(o_7145_c_prog, &str[636] /* "intType bstCmpGeneric (const genericType, const genericType);" */); /* line 47 "../lib/comp/bst_act.s7i" */ o_6547_declareExtern(o_7145_c_prog, &str[637] /* "void bstCpy (bstriType *const, const const_bstriType);" */); /* line 48 "../lib/comp/bst_act.s7i" */ o_6547_declareExtern(o_7145_c_prog, &str[638] /* "void bstCpyGeneric (genericType *const, const genericType);" */); /* line 49 "../lib/comp/bst_act.s7i" */ o_6547_declareExtern(o_7145_c_prog, &str[639] /* "bstriType bstCreate (const const_bstriType);" */); /* line 50 "../lib/comp/bst_act.s7i" */ o_6547_declareExtern(o_7145_c_prog, &str[640] /* "genericType bstCreateGeneric (const genericType);" */); /* line 51 "../lib/comp/bst_act.s7i" */ o_6547_declareExtern(o_7145_c_prog, &str[641] /* "void bstDestr (const const_bstriType);" */); /* line 52 "../lib/comp/bst_act.s7i" */ o_6547_declareExtern(o_7145_c_prog, &str[642] /* "void bstDestrGeneric (const genericType);" */); /* line 53 "../lib/comp/bst_act.s7i" */ o_6547_declareExtern(o_7145_c_prog, &str[643] /* "intType bstHashCode (const const_bstriType);" */); /* line 54 "../lib/comp/bst_act.s7i" */ o_6547_declareExtern(o_7145_c_prog, &str[644] /* "bstriType bstParse (const const_striType);" */); /* line 55 "../lib/comp/bst_act.s7i" */ o_6547_declareExtern(o_7145_c_prog, &str[645] /* "striType bstStr (const const_bstriType);" */); /* line 56 "../lib/comp/bst_act.s7i" */ o_6547_declareExtern(o_7145_c_prog, &str[646] /* "bstriType bstValue (objRefType);" */); } /* line 1 "no_file" */ /* 3898 */ /* line 60 "../lib/comp/bst_act.s7i" */ static void/*t_1_void*/ o_7146_BST_APPEND (const objRefType/*t_19_reference*/ o_7147_function, const listType/*t_20_ref_list*/ *const o_7148_params, structType/*t_164_expr_type*/ *const o_7149_c_expr) { /* line 64 "../lib/comp/bst_act.s7i" */ structType/*t_164_expr_type*/ o_7150_c_param1; /* line 65 "../lib/comp/bst_act.s7i" */ structType/*t_164_expr_type*/ o_7151_c_param3; /* line 64 "../lib/comp/bst_act.s7i" */ o_7150_c_param1=create_164(sct[211]); /* line 65 "../lib/comp/bst_act.s7i" */ o_7151_c_param3=create_164(sct[212]); /* line 67 "../lib/comp/bst_act.s7i" */ o_4941_process_expr(rflIdx(*o_7148_params, 1L), &(o_7150_c_param1)); /* line 68 "../lib/comp/bst_act.s7i" */ ((structType)(o_7151_c_param3))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_7150_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 69 "../lib/comp/bst_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7148_params, 3L), &(o_7151_c_param3)); /* line 70 "../lib/comp/bst_act.s7i" */ if (o_5049_has_temp_values(o_7151_c_param3)) { /* line 71 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7149_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 72 "../lib/comp/bst_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_7150_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_7149_c_expr); /* line 73 "../lib/comp/bst_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_7151_c_param3))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_7149_c_expr); /* line 74 "../lib/comp/bst_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_7150_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_7149_c_expr); /* line 75 "../lib/comp/bst_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_7151_c_param3))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_7149_c_expr); } /* line 77 "../lib/comp/bst_act.s7i" */ o_4819_setDiagnosticLine(o_7149_c_expr); /* line 78 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7149_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[647] /* "bstAppend(&(" */); /* line 79 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7149_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_7150_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 80 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7149_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 81 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7149_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_7151_c_param3))->stru[5].value.striValue/*->o_4783_expr*/); /* line 82 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7149_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 83 "../lib/comp/bst_act.s7i" */ if (o_5049_has_temp_values(o_7151_c_param3)) { /* line 84 "../lib/comp/bst_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_7150_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_7149_c_expr); /* line 85 "../lib/comp/bst_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_7151_c_param3))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_7149_c_expr); /* line 86 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7149_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 60 "../lib/comp/bst_act.s7i" */ destr_164(o_7150_c_param1); /* line 60 "../lib/comp/bst_act.s7i" */ destr_164(o_7151_c_param3); } /* line 1 "no_file" */ /* 3899 */ /* line 91 "../lib/comp/bst_act.s7i" */ static void/*t_1_void*/ o_7152_BST_CMP (const objRefType/*t_19_reference*/ o_7153_function, const listType/*t_20_ref_list*/ *const o_7154_params, structType/*t_164_expr_type*/ *const o_7155_c_expr) { /* line 95 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7155_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[648] /* "bstCmp(" */); /* line 96 "../lib/comp/bst_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7154_params, 1L), o_7155_c_expr); /* line 97 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7155_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 98 "../lib/comp/bst_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7154_params, 2L), o_7155_c_expr); /* line 99 "../lib/comp/bst_act.s7i" */ { /* line 99 "../lib/comp/bst_act.s7i" */ striType *tmp_1; /* line 99 "../lib/comp/bst_act.s7i" */ tmp_1=&(((structType)(*o_7155_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 99 "../lib/comp/bst_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 99 "../lib/comp/bst_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 99 "../lib/comp/bst_act.s7i" */ } else { /* line 99 "../lib/comp/bst_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 99 "../lib/comp/bst_act.s7i" */ (*tmp_1)->size++; /* line 99 "../lib/comp/bst_act.s7i" */ } } } /* line 1 "no_file" */ /* 3900 */ /* line 103 "../lib/comp/bst_act.s7i" */ static void/*t_1_void*/ o_7156_BST_CPY (const objRefType/*t_19_reference*/ o_7157_function, const listType/*t_20_ref_list*/ *const o_7158_params, structType/*t_164_expr_type*/ *const o_7159_c_expr) { /* line 107 "../lib/comp/bst_act.s7i" */ structType/*t_164_expr_type*/ o_7160_c_param1; /* line 108 "../lib/comp/bst_act.s7i" */ structType/*t_164_expr_type*/ o_7161_c_param3; /* line 107 "../lib/comp/bst_act.s7i" */ o_7160_c_param1=create_164(sct[213]); /* line 108 "../lib/comp/bst_act.s7i" */ o_7161_c_param3=create_164(sct[214]); /* line 110 "../lib/comp/bst_act.s7i" */ o_4941_process_expr(rflIdx(*o_7158_params, 1L), &(o_7160_c_param1)); /* line 111 "../lib/comp/bst_act.s7i" */ ((structType)(o_7161_c_param3))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_7160_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 112 "../lib/comp/bst_act.s7i" */ o_4941_process_expr(rflIdx(*o_7158_params, 3L), &(o_7161_c_param3)); /* line 113 "../lib/comp/bst_act.s7i" */ if (o_5049_has_temp_values(o_7161_c_param3)) { /* line 114 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7159_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 115 "../lib/comp/bst_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_7160_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_7159_c_expr); /* line 116 "../lib/comp/bst_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_7161_c_param3))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_7159_c_expr); /* line 117 "../lib/comp/bst_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_7160_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_7159_c_expr); /* line 118 "../lib/comp/bst_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_7161_c_param3))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_7159_c_expr); } /* line 120 "../lib/comp/bst_act.s7i" */ if (((((structType)(o_7161_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 121 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7159_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 122 "../lib/comp/bst_act.s7i" */ o_4819_setDiagnosticLine(o_7159_c_expr); /* line 123 "../lib/comp/bst_act.s7i" */ if (o_5018_isNormalVariable(rflIdx(*o_7158_params, 1L))) { /* line 124 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7159_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[649] /* "bstriType old_bstri=" */); /* line 125 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7159_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_7160_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 126 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7159_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 127 "../lib/comp/bst_act.s7i" */ o_4819_setDiagnosticLine(o_7159_c_expr); /* line 128 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7159_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_7160_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 129 "../lib/comp/bst_act.s7i" */ { /* line 129 "../lib/comp/bst_act.s7i" */ striType *tmp_1; /* line 129 "../lib/comp/bst_act.s7i" */ tmp_1=&(((structType)(*o_7159_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 129 "../lib/comp/bst_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 129 "../lib/comp/bst_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 129 "../lib/comp/bst_act.s7i" */ } else { /* line 129 "../lib/comp/bst_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 129 "../lib/comp/bst_act.s7i" */ (*tmp_1)->size++; /* line 129 "../lib/comp/bst_act.s7i" */ } } } else { /* line 131 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7159_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[650] /* "bstriType *bstri_ptr=&(" */); /* line 132 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7159_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_7160_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 133 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7159_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 134 "../lib/comp/bst_act.s7i" */ o_4819_setDiagnosticLine(o_7159_c_expr); /* line 135 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7159_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[651] /* "bstriType old_bstri=*bstri_ptr;\n" */); /* line 136 "../lib/comp/bst_act.s7i" */ o_4819_setDiagnosticLine(o_7159_c_expr); /* line 137 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7159_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[652] /* "*bstri_ptr=" */); } /* line 139 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7159_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_7161_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 140 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7159_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 141 "../lib/comp/bst_act.s7i" */ o_4819_setDiagnosticLine(o_7159_c_expr); /* line 142 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7159_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[653] /* "bstDestr(old_bstri);\n" */); /* line 143 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7159_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } else { /* line 145 "../lib/comp/bst_act.s7i" */ o_4819_setDiagnosticLine(o_7159_c_expr); /* line 146 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7159_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[269] /* "bstCpy(&(" */); /* line 147 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7159_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_7160_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 148 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7159_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 149 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7159_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_7161_c_param3))->stru[5].value.striValue/*->o_4783_expr*/); /* line 150 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7159_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 152 "../lib/comp/bst_act.s7i" */ if (o_5049_has_temp_values(o_7161_c_param3)) { /* line 153 "../lib/comp/bst_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_7160_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_7159_c_expr); /* line 154 "../lib/comp/bst_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_7161_c_param3))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_7159_c_expr); /* line 155 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7159_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 103 "../lib/comp/bst_act.s7i" */ destr_164(o_7160_c_param1); /* line 103 "../lib/comp/bst_act.s7i" */ destr_164(o_7161_c_param3); } /* line 1 "no_file" */ /* 3901 */ /* line 160 "../lib/comp/bst_act.s7i" */ static void/*t_1_void*/ o_7162_BST_EQ (const objRefType/*t_19_reference*/ o_7163_function, const listType/*t_20_ref_list*/ *const o_7164_params, structType/*t_164_expr_type*/ *const o_7165_c_expr) { /* line 164 "../lib/comp/bst_act.s7i" */ striType/*t_15_string*/ o_7166_bstri_a_name; /* line 165 "../lib/comp/bst_act.s7i" */ striType/*t_15_string*/ o_7167_bstri_b_name; /* line 164 "../lib/comp/bst_act.s7i" */ o_7166_bstri_a_name=strEmpty(); /* "" */ /* line 165 "../lib/comp/bst_act.s7i" */ o_7167_bstri_b_name=strEmpty(); /* "" */ /* line 167 "../lib/comp/bst_act.s7i" */ { /* line 167 "../lib/comp/bst_act.s7i" */ striType *tmp_1; /* line 167 "../lib/comp/bst_act.s7i" */ tmp_1=&(((structType)(*o_7165_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 167 "../lib/comp/bst_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 167 "../lib/comp/bst_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 167 "../lib/comp/bst_act.s7i" */ } else { /* line 167 "../lib/comp/bst_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 167 "../lib/comp/bst_act.s7i" */ (*tmp_1)->size++; /* line 167 "../lib/comp/bst_act.s7i" */ } } { /* line 168 "../lib/comp/bst_act.s7i" */ striType old_stri=o_7166_bstri_a_name; /* line 168 "../lib/comp/bst_act.s7i" */ o_7166_bstri_a_name=o_5031_getParameterAsVariable(&str[654] /* "const_bstriType" */, &str[655] /* "tmp_a_" */, rflIdx(*o_7164_params, 1L), o_7165_c_expr); /* line 168 "../lib/comp/bst_act.s7i" */ strDestr(old_stri); } { /* line 169 "../lib/comp/bst_act.s7i" */ striType old_stri=o_7167_bstri_b_name; /* line 169 "../lib/comp/bst_act.s7i" */ o_7167_bstri_b_name=o_5031_getParameterAsVariable(&str[654] /* "const_bstriType" */, &str[656] /* "tmp_b_" */, rflIdx(*o_7164_params, 3L), o_7165_c_expr); /* line 169 "../lib/comp/bst_act.s7i" */ strDestr(old_stri); } /* line 172 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7165_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7166_bstri_a_name); /* line 173 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7165_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[657] /* "->size==" */); /* line 174 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7165_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7167_bstri_b_name); /* line 175 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7165_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[658] /* "->size&&memcmp(" */); /* line 176 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7165_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7166_bstri_a_name); /* line 177 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7165_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[659] /* "->mem," */); /* line 178 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7165_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7167_bstri_b_name); /* line 179 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7165_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[659] /* "->mem," */); /* line 180 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7165_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7166_bstri_a_name); /* line 181 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7165_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[660] /* "->size*sizeof(unsigned char))==0)" */); /* line 160 "../lib/comp/bst_act.s7i" */ strDestr(o_7166_bstri_a_name); /* line 160 "../lib/comp/bst_act.s7i" */ strDestr(o_7167_bstri_b_name); } /* line 1 "no_file" */ /* 3902 */ /* line 185 "../lib/comp/bst_act.s7i" */ static void/*t_1_void*/ o_7168_BST_HASHCODE (const objRefType/*t_19_reference*/ o_7169_function, const listType/*t_20_ref_list*/ *const o_7170_params, structType/*t_164_expr_type*/ *const o_7171_c_expr) { /* line 189 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7171_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[661] /* "bstHashCode(" */); /* line 190 "../lib/comp/bst_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7170_params, 1L), o_7171_c_expr); /* line 191 "../lib/comp/bst_act.s7i" */ { /* line 191 "../lib/comp/bst_act.s7i" */ striType *tmp_1; /* line 191 "../lib/comp/bst_act.s7i" */ tmp_1=&(((structType)(*o_7171_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 191 "../lib/comp/bst_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 191 "../lib/comp/bst_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 191 "../lib/comp/bst_act.s7i" */ } else { /* line 191 "../lib/comp/bst_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 191 "../lib/comp/bst_act.s7i" */ (*tmp_1)->size++; /* line 191 "../lib/comp/bst_act.s7i" */ } } } /* line 1 "no_file" */ /* 3903 */ /* line 195 "../lib/comp/bst_act.s7i" */ static void/*t_1_void*/ o_7172_process_const_bst_idx (const objRefType/*t_19_reference*/ o_7173_function, const bstriType/*t_68_bstring*/ o_7174_bstri, const objRefType/*t_19_reference*/ o_7175_param3, structType/*t_164_expr_type*/ *const o_7176_c_expr) { /* line 199 "../lib/comp/bst_act.s7i" */ objRefType/*t_19_reference*/ o_7177_evaluatedParam=NULL; /* line 200 "../lib/comp/bst_act.s7i" */ intType/*t_14_integer*/ o_7178_index=0; /* line 201 "../lib/comp/bst_act.s7i" */ striType/*t_15_string*/ o_7179_index_name; /* line 201 "../lib/comp/bst_act.s7i" */ o_7179_index_name=strEmpty(); /* "" */ /* line 203 "../lib/comp/bst_act.s7i" */ ++(o_5107_countOptimizations); /* line 204 "../lib/comp/bst_act.s7i" */ if (o_5154_getConstant(o_7175_param3, 9L, &(o_7177_evaluatedParam))) { /* line 205 "../lib/comp/bst_act.s7i" */ o_7178_index=intValue(o_7177_evaluatedParam); /* line 206 "../lib/comp/bst_act.s7i" */ if (((o_7178_index) < (1L)) || /* line 206 "../lib/comp/bst_act.s7i" */ ((o_7178_index) > ((intType)((o_7174_bstri)->size)))) { /* line 207 "../lib/comp/bst_act.s7i" */ strAppendTemp(&(((structType)(*o_7176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[406] /* "RANGE_ERROR" */)); } else { { /* line 209 "../lib/comp/bst_act.s7i" */ const_bstriType tmp_2; /* line 209 "../lib/comp/bst_act.s7i" */ uintType idx_2; /* line 209 "../lib/comp/bst_act.s7i" */ strAppendTemp(&(((structType)(*o_7176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6500_charLiteral((*(tmp_2=o_7174_bstri, &tmp_2->mem[(idx_2=(uintType)((o_7178_index)-1), idxChk(idx_2>=tmp_2->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)])))); } } } else { /* line 212 "../lib/comp/bst_act.s7i" */ strAppendTemp(&(((structType)(*o_7176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6497_bstriLiteral(o_7174_bstri)); /* line 213 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[662] /* "->mem[" */); /* line 214 "../lib/comp/bst_act.s7i" */ if (o_3450_array_range_check) { /* line 215 "../lib/comp/bst_act.s7i" */ ++(o_5109_countRangeChecks); /* line 216 "../lib/comp/bst_act.s7i" */ ++(((structType)(*o_7176_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 217 "../lib/comp/bst_act.s7i" */ union { /* line 217 "../lib/comp/bst_act.s7i" */ struct striStruct striBuf; /* line 217 "../lib/comp/bst_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 217 "../lib/comp/bst_act.s7i" */ } buffer_2; /* line 217 "../lib/comp/bst_act.s7i" */ striType old_stri=o_7179_index_name; /* line 217 "../lib/comp/bst_act.s7i" */ o_7179_index_name=strConcat(&str[408] /* "idx_" */, intStrToBuffer(((structType)(*o_7176_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 217 "../lib/comp/bst_act.s7i" */ strDestr(old_stri); } /* line 218 "../lib/comp/bst_act.s7i" */ if (((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/) { /* line 219 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7176_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[409] /* "uintType " */); } else { /* line 221 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7176_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[410] /* "intType " */); } /* line 223 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7176_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_7179_index_name); /* line 224 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7176_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 225 "../lib/comp/bst_act.s7i" */ { /* line 225 "../lib/comp/bst_act.s7i" */ striType *tmp_1; /* line 225 "../lib/comp/bst_act.s7i" */ tmp_1=&(((structType)(*o_7176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 225 "../lib/comp/bst_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 225 "../lib/comp/bst_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 225 "../lib/comp/bst_act.s7i" */ } else { /* line 225 "../lib/comp/bst_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 225 "../lib/comp/bst_act.s7i" */ (*tmp_1)->size++; /* line 225 "../lib/comp/bst_act.s7i" */ } } /* line 226 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7179_index_name); /* line 227 "../lib/comp/bst_act.s7i" */ { /* line 227 "../lib/comp/bst_act.s7i" */ striType *tmp_1; /* line 227 "../lib/comp/bst_act.s7i" */ tmp_1=&(((structType)(*o_7176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 227 "../lib/comp/bst_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 227 "../lib/comp/bst_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 227 "../lib/comp/bst_act.s7i" */ } else { /* line 227 "../lib/comp/bst_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 227 "../lib/comp/bst_act.s7i" */ (*tmp_1)->size++; /* line 227 "../lib/comp/bst_act.s7i" */ } } /* line 228 "../lib/comp/bst_act.s7i" */ if (((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/) { /* line 229 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[663] /* "(uintType)((" */); /* line 230 "../lib/comp/bst_act.s7i" */ o_4941_process_expr(o_7175_param3, o_7176_c_expr); /* line 231 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[664] /* ")-1), idxChk(" */); } else { /* line 233 "../lib/comp/bst_act.s7i" */ { /* line 233 "../lib/comp/bst_act.s7i" */ striType *tmp_1; /* line 233 "../lib/comp/bst_act.s7i" */ tmp_1=&(((structType)(*o_7176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 233 "../lib/comp/bst_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 233 "../lib/comp/bst_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 233 "../lib/comp/bst_act.s7i" */ } else { /* line 233 "../lib/comp/bst_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 233 "../lib/comp/bst_act.s7i" */ (*tmp_1)->size++; /* line 233 "../lib/comp/bst_act.s7i" */ } } /* line 234 "../lib/comp/bst_act.s7i" */ o_4941_process_expr(o_7175_param3, o_7176_c_expr); /* line 235 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[665] /* ")-1, idxChk(" */); /* line 236 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7179_index_name); /* line 237 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[413] /* "<0 || " */); } /* line 239 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7179_index_name); /* line 240 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[414] /* ">=" */); { /* line 241 "../lib/comp/bst_act.s7i" */ union { /* line 241 "../lib/comp/bst_act.s7i" */ struct striStruct striBuf; /* line 241 "../lib/comp/bst_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 241 "../lib/comp/bst_act.s7i" */ } buffer_1; /* line 241 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((intType)((o_7174_bstri)->size), &buffer_1.striBuf)); } /* line 242 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[415] /* ") ? " */); /* line 243 "../lib/comp/bst_act.s7i" */ strAppendTemp(&(((structType)(*o_7176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[406] /* "RANGE_ERROR" */)); /* line 244 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[416] /* " : 0, " */); /* line 245 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7179_index_name); /* line 246 "../lib/comp/bst_act.s7i" */ { /* line 246 "../lib/comp/bst_act.s7i" */ striType *tmp_1; /* line 246 "../lib/comp/bst_act.s7i" */ tmp_1=&(((structType)(*o_7176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 246 "../lib/comp/bst_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 246 "../lib/comp/bst_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 246 "../lib/comp/bst_act.s7i" */ } else { /* line 246 "../lib/comp/bst_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 246 "../lib/comp/bst_act.s7i" */ (*tmp_1)->size++; /* line 246 "../lib/comp/bst_act.s7i" */ } } } else { /* line 248 "../lib/comp/bst_act.s7i" */ ++(o_5110_countNoRangeChecks); /* line 249 "../lib/comp/bst_act.s7i" */ { /* line 249 "../lib/comp/bst_act.s7i" */ striType *tmp_1; /* line 249 "../lib/comp/bst_act.s7i" */ tmp_1=&(((structType)(*o_7176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 249 "../lib/comp/bst_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 249 "../lib/comp/bst_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 249 "../lib/comp/bst_act.s7i" */ } else { /* line 249 "../lib/comp/bst_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 249 "../lib/comp/bst_act.s7i" */ (*tmp_1)->size++; /* line 249 "../lib/comp/bst_act.s7i" */ } } /* line 250 "../lib/comp/bst_act.s7i" */ o_4941_process_expr(o_7175_param3, o_7176_c_expr); /* line 251 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[666] /* ")-1" */); } /* line 253 "../lib/comp/bst_act.s7i" */ { /* line 253 "../lib/comp/bst_act.s7i" */ striType *tmp_1; /* line 253 "../lib/comp/bst_act.s7i" */ tmp_1=&(((structType)(*o_7176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 253 "../lib/comp/bst_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 253 "../lib/comp/bst_act.s7i" */ strPush(&(*tmp_1), (charType) ']'); /* line 253 "../lib/comp/bst_act.s7i" */ } else { /* line 253 "../lib/comp/bst_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ']'; /* line 253 "../lib/comp/bst_act.s7i" */ (*tmp_1)->size++; /* line 253 "../lib/comp/bst_act.s7i" */ } } } /* line 195 "../lib/comp/bst_act.s7i" */ strDestr(o_7179_index_name); } /* line 1 "no_file" */ /* 3904 */ /* line 258 "../lib/comp/bst_act.s7i" */ static void/*t_1_void*/ o_7180_process_const_bst_idx (const objRefType/*t_19_reference*/ o_7181_function, const objRefType/*t_19_reference*/ o_7182_param1, const intType/*t_14_integer*/ o_7183_index, structType/*t_164_expr_type*/ *const o_7184_c_expr) { /* line 262 "../lib/comp/bst_act.s7i" */ striType/*t_15_string*/ o_7185_bstri_name; /* line 262 "../lib/comp/bst_act.s7i" */ o_7185_bstri_name=strEmpty(); /* "" */ /* line 264 "../lib/comp/bst_act.s7i" */ ++(o_5107_countOptimizations); /* line 265 "../lib/comp/bst_act.s7i" */ if ((o_7183_index) < (1L)) { /* line 266 "../lib/comp/bst_act.s7i" */ strAppendTemp(&(((structType)(*o_7184_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[406] /* "RANGE_ERROR" */)); } else /* line 267 "../lib/comp/bst_act.s7i" */ if (o_3450_array_range_check) { /* line 268 "../lib/comp/bst_act.s7i" */ ++(o_5109_countRangeChecks); /* line 269 "../lib/comp/bst_act.s7i" */ ++(((structType)(*o_7184_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 270 "../lib/comp/bst_act.s7i" */ union { /* line 270 "../lib/comp/bst_act.s7i" */ struct striStruct striBuf; /* line 270 "../lib/comp/bst_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 270 "../lib/comp/bst_act.s7i" */ } buffer_2; /* line 270 "../lib/comp/bst_act.s7i" */ striType old_stri=o_7185_bstri_name; /* line 270 "../lib/comp/bst_act.s7i" */ o_7185_bstri_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_7184_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 270 "../lib/comp/bst_act.s7i" */ strDestr(old_stri); } /* line 271 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7184_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[667] /* "const_bstriType " */); /* line 272 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7184_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_7185_bstri_name); /* line 273 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7184_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 274 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7184_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[420] /* "(*(" */); /* line 275 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7184_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7185_bstri_name); /* line 276 "../lib/comp/bst_act.s7i" */ { /* line 276 "../lib/comp/bst_act.s7i" */ striType *tmp_1; /* line 276 "../lib/comp/bst_act.s7i" */ tmp_1=&(((structType)(*o_7184_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 276 "../lib/comp/bst_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 276 "../lib/comp/bst_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 276 "../lib/comp/bst_act.s7i" */ } else { /* line 276 "../lib/comp/bst_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 276 "../lib/comp/bst_act.s7i" */ (*tmp_1)->size++; /* line 276 "../lib/comp/bst_act.s7i" */ } } /* line 277 "../lib/comp/bst_act.s7i" */ o_4970_getAnyParamToExpr(o_7182_param1, o_7184_c_expr); /* line 278 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7184_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[421] /* ", &" */); /* line 279 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7184_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7185_bstri_name); /* line 280 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7184_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[668] /* "->mem[(idxChk(" */); /* line 281 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7184_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7185_bstri_name); /* line 282 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7184_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[669] /* "->size<" */); { /* line 283 "../lib/comp/bst_act.s7i" */ union { /* line 283 "../lib/comp/bst_act.s7i" */ struct striStruct striBuf; /* line 283 "../lib/comp/bst_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 283 "../lib/comp/bst_act.s7i" */ } buffer_1; /* line 283 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7184_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(o_7183_index, &buffer_1.striBuf)); } /* line 284 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7184_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[415] /* ") ? " */); /* line 285 "../lib/comp/bst_act.s7i" */ strAppendTemp(&(((structType)(*o_7184_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[406] /* "RANGE_ERROR" */)); /* line 286 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7184_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[416] /* " : 0, " */); { /* line 287 "../lib/comp/bst_act.s7i" */ union { /* line 287 "../lib/comp/bst_act.s7i" */ struct striStruct striBuf; /* line 287 "../lib/comp/bst_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 287 "../lib/comp/bst_act.s7i" */ } buffer_1; /* line 287 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7184_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((o_7183_index)-1, &buffer_1.striBuf)); } /* line 288 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7184_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[670] /* ")]))" */); } else { /* line 290 "../lib/comp/bst_act.s7i" */ ++(o_5110_countNoRangeChecks); /* line 291 "../lib/comp/bst_act.s7i" */ { /* line 291 "../lib/comp/bst_act.s7i" */ striType *tmp_1; /* line 291 "../lib/comp/bst_act.s7i" */ tmp_1=&(((structType)(*o_7184_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 291 "../lib/comp/bst_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 291 "../lib/comp/bst_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 291 "../lib/comp/bst_act.s7i" */ } else { /* line 291 "../lib/comp/bst_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 291 "../lib/comp/bst_act.s7i" */ (*tmp_1)->size++; /* line 291 "../lib/comp/bst_act.s7i" */ } } /* line 292 "../lib/comp/bst_act.s7i" */ o_4970_getAnyParamToExpr(o_7182_param1, o_7184_c_expr); /* line 293 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7184_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[671] /* ")->mem[" */); { /* line 294 "../lib/comp/bst_act.s7i" */ union { /* line 294 "../lib/comp/bst_act.s7i" */ struct striStruct striBuf; /* line 294 "../lib/comp/bst_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 294 "../lib/comp/bst_act.s7i" */ } buffer_1; /* line 294 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7184_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((o_7183_index)-1, &buffer_1.striBuf)); } /* line 295 "../lib/comp/bst_act.s7i" */ { /* line 295 "../lib/comp/bst_act.s7i" */ striType *tmp_1; /* line 295 "../lib/comp/bst_act.s7i" */ tmp_1=&(((structType)(*o_7184_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 295 "../lib/comp/bst_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 295 "../lib/comp/bst_act.s7i" */ strPush(&(*tmp_1), (charType) ']'); /* line 295 "../lib/comp/bst_act.s7i" */ } else { /* line 295 "../lib/comp/bst_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ']'; /* line 295 "../lib/comp/bst_act.s7i" */ (*tmp_1)->size++; /* line 295 "../lib/comp/bst_act.s7i" */ } } } /* line 258 "../lib/comp/bst_act.s7i" */ strDestr(o_7185_bstri_name); } /* line 1 "no_file" */ /* 3905 */ /* line 300 "../lib/comp/bst_act.s7i" */ static void/*t_1_void*/ o_7186_BST_IDX (const objRefType/*t_19_reference*/ o_7187_function, const listType/*t_20_ref_list*/ *const o_7188_params, structType/*t_164_expr_type*/ *const o_7189_c_expr) { /* line 304 "../lib/comp/bst_act.s7i" */ objRefType/*t_19_reference*/ o_7190_evaluatedParam=NULL; /* line 305 "../lib/comp/bst_act.s7i" */ striType/*t_15_string*/ o_7191_bstri_name; /* line 306 "../lib/comp/bst_act.s7i" */ striType/*t_15_string*/ o_7192_index_name; /* line 305 "../lib/comp/bst_act.s7i" */ o_7191_bstri_name=strEmpty(); /* "" */ /* line 306 "../lib/comp/bst_act.s7i" */ o_7192_index_name=strEmpty(); /* "" */ /* line 308 "../lib/comp/bst_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_7188_params, 1L), 13L, &(o_7190_evaluatedParam))) { { /* line 309 "../lib/comp/bst_act.s7i" */ bstriType tmp_1 = NULL; /* line 309 "../lib/comp/bst_act.s7i" */ o_7172_process_const_bst_idx(o_7187_function, (tmp_1=bstValue(o_7190_evaluatedParam)), rflIdx(*o_7188_params, 3L), o_7189_c_expr); /* line 309 "../lib/comp/bst_act.s7i" */ bstDestr(tmp_1); } } else /* line 310 "../lib/comp/bst_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_7188_params, 3L), 9L, &(o_7190_evaluatedParam))) { /* line 311 "../lib/comp/bst_act.s7i" */ o_7180_process_const_bst_idx(o_7187_function, rflIdx(*o_7188_params, 1L), intValue(o_7190_evaluatedParam), o_7189_c_expr); } else /* line 312 "../lib/comp/bst_act.s7i" */ if (o_3450_array_range_check) { /* line 313 "../lib/comp/bst_act.s7i" */ ++(o_5109_countRangeChecks); /* line 314 "../lib/comp/bst_act.s7i" */ ++(((structType)(*o_7189_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 315 "../lib/comp/bst_act.s7i" */ union { /* line 315 "../lib/comp/bst_act.s7i" */ struct striStruct striBuf; /* line 315 "../lib/comp/bst_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 315 "../lib/comp/bst_act.s7i" */ } buffer_2; /* line 315 "../lib/comp/bst_act.s7i" */ striType old_stri=o_7191_bstri_name; /* line 315 "../lib/comp/bst_act.s7i" */ o_7191_bstri_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_7189_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 315 "../lib/comp/bst_act.s7i" */ strDestr(old_stri); } { /* line 316 "../lib/comp/bst_act.s7i" */ union { /* line 316 "../lib/comp/bst_act.s7i" */ struct striStruct striBuf; /* line 316 "../lib/comp/bst_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 316 "../lib/comp/bst_act.s7i" */ } buffer_2; /* line 316 "../lib/comp/bst_act.s7i" */ striType old_stri=o_7192_index_name; /* line 316 "../lib/comp/bst_act.s7i" */ o_7192_index_name=strConcat(&str[408] /* "idx_" */, intStrToBuffer(((structType)(*o_7189_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 316 "../lib/comp/bst_act.s7i" */ strDestr(old_stri); } /* line 317 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[667] /* "const_bstriType " */); /* line 318 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_7191_bstri_name); /* line 319 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 320 "../lib/comp/bst_act.s7i" */ if (((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/) { /* line 321 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[409] /* "uintType " */); } else { /* line 323 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[410] /* "intType " */); } /* line 325 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_7192_index_name); /* line 326 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 327 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[420] /* "(*(" */); /* line 328 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7191_bstri_name); /* line 329 "../lib/comp/bst_act.s7i" */ { /* line 329 "../lib/comp/bst_act.s7i" */ striType *tmp_1; /* line 329 "../lib/comp/bst_act.s7i" */ tmp_1=&(((structType)(*o_7189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 329 "../lib/comp/bst_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 329 "../lib/comp/bst_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 329 "../lib/comp/bst_act.s7i" */ } else { /* line 329 "../lib/comp/bst_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 329 "../lib/comp/bst_act.s7i" */ (*tmp_1)->size++; /* line 329 "../lib/comp/bst_act.s7i" */ } } /* line 330 "../lib/comp/bst_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7188_params, 1L), o_7189_c_expr); /* line 331 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[421] /* ", &" */); /* line 332 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7191_bstri_name); /* line 333 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[672] /* "->mem[(" */); /* line 334 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7192_index_name); /* line 335 "../lib/comp/bst_act.s7i" */ { /* line 335 "../lib/comp/bst_act.s7i" */ striType *tmp_1; /* line 335 "../lib/comp/bst_act.s7i" */ tmp_1=&(((structType)(*o_7189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 335 "../lib/comp/bst_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 335 "../lib/comp/bst_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 335 "../lib/comp/bst_act.s7i" */ } else { /* line 335 "../lib/comp/bst_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 335 "../lib/comp/bst_act.s7i" */ (*tmp_1)->size++; /* line 335 "../lib/comp/bst_act.s7i" */ } } /* line 336 "../lib/comp/bst_act.s7i" */ if (((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/) { /* line 337 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[663] /* "(uintType)((" */); /* line 338 "../lib/comp/bst_act.s7i" */ o_4941_process_expr(rflIdx(*o_7188_params, 3L), o_7189_c_expr); /* line 339 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[664] /* ")-1), idxChk(" */); } else { /* line 341 "../lib/comp/bst_act.s7i" */ { /* line 341 "../lib/comp/bst_act.s7i" */ striType *tmp_1; /* line 341 "../lib/comp/bst_act.s7i" */ tmp_1=&(((structType)(*o_7189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 341 "../lib/comp/bst_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 341 "../lib/comp/bst_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 341 "../lib/comp/bst_act.s7i" */ } else { /* line 341 "../lib/comp/bst_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 341 "../lib/comp/bst_act.s7i" */ (*tmp_1)->size++; /* line 341 "../lib/comp/bst_act.s7i" */ } } /* line 342 "../lib/comp/bst_act.s7i" */ o_4941_process_expr(rflIdx(*o_7188_params, 3L), o_7189_c_expr); /* line 343 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[665] /* ")-1, idxChk(" */); /* line 344 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7192_index_name); /* line 345 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[413] /* "<0 || " */); } /* line 347 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7192_index_name); /* line 348 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[414] /* ">=" */); /* line 349 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7191_bstri_name); /* line 350 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[673] /* "->size) ? " */); /* line 351 "../lib/comp/bst_act.s7i" */ strAppendTemp(&(((structType)(*o_7189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[406] /* "RANGE_ERROR" */)); /* line 352 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[416] /* " : 0, " */); /* line 353 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7192_index_name); /* line 354 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[670] /* ")]))" */); } else { /* line 356 "../lib/comp/bst_act.s7i" */ ++(o_5110_countNoRangeChecks); /* line 357 "../lib/comp/bst_act.s7i" */ { /* line 357 "../lib/comp/bst_act.s7i" */ striType *tmp_1; /* line 357 "../lib/comp/bst_act.s7i" */ tmp_1=&(((structType)(*o_7189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 357 "../lib/comp/bst_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 357 "../lib/comp/bst_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 357 "../lib/comp/bst_act.s7i" */ } else { /* line 357 "../lib/comp/bst_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 357 "../lib/comp/bst_act.s7i" */ (*tmp_1)->size++; /* line 357 "../lib/comp/bst_act.s7i" */ } } /* line 358 "../lib/comp/bst_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7188_params, 1L), o_7189_c_expr); /* line 359 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[674] /* ")->mem[(" */); /* line 360 "../lib/comp/bst_act.s7i" */ o_4941_process_expr(rflIdx(*o_7188_params, 3L), o_7189_c_expr); /* line 361 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[675] /* ")-1]" */); } /* line 300 "../lib/comp/bst_act.s7i" */ strDestr(o_7191_bstri_name); /* line 300 "../lib/comp/bst_act.s7i" */ strDestr(o_7192_index_name); } /* line 1 "no_file" */ /* 3906 */ /* line 366 "../lib/comp/bst_act.s7i" */ static void/*t_1_void*/ o_7193_BST_LNG (const objRefType/*t_19_reference*/ o_7194_function, const listType/*t_20_ref_list*/ *const o_7195_params, structType/*t_164_expr_type*/ *const o_7196_c_expr) { /* line 370 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7196_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[676] /* "(intType)((" */); /* line 371 "../lib/comp/bst_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7195_params, 1L), o_7196_c_expr); /* line 372 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7196_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[677] /* ")->size)" */); } /* line 1 "no_file" */ /* 3907 */ /* line 376 "../lib/comp/bst_act.s7i" */ static void/*t_1_void*/ o_7197_BST_NE (const objRefType/*t_19_reference*/ o_7198_function, const listType/*t_20_ref_list*/ *const o_7199_params, structType/*t_164_expr_type*/ *const o_7200_c_expr) { /* line 380 "../lib/comp/bst_act.s7i" */ striType/*t_15_string*/ o_7201_bstri_a_name; /* line 381 "../lib/comp/bst_act.s7i" */ striType/*t_15_string*/ o_7202_bstri_b_name; /* line 380 "../lib/comp/bst_act.s7i" */ o_7201_bstri_a_name=strEmpty(); /* "" */ /* line 381 "../lib/comp/bst_act.s7i" */ o_7202_bstri_b_name=strEmpty(); /* "" */ /* line 383 "../lib/comp/bst_act.s7i" */ { /* line 383 "../lib/comp/bst_act.s7i" */ striType *tmp_1; /* line 383 "../lib/comp/bst_act.s7i" */ tmp_1=&(((structType)(*o_7200_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 383 "../lib/comp/bst_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 383 "../lib/comp/bst_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 383 "../lib/comp/bst_act.s7i" */ } else { /* line 383 "../lib/comp/bst_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 383 "../lib/comp/bst_act.s7i" */ (*tmp_1)->size++; /* line 383 "../lib/comp/bst_act.s7i" */ } } { /* line 384 "../lib/comp/bst_act.s7i" */ striType old_stri=o_7201_bstri_a_name; /* line 384 "../lib/comp/bst_act.s7i" */ o_7201_bstri_a_name=o_5031_getParameterAsVariable(&str[654] /* "const_bstriType" */, &str[655] /* "tmp_a_" */, rflIdx(*o_7199_params, 1L), o_7200_c_expr); /* line 384 "../lib/comp/bst_act.s7i" */ strDestr(old_stri); } { /* line 385 "../lib/comp/bst_act.s7i" */ striType old_stri=o_7202_bstri_b_name; /* line 385 "../lib/comp/bst_act.s7i" */ o_7202_bstri_b_name=o_5031_getParameterAsVariable(&str[654] /* "const_bstriType" */, &str[656] /* "tmp_b_" */, rflIdx(*o_7199_params, 3L), o_7200_c_expr); /* line 385 "../lib/comp/bst_act.s7i" */ strDestr(old_stri); } /* line 388 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7200_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7201_bstri_a_name); /* line 389 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7200_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[678] /* "->size!=" */); /* line 390 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7200_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7202_bstri_b_name); /* line 391 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7200_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[679] /* "->size||memcmp(" */); /* line 392 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7200_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7201_bstri_a_name); /* line 393 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7200_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[659] /* "->mem," */); /* line 394 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7200_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7202_bstri_b_name); /* line 395 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7200_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[659] /* "->mem," */); /* line 396 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7200_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7201_bstri_a_name); /* line 397 "../lib/comp/bst_act.s7i" */ strAppend(&(((structType)(*o_7200_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[680] /* "->size*sizeof(unsigned char))!=0)" */); /* line 376 "../lib/comp/bst_act.s7i" */ strDestr(o_7201_bstri_a_name); /* line 376 "../lib/comp/bst_act.s7i" */ strDestr(o_7202_bstri_b_name); } /* line 1 "no_file" */ /* 3908 */ /* line 401 "../lib/comp/bst_act.s7i" */ static void/*t_1_void*/ o_7203_BST_PARSE (const objRefType/*t_19_reference*/ o_7204_function, const listType/*t_20_ref_list*/ *const o_7205_params, structType/*t_164_expr_type*/ *const o_7206_c_expr) { /* line 405 "../lib/comp/bst_act.s7i" */ o_4957_prepare_bstri_result(o_7206_c_expr); /* line 406 "../lib/comp/bst_act.s7i" */ strCopy(&(((structType)(*o_7206_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[681] /* "bstParse(" */); /* line 407 "../lib/comp/bst_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_7205_params, 3L), o_7206_c_expr); /* line 408 "../lib/comp/bst_act.s7i" */ { /* line 408 "../lib/comp/bst_act.s7i" */ striType *tmp_1; /* line 408 "../lib/comp/bst_act.s7i" */ tmp_1=&(((structType)(*o_7206_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 408 "../lib/comp/bst_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 408 "../lib/comp/bst_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 408 "../lib/comp/bst_act.s7i" */ } else { /* line 408 "../lib/comp/bst_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 408 "../lib/comp/bst_act.s7i" */ (*tmp_1)->size++; /* line 408 "../lib/comp/bst_act.s7i" */ } } } /* line 1 "no_file" */ /* 3909 */ /* line 412 "../lib/comp/bst_act.s7i" */ static void/*t_1_void*/ o_7207_BST_STR (const objRefType/*t_19_reference*/ o_7208_function, const listType/*t_20_ref_list*/ *const o_7209_params, structType/*t_164_expr_type*/ *const o_7210_c_expr) { /* line 416 "../lib/comp/bst_act.s7i" */ o_4955_prepare_stri_result(o_7210_c_expr); /* line 417 "../lib/comp/bst_act.s7i" */ strCopy(&(((structType)(*o_7210_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[682] /* "bstStr(" */); /* line 418 "../lib/comp/bst_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_7209_params, 1L), o_7210_c_expr); /* line 419 "../lib/comp/bst_act.s7i" */ { /* line 419 "../lib/comp/bst_act.s7i" */ striType *tmp_1; /* line 419 "../lib/comp/bst_act.s7i" */ tmp_1=&(((structType)(*o_7210_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 419 "../lib/comp/bst_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 419 "../lib/comp/bst_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 419 "../lib/comp/bst_act.s7i" */ } else { /* line 419 "../lib/comp/bst_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 419 "../lib/comp/bst_act.s7i" */ (*tmp_1)->size++; /* line 419 "../lib/comp/bst_act.s7i" */ } } } /* line 1 "no_file" */ /* 3910 */ /* line 423 "../lib/comp/bst_act.s7i" */ static void/*t_1_void*/ o_7211_BST_VALUE (const objRefType/*t_19_reference*/ o_7212_function, const listType/*t_20_ref_list*/ *const o_7213_params, structType/*t_164_expr_type*/ *const o_7214_c_expr) { /* line 427 "../lib/comp/bst_act.s7i" */ o_4957_prepare_bstri_result(o_7214_c_expr); /* line 428 "../lib/comp/bst_act.s7i" */ strCopy(&(((structType)(*o_7214_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[683] /* "bstValue(" */); /* line 429 "../lib/comp/bst_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7213_params, 1L), o_7214_c_expr); /* line 430 "../lib/comp/bst_act.s7i" */ { /* line 430 "../lib/comp/bst_act.s7i" */ striType *tmp_1; /* line 430 "../lib/comp/bst_act.s7i" */ tmp_1=&(((structType)(*o_7214_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 430 "../lib/comp/bst_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 430 "../lib/comp/bst_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 430 "../lib/comp/bst_act.s7i" */ } else { /* line 430 "../lib/comp/bst_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 430 "../lib/comp/bst_act.s7i" */ (*tmp_1)->size++; /* line 430 "../lib/comp/bst_act.s7i" */ } } } /* line 1 "no_file" */ /* 3911 */ /* line 51 "../lib/comp/chr_act.s7i" */ static void/*t_1_void*/ o_7215_chr_prototypes (interfaceType/*t_46_file*/ *const o_7216_c_prog) { /* line 54 "../lib/comp/chr_act.s7i" */ o_6547_declareExtern(o_7216_c_prog, &str[684] /* "striType chrCLit (charType);" */); /* line 55 "../lib/comp/chr_act.s7i" */ o_6547_declareExtern(o_7216_c_prog, &str[685] /* "striType chrCLitToBuffer (charType, striType);" */); /* line 56 "../lib/comp/chr_act.s7i" */ o_6547_declareExtern(o_7216_c_prog, &str[686] /* "intType chrCmp (charType, charType);" */); /* line 57 "../lib/comp/chr_act.s7i" */ o_6547_declareExtern(o_7216_c_prog, &str[687] /* "intType chrCmpGeneric (const genericType, const genericType);" */); /* line 58 "../lib/comp/chr_act.s7i" */ o_6547_declareExtern(o_7216_c_prog, &str[688] /* "void chrCpyGeneric (genericType *const, const genericType);" */); /* line 59 "../lib/comp/chr_act.s7i" */ o_6547_declareExtern(o_7216_c_prog, &str[689] /* "charType chrLow (charType);" */); /* line 60 "../lib/comp/chr_act.s7i" */ o_6547_declareExtern(o_7216_c_prog, &str[690] /* "striType chrStr (charType);" */); /* line 61 "../lib/comp/chr_act.s7i" */ if (((structType)(sct[55]))->stru[1].value.boolValue/*->o_3379_ALLOW_STRITYPE_SLICES*/) { /* line 62 "../lib/comp/chr_act.s7i" */ o_894_writeln(o_7216_c_prog, &str[691] /* "#define chrStrMacro(ch,str) (str.size=1,str.mem=str.mem1,str.mem1[0]=(strElemType)(ch),&str)" */); } else { /* line 64 "../lib/comp/chr_act.s7i" */ o_894_writeln(o_7216_c_prog, &str[692] /* "#define chrStrMacro(ch,str) (str.size=1,str.mem[0]=(strElemType)(ch),&str)" */); } /* line 66 "../lib/comp/chr_act.s7i" */ o_6547_declareExtern(o_7216_c_prog, &str[693] /* "charType chrUp (charType);" */); /* line 67 "../lib/comp/chr_act.s7i" */ o_6547_declareExtern(o_7216_c_prog, &str[694] /* "charType chrValue (objRefType);" */); } /* line 1 "no_file" */ /* 3912 */ /* line 71 "../lib/comp/chr_act.s7i" */ static void/*t_1_void*/ o_7217_process_const_chr_chr (const objRefType/*t_19_reference*/ o_7218_function, const intType/*t_14_integer*/ o_7219_number, structType/*t_164_expr_type*/ *const o_7220_c_expr) { /* line 74 "../lib/comp/chr_act.s7i" */ ++(o_5107_countOptimizations); /* line 75 "../lib/comp/chr_act.s7i" */ if (((o_7219_number) < ((-2147483647L)-1)) || /* line 75 "../lib/comp/chr_act.s7i" */ ((o_7219_number) > (2147483647L))) { /* line 76 "../lib/comp/chr_act.s7i" */ strAppendTemp(&(((structType)(*o_7220_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[406] /* "RANGE_ERROR" */)); } else { /* line 78 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7220_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[322] /* "(charType) " */); { /* line 79 "../lib/comp/chr_act.s7i" */ union { /* line 79 "../lib/comp/chr_act.s7i" */ struct striStruct striBuf; /* line 79 "../lib/comp/chr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 79 "../lib/comp/chr_act.s7i" */ } buffer_1; /* line 79 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7220_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(o_7219_number, &buffer_1.striBuf)); } } } /* line 1 "no_file" */ /* 3913 */ /* line 84 "../lib/comp/chr_act.s7i" */ static void/*t_1_void*/ o_7221_CHR_CHR (const objRefType/*t_19_reference*/ o_7222_function, const listType/*t_20_ref_list*/ *const o_7223_params, structType/*t_164_expr_type*/ *const o_7224_c_expr) { /* line 88 "../lib/comp/chr_act.s7i" */ objRefType/*t_19_reference*/ o_7225_evaluatedParam=NULL; /* line 89 "../lib/comp/chr_act.s7i" */ striType/*t_15_string*/ o_7226_number_name; /* line 89 "../lib/comp/chr_act.s7i" */ o_7226_number_name=strEmpty(); /* "" */ /* line 91 "../lib/comp/chr_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_7223_params, 1L), 9L, &(o_7225_evaluatedParam))) { /* line 92 "../lib/comp/chr_act.s7i" */ o_7217_process_const_chr_chr(o_7222_function, intValue(o_7225_evaluatedParam), o_7224_c_expr); } else /* line 93 "../lib/comp/chr_act.s7i" */ if ((o_3451_conversion_range_check) && /* line 93 "../lib/comp/chr_act.s7i" */ ((((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/) == (64L))) { /* line 94 "../lib/comp/chr_act.s7i" */ ++(o_5109_countRangeChecks); /* line 95 "../lib/comp/chr_act.s7i" */ { /* line 95 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 95 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7224_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 95 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 95 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 95 "../lib/comp/chr_act.s7i" */ } else { /* line 95 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 95 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 95 "../lib/comp/chr_act.s7i" */ } } { /* line 96 "../lib/comp/chr_act.s7i" */ striType old_stri=o_7226_number_name; /* line 96 "../lib/comp/chr_act.s7i" */ o_7226_number_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_7223_params, 1L), o_7224_c_expr); /* line 96 "../lib/comp/chr_act.s7i" */ strDestr(old_stri); } /* line 97 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7224_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7226_number_name); /* line 98 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7224_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[695] /* "stru[5].value.striValue/*->o_4783_expr*/), o_7226_number_name); /* line 100 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7224_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[696] /* ">INT32TYPE_MAX?" */); /* line 101 "../lib/comp/chr_act.s7i" */ strAppendTemp(&(((structType)(*o_7224_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[406] /* "RANGE_ERROR" */)); /* line 102 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7224_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[697] /* ":(charType)" */); /* line 103 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7224_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7226_number_name); /* line 104 "../lib/comp/chr_act.s7i" */ { /* line 104 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 104 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7224_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 104 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 104 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 104 "../lib/comp/chr_act.s7i" */ } else { /* line 104 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 104 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 104 "../lib/comp/chr_act.s7i" */ } } } else { /* line 106 "../lib/comp/chr_act.s7i" */ if ((((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/) == (64L)) { /* line 107 "../lib/comp/chr_act.s7i" */ ++(o_5110_countNoRangeChecks); } /* line 109 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7224_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[698] /* "(charType)(" */); /* line 110 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7223_params, 1L), o_7224_c_expr); /* line 111 "../lib/comp/chr_act.s7i" */ { /* line 111 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 111 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7224_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 111 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 111 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 111 "../lib/comp/chr_act.s7i" */ } else { /* line 111 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 111 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 111 "../lib/comp/chr_act.s7i" */ } } } /* line 84 "../lib/comp/chr_act.s7i" */ strDestr(o_7226_number_name); } /* line 1 "no_file" */ /* 3914 */ /* line 116 "../lib/comp/chr_act.s7i" */ static void/*t_1_void*/ o_7227_CHR_CLIT (const objRefType/*t_19_reference*/ o_7228_function, const listType/*t_20_ref_list*/ *const o_7229_params, structType/*t_164_expr_type*/ *const o_7230_c_expr) { /* line 120 "../lib/comp/chr_act.s7i" */ striType/*t_15_string*/ o_7231_buffer_name; /* line 120 "../lib/comp/chr_act.s7i" */ o_7231_buffer_name=strEmpty(); /* "" */ /* line 122 "../lib/comp/chr_act.s7i" */ if (((structType)(sct[55]))->stru[1].value.boolValue/*->o_3379_ALLOW_STRITYPE_SLICES*/) { /* line 123 "../lib/comp/chr_act.s7i" */ ++(((structType)(*o_7230_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 124 "../lib/comp/chr_act.s7i" */ union { /* line 124 "../lib/comp/chr_act.s7i" */ struct striStruct striBuf; /* line 124 "../lib/comp/chr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 124 "../lib/comp/chr_act.s7i" */ } buffer_2; /* line 124 "../lib/comp/chr_act.s7i" */ striType old_stri=o_7231_buffer_name; /* line 124 "../lib/comp/chr_act.s7i" */ o_7231_buffer_name=strConcat(&str[699] /* "buffer_" */, intStrToBuffer(((structType)(*o_7230_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 124 "../lib/comp/chr_act.s7i" */ strDestr(old_stri); } /* line 125 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7230_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[700] /* "union {\n" */); /* line 126 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7230_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[701] /* " struct striStruct striBuf;\n" */); /* line 127 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7230_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[702] /* " char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)];\n" */); /* line 128 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7230_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[703] /* "} " */); /* line 129 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7230_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_7231_buffer_name); /* line 130 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7230_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 131 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7230_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[704] /* "chrCLitToBuffer(" */); /* line 132 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7229_params, 1L), o_7230_c_expr); /* line 133 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7230_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[421] /* ", &" */); /* line 134 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7230_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7231_buffer_name); /* line 135 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7230_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[705] /* ".striBuf)" */); } else { /* line 137 "../lib/comp/chr_act.s7i" */ o_4955_prepare_stri_result(o_7230_c_expr); /* line 138 "../lib/comp/chr_act.s7i" */ strCopy(&(((structType)(*o_7230_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[706] /* "chrCLit(" */); /* line 139 "../lib/comp/chr_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7229_params, 1L), o_7230_c_expr); /* line 140 "../lib/comp/chr_act.s7i" */ { /* line 140 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 140 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7230_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 140 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 140 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 140 "../lib/comp/chr_act.s7i" */ } else { /* line 140 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 140 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 140 "../lib/comp/chr_act.s7i" */ } } } /* line 116 "../lib/comp/chr_act.s7i" */ strDestr(o_7231_buffer_name); } /* line 1 "no_file" */ /* 3915 */ /* line 145 "../lib/comp/chr_act.s7i" */ static void/*t_1_void*/ o_7232_CHR_CMP (const objRefType/*t_19_reference*/ o_7233_function, const listType/*t_20_ref_list*/ *const o_7234_params, structType/*t_164_expr_type*/ *const o_7235_c_expr) { /* line 149 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7235_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[707] /* "chrCmp(" */); /* line 150 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7234_params, 1L), o_7235_c_expr); /* line 151 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7235_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 152 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7234_params, 2L), o_7235_c_expr); /* line 153 "../lib/comp/chr_act.s7i" */ { /* line 153 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 153 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7235_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 153 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 153 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 153 "../lib/comp/chr_act.s7i" */ } else { /* line 153 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 153 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 153 "../lib/comp/chr_act.s7i" */ } } } /* line 1 "no_file" */ /* 3916 */ /* line 157 "../lib/comp/chr_act.s7i" */ static void/*t_1_void*/ o_7236_CHR_CONV (const objRefType/*t_19_reference*/ o_7237_function, const listType/*t_20_ref_list*/ *const o_7238_params, structType/*t_164_expr_type*/ *const o_7239_c_expr) { /* line 161 "../lib/comp/chr_act.s7i" */ { /* line 161 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 161 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7239_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 161 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 161 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 161 "../lib/comp/chr_act.s7i" */ } else { /* line 161 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 161 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 161 "../lib/comp/chr_act.s7i" */ } } /* line 162 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7238_params, 3L), o_7239_c_expr); /* line 163 "../lib/comp/chr_act.s7i" */ { /* line 163 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 163 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7239_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 163 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 163 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 163 "../lib/comp/chr_act.s7i" */ } else { /* line 163 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 163 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 163 "../lib/comp/chr_act.s7i" */ } } } /* line 1 "no_file" */ /* 3917 */ /* line 167 "../lib/comp/chr_act.s7i" */ static void/*t_1_void*/ o_7240_CHR_CPY (const objRefType/*t_19_reference*/ o_7241_function, const listType/*t_20_ref_list*/ *const o_7242_params, structType/*t_164_expr_type*/ *const o_7243_c_expr) { /* line 171 "../lib/comp/chr_act.s7i" */ structType/*t_164_expr_type*/ o_7244_statement; /* line 171 "../lib/comp/chr_act.s7i" */ o_7244_statement=create_164(sct[215]); /* line 173 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7242_params, 1L), &(o_7244_statement)); /* line 174 "../lib/comp/chr_act.s7i" */ { /* line 174 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 174 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(o_7244_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 174 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 174 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 174 "../lib/comp/chr_act.s7i" */ } else { /* line 174 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 174 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 174 "../lib/comp/chr_act.s7i" */ } } /* line 175 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7242_params, 3L), &(o_7244_statement)); /* line 176 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(o_7244_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 177 "../lib/comp/chr_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_7244_statement, o_7243_c_expr); /* line 167 "../lib/comp/chr_act.s7i" */ destr_164(o_7244_statement); } /* line 1 "no_file" */ /* 3918 */ /* line 181 "../lib/comp/chr_act.s7i" */ static void/*t_1_void*/ o_7245_CHR_DECR (const objRefType/*t_19_reference*/ o_7246_function, const listType/*t_20_ref_list*/ *const o_7247_params, structType/*t_164_expr_type*/ *const o_7248_c_expr) { /* line 185 "../lib/comp/chr_act.s7i" */ o_4819_setDiagnosticLine(o_7248_c_expr); /* line 186 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7248_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[708] /* "--(" */); /* line 187 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7247_params, 1L), o_7248_c_expr); /* line 188 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7248_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3919 */ /* line 192 "../lib/comp/chr_act.s7i" */ static void/*t_1_void*/ o_7249_CHR_EQ (const objRefType/*t_19_reference*/ o_7250_function, const listType/*t_20_ref_list*/ *const o_7251_params, structType/*t_164_expr_type*/ *const o_7252_c_expr) { /* line 196 "../lib/comp/chr_act.s7i" */ { /* line 196 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 196 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7252_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 196 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 196 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 196 "../lib/comp/chr_act.s7i" */ } else { /* line 196 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 196 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 196 "../lib/comp/chr_act.s7i" */ } } /* line 197 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7251_params, 1L), o_7252_c_expr); /* line 198 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7252_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[350] /* ") == (" */); /* line 199 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7251_params, 3L), o_7252_c_expr); /* line 200 "../lib/comp/chr_act.s7i" */ { /* line 200 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 200 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7252_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 200 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 200 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 200 "../lib/comp/chr_act.s7i" */ } else { /* line 200 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 200 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 200 "../lib/comp/chr_act.s7i" */ } } } /* line 1 "no_file" */ /* 3920 */ /* line 204 "../lib/comp/chr_act.s7i" */ static void/*t_1_void*/ o_7253_CHR_GE (const objRefType/*t_19_reference*/ o_7254_function, const listType/*t_20_ref_list*/ *const o_7255_params, structType/*t_164_expr_type*/ *const o_7256_c_expr) { /* line 208 "../lib/comp/chr_act.s7i" */ { /* line 208 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 208 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7256_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 208 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 208 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 208 "../lib/comp/chr_act.s7i" */ } else { /* line 208 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 208 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 208 "../lib/comp/chr_act.s7i" */ } } /* line 209 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7255_params, 1L), o_7256_c_expr); /* line 210 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7256_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[623] /* ") >= (" */); /* line 211 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7255_params, 3L), o_7256_c_expr); /* line 212 "../lib/comp/chr_act.s7i" */ { /* line 212 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 212 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7256_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 212 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 212 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 212 "../lib/comp/chr_act.s7i" */ } else { /* line 212 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 212 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 212 "../lib/comp/chr_act.s7i" */ } } } /* line 1 "no_file" */ /* 3921 */ /* line 216 "../lib/comp/chr_act.s7i" */ static void/*t_1_void*/ o_7257_CHR_GT (const objRefType/*t_19_reference*/ o_7258_function, const listType/*t_20_ref_list*/ *const o_7259_params, structType/*t_164_expr_type*/ *const o_7260_c_expr) { /* line 220 "../lib/comp/chr_act.s7i" */ { /* line 220 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 220 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7260_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 220 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 220 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 220 "../lib/comp/chr_act.s7i" */ } else { /* line 220 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 220 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 220 "../lib/comp/chr_act.s7i" */ } } /* line 221 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7259_params, 1L), o_7260_c_expr); /* line 222 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7260_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[624] /* ") > (" */); /* line 223 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7259_params, 3L), o_7260_c_expr); /* line 224 "../lib/comp/chr_act.s7i" */ { /* line 224 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 224 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7260_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 224 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 224 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 224 "../lib/comp/chr_act.s7i" */ } else { /* line 224 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 224 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 224 "../lib/comp/chr_act.s7i" */ } } } /* line 1 "no_file" */ /* 3922 */ /* line 228 "../lib/comp/chr_act.s7i" */ static void/*t_1_void*/ o_7261_CHR_HASHCODE (const objRefType/*t_19_reference*/ o_7262_function, const listType/*t_20_ref_list*/ *const o_7263_params, structType/*t_164_expr_type*/ *const o_7264_c_expr) { /* line 232 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7264_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[709] /* "(intType)((scharType)(" */); /* line 233 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7263_params, 1L), o_7264_c_expr); /* line 234 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7264_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 3923 */ /* line 238 "../lib/comp/chr_act.s7i" */ static void/*t_1_void*/ o_7265_CHR_ICONV (const objRefType/*t_19_reference*/ o_7266_function, const listType/*t_20_ref_list*/ *const o_7267_params, structType/*t_164_expr_type*/ *const o_7268_c_expr) { /* line 242 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7268_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[698] /* "(charType)(" */); /* line 243 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7267_params, 3L), o_7268_c_expr); /* line 244 "../lib/comp/chr_act.s7i" */ { /* line 244 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 244 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7268_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 244 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 244 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 244 "../lib/comp/chr_act.s7i" */ } else { /* line 244 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 244 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 244 "../lib/comp/chr_act.s7i" */ } } } /* line 1 "no_file" */ /* 3924 */ /* line 248 "../lib/comp/chr_act.s7i" */ static void/*t_1_void*/ o_7269_CHR_INCR (const objRefType/*t_19_reference*/ o_7270_function, const listType/*t_20_ref_list*/ *const o_7271_params, structType/*t_164_expr_type*/ *const o_7272_c_expr) { /* line 252 "../lib/comp/chr_act.s7i" */ o_4819_setDiagnosticLine(o_7272_c_expr); /* line 253 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7272_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[710] /* "++(" */); /* line 254 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7271_params, 1L), o_7272_c_expr); /* line 255 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7272_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3925 */ /* line 259 "../lib/comp/chr_act.s7i" */ static void/*t_1_void*/ o_7273_CHR_LE (const objRefType/*t_19_reference*/ o_7274_function, const listType/*t_20_ref_list*/ *const o_7275_params, structType/*t_164_expr_type*/ *const o_7276_c_expr) { /* line 263 "../lib/comp/chr_act.s7i" */ { /* line 263 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 263 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7276_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 263 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 263 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 263 "../lib/comp/chr_act.s7i" */ } else { /* line 263 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 263 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 263 "../lib/comp/chr_act.s7i" */ } } /* line 264 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7275_params, 1L), o_7276_c_expr); /* line 265 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7276_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[626] /* ") <= (" */); /* line 266 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7275_params, 3L), o_7276_c_expr); /* line 267 "../lib/comp/chr_act.s7i" */ { /* line 267 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 267 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7276_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 267 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 267 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 267 "../lib/comp/chr_act.s7i" */ } else { /* line 267 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 267 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 267 "../lib/comp/chr_act.s7i" */ } } } /* line 1 "no_file" */ /* 3926 */ /* line 271 "../lib/comp/chr_act.s7i" */ static void/*t_1_void*/ o_7277_CHR_LOW (const objRefType/*t_19_reference*/ o_7278_function, const listType/*t_20_ref_list*/ *const o_7279_params, structType/*t_164_expr_type*/ *const o_7280_c_expr) { /* line 275 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7280_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[711] /* "chrLow(" */); /* line 276 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7279_params, 1L), o_7280_c_expr); /* line 277 "../lib/comp/chr_act.s7i" */ { /* line 277 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 277 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7280_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 277 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 277 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 277 "../lib/comp/chr_act.s7i" */ } else { /* line 277 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 277 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 277 "../lib/comp/chr_act.s7i" */ } } } /* line 1 "no_file" */ /* 3927 */ /* line 281 "../lib/comp/chr_act.s7i" */ static void/*t_1_void*/ o_7281_CHR_LT (const objRefType/*t_19_reference*/ o_7282_function, const listType/*t_20_ref_list*/ *const o_7283_params, structType/*t_164_expr_type*/ *const o_7284_c_expr) { /* line 285 "../lib/comp/chr_act.s7i" */ { /* line 285 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 285 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7284_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 285 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 285 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 285 "../lib/comp/chr_act.s7i" */ } else { /* line 285 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 285 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 285 "../lib/comp/chr_act.s7i" */ } } /* line 286 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7283_params, 1L), o_7284_c_expr); /* line 287 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7284_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[627] /* ") < (" */); /* line 288 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7283_params, 3L), o_7284_c_expr); /* line 289 "../lib/comp/chr_act.s7i" */ { /* line 289 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 289 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7284_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 289 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 289 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 289 "../lib/comp/chr_act.s7i" */ } else { /* line 289 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 289 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 289 "../lib/comp/chr_act.s7i" */ } } } /* line 1 "no_file" */ /* 3928 */ /* line 293 "../lib/comp/chr_act.s7i" */ static void/*t_1_void*/ o_7285_CHR_NE (const objRefType/*t_19_reference*/ o_7286_function, const listType/*t_20_ref_list*/ *const o_7287_params, structType/*t_164_expr_type*/ *const o_7288_c_expr) { /* line 297 "../lib/comp/chr_act.s7i" */ { /* line 297 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 297 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7288_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 297 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 297 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 297 "../lib/comp/chr_act.s7i" */ } else { /* line 297 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 297 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 297 "../lib/comp/chr_act.s7i" */ } } /* line 298 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7287_params, 1L), o_7288_c_expr); /* line 299 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7288_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[352] /* ") != (" */); /* line 300 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7287_params, 3L), o_7288_c_expr); /* line 301 "../lib/comp/chr_act.s7i" */ { /* line 301 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 301 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7288_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 301 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 301 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 301 "../lib/comp/chr_act.s7i" */ } else { /* line 301 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 301 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 301 "../lib/comp/chr_act.s7i" */ } } } /* line 1 "no_file" */ /* 3929 */ /* line 305 "../lib/comp/chr_act.s7i" */ static void/*t_1_void*/ o_7289_CHR_ORD (const objRefType/*t_19_reference*/ o_7290_function, const listType/*t_20_ref_list*/ *const o_7291_params, structType/*t_164_expr_type*/ *const o_7292_c_expr) { /* line 309 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7292_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[709] /* "(intType)((scharType)(" */); /* line 310 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7291_params, 1L), o_7292_c_expr); /* line 311 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7292_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 3930 */ /* line 315 "../lib/comp/chr_act.s7i" */ static void/*t_1_void*/ o_7293_CHR_PRED (const objRefType/*t_19_reference*/ o_7294_function, const listType/*t_20_ref_list*/ *const o_7295_params, structType/*t_164_expr_type*/ *const o_7296_c_expr) { /* line 319 "../lib/comp/chr_act.s7i" */ { /* line 319 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 319 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7296_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 319 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 319 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 319 "../lib/comp/chr_act.s7i" */ } else { /* line 319 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 319 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 319 "../lib/comp/chr_act.s7i" */ } } /* line 320 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7295_params, 1L), o_7296_c_expr); /* line 321 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7296_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[666] /* ")-1" */); } /* line 1 "no_file" */ /* 3931 */ /* line 325 "../lib/comp/chr_act.s7i" */ static void/*t_1_void*/ o_7297_CHR_STR (const objRefType/*t_19_reference*/ o_7298_function, const listType/*t_20_ref_list*/ *const o_7299_params, structType/*t_164_expr_type*/ *const o_7300_c_expr) { /* line 329 "../lib/comp/chr_act.s7i" */ objRefType/*t_19_reference*/ o_7301_evaluatedParam=NULL; /* line 330 "../lib/comp/chr_act.s7i" */ striType/*t_15_string*/ o_7302_striStruct_name; /* line 330 "../lib/comp/chr_act.s7i" */ o_7302_striStruct_name=strEmpty(); /* "" */ /* line 332 "../lib/comp/chr_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_7299_params, 1L), 11L, &(o_7301_evaluatedParam))) { /* line 333 "../lib/comp/chr_act.s7i" */ ++(o_5107_countOptimizations); /* line 334 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7300_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[712] /* "/*chrStr*\/" */); { /* line 335 "../lib/comp/chr_act.s7i" */ struct striStruct stri_2; /* line 335 "../lib/comp/chr_act.s7i" */ strAppendTemp(&(((structType)(*o_7300_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6494_stringLiteral(chrStrMacro(chrValue(o_7301_evaluatedParam),stri_2))); } } else { /* line 337 "../lib/comp/chr_act.s7i" */ ++(((structType)(*o_7300_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 338 "../lib/comp/chr_act.s7i" */ union { /* line 338 "../lib/comp/chr_act.s7i" */ struct striStruct striBuf; /* line 338 "../lib/comp/chr_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 338 "../lib/comp/chr_act.s7i" */ } buffer_2; /* line 338 "../lib/comp/chr_act.s7i" */ striType old_stri=o_7302_striStruct_name; /* line 338 "../lib/comp/chr_act.s7i" */ o_7302_striStruct_name=strConcat(&str[713] /* "stri_" */, intStrToBuffer(((structType)(*o_7300_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 338 "../lib/comp/chr_act.s7i" */ strDestr(old_stri); } /* line 339 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7300_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[714] /* "struct striStruct " */); /* line 340 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7300_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_7302_striStruct_name); /* line 341 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7300_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 342 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7300_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[715] /* "chrStrMacro(" */); /* line 343 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7299_params, 1L), o_7300_c_expr); /* line 344 "../lib/comp/chr_act.s7i" */ { /* line 344 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 344 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7300_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 344 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 344 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 344 "../lib/comp/chr_act.s7i" */ } else { /* line 344 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 344 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 344 "../lib/comp/chr_act.s7i" */ } } /* line 345 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7300_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7302_striStruct_name); /* line 346 "../lib/comp/chr_act.s7i" */ { /* line 346 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 346 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7300_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 346 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 346 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 346 "../lib/comp/chr_act.s7i" */ } else { /* line 346 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 346 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 346 "../lib/comp/chr_act.s7i" */ } } } /* line 325 "../lib/comp/chr_act.s7i" */ strDestr(o_7302_striStruct_name); } /* line 1 "no_file" */ /* 3932 */ /* line 351 "../lib/comp/chr_act.s7i" */ static void/*t_1_void*/ o_7303_CHR_SUCC (const objRefType/*t_19_reference*/ o_7304_function, const listType/*t_20_ref_list*/ *const o_7305_params, structType/*t_164_expr_type*/ *const o_7306_c_expr) { /* line 355 "../lib/comp/chr_act.s7i" */ { /* line 355 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 355 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7306_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 355 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 355 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 355 "../lib/comp/chr_act.s7i" */ } else { /* line 355 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 355 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 355 "../lib/comp/chr_act.s7i" */ } } /* line 356 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7305_params, 1L), o_7306_c_expr); /* line 357 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7306_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[716] /* ")+1" */); } /* line 1 "no_file" */ /* 3933 */ /* line 361 "../lib/comp/chr_act.s7i" */ static void/*t_1_void*/ o_7307_CHR_UP (const objRefType/*t_19_reference*/ o_7308_function, const listType/*t_20_ref_list*/ *const o_7309_params, structType/*t_164_expr_type*/ *const o_7310_c_expr) { /* line 365 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7310_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[717] /* "chrUp(" */); /* line 366 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7309_params, 1L), o_7310_c_expr); /* line 367 "../lib/comp/chr_act.s7i" */ { /* line 367 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 367 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7310_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 367 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 367 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 367 "../lib/comp/chr_act.s7i" */ } else { /* line 367 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 367 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 367 "../lib/comp/chr_act.s7i" */ } } } /* line 1 "no_file" */ /* 3934 */ /* line 371 "../lib/comp/chr_act.s7i" */ static void/*t_1_void*/ o_7311_CHR_VALUE (const objRefType/*t_19_reference*/ o_7312_function, const listType/*t_20_ref_list*/ *const o_7313_params, structType/*t_164_expr_type*/ *const o_7314_c_expr) { /* line 375 "../lib/comp/chr_act.s7i" */ strAppend(&(((structType)(*o_7314_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[718] /* "chrValue(" */); /* line 376 "../lib/comp/chr_act.s7i" */ o_4941_process_expr(rflIdx(*o_7313_params, 1L), o_7314_c_expr); /* line 377 "../lib/comp/chr_act.s7i" */ { /* line 377 "../lib/comp/chr_act.s7i" */ striType *tmp_1; /* line 377 "../lib/comp/chr_act.s7i" */ tmp_1=&(((structType)(*o_7314_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 377 "../lib/comp/chr_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 377 "../lib/comp/chr_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 377 "../lib/comp/chr_act.s7i" */ } else { /* line 377 "../lib/comp/chr_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 377 "../lib/comp/chr_act.s7i" */ (*tmp_1)->size++; /* line 377 "../lib/comp/chr_act.s7i" */ } } } /* line 1 "no_file" */ /* 3935 */ /* line 64 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7315_cmd_prototypes (interfaceType/*t_46_file*/ *const o_7316_c_prog) { /* line 67 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[719] /* "bigIntType cmdBigFileSize (const const_striType);" */); /* line 68 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[720] /* "void cmdChdir (const const_striType);" */); /* line 69 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[721] /* "void cmdCloneFile (const const_striType, const const_striType);" */); /* line 70 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[722] /* "striType cmdConfigValue (const const_striType);" */); /* line 71 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[723] /* "void cmdCopyFile (const const_striType, const const_striType);" */); /* line 72 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[724] /* "arrayType cmdEnvironment (void);" */); /* line 73 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[725] /* "setType cmdFileMode (const const_striType);" */); /* line 74 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[726] /* "intType cmdFileSize (const const_striType);" */); /* line 75 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[727] /* "intType cmdFileType (const const_striType);" */); /* line 76 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[728] /* "intType cmdFileTypeSL (const const_striType);" */); /* line 77 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[729] /* "striType cmdGetcwd (void);" */); /* line 78 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[730] /* "striType cmdGetenv (const const_striType);" */); /* line 79 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[731] /* "void cmdGetATime (const const_striType, intType *, intType *, intType *, intType *, intType *, intType *, intType *, intType *, boolType *);" */); /* line 80 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[732] /* "void cmdGetCTime (const const_striType, intType *, intType *, intType *, intType *, intType *, intType *, intType *, intType *, boolType *);" */); /* line 81 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[733] /* "void cmdGetMTime (const const_striType, intType *, intType *, intType *, intType *, intType *, intType *, intType *, intType *, boolType *);" */); /* line 82 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[734] /* "arrayType cmdGetSearchPath (void);" */); /* line 83 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[735] /* "striType cmdHomeDir (void);" */); /* line 84 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[736] /* "arrayType cmdLs (const const_striType);" */); /* line 85 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[737] /* "void cmdMkdir (const const_striType);" */); /* line 86 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[738] /* "void cmdMove (const const_striType, const const_striType);" */); /* line 87 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[739] /* "striType cmdReadlink (const const_striType);" */); /* line 88 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[740] /* "void cmdRemoveFile (const const_striType);" */); /* line 89 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[741] /* "void cmdRemoveTree (const const_striType);" */); /* line 90 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[742] /* "void cmdSetenv (const const_striType, const const_striType);" */); /* line 91 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[743] /* "void cmdSetATime (const const_striType, intType, intType, intType, intType, intType, intType, intType, intType);" */); /* line 92 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[744] /* "void cmdSetFileMode (const const_striType, const const_setType);" */); /* line 93 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[745] /* "void cmdSetMTime (const const_striType, intType, intType, intType, intType, intType, intType, intType, intType);" */); /* line 94 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[746] /* "intType cmdShell (const const_striType, const const_striType);" */); /* line 95 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[747] /* "striType cmdShellEscape (const const_striType);" */); /* line 96 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[748] /* "void cmdPipe2 (const const_striType, const const_arrayType, fileType *, fileType *);" */); /* line 97 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[749] /* "void cmdPty (const const_striType, const const_arrayType, fileType *, fileType *);" */); /* line 98 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[750] /* "void cmdStartProcess (const const_striType, const const_arrayType);" */); /* line 99 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[751] /* "void cmdSymlink (const_striType, const_striType);" */); /* line 100 "../lib/comp/cmd_act.s7i" */ o_6547_declareExtern(o_7316_c_prog, &str[752] /* "striType cmdToOsPath (const const_striType);" */); } /* line 1 "no_file" */ /* 3936 */ /* line 104 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7317_CMD_BIG_FILESIZE (const objRefType/*t_19_reference*/ o_7318_function, const listType/*t_20_ref_list*/ *const o_7319_params, structType/*t_164_expr_type*/ *const o_7320_c_expr) { /* line 108 "../lib/comp/cmd_act.s7i" */ o_4947_prepare_bigint_result(o_7320_c_expr); /* line 109 "../lib/comp/cmd_act.s7i" */ strCopy(&(((structType)(*o_7320_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[753] /* "cmdBigFileSize(" */); /* line 110 "../lib/comp/cmd_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_7319_params, 1L), o_7320_c_expr); /* line 111 "../lib/comp/cmd_act.s7i" */ { /* line 111 "../lib/comp/cmd_act.s7i" */ striType *tmp_1; /* line 111 "../lib/comp/cmd_act.s7i" */ tmp_1=&(((structType)(*o_7320_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 111 "../lib/comp/cmd_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 111 "../lib/comp/cmd_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 111 "../lib/comp/cmd_act.s7i" */ } else { /* line 111 "../lib/comp/cmd_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 111 "../lib/comp/cmd_act.s7i" */ (*tmp_1)->size++; /* line 111 "../lib/comp/cmd_act.s7i" */ } } } /* line 1 "no_file" */ /* 3937 */ /* line 115 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7321_CMD_CHDIR (const objRefType/*t_19_reference*/ o_7322_function, const listType/*t_20_ref_list*/ *const o_7323_params, structType/*t_164_expr_type*/ *const o_7324_c_expr) { /* line 119 "../lib/comp/cmd_act.s7i" */ o_4819_setDiagnosticLine(o_7324_c_expr); /* line 120 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7324_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[754] /* "cmdChdir(" */); /* line 121 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7323_params, 1L), o_7324_c_expr); /* line 122 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7324_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3938 */ /* line 126 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7325_CMD_CLONE_FILE (const objRefType/*t_19_reference*/ o_7326_function, const listType/*t_20_ref_list*/ *const o_7327_params, structType/*t_164_expr_type*/ *const o_7328_c_expr) { /* line 130 "../lib/comp/cmd_act.s7i" */ o_4819_setDiagnosticLine(o_7328_c_expr); /* line 131 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7328_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[755] /* "cmdCloneFile(" */); /* line 132 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7327_params, 1L), o_7328_c_expr); /* line 133 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7328_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 134 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7327_params, 2L), o_7328_c_expr); /* line 135 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7328_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3939 */ /* line 139 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7329_CMD_CONFIG_VALUE (const objRefType/*t_19_reference*/ o_7330_function, const listType/*t_20_ref_list*/ *const o_7331_params, structType/*t_164_expr_type*/ *const o_7332_c_expr) { /* line 143 "../lib/comp/cmd_act.s7i" */ o_4955_prepare_stri_result(o_7332_c_expr); /* line 144 "../lib/comp/cmd_act.s7i" */ strCopy(&(((structType)(*o_7332_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[756] /* "cmdConfigValue(" */); /* line 145 "../lib/comp/cmd_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_7331_params, 1L), o_7332_c_expr); /* line 146 "../lib/comp/cmd_act.s7i" */ { /* line 146 "../lib/comp/cmd_act.s7i" */ striType *tmp_1; /* line 146 "../lib/comp/cmd_act.s7i" */ tmp_1=&(((structType)(*o_7332_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 146 "../lib/comp/cmd_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 146 "../lib/comp/cmd_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 146 "../lib/comp/cmd_act.s7i" */ } else { /* line 146 "../lib/comp/cmd_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 146 "../lib/comp/cmd_act.s7i" */ (*tmp_1)->size++; /* line 146 "../lib/comp/cmd_act.s7i" */ } } } /* line 1 "no_file" */ /* 3940 */ /* line 150 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7333_CMD_COPY_FILE (const objRefType/*t_19_reference*/ o_7334_function, const listType/*t_20_ref_list*/ *const o_7335_params, structType/*t_164_expr_type*/ *const o_7336_c_expr) { /* line 154 "../lib/comp/cmd_act.s7i" */ o_4819_setDiagnosticLine(o_7336_c_expr); /* line 155 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7336_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[757] /* "cmdCopyFile(" */); /* line 156 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7335_params, 1L), o_7336_c_expr); /* line 157 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7336_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 158 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7335_params, 2L), o_7336_c_expr); /* line 159 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7336_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3941 */ /* line 163 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7337_CMD_ENVIRONMENT (const objRefType/*t_19_reference*/ o_7338_function, const listType/*t_20_ref_list*/ *const o_7339_params, structType/*t_164_expr_type*/ *const o_7340_c_expr) { /* line 167 "../lib/comp/cmd_act.s7i" */ typeType/*t_7_type*/ o_7341_result_type=typ[0] /* void/t_1_void */; /* line 169 "../lib/comp/cmd_act.s7i" */ o_7341_result_type=typResult(refType(o_7338_function)); /* line 170 "../lib/comp/cmd_act.s7i" */ o_4944_prepare_typed_result(&(o_7341_result_type), o_7340_c_expr); /* line 171 "../lib/comp/cmd_act.s7i" */ strCopy(&(((structType)(*o_7340_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[758] /* "cmdEnvironment()" */); } /* line 1 "no_file" */ /* 3942 */ /* line 175 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7342_CMD_FILEMODE (const objRefType/*t_19_reference*/ o_7343_function, const listType/*t_20_ref_list*/ *const o_7344_params, structType/*t_164_expr_type*/ *const o_7345_c_expr) { { /* line 179 "../lib/comp/cmd_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 179 "../lib/comp/cmd_act.s7i" */ o_4952_prepare_set_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_7343_function))), &tmp_1), o_7345_c_expr); } /* line 180 "../lib/comp/cmd_act.s7i" */ strCopy(&(((structType)(*o_7345_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[759] /* "cmdFileMode(" */); /* line 181 "../lib/comp/cmd_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_7344_params, 1L), o_7345_c_expr); /* line 182 "../lib/comp/cmd_act.s7i" */ { /* line 182 "../lib/comp/cmd_act.s7i" */ striType *tmp_1; /* line 182 "../lib/comp/cmd_act.s7i" */ tmp_1=&(((structType)(*o_7345_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 182 "../lib/comp/cmd_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 182 "../lib/comp/cmd_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 182 "../lib/comp/cmd_act.s7i" */ } else { /* line 182 "../lib/comp/cmd_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 182 "../lib/comp/cmd_act.s7i" */ (*tmp_1)->size++; /* line 182 "../lib/comp/cmd_act.s7i" */ } } } /* line 1 "no_file" */ /* 3943 */ /* line 186 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7346_CMD_FILESIZE (const objRefType/*t_19_reference*/ o_7347_function, const listType/*t_20_ref_list*/ *const o_7348_params, structType/*t_164_expr_type*/ *const o_7349_c_expr) { /* line 190 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7349_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[760] /* "cmdFileSize(" */); /* line 191 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7348_params, 1L), o_7349_c_expr); /* line 192 "../lib/comp/cmd_act.s7i" */ { /* line 192 "../lib/comp/cmd_act.s7i" */ striType *tmp_1; /* line 192 "../lib/comp/cmd_act.s7i" */ tmp_1=&(((structType)(*o_7349_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 192 "../lib/comp/cmd_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 192 "../lib/comp/cmd_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 192 "../lib/comp/cmd_act.s7i" */ } else { /* line 192 "../lib/comp/cmd_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 192 "../lib/comp/cmd_act.s7i" */ (*tmp_1)->size++; /* line 192 "../lib/comp/cmd_act.s7i" */ } } } /* line 1 "no_file" */ /* 3944 */ /* line 196 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7350_CMD_FILETYPE (const objRefType/*t_19_reference*/ o_7351_function, const listType/*t_20_ref_list*/ *const o_7352_params, structType/*t_164_expr_type*/ *const o_7353_c_expr) { /* line 200 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7353_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[761] /* "cmdFileType(" */); /* line 201 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7352_params, 1L), o_7353_c_expr); /* line 202 "../lib/comp/cmd_act.s7i" */ { /* line 202 "../lib/comp/cmd_act.s7i" */ striType *tmp_1; /* line 202 "../lib/comp/cmd_act.s7i" */ tmp_1=&(((structType)(*o_7353_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 202 "../lib/comp/cmd_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 202 "../lib/comp/cmd_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 202 "../lib/comp/cmd_act.s7i" */ } else { /* line 202 "../lib/comp/cmd_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 202 "../lib/comp/cmd_act.s7i" */ (*tmp_1)->size++; /* line 202 "../lib/comp/cmd_act.s7i" */ } } } /* line 1 "no_file" */ /* 3945 */ /* line 206 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7354_CMD_FILETYPE_SL (const objRefType/*t_19_reference*/ o_7355_function, const listType/*t_20_ref_list*/ *const o_7356_params, structType/*t_164_expr_type*/ *const o_7357_c_expr) { /* line 210 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7357_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[762] /* "cmdFileTypeSL(" */); /* line 211 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7356_params, 1L), o_7357_c_expr); /* line 212 "../lib/comp/cmd_act.s7i" */ { /* line 212 "../lib/comp/cmd_act.s7i" */ striType *tmp_1; /* line 212 "../lib/comp/cmd_act.s7i" */ tmp_1=&(((structType)(*o_7357_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 212 "../lib/comp/cmd_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 212 "../lib/comp/cmd_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 212 "../lib/comp/cmd_act.s7i" */ } else { /* line 212 "../lib/comp/cmd_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 212 "../lib/comp/cmd_act.s7i" */ (*tmp_1)->size++; /* line 212 "../lib/comp/cmd_act.s7i" */ } } } /* line 1 "no_file" */ /* 3946 */ /* line 216 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7358_CMD_GETCWD (const objRefType/*t_19_reference*/ o_7359_function, const listType/*t_20_ref_list*/ *const o_7360_params, structType/*t_164_expr_type*/ *const o_7361_c_expr) { /* line 220 "../lib/comp/cmd_act.s7i" */ o_4955_prepare_stri_result(o_7361_c_expr); /* line 221 "../lib/comp/cmd_act.s7i" */ strCopy(&(((structType)(*o_7361_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[763] /* "cmdGetcwd()" */); } /* line 1 "no_file" */ /* 3947 */ /* line 225 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7362_CMD_GETENV (const objRefType/*t_19_reference*/ o_7363_function, const listType/*t_20_ref_list*/ *const o_7364_params, structType/*t_164_expr_type*/ *const o_7365_c_expr) { /* line 229 "../lib/comp/cmd_act.s7i" */ o_4955_prepare_stri_result(o_7365_c_expr); /* line 230 "../lib/comp/cmd_act.s7i" */ strCopy(&(((structType)(*o_7365_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[764] /* "cmdGetenv(" */); /* line 231 "../lib/comp/cmd_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_7364_params, 1L), o_7365_c_expr); /* line 232 "../lib/comp/cmd_act.s7i" */ { /* line 232 "../lib/comp/cmd_act.s7i" */ striType *tmp_1; /* line 232 "../lib/comp/cmd_act.s7i" */ tmp_1=&(((structType)(*o_7365_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 232 "../lib/comp/cmd_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 232 "../lib/comp/cmd_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 232 "../lib/comp/cmd_act.s7i" */ } else { /* line 232 "../lib/comp/cmd_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 232 "../lib/comp/cmd_act.s7i" */ (*tmp_1)->size++; /* line 232 "../lib/comp/cmd_act.s7i" */ } } } /* line 1 "no_file" */ /* 3948 */ /* line 236 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7366_CMD_GET_ATIME (const objRefType/*t_19_reference*/ o_7367_function, const listType/*t_20_ref_list*/ *const o_7368_params, structType/*t_164_expr_type*/ *const o_7369_c_expr) { /* line 240 "../lib/comp/cmd_act.s7i" */ o_4819_setDiagnosticLine(o_7369_c_expr); /* line 241 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7369_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[765] /* "cmdGetATime(" */); /* line 242 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7368_params, 1L), o_7369_c_expr); /* line 243 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7369_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[766] /* ", &(" */); /* line 244 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7368_params, 2L), o_7369_c_expr); /* line 245 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7369_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 246 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7368_params, 3L), o_7369_c_expr); /* line 247 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7369_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 248 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7368_params, 4L), o_7369_c_expr); /* line 249 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7369_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 250 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7368_params, 5L), o_7369_c_expr); /* line 251 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7369_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 252 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7368_params, 6L), o_7369_c_expr); /* line 253 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7369_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 254 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7368_params, 7L), o_7369_c_expr); /* line 255 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7369_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 256 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7368_params, 8L), o_7369_c_expr); /* line 257 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7369_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 258 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7368_params, 9L), o_7369_c_expr); /* line 259 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7369_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 260 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7368_params, 10L), o_7369_c_expr); /* line 261 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7369_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); } /* line 1 "no_file" */ /* 3949 */ /* line 265 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7370_CMD_GET_CTIME (const objRefType/*t_19_reference*/ o_7371_function, const listType/*t_20_ref_list*/ *const o_7372_params, structType/*t_164_expr_type*/ *const o_7373_c_expr) { /* line 269 "../lib/comp/cmd_act.s7i" */ o_4819_setDiagnosticLine(o_7373_c_expr); /* line 270 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7373_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[768] /* "cmdGetCTime(" */); /* line 271 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7372_params, 1L), o_7373_c_expr); /* line 272 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7373_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[766] /* ", &(" */); /* line 273 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7372_params, 2L), o_7373_c_expr); /* line 274 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7373_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 275 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7372_params, 3L), o_7373_c_expr); /* line 276 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7373_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 277 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7372_params, 4L), o_7373_c_expr); /* line 278 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7373_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 279 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7372_params, 5L), o_7373_c_expr); /* line 280 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7373_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 281 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7372_params, 6L), o_7373_c_expr); /* line 282 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7373_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 283 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7372_params, 7L), o_7373_c_expr); /* line 284 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7373_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 285 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7372_params, 8L), o_7373_c_expr); /* line 286 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7373_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 287 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7372_params, 9L), o_7373_c_expr); /* line 288 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7373_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 289 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7372_params, 10L), o_7373_c_expr); /* line 290 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7373_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); } /* line 1 "no_file" */ /* 3950 */ /* line 294 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7374_CMD_GET_MTIME (const objRefType/*t_19_reference*/ o_7375_function, const listType/*t_20_ref_list*/ *const o_7376_params, structType/*t_164_expr_type*/ *const o_7377_c_expr) { /* line 298 "../lib/comp/cmd_act.s7i" */ o_4819_setDiagnosticLine(o_7377_c_expr); /* line 299 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7377_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[769] /* "cmdGetMTime(" */); /* line 300 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7376_params, 1L), o_7377_c_expr); /* line 301 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7377_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[766] /* ", &(" */); /* line 302 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7376_params, 2L), o_7377_c_expr); /* line 303 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7377_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 304 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7376_params, 3L), o_7377_c_expr); /* line 305 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7377_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 306 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7376_params, 4L), o_7377_c_expr); /* line 307 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7377_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 308 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7376_params, 5L), o_7377_c_expr); /* line 309 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7377_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 310 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7376_params, 6L), o_7377_c_expr); /* line 311 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7377_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 312 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7376_params, 7L), o_7377_c_expr); /* line 313 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7377_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 314 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7376_params, 8L), o_7377_c_expr); /* line 315 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7377_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 316 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7376_params, 9L), o_7377_c_expr); /* line 317 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7377_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 318 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7376_params, 10L), o_7377_c_expr); /* line 319 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7377_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); } /* line 1 "no_file" */ /* 3951 */ /* line 323 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7378_CMD_GET_SEARCH_PATH (const objRefType/*t_19_reference*/ o_7379_function, const listType/*t_20_ref_list*/ *const o_7380_params, structType/*t_164_expr_type*/ *const o_7381_c_expr) { /* line 327 "../lib/comp/cmd_act.s7i" */ typeType/*t_7_type*/ o_7382_result_type=typ[0] /* void/t_1_void */; /* line 329 "../lib/comp/cmd_act.s7i" */ o_7382_result_type=typResult(refType(o_7379_function)); /* line 330 "../lib/comp/cmd_act.s7i" */ o_4944_prepare_typed_result(&(o_7382_result_type), o_7381_c_expr); /* line 331 "../lib/comp/cmd_act.s7i" */ strCopy(&(((structType)(*o_7381_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[770] /* "cmdGetSearchPath()" */); } /* line 1 "no_file" */ /* 3952 */ /* line 335 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7383_CMD_HOME_DIR (const objRefType/*t_19_reference*/ o_7384_function, const listType/*t_20_ref_list*/ *const o_7385_params, structType/*t_164_expr_type*/ *const o_7386_c_expr) { /* line 339 "../lib/comp/cmd_act.s7i" */ o_4955_prepare_stri_result(o_7386_c_expr); /* line 340 "../lib/comp/cmd_act.s7i" */ strCopy(&(((structType)(*o_7386_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[771] /* "cmdHomeDir()" */); } /* line 1 "no_file" */ /* 3953 */ /* line 344 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7387_CMD_LS (const objRefType/*t_19_reference*/ o_7388_function, const listType/*t_20_ref_list*/ *const o_7389_params, structType/*t_164_expr_type*/ *const o_7390_c_expr) { { /* line 348 "../lib/comp/cmd_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 348 "../lib/comp/cmd_act.s7i" */ o_4944_prepare_typed_result(&(*o_3822/*[*/(&(o_4416_array_type), /* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(o_4754_getExprResultType(rflIdx(*o_7389_params, 1L))), &tmp_1))), o_7390_c_expr); } /* line 349 "../lib/comp/cmd_act.s7i" */ strCopy(&(((structType)(*o_7390_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[772] /* "cmdLs(" */); /* line 350 "../lib/comp/cmd_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_7389_params, 1L), o_7390_c_expr); /* line 351 "../lib/comp/cmd_act.s7i" */ { /* line 351 "../lib/comp/cmd_act.s7i" */ striType *tmp_1; /* line 351 "../lib/comp/cmd_act.s7i" */ tmp_1=&(((structType)(*o_7390_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 351 "../lib/comp/cmd_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 351 "../lib/comp/cmd_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 351 "../lib/comp/cmd_act.s7i" */ } else { /* line 351 "../lib/comp/cmd_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 351 "../lib/comp/cmd_act.s7i" */ (*tmp_1)->size++; /* line 351 "../lib/comp/cmd_act.s7i" */ } } } /* line 1 "no_file" */ /* 3954 */ /* line 355 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7391_CMD_MKDIR (const objRefType/*t_19_reference*/ o_7392_function, const listType/*t_20_ref_list*/ *const o_7393_params, structType/*t_164_expr_type*/ *const o_7394_c_expr) { /* line 359 "../lib/comp/cmd_act.s7i" */ o_4819_setDiagnosticLine(o_7394_c_expr); /* line 360 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7394_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[773] /* "cmdMkdir(" */); /* line 361 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7393_params, 1L), o_7394_c_expr); /* line 362 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7394_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3955 */ /* line 366 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7395_CMD_MOVE (const objRefType/*t_19_reference*/ o_7396_function, const listType/*t_20_ref_list*/ *const o_7397_params, structType/*t_164_expr_type*/ *const o_7398_c_expr) { /* line 370 "../lib/comp/cmd_act.s7i" */ o_4819_setDiagnosticLine(o_7398_c_expr); /* line 371 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7398_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[774] /* "cmdMove(" */); /* line 372 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7397_params, 1L), o_7398_c_expr); /* line 373 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7398_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 374 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7397_params, 2L), o_7398_c_expr); /* line 375 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7398_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3956 */ /* line 379 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7399_CMD_READLINK (const objRefType/*t_19_reference*/ o_7400_function, const listType/*t_20_ref_list*/ *const o_7401_params, structType/*t_164_expr_type*/ *const o_7402_c_expr) { /* line 383 "../lib/comp/cmd_act.s7i" */ o_4955_prepare_stri_result(o_7402_c_expr); /* line 384 "../lib/comp/cmd_act.s7i" */ strCopy(&(((structType)(*o_7402_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[775] /* "cmdReadlink(" */); /* line 385 "../lib/comp/cmd_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_7401_params, 1L), o_7402_c_expr); /* line 386 "../lib/comp/cmd_act.s7i" */ { /* line 386 "../lib/comp/cmd_act.s7i" */ striType *tmp_1; /* line 386 "../lib/comp/cmd_act.s7i" */ tmp_1=&(((structType)(*o_7402_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 386 "../lib/comp/cmd_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 386 "../lib/comp/cmd_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 386 "../lib/comp/cmd_act.s7i" */ } else { /* line 386 "../lib/comp/cmd_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 386 "../lib/comp/cmd_act.s7i" */ (*tmp_1)->size++; /* line 386 "../lib/comp/cmd_act.s7i" */ } } } /* line 1 "no_file" */ /* 3957 */ /* line 390 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7403_CMD_REMOVE_FILE (const objRefType/*t_19_reference*/ o_7404_function, const listType/*t_20_ref_list*/ *const o_7405_params, structType/*t_164_expr_type*/ *const o_7406_c_expr) { /* line 394 "../lib/comp/cmd_act.s7i" */ o_4819_setDiagnosticLine(o_7406_c_expr); /* line 395 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7406_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[776] /* "cmdRemoveFile(" */); /* line 396 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7405_params, 1L), o_7406_c_expr); /* line 397 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7406_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3958 */ /* line 401 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7407_CMD_REMOVE_TREE (const objRefType/*t_19_reference*/ o_7408_function, const listType/*t_20_ref_list*/ *const o_7409_params, structType/*t_164_expr_type*/ *const o_7410_c_expr) { /* line 405 "../lib/comp/cmd_act.s7i" */ o_4819_setDiagnosticLine(o_7410_c_expr); /* line 406 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7410_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[777] /* "cmdRemoveTree(" */); /* line 407 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7409_params, 1L), o_7410_c_expr); /* line 408 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7410_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3959 */ /* line 412 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7411_CMD_SETENV (const objRefType/*t_19_reference*/ o_7412_function, const listType/*t_20_ref_list*/ *const o_7413_params, structType/*t_164_expr_type*/ *const o_7414_c_expr) { /* line 416 "../lib/comp/cmd_act.s7i" */ o_4819_setDiagnosticLine(o_7414_c_expr); /* line 417 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7414_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[778] /* "cmdSetenv(" */); /* line 418 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7413_params, 1L), o_7414_c_expr); /* line 419 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7414_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 420 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7413_params, 2L), o_7414_c_expr); /* line 421 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7414_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3960 */ /* line 425 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7415_CMD_SET_ATIME (const objRefType/*t_19_reference*/ o_7416_function, const listType/*t_20_ref_list*/ *const o_7417_params, structType/*t_164_expr_type*/ *const o_7418_c_expr) { /* line 429 "../lib/comp/cmd_act.s7i" */ o_4819_setDiagnosticLine(o_7418_c_expr); /* line 430 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7418_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[779] /* "cmdSetATime(" */); /* line 431 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7417_params, 1L), o_7418_c_expr); /* line 432 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7418_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 433 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7417_params, 2L), o_7418_c_expr); /* line 434 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7418_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 435 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7417_params, 3L), o_7418_c_expr); /* line 436 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7418_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 437 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7417_params, 4L), o_7418_c_expr); /* line 438 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7418_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 439 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7417_params, 5L), o_7418_c_expr); /* line 440 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7418_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 441 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7417_params, 6L), o_7418_c_expr); /* line 442 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7418_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 443 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7417_params, 7L), o_7418_c_expr); /* line 444 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7418_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 445 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7417_params, 8L), o_7418_c_expr); /* line 446 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7418_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 447 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7417_params, 9L), o_7418_c_expr); /* line 448 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7418_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3961 */ /* line 452 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7419_CMD_SET_FILEMODE (const objRefType/*t_19_reference*/ o_7420_function, const listType/*t_20_ref_list*/ *const o_7421_params, structType/*t_164_expr_type*/ *const o_7422_c_expr) { /* line 456 "../lib/comp/cmd_act.s7i" */ o_4819_setDiagnosticLine(o_7422_c_expr); /* line 457 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7422_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[780] /* "cmdSetFileMode(" */); /* line 458 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7421_params, 1L), o_7422_c_expr); /* line 459 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7422_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 460 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7421_params, 2L), o_7422_c_expr); /* line 461 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7422_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3962 */ /* line 465 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7423_CMD_SET_MTIME (const objRefType/*t_19_reference*/ o_7424_function, const listType/*t_20_ref_list*/ *const o_7425_params, structType/*t_164_expr_type*/ *const o_7426_c_expr) { /* line 469 "../lib/comp/cmd_act.s7i" */ o_4819_setDiagnosticLine(o_7426_c_expr); /* line 470 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7426_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[781] /* "cmdSetMTime(" */); /* line 471 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7425_params, 1L), o_7426_c_expr); /* line 472 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7426_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 473 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7425_params, 2L), o_7426_c_expr); /* line 474 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7426_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 475 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7425_params, 3L), o_7426_c_expr); /* line 476 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7426_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 477 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7425_params, 4L), o_7426_c_expr); /* line 478 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7426_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 479 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7425_params, 5L), o_7426_c_expr); /* line 480 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7426_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 481 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7425_params, 6L), o_7426_c_expr); /* line 482 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7426_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 483 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7425_params, 7L), o_7426_c_expr); /* line 484 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7426_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 485 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7425_params, 8L), o_7426_c_expr); /* line 486 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7426_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 487 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7425_params, 9L), o_7426_c_expr); /* line 488 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7426_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3963 */ /* line 492 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7427_CMD_SET_SEARCH_PATH (const objRefType/*t_19_reference*/ o_7428_function, const listType/*t_20_ref_list*/ *const o_7429_params, structType/*t_164_expr_type*/ *const o_7430_c_expr) { /* line 496 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7430_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[782] /* "cmdSetSearchPath(" */); /* line 497 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7429_params, 1L), o_7430_c_expr); /* line 498 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7430_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3964 */ /* line 502 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7431_CMD_SHELL (const objRefType/*t_19_reference*/ o_7432_function, const listType/*t_20_ref_list*/ *const o_7433_params, structType/*t_164_expr_type*/ *const o_7434_c_expr) { /* line 506 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7434_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[783] /* "cmdShell(" */); /* line 507 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7433_params, 1L), o_7434_c_expr); /* line 508 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7434_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 509 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7433_params, 2L), o_7434_c_expr); /* line 510 "../lib/comp/cmd_act.s7i" */ { /* line 510 "../lib/comp/cmd_act.s7i" */ striType *tmp_1; /* line 510 "../lib/comp/cmd_act.s7i" */ tmp_1=&(((structType)(*o_7434_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 510 "../lib/comp/cmd_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 510 "../lib/comp/cmd_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 510 "../lib/comp/cmd_act.s7i" */ } else { /* line 510 "../lib/comp/cmd_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 510 "../lib/comp/cmd_act.s7i" */ (*tmp_1)->size++; /* line 510 "../lib/comp/cmd_act.s7i" */ } } } /* line 1 "no_file" */ /* 3965 */ /* line 514 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7435_CMD_SHELL_ESCAPE (const objRefType/*t_19_reference*/ o_7436_function, const listType/*t_20_ref_list*/ *const o_7437_params, structType/*t_164_expr_type*/ *const o_7438_c_expr) { /* line 518 "../lib/comp/cmd_act.s7i" */ o_4955_prepare_stri_result(o_7438_c_expr); /* line 519 "../lib/comp/cmd_act.s7i" */ strCopy(&(((structType)(*o_7438_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[784] /* "cmdShellEscape(" */); /* line 520 "../lib/comp/cmd_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_7437_params, 1L), o_7438_c_expr); /* line 521 "../lib/comp/cmd_act.s7i" */ { /* line 521 "../lib/comp/cmd_act.s7i" */ striType *tmp_1; /* line 521 "../lib/comp/cmd_act.s7i" */ tmp_1=&(((structType)(*o_7438_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 521 "../lib/comp/cmd_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 521 "../lib/comp/cmd_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 521 "../lib/comp/cmd_act.s7i" */ } else { /* line 521 "../lib/comp/cmd_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 521 "../lib/comp/cmd_act.s7i" */ (*tmp_1)->size++; /* line 521 "../lib/comp/cmd_act.s7i" */ } } } /* line 1 "no_file" */ /* 3966 */ /* line 525 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7439_CMD_PIPE2 (const objRefType/*t_19_reference*/ o_7440_function, const listType/*t_20_ref_list*/ *const o_7441_params, structType/*t_164_expr_type*/ *const o_7442_c_expr) { /* line 529 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7442_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[785] /* "cmdPipe2(" */); /* line 530 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7441_params, 1L), o_7442_c_expr); /* line 531 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7442_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 532 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7441_params, 2L), o_7442_c_expr); /* line 533 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7442_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[766] /* ", &(" */); /* line 534 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7441_params, 3L), o_7442_c_expr); /* line 535 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7442_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 536 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7441_params, 4L), o_7442_c_expr); /* line 537 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7442_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); } /* line 1 "no_file" */ /* 3967 */ /* line 541 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7443_CMD_PTY (const objRefType/*t_19_reference*/ o_7444_function, const listType/*t_20_ref_list*/ *const o_7445_params, structType/*t_164_expr_type*/ *const o_7446_c_expr) { /* line 545 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7446_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[786] /* "cmdPty(" */); /* line 546 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7445_params, 1L), o_7446_c_expr); /* line 547 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7446_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 548 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7445_params, 2L), o_7446_c_expr); /* line 549 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7446_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[766] /* ", &(" */); /* line 550 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7445_params, 3L), o_7446_c_expr); /* line 551 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7446_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 552 "../lib/comp/cmd_act.s7i" */ o_4941_process_expr(rflIdx(*o_7445_params, 4L), o_7446_c_expr); /* line 553 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7446_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); } /* line 1 "no_file" */ /* 3968 */ /* line 557 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7447_CMD_START_PROCESS (const objRefType/*t_19_reference*/ o_7448_function, const listType/*t_20_ref_list*/ *const o_7449_params, structType/*t_164_expr_type*/ *const o_7450_c_expr) { /* line 561 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7450_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[787] /* "cmdStartProcess(" */); /* line 562 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7449_params, 1L), o_7450_c_expr); /* line 563 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7450_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 564 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7449_params, 2L), o_7450_c_expr); /* line 565 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7450_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3969 */ /* line 569 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7451_CMD_SYMLINK (const objRefType/*t_19_reference*/ o_7452_function, const listType/*t_20_ref_list*/ *const o_7453_params, structType/*t_164_expr_type*/ *const o_7454_c_expr) { /* line 573 "../lib/comp/cmd_act.s7i" */ o_4819_setDiagnosticLine(o_7454_c_expr); /* line 574 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7454_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[788] /* "cmdSymlink(" */); /* line 575 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7453_params, 1L), o_7454_c_expr); /* line 576 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7454_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 577 "../lib/comp/cmd_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7453_params, 2L), o_7454_c_expr); /* line 578 "../lib/comp/cmd_act.s7i" */ strAppend(&(((structType)(*o_7454_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3970 */ /* line 582 "../lib/comp/cmd_act.s7i" */ static void/*t_1_void*/ o_7455_CMD_TO_OS_PATH (const objRefType/*t_19_reference*/ o_7456_function, const listType/*t_20_ref_list*/ *const o_7457_params, structType/*t_164_expr_type*/ *const o_7458_c_expr) { /* line 586 "../lib/comp/cmd_act.s7i" */ o_4955_prepare_stri_result(o_7458_c_expr); /* line 587 "../lib/comp/cmd_act.s7i" */ strCopy(&(((structType)(*o_7458_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[789] /* "cmdToOsPath(" */); /* line 588 "../lib/comp/cmd_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_7457_params, 1L), o_7458_c_expr); /* line 589 "../lib/comp/cmd_act.s7i" */ { /* line 589 "../lib/comp/cmd_act.s7i" */ striType *tmp_1; /* line 589 "../lib/comp/cmd_act.s7i" */ tmp_1=&(((structType)(*o_7458_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 589 "../lib/comp/cmd_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 589 "../lib/comp/cmd_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 589 "../lib/comp/cmd_act.s7i" */ } else { /* line 589 "../lib/comp/cmd_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 589 "../lib/comp/cmd_act.s7i" */ (*tmp_1)->size++; /* line 589 "../lib/comp/cmd_act.s7i" */ } } } /* line 1 "no_file" */ /* 3971 */ /* line 39 "../lib/comp/con_act.s7i" */ static void/*t_1_void*/ o_7459_con_prototypes (interfaceType/*t_46_file*/ *const o_7460_c_prog) { /* line 42 "../lib/comp/con_act.s7i" */ o_6547_declareExtern(o_7460_c_prog, &str[790] /* "void conClear (intType, intType, intType, intType);" */); /* line 43 "../lib/comp/con_act.s7i" */ o_6547_declareExtern(o_7460_c_prog, &str[791] /* "void conCursor (boolType);" */); /* line 44 "../lib/comp/con_act.s7i" */ o_6547_declareExtern(o_7460_c_prog, &str[792] /* "void conFlush (void);" */); /* line 45 "../lib/comp/con_act.s7i" */ o_6547_declareExtern(o_7460_c_prog, &str[793] /* "int conHeight (void);" */); /* line 46 "../lib/comp/con_act.s7i" */ o_6547_declareExtern(o_7460_c_prog, &str[794] /* "void conHScroll (intType, intType, intType, intType, intType);" */); /* line 47 "../lib/comp/con_act.s7i" */ o_6547_declareExtern(o_7460_c_prog, &str[795] /* "int conOpen (void);" */); /* line 48 "../lib/comp/con_act.s7i" */ o_6547_declareExtern(o_7460_c_prog, &str[796] /* "void conSetpos (intType, intType);" */); /* line 49 "../lib/comp/con_act.s7i" */ o_6547_declareExtern(o_7460_c_prog, &str[797] /* "void conShut (void);" */); /* line 50 "../lib/comp/con_act.s7i" */ o_6547_declareExtern(o_7460_c_prog, &str[798] /* "void conVScroll (intType, intType, intType, intType, intType);" */); /* line 51 "../lib/comp/con_act.s7i" */ o_6547_declareExtern(o_7460_c_prog, &str[799] /* "int conWidth (void);" */); /* line 52 "../lib/comp/con_act.s7i" */ o_6547_declareExtern(o_7460_c_prog, &str[800] /* "void conWrite (const_striType);" */); } /* line 1 "no_file" */ /* 3972 */ /* line 56 "../lib/comp/con_act.s7i" */ static void/*t_1_void*/ o_7461_CON_CLEAR (const objRefType/*t_19_reference*/ o_7462_function, const listType/*t_20_ref_list*/ *const o_7463_params, structType/*t_164_expr_type*/ *const o_7464_c_expr) { /* line 60 "../lib/comp/con_act.s7i" */ o_4819_setDiagnosticLine(o_7464_c_expr); /* line 61 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7464_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[801] /* "conClear(" */); /* line 62 "../lib/comp/con_act.s7i" */ o_4941_process_expr(rflIdx(*o_7463_params, 2L), o_7464_c_expr); /* line 63 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7464_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 64 "../lib/comp/con_act.s7i" */ o_4941_process_expr(rflIdx(*o_7463_params, 3L), o_7464_c_expr); /* line 65 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7464_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 66 "../lib/comp/con_act.s7i" */ o_4941_process_expr(rflIdx(*o_7463_params, 4L), o_7464_c_expr); /* line 67 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7464_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 68 "../lib/comp/con_act.s7i" */ o_4941_process_expr(rflIdx(*o_7463_params, 5L), o_7464_c_expr); /* line 69 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7464_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3973 */ /* line 73 "../lib/comp/con_act.s7i" */ static void/*t_1_void*/ o_7465_CON_CURSOR (const objRefType/*t_19_reference*/ o_7466_function, const listType/*t_20_ref_list*/ *const o_7467_params, structType/*t_164_expr_type*/ *const o_7468_c_expr) { /* line 77 "../lib/comp/con_act.s7i" */ o_4819_setDiagnosticLine(o_7468_c_expr); /* line 78 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7468_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[802] /* "conCursor(" */); /* line 79 "../lib/comp/con_act.s7i" */ o_4941_process_expr(rflIdx(*o_7467_params, 2L), o_7468_c_expr); /* line 80 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7468_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3974 */ /* line 84 "../lib/comp/con_act.s7i" */ static void/*t_1_void*/ o_7469_CON_FLUSH (const objRefType/*t_19_reference*/ o_7470_function, const listType/*t_20_ref_list*/ *const o_7471_params, structType/*t_164_expr_type*/ *const o_7472_c_expr) { /* line 88 "../lib/comp/con_act.s7i" */ o_4819_setDiagnosticLine(o_7472_c_expr); /* line 89 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7472_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[803] /* "conFlush();\n" */); } /* line 1 "no_file" */ /* 3975 */ /* line 93 "../lib/comp/con_act.s7i" */ static void/*t_1_void*/ o_7473_CON_HEIGHT (const objRefType/*t_19_reference*/ o_7474_function, const listType/*t_20_ref_list*/ *const o_7475_params, structType/*t_164_expr_type*/ *const o_7476_c_expr) { /* line 97 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7476_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[804] /* "conHeight()" */); } /* line 1 "no_file" */ /* 3976 */ /* line 101 "../lib/comp/con_act.s7i" */ static void/*t_1_void*/ o_7477_CON_H_SCL (const objRefType/*t_19_reference*/ o_7478_function, const listType/*t_20_ref_list*/ *const o_7479_params, structType/*t_164_expr_type*/ *const o_7480_c_expr) { /* line 105 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7480_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[805] /* "conHScroll(" */); /* line 106 "../lib/comp/con_act.s7i" */ o_4941_process_expr(rflIdx(*o_7479_params, 2L), o_7480_c_expr); /* line 107 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7480_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 108 "../lib/comp/con_act.s7i" */ o_4941_process_expr(rflIdx(*o_7479_params, 3L), o_7480_c_expr); /* line 109 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7480_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 110 "../lib/comp/con_act.s7i" */ o_4941_process_expr(rflIdx(*o_7479_params, 4L), o_7480_c_expr); /* line 111 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7480_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 112 "../lib/comp/con_act.s7i" */ o_4941_process_expr(rflIdx(*o_7479_params, 5L), o_7480_c_expr); /* line 113 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7480_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 114 "../lib/comp/con_act.s7i" */ o_4941_process_expr(rflIdx(*o_7479_params, 6L), o_7480_c_expr); /* line 115 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7480_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3977 */ /* line 119 "../lib/comp/con_act.s7i" */ static void/*t_1_void*/ o_7481_CON_OPEN (const objRefType/*t_19_reference*/ o_7482_function, const listType/*t_20_ref_list*/ *const o_7483_params, structType/*t_164_expr_type*/ *const o_7484_c_expr) { /* line 123 "../lib/comp/con_act.s7i" */ o_4819_setDiagnosticLine(o_7484_c_expr); /* line 124 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7484_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[806] /* "conOpen();\n" */); } /* line 1 "no_file" */ /* 3978 */ /* line 128 "../lib/comp/con_act.s7i" */ static void/*t_1_void*/ o_7485_CON_SETPOS (const objRefType/*t_19_reference*/ o_7486_function, const listType/*t_20_ref_list*/ *const o_7487_params, structType/*t_164_expr_type*/ *const o_7488_c_expr) { /* line 132 "../lib/comp/con_act.s7i" */ o_4819_setDiagnosticLine(o_7488_c_expr); /* line 133 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7488_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[807] /* "conSetpos(" */); /* line 134 "../lib/comp/con_act.s7i" */ o_4941_process_expr(rflIdx(*o_7487_params, 2L), o_7488_c_expr); /* line 135 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7488_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 136 "../lib/comp/con_act.s7i" */ o_4941_process_expr(rflIdx(*o_7487_params, 3L), o_7488_c_expr); /* line 137 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7488_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3979 */ /* line 141 "../lib/comp/con_act.s7i" */ static void/*t_1_void*/ o_7489_CON_V_SCL (const objRefType/*t_19_reference*/ o_7490_function, const listType/*t_20_ref_list*/ *const o_7491_params, structType/*t_164_expr_type*/ *const o_7492_c_expr) { /* line 145 "../lib/comp/con_act.s7i" */ o_4819_setDiagnosticLine(o_7492_c_expr); /* line 146 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7492_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[808] /* "conVScroll(" */); /* line 147 "../lib/comp/con_act.s7i" */ o_4941_process_expr(rflIdx(*o_7491_params, 2L), o_7492_c_expr); /* line 148 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7492_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 149 "../lib/comp/con_act.s7i" */ o_4941_process_expr(rflIdx(*o_7491_params, 3L), o_7492_c_expr); /* line 150 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7492_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 151 "../lib/comp/con_act.s7i" */ o_4941_process_expr(rflIdx(*o_7491_params, 4L), o_7492_c_expr); /* line 152 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7492_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 153 "../lib/comp/con_act.s7i" */ o_4941_process_expr(rflIdx(*o_7491_params, 5L), o_7492_c_expr); /* line 154 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7492_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 155 "../lib/comp/con_act.s7i" */ o_4941_process_expr(rflIdx(*o_7491_params, 6L), o_7492_c_expr); /* line 156 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7492_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3980 */ /* line 160 "../lib/comp/con_act.s7i" */ static void/*t_1_void*/ o_7493_CON_WIDTH (const objRefType/*t_19_reference*/ o_7494_function, const listType/*t_20_ref_list*/ *const o_7495_params, structType/*t_164_expr_type*/ *const o_7496_c_expr) { /* line 164 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7496_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[809] /* "conWidth()" */); } /* line 1 "no_file" */ /* 3981 */ /* line 168 "../lib/comp/con_act.s7i" */ static void/*t_1_void*/ o_7497_CON_WRITE (const objRefType/*t_19_reference*/ o_7498_function, const listType/*t_20_ref_list*/ *const o_7499_params, structType/*t_164_expr_type*/ *const o_7500_c_expr) { /* line 172 "../lib/comp/con_act.s7i" */ o_4819_setDiagnosticLine(o_7500_c_expr); /* line 173 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7500_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[810] /* "conWrite(" */); /* line 174 "../lib/comp/con_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7499_params, 2L), o_7500_c_expr); /* line 175 "../lib/comp/con_act.s7i" */ strAppend(&(((structType)(*o_7500_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3982 */ /* line 33 "../lib/comp/dcl_act.s7i" */ static void/*t_1_void*/ o_7501_DCL_CONST (const objRefType/*t_19_reference*/ o_7502_function, const listType/*t_20_ref_list*/ *const o_7503_params, structType/*t_164_expr_type*/ *const o_7504_c_expr) { /* line 37 "../lib/comp/dcl_act.s7i" */ o_4796_write_object_declaration=o_25_FALSE; } /* line 1 "no_file" */ /* 3983 */ /* line 41 "../lib/comp/dcl_act.s7i" */ static void/*t_1_void*/ o_7505_DCL_FWD (const objRefType/*t_19_reference*/ o_7506_function, const listType/*t_20_ref_list*/ *const o_7507_params, structType/*t_164_expr_type*/ *const o_7508_c_expr) { /* line 45 "../lib/comp/dcl_act.s7i" */ o_4796_write_object_declaration=o_25_FALSE; } /* line 1 "no_file" */ /* 3984 */ /* line 49 "../lib/comp/dcl_act.s7i" */ static void/*t_1_void*/ o_7509_DCL_GLOBAL (const objRefType/*t_19_reference*/ o_7510_function, const listType/*t_20_ref_list*/ *const o_7511_params, structType/*t_164_expr_type*/ *const o_7512_c_expr) { /* line 53 "../lib/comp/dcl_act.s7i" */ o_4796_write_object_declaration=o_25_FALSE; } /* line 1 "no_file" */ /* 3985 */ /* line 57 "../lib/comp/dcl_act.s7i" */ static void/*t_1_void*/ o_7513_DCL_VAR (const objRefType/*t_19_reference*/ o_7514_function, const listType/*t_20_ref_list*/ *const o_7515_params, structType/*t_164_expr_type*/ *const o_7516_c_expr) { /* line 61 "../lib/comp/dcl_act.s7i" */ o_4796_write_object_declaration=o_25_FALSE; } /* line 1 "no_file" */ /* 3986 */ /* 3987 */ /* line 85 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7517_drw_prototypes (interfaceType/*t_46_file*/ *const o_7518_c_prog) { /* line 88 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[811] /* "intType drwPointerXpos (const_winType);" */); /* line 89 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[812] /* "intType drwPointerYpos (const_winType);" */); /* line 90 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[813] /* "void drwArc (const_winType, intType, intType, intType, floatType, floatType);" */); /* line 91 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[814] /* "void drwArc2 (const_winType, intType, intType, intType, intType, intType);" */); /* line 92 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[815] /* "void drwBackground (intType);" */); /* line 93 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[816] /* "void drwCircle (const_winType, intType, intType, intType);" */); /* line 94 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[817] /* "void drwClear (winType, intType);" */); /* line 95 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[818] /* "void drwColor (intType);" */); /* line 96 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[819] /* "void drwCopyArea (const_winType, const_winType, intType, intType, intType, intType, intType, intType);" */); /* line 97 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[820] /* "void drwCpy (winType *const, const winType);" */); /* line 98 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[821] /* "void drwCpyGeneric (genericType *const, const genericType);" */); /* line 99 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[822] /* "winType drwCreate (const winType);" */); /* line 100 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[823] /* "genericType drwCreateGeneric (const genericType);" */); /* line 101 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[824] /* "void drwDestr (const winType);" */); /* line 102 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[825] /* "void drwDestrGeneric (const genericType);" */); /* line 103 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[826] /* "void drwFArcChord (const_winType, intType, intType, intType, floatType, floatType);" */); /* line 104 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[827] /* "void drwFArcPieSlice (const_winType, intType, intType, intType, floatType, floatType);" */); /* line 105 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[828] /* "void drwFCircle (const_winType, intType, intType, intType);" */); /* line 106 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[829] /* "void drwFEllipse (const_winType, intType, intType, intType, intType);" */); /* line 107 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[830] /* "void drwFlush (void);" */); /* line 108 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[831] /* "bstriType drwGenPointList (const const_arrayType);" */); /* line 109 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[832] /* "winType drwGet (const_winType, intType, intType, intType, intType);" */); /* line 110 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[833] /* "bstriType drwGetImage (const_winType);" */); /* line 111 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[834] /* "intType drwGetImagePixel (const_bstriType, intType, intType, intType, intType);" */); /* line 112 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[835] /* "intType drwGetPixel (const_winType, intType, intType);" */); /* line 113 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[836] /* "intType drwHeight (const_winType);" */); /* line 114 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[837] /* "winType drwImage (int32Type *, memSizeType, memSizeType);" */); /* line 115 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[838] /* "void drwLine (const_winType, intType, intType, intType, intType);" */); /* line 116 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[839] /* "winType drwNewPixmap (intType, intType);" */); /* line 117 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[840] /* "winType drwOpen (intType, intType, intType, intType, const const_striType);" */); /* line 118 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[841] /* "winType drwOpenSubWindow (const_winType, intType, intType, intType, intType);" */); /* line 119 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[842] /* "void drwPArc (const_winType, intType, intType, intType, floatType, floatType, intType);" */); /* line 120 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[843] /* "void drwPCircle (const_winType, intType, intType, intType, intType);" */); /* line 121 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[844] /* "void drwPFArcChord (const_winType, intType, intType, intType, floatType, floatType, intType);" */); /* line 122 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[845] /* "void drwPFArcPieSlice (const_winType, intType, intType, intType, floatType, floatType, intType);" */); /* line 123 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[846] /* "void drwPFCircle (const_winType, intType, intType, intType, intType);" */); /* line 124 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[847] /* "void drwPFEllipse (const_winType, intType, intType, intType, intType, intType);" */); /* line 125 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[848] /* "void drwPixelToRgb (intType, intType *, intType *, intType *);" */); /* line 126 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[849] /* "void drwPLine (const_winType, intType, intType, intType, intType, intType);" */); /* line 127 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[850] /* "void drwPoint (const_winType, intType, intType);" */); /* line 128 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[851] /* "void drwPPoint (const_winType, intType, intType, intType);" */); /* line 129 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[852] /* "void drwPRect (const_winType, intType, intType, intType, intType, intType);" */); /* line 130 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[853] /* "void drwPolyLine (const_winType, intType, intType, bstriType, intType);" */); /* line 131 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[854] /* "void drwFPolyLine (const_winType, intType, intType, bstriType, intType);" */); /* line 132 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[855] /* "void drwPut (const_winType, const_winType, intType, intType);" */); /* line 133 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[856] /* "void drwRect (const_winType, intType, intType, intType, intType);" */); /* line 134 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[857] /* "intType drwRgbColor (intType, intType, intType);" */); /* line 135 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[858] /* "winType drwRtlImage (const_arrayType);" */); /* line 136 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[859] /* "void drwSetContent (const_winType, const_winType);" */); /* line 137 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[860] /* "void drwSetPos (const_winType, intType, intType);" */); /* line 138 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[861] /* "void drwSetTransparentColor (winType, intType);" */); /* line 139 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[862] /* "void drwText (const_winType, intType, intType, const const_striType, intType, intType);" */); /* line 140 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[863] /* "void drwToBottom (const_winType);" */); /* line 141 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[864] /* "void drwToTop (const_winType);" */); /* line 142 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[865] /* "winType drwValue (objRefType);" */); /* line 143 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[866] /* "intType drwWidth (const_winType);" */); /* line 144 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[867] /* "intType drwXPos (const_winType);" */); /* line 145 "../lib/comp/drw_act.s7i" */ o_6547_declareExtern(o_7518_c_prog, &str[868] /* "intType drwYPos (const_winType);" */); } /* line 1 "no_file" */ /* 3988 */ /* line 149 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7519_DRW_ARC (const objRefType/*t_19_reference*/ o_7520_function, const listType/*t_20_ref_list*/ *const o_7521_params, structType/*t_164_expr_type*/ *const o_7522_c_expr) { /* line 153 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7522_c_expr); /* line 154 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7522_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[869] /* "drwArc(" */); /* line 155 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7521_params, 1L), o_7522_c_expr); /* line 156 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7522_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 157 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7521_params, 2L), o_7522_c_expr); /* line 158 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7522_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 159 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7521_params, 3L), o_7522_c_expr); /* line 160 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7522_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 161 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7521_params, 4L), o_7522_c_expr); /* line 162 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7522_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 163 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7521_params, 5L), o_7522_c_expr); /* line 164 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7522_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 165 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7521_params, 6L), o_7522_c_expr); /* line 166 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7522_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3989 */ /* line 170 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7523_DRW_ARC2 (const objRefType/*t_19_reference*/ o_7524_function, const listType/*t_20_ref_list*/ *const o_7525_params, structType/*t_164_expr_type*/ *const o_7526_c_expr) { /* line 174 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7526_c_expr); /* line 175 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7526_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[870] /* "drwArc2(" */); /* line 176 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7525_params, 1L), o_7526_c_expr); /* line 177 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7526_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 178 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7525_params, 2L), o_7526_c_expr); /* line 179 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7526_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 180 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7525_params, 3L), o_7526_c_expr); /* line 181 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7526_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 182 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7525_params, 4L), o_7526_c_expr); /* line 183 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7526_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 184 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7525_params, 5L), o_7526_c_expr); /* line 185 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7526_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 186 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7525_params, 6L), o_7526_c_expr); /* line 187 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7526_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3990 */ /* line 191 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7527_DRW_BACKGROUND (const objRefType/*t_19_reference*/ o_7528_function, const listType/*t_20_ref_list*/ *const o_7529_params, structType/*t_164_expr_type*/ *const o_7530_c_expr) { /* line 195 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7530_c_expr); /* line 196 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7530_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[871] /* "drwBackground(" */); /* line 197 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7529_params, 1L), o_7530_c_expr); /* line 198 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7530_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3991 */ /* line 202 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7531_DRW_CIRCLE (const objRefType/*t_19_reference*/ o_7532_function, const listType/*t_20_ref_list*/ *const o_7533_params, structType/*t_164_expr_type*/ *const o_7534_c_expr) { /* line 206 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7534_c_expr); /* line 207 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7534_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[872] /* "drwCircle(" */); /* line 208 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7533_params, 1L), o_7534_c_expr); /* line 209 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7534_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 210 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7533_params, 2L), o_7534_c_expr); /* line 211 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7534_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 212 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7533_params, 3L), o_7534_c_expr); /* line 213 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7534_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 214 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7533_params, 4L), o_7534_c_expr); /* line 215 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7534_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3992 */ /* line 219 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7535_DRW_CLEAR (const objRefType/*t_19_reference*/ o_7536_function, const listType/*t_20_ref_list*/ *const o_7537_params, structType/*t_164_expr_type*/ *const o_7538_c_expr) { /* line 223 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7538_c_expr); /* line 224 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7538_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[873] /* "drwClear(" */); /* line 225 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7537_params, 1L), o_7538_c_expr); /* line 226 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7538_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 227 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7537_params, 2L), o_7538_c_expr); /* line 228 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7538_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3993 */ /* line 232 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7539_DRW_CMP (const objRefType/*t_19_reference*/ o_7540_function, const listType/*t_20_ref_list*/ *const o_7541_params, structType/*t_164_expr_type*/ *const o_7542_c_expr) { /* line 236 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[874] /* "ptrCmp(" */); /* line 237 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7541_params, 1L), o_7542_c_expr); /* line 238 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 239 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7541_params, 2L), o_7542_c_expr); /* line 240 "../lib/comp/drw_act.s7i" */ { /* line 240 "../lib/comp/drw_act.s7i" */ striType *tmp_1; /* line 240 "../lib/comp/drw_act.s7i" */ tmp_1=&(((structType)(*o_7542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 240 "../lib/comp/drw_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 240 "../lib/comp/drw_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 240 "../lib/comp/drw_act.s7i" */ } else { /* line 240 "../lib/comp/drw_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 240 "../lib/comp/drw_act.s7i" */ (*tmp_1)->size++; /* line 240 "../lib/comp/drw_act.s7i" */ } } } /* line 1 "no_file" */ /* 3994 */ /* line 244 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7543_DRW_COLOR (const objRefType/*t_19_reference*/ o_7544_function, const listType/*t_20_ref_list*/ *const o_7545_params, structType/*t_164_expr_type*/ *const o_7546_c_expr) { /* line 248 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7546_c_expr); /* line 249 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7546_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[875] /* "drwColor(" */); /* line 250 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7545_params, 1L), o_7546_c_expr); /* line 251 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7546_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3995 */ /* line 255 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7547_DRW_COPYAREA (const objRefType/*t_19_reference*/ o_7548_function, const listType/*t_20_ref_list*/ *const o_7549_params, structType/*t_164_expr_type*/ *const o_7550_c_expr) { /* line 259 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7550_c_expr); /* line 260 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[876] /* "drwCopyArea(" */); /* line 261 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7549_params, 1L), o_7550_c_expr); /* line 262 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 263 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7549_params, 2L), o_7550_c_expr); /* line 264 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 265 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7549_params, 3L), o_7550_c_expr); /* line 266 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 267 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7549_params, 4L), o_7550_c_expr); /* line 268 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 269 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7549_params, 5L), o_7550_c_expr); /* line 270 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 271 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7549_params, 6L), o_7550_c_expr); /* line 272 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 273 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7549_params, 7L), o_7550_c_expr); /* line 274 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 275 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7549_params, 8L), o_7550_c_expr); /* line 276 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3996 */ /* line 280 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7551_DRW_CPY (const objRefType/*t_19_reference*/ o_7552_function, const listType/*t_20_ref_list*/ *const o_7553_params, structType/*t_164_expr_type*/ *const o_7554_c_expr) { /* line 284 "../lib/comp/drw_act.s7i" */ structType/*t_164_expr_type*/ o_7555_c_param1; /* line 285 "../lib/comp/drw_act.s7i" */ structType/*t_164_expr_type*/ o_7556_c_param3; /* line 284 "../lib/comp/drw_act.s7i" */ o_7555_c_param1=create_164(sct[216]); /* line 285 "../lib/comp/drw_act.s7i" */ o_7556_c_param3=create_164(sct[217]); /* line 287 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7553_params, 1L), &(o_7555_c_param1)); /* line 288 "../lib/comp/drw_act.s7i" */ ((structType)(o_7556_c_param3))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_7555_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 289 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7553_params, 3L), &(o_7556_c_param3)); /* line 290 "../lib/comp/drw_act.s7i" */ if (o_5049_has_temp_values(o_7556_c_param3)) { /* line 291 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7554_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 292 "../lib/comp/drw_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_7555_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_7554_c_expr); /* line 293 "../lib/comp/drw_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_7556_c_param3))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_7554_c_expr); /* line 294 "../lib/comp/drw_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_7555_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_7554_c_expr); /* line 295 "../lib/comp/drw_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_7556_c_param3))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_7554_c_expr); } /* line 297 "../lib/comp/drw_act.s7i" */ if (((((structType)(o_7556_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 298 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7554_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 299 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7554_c_expr); /* line 300 "../lib/comp/drw_act.s7i" */ if (o_5018_isNormalVariable(rflIdx(*o_7553_params, 1L))) { /* line 301 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7554_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[877] /* "winType old_win=" */); /* line 302 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7554_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_7555_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 303 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7554_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 304 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7554_c_expr); /* line 305 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7554_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_7555_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 306 "../lib/comp/drw_act.s7i" */ { /* line 306 "../lib/comp/drw_act.s7i" */ striType *tmp_1; /* line 306 "../lib/comp/drw_act.s7i" */ tmp_1=&(((structType)(*o_7554_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 306 "../lib/comp/drw_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 306 "../lib/comp/drw_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 306 "../lib/comp/drw_act.s7i" */ } else { /* line 306 "../lib/comp/drw_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 306 "../lib/comp/drw_act.s7i" */ (*tmp_1)->size++; /* line 306 "../lib/comp/drw_act.s7i" */ } } } else { /* line 308 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7554_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[878] /* "winType *win_ptr=&(" */); /* line 309 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7554_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_7555_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 310 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7554_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 311 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7554_c_expr); /* line 312 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7554_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[879] /* "winType old_win=*win_ptr;\n" */); /* line 313 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7554_c_expr); /* line 314 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7554_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[880] /* "*win_ptr=" */); } /* line 316 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7554_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_7556_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 317 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7554_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 318 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7554_c_expr); /* line 319 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7554_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[881] /* "drwDestr(old_win);\n" */); /* line 320 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7554_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } else { /* line 322 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7554_c_expr); /* line 323 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7554_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[273] /* "drwCpy(&(" */); /* line 324 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7554_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_7555_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 325 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7554_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 326 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7554_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_7556_c_param3))->stru[5].value.striValue/*->o_4783_expr*/); /* line 327 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7554_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 329 "../lib/comp/drw_act.s7i" */ if (o_5049_has_temp_values(o_7556_c_param3)) { /* line 330 "../lib/comp/drw_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_7555_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_7554_c_expr); /* line 331 "../lib/comp/drw_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_7556_c_param3))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_7554_c_expr); /* line 332 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7554_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 280 "../lib/comp/drw_act.s7i" */ destr_164(o_7555_c_param1); /* line 280 "../lib/comp/drw_act.s7i" */ destr_164(o_7556_c_param3); } /* line 1 "no_file" */ /* 3997 */ /* line 337 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7557_DRW_EQ (const objRefType/*t_19_reference*/ o_7558_function, const listType/*t_20_ref_list*/ *const o_7559_params, structType/*t_164_expr_type*/ *const o_7560_c_expr) { /* line 341 "../lib/comp/drw_act.s7i" */ { /* line 341 "../lib/comp/drw_act.s7i" */ striType *tmp_1; /* line 341 "../lib/comp/drw_act.s7i" */ tmp_1=&(((structType)(*o_7560_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 341 "../lib/comp/drw_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 341 "../lib/comp/drw_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 341 "../lib/comp/drw_act.s7i" */ } else { /* line 341 "../lib/comp/drw_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 341 "../lib/comp/drw_act.s7i" */ (*tmp_1)->size++; /* line 341 "../lib/comp/drw_act.s7i" */ } } /* line 342 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7559_params, 1L), o_7560_c_expr); /* line 343 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7560_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[350] /* ") == (" */); /* line 344 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7559_params, 3L), o_7560_c_expr); /* line 345 "../lib/comp/drw_act.s7i" */ { /* line 345 "../lib/comp/drw_act.s7i" */ striType *tmp_1; /* line 345 "../lib/comp/drw_act.s7i" */ tmp_1=&(((structType)(*o_7560_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 345 "../lib/comp/drw_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 345 "../lib/comp/drw_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 345 "../lib/comp/drw_act.s7i" */ } else { /* line 345 "../lib/comp/drw_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 345 "../lib/comp/drw_act.s7i" */ (*tmp_1)->size++; /* line 345 "../lib/comp/drw_act.s7i" */ } } } /* line 1 "no_file" */ /* 3998 */ /* line 349 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7561_DRW_FARCCHORD (const objRefType/*t_19_reference*/ o_7562_function, const listType/*t_20_ref_list*/ *const o_7563_params, structType/*t_164_expr_type*/ *const o_7564_c_expr) { /* line 353 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7564_c_expr); /* line 354 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7564_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[882] /* "drwFArcChord(" */); /* line 355 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7563_params, 1L), o_7564_c_expr); /* line 356 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7564_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 357 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7563_params, 2L), o_7564_c_expr); /* line 358 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7564_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 359 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7563_params, 3L), o_7564_c_expr); /* line 360 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7564_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 361 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7563_params, 4L), o_7564_c_expr); /* line 362 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7564_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 363 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7563_params, 5L), o_7564_c_expr); /* line 364 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7564_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 365 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7563_params, 6L), o_7564_c_expr); /* line 366 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7564_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 3999 */ /* line 370 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7565_DRW_FARCPIESLICE (const objRefType/*t_19_reference*/ o_7566_function, const listType/*t_20_ref_list*/ *const o_7567_params, structType/*t_164_expr_type*/ *const o_7568_c_expr) { /* line 374 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7568_c_expr); /* line 375 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7568_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[883] /* "drwFArcPieSlice(" */); /* line 376 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7567_params, 1L), o_7568_c_expr); /* line 377 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7568_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 378 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7567_params, 2L), o_7568_c_expr); /* line 379 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7568_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 380 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7567_params, 3L), o_7568_c_expr); /* line 381 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7568_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 382 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7567_params, 4L), o_7568_c_expr); /* line 383 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7568_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 384 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7567_params, 5L), o_7568_c_expr); /* line 385 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7568_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 386 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7567_params, 6L), o_7568_c_expr); /* line 387 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7568_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4000 */ /* line 391 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7569_DRW_FCIRCLE (const objRefType/*t_19_reference*/ o_7570_function, const listType/*t_20_ref_list*/ *const o_7571_params, structType/*t_164_expr_type*/ *const o_7572_c_expr) { /* line 395 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7572_c_expr); /* line 396 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7572_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[884] /* "drwFCircle(" */); /* line 397 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7571_params, 1L), o_7572_c_expr); /* line 398 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7572_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 399 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7571_params, 2L), o_7572_c_expr); /* line 400 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7572_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 401 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7571_params, 3L), o_7572_c_expr); /* line 402 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7572_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 403 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7571_params, 4L), o_7572_c_expr); /* line 404 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7572_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4001 */ /* line 408 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7573_DRW_FELLIPSE (const objRefType/*t_19_reference*/ o_7574_function, const listType/*t_20_ref_list*/ *const o_7575_params, structType/*t_164_expr_type*/ *const o_7576_c_expr) { /* line 412 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7576_c_expr); /* line 413 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[885] /* "drwFEllipse(" */); /* line 414 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7575_params, 1L), o_7576_c_expr); /* line 415 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 416 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7575_params, 2L), o_7576_c_expr); /* line 417 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 418 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7575_params, 3L), o_7576_c_expr); /* line 419 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 420 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7575_params, 4L), o_7576_c_expr); /* line 421 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 422 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7575_params, 5L), o_7576_c_expr); /* line 423 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4002 */ /* line 427 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7577_DRW_FLUSH (const objRefType/*t_19_reference*/ o_7578_function, const listType/*t_20_ref_list*/ *const o_7579_params, structType/*t_164_expr_type*/ *const o_7580_c_expr) { /* line 431 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7580_c_expr); /* line 432 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7580_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[886] /* "drwFlush();\n" */); } /* line 1 "no_file" */ /* 4003 */ /* line 436 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7581_DRW_FPOLYLINE (const objRefType/*t_19_reference*/ o_7582_function, const listType/*t_20_ref_list*/ *const o_7583_params, structType/*t_164_expr_type*/ *const o_7584_c_expr) { /* line 440 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7584_c_expr); /* line 441 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7584_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[887] /* "drwFPolyLine(" */); /* line 442 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7583_params, 1L), o_7584_c_expr); /* line 443 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7584_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 444 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7583_params, 2L), o_7584_c_expr); /* line 445 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7584_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 446 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7583_params, 3L), o_7584_c_expr); /* line 447 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7584_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 448 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7583_params, 4L), o_7584_c_expr); /* line 449 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7584_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 450 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7583_params, 5L), o_7584_c_expr); /* line 451 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7584_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4004 */ /* line 455 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7585_DRW_GENPOINTLIST (const objRefType/*t_19_reference*/ o_7586_function, const listType/*t_20_ref_list*/ *const o_7587_params, structType/*t_164_expr_type*/ *const o_7588_c_expr) { /* line 459 "../lib/comp/drw_act.s7i" */ o_4957_prepare_bstri_result(o_7588_c_expr); /* line 460 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7588_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[888] /* "drwGenPointList(" */); /* line 461 "../lib/comp/drw_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_7587_params, 1L), o_7588_c_expr); /* line 462 "../lib/comp/drw_act.s7i" */ { /* line 462 "../lib/comp/drw_act.s7i" */ striType *tmp_1; /* line 462 "../lib/comp/drw_act.s7i" */ tmp_1=&(((structType)(*o_7588_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 462 "../lib/comp/drw_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 462 "../lib/comp/drw_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 462 "../lib/comp/drw_act.s7i" */ } else { /* line 462 "../lib/comp/drw_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 462 "../lib/comp/drw_act.s7i" */ (*tmp_1)->size++; /* line 462 "../lib/comp/drw_act.s7i" */ } } } /* line 1 "no_file" */ /* 4005 */ /* line 466 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7589_DRW_GET (const objRefType/*t_19_reference*/ o_7590_function, const listType/*t_20_ref_list*/ *const o_7591_params, structType/*t_164_expr_type*/ *const o_7592_c_expr) { /* line 470 "../lib/comp/drw_act.s7i" */ o_4961_prepare_win_result(o_7592_c_expr); /* line 471 "../lib/comp/drw_act.s7i" */ strCopy(&(((structType)(*o_7592_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[889] /* "drwGet(" */); /* line 472 "../lib/comp/drw_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_7591_params, 1L), o_7592_c_expr); /* line 473 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7592_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 474 "../lib/comp/drw_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7591_params, 2L), o_7592_c_expr); /* line 475 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7592_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 476 "../lib/comp/drw_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7591_params, 3L), o_7592_c_expr); /* line 477 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7592_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 478 "../lib/comp/drw_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7591_params, 4L), o_7592_c_expr); /* line 479 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7592_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 480 "../lib/comp/drw_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7591_params, 5L), o_7592_c_expr); /* line 481 "../lib/comp/drw_act.s7i" */ { /* line 481 "../lib/comp/drw_act.s7i" */ striType *tmp_1; /* line 481 "../lib/comp/drw_act.s7i" */ tmp_1=&(((structType)(*o_7592_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 481 "../lib/comp/drw_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 481 "../lib/comp/drw_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 481 "../lib/comp/drw_act.s7i" */ } else { /* line 481 "../lib/comp/drw_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 481 "../lib/comp/drw_act.s7i" */ (*tmp_1)->size++; /* line 481 "../lib/comp/drw_act.s7i" */ } } } /* line 1 "no_file" */ /* 4006 */ /* line 485 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7593_DRW_GETIMAGE (const objRefType/*t_19_reference*/ o_7594_function, const listType/*t_20_ref_list*/ *const o_7595_params, structType/*t_164_expr_type*/ *const o_7596_c_expr) { /* line 489 "../lib/comp/drw_act.s7i" */ o_4957_prepare_bstri_result(o_7596_c_expr); /* line 490 "../lib/comp/drw_act.s7i" */ strCopy(&(((structType)(*o_7596_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[890] /* "drwGetImage(" */); /* line 491 "../lib/comp/drw_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_7595_params, 1L), o_7596_c_expr); /* line 492 "../lib/comp/drw_act.s7i" */ { /* line 492 "../lib/comp/drw_act.s7i" */ striType *tmp_1; /* line 492 "../lib/comp/drw_act.s7i" */ tmp_1=&(((structType)(*o_7596_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 492 "../lib/comp/drw_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 492 "../lib/comp/drw_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 492 "../lib/comp/drw_act.s7i" */ } else { /* line 492 "../lib/comp/drw_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 492 "../lib/comp/drw_act.s7i" */ (*tmp_1)->size++; /* line 492 "../lib/comp/drw_act.s7i" */ } } } /* line 1 "no_file" */ /* 4007 */ /* line 496 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7597_DRW_GETIMAGEPIXEL (const objRefType/*t_19_reference*/ o_7598_function, const listType/*t_20_ref_list*/ *const o_7599_params, structType/*t_164_expr_type*/ *const o_7600_c_expr) { /* line 500 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7600_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[891] /* "drwGetImagePixel(" */); /* line 501 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7599_params, 1L), o_7600_c_expr); /* line 502 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7600_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 503 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7599_params, 2L), o_7600_c_expr); /* line 504 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7600_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 505 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7599_params, 3L), o_7600_c_expr); /* line 506 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7600_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 507 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7599_params, 4L), o_7600_c_expr); /* line 508 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7600_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 509 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7599_params, 5L), o_7600_c_expr); /* line 510 "../lib/comp/drw_act.s7i" */ { /* line 510 "../lib/comp/drw_act.s7i" */ striType *tmp_1; /* line 510 "../lib/comp/drw_act.s7i" */ tmp_1=&(((structType)(*o_7600_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 510 "../lib/comp/drw_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 510 "../lib/comp/drw_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 510 "../lib/comp/drw_act.s7i" */ } else { /* line 510 "../lib/comp/drw_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 510 "../lib/comp/drw_act.s7i" */ (*tmp_1)->size++; /* line 510 "../lib/comp/drw_act.s7i" */ } } } /* line 1 "no_file" */ /* 4008 */ /* line 514 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7601_DRW_GETPIXEL (const objRefType/*t_19_reference*/ o_7602_function, const listType/*t_20_ref_list*/ *const o_7603_params, structType/*t_164_expr_type*/ *const o_7604_c_expr) { /* line 518 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7604_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[892] /* "drwGetPixel(" */); /* line 519 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7603_params, 1L), o_7604_c_expr); /* line 520 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7604_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 521 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7603_params, 2L), o_7604_c_expr); /* line 522 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7604_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 523 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7603_params, 3L), o_7604_c_expr); /* line 524 "../lib/comp/drw_act.s7i" */ { /* line 524 "../lib/comp/drw_act.s7i" */ striType *tmp_1; /* line 524 "../lib/comp/drw_act.s7i" */ tmp_1=&(((structType)(*o_7604_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 524 "../lib/comp/drw_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 524 "../lib/comp/drw_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 524 "../lib/comp/drw_act.s7i" */ } else { /* line 524 "../lib/comp/drw_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 524 "../lib/comp/drw_act.s7i" */ (*tmp_1)->size++; /* line 524 "../lib/comp/drw_act.s7i" */ } } } /* line 1 "no_file" */ /* 4009 */ /* line 528 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7605_DRW_HASHCODE (const objRefType/*t_19_reference*/ o_7606_function, const listType/*t_20_ref_list*/ *const o_7607_params, structType/*t_164_expr_type*/ *const o_7608_c_expr) { /* line 532 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7608_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[893] /* "(intType)(((memSizeType)(" */); /* line 533 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7607_params, 1L), o_7608_c_expr); /* line 534 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7608_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[894] /* ")) >> 6)" */); } /* line 1 "no_file" */ /* 4010 */ /* line 538 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7609_DRW_HEIGHT (const objRefType/*t_19_reference*/ o_7610_function, const listType/*t_20_ref_list*/ *const o_7611_params, structType/*t_164_expr_type*/ *const o_7612_c_expr) { /* line 542 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7612_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[895] /* "drwHeight(" */); /* line 543 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7611_params, 1L), o_7612_c_expr); /* line 544 "../lib/comp/drw_act.s7i" */ { /* line 544 "../lib/comp/drw_act.s7i" */ striType *tmp_1; /* line 544 "../lib/comp/drw_act.s7i" */ tmp_1=&(((structType)(*o_7612_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 544 "../lib/comp/drw_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 544 "../lib/comp/drw_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 544 "../lib/comp/drw_act.s7i" */ } else { /* line 544 "../lib/comp/drw_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 544 "../lib/comp/drw_act.s7i" */ (*tmp_1)->size++; /* line 544 "../lib/comp/drw_act.s7i" */ } } } /* line 1 "no_file" */ /* 4011 */ /* line 548 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7613_DRW_IMAGE (const objRefType/*t_19_reference*/ o_7614_function, const listType/*t_20_ref_list*/ *const o_7615_params, structType/*t_164_expr_type*/ *const o_7616_c_expr) { /* line 552 "../lib/comp/drw_act.s7i" */ o_4961_prepare_win_result(o_7616_c_expr); /* line 553 "../lib/comp/drw_act.s7i" */ strCopy(&(((structType)(*o_7616_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[896] /* "drwRtlImage(" */); /* line 554 "../lib/comp/drw_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_7615_params, 1L), o_7616_c_expr); /* line 555 "../lib/comp/drw_act.s7i" */ { /* line 555 "../lib/comp/drw_act.s7i" */ striType *tmp_1; /* line 555 "../lib/comp/drw_act.s7i" */ tmp_1=&(((structType)(*o_7616_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 555 "../lib/comp/drw_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 555 "../lib/comp/drw_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 555 "../lib/comp/drw_act.s7i" */ } else { /* line 555 "../lib/comp/drw_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 555 "../lib/comp/drw_act.s7i" */ (*tmp_1)->size++; /* line 555 "../lib/comp/drw_act.s7i" */ } } } /* line 1 "no_file" */ /* 4012 */ /* line 559 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7617_DRW_LINE (const objRefType/*t_19_reference*/ o_7618_function, const listType/*t_20_ref_list*/ *const o_7619_params, structType/*t_164_expr_type*/ *const o_7620_c_expr) { /* line 563 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7620_c_expr); /* line 564 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7620_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[897] /* "drwLine(" */); /* line 565 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7619_params, 1L), o_7620_c_expr); /* line 566 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7620_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 567 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7619_params, 2L), o_7620_c_expr); /* line 568 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7620_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 569 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7619_params, 3L), o_7620_c_expr); /* line 570 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7620_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 571 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7619_params, 4L), o_7620_c_expr); /* line 572 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7620_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 573 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7619_params, 5L), o_7620_c_expr); /* line 574 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7620_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4013 */ /* line 578 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7621_DRW_NE (const objRefType/*t_19_reference*/ o_7622_function, const listType/*t_20_ref_list*/ *const o_7623_params, structType/*t_164_expr_type*/ *const o_7624_c_expr) { /* line 582 "../lib/comp/drw_act.s7i" */ { /* line 582 "../lib/comp/drw_act.s7i" */ striType *tmp_1; /* line 582 "../lib/comp/drw_act.s7i" */ tmp_1=&(((structType)(*o_7624_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 582 "../lib/comp/drw_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 582 "../lib/comp/drw_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 582 "../lib/comp/drw_act.s7i" */ } else { /* line 582 "../lib/comp/drw_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 582 "../lib/comp/drw_act.s7i" */ (*tmp_1)->size++; /* line 582 "../lib/comp/drw_act.s7i" */ } } /* line 583 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7623_params, 1L), o_7624_c_expr); /* line 584 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7624_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[352] /* ") != (" */); /* line 585 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7623_params, 3L), o_7624_c_expr); /* line 586 "../lib/comp/drw_act.s7i" */ { /* line 586 "../lib/comp/drw_act.s7i" */ striType *tmp_1; /* line 586 "../lib/comp/drw_act.s7i" */ tmp_1=&(((structType)(*o_7624_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 586 "../lib/comp/drw_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 586 "../lib/comp/drw_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 586 "../lib/comp/drw_act.s7i" */ } else { /* line 586 "../lib/comp/drw_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 586 "../lib/comp/drw_act.s7i" */ (*tmp_1)->size++; /* line 586 "../lib/comp/drw_act.s7i" */ } } } /* line 1 "no_file" */ /* 4014 */ /* line 590 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7625_DRW_NEW_PIXMAP (const objRefType/*t_19_reference*/ o_7626_function, const listType/*t_20_ref_list*/ *const o_7627_params, structType/*t_164_expr_type*/ *const o_7628_c_expr) { /* line 594 "../lib/comp/drw_act.s7i" */ o_4961_prepare_win_result(o_7628_c_expr); /* line 595 "../lib/comp/drw_act.s7i" */ strCopy(&(((structType)(*o_7628_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[898] /* "drwNewPixmap(" */); /* line 596 "../lib/comp/drw_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7627_params, 1L), o_7628_c_expr); /* line 597 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7628_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 598 "../lib/comp/drw_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7627_params, 2L), o_7628_c_expr); /* line 599 "../lib/comp/drw_act.s7i" */ { /* line 599 "../lib/comp/drw_act.s7i" */ striType *tmp_1; /* line 599 "../lib/comp/drw_act.s7i" */ tmp_1=&(((structType)(*o_7628_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 599 "../lib/comp/drw_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 599 "../lib/comp/drw_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 599 "../lib/comp/drw_act.s7i" */ } else { /* line 599 "../lib/comp/drw_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 599 "../lib/comp/drw_act.s7i" */ (*tmp_1)->size++; /* line 599 "../lib/comp/drw_act.s7i" */ } } } /* line 1 "no_file" */ /* 4015 */ /* line 603 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7629_DRW_OPEN (const objRefType/*t_19_reference*/ o_7630_function, const listType/*t_20_ref_list*/ *const o_7631_params, structType/*t_164_expr_type*/ *const o_7632_c_expr) { /* line 607 "../lib/comp/drw_act.s7i" */ o_4961_prepare_win_result(o_7632_c_expr); /* line 608 "../lib/comp/drw_act.s7i" */ strCopy(&(((structType)(*o_7632_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[899] /* "drwOpen(" */); /* line 609 "../lib/comp/drw_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7631_params, 1L), o_7632_c_expr); /* line 610 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7632_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 611 "../lib/comp/drw_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7631_params, 2L), o_7632_c_expr); /* line 612 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7632_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 613 "../lib/comp/drw_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7631_params, 3L), o_7632_c_expr); /* line 614 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7632_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 615 "../lib/comp/drw_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7631_params, 4L), o_7632_c_expr); /* line 616 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7632_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 617 "../lib/comp/drw_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_7631_params, 5L), o_7632_c_expr); /* line 618 "../lib/comp/drw_act.s7i" */ { /* line 618 "../lib/comp/drw_act.s7i" */ striType *tmp_1; /* line 618 "../lib/comp/drw_act.s7i" */ tmp_1=&(((structType)(*o_7632_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 618 "../lib/comp/drw_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 618 "../lib/comp/drw_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 618 "../lib/comp/drw_act.s7i" */ } else { /* line 618 "../lib/comp/drw_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 618 "../lib/comp/drw_act.s7i" */ (*tmp_1)->size++; /* line 618 "../lib/comp/drw_act.s7i" */ } } } /* line 1 "no_file" */ /* 4016 */ /* line 622 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7633_DRW_OPEN_SUB_WINDOW (const objRefType/*t_19_reference*/ o_7634_function, const listType/*t_20_ref_list*/ *const o_7635_params, structType/*t_164_expr_type*/ *const o_7636_c_expr) { /* line 626 "../lib/comp/drw_act.s7i" */ o_4961_prepare_win_result(o_7636_c_expr); /* line 627 "../lib/comp/drw_act.s7i" */ strCopy(&(((structType)(*o_7636_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[900] /* "drwOpenSubWindow(" */); /* line 628 "../lib/comp/drw_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_7635_params, 1L), o_7636_c_expr); /* line 629 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7636_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 630 "../lib/comp/drw_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7635_params, 2L), o_7636_c_expr); /* line 631 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7636_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 632 "../lib/comp/drw_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7635_params, 3L), o_7636_c_expr); /* line 633 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7636_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 634 "../lib/comp/drw_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7635_params, 4L), o_7636_c_expr); /* line 635 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7636_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 636 "../lib/comp/drw_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7635_params, 5L), o_7636_c_expr); /* line 637 "../lib/comp/drw_act.s7i" */ { /* line 637 "../lib/comp/drw_act.s7i" */ striType *tmp_1; /* line 637 "../lib/comp/drw_act.s7i" */ tmp_1=&(((structType)(*o_7636_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 637 "../lib/comp/drw_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 637 "../lib/comp/drw_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 637 "../lib/comp/drw_act.s7i" */ } else { /* line 637 "../lib/comp/drw_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 637 "../lib/comp/drw_act.s7i" */ (*tmp_1)->size++; /* line 637 "../lib/comp/drw_act.s7i" */ } } } /* line 1 "no_file" */ /* 4017 */ /* line 641 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7637_DRW_PARC (const objRefType/*t_19_reference*/ o_7638_function, const listType/*t_20_ref_list*/ *const o_7639_params, structType/*t_164_expr_type*/ *const o_7640_c_expr) { /* line 645 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7640_c_expr); /* line 646 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7640_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[901] /* "drwPArc(" */); /* line 647 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7639_params, 1L), o_7640_c_expr); /* line 648 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7640_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 649 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7639_params, 2L), o_7640_c_expr); /* line 650 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7640_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 651 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7639_params, 3L), o_7640_c_expr); /* line 652 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7640_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 653 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7639_params, 4L), o_7640_c_expr); /* line 654 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7640_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 655 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7639_params, 5L), o_7640_c_expr); /* line 656 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7640_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 657 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7639_params, 6L), o_7640_c_expr); /* line 658 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7640_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 659 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7639_params, 7L), o_7640_c_expr); /* line 660 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7640_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4018 */ /* line 664 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7641_DRW_PCIRCLE (const objRefType/*t_19_reference*/ o_7642_function, const listType/*t_20_ref_list*/ *const o_7643_params, structType/*t_164_expr_type*/ *const o_7644_c_expr) { /* line 668 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7644_c_expr); /* line 669 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7644_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[902] /* "drwPCircle(" */); /* line 670 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7643_params, 1L), o_7644_c_expr); /* line 671 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7644_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 672 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7643_params, 2L), o_7644_c_expr); /* line 673 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7644_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 674 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7643_params, 3L), o_7644_c_expr); /* line 675 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7644_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 676 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7643_params, 4L), o_7644_c_expr); /* line 677 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7644_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 678 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7643_params, 5L), o_7644_c_expr); /* line 679 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7644_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4019 */ /* line 683 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7645_DRW_PFARCCHORD (const objRefType/*t_19_reference*/ o_7646_function, const listType/*t_20_ref_list*/ *const o_7647_params, structType/*t_164_expr_type*/ *const o_7648_c_expr) { /* line 687 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7648_c_expr); /* line 688 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7648_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[903] /* "drwPFArcChord(" */); /* line 689 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7647_params, 1L), o_7648_c_expr); /* line 690 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7648_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 691 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7647_params, 2L), o_7648_c_expr); /* line 692 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7648_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 693 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7647_params, 3L), o_7648_c_expr); /* line 694 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7648_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 695 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7647_params, 4L), o_7648_c_expr); /* line 696 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7648_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 697 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7647_params, 5L), o_7648_c_expr); /* line 698 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7648_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 699 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7647_params, 6L), o_7648_c_expr); /* line 700 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7648_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 701 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7647_params, 7L), o_7648_c_expr); /* line 702 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7648_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4020 */ /* line 706 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7649_DRW_PFARCPIESLICE (const objRefType/*t_19_reference*/ o_7650_function, const listType/*t_20_ref_list*/ *const o_7651_params, structType/*t_164_expr_type*/ *const o_7652_c_expr) { /* line 710 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7652_c_expr); /* line 711 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7652_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[904] /* "drwPFArcPieSlice(" */); /* line 712 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7651_params, 1L), o_7652_c_expr); /* line 713 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7652_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 714 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7651_params, 2L), o_7652_c_expr); /* line 715 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7652_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 716 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7651_params, 3L), o_7652_c_expr); /* line 717 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7652_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 718 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7651_params, 4L), o_7652_c_expr); /* line 719 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7652_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 720 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7651_params, 5L), o_7652_c_expr); /* line 721 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7652_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 722 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7651_params, 6L), o_7652_c_expr); /* line 723 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7652_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 724 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7651_params, 7L), o_7652_c_expr); /* line 725 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7652_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4021 */ /* line 729 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7653_DRW_PFCIRCLE (const objRefType/*t_19_reference*/ o_7654_function, const listType/*t_20_ref_list*/ *const o_7655_params, structType/*t_164_expr_type*/ *const o_7656_c_expr) { /* line 733 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7656_c_expr); /* line 734 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7656_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[905] /* "drwPFCircle(" */); /* line 735 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7655_params, 1L), o_7656_c_expr); /* line 736 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7656_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 737 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7655_params, 2L), o_7656_c_expr); /* line 738 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7656_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 739 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7655_params, 3L), o_7656_c_expr); /* line 740 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7656_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 741 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7655_params, 4L), o_7656_c_expr); /* line 742 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7656_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 743 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7655_params, 5L), o_7656_c_expr); /* line 744 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7656_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4022 */ /* line 748 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7657_DRW_PFELLIPSE (const objRefType/*t_19_reference*/ o_7658_function, const listType/*t_20_ref_list*/ *const o_7659_params, structType/*t_164_expr_type*/ *const o_7660_c_expr) { /* line 752 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7660_c_expr); /* line 753 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7660_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[906] /* "drwPFEllipse(" */); /* line 754 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7659_params, 1L), o_7660_c_expr); /* line 755 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7660_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 756 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7659_params, 2L), o_7660_c_expr); /* line 757 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7660_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 758 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7659_params, 3L), o_7660_c_expr); /* line 759 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7660_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 760 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7659_params, 4L), o_7660_c_expr); /* line 761 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7660_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 762 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7659_params, 5L), o_7660_c_expr); /* line 763 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7660_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 764 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7659_params, 6L), o_7660_c_expr); /* line 765 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7660_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4023 */ /* line 769 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7661_DRW_PIXELTORGB (const objRefType/*t_19_reference*/ o_7662_function, const listType/*t_20_ref_list*/ *const o_7663_params, structType/*t_164_expr_type*/ *const o_7664_c_expr) { /* line 773 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7664_c_expr); /* line 774 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7664_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[907] /* "drwPixelToRgb(" */); /* line 775 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7663_params, 1L), o_7664_c_expr); /* line 776 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7664_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[766] /* ", &(" */); /* line 777 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7663_params, 2L), o_7664_c_expr); /* line 778 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7664_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 779 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7663_params, 3L), o_7664_c_expr); /* line 780 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7664_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 781 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7663_params, 4L), o_7664_c_expr); /* line 782 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7664_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); } /* line 1 "no_file" */ /* 4024 */ /* line 786 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7665_DRW_PLINE (const objRefType/*t_19_reference*/ o_7666_function, const listType/*t_20_ref_list*/ *const o_7667_params, structType/*t_164_expr_type*/ *const o_7668_c_expr) { /* line 790 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7668_c_expr); /* line 791 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7668_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[908] /* "drwPLine(" */); /* line 792 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7667_params, 1L), o_7668_c_expr); /* line 793 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7668_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 794 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7667_params, 2L), o_7668_c_expr); /* line 795 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7668_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 796 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7667_params, 3L), o_7668_c_expr); /* line 797 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7668_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 798 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7667_params, 4L), o_7668_c_expr); /* line 799 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7668_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 800 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7667_params, 5L), o_7668_c_expr); /* line 801 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7668_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 802 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7667_params, 6L), o_7668_c_expr); /* line 803 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7668_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4025 */ /* line 807 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7669_DRW_POINT (const objRefType/*t_19_reference*/ o_7670_function, const listType/*t_20_ref_list*/ *const o_7671_params, structType/*t_164_expr_type*/ *const o_7672_c_expr) { /* line 811 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7672_c_expr); /* line 812 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7672_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[909] /* "drwPoint(" */); /* line 813 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7671_params, 1L), o_7672_c_expr); /* line 814 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7672_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 815 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7671_params, 2L), o_7672_c_expr); /* line 816 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7672_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 817 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7671_params, 3L), o_7672_c_expr); /* line 818 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7672_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4026 */ /* line 822 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7673_DRW_POINTER_XPOS (const objRefType/*t_19_reference*/ o_7674_function, const listType/*t_20_ref_list*/ *const o_7675_params, structType/*t_164_expr_type*/ *const o_7676_c_expr) { /* line 826 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7676_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[910] /* "drwPointerXpos(" */); /* line 827 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7675_params, 1L), o_7676_c_expr); /* line 828 "../lib/comp/drw_act.s7i" */ { /* line 828 "../lib/comp/drw_act.s7i" */ striType *tmp_1; /* line 828 "../lib/comp/drw_act.s7i" */ tmp_1=&(((structType)(*o_7676_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 828 "../lib/comp/drw_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 828 "../lib/comp/drw_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 828 "../lib/comp/drw_act.s7i" */ } else { /* line 828 "../lib/comp/drw_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 828 "../lib/comp/drw_act.s7i" */ (*tmp_1)->size++; /* line 828 "../lib/comp/drw_act.s7i" */ } } } /* line 1 "no_file" */ /* 4027 */ /* line 832 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7677_DRW_POINTER_YPOS (const objRefType/*t_19_reference*/ o_7678_function, const listType/*t_20_ref_list*/ *const o_7679_params, structType/*t_164_expr_type*/ *const o_7680_c_expr) { /* line 836 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7680_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[911] /* "drwPointerYpos(" */); /* line 837 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7679_params, 1L), o_7680_c_expr); /* line 838 "../lib/comp/drw_act.s7i" */ { /* line 838 "../lib/comp/drw_act.s7i" */ striType *tmp_1; /* line 838 "../lib/comp/drw_act.s7i" */ tmp_1=&(((structType)(*o_7680_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 838 "../lib/comp/drw_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 838 "../lib/comp/drw_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 838 "../lib/comp/drw_act.s7i" */ } else { /* line 838 "../lib/comp/drw_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 838 "../lib/comp/drw_act.s7i" */ (*tmp_1)->size++; /* line 838 "../lib/comp/drw_act.s7i" */ } } } /* line 1 "no_file" */ /* 4028 */ /* line 842 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7681_DRW_POLYLINE (const objRefType/*t_19_reference*/ o_7682_function, const listType/*t_20_ref_list*/ *const o_7683_params, structType/*t_164_expr_type*/ *const o_7684_c_expr) { /* line 846 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7684_c_expr); /* line 847 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7684_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[912] /* "drwPolyLine(" */); /* line 848 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7683_params, 1L), o_7684_c_expr); /* line 849 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7684_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 850 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7683_params, 2L), o_7684_c_expr); /* line 851 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7684_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 852 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7683_params, 3L), o_7684_c_expr); /* line 853 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7684_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 854 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7683_params, 4L), o_7684_c_expr); /* line 855 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7684_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 856 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7683_params, 5L), o_7684_c_expr); /* line 857 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7684_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4029 */ /* line 861 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7685_DRW_PPOINT (const objRefType/*t_19_reference*/ o_7686_function, const listType/*t_20_ref_list*/ *const o_7687_params, structType/*t_164_expr_type*/ *const o_7688_c_expr) { /* line 865 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7688_c_expr); /* line 866 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7688_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[913] /* "drwPPoint(" */); /* line 867 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7687_params, 1L), o_7688_c_expr); /* line 868 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7688_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 869 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7687_params, 2L), o_7688_c_expr); /* line 870 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7688_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 871 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7687_params, 3L), o_7688_c_expr); /* line 872 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7688_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 873 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7687_params, 4L), o_7688_c_expr); /* line 874 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7688_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4030 */ /* line 878 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7689_DRW_PRECT (const objRefType/*t_19_reference*/ o_7690_function, const listType/*t_20_ref_list*/ *const o_7691_params, structType/*t_164_expr_type*/ *const o_7692_c_expr) { /* line 882 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7692_c_expr); /* line 883 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7692_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[914] /* "drwPRect(" */); /* line 884 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7691_params, 1L), o_7692_c_expr); /* line 885 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7692_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 886 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7691_params, 2L), o_7692_c_expr); /* line 887 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7692_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 888 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7691_params, 3L), o_7692_c_expr); /* line 889 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7692_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 890 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7691_params, 4L), o_7692_c_expr); /* line 891 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7692_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 892 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7691_params, 5L), o_7692_c_expr); /* line 893 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7692_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 894 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7691_params, 6L), o_7692_c_expr); /* line 895 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7692_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4031 */ /* line 899 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7693_DRW_PUT (const objRefType/*t_19_reference*/ o_7694_function, const listType/*t_20_ref_list*/ *const o_7695_params, structType/*t_164_expr_type*/ *const o_7696_c_expr) { /* line 903 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7696_c_expr); /* line 904 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7696_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[915] /* "drwPut(" */); /* line 905 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7695_params, 1L), o_7696_c_expr); /* line 906 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7696_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 907 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7695_params, 2L), o_7696_c_expr); /* line 908 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7696_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 909 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7695_params, 3L), o_7696_c_expr); /* line 910 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7696_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 911 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7695_params, 4L), o_7696_c_expr); /* line 912 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7696_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4032 */ /* line 916 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7697_DRW_RECT (const objRefType/*t_19_reference*/ o_7698_function, const listType/*t_20_ref_list*/ *const o_7699_params, structType/*t_164_expr_type*/ *const o_7700_c_expr) { /* line 920 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7700_c_expr); /* line 921 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7700_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[916] /* "drwRect(" */); /* line 922 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7699_params, 1L), o_7700_c_expr); /* line 923 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7700_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 924 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7699_params, 2L), o_7700_c_expr); /* line 925 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7700_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 926 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7699_params, 3L), o_7700_c_expr); /* line 927 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7700_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 928 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7699_params, 4L), o_7700_c_expr); /* line 929 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7700_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 930 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7699_params, 5L), o_7700_c_expr); /* line 931 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7700_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4033 */ /* line 935 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7701_DRW_RGBCOL (const objRefType/*t_19_reference*/ o_7702_function, const listType/*t_20_ref_list*/ *const o_7703_params, structType/*t_164_expr_type*/ *const o_7704_c_expr) { /* line 939 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7704_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[917] /* "drwRgbColor(" */); /* line 940 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7703_params, 1L), o_7704_c_expr); /* line 941 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7704_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 942 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7703_params, 2L), o_7704_c_expr); /* line 943 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7704_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 944 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7703_params, 3L), o_7704_c_expr); /* line 945 "../lib/comp/drw_act.s7i" */ { /* line 945 "../lib/comp/drw_act.s7i" */ striType *tmp_1; /* line 945 "../lib/comp/drw_act.s7i" */ tmp_1=&(((structType)(*o_7704_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 945 "../lib/comp/drw_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 945 "../lib/comp/drw_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 945 "../lib/comp/drw_act.s7i" */ } else { /* line 945 "../lib/comp/drw_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 945 "../lib/comp/drw_act.s7i" */ (*tmp_1)->size++; /* line 945 "../lib/comp/drw_act.s7i" */ } } } /* line 1 "no_file" */ /* 4034 */ /* line 949 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7705_DRW_SETCONTENT (const objRefType/*t_19_reference*/ o_7706_function, const listType/*t_20_ref_list*/ *const o_7707_params, structType/*t_164_expr_type*/ *const o_7708_c_expr) { /* line 953 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7708_c_expr); /* line 954 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7708_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[918] /* "drwSetContent(" */); /* line 955 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7707_params, 1L), o_7708_c_expr); /* line 956 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7708_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 957 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7707_params, 2L), o_7708_c_expr); /* line 958 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7708_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4035 */ /* line 962 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7709_DRW_SETPOS (const objRefType/*t_19_reference*/ o_7710_function, const listType/*t_20_ref_list*/ *const o_7711_params, structType/*t_164_expr_type*/ *const o_7712_c_expr) { /* line 966 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7712_c_expr); /* line 967 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7712_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[919] /* "drwSetPos(" */); /* line 968 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7711_params, 1L), o_7712_c_expr); /* line 969 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7712_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 970 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7711_params, 2L), o_7712_c_expr); /* line 971 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7712_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 972 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7711_params, 3L), o_7712_c_expr); /* line 973 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7712_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4036 */ /* line 977 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7713_DRW_SETTRANSPARENTCOLOR (const objRefType/*t_19_reference*/ o_7714_function, const listType/*t_20_ref_list*/ *const o_7715_params, structType/*t_164_expr_type*/ *const o_7716_c_expr) { /* line 981 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7716_c_expr); /* line 982 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7716_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[920] /* "drwSetTransparentColor(" */); /* line 983 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7715_params, 1L), o_7716_c_expr); /* line 984 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7716_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 985 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7715_params, 2L), o_7716_c_expr); /* line 986 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7716_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4037 */ /* line 990 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7717_DRW_TEXT (const objRefType/*t_19_reference*/ o_7718_function, const listType/*t_20_ref_list*/ *const o_7719_params, structType/*t_164_expr_type*/ *const o_7720_c_expr) { /* line 994 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7720_c_expr); /* line 995 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7720_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[921] /* "drwText(" */); /* line 996 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7719_params, 1L), o_7720_c_expr); /* line 997 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7720_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 998 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7719_params, 2L), o_7720_c_expr); /* line 999 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7720_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 1000 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7719_params, 3L), o_7720_c_expr); /* line 1001 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7720_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 1002 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7719_params, 4L), o_7720_c_expr); /* line 1003 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7720_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 1004 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7719_params, 5L), o_7720_c_expr); /* line 1005 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7720_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 1006 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7719_params, 6L), o_7720_c_expr); /* line 1007 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7720_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4038 */ /* line 1011 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7721_DRW_TOBOTTOM (const objRefType/*t_19_reference*/ o_7722_function, const listType/*t_20_ref_list*/ *const o_7723_params, structType/*t_164_expr_type*/ *const o_7724_c_expr) { /* line 1015 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7724_c_expr); /* line 1016 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7724_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[922] /* "drwToBottom(" */); /* line 1017 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7723_params, 1L), o_7724_c_expr); /* line 1018 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7724_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4039 */ /* line 1022 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7725_DRW_TOTOP (const objRefType/*t_19_reference*/ o_7726_function, const listType/*t_20_ref_list*/ *const o_7727_params, structType/*t_164_expr_type*/ *const o_7728_c_expr) { /* line 1026 "../lib/comp/drw_act.s7i" */ o_4819_setDiagnosticLine(o_7728_c_expr); /* line 1027 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7728_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[923] /* "drwToTop(" */); /* line 1028 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7727_params, 1L), o_7728_c_expr); /* line 1029 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7728_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4040 */ /* line 1033 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7729_DRW_VALUE (const objRefType/*t_19_reference*/ o_7730_function, const listType/*t_20_ref_list*/ *const o_7731_params, structType/*t_164_expr_type*/ *const o_7732_c_expr) { /* line 1037 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7732_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[924] /* "drwValue(" */); /* line 1038 "../lib/comp/drw_act.s7i" */ o_4941_process_expr(rflIdx(*o_7731_params, 1L), o_7732_c_expr); /* line 1039 "../lib/comp/drw_act.s7i" */ { /* line 1039 "../lib/comp/drw_act.s7i" */ striType *tmp_1; /* line 1039 "../lib/comp/drw_act.s7i" */ tmp_1=&(((structType)(*o_7732_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1039 "../lib/comp/drw_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1039 "../lib/comp/drw_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1039 "../lib/comp/drw_act.s7i" */ } else { /* line 1039 "../lib/comp/drw_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1039 "../lib/comp/drw_act.s7i" */ (*tmp_1)->size++; /* line 1039 "../lib/comp/drw_act.s7i" */ } } } /* line 1 "no_file" */ /* 4041 */ /* line 1043 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7733_DRW_WIDTH (const objRefType/*t_19_reference*/ o_7734_function, const listType/*t_20_ref_list*/ *const o_7735_params, structType/*t_164_expr_type*/ *const o_7736_c_expr) { /* line 1047 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7736_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[925] /* "drwWidth(" */); /* line 1048 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7735_params, 1L), o_7736_c_expr); /* line 1049 "../lib/comp/drw_act.s7i" */ { /* line 1049 "../lib/comp/drw_act.s7i" */ striType *tmp_1; /* line 1049 "../lib/comp/drw_act.s7i" */ tmp_1=&(((structType)(*o_7736_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1049 "../lib/comp/drw_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1049 "../lib/comp/drw_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1049 "../lib/comp/drw_act.s7i" */ } else { /* line 1049 "../lib/comp/drw_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1049 "../lib/comp/drw_act.s7i" */ (*tmp_1)->size++; /* line 1049 "../lib/comp/drw_act.s7i" */ } } } /* line 1 "no_file" */ /* 4042 */ /* line 1053 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7737_DRW_XPOS (const objRefType/*t_19_reference*/ o_7738_function, const listType/*t_20_ref_list*/ *const o_7739_params, structType/*t_164_expr_type*/ *const o_7740_c_expr) { /* line 1057 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7740_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[926] /* "drwXPos(" */); /* line 1058 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7739_params, 1L), o_7740_c_expr); /* line 1059 "../lib/comp/drw_act.s7i" */ { /* line 1059 "../lib/comp/drw_act.s7i" */ striType *tmp_1; /* line 1059 "../lib/comp/drw_act.s7i" */ tmp_1=&(((structType)(*o_7740_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1059 "../lib/comp/drw_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1059 "../lib/comp/drw_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1059 "../lib/comp/drw_act.s7i" */ } else { /* line 1059 "../lib/comp/drw_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1059 "../lib/comp/drw_act.s7i" */ (*tmp_1)->size++; /* line 1059 "../lib/comp/drw_act.s7i" */ } } } /* line 1 "no_file" */ /* 4043 */ /* line 1063 "../lib/comp/drw_act.s7i" */ static void/*t_1_void*/ o_7741_DRW_YPOS (const objRefType/*t_19_reference*/ o_7742_function, const listType/*t_20_ref_list*/ *const o_7743_params, structType/*t_164_expr_type*/ *const o_7744_c_expr) { /* line 1067 "../lib/comp/drw_act.s7i" */ strAppend(&(((structType)(*o_7744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[927] /* "drwYPos(" */); /* line 1068 "../lib/comp/drw_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7743_params, 1L), o_7744_c_expr); /* line 1069 "../lib/comp/drw_act.s7i" */ { /* line 1069 "../lib/comp/drw_act.s7i" */ striType *tmp_1; /* line 1069 "../lib/comp/drw_act.s7i" */ tmp_1=&(((structType)(*o_7744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1069 "../lib/comp/drw_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1069 "../lib/comp/drw_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1069 "../lib/comp/drw_act.s7i" */ } else { /* line 1069 "../lib/comp/drw_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1069 "../lib/comp/drw_act.s7i" */ (*tmp_1)->size++; /* line 1069 "../lib/comp/drw_act.s7i" */ } } } /* line 1 "no_file" */ /* 4044 */ /* 4045 */ /* line 36 "../lib/comp/enu_act.s7i" */ static void/*t_1_void*/ o_7745_ENU_CONV (const objRefType/*t_19_reference*/ o_7746_function, const listType/*t_20_ref_list*/ *const o_7747_params, structType/*t_164_expr_type*/ *const o_7748_c_expr) { /* line 40 "../lib/comp/enu_act.s7i" */ { /* line 40 "../lib/comp/enu_act.s7i" */ striType *tmp_1; /* line 40 "../lib/comp/enu_act.s7i" */ tmp_1=&(((structType)(*o_7748_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 40 "../lib/comp/enu_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 40 "../lib/comp/enu_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 40 "../lib/comp/enu_act.s7i" */ } else { /* line 40 "../lib/comp/enu_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 40 "../lib/comp/enu_act.s7i" */ (*tmp_1)->size++; /* line 40 "../lib/comp/enu_act.s7i" */ } } /* line 41 "../lib/comp/enu_act.s7i" */ o_4941_process_expr(rflIdx(*o_7747_params, 3L), o_7748_c_expr); /* line 42 "../lib/comp/enu_act.s7i" */ { /* line 42 "../lib/comp/enu_act.s7i" */ striType *tmp_1; /* line 42 "../lib/comp/enu_act.s7i" */ tmp_1=&(((structType)(*o_7748_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 42 "../lib/comp/enu_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 42 "../lib/comp/enu_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 42 "../lib/comp/enu_act.s7i" */ } else { /* line 42 "../lib/comp/enu_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 42 "../lib/comp/enu_act.s7i" */ (*tmp_1)->size++; /* line 42 "../lib/comp/enu_act.s7i" */ } } } /* line 1 "no_file" */ /* 4046 */ /* line 46 "../lib/comp/enu_act.s7i" */ static void/*t_1_void*/ o_7749_ENU_CPY (const objRefType/*t_19_reference*/ o_7750_function, const listType/*t_20_ref_list*/ *const o_7751_params, structType/*t_164_expr_type*/ *const o_7752_c_expr) { /* line 50 "../lib/comp/enu_act.s7i" */ structType/*t_164_expr_type*/ o_7753_statement; /* line 50 "../lib/comp/enu_act.s7i" */ o_7753_statement=create_164(sct[218]); /* line 52 "../lib/comp/enu_act.s7i" */ o_4941_process_expr(rflIdx(*o_7751_params, 1L), &(o_7753_statement)); /* line 53 "../lib/comp/enu_act.s7i" */ { /* line 53 "../lib/comp/enu_act.s7i" */ striType *tmp_1; /* line 53 "../lib/comp/enu_act.s7i" */ tmp_1=&(((structType)(o_7753_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 53 "../lib/comp/enu_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 53 "../lib/comp/enu_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 53 "../lib/comp/enu_act.s7i" */ } else { /* line 53 "../lib/comp/enu_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 53 "../lib/comp/enu_act.s7i" */ (*tmp_1)->size++; /* line 53 "../lib/comp/enu_act.s7i" */ } } /* line 54 "../lib/comp/enu_act.s7i" */ o_4941_process_expr(rflIdx(*o_7751_params, 3L), &(o_7753_statement)); /* line 55 "../lib/comp/enu_act.s7i" */ strAppend(&(((structType)(o_7753_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 56 "../lib/comp/enu_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_7753_statement, o_7752_c_expr); /* line 46 "../lib/comp/enu_act.s7i" */ destr_164(o_7753_statement); } /* line 1 "no_file" */ /* 4047 */ /* line 60 "../lib/comp/enu_act.s7i" */ static void/*t_1_void*/ o_7754_ENU_EQ (const objRefType/*t_19_reference*/ o_7755_function, const listType/*t_20_ref_list*/ *const o_7756_params, structType/*t_164_expr_type*/ *const o_7757_c_expr) { /* line 64 "../lib/comp/enu_act.s7i" */ { /* line 64 "../lib/comp/enu_act.s7i" */ striType *tmp_1; /* line 64 "../lib/comp/enu_act.s7i" */ tmp_1=&(((structType)(*o_7757_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 64 "../lib/comp/enu_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 64 "../lib/comp/enu_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 64 "../lib/comp/enu_act.s7i" */ } else { /* line 64 "../lib/comp/enu_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 64 "../lib/comp/enu_act.s7i" */ (*tmp_1)->size++; /* line 64 "../lib/comp/enu_act.s7i" */ } } /* line 65 "../lib/comp/enu_act.s7i" */ o_4941_process_expr(rflIdx(*o_7756_params, 1L), o_7757_c_expr); /* line 66 "../lib/comp/enu_act.s7i" */ strAppend(&(((structType)(*o_7757_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[350] /* ") == (" */); /* line 67 "../lib/comp/enu_act.s7i" */ o_4941_process_expr(rflIdx(*o_7756_params, 3L), o_7757_c_expr); /* line 68 "../lib/comp/enu_act.s7i" */ { /* line 68 "../lib/comp/enu_act.s7i" */ striType *tmp_1; /* line 68 "../lib/comp/enu_act.s7i" */ tmp_1=&(((structType)(*o_7757_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 68 "../lib/comp/enu_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 68 "../lib/comp/enu_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 68 "../lib/comp/enu_act.s7i" */ } else { /* line 68 "../lib/comp/enu_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 68 "../lib/comp/enu_act.s7i" */ (*tmp_1)->size++; /* line 68 "../lib/comp/enu_act.s7i" */ } } } /* line 1 "no_file" */ /* 4048 */ /* line 72 "../lib/comp/enu_act.s7i" */ static void/*t_1_void*/ o_7758_ENU_ICONV2 (const objRefType/*t_19_reference*/ o_7759_function, const listType/*t_20_ref_list*/ *const o_7760_params, structType/*t_164_expr_type*/ *const o_7761_c_expr) { /* line 76 "../lib/comp/enu_act.s7i" */ { /* line 76 "../lib/comp/enu_act.s7i" */ striType *tmp_1; /* line 76 "../lib/comp/enu_act.s7i" */ tmp_1=&(((structType)(*o_7761_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 76 "../lib/comp/enu_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 76 "../lib/comp/enu_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 76 "../lib/comp/enu_act.s7i" */ } else { /* line 76 "../lib/comp/enu_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 76 "../lib/comp/enu_act.s7i" */ (*tmp_1)->size++; /* line 76 "../lib/comp/enu_act.s7i" */ } } /* line 77 "../lib/comp/enu_act.s7i" */ o_4941_process_expr(rflIdx(*o_7760_params, 1L), o_7761_c_expr); /* line 78 "../lib/comp/enu_act.s7i" */ { /* line 78 "../lib/comp/enu_act.s7i" */ striType *tmp_1; /* line 78 "../lib/comp/enu_act.s7i" */ tmp_1=&(((structType)(*o_7761_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 78 "../lib/comp/enu_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 78 "../lib/comp/enu_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 78 "../lib/comp/enu_act.s7i" */ } else { /* line 78 "../lib/comp/enu_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 78 "../lib/comp/enu_act.s7i" */ (*tmp_1)->size++; /* line 78 "../lib/comp/enu_act.s7i" */ } } } /* line 1 "no_file" */ /* 4049 */ /* line 82 "../lib/comp/enu_act.s7i" */ static void/*t_1_void*/ o_7762_ENU_NE (const objRefType/*t_19_reference*/ o_7763_function, const listType/*t_20_ref_list*/ *const o_7764_params, structType/*t_164_expr_type*/ *const o_7765_c_expr) { /* line 86 "../lib/comp/enu_act.s7i" */ { /* line 86 "../lib/comp/enu_act.s7i" */ striType *tmp_1; /* line 86 "../lib/comp/enu_act.s7i" */ tmp_1=&(((structType)(*o_7765_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 86 "../lib/comp/enu_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 86 "../lib/comp/enu_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 86 "../lib/comp/enu_act.s7i" */ } else { /* line 86 "../lib/comp/enu_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 86 "../lib/comp/enu_act.s7i" */ (*tmp_1)->size++; /* line 86 "../lib/comp/enu_act.s7i" */ } } /* line 87 "../lib/comp/enu_act.s7i" */ o_4941_process_expr(rflIdx(*o_7764_params, 1L), o_7765_c_expr); /* line 88 "../lib/comp/enu_act.s7i" */ strAppend(&(((structType)(*o_7765_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[352] /* ") != (" */); /* line 89 "../lib/comp/enu_act.s7i" */ o_4941_process_expr(rflIdx(*o_7764_params, 3L), o_7765_c_expr); /* line 90 "../lib/comp/enu_act.s7i" */ { /* line 90 "../lib/comp/enu_act.s7i" */ striType *tmp_1; /* line 90 "../lib/comp/enu_act.s7i" */ tmp_1=&(((structType)(*o_7765_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 90 "../lib/comp/enu_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 90 "../lib/comp/enu_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 90 "../lib/comp/enu_act.s7i" */ } else { /* line 90 "../lib/comp/enu_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 90 "../lib/comp/enu_act.s7i" */ (*tmp_1)->size++; /* line 90 "../lib/comp/enu_act.s7i" */ } } } /* line 1 "no_file" */ /* 4050 */ /* line 94 "../lib/comp/enu_act.s7i" */ static void/*t_1_void*/ o_7766_ENU_ORD2 (const objRefType/*t_19_reference*/ o_7767_function, const listType/*t_20_ref_list*/ *const o_7768_params, structType/*t_164_expr_type*/ *const o_7769_c_expr) { /* line 98 "../lib/comp/enu_act.s7i" */ { /* line 98 "../lib/comp/enu_act.s7i" */ striType *tmp_1; /* line 98 "../lib/comp/enu_act.s7i" */ tmp_1=&(((structType)(*o_7769_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 98 "../lib/comp/enu_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 98 "../lib/comp/enu_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 98 "../lib/comp/enu_act.s7i" */ } else { /* line 98 "../lib/comp/enu_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 98 "../lib/comp/enu_act.s7i" */ (*tmp_1)->size++; /* line 98 "../lib/comp/enu_act.s7i" */ } } /* line 99 "../lib/comp/enu_act.s7i" */ o_4941_process_expr(rflIdx(*o_7768_params, 1L), o_7769_c_expr); /* line 100 "../lib/comp/enu_act.s7i" */ { /* line 100 "../lib/comp/enu_act.s7i" */ striType *tmp_1; /* line 100 "../lib/comp/enu_act.s7i" */ tmp_1=&(((structType)(*o_7769_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 100 "../lib/comp/enu_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 100 "../lib/comp/enu_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 100 "../lib/comp/enu_act.s7i" */ } else { /* line 100 "../lib/comp/enu_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 100 "../lib/comp/enu_act.s7i" */ (*tmp_1)->size++; /* line 100 "../lib/comp/enu_act.s7i" */ } } } /* line 1 "no_file" */ /* 4051 */ /* line 104 "../lib/comp/enu_act.s7i" */ static void/*t_1_void*/ o_7770_ENU_VALUE (const objRefType/*t_19_reference*/ o_7771_function, const listType/*t_20_ref_list*/ *const o_7772_params, structType/*t_164_expr_type*/ *const o_7773_c_expr) { /* line 108 "../lib/comp/enu_act.s7i" */ strAppend(&(((structType)(*o_7773_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[928] /* "enuValue(" */); /* line 109 "../lib/comp/enu_act.s7i" */ o_4941_process_expr(rflIdx(*o_7772_params, 1L), o_7773_c_expr); /* line 110 "../lib/comp/enu_act.s7i" */ { /* line 110 "../lib/comp/enu_act.s7i" */ striType *tmp_1; /* line 110 "../lib/comp/enu_act.s7i" */ tmp_1=&(((structType)(*o_7773_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 110 "../lib/comp/enu_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 110 "../lib/comp/enu_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 110 "../lib/comp/enu_act.s7i" */ } else { /* line 110 "../lib/comp/enu_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 110 "../lib/comp/enu_act.s7i" */ (*tmp_1)->size++; /* line 110 "../lib/comp/enu_act.s7i" */ } } } /* line 1 "no_file" */ /* 4052 */ /* 4053 */ /* line 59 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7774_fil_prototypes (interfaceType/*t_46_file*/ *const o_7775_c_prog) { /* line 62 "../lib/comp/fil_act.s7i" */ o_6547_declareExtern(o_7775_c_prog, &str[929] /* "bigIntType filBigLng (fileType);" */); /* line 63 "../lib/comp/fil_act.s7i" */ o_6547_declareExtern(o_7775_c_prog, &str[930] /* "void filBigSeek (fileType, const const_bigIntType);" */); /* line 64 "../lib/comp/fil_act.s7i" */ o_6547_declareExtern(o_7775_c_prog, &str[931] /* "bigIntType filBigTell (fileType);" */); /* line 65 "../lib/comp/fil_act.s7i" */ o_6547_declareExtern(o_7775_c_prog, &str[932] /* "void filClose (fileType);" */); /* line 66 "../lib/comp/fil_act.s7i" */ o_6547_declareExtern(o_7775_c_prog, &str[933] /* "striType filGets (fileType, intType);" */); /* line 67 "../lib/comp/fil_act.s7i" */ o_6547_declareExtern(o_7775_c_prog, &str[934] /* "boolType filHasNext (fileType);" */); /* line 68 "../lib/comp/fil_act.s7i" */ o_6547_declareExtern(o_7775_c_prog, &str[935] /* "boolType filInputReady (fileType);" */); /* line 69 "../lib/comp/fil_act.s7i" */ o_6547_declareExtern(o_7775_c_prog, &str[936] /* "striType filLineRead (fileType, charType *);" */); /* line 70 "../lib/comp/fil_act.s7i" */ o_6547_declareExtern(o_7775_c_prog, &str[937] /* "striType filLit (fileType);" */); /* line 71 "../lib/comp/fil_act.s7i" */ o_6547_declareExtern(o_7775_c_prog, &str[938] /* "intType filLng (fileType);" */); /* line 72 "../lib/comp/fil_act.s7i" */ o_6547_declareExtern(o_7775_c_prog, &str[939] /* "fileType filOpen (const const_striType, const const_striType);" */); /* line 73 "../lib/comp/fil_act.s7i" */ o_6547_declareExtern(o_7775_c_prog, &str[940] /* "void filPclose (fileType);" */); /* line 74 "../lib/comp/fil_act.s7i" */ o_6547_declareExtern(o_7775_c_prog, &str[941] /* "fileType filPopen (const const_striType, const const_striType, const const_striType);" */); /* line 75 "../lib/comp/fil_act.s7i" */ o_6547_declareExtern(o_7775_c_prog, &str[942] /* "void filPrint (const const_striType);" */); /* line 76 "../lib/comp/fil_act.s7i" */ o_6547_declareExtern(o_7775_c_prog, &str[943] /* "void filSeek (fileType, intType);" */); /* line 77 "../lib/comp/fil_act.s7i" */ o_6547_declareExtern(o_7775_c_prog, &str[944] /* "void filSetbuf (fileType, intType, intType);" */); /* line 78 "../lib/comp/fil_act.s7i" */ o_6547_declareExtern(o_7775_c_prog, &str[945] /* "intType filTell (fileType);" */); /* line 79 "../lib/comp/fil_act.s7i" */ o_6547_declareExtern(o_7775_c_prog, &str[946] /* "striType filWordRead (fileType, charType *);" */); /* line 80 "../lib/comp/fil_act.s7i" */ o_6547_declareExtern(o_7775_c_prog, &str[947] /* "void filWrite (fileType, const const_striType);" */); /* line 81 "../lib/comp/fil_act.s7i" */ o_6547_declareExtern(o_7775_c_prog, &str[948] /* "fileType filValue (objRefType);" */); } /* line 1 "no_file" */ /* 4054 */ /* line 85 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7776_FIL_BIG_LNG (const objRefType/*t_19_reference*/ o_7777_function, const listType/*t_20_ref_list*/ *const o_7778_params, structType/*t_164_expr_type*/ *const o_7779_c_expr) { /* line 89 "../lib/comp/fil_act.s7i" */ o_4947_prepare_bigint_result(o_7779_c_expr); /* line 90 "../lib/comp/fil_act.s7i" */ strCopy(&(((structType)(*o_7779_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[949] /* "filBigLng(" */); /* line 91 "../lib/comp/fil_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7778_params, 1L), o_7779_c_expr); /* line 92 "../lib/comp/fil_act.s7i" */ { /* line 92 "../lib/comp/fil_act.s7i" */ striType *tmp_1; /* line 92 "../lib/comp/fil_act.s7i" */ tmp_1=&(((structType)(*o_7779_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 92 "../lib/comp/fil_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 92 "../lib/comp/fil_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 92 "../lib/comp/fil_act.s7i" */ } else { /* line 92 "../lib/comp/fil_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 92 "../lib/comp/fil_act.s7i" */ (*tmp_1)->size++; /* line 92 "../lib/comp/fil_act.s7i" */ } } } /* line 1 "no_file" */ /* 4055 */ /* line 96 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7780_FIL_BIG_SEEK (const objRefType/*t_19_reference*/ o_7781_function, const listType/*t_20_ref_list*/ *const o_7782_params, structType/*t_164_expr_type*/ *const o_7783_c_expr) { /* line 100 "../lib/comp/fil_act.s7i" */ o_4819_setDiagnosticLine(o_7783_c_expr); /* line 101 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7783_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[950] /* "filBigSeek(" */); /* line 102 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7782_params, 1L), o_7783_c_expr); /* line 103 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7783_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 104 "../lib/comp/fil_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7782_params, 2L), o_7783_c_expr); /* line 105 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7783_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4056 */ /* line 109 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7784_FIL_BIG_TELL (const objRefType/*t_19_reference*/ o_7785_function, const listType/*t_20_ref_list*/ *const o_7786_params, structType/*t_164_expr_type*/ *const o_7787_c_expr) { /* line 113 "../lib/comp/fil_act.s7i" */ o_4947_prepare_bigint_result(o_7787_c_expr); /* line 114 "../lib/comp/fil_act.s7i" */ strCopy(&(((structType)(*o_7787_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[951] /* "filBigTell(" */); /* line 115 "../lib/comp/fil_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7786_params, 1L), o_7787_c_expr); /* line 116 "../lib/comp/fil_act.s7i" */ { /* line 116 "../lib/comp/fil_act.s7i" */ striType *tmp_1; /* line 116 "../lib/comp/fil_act.s7i" */ tmp_1=&(((structType)(*o_7787_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 116 "../lib/comp/fil_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 116 "../lib/comp/fil_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 116 "../lib/comp/fil_act.s7i" */ } else { /* line 116 "../lib/comp/fil_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 116 "../lib/comp/fil_act.s7i" */ (*tmp_1)->size++; /* line 116 "../lib/comp/fil_act.s7i" */ } } } /* line 1 "no_file" */ /* 4057 */ /* line 120 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7788_FIL_CLOSE (const objRefType/*t_19_reference*/ o_7789_function, const listType/*t_20_ref_list*/ *const o_7790_params, structType/*t_164_expr_type*/ *const o_7791_c_expr) { /* line 124 "../lib/comp/fil_act.s7i" */ o_4819_setDiagnosticLine(o_7791_c_expr); /* line 125 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7791_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[952] /* "filClose(" */); /* line 126 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7790_params, 1L), o_7791_c_expr); /* line 127 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7791_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4058 */ /* line 131 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7792_FIL_CPY (const objRefType/*t_19_reference*/ o_7793_function, const listType/*t_20_ref_list*/ *const o_7794_params, structType/*t_164_expr_type*/ *const o_7795_c_expr) { /* line 135 "../lib/comp/fil_act.s7i" */ structType/*t_164_expr_type*/ o_7796_statement; /* line 135 "../lib/comp/fil_act.s7i" */ o_7796_statement=create_164(sct[219]); /* line 137 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7794_params, 1L), &(o_7796_statement)); /* line 138 "../lib/comp/fil_act.s7i" */ { /* line 138 "../lib/comp/fil_act.s7i" */ striType *tmp_1; /* line 138 "../lib/comp/fil_act.s7i" */ tmp_1=&(((structType)(o_7796_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 138 "../lib/comp/fil_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 138 "../lib/comp/fil_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 138 "../lib/comp/fil_act.s7i" */ } else { /* line 138 "../lib/comp/fil_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 138 "../lib/comp/fil_act.s7i" */ (*tmp_1)->size++; /* line 138 "../lib/comp/fil_act.s7i" */ } } /* line 139 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7794_params, 3L), &(o_7796_statement)); /* line 140 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(o_7796_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 141 "../lib/comp/fil_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_7796_statement, o_7795_c_expr); /* line 131 "../lib/comp/fil_act.s7i" */ destr_164(o_7796_statement); } /* line 1 "no_file" */ /* 4059 */ /* line 145 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7797_FIL_EMPTY (const objRefType/*t_19_reference*/ o_7798_function, const listType/*t_20_ref_list*/ *const o_7799_params, structType/*t_164_expr_type*/ *const o_7800_c_expr) { /* line 149 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7800_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[953] /* "NULL" */); } /* line 1 "no_file" */ /* 4060 */ /* line 153 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7801_FIL_EOF (const objRefType/*t_19_reference*/ o_7802_function, const listType/*t_20_ref_list*/ *const o_7803_params, structType/*t_164_expr_type*/ *const o_7804_c_expr) { /* line 157 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7804_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[954] /* "feof(" */); /* line 158 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7803_params, 1L), o_7804_c_expr); /* line 159 "../lib/comp/fil_act.s7i" */ { /* line 159 "../lib/comp/fil_act.s7i" */ striType *tmp_1; /* line 159 "../lib/comp/fil_act.s7i" */ tmp_1=&(((structType)(*o_7804_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 159 "../lib/comp/fil_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 159 "../lib/comp/fil_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 159 "../lib/comp/fil_act.s7i" */ } else { /* line 159 "../lib/comp/fil_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 159 "../lib/comp/fil_act.s7i" */ (*tmp_1)->size++; /* line 159 "../lib/comp/fil_act.s7i" */ } } } /* line 1 "no_file" */ /* 4061 */ /* line 163 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7805_FIL_EQ (const objRefType/*t_19_reference*/ o_7806_function, const listType/*t_20_ref_list*/ *const o_7807_params, structType/*t_164_expr_type*/ *const o_7808_c_expr) { /* line 167 "../lib/comp/fil_act.s7i" */ { /* line 167 "../lib/comp/fil_act.s7i" */ striType *tmp_1; /* line 167 "../lib/comp/fil_act.s7i" */ tmp_1=&(((structType)(*o_7808_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 167 "../lib/comp/fil_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 167 "../lib/comp/fil_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 167 "../lib/comp/fil_act.s7i" */ } else { /* line 167 "../lib/comp/fil_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 167 "../lib/comp/fil_act.s7i" */ (*tmp_1)->size++; /* line 167 "../lib/comp/fil_act.s7i" */ } } /* line 168 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7807_params, 1L), o_7808_c_expr); /* line 169 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7808_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[350] /* ") == (" */); /* line 170 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7807_params, 3L), o_7808_c_expr); /* line 171 "../lib/comp/fil_act.s7i" */ { /* line 171 "../lib/comp/fil_act.s7i" */ striType *tmp_1; /* line 171 "../lib/comp/fil_act.s7i" */ tmp_1=&(((structType)(*o_7808_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 171 "../lib/comp/fil_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 171 "../lib/comp/fil_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 171 "../lib/comp/fil_act.s7i" */ } else { /* line 171 "../lib/comp/fil_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 171 "../lib/comp/fil_act.s7i" */ (*tmp_1)->size++; /* line 171 "../lib/comp/fil_act.s7i" */ } } } /* line 1 "no_file" */ /* 4062 */ /* line 175 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7809_FIL_ERR (const objRefType/*t_19_reference*/ o_7810_function, const listType/*t_20_ref_list*/ *const o_7811_params, structType/*t_164_expr_type*/ *const o_7812_c_expr) { /* line 179 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7812_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[955] /* "stderr" */); } /* line 1 "no_file" */ /* 4063 */ /* line 183 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7813_FIL_FLUSH (const objRefType/*t_19_reference*/ o_7814_function, const listType/*t_20_ref_list*/ *const o_7815_params, structType/*t_164_expr_type*/ *const o_7816_c_expr) { /* line 187 "../lib/comp/fil_act.s7i" */ o_4819_setDiagnosticLine(o_7816_c_expr); /* line 188 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7816_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[956] /* "fflush(" */); /* line 189 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7815_params, 1L), o_7816_c_expr); /* line 190 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7816_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4064 */ /* line 194 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7817_FIL_GETC (const objRefType/*t_19_reference*/ o_7818_function, const listType/*t_20_ref_list*/ *const o_7819_params, structType/*t_164_expr_type*/ *const o_7820_c_expr) { /* line 198 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7820_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[957] /* "fgetc(" */); /* line 199 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7819_params, 1L), o_7820_c_expr); /* line 200 "../lib/comp/fil_act.s7i" */ { /* line 200 "../lib/comp/fil_act.s7i" */ striType *tmp_1; /* line 200 "../lib/comp/fil_act.s7i" */ tmp_1=&(((structType)(*o_7820_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 200 "../lib/comp/fil_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 200 "../lib/comp/fil_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 200 "../lib/comp/fil_act.s7i" */ } else { /* line 200 "../lib/comp/fil_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 200 "../lib/comp/fil_act.s7i" */ (*tmp_1)->size++; /* line 200 "../lib/comp/fil_act.s7i" */ } } } /* line 1 "no_file" */ /* 4065 */ /* line 204 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7821_FIL_GETS (const objRefType/*t_19_reference*/ o_7822_function, const listType/*t_20_ref_list*/ *const o_7823_params, structType/*t_164_expr_type*/ *const o_7824_c_expr) { /* line 208 "../lib/comp/fil_act.s7i" */ o_4955_prepare_stri_result(o_7824_c_expr); /* line 209 "../lib/comp/fil_act.s7i" */ strCopy(&(((structType)(*o_7824_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[958] /* "filGets(" */); /* line 210 "../lib/comp/fil_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7823_params, 1L), o_7824_c_expr); /* line 211 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7824_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 212 "../lib/comp/fil_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7823_params, 2L), o_7824_c_expr); /* line 213 "../lib/comp/fil_act.s7i" */ { /* line 213 "../lib/comp/fil_act.s7i" */ striType *tmp_1; /* line 213 "../lib/comp/fil_act.s7i" */ tmp_1=&(((structType)(*o_7824_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 213 "../lib/comp/fil_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 213 "../lib/comp/fil_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 213 "../lib/comp/fil_act.s7i" */ } else { /* line 213 "../lib/comp/fil_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 213 "../lib/comp/fil_act.s7i" */ (*tmp_1)->size++; /* line 213 "../lib/comp/fil_act.s7i" */ } } } /* line 1 "no_file" */ /* 4066 */ /* line 217 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7825_FIL_HAS_NEXT (const objRefType/*t_19_reference*/ o_7826_function, const listType/*t_20_ref_list*/ *const o_7827_params, structType/*t_164_expr_type*/ *const o_7828_c_expr) { /* line 221 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7828_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[959] /* "filHasNext(" */); /* line 222 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7827_params, 1L), o_7828_c_expr); /* line 223 "../lib/comp/fil_act.s7i" */ { /* line 223 "../lib/comp/fil_act.s7i" */ striType *tmp_1; /* line 223 "../lib/comp/fil_act.s7i" */ tmp_1=&(((structType)(*o_7828_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 223 "../lib/comp/fil_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 223 "../lib/comp/fil_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 223 "../lib/comp/fil_act.s7i" */ } else { /* line 223 "../lib/comp/fil_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 223 "../lib/comp/fil_act.s7i" */ (*tmp_1)->size++; /* line 223 "../lib/comp/fil_act.s7i" */ } } } /* line 1 "no_file" */ /* 4067 */ /* line 227 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7829_FIL_IN (const objRefType/*t_19_reference*/ o_7830_function, const listType/*t_20_ref_list*/ *const o_7831_params, structType/*t_164_expr_type*/ *const o_7832_c_expr) { /* line 231 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7832_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[960] /* "stdin" */); } /* line 1 "no_file" */ /* 4068 */ /* line 235 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7833_FIL_INPUT_READY (const objRefType/*t_19_reference*/ o_7834_function, const listType/*t_20_ref_list*/ *const o_7835_params, structType/*t_164_expr_type*/ *const o_7836_c_expr) { /* line 239 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7836_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[961] /* "filInputReady(" */); /* line 240 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7835_params, 1L), o_7836_c_expr); /* line 241 "../lib/comp/fil_act.s7i" */ { /* line 241 "../lib/comp/fil_act.s7i" */ striType *tmp_1; /* line 241 "../lib/comp/fil_act.s7i" */ tmp_1=&(((structType)(*o_7836_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 241 "../lib/comp/fil_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 241 "../lib/comp/fil_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 241 "../lib/comp/fil_act.s7i" */ } else { /* line 241 "../lib/comp/fil_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 241 "../lib/comp/fil_act.s7i" */ (*tmp_1)->size++; /* line 241 "../lib/comp/fil_act.s7i" */ } } } /* line 1 "no_file" */ /* 4069 */ /* line 245 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7837_FIL_LINE_READ (const objRefType/*t_19_reference*/ o_7838_function, const listType/*t_20_ref_list*/ *const o_7839_params, structType/*t_164_expr_type*/ *const o_7840_c_expr) { /* line 249 "../lib/comp/fil_act.s7i" */ o_4955_prepare_stri_result(o_7840_c_expr); /* line 250 "../lib/comp/fil_act.s7i" */ strCopy(&(((structType)(*o_7840_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[962] /* "filLineRead(" */); /* line 251 "../lib/comp/fil_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7839_params, 1L), o_7840_c_expr); /* line 252 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7840_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[766] /* ", &(" */); /* line 253 "../lib/comp/fil_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7839_params, 2L), o_7840_c_expr); /* line 254 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7840_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 4070 */ /* line 258 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7841_FIL_LIT (const objRefType/*t_19_reference*/ o_7842_function, const listType/*t_20_ref_list*/ *const o_7843_params, structType/*t_164_expr_type*/ *const o_7844_c_expr) { /* line 262 "../lib/comp/fil_act.s7i" */ o_4955_prepare_stri_result(o_7844_c_expr); /* line 263 "../lib/comp/fil_act.s7i" */ strCopy(&(((structType)(*o_7844_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[963] /* "filLit(" */); /* line 264 "../lib/comp/fil_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7843_params, 1L), o_7844_c_expr); /* line 265 "../lib/comp/fil_act.s7i" */ { /* line 265 "../lib/comp/fil_act.s7i" */ striType *tmp_1; /* line 265 "../lib/comp/fil_act.s7i" */ tmp_1=&(((structType)(*o_7844_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 265 "../lib/comp/fil_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 265 "../lib/comp/fil_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 265 "../lib/comp/fil_act.s7i" */ } else { /* line 265 "../lib/comp/fil_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 265 "../lib/comp/fil_act.s7i" */ (*tmp_1)->size++; /* line 265 "../lib/comp/fil_act.s7i" */ } } } /* line 1 "no_file" */ /* 4071 */ /* line 269 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7845_FIL_LNG (const objRefType/*t_19_reference*/ o_7846_function, const listType/*t_20_ref_list*/ *const o_7847_params, structType/*t_164_expr_type*/ *const o_7848_c_expr) { /* line 273 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7848_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[964] /* "filLng(" */); /* line 274 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7847_params, 1L), o_7848_c_expr); /* line 275 "../lib/comp/fil_act.s7i" */ { /* line 275 "../lib/comp/fil_act.s7i" */ striType *tmp_1; /* line 275 "../lib/comp/fil_act.s7i" */ tmp_1=&(((structType)(*o_7848_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 275 "../lib/comp/fil_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 275 "../lib/comp/fil_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 275 "../lib/comp/fil_act.s7i" */ } else { /* line 275 "../lib/comp/fil_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 275 "../lib/comp/fil_act.s7i" */ (*tmp_1)->size++; /* line 275 "../lib/comp/fil_act.s7i" */ } } } /* line 1 "no_file" */ /* 4072 */ /* line 279 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7849_FIL_NE (const objRefType/*t_19_reference*/ o_7850_function, const listType/*t_20_ref_list*/ *const o_7851_params, structType/*t_164_expr_type*/ *const o_7852_c_expr) { /* line 283 "../lib/comp/fil_act.s7i" */ { /* line 283 "../lib/comp/fil_act.s7i" */ striType *tmp_1; /* line 283 "../lib/comp/fil_act.s7i" */ tmp_1=&(((structType)(*o_7852_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 283 "../lib/comp/fil_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 283 "../lib/comp/fil_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 283 "../lib/comp/fil_act.s7i" */ } else { /* line 283 "../lib/comp/fil_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 283 "../lib/comp/fil_act.s7i" */ (*tmp_1)->size++; /* line 283 "../lib/comp/fil_act.s7i" */ } } /* line 284 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7851_params, 1L), o_7852_c_expr); /* line 285 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7852_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[352] /* ") != (" */); /* line 286 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7851_params, 3L), o_7852_c_expr); /* line 287 "../lib/comp/fil_act.s7i" */ { /* line 287 "../lib/comp/fil_act.s7i" */ striType *tmp_1; /* line 287 "../lib/comp/fil_act.s7i" */ tmp_1=&(((structType)(*o_7852_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 287 "../lib/comp/fil_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 287 "../lib/comp/fil_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 287 "../lib/comp/fil_act.s7i" */ } else { /* line 287 "../lib/comp/fil_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 287 "../lib/comp/fil_act.s7i" */ (*tmp_1)->size++; /* line 287 "../lib/comp/fil_act.s7i" */ } } } /* line 1 "no_file" */ /* 4073 */ /* line 291 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7853_FIL_OPEN (const objRefType/*t_19_reference*/ o_7854_function, const listType/*t_20_ref_list*/ *const o_7855_params, structType/*t_164_expr_type*/ *const o_7856_c_expr) { /* line 295 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7856_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[965] /* "filOpen(" */); /* line 296 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7855_params, 1L), o_7856_c_expr); /* line 297 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7856_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 298 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7855_params, 2L), o_7856_c_expr); /* line 299 "../lib/comp/fil_act.s7i" */ { /* line 299 "../lib/comp/fil_act.s7i" */ striType *tmp_1; /* line 299 "../lib/comp/fil_act.s7i" */ tmp_1=&(((structType)(*o_7856_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 299 "../lib/comp/fil_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 299 "../lib/comp/fil_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 299 "../lib/comp/fil_act.s7i" */ } else { /* line 299 "../lib/comp/fil_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 299 "../lib/comp/fil_act.s7i" */ (*tmp_1)->size++; /* line 299 "../lib/comp/fil_act.s7i" */ } } } /* line 1 "no_file" */ /* 4074 */ /* line 303 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7857_FIL_OUT (const objRefType/*t_19_reference*/ o_7858_function, const listType/*t_20_ref_list*/ *const o_7859_params, structType/*t_164_expr_type*/ *const o_7860_c_expr) { /* line 307 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7860_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[966] /* "stdout" */); } /* line 1 "no_file" */ /* 4075 */ /* line 311 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7861_FIL_PCLOSE (const objRefType/*t_19_reference*/ o_7862_function, const listType/*t_20_ref_list*/ *const o_7863_params, structType/*t_164_expr_type*/ *const o_7864_c_expr) { /* line 315 "../lib/comp/fil_act.s7i" */ o_4819_setDiagnosticLine(o_7864_c_expr); /* line 316 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[967] /* "filPclose(" */); /* line 317 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7863_params, 1L), o_7864_c_expr); /* line 318 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7864_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4076 */ /* line 322 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7865_FIL_POPEN (const objRefType/*t_19_reference*/ o_7866_function, const listType/*t_20_ref_list*/ *const o_7867_params, structType/*t_164_expr_type*/ *const o_7868_c_expr) { /* line 326 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7868_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[968] /* "filPopen(" */); /* line 327 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7867_params, 1L), o_7868_c_expr); /* line 328 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7868_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 329 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7867_params, 2L), o_7868_c_expr); /* line 330 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7868_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 331 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7867_params, 3L), o_7868_c_expr); /* line 332 "../lib/comp/fil_act.s7i" */ { /* line 332 "../lib/comp/fil_act.s7i" */ striType *tmp_1; /* line 332 "../lib/comp/fil_act.s7i" */ tmp_1=&(((structType)(*o_7868_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 332 "../lib/comp/fil_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 332 "../lib/comp/fil_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 332 "../lib/comp/fil_act.s7i" */ } else { /* line 332 "../lib/comp/fil_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 332 "../lib/comp/fil_act.s7i" */ (*tmp_1)->size++; /* line 332 "../lib/comp/fil_act.s7i" */ } } } /* line 1 "no_file" */ /* 4077 */ /* line 336 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7869_FIL_PRINT (const objRefType/*t_19_reference*/ o_7870_function, const listType/*t_20_ref_list*/ *const o_7871_params, structType/*t_164_expr_type*/ *const o_7872_c_expr) { /* line 340 "../lib/comp/fil_act.s7i" */ o_4819_setDiagnosticLine(o_7872_c_expr); /* line 341 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7872_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[969] /* "filPrint(" */); /* line 342 "../lib/comp/fil_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7871_params, 1L), o_7872_c_expr); /* line 343 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7872_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4078 */ /* line 347 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7873_FIL_SEEK (const objRefType/*t_19_reference*/ o_7874_function, const listType/*t_20_ref_list*/ *const o_7875_params, structType/*t_164_expr_type*/ *const o_7876_c_expr) { /* line 351 "../lib/comp/fil_act.s7i" */ o_4819_setDiagnosticLine(o_7876_c_expr); /* line 352 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7876_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[970] /* "filSeek(" */); /* line 353 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7875_params, 1L), o_7876_c_expr); /* line 354 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7876_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 355 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7875_params, 2L), o_7876_c_expr); /* line 356 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7876_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4079 */ /* line 360 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7877_FIL_SETBUF (const objRefType/*t_19_reference*/ o_7878_function, const listType/*t_20_ref_list*/ *const o_7879_params, structType/*t_164_expr_type*/ *const o_7880_c_expr) { /* line 364 "../lib/comp/fil_act.s7i" */ o_4819_setDiagnosticLine(o_7880_c_expr); /* line 365 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7880_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[971] /* "filSetbuf(" */); /* line 366 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7879_params, 1L), o_7880_c_expr); /* line 367 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7880_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 368 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7879_params, 2L), o_7880_c_expr); /* line 369 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7880_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 370 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7879_params, 3L), o_7880_c_expr); /* line 371 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7880_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4080 */ /* line 375 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7881_FIL_TELL (const objRefType/*t_19_reference*/ o_7882_function, const listType/*t_20_ref_list*/ *const o_7883_params, structType/*t_164_expr_type*/ *const o_7884_c_expr) { /* line 379 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7884_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[972] /* "filTell(" */); /* line 380 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7883_params, 1L), o_7884_c_expr); /* line 381 "../lib/comp/fil_act.s7i" */ { /* line 381 "../lib/comp/fil_act.s7i" */ striType *tmp_1; /* line 381 "../lib/comp/fil_act.s7i" */ tmp_1=&(((structType)(*o_7884_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 381 "../lib/comp/fil_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 381 "../lib/comp/fil_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 381 "../lib/comp/fil_act.s7i" */ } else { /* line 381 "../lib/comp/fil_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 381 "../lib/comp/fil_act.s7i" */ (*tmp_1)->size++; /* line 381 "../lib/comp/fil_act.s7i" */ } } } /* line 1 "no_file" */ /* 4081 */ /* line 385 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7885_FIL_VALUE (const objRefType/*t_19_reference*/ o_7886_function, const listType/*t_20_ref_list*/ *const o_7887_params, structType/*t_164_expr_type*/ *const o_7888_c_expr) { /* line 389 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7888_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[973] /* "filValue(" */); /* line 390 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7887_params, 1L), o_7888_c_expr); /* line 391 "../lib/comp/fil_act.s7i" */ { /* line 391 "../lib/comp/fil_act.s7i" */ striType *tmp_1; /* line 391 "../lib/comp/fil_act.s7i" */ tmp_1=&(((structType)(*o_7888_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 391 "../lib/comp/fil_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 391 "../lib/comp/fil_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 391 "../lib/comp/fil_act.s7i" */ } else { /* line 391 "../lib/comp/fil_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 391 "../lib/comp/fil_act.s7i" */ (*tmp_1)->size++; /* line 391 "../lib/comp/fil_act.s7i" */ } } } /* line 1 "no_file" */ /* 4082 */ /* line 395 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7889_FIL_WRITE (const objRefType/*t_19_reference*/ o_7890_function, const listType/*t_20_ref_list*/ *const o_7891_params, structType/*t_164_expr_type*/ *const o_7892_c_expr) { /* line 399 "../lib/comp/fil_act.s7i" */ o_4819_setDiagnosticLine(o_7892_c_expr); /* line 400 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[974] /* "filWrite(" */); /* line 401 "../lib/comp/fil_act.s7i" */ o_4941_process_expr(rflIdx(*o_7891_params, 1L), o_7892_c_expr); /* line 402 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 403 "../lib/comp/fil_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_7891_params, 2L), o_7892_c_expr); /* line 404 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7892_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4083 */ /* line 408 "../lib/comp/fil_act.s7i" */ static void/*t_1_void*/ o_7893_FIL_WORD_READ (const objRefType/*t_19_reference*/ o_7894_function, const listType/*t_20_ref_list*/ *const o_7895_params, structType/*t_164_expr_type*/ *const o_7896_c_expr) { /* line 412 "../lib/comp/fil_act.s7i" */ o_4955_prepare_stri_result(o_7896_c_expr); /* line 413 "../lib/comp/fil_act.s7i" */ strCopy(&(((structType)(*o_7896_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[975] /* "filWordRead(" */); /* line 414 "../lib/comp/fil_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7895_params, 1L), o_7896_c_expr); /* line 415 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7896_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[766] /* ", &(" */); /* line 416 "../lib/comp/fil_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7895_params, 2L), o_7896_c_expr); /* line 417 "../lib/comp/fil_act.s7i" */ strAppend(&(((structType)(*o_7896_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 4084 */ /* 4085 */ /* line 81 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_7897_flt_prototypes (interfaceType/*t_46_file*/ *const o_7898_c_prog) { /* line 84 "../lib/comp/flt_act.s7i" */ o_6547_declareExtern(o_7898_c_prog, &str[976] /* "intType fltCmp (floatType, floatType);" */); /* line 85 "../lib/comp/flt_act.s7i" */ o_6547_declareExtern(o_7898_c_prog, &str[977] /* "intType fltCmpGeneric (const genericType, const genericType);" */); /* line 86 "../lib/comp/flt_act.s7i" */ o_6547_declareExtern(o_7898_c_prog, &str[978] /* "void fltCpyGeneric (genericType *const, const genericType);" */); /* line 87 "../lib/comp/flt_act.s7i" */ o_6547_declareExtern(o_7898_c_prog, &str[979] /* "striType fltDgts (floatType, intType);" */); /* line 88 "../lib/comp/flt_act.s7i" */ if (((structType)(sct[55]))->stru[6].value.boolValue/*->o_3384_NAN_COMPARISON_WRONG*/) { /* line 89 "../lib/comp/flt_act.s7i" */ o_6547_declareExtern(o_7898_c_prog, &str[980] /* "boolType fltEq (floatType, floatType);" */); /* line 90 "../lib/comp/flt_act.s7i" */ o_6547_declareExtern(o_7898_c_prog, &str[981] /* "boolType fltGe (floatType, floatType);" */); /* line 91 "../lib/comp/flt_act.s7i" */ o_6547_declareExtern(o_7898_c_prog, &str[982] /* "boolType fltGt (floatType, floatType);" */); } /* line 93 "../lib/comp/flt_act.s7i" */ o_6547_declareExtern(o_7898_c_prog, &str[983] /* "floatType fltIPow (floatType, intType);" */); /* line 94 "../lib/comp/flt_act.s7i" */ o_6547_declareExtern(o_7898_c_prog, &str[984] /* "boolType fltIsNegativeZero (floatType);" */); /* line 95 "../lib/comp/flt_act.s7i" */ o_894_writeln(o_7898_c_prog, &str[985] /* "#define fltIsNegativeZeroMacro(number) (memcmp(&(number), &negativeZero, sizeof(floatType)) == 0)" */); /* line 96 "../lib/comp/flt_act.s7i" */ if (((structType)(sct[55]))->stru[6].value.boolValue/*->o_3384_NAN_COMPARISON_WRONG*/) { /* line 97 "../lib/comp/flt_act.s7i" */ o_6547_declareExtern(o_7898_c_prog, &str[986] /* "boolType fltLe (floatType, floatType);" */); /* line 98 "../lib/comp/flt_act.s7i" */ o_6547_declareExtern(o_7898_c_prog, &str[987] /* "boolType fltLt (floatType, floatType);" */); } /* line 100 "../lib/comp/flt_act.s7i" */ o_6547_declareExtern(o_7898_c_prog, &str[988] /* "floatType fltParse (const const_striType);" */); /* line 101 "../lib/comp/flt_act.s7i" */ if (((structType)(sct[55]))->stru[7].value.boolValue/*->o_3385_POWER_OF_ZERO_WRONG*/) { /* line 102 "../lib/comp/flt_act.s7i" */ o_6547_declareExtern(o_7898_c_prog, &str[989] /* "floatType fltPow (floatType, floatType);" */); } /* line 104 "../lib/comp/flt_act.s7i" */ o_6547_declareExtern(o_7898_c_prog, &str[990] /* "floatType fltRand (floatType, floatType);" */); /* line 105 "../lib/comp/flt_act.s7i" */ o_6547_declareExtern(o_7898_c_prog, &str[991] /* "striType fltSci (floatType, intType);" */); /* line 106 "../lib/comp/flt_act.s7i" */ o_6547_declareExtern(o_7898_c_prog, &str[992] /* "striType fltStr (floatType);" */); /* line 107 "../lib/comp/flt_act.s7i" */ o_6547_declareExtern(o_7898_c_prog, &str[993] /* "floatType fltValue (objRefType);" */); } /* line 1 "no_file" */ /* 4086 */ /* line 111 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_7899_FLT_A2TAN (const objRefType/*t_19_reference*/ o_7900_function, const listType/*t_20_ref_list*/ *const o_7901_params, structType/*t_164_expr_type*/ *const o_7902_c_expr) { /* line 115 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7902_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[994] /* "atan2(" */); /* line 116 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7901_params, 1L), o_7902_c_expr); /* line 117 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7902_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 118 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7901_params, 2L), o_7902_c_expr); /* line 119 "../lib/comp/flt_act.s7i" */ { /* line 119 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 119 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_7902_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 119 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 119 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 119 "../lib/comp/flt_act.s7i" */ } else { /* line 119 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 119 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 119 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4087 */ /* line 123 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_7903_FLT_ABS (const objRefType/*t_19_reference*/ o_7904_function, const listType/*t_20_ref_list*/ *const o_7905_params, structType/*t_164_expr_type*/ *const o_7906_c_expr) { /* line 127 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7906_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[995] /* "fabs(" */); /* line 128 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7905_params, 1L), o_7906_c_expr); /* line 129 "../lib/comp/flt_act.s7i" */ { /* line 129 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 129 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_7906_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 129 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 129 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 129 "../lib/comp/flt_act.s7i" */ } else { /* line 129 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 129 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 129 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4088 */ /* line 133 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_7907_FLT_ACOS (const objRefType/*t_19_reference*/ o_7908_function, const listType/*t_20_ref_list*/ *const o_7909_params, structType/*t_164_expr_type*/ *const o_7910_c_expr) { /* line 137 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7910_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[996] /* "acos(" */); /* line 138 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7909_params, 1L), o_7910_c_expr); /* line 139 "../lib/comp/flt_act.s7i" */ { /* line 139 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 139 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_7910_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 139 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 139 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 139 "../lib/comp/flt_act.s7i" */ } else { /* line 139 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 139 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 139 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4089 */ /* line 143 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_7911_FLT_ADD (const objRefType/*t_19_reference*/ o_7912_function, const listType/*t_20_ref_list*/ *const o_7913_params, structType/*t_164_expr_type*/ *const o_7914_c_expr) { /* line 147 "../lib/comp/flt_act.s7i" */ { /* line 147 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 147 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_7914_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 147 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 147 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 147 "../lib/comp/flt_act.s7i" */ } else { /* line 147 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 147 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 147 "../lib/comp/flt_act.s7i" */ } } /* line 148 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7913_params, 1L), o_7914_c_expr); /* line 149 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7914_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[997] /* ") + (" */); /* line 150 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7913_params, 3L), o_7914_c_expr); /* line 151 "../lib/comp/flt_act.s7i" */ { /* line 151 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 151 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_7914_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 151 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 151 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 151 "../lib/comp/flt_act.s7i" */ } else { /* line 151 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 151 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 151 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4090 */ /* line 155 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_7915_FLT_ASIN (const objRefType/*t_19_reference*/ o_7916_function, const listType/*t_20_ref_list*/ *const o_7917_params, structType/*t_164_expr_type*/ *const o_7918_c_expr) { /* line 159 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7918_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[998] /* "asin(" */); /* line 160 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7917_params, 1L), o_7918_c_expr); /* line 161 "../lib/comp/flt_act.s7i" */ { /* line 161 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 161 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_7918_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 161 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 161 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 161 "../lib/comp/flt_act.s7i" */ } else { /* line 161 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 161 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 161 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4091 */ /* line 165 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_7919_FLT_ATAN (const objRefType/*t_19_reference*/ o_7920_function, const listType/*t_20_ref_list*/ *const o_7921_params, structType/*t_164_expr_type*/ *const o_7922_c_expr) { /* line 169 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7922_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[999] /* "atan(" */); /* line 170 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7921_params, 1L), o_7922_c_expr); /* line 171 "../lib/comp/flt_act.s7i" */ { /* line 171 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 171 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_7922_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 171 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 171 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 171 "../lib/comp/flt_act.s7i" */ } else { /* line 171 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 171 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 171 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4092 */ /* line 175 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_7923_FLT_CAST (const objRefType/*t_19_reference*/ o_7924_function, const listType/*t_20_ref_list*/ *const o_7925_params, structType/*t_164_expr_type*/ *const o_7926_c_expr) { /* line 179 "../lib/comp/flt_act.s7i" */ striType/*t_15_string*/ o_7927_temp_name; /* line 179 "../lib/comp/flt_act.s7i" */ o_7927_temp_name=strEmpty(); /* "" */ /* line 181 "../lib/comp/flt_act.s7i" */ ++(((structType)(*o_7926_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 182 "../lib/comp/flt_act.s7i" */ union { /* line 182 "../lib/comp/flt_act.s7i" */ struct striStruct striBuf; /* line 182 "../lib/comp/flt_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 182 "../lib/comp/flt_act.s7i" */ } buffer_2; /* line 182 "../lib/comp/flt_act.s7i" */ striType old_stri=o_7927_temp_name; /* line 182 "../lib/comp/flt_act.s7i" */ o_7927_temp_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_7926_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 182 "../lib/comp/flt_act.s7i" */ strDestr(old_stri); } /* line 183 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7926_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[304] /* "rtlValueUnion " */); /* line 184 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7926_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_7927_temp_name); /* line 185 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7926_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 186 "../lib/comp/flt_act.s7i" */ { /* line 186 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 186 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_7926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 186 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 186 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 186 "../lib/comp/flt_act.s7i" */ } else { /* line 186 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 186 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 186 "../lib/comp/flt_act.s7i" */ } } /* line 187 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7927_temp_name); /* line 188 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[305] /* ".floatValue=" */); /* line 189 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7925_params, 3L), o_7926_c_expr); /* line 190 "../lib/comp/flt_act.s7i" */ { /* line 190 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 190 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_7926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 190 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 190 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 190 "../lib/comp/flt_act.s7i" */ } else { /* line 190 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 190 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 190 "../lib/comp/flt_act.s7i" */ } } /* line 191 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7927_temp_name); /* line 192 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1000] /* ".intValue)" */); /* line 175 "../lib/comp/flt_act.s7i" */ strDestr(o_7927_temp_name); } /* line 1 "no_file" */ /* 4093 */ /* line 196 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_7928_FLT_CEIL (const objRefType/*t_19_reference*/ o_7929_function, const listType/*t_20_ref_list*/ *const o_7930_params, structType/*t_164_expr_type*/ *const o_7931_c_expr) { /* line 200 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7931_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1001] /* "ceil(" */); /* line 201 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7930_params, 1L), o_7931_c_expr); /* line 202 "../lib/comp/flt_act.s7i" */ { /* line 202 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 202 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_7931_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 202 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 202 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 202 "../lib/comp/flt_act.s7i" */ } else { /* line 202 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 202 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 202 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4094 */ /* line 206 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_7932_FLT_CMP (const objRefType/*t_19_reference*/ o_7933_function, const listType/*t_20_ref_list*/ *const o_7934_params, structType/*t_164_expr_type*/ *const o_7935_c_expr) { /* line 210 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7935_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1002] /* "fltCmp(" */); /* line 211 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7934_params, 1L), o_7935_c_expr); /* line 212 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7935_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 213 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7934_params, 2L), o_7935_c_expr); /* line 214 "../lib/comp/flt_act.s7i" */ { /* line 214 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 214 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_7935_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 214 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 214 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 214 "../lib/comp/flt_act.s7i" */ } else { /* line 214 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 214 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 214 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4095 */ /* line 218 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_7936_FLT_COS (const objRefType/*t_19_reference*/ o_7937_function, const listType/*t_20_ref_list*/ *const o_7938_params, structType/*t_164_expr_type*/ *const o_7939_c_expr) { /* line 222 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7939_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1003] /* "cos(" */); /* line 223 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7938_params, 1L), o_7939_c_expr); /* line 224 "../lib/comp/flt_act.s7i" */ { /* line 224 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 224 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_7939_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 224 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 224 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 224 "../lib/comp/flt_act.s7i" */ } else { /* line 224 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 224 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 224 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4096 */ /* line 228 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_7940_FLT_COSH (const objRefType/*t_19_reference*/ o_7941_function, const listType/*t_20_ref_list*/ *const o_7942_params, structType/*t_164_expr_type*/ *const o_7943_c_expr) { /* line 232 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1004] /* "cosh(" */); /* line 233 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7942_params, 1L), o_7943_c_expr); /* line 234 "../lib/comp/flt_act.s7i" */ { /* line 234 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 234 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_7943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 234 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 234 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 234 "../lib/comp/flt_act.s7i" */ } else { /* line 234 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 234 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 234 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4097 */ /* line 238 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_7944_FLT_CPY (const objRefType/*t_19_reference*/ o_7945_function, const listType/*t_20_ref_list*/ *const o_7946_params, structType/*t_164_expr_type*/ *const o_7947_c_expr) { /* line 242 "../lib/comp/flt_act.s7i" */ structType/*t_164_expr_type*/ o_7948_statement; /* line 242 "../lib/comp/flt_act.s7i" */ o_7948_statement=create_164(sct[220]); /* line 244 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7946_params, 1L), &(o_7948_statement)); /* line 245 "../lib/comp/flt_act.s7i" */ { /* line 245 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 245 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(o_7948_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 245 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 245 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 245 "../lib/comp/flt_act.s7i" */ } else { /* line 245 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 245 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 245 "../lib/comp/flt_act.s7i" */ } } /* line 246 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7946_params, 3L), &(o_7948_statement)); /* line 247 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7948_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 248 "../lib/comp/flt_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_7948_statement, o_7947_c_expr); /* line 238 "../lib/comp/flt_act.s7i" */ destr_164(o_7948_statement); } /* line 1 "no_file" */ /* 4098 */ /* line 252 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_7949_FLT_DGTS (const objRefType/*t_19_reference*/ o_7950_function, const listType/*t_20_ref_list*/ *const o_7951_params, structType/*t_164_expr_type*/ *const o_7952_c_expr) { /* line 256 "../lib/comp/flt_act.s7i" */ o_4955_prepare_stri_result(o_7952_c_expr); /* line 257 "../lib/comp/flt_act.s7i" */ strCopy(&(((structType)(*o_7952_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1005] /* "fltDgts(" */); /* line 258 "../lib/comp/flt_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7951_params, 1L), o_7952_c_expr); /* line 259 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7952_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 260 "../lib/comp/flt_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_7951_params, 3L), o_7952_c_expr); /* line 261 "../lib/comp/flt_act.s7i" */ { /* line 261 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 261 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_7952_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 261 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 261 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 261 "../lib/comp/flt_act.s7i" */ } else { /* line 261 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 261 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 261 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4099 */ /* line 265 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_7953_process_const_flt_div (const objRefType/*t_19_reference*/ o_7954_dividend, const floatType/*t_65_float*/ o_7955_divisor, structType/*t_164_expr_type*/ *const o_7956_c_expr) { /* line 269 "../lib/comp/flt_act.s7i" */ objRefType/*t_19_reference*/ o_7957_evaluatedDividend=NULL; /* line 270 "../lib/comp/flt_act.s7i" */ floatType/*t_65_float*/ o_7958_quotient=0.0; /* line 271 "../lib/comp/flt_act.s7i" */ striType/*t_15_string*/ o_7959_dividend_name; /* line 271 "../lib/comp/flt_act.s7i" */ o_7959_dividend_name=strEmpty(); /* "" */ /* line 273 "../lib/comp/flt_act.s7i" */ ++(o_5107_countOptimizations); /* line 274 "../lib/comp/flt_act.s7i" */ if ((0.0 == (o_7955_divisor)) && /* line 274 "../lib/comp/flt_act.s7i" */ ((((structType)(sct[55]))->stru[9].value.boolValue/*->o_3387_FLOAT_ZERO_DIV_ERROR*/) || /* line 274 "../lib/comp/flt_act.s7i" */ (((structType)(sct[55]))->stru[15].value.boolValue/*->o_3393_CHECK_FLOAT_DIV_BY_ZERO*/))) { /* line 275 "../lib/comp/flt_act.s7i" */ if (o_5154_getConstant(o_7954_dividend, 25L, &(o_7957_evaluatedDividend))) { /* line 276 "../lib/comp/flt_act.s7i" */ o_7958_quotient=(fltValue(o_7957_evaluatedDividend)) / (o_7955_divisor); /* line 277 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_7956_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6511_floatLiteral(o_7958_quotient)); } else { /* line 279 "../lib/comp/flt_act.s7i" */ { /* line 279 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 279 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_7956_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 279 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 279 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 279 "../lib/comp/flt_act.s7i" */ } else { /* line 279 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 279 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 279 "../lib/comp/flt_act.s7i" */ } } { /* line 280 "../lib/comp/flt_act.s7i" */ striType old_stri=o_7959_dividend_name; /* line 280 "../lib/comp/flt_act.s7i" */ o_7959_dividend_name=o_5031_getParameterAsVariable(&str[103] /* "floatType" */, &str[282] /* "tmp_" */, o_7954_dividend, o_7956_c_expr); /* line 280 "../lib/comp/flt_act.s7i" */ strDestr(old_stri); } /* line 281 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7956_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7959_dividend_name); /* line 282 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7956_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1006] /* "==0.0 || isnan(" */); /* line 283 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7956_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7959_dividend_name); /* line 284 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7956_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1007] /* ") ? NOT_A_NUMBER : (" */); /* line 285 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7956_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7959_dividend_name); /* line 286 "../lib/comp/flt_act.s7i" */ if (fltIsNegativeZero(o_7955_divisor)) { /* line 287 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7956_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1008] /* "<0.0 ? POSITIVE_INFINITY : NEGATIVE_INFINITY))" */); } else { /* line 289 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7956_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1009] /* "<0.0 ? NEGATIVE_INFINITY : POSITIVE_INFINITY))" */); } } } else { /* line 293 "../lib/comp/flt_act.s7i" */ { /* line 293 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 293 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_7956_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 293 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 293 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 293 "../lib/comp/flt_act.s7i" */ } else { /* line 293 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 293 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 293 "../lib/comp/flt_act.s7i" */ } } /* line 294 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(o_7954_dividend, o_7956_c_expr); /* line 295 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7956_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1010] /* ") / " */); /* line 296 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_7956_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6511_floatLiteral(o_7955_divisor)); } /* line 265 "../lib/comp/flt_act.s7i" */ strDestr(o_7959_dividend_name); } /* line 1 "no_file" */ /* 4100 */ /* line 301 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_7960_FLT_DIV (const objRefType/*t_19_reference*/ o_7961_function, const listType/*t_20_ref_list*/ *const o_7962_params, structType/*t_164_expr_type*/ *const o_7963_c_expr) { /* line 305 "../lib/comp/flt_act.s7i" */ objRefType/*t_19_reference*/ o_7964_evaluatedParam=NULL; /* line 306 "../lib/comp/flt_act.s7i" */ striType/*t_15_string*/ o_7965_dividend; /* line 307 "../lib/comp/flt_act.s7i" */ striType/*t_15_string*/ o_7966_divisor; /* line 306 "../lib/comp/flt_act.s7i" */ o_7965_dividend=strEmpty(); /* "" */ /* line 307 "../lib/comp/flt_act.s7i" */ o_7966_divisor=strEmpty(); /* "" */ /* line 309 "../lib/comp/flt_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_7962_params, 3L), 25L, &(o_7964_evaluatedParam))) { /* line 310 "../lib/comp/flt_act.s7i" */ o_7953_process_const_flt_div(rflIdx(*o_7962_params, 1L), fltValue(o_7964_evaluatedParam), o_7963_c_expr); } else /* line 311 "../lib/comp/flt_act.s7i" */ if ((((structType)(sct[55]))->stru[9].value.boolValue/*->o_3387_FLOAT_ZERO_DIV_ERROR*/) && /* line 311 "../lib/comp/flt_act.s7i" */ (o_5093_isActionExpression(rflIdx(*o_7962_params, 3L), &str[1011] /* "FLT_NEGATE" */)) && /* line 312 "../lib/comp/flt_act.s7i" */ ((refCategory(o_5098_getActionParameter(rflIdx(*o_7962_params, 3L), 2L))) == (25L)) && /* line 313 "../lib/comp/flt_act.s7i" */ (!(refIsVar(o_5098_getActionParameter(rflIdx(*o_7962_params, 3L), 2L)))) && /* line 314 "../lib/comp/flt_act.s7i" */ (0.0 == (fltValue(o_5098_getActionParameter(rflIdx(*o_7962_params, 3L), 2L))))) { /* line 315 "../lib/comp/flt_act.s7i" */ o_7953_process_const_flt_div(rflIdx(*o_7962_params, 1L), fltValue(prgEval(o_4739_prog, rflIdx(*o_7962_params, 3L))), o_7963_c_expr); } else /* line 316 "../lib/comp/flt_act.s7i" */ if ((((structType)(sct[55]))->stru[9].value.boolValue/*->o_3387_FLOAT_ZERO_DIV_ERROR*/) && /* line 316 "../lib/comp/flt_act.s7i" */ ((o_3457_evaluate_const_expr) == (0L)) && /* line 317 "../lib/comp/flt_act.s7i" */ ((refCategory(rflIdx(*o_7962_params, 3L))) == (25L)) && /* line 317 "../lib/comp/flt_act.s7i" */ (!(refIsVar(rflIdx(*o_7962_params, 3L)))) && /* line 318 "../lib/comp/flt_act.s7i" */ (0.0 == (fltValue(rflIdx(*o_7962_params, 3L))))) { /* line 319 "../lib/comp/flt_act.s7i" */ o_7953_process_const_flt_div(rflIdx(*o_7962_params, 1L), fltValue(prgEval(o_4739_prog, rflIdx(*o_7962_params, 3L))), o_7963_c_expr); } else /* line 320 "../lib/comp/flt_act.s7i" */ if (((structType)(sct[55]))->stru[15].value.boolValue/*->o_3393_CHECK_FLOAT_DIV_BY_ZERO*/) { /* line 321 "../lib/comp/flt_act.s7i" */ { /* line 321 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 321 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_7963_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 321 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 321 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 321 "../lib/comp/flt_act.s7i" */ } else { /* line 321 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 321 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 321 "../lib/comp/flt_act.s7i" */ } } { /* line 322 "../lib/comp/flt_act.s7i" */ striType old_stri=o_7965_dividend; /* line 322 "../lib/comp/flt_act.s7i" */ o_7965_dividend=o_5031_getParameterAsVariable(&str[103] /* "floatType" */, &str[282] /* "tmp_" */, rflIdx(*o_7962_params, 1L), o_7963_c_expr); /* line 322 "../lib/comp/flt_act.s7i" */ strDestr(old_stri); } { /* line 323 "../lib/comp/flt_act.s7i" */ striType old_stri=o_7966_divisor; /* line 323 "../lib/comp/flt_act.s7i" */ o_7966_divisor=o_5031_getParameterAsVariable(&str[103] /* "floatType" */, &str[282] /* "tmp_" */, rflIdx(*o_7962_params, 3L), o_7963_c_expr); /* line 323 "../lib/comp/flt_act.s7i" */ strDestr(old_stri); } /* line 324 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7963_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7966_divisor); /* line 325 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7963_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1012] /* "==0.0 ? (" */); /* line 326 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7963_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7965_dividend); /* line 327 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7963_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1006] /* "==0.0 || isnan(" */); /* line 328 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7963_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7965_dividend); /* line 329 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7963_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1013] /* ") ? NOT_A_NUMBER : ((" */); /* line 330 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7963_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7965_dividend); /* line 331 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7963_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1014] /* "<0.0)==fltIsNegativeZero(" */); /* line 332 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7963_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7966_divisor); /* line 333 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7963_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1015] /* ") ? POSITIVE_INFINITY : NEGATIVE_INFINITY)) : " */); /* line 334 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7963_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7965_dividend); /* line 335 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7963_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1016] /* " / " */); /* line 336 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7963_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_7966_divisor); /* line 337 "../lib/comp/flt_act.s7i" */ { /* line 337 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 337 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_7963_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 337 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 337 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 337 "../lib/comp/flt_act.s7i" */ } else { /* line 337 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 337 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 337 "../lib/comp/flt_act.s7i" */ } } } else { /* line 339 "../lib/comp/flt_act.s7i" */ { /* line 339 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 339 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_7963_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 339 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 339 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 339 "../lib/comp/flt_act.s7i" */ } else { /* line 339 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 339 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 339 "../lib/comp/flt_act.s7i" */ } } /* line 340 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7962_params, 1L), o_7963_c_expr); /* line 341 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7963_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1017] /* ") / (" */); /* line 342 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7962_params, 3L), o_7963_c_expr); /* line 343 "../lib/comp/flt_act.s7i" */ { /* line 343 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 343 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_7963_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 343 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 343 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 343 "../lib/comp/flt_act.s7i" */ } else { /* line 343 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 343 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 343 "../lib/comp/flt_act.s7i" */ } } } /* line 301 "../lib/comp/flt_act.s7i" */ strDestr(o_7965_dividend); /* line 301 "../lib/comp/flt_act.s7i" */ strDestr(o_7966_divisor); } /* line 1 "no_file" */ /* 4101 */ /* line 348 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_7967_process_const_flt_div_assign (const objRefType/*t_19_reference*/ o_7968_param1, const floatType/*t_65_float*/ o_7969_divisor, structType/*t_164_expr_type*/ *const o_7970_c_expr) { /* line 352 "../lib/comp/flt_act.s7i" */ structType/*t_164_expr_type*/ o_7971_statement; /* line 353 "../lib/comp/flt_act.s7i" */ intType/*t_14_integer*/ o_7972_temp_num=0; /* line 354 "../lib/comp/flt_act.s7i" */ striType/*t_15_string*/ o_7973_dividend; /* line 352 "../lib/comp/flt_act.s7i" */ o_7971_statement=create_164(sct[221]); /* line 354 "../lib/comp/flt_act.s7i" */ o_7973_dividend=strEmpty(); /* "" */ /* line 356 "../lib/comp/flt_act.s7i" */ ++(o_5107_countOptimizations); /* line 357 "../lib/comp/flt_act.s7i" */ if ((0.0 == (o_7969_divisor)) && /* line 357 "../lib/comp/flt_act.s7i" */ ((((structType)(sct[55]))->stru[9].value.boolValue/*->o_3387_FLOAT_ZERO_DIV_ERROR*/) || /* line 357 "../lib/comp/flt_act.s7i" */ (((structType)(sct[55]))->stru[15].value.boolValue/*->o_3393_CHECK_FLOAT_DIV_BY_ZERO*/))) { /* line 358 "../lib/comp/flt_act.s7i" */ if (o_5018_isNormalVariable(o_7968_param1)) { { /* line 359 "../lib/comp/flt_act.s7i" */ striType old_stri=o_7973_dividend; /* line 359 "../lib/comp/flt_act.s7i" */ o_7973_dividend=o_5020_normalVariable(o_7968_param1, &(o_7971_statement)); /* line 359 "../lib/comp/flt_act.s7i" */ strDestr(old_stri); } } else { /* line 361 "../lib/comp/flt_act.s7i" */ ++(((structType)(o_7971_statement))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 362 "../lib/comp/flt_act.s7i" */ union { /* line 362 "../lib/comp/flt_act.s7i" */ struct striStruct striBuf; /* line 362 "../lib/comp/flt_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 362 "../lib/comp/flt_act.s7i" */ } buffer_2; /* line 362 "../lib/comp/flt_act.s7i" */ striType old_stri=o_7973_dividend; /* line 362 "../lib/comp/flt_act.s7i" */ o_7973_dividend=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(o_7971_statement))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 362 "../lib/comp/flt_act.s7i" */ strDestr(old_stri); } /* line 363 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7971_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[1018] /* "floatType *" */); /* line 364 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7971_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_7973_dividend); /* line 365 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7971_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 366 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7971_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_7973_dividend); /* line 367 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7971_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[307] /* "=&(" */); /* line 368 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(o_7968_param1, &(o_7971_statement)); /* line 369 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7971_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); { /* line 370 "../lib/comp/flt_act.s7i" */ striType old_stri=o_7973_dividend; /* line 370 "../lib/comp/flt_act.s7i" */ o_7973_dividend=strConcat(&str[1019] /* "*" */, o_7973_dividend); /* line 370 "../lib/comp/flt_act.s7i" */ strDestr(old_stri); } } /* line 372 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7971_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_7973_dividend); /* line 373 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7971_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[287] /* "=(" */); /* line 374 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7971_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_7973_dividend); /* line 375 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7971_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1006] /* "==0.0 || isnan(" */); /* line 376 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7971_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_7973_dividend); /* line 377 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7971_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1007] /* ") ? NOT_A_NUMBER : (" */); /* line 378 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7971_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_7973_dividend); /* line 379 "../lib/comp/flt_act.s7i" */ if (fltIsNegativeZero(o_7969_divisor)) { /* line 380 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7971_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1020] /* "<0.0 ? POSITIVE_INFINITY : NEGATIVE_INFINITY));\n" */); } else { /* line 382 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7971_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1021] /* "<0.0 ? NEGATIVE_INFINITY : POSITIVE_INFINITY));\n" */); } /* line 384 "../lib/comp/flt_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_7971_statement, o_7970_c_expr); } else { /* line 386 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(o_7968_param1, &(o_7971_statement)); /* line 387 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7971_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1022] /* "/=" */); /* line 388 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(o_7971_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6511_floatLiteral(o_7969_divisor)); /* line 389 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7971_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 390 "../lib/comp/flt_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_7971_statement, o_7970_c_expr); } /* line 348 "../lib/comp/flt_act.s7i" */ destr_164(o_7971_statement); /* line 348 "../lib/comp/flt_act.s7i" */ strDestr(o_7973_dividend); } /* line 1 "no_file" */ /* 4102 */ /* line 395 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_7974_FLT_DIV_ASSIGN (const objRefType/*t_19_reference*/ o_7975_function, const listType/*t_20_ref_list*/ *const o_7976_params, structType/*t_164_expr_type*/ *const o_7977_c_expr) { /* line 399 "../lib/comp/flt_act.s7i" */ objRefType/*t_19_reference*/ o_7978_evaluatedParam=NULL; /* line 400 "../lib/comp/flt_act.s7i" */ structType/*t_164_expr_type*/ o_7979_statement; /* line 401 "../lib/comp/flt_act.s7i" */ striType/*t_15_string*/ o_7980_dividend; /* line 402 "../lib/comp/flt_act.s7i" */ striType/*t_15_string*/ o_7981_divisor; /* line 400 "../lib/comp/flt_act.s7i" */ o_7979_statement=create_164(sct[222]); /* line 401 "../lib/comp/flt_act.s7i" */ o_7980_dividend=strEmpty(); /* "" */ /* line 402 "../lib/comp/flt_act.s7i" */ o_7981_divisor=strEmpty(); /* "" */ /* line 404 "../lib/comp/flt_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_7976_params, 3L), 25L, &(o_7978_evaluatedParam))) { /* line 405 "../lib/comp/flt_act.s7i" */ o_7967_process_const_flt_div_assign(rflIdx(*o_7976_params, 1L), fltValue(o_7978_evaluatedParam), o_7977_c_expr); } else /* line 406 "../lib/comp/flt_act.s7i" */ if ((((structType)(sct[55]))->stru[9].value.boolValue/*->o_3387_FLOAT_ZERO_DIV_ERROR*/) && /* line 406 "../lib/comp/flt_act.s7i" */ (o_5093_isActionExpression(rflIdx(*o_7976_params, 3L), &str[1011] /* "FLT_NEGATE" */)) && /* line 407 "../lib/comp/flt_act.s7i" */ ((refCategory(o_5098_getActionParameter(rflIdx(*o_7976_params, 3L), 2L))) == (25L)) && /* line 408 "../lib/comp/flt_act.s7i" */ (!(refIsVar(o_5098_getActionParameter(rflIdx(*o_7976_params, 3L), 2L))))) { /* line 409 "../lib/comp/flt_act.s7i" */ o_7967_process_const_flt_div_assign(rflIdx(*o_7976_params, 1L), fltValue(prgEval(o_4739_prog, rflIdx(*o_7976_params, 3L))), o_7977_c_expr); } else /* line 410 "../lib/comp/flt_act.s7i" */ if (((structType)(sct[55]))->stru[15].value.boolValue/*->o_3393_CHECK_FLOAT_DIV_BY_ZERO*/) { /* line 411 "../lib/comp/flt_act.s7i" */ if (o_5018_isNormalVariable(rflIdx(*o_7976_params, 1L))) { { /* line 412 "../lib/comp/flt_act.s7i" */ striType old_stri=o_7980_dividend; /* line 412 "../lib/comp/flt_act.s7i" */ o_7980_dividend=o_5020_normalVariable(rflIdx(*o_7976_params, 1L), &(o_7979_statement)); /* line 412 "../lib/comp/flt_act.s7i" */ strDestr(old_stri); } } else { /* line 414 "../lib/comp/flt_act.s7i" */ ++(((structType)(o_7979_statement))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 415 "../lib/comp/flt_act.s7i" */ union { /* line 415 "../lib/comp/flt_act.s7i" */ struct striStruct striBuf; /* line 415 "../lib/comp/flt_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 415 "../lib/comp/flt_act.s7i" */ } buffer_2; /* line 415 "../lib/comp/flt_act.s7i" */ striType old_stri=o_7980_dividend; /* line 415 "../lib/comp/flt_act.s7i" */ o_7980_dividend=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(o_7979_statement))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 415 "../lib/comp/flt_act.s7i" */ strDestr(old_stri); } /* line 416 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[1018] /* "floatType *" */); /* line 417 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_7980_dividend); /* line 418 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 419 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_7980_dividend); /* line 420 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[307] /* "=&(" */); /* line 421 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7976_params, 1L), &(o_7979_statement)); /* line 422 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); { /* line 423 "../lib/comp/flt_act.s7i" */ striType old_stri=o_7980_dividend; /* line 423 "../lib/comp/flt_act.s7i" */ o_7980_dividend=strConcat(&str[1019] /* "*" */, o_7980_dividend); /* line 423 "../lib/comp/flt_act.s7i" */ strDestr(old_stri); } } /* line 425 "../lib/comp/flt_act.s7i" */ if (o_5018_isNormalVariable(rflIdx(*o_7976_params, 3L))) { { /* line 426 "../lib/comp/flt_act.s7i" */ striType old_stri=o_7981_divisor; /* line 426 "../lib/comp/flt_act.s7i" */ o_7981_divisor=o_5020_normalVariable(rflIdx(*o_7976_params, 3L), &(o_7979_statement)); /* line 426 "../lib/comp/flt_act.s7i" */ strDestr(old_stri); } } else { /* line 428 "../lib/comp/flt_act.s7i" */ ++(((structType)(o_7979_statement))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 429 "../lib/comp/flt_act.s7i" */ union { /* line 429 "../lib/comp/flt_act.s7i" */ struct striStruct striBuf; /* line 429 "../lib/comp/flt_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 429 "../lib/comp/flt_act.s7i" */ } buffer_2; /* line 429 "../lib/comp/flt_act.s7i" */ striType old_stri=o_7981_divisor; /* line 429 "../lib/comp/flt_act.s7i" */ o_7981_divisor=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(o_7979_statement))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 429 "../lib/comp/flt_act.s7i" */ strDestr(old_stri); } /* line 430 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[1023] /* "floatType " */); /* line 431 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_7981_divisor); /* line 432 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 433 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_7981_divisor); /* line 434 "../lib/comp/flt_act.s7i" */ { /* line 434 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 434 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(o_7979_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 434 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 434 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 434 "../lib/comp/flt_act.s7i" */ } else { /* line 434 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 434 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 434 "../lib/comp/flt_act.s7i" */ } } /* line 435 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7976_params, 3L), &(o_7979_statement)); /* line 436 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); } /* line 438 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_7980_dividend); /* line 439 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[287] /* "=(" */); /* line 440 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_7981_divisor); /* line 441 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1012] /* "==0.0 ? (" */); /* line 442 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_7980_dividend); /* line 443 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1006] /* "==0.0 || isnan(" */); /* line 444 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_7980_dividend); /* line 445 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1013] /* ") ? NOT_A_NUMBER : ((" */); /* line 446 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_7980_dividend); /* line 447 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1014] /* "<0.0)==fltIsNegativeZero(" */); /* line 448 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_7981_divisor); /* line 449 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1015] /* ") ? POSITIVE_INFINITY : NEGATIVE_INFINITY)) : " */); /* line 450 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_7980_dividend); /* line 451 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1016] /* " / " */); /* line 452 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_7981_divisor); /* line 453 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 454 "../lib/comp/flt_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_7979_statement, o_7977_c_expr); } else { /* line 456 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7976_params, 1L), &(o_7979_statement)); /* line 457 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1022] /* "/=" */); /* line 458 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7976_params, 3L), &(o_7979_statement)); /* line 459 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_7979_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 460 "../lib/comp/flt_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_7979_statement, o_7977_c_expr); } /* line 395 "../lib/comp/flt_act.s7i" */ destr_164(o_7979_statement); /* line 395 "../lib/comp/flt_act.s7i" */ strDestr(o_7980_dividend); /* line 395 "../lib/comp/flt_act.s7i" */ strDestr(o_7981_divisor); } /* line 1 "no_file" */ /* 4103 */ /* line 465 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_7982_process_const_flt_eq (const floatType/*t_65_float*/ o_7983_number, const objRefType/*t_19_reference*/ o_7984_param3, structType/*t_164_expr_type*/ *const o_7985_c_expr) { /* line 469 "../lib/comp/flt_act.s7i" */ objRefType/*t_19_reference*/ o_7986_evaluatedParam=NULL; /* line 470 "../lib/comp/flt_act.s7i" */ floatType/*t_65_float*/ o_7987_number2=0.0; /* line 472 "../lib/comp/flt_act.s7i" */ if (isnan(o_7983_number)) { /* line 473 "../lib/comp/flt_act.s7i" */ ++(o_5107_countOptimizations); /* line 474 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7985_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1024] /* "0/*NaN == anything*\/" */); } else /* line 475 "../lib/comp/flt_act.s7i" */ if (o_5154_getConstant(o_7984_param3, 25L, &(o_7986_evaluatedParam))) { /* line 476 "../lib/comp/flt_act.s7i" */ ++(o_5107_countOptimizations); /* line 477 "../lib/comp/flt_act.s7i" */ o_7987_number2=fltValue(o_7986_evaluatedParam); { /* line 478 "../lib/comp/flt_act.s7i" */ union { /* line 478 "../lib/comp/flt_act.s7i" */ struct striStruct striBuf; /* line 478 "../lib/comp/flt_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 478 "../lib/comp/flt_act.s7i" */ } buffer_1; /* line 478 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7985_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((intType)((o_7983_number) == (o_7987_number2)), &buffer_1.striBuf)); } /* line 479 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7985_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[190] /* "/*" */); /* line 480 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_7985_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), fltStr(o_7983_number)); /* line 481 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7985_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1025] /* " == " */); /* line 482 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_7985_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), fltStr(o_7987_number2)); /* line 483 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7985_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[123] /* "*\/" */); } else /* line 484 "../lib/comp/flt_act.s7i" */ if (((structType)(sct[55]))->stru[6].value.boolValue/*->o_3384_NAN_COMPARISON_WRONG*/) { /* line 485 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7985_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1026] /* "fltEq(" */); /* line 486 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_7985_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6511_floatLiteral(o_7983_number)); /* line 487 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7985_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 488 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(o_7984_param3, o_7985_c_expr); /* line 489 "../lib/comp/flt_act.s7i" */ { /* line 489 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 489 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_7985_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 489 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 489 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 489 "../lib/comp/flt_act.s7i" */ } else { /* line 489 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 489 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 489 "../lib/comp/flt_act.s7i" */ } } } else { /* line 491 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_7985_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6511_floatLiteral(o_7983_number)); /* line 492 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7985_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1027] /* " == (" */); /* line 493 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(o_7984_param3, o_7985_c_expr); /* line 494 "../lib/comp/flt_act.s7i" */ { /* line 494 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 494 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_7985_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 494 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 494 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 494 "../lib/comp/flt_act.s7i" */ } else { /* line 494 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 494 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 494 "../lib/comp/flt_act.s7i" */ } } } } /* line 1 "no_file" */ /* 4104 */ /* line 498 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_7988_FLT_EQ (const objRefType/*t_19_reference*/ o_7989_function, const listType/*t_20_ref_list*/ *const o_7990_params, structType/*t_164_expr_type*/ *const o_7991_c_expr) { /* line 502 "../lib/comp/flt_act.s7i" */ objRefType/*t_19_reference*/ o_7992_evaluatedParam=NULL; /* line 504 "../lib/comp/flt_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_7990_params, 1L), 25L, &(o_7992_evaluatedParam))) { /* line 505 "../lib/comp/flt_act.s7i" */ o_7982_process_const_flt_eq(fltValue(o_7992_evaluatedParam), rflIdx(*o_7990_params, 3L), o_7991_c_expr); } else /* line 506 "../lib/comp/flt_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_7990_params, 3L), 25L, &(o_7992_evaluatedParam))) { /* line 507 "../lib/comp/flt_act.s7i" */ o_7982_process_const_flt_eq(fltValue(o_7992_evaluatedParam), rflIdx(*o_7990_params, 1L), o_7991_c_expr); } else /* line 508 "../lib/comp/flt_act.s7i" */ if (((structType)(sct[55]))->stru[6].value.boolValue/*->o_3384_NAN_COMPARISON_WRONG*/) { /* line 509 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7991_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1026] /* "fltEq(" */); /* line 510 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7990_params, 1L), o_7991_c_expr); /* line 511 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7991_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 512 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7990_params, 3L), o_7991_c_expr); /* line 513 "../lib/comp/flt_act.s7i" */ { /* line 513 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 513 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_7991_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 513 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 513 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 513 "../lib/comp/flt_act.s7i" */ } else { /* line 513 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 513 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 513 "../lib/comp/flt_act.s7i" */ } } } else { /* line 515 "../lib/comp/flt_act.s7i" */ { /* line 515 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 515 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_7991_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 515 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 515 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 515 "../lib/comp/flt_act.s7i" */ } else { /* line 515 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 515 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 515 "../lib/comp/flt_act.s7i" */ } } /* line 516 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7990_params, 1L), o_7991_c_expr); /* line 517 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7991_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[350] /* ") == (" */); /* line 518 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7990_params, 3L), o_7991_c_expr); /* line 519 "../lib/comp/flt_act.s7i" */ { /* line 519 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 519 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_7991_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 519 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 519 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 519 "../lib/comp/flt_act.s7i" */ } else { /* line 519 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 519 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 519 "../lib/comp/flt_act.s7i" */ } } } } /* line 1 "no_file" */ /* 4105 */ /* line 524 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_7993_FLT_EXP (const objRefType/*t_19_reference*/ o_7994_function, const listType/*t_20_ref_list*/ *const o_7995_params, structType/*t_164_expr_type*/ *const o_7996_c_expr) { /* line 528 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_7996_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1028] /* "exp(" */); /* line 529 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7995_params, 1L), o_7996_c_expr); /* line 530 "../lib/comp/flt_act.s7i" */ { /* line 530 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 530 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_7996_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 530 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 530 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 530 "../lib/comp/flt_act.s7i" */ } else { /* line 530 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 530 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 530 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4106 */ /* line 534 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_7997_FLT_FLOOR (const objRefType/*t_19_reference*/ o_7998_function, const listType/*t_20_ref_list*/ *const o_7999_params, structType/*t_164_expr_type*/ *const o_8000_c_expr) { /* line 538 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8000_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1029] /* "floor(" */); /* line 539 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_7999_params, 1L), o_8000_c_expr); /* line 540 "../lib/comp/flt_act.s7i" */ { /* line 540 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 540 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8000_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 540 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 540 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 540 "../lib/comp/flt_act.s7i" */ } else { /* line 540 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 540 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 540 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4107 */ /* line 544 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8001_process_const_flt_ge (const floatType/*t_65_float*/ o_8002_number, const objRefType/*t_19_reference*/ o_8003_param3, structType/*t_164_expr_type*/ *const o_8004_c_expr) { /* line 548 "../lib/comp/flt_act.s7i" */ objRefType/*t_19_reference*/ o_8005_evaluatedParam=NULL; /* line 549 "../lib/comp/flt_act.s7i" */ floatType/*t_65_float*/ o_8006_number2=0.0; /* line 551 "../lib/comp/flt_act.s7i" */ if (isnan(o_8002_number)) { /* line 552 "../lib/comp/flt_act.s7i" */ ++(o_5107_countOptimizations); /* line 553 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8004_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1030] /* "0/*NaN >= anything*\/" */); } else /* line 554 "../lib/comp/flt_act.s7i" */ if (o_5154_getConstant(o_8003_param3, 25L, &(o_8005_evaluatedParam))) { /* line 555 "../lib/comp/flt_act.s7i" */ ++(o_5107_countOptimizations); /* line 556 "../lib/comp/flt_act.s7i" */ o_8006_number2=fltValue(o_8005_evaluatedParam); { /* line 557 "../lib/comp/flt_act.s7i" */ union { /* line 557 "../lib/comp/flt_act.s7i" */ struct striStruct striBuf; /* line 557 "../lib/comp/flt_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 557 "../lib/comp/flt_act.s7i" */ } buffer_1; /* line 557 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8004_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((intType)((o_8002_number) >= (o_8006_number2)), &buffer_1.striBuf)); } /* line 558 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8004_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[190] /* "/*" */); /* line 559 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_8004_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), fltStr(o_8002_number)); /* line 560 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8004_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1031] /* " >= " */); /* line 561 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_8004_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), fltStr(o_8006_number2)); /* line 562 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8004_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[123] /* "*\/" */); } else /* line 563 "../lib/comp/flt_act.s7i" */ if (((structType)(sct[55]))->stru[6].value.boolValue/*->o_3384_NAN_COMPARISON_WRONG*/) { /* line 564 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8004_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1032] /* "fltGe(" */); /* line 565 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_8004_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6511_floatLiteral(o_8002_number)); /* line 566 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8004_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 567 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(o_8003_param3, o_8004_c_expr); /* line 568 "../lib/comp/flt_act.s7i" */ { /* line 568 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 568 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8004_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 568 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 568 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 568 "../lib/comp/flt_act.s7i" */ } else { /* line 568 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 568 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 568 "../lib/comp/flt_act.s7i" */ } } } else { /* line 570 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_8004_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6511_floatLiteral(o_8002_number)); /* line 571 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8004_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1033] /* " >= (" */); /* line 572 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(o_8003_param3, o_8004_c_expr); /* line 573 "../lib/comp/flt_act.s7i" */ { /* line 573 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 573 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8004_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 573 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 573 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 573 "../lib/comp/flt_act.s7i" */ } else { /* line 573 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 573 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 573 "../lib/comp/flt_act.s7i" */ } } } } /* line 1 "no_file" */ /* 4108 */ /* line 577 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8007_process_const_flt_ge (const objRefType/*t_19_reference*/ o_8008_param1, const floatType/*t_65_float*/ o_8009_number, structType/*t_164_expr_type*/ *const o_8010_c_expr) { /* line 581 "../lib/comp/flt_act.s7i" */ objRefType/*t_19_reference*/ o_8011_evaluatedParam=NULL; /* line 582 "../lib/comp/flt_act.s7i" */ floatType/*t_65_float*/ o_8012_number1=0.0; /* line 584 "../lib/comp/flt_act.s7i" */ if (isnan(o_8009_number)) { /* line 585 "../lib/comp/flt_act.s7i" */ ++(o_5107_countOptimizations); /* line 586 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8010_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1034] /* "0/*anything >= NaN*\/" */); } else /* line 587 "../lib/comp/flt_act.s7i" */ if (o_5154_getConstant(o_8008_param1, 25L, &(o_8011_evaluatedParam))) { /* line 588 "../lib/comp/flt_act.s7i" */ ++(o_5107_countOptimizations); /* line 589 "../lib/comp/flt_act.s7i" */ o_8012_number1=fltValue(o_8011_evaluatedParam); { /* line 590 "../lib/comp/flt_act.s7i" */ union { /* line 590 "../lib/comp/flt_act.s7i" */ struct striStruct striBuf; /* line 590 "../lib/comp/flt_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 590 "../lib/comp/flt_act.s7i" */ } buffer_1; /* line 590 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8010_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((intType)((o_8012_number1) >= (o_8009_number)), &buffer_1.striBuf)); } /* line 591 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8010_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[190] /* "/*" */); /* line 592 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_8010_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), fltStr(o_8012_number1)); /* line 593 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8010_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1031] /* " >= " */); /* line 594 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_8010_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), fltStr(o_8009_number)); /* line 595 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8010_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[123] /* "*\/" */); } else /* line 596 "../lib/comp/flt_act.s7i" */ if (((structType)(sct[55]))->stru[6].value.boolValue/*->o_3384_NAN_COMPARISON_WRONG*/) { /* line 597 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8010_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1032] /* "fltGe(" */); /* line 598 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(o_8008_param1, o_8010_c_expr); /* line 599 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8010_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 600 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_8010_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6511_floatLiteral(o_8009_number)); /* line 601 "../lib/comp/flt_act.s7i" */ { /* line 601 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 601 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8010_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 601 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 601 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 601 "../lib/comp/flt_act.s7i" */ } else { /* line 601 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 601 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 601 "../lib/comp/flt_act.s7i" */ } } } else { /* line 603 "../lib/comp/flt_act.s7i" */ { /* line 603 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 603 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8010_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 603 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 603 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 603 "../lib/comp/flt_act.s7i" */ } else { /* line 603 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 603 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 603 "../lib/comp/flt_act.s7i" */ } } /* line 604 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(o_8008_param1, o_8010_c_expr); /* line 605 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8010_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1035] /* ") >= " */); /* line 606 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_8010_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6511_floatLiteral(o_8009_number)); } } /* line 1 "no_file" */ /* 4109 */ /* line 610 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8013_FLT_GE (const objRefType/*t_19_reference*/ o_8014_function, const listType/*t_20_ref_list*/ *const o_8015_params, structType/*t_164_expr_type*/ *const o_8016_c_expr) { /* line 614 "../lib/comp/flt_act.s7i" */ objRefType/*t_19_reference*/ o_8017_evaluatedParam=NULL; /* line 616 "../lib/comp/flt_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8015_params, 1L), 25L, &(o_8017_evaluatedParam))) { /* line 617 "../lib/comp/flt_act.s7i" */ o_8001_process_const_flt_ge(fltValue(o_8017_evaluatedParam), rflIdx(*o_8015_params, 3L), o_8016_c_expr); } else /* line 618 "../lib/comp/flt_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8015_params, 3L), 25L, &(o_8017_evaluatedParam))) { /* line 619 "../lib/comp/flt_act.s7i" */ o_8007_process_const_flt_ge(rflIdx(*o_8015_params, 1L), fltValue(o_8017_evaluatedParam), o_8016_c_expr); } else /* line 620 "../lib/comp/flt_act.s7i" */ if (((structType)(sct[55]))->stru[6].value.boolValue/*->o_3384_NAN_COMPARISON_WRONG*/) { /* line 621 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8016_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1032] /* "fltGe(" */); /* line 622 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8015_params, 1L), o_8016_c_expr); /* line 623 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8016_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 624 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8015_params, 3L), o_8016_c_expr); /* line 625 "../lib/comp/flt_act.s7i" */ { /* line 625 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 625 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8016_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 625 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 625 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 625 "../lib/comp/flt_act.s7i" */ } else { /* line 625 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 625 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 625 "../lib/comp/flt_act.s7i" */ } } } else { /* line 627 "../lib/comp/flt_act.s7i" */ { /* line 627 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 627 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8016_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 627 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 627 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 627 "../lib/comp/flt_act.s7i" */ } else { /* line 627 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 627 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 627 "../lib/comp/flt_act.s7i" */ } } /* line 628 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8015_params, 1L), o_8016_c_expr); /* line 629 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8016_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[623] /* ") >= (" */); /* line 630 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8015_params, 3L), o_8016_c_expr); /* line 631 "../lib/comp/flt_act.s7i" */ { /* line 631 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 631 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8016_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 631 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 631 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 631 "../lib/comp/flt_act.s7i" */ } else { /* line 631 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 631 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 631 "../lib/comp/flt_act.s7i" */ } } } } /* line 1 "no_file" */ /* 4110 */ /* line 636 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8018_FLT_GROW (const objRefType/*t_19_reference*/ o_8019_function, const listType/*t_20_ref_list*/ *const o_8020_params, structType/*t_164_expr_type*/ *const o_8021_c_expr) { /* line 640 "../lib/comp/flt_act.s7i" */ structType/*t_164_expr_type*/ o_8022_statement; /* line 640 "../lib/comp/flt_act.s7i" */ o_8022_statement=create_164(sct[223]); /* line 642 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8020_params, 1L), &(o_8022_statement)); /* line 643 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_8022_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1036] /* "+=" */); /* line 644 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8020_params, 3L), &(o_8022_statement)); /* line 645 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_8022_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 646 "../lib/comp/flt_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8022_statement, o_8021_c_expr); /* line 636 "../lib/comp/flt_act.s7i" */ destr_164(o_8022_statement); } /* line 1 "no_file" */ /* 4111 */ /* line 650 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8023_FLT_GT (const objRefType/*t_19_reference*/ o_8024_function, const listType/*t_20_ref_list*/ *const o_8025_params, structType/*t_164_expr_type*/ *const o_8026_c_expr) { /* line 654 "../lib/comp/flt_act.s7i" */ if (((structType)(sct[55]))->stru[6].value.boolValue/*->o_3384_NAN_COMPARISON_WRONG*/) { /* line 655 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8026_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1037] /* "fltGt(" */); /* line 656 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8025_params, 1L), o_8026_c_expr); /* line 657 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8026_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 658 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8025_params, 3L), o_8026_c_expr); /* line 659 "../lib/comp/flt_act.s7i" */ { /* line 659 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 659 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8026_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 659 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 659 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 659 "../lib/comp/flt_act.s7i" */ } else { /* line 659 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 659 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 659 "../lib/comp/flt_act.s7i" */ } } } else { /* line 661 "../lib/comp/flt_act.s7i" */ { /* line 661 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 661 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8026_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 661 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 661 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 661 "../lib/comp/flt_act.s7i" */ } else { /* line 661 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 661 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 661 "../lib/comp/flt_act.s7i" */ } } /* line 662 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8025_params, 1L), o_8026_c_expr); /* line 663 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8026_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[624] /* ") > (" */); /* line 664 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8025_params, 3L), o_8026_c_expr); /* line 665 "../lib/comp/flt_act.s7i" */ { /* line 665 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 665 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8026_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 665 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 665 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 665 "../lib/comp/flt_act.s7i" */ } else { /* line 665 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 665 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 665 "../lib/comp/flt_act.s7i" */ } } } } /* line 1 "no_file" */ /* 4112 */ /* line 670 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8027_FLT_HASHCODE (const objRefType/*t_19_reference*/ o_8028_function, const listType/*t_20_ref_list*/ *const o_8029_params, structType/*t_164_expr_type*/ *const o_8030_c_expr) { /* line 674 "../lib/comp/flt_act.s7i" */ striType/*t_15_string*/ o_8031_temp_name; /* line 674 "../lib/comp/flt_act.s7i" */ o_8031_temp_name=strEmpty(); /* "" */ /* line 676 "../lib/comp/flt_act.s7i" */ ++(((structType)(*o_8030_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 677 "../lib/comp/flt_act.s7i" */ union { /* line 677 "../lib/comp/flt_act.s7i" */ struct striStruct striBuf; /* line 677 "../lib/comp/flt_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 677 "../lib/comp/flt_act.s7i" */ } buffer_2; /* line 677 "../lib/comp/flt_act.s7i" */ striType old_stri=o_8031_temp_name; /* line 677 "../lib/comp/flt_act.s7i" */ o_8031_temp_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_8030_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 677 "../lib/comp/flt_act.s7i" */ strDestr(old_stri); } /* line 678 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8030_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[304] /* "rtlValueUnion " */); /* line 679 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8030_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_8031_temp_name); /* line 680 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8030_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 681 "../lib/comp/flt_act.s7i" */ { /* line 681 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 681 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8030_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 681 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 681 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 681 "../lib/comp/flt_act.s7i" */ } else { /* line 681 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 681 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 681 "../lib/comp/flt_act.s7i" */ } } /* line 682 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8030_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8031_temp_name); /* line 683 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8030_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[305] /* ".floatValue=" */); /* line 684 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8029_params, 1L), o_8030_c_expr); /* line 685 "../lib/comp/flt_act.s7i" */ { /* line 685 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 685 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8030_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 685 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 685 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 685 "../lib/comp/flt_act.s7i" */ } else { /* line 685 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 685 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 685 "../lib/comp/flt_act.s7i" */ } } /* line 686 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8030_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8031_temp_name); /* line 687 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8030_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1000] /* ".intValue)" */); /* line 670 "../lib/comp/flt_act.s7i" */ strDestr(o_8031_temp_name); } /* line 1 "no_file" */ /* 4113 */ /* line 691 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8032_FLT_ICAST (const objRefType/*t_19_reference*/ o_8033_function, const listType/*t_20_ref_list*/ *const o_8034_params, structType/*t_164_expr_type*/ *const o_8035_c_expr) { /* line 695 "../lib/comp/flt_act.s7i" */ striType/*t_15_string*/ o_8036_temp_name; /* line 695 "../lib/comp/flt_act.s7i" */ o_8036_temp_name=strEmpty(); /* "" */ /* line 697 "../lib/comp/flt_act.s7i" */ ++(((structType)(*o_8035_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 698 "../lib/comp/flt_act.s7i" */ union { /* line 698 "../lib/comp/flt_act.s7i" */ struct striStruct striBuf; /* line 698 "../lib/comp/flt_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 698 "../lib/comp/flt_act.s7i" */ } buffer_2; /* line 698 "../lib/comp/flt_act.s7i" */ striType old_stri=o_8036_temp_name; /* line 698 "../lib/comp/flt_act.s7i" */ o_8036_temp_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_8035_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 698 "../lib/comp/flt_act.s7i" */ strDestr(old_stri); } /* line 699 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8035_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[304] /* "rtlValueUnion " */); /* line 700 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8035_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_8036_temp_name); /* line 701 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8035_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 702 "../lib/comp/flt_act.s7i" */ { /* line 702 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 702 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8035_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 702 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 702 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 702 "../lib/comp/flt_act.s7i" */ } else { /* line 702 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 702 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 702 "../lib/comp/flt_act.s7i" */ } } /* line 703 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8035_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8036_temp_name); /* line 704 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8035_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1038] /* ".intValue=" */); /* line 705 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8034_params, 3L), o_8035_c_expr); /* line 706 "../lib/comp/flt_act.s7i" */ { /* line 706 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 706 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8035_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 706 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 706 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 706 "../lib/comp/flt_act.s7i" */ } else { /* line 706 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 706 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 706 "../lib/comp/flt_act.s7i" */ } } /* line 707 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8035_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8036_temp_name); /* line 708 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8035_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1039] /* ".floatValue)" */); /* line 691 "../lib/comp/flt_act.s7i" */ strDestr(o_8036_temp_name); } /* line 1 "no_file" */ /* 4114 */ /* line 712 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8037_FLT_ICONV (const objRefType/*t_19_reference*/ o_8038_function, const listType/*t_20_ref_list*/ *const o_8039_params, structType/*t_164_expr_type*/ *const o_8040_c_expr) { /* line 716 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8040_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1040] /* "(floatType)(" */); /* line 717 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8039_params, 3L), o_8040_c_expr); /* line 718 "../lib/comp/flt_act.s7i" */ { /* line 718 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 718 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8040_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 718 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 718 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 718 "../lib/comp/flt_act.s7i" */ } else { /* line 718 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 718 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 718 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4115 */ /* line 722 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8041_FLT_IFLT (const objRefType/*t_19_reference*/ o_8042_function, const listType/*t_20_ref_list*/ *const o_8043_params, structType/*t_164_expr_type*/ *const o_8044_c_expr) { /* line 726 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8044_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1040] /* "(floatType)(" */); /* line 727 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8043_params, 1L), o_8044_c_expr); /* line 728 "../lib/comp/flt_act.s7i" */ { /* line 728 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 728 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8044_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 728 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 728 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 728 "../lib/comp/flt_act.s7i" */ } else { /* line 728 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 728 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 728 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4116 */ /* line 732 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8045_FLT_IPOW (const objRefType/*t_19_reference*/ o_8046_function, const listType/*t_20_ref_list*/ *const o_8047_params, structType/*t_164_expr_type*/ *const o_8048_c_expr) { /* line 736 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8048_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1041] /* "fltIPow(" */); /* line 737 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8047_params, 1L), o_8048_c_expr); /* line 738 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8048_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 739 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8047_params, 3L), o_8048_c_expr); /* line 740 "../lib/comp/flt_act.s7i" */ { /* line 740 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 740 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8048_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 740 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 740 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 740 "../lib/comp/flt_act.s7i" */ } else { /* line 740 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 740 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 740 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4117 */ /* line 744 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8049_FLT_ISNAN (const objRefType/*t_19_reference*/ o_8050_function, const listType/*t_20_ref_list*/ *const o_8051_params, structType/*t_164_expr_type*/ *const o_8052_c_expr) { /* line 748 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8052_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1042] /* "isnan(" */); /* line 749 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8051_params, 1L), o_8052_c_expr); /* line 750 "../lib/comp/flt_act.s7i" */ { /* line 750 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 750 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8052_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 750 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 750 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 750 "../lib/comp/flt_act.s7i" */ } else { /* line 750 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 750 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 750 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4118 */ /* line 754 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8053_FLT_ISNEGATIVEZERO (const objRefType/*t_19_reference*/ o_8054_function, const listType/*t_20_ref_list*/ *const o_8055_params, structType/*t_164_expr_type*/ *const o_8056_c_expr) { /* line 758 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8056_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1043] /* "fltIsNegativeZero(" */); /* line 759 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8055_params, 1L), o_8056_c_expr); /* line 760 "../lib/comp/flt_act.s7i" */ { /* line 760 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 760 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8056_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 760 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 760 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 760 "../lib/comp/flt_act.s7i" */ } else { /* line 760 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 760 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 760 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4119 */ /* line 764 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8057_process_const_flt_le (const floatType/*t_65_float*/ o_8058_number, const objRefType/*t_19_reference*/ o_8059_param3, structType/*t_164_expr_type*/ *const o_8060_c_expr) { /* line 768 "../lib/comp/flt_act.s7i" */ objRefType/*t_19_reference*/ o_8061_evaluatedParam=NULL; /* line 769 "../lib/comp/flt_act.s7i" */ floatType/*t_65_float*/ o_8062_number2=0.0; /* line 771 "../lib/comp/flt_act.s7i" */ if (isnan(o_8058_number)) { /* line 772 "../lib/comp/flt_act.s7i" */ ++(o_5107_countOptimizations); /* line 773 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1044] /* "0/*NaN <= anything*\/" */); } else /* line 774 "../lib/comp/flt_act.s7i" */ if (o_5154_getConstant(o_8059_param3, 25L, &(o_8061_evaluatedParam))) { /* line 775 "../lib/comp/flt_act.s7i" */ ++(o_5107_countOptimizations); /* line 776 "../lib/comp/flt_act.s7i" */ o_8062_number2=fltValue(o_8061_evaluatedParam); { /* line 777 "../lib/comp/flt_act.s7i" */ union { /* line 777 "../lib/comp/flt_act.s7i" */ struct striStruct striBuf; /* line 777 "../lib/comp/flt_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 777 "../lib/comp/flt_act.s7i" */ } buffer_1; /* line 777 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((intType)((o_8058_number) <= (o_8062_number2)), &buffer_1.striBuf)); } /* line 778 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[190] /* "/*" */); /* line 779 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_8060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), fltStr(o_8058_number)); /* line 780 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1045] /* " <= " */); /* line 781 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_8060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), fltStr(o_8062_number2)); /* line 782 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[123] /* "*\/" */); } else /* line 783 "../lib/comp/flt_act.s7i" */ if (((structType)(sct[55]))->stru[6].value.boolValue/*->o_3384_NAN_COMPARISON_WRONG*/) { /* line 784 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1046] /* "fltLe(" */); /* line 785 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_8060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6511_floatLiteral(o_8058_number)); /* line 786 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 787 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(o_8059_param3, o_8060_c_expr); /* line 788 "../lib/comp/flt_act.s7i" */ { /* line 788 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 788 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 788 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 788 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 788 "../lib/comp/flt_act.s7i" */ } else { /* line 788 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 788 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 788 "../lib/comp/flt_act.s7i" */ } } } else { /* line 790 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_8060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6511_floatLiteral(o_8058_number)); /* line 791 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1047] /* " <= (" */); /* line 792 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(o_8059_param3, o_8060_c_expr); /* line 793 "../lib/comp/flt_act.s7i" */ { /* line 793 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 793 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 793 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 793 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 793 "../lib/comp/flt_act.s7i" */ } else { /* line 793 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 793 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 793 "../lib/comp/flt_act.s7i" */ } } } } /* line 1 "no_file" */ /* 4120 */ /* line 798 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8063_process_const_flt_le (const objRefType/*t_19_reference*/ o_8064_param1, const floatType/*t_65_float*/ o_8065_number, structType/*t_164_expr_type*/ *const o_8066_c_expr) { /* line 802 "../lib/comp/flt_act.s7i" */ objRefType/*t_19_reference*/ o_8067_evaluatedParam=NULL; /* line 803 "../lib/comp/flt_act.s7i" */ floatType/*t_65_float*/ o_8068_number1=0.0; /* line 805 "../lib/comp/flt_act.s7i" */ if (isnan(o_8065_number)) { /* line 806 "../lib/comp/flt_act.s7i" */ ++(o_5107_countOptimizations); /* line 807 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8066_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1048] /* "0/*anything <= NaN*\/" */); } else /* line 808 "../lib/comp/flt_act.s7i" */ if (o_5154_getConstant(o_8064_param1, 25L, &(o_8067_evaluatedParam))) { /* line 809 "../lib/comp/flt_act.s7i" */ ++(o_5107_countOptimizations); /* line 810 "../lib/comp/flt_act.s7i" */ o_8068_number1=fltValue(o_8067_evaluatedParam); { /* line 811 "../lib/comp/flt_act.s7i" */ union { /* line 811 "../lib/comp/flt_act.s7i" */ struct striStruct striBuf; /* line 811 "../lib/comp/flt_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 811 "../lib/comp/flt_act.s7i" */ } buffer_1; /* line 811 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8066_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((intType)((o_8068_number1) <= (o_8065_number)), &buffer_1.striBuf)); } /* line 812 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8066_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[190] /* "/*" */); /* line 813 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_8066_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), fltStr(o_8068_number1)); /* line 814 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8066_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1045] /* " <= " */); /* line 815 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_8066_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), fltStr(o_8065_number)); /* line 816 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8066_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[123] /* "*\/" */); } else /* line 817 "../lib/comp/flt_act.s7i" */ if (((structType)(sct[55]))->stru[6].value.boolValue/*->o_3384_NAN_COMPARISON_WRONG*/) { /* line 818 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8066_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1046] /* "fltLe(" */); /* line 819 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(o_8064_param1, o_8066_c_expr); /* line 820 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8066_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 821 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_8066_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6511_floatLiteral(o_8065_number)); /* line 822 "../lib/comp/flt_act.s7i" */ { /* line 822 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 822 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8066_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 822 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 822 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 822 "../lib/comp/flt_act.s7i" */ } else { /* line 822 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 822 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 822 "../lib/comp/flt_act.s7i" */ } } } else { /* line 824 "../lib/comp/flt_act.s7i" */ { /* line 824 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 824 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8066_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 824 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 824 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 824 "../lib/comp/flt_act.s7i" */ } else { /* line 824 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 824 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 824 "../lib/comp/flt_act.s7i" */ } } /* line 825 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(o_8064_param1, o_8066_c_expr); /* line 826 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8066_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1049] /* ") <= " */); /* line 827 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_8066_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6511_floatLiteral(o_8065_number)); } } /* line 1 "no_file" */ /* 4121 */ /* line 832 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8069_FLT_LE (const objRefType/*t_19_reference*/ o_8070_function, const listType/*t_20_ref_list*/ *const o_8071_params, structType/*t_164_expr_type*/ *const o_8072_c_expr) { /* line 836 "../lib/comp/flt_act.s7i" */ objRefType/*t_19_reference*/ o_8073_evaluatedParam=NULL; /* line 838 "../lib/comp/flt_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8071_params, 1L), 25L, &(o_8073_evaluatedParam))) { /* line 839 "../lib/comp/flt_act.s7i" */ o_8057_process_const_flt_le(fltValue(o_8073_evaluatedParam), rflIdx(*o_8071_params, 3L), o_8072_c_expr); } else /* line 840 "../lib/comp/flt_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8071_params, 3L), 25L, &(o_8073_evaluatedParam))) { /* line 841 "../lib/comp/flt_act.s7i" */ o_8063_process_const_flt_le(rflIdx(*o_8071_params, 1L), fltValue(o_8073_evaluatedParam), o_8072_c_expr); } else /* line 842 "../lib/comp/flt_act.s7i" */ if (((structType)(sct[55]))->stru[6].value.boolValue/*->o_3384_NAN_COMPARISON_WRONG*/) { /* line 843 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8072_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1046] /* "fltLe(" */); /* line 844 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8071_params, 1L), o_8072_c_expr); /* line 845 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8072_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 846 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8071_params, 3L), o_8072_c_expr); /* line 847 "../lib/comp/flt_act.s7i" */ { /* line 847 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 847 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8072_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 847 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 847 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 847 "../lib/comp/flt_act.s7i" */ } else { /* line 847 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 847 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 847 "../lib/comp/flt_act.s7i" */ } } } else { /* line 849 "../lib/comp/flt_act.s7i" */ { /* line 849 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 849 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8072_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 849 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 849 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 849 "../lib/comp/flt_act.s7i" */ } else { /* line 849 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 849 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 849 "../lib/comp/flt_act.s7i" */ } } /* line 850 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8071_params, 1L), o_8072_c_expr); /* line 851 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8072_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[626] /* ") <= (" */); /* line 852 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8071_params, 3L), o_8072_c_expr); /* line 853 "../lib/comp/flt_act.s7i" */ { /* line 853 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 853 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8072_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 853 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 853 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 853 "../lib/comp/flt_act.s7i" */ } else { /* line 853 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 853 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 853 "../lib/comp/flt_act.s7i" */ } } } } /* line 1 "no_file" */ /* 4122 */ /* line 858 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8074_FLT_LOG (const objRefType/*t_19_reference*/ o_8075_function, const listType/*t_20_ref_list*/ *const o_8076_params, structType/*t_164_expr_type*/ *const o_8077_c_expr) { /* line 862 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8077_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1050] /* "log(" */); /* line 863 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8076_params, 1L), o_8077_c_expr); /* line 864 "../lib/comp/flt_act.s7i" */ { /* line 864 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 864 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8077_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 864 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 864 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 864 "../lib/comp/flt_act.s7i" */ } else { /* line 864 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 864 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 864 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4123 */ /* line 868 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8078_FLT_LOG10 (const objRefType/*t_19_reference*/ o_8079_function, const listType/*t_20_ref_list*/ *const o_8080_params, structType/*t_164_expr_type*/ *const o_8081_c_expr) { /* line 872 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8081_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1051] /* "log10(" */); /* line 873 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8080_params, 1L), o_8081_c_expr); /* line 874 "../lib/comp/flt_act.s7i" */ { /* line 874 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 874 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8081_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 874 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 874 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 874 "../lib/comp/flt_act.s7i" */ } else { /* line 874 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 874 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 874 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4124 */ /* line 878 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8082_FLT_LT (const objRefType/*t_19_reference*/ o_8083_function, const listType/*t_20_ref_list*/ *const o_8084_params, structType/*t_164_expr_type*/ *const o_8085_c_expr) { /* line 882 "../lib/comp/flt_act.s7i" */ if (((structType)(sct[55]))->stru[6].value.boolValue/*->o_3384_NAN_COMPARISON_WRONG*/) { /* line 883 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1052] /* "fltLt(" */); /* line 884 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8084_params, 1L), o_8085_c_expr); /* line 885 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 886 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8084_params, 3L), o_8085_c_expr); /* line 887 "../lib/comp/flt_act.s7i" */ { /* line 887 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 887 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 887 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 887 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 887 "../lib/comp/flt_act.s7i" */ } else { /* line 887 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 887 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 887 "../lib/comp/flt_act.s7i" */ } } } else { /* line 889 "../lib/comp/flt_act.s7i" */ { /* line 889 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 889 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 889 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 889 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 889 "../lib/comp/flt_act.s7i" */ } else { /* line 889 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 889 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 889 "../lib/comp/flt_act.s7i" */ } } /* line 890 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8084_params, 1L), o_8085_c_expr); /* line 891 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[627] /* ") < (" */); /* line 892 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8084_params, 3L), o_8085_c_expr); /* line 893 "../lib/comp/flt_act.s7i" */ { /* line 893 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 893 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 893 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 893 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 893 "../lib/comp/flt_act.s7i" */ } else { /* line 893 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 893 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 893 "../lib/comp/flt_act.s7i" */ } } } } /* line 1 "no_file" */ /* 4125 */ /* line 898 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8086_FLT_MULT (const objRefType/*t_19_reference*/ o_8087_function, const listType/*t_20_ref_list*/ *const o_8088_params, structType/*t_164_expr_type*/ *const o_8089_c_expr) { /* line 902 "../lib/comp/flt_act.s7i" */ { /* line 902 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 902 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8089_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 902 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 902 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 902 "../lib/comp/flt_act.s7i" */ } else { /* line 902 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 902 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 902 "../lib/comp/flt_act.s7i" */ } } /* line 903 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8088_params, 1L), o_8089_c_expr); /* line 904 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8089_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1053] /* ") * (" */); /* line 905 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8088_params, 3L), o_8089_c_expr); /* line 906 "../lib/comp/flt_act.s7i" */ { /* line 906 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 906 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8089_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 906 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 906 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 906 "../lib/comp/flt_act.s7i" */ } else { /* line 906 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 906 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 906 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4126 */ /* line 910 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8090_FLT_MULT_ASSIGN (const objRefType/*t_19_reference*/ o_8091_function, const listType/*t_20_ref_list*/ *const o_8092_params, structType/*t_164_expr_type*/ *const o_8093_c_expr) { /* line 914 "../lib/comp/flt_act.s7i" */ structType/*t_164_expr_type*/ o_8094_statement; /* line 914 "../lib/comp/flt_act.s7i" */ o_8094_statement=create_164(sct[224]); /* line 916 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8092_params, 1L), &(o_8094_statement)); /* line 917 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_8094_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1054] /* "*=" */); /* line 918 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8092_params, 3L), &(o_8094_statement)); /* line 919 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_8094_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 920 "../lib/comp/flt_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8094_statement, o_8093_c_expr); /* line 910 "../lib/comp/flt_act.s7i" */ destr_164(o_8094_statement); } /* line 1 "no_file" */ /* 4127 */ /* line 924 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8095_process_const_flt_ne (const floatType/*t_65_float*/ o_8096_number, const objRefType/*t_19_reference*/ o_8097_param3, structType/*t_164_expr_type*/ *const o_8098_c_expr) { /* line 928 "../lib/comp/flt_act.s7i" */ objRefType/*t_19_reference*/ o_8099_evaluatedParam=NULL; /* line 929 "../lib/comp/flt_act.s7i" */ floatType/*t_65_float*/ o_8100_number2=0.0; /* line 931 "../lib/comp/flt_act.s7i" */ if (isnan(o_8096_number)) { /* line 932 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8098_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1055] /* "1/*NaN != anything*\/" */); } else /* line 933 "../lib/comp/flt_act.s7i" */ if (o_5154_getConstant(o_8097_param3, 25L, &(o_8099_evaluatedParam))) { /* line 934 "../lib/comp/flt_act.s7i" */ ++(o_5107_countOptimizations); /* line 935 "../lib/comp/flt_act.s7i" */ o_8100_number2=fltValue(o_8099_evaluatedParam); { /* line 936 "../lib/comp/flt_act.s7i" */ union { /* line 936 "../lib/comp/flt_act.s7i" */ struct striStruct striBuf; /* line 936 "../lib/comp/flt_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 936 "../lib/comp/flt_act.s7i" */ } buffer_1; /* line 936 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8098_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((intType)((o_8096_number) != (o_8100_number2)), &buffer_1.striBuf)); } /* line 937 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8098_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[190] /* "/*" */); /* line 938 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_8098_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), fltStr(o_8096_number)); /* line 939 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8098_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1056] /* " != " */); /* line 940 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_8098_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), fltStr(o_8100_number2)); /* line 941 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8098_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[123] /* "*\/" */); } else /* line 942 "../lib/comp/flt_act.s7i" */ if (((structType)(sct[55]))->stru[6].value.boolValue/*->o_3384_NAN_COMPARISON_WRONG*/) { /* line 943 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8098_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1057] /* "!fltEq(" */); /* line 944 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_8098_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6511_floatLiteral(o_8096_number)); /* line 945 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8098_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 946 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(o_8097_param3, o_8098_c_expr); /* line 947 "../lib/comp/flt_act.s7i" */ { /* line 947 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 947 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8098_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 947 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 947 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 947 "../lib/comp/flt_act.s7i" */ } else { /* line 947 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 947 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 947 "../lib/comp/flt_act.s7i" */ } } } else { /* line 949 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_8098_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6511_floatLiteral(o_8096_number)); /* line 950 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8098_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1058] /* " != (" */); /* line 951 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(o_8097_param3, o_8098_c_expr); /* line 952 "../lib/comp/flt_act.s7i" */ { /* line 952 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 952 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8098_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 952 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 952 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 952 "../lib/comp/flt_act.s7i" */ } else { /* line 952 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 952 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 952 "../lib/comp/flt_act.s7i" */ } } } } /* line 1 "no_file" */ /* 4128 */ /* line 956 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8101_FLT_NE (const objRefType/*t_19_reference*/ o_8102_function, const listType/*t_20_ref_list*/ *const o_8103_params, structType/*t_164_expr_type*/ *const o_8104_c_expr) { /* line 960 "../lib/comp/flt_act.s7i" */ objRefType/*t_19_reference*/ o_8105_evaluatedParam=NULL; /* line 962 "../lib/comp/flt_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8103_params, 1L), 25L, &(o_8105_evaluatedParam))) { /* line 963 "../lib/comp/flt_act.s7i" */ o_8095_process_const_flt_ne(fltValue(o_8105_evaluatedParam), rflIdx(*o_8103_params, 3L), o_8104_c_expr); } else /* line 964 "../lib/comp/flt_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8103_params, 3L), 25L, &(o_8105_evaluatedParam))) { /* line 965 "../lib/comp/flt_act.s7i" */ o_8095_process_const_flt_ne(fltValue(o_8105_evaluatedParam), rflIdx(*o_8103_params, 1L), o_8104_c_expr); } else /* line 966 "../lib/comp/flt_act.s7i" */ if (((structType)(sct[55]))->stru[6].value.boolValue/*->o_3384_NAN_COMPARISON_WRONG*/) { /* line 967 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8104_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1057] /* "!fltEq(" */); /* line 968 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8103_params, 1L), o_8104_c_expr); /* line 969 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8104_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 970 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8103_params, 3L), o_8104_c_expr); /* line 971 "../lib/comp/flt_act.s7i" */ { /* line 971 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 971 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8104_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 971 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 971 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 971 "../lib/comp/flt_act.s7i" */ } else { /* line 971 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 971 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 971 "../lib/comp/flt_act.s7i" */ } } } else { /* line 973 "../lib/comp/flt_act.s7i" */ { /* line 973 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 973 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8104_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 973 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 973 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 973 "../lib/comp/flt_act.s7i" */ } else { /* line 973 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 973 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 973 "../lib/comp/flt_act.s7i" */ } } /* line 974 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8103_params, 1L), o_8104_c_expr); /* line 975 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8104_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[352] /* ") != (" */); /* line 976 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8103_params, 3L), o_8104_c_expr); /* line 977 "../lib/comp/flt_act.s7i" */ { /* line 977 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 977 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8104_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 977 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 977 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 977 "../lib/comp/flt_act.s7i" */ } else { /* line 977 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 977 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 977 "../lib/comp/flt_act.s7i" */ } } } } /* line 1 "no_file" */ /* 4129 */ /* line 982 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8106_FLT_NEGATE (const objRefType/*t_19_reference*/ o_8107_function, const listType/*t_20_ref_list*/ *const o_8108_params, structType/*t_164_expr_type*/ *const o_8109_c_expr) { /* line 986 "../lib/comp/flt_act.s7i" */ objRefType/*t_19_reference*/ o_8110_evaluatedParam=NULL; /* line 988 "../lib/comp/flt_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8108_params, 2L), 25L, &(o_8110_evaluatedParam))) { /* line 989 "../lib/comp/flt_act.s7i" */ ++(o_5107_countOptimizations); /* line 990 "../lib/comp/flt_act.s7i" */ strAppendTemp(&(((structType)(*o_8109_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6511_floatLiteral(-(fltValue(o_8110_evaluatedParam)))); } else { /* line 992 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8109_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1059] /* "-(" */); /* line 993 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8108_params, 2L), o_8109_c_expr); /* line 994 "../lib/comp/flt_act.s7i" */ { /* line 994 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 994 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8109_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 994 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 994 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 994 "../lib/comp/flt_act.s7i" */ } else { /* line 994 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 994 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 994 "../lib/comp/flt_act.s7i" */ } } } } /* line 1 "no_file" */ /* 4130 */ /* line 999 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8111_FLT_PARSE (const objRefType/*t_19_reference*/ o_8112_function, const listType/*t_20_ref_list*/ *const o_8113_params, structType/*t_164_expr_type*/ *const o_8114_c_expr) { /* line 1003 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8114_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1060] /* "fltParse(" */); /* line 1004 "../lib/comp/flt_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_8113_params, 3L), o_8114_c_expr); /* line 1005 "../lib/comp/flt_act.s7i" */ { /* line 1005 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 1005 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8114_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1005 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1005 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1005 "../lib/comp/flt_act.s7i" */ } else { /* line 1005 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1005 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 1005 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4131 */ /* line 1009 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8115_FLT_PLUS (const objRefType/*t_19_reference*/ o_8116_function, const listType/*t_20_ref_list*/ *const o_8117_params, structType/*t_164_expr_type*/ *const o_8118_c_expr) { /* line 1013 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8117_params, 2L), o_8118_c_expr); } /* line 1 "no_file" */ /* 4132 */ /* line 1017 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8119_FLT_POW (const objRefType/*t_19_reference*/ o_8120_function, const listType/*t_20_ref_list*/ *const o_8121_params, structType/*t_164_expr_type*/ *const o_8122_c_expr) { /* line 1021 "../lib/comp/flt_act.s7i" */ if (((structType)(sct[55]))->stru[7].value.boolValue/*->o_3385_POWER_OF_ZERO_WRONG*/) { /* line 1022 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8122_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1061] /* "fltPow(" */); } else { /* line 1024 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8122_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1062] /* "pow(" */); } /* line 1026 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8121_params, 1L), o_8122_c_expr); /* line 1027 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8122_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 1028 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8121_params, 3L), o_8122_c_expr); /* line 1029 "../lib/comp/flt_act.s7i" */ { /* line 1029 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 1029 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8122_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1029 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1029 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1029 "../lib/comp/flt_act.s7i" */ } else { /* line 1029 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1029 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 1029 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4133 */ /* line 1033 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8123_FLT_RAND (const objRefType/*t_19_reference*/ o_8124_function, const listType/*t_20_ref_list*/ *const o_8125_params, structType/*t_164_expr_type*/ *const o_8126_c_expr) { /* line 1037 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8126_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1063] /* "fltRand(" */); /* line 1038 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8125_params, 1L), o_8126_c_expr); /* line 1039 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8126_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 1040 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8125_params, 2L), o_8126_c_expr); /* line 1041 "../lib/comp/flt_act.s7i" */ { /* line 1041 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 1041 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8126_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1041 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1041 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1041 "../lib/comp/flt_act.s7i" */ } else { /* line 1041 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1041 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 1041 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4134 */ /* line 1045 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8127_FLT_ROUND (const objRefType/*t_19_reference*/ o_8128_function, const listType/*t_20_ref_list*/ *const o_8129_params, structType/*t_164_expr_type*/ *const o_8130_c_expr) { /* line 1049 "../lib/comp/flt_act.s7i" */ striType/*t_15_string*/ o_8131_temp_name; /* line 1049 "../lib/comp/flt_act.s7i" */ o_8131_temp_name=strEmpty(); /* "" */ /* line 1051 "../lib/comp/flt_act.s7i" */ { /* line 1051 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 1051 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8130_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1051 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1051 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1051 "../lib/comp/flt_act.s7i" */ } else { /* line 1051 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1051 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 1051 "../lib/comp/flt_act.s7i" */ } } { /* line 1052 "../lib/comp/flt_act.s7i" */ striType old_stri=o_8131_temp_name; /* line 1052 "../lib/comp/flt_act.s7i" */ o_8131_temp_name=o_5031_getParameterAsVariable(&str[103] /* "floatType" */, &str[655] /* "tmp_a_" */, rflIdx(*o_8129_params, 1L), o_8130_c_expr); /* line 1052 "../lib/comp/flt_act.s7i" */ strDestr(old_stri); } /* line 1054 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8130_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8131_temp_name); /* line 1055 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8130_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1064] /* "<0.0?-((intType)(0.5-" */); /* line 1056 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8130_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8131_temp_name); /* line 1057 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8130_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1065] /* ")):(intType)(0.5+" */); /* line 1058 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8130_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8131_temp_name); /* line 1059 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8130_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); /* line 1045 "../lib/comp/flt_act.s7i" */ strDestr(o_8131_temp_name); } /* line 1 "no_file" */ /* 4135 */ /* line 1063 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8132_FLT_SBTR (const objRefType/*t_19_reference*/ o_8133_function, const listType/*t_20_ref_list*/ *const o_8134_params, structType/*t_164_expr_type*/ *const o_8135_c_expr) { /* line 1067 "../lib/comp/flt_act.s7i" */ { /* line 1067 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 1067 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8135_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1067 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1067 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1067 "../lib/comp/flt_act.s7i" */ } else { /* line 1067 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1067 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 1067 "../lib/comp/flt_act.s7i" */ } } /* line 1068 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8134_params, 1L), o_8135_c_expr); /* line 1069 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8135_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1066] /* ") - (" */); /* line 1070 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8134_params, 3L), o_8135_c_expr); /* line 1071 "../lib/comp/flt_act.s7i" */ { /* line 1071 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 1071 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8135_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1071 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1071 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1071 "../lib/comp/flt_act.s7i" */ } else { /* line 1071 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1071 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 1071 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4136 */ /* line 1075 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8136_FLT_SCI (const objRefType/*t_19_reference*/ o_8137_function, const listType/*t_20_ref_list*/ *const o_8138_params, structType/*t_164_expr_type*/ *const o_8139_c_expr) { /* line 1079 "../lib/comp/flt_act.s7i" */ o_4955_prepare_stri_result(o_8139_c_expr); /* line 1080 "../lib/comp/flt_act.s7i" */ strCopy(&(((structType)(*o_8139_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1067] /* "fltSci(" */); /* line 1081 "../lib/comp/flt_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_8138_params, 1L), o_8139_c_expr); /* line 1082 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8139_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1083 "../lib/comp/flt_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_8138_params, 3L), o_8139_c_expr); /* line 1084 "../lib/comp/flt_act.s7i" */ { /* line 1084 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 1084 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8139_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1084 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1084 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1084 "../lib/comp/flt_act.s7i" */ } else { /* line 1084 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1084 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 1084 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4137 */ /* line 1088 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8140_FLT_SHRINK (const objRefType/*t_19_reference*/ o_8141_function, const listType/*t_20_ref_list*/ *const o_8142_params, structType/*t_164_expr_type*/ *const o_8143_c_expr) { /* line 1092 "../lib/comp/flt_act.s7i" */ structType/*t_164_expr_type*/ o_8144_statement; /* line 1092 "../lib/comp/flt_act.s7i" */ o_8144_statement=create_164(sct[225]); /* line 1094 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8142_params, 1L), &(o_8144_statement)); /* line 1095 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_8144_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1068] /* "-=" */); /* line 1096 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8142_params, 3L), &(o_8144_statement)); /* line 1097 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(o_8144_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 1098 "../lib/comp/flt_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8144_statement, o_8143_c_expr); /* line 1088 "../lib/comp/flt_act.s7i" */ destr_164(o_8144_statement); } /* line 1 "no_file" */ /* 4138 */ /* line 1102 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8145_FLT_SIN (const objRefType/*t_19_reference*/ o_8146_function, const listType/*t_20_ref_list*/ *const o_8147_params, structType/*t_164_expr_type*/ *const o_8148_c_expr) { /* line 1106 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8148_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1069] /* "sin(" */); /* line 1107 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8147_params, 1L), o_8148_c_expr); /* line 1108 "../lib/comp/flt_act.s7i" */ { /* line 1108 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 1108 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8148_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1108 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1108 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1108 "../lib/comp/flt_act.s7i" */ } else { /* line 1108 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1108 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 1108 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4139 */ /* line 1112 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8149_FLT_SINH (const objRefType/*t_19_reference*/ o_8150_function, const listType/*t_20_ref_list*/ *const o_8151_params, structType/*t_164_expr_type*/ *const o_8152_c_expr) { /* line 1116 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1070] /* "sinh(" */); /* line 1117 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8151_params, 1L), o_8152_c_expr); /* line 1118 "../lib/comp/flt_act.s7i" */ { /* line 1118 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 1118 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1118 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1118 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1118 "../lib/comp/flt_act.s7i" */ } else { /* line 1118 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1118 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 1118 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4140 */ /* line 1122 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8153_FLT_SQRT (const objRefType/*t_19_reference*/ o_8154_function, const listType/*t_20_ref_list*/ *const o_8155_params, structType/*t_164_expr_type*/ *const o_8156_c_expr) { /* line 1126 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8156_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1071] /* "sqrt(" */); /* line 1127 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8155_params, 1L), o_8156_c_expr); /* line 1128 "../lib/comp/flt_act.s7i" */ { /* line 1128 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 1128 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8156_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1128 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1128 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1128 "../lib/comp/flt_act.s7i" */ } else { /* line 1128 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1128 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 1128 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4141 */ /* line 1132 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8157_FLT_STR (const objRefType/*t_19_reference*/ o_8158_function, const listType/*t_20_ref_list*/ *const o_8159_params, structType/*t_164_expr_type*/ *const o_8160_c_expr) { /* line 1136 "../lib/comp/flt_act.s7i" */ o_4955_prepare_stri_result(o_8160_c_expr); /* line 1137 "../lib/comp/flt_act.s7i" */ strCopy(&(((structType)(*o_8160_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1072] /* "fltStr(" */); /* line 1138 "../lib/comp/flt_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_8159_params, 1L), o_8160_c_expr); /* line 1139 "../lib/comp/flt_act.s7i" */ { /* line 1139 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 1139 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8160_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1139 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1139 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1139 "../lib/comp/flt_act.s7i" */ } else { /* line 1139 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1139 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 1139 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4142 */ /* line 1143 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8161_FLT_TAN (const objRefType/*t_19_reference*/ o_8162_function, const listType/*t_20_ref_list*/ *const o_8163_params, structType/*t_164_expr_type*/ *const o_8164_c_expr) { /* line 1147 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8164_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1073] /* "tan(" */); /* line 1148 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8163_params, 1L), o_8164_c_expr); /* line 1149 "../lib/comp/flt_act.s7i" */ { /* line 1149 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 1149 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8164_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1149 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1149 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1149 "../lib/comp/flt_act.s7i" */ } else { /* line 1149 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1149 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 1149 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4143 */ /* line 1153 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8165_FLT_TANH (const objRefType/*t_19_reference*/ o_8166_function, const listType/*t_20_ref_list*/ *const o_8167_params, structType/*t_164_expr_type*/ *const o_8168_c_expr) { /* line 1157 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8168_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1074] /* "tanh(" */); /* line 1158 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8167_params, 1L), o_8168_c_expr); /* line 1159 "../lib/comp/flt_act.s7i" */ { /* line 1159 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 1159 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8168_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1159 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1159 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1159 "../lib/comp/flt_act.s7i" */ } else { /* line 1159 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1159 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 1159 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4144 */ /* line 1163 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8169_FLT_TRUNC (const objRefType/*t_19_reference*/ o_8170_function, const listType/*t_20_ref_list*/ *const o_8171_params, structType/*t_164_expr_type*/ *const o_8172_c_expr) { /* line 1167 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8172_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[631] /* "(intType)(" */); /* line 1168 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8171_params, 1L), o_8172_c_expr); /* line 1169 "../lib/comp/flt_act.s7i" */ { /* line 1169 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 1169 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8172_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1169 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1169 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1169 "../lib/comp/flt_act.s7i" */ } else { /* line 1169 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1169 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 1169 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4145 */ /* line 1173 "../lib/comp/flt_act.s7i" */ static void/*t_1_void*/ o_8173_FLT_VALUE (const objRefType/*t_19_reference*/ o_8174_function, const listType/*t_20_ref_list*/ *const o_8175_params, structType/*t_164_expr_type*/ *const o_8176_c_expr) { /* line 1177 "../lib/comp/flt_act.s7i" */ strAppend(&(((structType)(*o_8176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1075] /* "fltValue(" */); /* line 1178 "../lib/comp/flt_act.s7i" */ o_4941_process_expr(rflIdx(*o_8175_params, 1L), o_8176_c_expr); /* line 1179 "../lib/comp/flt_act.s7i" */ { /* line 1179 "../lib/comp/flt_act.s7i" */ striType *tmp_1; /* line 1179 "../lib/comp/flt_act.s7i" */ tmp_1=&(((structType)(*o_8176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1179 "../lib/comp/flt_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1179 "../lib/comp/flt_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1179 "../lib/comp/flt_act.s7i" */ } else { /* line 1179 "../lib/comp/flt_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1179 "../lib/comp/flt_act.s7i" */ (*tmp_1)->size++; /* line 1179 "../lib/comp/flt_act.s7i" */ } } } /* line 1 "no_file" */ /* 4146 */ /* line 40 "../lib/comp/gkb_act.s7i" */ static void/*t_1_void*/ o_8177_gkb_prototypes (interfaceType/*t_46_file*/ *const o_8178_c_prog) { /* line 43 "../lib/comp/gkb_act.s7i" */ o_6547_declareExtern(o_8178_c_prog, &str[1076] /* "boolType gkbButtonPressed (charType);" */); /* line 44 "../lib/comp/gkb_act.s7i" */ o_6547_declareExtern(o_8178_c_prog, &str[1077] /* "intType gkbButtonXpos (void);" */); /* line 45 "../lib/comp/gkb_act.s7i" */ o_6547_declareExtern(o_8178_c_prog, &str[1078] /* "intType gkbButtonYpos (void);" */); /* line 46 "../lib/comp/gkb_act.s7i" */ o_6547_declareExtern(o_8178_c_prog, &str[1079] /* "charType gkbGetc (void);" */); /* line 47 "../lib/comp/gkb_act.s7i" */ o_6547_declareExtern(o_8178_c_prog, &str[1080] /* "striType gkbGets (intType);" */); /* line 48 "../lib/comp/gkb_act.s7i" */ o_6547_declareExtern(o_8178_c_prog, &str[1081] /* "boolType gkbKeyPressed (void);" */); /* line 49 "../lib/comp/gkb_act.s7i" */ o_6547_declareExtern(o_8178_c_prog, &str[1082] /* "striType gkbLineRead (charType *);" */); /* line 50 "../lib/comp/gkb_act.s7i" */ o_6547_declareExtern(o_8178_c_prog, &str[1083] /* "charType gkbRawGetc (void);" */); /* line 51 "../lib/comp/gkb_act.s7i" */ o_6547_declareExtern(o_8178_c_prog, &str[1084] /* "winType gkbWindow (void);" */); /* line 52 "../lib/comp/gkb_act.s7i" */ o_6547_declareExtern(o_8178_c_prog, &str[1085] /* "striType gkbWordRead (charType *);" */); } /* line 1 "no_file" */ /* 4147 */ /* line 56 "../lib/comp/gkb_act.s7i" */ static void/*t_1_void*/ o_8179_GKB_BUSY_GETC (const objRefType/*t_19_reference*/ o_8180_function, const listType/*t_20_ref_list*/ *const o_8181_params, structType/*t_164_expr_type*/ *const o_8182_c_expr) { /* line 60 "../lib/comp/gkb_act.s7i" */ strAppend(&(((structType)(*o_8182_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1086] /* "(gkbKeyPressed() ? gkbGetc() : " */); /* line 61 "../lib/comp/gkb_act.s7i" */ strAppendTemp(&(((structType)(*o_8182_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6500_charLiteral((charType) 1114368)); /* line 62 "../lib/comp/gkb_act.s7i" */ { /* line 62 "../lib/comp/gkb_act.s7i" */ striType *tmp_1; /* line 62 "../lib/comp/gkb_act.s7i" */ tmp_1=&(((structType)(*o_8182_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 62 "../lib/comp/gkb_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 62 "../lib/comp/gkb_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 62 "../lib/comp/gkb_act.s7i" */ } else { /* line 62 "../lib/comp/gkb_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 62 "../lib/comp/gkb_act.s7i" */ (*tmp_1)->size++; /* line 62 "../lib/comp/gkb_act.s7i" */ } } } /* line 1 "no_file" */ /* 4148 */ /* line 66 "../lib/comp/gkb_act.s7i" */ static void/*t_1_void*/ o_8183_GKB_GETC (const objRefType/*t_19_reference*/ o_8184_function, const listType/*t_20_ref_list*/ *const o_8185_params, structType/*t_164_expr_type*/ *const o_8186_c_expr) { /* line 70 "../lib/comp/gkb_act.s7i" */ strAppend(&(((structType)(*o_8186_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1087] /* "gkbGetc()" */); } /* line 1 "no_file" */ /* 4149 */ /* line 74 "../lib/comp/gkb_act.s7i" */ static void/*t_1_void*/ o_8187_GKB_GETS (const objRefType/*t_19_reference*/ o_8188_function, const listType/*t_20_ref_list*/ *const o_8189_params, structType/*t_164_expr_type*/ *const o_8190_c_expr) { /* line 78 "../lib/comp/gkb_act.s7i" */ o_4955_prepare_stri_result(o_8190_c_expr); /* line 79 "../lib/comp/gkb_act.s7i" */ strCopy(&(((structType)(*o_8190_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1088] /* "gkbGets(" */); /* line 80 "../lib/comp/gkb_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_8189_params, 2L), o_8190_c_expr); /* line 81 "../lib/comp/gkb_act.s7i" */ { /* line 81 "../lib/comp/gkb_act.s7i" */ striType *tmp_1; /* line 81 "../lib/comp/gkb_act.s7i" */ tmp_1=&(((structType)(*o_8190_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 81 "../lib/comp/gkb_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 81 "../lib/comp/gkb_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 81 "../lib/comp/gkb_act.s7i" */ } else { /* line 81 "../lib/comp/gkb_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 81 "../lib/comp/gkb_act.s7i" */ (*tmp_1)->size++; /* line 81 "../lib/comp/gkb_act.s7i" */ } } } /* line 1 "no_file" */ /* 4150 */ /* line 85 "../lib/comp/gkb_act.s7i" */ static void/*t_1_void*/ o_8191_GKB_KEYPRESSED (const objRefType/*t_19_reference*/ o_8192_function, const listType/*t_20_ref_list*/ *const o_8193_params, structType/*t_164_expr_type*/ *const o_8194_c_expr) { /* line 89 "../lib/comp/gkb_act.s7i" */ strAppend(&(((structType)(*o_8194_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1089] /* "gkbKeyPressed()" */); } /* line 1 "no_file" */ /* 4151 */ /* line 93 "../lib/comp/gkb_act.s7i" */ static void/*t_1_void*/ o_8195_GKB_LINE_READ (const objRefType/*t_19_reference*/ o_8196_function, const listType/*t_20_ref_list*/ *const o_8197_params, structType/*t_164_expr_type*/ *const o_8198_c_expr) { /* line 97 "../lib/comp/gkb_act.s7i" */ o_4955_prepare_stri_result(o_8198_c_expr); /* line 98 "../lib/comp/gkb_act.s7i" */ strCopy(&(((structType)(*o_8198_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1090] /* "gkbLineRead(&(" */); /* line 99 "../lib/comp/gkb_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_8197_params, 2L), o_8198_c_expr); /* line 100 "../lib/comp/gkb_act.s7i" */ strAppend(&(((structType)(*o_8198_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 4152 */ /* line 104 "../lib/comp/gkb_act.s7i" */ static void/*t_1_void*/ o_8199_GKB_RAW_GETC (const objRefType/*t_19_reference*/ o_8200_function, const listType/*t_20_ref_list*/ *const o_8201_params, structType/*t_164_expr_type*/ *const o_8202_c_expr) { /* line 108 "../lib/comp/gkb_act.s7i" */ strAppend(&(((structType)(*o_8202_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1091] /* "gkbRawGetc()" */); } /* line 1 "no_file" */ /* 4153 */ /* line 112 "../lib/comp/gkb_act.s7i" */ static void/*t_1_void*/ o_8203_GKB_WINDOW (const objRefType/*t_19_reference*/ o_8204_function, const listType/*t_20_ref_list*/ *const o_8205_params, structType/*t_164_expr_type*/ *const o_8206_c_expr) { /* line 116 "../lib/comp/gkb_act.s7i" */ o_4961_prepare_win_result(o_8206_c_expr); /* line 117 "../lib/comp/gkb_act.s7i" */ strCopy(&(((structType)(*o_8206_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1092] /* "gkbWindow()" */); } /* line 1 "no_file" */ /* 4154 */ /* line 121 "../lib/comp/gkb_act.s7i" */ static void/*t_1_void*/ o_8207_GKB_WORD_READ (const objRefType/*t_19_reference*/ o_8208_function, const listType/*t_20_ref_list*/ *const o_8209_params, structType/*t_164_expr_type*/ *const o_8210_c_expr) { /* line 125 "../lib/comp/gkb_act.s7i" */ o_4955_prepare_stri_result(o_8210_c_expr); /* line 126 "../lib/comp/gkb_act.s7i" */ strCopy(&(((structType)(*o_8210_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1093] /* "gkbWordRead(&(" */); /* line 127 "../lib/comp/gkb_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_8209_params, 2L), o_8210_c_expr); /* line 128 "../lib/comp/gkb_act.s7i" */ strAppend(&(((structType)(*o_8210_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 4155 */ /* line 132 "../lib/comp/gkb_act.s7i" */ static void/*t_1_void*/ o_8211_GKB_BUTTON_PRESSED (const objRefType/*t_19_reference*/ o_8212_function, const listType/*t_20_ref_list*/ *const o_8213_params, structType/*t_164_expr_type*/ *const o_8214_c_expr) { /* line 136 "../lib/comp/gkb_act.s7i" */ strAppend(&(((structType)(*o_8214_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1094] /* "gkbButtonPressed(" */); /* line 137 "../lib/comp/gkb_act.s7i" */ o_4941_process_expr(rflIdx(*o_8213_params, 2L), o_8214_c_expr); /* line 138 "../lib/comp/gkb_act.s7i" */ { /* line 138 "../lib/comp/gkb_act.s7i" */ striType *tmp_1; /* line 138 "../lib/comp/gkb_act.s7i" */ tmp_1=&(((structType)(*o_8214_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 138 "../lib/comp/gkb_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 138 "../lib/comp/gkb_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 138 "../lib/comp/gkb_act.s7i" */ } else { /* line 138 "../lib/comp/gkb_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 138 "../lib/comp/gkb_act.s7i" */ (*tmp_1)->size++; /* line 138 "../lib/comp/gkb_act.s7i" */ } } } /* line 1 "no_file" */ /* 4156 */ /* line 142 "../lib/comp/gkb_act.s7i" */ static void/*t_1_void*/ o_8215_GKB_BUTTON_XPOS (const objRefType/*t_19_reference*/ o_8216_function, const listType/*t_20_ref_list*/ *const o_8217_params, structType/*t_164_expr_type*/ *const o_8218_c_expr) { /* line 146 "../lib/comp/gkb_act.s7i" */ strAppend(&(((structType)(*o_8218_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1095] /* "gkbButtonXpos()" */); } /* line 1 "no_file" */ /* 4157 */ /* line 150 "../lib/comp/gkb_act.s7i" */ static void/*t_1_void*/ o_8219_GKB_BUTTON_YPOS (const objRefType/*t_19_reference*/ o_8220_function, const listType/*t_20_ref_list*/ *const o_8221_params, structType/*t_164_expr_type*/ *const o_8222_c_expr) { /* line 154 "../lib/comp/gkb_act.s7i" */ strAppend(&(((structType)(*o_8222_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1096] /* "gkbButtonYpos()" */); } /* line 1 "no_file" */ /* 4158 */ /* 4159 */ /* 4160 */ /* 4161 */ /* line 44 "../lib/comp/hsh_act.s7i" */ static void/*t_1_void*/ o_8223_hsh_prototypes (interfaceType/*t_46_file*/ *const o_8224_c_prog) { /* line 47 "../lib/comp/hsh_act.s7i" */ o_6547_declareExtern(o_8224_c_prog, &str[1097] /* "boolType hshContains (const const_hashType, const genericType, intType, compareType);" */); /* line 48 "../lib/comp/hsh_act.s7i" */ o_6547_declareExtern(o_8224_c_prog, &str[1098] /* "void hshCpy (hashType *const, const const_hashType, const createFuncType, const destrFuncType, const createFuncType, const destrFuncType);" */); /* line 49 "../lib/comp/hsh_act.s7i" */ o_6547_declareExtern(o_8224_c_prog, &str[1099] /* "hashType hshCreate (const const_hashType, const createFuncType, const destrFuncType, const createFuncType, const destrFuncType);" */); /* line 50 "../lib/comp/hsh_act.s7i" */ o_6547_declareExtern(o_8224_c_prog, &str[1100] /* "void hshDestr (const const_hashType, const destrFuncType, const destrFuncType);" */); /* line 51 "../lib/comp/hsh_act.s7i" */ o_6547_declareExtern(o_8224_c_prog, &str[1101] /* "hashType hshEmpty (void);" */); /* line 52 "../lib/comp/hsh_act.s7i" */ o_6547_declareExtern(o_8224_c_prog, &str[1102] /* "void hshExcl (const hashType, const genericType, intType, compareType, const destrFuncType, const destrFuncType);" */); /* line 53 "../lib/comp/hsh_act.s7i" */ o_6547_declareExtern(o_8224_c_prog, &str[1103] /* "genericType hshIdx (const const_hashType, const genericType, intType, compareType);" */); /* line 54 "../lib/comp/hsh_act.s7i" */ o_6547_declareExtern(o_8224_c_prog, &str[1104] /* "rtlObjectType *hshIdxAddr (const const_hashType, const genericType, intType, compareType);" */); /* line 55 "../lib/comp/hsh_act.s7i" */ o_6547_declareExtern(o_8224_c_prog, &str[1105] /* "rtlObjectType *hshIdxAddr2 (const const_hashType, const genericType, intType, compareType);" */); /* line 56 "../lib/comp/hsh_act.s7i" */ o_6547_declareExtern(o_8224_c_prog, &str[1106] /* "void hshIncl (const hashType, const genericType, const genericType, intType, compareType, const createFuncType, const createFuncType, const copyFuncType);" */); /* line 57 "../lib/comp/hsh_act.s7i" */ o_6547_declareExtern(o_8224_c_prog, &str[1107] /* "arrayType hshKeys (const const_hashType, const createFuncType, const destrFuncType);" */); /* line 58 "../lib/comp/hsh_act.s7i" */ o_6547_declareExtern(o_8224_c_prog, &str[1108] /* "genericType hshUpdate (const hashType, const genericType, const genericType, intType, compareType, const createFuncType, const createFuncType);" */); /* line 59 "../lib/comp/hsh_act.s7i" */ o_6547_declareExtern(o_8224_c_prog, &str[1109] /* "arrayType hshValues (const const_hashType, const createFuncType, const destrFuncType);" */); } /* line 1 "no_file" */ /* 4162 */ /* line 63 "../lib/comp/hsh_act.s7i" */ static void/*t_1_void*/ o_8225_HSH_CONTAINS (const objRefType/*t_19_reference*/ o_8226_function, const listType/*t_20_ref_list*/ *const o_8227_params, structType/*t_164_expr_type*/ *const o_8228_c_expr) { /* line 67 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8228_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1110] /* "hshContains(" */); /* line 68 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8227_params, 1L), o_8228_c_expr); /* line 69 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8228_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 70 "../lib/comp/hsh_act.s7i" */ o_4985_getGenericValue(rflIdx(*o_8227_params, 2L), o_8228_c_expr); /* line 71 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8228_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 72 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8227_params, 3L), o_8228_c_expr); /* line 73 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8228_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[449] /* ", (compareType)(" */); /* line 74 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8227_params, 4L), o_8228_c_expr); /* line 75 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8228_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 4163 */ /* line 79 "../lib/comp/hsh_act.s7i" */ static void/*t_1_void*/ o_8229_HSH_CPY (const objRefType/*t_19_reference*/ o_8230_function, const listType/*t_20_ref_list*/ *const o_8231_params, structType/*t_164_expr_type*/ *const o_8232_c_expr) { /* line 83 "../lib/comp/hsh_act.s7i" */ typeType/*t_7_type*/ o_8233_param_type=typ[0] /* void/t_1_void */; /* line 84 "../lib/comp/hsh_act.s7i" */ structType/*t_164_expr_type*/ o_8234_c_param1; /* line 85 "../lib/comp/hsh_act.s7i" */ structType/*t_164_expr_type*/ o_8235_c_param2; /* line 86 "../lib/comp/hsh_act.s7i" */ structType/*t_164_expr_type*/ o_8236_c_param3_6; /* line 84 "../lib/comp/hsh_act.s7i" */ o_8234_c_param1=create_164(sct[226]); /* line 85 "../lib/comp/hsh_act.s7i" */ o_8235_c_param2=create_164(sct[227]); /* line 86 "../lib/comp/hsh_act.s7i" */ o_8236_c_param3_6=create_164(sct[228]); /* line 88 "../lib/comp/hsh_act.s7i" */ o_5088_declare_func_pointer_if_necessary(rflIdx(*o_8231_params, 3L), &(o_4794_global_c_expr)); /* line 89 "../lib/comp/hsh_act.s7i" */ o_5088_declare_func_pointer_if_necessary(rflIdx(*o_8231_params, 4L), &(o_4794_global_c_expr)); /* line 90 "../lib/comp/hsh_act.s7i" */ o_5088_declare_func_pointer_if_necessary(rflIdx(*o_8231_params, 5L), &(o_4794_global_c_expr)); /* line 91 "../lib/comp/hsh_act.s7i" */ o_5088_declare_func_pointer_if_necessary(rflIdx(*o_8231_params, 6L), &(o_4794_global_c_expr)); /* line 92 "../lib/comp/hsh_act.s7i" */ o_8233_param_type=o_4754_getExprResultType(rflIdx(*o_8231_params, 2L)); /* line 93 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8231_params, 1L), &(o_8234_c_param1)); /* line 94 "../lib/comp/hsh_act.s7i" */ ((structType)(o_8235_c_param2))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_8234_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 95 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8231_params, 2L), &(o_8235_c_param2)); /* line 96 "../lib/comp/hsh_act.s7i" */ if (o_5049_has_temp_values(o_8235_c_param2)) { /* line 97 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 98 "../lib/comp/hsh_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8234_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_8232_c_expr); /* line 99 "../lib/comp/hsh_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8235_c_param2))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_8232_c_expr); /* line 100 "../lib/comp/hsh_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8234_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_8232_c_expr); /* line 101 "../lib/comp/hsh_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8235_c_param2))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_8232_c_expr); } /* line 103 "../lib/comp/hsh_act.s7i" */ if (((((structType)(o_8235_c_param2))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 104 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8232_c_expr); /* line 105 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8234_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 106 "../lib/comp/hsh_act.s7i" */ { /* line 106 "../lib/comp/hsh_act.s7i" */ striType *tmp_1; /* line 106 "../lib/comp/hsh_act.s7i" */ tmp_1=&(((structType)(*o_8232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 106 "../lib/comp/hsh_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 106 "../lib/comp/hsh_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 106 "../lib/comp/hsh_act.s7i" */ } else { /* line 106 "../lib/comp/hsh_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 106 "../lib/comp/hsh_act.s7i" */ (*tmp_1)->size++; /* line 106 "../lib/comp/hsh_act.s7i" */ } } /* line 107 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8235_c_param2))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 108 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); } else { /* line 110 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(o_8236_c_param3_6))->stru[5].value.striValue/*->o_4783_expr*/), &str[1111] /* ", (createFuncType)(" */); /* line 111 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8231_params, 3L), &(o_8236_c_param3_6)); /* line 112 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(o_8236_c_param3_6))->stru[5].value.striValue/*->o_4783_expr*/), &str[1112] /* "), (destrFuncType)(" */); /* line 113 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8231_params, 4L), &(o_8236_c_param3_6)); /* line 114 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(o_8236_c_param3_6))->stru[5].value.striValue/*->o_4783_expr*/), &str[1113] /* "), (createFuncType)(" */); /* line 115 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8231_params, 5L), &(o_8236_c_param3_6)); /* line 116 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(o_8236_c_param3_6))->stru[5].value.striValue/*->o_4783_expr*/), &str[1112] /* "), (destrFuncType)(" */); /* line 117 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8231_params, 6L), &(o_8236_c_param3_6)); /* line 118 "../lib/comp/hsh_act.s7i" */ { /* line 118 "../lib/comp/hsh_act.s7i" */ striType *tmp_1; /* line 118 "../lib/comp/hsh_act.s7i" */ tmp_1=&(((structType)(o_8236_c_param3_6))->stru[5].value.striValue/*->o_4783_expr*/); /* line 118 "../lib/comp/hsh_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 118 "../lib/comp/hsh_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 118 "../lib/comp/hsh_act.s7i" */ } else { /* line 118 "../lib/comp/hsh_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 118 "../lib/comp/hsh_act.s7i" */ (*tmp_1)->size++; /* line 118 "../lib/comp/hsh_act.s7i" */ } } /* line 119 "../lib/comp/hsh_act.s7i" */ if (o_4325_not(&(o_8233_param_type), o_4910_parametersOfHshCpy)) { /* line 120 "../lib/comp/hsh_act.s7i" */ o_4335/*@:=*/(&(o_4910_parametersOfHshCpy), &(o_8233_param_type), ((structType)(o_8236_c_param3_6))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 122 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8232_c_expr); /* line 123 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1114] /* "hshCpy(&(" */); /* line 124 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8234_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 125 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 126 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8235_c_param2))->stru[5].value.striValue/*->o_4783_expr*/); /* line 127 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8236_c_param3_6))->stru[5].value.striValue/*->o_4783_expr*/); /* line 128 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 130 "../lib/comp/hsh_act.s7i" */ if (o_5049_has_temp_values(o_8235_c_param2)) { /* line 131 "../lib/comp/hsh_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8234_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_8232_c_expr); /* line 132 "../lib/comp/hsh_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8235_c_param2))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_8232_c_expr); /* line 133 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 79 "../lib/comp/hsh_act.s7i" */ destr_164(o_8234_c_param1); /* line 79 "../lib/comp/hsh_act.s7i" */ destr_164(o_8235_c_param2); /* line 79 "../lib/comp/hsh_act.s7i" */ destr_164(o_8236_c_param3_6); } /* line 1 "no_file" */ /* 4164 */ /* line 138 "../lib/comp/hsh_act.s7i" */ static void/*t_1_void*/ o_8237_HSH_CREATE (const objRefType/*t_19_reference*/ o_8238_function, const listType/*t_20_ref_list*/ *const o_8239_params, structType/*t_164_expr_type*/ *const o_8240_c_expr) { /* line 142 "../lib/comp/hsh_act.s7i" */ typeType/*t_7_type*/ o_8241_param_type=typ[0] /* void/t_1_void */; /* line 143 "../lib/comp/hsh_act.s7i" */ structType/*t_164_expr_type*/ o_8242_c_param1; /* line 144 "../lib/comp/hsh_act.s7i" */ structType/*t_164_expr_type*/ o_8243_c_param2; /* line 145 "../lib/comp/hsh_act.s7i" */ structType/*t_164_expr_type*/ o_8244_c_param3_6; /* line 143 "../lib/comp/hsh_act.s7i" */ o_8242_c_param1=create_164(sct[229]); /* line 144 "../lib/comp/hsh_act.s7i" */ o_8243_c_param2=create_164(sct[230]); /* line 145 "../lib/comp/hsh_act.s7i" */ o_8244_c_param3_6=create_164(sct[231]); /* line 147 "../lib/comp/hsh_act.s7i" */ o_8241_param_type=o_4754_getExprResultType(rflIdx(*o_8239_params, 2L)); /* line 160 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(o_8244_c_param3_6))->stru[5].value.striValue/*->o_4783_expr*/), &str[1111] /* ", (createFuncType)(" */); /* line 161 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8239_params, 3L), &(o_8244_c_param3_6)); /* line 162 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(o_8244_c_param3_6))->stru[5].value.striValue/*->o_4783_expr*/), &str[1112] /* "), (destrFuncType)(" */); /* line 163 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8239_params, 4L), &(o_8244_c_param3_6)); /* line 164 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(o_8244_c_param3_6))->stru[5].value.striValue/*->o_4783_expr*/), &str[1113] /* "), (createFuncType)(" */); /* line 165 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8239_params, 5L), &(o_8244_c_param3_6)); /* line 166 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(o_8244_c_param3_6))->stru[5].value.striValue/*->o_4783_expr*/), &str[1112] /* "), (destrFuncType)(" */); /* line 167 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8239_params, 6L), &(o_8244_c_param3_6)); /* line 168 "../lib/comp/hsh_act.s7i" */ { /* line 168 "../lib/comp/hsh_act.s7i" */ striType *tmp_1; /* line 168 "../lib/comp/hsh_act.s7i" */ tmp_1=&(((structType)(o_8244_c_param3_6))->stru[5].value.striValue/*->o_4783_expr*/); /* line 168 "../lib/comp/hsh_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 168 "../lib/comp/hsh_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 168 "../lib/comp/hsh_act.s7i" */ } else { /* line 168 "../lib/comp/hsh_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 168 "../lib/comp/hsh_act.s7i" */ (*tmp_1)->size++; /* line 168 "../lib/comp/hsh_act.s7i" */ } } /* line 169 "../lib/comp/hsh_act.s7i" */ if (o_4325_not(&(o_8241_param_type), o_4877_parametersOfHshCreate)) { /* line 170 "../lib/comp/hsh_act.s7i" */ o_4335/*@:=*/(&(o_4877_parametersOfHshCreate), &(o_8241_param_type), ((structType)(o_8244_c_param3_6))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 185 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8240_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1115] /* "/* hshCreate implemented with create_" */); { /* line 186 "../lib/comp/hsh_act.s7i" */ union { /* line 186 "../lib/comp/hsh_act.s7i" */ struct striStruct striBuf; /* line 186 "../lib/comp/hsh_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 186 "../lib/comp/hsh_act.s7i" */ } buffer_1; /* line 186 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8240_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(o_8241_param_type), &buffer_1.striBuf)); } /* line 187 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8240_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[164] /* " *\/\n" */); /* line 138 "../lib/comp/hsh_act.s7i" */ destr_164(o_8242_c_param1); /* line 138 "../lib/comp/hsh_act.s7i" */ destr_164(o_8243_c_param2); /* line 138 "../lib/comp/hsh_act.s7i" */ destr_164(o_8244_c_param3_6); } /* line 1 "no_file" */ /* 4165 */ /* line 191 "../lib/comp/hsh_act.s7i" */ static void/*t_1_void*/ o_8245_HSH_DESTR (const objRefType/*t_19_reference*/ o_8246_function, const listType/*t_20_ref_list*/ *const o_8247_params, structType/*t_164_expr_type*/ *const o_8248_c_expr) { /* line 195 "../lib/comp/hsh_act.s7i" */ typeType/*t_7_type*/ o_8249_param_type=typ[0] /* void/t_1_void */; /* line 196 "../lib/comp/hsh_act.s7i" */ structType/*t_164_expr_type*/ o_8250_c_param2_3; /* line 196 "../lib/comp/hsh_act.s7i" */ o_8250_c_param2_3=create_164(sct[232]); /* line 198 "../lib/comp/hsh_act.s7i" */ o_8249_param_type=o_4754_getExprResultType(rflIdx(*o_8247_params, 1L)); /* line 199 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(o_8250_c_param2_3))->stru[5].value.striValue/*->o_4783_expr*/), &str[1116] /* ", (destrFuncType)(" */); /* line 200 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8247_params, 2L), &(o_8250_c_param2_3)); /* line 201 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(o_8250_c_param2_3))->stru[5].value.striValue/*->o_4783_expr*/), &str[1112] /* "), (destrFuncType)(" */); /* line 202 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8247_params, 3L), &(o_8250_c_param2_3)); /* line 203 "../lib/comp/hsh_act.s7i" */ { /* line 203 "../lib/comp/hsh_act.s7i" */ striType *tmp_1; /* line 203 "../lib/comp/hsh_act.s7i" */ tmp_1=&(((structType)(o_8250_c_param2_3))->stru[5].value.striValue/*->o_4783_expr*/); /* line 203 "../lib/comp/hsh_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 203 "../lib/comp/hsh_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 203 "../lib/comp/hsh_act.s7i" */ } else { /* line 203 "../lib/comp/hsh_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 203 "../lib/comp/hsh_act.s7i" */ (*tmp_1)->size++; /* line 203 "../lib/comp/hsh_act.s7i" */ } } /* line 204 "../lib/comp/hsh_act.s7i" */ if (o_4325_not(&(o_8249_param_type), o_4828_parametersOfHshDestr)) { /* line 205 "../lib/comp/hsh_act.s7i" */ o_4335/*@:=*/(&(o_4828_parametersOfHshDestr), &(o_8249_param_type), ((structType)(o_8250_c_param2_3))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 214 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8248_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1117] /* "/* hshDestr implemented with destr_" */); { /* line 215 "../lib/comp/hsh_act.s7i" */ union { /* line 215 "../lib/comp/hsh_act.s7i" */ struct striStruct striBuf; /* line 215 "../lib/comp/hsh_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 215 "../lib/comp/hsh_act.s7i" */ } buffer_1; /* line 215 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8248_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(o_8249_param_type), &buffer_1.striBuf)); } /* line 216 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8248_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[164] /* " *\/\n" */); /* line 191 "../lib/comp/hsh_act.s7i" */ destr_164(o_8250_c_param2_3); } /* line 1 "no_file" */ /* 4166 */ /* line 220 "../lib/comp/hsh_act.s7i" */ static void/*t_1_void*/ o_8251_HSH_EXCL (const objRefType/*t_19_reference*/ o_8252_function, const listType/*t_20_ref_list*/ *const o_8253_params, structType/*t_164_expr_type*/ *const o_8254_c_expr) { /* line 224 "../lib/comp/hsh_act.s7i" */ o_5088_declare_func_pointer_if_necessary(rflIdx(*o_8253_params, 4L), &(o_4794_global_c_expr)); /* line 225 "../lib/comp/hsh_act.s7i" */ o_5088_declare_func_pointer_if_necessary(rflIdx(*o_8253_params, 5L), &(o_4794_global_c_expr)); /* line 226 "../lib/comp/hsh_act.s7i" */ o_5088_declare_func_pointer_if_necessary(rflIdx(*o_8253_params, 6L), &(o_4794_global_c_expr)); /* line 227 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8254_c_expr); /* line 228 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8254_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1118] /* "hshExcl(" */); /* line 229 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8253_params, 1L), o_8254_c_expr); /* line 230 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8254_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 231 "../lib/comp/hsh_act.s7i" */ o_4985_getGenericValue(rflIdx(*o_8253_params, 2L), o_8254_c_expr); /* line 232 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8254_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 233 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8253_params, 3L), o_8254_c_expr); /* line 234 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8254_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[449] /* ", (compareType)(" */); /* line 235 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8253_params, 4L), o_8254_c_expr); /* line 236 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8254_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1112] /* "), (destrFuncType)(" */); /* line 237 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8253_params, 5L), o_8254_c_expr); /* line 238 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8254_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1112] /* "), (destrFuncType)(" */); /* line 239 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8253_params, 6L), o_8254_c_expr); /* line 240 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8254_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); } /* line 1 "no_file" */ /* 4167 */ /* line 244 "../lib/comp/hsh_act.s7i" */ static void/*t_1_void*/ o_8255_process_hsh_for_generic (const objRefType/*t_19_reference*/ o_8256_forDataVariable, const objRefType/*t_19_reference*/ o_8257_forKeyVariable, const objRefType/*t_19_reference*/ o_8258_hashTable, const objRefType/*t_19_reference*/ o_8259_statement, const objRefType/*t_19_reference*/ o_8260_dataCopyFunc, const objRefType/*t_19_reference*/ o_8261_keyCopyFunc, structType/*t_164_expr_type*/ *const o_8262_c_expr) { /* line 250 "../lib/comp/hsh_act.s7i" */ striType/*t_15_string*/ o_8263_hash_temp_name; /* line 251 "../lib/comp/hsh_act.s7i" */ striType/*t_15_string*/ o_8264_counter_temp_name; /* line 252 "../lib/comp/hsh_act.s7i" */ striType/*t_15_string*/ o_8265_table_elem_temp_name; /* line 253 "../lib/comp/hsh_act.s7i" */ striType/*t_15_string*/ o_8266_helem_temp_name; /* line 254 "../lib/comp/hsh_act.s7i" */ striType/*t_15_string*/ o_8267_stack_temp_name; /* line 250 "../lib/comp/hsh_act.s7i" */ o_8263_hash_temp_name=strEmpty(); /* "" */ /* line 251 "../lib/comp/hsh_act.s7i" */ o_8264_counter_temp_name=strEmpty(); /* "" */ /* line 252 "../lib/comp/hsh_act.s7i" */ o_8265_table_elem_temp_name=strEmpty(); /* "" */ /* line 253 "../lib/comp/hsh_act.s7i" */ o_8266_helem_temp_name=strEmpty(); /* "" */ /* line 254 "../lib/comp/hsh_act.s7i" */ o_8267_stack_temp_name=strEmpty(); /* "" */ /* line 256 "../lib/comp/hsh_act.s7i" */ ++(((structType)(*o_8262_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 257 "../lib/comp/hsh_act.s7i" */ union { /* line 257 "../lib/comp/hsh_act.s7i" */ struct striStruct striBuf; /* line 257 "../lib/comp/hsh_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 257 "../lib/comp/hsh_act.s7i" */ } buffer_2; /* line 257 "../lib/comp/hsh_act.s7i" */ striType old_stri=o_8263_hash_temp_name; /* line 257 "../lib/comp/hsh_act.s7i" */ o_8263_hash_temp_name=strConcat(&str[1119] /* "hash_" */, intStrToBuffer(((structType)(*o_8262_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 257 "../lib/comp/hsh_act.s7i" */ strDestr(old_stri); } /* line 258 "../lib/comp/hsh_act.s7i" */ ++(((structType)(*o_8262_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 259 "../lib/comp/hsh_act.s7i" */ union { /* line 259 "../lib/comp/hsh_act.s7i" */ struct striStruct striBuf; /* line 259 "../lib/comp/hsh_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 259 "../lib/comp/hsh_act.s7i" */ } buffer_2; /* line 259 "../lib/comp/hsh_act.s7i" */ striType old_stri=o_8264_counter_temp_name; /* line 259 "../lib/comp/hsh_act.s7i" */ o_8264_counter_temp_name=strConcat(&str[1120] /* "counter_" */, intStrToBuffer(((structType)(*o_8262_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 259 "../lib/comp/hsh_act.s7i" */ strDestr(old_stri); } /* line 260 "../lib/comp/hsh_act.s7i" */ ++(((structType)(*o_8262_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 261 "../lib/comp/hsh_act.s7i" */ union { /* line 261 "../lib/comp/hsh_act.s7i" */ struct striStruct striBuf; /* line 261 "../lib/comp/hsh_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 261 "../lib/comp/hsh_act.s7i" */ } buffer_2; /* line 261 "../lib/comp/hsh_act.s7i" */ striType old_stri=o_8265_table_elem_temp_name; /* line 261 "../lib/comp/hsh_act.s7i" */ o_8265_table_elem_temp_name=strConcat(&str[1121] /* "table_elem_" */, intStrToBuffer(((structType)(*o_8262_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 261 "../lib/comp/hsh_act.s7i" */ strDestr(old_stri); } /* line 262 "../lib/comp/hsh_act.s7i" */ ++(((structType)(*o_8262_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 263 "../lib/comp/hsh_act.s7i" */ union { /* line 263 "../lib/comp/hsh_act.s7i" */ struct striStruct striBuf; /* line 263 "../lib/comp/hsh_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 263 "../lib/comp/hsh_act.s7i" */ } buffer_2; /* line 263 "../lib/comp/hsh_act.s7i" */ striType old_stri=o_8266_helem_temp_name; /* line 263 "../lib/comp/hsh_act.s7i" */ o_8266_helem_temp_name=strConcat(&str[1122] /* "helem_" */, intStrToBuffer(((structType)(*o_8262_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 263 "../lib/comp/hsh_act.s7i" */ strDestr(old_stri); } /* line 264 "../lib/comp/hsh_act.s7i" */ ++(((structType)(*o_8262_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 265 "../lib/comp/hsh_act.s7i" */ union { /* line 265 "../lib/comp/hsh_act.s7i" */ struct striStruct striBuf; /* line 265 "../lib/comp/hsh_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 265 "../lib/comp/hsh_act.s7i" */ } buffer_2; /* line 265 "../lib/comp/hsh_act.s7i" */ striType old_stri=o_8267_stack_temp_name; /* line 265 "../lib/comp/hsh_act.s7i" */ o_8267_stack_temp_name=strConcat(&str[1123] /* "stack_" */, intStrToBuffer(((structType)(*o_8262_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 265 "../lib/comp/hsh_act.s7i" */ strDestr(old_stri); } /* line 266 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1124] /* "/* hsh_for *\/ {\n" */); /* line 267 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8262_c_expr); /* line 268 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1125] /* "const_hashType " */); /* line 269 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8263_hash_temp_name); /* line 270 "../lib/comp/hsh_act.s7i" */ { /* line 270 "../lib/comp/hsh_act.s7i" */ striType *tmp_1; /* line 270 "../lib/comp/hsh_act.s7i" */ tmp_1=&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 270 "../lib/comp/hsh_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 270 "../lib/comp/hsh_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 270 "../lib/comp/hsh_act.s7i" */ } else { /* line 270 "../lib/comp/hsh_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 270 "../lib/comp/hsh_act.s7i" */ (*tmp_1)->size++; /* line 270 "../lib/comp/hsh_act.s7i" */ } } /* line 271 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(o_8258_hashTable, o_8262_c_expr); /* line 272 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 273 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8262_c_expr); /* line 274 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1126] /* "memSizeType " */); /* line 275 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8264_counter_temp_name); /* line 276 "../lib/comp/hsh_act.s7i" */ { /* line 276 "../lib/comp/hsh_act.s7i" */ striType *tmp_1; /* line 276 "../lib/comp/hsh_act.s7i" */ tmp_1=&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 276 "../lib/comp/hsh_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 276 "../lib/comp/hsh_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 276 "../lib/comp/hsh_act.s7i" */ } else { /* line 276 "../lib/comp/hsh_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 276 "../lib/comp/hsh_act.s7i" */ (*tmp_1)->size++; /* line 276 "../lib/comp/hsh_act.s7i" */ } } /* line 277 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8263_hash_temp_name); /* line 278 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1127] /* "->table_size;\n" */); /* line 279 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8262_c_expr); /* line 280 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1128] /* "hashElemType_const *" */); /* line 281 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8265_table_elem_temp_name); /* line 282 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1129] /* "=&" */); /* line 283 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8263_hash_temp_name); /* line 284 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1130] /* "->table[0];\n" */); /* line 285 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8262_c_expr); /* line 286 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1131] /* "const_hashElemType " */); /* line 287 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8266_helem_temp_name); /* line 288 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 289 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8262_c_expr); /* line 290 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1132] /* "hashElemListType " */); /* line 291 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8267_stack_temp_name); /* line 292 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[400] /* "=NULL;\n" */); /* line 294 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8262_c_expr); /* line 295 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1133] /* "while (" */); /* line 296 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8264_counter_temp_name); /* line 297 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1134] /* " > 0) {\n" */); /* line 299 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8262_c_expr); /* line 300 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8266_helem_temp_name); /* line 301 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1135] /* "=*" */); /* line 302 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8265_table_elem_temp_name); /* line 303 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 305 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8262_c_expr); /* line 306 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1133] /* "while (" */); /* line 307 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8266_helem_temp_name); /* line 308 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1136] /* " != NULL) {\n" */); /* line 310 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8262_c_expr); /* line 311 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[401] /* "if (" */); /* line 312 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8266_helem_temp_name); /* line 313 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1137] /* "->next_greater != NULL) {\n" */); /* line 314 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8262_c_expr); /* line 315 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1138] /* "push_stack(" */); /* line 316 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8267_stack_temp_name); /* line 317 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 318 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8266_helem_temp_name); /* line 319 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1139] /* "->next_greater);\n" */); /* line 320 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8262_c_expr); /* line 321 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1140] /* "} /* if *\/\n" */); /* line 323 "../lib/comp/hsh_act.s7i" */ if ((o_8256_forDataVariable) != (NULL)) { { /* line 324 "../lib/comp/hsh_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 324 "../lib/comp/hsh_act.s7i" */ o_4911_process_cpy_declaration(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_8256_forDataVariable)), &tmp_1), &(o_4794_global_c_expr)); } /* line 325 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8262_c_expr); { /* line 326 "../lib/comp/hsh_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 326 "../lib/comp/hsh_act.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); /* line 326 "../lib/comp/hsh_act.s7i" */ const_striType tmp_4[3]; /* line 326 "../lib/comp/hsh_act.s7i" */ typeType/*t_7_type*/ tmp_6; /* line 326 "../lib/comp/hsh_act.s7i" */ striType/*t_15_string*/ tmp_5 = (striType/*t_15_string*/)(NULL); /* line 326 "../lib/comp/hsh_act.s7i" */ striType tmp_3 = NULL; /* line 326 "../lib/comp/hsh_act.s7i" */ o_4914_process_cpy_call(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_8256_forDataVariable)), &tmp_1), (tmp_2=(striType/*t_15_string*/)(o_5020_normalVariable(o_8256_forDataVariable, o_8262_c_expr))), (tmp_3=(tmp_4[0] = o_8266_helem_temp_name, tmp_4[1] = &str[1141] /* "->data.value." */, tmp_4[2] = (tmp_5=(striType/*t_15_string*/)(o_4757_raw_type_value(/* CALLOBJECT */(tmp_6=(typeType/*t_7_type*/)(refType(o_8256_forDataVariable)), &tmp_6)))), strConcatN(tmp_4, 3))), &(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 326 "../lib/comp/hsh_act.s7i" */ strDestr(tmp_2); /* line 326 "../lib/comp/hsh_act.s7i" */ strDestr(tmp_5); /* line 326 "../lib/comp/hsh_act.s7i" */ strDestr(tmp_3); } /* line 330 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); } /* line 333 "../lib/comp/hsh_act.s7i" */ if ((o_8257_forKeyVariable) != (NULL)) { { /* line 334 "../lib/comp/hsh_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 334 "../lib/comp/hsh_act.s7i" */ o_4911_process_cpy_declaration(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_8257_forKeyVariable)), &tmp_1), &(o_4794_global_c_expr)); } /* line 335 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8262_c_expr); { /* line 336 "../lib/comp/hsh_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 336 "../lib/comp/hsh_act.s7i" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); /* line 336 "../lib/comp/hsh_act.s7i" */ const_striType tmp_4[3]; /* line 336 "../lib/comp/hsh_act.s7i" */ typeType/*t_7_type*/ tmp_6; /* line 336 "../lib/comp/hsh_act.s7i" */ striType/*t_15_string*/ tmp_5 = (striType/*t_15_string*/)(NULL); /* line 336 "../lib/comp/hsh_act.s7i" */ striType tmp_3 = NULL; /* line 336 "../lib/comp/hsh_act.s7i" */ o_4914_process_cpy_call(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_8257_forKeyVariable)), &tmp_1), (tmp_2=(striType/*t_15_string*/)(o_5020_normalVariable(o_8257_forKeyVariable, o_8262_c_expr))), (tmp_3=(tmp_4[0] = o_8266_helem_temp_name, tmp_4[1] = &str[1142] /* "->key.value." */, tmp_4[2] = (tmp_5=(striType/*t_15_string*/)(o_4757_raw_type_value(/* CALLOBJECT */(tmp_6=(typeType/*t_7_type*/)(refType(o_8257_forKeyVariable)), &tmp_6)))), strConcatN(tmp_4, 3))), &(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 336 "../lib/comp/hsh_act.s7i" */ strDestr(tmp_2); /* line 336 "../lib/comp/hsh_act.s7i" */ strDestr(tmp_5); /* line 336 "../lib/comp/hsh_act.s7i" */ strDestr(tmp_3); } /* line 340 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); } /* line 343 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(o_8259_statement, o_8262_c_expr); /* line 345 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8262_c_expr); /* line 346 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[401] /* "if (" */); /* line 347 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8266_helem_temp_name); /* line 348 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1143] /* "->next_less != NULL) {\n" */); /* line 349 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8262_c_expr); /* line 350 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8266_helem_temp_name); /* line 351 "../lib/comp/hsh_act.s7i" */ { /* line 351 "../lib/comp/hsh_act.s7i" */ striType *tmp_1; /* line 351 "../lib/comp/hsh_act.s7i" */ tmp_1=&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 351 "../lib/comp/hsh_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 351 "../lib/comp/hsh_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 351 "../lib/comp/hsh_act.s7i" */ } else { /* line 351 "../lib/comp/hsh_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 351 "../lib/comp/hsh_act.s7i" */ (*tmp_1)->size++; /* line 351 "../lib/comp/hsh_act.s7i" */ } } /* line 352 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8266_helem_temp_name); /* line 353 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1144] /* "->next_less;\n" */); /* line 354 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8262_c_expr); /* line 355 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[222] /* "} else {\n" */); /* line 356 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8262_c_expr); /* line 357 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1145] /* "pop_stack(" */); /* line 358 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8267_stack_temp_name); /* line 359 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 360 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8266_helem_temp_name); /* line 361 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 362 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8262_c_expr); /* line 363 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1140] /* "} /* if *\/\n" */); /* line 365 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8262_c_expr); /* line 366 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1146] /* "} /* while *\/\n" */); /* line 368 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8262_c_expr); /* line 369 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8264_counter_temp_name); /* line 370 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1147] /* "--;\n" */); /* line 371 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8262_c_expr); /* line 372 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8265_table_elem_temp_name); /* line 373 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1148] /* "++;\n" */); /* line 374 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8262_c_expr); /* line 375 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1146] /* "} /* while *\/\n" */); /* line 376 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8262_c_expr); /* line 377 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1149] /* "} /* hsh_for *\/\n" */); /* line 244 "../lib/comp/hsh_act.s7i" */ strDestr(o_8263_hash_temp_name); /* line 244 "../lib/comp/hsh_act.s7i" */ strDestr(o_8264_counter_temp_name); /* line 244 "../lib/comp/hsh_act.s7i" */ strDestr(o_8265_table_elem_temp_name); /* line 244 "../lib/comp/hsh_act.s7i" */ strDestr(o_8266_helem_temp_name); /* line 244 "../lib/comp/hsh_act.s7i" */ strDestr(o_8267_stack_temp_name); } /* line 1 "no_file" */ /* 4168 */ /* line 381 "../lib/comp/hsh_act.s7i" */ static void/*t_1_void*/ o_8268_HSH_FOR (const objRefType/*t_19_reference*/ o_8269_function, const listType/*t_20_ref_list*/ *const o_8270_params, structType/*t_164_expr_type*/ *const o_8271_c_expr) { /* line 385 "../lib/comp/hsh_act.s7i" */ o_5088_declare_func_pointer_if_necessary(rflIdx(*o_8270_params, 4L), &(o_4794_global_c_expr)); /* line 386 "../lib/comp/hsh_act.s7i" */ o_8255_process_hsh_for_generic(rflIdx(*o_8270_params, 1L), NULL, rflIdx(*o_8270_params, 2L), rflIdx(*o_8270_params, 3L), rflIdx(*o_8270_params, 4L), NULL, o_8271_c_expr); } /* line 1 "no_file" */ /* 4169 */ /* line 390 "../lib/comp/hsh_act.s7i" */ static void/*t_1_void*/ o_8272_HSH_FOR_DATA_KEY (const objRefType/*t_19_reference*/ o_8273_function, const listType/*t_20_ref_list*/ *const o_8274_params, structType/*t_164_expr_type*/ *const o_8275_c_expr) { /* line 394 "../lib/comp/hsh_act.s7i" */ o_5088_declare_func_pointer_if_necessary(rflIdx(*o_8274_params, 5L), &(o_4794_global_c_expr)); /* line 395 "../lib/comp/hsh_act.s7i" */ o_5088_declare_func_pointer_if_necessary(rflIdx(*o_8274_params, 6L), &(o_4794_global_c_expr)); /* line 396 "../lib/comp/hsh_act.s7i" */ o_8255_process_hsh_for_generic(rflIdx(*o_8274_params, 1L), rflIdx(*o_8274_params, 2L), rflIdx(*o_8274_params, 3L), rflIdx(*o_8274_params, 4L), rflIdx(*o_8274_params, 5L), rflIdx(*o_8274_params, 6L), o_8275_c_expr); } /* line 1 "no_file" */ /* 4170 */ /* line 400 "../lib/comp/hsh_act.s7i" */ static void/*t_1_void*/ o_8276_HSH_FOR_KEY (const objRefType/*t_19_reference*/ o_8277_function, const listType/*t_20_ref_list*/ *const o_8278_params, structType/*t_164_expr_type*/ *const o_8279_c_expr) { /* line 404 "../lib/comp/hsh_act.s7i" */ o_5088_declare_func_pointer_if_necessary(rflIdx(*o_8278_params, 4L), &(o_4794_global_c_expr)); /* line 405 "../lib/comp/hsh_act.s7i" */ o_8255_process_hsh_for_generic(NULL, rflIdx(*o_8278_params, 1L), rflIdx(*o_8278_params, 2L), rflIdx(*o_8278_params, 3L), NULL, rflIdx(*o_8278_params, 4L), o_8279_c_expr); } /* line 1 "no_file" */ /* 4171 */ /* line 409 "../lib/comp/hsh_act.s7i" */ static void/*t_1_void*/ o_8280_HSH_IDX (const objRefType/*t_19_reference*/ o_8281_function, const listType/*t_20_ref_list*/ *const o_8282_params, structType/*t_164_expr_type*/ *const o_8283_c_expr) { /* line 413 "../lib/comp/hsh_act.s7i" */ typeType/*t_7_type*/ o_8284_proc_type=typ[0] /* void/t_1_void */; /* line 414 "../lib/comp/hsh_act.s7i" */ typeType/*t_7_type*/ o_8285_result_type=typ[0] /* void/t_1_void */; /* line 415 "../lib/comp/hsh_act.s7i" */ striType/*t_15_string*/ o_8286_temp_name; /* line 415 "../lib/comp/hsh_act.s7i" */ o_8286_temp_name=strEmpty(); /* "" */ /* line 417 "../lib/comp/hsh_act.s7i" */ o_5088_declare_func_pointer_if_necessary(rflIdx(*o_8282_params, 4L), &(o_4794_global_c_expr)); /* line 418 "../lib/comp/hsh_act.s7i" */ o_8284_proc_type=refType(o_8281_function); /* line 419 "../lib/comp/hsh_act.s7i" */ o_8285_result_type=typResult(o_8284_proc_type); /* line 420 "../lib/comp/hsh_act.s7i" */ if (typIsVarfunc(o_8284_proc_type)) { /* line 421 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8283_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1150] /* "hshIdxAddr(" */); } else { { /* line 423 "../lib/comp/hsh_act.s7i" */ striType old_stri=o_8286_temp_name; /* line 423 "../lib/comp/hsh_act.s7i" */ o_8286_temp_name=o_5051_beginCastGeneric(&(o_8285_result_type), o_8283_c_expr); /* line 423 "../lib/comp/hsh_act.s7i" */ strDestr(old_stri); } /* line 424 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8283_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1151] /* "hshIdx(" */); } /* line 426 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8282_params, 1L), o_8283_c_expr); /* line 427 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8283_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 428 "../lib/comp/hsh_act.s7i" */ o_4985_getGenericValue(rflIdx(*o_8282_params, 2L), o_8283_c_expr); /* line 429 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8283_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 430 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8282_params, 3L), o_8283_c_expr); /* line 431 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8283_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[449] /* ", (compareType)(" */); /* line 432 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8282_params, 4L), o_8283_c_expr); /* line 433 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8283_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); /* line 434 "../lib/comp/hsh_act.s7i" */ if (typIsVarfunc(o_8284_proc_type)) { /* line 435 "../lib/comp/hsh_act.s7i" */ strAppendTemp(&(((structType)(*o_8283_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4762_select_value_from_rtlObjectptr(&(o_8285_result_type))); } else { /* line 437 "../lib/comp/hsh_act.s7i" */ o_5055_endCastGeneric(&(o_8285_result_type), o_8286_temp_name, o_8283_c_expr); } /* line 409 "../lib/comp/hsh_act.s7i" */ strDestr(o_8286_temp_name); } /* line 1 "no_file" */ /* 4172 */ /* line 442 "../lib/comp/hsh_act.s7i" */ static void/*t_1_void*/ o_8287_HSH_IDX2 (const objRefType/*t_19_reference*/ o_8288_function, const listType/*t_20_ref_list*/ *const o_8289_params, structType/*t_164_expr_type*/ *const o_8290_c_expr) { /* line 446 "../lib/comp/hsh_act.s7i" */ typeType/*t_7_type*/ o_8291_proc_type=typ[0] /* void/t_1_void */; /* line 447 "../lib/comp/hsh_act.s7i" */ typeType/*t_7_type*/ o_8292_result_type=typ[0] /* void/t_1_void */; /* line 448 "../lib/comp/hsh_act.s7i" */ striType/*t_15_string*/ o_8293_addr_temp_name; /* line 448 "../lib/comp/hsh_act.s7i" */ o_8293_addr_temp_name=strEmpty(); /* "" */ /* line 450 "../lib/comp/hsh_act.s7i" */ o_5088_declare_func_pointer_if_necessary(rflIdx(*o_8289_params, 5L), &(o_4794_global_c_expr)); /* line 451 "../lib/comp/hsh_act.s7i" */ o_5088_declare_func_pointer_if_necessary(rflIdx(*o_8289_params, 6L), &(o_4794_global_c_expr)); /* line 452 "../lib/comp/hsh_act.s7i" */ o_8291_proc_type=refType(o_8288_function); /* line 453 "../lib/comp/hsh_act.s7i" */ o_8292_result_type=typResult(o_8291_proc_type); /* line 454 "../lib/comp/hsh_act.s7i" */ ++(((structType)(*o_8290_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 455 "../lib/comp/hsh_act.s7i" */ union { /* line 455 "../lib/comp/hsh_act.s7i" */ struct striStruct striBuf; /* line 455 "../lib/comp/hsh_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 455 "../lib/comp/hsh_act.s7i" */ } buffer_2; /* line 455 "../lib/comp/hsh_act.s7i" */ striType old_stri=o_8293_addr_temp_name; /* line 455 "../lib/comp/hsh_act.s7i" */ o_8293_addr_temp_name=strConcat(&str[1152] /* "addr_" */, intStrToBuffer(((structType)(*o_8290_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 455 "../lib/comp/hsh_act.s7i" */ strDestr(old_stri); } /* line 456 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8290_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[1153] /* "rtlObjectType *" */); /* line 457 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8290_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_8293_addr_temp_name); /* line 458 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8290_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 459 "../lib/comp/hsh_act.s7i" */ { /* line 459 "../lib/comp/hsh_act.s7i" */ striType *tmp_1; /* line 459 "../lib/comp/hsh_act.s7i" */ tmp_1=&(((structType)(*o_8290_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 459 "../lib/comp/hsh_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 459 "../lib/comp/hsh_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 459 "../lib/comp/hsh_act.s7i" */ } else { /* line 459 "../lib/comp/hsh_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 459 "../lib/comp/hsh_act.s7i" */ (*tmp_1)->size++; /* line 459 "../lib/comp/hsh_act.s7i" */ } } /* line 460 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8290_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8293_addr_temp_name); /* line 461 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8290_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1154] /* "=hshIdxAddr2(" */); /* line 462 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8289_params, 1L), o_8290_c_expr); /* line 463 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8290_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 464 "../lib/comp/hsh_act.s7i" */ o_4985_getGenericValue(rflIdx(*o_8289_params, 2L), o_8290_c_expr); /* line 465 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8290_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 466 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8289_params, 3L), o_8290_c_expr); /* line 467 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8290_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[449] /* ", (compareType)(" */); /* line 468 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8289_params, 5L), o_8290_c_expr); /* line 469 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8290_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1155] /* "))," */); /* line 470 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8290_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8293_addr_temp_name); /* line 471 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8290_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1156] /* "!=NULL?" */); /* line 472 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8290_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8293_addr_temp_name); /* line 473 "../lib/comp/hsh_act.s7i" */ strAppendTemp(&(((structType)(*o_8290_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4762_select_value_from_rtlObjectptr(&(o_8292_result_type))); /* line 474 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8290_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1157] /* ":(" */); /* line 475 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8289_params, 4L), o_8290_c_expr); /* line 476 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8290_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); /* line 442 "../lib/comp/hsh_act.s7i" */ strDestr(o_8293_addr_temp_name); } /* line 1 "no_file" */ /* 4173 */ /* line 480 "../lib/comp/hsh_act.s7i" */ static void/*t_1_void*/ o_8294_HSH_INCL (const objRefType/*t_19_reference*/ o_8295_function, const listType/*t_20_ref_list*/ *const o_8296_params, structType/*t_164_expr_type*/ *const o_8297_c_expr) { /* line 484 "../lib/comp/hsh_act.s7i" */ o_5088_declare_func_pointer_if_necessary(rflIdx(*o_8296_params, 5L), &(o_4794_global_c_expr)); /* line 485 "../lib/comp/hsh_act.s7i" */ o_5088_declare_func_pointer_if_necessary(rflIdx(*o_8296_params, 6L), &(o_4794_global_c_expr)); /* line 486 "../lib/comp/hsh_act.s7i" */ o_5088_declare_func_pointer_if_necessary(rflIdx(*o_8296_params, 7L), &(o_4794_global_c_expr)); /* line 487 "../lib/comp/hsh_act.s7i" */ o_5088_declare_func_pointer_if_necessary(rflIdx(*o_8296_params, 8L), &(o_4794_global_c_expr)); /* line 488 "../lib/comp/hsh_act.s7i" */ o_4819_setDiagnosticLine(o_8297_c_expr); /* line 489 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8297_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1158] /* "hshIncl(" */); /* line 490 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8296_params, 1L), o_8297_c_expr); /* line 491 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8297_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 492 "../lib/comp/hsh_act.s7i" */ o_4985_getGenericValue(rflIdx(*o_8296_params, 2L), o_8297_c_expr); /* line 493 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8297_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 494 "../lib/comp/hsh_act.s7i" */ o_4985_getGenericValue(rflIdx(*o_8296_params, 3L), o_8297_c_expr); /* line 495 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8297_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 496 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8296_params, 4L), o_8297_c_expr); /* line 497 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8297_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[449] /* ", (compareType)(" */); /* line 498 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8296_params, 5L), o_8297_c_expr); /* line 499 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8297_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1113] /* "), (createFuncType)(" */); /* line 500 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8296_params, 6L), o_8297_c_expr); /* line 501 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8297_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1113] /* "), (createFuncType)(" */); /* line 502 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8296_params, 7L), o_8297_c_expr); /* line 503 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8297_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1159] /* "), (copyFuncType)(" */); /* line 504 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8296_params, 8L), o_8297_c_expr); /* line 505 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8297_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); } /* line 1 "no_file" */ /* 4174 */ /* line 509 "../lib/comp/hsh_act.s7i" */ static void/*t_1_void*/ o_8298_HSH_KEYS (const objRefType/*t_19_reference*/ o_8299_function, const listType/*t_20_ref_list*/ *const o_8300_params, structType/*t_164_expr_type*/ *const o_8301_c_expr) { { /* line 513 "../lib/comp/hsh_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 513 "../lib/comp/hsh_act.s7i" */ o_4944_prepare_typed_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_8299_function))), &tmp_1), o_8301_c_expr); } /* line 514 "../lib/comp/hsh_act.s7i" */ strCopy(&(((structType)(*o_8301_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1160] /* "hshKeys(" */); /* line 515 "../lib/comp/hsh_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_8300_params, 1L), o_8301_c_expr); /* line 516 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8301_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1111] /* ", (createFuncType)(" */); /* line 517 "../lib/comp/hsh_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_8300_params, 2L), o_8301_c_expr); /* line 518 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8301_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1112] /* "), (destrFuncType)(" */); /* line 519 "../lib/comp/hsh_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_8300_params, 3L), o_8301_c_expr); /* line 520 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8301_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 4175 */ /* line 524 "../lib/comp/hsh_act.s7i" */ static void/*t_1_void*/ o_8302_HSH_LNG (const objRefType/*t_19_reference*/ o_8303_function, const listType/*t_20_ref_list*/ *const o_8304_params, structType/*t_164_expr_type*/ *const o_8305_c_expr) { /* line 528 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8305_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[676] /* "(intType)((" */); /* line 529 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8304_params, 1L), o_8305_c_expr); /* line 530 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8305_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[677] /* ")->size)" */); } /* line 1 "no_file" */ /* 4176 */ /* line 534 "../lib/comp/hsh_act.s7i" */ static void/*t_1_void*/ o_8306_HSH_UPDATE (const objRefType/*t_19_reference*/ o_8307_function, const listType/*t_20_ref_list*/ *const o_8308_params, structType/*t_164_expr_type*/ *const o_8309_c_expr) { /* line 538 "../lib/comp/hsh_act.s7i" */ typeType/*t_7_type*/ o_8310_result_type=typ[0] /* void/t_1_void */; /* line 539 "../lib/comp/hsh_act.s7i" */ striType/*t_15_string*/ o_8311_temp_name; /* line 539 "../lib/comp/hsh_act.s7i" */ o_8311_temp_name=strEmpty(); /* "" */ /* line 541 "../lib/comp/hsh_act.s7i" */ o_5088_declare_func_pointer_if_necessary(rflIdx(*o_8308_params, 5L), &(o_4794_global_c_expr)); /* line 542 "../lib/comp/hsh_act.s7i" */ o_5088_declare_func_pointer_if_necessary(rflIdx(*o_8308_params, 6L), &(o_4794_global_c_expr)); /* line 543 "../lib/comp/hsh_act.s7i" */ o_5088_declare_func_pointer_if_necessary(rflIdx(*o_8308_params, 7L), &(o_4794_global_c_expr)); /* line 544 "../lib/comp/hsh_act.s7i" */ o_8310_result_type=typResult(refType(o_8307_function)); /* line 545 "../lib/comp/hsh_act.s7i" */ if (o_4764_valueIsAtHeap(&(o_8310_result_type))) { /* line 546 "../lib/comp/hsh_act.s7i" */ o_4944_prepare_typed_result(&(o_8310_result_type), o_8309_c_expr); { /* line 547 "../lib/comp/hsh_act.s7i" */ striType old_stri=o_8311_temp_name; /* line 547 "../lib/comp/hsh_act.s7i" */ o_8311_temp_name=o_5059_beginCastGenericToResultExpr(&(o_8310_result_type), o_8309_c_expr); /* line 547 "../lib/comp/hsh_act.s7i" */ strDestr(old_stri); } /* line 548 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8309_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1161] /* "hshUpdate(" */); /* line 549 "../lib/comp/hsh_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_8308_params, 1L), o_8309_c_expr); /* line 550 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8309_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 551 "../lib/comp/hsh_act.s7i" */ o_4990_getGenericValueToResultExpr(rflIdx(*o_8308_params, 2L), o_8309_c_expr); /* line 552 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8309_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[386] /* ", (genericType)(" */); /* line 553 "../lib/comp/hsh_act.s7i" */ o_5000_getGenericTemporaryToResultExpr(rflIdx(*o_8308_params, 3L), o_8309_c_expr); /* line 554 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8309_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[267] /* "), " */); /* line 555 "../lib/comp/hsh_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_8308_params, 4L), o_8309_c_expr); /* line 556 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8309_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[449] /* ", (compareType)(" */); /* line 557 "../lib/comp/hsh_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_8308_params, 5L), o_8309_c_expr); /* line 558 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8309_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1113] /* "), (createFuncType)(" */); /* line 559 "../lib/comp/hsh_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_8308_params, 6L), o_8309_c_expr); /* line 560 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8309_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1113] /* "), (createFuncType)(" */); /* line 561 "../lib/comp/hsh_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_8308_params, 7L), o_8309_c_expr); /* line 562 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8309_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[240] /* "))" */); /* line 563 "../lib/comp/hsh_act.s7i" */ o_5063_endCastGenericToResultExpr(&(o_8310_result_type), o_8311_temp_name, o_8309_c_expr); } else { { /* line 565 "../lib/comp/hsh_act.s7i" */ striType old_stri=o_8311_temp_name; /* line 565 "../lib/comp/hsh_act.s7i" */ o_8311_temp_name=o_5051_beginCastGeneric(&(o_8310_result_type), o_8309_c_expr); /* line 565 "../lib/comp/hsh_act.s7i" */ strDestr(old_stri); } /* line 566 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8309_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1161] /* "hshUpdate(" */); /* line 567 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8308_params, 1L), o_8309_c_expr); /* line 568 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8309_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 569 "../lib/comp/hsh_act.s7i" */ o_4985_getGenericValue(rflIdx(*o_8308_params, 2L), o_8309_c_expr); /* line 570 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8309_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 571 "../lib/comp/hsh_act.s7i" */ o_4985_getGenericValue(rflIdx(*o_8308_params, 3L), o_8309_c_expr); /* line 572 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8309_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 573 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8308_params, 4L), o_8309_c_expr); /* line 574 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8309_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[449] /* ", (compareType)(" */); /* line 575 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8308_params, 5L), o_8309_c_expr); /* line 576 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8309_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1113] /* "), (createFuncType)(" */); /* line 577 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8308_params, 6L), o_8309_c_expr); /* line 578 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8309_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1113] /* "), (createFuncType)(" */); /* line 579 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8308_params, 7L), o_8309_c_expr); /* line 580 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8309_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); /* line 581 "../lib/comp/hsh_act.s7i" */ o_5055_endCastGeneric(&(o_8310_result_type), o_8311_temp_name, o_8309_c_expr); } /* line 534 "../lib/comp/hsh_act.s7i" */ strDestr(o_8311_temp_name); } /* line 1 "no_file" */ /* 4177 */ /* line 586 "../lib/comp/hsh_act.s7i" */ static void/*t_1_void*/ o_8312_HSH_VALUES (const objRefType/*t_19_reference*/ o_8313_function, const listType/*t_20_ref_list*/ *const o_8314_params, structType/*t_164_expr_type*/ *const o_8315_c_expr) { /* line 590 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8315_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1162] /* "hshValues(" */); /* line 591 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8314_params, 1L), o_8315_c_expr); /* line 592 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8315_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1111] /* ", (createFuncType)(" */); /* line 593 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8314_params, 2L), o_8315_c_expr); /* line 594 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8315_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1112] /* "), (destrFuncType)(" */); /* line 595 "../lib/comp/hsh_act.s7i" */ o_4941_process_expr(rflIdx(*o_8314_params, 3L), o_8315_c_expr); /* line 596 "../lib/comp/hsh_act.s7i" */ strAppend(&(((structType)(*o_8315_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 4178 */ /* 4179 */ /* line 91 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8316_int_prototypes (interfaceType/*t_46_file*/ *const o_8317_c_prog) { /* line 94 "../lib/comp/int_act.s7i" */ o_6547_declareExtern(o_8317_c_prog, &str[1163] /* "intType intBinom (intType, intType);" */); /* line 95 "../lib/comp/int_act.s7i" */ o_6547_declareExtern(o_8317_c_prog, &str[1164] /* "intType intBitLength (intType);" */); /* line 96 "../lib/comp/int_act.s7i" */ o_6547_declareExtern(o_8317_c_prog, &str[1165] /* "striType intBytesBe (intType, boolType);" */); /* line 97 "../lib/comp/int_act.s7i" */ o_6547_declareExtern(o_8317_c_prog, &str[1166] /* "intType intBytesBe2Int (const const_striType, boolType);" */); /* line 98 "../lib/comp/int_act.s7i" */ o_6547_declareExtern(o_8317_c_prog, &str[1167] /* "striType intBytesLe (intType, boolType);" */); /* line 99 "../lib/comp/int_act.s7i" */ o_6547_declareExtern(o_8317_c_prog, &str[1168] /* "intType intBytesLe2Int (const const_striType, boolType);" */); /* line 100 "../lib/comp/int_act.s7i" */ o_6547_declareExtern(o_8317_c_prog, &str[1169] /* "intType intCmp (intType, intType);" */); /* line 101 "../lib/comp/int_act.s7i" */ o_6547_declareExtern(o_8317_c_prog, &str[1170] /* "intType intCmpGeneric (const genericType, const genericType);" */); /* line 102 "../lib/comp/int_act.s7i" */ o_6547_declareExtern(o_8317_c_prog, &str[1171] /* "intType intLog10 (intType);" */); /* line 103 "../lib/comp/int_act.s7i" */ o_6547_declareExtern(o_8317_c_prog, &str[1172] /* "intType intLog2 (intType);" */); /* line 104 "../lib/comp/int_act.s7i" */ o_6547_declareExtern(o_8317_c_prog, &str[1173] /* "intType intLowestSetBit (intType);" */); /* line 105 "../lib/comp/int_act.s7i" */ o_6547_declareExtern(o_8317_c_prog, &str[1174] /* "striType intLpad0 (intType, const intType);" */); /* line 106 "../lib/comp/int_act.s7i" */ o_6547_declareExtern(o_8317_c_prog, &str[1175] /* "intType intParse (const const_striType);" */); /* line 107 "../lib/comp/int_act.s7i" */ o_6547_declareExtern(o_8317_c_prog, &str[1176] /* "intType intPow (intType, intType);" */); /* line 108 "../lib/comp/int_act.s7i" */ o_6547_declareExtern(o_8317_c_prog, &str[1177] /* "intType intPowOvfChk (intType, intType);" */); /* line 109 "../lib/comp/int_act.s7i" */ o_6547_declareExtern(o_8317_c_prog, &str[1178] /* "striType intRadix (intType, intType, boolType);" */); /* line 110 "../lib/comp/int_act.s7i" */ o_6547_declareExtern(o_8317_c_prog, &str[1179] /* "striType intRadixPow2 (intType, int, int, boolType);" */); /* line 111 "../lib/comp/int_act.s7i" */ o_6547_declareExtern(o_8317_c_prog, &str[1180] /* "intType intRand (intType, intType);" */); /* line 112 "../lib/comp/int_act.s7i" */ o_6547_declareExtern(o_8317_c_prog, &str[1181] /* "intType intSqrt (intType);" */); /* line 113 "../lib/comp/int_act.s7i" */ o_6547_declareExtern(o_8317_c_prog, &str[1182] /* "striType intStr (intType);" */); /* line 114 "../lib/comp/int_act.s7i" */ o_6547_declareExtern(o_8317_c_prog, &str[1183] /* "striType intStrToBuffer (intType, striType);" */); /* line 115 "../lib/comp/int_act.s7i" */ o_6547_declareExtern(o_8317_c_prog, &str[1184] /* "intType intValue (objRefType);" */); } /* line 1 "no_file" */ /* 4180 */ /* line 131 "../lib/comp/int_act.s7i" */ static boolType/*t_13_boolean*/ o_8318_constValueIsEqual (const objRefType/*t_19_reference*/ o_8319_anExpr, const intType/*t_14_integer*/ o_8320_number) { /* line 134 "../lib/comp/int_act.s7i" */ boolType/*t_13_boolean*/ o_8321_isEqual=o_25_FALSE; /* line 136 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8322_aParam=NULL; /* line 138 "../lib/comp/int_act.s7i" */ if (((refCategory(o_8319_anExpr)) == (9L)) && /* line 139 "../lib/comp/int_act.s7i" */ (!(refIsVar(o_8319_anExpr))) && /* line 140 "../lib/comp/int_act.s7i" */ ((intValue(o_8319_anExpr)) == (o_8320_number))) { /* line 141 "../lib/comp/int_act.s7i" */ o_8321_isEqual=o_26_TRUE; } else /* line 142 "../lib/comp/int_act.s7i" */ if ((o_8320_number) < (0L)) { /* line 143 "../lib/comp/int_act.s7i" */ if (o_5093_isActionExpression(o_8319_anExpr, &str[1185] /* "INT_NEGATE" */)) { /* line 144 "../lib/comp/int_act.s7i" */ o_8322_aParam=o_5098_getActionParameter(o_8319_anExpr, 2L); /* line 145 "../lib/comp/int_act.s7i" */ if (((refCategory(o_8322_aParam)) == (9L)) && /* line 146 "../lib/comp/int_act.s7i" */ (!(refIsVar(o_8322_aParam))) && /* line 147 "../lib/comp/int_act.s7i" */ ((intValue(o_8322_aParam)) == (-(o_8320_number)))) { /* line 148 "../lib/comp/int_act.s7i" */ o_8321_isEqual=o_26_TRUE; } } } return o_8321_isEqual; } /* line 1 "no_file" */ /* 4181 */ /* line 155 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8323_checkRangeFromZero (const const_striType/*t_15_string*/ o_8324_number_name, const const_striType/*t_15_string*/ o_8325_beyond, structType/*t_164_expr_type*/ *const o_8326_c_expr) { /* line 159 "../lib/comp/int_act.s7i" */ if (((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/) { /* line 160 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8326_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1186] /* "(uintType)" */); /* line 161 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8326_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8324_number_name); /* line 162 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8326_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1187] /* ">=(uintType)" */); /* line 163 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8326_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8325_beyond); } else { /* line 165 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8326_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8324_number_name); /* line 166 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8326_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1188] /* "<0||" */); /* line 167 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8326_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8324_number_name); /* line 168 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8326_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[414] /* ">=" */); /* line 169 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8326_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8325_beyond); } } /* line 1 "no_file" */ /* 4182 */ /* line 175 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8327_checkIfOutsideRange (const const_striType/*t_15_string*/ o_8328_number_name, const intType/*t_14_integer*/ o_8329_lowerBound, const intType/*t_14_integer*/ o_8330_upperBound, structType/*t_164_expr_type*/ *const o_8331_c_expr) { /* line 179 "../lib/comp/int_act.s7i" */ if (((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/) { /* line 181 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8331_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1186] /* "(uintType)" */); /* line 182 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8331_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8328_number_name); /* line 183 "../lib/comp/int_act.s7i" */ if ((o_8329_lowerBound) < (0L)) { /* line 184 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8331_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1189] /* "+(uintType)" */); /* line 185 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8331_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(-(o_8329_lowerBound))); } else /* line 186 "../lib/comp/int_act.s7i" */ if ((o_8329_lowerBound) > (0L)) { /* line 187 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8331_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1190] /* "-(uintType)" */); /* line 188 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8331_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8329_lowerBound)); } /* line 190 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8331_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1191] /* ">(uintType)" */); /* line 191 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8331_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((o_8330_upperBound) - (o_8329_lowerBound))); } else { /* line 194 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8331_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8328_number_name); /* line 195 "../lib/comp/int_act.s7i" */ { /* line 195 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 195 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8331_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 195 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 195 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '<'); /* line 195 "../lib/comp/int_act.s7i" */ } else { /* line 195 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '<'; /* line 195 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 195 "../lib/comp/int_act.s7i" */ } } /* line 196 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8331_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8329_lowerBound)); /* line 197 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8331_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1192] /* "||" */); /* line 198 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8331_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8328_number_name); /* line 199 "../lib/comp/int_act.s7i" */ { /* line 199 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 199 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8331_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 199 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 199 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '>'); /* line 199 "../lib/comp/int_act.s7i" */ } else { /* line 199 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '>'; /* line 199 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 199 "../lib/comp/int_act.s7i" */ } } /* line 200 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8331_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8330_upperBound)); } } /* line 1 "no_file" */ /* 4183 */ /* line 205 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8332_negate (const objRefType/*t_19_reference*/ o_8333_number, structType/*t_164_expr_type*/ *const o_8334_c_expr) { /* line 208 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8335_number_name; /* line 208 "../lib/comp/int_act.s7i" */ o_8335_number_name=strEmpty(); /* "" */ /* line 210 "../lib/comp/int_act.s7i" */ if ((o_3461_check_int_arithmetic_overflow) && /* line 210 "../lib/comp/int_act.s7i" */ (((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/)) { /* line 211 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 212 "../lib/comp/int_act.s7i" */ { /* line 212 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 212 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 212 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 212 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 212 "../lib/comp/int_act.s7i" */ } else { /* line 212 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 212 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 212 "../lib/comp/int_act.s7i" */ } } { /* line 213 "../lib/comp/int_act.s7i" */ striType old_stri=o_8335_number_name; /* line 213 "../lib/comp/int_act.s7i" */ o_8335_number_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_8333_number, o_8334_c_expr); /* line 213 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 214 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 215 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8335_number_name); /* line 216 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1194] /* "==" */); /* line 217 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); /* line 218 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 219 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 220 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1197] /* ": -" */); /* line 221 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8335_number_name); /* line 222 "../lib/comp/int_act.s7i" */ { /* line 222 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 222 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 222 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 222 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 222 "../lib/comp/int_act.s7i" */ } else { /* line 222 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 222 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 222 "../lib/comp/int_act.s7i" */ } } } else { /* line 224 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1059] /* "-(" */); /* line 225 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8333_number, o_8334_c_expr); /* line 226 "../lib/comp/int_act.s7i" */ { /* line 226 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 226 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 226 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 226 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 226 "../lib/comp/int_act.s7i" */ } else { /* line 226 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 226 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 226 "../lib/comp/int_act.s7i" */ } } } /* line 205 "../lib/comp/int_act.s7i" */ strDestr(o_8335_number_name); } /* line 1 "no_file" */ /* 4184 */ /* line 232 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8336_INT_ABS (const objRefType/*t_19_reference*/ o_8337_function, const listType/*t_20_ref_list*/ *const o_8338_params, structType/*t_164_expr_type*/ *const o_8339_c_expr) { /* line 236 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8340_evaluatedParam=NULL; /* line 237 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8341_number_name; /* line 238 "../lib/comp/int_act.s7i" */ intType/*t_14_integer*/ o_8342_number=0; /* line 237 "../lib/comp/int_act.s7i" */ o_8341_number_name=strEmpty(); /* "" */ /* line 240 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8338_params, 1L), 9L, &(o_8340_evaluatedParam))) { /* line 241 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 242 "../lib/comp/int_act.s7i" */ o_8342_number=intValue(o_8340_evaluatedParam); /* line 243 "../lib/comp/int_act.s7i" */ if (((o_8342_number) == ((-9223372036854775807L-1L))) && /* line 243 "../lib/comp/int_act.s7i" */ (((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/)) { /* line 244 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[1196] /* "OVERFLOW_ERROR" */, *o_8339_c_expr); /* line 245 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8339_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); } else { /* line 247 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8339_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(((o_8342_number)<0? -(o_8342_number):(o_8342_number)))); } } else { /* line 250 "../lib/comp/int_act.s7i" */ { /* line 250 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 250 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8339_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 250 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 250 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 250 "../lib/comp/int_act.s7i" */ } else { /* line 250 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 250 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 250 "../lib/comp/int_act.s7i" */ } } { /* line 251 "../lib/comp/int_act.s7i" */ striType old_stri=o_8341_number_name; /* line 251 "../lib/comp/int_act.s7i" */ o_8341_number_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8338_params, 1L), o_8339_c_expr); /* line 251 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 252 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8339_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8341_number_name); /* line 253 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8339_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1198] /* "<0?" */); /* line 254 "../lib/comp/int_act.s7i" */ if ((o_3461_check_int_arithmetic_overflow) && /* line 254 "../lib/comp/int_act.s7i" */ (((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/)) { /* line 255 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 256 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8339_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1199] /* "(ovfChk(" */); /* line 257 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8339_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8341_number_name); /* line 258 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8339_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1194] /* "==" */); /* line 259 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8339_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); /* line 260 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8339_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 261 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8339_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 262 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8339_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1197] /* ": -" */); /* line 263 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8339_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8341_number_name); /* line 264 "../lib/comp/int_act.s7i" */ { /* line 264 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 264 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8339_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 264 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 264 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 264 "../lib/comp/int_act.s7i" */ } else { /* line 264 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 264 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 264 "../lib/comp/int_act.s7i" */ } } } else { /* line 266 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8339_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1200] /* " -" */); /* line 267 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8339_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8341_number_name); } /* line 269 "../lib/comp/int_act.s7i" */ { /* line 269 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 269 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8339_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 269 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 269 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 269 "../lib/comp/int_act.s7i" */ } else { /* line 269 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 269 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 269 "../lib/comp/int_act.s7i" */ } } /* line 270 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8339_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8341_number_name); /* line 271 "../lib/comp/int_act.s7i" */ { /* line 271 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 271 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8339_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 271 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 271 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 271 "../lib/comp/int_act.s7i" */ } else { /* line 271 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 271 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 271 "../lib/comp/int_act.s7i" */ } } } /* line 232 "../lib/comp/int_act.s7i" */ strDestr(o_8341_number_name); } /* line 1 "no_file" */ /* 4185 */ /* line 276 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8343_process_const_int_add (const objRefType/*t_19_reference*/ o_8344_summand1, const intType/*t_14_integer*/ o_8345_summand2, structType/*t_164_expr_type*/ *const o_8346_c_expr) { /* line 280 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8347_evaluatedParam=NULL; /* line 281 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8348_summand1_name; /* line 281 "../lib/comp/int_act.s7i" */ o_8348_summand1_name=strEmpty(); /* "" */ /* line 283 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(o_8344_summand1, 9L, &(o_8347_evaluatedParam))) { /* line 284 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 285 "../lib/comp/int_act.s7i" */ { /* line 285 "../lib/comp/int_act.s7i" */ int fail_value; /* line 285 "../lib/comp/int_act.s7i" */ catch_stack_pos++; /* line 285 "../lib/comp/int_act.s7i" */ if (unlikely(catch_stack_pos >= max_catch_stack)) { /* line 285 "../lib/comp/int_act.s7i" */ resize_catch_stack(); /* line 285 "../lib/comp/int_act.s7i" */ } /* line 285 "../lib/comp/int_act.s7i" */ if (likely((fail_value = do_setjmp(catch_stack[catch_stack_pos])) == 0)) { /* line 286 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8346_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((intValue(o_8347_evaluatedParam)) + (o_8345_summand2))); /* line 286 "../lib/comp/int_act.s7i" */ catch_stack_pos--; /* line 288 "../lib/comp/int_act.s7i" */ } else { /* line 286 "../lib/comp/int_act.s7i" */ catch_stack_pos--; /* line 288 "../lib/comp/int_act.s7i" */ if (o_17_OVERFLOW_ERROR == fail_value - 1) { /* line 289 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[1196] /* "OVERFLOW_ERROR" */, *o_8346_c_expr); /* line 290 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8346_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 291 "../lib/comp/int_act.s7i" */ } else { /* line 291 "../lib/comp/int_act.s7i" */ rtlRaiseError(fail_value, error_file, error_line); /* line 291 "../lib/comp/int_act.s7i" */ } /* line 291 "../lib/comp/int_act.s7i" */ } /* line 291 "../lib/comp/int_act.s7i" */ } } else /* line 292 "../lib/comp/int_act.s7i" */ if ((o_8345_summand2) == (0L)) { /* line 293 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 294 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8344_summand1, o_8346_c_expr); } else /* line 295 "../lib/comp/int_act.s7i" */ if (o_3461_check_int_arithmetic_overflow) { /* line 296 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 297 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 298 "../lib/comp/int_act.s7i" */ { /* line 298 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 298 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8346_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 298 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 298 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 298 "../lib/comp/int_act.s7i" */ } else { /* line 298 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 298 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 298 "../lib/comp/int_act.s7i" */ } } { /* line 299 "../lib/comp/int_act.s7i" */ striType old_stri=o_8348_summand1_name; /* line 299 "../lib/comp/int_act.s7i" */ o_8348_summand1_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_8344_summand1, o_8346_c_expr); /* line 299 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 300 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8346_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 301 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8346_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8348_summand1_name); /* line 302 "../lib/comp/int_act.s7i" */ if ((o_8345_summand2) < (0L)) { /* line 303 "../lib/comp/int_act.s7i" */ { /* line 303 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 303 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8346_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 303 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 303 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '<'); /* line 303 "../lib/comp/int_act.s7i" */ } else { /* line 303 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '<'; /* line 303 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 303 "../lib/comp/int_act.s7i" */ } } /* line 304 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8346_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(((-9223372036854775807L-1L)) - (o_8345_summand2))); } else { /* line 306 "../lib/comp/int_act.s7i" */ { /* line 306 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 306 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8346_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 306 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 306 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '>'); /* line 306 "../lib/comp/int_act.s7i" */ } else { /* line 306 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '>'; /* line 306 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 306 "../lib/comp/int_act.s7i" */ } } /* line 307 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8346_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((9223372036854775807L) - (o_8345_summand2))); } /* line 309 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8346_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 310 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8346_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 311 "../lib/comp/int_act.s7i" */ { /* line 311 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 311 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8346_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 311 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 311 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 311 "../lib/comp/int_act.s7i" */ } else { /* line 311 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 311 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 311 "../lib/comp/int_act.s7i" */ } } /* line 312 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8346_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8348_summand1_name); /* line 313 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8346_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1201] /* " + " */); /* line 314 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8346_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8345_summand2)); /* line 315 "../lib/comp/int_act.s7i" */ { /* line 315 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 315 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8346_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 315 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 315 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 315 "../lib/comp/int_act.s7i" */ } else { /* line 315 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 315 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 315 "../lib/comp/int_act.s7i" */ } } } else { /* line 317 "../lib/comp/int_act.s7i" */ { /* line 317 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 317 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8346_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 317 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 317 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 317 "../lib/comp/int_act.s7i" */ } else { /* line 317 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 317 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 317 "../lib/comp/int_act.s7i" */ } } /* line 318 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8344_summand1, o_8346_c_expr); /* line 319 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8346_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1202] /* ") + " */); /* line 320 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8346_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8345_summand2)); } /* line 276 "../lib/comp/int_act.s7i" */ strDestr(o_8348_summand1_name); } /* line 1 "no_file" */ /* 4186 */ /* line 325 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8349_INT_ADD (const objRefType/*t_19_reference*/ o_8350_function, const listType/*t_20_ref_list*/ *const o_8351_params, structType/*t_164_expr_type*/ *const o_8352_c_expr) { /* line 329 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8353_evaluatedParam=NULL; /* line 330 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8354_summand1_name; /* line 331 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8355_summand2_name; /* line 332 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8356_sum_name; /* line 330 "../lib/comp/int_act.s7i" */ o_8354_summand1_name=strEmpty(); /* "" */ /* line 331 "../lib/comp/int_act.s7i" */ o_8355_summand2_name=strEmpty(); /* "" */ /* line 332 "../lib/comp/int_act.s7i" */ o_8356_sum_name=strEmpty(); /* "" */ /* line 334 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8351_params, 3L), 9L, &(o_8353_evaluatedParam))) { /* line 335 "../lib/comp/int_act.s7i" */ o_8343_process_const_int_add(rflIdx(*o_8351_params, 1L), intValue(o_8353_evaluatedParam), o_8352_c_expr); } else /* line 336 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8351_params, 1L), 9L, &(o_8353_evaluatedParam))) { /* line 337 "../lib/comp/int_act.s7i" */ o_8343_process_const_int_add(rflIdx(*o_8351_params, 3L), intValue(o_8353_evaluatedParam), o_8352_c_expr); } else /* line 338 "../lib/comp/int_act.s7i" */ if (((o_3457_evaluate_const_expr) == (0L)) && /* line 339 "../lib/comp/int_act.s7i" */ ((refCategory(rflIdx(*o_8351_params, 3L))) == (9L)) && /* line 339 "../lib/comp/int_act.s7i" */ (!(refIsVar(rflIdx(*o_8351_params, 3L)))) && /* line 340 "../lib/comp/int_act.s7i" */ ((intValue(rflIdx(*o_8351_params, 3L))) == ((-9223372036854775807L-1L)))) { /* line 342 "../lib/comp/int_act.s7i" */ o_8343_process_const_int_add(rflIdx(*o_8351_params, 1L), (-9223372036854775807L-1L), o_8352_c_expr); } else /* line 343 "../lib/comp/int_act.s7i" */ if (((o_3457_evaluate_const_expr) == (0L)) && /* line 344 "../lib/comp/int_act.s7i" */ ((refCategory(rflIdx(*o_8351_params, 1L))) == (9L)) && /* line 344 "../lib/comp/int_act.s7i" */ (!(refIsVar(rflIdx(*o_8351_params, 1L)))) && /* line 345 "../lib/comp/int_act.s7i" */ ((intValue(rflIdx(*o_8351_params, 1L))) == ((-9223372036854775807L-1L)))) { /* line 347 "../lib/comp/int_act.s7i" */ o_8343_process_const_int_add(rflIdx(*o_8351_params, 3L), (-9223372036854775807L-1L), o_8352_c_expr); } else /* line 348 "../lib/comp/int_act.s7i" */ if (o_3461_check_int_arithmetic_overflow) { /* line 349 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 350 "../lib/comp/int_act.s7i" */ { /* line 350 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 350 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 350 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 350 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 350 "../lib/comp/int_act.s7i" */ } else { /* line 350 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 350 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 350 "../lib/comp/int_act.s7i" */ } } /* line 351 "../lib/comp/int_act.s7i" */ if ((rflIdx(*o_8351_params, 1L)) == (rflIdx(*o_8351_params, 3L))) { /* line 352 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); { /* line 353 "../lib/comp/int_act.s7i" */ striType old_stri=o_8354_summand1_name; /* line 353 "../lib/comp/int_act.s7i" */ o_8354_summand1_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8351_params, 1L), o_8352_c_expr); /* line 353 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 354 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 355 "../lib/comp/int_act.s7i" */ o_8327_checkIfOutsideRange(o_8354_summand1_name, ((-9223372036854775807L-1L)) / 2L, (9223372036854775807L) / 2L, o_8352_c_expr); /* line 357 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 358 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 359 "../lib/comp/int_act.s7i" */ { /* line 359 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 359 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 359 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 359 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 359 "../lib/comp/int_act.s7i" */ } else { /* line 359 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 359 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 359 "../lib/comp/int_act.s7i" */ } } /* line 360 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8354_summand1_name); /* line 361 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1201] /* " + " */); /* line 362 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8354_summand1_name); /* line 363 "../lib/comp/int_act.s7i" */ { /* line 363 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 363 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 363 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 363 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 363 "../lib/comp/int_act.s7i" */ } else { /* line 363 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 363 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 363 "../lib/comp/int_act.s7i" */ } } } else { { /* line 365 "../lib/comp/int_act.s7i" */ striType old_stri=o_8354_summand1_name; /* line 365 "../lib/comp/int_act.s7i" */ o_8354_summand1_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8351_params, 1L), o_8352_c_expr); /* line 365 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } { /* line 366 "../lib/comp/int_act.s7i" */ striType old_stri=o_8355_summand2_name; /* line 366 "../lib/comp/int_act.s7i" */ o_8355_summand2_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8351_params, 3L), o_8352_c_expr); /* line 366 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 367 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 368 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8355_summand2_name); /* line 369 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1203] /* "<0&&" */); /* line 370 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8354_summand1_name); /* line 371 "../lib/comp/int_act.s7i" */ { /* line 371 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 371 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 371 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 371 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '<'); /* line 371 "../lib/comp/int_act.s7i" */ } else { /* line 371 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '<'; /* line 371 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 371 "../lib/comp/int_act.s7i" */ } } /* line 372 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); /* line 373 "../lib/comp/int_act.s7i" */ { /* line 373 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 373 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 373 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 373 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '-'); /* line 373 "../lib/comp/int_act.s7i" */ } else { /* line 373 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '-'; /* line 373 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 373 "../lib/comp/int_act.s7i" */ } } /* line 374 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8355_summand2_name); /* line 375 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1204] /* " || " */); /* line 376 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8355_summand2_name); /* line 377 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1205] /* ">=0&&" */); /* line 378 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8354_summand1_name); /* line 379 "../lib/comp/int_act.s7i" */ { /* line 379 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 379 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 379 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 379 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '>'); /* line 379 "../lib/comp/int_act.s7i" */ } else { /* line 379 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '>'; /* line 379 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 379 "../lib/comp/int_act.s7i" */ } } /* line 380 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(9223372036854775807L)); /* line 381 "../lib/comp/int_act.s7i" */ { /* line 381 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 381 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 381 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 381 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '-'); /* line 381 "../lib/comp/int_act.s7i" */ } else { /* line 381 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '-'; /* line 381 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 381 "../lib/comp/int_act.s7i" */ } } /* line 382 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8355_summand2_name); /* line 383 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 384 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 385 "../lib/comp/int_act.s7i" */ { /* line 385 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 385 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 385 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 385 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 385 "../lib/comp/int_act.s7i" */ } else { /* line 385 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 385 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 385 "../lib/comp/int_act.s7i" */ } } /* line 386 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8354_summand1_name); /* line 387 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1201] /* " + " */); /* line 388 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8355_summand2_name); /* line 389 "../lib/comp/int_act.s7i" */ { /* line 389 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 389 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 389 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 389 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 389 "../lib/comp/int_act.s7i" */ } else { /* line 389 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 389 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 389 "../lib/comp/int_act.s7i" */ } } } } else { /* line 392 "../lib/comp/int_act.s7i" */ { /* line 392 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 392 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 392 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 392 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 392 "../lib/comp/int_act.s7i" */ } else { /* line 392 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 392 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 392 "../lib/comp/int_act.s7i" */ } } /* line 393 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8351_params, 1L), o_8352_c_expr); /* line 394 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[997] /* ") + (" */); /* line 395 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8351_params, 3L), o_8352_c_expr); /* line 396 "../lib/comp/int_act.s7i" */ { /* line 396 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 396 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 396 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 396 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 396 "../lib/comp/int_act.s7i" */ } else { /* line 396 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 396 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 396 "../lib/comp/int_act.s7i" */ } } } /* line 325 "../lib/comp/int_act.s7i" */ strDestr(o_8354_summand1_name); /* line 325 "../lib/comp/int_act.s7i" */ strDestr(o_8355_summand2_name); /* line 325 "../lib/comp/int_act.s7i" */ strDestr(o_8356_sum_name); } /* line 1 "no_file" */ /* 4187 */ /* line 401 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8357_INT_AND (const objRefType/*t_19_reference*/ o_8358_function, const listType/*t_20_ref_list*/ *const o_8359_params, structType/*t_164_expr_type*/ *const o_8360_c_expr) { /* line 405 "../lib/comp/int_act.s7i" */ { /* line 405 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 405 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8360_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 405 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 405 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 405 "../lib/comp/int_act.s7i" */ } else { /* line 405 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 405 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 405 "../lib/comp/int_act.s7i" */ } } /* line 406 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8359_params, 1L), o_8360_c_expr); /* line 407 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8360_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1206] /* ") & (" */); /* line 408 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8359_params, 3L), o_8360_c_expr); /* line 409 "../lib/comp/int_act.s7i" */ { /* line 409 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 409 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8360_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 409 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 409 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 409 "../lib/comp/int_act.s7i" */ } else { /* line 409 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 409 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 409 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4188 */ /* line 413 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8361_INT_AND_ASSIGN (const objRefType/*t_19_reference*/ o_8362_function, const listType/*t_20_ref_list*/ *const o_8363_params, structType/*t_164_expr_type*/ *const o_8364_c_expr) { /* line 417 "../lib/comp/int_act.s7i" */ structType/*t_164_expr_type*/ o_8365_statement; /* line 417 "../lib/comp/int_act.s7i" */ o_8365_statement=create_164(sct[233]); /* line 419 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8363_params, 1L), &(o_8365_statement)); /* line 420 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8365_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1207] /* "&=" */); /* line 421 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8363_params, 3L), &(o_8365_statement)); /* line 422 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8365_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 423 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8365_statement, o_8364_c_expr); /* line 413 "../lib/comp/int_act.s7i" */ destr_164(o_8365_statement); } /* line 1 "no_file" */ /* 4189 */ /* line 427 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8366_INT_BINOM (const objRefType/*t_19_reference*/ o_8367_function, const listType/*t_20_ref_list*/ *const o_8368_params, structType/*t_164_expr_type*/ *const o_8369_c_expr) { /* line 431 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8369_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1208] /* "intBinom(" */); /* line 432 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8368_params, 1L), o_8369_c_expr); /* line 433 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8369_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 434 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8368_params, 3L), o_8369_c_expr); /* line 435 "../lib/comp/int_act.s7i" */ { /* line 435 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 435 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8369_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 435 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 435 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 435 "../lib/comp/int_act.s7i" */ } else { /* line 435 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 435 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 435 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4190 */ /* line 439 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8370_INT_BIT_LENGTH (const objRefType/*t_19_reference*/ o_8371_function, const listType/*t_20_ref_list*/ *const o_8372_params, structType/*t_164_expr_type*/ *const o_8373_c_expr) { /* line 443 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8373_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1209] /* "intBitLength(" */); /* line 444 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8372_params, 1L), o_8373_c_expr); /* line 445 "../lib/comp/int_act.s7i" */ { /* line 445 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 445 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8373_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 445 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 445 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 445 "../lib/comp/int_act.s7i" */ } else { /* line 445 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 445 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 445 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4191 */ /* line 449 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8374_INT_BYTES_BE (const objRefType/*t_19_reference*/ o_8375_function, const listType/*t_20_ref_list*/ *const o_8376_params, structType/*t_164_expr_type*/ *const o_8377_c_expr) { /* line 453 "../lib/comp/int_act.s7i" */ o_4955_prepare_stri_result(o_8377_c_expr); /* line 454 "../lib/comp/int_act.s7i" */ strCopy(&(((structType)(*o_8377_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1210] /* "intBytesBe(" */); /* line 455 "../lib/comp/int_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_8376_params, 1L), o_8377_c_expr); /* line 456 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8377_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 457 "../lib/comp/int_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_8376_params, 2L), o_8377_c_expr); /* line 458 "../lib/comp/int_act.s7i" */ { /* line 458 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 458 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8377_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 458 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 458 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 458 "../lib/comp/int_act.s7i" */ } else { /* line 458 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 458 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 458 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4192 */ /* line 462 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8378_INT_BYTES_BE_2_INT (const objRefType/*t_19_reference*/ o_8379_function, const listType/*t_20_ref_list*/ *const o_8380_params, structType/*t_164_expr_type*/ *const o_8381_c_expr) { /* line 466 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8381_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1211] /* "intBytesBe2Int(" */); /* line 467 "../lib/comp/int_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_8380_params, 1L), o_8381_c_expr); /* line 468 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8381_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 469 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8380_params, 2L), o_8381_c_expr); /* line 470 "../lib/comp/int_act.s7i" */ { /* line 470 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 470 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8381_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 470 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 470 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 470 "../lib/comp/int_act.s7i" */ } else { /* line 470 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 470 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 470 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4193 */ /* line 474 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8382_INT_BYTES_LE (const objRefType/*t_19_reference*/ o_8383_function, const listType/*t_20_ref_list*/ *const o_8384_params, structType/*t_164_expr_type*/ *const o_8385_c_expr) { /* line 478 "../lib/comp/int_act.s7i" */ o_4955_prepare_stri_result(o_8385_c_expr); /* line 479 "../lib/comp/int_act.s7i" */ strCopy(&(((structType)(*o_8385_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1212] /* "intBytesLe(" */); /* line 480 "../lib/comp/int_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_8384_params, 1L), o_8385_c_expr); /* line 481 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8385_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 482 "../lib/comp/int_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_8384_params, 2L), o_8385_c_expr); /* line 483 "../lib/comp/int_act.s7i" */ { /* line 483 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 483 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8385_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 483 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 483 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 483 "../lib/comp/int_act.s7i" */ } else { /* line 483 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 483 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 483 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4194 */ /* line 487 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8386_INT_BYTES_LE_2_INT (const objRefType/*t_19_reference*/ o_8387_function, const listType/*t_20_ref_list*/ *const o_8388_params, structType/*t_164_expr_type*/ *const o_8389_c_expr) { /* line 491 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8389_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1213] /* "intBytesLe2Int(" */); /* line 492 "../lib/comp/int_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_8388_params, 1L), o_8389_c_expr); /* line 493 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8389_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 494 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8388_params, 2L), o_8389_c_expr); /* line 495 "../lib/comp/int_act.s7i" */ { /* line 495 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 495 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8389_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 495 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 495 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 495 "../lib/comp/int_act.s7i" */ } else { /* line 495 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 495 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 495 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4195 */ /* line 499 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8390_INT_CMP (const objRefType/*t_19_reference*/ o_8391_function, const listType/*t_20_ref_list*/ *const o_8392_params, structType/*t_164_expr_type*/ *const o_8393_c_expr) { /* line 503 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8393_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1214] /* "intCmp(" */); /* line 504 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8392_params, 1L), o_8393_c_expr); /* line 505 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8393_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 506 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8392_params, 2L), o_8393_c_expr); /* line 507 "../lib/comp/int_act.s7i" */ { /* line 507 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 507 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8393_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 507 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 507 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 507 "../lib/comp/int_act.s7i" */ } else { /* line 507 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 507 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 507 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4196 */ /* line 511 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8394_INT_CONV (const objRefType/*t_19_reference*/ o_8395_function, const listType/*t_20_ref_list*/ *const o_8396_params, structType/*t_164_expr_type*/ *const o_8397_c_expr) { /* line 515 "../lib/comp/int_act.s7i" */ { /* line 515 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 515 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8397_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 515 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 515 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 515 "../lib/comp/int_act.s7i" */ } else { /* line 515 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 515 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 515 "../lib/comp/int_act.s7i" */ } } /* line 516 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8396_params, 3L), o_8397_c_expr); /* line 517 "../lib/comp/int_act.s7i" */ { /* line 517 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 517 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8397_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 517 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 517 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 517 "../lib/comp/int_act.s7i" */ } else { /* line 517 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 517 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 517 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4197 */ /* line 521 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8398_INT_CPY (const objRefType/*t_19_reference*/ o_8399_function, const listType/*t_20_ref_list*/ *const o_8400_params, structType/*t_164_expr_type*/ *const o_8401_c_expr) { /* line 525 "../lib/comp/int_act.s7i" */ structType/*t_164_expr_type*/ o_8402_statement; /* line 525 "../lib/comp/int_act.s7i" */ o_8402_statement=create_164(sct[234]); /* line 527 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8400_params, 1L), &(o_8402_statement)); /* line 528 "../lib/comp/int_act.s7i" */ { /* line 528 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 528 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8402_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 528 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 528 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 528 "../lib/comp/int_act.s7i" */ } else { /* line 528 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 528 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 528 "../lib/comp/int_act.s7i" */ } } /* line 529 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8400_params, 3L), &(o_8402_statement)); /* line 530 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8402_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 531 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8402_statement, o_8401_c_expr); /* line 521 "../lib/comp/int_act.s7i" */ destr_164(o_8402_statement); } /* line 1 "no_file" */ /* 4198 */ /* line 535 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8403_INT_DECR (const objRefType/*t_19_reference*/ o_8404_function, const listType/*t_20_ref_list*/ *const o_8405_params, structType/*t_164_expr_type*/ *const o_8406_c_expr) { /* line 539 "../lib/comp/int_act.s7i" */ structType/*t_164_expr_type*/ o_8407_c_param1; /* line 540 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8408_variable_name; /* line 541 "../lib/comp/int_act.s7i" */ structType/*t_164_expr_type*/ o_8409_statement; /* line 539 "../lib/comp/int_act.s7i" */ o_8407_c_param1=create_164(sct[235]); /* line 540 "../lib/comp/int_act.s7i" */ o_8408_variable_name=strEmpty(); /* "" */ /* line 541 "../lib/comp/int_act.s7i" */ o_8409_statement=create_164(sct[236]); /* line 543 "../lib/comp/int_act.s7i" */ if (o_3461_check_int_arithmetic_overflow) { /* line 544 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 545 "../lib/comp/int_act.s7i" */ if (o_5018_isNormalVariable(rflIdx(*o_8405_params, 1L))) { /* line 546 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8405_params, 1L), &(o_8407_c_param1)); /* line 547 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8409_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1215] /* "if (ovfChk(" */); /* line 548 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8409_statement))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8407_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 549 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8409_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1194] /* "==" */); /* line 550 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8409_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); /* line 551 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8409_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1216] /* ")) " */); /* line 552 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8409_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6522_voidRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 553 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8409_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1217] /* " else --(" */); /* line 554 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8409_statement))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8407_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 555 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8409_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } else { /* line 557 "../lib/comp/int_act.s7i" */ ++(((structType)(o_8409_statement))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 558 "../lib/comp/int_act.s7i" */ union { /* line 558 "../lib/comp/int_act.s7i" */ struct striStruct striBuf; /* line 558 "../lib/comp/int_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 558 "../lib/comp/int_act.s7i" */ } buffer_2; /* line 558 "../lib/comp/int_act.s7i" */ striType old_stri=o_8408_variable_name; /* line 558 "../lib/comp/int_act.s7i" */ o_8408_variable_name=strConcat(&str[1218] /* "var_" */, intStrToBuffer(((structType)(o_8409_statement))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 558 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 559 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8409_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[1219] /* "intType *" */); /* line 560 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8409_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_8408_variable_name); /* line 561 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8409_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 562 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8409_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8408_variable_name); /* line 563 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8409_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[307] /* "=&(" */); /* line 564 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8405_params, 1L), &(o_8409_statement)); /* line 565 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8409_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 566 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8409_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1220] /* "if (ovfChk(*" */); /* line 567 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8409_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8408_variable_name); /* line 568 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8409_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1194] /* "==" */); /* line 569 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8409_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); /* line 570 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8409_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1216] /* ")) " */); /* line 571 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8409_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6522_voidRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 572 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8409_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1221] /* " else --(*" */); /* line 573 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8409_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8408_variable_name); /* line 574 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8409_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } } else { /* line 577 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8409_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[708] /* "--(" */); /* line 578 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8405_params, 1L), &(o_8409_statement)); /* line 579 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8409_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 581 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8409_statement, o_8406_c_expr); /* line 535 "../lib/comp/int_act.s7i" */ destr_164(o_8407_c_param1); /* line 535 "../lib/comp/int_act.s7i" */ strDestr(o_8408_variable_name); /* line 535 "../lib/comp/int_act.s7i" */ destr_164(o_8409_statement); } /* line 1 "no_file" */ /* 4199 */ /* line 585 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8410_process_const_int_div (const objRefType/*t_19_reference*/ o_8411_dividend, const intType/*t_14_integer*/ o_8412_divisor, structType/*t_164_expr_type*/ *const o_8413_c_expr) { /* line 589 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8414_evaluatedDividend=NULL; /* line 590 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8415_dividend_name; /* line 590 "../lib/comp/int_act.s7i" */ o_8415_dividend_name=strEmpty(); /* "" */ /* line 592 "../lib/comp/int_act.s7i" */ if ((o_8412_divisor) == (0L)) { /* line 593 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 594 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[553] /* "NUMERIC_ERROR" */, *o_8413_c_expr); /* line 595 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8413_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); } else /* line 596 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(o_8411_dividend, 9L, &(o_8414_evaluatedDividend))) { /* line 597 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 598 "../lib/comp/int_act.s7i" */ { /* line 598 "../lib/comp/int_act.s7i" */ int fail_value; /* line 598 "../lib/comp/int_act.s7i" */ catch_stack_pos++; /* line 598 "../lib/comp/int_act.s7i" */ if (unlikely(catch_stack_pos >= max_catch_stack)) { /* line 598 "../lib/comp/int_act.s7i" */ resize_catch_stack(); /* line 598 "../lib/comp/int_act.s7i" */ } /* line 598 "../lib/comp/int_act.s7i" */ if (likely((fail_value = do_setjmp(catch_stack[catch_stack_pos])) == 0)) { { /* line 599 "../lib/comp/int_act.s7i" */ intType tmp_b_2; /* line 599 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8413_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((tmp_b_2=intValue(o_8414_evaluatedDividend),ovfChk(tmp_b_2==(-9223372036854775807L-1L)&&(o_8412_divisor)==-1)?intRaiseError(OVERFLOW_ERROR):divChk((o_8412_divisor)==0)?intRaiseError(NUMERIC_ERROR):tmp_b_2 / (o_8412_divisor)))); } /* line 599 "../lib/comp/int_act.s7i" */ catch_stack_pos--; /* line 601 "../lib/comp/int_act.s7i" */ } else { /* line 599 "../lib/comp/int_act.s7i" */ catch_stack_pos--; /* line 601 "../lib/comp/int_act.s7i" */ if (o_17_OVERFLOW_ERROR == fail_value - 1) { /* line 602 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[1196] /* "OVERFLOW_ERROR" */, *o_8413_c_expr); /* line 603 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8413_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 604 "../lib/comp/int_act.s7i" */ } else { /* line 604 "../lib/comp/int_act.s7i" */ rtlRaiseError(fail_value, error_file, error_line); /* line 604 "../lib/comp/int_act.s7i" */ } /* line 604 "../lib/comp/int_act.s7i" */ } /* line 604 "../lib/comp/int_act.s7i" */ } } else /* line 605 "../lib/comp/int_act.s7i" */ if ((o_8412_divisor) == (1L)) { /* line 606 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 607 "../lib/comp/int_act.s7i" */ { /* line 607 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 607 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8413_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 607 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 607 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 607 "../lib/comp/int_act.s7i" */ } else { /* line 607 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 607 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 607 "../lib/comp/int_act.s7i" */ } } /* line 608 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8411_dividend, o_8413_c_expr); /* line 609 "../lib/comp/int_act.s7i" */ { /* line 609 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 609 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8413_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 609 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 609 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 609 "../lib/comp/int_act.s7i" */ } else { /* line 609 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 609 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 609 "../lib/comp/int_act.s7i" */ } } } else /* line 610 "../lib/comp/int_act.s7i" */ if ((o_8412_divisor) == (-1L)) { /* line 613 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 614 "../lib/comp/int_act.s7i" */ o_8332_negate(o_8411_dividend, o_8413_c_expr); } else { /* line 616 "../lib/comp/int_act.s7i" */ { /* line 616 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 616 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8413_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 616 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 616 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 616 "../lib/comp/int_act.s7i" */ } else { /* line 616 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 616 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 616 "../lib/comp/int_act.s7i" */ } } /* line 617 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8411_dividend, o_8413_c_expr); /* line 618 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8413_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1010] /* ") / " */); /* line 619 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8413_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8412_divisor)); } /* line 585 "../lib/comp/int_act.s7i" */ strDestr(o_8415_dividend_name); } /* line 1 "no_file" */ /* 4200 */ /* line 624 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8416_process_const_int_div (const intType/*t_14_integer*/ o_8417_dividend, const objRefType/*t_19_reference*/ o_8418_divisor, structType/*t_164_expr_type*/ *const o_8419_c_expr) { /* line 628 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8420_divisor_name; /* line 628 "../lib/comp/int_act.s7i" */ o_8420_divisor_name=strEmpty(); /* "" */ /* line 630 "../lib/comp/int_act.s7i" */ if ((o_8417_dividend) == (0L)) { /* line 631 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 632 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1222] /* "(divChk((" */); /* line 633 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8418_divisor, o_8419_c_expr); /* line 634 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1223] /* ")==0)?" */); /* line 635 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 636 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1224] /* ":0)" */); } else /* line 637 "../lib/comp/int_act.s7i" */ if ((o_3462_check_int_division_overflow) && /* line 638 "../lib/comp/int_act.s7i" */ ((o_8417_dividend) == ((-9223372036854775807L-1L)))) { /* line 640 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 641 "../lib/comp/int_act.s7i" */ { /* line 641 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 641 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 641 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 641 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 641 "../lib/comp/int_act.s7i" */ } else { /* line 641 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 641 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 641 "../lib/comp/int_act.s7i" */ } } { /* line 642 "../lib/comp/int_act.s7i" */ striType old_stri=o_8420_divisor_name; /* line 642 "../lib/comp/int_act.s7i" */ o_8420_divisor_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[656] /* "tmp_b_" */, o_8418_divisor, o_8419_c_expr); /* line 642 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 643 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 644 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8420_divisor_name); /* line 645 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1225] /* "==-1" */); /* line 646 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 647 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 648 "../lib/comp/int_act.s7i" */ { /* line 648 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 648 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 648 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 648 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 648 "../lib/comp/int_act.s7i" */ } else { /* line 648 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 648 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 648 "../lib/comp/int_act.s7i" */ } } /* line 649 "../lib/comp/int_act.s7i" */ if (((structType)(sct[55]))->stru[12].value.boolValue/*->o_3390_CHECK_INT_DIV_BY_ZERO*/) { /* line 650 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1226] /* "divChk(" */); /* line 651 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8420_divisor_name); /* line 652 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1227] /* "==0)?" */); /* line 653 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 654 "../lib/comp/int_act.s7i" */ { /* line 654 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 654 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 654 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 654 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 654 "../lib/comp/int_act.s7i" */ } else { /* line 654 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 654 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 654 "../lib/comp/int_act.s7i" */ } } } /* line 656 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8417_dividend)); /* line 657 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1016] /* " / " */); /* line 658 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8420_divisor_name); /* line 659 "../lib/comp/int_act.s7i" */ { /* line 659 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 659 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 659 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 659 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 659 "../lib/comp/int_act.s7i" */ } else { /* line 659 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 659 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 659 "../lib/comp/int_act.s7i" */ } } } else /* line 660 "../lib/comp/int_act.s7i" */ if (((structType)(sct[55]))->stru[12].value.boolValue/*->o_3390_CHECK_INT_DIV_BY_ZERO*/) { /* line 661 "../lib/comp/int_act.s7i" */ { /* line 661 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 661 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 661 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 661 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 661 "../lib/comp/int_act.s7i" */ } else { /* line 661 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 661 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 661 "../lib/comp/int_act.s7i" */ } } { /* line 662 "../lib/comp/int_act.s7i" */ striType old_stri=o_8420_divisor_name; /* line 662 "../lib/comp/int_act.s7i" */ o_8420_divisor_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[656] /* "tmp_b_" */, o_8418_divisor, o_8419_c_expr); /* line 662 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 663 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1226] /* "divChk(" */); /* line 664 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8420_divisor_name); /* line 665 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1227] /* "==0)?" */); /* line 666 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 667 "../lib/comp/int_act.s7i" */ { /* line 667 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 667 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 667 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 667 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 667 "../lib/comp/int_act.s7i" */ } else { /* line 667 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 667 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 667 "../lib/comp/int_act.s7i" */ } } /* line 668 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8417_dividend)); /* line 669 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1016] /* " / " */); /* line 670 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8420_divisor_name); /* line 671 "../lib/comp/int_act.s7i" */ { /* line 671 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 671 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 671 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 671 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 671 "../lib/comp/int_act.s7i" */ } else { /* line 671 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 671 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 671 "../lib/comp/int_act.s7i" */ } } } else { /* line 673 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8417_dividend)); /* line 674 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1228] /* " / (" */); /* line 675 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8418_divisor, o_8419_c_expr); /* line 676 "../lib/comp/int_act.s7i" */ { /* line 676 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 676 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8419_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 676 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 676 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 676 "../lib/comp/int_act.s7i" */ } else { /* line 676 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 676 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 676 "../lib/comp/int_act.s7i" */ } } } /* line 624 "../lib/comp/int_act.s7i" */ strDestr(o_8420_divisor_name); } /* line 1 "no_file" */ /* 4201 */ /* line 681 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8421_INT_DIV (const objRefType/*t_19_reference*/ o_8422_function, const listType/*t_20_ref_list*/ *const o_8423_params, structType/*t_164_expr_type*/ *const o_8424_c_expr) { /* line 685 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8425_evaluatedParam=NULL; /* line 686 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8426_dividend_name; /* line 687 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8427_divisor_name; /* line 686 "../lib/comp/int_act.s7i" */ o_8426_dividend_name=strEmpty(); /* "" */ /* line 687 "../lib/comp/int_act.s7i" */ o_8427_divisor_name=strEmpty(); /* "" */ /* line 689 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8423_params, 3L), 9L, &(o_8425_evaluatedParam))) { /* line 690 "../lib/comp/int_act.s7i" */ o_8410_process_const_int_div(rflIdx(*o_8423_params, 1L), intValue(o_8425_evaluatedParam), o_8424_c_expr); } else /* line 691 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8423_params, 1L), 9L, &(o_8425_evaluatedParam))) { /* line 692 "../lib/comp/int_act.s7i" */ o_8416_process_const_int_div(intValue(o_8425_evaluatedParam), rflIdx(*o_8423_params, 3L), o_8424_c_expr); } else /* line 693 "../lib/comp/int_act.s7i" */ if (((o_3457_evaluate_const_expr) == (0L)) && /* line 694 "../lib/comp/int_act.s7i" */ ((refCategory(rflIdx(*o_8423_params, 3L))) == (9L)) && /* line 694 "../lib/comp/int_act.s7i" */ (!(refIsVar(rflIdx(*o_8423_params, 3L)))) && /* line 695 "../lib/comp/int_act.s7i" */ ((intValue(rflIdx(*o_8423_params, 3L))) == (0L))) { /* line 696 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[553] /* "NUMERIC_ERROR" */, *o_8424_c_expr); /* line 697 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); } else /* line 698 "../lib/comp/int_act.s7i" */ if (o_3462_check_int_division_overflow) { /* line 700 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 701 "../lib/comp/int_act.s7i" */ { /* line 701 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 701 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 701 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 701 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 701 "../lib/comp/int_act.s7i" */ } else { /* line 701 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 701 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 701 "../lib/comp/int_act.s7i" */ } } { /* line 702 "../lib/comp/int_act.s7i" */ striType old_stri=o_8426_dividend_name; /* line 702 "../lib/comp/int_act.s7i" */ o_8426_dividend_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[656] /* "tmp_b_" */, rflIdx(*o_8423_params, 1L), o_8424_c_expr); /* line 702 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } { /* line 703 "../lib/comp/int_act.s7i" */ striType old_stri=o_8427_divisor_name; /* line 703 "../lib/comp/int_act.s7i" */ o_8427_divisor_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[656] /* "tmp_b_" */, rflIdx(*o_8423_params, 3L), o_8424_c_expr); /* line 703 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 704 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 705 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8426_dividend_name); /* line 706 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1194] /* "==" */); /* line 707 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); /* line 708 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1229] /* "&&" */); /* line 709 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8427_divisor_name); /* line 710 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1225] /* "==-1" */); /* line 711 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 712 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 713 "../lib/comp/int_act.s7i" */ { /* line 713 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 713 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 713 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 713 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 713 "../lib/comp/int_act.s7i" */ } else { /* line 713 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 713 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 713 "../lib/comp/int_act.s7i" */ } } /* line 714 "../lib/comp/int_act.s7i" */ if (((structType)(sct[55]))->stru[12].value.boolValue/*->o_3390_CHECK_INT_DIV_BY_ZERO*/) { /* line 715 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1226] /* "divChk(" */); /* line 716 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8427_divisor_name); /* line 717 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1227] /* "==0)?" */); /* line 718 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 719 "../lib/comp/int_act.s7i" */ { /* line 719 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 719 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 719 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 719 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 719 "../lib/comp/int_act.s7i" */ } else { /* line 719 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 719 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 719 "../lib/comp/int_act.s7i" */ } } } /* line 721 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8426_dividend_name); /* line 722 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1016] /* " / " */); /* line 723 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8427_divisor_name); /* line 724 "../lib/comp/int_act.s7i" */ { /* line 724 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 724 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 724 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 724 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 724 "../lib/comp/int_act.s7i" */ } else { /* line 724 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 724 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 724 "../lib/comp/int_act.s7i" */ } } } else /* line 725 "../lib/comp/int_act.s7i" */ if (((structType)(sct[55]))->stru[12].value.boolValue/*->o_3390_CHECK_INT_DIV_BY_ZERO*/) { /* line 726 "../lib/comp/int_act.s7i" */ { /* line 726 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 726 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 726 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 726 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 726 "../lib/comp/int_act.s7i" */ } else { /* line 726 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 726 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 726 "../lib/comp/int_act.s7i" */ } } { /* line 727 "../lib/comp/int_act.s7i" */ striType old_stri=o_8427_divisor_name; /* line 727 "../lib/comp/int_act.s7i" */ o_8427_divisor_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[656] /* "tmp_b_" */, rflIdx(*o_8423_params, 3L), o_8424_c_expr); /* line 727 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 728 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1226] /* "divChk(" */); /* line 729 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8427_divisor_name); /* line 730 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1227] /* "==0)?" */); /* line 731 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 732 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1157] /* ":(" */); /* line 733 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8423_params, 1L), o_8424_c_expr); /* line 734 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1010] /* ") / " */); /* line 735 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8427_divisor_name); /* line 736 "../lib/comp/int_act.s7i" */ { /* line 736 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 736 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 736 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 736 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 736 "../lib/comp/int_act.s7i" */ } else { /* line 736 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 736 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 736 "../lib/comp/int_act.s7i" */ } } } else { /* line 738 "../lib/comp/int_act.s7i" */ { /* line 738 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 738 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 738 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 738 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 738 "../lib/comp/int_act.s7i" */ } else { /* line 738 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 738 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 738 "../lib/comp/int_act.s7i" */ } } /* line 739 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8423_params, 1L), o_8424_c_expr); /* line 740 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1017] /* ") / (" */); /* line 741 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8423_params, 3L), o_8424_c_expr); /* line 742 "../lib/comp/int_act.s7i" */ { /* line 742 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 742 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8424_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 742 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 742 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 742 "../lib/comp/int_act.s7i" */ } else { /* line 742 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 742 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 742 "../lib/comp/int_act.s7i" */ } } } /* line 681 "../lib/comp/int_act.s7i" */ strDestr(o_8426_dividend_name); /* line 681 "../lib/comp/int_act.s7i" */ strDestr(o_8427_divisor_name); } /* line 1 "no_file" */ /* 4202 */ /* line 747 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8428_INT_EQ (const objRefType/*t_19_reference*/ o_8429_function, const listType/*t_20_ref_list*/ *const o_8430_params, structType/*t_164_expr_type*/ *const o_8431_c_expr) { /* line 751 "../lib/comp/int_act.s7i" */ { /* line 751 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 751 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8431_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 751 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 751 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 751 "../lib/comp/int_act.s7i" */ } else { /* line 751 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 751 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 751 "../lib/comp/int_act.s7i" */ } } /* line 752 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8430_params, 1L), o_8431_c_expr); /* line 753 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8431_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[350] /* ") == (" */); /* line 754 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8430_params, 3L), o_8431_c_expr); /* line 755 "../lib/comp/int_act.s7i" */ { /* line 755 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 755 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8431_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 755 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 755 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 755 "../lib/comp/int_act.s7i" */ } else { /* line 755 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 755 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 755 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4203 */ /* line 759 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8432_INT_FACT (const objRefType/*t_19_reference*/ o_8433_function, const listType/*t_20_ref_list*/ *const o_8434_params, structType/*t_164_expr_type*/ *const o_8435_c_expr) { /* line 763 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8436_number_name; /* line 763 "../lib/comp/int_act.s7i" */ o_8436_number_name=strEmpty(); /* "" */ /* line 765 "../lib/comp/int_act.s7i" */ { /* line 765 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 765 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8435_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 765 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 765 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 765 "../lib/comp/int_act.s7i" */ } else { /* line 765 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 765 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 765 "../lib/comp/int_act.s7i" */ } } { /* line 766 "../lib/comp/int_act.s7i" */ striType old_stri=o_8436_number_name; /* line 766 "../lib/comp/int_act.s7i" */ o_8436_number_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8434_params, 2L), o_8435_c_expr); /* line 766 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 767 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8435_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[571] /* "numChk(" */); /* line 768 "../lib/comp/int_act.s7i" */ o_8323_checkRangeFromZero(o_8436_number_name, &str[1230] /* "sizeof(fact)/sizeof(intType)" */, o_8435_c_expr); /* line 769 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8435_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 770 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8435_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 771 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8435_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1231] /* ":fact[" */); /* line 772 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8435_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8436_number_name); /* line 773 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8435_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1232] /* "])" */); /* line 759 "../lib/comp/int_act.s7i" */ strDestr(o_8436_number_name); } /* line 1 "no_file" */ /* 4204 */ /* line 777 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8437_INT_GE (const objRefType/*t_19_reference*/ o_8438_function, const listType/*t_20_ref_list*/ *const o_8439_params, structType/*t_164_expr_type*/ *const o_8440_c_expr) { /* line 781 "../lib/comp/int_act.s7i" */ { /* line 781 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 781 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8440_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 781 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 781 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 781 "../lib/comp/int_act.s7i" */ } else { /* line 781 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 781 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 781 "../lib/comp/int_act.s7i" */ } } /* line 782 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8439_params, 1L), o_8440_c_expr); /* line 783 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8440_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[623] /* ") >= (" */); /* line 784 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8439_params, 3L), o_8440_c_expr); /* line 785 "../lib/comp/int_act.s7i" */ { /* line 785 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 785 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8440_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 785 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 785 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 785 "../lib/comp/int_act.s7i" */ } else { /* line 785 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 785 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 785 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4205 */ /* line 789 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8441_process_const_int_grow (const objRefType/*t_19_reference*/ o_8442_variable, const intType/*t_14_integer*/ o_8443_delta, structType/*t_164_expr_type*/ *const o_8444_c_expr) { /* line 793 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8445_variable_name; /* line 794 "../lib/comp/int_act.s7i" */ structType/*t_164_expr_type*/ o_8446_statement; /* line 793 "../lib/comp/int_act.s7i" */ o_8445_variable_name=strEmpty(); /* "" */ /* line 794 "../lib/comp/int_act.s7i" */ o_8446_statement=create_164(sct[237]); /* line 796 "../lib/comp/int_act.s7i" */ if ((o_8443_delta) == (0L)) { /* line 797 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 798 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8444_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1233] /* "/* ignore integer +:= 0; *\/\n" */); } else /* line 799 "../lib/comp/int_act.s7i" */ if (o_3461_check_int_arithmetic_overflow) { /* line 800 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 801 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); { /* line 802 "../lib/comp/int_act.s7i" */ striType old_stri=o_8445_variable_name; /* line 802 "../lib/comp/int_act.s7i" */ o_8445_variable_name=o_5043_getParameterAsReference(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_8442_variable, &(o_8446_statement)); /* line 802 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 803 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8446_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 804 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8446_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8445_variable_name); /* line 805 "../lib/comp/int_act.s7i" */ if ((o_8443_delta) < (0L)) { /* line 806 "../lib/comp/int_act.s7i" */ { /* line 806 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 806 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8446_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 806 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 806 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '<'); /* line 806 "../lib/comp/int_act.s7i" */ } else { /* line 806 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '<'; /* line 806 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 806 "../lib/comp/int_act.s7i" */ } } /* line 807 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8446_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(((-9223372036854775807L-1L)) - (o_8443_delta))); } else { /* line 809 "../lib/comp/int_act.s7i" */ { /* line 809 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 809 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8446_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 809 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 809 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '>'); /* line 809 "../lib/comp/int_act.s7i" */ } else { /* line 809 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '>'; /* line 809 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 809 "../lib/comp/int_act.s7i" */ } } /* line 810 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8446_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((9223372036854775807L) - (o_8443_delta))); } /* line 812 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8446_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 813 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8446_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 814 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8446_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1157] /* ":(" */); /* line 815 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8446_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8445_variable_name); /* line 816 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8446_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1036] /* "+=" */); /* line 817 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8446_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8443_delta)); /* line 818 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8446_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 819 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8446_statement, o_8444_c_expr); } else { /* line 821 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8442_variable, &(o_8446_statement)); /* line 822 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8446_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1036] /* "+=" */); /* line 823 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8446_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8443_delta)); /* line 824 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8446_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 825 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8446_statement, o_8444_c_expr); } /* line 789 "../lib/comp/int_act.s7i" */ strDestr(o_8445_variable_name); /* line 789 "../lib/comp/int_act.s7i" */ destr_164(o_8446_statement); } /* line 1 "no_file" */ /* 4206 */ /* line 830 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8447_INT_GROW (const objRefType/*t_19_reference*/ o_8448_function, const listType/*t_20_ref_list*/ *const o_8449_params, structType/*t_164_expr_type*/ *const o_8450_c_expr) { /* line 834 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8451_evaluatedParam=NULL; /* line 835 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8452_variable_name; /* line 836 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8453_delta_name; /* line 837 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8454_sum_name; /* line 838 "../lib/comp/int_act.s7i" */ structType/*t_164_expr_type*/ o_8455_statement; /* line 835 "../lib/comp/int_act.s7i" */ o_8452_variable_name=strEmpty(); /* "" */ /* line 836 "../lib/comp/int_act.s7i" */ o_8453_delta_name=strEmpty(); /* "" */ /* line 837 "../lib/comp/int_act.s7i" */ o_8454_sum_name=strEmpty(); /* "" */ /* line 838 "../lib/comp/int_act.s7i" */ o_8455_statement=create_164(sct[238]); /* line 840 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8449_params, 3L), 9L, &(o_8451_evaluatedParam))) { /* line 841 "../lib/comp/int_act.s7i" */ o_8441_process_const_int_grow(rflIdx(*o_8449_params, 1L), intValue(o_8451_evaluatedParam), o_8450_c_expr); } else /* line 842 "../lib/comp/int_act.s7i" */ if (o_3461_check_int_arithmetic_overflow) { /* line 843 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); { /* line 844 "../lib/comp/int_act.s7i" */ striType old_stri=o_8452_variable_name; /* line 844 "../lib/comp/int_act.s7i" */ o_8452_variable_name=o_5043_getParameterAsReference(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8449_params, 1L), &(o_8455_statement)); /* line 844 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } { /* line 845 "../lib/comp/int_act.s7i" */ striType old_stri=o_8453_delta_name; /* line 845 "../lib/comp/int_act.s7i" */ o_8453_delta_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8449_params, 3L), &(o_8455_statement)); /* line 845 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 846 "../lib/comp/int_act.s7i" */ if (((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/) { /* line 848 "../lib/comp/int_act.s7i" */ ++(((structType)(o_8455_statement))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 849 "../lib/comp/int_act.s7i" */ union { /* line 849 "../lib/comp/int_act.s7i" */ struct striStruct striBuf; /* line 849 "../lib/comp/int_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 849 "../lib/comp/int_act.s7i" */ } buffer_2; /* line 849 "../lib/comp/int_act.s7i" */ striType old_stri=o_8454_sum_name; /* line 849 "../lib/comp/int_act.s7i" */ o_8454_sum_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(o_8455_statement))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 849 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 850 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[410] /* "intType " */); /* line 851 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_8454_sum_name); /* line 852 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 853 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8454_sum_name); /* line 854 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1234] /* "=(intType)((uintType)" */); /* line 855 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8452_variable_name); /* line 856 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1189] /* "+(uintType)" */); /* line 857 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8453_delta_name); /* line 858 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1235] /* "),ovfChk(" */); /* line 859 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8453_delta_name); /* line 860 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1236] /* ">0&&" */); /* line 861 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8454_sum_name); /* line 862 "../lib/comp/int_act.s7i" */ { /* line 862 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 862 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 862 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 862 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '<'); /* line 862 "../lib/comp/int_act.s7i" */ } else { /* line 862 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '<'; /* line 862 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 862 "../lib/comp/int_act.s7i" */ } } /* line 863 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8452_variable_name); /* line 864 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1192] /* "||" */); /* line 865 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8453_delta_name); /* line 866 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1203] /* "<0&&" */); /* line 867 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8454_sum_name); /* line 868 "../lib/comp/int_act.s7i" */ { /* line 868 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 868 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 868 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 868 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '>'); /* line 868 "../lib/comp/int_act.s7i" */ } else { /* line 868 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '>'; /* line 868 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 868 "../lib/comp/int_act.s7i" */ } } /* line 869 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8452_variable_name); /* line 870 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 871 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 872 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1157] /* ":(" */); /* line 873 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8452_variable_name); /* line 874 "../lib/comp/int_act.s7i" */ { /* line 874 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 874 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 874 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 874 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 874 "../lib/comp/int_act.s7i" */ } else { /* line 874 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 874 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 874 "../lib/comp/int_act.s7i" */ } } /* line 875 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8454_sum_name); /* line 876 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } else { /* line 878 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 879 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8453_delta_name); /* line 880 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1203] /* "<0&&" */); /* line 881 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8452_variable_name); /* line 882 "../lib/comp/int_act.s7i" */ { /* line 882 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 882 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 882 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 882 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '<'); /* line 882 "../lib/comp/int_act.s7i" */ } else { /* line 882 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '<'; /* line 882 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 882 "../lib/comp/int_act.s7i" */ } } /* line 883 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); /* line 884 "../lib/comp/int_act.s7i" */ { /* line 884 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 884 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 884 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 884 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '-'); /* line 884 "../lib/comp/int_act.s7i" */ } else { /* line 884 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '-'; /* line 884 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 884 "../lib/comp/int_act.s7i" */ } } /* line 885 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8453_delta_name); /* line 886 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1204] /* " || " */); /* line 887 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8453_delta_name); /* line 888 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1205] /* ">=0&&" */); /* line 889 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8452_variable_name); /* line 890 "../lib/comp/int_act.s7i" */ { /* line 890 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 890 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 890 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 890 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '>'); /* line 890 "../lib/comp/int_act.s7i" */ } else { /* line 890 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '>'; /* line 890 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 890 "../lib/comp/int_act.s7i" */ } } /* line 891 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(9223372036854775807L)); /* line 892 "../lib/comp/int_act.s7i" */ { /* line 892 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 892 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 892 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 892 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '-'); /* line 892 "../lib/comp/int_act.s7i" */ } else { /* line 892 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '-'; /* line 892 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 892 "../lib/comp/int_act.s7i" */ } } /* line 893 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8453_delta_name); /* line 894 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 895 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 896 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1157] /* ":(" */); /* line 897 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8452_variable_name); /* line 898 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1036] /* "+=" */); /* line 899 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8453_delta_name); /* line 900 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 902 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8455_statement, o_8450_c_expr); } else { /* line 904 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8449_params, 1L), &(o_8455_statement)); /* line 905 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1036] /* "+=" */); /* line 906 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8449_params, 3L), &(o_8455_statement)); /* line 907 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8455_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 908 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8455_statement, o_8450_c_expr); } /* line 830 "../lib/comp/int_act.s7i" */ strDestr(o_8452_variable_name); /* line 830 "../lib/comp/int_act.s7i" */ strDestr(o_8453_delta_name); /* line 830 "../lib/comp/int_act.s7i" */ strDestr(o_8454_sum_name); /* line 830 "../lib/comp/int_act.s7i" */ destr_164(o_8455_statement); } /* line 1 "no_file" */ /* 4207 */ /* line 913 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8456_INT_GT (const objRefType/*t_19_reference*/ o_8457_function, const listType/*t_20_ref_list*/ *const o_8458_params, structType/*t_164_expr_type*/ *const o_8459_c_expr) { /* line 917 "../lib/comp/int_act.s7i" */ { /* line 917 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 917 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8459_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 917 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 917 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 917 "../lib/comp/int_act.s7i" */ } else { /* line 917 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 917 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 917 "../lib/comp/int_act.s7i" */ } } /* line 918 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8458_params, 1L), o_8459_c_expr); /* line 919 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8459_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[624] /* ") > (" */); /* line 920 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8458_params, 3L), o_8459_c_expr); /* line 921 "../lib/comp/int_act.s7i" */ { /* line 921 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 921 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8459_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 921 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 921 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 921 "../lib/comp/int_act.s7i" */ } else { /* line 921 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 921 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 921 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4208 */ /* line 925 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8460_INT_HASHCODE (const objRefType/*t_19_reference*/ o_8461_function, const listType/*t_20_ref_list*/ *const o_8462_params, structType/*t_164_expr_type*/ *const o_8463_c_expr) { /* line 929 "../lib/comp/int_act.s7i" */ { /* line 929 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 929 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8463_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 929 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 929 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 929 "../lib/comp/int_act.s7i" */ } else { /* line 929 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 929 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 929 "../lib/comp/int_act.s7i" */ } } /* line 930 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8462_params, 1L), o_8463_c_expr); /* line 931 "../lib/comp/int_act.s7i" */ { /* line 931 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 931 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8463_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 931 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 931 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 931 "../lib/comp/int_act.s7i" */ } else { /* line 931 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 931 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 931 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4209 */ /* line 935 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8464_INT_INCR (const objRefType/*t_19_reference*/ o_8465_function, const listType/*t_20_ref_list*/ *const o_8466_params, structType/*t_164_expr_type*/ *const o_8467_c_expr) { /* line 939 "../lib/comp/int_act.s7i" */ structType/*t_164_expr_type*/ o_8468_c_param1; /* line 940 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8469_variable_name; /* line 941 "../lib/comp/int_act.s7i" */ structType/*t_164_expr_type*/ o_8470_statement; /* line 939 "../lib/comp/int_act.s7i" */ o_8468_c_param1=create_164(sct[239]); /* line 940 "../lib/comp/int_act.s7i" */ o_8469_variable_name=strEmpty(); /* "" */ /* line 941 "../lib/comp/int_act.s7i" */ o_8470_statement=create_164(sct[240]); /* line 943 "../lib/comp/int_act.s7i" */ if (o_3461_check_int_arithmetic_overflow) { /* line 944 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 945 "../lib/comp/int_act.s7i" */ if (o_5018_isNormalVariable(rflIdx(*o_8466_params, 1L))) { /* line 946 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8466_params, 1L), &(o_8468_c_param1)); /* line 947 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8470_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1215] /* "if (ovfChk(" */); /* line 948 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8470_statement))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8468_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 949 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8470_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1194] /* "==" */); /* line 950 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8470_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(9223372036854775807L)); /* line 951 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8470_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1216] /* ")) " */); /* line 952 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8470_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6522_voidRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 953 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8470_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1237] /* " else ++(" */); /* line 954 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8470_statement))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8468_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 955 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8470_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } else { /* line 957 "../lib/comp/int_act.s7i" */ ++(((structType)(o_8470_statement))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 958 "../lib/comp/int_act.s7i" */ union { /* line 958 "../lib/comp/int_act.s7i" */ struct striStruct striBuf; /* line 958 "../lib/comp/int_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 958 "../lib/comp/int_act.s7i" */ } buffer_2; /* line 958 "../lib/comp/int_act.s7i" */ striType old_stri=o_8469_variable_name; /* line 958 "../lib/comp/int_act.s7i" */ o_8469_variable_name=strConcat(&str[1218] /* "var_" */, intStrToBuffer(((structType)(o_8470_statement))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 958 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 959 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8470_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[1219] /* "intType *" */); /* line 960 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8470_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_8469_variable_name); /* line 961 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8470_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 962 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8470_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8469_variable_name); /* line 963 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8470_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[307] /* "=&(" */); /* line 964 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8466_params, 1L), &(o_8470_statement)); /* line 965 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8470_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 966 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8470_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1220] /* "if (ovfChk(*" */); /* line 967 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8470_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8469_variable_name); /* line 968 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8470_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1194] /* "==" */); /* line 969 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8470_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(9223372036854775807L)); /* line 970 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8470_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1216] /* ")) " */); /* line 971 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8470_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6522_voidRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 972 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8470_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1238] /* " else ++(*" */); /* line 973 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8470_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8469_variable_name); /* line 974 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8470_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } } else { /* line 977 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8470_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[710] /* "++(" */); /* line 978 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8466_params, 1L), &(o_8470_statement)); /* line 979 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8470_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 981 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8470_statement, o_8467_c_expr); /* line 935 "../lib/comp/int_act.s7i" */ destr_164(o_8468_c_param1); /* line 935 "../lib/comp/int_act.s7i" */ strDestr(o_8469_variable_name); /* line 935 "../lib/comp/int_act.s7i" */ destr_164(o_8470_statement); } /* line 1 "no_file" */ /* 4210 */ /* line 985 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8471_INT_LE (const objRefType/*t_19_reference*/ o_8472_function, const listType/*t_20_ref_list*/ *const o_8473_params, structType/*t_164_expr_type*/ *const o_8474_c_expr) { /* line 989 "../lib/comp/int_act.s7i" */ { /* line 989 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 989 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8474_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 989 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 989 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 989 "../lib/comp/int_act.s7i" */ } else { /* line 989 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 989 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 989 "../lib/comp/int_act.s7i" */ } } /* line 990 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8473_params, 1L), o_8474_c_expr); /* line 991 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8474_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[626] /* ") <= (" */); /* line 992 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8473_params, 3L), o_8474_c_expr); /* line 993 "../lib/comp/int_act.s7i" */ { /* line 993 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 993 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8474_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 993 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 993 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 993 "../lib/comp/int_act.s7i" */ } else { /* line 993 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 993 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 993 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4211 */ /* line 997 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8475_INT_LOG10 (const objRefType/*t_19_reference*/ o_8476_function, const listType/*t_20_ref_list*/ *const o_8477_params, structType/*t_164_expr_type*/ *const o_8478_c_expr) { /* line 1001 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8478_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1239] /* "intLog10(" */); /* line 1002 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8477_params, 1L), o_8478_c_expr); /* line 1003 "../lib/comp/int_act.s7i" */ { /* line 1003 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1003 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8478_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1003 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1003 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1003 "../lib/comp/int_act.s7i" */ } else { /* line 1003 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1003 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1003 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4212 */ /* line 1007 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8479_INT_LOG2 (const objRefType/*t_19_reference*/ o_8480_function, const listType/*t_20_ref_list*/ *const o_8481_params, structType/*t_164_expr_type*/ *const o_8482_c_expr) { /* line 1011 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8482_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1240] /* "intLog2(" */); /* line 1012 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8481_params, 1L), o_8482_c_expr); /* line 1013 "../lib/comp/int_act.s7i" */ { /* line 1013 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1013 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8482_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1013 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1013 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1013 "../lib/comp/int_act.s7i" */ } else { /* line 1013 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1013 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1013 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4213 */ /* line 1017 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8483_INT_LOWEST_SET_BIT (const objRefType/*t_19_reference*/ o_8484_function, const listType/*t_20_ref_list*/ *const o_8485_params, structType/*t_164_expr_type*/ *const o_8486_c_expr) { /* line 1021 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8486_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1241] /* "intLowestSetBit(" */); /* line 1022 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8485_params, 1L), o_8486_c_expr); /* line 1023 "../lib/comp/int_act.s7i" */ { /* line 1023 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1023 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8486_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1023 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1023 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1023 "../lib/comp/int_act.s7i" */ } else { /* line 1023 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1023 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1023 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4214 */ /* line 1027 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8487_INT_LPAD0 (const objRefType/*t_19_reference*/ o_8488_function, const listType/*t_20_ref_list*/ *const o_8489_params, structType/*t_164_expr_type*/ *const o_8490_c_expr) { /* line 1031 "../lib/comp/int_act.s7i" */ o_4955_prepare_stri_result(o_8490_c_expr); /* line 1032 "../lib/comp/int_act.s7i" */ strCopy(&(((structType)(*o_8490_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1242] /* "intLpad0(" */); /* line 1033 "../lib/comp/int_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_8489_params, 1L), o_8490_c_expr); /* line 1034 "../lib/comp/int_act.s7i" */ { /* line 1034 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1034 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8490_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1034 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1034 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 1034 "../lib/comp/int_act.s7i" */ } else { /* line 1034 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 1034 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1034 "../lib/comp/int_act.s7i" */ } } /* line 1035 "../lib/comp/int_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_8489_params, 3L), o_8490_c_expr); /* line 1036 "../lib/comp/int_act.s7i" */ { /* line 1036 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1036 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8490_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1036 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1036 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1036 "../lib/comp/int_act.s7i" */ } else { /* line 1036 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1036 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1036 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4215 */ /* line 1040 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8491_process_const_int_lshift (const objRefType/*t_19_reference*/ o_8492_number, const intType/*t_14_integer*/ o_8493_lshift, structType/*t_164_expr_type*/ *const o_8494_c_expr) { /* line 1044 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8495_evaluatedNumber=NULL; /* line 1045 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8496_number_name; /* line 1045 "../lib/comp/int_act.s7i" */ o_8496_number_name=strEmpty(); /* "" */ /* line 1047 "../lib/comp/int_act.s7i" */ if (((o_8493_lshift) < (0L)) || /* line 1047 "../lib/comp/int_act.s7i" */ ((o_8493_lshift) >= (((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/))) { /* line 1048 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 1049 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[1196] /* "OVERFLOW_ERROR" */, *o_8494_c_expr); /* line 1050 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8494_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); } else /* line 1051 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(o_8492_number, 9L, &(o_8495_evaluatedNumber))) { /* line 1052 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 1053 "../lib/comp/int_act.s7i" */ { /* line 1053 "../lib/comp/int_act.s7i" */ int fail_value; /* line 1053 "../lib/comp/int_act.s7i" */ catch_stack_pos++; /* line 1053 "../lib/comp/int_act.s7i" */ if (unlikely(catch_stack_pos >= max_catch_stack)) { /* line 1053 "../lib/comp/int_act.s7i" */ resize_catch_stack(); /* line 1053 "../lib/comp/int_act.s7i" */ } /* line 1053 "../lib/comp/int_act.s7i" */ if (likely((fail_value = do_setjmp(catch_stack[catch_stack_pos])) == 0)) { { /* line 1054 "../lib/comp/int_act.s7i" */ intType tmp_2; /* line 1054 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8494_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((tmp_2=intValue(o_8495_evaluatedNumber),ovfChk((uintType)(o_8493_lshift)>=(uintType)64L||tmp_2<(-9223372036854775807L-1L)>>(o_8493_lshift)||tmp_2>9223372036854775807L>>(o_8493_lshift))?intRaiseError(OVERFLOW_ERROR):tmp_2 << (o_8493_lshift)))); } /* line 1054 "../lib/comp/int_act.s7i" */ catch_stack_pos--; /* line 1056 "../lib/comp/int_act.s7i" */ } else { /* line 1054 "../lib/comp/int_act.s7i" */ catch_stack_pos--; /* line 1056 "../lib/comp/int_act.s7i" */ if (o_17_OVERFLOW_ERROR == fail_value - 1) { /* line 1057 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[1196] /* "OVERFLOW_ERROR" */, *o_8494_c_expr); /* line 1058 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8494_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 1059 "../lib/comp/int_act.s7i" */ } else { /* line 1059 "../lib/comp/int_act.s7i" */ rtlRaiseError(fail_value, error_file, error_line); /* line 1059 "../lib/comp/int_act.s7i" */ } /* line 1059 "../lib/comp/int_act.s7i" */ } /* line 1059 "../lib/comp/int_act.s7i" */ } } else /* line 1060 "../lib/comp/int_act.s7i" */ if ((o_8493_lshift) == (0L)) { /* line 1061 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 1062 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8492_number, o_8494_c_expr); } else /* line 1063 "../lib/comp/int_act.s7i" */ if (o_3463_check_int_shift_overflow) { /* line 1064 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 1065 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 1066 "../lib/comp/int_act.s7i" */ { /* line 1066 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1066 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8494_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1066 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1066 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1066 "../lib/comp/int_act.s7i" */ } else { /* line 1066 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1066 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1066 "../lib/comp/int_act.s7i" */ } } { /* line 1067 "../lib/comp/int_act.s7i" */ striType old_stri=o_8496_number_name; /* line 1067 "../lib/comp/int_act.s7i" */ o_8496_number_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_8492_number, o_8494_c_expr); /* line 1067 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 1068 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8494_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 1069 "../lib/comp/int_act.s7i" */ o_8327_checkIfOutsideRange(o_8496_number_name, (ovfChk((uintType)(o_8493_lshift)>=(uintType)64L)?intRaiseError(OVERFLOW_ERROR):((-9223372036854775807L-1L)) >> (o_8493_lshift)), (ovfChk((uintType)(o_8493_lshift)>=(uintType)64L)?intRaiseError(OVERFLOW_ERROR):(9223372036854775807L) >> (o_8493_lshift)), o_8494_c_expr); /* line 1071 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8494_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 1072 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8494_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 1073 "../lib/comp/int_act.s7i" */ { /* line 1073 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1073 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8494_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1073 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1073 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 1073 "../lib/comp/int_act.s7i" */ } else { /* line 1073 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 1073 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1073 "../lib/comp/int_act.s7i" */ } } /* line 1074 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8494_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8496_number_name); /* line 1075 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8494_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1243] /* " << " */); /* line 1076 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8494_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8493_lshift)); /* line 1077 "../lib/comp/int_act.s7i" */ { /* line 1077 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1077 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8494_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1077 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1077 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1077 "../lib/comp/int_act.s7i" */ } else { /* line 1077 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1077 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1077 "../lib/comp/int_act.s7i" */ } } } else { /* line 1079 "../lib/comp/int_act.s7i" */ { /* line 1079 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1079 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8494_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1079 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1079 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1079 "../lib/comp/int_act.s7i" */ } else { /* line 1079 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1079 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1079 "../lib/comp/int_act.s7i" */ } } /* line 1080 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8492_number, o_8494_c_expr); /* line 1081 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8494_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1244] /* ") << " */); /* line 1082 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8494_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8493_lshift)); } /* line 1040 "../lib/comp/int_act.s7i" */ strDestr(o_8496_number_name); } /* line 1 "no_file" */ /* 4216 */ /* line 1087 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8497_process_const_int_lshift (const intType/*t_14_integer*/ o_8498_number, const objRefType/*t_19_reference*/ o_8499_lshift, structType/*t_164_expr_type*/ *const o_8500_c_expr) { /* line 1091 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8501_lshift_name; /* line 1091 "../lib/comp/int_act.s7i" */ o_8501_lshift_name=strEmpty(); /* "" */ /* line 1093 "../lib/comp/int_act.s7i" */ if (o_3463_check_int_shift_overflow) { /* line 1094 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 1095 "../lib/comp/int_act.s7i" */ { /* line 1095 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1095 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8500_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1095 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1095 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1095 "../lib/comp/int_act.s7i" */ } else { /* line 1095 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1095 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1095 "../lib/comp/int_act.s7i" */ } } { /* line 1096 "../lib/comp/int_act.s7i" */ striType old_stri=o_8501_lshift_name; /* line 1096 "../lib/comp/int_act.s7i" */ o_8501_lshift_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_8499_lshift, o_8500_c_expr); /* line 1096 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 1097 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8500_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); { /* line 1098 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 1098 "../lib/comp/int_act.s7i" */ o_8323_checkRangeFromZero(o_8501_lshift_name, (tmp_1=(striType/*t_15_string*/)(o_6502_integerLiteral(((intBitLength(9223372036854775807L)) - (intBitLength(o_8498_number))) + 1L))), o_8500_c_expr); /* line 1098 "../lib/comp/int_act.s7i" */ strDestr(tmp_1); } /* line 1100 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8500_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 1101 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8500_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 1102 "../lib/comp/int_act.s7i" */ { /* line 1102 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1102 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8500_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1102 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1102 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 1102 "../lib/comp/int_act.s7i" */ } else { /* line 1102 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 1102 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1102 "../lib/comp/int_act.s7i" */ } } /* line 1103 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8500_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8498_number)); /* line 1104 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8500_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1243] /* " << " */); /* line 1105 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8500_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8501_lshift_name); /* line 1106 "../lib/comp/int_act.s7i" */ { /* line 1106 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1106 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8500_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1106 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1106 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1106 "../lib/comp/int_act.s7i" */ } else { /* line 1106 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1106 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1106 "../lib/comp/int_act.s7i" */ } } } else { /* line 1108 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8500_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8498_number)); /* line 1109 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8500_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1245] /* " << (" */); /* line 1110 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8499_lshift, o_8500_c_expr); /* line 1111 "../lib/comp/int_act.s7i" */ { /* line 1111 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1111 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8500_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1111 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1111 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1111 "../lib/comp/int_act.s7i" */ } else { /* line 1111 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1111 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1111 "../lib/comp/int_act.s7i" */ } } } /* line 1087 "../lib/comp/int_act.s7i" */ strDestr(o_8501_lshift_name); } /* line 1 "no_file" */ /* 4217 */ /* line 1116 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8502_INT_LSHIFT (const objRefType/*t_19_reference*/ o_8503_function, const listType/*t_20_ref_list*/ *const o_8504_params, structType/*t_164_expr_type*/ *const o_8505_c_expr) { /* line 1120 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8506_evaluatedParam=NULL; /* line 1121 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8507_number_name; /* line 1122 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8508_lshift_name; /* line 1121 "../lib/comp/int_act.s7i" */ o_8507_number_name=strEmpty(); /* "" */ /* line 1122 "../lib/comp/int_act.s7i" */ o_8508_lshift_name=strEmpty(); /* "" */ /* line 1124 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8504_params, 3L), 9L, &(o_8506_evaluatedParam))) { /* line 1125 "../lib/comp/int_act.s7i" */ o_8491_process_const_int_lshift(rflIdx(*o_8504_params, 1L), intValue(o_8506_evaluatedParam), o_8505_c_expr); } else /* line 1126 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8504_params, 1L), 9L, &(o_8506_evaluatedParam))) { /* line 1127 "../lib/comp/int_act.s7i" */ o_8497_process_const_int_lshift(intValue(o_8506_evaluatedParam), rflIdx(*o_8504_params, 3L), o_8505_c_expr); } else /* line 1128 "../lib/comp/int_act.s7i" */ if (o_3463_check_int_shift_overflow) { /* line 1129 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 1130 "../lib/comp/int_act.s7i" */ { /* line 1130 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1130 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1130 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1130 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1130 "../lib/comp/int_act.s7i" */ } else { /* line 1130 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1130 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1130 "../lib/comp/int_act.s7i" */ } } { /* line 1131 "../lib/comp/int_act.s7i" */ striType old_stri=o_8507_number_name; /* line 1131 "../lib/comp/int_act.s7i" */ o_8507_number_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8504_params, 1L), o_8505_c_expr); /* line 1131 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } { /* line 1132 "../lib/comp/int_act.s7i" */ striType old_stri=o_8508_lshift_name; /* line 1132 "../lib/comp/int_act.s7i" */ o_8508_lshift_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[1246] /* "lshift_" */, rflIdx(*o_8504_params, 3L), o_8505_c_expr); /* line 1132 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 1133 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); { /* line 1134 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 1134 "../lib/comp/int_act.s7i" */ o_8323_checkRangeFromZero(o_8508_lshift_name, (tmp_1=(striType/*t_15_string*/)(o_6502_integerLiteral(((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/))), o_8505_c_expr); /* line 1134 "../lib/comp/int_act.s7i" */ strDestr(tmp_1); } /* line 1135 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1192] /* "||" */); /* line 1136 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8507_number_name); /* line 1137 "../lib/comp/int_act.s7i" */ { /* line 1137 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1137 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1137 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1137 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '<'); /* line 1137 "../lib/comp/int_act.s7i" */ } else { /* line 1137 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '<'; /* line 1137 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1137 "../lib/comp/int_act.s7i" */ } } /* line 1138 "../lib/comp/int_act.s7i" */ if (((structType)(sct[55]))->stru[3].value.boolValue/*->o_3381_RSHIFT_DOES_SIGN_EXTEND*/) { /* line 1139 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); /* line 1140 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1247] /* ">>" */); /* line 1141 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8508_lshift_name); } else { /* line 1143 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1248] /* "~(~" */); /* line 1144 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); /* line 1145 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1247] /* ">>" */); /* line 1146 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8508_lshift_name); /* line 1147 "../lib/comp/int_act.s7i" */ { /* line 1147 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1147 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1147 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1147 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1147 "../lib/comp/int_act.s7i" */ } else { /* line 1147 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1147 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1147 "../lib/comp/int_act.s7i" */ } } } /* line 1149 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1192] /* "||" */); /* line 1150 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8507_number_name); /* line 1151 "../lib/comp/int_act.s7i" */ { /* line 1151 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1151 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1151 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1151 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '>'); /* line 1151 "../lib/comp/int_act.s7i" */ } else { /* line 1151 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '>'; /* line 1151 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1151 "../lib/comp/int_act.s7i" */ } } /* line 1152 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(9223372036854775807L)); /* line 1153 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1247] /* ">>" */); /* line 1154 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8508_lshift_name); /* line 1155 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 1156 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 1157 "../lib/comp/int_act.s7i" */ { /* line 1157 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1157 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1157 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1157 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 1157 "../lib/comp/int_act.s7i" */ } else { /* line 1157 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 1157 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1157 "../lib/comp/int_act.s7i" */ } } /* line 1158 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8507_number_name); /* line 1159 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1243] /* " << " */); /* line 1160 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8508_lshift_name); /* line 1161 "../lib/comp/int_act.s7i" */ { /* line 1161 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1161 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1161 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1161 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1161 "../lib/comp/int_act.s7i" */ } else { /* line 1161 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1161 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1161 "../lib/comp/int_act.s7i" */ } } } else { /* line 1163 "../lib/comp/int_act.s7i" */ { /* line 1163 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1163 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1163 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1163 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1163 "../lib/comp/int_act.s7i" */ } else { /* line 1163 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1163 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1163 "../lib/comp/int_act.s7i" */ } } /* line 1164 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8504_params, 1L), o_8505_c_expr); /* line 1165 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1249] /* ") << (" */); /* line 1166 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8504_params, 3L), o_8505_c_expr); /* line 1167 "../lib/comp/int_act.s7i" */ { /* line 1167 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1167 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8505_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1167 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1167 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1167 "../lib/comp/int_act.s7i" */ } else { /* line 1167 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1167 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1167 "../lib/comp/int_act.s7i" */ } } } /* line 1116 "../lib/comp/int_act.s7i" */ strDestr(o_8507_number_name); /* line 1116 "../lib/comp/int_act.s7i" */ strDestr(o_8508_lshift_name); } /* line 1 "no_file" */ /* 4218 */ /* line 1172 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8509_process_const_int_lshift_assign (const objRefType/*t_19_reference*/ o_8510_variable, const intType/*t_14_integer*/ o_8511_lshift, structType/*t_164_expr_type*/ *const o_8512_c_expr) { /* line 1176 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8513_evaluatedNumber=NULL; /* line 1177 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8514_variable_name; /* line 1178 "../lib/comp/int_act.s7i" */ structType/*t_164_expr_type*/ o_8515_statement; /* line 1177 "../lib/comp/int_act.s7i" */ o_8514_variable_name=strEmpty(); /* "" */ /* line 1178 "../lib/comp/int_act.s7i" */ o_8515_statement=create_164(sct[241]); /* line 1180 "../lib/comp/int_act.s7i" */ if (((o_8511_lshift) < (0L)) || /* line 1180 "../lib/comp/int_act.s7i" */ ((o_8511_lshift) >= (((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/))) { /* line 1181 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 1182 "../lib/comp/int_act.s7i" */ o_4819_setDiagnosticLine(o_8512_c_expr); /* line 1183 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[1196] /* "OVERFLOW_ERROR" */, *o_8512_c_expr); /* line 1184 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6522_voidRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 1185 "../lib/comp/int_act.s7i" */ { /* line 1185 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1185 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1185 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1185 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 1185 "../lib/comp/int_act.s7i" */ } else { /* line 1185 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 1185 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1185 "../lib/comp/int_act.s7i" */ } } } else /* line 1186 "../lib/comp/int_act.s7i" */ if ((o_8511_lshift) == (0L)) { /* line 1187 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 1188 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1250] /* "/* ignore integer <<:= 0; *\/\n" */); } else /* line 1189 "../lib/comp/int_act.s7i" */ if (o_3463_check_int_shift_overflow) { /* line 1190 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 1191 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); { /* line 1192 "../lib/comp/int_act.s7i" */ striType old_stri=o_8514_variable_name; /* line 1192 "../lib/comp/int_act.s7i" */ o_8514_variable_name=o_5043_getParameterAsReference(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_8510_variable, &(o_8515_statement)); /* line 1192 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 1193 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8515_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 1194 "../lib/comp/int_act.s7i" */ o_8327_checkIfOutsideRange(o_8514_variable_name, (ovfChk((uintType)(o_8511_lshift)>=(uintType)64L)?intRaiseError(OVERFLOW_ERROR):((-9223372036854775807L-1L)) >> (o_8511_lshift)), (ovfChk((uintType)(o_8511_lshift)>=(uintType)64L)?intRaiseError(OVERFLOW_ERROR):(9223372036854775807L) >> (o_8511_lshift)), &(o_8515_statement)); /* line 1196 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8515_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 1197 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8515_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 1198 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8515_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1157] /* ":(" */); /* line 1199 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8515_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8514_variable_name); /* line 1200 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8515_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1251] /* "<<=" */); /* line 1201 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8515_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8511_lshift)); /* line 1202 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8515_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 1203 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8515_statement, o_8512_c_expr); } else { /* line 1205 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8510_variable, &(o_8515_statement)); /* line 1206 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8515_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1251] /* "<<=" */); /* line 1207 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8515_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8511_lshift)); /* line 1208 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8515_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 1209 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8515_statement, o_8512_c_expr); } /* line 1172 "../lib/comp/int_act.s7i" */ strDestr(o_8514_variable_name); /* line 1172 "../lib/comp/int_act.s7i" */ destr_164(o_8515_statement); } /* line 1 "no_file" */ /* 4219 */ /* line 1214 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8516_INT_LSHIFT_ASSIGN (const objRefType/*t_19_reference*/ o_8517_function, const listType/*t_20_ref_list*/ *const o_8518_params, structType/*t_164_expr_type*/ *const o_8519_c_expr) { /* line 1218 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8520_evaluatedParam=NULL; /* line 1219 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8521_variable_name; /* line 1220 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8522_lshift_name; /* line 1221 "../lib/comp/int_act.s7i" */ structType/*t_164_expr_type*/ o_8523_statement; /* line 1219 "../lib/comp/int_act.s7i" */ o_8521_variable_name=strEmpty(); /* "" */ /* line 1220 "../lib/comp/int_act.s7i" */ o_8522_lshift_name=strEmpty(); /* "" */ /* line 1221 "../lib/comp/int_act.s7i" */ o_8523_statement=create_164(sct[242]); /* line 1223 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8518_params, 3L), 9L, &(o_8520_evaluatedParam))) { /* line 1224 "../lib/comp/int_act.s7i" */ o_8509_process_const_int_lshift_assign(rflIdx(*o_8518_params, 1L), intValue(o_8520_evaluatedParam), o_8519_c_expr); } else /* line 1225 "../lib/comp/int_act.s7i" */ if (o_3463_check_int_shift_overflow) { /* line 1226 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); { /* line 1227 "../lib/comp/int_act.s7i" */ striType old_stri=o_8521_variable_name; /* line 1227 "../lib/comp/int_act.s7i" */ o_8521_variable_name=o_5043_getParameterAsReference(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8518_params, 1L), &(o_8523_statement)); /* line 1227 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } { /* line 1228 "../lib/comp/int_act.s7i" */ striType old_stri=o_8522_lshift_name; /* line 1228 "../lib/comp/int_act.s7i" */ o_8522_lshift_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8518_params, 3L), &(o_8523_statement)); /* line 1228 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 1229 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); { /* line 1230 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 1230 "../lib/comp/int_act.s7i" */ o_8323_checkRangeFromZero(o_8522_lshift_name, (tmp_1=(striType/*t_15_string*/)(o_6502_integerLiteral(((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/))), &(o_8523_statement)); /* line 1230 "../lib/comp/int_act.s7i" */ strDestr(tmp_1); } /* line 1231 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1192] /* "||" */); /* line 1232 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8521_variable_name); /* line 1233 "../lib/comp/int_act.s7i" */ { /* line 1233 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1233 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1233 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1233 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '<'); /* line 1233 "../lib/comp/int_act.s7i" */ } else { /* line 1233 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '<'; /* line 1233 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1233 "../lib/comp/int_act.s7i" */ } } /* line 1234 "../lib/comp/int_act.s7i" */ if (((structType)(sct[55]))->stru[3].value.boolValue/*->o_3381_RSHIFT_DOES_SIGN_EXTEND*/) { /* line 1235 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); /* line 1236 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1247] /* ">>" */); /* line 1237 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8522_lshift_name); } else { /* line 1239 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1248] /* "~(~" */); /* line 1240 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); /* line 1241 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1247] /* ">>" */); /* line 1242 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8522_lshift_name); /* line 1243 "../lib/comp/int_act.s7i" */ { /* line 1243 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1243 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1243 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1243 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1243 "../lib/comp/int_act.s7i" */ } else { /* line 1243 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1243 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1243 "../lib/comp/int_act.s7i" */ } } } /* line 1245 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1192] /* "||" */); /* line 1246 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8521_variable_name); /* line 1247 "../lib/comp/int_act.s7i" */ { /* line 1247 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1247 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1247 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1247 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '>'); /* line 1247 "../lib/comp/int_act.s7i" */ } else { /* line 1247 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '>'; /* line 1247 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1247 "../lib/comp/int_act.s7i" */ } } /* line 1248 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(9223372036854775807L)); /* line 1249 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1247] /* ">>" */); /* line 1250 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8522_lshift_name); /* line 1251 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 1252 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 1253 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1157] /* ":(" */); /* line 1254 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8521_variable_name); /* line 1255 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1251] /* "<<=" */); /* line 1256 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8522_lshift_name); /* line 1257 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 1258 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8523_statement, o_8519_c_expr); } else { /* line 1260 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8518_params, 1L), &(o_8523_statement)); /* line 1261 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1251] /* "<<=" */); /* line 1262 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8518_params, 3L), &(o_8523_statement)); /* line 1263 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8523_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 1264 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8523_statement, o_8519_c_expr); } /* line 1214 "../lib/comp/int_act.s7i" */ strDestr(o_8521_variable_name); /* line 1214 "../lib/comp/int_act.s7i" */ strDestr(o_8522_lshift_name); /* line 1214 "../lib/comp/int_act.s7i" */ destr_164(o_8523_statement); } /* line 1 "no_file" */ /* 4220 */ /* line 1269 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8524_INT_LT (const objRefType/*t_19_reference*/ o_8525_function, const listType/*t_20_ref_list*/ *const o_8526_params, structType/*t_164_expr_type*/ *const o_8527_c_expr) { /* line 1273 "../lib/comp/int_act.s7i" */ { /* line 1273 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1273 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8527_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1273 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1273 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1273 "../lib/comp/int_act.s7i" */ } else { /* line 1273 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1273 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1273 "../lib/comp/int_act.s7i" */ } } /* line 1274 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8526_params, 1L), o_8527_c_expr); /* line 1275 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8527_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[627] /* ") < (" */); /* line 1276 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8526_params, 3L), o_8527_c_expr); /* line 1277 "../lib/comp/int_act.s7i" */ { /* line 1277 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1277 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8527_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1277 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1277 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1277 "../lib/comp/int_act.s7i" */ } else { /* line 1277 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1277 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1277 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4221 */ /* line 1281 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8528_process_const_int_mdiv (const objRefType/*t_19_reference*/ o_8529_dividend, const intType/*t_14_integer*/ o_8530_divisor, structType/*t_164_expr_type*/ *const o_8531_c_expr) { /* line 1285 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8532_evaluatedDividend=NULL; /* line 1286 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8533_dividend_name; /* line 1286 "../lib/comp/int_act.s7i" */ o_8533_dividend_name=strEmpty(); /* "" */ /* line 1288 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 1289 "../lib/comp/int_act.s7i" */ if ((o_8530_divisor) == (0L)) { /* line 1290 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[553] /* "NUMERIC_ERROR" */, *o_8531_c_expr); /* line 1291 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); } else /* line 1292 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(o_8529_dividend, 9L, &(o_8532_evaluatedDividend))) { /* line 1293 "../lib/comp/int_act.s7i" */ { /* line 1293 "../lib/comp/int_act.s7i" */ int fail_value; /* line 1293 "../lib/comp/int_act.s7i" */ catch_stack_pos++; /* line 1293 "../lib/comp/int_act.s7i" */ if (unlikely(catch_stack_pos >= max_catch_stack)) { /* line 1293 "../lib/comp/int_act.s7i" */ resize_catch_stack(); /* line 1293 "../lib/comp/int_act.s7i" */ } /* line 1293 "../lib/comp/int_act.s7i" */ if (likely((fail_value = do_setjmp(catch_stack[catch_stack_pos])) == 0)) { { /* line 1294 "../lib/comp/int_act.s7i" */ intType tmp_a_2; /* line 1294 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((tmp_a_2=intValue(o_8532_evaluatedDividend),tmp_a_2>0&&(o_8530_divisor)<0?(tmp_a_2-1)/(o_8530_divisor)-1:tmp_a_2<0&&(o_8530_divisor)>0?(tmp_a_2+1)/(o_8530_divisor)-1:divChk((o_8530_divisor)==0)?intRaiseError(NUMERIC_ERROR):ovfChk(tmp_a_2==(-9223372036854775807L-1L)&&(o_8530_divisor)==-1)?intRaiseError(OVERFLOW_ERROR):tmp_a_2/(o_8530_divisor)))); } /* line 1294 "../lib/comp/int_act.s7i" */ catch_stack_pos--; /* line 1296 "../lib/comp/int_act.s7i" */ } else { /* line 1294 "../lib/comp/int_act.s7i" */ catch_stack_pos--; /* line 1296 "../lib/comp/int_act.s7i" */ if (o_17_OVERFLOW_ERROR == fail_value - 1) { /* line 1297 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[1196] /* "OVERFLOW_ERROR" */, *o_8531_c_expr); /* line 1298 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 1299 "../lib/comp/int_act.s7i" */ } else { /* line 1299 "../lib/comp/int_act.s7i" */ rtlRaiseError(fail_value, error_file, error_line); /* line 1299 "../lib/comp/int_act.s7i" */ } /* line 1299 "../lib/comp/int_act.s7i" */ } /* line 1299 "../lib/comp/int_act.s7i" */ } } else /* line 1300 "../lib/comp/int_act.s7i" */ if ((o_8530_divisor) == (1L)) { /* line 1301 "../lib/comp/int_act.s7i" */ { /* line 1301 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1301 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1301 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1301 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1301 "../lib/comp/int_act.s7i" */ } else { /* line 1301 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1301 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1301 "../lib/comp/int_act.s7i" */ } } /* line 1302 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8529_dividend, o_8531_c_expr); /* line 1303 "../lib/comp/int_act.s7i" */ { /* line 1303 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1303 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1303 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1303 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1303 "../lib/comp/int_act.s7i" */ } else { /* line 1303 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1303 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1303 "../lib/comp/int_act.s7i" */ } } } else /* line 1304 "../lib/comp/int_act.s7i" */ if ((o_8530_divisor) == (-1L)) { /* line 1307 "../lib/comp/int_act.s7i" */ o_8332_negate(o_8529_dividend, o_8531_c_expr); } else { /* line 1308 "../lib/comp/int_act.s7i" */ intType tmp_1; /* line 1308 "../lib/comp/int_act.s7i" */ if (((o_8530_divisor) > (0L)) && /* line 1308 "../lib/comp/int_act.s7i" */ (((tmp_1=intLog2(o_8530_divisor),numChk(tmp_1<0)?intRaiseError(NUMERIC_ERROR):ovfChk(tmp_1>62L)?intRaiseError(OVERFLOW_ERROR):1L<stru[3].value.boolValue/*->o_3381_RSHIFT_DOES_SIGN_EXTEND*/) { /* line 1311 "../lib/comp/int_act.s7i" */ { /* line 1311 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1311 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1311 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1311 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1311 "../lib/comp/int_act.s7i" */ } else { /* line 1311 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1311 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1311 "../lib/comp/int_act.s7i" */ } } /* line 1312 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8529_dividend, o_8531_c_expr); /* line 1313 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1252] /* ") >> " */); /* line 1314 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(intLog2(o_8530_divisor))); } else { /* line 1316 "../lib/comp/int_act.s7i" */ { /* line 1316 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1316 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1316 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1316 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1316 "../lib/comp/int_act.s7i" */ } else { /* line 1316 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1316 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1316 "../lib/comp/int_act.s7i" */ } } { /* line 1317 "../lib/comp/int_act.s7i" */ striType old_stri=o_8533_dividend_name; /* line 1317 "../lib/comp/int_act.s7i" */ o_8533_dividend_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[655] /* "tmp_a_" */, o_8529_dividend, o_8531_c_expr); /* line 1317 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } { /* line 1318 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 1318 "../lib/comp/int_act.s7i" */ o_5103_doRshift(o_8533_dividend_name, (tmp_1=(striType/*t_15_string*/)(o_6502_integerLiteral(intLog2(o_8530_divisor)))), o_8531_c_expr); /* line 1318 "../lib/comp/int_act.s7i" */ strDestr(tmp_1); } /* line 1319 "../lib/comp/int_act.s7i" */ { /* line 1319 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1319 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1319 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1319 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1319 "../lib/comp/int_act.s7i" */ } else { /* line 1319 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1319 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1319 "../lib/comp/int_act.s7i" */ } } } } else /* line 1321 "../lib/comp/int_act.s7i" */ if (((o_8530_divisor) < (0L)) && /* line 1321 "../lib/comp/int_act.s7i" */ ((intBitLength(o_8530_divisor)) == (intLowestSetBit(o_8530_divisor)))) { /* line 1327 "../lib/comp/int_act.s7i" */ if (((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/) { /* line 1328 "../lib/comp/int_act.s7i" */ { /* line 1328 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1328 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1328 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1328 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1328 "../lib/comp/int_act.s7i" */ } else { /* line 1328 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1328 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1328 "../lib/comp/int_act.s7i" */ } } { /* line 1329 "../lib/comp/int_act.s7i" */ striType old_stri=o_8533_dividend_name; /* line 1329 "../lib/comp/int_act.s7i" */ o_8533_dividend_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[655] /* "tmp_a_" */, o_8529_dividend, o_8531_c_expr); /* line 1329 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 1330 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8533_dividend_name); /* line 1331 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1194] /* "==" */); /* line 1332 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); /* line 1333 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1253] /* "?(intType)((uintType)" */); /* line 1334 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); /* line 1335 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[315] /* " >> " */); /* line 1336 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(intBitLength(o_8530_divisor))); /* line 1337 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[316] /* "):" */); /* line 1338 "../lib/comp/int_act.s7i" */ if (((structType)(sct[55]))->stru[3].value.boolValue/*->o_3381_RSHIFT_DOES_SIGN_EXTEND*/) { /* line 1339 "../lib/comp/int_act.s7i" */ { /* line 1339 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1339 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1339 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1339 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '-'); /* line 1339 "../lib/comp/int_act.s7i" */ } else { /* line 1339 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '-'; /* line 1339 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1339 "../lib/comp/int_act.s7i" */ } } /* line 1340 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8533_dividend_name); /* line 1341 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[315] /* " >> " */); /* line 1342 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(intBitLength(o_8530_divisor))); } else { /* line 1344 "../lib/comp/int_act.s7i" */ { /* line 1344 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1344 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1344 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1344 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1344 "../lib/comp/int_act.s7i" */ } else { /* line 1344 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1344 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1344 "../lib/comp/int_act.s7i" */ } } /* line 1345 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8533_dividend_name); /* line 1346 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1254] /* "=-" */); /* line 1347 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8533_dividend_name); /* line 1348 "../lib/comp/int_act.s7i" */ { /* line 1348 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1348 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1348 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1348 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 1348 "../lib/comp/int_act.s7i" */ } else { /* line 1348 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 1348 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1348 "../lib/comp/int_act.s7i" */ } } { /* line 1349 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 1349 "../lib/comp/int_act.s7i" */ o_5103_doRshift(o_8533_dividend_name, (tmp_1=(striType/*t_15_string*/)(o_6502_integerLiteral(intBitLength(o_8530_divisor)))), o_8531_c_expr); /* line 1349 "../lib/comp/int_act.s7i" */ strDestr(tmp_1); } /* line 1350 "../lib/comp/int_act.s7i" */ { /* line 1350 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1350 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1350 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1350 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1350 "../lib/comp/int_act.s7i" */ } else { /* line 1350 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1350 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1350 "../lib/comp/int_act.s7i" */ } } } /* line 1352 "../lib/comp/int_act.s7i" */ { /* line 1352 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1352 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1352 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1352 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1352 "../lib/comp/int_act.s7i" */ } else { /* line 1352 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1352 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1352 "../lib/comp/int_act.s7i" */ } } } else { /* line 1354 "../lib/comp/int_act.s7i" */ if (((structType)(sct[55]))->stru[3].value.boolValue/*->o_3381_RSHIFT_DOES_SIGN_EXTEND*/) { /* line 1355 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1059] /* "-(" */); /* line 1356 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8529_dividend, o_8531_c_expr); /* line 1357 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1252] /* ") >> " */); /* line 1358 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(intBitLength(o_8530_divisor))); } else { /* line 1360 "../lib/comp/int_act.s7i" */ ++(((structType)(*o_8531_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 1361 "../lib/comp/int_act.s7i" */ union { /* line 1361 "../lib/comp/int_act.s7i" */ struct striStruct striBuf; /* line 1361 "../lib/comp/int_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1361 "../lib/comp/int_act.s7i" */ } buffer_2; /* line 1361 "../lib/comp/int_act.s7i" */ striType old_stri=o_8533_dividend_name; /* line 1361 "../lib/comp/int_act.s7i" */ o_8533_dividend_name=strConcat(&str[655] /* "tmp_a_" */, intStrToBuffer(((structType)(*o_8531_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 1361 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 1362 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[410] /* "intType " */); /* line 1363 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_8533_dividend_name); /* line 1364 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 1365 "../lib/comp/int_act.s7i" */ { /* line 1365 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1365 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1365 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1365 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1365 "../lib/comp/int_act.s7i" */ } else { /* line 1365 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1365 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1365 "../lib/comp/int_act.s7i" */ } } /* line 1366 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8533_dividend_name); /* line 1367 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1255] /* "=-(" */); /* line 1368 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8529_dividend, o_8531_c_expr); /* line 1369 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[308] /* ")," */); { /* line 1370 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 1370 "../lib/comp/int_act.s7i" */ o_5103_doRshift(o_8533_dividend_name, (tmp_1=(striType/*t_15_string*/)(o_6502_integerLiteral(intBitLength(o_8530_divisor)))), o_8531_c_expr); /* line 1370 "../lib/comp/int_act.s7i" */ strDestr(tmp_1); } /* line 1371 "../lib/comp/int_act.s7i" */ { /* line 1371 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1371 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1371 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1371 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1371 "../lib/comp/int_act.s7i" */ } else { /* line 1371 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1371 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1371 "../lib/comp/int_act.s7i" */ } } } } } else { /* line 1375 "../lib/comp/int_act.s7i" */ { /* line 1375 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1375 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1375 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1375 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1375 "../lib/comp/int_act.s7i" */ } else { /* line 1375 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1375 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1375 "../lib/comp/int_act.s7i" */ } } { /* line 1376 "../lib/comp/int_act.s7i" */ striType old_stri=o_8533_dividend_name; /* line 1376 "../lib/comp/int_act.s7i" */ o_8533_dividend_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[655] /* "tmp_a_" */, o_8529_dividend, o_8531_c_expr); /* line 1376 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 1377 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8533_dividend_name); /* line 1378 "../lib/comp/int_act.s7i" */ if ((o_8530_divisor) > (0L)) { /* line 1380 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1256] /* "<0?(" */); /* line 1381 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8533_dividend_name); /* line 1382 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1257] /* "+1)/" */); /* line 1383 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8530_divisor)); /* line 1384 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1258] /* "-1:(intType)((uintType)" */); /* line 1385 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8533_dividend_name); /* line 1386 "../lib/comp/int_act.s7i" */ { /* line 1386 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1386 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1386 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1386 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '/'); /* line 1386 "../lib/comp/int_act.s7i" */ } else { /* line 1386 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '/'; /* line 1386 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1386 "../lib/comp/int_act.s7i" */ } } /* line 1387 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8530_divisor)); /* line 1388 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); } else { /* line 1391 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1259] /* ">0?(" */); /* line 1392 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8533_dividend_name); /* line 1393 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1260] /* "-1)/" */); /* line 1394 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8530_divisor)); /* line 1395 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1261] /* "-1:" */); /* line 1396 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8533_dividend_name); /* line 1397 "../lib/comp/int_act.s7i" */ { /* line 1397 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1397 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1397 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1397 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '/'); /* line 1397 "../lib/comp/int_act.s7i" */ } else { /* line 1397 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '/'; /* line 1397 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1397 "../lib/comp/int_act.s7i" */ } } /* line 1398 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8530_divisor)); /* line 1399 "../lib/comp/int_act.s7i" */ { /* line 1399 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1399 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1399 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1399 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1399 "../lib/comp/int_act.s7i" */ } else { /* line 1399 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1399 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1399 "../lib/comp/int_act.s7i" */ } } } } } /* line 1281 "../lib/comp/int_act.s7i" */ strDestr(o_8533_dividend_name); } /* line 1 "no_file" */ /* 4222 */ /* line 1405 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8534_process_const_int_mdiv (const intType/*t_14_integer*/ o_8535_dividend, const objRefType/*t_19_reference*/ o_8536_divisor, structType/*t_164_expr_type*/ *const o_8537_c_expr) { /* line 1409 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8538_divisor_name; /* line 1409 "../lib/comp/int_act.s7i" */ o_8538_divisor_name=strEmpty(); /* "" */ /* line 1411 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 1412 "../lib/comp/int_act.s7i" */ if ((o_8535_dividend) == (0L)) { /* line 1413 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1222] /* "(divChk((" */); /* line 1414 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8536_divisor, o_8537_c_expr); /* line 1415 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1223] /* ")==0)?" */); /* line 1416 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 1417 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1224] /* ":0)" */); } else /* line 1418 "../lib/comp/int_act.s7i" */ if ((o_3462_check_int_division_overflow) && /* line 1419 "../lib/comp/int_act.s7i" */ ((o_8535_dividend) == ((-9223372036854775807L-1L)))) { /* line 1420 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 1422 "../lib/comp/int_act.s7i" */ { /* line 1422 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1422 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1422 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1422 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1422 "../lib/comp/int_act.s7i" */ } else { /* line 1422 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1422 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1422 "../lib/comp/int_act.s7i" */ } } { /* line 1423 "../lib/comp/int_act.s7i" */ striType old_stri=o_8538_divisor_name; /* line 1423 "../lib/comp/int_act.s7i" */ o_8538_divisor_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[656] /* "tmp_b_" */, o_8536_divisor, o_8537_c_expr); /* line 1423 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 1424 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 1425 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8538_divisor_name); /* line 1426 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1262] /* "==-1)?" */); /* line 1427 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 1428 "../lib/comp/int_act.s7i" */ { /* line 1428 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1428 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1428 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1428 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 1428 "../lib/comp/int_act.s7i" */ } else { /* line 1428 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 1428 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1428 "../lib/comp/int_act.s7i" */ } } /* line 1429 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8538_divisor_name); /* line 1430 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1263] /* ">0?" */); /* line 1431 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((o_8535_dividend)+1)); /* line 1432 "../lib/comp/int_act.s7i" */ { /* line 1432 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1432 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1432 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1432 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '/'); /* line 1432 "../lib/comp/int_act.s7i" */ } else { /* line 1432 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '/'; /* line 1432 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1432 "../lib/comp/int_act.s7i" */ } } /* line 1433 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8538_divisor_name); /* line 1434 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1261] /* "-1:" */); /* line 1435 "../lib/comp/int_act.s7i" */ if (((structType)(sct[55]))->stru[12].value.boolValue/*->o_3390_CHECK_INT_DIV_BY_ZERO*/) { /* line 1436 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1226] /* "divChk(" */); /* line 1437 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8538_divisor_name); /* line 1438 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1227] /* "==0)?" */); /* line 1439 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 1440 "../lib/comp/int_act.s7i" */ { /* line 1440 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1440 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1440 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1440 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 1440 "../lib/comp/int_act.s7i" */ } else { /* line 1440 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 1440 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1440 "../lib/comp/int_act.s7i" */ } } } /* line 1442 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8535_dividend)); /* line 1443 "../lib/comp/int_act.s7i" */ { /* line 1443 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1443 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1443 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1443 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '/'); /* line 1443 "../lib/comp/int_act.s7i" */ } else { /* line 1443 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '/'; /* line 1443 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1443 "../lib/comp/int_act.s7i" */ } } /* line 1444 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8538_divisor_name); /* line 1445 "../lib/comp/int_act.s7i" */ { /* line 1445 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1445 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1445 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1445 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1445 "../lib/comp/int_act.s7i" */ } else { /* line 1445 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1445 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1445 "../lib/comp/int_act.s7i" */ } } } else { /* line 1447 "../lib/comp/int_act.s7i" */ { /* line 1447 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1447 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1447 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1447 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1447 "../lib/comp/int_act.s7i" */ } else { /* line 1447 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1447 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1447 "../lib/comp/int_act.s7i" */ } } { /* line 1448 "../lib/comp/int_act.s7i" */ striType old_stri=o_8538_divisor_name; /* line 1448 "../lib/comp/int_act.s7i" */ o_8538_divisor_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[656] /* "tmp_b_" */, o_8536_divisor, o_8537_c_expr); /* line 1448 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 1449 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8538_divisor_name); /* line 1450 "../lib/comp/int_act.s7i" */ if ((o_8535_dividend) > (0L)) { /* line 1452 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1198] /* "<0?" */); /* line 1453 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((o_8535_dividend)-1)); } else { /* line 1456 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1263] /* ">0?" */); /* line 1457 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((o_8535_dividend)+1)); } /* line 1459 "../lib/comp/int_act.s7i" */ { /* line 1459 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1459 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1459 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1459 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '/'); /* line 1459 "../lib/comp/int_act.s7i" */ } else { /* line 1459 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '/'; /* line 1459 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1459 "../lib/comp/int_act.s7i" */ } } /* line 1460 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8538_divisor_name); /* line 1461 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1261] /* "-1:" */); /* line 1462 "../lib/comp/int_act.s7i" */ if (((structType)(sct[55]))->stru[12].value.boolValue/*->o_3390_CHECK_INT_DIV_BY_ZERO*/) { /* line 1463 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1226] /* "divChk(" */); /* line 1464 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8538_divisor_name); /* line 1465 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1227] /* "==0)?" */); /* line 1466 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 1467 "../lib/comp/int_act.s7i" */ { /* line 1467 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1467 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1467 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1467 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 1467 "../lib/comp/int_act.s7i" */ } else { /* line 1467 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 1467 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1467 "../lib/comp/int_act.s7i" */ } } } /* line 1469 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8535_dividend)); /* line 1470 "../lib/comp/int_act.s7i" */ { /* line 1470 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1470 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1470 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1470 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '/'); /* line 1470 "../lib/comp/int_act.s7i" */ } else { /* line 1470 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '/'; /* line 1470 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1470 "../lib/comp/int_act.s7i" */ } } /* line 1471 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8538_divisor_name); /* line 1472 "../lib/comp/int_act.s7i" */ { /* line 1472 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1472 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8537_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1472 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1472 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1472 "../lib/comp/int_act.s7i" */ } else { /* line 1472 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1472 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1472 "../lib/comp/int_act.s7i" */ } } } /* line 1405 "../lib/comp/int_act.s7i" */ strDestr(o_8538_divisor_name); } /* line 1 "no_file" */ /* 4223 */ /* line 1477 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8539_INT_MDIV (const objRefType/*t_19_reference*/ o_8540_function, const listType/*t_20_ref_list*/ *const o_8541_params, structType/*t_164_expr_type*/ *const o_8542_c_expr) { /* line 1481 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8543_evaluatedParam=NULL; /* line 1482 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8544_dividend_name; /* line 1483 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8545_divisor_name; /* line 1482 "../lib/comp/int_act.s7i" */ o_8544_dividend_name=strEmpty(); /* "" */ /* line 1483 "../lib/comp/int_act.s7i" */ o_8545_divisor_name=strEmpty(); /* "" */ /* line 1485 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8541_params, 3L), 9L, &(o_8543_evaluatedParam))) { /* line 1486 "../lib/comp/int_act.s7i" */ o_8528_process_const_int_mdiv(rflIdx(*o_8541_params, 1L), intValue(o_8543_evaluatedParam), o_8542_c_expr); } else /* line 1487 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8541_params, 1L), 9L, &(o_8543_evaluatedParam))) { /* line 1488 "../lib/comp/int_act.s7i" */ o_8534_process_const_int_mdiv(intValue(o_8543_evaluatedParam), rflIdx(*o_8541_params, 3L), o_8542_c_expr); } else { /* line 1490 "../lib/comp/int_act.s7i" */ { /* line 1490 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1490 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1490 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1490 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1490 "../lib/comp/int_act.s7i" */ } else { /* line 1490 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1490 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1490 "../lib/comp/int_act.s7i" */ } } { /* line 1491 "../lib/comp/int_act.s7i" */ striType old_stri=o_8544_dividend_name; /* line 1491 "../lib/comp/int_act.s7i" */ o_8544_dividend_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[655] /* "tmp_a_" */, rflIdx(*o_8541_params, 1L), o_8542_c_expr); /* line 1491 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } { /* line 1492 "../lib/comp/int_act.s7i" */ striType old_stri=o_8545_divisor_name; /* line 1492 "../lib/comp/int_act.s7i" */ o_8545_divisor_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[656] /* "tmp_b_" */, rflIdx(*o_8541_params, 3L), o_8542_c_expr); /* line 1492 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 1494 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8544_dividend_name); /* line 1495 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1236] /* ">0&&" */); /* line 1496 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8545_divisor_name); /* line 1497 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1256] /* "<0?(" */); /* line 1498 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8544_dividend_name); /* line 1499 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1260] /* "-1)/" */); /* line 1500 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8545_divisor_name); /* line 1501 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1261] /* "-1:" */); /* line 1502 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8544_dividend_name); /* line 1503 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1203] /* "<0&&" */); /* line 1504 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8545_divisor_name); /* line 1505 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1259] /* ">0?(" */); /* line 1506 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8544_dividend_name); /* line 1507 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1257] /* "+1)/" */); /* line 1508 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8545_divisor_name); /* line 1509 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1261] /* "-1:" */); /* line 1510 "../lib/comp/int_act.s7i" */ if (((structType)(sct[55]))->stru[12].value.boolValue/*->o_3390_CHECK_INT_DIV_BY_ZERO*/) { /* line 1511 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1226] /* "divChk(" */); /* line 1512 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8545_divisor_name); /* line 1513 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1227] /* "==0)?" */); /* line 1514 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 1515 "../lib/comp/int_act.s7i" */ { /* line 1515 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1515 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1515 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1515 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 1515 "../lib/comp/int_act.s7i" */ } else { /* line 1515 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 1515 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1515 "../lib/comp/int_act.s7i" */ } } } /* line 1517 "../lib/comp/int_act.s7i" */ if (o_3462_check_int_division_overflow) { /* line 1518 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 1519 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 1520 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8544_dividend_name); /* line 1521 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1194] /* "==" */); /* line 1522 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); /* line 1523 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1229] /* "&&" */); /* line 1524 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8545_divisor_name); /* line 1525 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1225] /* "==-1" */); /* line 1526 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 1527 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 1528 "../lib/comp/int_act.s7i" */ { /* line 1528 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1528 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1528 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1528 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 1528 "../lib/comp/int_act.s7i" */ } else { /* line 1528 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 1528 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1528 "../lib/comp/int_act.s7i" */ } } } /* line 1530 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8544_dividend_name); /* line 1531 "../lib/comp/int_act.s7i" */ { /* line 1531 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1531 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1531 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1531 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '/'); /* line 1531 "../lib/comp/int_act.s7i" */ } else { /* line 1531 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '/'; /* line 1531 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1531 "../lib/comp/int_act.s7i" */ } } /* line 1532 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8545_divisor_name); /* line 1533 "../lib/comp/int_act.s7i" */ { /* line 1533 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1533 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8542_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1533 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1533 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1533 "../lib/comp/int_act.s7i" */ } else { /* line 1533 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1533 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1533 "../lib/comp/int_act.s7i" */ } } } /* line 1477 "../lib/comp/int_act.s7i" */ strDestr(o_8544_dividend_name); /* line 1477 "../lib/comp/int_act.s7i" */ strDestr(o_8545_divisor_name); } /* line 1 "no_file" */ /* 4224 */ /* line 1538 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8546_process_const_int_mod (const objRefType/*t_19_reference*/ o_8547_dividend, const intType/*t_14_integer*/ o_8548_divisor, structType/*t_164_expr_type*/ *const o_8549_c_expr) { /* line 1542 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8550_evaluatedDividend=NULL; /* line 1543 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8551_dividend_name; /* line 1544 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8552_quotient_name; /* line 1543 "../lib/comp/int_act.s7i" */ o_8551_dividend_name=strEmpty(); /* "" */ /* line 1544 "../lib/comp/int_act.s7i" */ o_8552_quotient_name=strEmpty(); /* "" */ /* line 1546 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 1547 "../lib/comp/int_act.s7i" */ if ((o_8548_divisor) == (0L)) { /* line 1548 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[553] /* "NUMERIC_ERROR" */, *o_8549_c_expr); /* line 1549 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); } else /* line 1550 "../lib/comp/int_act.s7i" */ if ((o_8548_divisor) == (1L)) { /* line 1551 "../lib/comp/int_act.s7i" */ { /* line 1551 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1551 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1551 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1551 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '0'); /* line 1551 "../lib/comp/int_act.s7i" */ } else { /* line 1551 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '0'; /* line 1551 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1551 "../lib/comp/int_act.s7i" */ } } } else /* line 1552 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(o_8547_dividend, 9L, &(o_8550_evaluatedDividend))) { /* line 1553 "../lib/comp/int_act.s7i" */ { /* line 1553 "../lib/comp/int_act.s7i" */ int fail_value; /* line 1553 "../lib/comp/int_act.s7i" */ catch_stack_pos++; /* line 1553 "../lib/comp/int_act.s7i" */ if (unlikely(catch_stack_pos >= max_catch_stack)) { /* line 1553 "../lib/comp/int_act.s7i" */ resize_catch_stack(); /* line 1553 "../lib/comp/int_act.s7i" */ } /* line 1553 "../lib/comp/int_act.s7i" */ if (likely((fail_value = do_setjmp(catch_stack[catch_stack_pos])) == 0)) { { /* line 1554 "../lib/comp/int_act.s7i" */ intType tmp_a_2; /* line 1554 "../lib/comp/int_act.s7i" */ intType tmp_c_3; /* line 1554 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((tmp_a_2=intValue(o_8550_evaluatedDividend),ovfChk(tmp_a_2==(-9223372036854775807L-1L)&&(o_8548_divisor)==-1)?intRaiseError(OVERFLOW_ERROR):divChk((o_8548_divisor)==0)?intRaiseError(NUMERIC_ERROR):(tmp_c_3=tmp_a_2%(o_8548_divisor),tmp_a_2<0^(o_8548_divisor)<0&&tmp_c_3!=0?tmp_c_3+(o_8548_divisor):tmp_c_3)))); } /* line 1554 "../lib/comp/int_act.s7i" */ catch_stack_pos--; /* line 1556 "../lib/comp/int_act.s7i" */ } else { /* line 1554 "../lib/comp/int_act.s7i" */ catch_stack_pos--; /* line 1556 "../lib/comp/int_act.s7i" */ if (o_17_OVERFLOW_ERROR == fail_value - 1) { /* line 1557 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[1196] /* "OVERFLOW_ERROR" */, *o_8549_c_expr); /* line 1558 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 1559 "../lib/comp/int_act.s7i" */ } else { /* line 1559 "../lib/comp/int_act.s7i" */ rtlRaiseError(fail_value, error_file, error_line); /* line 1559 "../lib/comp/int_act.s7i" */ } /* line 1559 "../lib/comp/int_act.s7i" */ } /* line 1559 "../lib/comp/int_act.s7i" */ } } else /* line 1560 "../lib/comp/int_act.s7i" */ if ((o_8548_divisor) == (-1L)) { /* line 1561 "../lib/comp/int_act.s7i" */ if (o_3462_check_int_division_overflow) { /* line 1562 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 1563 "../lib/comp/int_act.s7i" */ { /* line 1563 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1563 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1563 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1563 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1563 "../lib/comp/int_act.s7i" */ } else { /* line 1563 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1563 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1563 "../lib/comp/int_act.s7i" */ } } { /* line 1564 "../lib/comp/int_act.s7i" */ striType old_stri=o_8551_dividend_name; /* line 1564 "../lib/comp/int_act.s7i" */ o_8551_dividend_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_8547_dividend, o_8549_c_expr); /* line 1564 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 1565 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 1566 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8551_dividend_name); /* line 1567 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1194] /* "==" */); /* line 1568 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); /* line 1569 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 1570 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 1571 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1224] /* ":0)" */); } else { /* line 1573 "../lib/comp/int_act.s7i" */ { /* line 1573 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1573 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1573 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1573 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '0'); /* line 1573 "../lib/comp/int_act.s7i" */ } else { /* line 1573 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '0'; /* line 1573 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1573 "../lib/comp/int_act.s7i" */ } } } } else { /* line 1575 "../lib/comp/int_act.s7i" */ intType tmp_1; /* line 1575 "../lib/comp/int_act.s7i" */ if (((o_8548_divisor) > (0L)) && /* line 1575 "../lib/comp/int_act.s7i" */ (((tmp_1=intLog2(o_8548_divisor),numChk(tmp_1<0)?intRaiseError(NUMERIC_ERROR):ovfChk(tmp_1>62L)?intRaiseError(OVERFLOW_ERROR):1L<stru[5].value.striValue/*->o_4783_expr*/); /* line 1577 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1577 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1577 "../lib/comp/int_act.s7i" */ } else { /* line 1577 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1577 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1577 "../lib/comp/int_act.s7i" */ } } /* line 1578 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8547_dividend, o_8549_c_expr); /* line 1579 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1264] /* ")&" */); /* line 1580 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((o_8548_divisor)-1)); } else /* line 1581 "../lib/comp/int_act.s7i" */ if (((o_8548_divisor) < (0L)) && /* line 1581 "../lib/comp/int_act.s7i" */ ((intBitLength(o_8548_divisor)) == (intLowestSetBit(o_8548_divisor)))) { /* line 1589 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1265] /* "(intType)-(-(uintType)(" */); /* line 1590 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8547_dividend, o_8549_c_expr); /* line 1591 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1264] /* ")&" */); /* line 1592 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(-((o_8548_divisor)+1))); /* line 1593 "../lib/comp/int_act.s7i" */ { /* line 1593 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1593 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1593 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1593 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1593 "../lib/comp/int_act.s7i" */ } else { /* line 1593 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1593 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1593 "../lib/comp/int_act.s7i" */ } } } else { /* line 1595 "../lib/comp/int_act.s7i" */ { /* line 1595 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1595 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1595 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1595 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1595 "../lib/comp/int_act.s7i" */ } else { /* line 1595 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1595 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1595 "../lib/comp/int_act.s7i" */ } } { /* line 1596 "../lib/comp/int_act.s7i" */ striType old_stri=o_8551_dividend_name; /* line 1596 "../lib/comp/int_act.s7i" */ o_8551_dividend_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[655] /* "tmp_a_" */, o_8547_dividend, o_8549_c_expr); /* line 1596 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 1597 "../lib/comp/int_act.s7i" */ ++(((structType)(*o_8549_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 1598 "../lib/comp/int_act.s7i" */ union { /* line 1598 "../lib/comp/int_act.s7i" */ struct striStruct striBuf; /* line 1598 "../lib/comp/int_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1598 "../lib/comp/int_act.s7i" */ } buffer_2; /* line 1598 "../lib/comp/int_act.s7i" */ striType old_stri=o_8552_quotient_name; /* line 1598 "../lib/comp/int_act.s7i" */ o_8552_quotient_name=strConcat(&str[1266] /* "tmp_c_" */, intStrToBuffer(((structType)(*o_8549_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 1598 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 1599 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8549_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[410] /* "intType " */); /* line 1600 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8549_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_8552_quotient_name); /* line 1601 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8549_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 1603 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8552_quotient_name); /* line 1604 "../lib/comp/int_act.s7i" */ { /* line 1604 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1604 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1604 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1604 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 1604 "../lib/comp/int_act.s7i" */ } else { /* line 1604 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 1604 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1604 "../lib/comp/int_act.s7i" */ } } /* line 1605 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8551_dividend_name); /* line 1606 "../lib/comp/int_act.s7i" */ { /* line 1606 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1606 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1606 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1606 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '%'); /* line 1606 "../lib/comp/int_act.s7i" */ } else { /* line 1606 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '%'; /* line 1606 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1606 "../lib/comp/int_act.s7i" */ } } /* line 1607 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8548_divisor)); /* line 1608 "../lib/comp/int_act.s7i" */ { /* line 1608 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1608 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1608 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1608 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 1608 "../lib/comp/int_act.s7i" */ } else { /* line 1608 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 1608 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1608 "../lib/comp/int_act.s7i" */ } } /* line 1609 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8551_dividend_name); /* line 1610 "../lib/comp/int_act.s7i" */ if ((o_8548_divisor) > (0L)) { /* line 1612 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1267] /* "<0" */); } else { /* line 1615 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1268] /* ">0" */); } /* line 1617 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1229] /* "&&" */); /* line 1618 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8552_quotient_name); /* line 1619 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1269] /* "!=0?" */); /* line 1620 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8552_quotient_name); /* line 1621 "../lib/comp/int_act.s7i" */ { /* line 1621 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1621 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1621 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1621 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '+'); /* line 1621 "../lib/comp/int_act.s7i" */ } else { /* line 1621 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '+'; /* line 1621 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1621 "../lib/comp/int_act.s7i" */ } } /* line 1622 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8548_divisor)); /* line 1623 "../lib/comp/int_act.s7i" */ { /* line 1623 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1623 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1623 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1623 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 1623 "../lib/comp/int_act.s7i" */ } else { /* line 1623 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 1623 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1623 "../lib/comp/int_act.s7i" */ } } /* line 1624 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8552_quotient_name); /* line 1625 "../lib/comp/int_act.s7i" */ { /* line 1625 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1625 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8549_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1625 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1625 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1625 "../lib/comp/int_act.s7i" */ } else { /* line 1625 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1625 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1625 "../lib/comp/int_act.s7i" */ } } } } /* line 1538 "../lib/comp/int_act.s7i" */ strDestr(o_8551_dividend_name); /* line 1538 "../lib/comp/int_act.s7i" */ strDestr(o_8552_quotient_name); } /* line 1 "no_file" */ /* 4225 */ /* line 1630 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8553_process_const_int_mod (const intType/*t_14_integer*/ o_8554_dividend, const objRefType/*t_19_reference*/ o_8555_divisor, structType/*t_164_expr_type*/ *const o_8556_c_expr) { /* line 1634 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8557_divisor_name; /* line 1635 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8558_quotient_name; /* line 1634 "../lib/comp/int_act.s7i" */ o_8557_divisor_name=strEmpty(); /* "" */ /* line 1635 "../lib/comp/int_act.s7i" */ o_8558_quotient_name=strEmpty(); /* "" */ /* line 1637 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 1638 "../lib/comp/int_act.s7i" */ if ((o_8554_dividend) == (0L)) { /* line 1639 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1222] /* "(divChk((" */); /* line 1640 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8555_divisor, o_8556_c_expr); /* line 1641 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1223] /* ")==0)?" */); /* line 1642 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 1643 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1224] /* ":0)" */); } else /* line 1644 "../lib/comp/int_act.s7i" */ if ((o_8554_dividend) == (1L)) { /* line 1645 "../lib/comp/int_act.s7i" */ { /* line 1645 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1645 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1645 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1645 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1645 "../lib/comp/int_act.s7i" */ } else { /* line 1645 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1645 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1645 "../lib/comp/int_act.s7i" */ } } { /* line 1646 "../lib/comp/int_act.s7i" */ striType old_stri=o_8557_divisor_name; /* line 1646 "../lib/comp/int_act.s7i" */ o_8557_divisor_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[656] /* "tmp_b_" */, o_8555_divisor, o_8556_c_expr); /* line 1646 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 1647 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8557_divisor_name); /* line 1648 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1270] /* "<=0?(divChk(" */); /* line 1649 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8557_divisor_name); /* line 1650 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1227] /* "==0)?" */); /* line 1651 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 1652 "../lib/comp/int_act.s7i" */ { /* line 1652 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1652 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1652 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1652 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 1652 "../lib/comp/int_act.s7i" */ } else { /* line 1652 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 1652 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1652 "../lib/comp/int_act.s7i" */ } } /* line 1653 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8557_divisor_name); /* line 1654 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1271] /* "+1):(" */); /* line 1655 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8557_divisor_name); /* line 1656 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1272] /* "==1?0:1))" */); } else { /* line 1658 "../lib/comp/int_act.s7i" */ { /* line 1658 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1658 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1658 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1658 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1658 "../lib/comp/int_act.s7i" */ } else { /* line 1658 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1658 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1658 "../lib/comp/int_act.s7i" */ } } { /* line 1659 "../lib/comp/int_act.s7i" */ striType old_stri=o_8557_divisor_name; /* line 1659 "../lib/comp/int_act.s7i" */ o_8557_divisor_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[656] /* "tmp_b_" */, o_8555_divisor, o_8556_c_expr); /* line 1659 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 1660 "../lib/comp/int_act.s7i" */ ++(((structType)(*o_8556_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 1661 "../lib/comp/int_act.s7i" */ union { /* line 1661 "../lib/comp/int_act.s7i" */ struct striStruct striBuf; /* line 1661 "../lib/comp/int_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1661 "../lib/comp/int_act.s7i" */ } buffer_2; /* line 1661 "../lib/comp/int_act.s7i" */ striType old_stri=o_8558_quotient_name; /* line 1661 "../lib/comp/int_act.s7i" */ o_8558_quotient_name=strConcat(&str[1266] /* "tmp_c_" */, intStrToBuffer(((structType)(*o_8556_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 1661 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 1662 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[410] /* "intType " */); /* line 1663 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_8558_quotient_name); /* line 1664 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 1665 "../lib/comp/int_act.s7i" */ if ((o_3462_check_int_division_overflow) && /* line 1666 "../lib/comp/int_act.s7i" */ ((o_8554_dividend) == ((-9223372036854775807L-1L)))) { /* line 1667 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 1668 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 1669 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8557_divisor_name); /* line 1670 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1225] /* "==-1" */); /* line 1671 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 1672 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 1673 "../lib/comp/int_act.s7i" */ { /* line 1673 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1673 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1673 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1673 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 1673 "../lib/comp/int_act.s7i" */ } else { /* line 1673 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 1673 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1673 "../lib/comp/int_act.s7i" */ } } } /* line 1675 "../lib/comp/int_act.s7i" */ if ((((structType)(sct[55]))->stru[12].value.boolValue/*->o_3390_CHECK_INT_DIV_BY_ZERO*/) || /* line 1675 "../lib/comp/int_act.s7i" */ (((structType)(sct[55]))->stru[13].value.boolValue/*->o_3391_CHECK_INT_REM_BY_ZERO*/)) { /* line 1676 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1226] /* "divChk(" */); /* line 1677 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8557_divisor_name); /* line 1678 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1227] /* "==0)?" */); /* line 1679 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 1680 "../lib/comp/int_act.s7i" */ { /* line 1680 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1680 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1680 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1680 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 1680 "../lib/comp/int_act.s7i" */ } else { /* line 1680 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 1680 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1680 "../lib/comp/int_act.s7i" */ } } } /* line 1682 "../lib/comp/int_act.s7i" */ { /* line 1682 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1682 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1682 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1682 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1682 "../lib/comp/int_act.s7i" */ } else { /* line 1682 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1682 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1682 "../lib/comp/int_act.s7i" */ } } /* line 1684 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8558_quotient_name); /* line 1685 "../lib/comp/int_act.s7i" */ { /* line 1685 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1685 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1685 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1685 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 1685 "../lib/comp/int_act.s7i" */ } else { /* line 1685 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 1685 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1685 "../lib/comp/int_act.s7i" */ } } /* line 1686 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8554_dividend)); /* line 1687 "../lib/comp/int_act.s7i" */ { /* line 1687 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1687 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1687 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1687 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '%'); /* line 1687 "../lib/comp/int_act.s7i" */ } else { /* line 1687 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '%'; /* line 1687 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1687 "../lib/comp/int_act.s7i" */ } } /* line 1688 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8557_divisor_name); /* line 1689 "../lib/comp/int_act.s7i" */ { /* line 1689 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1689 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1689 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1689 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 1689 "../lib/comp/int_act.s7i" */ } else { /* line 1689 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 1689 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1689 "../lib/comp/int_act.s7i" */ } } /* line 1690 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8557_divisor_name); /* line 1691 "../lib/comp/int_act.s7i" */ if ((o_8554_dividend) > (0L)) { /* line 1693 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1267] /* "<0" */); } else { /* line 1696 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1268] /* ">0" */); } /* line 1698 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1229] /* "&&" */); /* line 1699 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8558_quotient_name); /* line 1700 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1269] /* "!=0?" */); /* line 1701 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8558_quotient_name); /* line 1702 "../lib/comp/int_act.s7i" */ { /* line 1702 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1702 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1702 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1702 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '+'); /* line 1702 "../lib/comp/int_act.s7i" */ } else { /* line 1702 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '+'; /* line 1702 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1702 "../lib/comp/int_act.s7i" */ } } /* line 1703 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8557_divisor_name); /* line 1704 "../lib/comp/int_act.s7i" */ { /* line 1704 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1704 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1704 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1704 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 1704 "../lib/comp/int_act.s7i" */ } else { /* line 1704 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 1704 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1704 "../lib/comp/int_act.s7i" */ } } /* line 1705 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8558_quotient_name); /* line 1706 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8556_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); } /* line 1630 "../lib/comp/int_act.s7i" */ strDestr(o_8557_divisor_name); /* line 1630 "../lib/comp/int_act.s7i" */ strDestr(o_8558_quotient_name); } /* line 1 "no_file" */ /* 4226 */ /* line 1711 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8559_INT_MOD (const objRefType/*t_19_reference*/ o_8560_function, const listType/*t_20_ref_list*/ *const o_8561_params, structType/*t_164_expr_type*/ *const o_8562_c_expr) { /* line 1715 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8563_evaluatedParam=NULL; /* line 1716 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8564_dividend_name; /* line 1717 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8565_divisor_name; /* line 1718 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8566_quotient_name; /* line 1716 "../lib/comp/int_act.s7i" */ o_8564_dividend_name=strEmpty(); /* "" */ /* line 1717 "../lib/comp/int_act.s7i" */ o_8565_divisor_name=strEmpty(); /* "" */ /* line 1718 "../lib/comp/int_act.s7i" */ o_8566_quotient_name=strEmpty(); /* "" */ /* line 1720 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8561_params, 3L), 9L, &(o_8563_evaluatedParam))) { /* line 1721 "../lib/comp/int_act.s7i" */ o_8546_process_const_int_mod(rflIdx(*o_8561_params, 1L), intValue(o_8563_evaluatedParam), o_8562_c_expr); } else /* line 1722 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8561_params, 1L), 9L, &(o_8563_evaluatedParam))) { /* line 1723 "../lib/comp/int_act.s7i" */ o_8553_process_const_int_mod(intValue(o_8563_evaluatedParam), rflIdx(*o_8561_params, 3L), o_8562_c_expr); } else /* line 1724 "../lib/comp/int_act.s7i" */ if (((o_3457_evaluate_const_expr) == (0L)) && /* line 1724 "../lib/comp/int_act.s7i" */ (((structType)(sct[55]))->stru[14].value.boolValue/*->o_3392_CHECK_INT_REM_ZERO_BY_ZERO*/) && /* line 1725 "../lib/comp/int_act.s7i" */ ((refCategory(rflIdx(*o_8561_params, 1L))) == (9L)) && /* line 1725 "../lib/comp/int_act.s7i" */ (!(refIsVar(rflIdx(*o_8561_params, 1L)))) && /* line 1726 "../lib/comp/int_act.s7i" */ ((intValue(rflIdx(*o_8561_params, 1L))) == (0L))) { /* line 1727 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1222] /* "(divChk((" */); /* line 1728 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8561_params, 3L), o_8562_c_expr); /* line 1729 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1223] /* ")==0)?" */); /* line 1730 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 1731 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1224] /* ":0)" */); } else { /* line 1745 "../lib/comp/int_act.s7i" */ { /* line 1745 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1745 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1745 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1745 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1745 "../lib/comp/int_act.s7i" */ } else { /* line 1745 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1745 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1745 "../lib/comp/int_act.s7i" */ } } { /* line 1746 "../lib/comp/int_act.s7i" */ striType old_stri=o_8564_dividend_name; /* line 1746 "../lib/comp/int_act.s7i" */ o_8564_dividend_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[655] /* "tmp_a_" */, rflIdx(*o_8561_params, 1L), o_8562_c_expr); /* line 1746 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } { /* line 1747 "../lib/comp/int_act.s7i" */ striType old_stri=o_8565_divisor_name; /* line 1747 "../lib/comp/int_act.s7i" */ o_8565_divisor_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[656] /* "tmp_b_" */, rflIdx(*o_8561_params, 3L), o_8562_c_expr); /* line 1747 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 1748 "../lib/comp/int_act.s7i" */ ++(((structType)(*o_8562_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 1749 "../lib/comp/int_act.s7i" */ union { /* line 1749 "../lib/comp/int_act.s7i" */ struct striStruct striBuf; /* line 1749 "../lib/comp/int_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1749 "../lib/comp/int_act.s7i" */ } buffer_2; /* line 1749 "../lib/comp/int_act.s7i" */ striType old_stri=o_8566_quotient_name; /* line 1749 "../lib/comp/int_act.s7i" */ o_8566_quotient_name=strConcat(&str[1266] /* "tmp_c_" */, intStrToBuffer(((structType)(*o_8562_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 1749 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 1750 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[410] /* "intType " */); /* line 1751 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_8566_quotient_name); /* line 1752 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 1753 "../lib/comp/int_act.s7i" */ if (o_3462_check_int_division_overflow) { /* line 1754 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 1755 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 1756 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8564_dividend_name); /* line 1757 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1194] /* "==" */); /* line 1758 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); /* line 1759 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1229] /* "&&" */); /* line 1760 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8565_divisor_name); /* line 1761 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1225] /* "==-1" */); /* line 1762 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 1763 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 1764 "../lib/comp/int_act.s7i" */ { /* line 1764 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1764 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1764 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1764 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 1764 "../lib/comp/int_act.s7i" */ } else { /* line 1764 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 1764 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1764 "../lib/comp/int_act.s7i" */ } } } /* line 1766 "../lib/comp/int_act.s7i" */ if ((((structType)(sct[55]))->stru[12].value.boolValue/*->o_3390_CHECK_INT_DIV_BY_ZERO*/) || /* line 1766 "../lib/comp/int_act.s7i" */ (((structType)(sct[55]))->stru[13].value.boolValue/*->o_3391_CHECK_INT_REM_BY_ZERO*/)) { /* line 1767 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1226] /* "divChk(" */); /* line 1768 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8565_divisor_name); /* line 1769 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1227] /* "==0)?" */); /* line 1770 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 1771 "../lib/comp/int_act.s7i" */ { /* line 1771 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1771 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1771 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1771 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 1771 "../lib/comp/int_act.s7i" */ } else { /* line 1771 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 1771 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1771 "../lib/comp/int_act.s7i" */ } } } /* line 1773 "../lib/comp/int_act.s7i" */ { /* line 1773 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1773 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1773 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1773 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1773 "../lib/comp/int_act.s7i" */ } else { /* line 1773 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1773 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1773 "../lib/comp/int_act.s7i" */ } } /* line 1775 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8566_quotient_name); /* line 1776 "../lib/comp/int_act.s7i" */ { /* line 1776 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1776 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1776 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1776 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 1776 "../lib/comp/int_act.s7i" */ } else { /* line 1776 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 1776 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1776 "../lib/comp/int_act.s7i" */ } } /* line 1777 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8564_dividend_name); /* line 1778 "../lib/comp/int_act.s7i" */ { /* line 1778 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1778 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1778 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1778 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '%'); /* line 1778 "../lib/comp/int_act.s7i" */ } else { /* line 1778 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '%'; /* line 1778 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1778 "../lib/comp/int_act.s7i" */ } } /* line 1779 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8565_divisor_name); /* line 1780 "../lib/comp/int_act.s7i" */ { /* line 1780 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1780 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1780 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1780 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 1780 "../lib/comp/int_act.s7i" */ } else { /* line 1780 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 1780 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1780 "../lib/comp/int_act.s7i" */ } } /* line 1781 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8564_dividend_name); /* line 1782 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1273] /* "<0^" */); /* line 1783 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8565_divisor_name); /* line 1784 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1203] /* "<0&&" */); /* line 1785 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8566_quotient_name); /* line 1786 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1269] /* "!=0?" */); /* line 1787 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8566_quotient_name); /* line 1788 "../lib/comp/int_act.s7i" */ { /* line 1788 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1788 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1788 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1788 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '+'); /* line 1788 "../lib/comp/int_act.s7i" */ } else { /* line 1788 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '+'; /* line 1788 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1788 "../lib/comp/int_act.s7i" */ } } /* line 1789 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8565_divisor_name); /* line 1790 "../lib/comp/int_act.s7i" */ { /* line 1790 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1790 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1790 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1790 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 1790 "../lib/comp/int_act.s7i" */ } else { /* line 1790 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 1790 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1790 "../lib/comp/int_act.s7i" */ } } /* line 1791 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8566_quotient_name); /* line 1792 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8562_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); } /* line 1711 "../lib/comp/int_act.s7i" */ strDestr(o_8564_dividend_name); /* line 1711 "../lib/comp/int_act.s7i" */ strDestr(o_8565_divisor_name); /* line 1711 "../lib/comp/int_act.s7i" */ strDestr(o_8566_quotient_name); } /* line 1 "no_file" */ /* 4227 */ /* line 1797 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8567_process_const_int_mult (const objRefType/*t_19_reference*/ o_8568_factor1, const intType/*t_14_integer*/ o_8569_factor2, structType/*t_164_expr_type*/ *const o_8570_c_expr) { /* line 1801 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8571_evaluatedParam=NULL; /* line 1802 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8572_factor1_name; /* line 1802 "../lib/comp/int_act.s7i" */ o_8572_factor1_name=strEmpty(); /* "" */ /* line 1804 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(o_8568_factor1, 9L, &(o_8571_evaluatedParam))) { /* line 1805 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 1806 "../lib/comp/int_act.s7i" */ { /* line 1806 "../lib/comp/int_act.s7i" */ int fail_value; /* line 1806 "../lib/comp/int_act.s7i" */ catch_stack_pos++; /* line 1806 "../lib/comp/int_act.s7i" */ if (unlikely(catch_stack_pos >= max_catch_stack)) { /* line 1806 "../lib/comp/int_act.s7i" */ resize_catch_stack(); /* line 1806 "../lib/comp/int_act.s7i" */ } /* line 1806 "../lib/comp/int_act.s7i" */ if (likely((fail_value = do_setjmp(catch_stack[catch_stack_pos])) == 0)) { /* line 1807 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8570_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((intValue(o_8571_evaluatedParam)) * (o_8569_factor2))); /* line 1807 "../lib/comp/int_act.s7i" */ catch_stack_pos--; /* line 1809 "../lib/comp/int_act.s7i" */ } else { /* line 1807 "../lib/comp/int_act.s7i" */ catch_stack_pos--; /* line 1809 "../lib/comp/int_act.s7i" */ if (o_17_OVERFLOW_ERROR == fail_value - 1) { /* line 1810 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[1196] /* "OVERFLOW_ERROR" */, *o_8570_c_expr); /* line 1811 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8570_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 1812 "../lib/comp/int_act.s7i" */ } else { /* line 1812 "../lib/comp/int_act.s7i" */ rtlRaiseError(fail_value, error_file, error_line); /* line 1812 "../lib/comp/int_act.s7i" */ } /* line 1812 "../lib/comp/int_act.s7i" */ } /* line 1812 "../lib/comp/int_act.s7i" */ } } else /* line 1813 "../lib/comp/int_act.s7i" */ if ((o_8569_factor2) == (0L)) { /* line 1814 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 1815 "../lib/comp/int_act.s7i" */ { /* line 1815 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1815 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8570_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1815 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1815 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '0'); /* line 1815 "../lib/comp/int_act.s7i" */ } else { /* line 1815 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '0'; /* line 1815 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1815 "../lib/comp/int_act.s7i" */ } } } else /* line 1816 "../lib/comp/int_act.s7i" */ if ((o_8569_factor2) == (1L)) { /* line 1817 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 1818 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8568_factor1, o_8570_c_expr); } else /* line 1819 "../lib/comp/int_act.s7i" */ if ((o_8569_factor2) == (-1L)) { /* line 1820 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 1821 "../lib/comp/int_act.s7i" */ o_8332_negate(o_8568_factor1, o_8570_c_expr); } else /* line 1822 "../lib/comp/int_act.s7i" */ if (o_3461_check_int_arithmetic_overflow) { /* line 1823 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 1824 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 1825 "../lib/comp/int_act.s7i" */ { /* line 1825 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1825 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8570_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1825 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1825 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1825 "../lib/comp/int_act.s7i" */ } else { /* line 1825 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1825 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1825 "../lib/comp/int_act.s7i" */ } } { /* line 1826 "../lib/comp/int_act.s7i" */ striType old_stri=o_8572_factor1_name; /* line 1826 "../lib/comp/int_act.s7i" */ o_8572_factor1_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_8568_factor1, o_8570_c_expr); /* line 1826 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 1827 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8570_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 1828 "../lib/comp/int_act.s7i" */ if ((o_8569_factor2) < (0L)) { { /* line 1829 "../lib/comp/int_act.s7i" */ intType tmp_b_1; /* line 1829 "../lib/comp/int_act.s7i" */ intType tmp_b_2; /* line 1829 "../lib/comp/int_act.s7i" */ o_8327_checkIfOutsideRange(o_8572_factor1_name, (tmp_b_1=9223372036854775807L,ovfChk(tmp_b_1==(-9223372036854775807L-1L)&&(o_8569_factor2)==-1)?intRaiseError(OVERFLOW_ERROR):divChk((o_8569_factor2)==0)?intRaiseError(NUMERIC_ERROR):tmp_b_1 / (o_8569_factor2)), (tmp_b_2=(-9223372036854775807L-1L),ovfChk(tmp_b_2==(-9223372036854775807L-1L)&&(o_8569_factor2)==-1)?intRaiseError(OVERFLOW_ERROR):divChk((o_8569_factor2)==0)?intRaiseError(NUMERIC_ERROR):tmp_b_2 / (o_8569_factor2)), o_8570_c_expr); } } else { { /* line 1832 "../lib/comp/int_act.s7i" */ intType tmp_b_1; /* line 1832 "../lib/comp/int_act.s7i" */ intType tmp_b_2; /* line 1832 "../lib/comp/int_act.s7i" */ o_8327_checkIfOutsideRange(o_8572_factor1_name, (tmp_b_1=(-9223372036854775807L-1L),ovfChk(tmp_b_1==(-9223372036854775807L-1L)&&(o_8569_factor2)==-1)?intRaiseError(OVERFLOW_ERROR):divChk((o_8569_factor2)==0)?intRaiseError(NUMERIC_ERROR):tmp_b_1 / (o_8569_factor2)), (tmp_b_2=9223372036854775807L,ovfChk(tmp_b_2==(-9223372036854775807L-1L)&&(o_8569_factor2)==-1)?intRaiseError(OVERFLOW_ERROR):divChk((o_8569_factor2)==0)?intRaiseError(NUMERIC_ERROR):tmp_b_2 / (o_8569_factor2)), o_8570_c_expr); } } /* line 1835 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8570_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 1836 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8570_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 1837 "../lib/comp/int_act.s7i" */ { /* line 1837 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1837 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8570_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1837 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1837 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 1837 "../lib/comp/int_act.s7i" */ } else { /* line 1837 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 1837 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1837 "../lib/comp/int_act.s7i" */ } } /* line 1838 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8570_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8572_factor1_name); /* line 1839 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8570_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1274] /* " * " */); /* line 1840 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8570_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8569_factor2)); /* line 1841 "../lib/comp/int_act.s7i" */ { /* line 1841 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1841 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8570_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1841 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1841 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1841 "../lib/comp/int_act.s7i" */ } else { /* line 1841 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1841 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1841 "../lib/comp/int_act.s7i" */ } } } else { /* line 1843 "../lib/comp/int_act.s7i" */ { /* line 1843 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1843 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8570_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1843 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1843 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1843 "../lib/comp/int_act.s7i" */ } else { /* line 1843 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1843 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1843 "../lib/comp/int_act.s7i" */ } } /* line 1844 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8568_factor1, o_8570_c_expr); /* line 1845 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8570_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1275] /* ") * " */); /* line 1846 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8570_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8569_factor2)); } /* line 1797 "../lib/comp/int_act.s7i" */ strDestr(o_8572_factor1_name); } /* line 1 "no_file" */ /* 4228 */ /* line 1851 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8573_INT_MULT (const objRefType/*t_19_reference*/ o_8574_function, const listType/*t_20_ref_list*/ *const o_8575_params, structType/*t_164_expr_type*/ *const o_8576_c_expr) { /* line 1855 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8577_evaluatedParam=NULL; /* line 1856 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8578_factor1_name; /* line 1857 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8579_factor2_name; /* line 1858 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8580_product_name; /* line 1856 "../lib/comp/int_act.s7i" */ o_8578_factor1_name=strEmpty(); /* "" */ /* line 1857 "../lib/comp/int_act.s7i" */ o_8579_factor2_name=strEmpty(); /* "" */ /* line 1858 "../lib/comp/int_act.s7i" */ o_8580_product_name=strEmpty(); /* "" */ /* line 1860 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8575_params, 3L), 9L, &(o_8577_evaluatedParam))) { /* line 1861 "../lib/comp/int_act.s7i" */ o_8567_process_const_int_mult(rflIdx(*o_8575_params, 1L), intValue(o_8577_evaluatedParam), o_8576_c_expr); } else /* line 1862 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8575_params, 1L), 9L, &(o_8577_evaluatedParam))) { /* line 1863 "../lib/comp/int_act.s7i" */ o_8567_process_const_int_mult(rflIdx(*o_8575_params, 3L), intValue(o_8577_evaluatedParam), o_8576_c_expr); } else /* line 1864 "../lib/comp/int_act.s7i" */ if (o_3461_check_int_arithmetic_overflow) { /* line 1865 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 1866 "../lib/comp/int_act.s7i" */ { /* line 1866 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1866 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1866 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1866 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1866 "../lib/comp/int_act.s7i" */ } else { /* line 1866 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1866 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1866 "../lib/comp/int_act.s7i" */ } } /* line 1867 "../lib/comp/int_act.s7i" */ if ((((((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/) == (64L)) && /* line 1867 "../lib/comp/int_act.s7i" */ (((((structType)(sct[55]))->stru[30].value.striValue/*->o_3408_INT128TYPE*/)->size!=0 /* "" */))) || /* line 1868 "../lib/comp/int_act.s7i" */ ((((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/) == (32L))) { /* line 1869 "../lib/comp/int_act.s7i" */ ++(((structType)(*o_8576_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 1870 "../lib/comp/int_act.s7i" */ union { /* line 1870 "../lib/comp/int_act.s7i" */ struct striStruct striBuf; /* line 1870 "../lib/comp/int_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1870 "../lib/comp/int_act.s7i" */ } buffer_2; /* line 1870 "../lib/comp/int_act.s7i" */ striType old_stri=o_8580_product_name; /* line 1870 "../lib/comp/int_act.s7i" */ o_8580_product_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_8576_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 1870 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 1871 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[1276] /* "doubleIntType " */); /* line 1872 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_8580_product_name); /* line 1873 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 1874 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8580_product_name); /* line 1875 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1277] /* "=(doubleIntType)(" */); /* line 1876 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8575_params, 1L), o_8576_c_expr); /* line 1877 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1278] /* ") * (doubleIntType)(" */); /* line 1878 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8575_params, 3L), o_8576_c_expr); /* line 1879 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1279] /* "),ovfChk(!inIntTypeRange(" */); /* line 1880 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8580_product_name); /* line 1881 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1280] /* "))?" */); /* line 1882 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 1883 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1281] /* ":(intType)" */); /* line 1884 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8580_product_name); /* line 1885 "../lib/comp/int_act.s7i" */ { /* line 1885 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1885 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1885 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1885 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1885 "../lib/comp/int_act.s7i" */ } else { /* line 1885 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1885 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1885 "../lib/comp/int_act.s7i" */ } } } else { { /* line 1887 "../lib/comp/int_act.s7i" */ striType old_stri=o_8578_factor1_name; /* line 1887 "../lib/comp/int_act.s7i" */ o_8578_factor1_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8575_params, 1L), o_8576_c_expr); /* line 1887 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } { /* line 1888 "../lib/comp/int_act.s7i" */ striType old_stri=o_8579_factor2_name; /* line 1888 "../lib/comp/int_act.s7i" */ o_8579_factor2_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8575_params, 3L), o_8576_c_expr); /* line 1888 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 1940 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8578_factor1_name); /* line 1941 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1282] /* "<0&&(" */); /* line 1942 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8579_factor2_name); /* line 1943 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1203] /* "<0&&" */); /* line 1944 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8578_factor1_name); /* line 1945 "../lib/comp/int_act.s7i" */ { /* line 1945 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1945 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1945 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1945 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '<'); /* line 1945 "../lib/comp/int_act.s7i" */ } else { /* line 1945 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '<'; /* line 1945 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1945 "../lib/comp/int_act.s7i" */ } } /* line 1946 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(9223372036854775807L)); /* line 1947 "../lib/comp/int_act.s7i" */ { /* line 1947 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1947 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1947 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1947 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '/'); /* line 1947 "../lib/comp/int_act.s7i" */ } else { /* line 1947 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '/'; /* line 1947 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1947 "../lib/comp/int_act.s7i" */ } } /* line 1948 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8579_factor2_name); /* line 1949 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1192] /* "||" */); /* line 1950 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8579_factor2_name); /* line 1951 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1236] /* ">0&&" */); /* line 1952 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8578_factor1_name); /* line 1953 "../lib/comp/int_act.s7i" */ { /* line 1953 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1953 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1953 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1953 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '<'); /* line 1953 "../lib/comp/int_act.s7i" */ } else { /* line 1953 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '<'; /* line 1953 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1953 "../lib/comp/int_act.s7i" */ } } /* line 1954 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); /* line 1955 "../lib/comp/int_act.s7i" */ { /* line 1955 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1955 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1955 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1955 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '/'); /* line 1955 "../lib/comp/int_act.s7i" */ } else { /* line 1955 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '/'; /* line 1955 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1955 "../lib/comp/int_act.s7i" */ } } /* line 1956 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8579_factor2_name); /* line 1957 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1283] /* ")||" */); /* line 1958 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8578_factor1_name); /* line 1959 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1284] /* ">0&&(" */); /* line 1960 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8579_factor2_name); /* line 1961 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1203] /* "<0&&" */); /* line 1962 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8579_factor2_name); /* line 1963 "../lib/comp/int_act.s7i" */ { /* line 1963 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1963 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1963 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1963 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '<'); /* line 1963 "../lib/comp/int_act.s7i" */ } else { /* line 1963 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '<'; /* line 1963 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1963 "../lib/comp/int_act.s7i" */ } } /* line 1964 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); /* line 1965 "../lib/comp/int_act.s7i" */ { /* line 1965 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1965 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1965 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1965 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '/'); /* line 1965 "../lib/comp/int_act.s7i" */ } else { /* line 1965 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '/'; /* line 1965 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1965 "../lib/comp/int_act.s7i" */ } } /* line 1966 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8578_factor1_name); /* line 1967 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1192] /* "||" */); /* line 1968 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8579_factor2_name); /* line 1969 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1236] /* ">0&&" */); /* line 1970 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8579_factor2_name); /* line 1971 "../lib/comp/int_act.s7i" */ { /* line 1971 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1971 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1971 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1971 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '>'); /* line 1971 "../lib/comp/int_act.s7i" */ } else { /* line 1971 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '>'; /* line 1971 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1971 "../lib/comp/int_act.s7i" */ } } /* line 1972 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(9223372036854775807L)); /* line 1973 "../lib/comp/int_act.s7i" */ { /* line 1973 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1973 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1973 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1973 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '/'); /* line 1973 "../lib/comp/int_act.s7i" */ } else { /* line 1973 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '/'; /* line 1973 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1973 "../lib/comp/int_act.s7i" */ } } /* line 1974 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8578_factor1_name); /* line 1975 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 1976 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 1977 "../lib/comp/int_act.s7i" */ { /* line 1977 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1977 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1977 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1977 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 1977 "../lib/comp/int_act.s7i" */ } else { /* line 1977 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 1977 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1977 "../lib/comp/int_act.s7i" */ } } /* line 1978 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8578_factor1_name); /* line 1979 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1274] /* " * " */); /* line 1980 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8579_factor2_name); /* line 1981 "../lib/comp/int_act.s7i" */ { /* line 1981 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1981 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1981 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1981 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1981 "../lib/comp/int_act.s7i" */ } else { /* line 1981 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1981 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1981 "../lib/comp/int_act.s7i" */ } } } } else { /* line 1985 "../lib/comp/int_act.s7i" */ { /* line 1985 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1985 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1985 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1985 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1985 "../lib/comp/int_act.s7i" */ } else { /* line 1985 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1985 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1985 "../lib/comp/int_act.s7i" */ } } /* line 1986 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8575_params, 1L), o_8576_c_expr); /* line 1987 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1053] /* ") * (" */); /* line 1988 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8575_params, 3L), o_8576_c_expr); /* line 1989 "../lib/comp/int_act.s7i" */ { /* line 1989 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 1989 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8576_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1989 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1989 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1989 "../lib/comp/int_act.s7i" */ } else { /* line 1989 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1989 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 1989 "../lib/comp/int_act.s7i" */ } } } /* line 1851 "../lib/comp/int_act.s7i" */ strDestr(o_8578_factor1_name); /* line 1851 "../lib/comp/int_act.s7i" */ strDestr(o_8579_factor2_name); /* line 1851 "../lib/comp/int_act.s7i" */ strDestr(o_8580_product_name); } /* line 1 "no_file" */ /* 4229 */ /* line 1994 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8581_process_const_int_mult_assign (const objRefType/*t_19_reference*/ o_8582_variable, const intType/*t_14_integer*/ o_8583_factor, structType/*t_164_expr_type*/ *const o_8584_c_expr) { /* line 1998 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8585_variable_name; /* line 1999 "../lib/comp/int_act.s7i" */ structType/*t_164_expr_type*/ o_8586_statement; /* line 1998 "../lib/comp/int_act.s7i" */ o_8585_variable_name=strEmpty(); /* "" */ /* line 1999 "../lib/comp/int_act.s7i" */ o_8586_statement=create_164(sct[243]); /* line 2001 "../lib/comp/int_act.s7i" */ if ((o_8583_factor) == (0L)) { /* line 2002 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 2003 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8582_variable, &(o_8586_statement)); /* line 2004 "../lib/comp/int_act.s7i" */ { /* line 2004 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2004 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8586_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2004 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2004 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 2004 "../lib/comp/int_act.s7i" */ } else { /* line 2004 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 2004 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2004 "../lib/comp/int_act.s7i" */ } } /* line 2005 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8586_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(0L)); /* line 2006 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8586_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 2007 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8586_statement, o_8584_c_expr); } else /* line 2008 "../lib/comp/int_act.s7i" */ if ((o_8583_factor) == (1L)) { /* line 2009 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 2010 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8584_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1285] /* "/* ignore integer *:= 1; *\/\n" */); } else /* line 2011 "../lib/comp/int_act.s7i" */ if ((o_8583_factor) == (-1L)) { /* line 2012 "../lib/comp/int_act.s7i" */ if ((o_3461_check_int_arithmetic_overflow) && /* line 2012 "../lib/comp/int_act.s7i" */ (((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/)) { /* line 2013 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); { /* line 2014 "../lib/comp/int_act.s7i" */ striType old_stri=o_8585_variable_name; /* line 2014 "../lib/comp/int_act.s7i" */ o_8585_variable_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_8582_variable, &(o_8586_statement)); /* line 2014 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 2015 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8586_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 2016 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8586_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8585_variable_name); /* line 2017 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8586_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1194] /* "==" */); /* line 2018 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8586_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); /* line 2019 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8586_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 2020 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8586_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 2021 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8586_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1157] /* ":(" */); /* line 2022 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8586_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8585_variable_name); /* line 2023 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8586_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1286] /* "*= -1);\n" */); } else { /* line 2025 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8582_variable, &(o_8586_statement)); /* line 2026 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8586_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1287] /* "*= -1;\n" */); } /* line 2028 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8586_statement, o_8584_c_expr); } else /* line 2029 "../lib/comp/int_act.s7i" */ if (o_3461_check_int_arithmetic_overflow) { /* line 2030 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 2031 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); { /* line 2032 "../lib/comp/int_act.s7i" */ striType old_stri=o_8585_variable_name; /* line 2032 "../lib/comp/int_act.s7i" */ o_8585_variable_name=o_5043_getParameterAsReference(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_8582_variable, &(o_8586_statement)); /* line 2032 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 2033 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8586_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 2034 "../lib/comp/int_act.s7i" */ if ((o_8583_factor) < (0L)) { { /* line 2035 "../lib/comp/int_act.s7i" */ intType tmp_b_1; /* line 2035 "../lib/comp/int_act.s7i" */ intType tmp_b_2; /* line 2035 "../lib/comp/int_act.s7i" */ o_8327_checkIfOutsideRange(o_8585_variable_name, (tmp_b_1=9223372036854775807L,ovfChk(tmp_b_1==(-9223372036854775807L-1L)&&(o_8583_factor)==-1)?intRaiseError(OVERFLOW_ERROR):divChk((o_8583_factor)==0)?intRaiseError(NUMERIC_ERROR):tmp_b_1 / (o_8583_factor)), (tmp_b_2=(-9223372036854775807L-1L),ovfChk(tmp_b_2==(-9223372036854775807L-1L)&&(o_8583_factor)==-1)?intRaiseError(OVERFLOW_ERROR):divChk((o_8583_factor)==0)?intRaiseError(NUMERIC_ERROR):tmp_b_2 / (o_8583_factor)), &(o_8586_statement)); } } else { { /* line 2038 "../lib/comp/int_act.s7i" */ intType tmp_b_1; /* line 2038 "../lib/comp/int_act.s7i" */ intType tmp_b_2; /* line 2038 "../lib/comp/int_act.s7i" */ o_8327_checkIfOutsideRange(o_8585_variable_name, (tmp_b_1=(-9223372036854775807L-1L),ovfChk(tmp_b_1==(-9223372036854775807L-1L)&&(o_8583_factor)==-1)?intRaiseError(OVERFLOW_ERROR):divChk((o_8583_factor)==0)?intRaiseError(NUMERIC_ERROR):tmp_b_1 / (o_8583_factor)), (tmp_b_2=9223372036854775807L,ovfChk(tmp_b_2==(-9223372036854775807L-1L)&&(o_8583_factor)==-1)?intRaiseError(OVERFLOW_ERROR):divChk((o_8583_factor)==0)?intRaiseError(NUMERIC_ERROR):tmp_b_2 / (o_8583_factor)), &(o_8586_statement)); } } /* line 2041 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8586_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 2042 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8586_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 2043 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8586_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1157] /* ":(" */); /* line 2044 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8586_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8585_variable_name); /* line 2045 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8586_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1288] /* " *= " */); /* line 2046 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8586_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8583_factor)); /* line 2047 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8586_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 2048 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8586_statement, o_8584_c_expr); } else { /* line 2050 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8582_variable, &(o_8586_statement)); /* line 2051 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8586_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1054] /* "*=" */); /* line 2052 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8586_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8583_factor)); /* line 2053 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8586_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 2054 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8586_statement, o_8584_c_expr); } /* line 1994 "../lib/comp/int_act.s7i" */ strDestr(o_8585_variable_name); /* line 1994 "../lib/comp/int_act.s7i" */ destr_164(o_8586_statement); } /* line 1 "no_file" */ /* 4230 */ /* line 2059 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8587_INT_MULT_ASSIGN (const objRefType/*t_19_reference*/ o_8588_function, const listType/*t_20_ref_list*/ *const o_8589_params, structType/*t_164_expr_type*/ *const o_8590_c_expr) { /* line 2063 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8591_evaluatedParam=NULL; /* line 2064 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8592_variable_name; /* line 2065 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8593_factor_name; /* line 2066 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8594_product_name; /* line 2067 "../lib/comp/int_act.s7i" */ structType/*t_164_expr_type*/ o_8595_statement; /* line 2064 "../lib/comp/int_act.s7i" */ o_8592_variable_name=strEmpty(); /* "" */ /* line 2065 "../lib/comp/int_act.s7i" */ o_8593_factor_name=strEmpty(); /* "" */ /* line 2066 "../lib/comp/int_act.s7i" */ o_8594_product_name=strEmpty(); /* "" */ /* line 2067 "../lib/comp/int_act.s7i" */ o_8595_statement=create_164(sct[244]); /* line 2069 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8589_params, 3L), 9L, &(o_8591_evaluatedParam))) { /* line 2070 "../lib/comp/int_act.s7i" */ o_8581_process_const_int_mult_assign(rflIdx(*o_8589_params, 1L), intValue(o_8591_evaluatedParam), o_8590_c_expr); } else /* line 2071 "../lib/comp/int_act.s7i" */ if (o_3461_check_int_arithmetic_overflow) { /* line 2072 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 2073 "../lib/comp/int_act.s7i" */ if ((((((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/) == (64L)) && /* line 2073 "../lib/comp/int_act.s7i" */ (((((structType)(sct[55]))->stru[30].value.striValue/*->o_3408_INT128TYPE*/)->size!=0 /* "" */))) || /* line 2074 "../lib/comp/int_act.s7i" */ ((((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/) == (32L))) { { /* line 2075 "../lib/comp/int_act.s7i" */ striType old_stri=o_8592_variable_name; /* line 2075 "../lib/comp/int_act.s7i" */ o_8592_variable_name=o_5043_getParameterAsReference(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8589_params, 1L), &(o_8595_statement)); /* line 2075 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 2076 "../lib/comp/int_act.s7i" */ ++(((structType)(o_8595_statement))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 2077 "../lib/comp/int_act.s7i" */ union { /* line 2077 "../lib/comp/int_act.s7i" */ struct striStruct striBuf; /* line 2077 "../lib/comp/int_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2077 "../lib/comp/int_act.s7i" */ } buffer_2; /* line 2077 "../lib/comp/int_act.s7i" */ striType old_stri=o_8594_product_name; /* line 2077 "../lib/comp/int_act.s7i" */ o_8594_product_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(o_8595_statement))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 2077 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 2078 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[1276] /* "doubleIntType " */); /* line 2079 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_8594_product_name); /* line 2080 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 2081 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8594_product_name); /* line 2082 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1277] /* "=(doubleIntType)(" */); /* line 2083 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8592_variable_name); /* line 2084 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1278] /* ") * (doubleIntType)(" */); /* line 2085 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8589_params, 3L), &(o_8595_statement)); /* line 2086 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1279] /* "),ovfChk(!inIntTypeRange(" */); /* line 2087 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8594_product_name); /* line 2088 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1280] /* "))?" */); /* line 2089 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 2090 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1157] /* ":(" */); /* line 2091 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8592_variable_name); /* line 2092 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1289] /* "=(intType)" */); /* line 2093 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8594_product_name); /* line 2094 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } else { { /* line 2096 "../lib/comp/int_act.s7i" */ striType old_stri=o_8592_variable_name; /* line 2096 "../lib/comp/int_act.s7i" */ o_8592_variable_name=o_5043_getParameterAsReference(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8589_params, 1L), &(o_8595_statement)); /* line 2096 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } { /* line 2097 "../lib/comp/int_act.s7i" */ striType old_stri=o_8593_factor_name; /* line 2097 "../lib/comp/int_act.s7i" */ o_8593_factor_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8589_params, 3L), &(o_8595_statement)); /* line 2097 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 2099 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8592_variable_name); /* line 2100 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1282] /* "<0&&(" */); /* line 2101 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8593_factor_name); /* line 2102 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1203] /* "<0&&" */); /* line 2103 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8592_variable_name); /* line 2104 "../lib/comp/int_act.s7i" */ { /* line 2104 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2104 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2104 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2104 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '<'); /* line 2104 "../lib/comp/int_act.s7i" */ } else { /* line 2104 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '<'; /* line 2104 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2104 "../lib/comp/int_act.s7i" */ } } /* line 2105 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(9223372036854775807L)); /* line 2106 "../lib/comp/int_act.s7i" */ { /* line 2106 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2106 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2106 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2106 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '/'); /* line 2106 "../lib/comp/int_act.s7i" */ } else { /* line 2106 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '/'; /* line 2106 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2106 "../lib/comp/int_act.s7i" */ } } /* line 2107 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8593_factor_name); /* line 2108 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1192] /* "||" */); /* line 2109 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8593_factor_name); /* line 2110 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1236] /* ">0&&" */); /* line 2111 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8592_variable_name); /* line 2112 "../lib/comp/int_act.s7i" */ { /* line 2112 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2112 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2112 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2112 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '<'); /* line 2112 "../lib/comp/int_act.s7i" */ } else { /* line 2112 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '<'; /* line 2112 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2112 "../lib/comp/int_act.s7i" */ } } /* line 2113 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); /* line 2114 "../lib/comp/int_act.s7i" */ { /* line 2114 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2114 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2114 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2114 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '/'); /* line 2114 "../lib/comp/int_act.s7i" */ } else { /* line 2114 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '/'; /* line 2114 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2114 "../lib/comp/int_act.s7i" */ } } /* line 2115 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8593_factor_name); /* line 2116 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1283] /* ")||" */); /* line 2117 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8592_variable_name); /* line 2118 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1284] /* ">0&&(" */); /* line 2119 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8593_factor_name); /* line 2120 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1203] /* "<0&&" */); /* line 2121 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8593_factor_name); /* line 2122 "../lib/comp/int_act.s7i" */ { /* line 2122 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2122 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2122 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2122 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '<'); /* line 2122 "../lib/comp/int_act.s7i" */ } else { /* line 2122 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '<'; /* line 2122 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2122 "../lib/comp/int_act.s7i" */ } } /* line 2123 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); /* line 2124 "../lib/comp/int_act.s7i" */ { /* line 2124 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2124 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2124 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2124 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '/'); /* line 2124 "../lib/comp/int_act.s7i" */ } else { /* line 2124 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '/'; /* line 2124 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2124 "../lib/comp/int_act.s7i" */ } } /* line 2125 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8592_variable_name); /* line 2126 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1192] /* "||" */); /* line 2127 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8593_factor_name); /* line 2128 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1236] /* ">0&&" */); /* line 2129 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8593_factor_name); /* line 2130 "../lib/comp/int_act.s7i" */ { /* line 2130 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2130 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2130 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2130 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '>'); /* line 2130 "../lib/comp/int_act.s7i" */ } else { /* line 2130 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '>'; /* line 2130 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2130 "../lib/comp/int_act.s7i" */ } } /* line 2131 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(9223372036854775807L)); /* line 2132 "../lib/comp/int_act.s7i" */ { /* line 2132 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2132 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2132 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2132 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '/'); /* line 2132 "../lib/comp/int_act.s7i" */ } else { /* line 2132 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '/'; /* line 2132 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2132 "../lib/comp/int_act.s7i" */ } } /* line 2133 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8592_variable_name); /* line 2134 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 2135 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 2136 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1157] /* ":(" */); /* line 2137 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8592_variable_name); /* line 2138 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1288] /* " *= " */); /* line 2139 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8593_factor_name); /* line 2140 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 2143 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8595_statement, o_8590_c_expr); } else { /* line 2145 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8589_params, 1L), &(o_8595_statement)); /* line 2146 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1054] /* "*=" */); /* line 2147 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8589_params, 3L), &(o_8595_statement)); /* line 2148 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8595_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 2149 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8595_statement, o_8590_c_expr); } /* line 2059 "../lib/comp/int_act.s7i" */ strDestr(o_8592_variable_name); /* line 2059 "../lib/comp/int_act.s7i" */ strDestr(o_8593_factor_name); /* line 2059 "../lib/comp/int_act.s7i" */ strDestr(o_8594_product_name); /* line 2059 "../lib/comp/int_act.s7i" */ destr_164(o_8595_statement); } /* line 1 "no_file" */ /* 4231 */ /* line 2154 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8596_INT_NE (const objRefType/*t_19_reference*/ o_8597_function, const listType/*t_20_ref_list*/ *const o_8598_params, structType/*t_164_expr_type*/ *const o_8599_c_expr) { /* line 2158 "../lib/comp/int_act.s7i" */ { /* line 2158 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2158 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8599_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2158 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2158 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2158 "../lib/comp/int_act.s7i" */ } else { /* line 2158 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2158 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2158 "../lib/comp/int_act.s7i" */ } } /* line 2159 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8598_params, 1L), o_8599_c_expr); /* line 2160 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8599_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[352] /* ") != (" */); /* line 2161 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8598_params, 3L), o_8599_c_expr); /* line 2162 "../lib/comp/int_act.s7i" */ { /* line 2162 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2162 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8599_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2162 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2162 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2162 "../lib/comp/int_act.s7i" */ } else { /* line 2162 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2162 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2162 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4232 */ /* line 2166 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8600_INT_NEGATE (const objRefType/*t_19_reference*/ o_8601_function, const listType/*t_20_ref_list*/ *const o_8602_params, structType/*t_164_expr_type*/ *const o_8603_c_expr) { /* line 2170 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8604_evaluatedParam=NULL; /* line 2171 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8605_number_name; /* line 2172 "../lib/comp/int_act.s7i" */ intType/*t_14_integer*/ o_8606_number=0; /* line 2171 "../lib/comp/int_act.s7i" */ o_8605_number_name=strEmpty(); /* "" */ /* line 2174 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8602_params, 2L), 9L, &(o_8604_evaluatedParam))) { /* line 2175 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 2176 "../lib/comp/int_act.s7i" */ o_8606_number=intValue(o_8604_evaluatedParam); /* line 2177 "../lib/comp/int_act.s7i" */ if (((o_8606_number) == ((-9223372036854775807L-1L))) && /* line 2177 "../lib/comp/int_act.s7i" */ (((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/)) { /* line 2178 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[1196] /* "OVERFLOW_ERROR" */, *o_8603_c_expr); /* line 2179 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8603_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); } else { /* line 2181 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8603_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(-(o_8606_number))); } } else { /* line 2184 "../lib/comp/int_act.s7i" */ o_8332_negate(rflIdx(*o_8602_params, 2L), o_8603_c_expr); } /* line 2166 "../lib/comp/int_act.s7i" */ strDestr(o_8605_number_name); } /* line 1 "no_file" */ /* 4233 */ /* line 2189 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8607_INT_ODD (const objRefType/*t_19_reference*/ o_8608_function, const listType/*t_20_ref_list*/ *const o_8609_params, structType/*t_164_expr_type*/ *const o_8610_c_expr) { /* line 2193 "../lib/comp/int_act.s7i" */ { /* line 2193 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2193 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8610_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2193 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2193 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2193 "../lib/comp/int_act.s7i" */ } else { /* line 2193 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2193 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2193 "../lib/comp/int_act.s7i" */ } } /* line 2194 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8609_params, 1L), o_8610_c_expr); /* line 2195 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8610_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1290] /* ")&1" */); } /* line 1 "no_file" */ /* 4234 */ /* line 2199 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8611_INT_OR (const objRefType/*t_19_reference*/ o_8612_function, const listType/*t_20_ref_list*/ *const o_8613_params, structType/*t_164_expr_type*/ *const o_8614_c_expr) { /* line 2203 "../lib/comp/int_act.s7i" */ { /* line 2203 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2203 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8614_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2203 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2203 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2203 "../lib/comp/int_act.s7i" */ } else { /* line 2203 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2203 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2203 "../lib/comp/int_act.s7i" */ } } /* line 2204 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8613_params, 1L), o_8614_c_expr); /* line 2205 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8614_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1291] /* ") | (" */); /* line 2206 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8613_params, 3L), o_8614_c_expr); /* line 2207 "../lib/comp/int_act.s7i" */ { /* line 2207 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2207 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8614_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2207 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2207 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2207 "../lib/comp/int_act.s7i" */ } else { /* line 2207 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2207 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2207 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4235 */ /* line 2211 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8615_INT_ORD (const objRefType/*t_19_reference*/ o_8616_function, const listType/*t_20_ref_list*/ *const o_8617_params, structType/*t_164_expr_type*/ *const o_8618_c_expr) { /* line 2215 "../lib/comp/int_act.s7i" */ { /* line 2215 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2215 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8618_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2215 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2215 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2215 "../lib/comp/int_act.s7i" */ } else { /* line 2215 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2215 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2215 "../lib/comp/int_act.s7i" */ } } /* line 2216 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8617_params, 1L), o_8618_c_expr); /* line 2217 "../lib/comp/int_act.s7i" */ { /* line 2217 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2217 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8618_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2217 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2217 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2217 "../lib/comp/int_act.s7i" */ } else { /* line 2217 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2217 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2217 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4236 */ /* line 2221 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8619_INT_OR_ASSIGN (const objRefType/*t_19_reference*/ o_8620_function, const listType/*t_20_ref_list*/ *const o_8621_params, structType/*t_164_expr_type*/ *const o_8622_c_expr) { /* line 2225 "../lib/comp/int_act.s7i" */ structType/*t_164_expr_type*/ o_8623_statement; /* line 2225 "../lib/comp/int_act.s7i" */ o_8623_statement=create_164(sct[245]); /* line 2227 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8621_params, 1L), &(o_8623_statement)); /* line 2228 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8623_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1292] /* "|=" */); /* line 2229 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8621_params, 3L), &(o_8623_statement)); /* line 2230 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8623_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 2231 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8623_statement, o_8622_c_expr); /* line 2221 "../lib/comp/int_act.s7i" */ destr_164(o_8623_statement); } /* line 1 "no_file" */ /* 4237 */ /* line 2235 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8624_INT_PARSE (const objRefType/*t_19_reference*/ o_8625_function, const listType/*t_20_ref_list*/ *const o_8626_params, structType/*t_164_expr_type*/ *const o_8627_c_expr) { /* line 2239 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8627_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1293] /* "intParse(" */); /* line 2240 "../lib/comp/int_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_8626_params, 3L), o_8627_c_expr); /* line 2241 "../lib/comp/int_act.s7i" */ { /* line 2241 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2241 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8627_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2241 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2241 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2241 "../lib/comp/int_act.s7i" */ } else { /* line 2241 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2241 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2241 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4238 */ /* line 2245 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8628_INT_PLUS (const objRefType/*t_19_reference*/ o_8629_function, const listType/*t_20_ref_list*/ *const o_8630_params, structType/*t_164_expr_type*/ *const o_8631_c_expr) { /* line 2249 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8630_params, 2L), o_8631_c_expr); } /* line 1 "no_file" */ /* 4239 */ /* line 2253 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8632_process_const_int_pow (const objRefType/*t_19_reference*/ o_8633_base, const intType/*t_14_integer*/ o_8634_exponent, structType/*t_164_expr_type*/ *const o_8635_c_expr) { /* line 2268 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8636_evaluatedBase=NULL; /* line 2269 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8637_powerTemplate; /* line 2270 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8638_baseName; /* line 2271 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8639_variableName; /* line 2272 "../lib/comp/int_act.s7i" */ charType/*t_18_char*/ o_8640_ch=(charType) ' '; /* line 2273 "../lib/comp/int_act.s7i" */ intType/*t_14_integer*/ o_8641_minBase=0; /* line 2274 "../lib/comp/int_act.s7i" */ intType/*t_14_integer*/ o_8642_maxBase=0; /* line 2269 "../lib/comp/int_act.s7i" */ o_8637_powerTemplate=strEmpty(); /* "" */ /* line 2270 "../lib/comp/int_act.s7i" */ o_8638_baseName=strEmpty(); /* "" */ /* line 2271 "../lib/comp/int_act.s7i" */ o_8639_variableName=strEmpty(); /* "" */ /* line 2276 "../lib/comp/int_act.s7i" */ if ((o_8634_exponent) < (0L)) { /* line 2277 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 2278 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[553] /* "NUMERIC_ERROR" */, *o_8635_c_expr); /* line 2279 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8635_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); } else /* line 2280 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(o_8633_base, 9L, &(o_8636_evaluatedBase))) { /* line 2281 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 2282 "../lib/comp/int_act.s7i" */ { /* line 2282 "../lib/comp/int_act.s7i" */ int fail_value; /* line 2282 "../lib/comp/int_act.s7i" */ catch_stack_pos++; /* line 2282 "../lib/comp/int_act.s7i" */ if (unlikely(catch_stack_pos >= max_catch_stack)) { /* line 2282 "../lib/comp/int_act.s7i" */ resize_catch_stack(); /* line 2282 "../lib/comp/int_act.s7i" */ } /* line 2282 "../lib/comp/int_act.s7i" */ if (likely((fail_value = do_setjmp(catch_stack[catch_stack_pos])) == 0)) { /* line 2283 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8635_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(intPowOvfChk(intValue(o_8636_evaluatedBase), o_8634_exponent))); /* line 2283 "../lib/comp/int_act.s7i" */ catch_stack_pos--; /* line 2285 "../lib/comp/int_act.s7i" */ } else { /* line 2283 "../lib/comp/int_act.s7i" */ catch_stack_pos--; /* line 2285 "../lib/comp/int_act.s7i" */ if (o_17_OVERFLOW_ERROR == fail_value - 1) { /* line 2286 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[1196] /* "OVERFLOW_ERROR" */, *o_8635_c_expr); /* line 2287 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8635_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 2288 "../lib/comp/int_act.s7i" */ } else { /* line 2288 "../lib/comp/int_act.s7i" */ rtlRaiseError(fail_value, error_file, error_line); /* line 2288 "../lib/comp/int_act.s7i" */ } /* line 2288 "../lib/comp/int_act.s7i" */ } /* line 2288 "../lib/comp/int_act.s7i" */ } } else /* line 2289 "../lib/comp/int_act.s7i" */ if ((o_8634_exponent) == (0L)) { /* line 2290 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 2291 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8635_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(1L)); } else /* line 2292 "../lib/comp/int_act.s7i" */ if ((o_8634_exponent) == (1L)) { /* line 2293 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 2294 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8633_base, o_8635_c_expr); } else { /* line 2295 "../lib/comp/int_act.s7i" */ const_setType tmp_1; /* line 2295 "../lib/comp/int_act.s7i" */ setType/*t_30_bitset*/ tmp_2 = (setType/*t_30_bitset*/)(NULL); /* line 2295 "../lib/comp/int_act.s7i" */ intType tmp_3; /* line 2295 "../lib/comp/int_act.s7i" */ if ((tmp_1=(tmp_2=(setType/*t_30_bitset*/)(setRangelit(2L, 22 /* maxIdx(array) */))),tmp_3=bitset_pos((o_8634_exponent)),tmp_3>=tmp_1->min_position&&tmp_3<=tmp_1->max_position&&tmp_1->bitset[(uintType)(tmp_3-tmp_1->min_position)] >> ((o_8634_exponent) & bitset_mask)&1)) { /* line 2296 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); { /* line 2297 "../lib/comp/int_act.s7i" */ uintType idx_1; /* line 2297 "../lib/comp/int_act.s7i" */ strCopy(&(o_8637_powerTemplate), arr[246]->arr[(idx_1=(o_8634_exponent)- 2, idxChk(idx_1>=21) ? intRaiseError(RANGE_ERROR) : 0, idx_1)].value.striValue); } /* line 2298 "../lib/comp/int_act.s7i" */ { /* line 2298 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2298 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8635_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2298 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2298 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2298 "../lib/comp/int_act.s7i" */ } else { /* line 2298 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2298 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2298 "../lib/comp/int_act.s7i" */ } } { /* line 2299 "../lib/comp/int_act.s7i" */ striType old_stri=o_8638_baseName; /* line 2299 "../lib/comp/int_act.s7i" */ o_8638_baseName=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_8633_base, o_8635_c_expr); /* line 2299 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 2300 "../lib/comp/int_act.s7i" */ if (o_3461_check_int_arithmetic_overflow) { /* line 2301 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 2302 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8635_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); { /* line 2303 "../lib/comp/int_act.s7i" */ uintType idx_1; /* line 2303 "../lib/comp/int_act.s7i" */ uintType idx_2; /* line 2303 "../lib/comp/int_act.s7i" */ o_8327_checkIfOutsideRange(o_8638_baseName, arr[247]->arr[(idx_1=(o_8634_exponent)- 2, idxChk(idx_1>=21) ? intRaiseError(RANGE_ERROR) : 0, idx_1)].value.intValue, arr[248]->arr[(idx_2=(o_8634_exponent)- 2, idxChk(idx_2>=21) ? intRaiseError(RANGE_ERROR) : 0, idx_2)].value.intValue, o_8635_c_expr); } /* line 2305 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8635_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 2306 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8635_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 2307 "../lib/comp/int_act.s7i" */ { /* line 2307 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2307 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8635_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2307 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2307 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 2307 "../lib/comp/int_act.s7i" */ } else { /* line 2307 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 2307 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2307 "../lib/comp/int_act.s7i" */ } } } /* inline proc o_165_for */ { /* inline params */ /* line 2309 "../lib/comp/int_act.s7i" */ charType/*t_18_char*/ *const o_373_variable=&(o_8640_ch); /* line 2309 "../lib/comp/int_act.s7i" */ const const_striType/*t_15_string*/ o_374_stri=&str[1294] /* "abc" */; /* line 2309 "../lib/comp/int_act.s7i" */ /* push proc param o_375_statements */ /* line 2309 "../lib/comp/int_act.s7i" */ /* inline local_vars */ /* line 2309 "../lib/comp/int_act.s7i" */ /* line 214 "../lib/forloop.s7i" */ /* line 2309 "../lib/comp/int_act.s7i" */ intType/*t_14_integer*/ o_376_number=0; /* inline body */ { /* line 216 "../lib/forloop.s7i" */ intType tmp_e_1=(intType)((o_374_stri)->size); /* line 216 "../lib/forloop.s7i" */ for (o_376_number=1L; o_376_number<=tmp_e_1; (o_376_number)++) { { /* line 217 "../lib/forloop.s7i" */ uintType idx_1; /* line 217 "../lib/forloop.s7i" */ *o_373_variable=(o_374_stri)->mem[(idx_1=(uintType)((o_376_number)-1), idxChk(idx_1>=(o_374_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]; } /* closure o_375_statements*/ { /* line 2310 "../lib/comp/int_act.s7i" */ if ((strChPos(o_8637_powerTemplate, o_8640_ch)) != (0L)) { /* line 2311 "../lib/comp/int_act.s7i" */ ++(((structType)(*o_8635_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 2312 "../lib/comp/int_act.s7i" */ const_striType tmp_2[3]; /* line 2312 "../lib/comp/int_act.s7i" */ struct striStruct stri_3; /* line 2312 "../lib/comp/int_act.s7i" */ union { /* line 2312 "../lib/comp/int_act.s7i" */ struct striStruct striBuf; /* line 2312 "../lib/comp/int_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2312 "../lib/comp/int_act.s7i" */ } buffer_4; /* line 2312 "../lib/comp/int_act.s7i" */ striType old_stri=o_8639_variableName; /* line 2312 "../lib/comp/int_act.s7i" */ o_8639_variableName=(tmp_2[0] = chrStrMacro(o_8640_ch,stri_3), tmp_2[1] = &str[97] /* "_" */, tmp_2[2] = intStrToBuffer(((structType)(*o_8635_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_4.striBuf), strConcatN(tmp_2, 3)); /* line 2312 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 2313 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8635_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[410] /* "intType " */); /* line 2314 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8635_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_8639_variableName); /* line 2315 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8635_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); { /* line 2316 "../lib/comp/int_act.s7i" */ struct striStruct stri_2; /* line 2316 "../lib/comp/int_act.s7i" */ striType old_stri=o_8637_powerTemplate; /* line 2316 "../lib/comp/int_act.s7i" */ o_8637_powerTemplate=strRepl(o_8637_powerTemplate, chrStrMacro(o_8640_ch,stri_2), o_8639_variableName); /* line 2316 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } } } /* closure o_375_statements*/ } } /* pop proc param o_375_statements */ } /* inline proc o_165_for */ /* line 2319 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8635_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), strRepl(o_8637_powerTemplate, &str[1295] /* "x" */, o_8638_baseName)); /* line 2320 "../lib/comp/int_act.s7i" */ { /* line 2320 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2320 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8635_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2320 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2320 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2320 "../lib/comp/int_act.s7i" */ } else { /* line 2320 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2320 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2320 "../lib/comp/int_act.s7i" */ } } } else /* line 2321 "../lib/comp/int_act.s7i" */ if (o_3452_integer_overflow_check) { /* line 2322 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 2323 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 2324 "../lib/comp/int_act.s7i" */ o_8641_minBase=-8 /* minIdx(array) */; { /* line 2325 "../lib/comp/int_act.s7i" */ uintType idx_1; /* line 2325 "../lib/comp/int_act.s7i" */ while ((o_8634_exponent) > (arr[249]->arr[(idx_1=(o_8641_minBase)- -8, idxChk(idx_1>=17) ? intRaiseError(RANGE_ERROR) : 0, idx_1)].value.intValue)) { /* line 2326 "../lib/comp/int_act.s7i" */ ++(o_8641_minBase); } } /* line 2328 "../lib/comp/int_act.s7i" */ o_8642_maxBase=8 /* maxIdx(arr[249]) */; { /* line 2329 "../lib/comp/int_act.s7i" */ uintType idx_1; /* line 2329 "../lib/comp/int_act.s7i" */ while ((o_8634_exponent) > (arr[249]->arr[(idx_1=(o_8642_maxBase)- -8, idxChk(idx_1>=17) ? intRaiseError(RANGE_ERROR) : 0, idx_1)].value.intValue)) { /* line 2330 "../lib/comp/int_act.s7i" */ --(o_8642_maxBase); } } /* line 2332 "../lib/comp/int_act.s7i" */ { /* line 2332 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2332 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8635_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2332 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2332 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2332 "../lib/comp/int_act.s7i" */ } else { /* line 2332 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2332 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2332 "../lib/comp/int_act.s7i" */ } } { /* line 2333 "../lib/comp/int_act.s7i" */ striType old_stri=o_8638_baseName; /* line 2333 "../lib/comp/int_act.s7i" */ o_8638_baseName=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_8633_base, o_8635_c_expr); /* line 2333 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 2334 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8635_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 2335 "../lib/comp/int_act.s7i" */ o_8327_checkIfOutsideRange(o_8638_baseName, o_8641_minBase, o_8642_maxBase, o_8635_c_expr); /* line 2336 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8635_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 2337 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8635_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 2338 "../lib/comp/int_act.s7i" */ { /* line 2338 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2338 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8635_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2338 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2338 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 2338 "../lib/comp/int_act.s7i" */ } else { /* line 2338 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 2338 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2338 "../lib/comp/int_act.s7i" */ } } /* line 2339 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8635_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1296] /* "intPow(" */); /* line 2340 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8635_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8638_baseName); /* line 2341 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8635_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 2342 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8635_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8634_exponent)); /* line 2343 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8635_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); } else { /* line 2345 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8635_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1296] /* "intPow(" */); /* line 2346 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8633_base, o_8635_c_expr); /* line 2347 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8635_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 2348 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8635_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8634_exponent)); /* line 2349 "../lib/comp/int_act.s7i" */ { /* line 2349 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2349 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8635_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2349 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2349 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2349 "../lib/comp/int_act.s7i" */ } else { /* line 2349 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2349 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2349 "../lib/comp/int_act.s7i" */ } } } /* line 2295 "../lib/comp/int_act.s7i" */ setDestr(tmp_2); } /* line 2253 "../lib/comp/int_act.s7i" */ strDestr(o_8637_powerTemplate); /* line 2253 "../lib/comp/int_act.s7i" */ strDestr(o_8638_baseName); /* line 2253 "../lib/comp/int_act.s7i" */ strDestr(o_8639_variableName); } /* line 1 "no_file" */ /* 4240 */ /* line 2354 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8643_process_const_int_pow (const intType/*t_14_integer*/ o_8644_base, const objRefType/*t_19_reference*/ o_8645_exponent, structType/*t_164_expr_type*/ *const o_8646_c_expr) { /* line 2358 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8647_exponent_name; /* line 2359 "../lib/comp/int_act.s7i" */ intType/*t_14_integer*/ o_8648_log2_of_negated_base=0; /* line 2360 "../lib/comp/int_act.s7i" */ intType/*t_14_integer*/ o_8649_max_exponent=0; /* line 2358 "../lib/comp/int_act.s7i" */ o_8647_exponent_name=strEmpty(); /* "" */ /* line 2362 "../lib/comp/int_act.s7i" */ if ((o_8644_base) == (-1L)) { /* line 2363 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 2364 "../lib/comp/int_act.s7i" */ { /* line 2364 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2364 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2364 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2364 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2364 "../lib/comp/int_act.s7i" */ } else { /* line 2364 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2364 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2364 "../lib/comp/int_act.s7i" */ } } { /* line 2365 "../lib/comp/int_act.s7i" */ striType old_stri=o_8647_exponent_name; /* line 2365 "../lib/comp/int_act.s7i" */ o_8647_exponent_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_8645_exponent, o_8646_c_expr); /* line 2365 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 2366 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[571] /* "numChk(" */); /* line 2367 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8647_exponent_name); /* line 2368 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[572] /* "<0)?" */); /* line 2369 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 2370 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1297] /* ":1-((" */); /* line 2371 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8647_exponent_name); /* line 2372 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1298] /* "&1)<<1))" */); } else /* line 2373 "../lib/comp/int_act.s7i" */ if ((o_8644_base) == (0L)) { /* line 2374 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 2375 "../lib/comp/int_act.s7i" */ { /* line 2375 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2375 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2375 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2375 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2375 "../lib/comp/int_act.s7i" */ } else { /* line 2375 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2375 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2375 "../lib/comp/int_act.s7i" */ } } { /* line 2376 "../lib/comp/int_act.s7i" */ striType old_stri=o_8647_exponent_name; /* line 2376 "../lib/comp/int_act.s7i" */ o_8647_exponent_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_8645_exponent, o_8646_c_expr); /* line 2376 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 2377 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[571] /* "numChk(" */); /* line 2378 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8647_exponent_name); /* line 2379 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[572] /* "<0)?" */); /* line 2380 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 2381 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1157] /* ":(" */); /* line 2382 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8647_exponent_name); /* line 2383 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[574] /* "==0?" */); /* line 2384 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(1L)); /* line 2385 "../lib/comp/int_act.s7i" */ { /* line 2385 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2385 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2385 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2385 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 2385 "../lib/comp/int_act.s7i" */ } else { /* line 2385 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 2385 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2385 "../lib/comp/int_act.s7i" */ } } /* line 2386 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(0L)); /* line 2387 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); } else /* line 2388 "../lib/comp/int_act.s7i" */ if ((o_8644_base) == (1L)) { /* line 2389 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 2390 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[575] /* "(numChk((" */); /* line 2391 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8645_exponent, o_8646_c_expr); /* line 2392 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[576] /* ")<0)?" */); /* line 2393 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 2394 "../lib/comp/int_act.s7i" */ { /* line 2394 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2394 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2394 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2394 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 2394 "../lib/comp/int_act.s7i" */ } else { /* line 2394 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 2394 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2394 "../lib/comp/int_act.s7i" */ } } /* line 2395 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(1L)); /* line 2396 "../lib/comp/int_act.s7i" */ { /* line 2396 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2396 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2396 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2396 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2396 "../lib/comp/int_act.s7i" */ } else { /* line 2396 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2396 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2396 "../lib/comp/int_act.s7i" */ } } } else { /* line 2397 "../lib/comp/int_act.s7i" */ intType tmp_1; /* line 2397 "../lib/comp/int_act.s7i" */ if (((o_8644_base) > (0L)) && /* line 2397 "../lib/comp/int_act.s7i" */ (((tmp_1=intLog2(o_8644_base),numChk(tmp_1<0)?intRaiseError(NUMERIC_ERROR):ovfChk(tmp_1>62L)?intRaiseError(OVERFLOW_ERROR):1L<stru[5].value.striValue/*->o_4783_expr*/); /* line 2400 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2400 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2400 "../lib/comp/int_act.s7i" */ } else { /* line 2400 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2400 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2400 "../lib/comp/int_act.s7i" */ } } { /* line 2401 "../lib/comp/int_act.s7i" */ striType old_stri=o_8647_exponent_name; /* line 2401 "../lib/comp/int_act.s7i" */ o_8647_exponent_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_8645_exponent, o_8646_c_expr); /* line 2401 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 2402 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[571] /* "numChk(" */); /* line 2403 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8647_exponent_name); /* line 2404 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[572] /* "<0)?" */); /* line 2405 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 2406 "../lib/comp/int_act.s7i" */ { /* line 2406 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2406 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2406 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2406 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 2406 "../lib/comp/int_act.s7i" */ } else { /* line 2406 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 2406 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2406 "../lib/comp/int_act.s7i" */ } } /* line 2407 "../lib/comp/int_act.s7i" */ if (o_3452_integer_overflow_check) { /* line 2408 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 2409 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 2410 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8647_exponent_name); /* line 2411 "../lib/comp/int_act.s7i" */ { /* line 2411 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2411 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2411 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2411 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '>'); /* line 2411 "../lib/comp/int_act.s7i" */ } else { /* line 2411 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '>'; /* line 2411 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2411 "../lib/comp/int_act.s7i" */ } } { /* line 2412 "../lib/comp/int_act.s7i" */ intType tmp_b_2; /* line 2412 "../lib/comp/int_act.s7i" */ intType tmp_b_3; /* line 2412 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((tmp_b_2=intLog2(9223372036854775807L),tmp_b_3=intLog2(o_8644_base),ovfChk(tmp_b_2==(-9223372036854775807L-1L)&&tmp_b_3==-1)?intRaiseError(OVERFLOW_ERROR):divChk(tmp_b_3==0)?intRaiseError(NUMERIC_ERROR):tmp_b_2 / tmp_b_3))); } /* line 2413 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 2414 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 2415 "../lib/comp/int_act.s7i" */ { /* line 2415 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2415 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2415 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2415 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 2415 "../lib/comp/int_act.s7i" */ } else { /* line 2415 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 2415 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2415 "../lib/comp/int_act.s7i" */ } } } /* line 2417 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(1L)); /* line 2418 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1299] /* "<<" */); /* line 2419 "../lib/comp/int_act.s7i" */ if ((o_8644_base) != (2L)) { /* line 2420 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(intLog2(o_8644_base))); /* line 2421 "../lib/comp/int_act.s7i" */ { /* line 2421 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2421 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2421 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2421 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '*'); /* line 2421 "../lib/comp/int_act.s7i" */ } else { /* line 2421 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '*'; /* line 2421 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2421 "../lib/comp/int_act.s7i" */ } } } /* line 2423 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8647_exponent_name); /* line 2424 "../lib/comp/int_act.s7i" */ { /* line 2424 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2424 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2424 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2424 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2424 "../lib/comp/int_act.s7i" */ } else { /* line 2424 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2424 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2424 "../lib/comp/int_act.s7i" */ } } } else /* line 2425 "../lib/comp/int_act.s7i" */ if (((o_8644_base) < (0L)) && /* line 2425 "../lib/comp/int_act.s7i" */ ((intBitLength(o_8644_base)) == (intLowestSetBit(o_8644_base)))) { /* line 2431 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); { /* line 2434 "../lib/comp/int_act.s7i" */ bigIntType tmp_2 = NULL; /* line 2434 "../lib/comp/int_act.s7i" */ bigIntType tmp_1 = NULL; /* line 2434 "../lib/comp/int_act.s7i" */ o_8648_log2_of_negated_base=bigOrd((tmp_1=bigLog2((tmp_2=bigNegateTemp(bigIConv(o_8644_base)))))); /* line 2434 "../lib/comp/int_act.s7i" */ bigDestr(tmp_2); /* line 2434 "../lib/comp/int_act.s7i" */ bigDestr(tmp_1); } /* line 2435 "../lib/comp/int_act.s7i" */ { /* line 2435 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2435 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2435 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2435 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2435 "../lib/comp/int_act.s7i" */ } else { /* line 2435 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2435 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2435 "../lib/comp/int_act.s7i" */ } } { /* line 2436 "../lib/comp/int_act.s7i" */ striType old_stri=o_8647_exponent_name; /* line 2436 "../lib/comp/int_act.s7i" */ o_8647_exponent_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_8645_exponent, o_8646_c_expr); /* line 2436 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 2437 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[571] /* "numChk(" */); /* line 2438 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8647_exponent_name); /* line 2439 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[572] /* "<0)?" */); /* line 2440 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 2441 "../lib/comp/int_act.s7i" */ { /* line 2441 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2441 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2441 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2441 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 2441 "../lib/comp/int_act.s7i" */ } else { /* line 2441 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 2441 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2441 "../lib/comp/int_act.s7i" */ } } /* line 2442 "../lib/comp/int_act.s7i" */ if (o_3452_integer_overflow_check) { /* line 2443 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 2444 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 2445 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8647_exponent_name); /* line 2446 "../lib/comp/int_act.s7i" */ { /* line 2446 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2446 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2446 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2446 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '>'); /* line 2446 "../lib/comp/int_act.s7i" */ } else { /* line 2446 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '>'; /* line 2446 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2446 "../lib/comp/int_act.s7i" */ } } { /* line 2447 "../lib/comp/int_act.s7i" */ intType tmp_b_1; /* line 2447 "../lib/comp/int_act.s7i" */ bigIntType tmp_3 = NULL; /* line 2447 "../lib/comp/int_act.s7i" */ bigIntType tmp_2 = NULL; /* line 2447 "../lib/comp/int_act.s7i" */ o_8649_max_exponent=(tmp_b_1=bigOrd((tmp_2=bigLog2((tmp_3=bigNegateTemp(bigIConv((-9223372036854775807L-1L))))))),ovfChk(tmp_b_1==(-9223372036854775807L-1L)&&(o_8648_log2_of_negated_base)==-1)?intRaiseError(OVERFLOW_ERROR):divChk((o_8648_log2_of_negated_base)==0)?intRaiseError(NUMERIC_ERROR):tmp_b_1 / (o_8648_log2_of_negated_base)); /* line 2447 "../lib/comp/int_act.s7i" */ bigDestr(tmp_3); /* line 2447 "../lib/comp/int_act.s7i" */ bigDestr(tmp_2); } /* line 2448 "../lib/comp/int_act.s7i" */ if (!((o_8649_max_exponent)&1)) { { /* line 2449 "../lib/comp/int_act.s7i" */ intType tmp_b_1; /* line 2449 "../lib/comp/int_act.s7i" */ o_8649_max_exponent=(tmp_b_1=intLog2(9223372036854775807L),ovfChk(tmp_b_1==(-9223372036854775807L-1L)&&(o_8648_log2_of_negated_base)==-1)?intRaiseError(OVERFLOW_ERROR):divChk((o_8648_log2_of_negated_base)==0)?intRaiseError(NUMERIC_ERROR):tmp_b_1 / (o_8648_log2_of_negated_base)); } } /* line 2451 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8649_max_exponent)); /* line 2452 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 2453 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 2454 "../lib/comp/int_act.s7i" */ { /* line 2454 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2454 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2454 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2454 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 2454 "../lib/comp/int_act.s7i" */ } else { /* line 2454 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 2454 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2454 "../lib/comp/int_act.s7i" */ } } } /* line 2456 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8647_exponent_name); /* line 2457 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[573] /* "&1?" */); /* line 2458 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(-1L)); /* line 2459 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1299] /* "<<" */); /* line 2460 "../lib/comp/int_act.s7i" */ if ((o_8644_base) != (-2L)) { /* line 2461 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8648_log2_of_negated_base)); /* line 2462 "../lib/comp/int_act.s7i" */ { /* line 2462 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2462 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2462 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2462 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '*'); /* line 2462 "../lib/comp/int_act.s7i" */ } else { /* line 2462 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '*'; /* line 2462 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2462 "../lib/comp/int_act.s7i" */ } } } /* line 2464 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8647_exponent_name); /* line 2465 "../lib/comp/int_act.s7i" */ { /* line 2465 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2465 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2465 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2465 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 2465 "../lib/comp/int_act.s7i" */ } else { /* line 2465 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 2465 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2465 "../lib/comp/int_act.s7i" */ } } /* line 2466 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(1L)); /* line 2467 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1299] /* "<<" */); /* line 2468 "../lib/comp/int_act.s7i" */ if ((o_8644_base) != (-2L)) { /* line 2469 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8648_log2_of_negated_base)); /* line 2470 "../lib/comp/int_act.s7i" */ { /* line 2470 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2470 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2470 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2470 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '*'); /* line 2470 "../lib/comp/int_act.s7i" */ } else { /* line 2470 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '*'; /* line 2470 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2470 "../lib/comp/int_act.s7i" */ } } } /* line 2472 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8647_exponent_name); /* line 2473 "../lib/comp/int_act.s7i" */ { /* line 2473 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2473 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2473 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2473 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2473 "../lib/comp/int_act.s7i" */ } else { /* line 2473 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2473 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2473 "../lib/comp/int_act.s7i" */ } } } else /* line 2474 "../lib/comp/int_act.s7i" */ if (o_3452_integer_overflow_check) { /* line 2475 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 2476 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 2477 "../lib/comp/int_act.s7i" */ if (((o_8644_base) >= (-8 /* minIdx(arr[249]) */)) && /* line 2477 "../lib/comp/int_act.s7i" */ ((o_8644_base) <= (8 /* maxIdx(arr[249]) */))) { { /* line 2478 "../lib/comp/int_act.s7i" */ uintType idx_1; /* line 2478 "../lib/comp/int_act.s7i" */ o_8649_max_exponent=arr[249]->arr[(idx_1=(o_8644_base)- -8, idxChk(idx_1>=17) ? intRaiseError(RANGE_ERROR) : 0, idx_1)].value.intValue; } } else /* line 2479 "../lib/comp/int_act.s7i" */ if ((o_8644_base) > (0L)) { /* line 2480 "../lib/comp/int_act.s7i" */ o_8649_max_exponent=2L; { /* line 2481 "../lib/comp/int_act.s7i" */ uintType idx_1; /* line 2481 "../lib/comp/int_act.s7i" */ while ((o_8644_base) <= (arr[248]->arr[(idx_1=(o_8649_max_exponent)- 2, idxChk(idx_1>=21) ? intRaiseError(RANGE_ERROR) : 0, idx_1)].value.intValue)) { /* line 2482 "../lib/comp/int_act.s7i" */ ++(o_8649_max_exponent); } } /* line 2484 "../lib/comp/int_act.s7i" */ --(o_8649_max_exponent); } else { /* line 2486 "../lib/comp/int_act.s7i" */ o_8649_max_exponent=2L; { /* line 2487 "../lib/comp/int_act.s7i" */ uintType idx_1; /* line 2487 "../lib/comp/int_act.s7i" */ while ((o_8644_base) >= (arr[247]->arr[(idx_1=(o_8649_max_exponent)- 2, idxChk(idx_1>=21) ? intRaiseError(RANGE_ERROR) : 0, idx_1)].value.intValue)) { /* line 2488 "../lib/comp/int_act.s7i" */ ++(o_8649_max_exponent); } } /* line 2490 "../lib/comp/int_act.s7i" */ --(o_8649_max_exponent); } /* line 2492 "../lib/comp/int_act.s7i" */ { /* line 2492 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2492 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2492 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2492 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2492 "../lib/comp/int_act.s7i" */ } else { /* line 2492 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2492 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2492 "../lib/comp/int_act.s7i" */ } } { /* line 2493 "../lib/comp/int_act.s7i" */ striType old_stri=o_8647_exponent_name; /* line 2493 "../lib/comp/int_act.s7i" */ o_8647_exponent_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_8645_exponent, o_8646_c_expr); /* line 2493 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 2494 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 2495 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8647_exponent_name); /* line 2496 "../lib/comp/int_act.s7i" */ { /* line 2496 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2496 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2496 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2496 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '>'); /* line 2496 "../lib/comp/int_act.s7i" */ } else { /* line 2496 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '>'; /* line 2496 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2496 "../lib/comp/int_act.s7i" */ } } /* line 2497 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8649_max_exponent)); /* line 2498 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 2499 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 2500 "../lib/comp/int_act.s7i" */ { /* line 2500 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2500 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2500 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2500 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 2500 "../lib/comp/int_act.s7i" */ } else { /* line 2500 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 2500 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2500 "../lib/comp/int_act.s7i" */ } } /* line 2501 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1296] /* "intPow(" */); /* line 2502 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8644_base)); /* line 2503 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 2504 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8647_exponent_name); /* line 2505 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); } else { /* line 2507 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1296] /* "intPow(" */); /* line 2508 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8644_base)); /* line 2509 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 2510 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8645_exponent, o_8646_c_expr); /* line 2511 "../lib/comp/int_act.s7i" */ { /* line 2511 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2511 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8646_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2511 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2511 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2511 "../lib/comp/int_act.s7i" */ } else { /* line 2511 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2511 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2511 "../lib/comp/int_act.s7i" */ } } } } /* line 2354 "../lib/comp/int_act.s7i" */ strDestr(o_8647_exponent_name); } /* line 1 "no_file" */ /* 4241 */ /* line 2516 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8650_INT_POW (const objRefType/*t_19_reference*/ o_8651_function, const listType/*t_20_ref_list*/ *const o_8652_params, structType/*t_164_expr_type*/ *const o_8653_c_expr) { /* line 2520 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8654_evaluatedParam=NULL; /* line 2522 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8652_params, 3L), 9L, &(o_8654_evaluatedParam))) { /* line 2523 "../lib/comp/int_act.s7i" */ o_8632_process_const_int_pow(rflIdx(*o_8652_params, 1L), intValue(o_8654_evaluatedParam), o_8653_c_expr); } else /* line 2524 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8652_params, 1L), 9L, &(o_8654_evaluatedParam))) { /* line 2525 "../lib/comp/int_act.s7i" */ o_8643_process_const_int_pow(intValue(o_8654_evaluatedParam), rflIdx(*o_8652_params, 3L), o_8653_c_expr); } else { /* line 2527 "../lib/comp/int_act.s7i" */ if (o_3452_integer_overflow_check) { /* line 2528 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 2529 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8653_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1300] /* "intPowOvfChk(" */); } else { /* line 2531 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8653_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1296] /* "intPow(" */); } /* line 2533 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8652_params, 1L), o_8653_c_expr); /* line 2534 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8653_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 2535 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8652_params, 3L), o_8653_c_expr); /* line 2536 "../lib/comp/int_act.s7i" */ { /* line 2536 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2536 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8653_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2536 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2536 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2536 "../lib/comp/int_act.s7i" */ } else { /* line 2536 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2536 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2536 "../lib/comp/int_act.s7i" */ } } } } /* line 1 "no_file" */ /* 4242 */ /* line 2541 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8655_INT_PRED (const objRefType/*t_19_reference*/ o_8656_function, const listType/*t_20_ref_list*/ *const o_8657_params, structType/*t_164_expr_type*/ *const o_8658_c_expr) { /* line 2545 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8659_evaluatedParam=NULL; /* line 2546 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8660_number_name; /* line 2547 "../lib/comp/int_act.s7i" */ intType/*t_14_integer*/ o_8661_number=0; /* line 2546 "../lib/comp/int_act.s7i" */ o_8660_number_name=strEmpty(); /* "" */ /* line 2549 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8657_params, 1L), 9L, &(o_8659_evaluatedParam))) { /* line 2550 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 2551 "../lib/comp/int_act.s7i" */ o_8661_number=intValue(o_8659_evaluatedParam); /* line 2552 "../lib/comp/int_act.s7i" */ if ((o_8661_number) == ((-9223372036854775807L-1L))) { /* line 2553 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[1196] /* "OVERFLOW_ERROR" */, *o_8658_c_expr); /* line 2554 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); } else { /* line 2556 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((o_8661_number)-1)); } } else /* line 2558 "../lib/comp/int_act.s7i" */ if (o_3461_check_int_arithmetic_overflow) { /* line 2559 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 2560 "../lib/comp/int_act.s7i" */ { /* line 2560 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2560 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2560 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2560 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2560 "../lib/comp/int_act.s7i" */ } else { /* line 2560 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2560 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2560 "../lib/comp/int_act.s7i" */ } } { /* line 2561 "../lib/comp/int_act.s7i" */ striType old_stri=o_8660_number_name; /* line 2561 "../lib/comp/int_act.s7i" */ o_8660_number_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8657_params, 1L), o_8658_c_expr); /* line 2561 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 2562 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 2563 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8660_number_name); /* line 2564 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1194] /* "==" */); /* line 2565 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); /* line 2566 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 2567 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 2568 "../lib/comp/int_act.s7i" */ { /* line 2568 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2568 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2568 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2568 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 2568 "../lib/comp/int_act.s7i" */ } else { /* line 2568 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 2568 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2568 "../lib/comp/int_act.s7i" */ } } /* line 2569 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8660_number_name); /* line 2570 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[324] /* "-1)" */); } else { /* line 2572 "../lib/comp/int_act.s7i" */ { /* line 2572 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2572 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2572 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2572 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2572 "../lib/comp/int_act.s7i" */ } else { /* line 2572 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2572 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2572 "../lib/comp/int_act.s7i" */ } } /* line 2573 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8657_params, 1L), o_8658_c_expr); /* line 2574 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8658_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[666] /* ")-1" */); } /* line 2541 "../lib/comp/int_act.s7i" */ strDestr(o_8660_number_name); } /* line 1 "no_file" */ /* 4243 */ /* line 2579 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8662_process_const_int_radix (const objRefType/*t_19_reference*/ o_8663_param1, const intType/*t_14_integer*/ o_8664_base, const boolType/*t_13_boolean*/ o_8665_upperCase, structType/*t_164_expr_type*/ *const o_8666_c_expr) { /* line 2583 "../lib/comp/int_act.s7i" */ if (((o_8664_base) < (2L)) || /* line 2583 "../lib/comp/int_act.s7i" */ ((o_8664_base) > (36L))) { /* line 2584 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 2585 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[406] /* "RANGE_ERROR" */, *o_8666_c_expr); /* line 2586 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8666_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[406] /* "RANGE_ERROR" */)); } else /* line 2587 "../lib/comp/int_act.s7i" */ if ((o_8664_base) == (10L)) { /* line 2588 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 2589 "../lib/comp/int_act.s7i" */ o_4955_prepare_stri_result(o_8666_c_expr); /* line 2590 "../lib/comp/int_act.s7i" */ strCopy(&(((structType)(*o_8666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1301] /* "intStr(" */); /* line 2591 "../lib/comp/int_act.s7i" */ o_4981_getStdParamToResultExpr(o_8663_param1, o_8666_c_expr); /* line 2592 "../lib/comp/int_act.s7i" */ { /* line 2592 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2592 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 2592 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2592 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2592 "../lib/comp/int_act.s7i" */ } else { /* line 2592 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2592 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2592 "../lib/comp/int_act.s7i" */ } } } else { /* line 2593 "../lib/comp/int_act.s7i" */ intType tmp_1; /* line 2593 "../lib/comp/int_act.s7i" */ if (((tmp_1=intLog2(o_8664_base),numChk(tmp_1<0)?intRaiseError(NUMERIC_ERROR):ovfChk(tmp_1>62L)?intRaiseError(OVERFLOW_ERROR):1L<stru[13].value.striValue/*->o_4791_result_expr*/), &str[1302] /* "intRadixPow2(" */); /* line 2597 "../lib/comp/int_act.s7i" */ o_4981_getStdParamToResultExpr(o_8663_param1, o_8666_c_expr); /* line 2598 "../lib/comp/int_act.s7i" */ { /* line 2598 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2598 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 2598 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2598 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 2598 "../lib/comp/int_act.s7i" */ } else { /* line 2598 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 2598 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2598 "../lib/comp/int_act.s7i" */ } } /* line 2599 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6502_integerLiteral(intLog2(o_8664_base))); /* line 2600 "../lib/comp/int_act.s7i" */ { /* line 2600 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2600 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 2600 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2600 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 2600 "../lib/comp/int_act.s7i" */ } else { /* line 2600 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 2600 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2600 "../lib/comp/int_act.s7i" */ } } /* line 2601 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6502_integerLiteral((o_8664_base)-1)); /* line 2602 "../lib/comp/int_act.s7i" */ { /* line 2602 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2602 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 2602 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2602 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 2602 "../lib/comp/int_act.s7i" */ } else { /* line 2602 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 2602 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2602 "../lib/comp/int_act.s7i" */ } } { /* line 2603 "../lib/comp/int_act.s7i" */ union { /* line 2603 "../lib/comp/int_act.s7i" */ struct striStruct striBuf; /* line 2603 "../lib/comp/int_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2603 "../lib/comp/int_act.s7i" */ } buffer_1; /* line 2603 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), intStrToBuffer((intType)(o_8665_upperCase), &buffer_1.striBuf)); } /* line 2604 "../lib/comp/int_act.s7i" */ { /* line 2604 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2604 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 2604 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2604 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2604 "../lib/comp/int_act.s7i" */ } else { /* line 2604 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2604 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2604 "../lib/comp/int_act.s7i" */ } } } else { /* line 2606 "../lib/comp/int_act.s7i" */ o_4955_prepare_stri_result(o_8666_c_expr); /* line 2607 "../lib/comp/int_act.s7i" */ strCopy(&(((structType)(*o_8666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1303] /* "intRadix(" */); /* line 2608 "../lib/comp/int_act.s7i" */ o_4981_getStdParamToResultExpr(o_8663_param1, o_8666_c_expr); /* line 2609 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 2610 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6502_integerLiteral(o_8664_base)); /* line 2611 "../lib/comp/int_act.s7i" */ { /* line 2611 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2611 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 2611 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2611 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 2611 "../lib/comp/int_act.s7i" */ } else { /* line 2611 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 2611 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2611 "../lib/comp/int_act.s7i" */ } } { /* line 2612 "../lib/comp/int_act.s7i" */ union { /* line 2612 "../lib/comp/int_act.s7i" */ struct striStruct striBuf; /* line 2612 "../lib/comp/int_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2612 "../lib/comp/int_act.s7i" */ } buffer_1; /* line 2612 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), intStrToBuffer((intType)(o_8665_upperCase), &buffer_1.striBuf)); } /* line 2613 "../lib/comp/int_act.s7i" */ { /* line 2613 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2613 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8666_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 2613 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2613 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2613 "../lib/comp/int_act.s7i" */ } else { /* line 2613 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2613 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2613 "../lib/comp/int_act.s7i" */ } } } } } /* line 1 "no_file" */ /* 4244 */ /* line 2618 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8667_process_int_radix (const listType/*t_20_ref_list*/ *const o_8668_params, const boolType/*t_13_boolean*/ o_8669_upperCase, structType/*t_164_expr_type*/ *const o_8670_c_expr) { /* line 2622 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8671_evaluatedParam=NULL; /* line 2624 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8668_params, 3L), 9L, &(o_8671_evaluatedParam))) { /* line 2625 "../lib/comp/int_act.s7i" */ o_8662_process_const_int_radix(rflIdx(*o_8668_params, 1L), intValue(o_8671_evaluatedParam), o_8669_upperCase, o_8670_c_expr); } else { /* line 2627 "../lib/comp/int_act.s7i" */ o_4955_prepare_stri_result(o_8670_c_expr); /* line 2628 "../lib/comp/int_act.s7i" */ strCopy(&(((structType)(*o_8670_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1303] /* "intRadix(" */); /* line 2629 "../lib/comp/int_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_8668_params, 1L), o_8670_c_expr); /* line 2630 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8670_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 2631 "../lib/comp/int_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_8668_params, 3L), o_8670_c_expr); /* line 2632 "../lib/comp/int_act.s7i" */ { /* line 2632 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2632 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8670_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 2632 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2632 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 2632 "../lib/comp/int_act.s7i" */ } else { /* line 2632 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 2632 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2632 "../lib/comp/int_act.s7i" */ } } { /* line 2633 "../lib/comp/int_act.s7i" */ union { /* line 2633 "../lib/comp/int_act.s7i" */ struct striStruct striBuf; /* line 2633 "../lib/comp/int_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2633 "../lib/comp/int_act.s7i" */ } buffer_1; /* line 2633 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8670_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), intStrToBuffer((intType)(o_8669_upperCase), &buffer_1.striBuf)); } /* line 2634 "../lib/comp/int_act.s7i" */ { /* line 2634 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2634 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8670_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 2634 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2634 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2634 "../lib/comp/int_act.s7i" */ } else { /* line 2634 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2634 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2634 "../lib/comp/int_act.s7i" */ } } } } /* line 1 "no_file" */ /* 4245 */ /* line 2639 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8672_INT_radix (const objRefType/*t_19_reference*/ o_8673_function, const listType/*t_20_ref_list*/ *const o_8674_params, structType/*t_164_expr_type*/ *const o_8675_c_expr) { /* line 2643 "../lib/comp/int_act.s7i" */ o_8667_process_int_radix(o_8674_params, o_25_FALSE, o_8675_c_expr); } /* line 1 "no_file" */ /* 4246 */ /* line 2647 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8676_INT_RADIX (const objRefType/*t_19_reference*/ o_8677_function, const listType/*t_20_ref_list*/ *const o_8678_params, structType/*t_164_expr_type*/ *const o_8679_c_expr) { /* line 2651 "../lib/comp/int_act.s7i" */ o_8667_process_int_radix(o_8678_params, o_26_TRUE, o_8679_c_expr); } /* line 1 "no_file" */ /* 4247 */ /* line 2655 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8680_INT_RAND (const objRefType/*t_19_reference*/ o_8681_function, const listType/*t_20_ref_list*/ *const o_8682_params, structType/*t_164_expr_type*/ *const o_8683_c_expr) { /* line 2659 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8683_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1304] /* "intRand(" */); /* line 2660 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8682_params, 1L), o_8683_c_expr); /* line 2661 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8683_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 2662 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8682_params, 2L), o_8683_c_expr); /* line 2663 "../lib/comp/int_act.s7i" */ { /* line 2663 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2663 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8683_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2663 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2663 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2663 "../lib/comp/int_act.s7i" */ } else { /* line 2663 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2663 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2663 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4248 */ /* line 2667 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8684_process_const_int_rem (const objRefType/*t_19_reference*/ o_8685_dividend, const intType/*t_14_integer*/ o_8686_divisor, structType/*t_164_expr_type*/ *const o_8687_c_expr) { /* line 2671 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8688_evaluatedDividend=NULL; /* line 2672 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8689_dividend_name; /* line 2672 "../lib/comp/int_act.s7i" */ o_8689_dividend_name=strEmpty(); /* "" */ /* line 2674 "../lib/comp/int_act.s7i" */ if ((o_8686_divisor) == (0L)) { /* line 2675 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 2676 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[553] /* "NUMERIC_ERROR" */, *o_8687_c_expr); /* line 2677 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8687_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); } else /* line 2678 "../lib/comp/int_act.s7i" */ if ((o_8686_divisor) == (1L)) { /* line 2679 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 2680 "../lib/comp/int_act.s7i" */ { /* line 2680 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2680 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8687_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2680 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2680 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '0'); /* line 2680 "../lib/comp/int_act.s7i" */ } else { /* line 2680 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '0'; /* line 2680 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2680 "../lib/comp/int_act.s7i" */ } } } else /* line 2681 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(o_8685_dividend, 9L, &(o_8688_evaluatedDividend))) { /* line 2682 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 2683 "../lib/comp/int_act.s7i" */ { /* line 2683 "../lib/comp/int_act.s7i" */ int fail_value; /* line 2683 "../lib/comp/int_act.s7i" */ catch_stack_pos++; /* line 2683 "../lib/comp/int_act.s7i" */ if (unlikely(catch_stack_pos >= max_catch_stack)) { /* line 2683 "../lib/comp/int_act.s7i" */ resize_catch_stack(); /* line 2683 "../lib/comp/int_act.s7i" */ } /* line 2683 "../lib/comp/int_act.s7i" */ if (likely((fail_value = do_setjmp(catch_stack[catch_stack_pos])) == 0)) { { /* line 2684 "../lib/comp/int_act.s7i" */ intType tmp_b_2; /* line 2684 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8687_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((tmp_b_2=intValue(o_8688_evaluatedDividend),ovfChk(tmp_b_2==(-9223372036854775807L-1L)&&(o_8686_divisor)==-1)?intRaiseError(OVERFLOW_ERROR):divChk((o_8686_divisor)==0)?intRaiseError(NUMERIC_ERROR):tmp_b_2 % (o_8686_divisor)))); } /* line 2684 "../lib/comp/int_act.s7i" */ catch_stack_pos--; /* line 2686 "../lib/comp/int_act.s7i" */ } else { /* line 2684 "../lib/comp/int_act.s7i" */ catch_stack_pos--; /* line 2686 "../lib/comp/int_act.s7i" */ if (o_17_OVERFLOW_ERROR == fail_value - 1) { /* line 2687 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[1196] /* "OVERFLOW_ERROR" */, *o_8687_c_expr); /* line 2688 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8687_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 2689 "../lib/comp/int_act.s7i" */ } else { /* line 2689 "../lib/comp/int_act.s7i" */ rtlRaiseError(fail_value, error_file, error_line); /* line 2689 "../lib/comp/int_act.s7i" */ } /* line 2689 "../lib/comp/int_act.s7i" */ } /* line 2689 "../lib/comp/int_act.s7i" */ } } else /* line 2690 "../lib/comp/int_act.s7i" */ if ((o_8686_divisor) == (-1L)) { /* line 2691 "../lib/comp/int_act.s7i" */ if (o_3462_check_int_division_overflow) { /* line 2692 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 2693 "../lib/comp/int_act.s7i" */ { /* line 2693 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2693 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8687_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2693 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2693 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2693 "../lib/comp/int_act.s7i" */ } else { /* line 2693 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2693 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2693 "../lib/comp/int_act.s7i" */ } } { /* line 2694 "../lib/comp/int_act.s7i" */ striType old_stri=o_8689_dividend_name; /* line 2694 "../lib/comp/int_act.s7i" */ o_8689_dividend_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_8685_dividend, o_8687_c_expr); /* line 2694 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 2695 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8687_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 2696 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8687_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8689_dividend_name); /* line 2697 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8687_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1194] /* "==" */); /* line 2698 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8687_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); /* line 2699 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8687_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 2700 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8687_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 2701 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8687_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1224] /* ":0)" */); } else { /* line 2703 "../lib/comp/int_act.s7i" */ { /* line 2703 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2703 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8687_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2703 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2703 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '0'); /* line 2703 "../lib/comp/int_act.s7i" */ } else { /* line 2703 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '0'; /* line 2703 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2703 "../lib/comp/int_act.s7i" */ } } } } else { /* line 2706 "../lib/comp/int_act.s7i" */ { /* line 2706 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2706 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8687_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2706 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2706 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2706 "../lib/comp/int_act.s7i" */ } else { /* line 2706 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2706 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2706 "../lib/comp/int_act.s7i" */ } } /* line 2707 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8685_dividend, o_8687_c_expr); /* line 2708 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8687_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1305] /* ") % " */); /* line 2709 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8687_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8686_divisor)); } /* line 2667 "../lib/comp/int_act.s7i" */ strDestr(o_8689_dividend_name); } /* line 1 "no_file" */ /* 4249 */ /* line 2714 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8690_process_const_int_rem (const intType/*t_14_integer*/ o_8691_dividend, const objRefType/*t_19_reference*/ o_8692_divisor, structType/*t_164_expr_type*/ *const o_8693_c_expr) { /* line 2718 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8694_divisor_name; /* line 2718 "../lib/comp/int_act.s7i" */ o_8694_divisor_name=strEmpty(); /* "" */ /* line 2720 "../lib/comp/int_act.s7i" */ if ((o_8691_dividend) == (0L)) { /* line 2721 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 2722 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1222] /* "(divChk((" */); /* line 2723 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8692_divisor, o_8693_c_expr); /* line 2724 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1223] /* ")==0)?" */); /* line 2725 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 2726 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1224] /* ":0)" */); } else /* line 2727 "../lib/comp/int_act.s7i" */ if ((o_3462_check_int_division_overflow) && /* line 2728 "../lib/comp/int_act.s7i" */ ((o_8691_dividend) == ((-9223372036854775807L-1L)))) { /* line 2730 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 2731 "../lib/comp/int_act.s7i" */ { /* line 2731 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2731 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2731 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2731 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2731 "../lib/comp/int_act.s7i" */ } else { /* line 2731 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2731 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2731 "../lib/comp/int_act.s7i" */ } } { /* line 2732 "../lib/comp/int_act.s7i" */ striType old_stri=o_8694_divisor_name; /* line 2732 "../lib/comp/int_act.s7i" */ o_8694_divisor_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[656] /* "tmp_b_" */, o_8692_divisor, o_8693_c_expr); /* line 2732 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 2733 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 2734 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8694_divisor_name); /* line 2735 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1225] /* "==-1" */); /* line 2736 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 2737 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 2738 "../lib/comp/int_act.s7i" */ { /* line 2738 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2738 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2738 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2738 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 2738 "../lib/comp/int_act.s7i" */ } else { /* line 2738 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 2738 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2738 "../lib/comp/int_act.s7i" */ } } /* line 2739 "../lib/comp/int_act.s7i" */ if ((((structType)(sct[55]))->stru[12].value.boolValue/*->o_3390_CHECK_INT_DIV_BY_ZERO*/) || /* line 2739 "../lib/comp/int_act.s7i" */ (((structType)(sct[55]))->stru[13].value.boolValue/*->o_3391_CHECK_INT_REM_BY_ZERO*/)) { /* line 2740 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1226] /* "divChk(" */); /* line 2741 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8694_divisor_name); /* line 2742 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1227] /* "==0)?" */); /* line 2743 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 2744 "../lib/comp/int_act.s7i" */ { /* line 2744 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2744 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2744 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2744 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 2744 "../lib/comp/int_act.s7i" */ } else { /* line 2744 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 2744 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2744 "../lib/comp/int_act.s7i" */ } } } /* line 2746 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8691_dividend)); /* line 2747 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1306] /* " % " */); /* line 2748 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8694_divisor_name); /* line 2749 "../lib/comp/int_act.s7i" */ { /* line 2749 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2749 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2749 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2749 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2749 "../lib/comp/int_act.s7i" */ } else { /* line 2749 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2749 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2749 "../lib/comp/int_act.s7i" */ } } } else /* line 2750 "../lib/comp/int_act.s7i" */ if ((((structType)(sct[55]))->stru[12].value.boolValue/*->o_3390_CHECK_INT_DIV_BY_ZERO*/) || /* line 2750 "../lib/comp/int_act.s7i" */ (((structType)(sct[55]))->stru[13].value.boolValue/*->o_3391_CHECK_INT_REM_BY_ZERO*/)) { /* line 2751 "../lib/comp/int_act.s7i" */ { /* line 2751 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2751 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2751 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2751 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2751 "../lib/comp/int_act.s7i" */ } else { /* line 2751 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2751 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2751 "../lib/comp/int_act.s7i" */ } } { /* line 2752 "../lib/comp/int_act.s7i" */ striType old_stri=o_8694_divisor_name; /* line 2752 "../lib/comp/int_act.s7i" */ o_8694_divisor_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[656] /* "tmp_b_" */, o_8692_divisor, o_8693_c_expr); /* line 2752 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 2753 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1226] /* "divChk(" */); /* line 2754 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8694_divisor_name); /* line 2755 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1227] /* "==0)?" */); /* line 2756 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 2757 "../lib/comp/int_act.s7i" */ { /* line 2757 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2757 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2757 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2757 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 2757 "../lib/comp/int_act.s7i" */ } else { /* line 2757 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 2757 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2757 "../lib/comp/int_act.s7i" */ } } /* line 2758 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8691_dividend)); /* line 2759 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1306] /* " % " */); /* line 2760 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8694_divisor_name); /* line 2761 "../lib/comp/int_act.s7i" */ { /* line 2761 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2761 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2761 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2761 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2761 "../lib/comp/int_act.s7i" */ } else { /* line 2761 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2761 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2761 "../lib/comp/int_act.s7i" */ } } } else { /* line 2763 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8691_dividend)); /* line 2764 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1307] /* " % (" */); /* line 2765 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8692_divisor, o_8693_c_expr); /* line 2766 "../lib/comp/int_act.s7i" */ { /* line 2766 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2766 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8693_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2766 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2766 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2766 "../lib/comp/int_act.s7i" */ } else { /* line 2766 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2766 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2766 "../lib/comp/int_act.s7i" */ } } } /* line 2714 "../lib/comp/int_act.s7i" */ strDestr(o_8694_divisor_name); } /* line 1 "no_file" */ /* 4250 */ /* line 2771 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8695_INT_REM (const objRefType/*t_19_reference*/ o_8696_function, const listType/*t_20_ref_list*/ *const o_8697_params, structType/*t_164_expr_type*/ *const o_8698_c_expr) { /* line 2775 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8699_evaluatedParam=NULL; /* line 2776 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8700_dividend_name; /* line 2777 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8701_divisor_name; /* line 2776 "../lib/comp/int_act.s7i" */ o_8700_dividend_name=strEmpty(); /* "" */ /* line 2777 "../lib/comp/int_act.s7i" */ o_8701_divisor_name=strEmpty(); /* "" */ /* line 2779 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8697_params, 3L), 9L, &(o_8699_evaluatedParam))) { /* line 2780 "../lib/comp/int_act.s7i" */ o_8684_process_const_int_rem(rflIdx(*o_8697_params, 1L), intValue(o_8699_evaluatedParam), o_8698_c_expr); } else /* line 2781 "../lib/comp/int_act.s7i" */ if (o_8318_constValueIsEqual(rflIdx(*o_8697_params, 3L), -1L)) { /* line 2782 "../lib/comp/int_act.s7i" */ o_8684_process_const_int_rem(rflIdx(*o_8697_params, 1L), -1L, o_8698_c_expr); } else /* line 2783 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8697_params, 1L), 9L, &(o_8699_evaluatedParam))) { /* line 2784 "../lib/comp/int_act.s7i" */ o_8690_process_const_int_rem(intValue(o_8699_evaluatedParam), rflIdx(*o_8697_params, 3L), o_8698_c_expr); } else /* line 2785 "../lib/comp/int_act.s7i" */ if (((o_3457_evaluate_const_expr) == (0L)) && /* line 2785 "../lib/comp/int_act.s7i" */ (((structType)(sct[55]))->stru[14].value.boolValue/*->o_3392_CHECK_INT_REM_ZERO_BY_ZERO*/) && /* line 2786 "../lib/comp/int_act.s7i" */ ((refCategory(rflIdx(*o_8697_params, 1L))) == (9L)) && /* line 2786 "../lib/comp/int_act.s7i" */ (!(refIsVar(rflIdx(*o_8697_params, 1L)))) && /* line 2787 "../lib/comp/int_act.s7i" */ ((intValue(rflIdx(*o_8697_params, 1L))) == (0L))) { /* line 2788 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1222] /* "(divChk((" */); /* line 2789 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8697_params, 3L), o_8698_c_expr); /* line 2790 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1223] /* ")==0)?" */); /* line 2791 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 2792 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1224] /* ":0)" */); } else /* line 2793 "../lib/comp/int_act.s7i" */ if (o_3462_check_int_division_overflow) { /* line 2795 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 2796 "../lib/comp/int_act.s7i" */ { /* line 2796 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2796 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2796 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2796 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2796 "../lib/comp/int_act.s7i" */ } else { /* line 2796 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2796 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2796 "../lib/comp/int_act.s7i" */ } } { /* line 2797 "../lib/comp/int_act.s7i" */ striType old_stri=o_8700_dividend_name; /* line 2797 "../lib/comp/int_act.s7i" */ o_8700_dividend_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[656] /* "tmp_b_" */, rflIdx(*o_8697_params, 1L), o_8698_c_expr); /* line 2797 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } { /* line 2798 "../lib/comp/int_act.s7i" */ striType old_stri=o_8701_divisor_name; /* line 2798 "../lib/comp/int_act.s7i" */ o_8701_divisor_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[656] /* "tmp_b_" */, rflIdx(*o_8697_params, 3L), o_8698_c_expr); /* line 2798 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 2799 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 2800 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8700_dividend_name); /* line 2801 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1194] /* "==" */); /* line 2802 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); /* line 2803 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1229] /* "&&" */); /* line 2804 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8701_divisor_name); /* line 2805 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1225] /* "==-1" */); /* line 2806 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 2807 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 2808 "../lib/comp/int_act.s7i" */ { /* line 2808 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2808 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2808 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2808 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 2808 "../lib/comp/int_act.s7i" */ } else { /* line 2808 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 2808 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2808 "../lib/comp/int_act.s7i" */ } } /* line 2809 "../lib/comp/int_act.s7i" */ if ((((structType)(sct[55]))->stru[12].value.boolValue/*->o_3390_CHECK_INT_DIV_BY_ZERO*/) || /* line 2809 "../lib/comp/int_act.s7i" */ (((structType)(sct[55]))->stru[13].value.boolValue/*->o_3391_CHECK_INT_REM_BY_ZERO*/)) { /* line 2810 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1226] /* "divChk(" */); /* line 2811 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8701_divisor_name); /* line 2812 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1227] /* "==0)?" */); /* line 2813 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 2814 "../lib/comp/int_act.s7i" */ { /* line 2814 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2814 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2814 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2814 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 2814 "../lib/comp/int_act.s7i" */ } else { /* line 2814 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 2814 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2814 "../lib/comp/int_act.s7i" */ } } } /* line 2816 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8700_dividend_name); /* line 2817 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1306] /* " % " */); /* line 2818 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8701_divisor_name); /* line 2819 "../lib/comp/int_act.s7i" */ { /* line 2819 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2819 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2819 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2819 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2819 "../lib/comp/int_act.s7i" */ } else { /* line 2819 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2819 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2819 "../lib/comp/int_act.s7i" */ } } } else /* line 2820 "../lib/comp/int_act.s7i" */ if ((((structType)(sct[55]))->stru[12].value.boolValue/*->o_3390_CHECK_INT_DIV_BY_ZERO*/) || /* line 2820 "../lib/comp/int_act.s7i" */ (((structType)(sct[55]))->stru[13].value.boolValue/*->o_3391_CHECK_INT_REM_BY_ZERO*/)) { /* line 2821 "../lib/comp/int_act.s7i" */ { /* line 2821 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2821 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2821 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2821 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2821 "../lib/comp/int_act.s7i" */ } else { /* line 2821 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2821 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2821 "../lib/comp/int_act.s7i" */ } } { /* line 2822 "../lib/comp/int_act.s7i" */ striType old_stri=o_8701_divisor_name; /* line 2822 "../lib/comp/int_act.s7i" */ o_8701_divisor_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[656] /* "tmp_b_" */, rflIdx(*o_8697_params, 3L), o_8698_c_expr); /* line 2822 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 2823 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1226] /* "divChk(" */); /* line 2824 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8701_divisor_name); /* line 2825 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1227] /* "==0)?" */); /* line 2826 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[553] /* "NUMERIC_ERROR" */)); /* line 2827 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1157] /* ":(" */); /* line 2828 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8697_params, 1L), o_8698_c_expr); /* line 2829 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1305] /* ") % " */); /* line 2830 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8701_divisor_name); /* line 2831 "../lib/comp/int_act.s7i" */ { /* line 2831 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2831 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2831 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2831 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2831 "../lib/comp/int_act.s7i" */ } else { /* line 2831 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2831 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2831 "../lib/comp/int_act.s7i" */ } } } else { /* line 2833 "../lib/comp/int_act.s7i" */ { /* line 2833 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2833 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2833 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2833 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2833 "../lib/comp/int_act.s7i" */ } else { /* line 2833 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2833 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2833 "../lib/comp/int_act.s7i" */ } } /* line 2834 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8697_params, 1L), o_8698_c_expr); /* line 2835 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1308] /* ") % (" */); /* line 2836 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8697_params, 3L), o_8698_c_expr); /* line 2837 "../lib/comp/int_act.s7i" */ { /* line 2837 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2837 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8698_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2837 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2837 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2837 "../lib/comp/int_act.s7i" */ } else { /* line 2837 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2837 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2837 "../lib/comp/int_act.s7i" */ } } } /* line 2771 "../lib/comp/int_act.s7i" */ strDestr(o_8700_dividend_name); /* line 2771 "../lib/comp/int_act.s7i" */ strDestr(o_8701_divisor_name); } /* line 1 "no_file" */ /* 4251 */ /* line 2842 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8702_process_const_int_rshift (const objRefType/*t_19_reference*/ o_8703_number, const intType/*t_14_integer*/ o_8704_rshift, structType/*t_164_expr_type*/ *const o_8705_c_expr) { /* line 2846 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8706_evaluatedNumber=NULL; /* line 2847 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8707_number_name; /* line 2847 "../lib/comp/int_act.s7i" */ o_8707_number_name=strEmpty(); /* "" */ /* line 2849 "../lib/comp/int_act.s7i" */ if (((o_8704_rshift) < (0L)) || /* line 2849 "../lib/comp/int_act.s7i" */ ((o_8704_rshift) >= (((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/))) { /* line 2850 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 2851 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[1196] /* "OVERFLOW_ERROR" */, *o_8705_c_expr); /* line 2852 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8705_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); } else /* line 2853 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(o_8703_number, 9L, &(o_8706_evaluatedNumber))) { /* line 2854 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 2855 "../lib/comp/int_act.s7i" */ { /* line 2855 "../lib/comp/int_act.s7i" */ int fail_value; /* line 2855 "../lib/comp/int_act.s7i" */ catch_stack_pos++; /* line 2855 "../lib/comp/int_act.s7i" */ if (unlikely(catch_stack_pos >= max_catch_stack)) { /* line 2855 "../lib/comp/int_act.s7i" */ resize_catch_stack(); /* line 2855 "../lib/comp/int_act.s7i" */ } /* line 2855 "../lib/comp/int_act.s7i" */ if (likely((fail_value = do_setjmp(catch_stack[catch_stack_pos])) == 0)) { /* line 2856 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8705_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((ovfChk((uintType)(o_8704_rshift)>=(uintType)64L)?intRaiseError(OVERFLOW_ERROR):(intValue(o_8706_evaluatedNumber)) >> (o_8704_rshift)))); /* line 2856 "../lib/comp/int_act.s7i" */ catch_stack_pos--; /* line 2858 "../lib/comp/int_act.s7i" */ } else { /* line 2856 "../lib/comp/int_act.s7i" */ catch_stack_pos--; /* line 2858 "../lib/comp/int_act.s7i" */ if (o_17_OVERFLOW_ERROR == fail_value - 1) { /* line 2859 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[1196] /* "OVERFLOW_ERROR" */, *o_8705_c_expr); /* line 2860 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8705_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 2861 "../lib/comp/int_act.s7i" */ } else { /* line 2861 "../lib/comp/int_act.s7i" */ rtlRaiseError(fail_value, error_file, error_line); /* line 2861 "../lib/comp/int_act.s7i" */ } /* line 2861 "../lib/comp/int_act.s7i" */ } /* line 2861 "../lib/comp/int_act.s7i" */ } } else /* line 2862 "../lib/comp/int_act.s7i" */ if ((o_8704_rshift) == (0L)) { /* line 2863 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 2864 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8703_number, o_8705_c_expr); } else { /* line 2866 "../lib/comp/int_act.s7i" */ if (((structType)(sct[55]))->stru[3].value.boolValue/*->o_3381_RSHIFT_DOES_SIGN_EXTEND*/) { /* line 2867 "../lib/comp/int_act.s7i" */ { /* line 2867 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2867 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8705_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2867 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2867 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2867 "../lib/comp/int_act.s7i" */ } else { /* line 2867 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2867 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2867 "../lib/comp/int_act.s7i" */ } } /* line 2868 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8703_number, o_8705_c_expr); /* line 2869 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8705_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1252] /* ") >> " */); /* line 2870 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8705_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8704_rshift)); } else { /* line 2872 "../lib/comp/int_act.s7i" */ { /* line 2872 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2872 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8705_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2872 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2872 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2872 "../lib/comp/int_act.s7i" */ } else { /* line 2872 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2872 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2872 "../lib/comp/int_act.s7i" */ } } { /* line 2873 "../lib/comp/int_act.s7i" */ striType old_stri=o_8707_number_name; /* line 2873 "../lib/comp/int_act.s7i" */ o_8707_number_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_8703_number, o_8705_c_expr); /* line 2873 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } { /* line 2874 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 2874 "../lib/comp/int_act.s7i" */ o_5103_doRshift(o_8707_number_name, (tmp_1=(striType/*t_15_string*/)(o_6502_integerLiteral(o_8704_rshift))), o_8705_c_expr); /* line 2874 "../lib/comp/int_act.s7i" */ strDestr(tmp_1); } /* line 2875 "../lib/comp/int_act.s7i" */ { /* line 2875 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2875 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8705_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2875 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2875 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2875 "../lib/comp/int_act.s7i" */ } else { /* line 2875 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2875 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2875 "../lib/comp/int_act.s7i" */ } } } } /* line 2842 "../lib/comp/int_act.s7i" */ strDestr(o_8707_number_name); } /* line 1 "no_file" */ /* 4252 */ /* line 2881 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8708_INT_RSHIFT (const objRefType/*t_19_reference*/ o_8709_function, const listType/*t_20_ref_list*/ *const o_8710_params, structType/*t_164_expr_type*/ *const o_8711_c_expr) { /* line 2885 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8712_evaluatedParam=NULL; /* line 2886 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8713_number_name; /* line 2887 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8714_rshift_name; /* line 2886 "../lib/comp/int_act.s7i" */ o_8713_number_name=strEmpty(); /* "" */ /* line 2887 "../lib/comp/int_act.s7i" */ o_8714_rshift_name=strEmpty(); /* "" */ /* line 2889 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8710_params, 3L), 9L, &(o_8712_evaluatedParam))) { /* line 2890 "../lib/comp/int_act.s7i" */ o_8702_process_const_int_rshift(rflIdx(*o_8710_params, 1L), intValue(o_8712_evaluatedParam), o_8711_c_expr); } else /* line 2891 "../lib/comp/int_act.s7i" */ if (((structType)(sct[55]))->stru[3].value.boolValue/*->o_3381_RSHIFT_DOES_SIGN_EXTEND*/) { /* line 2892 "../lib/comp/int_act.s7i" */ if (o_3463_check_int_shift_overflow) { /* line 2893 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 2894 "../lib/comp/int_act.s7i" */ { /* line 2894 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2894 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2894 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2894 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2894 "../lib/comp/int_act.s7i" */ } else { /* line 2894 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2894 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2894 "../lib/comp/int_act.s7i" */ } } { /* line 2895 "../lib/comp/int_act.s7i" */ striType old_stri=o_8714_rshift_name; /* line 2895 "../lib/comp/int_act.s7i" */ o_8714_rshift_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[1309] /* "rshift_" */, rflIdx(*o_8710_params, 3L), o_8711_c_expr); /* line 2895 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 2896 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); { /* line 2897 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 2897 "../lib/comp/int_act.s7i" */ o_8323_checkRangeFromZero(o_8714_rshift_name, (tmp_1=(striType/*t_15_string*/)(o_6502_integerLiteral(((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/))), o_8711_c_expr); /* line 2897 "../lib/comp/int_act.s7i" */ strDestr(tmp_1); } /* line 2898 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 2899 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 2900 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1157] /* ":(" */); /* line 2901 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8710_params, 1L), o_8711_c_expr); /* line 2902 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1252] /* ") >> " */); /* line 2903 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8714_rshift_name); /* line 2904 "../lib/comp/int_act.s7i" */ { /* line 2904 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2904 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2904 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2904 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2904 "../lib/comp/int_act.s7i" */ } else { /* line 2904 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2904 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2904 "../lib/comp/int_act.s7i" */ } } } else { /* line 2906 "../lib/comp/int_act.s7i" */ { /* line 2906 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2906 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2906 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2906 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2906 "../lib/comp/int_act.s7i" */ } else { /* line 2906 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2906 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2906 "../lib/comp/int_act.s7i" */ } } /* line 2907 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8710_params, 1L), o_8711_c_expr); /* line 2908 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1310] /* ") >> (" */); /* line 2909 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8710_params, 3L), o_8711_c_expr); /* line 2910 "../lib/comp/int_act.s7i" */ { /* line 2910 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2910 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2910 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2910 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2910 "../lib/comp/int_act.s7i" */ } else { /* line 2910 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2910 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2910 "../lib/comp/int_act.s7i" */ } } } } else /* line 2912 "../lib/comp/int_act.s7i" */ if (o_3463_check_int_shift_overflow) { /* line 2913 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 2914 "../lib/comp/int_act.s7i" */ { /* line 2914 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2914 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2914 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2914 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2914 "../lib/comp/int_act.s7i" */ } else { /* line 2914 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2914 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2914 "../lib/comp/int_act.s7i" */ } } { /* line 2915 "../lib/comp/int_act.s7i" */ striType old_stri=o_8713_number_name; /* line 2915 "../lib/comp/int_act.s7i" */ o_8713_number_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8710_params, 1L), o_8711_c_expr); /* line 2915 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } { /* line 2916 "../lib/comp/int_act.s7i" */ striType old_stri=o_8714_rshift_name; /* line 2916 "../lib/comp/int_act.s7i" */ o_8714_rshift_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[1309] /* "rshift_" */, rflIdx(*o_8710_params, 3L), o_8711_c_expr); /* line 2916 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 2917 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); { /* line 2918 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 2918 "../lib/comp/int_act.s7i" */ o_8323_checkRangeFromZero(o_8714_rshift_name, (tmp_1=(striType/*t_15_string*/)(o_6502_integerLiteral(((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/))), o_8711_c_expr); /* line 2918 "../lib/comp/int_act.s7i" */ strDestr(tmp_1); } /* line 2919 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 2920 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 2921 "../lib/comp/int_act.s7i" */ { /* line 2921 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2921 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2921 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2921 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 2921 "../lib/comp/int_act.s7i" */ } else { /* line 2921 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 2921 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2921 "../lib/comp/int_act.s7i" */ } } /* line 2922 "../lib/comp/int_act.s7i" */ o_5103_doRshift(o_8713_number_name, o_8714_rshift_name, o_8711_c_expr); /* line 2923 "../lib/comp/int_act.s7i" */ { /* line 2923 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2923 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2923 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2923 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2923 "../lib/comp/int_act.s7i" */ } else { /* line 2923 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2923 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2923 "../lib/comp/int_act.s7i" */ } } } else { /* line 2925 "../lib/comp/int_act.s7i" */ { /* line 2925 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2925 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2925 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2925 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2925 "../lib/comp/int_act.s7i" */ } else { /* line 2925 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2925 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2925 "../lib/comp/int_act.s7i" */ } } { /* line 2926 "../lib/comp/int_act.s7i" */ striType old_stri=o_8713_number_name; /* line 2926 "../lib/comp/int_act.s7i" */ o_8713_number_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8710_params, 1L), o_8711_c_expr); /* line 2926 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 2928 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8713_number_name); /* line 2929 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[314] /* "<0?~(~" */); /* line 2930 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8713_number_name); /* line 2931 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1311] /* " >> (" */); /* line 2932 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8710_params, 3L), o_8711_c_expr); /* line 2933 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1312] /* ")):" */); /* line 2934 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8713_number_name); /* line 2935 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1311] /* " >> (" */); /* line 2936 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8710_params, 3L), o_8711_c_expr); /* line 2937 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8711_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); } /* line 2881 "../lib/comp/int_act.s7i" */ strDestr(o_8713_number_name); /* line 2881 "../lib/comp/int_act.s7i" */ strDestr(o_8714_rshift_name); } /* line 1 "no_file" */ /* 4253 */ /* line 2942 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8715_process_const_int_rshift_assign (const objRefType/*t_19_reference*/ o_8716_variable, const intType/*t_14_integer*/ o_8717_rshift, structType/*t_164_expr_type*/ *const o_8718_c_expr) { /* line 2946 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8719_variable_name; /* line 2947 "../lib/comp/int_act.s7i" */ structType/*t_164_expr_type*/ o_8720_statement; /* line 2946 "../lib/comp/int_act.s7i" */ o_8719_variable_name=strEmpty(); /* "" */ /* line 2947 "../lib/comp/int_act.s7i" */ o_8720_statement=create_164(sct[250]); /* line 2949 "../lib/comp/int_act.s7i" */ if (((o_8717_rshift) < (0L)) || /* line 2949 "../lib/comp/int_act.s7i" */ ((o_8717_rshift) >= (((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/))) { /* line 2950 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 2951 "../lib/comp/int_act.s7i" */ o_4819_setDiagnosticLine(o_8718_c_expr); /* line 2952 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[1196] /* "OVERFLOW_ERROR" */, *o_8718_c_expr); /* line 2953 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8718_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6522_voidRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 2954 "../lib/comp/int_act.s7i" */ { /* line 2954 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 2954 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8718_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2954 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2954 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 2954 "../lib/comp/int_act.s7i" */ } else { /* line 2954 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 2954 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 2954 "../lib/comp/int_act.s7i" */ } } } else /* line 2955 "../lib/comp/int_act.s7i" */ if ((o_8717_rshift) == (0L)) { /* line 2956 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 2957 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8718_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1313] /* "/* ignore integer >>:= 0; *\/\n" */); } else /* line 2958 "../lib/comp/int_act.s7i" */ if (((structType)(sct[55]))->stru[3].value.boolValue/*->o_3381_RSHIFT_DOES_SIGN_EXTEND*/) { /* line 2959 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8716_variable, &(o_8720_statement)); /* line 2960 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8720_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1314] /* ">>=" */); /* line 2961 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8720_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8717_rshift)); /* line 2962 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8720_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 2963 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8720_statement, o_8718_c_expr); } else { { /* line 2965 "../lib/comp/int_act.s7i" */ striType old_stri=o_8719_variable_name; /* line 2965 "../lib/comp/int_act.s7i" */ o_8719_variable_name=o_5043_getParameterAsReference(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_8716_variable, &(o_8720_statement)); /* line 2965 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 2967 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8720_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8719_variable_name); /* line 2968 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8720_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1198] /* "<0?" */); /* line 2969 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8720_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8719_variable_name); /* line 2970 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8720_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1315] /* "= ~(~" */); /* line 2971 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8720_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8719_variable_name); /* line 2972 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8720_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[315] /* " >> " */); /* line 2973 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8720_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8717_rshift)); /* line 2974 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8720_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1316] /* "):(" */); /* line 2975 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8720_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8719_variable_name); /* line 2976 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8720_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1317] /* " >>= " */); /* line 2977 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8720_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8717_rshift)); /* line 2978 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8720_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 2979 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8720_statement, o_8718_c_expr); } /* line 2942 "../lib/comp/int_act.s7i" */ strDestr(o_8719_variable_name); /* line 2942 "../lib/comp/int_act.s7i" */ destr_164(o_8720_statement); } /* line 1 "no_file" */ /* 4254 */ /* line 2984 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8721_INT_RSHIFT_ASSIGN (const objRefType/*t_19_reference*/ o_8722_function, const listType/*t_20_ref_list*/ *const o_8723_params, structType/*t_164_expr_type*/ *const o_8724_c_expr) { /* line 2988 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8725_evaluatedParam=NULL; /* line 2989 "../lib/comp/int_act.s7i" */ structType/*t_164_expr_type*/ o_8726_statement; /* line 2990 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8727_variable_name; /* line 2991 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8728_rshift_name; /* line 2989 "../lib/comp/int_act.s7i" */ o_8726_statement=create_164(sct[251]); /* line 2990 "../lib/comp/int_act.s7i" */ o_8727_variable_name=strEmpty(); /* "" */ /* line 2991 "../lib/comp/int_act.s7i" */ o_8728_rshift_name=strEmpty(); /* "" */ /* line 2993 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8723_params, 3L), 9L, &(o_8725_evaluatedParam))) { /* line 2994 "../lib/comp/int_act.s7i" */ o_8715_process_const_int_rshift_assign(rflIdx(*o_8723_params, 1L), intValue(o_8725_evaluatedParam), o_8724_c_expr); } else /* line 2995 "../lib/comp/int_act.s7i" */ if (((structType)(sct[55]))->stru[3].value.boolValue/*->o_3381_RSHIFT_DOES_SIGN_EXTEND*/) { /* line 2996 "../lib/comp/int_act.s7i" */ if (o_3463_check_int_shift_overflow) { /* line 2997 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); { /* line 2998 "../lib/comp/int_act.s7i" */ striType old_stri=o_8728_rshift_name; /* line 2998 "../lib/comp/int_act.s7i" */ o_8728_rshift_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8723_params, 3L), &(o_8726_statement)); /* line 2998 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 2999 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8726_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); { /* line 3000 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 3000 "../lib/comp/int_act.s7i" */ o_8323_checkRangeFromZero(o_8728_rshift_name, (tmp_1=(striType/*t_15_string*/)(o_6502_integerLiteral(((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/))), &(o_8726_statement)); /* line 3000 "../lib/comp/int_act.s7i" */ strDestr(tmp_1); } /* line 3001 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8726_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 3002 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8726_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 3003 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8726_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1157] /* ":(" */); /* line 3004 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8723_params, 1L), &(o_8726_statement)); /* line 3005 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8726_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1314] /* ">>=" */); /* line 3006 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8726_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8728_rshift_name); /* line 3007 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8726_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } else { /* line 3009 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8723_params, 1L), &(o_8726_statement)); /* line 3010 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8726_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1314] /* ">>=" */); /* line 3011 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8723_params, 3L), &(o_8726_statement)); /* line 3012 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8726_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); } /* line 3014 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8726_statement, o_8724_c_expr); } else { { /* line 3016 "../lib/comp/int_act.s7i" */ striType old_stri=o_8727_variable_name; /* line 3016 "../lib/comp/int_act.s7i" */ o_8727_variable_name=o_5043_getParameterAsReference(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8723_params, 1L), &(o_8726_statement)); /* line 3016 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } { /* line 3017 "../lib/comp/int_act.s7i" */ striType old_stri=o_8728_rshift_name; /* line 3017 "../lib/comp/int_act.s7i" */ o_8728_rshift_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8723_params, 3L), &(o_8726_statement)); /* line 3017 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 3018 "../lib/comp/int_act.s7i" */ if (o_3463_check_int_shift_overflow) { /* line 3019 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 3020 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8726_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); { /* line 3021 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 3021 "../lib/comp/int_act.s7i" */ o_8323_checkRangeFromZero(o_8728_rshift_name, (tmp_1=(striType/*t_15_string*/)(o_6502_integerLiteral(((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/))), &(o_8726_statement)); /* line 3021 "../lib/comp/int_act.s7i" */ strDestr(tmp_1); } /* line 3022 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8726_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 3023 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8726_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 3024 "../lib/comp/int_act.s7i" */ { /* line 3024 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3024 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8726_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3024 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3024 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 3024 "../lib/comp/int_act.s7i" */ } else { /* line 3024 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 3024 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3024 "../lib/comp/int_act.s7i" */ } } } /* line 3027 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8726_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8727_variable_name); /* line 3028 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8726_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1318] /* "<0? " */); /* line 3029 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8726_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8727_variable_name); /* line 3030 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8726_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1315] /* "= ~(~" */); /* line 3031 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8726_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8727_variable_name); /* line 3032 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8726_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[315] /* " >> " */); /* line 3033 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8726_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8728_rshift_name); /* line 3034 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8726_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1316] /* "):(" */); /* line 3035 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8726_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8727_variable_name); /* line 3036 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8726_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1317] /* " >>= " */); /* line 3037 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8726_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8728_rshift_name); /* line 3038 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8726_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 3039 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8726_statement, o_8724_c_expr); } /* line 2984 "../lib/comp/int_act.s7i" */ destr_164(o_8726_statement); /* line 2984 "../lib/comp/int_act.s7i" */ strDestr(o_8727_variable_name); /* line 2984 "../lib/comp/int_act.s7i" */ strDestr(o_8728_rshift_name); } /* line 1 "no_file" */ /* 4255 */ /* line 3044 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8729_process_const_int_sbtr (const objRefType/*t_19_reference*/ o_8730_minuend, const intType/*t_14_integer*/ o_8731_subtrahend, structType/*t_164_expr_type*/ *const o_8732_c_expr) { /* line 3048 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8733_evaluatedParam=NULL; /* line 3049 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8734_minuend_name; /* line 3049 "../lib/comp/int_act.s7i" */ o_8734_minuend_name=strEmpty(); /* "" */ /* line 3051 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(o_8730_minuend, 9L, &(o_8733_evaluatedParam))) { /* line 3052 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 3053 "../lib/comp/int_act.s7i" */ { /* line 3053 "../lib/comp/int_act.s7i" */ int fail_value; /* line 3053 "../lib/comp/int_act.s7i" */ catch_stack_pos++; /* line 3053 "../lib/comp/int_act.s7i" */ if (unlikely(catch_stack_pos >= max_catch_stack)) { /* line 3053 "../lib/comp/int_act.s7i" */ resize_catch_stack(); /* line 3053 "../lib/comp/int_act.s7i" */ } /* line 3053 "../lib/comp/int_act.s7i" */ if (likely((fail_value = do_setjmp(catch_stack[catch_stack_pos])) == 0)) { /* line 3054 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8732_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((intValue(o_8733_evaluatedParam)) - (o_8731_subtrahend))); /* line 3054 "../lib/comp/int_act.s7i" */ catch_stack_pos--; /* line 3056 "../lib/comp/int_act.s7i" */ } else { /* line 3054 "../lib/comp/int_act.s7i" */ catch_stack_pos--; /* line 3056 "../lib/comp/int_act.s7i" */ if (o_17_OVERFLOW_ERROR == fail_value - 1) { /* line 3057 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[1196] /* "OVERFLOW_ERROR" */, *o_8732_c_expr); /* line 3058 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8732_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 3059 "../lib/comp/int_act.s7i" */ } else { /* line 3059 "../lib/comp/int_act.s7i" */ rtlRaiseError(fail_value, error_file, error_line); /* line 3059 "../lib/comp/int_act.s7i" */ } /* line 3059 "../lib/comp/int_act.s7i" */ } /* line 3059 "../lib/comp/int_act.s7i" */ } } else /* line 3060 "../lib/comp/int_act.s7i" */ if ((o_8731_subtrahend) == (0L)) { /* line 3061 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 3062 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8730_minuend, o_8732_c_expr); } else /* line 3063 "../lib/comp/int_act.s7i" */ if (o_3461_check_int_arithmetic_overflow) { /* line 3064 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 3065 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 3066 "../lib/comp/int_act.s7i" */ { /* line 3066 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3066 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8732_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3066 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3066 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 3066 "../lib/comp/int_act.s7i" */ } else { /* line 3066 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 3066 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3066 "../lib/comp/int_act.s7i" */ } } { /* line 3067 "../lib/comp/int_act.s7i" */ striType old_stri=o_8734_minuend_name; /* line 3067 "../lib/comp/int_act.s7i" */ o_8734_minuend_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_8730_minuend, o_8732_c_expr); /* line 3067 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 3068 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8732_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 3069 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8732_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8734_minuend_name); /* line 3070 "../lib/comp/int_act.s7i" */ if ((o_8731_subtrahend) < (0L)) { /* line 3071 "../lib/comp/int_act.s7i" */ { /* line 3071 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3071 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8732_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3071 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3071 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '>'); /* line 3071 "../lib/comp/int_act.s7i" */ } else { /* line 3071 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '>'; /* line 3071 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3071 "../lib/comp/int_act.s7i" */ } } /* line 3072 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8732_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((9223372036854775807L) + (o_8731_subtrahend))); } else { /* line 3074 "../lib/comp/int_act.s7i" */ { /* line 3074 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3074 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8732_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3074 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3074 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '<'); /* line 3074 "../lib/comp/int_act.s7i" */ } else { /* line 3074 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '<'; /* line 3074 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3074 "../lib/comp/int_act.s7i" */ } } /* line 3075 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8732_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(((-9223372036854775807L-1L)) + (o_8731_subtrahend))); } /* line 3077 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8732_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 3078 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8732_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 3079 "../lib/comp/int_act.s7i" */ { /* line 3079 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3079 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8732_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3079 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3079 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 3079 "../lib/comp/int_act.s7i" */ } else { /* line 3079 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 3079 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3079 "../lib/comp/int_act.s7i" */ } } /* line 3080 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8732_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8734_minuend_name); /* line 3081 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8732_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1319] /* " - " */); /* line 3082 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8732_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8731_subtrahend)); /* line 3083 "../lib/comp/int_act.s7i" */ { /* line 3083 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3083 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8732_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3083 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3083 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 3083 "../lib/comp/int_act.s7i" */ } else { /* line 3083 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 3083 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3083 "../lib/comp/int_act.s7i" */ } } } else { /* line 3085 "../lib/comp/int_act.s7i" */ { /* line 3085 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3085 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8732_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3085 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3085 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 3085 "../lib/comp/int_act.s7i" */ } else { /* line 3085 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 3085 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3085 "../lib/comp/int_act.s7i" */ } } /* line 3086 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8730_minuend, o_8732_c_expr); /* line 3087 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8732_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1320] /* ") - " */); /* line 3088 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8732_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8731_subtrahend)); } /* line 3044 "../lib/comp/int_act.s7i" */ strDestr(o_8734_minuend_name); } /* line 1 "no_file" */ /* 4256 */ /* line 3093 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8735_process_const_int_sbtr (const intType/*t_14_integer*/ o_8736_minuend, const objRefType/*t_19_reference*/ o_8737_subtrahend, structType/*t_164_expr_type*/ *const o_8738_c_expr) { /* line 3097 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8739_evaluatedParam=NULL; /* line 3098 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8740_subtrahend_name; /* line 3098 "../lib/comp/int_act.s7i" */ o_8740_subtrahend_name=strEmpty(); /* "" */ /* line 3100 "../lib/comp/int_act.s7i" */ if (o_3461_check_int_arithmetic_overflow) { /* line 3101 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 3102 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 3103 "../lib/comp/int_act.s7i" */ { /* line 3103 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3103 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8738_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3103 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3103 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 3103 "../lib/comp/int_act.s7i" */ } else { /* line 3103 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 3103 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3103 "../lib/comp/int_act.s7i" */ } } { /* line 3104 "../lib/comp/int_act.s7i" */ striType old_stri=o_8740_subtrahend_name; /* line 3104 "../lib/comp/int_act.s7i" */ o_8740_subtrahend_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_8737_subtrahend, o_8738_c_expr); /* line 3104 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 3105 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8738_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 3106 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8738_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8740_subtrahend_name); /* line 3107 "../lib/comp/int_act.s7i" */ if ((o_8736_minuend) < (0L)) { /* line 3108 "../lib/comp/int_act.s7i" */ { /* line 3108 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3108 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8738_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3108 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3108 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '>'); /* line 3108 "../lib/comp/int_act.s7i" */ } else { /* line 3108 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '>'; /* line 3108 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3108 "../lib/comp/int_act.s7i" */ } } /* line 3109 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8738_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(-(((-9223372036854775807L-1L)) - (o_8736_minuend)))); } else /* line 3110 "../lib/comp/int_act.s7i" */ if ((o_8736_minuend) == (0L)) { /* line 3111 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8738_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1194] /* "==" */); /* line 3112 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8738_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); } else { /* line 3114 "../lib/comp/int_act.s7i" */ { /* line 3114 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3114 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8738_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3114 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3114 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '<'); /* line 3114 "../lib/comp/int_act.s7i" */ } else { /* line 3114 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '<'; /* line 3114 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3114 "../lib/comp/int_act.s7i" */ } } /* line 3115 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8738_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(-((9223372036854775807L) - (o_8736_minuend)))); } /* line 3117 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8738_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 3118 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8738_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 3119 "../lib/comp/int_act.s7i" */ { /* line 3119 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3119 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8738_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3119 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3119 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 3119 "../lib/comp/int_act.s7i" */ } else { /* line 3119 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 3119 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3119 "../lib/comp/int_act.s7i" */ } } /* line 3120 "../lib/comp/int_act.s7i" */ if ((o_8736_minuend) != (0L)) { /* line 3121 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8738_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8736_minuend)); } /* line 3123 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8738_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1319] /* " - " */); /* line 3124 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8738_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8740_subtrahend_name); /* line 3125 "../lib/comp/int_act.s7i" */ { /* line 3125 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3125 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8738_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3125 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3125 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 3125 "../lib/comp/int_act.s7i" */ } else { /* line 3125 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 3125 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3125 "../lib/comp/int_act.s7i" */ } } } else { /* line 3127 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8738_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8736_minuend)); /* line 3128 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8738_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1321] /* " - (" */); /* line 3129 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8737_subtrahend, o_8738_c_expr); /* line 3130 "../lib/comp/int_act.s7i" */ { /* line 3130 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3130 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8738_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3130 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3130 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 3130 "../lib/comp/int_act.s7i" */ } else { /* line 3130 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 3130 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3130 "../lib/comp/int_act.s7i" */ } } } /* line 3093 "../lib/comp/int_act.s7i" */ strDestr(o_8740_subtrahend_name); } /* line 1 "no_file" */ /* 4257 */ /* line 3135 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8741_INT_SBTR (const objRefType/*t_19_reference*/ o_8742_function, const listType/*t_20_ref_list*/ *const o_8743_params, structType/*t_164_expr_type*/ *const o_8744_c_expr) { /* line 3139 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8745_evaluatedParam=NULL; /* line 3140 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8746_minuend_name; /* line 3141 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8747_subtrahend_name; /* line 3140 "../lib/comp/int_act.s7i" */ o_8746_minuend_name=strEmpty(); /* "" */ /* line 3141 "../lib/comp/int_act.s7i" */ o_8747_subtrahend_name=strEmpty(); /* "" */ /* line 3143 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8743_params, 3L), 9L, &(o_8745_evaluatedParam))) { /* line 3144 "../lib/comp/int_act.s7i" */ o_8729_process_const_int_sbtr(rflIdx(*o_8743_params, 1L), intValue(o_8745_evaluatedParam), o_8744_c_expr); } else /* line 3145 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8743_params, 1L), 9L, &(o_8745_evaluatedParam))) { /* line 3146 "../lib/comp/int_act.s7i" */ o_8735_process_const_int_sbtr(intValue(o_8745_evaluatedParam), rflIdx(*o_8743_params, 3L), o_8744_c_expr); } else /* line 3147 "../lib/comp/int_act.s7i" */ if (o_3461_check_int_arithmetic_overflow) { /* line 3148 "../lib/comp/int_act.s7i" */ if ((rflIdx(*o_8743_params, 1L)) == (rflIdx(*o_8743_params, 3L))) { /* line 3149 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 3150 "../lib/comp/int_act.s7i" */ { /* line 3150 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3150 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3150 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3150 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '0'); /* line 3150 "../lib/comp/int_act.s7i" */ } else { /* line 3150 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '0'; /* line 3150 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3150 "../lib/comp/int_act.s7i" */ } } } else { /* line 3152 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 3153 "../lib/comp/int_act.s7i" */ { /* line 3153 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3153 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3153 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3153 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 3153 "../lib/comp/int_act.s7i" */ } else { /* line 3153 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 3153 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3153 "../lib/comp/int_act.s7i" */ } } { /* line 3154 "../lib/comp/int_act.s7i" */ striType old_stri=o_8746_minuend_name; /* line 3154 "../lib/comp/int_act.s7i" */ o_8746_minuend_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8743_params, 1L), o_8744_c_expr); /* line 3154 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } { /* line 3155 "../lib/comp/int_act.s7i" */ striType old_stri=o_8747_subtrahend_name; /* line 3155 "../lib/comp/int_act.s7i" */ o_8747_subtrahend_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8743_params, 3L), o_8744_c_expr); /* line 3155 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 3156 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 3157 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8747_subtrahend_name); /* line 3158 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1203] /* "<0&&" */); /* line 3159 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8746_minuend_name); /* line 3160 "../lib/comp/int_act.s7i" */ { /* line 3160 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3160 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3160 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3160 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '>'); /* line 3160 "../lib/comp/int_act.s7i" */ } else { /* line 3160 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '>'; /* line 3160 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3160 "../lib/comp/int_act.s7i" */ } } /* line 3161 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(9223372036854775807L)); /* line 3162 "../lib/comp/int_act.s7i" */ { /* line 3162 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3162 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3162 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3162 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '+'); /* line 3162 "../lib/comp/int_act.s7i" */ } else { /* line 3162 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '+'; /* line 3162 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3162 "../lib/comp/int_act.s7i" */ } } /* line 3163 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8747_subtrahend_name); /* line 3164 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1204] /* " || " */); /* line 3165 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8747_subtrahend_name); /* line 3166 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1205] /* ">=0&&" */); /* line 3167 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8746_minuend_name); /* line 3168 "../lib/comp/int_act.s7i" */ { /* line 3168 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3168 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3168 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3168 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '<'); /* line 3168 "../lib/comp/int_act.s7i" */ } else { /* line 3168 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '<'; /* line 3168 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3168 "../lib/comp/int_act.s7i" */ } } /* line 3169 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); /* line 3170 "../lib/comp/int_act.s7i" */ { /* line 3170 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3170 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3170 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3170 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '+'); /* line 3170 "../lib/comp/int_act.s7i" */ } else { /* line 3170 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '+'; /* line 3170 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3170 "../lib/comp/int_act.s7i" */ } } /* line 3171 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8747_subtrahend_name); /* line 3172 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 3173 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 3174 "../lib/comp/int_act.s7i" */ { /* line 3174 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3174 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3174 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3174 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 3174 "../lib/comp/int_act.s7i" */ } else { /* line 3174 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 3174 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3174 "../lib/comp/int_act.s7i" */ } } /* line 3175 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8746_minuend_name); /* line 3176 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1319] /* " - " */); /* line 3177 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8747_subtrahend_name); /* line 3178 "../lib/comp/int_act.s7i" */ { /* line 3178 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3178 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3178 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3178 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 3178 "../lib/comp/int_act.s7i" */ } else { /* line 3178 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 3178 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3178 "../lib/comp/int_act.s7i" */ } } } } else { /* line 3181 "../lib/comp/int_act.s7i" */ { /* line 3181 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3181 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3181 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3181 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 3181 "../lib/comp/int_act.s7i" */ } else { /* line 3181 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 3181 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3181 "../lib/comp/int_act.s7i" */ } } /* line 3182 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8743_params, 1L), o_8744_c_expr); /* line 3183 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1066] /* ") - (" */); /* line 3184 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8743_params, 3L), o_8744_c_expr); /* line 3185 "../lib/comp/int_act.s7i" */ { /* line 3185 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3185 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3185 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3185 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 3185 "../lib/comp/int_act.s7i" */ } else { /* line 3185 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 3185 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3185 "../lib/comp/int_act.s7i" */ } } } /* line 3135 "../lib/comp/int_act.s7i" */ strDestr(o_8746_minuend_name); /* line 3135 "../lib/comp/int_act.s7i" */ strDestr(o_8747_subtrahend_name); } /* line 1 "no_file" */ /* 4258 */ /* line 3190 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8748_process_const_int_shrink (const objRefType/*t_19_reference*/ o_8749_variable, const intType/*t_14_integer*/ o_8750_delta, structType/*t_164_expr_type*/ *const o_8751_c_expr) { /* line 3194 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8752_variable_name; /* line 3195 "../lib/comp/int_act.s7i" */ structType/*t_164_expr_type*/ o_8753_statement; /* line 3194 "../lib/comp/int_act.s7i" */ o_8752_variable_name=strEmpty(); /* "" */ /* line 3195 "../lib/comp/int_act.s7i" */ o_8753_statement=create_164(sct[252]); /* line 3197 "../lib/comp/int_act.s7i" */ if ((o_8750_delta) == (0L)) { /* line 3198 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 3199 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8751_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1322] /* "/* ignore integer -:= 0; *\/\n" */); } else /* line 3200 "../lib/comp/int_act.s7i" */ if (o_3461_check_int_arithmetic_overflow) { /* line 3201 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 3202 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); { /* line 3203 "../lib/comp/int_act.s7i" */ striType old_stri=o_8752_variable_name; /* line 3203 "../lib/comp/int_act.s7i" */ o_8752_variable_name=o_5043_getParameterAsReference(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_8749_variable, &(o_8753_statement)); /* line 3203 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 3204 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8753_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 3205 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8753_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8752_variable_name); /* line 3206 "../lib/comp/int_act.s7i" */ if ((o_8750_delta) < (0L)) { /* line 3207 "../lib/comp/int_act.s7i" */ { /* line 3207 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3207 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8753_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3207 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3207 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '>'); /* line 3207 "../lib/comp/int_act.s7i" */ } else { /* line 3207 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '>'; /* line 3207 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3207 "../lib/comp/int_act.s7i" */ } } /* line 3208 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8753_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((9223372036854775807L) + (o_8750_delta))); } else { /* line 3210 "../lib/comp/int_act.s7i" */ { /* line 3210 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3210 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8753_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3210 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3210 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '<'); /* line 3210 "../lib/comp/int_act.s7i" */ } else { /* line 3210 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '<'; /* line 3210 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3210 "../lib/comp/int_act.s7i" */ } } /* line 3211 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8753_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(((-9223372036854775807L-1L)) + (o_8750_delta))); } /* line 3213 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8753_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 3214 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8753_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 3215 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8753_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1157] /* ":(" */); /* line 3216 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8753_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8752_variable_name); /* line 3217 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8753_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1068] /* "-=" */); /* line 3218 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8753_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8750_delta)); /* line 3219 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8753_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 3220 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8753_statement, o_8751_c_expr); } else { /* line 3222 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8749_variable, &(o_8753_statement)); /* line 3223 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8753_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1068] /* "-=" */); /* line 3224 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8753_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8750_delta)); /* line 3225 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8753_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 3226 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8753_statement, o_8751_c_expr); } /* line 3190 "../lib/comp/int_act.s7i" */ strDestr(o_8752_variable_name); /* line 3190 "../lib/comp/int_act.s7i" */ destr_164(o_8753_statement); } /* line 1 "no_file" */ /* 4259 */ /* line 3231 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8754_INT_SHRINK (const objRefType/*t_19_reference*/ o_8755_function, const listType/*t_20_ref_list*/ *const o_8756_params, structType/*t_164_expr_type*/ *const o_8757_c_expr) { /* line 3235 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8758_evaluatedParam=NULL; /* line 3236 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8759_variable_name; /* line 3237 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8760_delta_name; /* line 3238 "../lib/comp/int_act.s7i" */ structType/*t_164_expr_type*/ o_8761_statement; /* line 3236 "../lib/comp/int_act.s7i" */ o_8759_variable_name=strEmpty(); /* "" */ /* line 3237 "../lib/comp/int_act.s7i" */ o_8760_delta_name=strEmpty(); /* "" */ /* line 3238 "../lib/comp/int_act.s7i" */ o_8761_statement=create_164(sct[253]); /* line 3240 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8756_params, 3L), 9L, &(o_8758_evaluatedParam))) { /* line 3241 "../lib/comp/int_act.s7i" */ o_8748_process_const_int_shrink(rflIdx(*o_8756_params, 1L), intValue(o_8758_evaluatedParam), o_8757_c_expr); } else /* line 3242 "../lib/comp/int_act.s7i" */ if (o_3461_check_int_arithmetic_overflow) { /* line 3243 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); { /* line 3244 "../lib/comp/int_act.s7i" */ striType old_stri=o_8759_variable_name; /* line 3244 "../lib/comp/int_act.s7i" */ o_8759_variable_name=o_5043_getParameterAsReference(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8756_params, 1L), &(o_8761_statement)); /* line 3244 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } { /* line 3245 "../lib/comp/int_act.s7i" */ striType old_stri=o_8760_delta_name; /* line 3245 "../lib/comp/int_act.s7i" */ o_8760_delta_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8756_params, 3L), &(o_8761_statement)); /* line 3245 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 3246 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8761_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 3247 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8761_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8760_delta_name); /* line 3248 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8761_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1203] /* "<0&&" */); /* line 3249 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8761_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8759_variable_name); /* line 3250 "../lib/comp/int_act.s7i" */ { /* line 3250 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3250 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8761_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3250 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3250 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '>'); /* line 3250 "../lib/comp/int_act.s7i" */ } else { /* line 3250 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '>'; /* line 3250 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3250 "../lib/comp/int_act.s7i" */ } } /* line 3251 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8761_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(9223372036854775807L)); /* line 3252 "../lib/comp/int_act.s7i" */ { /* line 3252 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3252 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8761_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3252 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3252 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '+'); /* line 3252 "../lib/comp/int_act.s7i" */ } else { /* line 3252 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '+'; /* line 3252 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3252 "../lib/comp/int_act.s7i" */ } } /* line 3253 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8761_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8760_delta_name); /* line 3254 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8761_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1204] /* " || " */); /* line 3255 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8761_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8760_delta_name); /* line 3256 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8761_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1205] /* ">=0&&" */); /* line 3257 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8761_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8759_variable_name); /* line 3258 "../lib/comp/int_act.s7i" */ { /* line 3258 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3258 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8761_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3258 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3258 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '<'); /* line 3258 "../lib/comp/int_act.s7i" */ } else { /* line 3258 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '<'; /* line 3258 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3258 "../lib/comp/int_act.s7i" */ } } /* line 3259 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8761_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((-9223372036854775807L-1L))); /* line 3260 "../lib/comp/int_act.s7i" */ { /* line 3260 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3260 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(o_8761_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3260 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3260 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '+'); /* line 3260 "../lib/comp/int_act.s7i" */ } else { /* line 3260 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '+'; /* line 3260 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3260 "../lib/comp/int_act.s7i" */ } } /* line 3261 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8761_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8760_delta_name); /* line 3262 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8761_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 3263 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8761_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 3264 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8761_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1157] /* ":(" */); /* line 3265 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8761_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8759_variable_name); /* line 3266 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8761_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1068] /* "-=" */); /* line 3267 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8761_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8760_delta_name); /* line 3268 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8761_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 3269 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8761_statement, o_8757_c_expr); } else { /* line 3271 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8756_params, 1L), &(o_8761_statement)); /* line 3272 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8761_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1068] /* "-=" */); /* line 3273 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8756_params, 3L), &(o_8761_statement)); /* line 3274 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8761_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 3275 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8761_statement, o_8757_c_expr); } /* line 3231 "../lib/comp/int_act.s7i" */ strDestr(o_8759_variable_name); /* line 3231 "../lib/comp/int_act.s7i" */ strDestr(o_8760_delta_name); /* line 3231 "../lib/comp/int_act.s7i" */ destr_164(o_8761_statement); } /* line 1 "no_file" */ /* 4260 */ /* line 3280 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8762_INT_SQRT (const objRefType/*t_19_reference*/ o_8763_function, const listType/*t_20_ref_list*/ *const o_8764_params, structType/*t_164_expr_type*/ *const o_8765_c_expr) { /* line 3284 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8765_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1323] /* "intSqrt(" */); /* line 3285 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8764_params, 1L), o_8765_c_expr); /* line 3286 "../lib/comp/int_act.s7i" */ { /* line 3286 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3286 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8765_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3286 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3286 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 3286 "../lib/comp/int_act.s7i" */ } else { /* line 3286 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 3286 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3286 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4261 */ /* line 3290 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8766_INT_STR (const objRefType/*t_19_reference*/ o_8767_function, const listType/*t_20_ref_list*/ *const o_8768_params, structType/*t_164_expr_type*/ *const o_8769_c_expr) { /* line 3294 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8770_buffer_name; /* line 3294 "../lib/comp/int_act.s7i" */ o_8770_buffer_name=strEmpty(); /* "" */ /* line 3296 "../lib/comp/int_act.s7i" */ if (((structType)(sct[55]))->stru[1].value.boolValue/*->o_3379_ALLOW_STRITYPE_SLICES*/) { /* line 3297 "../lib/comp/int_act.s7i" */ ++(((structType)(*o_8769_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 3298 "../lib/comp/int_act.s7i" */ union { /* line 3298 "../lib/comp/int_act.s7i" */ struct striStruct striBuf; /* line 3298 "../lib/comp/int_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 3298 "../lib/comp/int_act.s7i" */ } buffer_2; /* line 3298 "../lib/comp/int_act.s7i" */ striType old_stri=o_8770_buffer_name; /* line 3298 "../lib/comp/int_act.s7i" */ o_8770_buffer_name=strConcat(&str[699] /* "buffer_" */, intStrToBuffer(((structType)(*o_8769_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 3298 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 3299 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8769_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[700] /* "union {\n" */); /* line 3300 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8769_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[701] /* " struct striStruct striBuf;\n" */); /* line 3301 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8769_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[702] /* " char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)];\n" */); /* line 3302 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8769_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[703] /* "} " */); /* line 3303 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8769_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_8770_buffer_name); /* line 3304 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8769_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 3305 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8769_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1324] /* "intStrToBuffer(" */); /* line 3306 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8768_params, 1L), o_8769_c_expr); /* line 3307 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8769_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[421] /* ", &" */); /* line 3308 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8769_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8770_buffer_name); /* line 3309 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8769_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[705] /* ".striBuf)" */); } else { /* line 3311 "../lib/comp/int_act.s7i" */ o_4955_prepare_stri_result(o_8769_c_expr); /* line 3312 "../lib/comp/int_act.s7i" */ strCopy(&(((structType)(*o_8769_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1301] /* "intStr(" */); /* line 3313 "../lib/comp/int_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_8768_params, 1L), o_8769_c_expr); /* line 3314 "../lib/comp/int_act.s7i" */ { /* line 3314 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3314 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8769_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 3314 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3314 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 3314 "../lib/comp/int_act.s7i" */ } else { /* line 3314 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 3314 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3314 "../lib/comp/int_act.s7i" */ } } } /* line 3290 "../lib/comp/int_act.s7i" */ strDestr(o_8770_buffer_name); } /* line 1 "no_file" */ /* 4262 */ /* line 3319 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8771_INT_SUCC (const objRefType/*t_19_reference*/ o_8772_function, const listType/*t_20_ref_list*/ *const o_8773_params, structType/*t_164_expr_type*/ *const o_8774_c_expr) { /* line 3323 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8775_evaluatedParam=NULL; /* line 3324 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8776_number_name; /* line 3325 "../lib/comp/int_act.s7i" */ intType/*t_14_integer*/ o_8777_number=0; /* line 3324 "../lib/comp/int_act.s7i" */ o_8776_number_name=strEmpty(); /* "" */ /* line 3327 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8773_params, 1L), 9L, &(o_8775_evaluatedParam))) { /* line 3328 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 3329 "../lib/comp/int_act.s7i" */ o_8777_number=intValue(o_8775_evaluatedParam); /* line 3330 "../lib/comp/int_act.s7i" */ if ((o_8777_number) == (9223372036854775807L)) { /* line 3331 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[1196] /* "OVERFLOW_ERROR" */, *o_8774_c_expr); /* line 3332 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8774_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); } else { /* line 3334 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8774_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((o_8777_number)+1)); } } else /* line 3336 "../lib/comp/int_act.s7i" */ if (o_3461_check_int_arithmetic_overflow) { /* line 3337 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 3338 "../lib/comp/int_act.s7i" */ { /* line 3338 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3338 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8774_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3338 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3338 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 3338 "../lib/comp/int_act.s7i" */ } else { /* line 3338 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 3338 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3338 "../lib/comp/int_act.s7i" */ } } { /* line 3339 "../lib/comp/int_act.s7i" */ striType old_stri=o_8776_number_name; /* line 3339 "../lib/comp/int_act.s7i" */ o_8776_number_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8773_params, 1L), o_8774_c_expr); /* line 3339 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 3340 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8774_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); /* line 3341 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8774_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8776_number_name); /* line 3342 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8774_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1194] /* "==" */); /* line 3343 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8774_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(9223372036854775807L)); /* line 3344 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8774_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 3345 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8774_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 3346 "../lib/comp/int_act.s7i" */ { /* line 3346 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3346 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8774_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3346 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3346 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 3346 "../lib/comp/int_act.s7i" */ } else { /* line 3346 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 3346 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3346 "../lib/comp/int_act.s7i" */ } } /* line 3347 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8774_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8776_number_name); /* line 3348 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8774_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1325] /* "+1)" */); } else { /* line 3350 "../lib/comp/int_act.s7i" */ { /* line 3350 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3350 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8774_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3350 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3350 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 3350 "../lib/comp/int_act.s7i" */ } else { /* line 3350 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 3350 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3350 "../lib/comp/int_act.s7i" */ } } /* line 3351 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8773_params, 1L), o_8774_c_expr); /* line 3352 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8774_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[716] /* ")+1" */); } /* line 3319 "../lib/comp/int_act.s7i" */ strDestr(o_8776_number_name); } /* line 1 "no_file" */ /* 4263 */ /* line 3357 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8778_process_const_int_ulshift (const objRefType/*t_19_reference*/ o_8779_number, const intType/*t_14_integer*/ o_8780_lshift, structType/*t_164_expr_type*/ *const o_8781_c_expr) { /* line 3361 "../lib/comp/int_act.s7i" */ if (((o_8780_lshift) < (0L)) || /* line 3361 "../lib/comp/int_act.s7i" */ ((o_8780_lshift) >= (((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/))) { /* line 3362 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 3363 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[1196] /* "OVERFLOW_ERROR" */, *o_8781_c_expr); /* line 3364 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8781_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); } else { /* line 3366 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8781_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1326] /* "(intType)((uintType)(" */); /* line 3367 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8779_number, o_8781_c_expr); /* line 3368 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8781_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1244] /* ") << " */); /* line 3369 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8781_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8780_lshift)); /* line 3370 "../lib/comp/int_act.s7i" */ { /* line 3370 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3370 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8781_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3370 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3370 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 3370 "../lib/comp/int_act.s7i" */ } else { /* line 3370 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 3370 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3370 "../lib/comp/int_act.s7i" */ } } } } /* line 1 "no_file" */ /* 4264 */ /* line 3375 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8782_INT_ULSHIFT (const objRefType/*t_19_reference*/ o_8783_function, const listType/*t_20_ref_list*/ *const o_8784_params, structType/*t_164_expr_type*/ *const o_8785_c_expr) { /* line 3379 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8786_evaluatedParam=NULL; /* line 3380 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8787_lshift_name; /* line 3380 "../lib/comp/int_act.s7i" */ o_8787_lshift_name=strEmpty(); /* "" */ /* line 3382 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8784_params, 3L), 9L, &(o_8786_evaluatedParam))) { /* line 3383 "../lib/comp/int_act.s7i" */ o_8778_process_const_int_ulshift(rflIdx(*o_8784_params, 1L), intValue(o_8786_evaluatedParam), o_8785_c_expr); } else /* line 3384 "../lib/comp/int_act.s7i" */ if (o_3463_check_int_shift_overflow) { /* line 3385 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 3386 "../lib/comp/int_act.s7i" */ { /* line 3386 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3386 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8785_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3386 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3386 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 3386 "../lib/comp/int_act.s7i" */ } else { /* line 3386 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 3386 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3386 "../lib/comp/int_act.s7i" */ } } { /* line 3387 "../lib/comp/int_act.s7i" */ striType old_stri=o_8787_lshift_name; /* line 3387 "../lib/comp/int_act.s7i" */ o_8787_lshift_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[1246] /* "lshift_" */, rflIdx(*o_8784_params, 3L), o_8785_c_expr); /* line 3387 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 3388 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8785_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); { /* line 3389 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 3389 "../lib/comp/int_act.s7i" */ o_8323_checkRangeFromZero(o_8787_lshift_name, (tmp_1=(striType/*t_15_string*/)(o_6502_integerLiteral(((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/))), o_8785_c_expr); /* line 3389 "../lib/comp/int_act.s7i" */ strDestr(tmp_1); } /* line 3390 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8785_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 3391 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8785_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 3392 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8785_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1327] /* ":(intType)((uintType)(" */); /* line 3393 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8784_params, 1L), o_8785_c_expr); /* line 3394 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8785_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1244] /* ") << " */); /* line 3395 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8785_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8787_lshift_name); /* line 3396 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8785_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); } else { /* line 3398 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8785_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1326] /* "(intType)((uintType)(" */); /* line 3399 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8784_params, 1L), o_8785_c_expr); /* line 3400 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8785_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1249] /* ") << (" */); /* line 3401 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8784_params, 3L), o_8785_c_expr); /* line 3402 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8785_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); } /* line 3375 "../lib/comp/int_act.s7i" */ strDestr(o_8787_lshift_name); } /* line 1 "no_file" */ /* 4265 */ /* line 3407 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8788_process_const_int_ulshift_assign (const objRefType/*t_19_reference*/ o_8789_variable, const intType/*t_14_integer*/ o_8790_lshift, structType/*t_164_expr_type*/ *const o_8791_c_expr) { /* line 3411 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8792_variable_name; /* line 3412 "../lib/comp/int_act.s7i" */ structType/*t_164_expr_type*/ o_8793_statement; /* line 3411 "../lib/comp/int_act.s7i" */ o_8792_variable_name=strEmpty(); /* "" */ /* line 3412 "../lib/comp/int_act.s7i" */ o_8793_statement=create_164(sct[254]); /* line 3414 "../lib/comp/int_act.s7i" */ if (((o_8790_lshift) < (0L)) || /* line 3414 "../lib/comp/int_act.s7i" */ ((o_8790_lshift) >= (((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/))) { /* line 3415 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 3416 "../lib/comp/int_act.s7i" */ o_4819_setDiagnosticLine(o_8791_c_expr); /* line 3417 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[1196] /* "OVERFLOW_ERROR" */, *o_8791_c_expr); /* line 3418 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8791_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6522_voidRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 3419 "../lib/comp/int_act.s7i" */ { /* line 3419 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3419 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8791_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3419 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3419 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 3419 "../lib/comp/int_act.s7i" */ } else { /* line 3419 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 3419 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3419 "../lib/comp/int_act.s7i" */ } } } else { { /* line 3421 "../lib/comp/int_act.s7i" */ striType old_stri=o_8792_variable_name; /* line 3421 "../lib/comp/int_act.s7i" */ o_8792_variable_name=o_5043_getParameterAsReference(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_8789_variable, &(o_8793_statement)); /* line 3421 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 3422 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8793_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8792_variable_name); /* line 3423 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8793_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1328] /* "=(intType)((uintType)(" */); /* line 3424 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8793_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8792_variable_name); /* line 3425 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8793_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1244] /* ") << " */); /* line 3426 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8793_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8790_lshift)); /* line 3427 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8793_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 3428 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8793_statement, o_8791_c_expr); } /* line 3407 "../lib/comp/int_act.s7i" */ strDestr(o_8792_variable_name); /* line 3407 "../lib/comp/int_act.s7i" */ destr_164(o_8793_statement); } /* line 1 "no_file" */ /* 4266 */ /* line 3433 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8794_INT_ULSHIFT_ASSIGN (const objRefType/*t_19_reference*/ o_8795_function, const listType/*t_20_ref_list*/ *const o_8796_params, structType/*t_164_expr_type*/ *const o_8797_c_expr) { /* line 3437 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8798_evaluatedParam=NULL; /* line 3438 "../lib/comp/int_act.s7i" */ structType/*t_164_expr_type*/ o_8799_statement; /* line 3439 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8800_variable_name; /* line 3440 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8801_lshift_name; /* line 3438 "../lib/comp/int_act.s7i" */ o_8799_statement=create_164(sct[255]); /* line 3439 "../lib/comp/int_act.s7i" */ o_8800_variable_name=strEmpty(); /* "" */ /* line 3440 "../lib/comp/int_act.s7i" */ o_8801_lshift_name=strEmpty(); /* "" */ /* line 3442 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8796_params, 3L), 9L, &(o_8798_evaluatedParam))) { /* line 3443 "../lib/comp/int_act.s7i" */ o_8788_process_const_int_ulshift_assign(rflIdx(*o_8796_params, 1L), intValue(o_8798_evaluatedParam), o_8797_c_expr); } else /* line 3444 "../lib/comp/int_act.s7i" */ if (o_3463_check_int_shift_overflow) { /* line 3445 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); { /* line 3446 "../lib/comp/int_act.s7i" */ striType old_stri=o_8800_variable_name; /* line 3446 "../lib/comp/int_act.s7i" */ o_8800_variable_name=o_5043_getParameterAsReference(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8796_params, 1L), &(o_8799_statement)); /* line 3446 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } { /* line 3447 "../lib/comp/int_act.s7i" */ striType old_stri=o_8801_lshift_name; /* line 3447 "../lib/comp/int_act.s7i" */ o_8801_lshift_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8796_params, 3L), &(o_8799_statement)); /* line 3447 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 3448 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8799_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); { /* line 3449 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 3449 "../lib/comp/int_act.s7i" */ o_8323_checkRangeFromZero(o_8801_lshift_name, (tmp_1=(striType/*t_15_string*/)(o_6502_integerLiteral(((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/))), &(o_8799_statement)); /* line 3449 "../lib/comp/int_act.s7i" */ strDestr(tmp_1); } /* line 3450 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8799_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 3451 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8799_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 3452 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8799_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1157] /* ":(" */); /* line 3453 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8799_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8800_variable_name); /* line 3454 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8799_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1328] /* "=(intType)((uintType)(" */); /* line 3455 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8799_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8800_variable_name); /* line 3456 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8799_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1244] /* ") << " */); /* line 3457 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8799_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8801_lshift_name); /* line 3458 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8799_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); /* line 3459 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8799_statement, o_8797_c_expr); } else { { /* line 3461 "../lib/comp/int_act.s7i" */ striType old_stri=o_8800_variable_name; /* line 3461 "../lib/comp/int_act.s7i" */ o_8800_variable_name=o_5043_getParameterAsReference(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8796_params, 1L), &(o_8799_statement)); /* line 3461 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 3462 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8799_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8800_variable_name); /* line 3463 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8799_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1328] /* "=(intType)((uintType)(" */); /* line 3464 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8799_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8800_variable_name); /* line 3465 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8799_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1249] /* ") << (" */); /* line 3466 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8796_params, 3L), &(o_8799_statement)); /* line 3467 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8799_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); /* line 3468 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8799_statement, o_8797_c_expr); } /* line 3433 "../lib/comp/int_act.s7i" */ destr_164(o_8799_statement); /* line 3433 "../lib/comp/int_act.s7i" */ strDestr(o_8800_variable_name); /* line 3433 "../lib/comp/int_act.s7i" */ strDestr(o_8801_lshift_name); } /* line 1 "no_file" */ /* 4267 */ /* line 3473 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8802_process_const_int_urshift (const objRefType/*t_19_reference*/ o_8803_number, const intType/*t_14_integer*/ o_8804_rshift, structType/*t_164_expr_type*/ *const o_8805_c_expr) { /* line 3477 "../lib/comp/int_act.s7i" */ if (((o_8804_rshift) < (0L)) || /* line 3477 "../lib/comp/int_act.s7i" */ ((o_8804_rshift) >= (((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/))) { /* line 3478 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 3479 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[1196] /* "OVERFLOW_ERROR" */, *o_8805_c_expr); /* line 3480 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8805_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); } else { /* line 3482 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8805_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1326] /* "(intType)((uintType)(" */); /* line 3483 "../lib/comp/int_act.s7i" */ o_4941_process_expr(o_8803_number, o_8805_c_expr); /* line 3484 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8805_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1252] /* ") >> " */); /* line 3485 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8805_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8804_rshift)); /* line 3486 "../lib/comp/int_act.s7i" */ { /* line 3486 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3486 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8805_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3486 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3486 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 3486 "../lib/comp/int_act.s7i" */ } else { /* line 3486 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 3486 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3486 "../lib/comp/int_act.s7i" */ } } } } /* line 1 "no_file" */ /* 4268 */ /* line 3491 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8806_INT_URSHIFT (const objRefType/*t_19_reference*/ o_8807_function, const listType/*t_20_ref_list*/ *const o_8808_params, structType/*t_164_expr_type*/ *const o_8809_c_expr) { /* line 3495 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8810_evaluatedParam=NULL; /* line 3496 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8811_rshift_name; /* line 3496 "../lib/comp/int_act.s7i" */ o_8811_rshift_name=strEmpty(); /* "" */ /* line 3498 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8808_params, 3L), 9L, &(o_8810_evaluatedParam))) { /* line 3499 "../lib/comp/int_act.s7i" */ o_8802_process_const_int_urshift(rflIdx(*o_8808_params, 1L), intValue(o_8810_evaluatedParam), o_8809_c_expr); } else /* line 3500 "../lib/comp/int_act.s7i" */ if (o_3463_check_int_shift_overflow) { /* line 3501 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); /* line 3502 "../lib/comp/int_act.s7i" */ { /* line 3502 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3502 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8809_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3502 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3502 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 3502 "../lib/comp/int_act.s7i" */ } else { /* line 3502 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 3502 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3502 "../lib/comp/int_act.s7i" */ } } { /* line 3503 "../lib/comp/int_act.s7i" */ striType old_stri=o_8811_rshift_name; /* line 3503 "../lib/comp/int_act.s7i" */ o_8811_rshift_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[1309] /* "rshift_" */, rflIdx(*o_8808_params, 3L), o_8809_c_expr); /* line 3503 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 3504 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8809_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); { /* line 3505 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 3505 "../lib/comp/int_act.s7i" */ o_8323_checkRangeFromZero(o_8811_rshift_name, (tmp_1=(striType/*t_15_string*/)(o_6502_integerLiteral(((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/))), o_8809_c_expr); /* line 3505 "../lib/comp/int_act.s7i" */ strDestr(tmp_1); } /* line 3506 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8809_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 3507 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8809_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 3508 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8809_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1327] /* ":(intType)((uintType)(" */); /* line 3509 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8808_params, 1L), o_8809_c_expr); /* line 3510 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8809_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1252] /* ") >> " */); /* line 3511 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8809_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_8811_rshift_name); /* line 3512 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8809_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); } else { /* line 3514 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8809_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1326] /* "(intType)((uintType)(" */); /* line 3515 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8808_params, 1L), o_8809_c_expr); /* line 3516 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8809_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1310] /* ") >> (" */); /* line 3517 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8808_params, 3L), o_8809_c_expr); /* line 3518 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8809_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); } /* line 3491 "../lib/comp/int_act.s7i" */ strDestr(o_8811_rshift_name); } /* line 1 "no_file" */ /* 4269 */ /* line 3523 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8812_process_const_int_urshift_assign (const objRefType/*t_19_reference*/ o_8813_variable, const intType/*t_14_integer*/ o_8814_rshift, structType/*t_164_expr_type*/ *const o_8815_c_expr) { /* line 3527 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8816_variable_name; /* line 3528 "../lib/comp/int_act.s7i" */ structType/*t_164_expr_type*/ o_8817_statement; /* line 3527 "../lib/comp/int_act.s7i" */ o_8816_variable_name=strEmpty(); /* "" */ /* line 3528 "../lib/comp/int_act.s7i" */ o_8817_statement=create_164(sct[256]); /* line 3530 "../lib/comp/int_act.s7i" */ if (((o_8814_rshift) < (0L)) || /* line 3530 "../lib/comp/int_act.s7i" */ ((o_8814_rshift) >= (((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/))) { /* line 3531 "../lib/comp/int_act.s7i" */ ++(o_5107_countOptimizations); /* line 3532 "../lib/comp/int_act.s7i" */ o_4819_setDiagnosticLine(o_8815_c_expr); /* line 3533 "../lib/comp/int_act.s7i" */ o_6531_DOES_RAISE(&str[1196] /* "OVERFLOW_ERROR" */, *o_8815_c_expr); /* line 3534 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(*o_8815_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6522_voidRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 3535 "../lib/comp/int_act.s7i" */ { /* line 3535 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3535 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8815_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3535 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3535 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 3535 "../lib/comp/int_act.s7i" */ } else { /* line 3535 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 3535 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3535 "../lib/comp/int_act.s7i" */ } } } else { { /* line 3537 "../lib/comp/int_act.s7i" */ striType old_stri=o_8816_variable_name; /* line 3537 "../lib/comp/int_act.s7i" */ o_8816_variable_name=o_5043_getParameterAsReference(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_8813_variable, &(o_8817_statement)); /* line 3537 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 3538 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8817_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8816_variable_name); /* line 3539 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8817_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1328] /* "=(intType)((uintType)(" */); /* line 3540 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8817_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8816_variable_name); /* line 3541 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8817_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1252] /* ") >> " */); /* line 3542 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8817_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_8814_rshift)); /* line 3543 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8817_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 3544 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8817_statement, o_8815_c_expr); } /* line 3523 "../lib/comp/int_act.s7i" */ strDestr(o_8816_variable_name); /* line 3523 "../lib/comp/int_act.s7i" */ destr_164(o_8817_statement); } /* line 1 "no_file" */ /* 4270 */ /* line 3549 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8818_INT_URSHIFT_ASSIGN (const objRefType/*t_19_reference*/ o_8819_function, const listType/*t_20_ref_list*/ *const o_8820_params, structType/*t_164_expr_type*/ *const o_8821_c_expr) { /* line 3553 "../lib/comp/int_act.s7i" */ objRefType/*t_19_reference*/ o_8822_evaluatedParam=NULL; /* line 3554 "../lib/comp/int_act.s7i" */ structType/*t_164_expr_type*/ o_8823_statement; /* line 3555 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8824_variable_name; /* line 3556 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ o_8825_rshift_name; /* line 3554 "../lib/comp/int_act.s7i" */ o_8823_statement=create_164(sct[257]); /* line 3555 "../lib/comp/int_act.s7i" */ o_8824_variable_name=strEmpty(); /* "" */ /* line 3556 "../lib/comp/int_act.s7i" */ o_8825_rshift_name=strEmpty(); /* "" */ /* line 3558 "../lib/comp/int_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8820_params, 3L), 9L, &(o_8822_evaluatedParam))) { /* line 3559 "../lib/comp/int_act.s7i" */ o_8715_process_const_int_rshift_assign(rflIdx(*o_8820_params, 1L), intValue(o_8822_evaluatedParam), o_8821_c_expr); } else /* line 3560 "../lib/comp/int_act.s7i" */ if (o_3463_check_int_shift_overflow) { /* line 3561 "../lib/comp/int_act.s7i" */ ++(o_5111_countOverflowChecks); { /* line 3562 "../lib/comp/int_act.s7i" */ striType old_stri=o_8824_variable_name; /* line 3562 "../lib/comp/int_act.s7i" */ o_8824_variable_name=o_5043_getParameterAsReference(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8820_params, 1L), &(o_8823_statement)); /* line 3562 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } { /* line 3563 "../lib/comp/int_act.s7i" */ striType old_stri=o_8825_rshift_name; /* line 3563 "../lib/comp/int_act.s7i" */ o_8825_rshift_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8820_params, 3L), &(o_8823_statement)); /* line 3563 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 3564 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8823_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1193] /* "ovfChk(" */); { /* line 3565 "../lib/comp/int_act.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 3565 "../lib/comp/int_act.s7i" */ o_8323_checkRangeFromZero(o_8825_rshift_name, (tmp_1=(striType/*t_15_string*/)(o_6502_integerLiteral(((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/))), &(o_8823_statement)); /* line 3565 "../lib/comp/int_act.s7i" */ strDestr(tmp_1); } /* line 3566 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8823_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1195] /* ")?" */); /* line 3567 "../lib/comp/int_act.s7i" */ strAppendTemp(&(((structType)(o_8823_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[1196] /* "OVERFLOW_ERROR" */)); /* line 3568 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8823_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1157] /* ":(" */); /* line 3569 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8823_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8824_variable_name); /* line 3570 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8823_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1328] /* "=(intType)((uintType)(" */); /* line 3571 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8823_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8824_variable_name); /* line 3572 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8823_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1252] /* ") >> " */); /* line 3573 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8823_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8825_rshift_name); /* line 3574 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8823_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); /* line 3575 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8823_statement, o_8821_c_expr); } else { { /* line 3577 "../lib/comp/int_act.s7i" */ striType old_stri=o_8824_variable_name; /* line 3577 "../lib/comp/int_act.s7i" */ o_8824_variable_name=o_5043_getParameterAsReference(&str[101] /* "intType" */, &str[282] /* "tmp_" */, rflIdx(*o_8820_params, 1L), &(o_8823_statement)); /* line 3577 "../lib/comp/int_act.s7i" */ strDestr(old_stri); } /* line 3578 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8823_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8824_variable_name); /* line 3579 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8823_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1328] /* "=(intType)((uintType)(" */); /* line 3580 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8823_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_8824_variable_name); /* line 3581 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8823_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1310] /* ") >> (" */); /* line 3582 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8820_params, 3L), &(o_8823_statement)); /* line 3583 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8823_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); /* line 3584 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8823_statement, o_8821_c_expr); } /* line 3549 "../lib/comp/int_act.s7i" */ destr_164(o_8823_statement); /* line 3549 "../lib/comp/int_act.s7i" */ strDestr(o_8824_variable_name); /* line 3549 "../lib/comp/int_act.s7i" */ strDestr(o_8825_rshift_name); } /* line 1 "no_file" */ /* 4271 */ /* line 3589 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8826_INT_VALUE (const objRefType/*t_19_reference*/ o_8827_function, const listType/*t_20_ref_list*/ *const o_8828_params, structType/*t_164_expr_type*/ *const o_8829_c_expr) { /* line 3593 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8829_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1329] /* "intValue(" */); /* line 3594 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8828_params, 1L), o_8829_c_expr); /* line 3595 "../lib/comp/int_act.s7i" */ { /* line 3595 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3595 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8829_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3595 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3595 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 3595 "../lib/comp/int_act.s7i" */ } else { /* line 3595 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 3595 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3595 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4272 */ /* line 3599 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8830_INT_XOR (const objRefType/*t_19_reference*/ o_8831_function, const listType/*t_20_ref_list*/ *const o_8832_params, structType/*t_164_expr_type*/ *const o_8833_c_expr) { /* line 3603 "../lib/comp/int_act.s7i" */ { /* line 3603 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3603 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8833_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3603 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3603 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 3603 "../lib/comp/int_act.s7i" */ } else { /* line 3603 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 3603 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3603 "../lib/comp/int_act.s7i" */ } } /* line 3604 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8832_params, 1L), o_8833_c_expr); /* line 3605 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(*o_8833_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1330] /* ") ^ (" */); /* line 3606 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8832_params, 3L), o_8833_c_expr); /* line 3607 "../lib/comp/int_act.s7i" */ { /* line 3607 "../lib/comp/int_act.s7i" */ striType *tmp_1; /* line 3607 "../lib/comp/int_act.s7i" */ tmp_1=&(((structType)(*o_8833_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3607 "../lib/comp/int_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3607 "../lib/comp/int_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 3607 "../lib/comp/int_act.s7i" */ } else { /* line 3607 "../lib/comp/int_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 3607 "../lib/comp/int_act.s7i" */ (*tmp_1)->size++; /* line 3607 "../lib/comp/int_act.s7i" */ } } } /* line 1 "no_file" */ /* 4273 */ /* line 3611 "../lib/comp/int_act.s7i" */ static void/*t_1_void*/ o_8834_INT_XOR_ASSIGN (const objRefType/*t_19_reference*/ o_8835_function, const listType/*t_20_ref_list*/ *const o_8836_params, structType/*t_164_expr_type*/ *const o_8837_c_expr) { /* line 3615 "../lib/comp/int_act.s7i" */ structType/*t_164_expr_type*/ o_8838_statement; /* line 3615 "../lib/comp/int_act.s7i" */ o_8838_statement=create_164(sct[258]); /* line 3617 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8836_params, 1L), &(o_8838_statement)); /* line 3618 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8838_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1331] /* "^=" */); /* line 3619 "../lib/comp/int_act.s7i" */ o_4941_process_expr(rflIdx(*o_8836_params, 3L), &(o_8838_statement)); /* line 3620 "../lib/comp/int_act.s7i" */ strAppend(&(((structType)(o_8838_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 3621 "../lib/comp/int_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_8838_statement, o_8837_c_expr); /* line 3611 "../lib/comp/int_act.s7i" */ destr_164(o_8838_statement); } /* line 1 "no_file" */ /* 4274 */ /* 4275 */ /* 4276 */ /* line 37 "../lib/comp/itf_act.s7i" */ static void/*t_1_void*/ o_8839_itf_prototypes (interfaceType/*t_46_file*/ *const o_8840_c_prog) { /* line 40 "../lib/comp/itf_act.s7i" */ o_6547_declareExtern(o_8840_c_prog, &str[1332] /* "interfaceType itfCreate (const interfaceType);" */); /* line 41 "../lib/comp/itf_act.s7i" */ o_6547_declareExtern(o_8840_c_prog, &str[1333] /* "genericType itfCreateGeneric (const genericType);" */); } /* line 1 "no_file" */ /* 4277 */ /* line 45 "../lib/comp/itf_act.s7i" */ static void/*t_1_void*/ o_8841_ITF_CMP (const objRefType/*t_19_reference*/ o_8842_function, const listType/*t_20_ref_list*/ *const o_8843_params, structType/*t_164_expr_type*/ *const o_8844_c_expr) { /* line 49 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8844_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[874] /* "ptrCmp(" */); /* line 50 "../lib/comp/itf_act.s7i" */ o_4941_process_expr(rflIdx(*o_8843_params, 1L), o_8844_c_expr); /* line 51 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8844_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 52 "../lib/comp/itf_act.s7i" */ o_4941_process_expr(rflIdx(*o_8843_params, 2L), o_8844_c_expr); /* line 53 "../lib/comp/itf_act.s7i" */ { /* line 53 "../lib/comp/itf_act.s7i" */ striType *tmp_1; /* line 53 "../lib/comp/itf_act.s7i" */ tmp_1=&(((structType)(*o_8844_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 53 "../lib/comp/itf_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 53 "../lib/comp/itf_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 53 "../lib/comp/itf_act.s7i" */ } else { /* line 53 "../lib/comp/itf_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 53 "../lib/comp/itf_act.s7i" */ (*tmp_1)->size++; /* line 53 "../lib/comp/itf_act.s7i" */ } } } /* line 1 "no_file" */ /* 4278 */ /* line 57 "../lib/comp/itf_act.s7i" */ static void/*t_1_void*/ o_8845_ITF_CONV2 (const objRefType/*t_19_reference*/ o_8846_function, const listType/*t_20_ref_list*/ *const o_8847_params, structType/*t_164_expr_type*/ *const o_8848_c_expr) { /* line 61 "../lib/comp/itf_act.s7i" */ { /* line 61 "../lib/comp/itf_act.s7i" */ striType *tmp_1; /* line 61 "../lib/comp/itf_act.s7i" */ tmp_1=&(((structType)(*o_8848_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 61 "../lib/comp/itf_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 61 "../lib/comp/itf_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 61 "../lib/comp/itf_act.s7i" */ } else { /* line 61 "../lib/comp/itf_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 61 "../lib/comp/itf_act.s7i" */ (*tmp_1)->size++; /* line 61 "../lib/comp/itf_act.s7i" */ } } /* line 62 "../lib/comp/itf_act.s7i" */ o_4941_process_expr(rflIdx(*o_8847_params, 3L), o_8848_c_expr); /* line 63 "../lib/comp/itf_act.s7i" */ { /* line 63 "../lib/comp/itf_act.s7i" */ striType *tmp_1; /* line 63 "../lib/comp/itf_act.s7i" */ tmp_1=&(((structType)(*o_8848_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 63 "../lib/comp/itf_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 63 "../lib/comp/itf_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 63 "../lib/comp/itf_act.s7i" */ } else { /* line 63 "../lib/comp/itf_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 63 "../lib/comp/itf_act.s7i" */ (*tmp_1)->size++; /* line 63 "../lib/comp/itf_act.s7i" */ } } } /* line 1 "no_file" */ /* 4279 */ /* line 67 "../lib/comp/itf_act.s7i" */ static void/*t_1_void*/ o_8849_ITF_CPY (const objRefType/*t_19_reference*/ o_8850_function, const listType/*t_20_ref_list*/ *const o_8851_params, structType/*t_164_expr_type*/ *const o_8852_c_expr) { /* line 71 "../lib/comp/itf_act.s7i" */ structType/*t_164_expr_type*/ o_8853_c_param1; /* line 72 "../lib/comp/itf_act.s7i" */ structType/*t_164_expr_type*/ o_8854_c_param3; /* line 71 "../lib/comp/itf_act.s7i" */ o_8853_c_param1=create_164(sct[259]); /* line 72 "../lib/comp/itf_act.s7i" */ o_8854_c_param3=create_164(sct[260]); /* line 74 "../lib/comp/itf_act.s7i" */ o_4941_process_expr(rflIdx(*o_8851_params, 1L), &(o_8853_c_param1)); /* line 75 "../lib/comp/itf_act.s7i" */ ((structType)(o_8854_c_param3))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_8853_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 76 "../lib/comp/itf_act.s7i" */ o_4941_process_expr(rflIdx(*o_8851_params, 3L), &(o_8854_c_param3)); /* line 77 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8852_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 78 "../lib/comp/itf_act.s7i" */ if (o_5049_has_temp_values(o_8854_c_param3)) { /* line 79 "../lib/comp/itf_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8853_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_8852_c_expr); /* line 80 "../lib/comp/itf_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8854_c_param3))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_8852_c_expr); /* line 81 "../lib/comp/itf_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8853_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_8852_c_expr); /* line 82 "../lib/comp/itf_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8854_c_param3))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_8852_c_expr); } /* line 84 "../lib/comp/itf_act.s7i" */ o_4819_setDiagnosticLine(o_8852_c_expr); /* line 85 "../lib/comp/itf_act.s7i" */ if (o_5018_isNormalVariable(rflIdx(*o_8851_params, 1L))) { /* line 86 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8852_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1334] /* "structType old_struct=" */); /* line 87 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8852_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8853_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 88 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8852_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 89 "../lib/comp/itf_act.s7i" */ o_4819_setDiagnosticLine(o_8852_c_expr); /* line 90 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8852_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8853_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 91 "../lib/comp/itf_act.s7i" */ { /* line 91 "../lib/comp/itf_act.s7i" */ striType *tmp_1; /* line 91 "../lib/comp/itf_act.s7i" */ tmp_1=&(((structType)(*o_8852_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 91 "../lib/comp/itf_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 91 "../lib/comp/itf_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 91 "../lib/comp/itf_act.s7i" */ } else { /* line 91 "../lib/comp/itf_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 91 "../lib/comp/itf_act.s7i" */ (*tmp_1)->size++; /* line 91 "../lib/comp/itf_act.s7i" */ } } } else { /* line 93 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8852_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1335] /* "interfaceType *interface_ptr=&(" */); /* line 94 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8852_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8853_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 95 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8852_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 96 "../lib/comp/itf_act.s7i" */ o_4819_setDiagnosticLine(o_8852_c_expr); /* line 97 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8852_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1336] /* "structType old_struct=*interface_ptr;\n" */); /* line 98 "../lib/comp/itf_act.s7i" */ o_4819_setDiagnosticLine(o_8852_c_expr); /* line 99 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8852_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1337] /* "*interface_ptr=" */); } /* line 101 "../lib/comp/itf_act.s7i" */ if (((((structType)(o_8854_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 102 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8852_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8854_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 103 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8852_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); } else { /* line 105 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8852_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8854_c_param3))->stru[5].value.striValue/*->o_4783_expr*/); /* line 106 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8852_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 107 "../lib/comp/itf_act.s7i" */ o_4819_setDiagnosticLine(o_8852_c_expr); /* line 108 "../lib/comp/itf_act.s7i" */ if (o_5018_isNormalVariable(rflIdx(*o_8851_params, 1L))) { /* line 109 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8852_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1338] /* "if ((" */); /* line 110 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8852_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8853_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 111 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8852_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1339] /* ")->usage_count != 0) {(" */); /* line 112 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8852_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8853_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); } else { /* line 114 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8852_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1340] /* "if ((*interface_ptr)->usage_count != 0) {(*interface_ptr" */); } /* line 116 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8852_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1341] /* ")->usage_count++; }\n" */); } { /* line 118 "../lib/comp/itf_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 118 "../lib/comp/itf_act.s7i" */ o_4829_process_destr_declaration(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(o_4754_getExprResultType(rflIdx(*o_8851_params, 1L))), &tmp_1), &(o_4794_global_c_expr)); } /* line 119 "../lib/comp/itf_act.s7i" */ o_4819_setDiagnosticLine(o_8852_c_expr); { /* line 120 "../lib/comp/itf_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 120 "../lib/comp/itf_act.s7i" */ o_4832_process_destr_call(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(o_4754_getExprResultType(rflIdx(*o_8851_params, 1L))), &tmp_1), &str[1342] /* "old_struct" */, &(((structType)(*o_8852_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } /* line 122 "../lib/comp/itf_act.s7i" */ if (o_5049_has_temp_values(o_8854_c_param3)) { /* line 123 "../lib/comp/itf_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8853_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_8852_c_expr); /* line 124 "../lib/comp/itf_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8854_c_param3))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_8852_c_expr); } /* line 126 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8852_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 67 "../lib/comp/itf_act.s7i" */ destr_164(o_8853_c_param1); /* line 67 "../lib/comp/itf_act.s7i" */ destr_164(o_8854_c_param3); } /* line 1 "no_file" */ /* 4280 */ /* line 130 "../lib/comp/itf_act.s7i" */ static void/*t_1_void*/ o_8855_ITF_CPY2 (const objRefType/*t_19_reference*/ o_8856_function, const listType/*t_20_ref_list*/ *const o_8857_params, structType/*t_164_expr_type*/ *const o_8858_c_expr) { /* line 134 "../lib/comp/itf_act.s7i" */ o_8849_ITF_CPY(o_8856_function, o_8857_params, o_8858_c_expr); } /* line 1 "no_file" */ /* 4281 */ /* line 138 "../lib/comp/itf_act.s7i" */ static void/*t_1_void*/ o_8859_ITF_EQ (const objRefType/*t_19_reference*/ o_8860_function, const listType/*t_20_ref_list*/ *const o_8861_params, structType/*t_164_expr_type*/ *const o_8862_c_expr) { /* line 142 "../lib/comp/itf_act.s7i" */ { /* line 142 "../lib/comp/itf_act.s7i" */ striType *tmp_1; /* line 142 "../lib/comp/itf_act.s7i" */ tmp_1=&(((structType)(*o_8862_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 142 "../lib/comp/itf_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 142 "../lib/comp/itf_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 142 "../lib/comp/itf_act.s7i" */ } else { /* line 142 "../lib/comp/itf_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 142 "../lib/comp/itf_act.s7i" */ (*tmp_1)->size++; /* line 142 "../lib/comp/itf_act.s7i" */ } } /* line 143 "../lib/comp/itf_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_8861_params, 1L), o_8862_c_expr); /* line 144 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8862_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[350] /* ") == (" */); /* line 145 "../lib/comp/itf_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_8861_params, 3L), o_8862_c_expr); /* line 146 "../lib/comp/itf_act.s7i" */ { /* line 146 "../lib/comp/itf_act.s7i" */ striType *tmp_1; /* line 146 "../lib/comp/itf_act.s7i" */ tmp_1=&(((structType)(*o_8862_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 146 "../lib/comp/itf_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 146 "../lib/comp/itf_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 146 "../lib/comp/itf_act.s7i" */ } else { /* line 146 "../lib/comp/itf_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 146 "../lib/comp/itf_act.s7i" */ (*tmp_1)->size++; /* line 146 "../lib/comp/itf_act.s7i" */ } } } /* line 1 "no_file" */ /* 4282 */ /* line 150 "../lib/comp/itf_act.s7i" */ static void/*t_1_void*/ o_8863_ITF_HASHCODE (const objRefType/*t_19_reference*/ o_8864_function, const listType/*t_20_ref_list*/ *const o_8865_params, structType/*t_164_expr_type*/ *const o_8866_c_expr) { /* line 154 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8866_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[893] /* "(intType)(((memSizeType)(" */); /* line 155 "../lib/comp/itf_act.s7i" */ o_4941_process_expr(rflIdx(*o_8865_params, 1L), o_8866_c_expr); /* line 156 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8866_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[894] /* ")) >> 6)" */); } /* line 1 "no_file" */ /* 4283 */ /* line 160 "../lib/comp/itf_act.s7i" */ static void/*t_1_void*/ o_8867_ITF_NE (const objRefType/*t_19_reference*/ o_8868_function, const listType/*t_20_ref_list*/ *const o_8869_params, structType/*t_164_expr_type*/ *const o_8870_c_expr) { /* line 164 "../lib/comp/itf_act.s7i" */ { /* line 164 "../lib/comp/itf_act.s7i" */ striType *tmp_1; /* line 164 "../lib/comp/itf_act.s7i" */ tmp_1=&(((structType)(*o_8870_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 164 "../lib/comp/itf_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 164 "../lib/comp/itf_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 164 "../lib/comp/itf_act.s7i" */ } else { /* line 164 "../lib/comp/itf_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 164 "../lib/comp/itf_act.s7i" */ (*tmp_1)->size++; /* line 164 "../lib/comp/itf_act.s7i" */ } } /* line 165 "../lib/comp/itf_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_8869_params, 1L), o_8870_c_expr); /* line 166 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8870_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[352] /* ") != (" */); /* line 167 "../lib/comp/itf_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_8869_params, 3L), o_8870_c_expr); /* line 168 "../lib/comp/itf_act.s7i" */ { /* line 168 "../lib/comp/itf_act.s7i" */ striType *tmp_1; /* line 168 "../lib/comp/itf_act.s7i" */ tmp_1=&(((structType)(*o_8870_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 168 "../lib/comp/itf_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 168 "../lib/comp/itf_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 168 "../lib/comp/itf_act.s7i" */ } else { /* line 168 "../lib/comp/itf_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 168 "../lib/comp/itf_act.s7i" */ (*tmp_1)->size++; /* line 168 "../lib/comp/itf_act.s7i" */ } } } /* line 1 "no_file" */ /* 4284 */ /* line 172 "../lib/comp/itf_act.s7i" */ static void/*t_1_void*/ o_8871_ITF_TO_INTERFACE (const objRefType/*t_19_reference*/ o_8872_function, const listType/*t_20_ref_list*/ *const o_8873_params, structType/*t_164_expr_type*/ *const o_8874_c_expr) { /* line 176 "../lib/comp/itf_act.s7i" */ striType/*t_15_string*/ o_8875_result_name; /* line 176 "../lib/comp/itf_act.s7i" */ o_8875_result_name=strEmpty(); /* "" */ { /* line 178 "../lib/comp/itf_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 178 "../lib/comp/itf_act.s7i" */ o_4944_prepare_typed_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_8872_function))), &tmp_1), o_8874_c_expr); } /* line 179 "../lib/comp/itf_act.s7i" */ ++(((structType)(*o_8874_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 180 "../lib/comp/itf_act.s7i" */ union { /* line 180 "../lib/comp/itf_act.s7i" */ struct striStruct striBuf; /* line 180 "../lib/comp/itf_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 180 "../lib/comp/itf_act.s7i" */ } buffer_2; /* line 180 "../lib/comp/itf_act.s7i" */ striType old_stri=o_8875_result_name; /* line 180 "../lib/comp/itf_act.s7i" */ o_8875_result_name=strConcat(&str[1343] /* "result_" */, intStrToBuffer(((structType)(*o_8874_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 180 "../lib/comp/itf_act.s7i" */ strDestr(old_stri); } /* line 181 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8874_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[1344] /* "interfaceType " */); /* line 182 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8874_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_8875_result_name); /* line 183 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8874_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 184 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8874_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1345] /* "/* ITF_TO_INTERFACE *\/(" */); /* line 185 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8874_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_8875_result_name); /* line 186 "../lib/comp/itf_act.s7i" */ { /* line 186 "../lib/comp/itf_act.s7i" */ striType *tmp_1; /* line 186 "../lib/comp/itf_act.s7i" */ tmp_1=&(((structType)(*o_8874_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 186 "../lib/comp/itf_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 186 "../lib/comp/itf_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 186 "../lib/comp/itf_act.s7i" */ } else { /* line 186 "../lib/comp/itf_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 186 "../lib/comp/itf_act.s7i" */ (*tmp_1)->size++; /* line 186 "../lib/comp/itf_act.s7i" */ } } /* line 187 "../lib/comp/itf_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_8873_params, 1L), o_8874_c_expr); /* line 188 "../lib/comp/itf_act.s7i" */ { /* line 188 "../lib/comp/itf_act.s7i" */ striType *tmp_1; /* line 188 "../lib/comp/itf_act.s7i" */ tmp_1=&(((structType)(*o_8874_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 188 "../lib/comp/itf_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 188 "../lib/comp/itf_act.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 188 "../lib/comp/itf_act.s7i" */ } else { /* line 188 "../lib/comp/itf_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 188 "../lib/comp/itf_act.s7i" */ (*tmp_1)->size++; /* line 188 "../lib/comp/itf_act.s7i" */ } } /* line 189 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8874_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_8875_result_name); /* line 190 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8874_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1346] /* "->usage_count!=0 ? " */); /* line 191 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8874_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_8875_result_name); /* line 192 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8874_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1347] /* "->usage_count++ : 0," */); /* line 193 "../lib/comp/itf_act.s7i" */ strAppend(&(((structType)(*o_8874_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_8875_result_name); /* line 194 "../lib/comp/itf_act.s7i" */ { /* line 194 "../lib/comp/itf_act.s7i" */ striType *tmp_1; /* line 194 "../lib/comp/itf_act.s7i" */ tmp_1=&(((structType)(*o_8874_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 194 "../lib/comp/itf_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 194 "../lib/comp/itf_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 194 "../lib/comp/itf_act.s7i" */ } else { /* line 194 "../lib/comp/itf_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 194 "../lib/comp/itf_act.s7i" */ (*tmp_1)->size++; /* line 194 "../lib/comp/itf_act.s7i" */ } } /* line 172 "../lib/comp/itf_act.s7i" */ strDestr(o_8875_result_name); } /* line 1 "no_file" */ /* 4285 */ /* line 36 "../lib/comp/kbd_act.s7i" */ static void/*t_1_void*/ o_8876_kbd_prototypes (interfaceType/*t_46_file*/ *const o_8877_c_prog) { /* line 39 "../lib/comp/kbd_act.s7i" */ o_6547_declareExtern(o_8877_c_prog, &str[1348] /* "charType kbdGetc (void);" */); /* line 40 "../lib/comp/kbd_act.s7i" */ o_6547_declareExtern(o_8877_c_prog, &str[1349] /* "striType kbdGets (intType);" */); /* line 41 "../lib/comp/kbd_act.s7i" */ o_6547_declareExtern(o_8877_c_prog, &str[1350] /* "boolType kbdKeyPressed (void);" */); /* line 42 "../lib/comp/kbd_act.s7i" */ o_6547_declareExtern(o_8877_c_prog, &str[1351] /* "striType kbdLineRead (charType *);" */); /* line 43 "../lib/comp/kbd_act.s7i" */ o_6547_declareExtern(o_8877_c_prog, &str[1352] /* "charType kbdRawGetc (void);" */); /* line 44 "../lib/comp/kbd_act.s7i" */ o_6547_declareExtern(o_8877_c_prog, &str[1353] /* "striType kbdWordRead (charType *);" */); } /* line 1 "no_file" */ /* 4286 */ /* line 48 "../lib/comp/kbd_act.s7i" */ static void/*t_1_void*/ o_8878_KBD_BUSY_GETC (const objRefType/*t_19_reference*/ o_8879_function, const listType/*t_20_ref_list*/ *const o_8880_params, structType/*t_164_expr_type*/ *const o_8881_c_expr) { /* line 52 "../lib/comp/kbd_act.s7i" */ strAppend(&(((structType)(*o_8881_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1354] /* "(kbdKeyPressed() ? kbdGetc() : " */); /* line 53 "../lib/comp/kbd_act.s7i" */ strAppendTemp(&(((structType)(*o_8881_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6500_charLiteral((charType) 1114368)); /* line 54 "../lib/comp/kbd_act.s7i" */ { /* line 54 "../lib/comp/kbd_act.s7i" */ striType *tmp_1; /* line 54 "../lib/comp/kbd_act.s7i" */ tmp_1=&(((structType)(*o_8881_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 54 "../lib/comp/kbd_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 54 "../lib/comp/kbd_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 54 "../lib/comp/kbd_act.s7i" */ } else { /* line 54 "../lib/comp/kbd_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 54 "../lib/comp/kbd_act.s7i" */ (*tmp_1)->size++; /* line 54 "../lib/comp/kbd_act.s7i" */ } } } /* line 1 "no_file" */ /* 4287 */ /* line 58 "../lib/comp/kbd_act.s7i" */ static void/*t_1_void*/ o_8882_KBD_GETC (const objRefType/*t_19_reference*/ o_8883_function, const listType/*t_20_ref_list*/ *const o_8884_params, structType/*t_164_expr_type*/ *const o_8885_c_expr) { /* line 62 "../lib/comp/kbd_act.s7i" */ strAppend(&(((structType)(*o_8885_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1355] /* "kbdGetc()" */); } /* line 1 "no_file" */ /* 4288 */ /* line 66 "../lib/comp/kbd_act.s7i" */ static void/*t_1_void*/ o_8886_KBD_GETS (const objRefType/*t_19_reference*/ o_8887_function, const listType/*t_20_ref_list*/ *const o_8888_params, structType/*t_164_expr_type*/ *const o_8889_c_expr) { /* line 70 "../lib/comp/kbd_act.s7i" */ o_4955_prepare_stri_result(o_8889_c_expr); /* line 71 "../lib/comp/kbd_act.s7i" */ strCopy(&(((structType)(*o_8889_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1356] /* "kbdGets(" */); /* line 72 "../lib/comp/kbd_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_8888_params, 2L), o_8889_c_expr); /* line 73 "../lib/comp/kbd_act.s7i" */ { /* line 73 "../lib/comp/kbd_act.s7i" */ striType *tmp_1; /* line 73 "../lib/comp/kbd_act.s7i" */ tmp_1=&(((structType)(*o_8889_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 73 "../lib/comp/kbd_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 73 "../lib/comp/kbd_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 73 "../lib/comp/kbd_act.s7i" */ } else { /* line 73 "../lib/comp/kbd_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 73 "../lib/comp/kbd_act.s7i" */ (*tmp_1)->size++; /* line 73 "../lib/comp/kbd_act.s7i" */ } } } /* line 1 "no_file" */ /* 4289 */ /* line 77 "../lib/comp/kbd_act.s7i" */ static void/*t_1_void*/ o_8890_KBD_KEYPRESSED (const objRefType/*t_19_reference*/ o_8891_function, const listType/*t_20_ref_list*/ *const o_8892_params, structType/*t_164_expr_type*/ *const o_8893_c_expr) { /* line 81 "../lib/comp/kbd_act.s7i" */ strAppend(&(((structType)(*o_8893_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1357] /* "kbdKeyPressed()" */); } /* line 1 "no_file" */ /* 4290 */ /* line 85 "../lib/comp/kbd_act.s7i" */ static void/*t_1_void*/ o_8894_KBD_LINE_READ (const objRefType/*t_19_reference*/ o_8895_function, const listType/*t_20_ref_list*/ *const o_8896_params, structType/*t_164_expr_type*/ *const o_8897_c_expr) { /* line 89 "../lib/comp/kbd_act.s7i" */ o_4955_prepare_stri_result(o_8897_c_expr); /* line 90 "../lib/comp/kbd_act.s7i" */ strCopy(&(((structType)(*o_8897_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1358] /* "kbdLineRead(&(" */); /* line 91 "../lib/comp/kbd_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_8896_params, 2L), o_8897_c_expr); /* line 92 "../lib/comp/kbd_act.s7i" */ strAppend(&(((structType)(*o_8897_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 4291 */ /* line 96 "../lib/comp/kbd_act.s7i" */ static void/*t_1_void*/ o_8898_KBD_RAW_GETC (const objRefType/*t_19_reference*/ o_8899_function, const listType/*t_20_ref_list*/ *const o_8900_params, structType/*t_164_expr_type*/ *const o_8901_c_expr) { /* line 100 "../lib/comp/kbd_act.s7i" */ strAppend(&(((structType)(*o_8901_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1359] /* "kbdRawGetc()" */); } /* line 1 "no_file" */ /* 4292 */ /* line 104 "../lib/comp/kbd_act.s7i" */ static void/*t_1_void*/ o_8902_KBD_WORD_READ (const objRefType/*t_19_reference*/ o_8903_function, const listType/*t_20_ref_list*/ *const o_8904_params, structType/*t_164_expr_type*/ *const o_8905_c_expr) { /* line 108 "../lib/comp/kbd_act.s7i" */ o_4955_prepare_stri_result(o_8905_c_expr); /* line 109 "../lib/comp/kbd_act.s7i" */ strCopy(&(((structType)(*o_8905_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1360] /* "kbdWordRead(&(" */); /* line 110 "../lib/comp/kbd_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_8904_params, 2L), o_8905_c_expr); /* line 111 "../lib/comp/kbd_act.s7i" */ strAppend(&(((structType)(*o_8905_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 4293 */ /* 4294 */ /* 4295 */ /* line 41 "../lib/comp/pol_act.s7i" */ static void/*t_1_void*/ o_8906_pol_prototypes (interfaceType/*t_46_file*/ *const o_8907_c_prog) { /* line 44 "../lib/comp/pol_act.s7i" */ o_6547_declareExtern(o_8907_c_prog, &str[1361] /* "void polAddCheck (const pollType, const socketType, intType, const genericType);" */); /* line 45 "../lib/comp/pol_act.s7i" */ o_6547_declareExtern(o_8907_c_prog, &str[1362] /* "void polClear (const pollType);" */); /* line 46 "../lib/comp/pol_act.s7i" */ o_6547_declareExtern(o_8907_c_prog, &str[1363] /* "void polCpy (const pollType, const const_pollType);" */); /* line 47 "../lib/comp/pol_act.s7i" */ o_6547_declareExtern(o_8907_c_prog, &str[1364] /* "pollType polCreate (const const_pollType);" */); /* line 48 "../lib/comp/pol_act.s7i" */ o_6547_declareExtern(o_8907_c_prog, &str[1365] /* "void polDestr (const pollType);" */); /* line 49 "../lib/comp/pol_act.s7i" */ o_6547_declareExtern(o_8907_c_prog, &str[1366] /* "pollType polEmpty (void);" */); /* line 50 "../lib/comp/pol_act.s7i" */ o_6547_declareExtern(o_8907_c_prog, &str[1367] /* "intType polGetCheck (const const_pollType, const socketType);" */); /* line 51 "../lib/comp/pol_act.s7i" */ o_6547_declareExtern(o_8907_c_prog, &str[1368] /* "intType polGetFinding (const const_pollType, const socketType);" */); /* line 52 "../lib/comp/pol_act.s7i" */ o_6547_declareExtern(o_8907_c_prog, &str[1369] /* "boolType polHasNext (const pollType);" */); /* line 53 "../lib/comp/pol_act.s7i" */ o_6547_declareExtern(o_8907_c_prog, &str[1370] /* "void polIterChecks (const pollType, intType);" */); /* line 54 "../lib/comp/pol_act.s7i" */ o_6547_declareExtern(o_8907_c_prog, &str[1371] /* "void polIterFindings (const pollType, intType);" */); /* line 55 "../lib/comp/pol_act.s7i" */ o_6547_declareExtern(o_8907_c_prog, &str[1372] /* "genericType polNextFile (const pollType, const genericType);" */); /* line 56 "../lib/comp/pol_act.s7i" */ o_6547_declareExtern(o_8907_c_prog, &str[1373] /* "void polPoll (const pollType);" */); /* line 57 "../lib/comp/pol_act.s7i" */ o_6547_declareExtern(o_8907_c_prog, &str[1374] /* "void polRemoveCheck (const pollType, const socketType, intType);" */); /* line 58 "../lib/comp/pol_act.s7i" */ o_6547_declareExtern(o_8907_c_prog, &str[1375] /* "pollType polValue (objRefType);" */); } /* line 1 "no_file" */ /* 4296 */ /* line 62 "../lib/comp/pol_act.s7i" */ static void/*t_1_void*/ o_8908_POL_ADD_CHECK (const objRefType/*t_19_reference*/ o_8909_function, const listType/*t_20_ref_list*/ *const o_8910_params, structType/*t_164_expr_type*/ *const o_8911_c_expr) { /* line 66 "../lib/comp/pol_act.s7i" */ o_4819_setDiagnosticLine(o_8911_c_expr); /* line 67 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8911_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1376] /* "polAddCheck(" */); /* line 68 "../lib/comp/pol_act.s7i" */ o_4941_process_expr(rflIdx(*o_8910_params, 1L), o_8911_c_expr); /* line 69 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8911_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 70 "../lib/comp/pol_act.s7i" */ o_4941_process_expr(rflIdx(*o_8910_params, 2L), o_8911_c_expr); /* line 71 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8911_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 72 "../lib/comp/pol_act.s7i" */ o_4941_process_expr(rflIdx(*o_8910_params, 3L), o_8911_c_expr); /* line 73 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8911_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[386] /* ", (genericType)(" */); /* line 74 "../lib/comp/pol_act.s7i" */ o_4941_process_expr(rflIdx(*o_8910_params, 4L), o_8911_c_expr); /* line 75 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8911_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); } /* line 1 "no_file" */ /* 4297 */ /* line 79 "../lib/comp/pol_act.s7i" */ static void/*t_1_void*/ o_8912_POL_CLEAR (const objRefType/*t_19_reference*/ o_8913_function, const listType/*t_20_ref_list*/ *const o_8914_params, structType/*t_164_expr_type*/ *const o_8915_c_expr) { /* line 83 "../lib/comp/pol_act.s7i" */ o_4819_setDiagnosticLine(o_8915_c_expr); /* line 84 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8915_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1377] /* "polClear(" */); /* line 85 "../lib/comp/pol_act.s7i" */ o_4941_process_expr(rflIdx(*o_8914_params, 1L), o_8915_c_expr); /* line 86 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8915_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4298 */ /* line 90 "../lib/comp/pol_act.s7i" */ static void/*t_1_void*/ o_8916_POL_CPY (const objRefType/*t_19_reference*/ o_8917_function, const listType/*t_20_ref_list*/ *const o_8918_params, structType/*t_164_expr_type*/ *const o_8919_c_expr) { /* line 94 "../lib/comp/pol_act.s7i" */ structType/*t_164_expr_type*/ o_8920_c_param1; /* line 95 "../lib/comp/pol_act.s7i" */ structType/*t_164_expr_type*/ o_8921_c_param3; /* line 94 "../lib/comp/pol_act.s7i" */ o_8920_c_param1=create_164(sct[261]); /* line 95 "../lib/comp/pol_act.s7i" */ o_8921_c_param3=create_164(sct[262]); /* line 97 "../lib/comp/pol_act.s7i" */ o_4941_process_expr(rflIdx(*o_8918_params, 1L), &(o_8920_c_param1)); /* line 98 "../lib/comp/pol_act.s7i" */ ((structType)(o_8921_c_param3))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_8920_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 99 "../lib/comp/pol_act.s7i" */ o_4941_process_expr(rflIdx(*o_8918_params, 3L), &(o_8921_c_param3)); /* line 100 "../lib/comp/pol_act.s7i" */ if (o_5049_has_temp_values(o_8921_c_param3)) { /* line 101 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8919_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 102 "../lib/comp/pol_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8920_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_8919_c_expr); /* line 103 "../lib/comp/pol_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8921_c_param3))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_8919_c_expr); /* line 104 "../lib/comp/pol_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8920_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_8919_c_expr); /* line 105 "../lib/comp/pol_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8921_c_param3))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_8919_c_expr); } /* line 107 "../lib/comp/pol_act.s7i" */ if (((((structType)(o_8921_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 108 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8919_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 109 "../lib/comp/pol_act.s7i" */ o_4819_setDiagnosticLine(o_8919_c_expr); /* line 110 "../lib/comp/pol_act.s7i" */ if (o_5018_isNormalVariable(rflIdx(*o_8918_params, 1L))) { /* line 111 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8919_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1378] /* "pollType old_poll=" */); /* line 112 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8919_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8920_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 113 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8919_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 114 "../lib/comp/pol_act.s7i" */ o_4819_setDiagnosticLine(o_8919_c_expr); /* line 115 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8919_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8920_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 116 "../lib/comp/pol_act.s7i" */ { /* line 116 "../lib/comp/pol_act.s7i" */ striType *tmp_1; /* line 116 "../lib/comp/pol_act.s7i" */ tmp_1=&(((structType)(*o_8919_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 116 "../lib/comp/pol_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 116 "../lib/comp/pol_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 116 "../lib/comp/pol_act.s7i" */ } else { /* line 116 "../lib/comp/pol_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 116 "../lib/comp/pol_act.s7i" */ (*tmp_1)->size++; /* line 116 "../lib/comp/pol_act.s7i" */ } } } else { /* line 118 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8919_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1379] /* "pollType *poll_ptr=&(" */); /* line 119 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8919_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8920_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 120 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8919_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 121 "../lib/comp/pol_act.s7i" */ o_4819_setDiagnosticLine(o_8919_c_expr); /* line 122 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8919_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1380] /* "pollType old_poll=*poll_ptr;\n" */); /* line 123 "../lib/comp/pol_act.s7i" */ o_4819_setDiagnosticLine(o_8919_c_expr); /* line 124 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8919_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1381] /* "*poll_ptr=" */); } /* line 126 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8919_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8921_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 127 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8919_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 128 "../lib/comp/pol_act.s7i" */ o_4819_setDiagnosticLine(o_8919_c_expr); /* line 129 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8919_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1382] /* "polDestr(old_poll);\n" */); /* line 130 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8919_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } else { /* line 132 "../lib/comp/pol_act.s7i" */ o_4819_setDiagnosticLine(o_8919_c_expr); /* line 133 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8919_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[271] /* "polCpy(" */); /* line 134 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8919_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8920_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 135 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8919_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 136 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8919_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8921_c_param3))->stru[5].value.striValue/*->o_4783_expr*/); /* line 137 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8919_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 139 "../lib/comp/pol_act.s7i" */ if (o_5049_has_temp_values(o_8921_c_param3)) { /* line 140 "../lib/comp/pol_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8920_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_8919_c_expr); /* line 141 "../lib/comp/pol_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8921_c_param3))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_8919_c_expr); /* line 142 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8919_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 90 "../lib/comp/pol_act.s7i" */ destr_164(o_8920_c_param1); /* line 90 "../lib/comp/pol_act.s7i" */ destr_164(o_8921_c_param3); } /* line 1 "no_file" */ /* 4299 */ /* line 147 "../lib/comp/pol_act.s7i" */ static void/*t_1_void*/ o_8922_POL_GET_CHECK (const objRefType/*t_19_reference*/ o_8923_function, const listType/*t_20_ref_list*/ *const o_8924_params, structType/*t_164_expr_type*/ *const o_8925_c_expr) { /* line 151 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8925_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1383] /* "polGetCheck(" */); /* line 152 "../lib/comp/pol_act.s7i" */ o_4941_process_expr(rflIdx(*o_8924_params, 1L), o_8925_c_expr); /* line 153 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8925_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 154 "../lib/comp/pol_act.s7i" */ o_4941_process_expr(rflIdx(*o_8924_params, 2L), o_8925_c_expr); /* line 155 "../lib/comp/pol_act.s7i" */ { /* line 155 "../lib/comp/pol_act.s7i" */ striType *tmp_1; /* line 155 "../lib/comp/pol_act.s7i" */ tmp_1=&(((structType)(*o_8925_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 155 "../lib/comp/pol_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 155 "../lib/comp/pol_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 155 "../lib/comp/pol_act.s7i" */ } else { /* line 155 "../lib/comp/pol_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 155 "../lib/comp/pol_act.s7i" */ (*tmp_1)->size++; /* line 155 "../lib/comp/pol_act.s7i" */ } } } /* line 1 "no_file" */ /* 4300 */ /* line 159 "../lib/comp/pol_act.s7i" */ static void/*t_1_void*/ o_8926_POL_GET_FINDING (const objRefType/*t_19_reference*/ o_8927_function, const listType/*t_20_ref_list*/ *const o_8928_params, structType/*t_164_expr_type*/ *const o_8929_c_expr) { /* line 163 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8929_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1384] /* "polGetFinding(" */); /* line 164 "../lib/comp/pol_act.s7i" */ o_4941_process_expr(rflIdx(*o_8928_params, 1L), o_8929_c_expr); /* line 165 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8929_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 166 "../lib/comp/pol_act.s7i" */ o_4941_process_expr(rflIdx(*o_8928_params, 2L), o_8929_c_expr); /* line 167 "../lib/comp/pol_act.s7i" */ { /* line 167 "../lib/comp/pol_act.s7i" */ striType *tmp_1; /* line 167 "../lib/comp/pol_act.s7i" */ tmp_1=&(((structType)(*o_8929_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 167 "../lib/comp/pol_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 167 "../lib/comp/pol_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 167 "../lib/comp/pol_act.s7i" */ } else { /* line 167 "../lib/comp/pol_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 167 "../lib/comp/pol_act.s7i" */ (*tmp_1)->size++; /* line 167 "../lib/comp/pol_act.s7i" */ } } } /* line 1 "no_file" */ /* 4301 */ /* line 171 "../lib/comp/pol_act.s7i" */ static void/*t_1_void*/ o_8930_POL_HAS_NEXT (const objRefType/*t_19_reference*/ o_8931_function, const listType/*t_20_ref_list*/ *const o_8932_params, structType/*t_164_expr_type*/ *const o_8933_c_expr) { /* line 175 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8933_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1385] /* "polHasNext(" */); /* line 176 "../lib/comp/pol_act.s7i" */ o_4941_process_expr(rflIdx(*o_8932_params, 1L), o_8933_c_expr); /* line 177 "../lib/comp/pol_act.s7i" */ { /* line 177 "../lib/comp/pol_act.s7i" */ striType *tmp_1; /* line 177 "../lib/comp/pol_act.s7i" */ tmp_1=&(((structType)(*o_8933_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 177 "../lib/comp/pol_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 177 "../lib/comp/pol_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 177 "../lib/comp/pol_act.s7i" */ } else { /* line 177 "../lib/comp/pol_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 177 "../lib/comp/pol_act.s7i" */ (*tmp_1)->size++; /* line 177 "../lib/comp/pol_act.s7i" */ } } } /* line 1 "no_file" */ /* 4302 */ /* line 181 "../lib/comp/pol_act.s7i" */ static void/*t_1_void*/ o_8934_POL_ITER_CHECKS (const objRefType/*t_19_reference*/ o_8935_function, const listType/*t_20_ref_list*/ *const o_8936_params, structType/*t_164_expr_type*/ *const o_8937_c_expr) { /* line 185 "../lib/comp/pol_act.s7i" */ o_4819_setDiagnosticLine(o_8937_c_expr); /* line 186 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8937_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1386] /* "polIterChecks(" */); /* line 187 "../lib/comp/pol_act.s7i" */ o_4941_process_expr(rflIdx(*o_8936_params, 1L), o_8937_c_expr); /* line 188 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8937_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 189 "../lib/comp/pol_act.s7i" */ o_4941_process_expr(rflIdx(*o_8936_params, 2L), o_8937_c_expr); /* line 190 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8937_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4303 */ /* line 194 "../lib/comp/pol_act.s7i" */ static void/*t_1_void*/ o_8938_POL_ITER_FINDINGS (const objRefType/*t_19_reference*/ o_8939_function, const listType/*t_20_ref_list*/ *const o_8940_params, structType/*t_164_expr_type*/ *const o_8941_c_expr) { /* line 198 "../lib/comp/pol_act.s7i" */ o_4819_setDiagnosticLine(o_8941_c_expr); /* line 199 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8941_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1387] /* "polIterFindings(" */); /* line 200 "../lib/comp/pol_act.s7i" */ o_4941_process_expr(rflIdx(*o_8940_params, 1L), o_8941_c_expr); /* line 201 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8941_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 202 "../lib/comp/pol_act.s7i" */ o_4941_process_expr(rflIdx(*o_8940_params, 2L), o_8941_c_expr); /* line 203 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8941_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4304 */ /* line 207 "../lib/comp/pol_act.s7i" */ static void/*t_1_void*/ o_8942_POL_NEXT_FILE (const objRefType/*t_19_reference*/ o_8943_function, const listType/*t_20_ref_list*/ *const o_8944_params, structType/*t_164_expr_type*/ *const o_8945_c_expr) { /* line 211 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8945_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1388] /* "polNextFile(" */); /* line 212 "../lib/comp/pol_act.s7i" */ o_4941_process_expr(rflIdx(*o_8944_params, 1L), o_8945_c_expr); /* line 213 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8945_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[386] /* ", (genericType)(" */); /* line 214 "../lib/comp/pol_act.s7i" */ o_4941_process_expr(rflIdx(*o_8944_params, 2L), o_8945_c_expr); /* line 215 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8945_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 4305 */ /* line 219 "../lib/comp/pol_act.s7i" */ static void/*t_1_void*/ o_8946_POL_POLL (const objRefType/*t_19_reference*/ o_8947_function, const listType/*t_20_ref_list*/ *const o_8948_params, structType/*t_164_expr_type*/ *const o_8949_c_expr) { /* line 223 "../lib/comp/pol_act.s7i" */ o_4819_setDiagnosticLine(o_8949_c_expr); /* line 224 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8949_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1389] /* "polPoll(" */); /* line 225 "../lib/comp/pol_act.s7i" */ o_4941_process_expr(rflIdx(*o_8948_params, 1L), o_8949_c_expr); /* line 226 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8949_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4306 */ /* line 230 "../lib/comp/pol_act.s7i" */ static void/*t_1_void*/ o_8950_POL_REMOVE_CHECK (const objRefType/*t_19_reference*/ o_8951_function, const listType/*t_20_ref_list*/ *const o_8952_params, structType/*t_164_expr_type*/ *const o_8953_c_expr) { /* line 234 "../lib/comp/pol_act.s7i" */ o_4819_setDiagnosticLine(o_8953_c_expr); /* line 235 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8953_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1390] /* "polRemoveCheck(" */); /* line 236 "../lib/comp/pol_act.s7i" */ o_4941_process_expr(rflIdx(*o_8952_params, 1L), o_8953_c_expr); /* line 237 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8953_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 238 "../lib/comp/pol_act.s7i" */ o_4941_process_expr(rflIdx(*o_8952_params, 2L), o_8953_c_expr); /* line 239 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8953_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 240 "../lib/comp/pol_act.s7i" */ o_4941_process_expr(rflIdx(*o_8952_params, 3L), o_8953_c_expr); /* line 241 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8953_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4307 */ /* line 245 "../lib/comp/pol_act.s7i" */ static void/*t_1_void*/ o_8954_POL_VALUE (const objRefType/*t_19_reference*/ o_8955_function, const listType/*t_20_ref_list*/ *const o_8956_params, structType/*t_164_expr_type*/ *const o_8957_c_expr) { /* line 249 "../lib/comp/pol_act.s7i" */ strAppend(&(((structType)(*o_8957_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1391] /* "polValue(" */); /* line 250 "../lib/comp/pol_act.s7i" */ o_4941_process_expr(rflIdx(*o_8956_params, 1L), o_8957_c_expr); /* line 251 "../lib/comp/pol_act.s7i" */ { /* line 251 "../lib/comp/pol_act.s7i" */ striType *tmp_1; /* line 251 "../lib/comp/pol_act.s7i" */ tmp_1=&(((structType)(*o_8957_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 251 "../lib/comp/pol_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 251 "../lib/comp/pol_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 251 "../lib/comp/pol_act.s7i" */ } else { /* line 251 "../lib/comp/pol_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 251 "../lib/comp/pol_act.s7i" */ (*tmp_1)->size++; /* line 251 "../lib/comp/pol_act.s7i" */ } } } /* line 1 "no_file" */ /* 4308 */ /* 4309 */ /* line 47 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_8958_process_statements (const structType/*t_164_expr_type*/ o_8959_statements, structType/*t_164_expr_type*/ *const o_8960_c_expr) { /* line 50 "../lib/comp/prc_act.s7i" */ strCopy(&(((structType)(*o_8960_c_expr))->stru[0].value.striValue/*->o_4778_currentFile*/), ((structType)(o_8959_statements))->stru[0].value.striValue/*->o_4778_currentFile*/); /* line 51 "../lib/comp/prc_act.s7i" */ ((structType)(*o_8960_c_expr))->stru[1].value.intValue/*->o_4779_currentLine*/=((structType)(o_8959_statements))->stru[1].value.intValue/*->o_4779_currentLine*/; /* line 52 "../lib/comp/prc_act.s7i" */ if ((((structType)(o_8959_statements))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 53 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8959_statements))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_8960_c_expr); /* line 54 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8959_statements))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_8960_c_expr); /* line 55 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8960_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8959_statements))->stru[5].value.striValue/*->o_4783_expr*/); /* line 56 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8959_statements))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_8960_c_expr); } else { /* line 58 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8960_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8959_statements))->stru[5].value.striValue/*->o_4783_expr*/); } } /* line 1 "no_file" */ /* 4310 */ /* line 63 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_8961_process_statements (const structType/*t_164_expr_type*/ o_8962_condition, const structType/*t_164_expr_type*/ o_8963_statements, structType/*t_164_expr_type*/ *const o_8964_c_expr) { /* line 66 "../lib/comp/prc_act.s7i" */ strCopy(&(((structType)(*o_8964_c_expr))->stru[0].value.striValue/*->o_4778_currentFile*/), ((structType)(o_8963_statements))->stru[0].value.striValue/*->o_4778_currentFile*/); /* line 67 "../lib/comp/prc_act.s7i" */ ((structType)(*o_8964_c_expr))->stru[1].value.intValue/*->o_4779_currentLine*/=((structType)(o_8963_statements))->stru[1].value.intValue/*->o_4779_currentLine*/; /* line 68 "../lib/comp/prc_act.s7i" */ if ((((structType)(o_8963_statements))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 69 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8963_statements))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_8964_c_expr); /* line 70 "../lib/comp/prc_act.s7i" */ if ((((structType)(o_8962_condition))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 71 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8962_condition))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_8964_c_expr); /* line 72 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8962_condition))->stru[7].value.striValue/*->o_4785_temp_to_null*/, o_8964_c_expr); } /* line 74 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8963_statements))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_8964_c_expr); /* line 75 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8964_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8963_statements))->stru[5].value.striValue/*->o_4783_expr*/); /* line 76 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8963_statements))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_8964_c_expr); } else { /* line 78 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8964_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8963_statements))->stru[5].value.striValue/*->o_4783_expr*/); } } /* line 1 "no_file" */ /* 4311 */ static void/*t_1_void*/ o_6543_process_action (const objRefType/*t_19_reference*/ o_6544_function, const listType/*t_20_ref_list*/ *const o_6545_params, structType/*t_164_expr_type*/ *const o_6546_c_expr); /* line 83 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_8965_process_else (const objRefType/*t_19_reference*/ o_8966_else_part, const boolType/*t_13_boolean*/ o_8967_insertKeyword, structType/*t_164_expr_type*/ *const o_8968_c_expr) { /* line 87 "../lib/comp/prc_act.s7i" */ intType/*t_86_category*/ o_8969_functionCategory=0; /* line 88 "../lib/comp/prc_act.s7i" */ listType/*t_20_ref_list*/ o_8970_params=NULL; /* line 89 "../lib/comp/prc_act.s7i" */ objRefType/*t_19_reference*/ o_8971_function=NULL; /* line 90 "../lib/comp/prc_act.s7i" */ structType/*t_164_expr_type*/ o_8972_c_param2; /* line 91 "../lib/comp/prc_act.s7i" */ striType/*t_15_string*/ o_8973_action_name; /* line 90 "../lib/comp/prc_act.s7i" */ o_8972_c_param2=create_164(sct[263]); /* line 91 "../lib/comp/prc_act.s7i" */ o_8973_action_name=strEmpty(); /* "" */ /* line 93 "../lib/comp/prc_act.s7i" */ if ((refCategory(o_8966_else_part)) == (6L)) { { /* line 94 "../lib/comp/prc_act.s7i" */ listType old_rfl=o_8970_params; /* line 94 "../lib/comp/prc_act.s7i" */ o_8970_params=rflValue(o_8966_else_part); /* line 94 "../lib/comp/prc_act.s7i" */ rflDestr(old_rfl); } /* line 95 "../lib/comp/prc_act.s7i" */ o_8971_function=rflIdx(o_8970_params, 1L); { /* line 96 "../lib/comp/prc_act.s7i" */ listType old_rfl=o_8970_params; /* line 96 "../lib/comp/prc_act.s7i" */ o_8970_params=rflTail(o_8970_params, 2L); /* line 96 "../lib/comp/prc_act.s7i" */ rflDestr(old_rfl); } /* line 97 "../lib/comp/prc_act.s7i" */ o_8969_functionCategory=refCategory(o_8971_function); /* line 98 "../lib/comp/prc_act.s7i" */ if ((o_8969_functionCategory) == (28L)) { /* line 99 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(o_8970_params, 2L), &(o_8972_c_param2)); /* line 100 "../lib/comp/prc_act.s7i" */ if (o_8967_insertKeyword) { /* line 101 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8968_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1392] /* "else {\n" */); } /* line 103 "../lib/comp/prc_act.s7i" */ o_8958_process_statements(o_8972_c_param2, o_8968_c_expr); /* line 104 "../lib/comp/prc_act.s7i" */ if (o_8967_insertKeyword) { /* line 105 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8968_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } } else /* line 107 "../lib/comp/prc_act.s7i" */ if ((o_8969_functionCategory) == (33L)) { /* line 108 "../lib/comp/prc_act.s7i" */ if (o_8967_insertKeyword) { /* line 109 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8968_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1393] /* "else\n" */); } /* line 111 "../lib/comp/prc_act.s7i" */ strCopy(&(((structType)(*o_8968_c_expr))->stru[0].value.striValue/*->o_4778_currentFile*/), refFile(o_8966_else_part)); /* line 112 "../lib/comp/prc_act.s7i" */ ((structType)(*o_8968_c_expr))->stru[1].value.intValue/*->o_4779_currentLine*/=refLine(o_8966_else_part); /* line 113 "../lib/comp/prc_act.s7i" */ o_6543_process_action(o_8971_function, &(o_8970_params), o_8968_c_expr); } else { /* line 115 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8968_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1394] /* "/*!!! " */); /* line 116 "../lib/comp/prc_act.s7i" */ strAppendTemp(&(((structType)(*o_8968_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), refCatStr(o_8969_functionCategory)); /* line 117 "../lib/comp/prc_act.s7i" */ { /* line 117 "../lib/comp/prc_act.s7i" */ striType *tmp_1; /* line 117 "../lib/comp/prc_act.s7i" */ tmp_1=&(((structType)(*o_8968_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 117 "../lib/comp/prc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 117 "../lib/comp/prc_act.s7i" */ strPush(&(*tmp_1), (charType) ' '); /* line 117 "../lib/comp/prc_act.s7i" */ } else { /* line 117 "../lib/comp/prc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ' '; /* line 117 "../lib/comp/prc_act.s7i" */ (*tmp_1)->size++; /* line 117 "../lib/comp/prc_act.s7i" */ } } /* line 118 "../lib/comp/prc_act.s7i" */ strAppendTemp(&(((structType)(*o_8968_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), refStr(o_8971_function)); /* line 119 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8968_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1395] /* " !!!*\/" */); } } else { /* line 122 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8968_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1396] /* "/*!! " */); /* line 123 "../lib/comp/prc_act.s7i" */ strAppendTemp(&(((structType)(*o_8968_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), refCatStr(refCategory(o_8966_else_part))); /* line 124 "../lib/comp/prc_act.s7i" */ { /* line 124 "../lib/comp/prc_act.s7i" */ striType *tmp_1; /* line 124 "../lib/comp/prc_act.s7i" */ tmp_1=&(((structType)(*o_8968_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 124 "../lib/comp/prc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 124 "../lib/comp/prc_act.s7i" */ strPush(&(*tmp_1), (charType) ' '); /* line 124 "../lib/comp/prc_act.s7i" */ } else { /* line 124 "../lib/comp/prc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ' '; /* line 124 "../lib/comp/prc_act.s7i" */ (*tmp_1)->size++; /* line 124 "../lib/comp/prc_act.s7i" */ } } /* line 125 "../lib/comp/prc_act.s7i" */ strAppendTemp(&(((structType)(*o_8968_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), refStr(o_8966_else_part)); /* line 126 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8968_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1397] /* " !!*\/" */); } /* line 83 "../lib/comp/prc_act.s7i" */ rflDestr(o_8970_params); /* line 83 "../lib/comp/prc_act.s7i" */ destr_164(o_8972_c_param2); /* line 83 "../lib/comp/prc_act.s7i" */ strDestr(o_8973_action_name); } /* line 1 "no_file" */ /* 4312 */ /* line 131 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_8974_process_const_prc_if (const boolType/*t_13_boolean*/ o_8975_condition, const objRefType/*t_19_reference*/ o_8976_statement, structType/*t_164_expr_type*/ *const o_8977_c_expr) { /* line 134 "../lib/comp/prc_act.s7i" */ structType/*t_164_expr_type*/ o_8978_c_statement; /* line 134 "../lib/comp/prc_act.s7i" */ o_8978_c_statement=create_164(sct[264]); /* line 136 "../lib/comp/prc_act.s7i" */ ++(o_5107_countOptimizations); /* line 137 "../lib/comp/prc_act.s7i" */ if (o_8975_condition) { /* line 138 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8977_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1398] /* "/* Optimized: if TRUE *\/ {\n" */); /* line 139 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(o_8976_statement, &(o_8978_c_statement)); /* line 140 "../lib/comp/prc_act.s7i" */ o_8958_process_statements(o_8978_c_statement, o_8977_c_expr); /* line 141 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8977_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } else { /* line 143 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8977_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1399] /* "/* Optimized: if FALSE *\/\n" */); } /* line 131 "../lib/comp/prc_act.s7i" */ destr_164(o_8978_c_statement); } /* line 1 "no_file" */ /* 4313 */ /* line 148 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_8979_PRC_IF (const objRefType/*t_19_reference*/ o_8980_function, const listType/*t_20_ref_list*/ *const o_8981_params, structType/*t_164_expr_type*/ *const o_8982_c_expr) { /* line 152 "../lib/comp/prc_act.s7i" */ objRefType/*t_19_reference*/ o_8983_evaluatedParam=NULL; /* line 153 "../lib/comp/prc_act.s7i" */ structType/*t_164_expr_type*/ o_8984_c_condition; /* line 154 "../lib/comp/prc_act.s7i" */ structType/*t_164_expr_type*/ o_8985_c_statement; /* line 155 "../lib/comp/prc_act.s7i" */ striType/*t_15_string*/ o_8986_statementFile; /* line 156 "../lib/comp/prc_act.s7i" */ intType/*t_14_integer*/ o_8987_statementLine=0; /* line 153 "../lib/comp/prc_act.s7i" */ o_8984_c_condition=create_164(sct[265]); /* line 154 "../lib/comp/prc_act.s7i" */ o_8985_c_statement=create_164(sct[266]); /* line 155 "../lib/comp/prc_act.s7i" */ o_8986_statementFile=strEmpty(); /* "" */ /* line 158 "../lib/comp/prc_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8981_params, 2L), 27L, &(o_8983_evaluatedParam))) { /* line 159 "../lib/comp/prc_act.s7i" */ o_8974_process_const_prc_if(blnValue(o_8983_evaluatedParam), rflIdx(*o_8981_params, 4L), o_8982_c_expr); } else { /* line 161 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(*o_8981_params, 2L), &(o_8984_c_condition)); /* line 162 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(*o_8981_params, 4L), &(o_8985_c_statement)); /* line 163 "../lib/comp/prc_act.s7i" */ if ((((structType)(o_8984_c_condition))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 164 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8982_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 165 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8984_c_condition))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_8982_c_expr); /* line 166 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8984_c_condition))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_8982_c_expr); } /* line 168 "../lib/comp/prc_act.s7i" */ strCopy(&(o_8986_statementFile), ((structType)(*o_8982_c_expr))->stru[0].value.striValue/*->o_4778_currentFile*/); /* line 169 "../lib/comp/prc_act.s7i" */ o_8987_statementLine=((structType)(*o_8982_c_expr))->stru[1].value.intValue/*->o_4779_currentLine*/; /* line 170 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_8982_c_expr); /* line 171 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8982_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[401] /* "if (" */); /* line 172 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8982_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_8984_c_condition))->stru[5].value.striValue/*->o_4783_expr*/); /* line 173 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8982_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[191] /* ") {\n" */); /* line 174 "../lib/comp/prc_act.s7i" */ o_8958_process_statements(o_8985_c_statement, o_8982_c_expr); /* line 175 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8982_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 176 "../lib/comp/prc_act.s7i" */ if ((((structType)(o_8984_c_condition))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 177 "../lib/comp/prc_act.s7i" */ strCopy(&(((structType)(*o_8982_c_expr))->stru[0].value.striValue/*->o_4778_currentFile*/), o_8986_statementFile); /* line 178 "../lib/comp/prc_act.s7i" */ ((structType)(*o_8982_c_expr))->stru[1].value.intValue/*->o_4779_currentLine*/=o_8987_statementLine; /* line 179 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_8984_c_condition))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_8982_c_expr); /* line 180 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8982_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } } /* line 148 "../lib/comp/prc_act.s7i" */ destr_164(o_8984_c_condition); /* line 148 "../lib/comp/prc_act.s7i" */ destr_164(o_8985_c_statement); /* line 148 "../lib/comp/prc_act.s7i" */ strDestr(o_8986_statementFile); } /* line 1 "no_file" */ /* 4314 */ /* line 186 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_8988_process_const_prc_if_elsif (const boolType/*t_13_boolean*/ o_8989_condition, const objRefType/*t_19_reference*/ o_8990_thenPart, const objRefType/*t_19_reference*/ o_8991_elsePart, structType/*t_164_expr_type*/ *const o_8992_c_expr) { /* line 189 "../lib/comp/prc_act.s7i" */ structType/*t_164_expr_type*/ o_8993_c_then_part; /* line 190 "../lib/comp/prc_act.s7i" */ structType/*t_164_expr_type*/ o_8994_c_else_part; /* line 189 "../lib/comp/prc_act.s7i" */ o_8993_c_then_part=create_164(sct[267]); /* line 190 "../lib/comp/prc_act.s7i" */ o_8994_c_else_part=create_164(sct[268]); /* line 192 "../lib/comp/prc_act.s7i" */ ++(o_5107_countOptimizations); /* line 193 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8992_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1400] /* "/* Optimized: if " */); /* line 194 "../lib/comp/prc_act.s7i" */ strAppendTemp(&(((structType)(*o_8992_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_43_str(o_8989_condition)); /* line 195 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8992_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1401] /* " *\/ {\n" */); /* line 196 "../lib/comp/prc_act.s7i" */ if (o_8989_condition) { /* line 197 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(o_8990_thenPart, &(o_8993_c_then_part)); /* line 198 "../lib/comp/prc_act.s7i" */ o_8958_process_statements(o_8993_c_then_part, o_8992_c_expr); } else { /* line 200 "../lib/comp/prc_act.s7i" */ o_8965_process_else(o_8991_elsePart, o_25_FALSE, &(o_8994_c_else_part)); /* line 201 "../lib/comp/prc_act.s7i" */ o_8958_process_statements(o_8994_c_else_part, o_8992_c_expr); } /* line 203 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8992_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 186 "../lib/comp/prc_act.s7i" */ destr_164(o_8993_c_then_part); /* line 186 "../lib/comp/prc_act.s7i" */ destr_164(o_8994_c_else_part); } /* line 1 "no_file" */ /* 4315 */ /* line 207 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_8995_PRC_IF_ELSIF (const objRefType/*t_19_reference*/ o_8996_function, const listType/*t_20_ref_list*/ *const o_8997_params, structType/*t_164_expr_type*/ *const o_8998_c_expr) { /* line 211 "../lib/comp/prc_act.s7i" */ objRefType/*t_19_reference*/ o_8999_evaluatedParam=NULL; /* line 212 "../lib/comp/prc_act.s7i" */ structType/*t_164_expr_type*/ o_9000_c_condition; /* line 213 "../lib/comp/prc_act.s7i" */ structType/*t_164_expr_type*/ o_9001_c_then_part; /* line 214 "../lib/comp/prc_act.s7i" */ structType/*t_164_expr_type*/ o_9002_c_else_part; /* line 215 "../lib/comp/prc_act.s7i" */ striType/*t_15_string*/ o_9003_statementFile; /* line 216 "../lib/comp/prc_act.s7i" */ intType/*t_14_integer*/ o_9004_statementLine=0; /* line 212 "../lib/comp/prc_act.s7i" */ o_9000_c_condition=create_164(sct[269]); /* line 213 "../lib/comp/prc_act.s7i" */ o_9001_c_then_part=create_164(sct[270]); /* line 214 "../lib/comp/prc_act.s7i" */ o_9002_c_else_part=create_164(sct[271]); /* line 215 "../lib/comp/prc_act.s7i" */ o_9003_statementFile=strEmpty(); /* "" */ /* line 218 "../lib/comp/prc_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_8997_params, 2L), 27L, &(o_8999_evaluatedParam))) { /* line 219 "../lib/comp/prc_act.s7i" */ o_8988_process_const_prc_if_elsif(blnValue(o_8999_evaluatedParam), rflIdx(*o_8997_params, 4L), rflIdx(*o_8997_params, 5L), o_8998_c_expr); } else { /* line 222 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(*o_8997_params, 2L), &(o_9000_c_condition)); /* line 223 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(*o_8997_params, 4L), &(o_9001_c_then_part)); /* line 224 "../lib/comp/prc_act.s7i" */ ((structType)(o_9002_c_else_part))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_9000_c_condition))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 225 "../lib/comp/prc_act.s7i" */ o_8965_process_else(rflIdx(*o_8997_params, 5L), o_26_TRUE, &(o_9002_c_else_part)); /* line 226 "../lib/comp/prc_act.s7i" */ if ((((structType)(o_9002_c_else_part))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 227 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8998_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 228 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9000_c_condition))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_8998_c_expr); /* line 229 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9002_c_else_part))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_8998_c_expr); /* line 230 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9000_c_condition))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_8998_c_expr); /* line 231 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9002_c_else_part))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_8998_c_expr); } /* line 233 "../lib/comp/prc_act.s7i" */ strCopy(&(o_9003_statementFile), ((structType)(*o_8998_c_expr))->stru[0].value.striValue/*->o_4778_currentFile*/); /* line 234 "../lib/comp/prc_act.s7i" */ o_9004_statementLine=((structType)(*o_8998_c_expr))->stru[1].value.intValue/*->o_4779_currentLine*/; /* line 235 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_8998_c_expr); /* line 236 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8998_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[401] /* "if (" */); /* line 237 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8998_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9000_c_condition))->stru[5].value.striValue/*->o_4783_expr*/); /* line 238 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8998_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[191] /* ") {\n" */); /* line 239 "../lib/comp/prc_act.s7i" */ o_8958_process_statements(o_9001_c_then_part, o_8998_c_expr); /* line 240 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8998_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[703] /* "} " */); /* line 241 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8998_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9002_c_else_part))->stru[5].value.striValue/*->o_4783_expr*/); /* line 242 "../lib/comp/prc_act.s7i" */ if ((((structType)(o_9002_c_else_part))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 243 "../lib/comp/prc_act.s7i" */ strCopy(&(((structType)(*o_8998_c_expr))->stru[0].value.striValue/*->o_4778_currentFile*/), o_9003_statementFile); /* line 244 "../lib/comp/prc_act.s7i" */ ((structType)(*o_8998_c_expr))->stru[1].value.intValue/*->o_4779_currentLine*/=o_9004_statementLine; /* line 245 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9000_c_condition))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_8998_c_expr); /* line 246 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9002_c_else_part))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_8998_c_expr); /* line 247 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_8998_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } } /* line 207 "../lib/comp/prc_act.s7i" */ destr_164(o_9000_c_condition); /* line 207 "../lib/comp/prc_act.s7i" */ destr_164(o_9001_c_then_part); /* line 207 "../lib/comp/prc_act.s7i" */ destr_164(o_9002_c_else_part); /* line 207 "../lib/comp/prc_act.s7i" */ strDestr(o_9003_statementFile); } /* line 1 "no_file" */ /* 4316 */ /* line 253 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_9005_PRC_WHILE (const objRefType/*t_19_reference*/ o_9006_function, const listType/*t_20_ref_list*/ *const o_9007_params, structType/*t_164_expr_type*/ *const o_9008_c_expr) { /* line 257 "../lib/comp/prc_act.s7i" */ structType/*t_164_expr_type*/ o_9009_c_condition; /* line 258 "../lib/comp/prc_act.s7i" */ structType/*t_164_expr_type*/ o_9010_c_statement; /* line 259 "../lib/comp/prc_act.s7i" */ striType/*t_15_string*/ o_9011_statementFile; /* line 260 "../lib/comp/prc_act.s7i" */ intType/*t_14_integer*/ o_9012_statementLine=0; /* line 257 "../lib/comp/prc_act.s7i" */ o_9009_c_condition=create_164(sct[272]); /* line 258 "../lib/comp/prc_act.s7i" */ o_9010_c_statement=create_164(sct[273]); /* line 259 "../lib/comp/prc_act.s7i" */ o_9011_statementFile=strEmpty(); /* "" */ /* line 262 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9007_params, 2L), &(o_9009_c_condition)); /* line 263 "../lib/comp/prc_act.s7i" */ ((structType)(o_9010_c_statement))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_9009_c_condition))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 264 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9007_params, 4L), &(o_9010_c_statement)); /* line 265 "../lib/comp/prc_act.s7i" */ if ((((structType)(o_9009_c_condition))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 266 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9008_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 267 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9009_c_condition))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9008_c_expr); /* line 268 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9009_c_condition))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9008_c_expr); } /* line 270 "../lib/comp/prc_act.s7i" */ strCopy(&(o_9011_statementFile), ((structType)(*o_9008_c_expr))->stru[0].value.striValue/*->o_4778_currentFile*/); /* line 271 "../lib/comp/prc_act.s7i" */ o_9012_statementLine=((structType)(*o_9008_c_expr))->stru[1].value.intValue/*->o_4779_currentLine*/; /* line 272 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9008_c_expr); /* line 273 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9008_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1133] /* "while (" */); /* line 274 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9008_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9009_c_condition))->stru[5].value.striValue/*->o_4783_expr*/); /* line 275 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9008_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[191] /* ") {\n" */); /* line 276 "../lib/comp/prc_act.s7i" */ o_8961_process_statements(o_9009_c_condition, o_9010_c_statement, o_9008_c_expr); /* line 277 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9008_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 278 "../lib/comp/prc_act.s7i" */ if ((((structType)(o_9009_c_condition))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 279 "../lib/comp/prc_act.s7i" */ strCopy(&(((structType)(*o_9008_c_expr))->stru[0].value.striValue/*->o_4778_currentFile*/), o_9011_statementFile); /* line 280 "../lib/comp/prc_act.s7i" */ ((structType)(*o_9008_c_expr))->stru[1].value.intValue/*->o_4779_currentLine*/=o_9012_statementLine; /* line 281 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9009_c_condition))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9008_c_expr); /* line 282 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9008_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 253 "../lib/comp/prc_act.s7i" */ destr_164(o_9009_c_condition); /* line 253 "../lib/comp/prc_act.s7i" */ destr_164(o_9010_c_statement); /* line 253 "../lib/comp/prc_act.s7i" */ strDestr(o_9011_statementFile); } /* line 1 "no_file" */ /* 4317 */ /* line 287 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_9013_PRC_REPEAT (const objRefType/*t_19_reference*/ o_9014_function, const listType/*t_20_ref_list*/ *const o_9015_params, structType/*t_164_expr_type*/ *const o_9016_c_expr) { /* line 291 "../lib/comp/prc_act.s7i" */ structType/*t_164_expr_type*/ o_9017_c_condition; /* line 292 "../lib/comp/prc_act.s7i" */ structType/*t_164_expr_type*/ o_9018_c_statement; /* line 291 "../lib/comp/prc_act.s7i" */ o_9017_c_condition=create_164(sct[274]); /* line 292 "../lib/comp/prc_act.s7i" */ o_9018_c_statement=create_164(sct[275]); /* line 294 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9015_params, 4L), &(o_9017_c_condition)); /* line 295 "../lib/comp/prc_act.s7i" */ ((structType)(o_9018_c_statement))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_9017_c_condition))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 296 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9015_params, 2L), &(o_9018_c_statement)); /* line 297 "../lib/comp/prc_act.s7i" */ if ((((structType)(o_9017_c_condition))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 298 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9016_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 299 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9017_c_condition))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9016_c_expr); /* line 300 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9017_c_condition))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9016_c_expr); } /* line 302 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9016_c_expr); /* line 303 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9016_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1402] /* "do {\n" */); /* line 304 "../lib/comp/prc_act.s7i" */ o_8961_process_statements(o_9017_c_condition, o_9018_c_statement, o_9016_c_expr); /* line 305 "../lib/comp/prc_act.s7i" */ strAppendTemp(&(((structType)(*o_9016_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(rflIdx(*o_9015_params, 4L))); /* line 306 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9016_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1403] /* "} while (!(" */); /* line 307 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9016_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9017_c_condition))->stru[5].value.striValue/*->o_4783_expr*/); /* line 308 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9016_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); /* line 309 "../lib/comp/prc_act.s7i" */ if ((((structType)(o_9017_c_condition))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 310 "../lib/comp/prc_act.s7i" */ strCopy(&(((structType)(*o_9016_c_expr))->stru[0].value.striValue/*->o_4778_currentFile*/), refFile(rflIdx(*o_9015_params, 4L))); /* line 311 "../lib/comp/prc_act.s7i" */ ((structType)(*o_9016_c_expr))->stru[1].value.intValue/*->o_4779_currentLine*/=refLine(rflIdx(*o_9015_params, 4L)); /* line 312 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9017_c_condition))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9016_c_expr); /* line 313 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9016_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 287 "../lib/comp/prc_act.s7i" */ destr_164(o_9017_c_condition); /* line 287 "../lib/comp/prc_act.s7i" */ destr_164(o_9018_c_statement); } /* line 1 "no_file" */ /* 4318 */ /* line 318 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_9019_process_const_prc_for (const objRefType/*t_19_reference*/ o_9020_variable, const objRefType/*t_19_reference*/ o_9021_startExpr, const intType/*t_14_integer*/ o_9022_endValue, const objRefType/*t_19_reference*/ o_9023_statement, const boolType/*t_13_boolean*/ o_9024_for_to, structType/*t_164_expr_type*/ *const o_9025_c_expr) { /* line 323 "../lib/comp/prc_act.s7i" */ structType/*t_164_expr_type*/ o_9026_c_start_expr; /* line 324 "../lib/comp/prc_act.s7i" */ structType/*t_164_expr_type*/ o_9027_c_statement; /* line 325 "../lib/comp/prc_act.s7i" */ striType/*t_15_string*/ o_9028_start_name; /* line 326 "../lib/comp/prc_act.s7i" */ intType/*t_14_integer*/ o_9029_temp_num=0; /* line 323 "../lib/comp/prc_act.s7i" */ o_9026_c_start_expr=create_164(sct[276]); /* line 324 "../lib/comp/prc_act.s7i" */ o_9027_c_statement=create_164(sct[277]); /* line 325 "../lib/comp/prc_act.s7i" */ o_9028_start_name=strEmpty(); /* "" */ /* line 328 "../lib/comp/prc_act.s7i" */ ++(o_5107_countOptimizations); /* line 329 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(o_9021_startExpr, &(o_9026_c_start_expr)); /* line 330 "../lib/comp/prc_act.s7i" */ ((structType)(o_9027_c_statement))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_9026_c_start_expr))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 331 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(o_9023_statement, &(o_9027_c_statement)); /* line 332 "../lib/comp/prc_act.s7i" */ o_9029_temp_num=((structType)(o_9027_c_statement))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 333 "../lib/comp/prc_act.s7i" */ ++(o_9029_temp_num); /* line 334 "../lib/comp/prc_act.s7i" */ if (((((structType)(o_9026_c_start_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/)->size!=0 /* "" */)) { /* line 335 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9025_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 336 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9026_c_start_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9025_c_expr); } /* line 338 "../lib/comp/prc_act.s7i" */ if (((((structType)(o_9026_c_start_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/)->size!=0 /* "" */)) { { /* line 339 "../lib/comp/prc_act.s7i" */ union { /* line 339 "../lib/comp/prc_act.s7i" */ struct striStruct striBuf; /* line 339 "../lib/comp/prc_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 339 "../lib/comp/prc_act.s7i" */ } buffer_2; /* line 339 "../lib/comp/prc_act.s7i" */ striType old_stri=o_9028_start_name; /* line 339 "../lib/comp/prc_act.s7i" */ o_9028_start_name=strConcat(&str[1404] /* "tmp_s_" */, intStrToBuffer(o_9029_temp_num, &buffer_2.striBuf)); /* line 339 "../lib/comp/prc_act.s7i" */ strDestr(old_stri); } /* line 340 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9025_c_expr); /* line 341 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9025_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[410] /* "intType " */); /* line 342 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9025_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9028_start_name); /* line 343 "../lib/comp/prc_act.s7i" */ if (((((structType)(o_9026_c_start_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/)->size!=0 /* "" */)) { /* line 344 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9025_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 345 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9026_c_start_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9025_c_expr); /* line 346 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9025_c_expr); /* line 347 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9025_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9028_start_name); } /* line 349 "../lib/comp/prc_act.s7i" */ { /* line 349 "../lib/comp/prc_act.s7i" */ striType *tmp_1; /* line 349 "../lib/comp/prc_act.s7i" */ tmp_1=&(((structType)(*o_9025_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 349 "../lib/comp/prc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 349 "../lib/comp/prc_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 349 "../lib/comp/prc_act.s7i" */ } else { /* line 349 "../lib/comp/prc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 349 "../lib/comp/prc_act.s7i" */ (*tmp_1)->size++; /* line 349 "../lib/comp/prc_act.s7i" */ } } /* line 350 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9025_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9026_c_start_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 351 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9025_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 352 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9026_c_start_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9025_c_expr); } else { /* line 354 "../lib/comp/prc_act.s7i" */ strCopy(&(o_9028_start_name), ((structType)(o_9026_c_start_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 355 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9026_c_start_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9025_c_expr); } /* line 357 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9025_c_expr); /* line 358 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9025_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1405] /* "for (" */); /* line 359 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(o_9020_variable, o_9025_c_expr); /* line 360 "../lib/comp/prc_act.s7i" */ { /* line 360 "../lib/comp/prc_act.s7i" */ striType *tmp_1; /* line 360 "../lib/comp/prc_act.s7i" */ tmp_1=&(((structType)(*o_9025_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 360 "../lib/comp/prc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 360 "../lib/comp/prc_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 360 "../lib/comp/prc_act.s7i" */ } else { /* line 360 "../lib/comp/prc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 360 "../lib/comp/prc_act.s7i" */ (*tmp_1)->size++; /* line 360 "../lib/comp/prc_act.s7i" */ } } /* line 361 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9025_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9028_start_name); /* line 362 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9025_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1406] /* "; " */); /* line 363 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(o_9020_variable, o_9025_c_expr); /* line 364 "../lib/comp/prc_act.s7i" */ if (o_9024_for_to) { /* line 365 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9025_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1407] /* "<=" */); } else { /* line 367 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9025_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[414] /* ">=" */); } /* line 369 "../lib/comp/prc_act.s7i" */ strAppendTemp(&(((structType)(*o_9025_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_9022_endValue)); /* line 370 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9025_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1408] /* "; (" */); /* line 371 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(o_9020_variable, o_9025_c_expr); /* line 372 "../lib/comp/prc_act.s7i" */ if (o_9024_for_to) { /* line 373 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9025_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1409] /* ")++) {\n" */); } else { /* line 375 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9025_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1410] /* ")--) {\n" */); } /* line 377 "../lib/comp/prc_act.s7i" */ o_8958_process_statements(o_9027_c_statement, o_9025_c_expr); /* line 378 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9025_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 379 "../lib/comp/prc_act.s7i" */ if (((((structType)(o_9026_c_start_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/)->size!=0 /* "" */)) { /* line 380 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9025_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 318 "../lib/comp/prc_act.s7i" */ destr_164(o_9026_c_start_expr); /* line 318 "../lib/comp/prc_act.s7i" */ destr_164(o_9027_c_statement); /* line 318 "../lib/comp/prc_act.s7i" */ strDestr(o_9028_start_name); } /* line 1 "no_file" */ /* 4319 */ /* line 385 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_9030_process_prc_for (const objRefType/*t_19_reference*/ o_9031_variable, const objRefType/*t_19_reference*/ o_9032_startExpr, const objRefType/*t_19_reference*/ o_9033_endExpr, const objRefType/*t_19_reference*/ o_9034_statement, const boolType/*t_13_boolean*/ o_9035_for_to, structType/*t_164_expr_type*/ *const o_9036_c_expr) { /* line 390 "../lib/comp/prc_act.s7i" */ structType/*t_164_expr_type*/ o_9037_c_start_expr; /* line 391 "../lib/comp/prc_act.s7i" */ structType/*t_164_expr_type*/ o_9038_c_end_expr; /* line 392 "../lib/comp/prc_act.s7i" */ structType/*t_164_expr_type*/ o_9039_c_statement; /* line 393 "../lib/comp/prc_act.s7i" */ striType/*t_15_string*/ o_9040_start_name; /* line 394 "../lib/comp/prc_act.s7i" */ striType/*t_15_string*/ o_9041_end_name; /* line 395 "../lib/comp/prc_act.s7i" */ intType/*t_14_integer*/ o_9042_temp_num=0; /* line 390 "../lib/comp/prc_act.s7i" */ o_9037_c_start_expr=create_164(sct[278]); /* line 391 "../lib/comp/prc_act.s7i" */ o_9038_c_end_expr=create_164(sct[279]); /* line 392 "../lib/comp/prc_act.s7i" */ o_9039_c_statement=create_164(sct[280]); /* line 393 "../lib/comp/prc_act.s7i" */ o_9040_start_name=strEmpty(); /* "" */ /* line 394 "../lib/comp/prc_act.s7i" */ o_9041_end_name=strEmpty(); /* "" */ /* line 397 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(o_9032_startExpr, &(o_9037_c_start_expr)); /* line 398 "../lib/comp/prc_act.s7i" */ ((structType)(o_9038_c_end_expr))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_9037_c_start_expr))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 399 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(o_9033_endExpr, &(o_9038_c_end_expr)); /* line 400 "../lib/comp/prc_act.s7i" */ ((structType)(o_9039_c_statement))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_9038_c_end_expr))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 401 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(o_9034_statement, &(o_9039_c_statement)); /* line 402 "../lib/comp/prc_act.s7i" */ o_9042_temp_num=((structType)(o_9039_c_statement))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 403 "../lib/comp/prc_act.s7i" */ ++(o_9042_temp_num); /* line 404 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 405 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9037_c_start_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9036_c_expr); /* line 406 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9038_c_end_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9036_c_expr); /* line 407 "../lib/comp/prc_act.s7i" */ if (((((structType)(o_9037_c_start_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/)->size!=0 /* "" */)) { { /* line 408 "../lib/comp/prc_act.s7i" */ union { /* line 408 "../lib/comp/prc_act.s7i" */ struct striStruct striBuf; /* line 408 "../lib/comp/prc_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 408 "../lib/comp/prc_act.s7i" */ } buffer_2; /* line 408 "../lib/comp/prc_act.s7i" */ striType old_stri=o_9040_start_name; /* line 408 "../lib/comp/prc_act.s7i" */ o_9040_start_name=strConcat(&str[1404] /* "tmp_s_" */, intStrToBuffer(o_9042_temp_num, &buffer_2.striBuf)); /* line 408 "../lib/comp/prc_act.s7i" */ strDestr(old_stri); } /* line 409 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9036_c_expr); /* line 410 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[410] /* "intType " */); /* line 411 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9040_start_name); /* line 412 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); } else { /* line 414 "../lib/comp/prc_act.s7i" */ strCopy(&(o_9040_start_name), ((structType)(o_9037_c_start_expr))->stru[5].value.striValue/*->o_4783_expr*/); } { /* line 416 "../lib/comp/prc_act.s7i" */ union { /* line 416 "../lib/comp/prc_act.s7i" */ struct striStruct striBuf; /* line 416 "../lib/comp/prc_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 416 "../lib/comp/prc_act.s7i" */ } buffer_2; /* line 416 "../lib/comp/prc_act.s7i" */ striType old_stri=o_9041_end_name; /* line 416 "../lib/comp/prc_act.s7i" */ o_9041_end_name=strConcat(&str[1411] /* "tmp_e_" */, intStrToBuffer(o_9042_temp_num, &buffer_2.striBuf)); /* line 416 "../lib/comp/prc_act.s7i" */ strDestr(old_stri); } /* line 417 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9036_c_expr); /* line 418 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[410] /* "intType " */); /* line 419 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9041_end_name); /* line 420 "../lib/comp/prc_act.s7i" */ if ((((((structType)(o_9037_c_start_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/)->size!=0 /* "" */)) || /* line 421 "../lib/comp/prc_act.s7i" */ (((((structType)(o_9037_c_start_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/)->size!=0 /* "" */)) || /* line 422 "../lib/comp/prc_act.s7i" */ (((((structType)(o_9038_c_end_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/)->size!=0 /* "" */))) { /* line 423 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 424 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9037_c_start_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9036_c_expr); /* line 425 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9038_c_end_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9036_c_expr); /* line 426 "../lib/comp/prc_act.s7i" */ if (((((structType)(o_9037_c_start_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/)->size!=0 /* "" */)) { /* line 427 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9036_c_expr); /* line 428 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9040_start_name); /* line 429 "../lib/comp/prc_act.s7i" */ { /* line 429 "../lib/comp/prc_act.s7i" */ striType *tmp_1; /* line 429 "../lib/comp/prc_act.s7i" */ tmp_1=&(((structType)(*o_9036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 429 "../lib/comp/prc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 429 "../lib/comp/prc_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 429 "../lib/comp/prc_act.s7i" */ } else { /* line 429 "../lib/comp/prc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 429 "../lib/comp/prc_act.s7i" */ (*tmp_1)->size++; /* line 429 "../lib/comp/prc_act.s7i" */ } } /* line 430 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9037_c_start_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 431 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 432 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9037_c_start_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9036_c_expr); } /* line 434 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9036_c_expr); /* line 435 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9041_end_name); } /* line 437 "../lib/comp/prc_act.s7i" */ { /* line 437 "../lib/comp/prc_act.s7i" */ striType *tmp_1; /* line 437 "../lib/comp/prc_act.s7i" */ tmp_1=&(((structType)(*o_9036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 437 "../lib/comp/prc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 437 "../lib/comp/prc_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 437 "../lib/comp/prc_act.s7i" */ } else { /* line 437 "../lib/comp/prc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 437 "../lib/comp/prc_act.s7i" */ (*tmp_1)->size++; /* line 437 "../lib/comp/prc_act.s7i" */ } } /* line 438 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9038_c_end_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 439 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 440 "../lib/comp/prc_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9038_c_end_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9036_c_expr); /* line 441 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9036_c_expr); /* line 442 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1405] /* "for (" */); /* line 443 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(o_9031_variable, o_9036_c_expr); /* line 444 "../lib/comp/prc_act.s7i" */ { /* line 444 "../lib/comp/prc_act.s7i" */ striType *tmp_1; /* line 444 "../lib/comp/prc_act.s7i" */ tmp_1=&(((structType)(*o_9036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 444 "../lib/comp/prc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 444 "../lib/comp/prc_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 444 "../lib/comp/prc_act.s7i" */ } else { /* line 444 "../lib/comp/prc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 444 "../lib/comp/prc_act.s7i" */ (*tmp_1)->size++; /* line 444 "../lib/comp/prc_act.s7i" */ } } /* line 445 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9040_start_name); /* line 446 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1406] /* "; " */); /* line 447 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(o_9031_variable, o_9036_c_expr); /* line 448 "../lib/comp/prc_act.s7i" */ if (o_9035_for_to) { /* line 449 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1407] /* "<=" */); } else { /* line 451 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[414] /* ">=" */); } /* line 453 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9041_end_name); /* line 454 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1408] /* "; (" */); /* line 455 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(o_9031_variable, o_9036_c_expr); /* line 456 "../lib/comp/prc_act.s7i" */ if (o_9035_for_to) { /* line 457 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1409] /* ")++) {\n" */); } else { /* line 459 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1410] /* ")--) {\n" */); } /* line 461 "../lib/comp/prc_act.s7i" */ o_8958_process_statements(o_9039_c_statement, o_9036_c_expr); /* line 462 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1412] /* "}\n}\n" */); /* line 385 "../lib/comp/prc_act.s7i" */ destr_164(o_9037_c_start_expr); /* line 385 "../lib/comp/prc_act.s7i" */ destr_164(o_9038_c_end_expr); /* line 385 "../lib/comp/prc_act.s7i" */ destr_164(o_9039_c_statement); /* line 385 "../lib/comp/prc_act.s7i" */ strDestr(o_9040_start_name); /* line 385 "../lib/comp/prc_act.s7i" */ strDestr(o_9041_end_name); } /* line 1 "no_file" */ /* 4320 */ /* line 466 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_9043_process_prc_for (const listType/*t_20_ref_list*/ *const o_9044_params, const boolType/*t_13_boolean*/ o_9045_for_to, structType/*t_164_expr_type*/ *const o_9046_c_expr) { /* line 470 "../lib/comp/prc_act.s7i" */ objRefType/*t_19_reference*/ o_9047_evaluatedParam=NULL; /* line 472 "../lib/comp/prc_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_9044_params, 6L), 9L, &(o_9047_evaluatedParam))) { /* line 473 "../lib/comp/prc_act.s7i" */ o_9019_process_const_prc_for(rflIdx(*o_9044_params, 2L), rflIdx(*o_9044_params, 4L), intValue(o_9047_evaluatedParam), rflIdx(*o_9044_params, 8L), o_9045_for_to, o_9046_c_expr); } else { /* line 476 "../lib/comp/prc_act.s7i" */ o_9030_process_prc_for(rflIdx(*o_9044_params, 2L), rflIdx(*o_9044_params, 4L), rflIdx(*o_9044_params, 6L), rflIdx(*o_9044_params, 8L), o_9045_for_to, o_9046_c_expr); } } /* line 1 "no_file" */ /* 4321 */ /* line 481 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_9048_PRC_FOR_DOWNTO (const objRefType/*t_19_reference*/ o_9049_function, const listType/*t_20_ref_list*/ *const o_9050_params, structType/*t_164_expr_type*/ *const o_9051_c_expr) { /* line 485 "../lib/comp/prc_act.s7i" */ o_9043_process_prc_for(o_9050_params, o_25_FALSE, o_9051_c_expr); } /* line 1 "no_file" */ /* 4322 */ /* line 489 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_9052_PRC_FOR_TO (const objRefType/*t_19_reference*/ o_9053_function, const listType/*t_20_ref_list*/ *const o_9054_params, structType/*t_164_expr_type*/ *const o_9055_c_expr) { /* line 493 "../lib/comp/prc_act.s7i" */ o_9043_process_prc_for(o_9054_params, o_26_TRUE, o_9055_c_expr); } /* line 1 "no_file" */ /* 4323 */ /* line 497 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_9056_process_bitset (const const_setType/*t_30_bitset*/ o_9057_currentSet, const const_striType/*t_15_string*/ o_9058_diagnosticLine, structType/*t_164_expr_type*/ *const o_9059_c_expr) { /* line 501 "../lib/comp/prc_act.s7i" */ intType/*t_14_integer*/ o_9060_number=0; { /* line 503 "../lib/comp/prc_act.s7i" */ intType tmp_e_1=setMax(o_9057_currentSet); /* line 503 "../lib/comp/prc_act.s7i" */ for (o_9060_number=setMin(o_9057_currentSet); o_9060_number<=tmp_e_1; (o_9060_number)++) { { /* line 504 "../lib/comp/prc_act.s7i" */ intType tmp_1; /* line 504 "../lib/comp/prc_act.s7i" */ if ((tmp_1=bitset_pos((o_9060_number)),tmp_1>=(o_9057_currentSet)->min_position&&tmp_1<=(o_9057_currentSet)->max_position&&(o_9057_currentSet)->bitset[(uintType)(tmp_1-(o_9057_currentSet)->min_position)] >> ((o_9060_number) & bitset_mask)&1)) { /* line 505 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9059_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9058_diagnosticLine); /* line 506 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9059_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1413] /* "case " */); { /* line 507 "../lib/comp/prc_act.s7i" */ union { /* line 507 "../lib/comp/prc_act.s7i" */ struct striStruct striBuf; /* line 507 "../lib/comp/prc_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 507 "../lib/comp/prc_act.s7i" */ } buffer_1; /* line 507 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9059_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(o_9060_number, &buffer_1.striBuf)); } /* line 508 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9059_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1414] /* ":\n" */); } } } } } /* line 1 "no_file" */ /* 4324 */ /* line 514 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_9061_process_case_labels (const objRefType/*t_19_reference*/ o_9062_current_expression, setType/*t_30_bitset*/ *const o_9063_allWhenValues, structType/*t_164_expr_type*/ *const o_9064_c_expr) { /* line 518 "../lib/comp/prc_act.s7i" */ objRefType/*t_19_reference*/ o_9065_case_labels=NULL; /* line 519 "../lib/comp/prc_act.s7i" */ intType/*t_86_category*/ o_9066_labelCategory=0; /* line 520 "../lib/comp/prc_act.s7i" */ setType/*t_30_bitset*/ o_9067_currentWhenValues; /* line 520 "../lib/comp/prc_act.s7i" */ o_9067_currentWhenValues=setCreate(set[0]); /* line 522 "../lib/comp/prc_act.s7i" */ o_9065_case_labels=prgEval(o_4739_prog, o_9062_current_expression); /* line 523 "../lib/comp/prc_act.s7i" */ o_9066_labelCategory=refCategory(o_9065_case_labels); /* line 524 "../lib/comp/prc_act.s7i" */ if ((o_9066_labelCategory) == (19L)) { { /* line 525 "../lib/comp/prc_act.s7i" */ setType old_set=o_9067_currentWhenValues; /* line 525 "../lib/comp/prc_act.s7i" */ o_9067_currentWhenValues=setValue(o_9065_case_labels); /* line 525 "../lib/comp/prc_act.s7i" */ setDestr(old_set); } { /* line 526 "../lib/comp/prc_act.s7i" */ setType/*t_30_bitset*/ tmp_1 = (setType/*t_30_bitset*/)(NULL); /* line 526 "../lib/comp/prc_act.s7i" */ if (!setEq((tmp_1=(setType/*t_30_bitset*/)(setIntersect(*o_9063_allWhenValues, o_9067_currentWhenValues))), (setType/*t_30_bitset*/)(set[0]))) { { /* line 527 "../lib/comp/prc_act.s7i" */ setType/*t_30_bitset*/ tmp_1 = (setType/*t_30_bitset*/)(NULL); /* line 527 "../lib/comp/prc_act.s7i" */ o_6534_WHEN_OVERLAPPING((tmp_1=(setType/*t_30_bitset*/)(setIntersect(*o_9063_allWhenValues, o_9067_currentWhenValues))), o_9062_current_expression); /* line 527 "../lib/comp/prc_act.s7i" */ setDestr(tmp_1); } } /* line 526 "../lib/comp/prc_act.s7i" */ setDestr(tmp_1); } { /* line 530 "../lib/comp/prc_act.s7i" */ striType/*t_15_string*/ tmp_1 = (striType/*t_15_string*/)(NULL); /* line 530 "../lib/comp/prc_act.s7i" */ o_9056_process_bitset(o_9067_currentWhenValues, (tmp_1=(striType/*t_15_string*/)(o_4816_diagnosticLine(o_9062_current_expression))), o_9064_c_expr); /* line 530 "../lib/comp/prc_act.s7i" */ strDestr(tmp_1); } { /* line 532 "../lib/comp/prc_act.s7i" */ setType old_set=*o_9063_allWhenValues; /* line 532 "../lib/comp/prc_act.s7i" */ *o_9063_allWhenValues=setUnion(*o_9063_allWhenValues, o_9067_currentWhenValues); /* line 532 "../lib/comp/prc_act.s7i" */ setDestr(old_set); } } else { /* line 534 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9064_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1415] /* "/* case " */); /* line 535 "../lib/comp/prc_act.s7i" */ strAppendTemp(&(((structType)(*o_9064_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), refCatStr(o_9066_labelCategory)); /* line 536 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9064_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[281] /* " *\/" */); } /* line 514 "../lib/comp/prc_act.s7i" */ setDestr(o_9067_currentWhenValues); } /* line 1 "no_file" */ /* 4325 */ static void/*t_1_void*/ o_9068_process_when (const objRefType/*t_19_reference*/ o_9069_when_expr, const const_setType/*t_30_bitset*/ value_o_9070_allWhenValues, structType/*t_164_expr_type*/ *const o_9071_c_expr); /* line 541 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_9068_process_when (const objRefType/*t_19_reference*/ o_9069_when_expr, const const_setType/*t_30_bitset*/ value_o_9070_allWhenValues, structType/*t_164_expr_type*/ *const o_9071_c_expr) { /* line 541 "../lib/comp/prc_act.s7i" */ setType/*t_30_bitset*/ o_9070_allWhenValues; /* line 545 "../lib/comp/prc_act.s7i" */ listType/*t_20_ref_list*/ o_9072_params=NULL; /* line 546 "../lib/comp/prc_act.s7i" */ objRefType/*t_19_reference*/ o_9073_function=NULL; /* line 541 "../lib/comp/prc_act.s7i" */ o_9070_allWhenValues=setCreate(value_o_9070_allWhenValues); { /* line 548 "../lib/comp/prc_act.s7i" */ listType old_rfl=o_9072_params; /* line 548 "../lib/comp/prc_act.s7i" */ o_9072_params=rflValue(o_9069_when_expr); /* line 548 "../lib/comp/prc_act.s7i" */ rflDestr(old_rfl); } /* line 549 "../lib/comp/prc_act.s7i" */ o_9073_function=rflIdx(o_9072_params, 1L); { /* line 550 "../lib/comp/prc_act.s7i" */ listType old_rfl=o_9072_params; /* line 550 "../lib/comp/prc_act.s7i" */ o_9072_params=rflTail(o_9072_params, 2L); /* line 550 "../lib/comp/prc_act.s7i" */ rflDestr(old_rfl); } /* line 551 "../lib/comp/prc_act.s7i" */ o_9061_process_case_labels(rflIdx(o_9072_params, 2L), &(o_9070_allWhenValues), o_9071_c_expr); /* line 552 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(o_9072_params, 4L), o_9071_c_expr); /* line 553 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9071_c_expr); /* line 554 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9071_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1416] /* "break;\n" */); /* line 555 "../lib/comp/prc_act.s7i" */ if ((rflLng(o_9072_params)) >= (5L)) { /* line 556 "../lib/comp/prc_act.s7i" */ o_9068_process_when(rflIdx(o_9072_params, 5L), o_9070_allWhenValues, o_9071_c_expr); } /* line 541 "../lib/comp/prc_act.s7i" */ setDestr(o_9070_allWhenValues); /* line 541 "../lib/comp/prc_act.s7i" */ rflDestr(o_9072_params); } /* line 1 "no_file" */ /* 4326 */ /* line 561 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_9074_PRC_CASE (const objRefType/*t_19_reference*/ o_9075_function, const listType/*t_20_ref_list*/ *const o_9076_params, structType/*t_164_expr_type*/ *const o_9077_c_expr) { /* line 565 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9077_c_expr); /* line 566 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9077_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1417] /* "switch (" */); /* line 567 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9076_params, 2L), o_9077_c_expr); /* line 568 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9077_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[191] /* ") {\n" */); /* line 569 "../lib/comp/prc_act.s7i" */ o_9068_process_when(rflIdx(*o_9076_params, 4L), (setType/*t_30_bitset*/)(set[0]), o_9077_c_expr); /* line 570 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9077_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 1 "no_file" */ /* 4327 */ /* line 574 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_9078_PRC_CASE_DEF (const objRefType/*t_19_reference*/ o_9079_function, const listType/*t_20_ref_list*/ *const o_9080_params, structType/*t_164_expr_type*/ *const o_9081_c_expr) { /* line 578 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9081_c_expr); /* line 579 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9081_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1417] /* "switch (" */); /* line 580 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9080_params, 2L), o_9081_c_expr); /* line 581 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9081_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[191] /* ") {\n" */); /* line 582 "../lib/comp/prc_act.s7i" */ o_9068_process_when(rflIdx(*o_9080_params, 4L), (setType/*t_30_bitset*/)(set[0]), o_9081_c_expr); /* line 583 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9081_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1418] /* "default:\n" */); /* line 584 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9080_params, 7L), o_9081_c_expr); /* line 585 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9081_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1416] /* "break;\n" */); /* line 586 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9081_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 1 "no_file" */ /* 4328 */ /* line 590 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_9082_PRC_BLOCK (const objRefType/*t_19_reference*/ o_9083_function, const listType/*t_20_ref_list*/ *const o_9084_params, structType/*t_164_expr_type*/ *const o_9085_c_expr) { /* line 594 "../lib/comp/prc_act.s7i" */ objRefType/*t_19_reference*/ o_9086_current_catch=NULL; /* line 595 "../lib/comp/prc_act.s7i" */ listType/*t_20_ref_list*/ o_9087_catch_expr=NULL; /* line 596 "../lib/comp/prc_act.s7i" */ objRefType/*t_19_reference*/ o_9088_catch_value=NULL; /* line 598 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9085_c_expr); /* line 599 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 600 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9085_c_expr); /* line 601 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1419] /* "int fail_value;\n" */); /* line 602 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9085_c_expr); /* line 603 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1420] /* "catch_stack_pos++;\n" */); /* line 604 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9085_c_expr); /* line 605 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1421] /* "if (unlikely(catch_stack_pos >= max_catch_stack)) {\n" */); /* line 606 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9085_c_expr); /* line 607 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1422] /* " resize_catch_stack();\n" */); /* line 608 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9085_c_expr); /* line 609 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 610 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9085_c_expr); /* line 611 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1423] /* "if (likely((fail_value = do_setjmp(catch_stack[catch_stack_pos])) == 0)) {\n" */); /* line 612 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9084_params, 2L), o_9085_c_expr); /* line 613 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9085_c_expr); /* line 614 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1424] /* "catch_stack_pos--;\n" */); /* line 615 "../lib/comp/prc_act.s7i" */ o_9086_current_catch=rflIdx(*o_9084_params, 4L); { /* line 616 "../lib/comp/prc_act.s7i" */ listType old_rfl=o_9087_catch_expr; /* line 616 "../lib/comp/prc_act.s7i" */ o_9087_catch_expr=rflValue(o_9086_current_catch); /* line 616 "../lib/comp/prc_act.s7i" */ rflDestr(old_rfl); } /* line 617 "../lib/comp/prc_act.s7i" */ strAppendTemp(&(((structType)(*o_9085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_9086_current_catch)); /* line 618 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[222] /* "} else {\n" */); /* line 619 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9085_c_expr); /* line 620 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1424] /* "catch_stack_pos--;\n" */); /* line 622 "../lib/comp/prc_act.s7i" */ while (((o_9086_current_catch) != (NULL)) && /* line 623 "../lib/comp/prc_act.s7i" */ ((refCategory(o_9086_current_catch)) == (6L)) && /* line 624 "../lib/comp/prc_act.s7i" */ ((rflLng(o_9087_catch_expr)) >= (5L))) { /* line 625 "../lib/comp/prc_act.s7i" */ o_9088_catch_value=rflIdx(o_9087_catch_expr, 3L); /* line 626 "../lib/comp/prc_act.s7i" */ strAppendTemp(&(((structType)(*o_9085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_9086_current_catch)); /* line 627 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[401] /* "if (" */); /* line 628 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(o_9088_catch_value, o_9085_c_expr); /* line 629 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1425] /* " == fail_value - 1) {\n" */); /* line 630 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(o_9087_catch_expr, 5L), o_9085_c_expr); /* line 631 "../lib/comp/prc_act.s7i" */ if ((rflLng(o_9087_catch_expr)) >= (6L)) { /* line 632 "../lib/comp/prc_act.s7i" */ strAppendTemp(&(((structType)(*o_9085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_9086_current_catch)); /* line 633 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1426] /* "} else\n" */); /* line 634 "../lib/comp/prc_act.s7i" */ o_9086_current_catch=rflIdx(o_9087_catch_expr, 6L); { /* line 635 "../lib/comp/prc_act.s7i" */ listType old_rfl=o_9087_catch_expr; /* line 635 "../lib/comp/prc_act.s7i" */ o_9087_catch_expr=rflValue(o_9086_current_catch); /* line 635 "../lib/comp/prc_act.s7i" */ rflDestr(old_rfl); } } else { /* line 637 "../lib/comp/prc_act.s7i" */ ++(((structType)(*o_9085_c_expr))->stru[1].value.intValue/*->o_4779_currentLine*/); /* line 638 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9085_c_expr); /* line 639 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[222] /* "} else {\n" */); /* line 640 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9085_c_expr); /* line 641 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1427] /* " rtlRaiseError(fail_value, error_file, error_line);\n" */); /* line 642 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9085_c_expr); /* line 643 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 644 "../lib/comp/prc_act.s7i" */ o_9086_current_catch=NULL; } } /* line 647 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9085_c_expr); /* line 648 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 649 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9085_c_expr); /* line 650 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 590 "../lib/comp/prc_act.s7i" */ rflDestr(o_9087_catch_expr); } /* line 1 "no_file" */ /* 4329 */ /* line 654 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_9089_PRC_BLOCK_CATCH_ALL (const objRefType/*t_19_reference*/ o_9090_function, const listType/*t_20_ref_list*/ *const o_9091_params, structType/*t_164_expr_type*/ *const o_9092_c_expr) { /* line 658 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9092_c_expr); /* line 659 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9092_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 660 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9092_c_expr); /* line 661 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9092_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1419] /* "int fail_value;\n" */); /* line 662 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9092_c_expr); /* line 663 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9092_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1420] /* "catch_stack_pos++;\n" */); /* line 664 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9092_c_expr); /* line 665 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9092_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1421] /* "if (unlikely(catch_stack_pos >= max_catch_stack)) {\n" */); /* line 666 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9092_c_expr); /* line 667 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9092_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1422] /* " resize_catch_stack();\n" */); /* line 668 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9092_c_expr); /* line 669 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9092_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 670 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9092_c_expr); /* line 671 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9092_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1423] /* "if (likely((fail_value = do_setjmp(catch_stack[catch_stack_pos])) == 0)) {\n" */); /* line 672 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9091_params, 2L), o_9092_c_expr); /* line 673 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9092_c_expr); /* line 674 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9092_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1424] /* "catch_stack_pos--;\n" */); /* line 675 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9092_c_expr); /* line 676 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9092_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[222] /* "} else {\n" */); /* line 677 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9092_c_expr); /* line 678 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9092_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1424] /* "catch_stack_pos--;\n" */); /* line 679 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9091_params, 6L), o_9092_c_expr); /* line 680 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9092_c_expr); /* line 681 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9092_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 682 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9092_c_expr); /* line 683 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9092_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 1 "no_file" */ /* 4330 */ /* line 687 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_9093_PRC_BLOCK_OTHERWISE (const objRefType/*t_19_reference*/ o_9094_function, const listType/*t_20_ref_list*/ *const o_9095_params, structType/*t_164_expr_type*/ *const o_9096_c_expr) { /* line 691 "../lib/comp/prc_act.s7i" */ objRefType/*t_19_reference*/ o_9097_current_catch=NULL; /* line 692 "../lib/comp/prc_act.s7i" */ listType/*t_20_ref_list*/ o_9098_catch_expr=NULL; /* line 693 "../lib/comp/prc_act.s7i" */ objRefType/*t_19_reference*/ o_9099_catch_value=NULL; /* line 695 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9096_c_expr); /* line 696 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9096_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 697 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9096_c_expr); /* line 698 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9096_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1419] /* "int fail_value;\n" */); /* line 699 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9096_c_expr); /* line 700 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9096_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1420] /* "catch_stack_pos++;\n" */); /* line 701 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9096_c_expr); /* line 702 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9096_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1421] /* "if (unlikely(catch_stack_pos >= max_catch_stack)) {\n" */); /* line 703 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9096_c_expr); /* line 704 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9096_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1422] /* " resize_catch_stack();\n" */); /* line 705 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9096_c_expr); /* line 706 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9096_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 707 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9096_c_expr); /* line 708 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9096_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1423] /* "if (likely((fail_value = do_setjmp(catch_stack[catch_stack_pos])) == 0)) {\n" */); /* line 709 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9095_params, 2L), o_9096_c_expr); /* line 710 "../lib/comp/prc_act.s7i" */ o_9097_current_catch=rflIdx(*o_9095_params, 4L); /* line 711 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9096_c_expr); /* line 712 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9096_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1424] /* "catch_stack_pos--;\n" */); { /* line 713 "../lib/comp/prc_act.s7i" */ listType old_rfl=o_9098_catch_expr; /* line 713 "../lib/comp/prc_act.s7i" */ o_9098_catch_expr=rflValue(o_9097_current_catch); /* line 713 "../lib/comp/prc_act.s7i" */ rflDestr(old_rfl); } /* line 714 "../lib/comp/prc_act.s7i" */ strAppendTemp(&(((structType)(*o_9096_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_9097_current_catch)); /* line 715 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9096_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[222] /* "} else {\n" */); /* line 716 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9096_c_expr); /* line 717 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9096_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1424] /* "catch_stack_pos--;\n" */); /* line 719 "../lib/comp/prc_act.s7i" */ while (((o_9097_current_catch) != (NULL)) && /* line 720 "../lib/comp/prc_act.s7i" */ ((refCategory(o_9097_current_catch)) == (6L)) && /* line 721 "../lib/comp/prc_act.s7i" */ ((rflLng(o_9098_catch_expr)) >= (5L))) { /* line 722 "../lib/comp/prc_act.s7i" */ o_9099_catch_value=rflIdx(o_9098_catch_expr, 3L); /* line 723 "../lib/comp/prc_act.s7i" */ strAppendTemp(&(((structType)(*o_9096_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_9097_current_catch)); /* line 724 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9096_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[401] /* "if (" */); /* line 725 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(o_9099_catch_value, o_9096_c_expr); /* line 726 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9096_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1425] /* " == fail_value - 1) {\n" */); /* line 727 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(o_9098_catch_expr, 5L), o_9096_c_expr); /* line 728 "../lib/comp/prc_act.s7i" */ if ((rflLng(o_9098_catch_expr)) >= (6L)) { /* line 729 "../lib/comp/prc_act.s7i" */ strAppendTemp(&(((structType)(*o_9096_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_9097_current_catch)); /* line 730 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9096_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1426] /* "} else\n" */); /* line 731 "../lib/comp/prc_act.s7i" */ o_9097_current_catch=rflIdx(o_9098_catch_expr, 6L); { /* line 732 "../lib/comp/prc_act.s7i" */ listType old_rfl=o_9098_catch_expr; /* line 732 "../lib/comp/prc_act.s7i" */ o_9098_catch_expr=rflValue(o_9097_current_catch); /* line 732 "../lib/comp/prc_act.s7i" */ rflDestr(old_rfl); } } else { /* line 734 "../lib/comp/prc_act.s7i" */ ++(((structType)(*o_9096_c_expr))->stru[1].value.intValue/*->o_4779_currentLine*/); /* line 735 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9096_c_expr); /* line 736 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9096_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[222] /* "} else {\n" */); /* line 737 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9095_params, 7L), o_9096_c_expr); /* line 738 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9096_c_expr); /* line 739 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9096_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 740 "../lib/comp/prc_act.s7i" */ o_9097_current_catch=NULL; } } /* line 743 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9096_c_expr); /* line 744 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9096_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 745 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9096_c_expr); /* line 746 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9096_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 687 "../lib/comp/prc_act.s7i" */ rflDestr(o_9098_catch_expr); } /* line 1 "no_file" */ /* 4331 */ static void/*t_1_void*/ o_9100_process_func_call (const objRefType/*t_19_reference*/ o_9101_function, const listType/*t_20_ref_list*/ *const o_9102_actual_params, structType/*t_164_expr_type*/ *const o_9103_c_expr); static void/*t_1_void*/ o_9100_process_func_call (const objRefType/*t_19_reference*/ o_9101_function, const listType/*t_20_ref_list*/ *const o_9102_actual_params, structType/*t_164_expr_type*/ *const o_9103_c_expr); /* line 754 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_9104_PRC_DYNAMIC (const objRefType/*t_19_reference*/ o_9105_function, const listType/*t_20_ref_list*/ *const o_9106_params, structType/*t_164_expr_type*/ *const o_9107_c_expr) { /* line 758 "../lib/comp/prc_act.s7i" */ o_9100_process_func_call(o_9105_function, o_9106_params, o_9107_c_expr); } /* line 1 "no_file" */ /* 4332 */ /* line 762 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_9108_PRC_EXIT (const objRefType/*t_19_reference*/ o_9109_function, const listType/*t_20_ref_list*/ *const o_9110_params, structType/*t_164_expr_type*/ *const o_9111_c_expr) { /* line 766 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9111_c_expr); /* line 767 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9111_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1428] /* "exit(" */); /* line 768 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9110_params, 1L), o_9111_c_expr); /* line 769 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9111_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4333 */ /* line 773 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_9112_PRC_HSIZE (const objRefType/*t_19_reference*/ o_9113_function, const listType/*t_20_ref_list*/ *const o_9114_params, structType/*t_164_expr_type*/ *const o_9115_c_expr) { /* line 777 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9115_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1429] /* "heapsize()" */); } /* line 1 "no_file" */ /* 4334 */ /* line 781 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_9116_process_prc_semicol (const listType/*t_20_ref_list*/ *const o_9117_params, structType/*t_164_expr_type*/ *const o_9118_c_expr) { /* line 784 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9117_params, 1L), o_9118_c_expr); /* line 785 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9117_params, 3L), o_9118_c_expr); } /* line 1 "no_file" */ /* 4335 */ /* line 789 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_9119_do_noop_param (const objRefType/*t_19_reference*/ o_9120_formal_param, const objRefType/*t_19_reference*/ o_9121_actual_param, structType/*t_164_expr_type*/ *const o_9122_c_expr) { /* line 793 "../lib/comp/prc_act.s7i" */ intType/*t_86_category*/ o_9123_paramCategory=0; /* line 794 "../lib/comp/prc_act.s7i" */ typeType/*t_7_type*/ o_9124_object_type=typ[0] /* void/t_1_void */; /* line 796 "../lib/comp/prc_act.s7i" */ o_9123_paramCategory=refCategory(o_9121_actual_param); /* line 797 "../lib/comp/prc_act.s7i" */ if (((o_9123_paramCategory) != (0L)) && /* line 798 "../lib/comp/prc_act.s7i" */ ((refCategory(o_9120_formal_param)) != (0L))) { /* line 799 "../lib/comp/prc_act.s7i" */ o_9124_object_type=refType(o_9120_formal_param); /* line 800 "../lib/comp/prc_act.s7i" */ if ((typIsFunc(o_9124_object_type)) || /* line 800 "../lib/comp/prc_act.s7i" */ (typIsVarfunc(o_9124_object_type))) { /* line 801 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9122_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1430] /* "/*expression*\/" */); } else { /* line 811 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9122_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1431] /* "/* " */); /* line 812 "../lib/comp/prc_act.s7i" */ strAppendTemp(&(((structType)(*o_9122_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), refCatStr(o_9123_paramCategory)); /* line 813 "../lib/comp/prc_act.s7i" */ if ((o_9123_paramCategory) == (5L)) { { /* line 814 "../lib/comp/prc_act.s7i" */ listType/*t_20_ref_list*/ tmp_1 = (listType/*t_20_ref_list*/)(NULL); /* line 814 "../lib/comp/prc_act.s7i" */ o_9123_paramCategory=refCategory(rflIdx((tmp_1=(listType/*t_20_ref_list*/)(rflValue(o_9121_actual_param))), 1L)); /* line 814 "../lib/comp/prc_act.s7i" */ rflDestr(tmp_1); } /* line 815 "../lib/comp/prc_act.s7i" */ { /* line 815 "../lib/comp/prc_act.s7i" */ striType *tmp_1; /* line 815 "../lib/comp/prc_act.s7i" */ tmp_1=&(((structType)(*o_9122_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 815 "../lib/comp/prc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 815 "../lib/comp/prc_act.s7i" */ strPush(&(*tmp_1), (charType) ' '); /* line 815 "../lib/comp/prc_act.s7i" */ } else { /* line 815 "../lib/comp/prc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ' '; /* line 815 "../lib/comp/prc_act.s7i" */ (*tmp_1)->size++; /* line 815 "../lib/comp/prc_act.s7i" */ } } /* line 816 "../lib/comp/prc_act.s7i" */ strAppendTemp(&(((structType)(*o_9122_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), refCatStr(o_9123_paramCategory)); /* line 817 "../lib/comp/prc_act.s7i" */ if ((o_9123_paramCategory) == (33L)) { /* line 818 "../lib/comp/prc_act.s7i" */ { /* line 818 "../lib/comp/prc_act.s7i" */ striType *tmp_1; /* line 818 "../lib/comp/prc_act.s7i" */ tmp_1=&(((structType)(*o_9122_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 818 "../lib/comp/prc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 818 "../lib/comp/prc_act.s7i" */ strPush(&(*tmp_1), (charType) ' '); /* line 818 "../lib/comp/prc_act.s7i" */ } else { /* line 818 "../lib/comp/prc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ' '; /* line 818 "../lib/comp/prc_act.s7i" */ (*tmp_1)->size++; /* line 818 "../lib/comp/prc_act.s7i" */ } } { /* line 819 "../lib/comp/prc_act.s7i" */ listType/*t_20_ref_list*/ tmp_2 = (listType/*t_20_ref_list*/)(NULL); /* line 819 "../lib/comp/prc_act.s7i" */ strAppendTemp(&(((structType)(*o_9122_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), actStr(actValue(rflIdx((tmp_2=(listType/*t_20_ref_list*/)(rflValue(o_9121_actual_param))), 1L)))); /* line 819 "../lib/comp/prc_act.s7i" */ rflDestr(tmp_2); } } } /* line 822 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9122_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[281] /* " *\/" */); /* line 823 "../lib/comp/prc_act.s7i" */ o_4970_getAnyParamToExpr(o_9121_actual_param, o_9122_c_expr); /* line 824 "../lib/comp/prc_act.s7i" */ { /* line 824 "../lib/comp/prc_act.s7i" */ striType *tmp_1; /* line 824 "../lib/comp/prc_act.s7i" */ tmp_1=&(((structType)(*o_9122_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 824 "../lib/comp/prc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 824 "../lib/comp/prc_act.s7i" */ strPush(&(*tmp_1), (charType) ';'); /* line 824 "../lib/comp/prc_act.s7i" */ } else { /* line 824 "../lib/comp/prc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ';'; /* line 824 "../lib/comp/prc_act.s7i" */ (*tmp_1)->size++; /* line 824 "../lib/comp/prc_act.s7i" */ } } } } else { /* line 827 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9122_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[190] /* "/*" */); /* line 828 "../lib/comp/prc_act.s7i" */ strAppendTemp(&(((structType)(*o_9122_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), refStr(o_9121_actual_param)); /* line 829 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9122_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[123] /* "*\/" */); } } /* line 1 "no_file" */ /* 4336 */ /* line 834 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_9125_noop_params (const listType/*t_20_ref_list*/ *const o_9126_formal_params, const listType/*t_20_ref_list*/ *const o_9127_actual_params, structType/*t_164_expr_type*/ *const o_9128_c_expr) { /* line 838 "../lib/comp/prc_act.s7i" */ intType/*t_14_integer*/ o_9129_number=0; { /* line 840 "../lib/comp/prc_act.s7i" */ intType tmp_e_1=rflLng(*o_9126_formal_params); /* line 840 "../lib/comp/prc_act.s7i" */ for (o_9129_number=1L; o_9129_number<=tmp_e_1; (o_9129_number)++) { /* line 841 "../lib/comp/prc_act.s7i" */ if ((o_9129_number) <= (rflLng(*o_9127_actual_params))) { /* line 842 "../lib/comp/prc_act.s7i" */ o_9119_do_noop_param(rflIdx(*o_9126_formal_params, o_9129_number), rflIdx(*o_9127_actual_params, o_9129_number), o_9128_c_expr); } } } } /* line 1 "no_file" */ /* 4337 */ /* line 848 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_9130_process_prc_other_noop (const objRefType/*t_19_reference*/ o_9131_function, const listType/*t_20_ref_list*/ *const o_9132_params, structType/*t_164_expr_type*/ *const o_9133_c_expr) { /* line 852 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9133_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1432] /* "/*noop*\/" */); { /* line 853 "../lib/comp/prc_act.s7i" */ listType/*t_20_ref_list*/ tmp_1; /* line 853 "../lib/comp/prc_act.s7i" */ o_9125_noop_params(/* CALLOBJECT */(tmp_1=(listType/*t_20_ref_list*/)(refParams(o_9131_function)), &tmp_1), o_9132_params, o_9133_c_expr); } /* line 854 "../lib/comp/prc_act.s7i" */ { /* line 854 "../lib/comp/prc_act.s7i" */ striType *tmp_1; /* line 854 "../lib/comp/prc_act.s7i" */ tmp_1=&(((structType)(*o_9133_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 854 "../lib/comp/prc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 854 "../lib/comp/prc_act.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 854 "../lib/comp/prc_act.s7i" */ } else { /* line 854 "../lib/comp/prc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 854 "../lib/comp/prc_act.s7i" */ (*tmp_1)->size++; /* line 854 "../lib/comp/prc_act.s7i" */ } } } /* line 1 "no_file" */ /* 4338 */ /* line 858 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_9134_PRC_NOOP (const objRefType/*t_19_reference*/ o_9135_function, const listType/*t_20_ref_list*/ *const o_9136_params, structType/*t_164_expr_type*/ *const o_9137_c_expr) { { /* line 862 "../lib/comp/prc_act.s7i" */ const_striType tmp_1; /* line 862 "../lib/comp/prc_act.s7i" */ striType tmp_2 = NULL; /* line 862 "../lib/comp/prc_act.s7i" */ if (((rflLng(*o_9136_params)) == (3L)) && /* line 862 "../lib/comp/prc_act.s7i" */ ((tmp_1=(tmp_2=refStr(rflIdx(*o_9136_params, 2L))),tmp_1->size==1&&tmp_1->mem[0]==(strElemType)(';') /* ";" */))) { /* line 863 "../lib/comp/prc_act.s7i" */ o_9116_process_prc_semicol(o_9136_params, o_9137_c_expr); } else { /* line 865 "../lib/comp/prc_act.s7i" */ o_9130_process_prc_other_noop(o_9135_function, o_9136_params, o_9137_c_expr); } /* line 862 "../lib/comp/prc_act.s7i" */ strDestr(tmp_2); } } /* line 1 "no_file" */ /* 4339 */ /* line 870 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_9138_PRC_ARGS (const objRefType/*t_19_reference*/ o_9139_function, const listType/*t_20_ref_list*/ *const o_9140_params, structType/*t_164_expr_type*/ *const o_9141_c_expr) { /* line 874 "../lib/comp/prc_act.s7i" */ { /* line 874 "../lib/comp/prc_act.s7i" */ striType *tmp_1; /* line 874 "../lib/comp/prc_act.s7i" */ tmp_1=&(((structType)(*o_9141_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 874 "../lib/comp/prc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 874 "../lib/comp/prc_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 874 "../lib/comp/prc_act.s7i" */ } else { /* line 874 "../lib/comp/prc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 874 "../lib/comp/prc_act.s7i" */ (*tmp_1)->size++; /* line 874 "../lib/comp/prc_act.s7i" */ } } { /* line 875 "../lib/comp/prc_act.s7i" */ typeType/*t_7_type*/ tmp_2; /* line 875 "../lib/comp/prc_act.s7i" */ strAppendTemp(&(((structType)(*o_9141_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(typResult(refType(o_9139_function))), &tmp_2))); } /* line 876 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9141_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1433] /* ")(arg_v)" */); } /* line 1 "no_file" */ /* 4340 */ static void/*t_1_void*/ o_9142_processFuncValue (const const_striType/*t_15_string*/ o_9143_valueName, const typeType/*t_7_type*/ *const o_9144_genericFuncType, const objRefType/*t_19_reference*/ o_9145_closure, structType/*t_164_expr_type*/ *const o_9146_c_expr); static void/*t_1_void*/ o_9142_processFuncValue (const const_striType/*t_15_string*/ o_9143_valueName, const typeType/*t_7_type*/ *const o_9144_genericFuncType, const objRefType/*t_19_reference*/ o_9145_closure, structType/*t_164_expr_type*/ *const o_9146_c_expr); /* line 884 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_9147_PRC_CPY (const objRefType/*t_19_reference*/ o_9148_function, const listType/*t_20_ref_list*/ *const o_9149_params, structType/*t_164_expr_type*/ *const o_9150_c_expr) { /* line 888 "../lib/comp/prc_act.s7i" */ intType/*t_86_category*/ o_9151_paramCategory=0; /* line 889 "../lib/comp/prc_act.s7i" */ striType/*t_15_string*/ o_9152_valueName; /* line 889 "../lib/comp/prc_act.s7i" */ o_9152_valueName=strEmpty(); /* "" */ /* line 891 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9150_c_expr); /* line 892 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9150_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1434] /* "/* prc_cpy *\/ " */); /* line 893 "../lib/comp/prc_act.s7i" */ if (refIsVar(rflIdx(*o_9149_params, 3L))) { /* line 896 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9149_params, 1L), o_9150_c_expr); /* line 897 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9150_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1435] /* " = o_" */); /* line 898 "../lib/comp/prc_act.s7i" */ o_5072_create_name(rflIdx(*o_9149_params, 3L), &(((structType)(*o_9150_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 899 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9150_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); } else /* line 900 "../lib/comp/prc_act.s7i" */ if ((typIsFunc(refType(rflIdx(*o_9149_params, 3L)))) && /* line 900 "../lib/comp/prc_act.s7i" */ ((refType(rflIdx(*o_9149_params, 1L))) == (typResult(refType(rflIdx(*o_9149_params, 3L)))))) { /* line 901 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9150_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1436] /* "/* call func *\/ " */); /* line 902 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9149_params, 1L), o_9150_c_expr); /* line 903 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9150_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1437] /* " = " */); /* line 904 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9149_params, 3L), o_9150_c_expr); /* line 905 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9150_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); } else { /* line 907 "../lib/comp/prc_act.s7i" */ o_9151_paramCategory=refCategory(rflIdx(*o_9149_params, 3L)); /* line 908 "../lib/comp/prc_act.s7i" */ if (((o_9151_paramCategory) == (6L)) || /* line 908 "../lib/comp/prc_act.s7i" */ ((o_9151_paramCategory) == (5L)) || /* line 909 "../lib/comp/prc_act.s7i" */ ((o_9151_paramCategory) == (4L))) { /* line 912 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9149_params, 1L), o_9150_c_expr); /* line 913 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9150_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1437] /* " = " */); /* line 914 "../lib/comp/prc_act.s7i" */ o_5082_create_name(rflIdx(*o_9149_params, 3L), refNum(rflIdx(*o_9149_params, 3L)), &(o_9152_valueName)); { /* line 915 "../lib/comp/prc_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 915 "../lib/comp/prc_act.s7i" */ o_9142_processFuncValue(o_9152_valueName, /* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(rflIdx(*o_9149_params, 3L))), &tmp_1), rflIdx(*o_9149_params, 3L), o_9150_c_expr); } /* line 916 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9150_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); } else { /* line 920 "../lib/comp/prc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9149_params, 1L), o_9150_c_expr); /* line 921 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9150_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1435] /* " = o_" */); /* line 922 "../lib/comp/prc_act.s7i" */ o_5072_create_name(rflIdx(*o_9149_params, 3L), &(((structType)(*o_9150_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 923 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9150_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); } } /* line 884 "../lib/comp/prc_act.s7i" */ strDestr(o_9152_valueName); } /* line 1 "no_file" */ /* 4341 */ /* line 929 "../lib/comp/prc_act.s7i" */ static void/*t_1_void*/ o_9153_PRC_RAISE (const objRefType/*t_19_reference*/ o_9154_function, const listType/*t_20_ref_list*/ *const o_9155_params, structType/*t_164_expr_type*/ *const o_9156_c_expr) { /* line 933 "../lib/comp/prc_act.s7i" */ o_4819_setDiagnosticLine(o_9156_c_expr); /* line 934 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9156_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1438] /* "rtlRaiseError(" */); /* line 935 "../lib/comp/prc_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9155_params, 2L), o_9156_c_expr); /* line 936 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9156_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1439] /* "+1, " */); /* line 937 "../lib/comp/prc_act.s7i" */ strAppendTemp(&(((structType)(*o_9156_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4811_sourceNameString(((structType)(*o_9156_c_expr))->stru[0].value.striValue/*->o_4778_currentFile*/)); /* line 938 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9156_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); { /* line 939 "../lib/comp/prc_act.s7i" */ union { /* line 939 "../lib/comp/prc_act.s7i" */ struct striStruct striBuf; /* line 939 "../lib/comp/prc_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 939 "../lib/comp/prc_act.s7i" */ } buffer_1; /* line 939 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9156_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(((structType)(*o_9156_c_expr))->stru[1].value.intValue/*->o_4779_currentLine*/, &buffer_1.striBuf)); } /* line 940 "../lib/comp/prc_act.s7i" */ strAppend(&(((structType)(*o_9156_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4342 */ /* 4343 */ /* line 47 "../lib/comp/prg_act.s7i" */ static void/*t_1_void*/ o_9157_prg_prototypes (interfaceType/*t_46_file*/ *const o_9158_c_prog) { /* line 50 "../lib/comp/prg_act.s7i" */ o_6547_declareExtern(o_9158_c_prog, &str[1440] /* "void prgCpy (progType *const, const progType);" */); /* line 51 "../lib/comp/prg_act.s7i" */ o_6547_declareExtern(o_9158_c_prog, &str[1441] /* "progType prgCreate (const progType);" */); /* line 52 "../lib/comp/prg_act.s7i" */ o_6547_declareExtern(o_9158_c_prog, &str[1442] /* "void prgDestr (progType);" */); /* line 53 "../lib/comp/prg_act.s7i" */ o_6547_declareExtern(o_9158_c_prog, &str[1443] /* "intType prgErrorCount (const const_progType);" */); /* line 54 "../lib/comp/prg_act.s7i" */ o_6547_declareExtern(o_9158_c_prog, &str[1444] /* "objRefType prgEval (progType, objRefType);" */); /* line 55 "../lib/comp/prg_act.s7i" */ o_6547_declareExtern(o_9158_c_prog, &str[1445] /* "void prgExec (const const_progType, const const_arrayType, const_setType, const_striType);" */); /* line 56 "../lib/comp/prg_act.s7i" */ o_6547_declareExtern(o_9158_c_prog, &str[1446] /* "progType prgFilParse (const const_striType, const_setType, const const_arrayType, const_striType);" */); /* line 57 "../lib/comp/prg_act.s7i" */ o_6547_declareExtern(o_9158_c_prog, &str[1447] /* "listType prgGlobalObjects (const const_progType);" */); /* line 58 "../lib/comp/prg_act.s7i" */ o_6547_declareExtern(o_9158_c_prog, &str[1448] /* "objRefType prgMatch (const const_progType, listType);" */); /* line 59 "../lib/comp/prg_act.s7i" */ o_6547_declareExtern(o_9158_c_prog, &str[1449] /* "objRefType prgMatchExpr (const const_progType, listType);" */); /* line 60 "../lib/comp/prg_act.s7i" */ o_6547_declareExtern(o_9158_c_prog, &str[1450] /* "const_striType prgName (const const_progType);" */); /* line 61 "../lib/comp/prg_act.s7i" */ o_6547_declareExtern(o_9158_c_prog, &str[1451] /* "const_striType prgPath (const const_progType);" */); /* line 62 "../lib/comp/prg_act.s7i" */ o_6547_declareExtern(o_9158_c_prog, &str[1452] /* "progType prgStrParse (const const_striType, const_setType, const const_arrayType, const_striType);" */); /* line 63 "../lib/comp/prg_act.s7i" */ o_6547_declareExtern(o_9158_c_prog, &str[1453] /* "objRefType prgSyobject (const progType, const const_striType);" */); /* line 64 "../lib/comp/prg_act.s7i" */ o_6547_declareExtern(o_9158_c_prog, &str[1454] /* "objRefType prgSysvar (const const_progType, const const_striType);" */); /* line 65 "../lib/comp/prg_act.s7i" */ o_6547_declareExtern(o_9158_c_prog, &str[1455] /* "progType prgValue (objRefType);" */); } /* line 1 "no_file" */ /* 4344 */ /* line 69 "../lib/comp/prg_act.s7i" */ static void/*t_1_void*/ o_9159_PRG_CPY (const objRefType/*t_19_reference*/ o_9160_function, const listType/*t_20_ref_list*/ *const o_9161_params, structType/*t_164_expr_type*/ *const o_9162_c_expr) { /* line 73 "../lib/comp/prg_act.s7i" */ structType/*t_164_expr_type*/ o_9163_c_param1; /* line 74 "../lib/comp/prg_act.s7i" */ structType/*t_164_expr_type*/ o_9164_c_param3; /* line 73 "../lib/comp/prg_act.s7i" */ o_9163_c_param1=create_164(sct[281]); /* line 74 "../lib/comp/prg_act.s7i" */ o_9164_c_param3=create_164(sct[282]); /* line 76 "../lib/comp/prg_act.s7i" */ o_6541_compilerLibraryUsed=o_26_TRUE; /* line 77 "../lib/comp/prg_act.s7i" */ o_4941_process_expr(rflIdx(*o_9161_params, 1L), &(o_9163_c_param1)); /* line 78 "../lib/comp/prg_act.s7i" */ ((structType)(o_9164_c_param3))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_9163_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 79 "../lib/comp/prg_act.s7i" */ o_4941_process_expr(rflIdx(*o_9161_params, 3L), &(o_9164_c_param3)); /* line 80 "../lib/comp/prg_act.s7i" */ if (o_5049_has_temp_values(o_9164_c_param3)) { /* line 81 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 82 "../lib/comp/prg_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9163_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9162_c_expr); /* line 83 "../lib/comp/prg_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9164_c_param3))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9162_c_expr); /* line 84 "../lib/comp/prg_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9163_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9162_c_expr); /* line 85 "../lib/comp/prg_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9164_c_param3))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9162_c_expr); } /* line 87 "../lib/comp/prg_act.s7i" */ if (((((structType)(o_9164_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 88 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 89 "../lib/comp/prg_act.s7i" */ o_4819_setDiagnosticLine(o_9162_c_expr); /* line 90 "../lib/comp/prg_act.s7i" */ if (o_5018_isNormalVariable(rflIdx(*o_9161_params, 1L))) { /* line 91 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1456] /* "progType old_prog=" */); /* line 92 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9163_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 93 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 94 "../lib/comp/prg_act.s7i" */ o_4819_setDiagnosticLine(o_9162_c_expr); /* line 95 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9163_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 96 "../lib/comp/prg_act.s7i" */ { /* line 96 "../lib/comp/prg_act.s7i" */ striType *tmp_1; /* line 96 "../lib/comp/prg_act.s7i" */ tmp_1=&(((structType)(*o_9162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 96 "../lib/comp/prg_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 96 "../lib/comp/prg_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 96 "../lib/comp/prg_act.s7i" */ } else { /* line 96 "../lib/comp/prg_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 96 "../lib/comp/prg_act.s7i" */ (*tmp_1)->size++; /* line 96 "../lib/comp/prg_act.s7i" */ } } } else { /* line 98 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1457] /* "progType *prg_ptr=&(" */); /* line 99 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9163_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 100 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 101 "../lib/comp/prg_act.s7i" */ o_4819_setDiagnosticLine(o_9162_c_expr); /* line 102 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1458] /* "progType old_prog=*prg_ptr;\n" */); /* line 103 "../lib/comp/prg_act.s7i" */ o_4819_setDiagnosticLine(o_9162_c_expr); /* line 104 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1459] /* "*prg_ptr=" */); } /* line 106 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9164_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 107 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 108 "../lib/comp/prg_act.s7i" */ o_4819_setDiagnosticLine(o_9162_c_expr); /* line 109 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1460] /* "prgDestr(old_prog);\n" */); /* line 110 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } else { /* line 112 "../lib/comp/prg_act.s7i" */ o_4819_setDiagnosticLine(o_9162_c_expr); /* line 113 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[274] /* "prgCpy(&(" */); /* line 114 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9163_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 115 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 116 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9164_c_param3))->stru[5].value.striValue/*->o_4783_expr*/); /* line 117 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 119 "../lib/comp/prg_act.s7i" */ if (o_5049_has_temp_values(o_9164_c_param3)) { /* line 120 "../lib/comp/prg_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9163_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9162_c_expr); /* line 121 "../lib/comp/prg_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9164_c_param3))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9162_c_expr); /* line 122 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 69 "../lib/comp/prg_act.s7i" */ destr_164(o_9163_c_param1); /* line 69 "../lib/comp/prg_act.s7i" */ destr_164(o_9164_c_param3); } /* line 1 "no_file" */ /* 4345 */ /* line 127 "../lib/comp/prg_act.s7i" */ static void/*t_1_void*/ o_9165_PRG_EQ (const objRefType/*t_19_reference*/ o_9166_function, const listType/*t_20_ref_list*/ *const o_9167_params, structType/*t_164_expr_type*/ *const o_9168_c_expr) { /* line 131 "../lib/comp/prg_act.s7i" */ { /* line 131 "../lib/comp/prg_act.s7i" */ striType *tmp_1; /* line 131 "../lib/comp/prg_act.s7i" */ tmp_1=&(((structType)(*o_9168_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 131 "../lib/comp/prg_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 131 "../lib/comp/prg_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 131 "../lib/comp/prg_act.s7i" */ } else { /* line 131 "../lib/comp/prg_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 131 "../lib/comp/prg_act.s7i" */ (*tmp_1)->size++; /* line 131 "../lib/comp/prg_act.s7i" */ } } /* line 132 "../lib/comp/prg_act.s7i" */ o_4941_process_expr(rflIdx(*o_9167_params, 1L), o_9168_c_expr); /* line 133 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9168_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[350] /* ") == (" */); /* line 134 "../lib/comp/prg_act.s7i" */ o_4941_process_expr(rflIdx(*o_9167_params, 3L), o_9168_c_expr); /* line 135 "../lib/comp/prg_act.s7i" */ { /* line 135 "../lib/comp/prg_act.s7i" */ striType *tmp_1; /* line 135 "../lib/comp/prg_act.s7i" */ tmp_1=&(((structType)(*o_9168_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 135 "../lib/comp/prg_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 135 "../lib/comp/prg_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 135 "../lib/comp/prg_act.s7i" */ } else { /* line 135 "../lib/comp/prg_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 135 "../lib/comp/prg_act.s7i" */ (*tmp_1)->size++; /* line 135 "../lib/comp/prg_act.s7i" */ } } } /* line 1 "no_file" */ /* 4346 */ /* line 139 "../lib/comp/prg_act.s7i" */ static void/*t_1_void*/ o_9169_PRG_ERROR_COUNT (const objRefType/*t_19_reference*/ o_9170_function, const listType/*t_20_ref_list*/ *const o_9171_params, structType/*t_164_expr_type*/ *const o_9172_c_expr) { /* line 143 "../lib/comp/prg_act.s7i" */ o_6541_compilerLibraryUsed=o_26_TRUE; /* line 144 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9172_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1461] /* "prgErrorCount(" */); /* line 145 "../lib/comp/prg_act.s7i" */ o_4941_process_expr(rflIdx(*o_9171_params, 1L), o_9172_c_expr); /* line 146 "../lib/comp/prg_act.s7i" */ { /* line 146 "../lib/comp/prg_act.s7i" */ striType *tmp_1; /* line 146 "../lib/comp/prg_act.s7i" */ tmp_1=&(((structType)(*o_9172_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 146 "../lib/comp/prg_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 146 "../lib/comp/prg_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 146 "../lib/comp/prg_act.s7i" */ } else { /* line 146 "../lib/comp/prg_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 146 "../lib/comp/prg_act.s7i" */ (*tmp_1)->size++; /* line 146 "../lib/comp/prg_act.s7i" */ } } } /* line 1 "no_file" */ /* 4347 */ /* line 150 "../lib/comp/prg_act.s7i" */ static void/*t_1_void*/ o_9173_PRG_EVAL (const objRefType/*t_19_reference*/ o_9174_function, const listType/*t_20_ref_list*/ *const o_9175_params, structType/*t_164_expr_type*/ *const o_9176_c_expr) { /* line 154 "../lib/comp/prg_act.s7i" */ o_6541_compilerLibraryUsed=o_26_TRUE; /* line 155 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1462] /* "prgEval(" */); /* line 156 "../lib/comp/prg_act.s7i" */ o_4941_process_expr(rflIdx(*o_9175_params, 1L), o_9176_c_expr); /* line 157 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 158 "../lib/comp/prg_act.s7i" */ o_4941_process_expr(rflIdx(*o_9175_params, 2L), o_9176_c_expr); /* line 159 "../lib/comp/prg_act.s7i" */ { /* line 159 "../lib/comp/prg_act.s7i" */ striType *tmp_1; /* line 159 "../lib/comp/prg_act.s7i" */ tmp_1=&(((structType)(*o_9176_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 159 "../lib/comp/prg_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 159 "../lib/comp/prg_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 159 "../lib/comp/prg_act.s7i" */ } else { /* line 159 "../lib/comp/prg_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 159 "../lib/comp/prg_act.s7i" */ (*tmp_1)->size++; /* line 159 "../lib/comp/prg_act.s7i" */ } } } /* line 1 "no_file" */ /* 4348 */ /* line 163 "../lib/comp/prg_act.s7i" */ static void/*t_1_void*/ o_9177_PRG_EXEC (const objRefType/*t_19_reference*/ o_9178_function, const listType/*t_20_ref_list*/ *const o_9179_params, structType/*t_164_expr_type*/ *const o_9180_c_expr) { /* line 167 "../lib/comp/prg_act.s7i" */ o_6541_compilerLibraryUsed=o_26_TRUE; /* line 168 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9180_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1463] /* "prgExec(" */); /* line 169 "../lib/comp/prg_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9179_params, 1L), o_9180_c_expr); /* line 170 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9180_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 171 "../lib/comp/prg_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9179_params, 2L), o_9180_c_expr); /* line 172 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9180_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 173 "../lib/comp/prg_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9179_params, 3L), o_9180_c_expr); /* line 174 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9180_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 175 "../lib/comp/prg_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9179_params, 4L), o_9180_c_expr); /* line 176 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9180_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4349 */ /* line 180 "../lib/comp/prg_act.s7i" */ static void/*t_1_void*/ o_9181_PRG_FIL_PARSE (const objRefType/*t_19_reference*/ o_9182_function, const listType/*t_20_ref_list*/ *const o_9183_params, structType/*t_164_expr_type*/ *const o_9184_c_expr) { /* line 184 "../lib/comp/prg_act.s7i" */ o_6541_compilerLibraryUsed=o_26_TRUE; /* line 185 "../lib/comp/prg_act.s7i" */ o_4959_prepare_prog_result(o_9184_c_expr); /* line 186 "../lib/comp/prg_act.s7i" */ strCopy(&(((structType)(*o_9184_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1464] /* "prgFilParse(" */); /* line 187 "../lib/comp/prg_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9183_params, 1L), o_9184_c_expr); /* line 188 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9184_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 189 "../lib/comp/prg_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9183_params, 2L), o_9184_c_expr); /* line 190 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9184_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 191 "../lib/comp/prg_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9183_params, 3L), o_9184_c_expr); /* line 192 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9184_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 193 "../lib/comp/prg_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9183_params, 4L), o_9184_c_expr); /* line 194 "../lib/comp/prg_act.s7i" */ { /* line 194 "../lib/comp/prg_act.s7i" */ striType *tmp_1; /* line 194 "../lib/comp/prg_act.s7i" */ tmp_1=&(((structType)(*o_9184_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 194 "../lib/comp/prg_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 194 "../lib/comp/prg_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 194 "../lib/comp/prg_act.s7i" */ } else { /* line 194 "../lib/comp/prg_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 194 "../lib/comp/prg_act.s7i" */ (*tmp_1)->size++; /* line 194 "../lib/comp/prg_act.s7i" */ } } } /* line 1 "no_file" */ /* 4350 */ /* line 198 "../lib/comp/prg_act.s7i" */ static void/*t_1_void*/ o_9185_PRG_GLOBAL_OBJECTS (const objRefType/*t_19_reference*/ o_9186_function, const listType/*t_20_ref_list*/ *const o_9187_params, structType/*t_164_expr_type*/ *const o_9188_c_expr) { /* line 202 "../lib/comp/prg_act.s7i" */ o_6541_compilerLibraryUsed=o_26_TRUE; { /* line 203 "../lib/comp/prg_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 203 "../lib/comp/prg_act.s7i" */ o_4949_prepare_list_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_9186_function))), &tmp_1), o_9188_c_expr); } /* line 204 "../lib/comp/prg_act.s7i" */ strCopy(&(((structType)(*o_9188_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1465] /* "prgGlobalObjects(" */); /* line 205 "../lib/comp/prg_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9187_params, 1L), o_9188_c_expr); /* line 206 "../lib/comp/prg_act.s7i" */ { /* line 206 "../lib/comp/prg_act.s7i" */ striType *tmp_1; /* line 206 "../lib/comp/prg_act.s7i" */ tmp_1=&(((structType)(*o_9188_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 206 "../lib/comp/prg_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 206 "../lib/comp/prg_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 206 "../lib/comp/prg_act.s7i" */ } else { /* line 206 "../lib/comp/prg_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 206 "../lib/comp/prg_act.s7i" */ (*tmp_1)->size++; /* line 206 "../lib/comp/prg_act.s7i" */ } } } /* line 1 "no_file" */ /* 4351 */ /* line 210 "../lib/comp/prg_act.s7i" */ static void/*t_1_void*/ o_9189_PRG_MATCH (const objRefType/*t_19_reference*/ o_9190_function, const listType/*t_20_ref_list*/ *const o_9191_params, structType/*t_164_expr_type*/ *const o_9192_c_expr) { /* line 214 "../lib/comp/prg_act.s7i" */ o_6541_compilerLibraryUsed=o_26_TRUE; /* line 215 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9192_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1466] /* "prgMatch(" */); /* line 216 "../lib/comp/prg_act.s7i" */ o_4941_process_expr(rflIdx(*o_9191_params, 1L), o_9192_c_expr); /* line 217 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9192_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 218 "../lib/comp/prg_act.s7i" */ o_4941_process_expr(rflIdx(*o_9191_params, 2L), o_9192_c_expr); /* line 219 "../lib/comp/prg_act.s7i" */ { /* line 219 "../lib/comp/prg_act.s7i" */ striType *tmp_1; /* line 219 "../lib/comp/prg_act.s7i" */ tmp_1=&(((structType)(*o_9192_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 219 "../lib/comp/prg_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 219 "../lib/comp/prg_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 219 "../lib/comp/prg_act.s7i" */ } else { /* line 219 "../lib/comp/prg_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 219 "../lib/comp/prg_act.s7i" */ (*tmp_1)->size++; /* line 219 "../lib/comp/prg_act.s7i" */ } } } /* line 1 "no_file" */ /* 4352 */ /* line 223 "../lib/comp/prg_act.s7i" */ static void/*t_1_void*/ o_9193_PRG_MATCH_EXPR (const objRefType/*t_19_reference*/ o_9194_function, const listType/*t_20_ref_list*/ *const o_9195_params, structType/*t_164_expr_type*/ *const o_9196_c_expr) { /* line 227 "../lib/comp/prg_act.s7i" */ o_6541_compilerLibraryUsed=o_26_TRUE; /* line 228 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9196_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1467] /* "prgMatchExpr(" */); /* line 229 "../lib/comp/prg_act.s7i" */ o_4941_process_expr(rflIdx(*o_9195_params, 1L), o_9196_c_expr); /* line 230 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9196_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 231 "../lib/comp/prg_act.s7i" */ o_4941_process_expr(rflIdx(*o_9195_params, 2L), o_9196_c_expr); /* line 232 "../lib/comp/prg_act.s7i" */ { /* line 232 "../lib/comp/prg_act.s7i" */ striType *tmp_1; /* line 232 "../lib/comp/prg_act.s7i" */ tmp_1=&(((structType)(*o_9196_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 232 "../lib/comp/prg_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 232 "../lib/comp/prg_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 232 "../lib/comp/prg_act.s7i" */ } else { /* line 232 "../lib/comp/prg_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 232 "../lib/comp/prg_act.s7i" */ (*tmp_1)->size++; /* line 232 "../lib/comp/prg_act.s7i" */ } } } /* line 1 "no_file" */ /* 4353 */ /* line 236 "../lib/comp/prg_act.s7i" */ static void/*t_1_void*/ o_9197_PRG_NAME (const objRefType/*t_19_reference*/ o_9198_function, const listType/*t_20_ref_list*/ *const o_9199_params, structType/*t_164_expr_type*/ *const o_9200_c_expr) { /* line 240 "../lib/comp/prg_act.s7i" */ o_6541_compilerLibraryUsed=o_26_TRUE; /* line 241 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9200_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1468] /* "prgName(" */); /* line 242 "../lib/comp/prg_act.s7i" */ o_4941_process_expr(rflIdx(*o_9199_params, 1L), o_9200_c_expr); /* line 243 "../lib/comp/prg_act.s7i" */ { /* line 243 "../lib/comp/prg_act.s7i" */ striType *tmp_1; /* line 243 "../lib/comp/prg_act.s7i" */ tmp_1=&(((structType)(*o_9200_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 243 "../lib/comp/prg_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 243 "../lib/comp/prg_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 243 "../lib/comp/prg_act.s7i" */ } else { /* line 243 "../lib/comp/prg_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 243 "../lib/comp/prg_act.s7i" */ (*tmp_1)->size++; /* line 243 "../lib/comp/prg_act.s7i" */ } } } /* line 1 "no_file" */ /* 4354 */ /* line 247 "../lib/comp/prg_act.s7i" */ static void/*t_1_void*/ o_9201_PRG_NE (const objRefType/*t_19_reference*/ o_9202_function, const listType/*t_20_ref_list*/ *const o_9203_params, structType/*t_164_expr_type*/ *const o_9204_c_expr) { /* line 251 "../lib/comp/prg_act.s7i" */ { /* line 251 "../lib/comp/prg_act.s7i" */ striType *tmp_1; /* line 251 "../lib/comp/prg_act.s7i" */ tmp_1=&(((structType)(*o_9204_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 251 "../lib/comp/prg_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 251 "../lib/comp/prg_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 251 "../lib/comp/prg_act.s7i" */ } else { /* line 251 "../lib/comp/prg_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 251 "../lib/comp/prg_act.s7i" */ (*tmp_1)->size++; /* line 251 "../lib/comp/prg_act.s7i" */ } } /* line 252 "../lib/comp/prg_act.s7i" */ o_4941_process_expr(rflIdx(*o_9203_params, 1L), o_9204_c_expr); /* line 253 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9204_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[352] /* ") != (" */); /* line 254 "../lib/comp/prg_act.s7i" */ o_4941_process_expr(rflIdx(*o_9203_params, 3L), o_9204_c_expr); /* line 255 "../lib/comp/prg_act.s7i" */ { /* line 255 "../lib/comp/prg_act.s7i" */ striType *tmp_1; /* line 255 "../lib/comp/prg_act.s7i" */ tmp_1=&(((structType)(*o_9204_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 255 "../lib/comp/prg_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 255 "../lib/comp/prg_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 255 "../lib/comp/prg_act.s7i" */ } else { /* line 255 "../lib/comp/prg_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 255 "../lib/comp/prg_act.s7i" */ (*tmp_1)->size++; /* line 255 "../lib/comp/prg_act.s7i" */ } } } /* line 1 "no_file" */ /* 4355 */ /* line 259 "../lib/comp/prg_act.s7i" */ static void/*t_1_void*/ o_9205_PRG_OWN_NAME (const objRefType/*t_19_reference*/ o_9206_function, const listType/*t_20_ref_list*/ *const o_9207_params, structType/*t_164_expr_type*/ *const o_9208_c_expr) { /* line 263 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9208_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1469] /* "programName" */); } /* line 1 "no_file" */ /* 4356 */ /* line 267 "../lib/comp/prg_act.s7i" */ static void/*t_1_void*/ o_9209_PRG_OWN_PATH (const objRefType/*t_19_reference*/ o_9210_function, const listType/*t_20_ref_list*/ *const o_9211_params, structType/*t_164_expr_type*/ *const o_9212_c_expr) { /* line 271 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9212_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1470] /* "programPath" */); } /* line 1 "no_file" */ /* 4357 */ /* line 275 "../lib/comp/prg_act.s7i" */ static void/*t_1_void*/ o_9213_PRG_PATH (const objRefType/*t_19_reference*/ o_9214_function, const listType/*t_20_ref_list*/ *const o_9215_params, structType/*t_164_expr_type*/ *const o_9216_c_expr) { /* line 279 "../lib/comp/prg_act.s7i" */ o_6541_compilerLibraryUsed=o_26_TRUE; /* line 280 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9216_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1471] /* "prgPath(" */); /* line 281 "../lib/comp/prg_act.s7i" */ o_4941_process_expr(rflIdx(*o_9215_params, 1L), o_9216_c_expr); /* line 282 "../lib/comp/prg_act.s7i" */ { /* line 282 "../lib/comp/prg_act.s7i" */ striType *tmp_1; /* line 282 "../lib/comp/prg_act.s7i" */ tmp_1=&(((structType)(*o_9216_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 282 "../lib/comp/prg_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 282 "../lib/comp/prg_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 282 "../lib/comp/prg_act.s7i" */ } else { /* line 282 "../lib/comp/prg_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 282 "../lib/comp/prg_act.s7i" */ (*tmp_1)->size++; /* line 282 "../lib/comp/prg_act.s7i" */ } } } /* line 1 "no_file" */ /* 4358 */ /* line 286 "../lib/comp/prg_act.s7i" */ static void/*t_1_void*/ o_9217_PRG_STR_PARSE (const objRefType/*t_19_reference*/ o_9218_function, const listType/*t_20_ref_list*/ *const o_9219_params, structType/*t_164_expr_type*/ *const o_9220_c_expr) { /* line 290 "../lib/comp/prg_act.s7i" */ o_6541_compilerLibraryUsed=o_26_TRUE; /* line 291 "../lib/comp/prg_act.s7i" */ o_4959_prepare_prog_result(o_9220_c_expr); /* line 292 "../lib/comp/prg_act.s7i" */ strCopy(&(((structType)(*o_9220_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1472] /* "prgStrParse(" */); /* line 293 "../lib/comp/prg_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9219_params, 1L), o_9220_c_expr); /* line 294 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9220_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 295 "../lib/comp/prg_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9219_params, 2L), o_9220_c_expr); /* line 296 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9220_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 297 "../lib/comp/prg_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9219_params, 3L), o_9220_c_expr); /* line 298 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9220_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 299 "../lib/comp/prg_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9219_params, 4L), o_9220_c_expr); /* line 300 "../lib/comp/prg_act.s7i" */ { /* line 300 "../lib/comp/prg_act.s7i" */ striType *tmp_1; /* line 300 "../lib/comp/prg_act.s7i" */ tmp_1=&(((structType)(*o_9220_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 300 "../lib/comp/prg_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 300 "../lib/comp/prg_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 300 "../lib/comp/prg_act.s7i" */ } else { /* line 300 "../lib/comp/prg_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 300 "../lib/comp/prg_act.s7i" */ (*tmp_1)->size++; /* line 300 "../lib/comp/prg_act.s7i" */ } } } /* line 1 "no_file" */ /* 4359 */ /* line 304 "../lib/comp/prg_act.s7i" */ static void/*t_1_void*/ o_9221_PRG_SYOBJECT (const objRefType/*t_19_reference*/ o_9222_function, const listType/*t_20_ref_list*/ *const o_9223_params, structType/*t_164_expr_type*/ *const o_9224_c_expr) { /* line 308 "../lib/comp/prg_act.s7i" */ o_6541_compilerLibraryUsed=o_26_TRUE; /* line 309 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9224_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1473] /* "prgSyobject(" */); /* line 310 "../lib/comp/prg_act.s7i" */ o_4941_process_expr(rflIdx(*o_9223_params, 1L), o_9224_c_expr); /* line 311 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9224_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 312 "../lib/comp/prg_act.s7i" */ o_4941_process_expr(rflIdx(*o_9223_params, 2L), o_9224_c_expr); /* line 313 "../lib/comp/prg_act.s7i" */ { /* line 313 "../lib/comp/prg_act.s7i" */ striType *tmp_1; /* line 313 "../lib/comp/prg_act.s7i" */ tmp_1=&(((structType)(*o_9224_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 313 "../lib/comp/prg_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 313 "../lib/comp/prg_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 313 "../lib/comp/prg_act.s7i" */ } else { /* line 313 "../lib/comp/prg_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 313 "../lib/comp/prg_act.s7i" */ (*tmp_1)->size++; /* line 313 "../lib/comp/prg_act.s7i" */ } } } /* line 1 "no_file" */ /* 4360 */ /* line 317 "../lib/comp/prg_act.s7i" */ static void/*t_1_void*/ o_9225_PRG_SYSVAR (const objRefType/*t_19_reference*/ o_9226_function, const listType/*t_20_ref_list*/ *const o_9227_params, structType/*t_164_expr_type*/ *const o_9228_c_expr) { /* line 321 "../lib/comp/prg_act.s7i" */ o_6541_compilerLibraryUsed=o_26_TRUE; /* line 322 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9228_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1474] /* "prgSysvar(" */); /* line 323 "../lib/comp/prg_act.s7i" */ o_4941_process_expr(rflIdx(*o_9227_params, 1L), o_9228_c_expr); /* line 324 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9228_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 325 "../lib/comp/prg_act.s7i" */ o_4941_process_expr(rflIdx(*o_9227_params, 2L), o_9228_c_expr); /* line 326 "../lib/comp/prg_act.s7i" */ { /* line 326 "../lib/comp/prg_act.s7i" */ striType *tmp_1; /* line 326 "../lib/comp/prg_act.s7i" */ tmp_1=&(((structType)(*o_9228_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 326 "../lib/comp/prg_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 326 "../lib/comp/prg_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 326 "../lib/comp/prg_act.s7i" */ } else { /* line 326 "../lib/comp/prg_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 326 "../lib/comp/prg_act.s7i" */ (*tmp_1)->size++; /* line 326 "../lib/comp/prg_act.s7i" */ } } } /* line 1 "no_file" */ /* 4361 */ /* line 330 "../lib/comp/prg_act.s7i" */ static void/*t_1_void*/ o_9229_PRG_VALUE (const objRefType/*t_19_reference*/ o_9230_function, const listType/*t_20_ref_list*/ *const o_9231_params, structType/*t_164_expr_type*/ *const o_9232_c_expr) { /* line 334 "../lib/comp/prg_act.s7i" */ o_6541_compilerLibraryUsed=o_26_TRUE; /* line 335 "../lib/comp/prg_act.s7i" */ strAppend(&(((structType)(*o_9232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1475] /* "prgValue(" */); /* line 336 "../lib/comp/prg_act.s7i" */ o_4941_process_expr(rflIdx(*o_9231_params, 1L), o_9232_c_expr); /* line 337 "../lib/comp/prg_act.s7i" */ { /* line 337 "../lib/comp/prg_act.s7i" */ striType *tmp_1; /* line 337 "../lib/comp/prg_act.s7i" */ tmp_1=&(((structType)(*o_9232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 337 "../lib/comp/prg_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 337 "../lib/comp/prg_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 337 "../lib/comp/prg_act.s7i" */ } else { /* line 337 "../lib/comp/prg_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 337 "../lib/comp/prg_act.s7i" */ (*tmp_1)->size++; /* line 337 "../lib/comp/prg_act.s7i" */ } } } /* line 1 "no_file" */ /* 4362 */ /* 4363 */ /* 4364 */ /* line 68 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9233_ref_prototypes (interfaceType/*t_46_file*/ *const o_9234_c_prog) { /* line 71 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1476] /* "objRefType refAlloc (objRefType);" */); /* line 72 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1477] /* "intType refArrMaxIdx (objRefType);" */); /* line 73 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1478] /* "intType refArrMinIdx (objRefType);" */); /* line 74 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1479] /* "listType refArrToList (objRefType);" */); /* line 75 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1480] /* "objRefType refBody (objRefType);" */); /* line 76 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1481] /* "intType refCategory (objRefType);" */); /* line 77 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1482] /* "striType refCatStr (intType);" */); /* line 78 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1483] /* "striType refFile (objRefType);" */); /* line 79 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1484] /* "listType refHshDataToList (objRefType);" */); /* line 80 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1485] /* "listType refHshKeysToList (objRefType);" */); /* line 81 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1486] /* "boolType refIsVar (objRefType);" */); /* line 82 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1487] /* "objRefType refItfToSct (objRefType);" */); /* line 83 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1488] /* "intType refLine (objRefType);" */); /* line 84 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1489] /* "listType refLocalConsts (objRefType);" */); /* line 85 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1490] /* "listType refLocalVars (objRefType);" */); /* line 86 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1491] /* "intType refNum (objRefType);" */); /* line 87 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1492] /* "listType refParams (objRefType);" */); /* line 88 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1493] /* "objRefType refResini (objRefType);" */); /* line 89 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1494] /* "objRefType refResult (objRefType);" */); /* line 90 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1495] /* "listType refSctToList (objRefType);" */); /* line 91 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1496] /* "void refSetCategory (objRefType, intType);" */); /* line 92 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1497] /* "void refSetParams (objRefType, const_listType);" */); /* line 93 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1498] /* "void refSetType (objRefType, typeType);" */); /* line 94 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1499] /* "void refSetVar (objRefType, boolType);" */); /* line 95 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1500] /* "striType refStr (objRefType);" */); /* line 96 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1501] /* "typeType refType (objRefType);" */); /* line 97 "../lib/comp/ref_act.s7i" */ o_6547_declareExtern(o_9234_c_prog, &str[1502] /* "objRefType refValue (objRefType);" */); } /* line 1 "no_file" */ /* 4365 */ /* line 101 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9235_REF_ADDR (const objRefType/*t_19_reference*/ o_9236_function, const listType/*t_20_ref_list*/ *const o_9237_params, structType/*t_164_expr_type*/ *const o_9238_c_expr) { /* line 105 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9238_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1503] /* "&(" */); /* line 106 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9237_params, 2L), o_9238_c_expr); /* line 107 "../lib/comp/ref_act.s7i" */ { /* line 107 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 107 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9238_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 107 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 107 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 107 "../lib/comp/ref_act.s7i" */ } else { /* line 107 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 107 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 107 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4366 */ /* line 111 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9239_REF_ALLOC (const objRefType/*t_19_reference*/ o_9240_function, const listType/*t_20_ref_list*/ *const o_9241_params, structType/*t_164_expr_type*/ *const o_9242_c_expr) { /* line 115 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 116 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9242_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1504] /* "refAlloc(" */); /* line 117 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9241_params, 1L), o_9242_c_expr); /* line 118 "../lib/comp/ref_act.s7i" */ { /* line 118 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 118 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9242_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 118 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 118 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 118 "../lib/comp/ref_act.s7i" */ } else { /* line 118 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 118 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 118 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4367 */ /* line 122 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9243_REF_ARRMAXIDX (const objRefType/*t_19_reference*/ o_9244_function, const listType/*t_20_ref_list*/ *const o_9245_params, structType/*t_164_expr_type*/ *const o_9246_c_expr) { /* line 126 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 127 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9246_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1505] /* "refArrMaxIdx(" */); /* line 128 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9245_params, 1L), o_9246_c_expr); /* line 129 "../lib/comp/ref_act.s7i" */ { /* line 129 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 129 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9246_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 129 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 129 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 129 "../lib/comp/ref_act.s7i" */ } else { /* line 129 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 129 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 129 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4368 */ /* line 133 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9247_REF_ARRMINIDX (const objRefType/*t_19_reference*/ o_9248_function, const listType/*t_20_ref_list*/ *const o_9249_params, structType/*t_164_expr_type*/ *const o_9250_c_expr) { /* line 137 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 138 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9250_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1506] /* "refArrMinIdx(" */); /* line 139 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9249_params, 1L), o_9250_c_expr); /* line 140 "../lib/comp/ref_act.s7i" */ { /* line 140 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 140 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9250_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 140 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 140 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 140 "../lib/comp/ref_act.s7i" */ } else { /* line 140 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 140 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 140 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4369 */ /* line 144 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9251_REF_ARRTOLIST (const objRefType/*t_19_reference*/ o_9252_function, const listType/*t_20_ref_list*/ *const o_9253_params, structType/*t_164_expr_type*/ *const o_9254_c_expr) { /* line 148 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; { /* line 149 "../lib/comp/ref_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 149 "../lib/comp/ref_act.s7i" */ o_4949_prepare_list_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_9252_function))), &tmp_1), o_9254_c_expr); } /* line 150 "../lib/comp/ref_act.s7i" */ strCopy(&(((structType)(*o_9254_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1507] /* "refArrToList(" */); /* line 151 "../lib/comp/ref_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9253_params, 1L), o_9254_c_expr); /* line 152 "../lib/comp/ref_act.s7i" */ { /* line 152 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 152 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9254_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 152 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 152 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 152 "../lib/comp/ref_act.s7i" */ } else { /* line 152 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 152 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 152 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4370 */ /* line 156 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9255_REF_BODY (const objRefType/*t_19_reference*/ o_9256_function, const listType/*t_20_ref_list*/ *const o_9257_params, structType/*t_164_expr_type*/ *const o_9258_c_expr) { /* line 160 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 161 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9258_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1508] /* "refBody(" */); /* line 162 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9257_params, 1L), o_9258_c_expr); /* line 163 "../lib/comp/ref_act.s7i" */ { /* line 163 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 163 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9258_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 163 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 163 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 163 "../lib/comp/ref_act.s7i" */ } else { /* line 163 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 163 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 163 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4371 */ /* line 167 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9259_REF_CATEGORY (const objRefType/*t_19_reference*/ o_9260_function, const listType/*t_20_ref_list*/ *const o_9261_params, structType/*t_164_expr_type*/ *const o_9262_c_expr) { /* line 171 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 172 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1509] /* "refCategory(" */); /* line 173 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9261_params, 1L), o_9262_c_expr); /* line 174 "../lib/comp/ref_act.s7i" */ { /* line 174 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 174 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9262_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 174 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 174 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 174 "../lib/comp/ref_act.s7i" */ } else { /* line 174 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 174 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 174 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4372 */ /* line 178 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9263_REF_CAT_PARSE (const objRefType/*t_19_reference*/ o_9264_function, const listType/*t_20_ref_list*/ *const o_9265_params, structType/*t_164_expr_type*/ *const o_9266_c_expr) { /* line 182 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 183 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9266_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1510] /* "refCatParse(" */); /* line 184 "../lib/comp/ref_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9265_params, 3L), o_9266_c_expr); /* line 185 "../lib/comp/ref_act.s7i" */ { /* line 185 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 185 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9266_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 185 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 185 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 185 "../lib/comp/ref_act.s7i" */ } else { /* line 185 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 185 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 185 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4373 */ /* line 189 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9267_REF_CAT_STR (const objRefType/*t_19_reference*/ o_9268_function, const listType/*t_20_ref_list*/ *const o_9269_params, structType/*t_164_expr_type*/ *const o_9270_c_expr) { /* line 193 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 194 "../lib/comp/ref_act.s7i" */ o_4955_prepare_stri_result(o_9270_c_expr); /* line 195 "../lib/comp/ref_act.s7i" */ strCopy(&(((structType)(*o_9270_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1511] /* "refCatStr(" */); /* line 196 "../lib/comp/ref_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9269_params, 1L), o_9270_c_expr); /* line 197 "../lib/comp/ref_act.s7i" */ { /* line 197 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 197 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9270_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 197 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 197 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 197 "../lib/comp/ref_act.s7i" */ } else { /* line 197 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 197 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 197 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4374 */ /* line 201 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9271_REF_CMP (const objRefType/*t_19_reference*/ o_9272_function, const listType/*t_20_ref_list*/ *const o_9273_params, structType/*t_164_expr_type*/ *const o_9274_c_expr) { /* line 205 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9274_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[874] /* "ptrCmp(" */); /* line 206 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9273_params, 1L), o_9274_c_expr); /* line 207 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9274_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 208 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9273_params, 2L), o_9274_c_expr); /* line 209 "../lib/comp/ref_act.s7i" */ { /* line 209 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 209 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9274_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 209 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 209 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 209 "../lib/comp/ref_act.s7i" */ } else { /* line 209 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 209 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 209 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4375 */ /* line 213 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9275_REF_CONV (const objRefType/*t_19_reference*/ o_9276_function, const listType/*t_20_ref_list*/ *const o_9277_params, structType/*t_164_expr_type*/ *const o_9278_c_expr) { /* line 217 "../lib/comp/ref_act.s7i" */ { /* line 217 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 217 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9278_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 217 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 217 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 217 "../lib/comp/ref_act.s7i" */ } else { /* line 217 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 217 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 217 "../lib/comp/ref_act.s7i" */ } } /* line 218 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9277_params, 3L), o_9278_c_expr); /* line 219 "../lib/comp/ref_act.s7i" */ { /* line 219 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 219 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9278_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 219 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 219 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 219 "../lib/comp/ref_act.s7i" */ } else { /* line 219 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 219 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 219 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4376 */ /* line 223 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9279_REF_CPY (const objRefType/*t_19_reference*/ o_9280_function, const listType/*t_20_ref_list*/ *const o_9281_params, structType/*t_164_expr_type*/ *const o_9282_c_expr) { /* line 227 "../lib/comp/ref_act.s7i" */ structType/*t_164_expr_type*/ o_9283_statement; /* line 227 "../lib/comp/ref_act.s7i" */ o_9283_statement=create_164(sct[283]); /* line 229 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9281_params, 1L), &(o_9283_statement)); /* line 230 "../lib/comp/ref_act.s7i" */ { /* line 230 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 230 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(o_9283_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 230 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 230 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 230 "../lib/comp/ref_act.s7i" */ } else { /* line 230 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 230 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 230 "../lib/comp/ref_act.s7i" */ } } /* line 231 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9281_params, 3L), &(o_9283_statement)); /* line 232 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(o_9283_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 233 "../lib/comp/ref_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_9283_statement, o_9282_c_expr); /* line 223 "../lib/comp/ref_act.s7i" */ destr_164(o_9283_statement); } /* line 1 "no_file" */ /* 4377 */ /* line 237 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9284_REF_DEREF (const objRefType/*t_19_reference*/ o_9285_function, const listType/*t_20_ref_list*/ *const o_9286_params, structType/*t_164_expr_type*/ *const o_9287_c_expr) { /* line 241 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9287_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1512] /* "/*ref_deref*\/ *((" */); { /* line 242 "../lib/comp/ref_act.s7i" */ typeType/*t_7_type*/ tmp_2; /* line 242 "../lib/comp/ref_act.s7i" */ strAppendTemp(&(((structType)(*o_9287_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(typResult(refType(o_9285_function))), &tmp_2))); } /* line 243 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9287_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1513] /* " *)(" */); /* line 244 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9286_params, 1L), o_9287_c_expr); /* line 245 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9287_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 4378 */ /* line 249 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9288_REF_EQ (const objRefType/*t_19_reference*/ o_9289_function, const listType/*t_20_ref_list*/ *const o_9290_params, structType/*t_164_expr_type*/ *const o_9291_c_expr) { /* line 253 "../lib/comp/ref_act.s7i" */ { /* line 253 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 253 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9291_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 253 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 253 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 253 "../lib/comp/ref_act.s7i" */ } else { /* line 253 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 253 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 253 "../lib/comp/ref_act.s7i" */ } } /* line 254 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9290_params, 1L), o_9291_c_expr); /* line 255 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9291_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[350] /* ") == (" */); /* line 256 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9290_params, 3L), o_9291_c_expr); /* line 257 "../lib/comp/ref_act.s7i" */ { /* line 257 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 257 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9291_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 257 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 257 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 257 "../lib/comp/ref_act.s7i" */ } else { /* line 257 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 257 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 257 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4379 */ /* line 261 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9292_REF_FILE (const objRefType/*t_19_reference*/ o_9293_function, const listType/*t_20_ref_list*/ *const o_9294_params, structType/*t_164_expr_type*/ *const o_9295_c_expr) { /* line 265 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 266 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9295_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1514] /* "refFile(" */); /* line 267 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9294_params, 1L), o_9295_c_expr); /* line 268 "../lib/comp/ref_act.s7i" */ { /* line 268 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 268 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9295_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 268 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 268 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 268 "../lib/comp/ref_act.s7i" */ } else { /* line 268 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 268 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 268 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4380 */ /* line 272 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9296_REF_GETREF (const objRefType/*t_19_reference*/ o_9297_function, const listType/*t_20_ref_list*/ *const o_9298_params, structType/*t_164_expr_type*/ *const o_9299_c_expr) { /* line 276 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9299_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1515] /* "refGetRef(" */); /* line 277 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9298_params, 1L), o_9299_c_expr); /* line 278 "../lib/comp/ref_act.s7i" */ { /* line 278 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 278 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9299_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 278 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 278 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 278 "../lib/comp/ref_act.s7i" */ } else { /* line 278 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 278 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 278 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4381 */ /* line 282 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9300_REF_HASHCODE (const objRefType/*t_19_reference*/ o_9301_function, const listType/*t_20_ref_list*/ *const o_9302_params, structType/*t_164_expr_type*/ *const o_9303_c_expr) { /* line 286 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9303_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[893] /* "(intType)(((memSizeType)(" */); /* line 287 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9302_params, 1L), o_9303_c_expr); /* line 288 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9303_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[894] /* ")) >> 6)" */); } /* line 1 "no_file" */ /* 4382 */ /* line 292 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9304_REF_HSHDATATOLIST (const objRefType/*t_19_reference*/ o_9305_function, const listType/*t_20_ref_list*/ *const o_9306_params, structType/*t_164_expr_type*/ *const o_9307_c_expr) { /* line 296 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; { /* line 297 "../lib/comp/ref_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 297 "../lib/comp/ref_act.s7i" */ o_4949_prepare_list_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_9305_function))), &tmp_1), o_9307_c_expr); } /* line 298 "../lib/comp/ref_act.s7i" */ strCopy(&(((structType)(*o_9307_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1516] /* "refHshDataToList(" */); /* line 299 "../lib/comp/ref_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9306_params, 1L), o_9307_c_expr); /* line 300 "../lib/comp/ref_act.s7i" */ { /* line 300 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 300 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9307_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 300 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 300 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 300 "../lib/comp/ref_act.s7i" */ } else { /* line 300 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 300 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 300 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4383 */ /* line 304 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9308_REF_HSHKEYSTOLIST (const objRefType/*t_19_reference*/ o_9309_function, const listType/*t_20_ref_list*/ *const o_9310_params, structType/*t_164_expr_type*/ *const o_9311_c_expr) { /* line 308 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; { /* line 309 "../lib/comp/ref_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 309 "../lib/comp/ref_act.s7i" */ o_4949_prepare_list_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_9309_function))), &tmp_1), o_9311_c_expr); } /* line 310 "../lib/comp/ref_act.s7i" */ strCopy(&(((structType)(*o_9311_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1517] /* "refHshKeysToList(" */); /* line 311 "../lib/comp/ref_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9310_params, 1L), o_9311_c_expr); /* line 312 "../lib/comp/ref_act.s7i" */ { /* line 312 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 312 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9311_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 312 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 312 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 312 "../lib/comp/ref_act.s7i" */ } else { /* line 312 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 312 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 312 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4384 */ /* line 316 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9312_REF_ISVAR (const objRefType/*t_19_reference*/ o_9313_function, const listType/*t_20_ref_list*/ *const o_9314_params, structType/*t_164_expr_type*/ *const o_9315_c_expr) { /* line 320 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 321 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9315_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1518] /* "refIsVar(" */); /* line 322 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9314_params, 1L), o_9315_c_expr); /* line 323 "../lib/comp/ref_act.s7i" */ { /* line 323 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 323 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9315_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 323 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 323 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 323 "../lib/comp/ref_act.s7i" */ } else { /* line 323 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 323 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 323 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4385 */ /* line 327 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9316_REF_ITFTOSCT (const objRefType/*t_19_reference*/ o_9317_function, const listType/*t_20_ref_list*/ *const o_9318_params, structType/*t_164_expr_type*/ *const o_9319_c_expr) { /* line 331 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 332 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9319_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1519] /* "refItfToSct(" */); /* line 333 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9318_params, 1L), o_9319_c_expr); /* line 334 "../lib/comp/ref_act.s7i" */ { /* line 334 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 334 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9319_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 334 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 334 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 334 "../lib/comp/ref_act.s7i" */ } else { /* line 334 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 334 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 334 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4386 */ /* line 338 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9320_REF_LINE (const objRefType/*t_19_reference*/ o_9321_function, const listType/*t_20_ref_list*/ *const o_9322_params, structType/*t_164_expr_type*/ *const o_9323_c_expr) { /* line 342 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 343 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9323_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1520] /* "refLine(" */); /* line 344 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9322_params, 1L), o_9323_c_expr); /* line 345 "../lib/comp/ref_act.s7i" */ { /* line 345 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 345 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9323_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 345 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 345 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 345 "../lib/comp/ref_act.s7i" */ } else { /* line 345 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 345 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 345 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4387 */ /* line 349 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9324_REF_LOCAL_CONSTS (const objRefType/*t_19_reference*/ o_9325_function, const listType/*t_20_ref_list*/ *const o_9326_params, structType/*t_164_expr_type*/ *const o_9327_c_expr) { /* line 353 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; { /* line 354 "../lib/comp/ref_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 354 "../lib/comp/ref_act.s7i" */ o_4949_prepare_list_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_9325_function))), &tmp_1), o_9327_c_expr); } /* line 355 "../lib/comp/ref_act.s7i" */ strCopy(&(((structType)(*o_9327_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1521] /* "refLocalConsts(" */); /* line 356 "../lib/comp/ref_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9326_params, 1L), o_9327_c_expr); /* line 357 "../lib/comp/ref_act.s7i" */ { /* line 357 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 357 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9327_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 357 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 357 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 357 "../lib/comp/ref_act.s7i" */ } else { /* line 357 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 357 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 357 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4388 */ /* line 361 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9328_REF_LOCAL_VARS (const objRefType/*t_19_reference*/ o_9329_function, const listType/*t_20_ref_list*/ *const o_9330_params, structType/*t_164_expr_type*/ *const o_9331_c_expr) { /* line 365 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; { /* line 366 "../lib/comp/ref_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 366 "../lib/comp/ref_act.s7i" */ o_4949_prepare_list_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_9329_function))), &tmp_1), o_9331_c_expr); } /* line 367 "../lib/comp/ref_act.s7i" */ strCopy(&(((structType)(*o_9331_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1522] /* "refLocalVars(" */); /* line 368 "../lib/comp/ref_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9330_params, 1L), o_9331_c_expr); /* line 369 "../lib/comp/ref_act.s7i" */ { /* line 369 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 369 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9331_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 369 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 369 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 369 "../lib/comp/ref_act.s7i" */ } else { /* line 369 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 369 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 369 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4389 */ /* line 373 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9332_REF_NE (const objRefType/*t_19_reference*/ o_9333_function, const listType/*t_20_ref_list*/ *const o_9334_params, structType/*t_164_expr_type*/ *const o_9335_c_expr) { /* line 377 "../lib/comp/ref_act.s7i" */ { /* line 377 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 377 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9335_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 377 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 377 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 377 "../lib/comp/ref_act.s7i" */ } else { /* line 377 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 377 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 377 "../lib/comp/ref_act.s7i" */ } } /* line 378 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9334_params, 1L), o_9335_c_expr); /* line 379 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9335_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[352] /* ") != (" */); /* line 380 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9334_params, 3L), o_9335_c_expr); /* line 381 "../lib/comp/ref_act.s7i" */ { /* line 381 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 381 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9335_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 381 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 381 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 381 "../lib/comp/ref_act.s7i" */ } else { /* line 381 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 381 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 381 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4390 */ /* line 385 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9336_REF_NUM (const objRefType/*t_19_reference*/ o_9337_function, const listType/*t_20_ref_list*/ *const o_9338_params, structType/*t_164_expr_type*/ *const o_9339_c_expr) { /* line 389 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 390 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9339_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1523] /* "refNum(" */); /* line 391 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9338_params, 1L), o_9339_c_expr); /* line 392 "../lib/comp/ref_act.s7i" */ { /* line 392 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 392 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9339_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 392 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 392 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 392 "../lib/comp/ref_act.s7i" */ } else { /* line 392 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 392 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 392 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4391 */ /* line 396 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9340_REF_PARAMS (const objRefType/*t_19_reference*/ o_9341_function, const listType/*t_20_ref_list*/ *const o_9342_params, structType/*t_164_expr_type*/ *const o_9343_c_expr) { /* line 400 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 401 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9343_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1524] /* "refParams(" */); /* line 402 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9342_params, 1L), o_9343_c_expr); /* line 403 "../lib/comp/ref_act.s7i" */ { /* line 403 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 403 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9343_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 403 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 403 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 403 "../lib/comp/ref_act.s7i" */ } else { /* line 403 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 403 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 403 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4392 */ /* line 407 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9344_REF_RESINI (const objRefType/*t_19_reference*/ o_9345_function, const listType/*t_20_ref_list*/ *const o_9346_params, structType/*t_164_expr_type*/ *const o_9347_c_expr) { /* line 411 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 412 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9347_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1525] /* "refResini(" */); /* line 413 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9346_params, 1L), o_9347_c_expr); /* line 414 "../lib/comp/ref_act.s7i" */ { /* line 414 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 414 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9347_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 414 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 414 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 414 "../lib/comp/ref_act.s7i" */ } else { /* line 414 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 414 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 414 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4393 */ /* line 418 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9348_REF_RESULT (const objRefType/*t_19_reference*/ o_9349_function, const listType/*t_20_ref_list*/ *const o_9350_params, structType/*t_164_expr_type*/ *const o_9351_c_expr) { /* line 422 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 423 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9351_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1526] /* "refResult(" */); /* line 424 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9350_params, 1L), o_9351_c_expr); /* line 425 "../lib/comp/ref_act.s7i" */ { /* line 425 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 425 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9351_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 425 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 425 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 425 "../lib/comp/ref_act.s7i" */ } else { /* line 425 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 425 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 425 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4394 */ /* line 429 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9352_REF_SCTTOLIST (const objRefType/*t_19_reference*/ o_9353_function, const listType/*t_20_ref_list*/ *const o_9354_params, structType/*t_164_expr_type*/ *const o_9355_c_expr) { /* line 433 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; { /* line 434 "../lib/comp/ref_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 434 "../lib/comp/ref_act.s7i" */ o_4949_prepare_list_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_9353_function))), &tmp_1), o_9355_c_expr); } /* line 435 "../lib/comp/ref_act.s7i" */ strCopy(&(((structType)(*o_9355_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1527] /* "refSctToList(" */); /* line 436 "../lib/comp/ref_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9354_params, 1L), o_9355_c_expr); /* line 437 "../lib/comp/ref_act.s7i" */ { /* line 437 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 437 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9355_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 437 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 437 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 437 "../lib/comp/ref_act.s7i" */ } else { /* line 437 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 437 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 437 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4395 */ /* line 441 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9356_REF_SELECT (const objRefType/*t_19_reference*/ o_9357_function, const listType/*t_20_ref_list*/ *const o_9358_params, structType/*t_164_expr_type*/ *const o_9359_c_expr) { /* line 445 "../lib/comp/ref_act.s7i" */ typeType/*t_7_type*/ o_9360_object_type=typ[0] /* void/t_1_void */; /* line 447 "../lib/comp/ref_act.s7i" */ o_9360_object_type=o_4754_getExprResultType(rflIdx(*o_9358_params, 1L)); { /* line 448 "../lib/comp/ref_act.s7i" */ objRefType/*t_19_reference*/ tmp_1; /* line 448 "../lib/comp/ref_act.s7i" */ if ((o_4587_in(&(o_9360_object_type), o_4735_struct_elements)) && /* line 448 "../lib/comp/ref_act.s7i" */ (o_4502_in(/* CALLOBJECT */(tmp_1=(objRefType/*t_19_reference*/)(rflIdx(*o_9358_params, 3L)), &tmp_1), *o_4580/*[*/(&(o_4735_struct_elements), &(o_9360_object_type))))) { /* line 450 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9359_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1528] /* "((structType)(" */); /* line 451 "../lib/comp/ref_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9358_params, 1L), o_9359_c_expr); /* line 452 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9359_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1529] /* "))->stru[" */); { /* line 458 "../lib/comp/ref_act.s7i" */ union { /* line 458 "../lib/comp/ref_act.s7i" */ struct striStruct striBuf; /* line 458 "../lib/comp/ref_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 458 "../lib/comp/ref_act.s7i" */ } buffer_1; /* line 458 "../lib/comp/ref_act.s7i" */ objRefType/*t_19_reference*/ tmp_2; /* line 458 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9359_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(*o_4495/*[*/(&(*o_4580/*[*/(&(o_4735_struct_elements), &(o_9360_object_type))), /* CALLOBJECT */(tmp_2=(objRefType/*t_19_reference*/)(rflIdx(*o_9358_params, 3L)), &tmp_2)), &buffer_1.striBuf)); } /* line 459 "../lib/comp/ref_act.s7i" */ { /* line 459 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 459 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9359_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 459 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 459 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ']'); /* line 459 "../lib/comp/ref_act.s7i" */ } else { /* line 459 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ']'; /* line 459 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 459 "../lib/comp/ref_act.s7i" */ } } { /* line 460 "../lib/comp/ref_act.s7i" */ typeType/*t_7_type*/ tmp_2; /* line 460 "../lib/comp/ref_act.s7i" */ strAppendTemp(&(((structType)(*o_9359_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4760_select_value_from_rtlObjectStruct(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(typResult(refType(o_9357_function))), &tmp_2))); } /* line 461 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9359_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1530] /* "/*->o_" */); /* line 462 "../lib/comp/ref_act.s7i" */ o_5077_create_name2(rflIdx(*o_9358_params, 3L), &(((structType)(*o_9359_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 463 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9359_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[123] /* "*\/" */); } } } /* line 1 "no_file" */ /* 4396 */ /* line 468 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9361_REF_SETCATEGORY (const objRefType/*t_19_reference*/ o_9362_function, const listType/*t_20_ref_list*/ *const o_9363_params, structType/*t_164_expr_type*/ *const o_9364_c_expr) { /* line 472 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 473 "../lib/comp/ref_act.s7i" */ o_4819_setDiagnosticLine(o_9364_c_expr); /* line 474 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9364_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1531] /* "refSetCategory(" */); /* line 475 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9363_params, 1L), o_9364_c_expr); /* line 476 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9364_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 477 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9363_params, 2L), o_9364_c_expr); /* line 478 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9364_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4397 */ /* line 482 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9365_REF_SETPARAMS (const objRefType/*t_19_reference*/ o_9366_function, const listType/*t_20_ref_list*/ *const o_9367_params, structType/*t_164_expr_type*/ *const o_9368_c_expr) { /* line 486 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 487 "../lib/comp/ref_act.s7i" */ o_4819_setDiagnosticLine(o_9368_c_expr); /* line 488 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9368_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1532] /* "refSetParams(" */); /* line 489 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9367_params, 1L), o_9368_c_expr); /* line 490 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9368_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 491 "../lib/comp/ref_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9367_params, 2L), o_9368_c_expr); /* line 492 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9368_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4398 */ /* line 496 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9369_REF_SETTYPE (const objRefType/*t_19_reference*/ o_9370_function, const listType/*t_20_ref_list*/ *const o_9371_params, structType/*t_164_expr_type*/ *const o_9372_c_expr) { /* line 500 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 501 "../lib/comp/ref_act.s7i" */ o_4819_setDiagnosticLine(o_9372_c_expr); /* line 502 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9372_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1533] /* "refSetType(" */); /* line 503 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9371_params, 1L), o_9372_c_expr); /* line 504 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9372_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 505 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9371_params, 2L), o_9372_c_expr); /* line 506 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9372_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4399 */ /* line 510 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9373_REF_SETVAR (const objRefType/*t_19_reference*/ o_9374_function, const listType/*t_20_ref_list*/ *const o_9375_params, structType/*t_164_expr_type*/ *const o_9376_c_expr) { /* line 514 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 515 "../lib/comp/ref_act.s7i" */ o_4819_setDiagnosticLine(o_9376_c_expr); /* line 516 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9376_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1534] /* "refSetVar(" */); /* line 517 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9375_params, 1L), o_9376_c_expr); /* line 518 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9376_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 519 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9375_params, 2L), o_9376_c_expr); /* line 520 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9376_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4400 */ /* line 524 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9377_REF_STR (const objRefType/*t_19_reference*/ o_9378_function, const listType/*t_20_ref_list*/ *const o_9379_params, structType/*t_164_expr_type*/ *const o_9380_c_expr) { /* line 528 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 529 "../lib/comp/ref_act.s7i" */ o_4955_prepare_stri_result(o_9380_c_expr); /* line 530 "../lib/comp/ref_act.s7i" */ strCopy(&(((structType)(*o_9380_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1535] /* "refStr(" */); /* line 531 "../lib/comp/ref_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9379_params, 1L), o_9380_c_expr); /* line 532 "../lib/comp/ref_act.s7i" */ { /* line 532 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 532 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9380_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 532 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 532 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 532 "../lib/comp/ref_act.s7i" */ } else { /* line 532 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 532 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 532 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4401 */ /* line 536 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9381_REF_TRACE (const objRefType/*t_19_reference*/ o_9382_function, const listType/*t_20_ref_list*/ *const o_9383_params, structType/*t_164_expr_type*/ *const o_9384_c_expr) { /* line 540 "../lib/comp/ref_act.s7i" */ objRefType/*t_19_reference*/ o_9385_traceParam=NULL; /* line 541 "../lib/comp/ref_act.s7i" */ typeType/*t_7_type*/ o_9386_object_type=typ[0] /* void/t_1_void */; /* line 542 "../lib/comp/ref_act.s7i" */ structType/*t_164_expr_type*/ o_9387_param1; /* line 542 "../lib/comp/ref_act.s7i" */ o_9387_param1=create_164(sct[284]); /* line 544 "../lib/comp/ref_act.s7i" */ o_9385_traceParam=rflIdx(*o_9383_params, 1L); /* line 545 "../lib/comp/ref_act.s7i" */ o_9386_object_type=o_4754_getExprResultType(o_9385_traceParam); /* line 546 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1536] /* "printf(\"" */); /* line 547 "../lib/comp/ref_act.s7i" */ if ((refIsVar(o_9385_traceParam)) || /* line 547 "../lib/comp/ref_act.s7i" */ (typIsVarfunc(refType(o_9385_traceParam)))) { /* line 548 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1537] /* "var " */); } else { /* line 550 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1538] /* "const " */); } /* line 552 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(o_9385_traceParam, &(o_9387_param1)); /* line 553 "../lib/comp/ref_act.s7i" */ if ((((((structType)(o_9387_param1))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) || /* line 553 "../lib/comp/ref_act.s7i" */ (((((structType)(o_9387_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/)->size!=0 /* "" */))) { /* line 554 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1539] /* "[TEMP] \");\n" */); /* line 555 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 556 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9387_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 557 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9387_param1))->stru[9].value.striValue/*->o_4787_result_decl*/); /* line 558 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9387_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/); /* line 559 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1536] /* "printf(\"" */); /* line 560 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(o_9387_param1))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9387_param1))->stru[12].value.striValue/*->o_4790_result_intro*/); /* line 561 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(o_9387_param1))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9387_param1))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 562 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(o_9387_param1))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9387_param1))->stru[14].value.striValue/*->o_4792_result_finish*/); } /* line 564 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1540] /* "%s: %s is \", " */); { /* line 565 "../lib/comp/ref_act.s7i" */ striType tmp_2 = NULL; /* line 565 "../lib/comp/ref_act.s7i" */ strAppendTemp(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), strCLit((tmp_2=typStr(o_9386_object_type)))); /* line 565 "../lib/comp/ref_act.s7i" */ strDestr(tmp_2); } /* line 566 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); { /* line 567 "../lib/comp/ref_act.s7i" */ striType tmp_2 = NULL; /* line 567 "../lib/comp/ref_act.s7i" */ strAppendTemp(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), strCLit((tmp_2=refStr(o_9385_traceParam)))); /* line 567 "../lib/comp/ref_act.s7i" */ strDestr(tmp_2); } /* line 568 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 569 "../lib/comp/ref_act.s7i" */ if (o_3772_in(&(o_9386_object_type), o_4414_typeCategory)) { /* line 570 "../lib/comp/ref_act.s7i" */ switch (*o_3765/*[*/(&(o_4414_typeCategory), &(o_9386_object_type))) { /* line 571 "../lib/comp/ref_act.s7i" */ case 258: /* line 572 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1541] /* "printf(\"\")" */); /* line 572 "../lib/comp/ref_act.s7i" */ break; /* line 573 "../lib/comp/ref_act.s7i" */ case 256: /* line 574 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1542] /* "printf(\" %d\", " */); /* line 575 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9387_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 576 "../lib/comp/ref_act.s7i" */ { /* line 576 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 576 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 576 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 576 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 576 "../lib/comp/ref_act.s7i" */ } else { /* line 576 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 576 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 576 "../lib/comp/ref_act.s7i" */ } } /* line 576 "../lib/comp/ref_act.s7i" */ break; /* line 577 "../lib/comp/ref_act.s7i" */ case 257: /* line 578 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1543] /* "printf(\" %d\", " */); /* line 579 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9387_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 580 "../lib/comp/ref_act.s7i" */ { /* line 580 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 580 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 580 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 580 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 580 "../lib/comp/ref_act.s7i" */ } else { /* line 580 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 580 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 580 "../lib/comp/ref_act.s7i" */ } } /* line 580 "../lib/comp/ref_act.s7i" */ break; /* line 581 "../lib/comp/ref_act.s7i" */ case 9: /* line 582 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1544] /* "printf(\" %ld\", " */); /* line 583 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9387_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 584 "../lib/comp/ref_act.s7i" */ { /* line 584 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 584 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 584 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 584 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 584 "../lib/comp/ref_act.s7i" */ } else { /* line 584 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 584 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 584 "../lib/comp/ref_act.s7i" */ } } /* line 584 "../lib/comp/ref_act.s7i" */ break; /* line 585 "../lib/comp/ref_act.s7i" */ case 10: /* line 586 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 587 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1545] /* "char *cstri=bigHexCStri(" */); /* line 588 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9387_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 589 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 590 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1546] /* "printf(\" %s\", cstri);\n" */); /* line 591 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1547] /* "free((void *) cstri);\n" */); /* line 592 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 592 "../lib/comp/ref_act.s7i" */ break; /* line 593 "../lib/comp/ref_act.s7i" */ case 25: /* line 594 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1548] /* "printf(\" %f\", " */); /* line 595 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9387_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 596 "../lib/comp/ref_act.s7i" */ { /* line 596 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 596 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 596 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 596 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 596 "../lib/comp/ref_act.s7i" */ } else { /* line 596 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 596 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 596 "../lib/comp/ref_act.s7i" */ } } /* line 596 "../lib/comp/ref_act.s7i" */ break; /* line 597 "../lib/comp/ref_act.s7i" */ case 11: /* line 598 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1549] /* "printf(\" %c\", " */); /* line 599 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9387_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 600 "../lib/comp/ref_act.s7i" */ { /* line 600 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 600 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 600 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 600 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 600 "../lib/comp/ref_act.s7i" */ } else { /* line 600 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 600 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 600 "../lib/comp/ref_act.s7i" */ } } /* line 600 "../lib/comp/ref_act.s7i" */ break; /* line 601 "../lib/comp/ref_act.s7i" */ case 12: /* line 602 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1550] /* "printf(\"\"); " */); /* line 603 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[969] /* "filPrint(" */); /* line 604 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9387_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 605 "../lib/comp/ref_act.s7i" */ { /* line 605 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 605 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 605 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 605 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 605 "../lib/comp/ref_act.s7i" */ } else { /* line 605 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 605 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 605 "../lib/comp/ref_act.s7i" */ } } /* line 605 "../lib/comp/ref_act.s7i" */ break; /* line 606 "../lib/comp/ref_act.s7i" */ case 13: /* line 607 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1551] /* "printf(\"\")" */); /* line 607 "../lib/comp/ref_act.s7i" */ break; /* line 608 "../lib/comp/ref_act.s7i" */ case 20: /* line 609 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1552] /* "printf(\"\")" */); /* line 609 "../lib/comp/ref_act.s7i" */ break; /* line 610 "../lib/comp/ref_act.s7i" */ case 22: /* line 611 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1553] /* "printf(\"\")" */); /* line 611 "../lib/comp/ref_act.s7i" */ break; /* line 612 "../lib/comp/ref_act.s7i" */ case 23: /* line 613 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1554] /* "printf(\"\")" */); /* line 613 "../lib/comp/ref_act.s7i" */ break; /* line 614 "../lib/comp/ref_act.s7i" */ case 7: /* line 615 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1555] /* "printf(\" %X\", " */); /* line 616 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9387_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 617 "../lib/comp/ref_act.s7i" */ { /* line 617 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 617 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 617 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 617 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 617 "../lib/comp/ref_act.s7i" */ } else { /* line 617 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 617 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 617 "../lib/comp/ref_act.s7i" */ } } /* line 617 "../lib/comp/ref_act.s7i" */ break; /* line 618 "../lib/comp/ref_act.s7i" */ case 26: /* line 619 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 620 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1556] /* "winType win=" */); /* line 621 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9387_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 622 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 623 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1557] /* "printf(\"\");\n" */); /* line 624 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1558] /* "if (win == NULL) {\n" */); /* line 625 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1559] /* "printf(\" *NULL_WINDOW* \");\n" */); /* line 626 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[222] /* "} else {\n" */); /* line 627 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1560] /* "printf(\" window [%lu] %lu\", win->usage_count, win);\n" */); /* line 628 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 629 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 629 "../lib/comp/ref_act.s7i" */ break; /* line 630 "../lib/comp/ref_act.s7i" */ case 40: /* line 631 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 632 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1561] /* "progType prg=" */); /* line 633 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9387_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 634 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 635 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1562] /* "printf(\"\");\n" */); /* line 636 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1563] /* "if (prg == NULL) {\n" */); /* line 637 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1564] /* "printf(\" *NULL_PROG* \");\n" */); /* line 638 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[222] /* "} else {\n" */); /* line 639 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1565] /* "printf(\" program [%lu] %lu\", prg->usage_count, prg);\n" */); /* line 640 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 641 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 641 "../lib/comp/ref_act.s7i" */ break; /* line 642 "../lib/comp/ref_act.s7i" */ case 30: /* line 643 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 644 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 645 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1566] /* "objRefType ref=" */); /* line 646 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9387_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 647 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 648 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1567] /* "striType typeStri=typStr(refType(ref));\n" */); /* line 649 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1568] /* "striType nameStri=refStr(ref);\n" */); /* line 650 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1569] /* "striType categoryStri=refCatStr(refCategory(ref));\n" */); /* line 651 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1570] /* "printf(\"\\n\");\n" */); /* line 652 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1571] /* "if (refIsVar(ref)) {\n" */); /* line 653 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1572] /* "printf(\" var \");\n" */); /* line 654 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[222] /* "} else {\n" */); /* line 655 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1573] /* "printf(\" const \");\n" */); /* line 656 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 657 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1574] /* "filWrite(stdout, typeStri);\n" */); /* line 658 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1575] /* "printf(\": \");\n" */); /* line 659 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1576] /* "filWrite(stdout, nameStri);\n" */); /* line 660 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1577] /* "printf(\" is <\");\n" */); /* line 661 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1578] /* "filWrite(stdout, categoryStri);\n" */); /* line 662 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1579] /* "printf(\">\");\n" */); /* line 663 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1580] /* "strDestr(typeStri);\n" */); /* line 664 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1581] /* "strDestr(nameStri);\n" */); /* line 665 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1582] /* "strDestr(categoryStri);\n" */); /* line 666 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 666 "../lib/comp/ref_act.s7i" */ break; /* line 667 "../lib/comp/ref_act.s7i" */ case 31: /* line 668 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1583] /* "printf(\"\")" */); /* line 668 "../lib/comp/ref_act.s7i" */ break; /* line 669 "../lib/comp/ref_act.s7i" */ case 19: /* line 670 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 671 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1584] /* "setType aSet=" */); /* line 672 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9387_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 673 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 674 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1585] /* "printf(\"\");\n" */); /* line 675 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1586] /* "if (aSet == NULL) {\n" */); /* line 676 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1587] /* "printf(\" *NULL_SET* \");\n" */); /* line 677 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[222] /* "} else {\n" */); /* line 678 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1588] /* "printf(\" set[%ld/%ld]\", aSet->min_position, aSet->max_position);\n" */); /* line 679 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 680 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 680 "../lib/comp/ref_act.s7i" */ break; /* line 681 "../lib/comp/ref_act.s7i" */ case 14: /* line 682 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 683 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1589] /* "arrayType arr=" */); /* line 684 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9387_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 685 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 686 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1590] /* "printf(\"\");\n" */); /* line 687 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1591] /* "if (arr == NULL) {\n" */); /* line 688 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1592] /* "printf(\" *NULL_ARRAY* \");\n" */); /* line 689 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[222] /* "} else {\n" */); /* line 690 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1593] /* "printf(\" array[%ld .. %ld]\", arr->min_position, arr->max_position);\n" */); /* line 691 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 692 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 692 "../lib/comp/ref_act.s7i" */ break; /* line 693 "../lib/comp/ref_act.s7i" */ case 15: /* line 694 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 695 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1594] /* "hashType hsh=" */); /* line 696 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9387_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 697 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 698 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1595] /* "printf(\"\");\n" */); /* line 699 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1596] /* "if (hsh == NULL) {\n" */); /* line 700 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1597] /* "printf(\" *NULL_HASH* \");\n" */); /* line 701 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[222] /* "} else {\n" */); /* line 702 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1598] /* "printf(\" hash[%ld]\", hsh->size);\n" */); /* line 703 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 704 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 704 "../lib/comp/ref_act.s7i" */ break; /* line 705 "../lib/comp/ref_act.s7i" */ case 16: /* line 706 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 707 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1599] /* "structType sct=" */); /* line 708 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9387_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 709 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 710 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1600] /* "printf(\"\");\n" */); /* line 711 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1601] /* "if (sct == NULL) {\n" */); /* line 712 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1602] /* "printf(\" *NULL_STRUCT* \");\n" */); /* line 713 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[222] /* "} else {\n" */); /* line 714 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1603] /* "printf(\" struct[" */); { /* line 715 "../lib/comp/ref_act.s7i" */ union { /* line 715 "../lib/comp/ref_act.s7i" */ struct striStruct striBuf; /* line 715 "../lib/comp/ref_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 715 "../lib/comp/ref_act.s7i" */ } buffer_1; /* line 715 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((intType)((*o_4580/*[*/(&(o_4735_struct_elements), &(o_9386_object_type)))->size), &buffer_1.striBuf)); } /* line 716 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1604] /* "]\");\n" */); /* line 717 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1605] /* "if (sct->usage_count != 0) {\n" */); /* line 718 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1606] /* "printf(\"<%lu>\", sct->usage_count);\n" */); /* line 719 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 720 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1607] /* "printf(\" type_num=%lu %lx\", sct->type_num, sct);\n" */); /* line 721 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 722 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 722 "../lib/comp/ref_act.s7i" */ break; /* line 723 "../lib/comp/ref_act.s7i" */ case 18: /* line 724 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 725 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1608] /* "interfaceType itf=" */); /* line 726 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9387_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 727 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 728 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1609] /* "printf(\"\");\n" */); /* line 729 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1610] /* "if (itf == NULL) {\n" */); /* line 730 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1611] /* "printf(\" *NULL_INTERFACE* \");\n" */); /* line 731 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[222] /* "} else {\n" */); /* line 732 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1612] /* "printf(\" usage_count=%lu %lx\", itf->usage_count, itf);\n" */); /* line 733 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1613] /* "printf(\" type_num=%lu %lx\", itf->type_num, itf);\n" */); /* line 734 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 735 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 735 "../lib/comp/ref_act.s7i" */ break; default: /* line 737 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1614] /* "printf(\"< ?? >\")" */); break; } } else /* line 739 "../lib/comp/ref_act.s7i" */ if ((o_9386_object_type) == (o_4736_proctype)) { /* line 740 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1615] /* "printf(\" %X\", " */); /* line 741 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9387_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 742 "../lib/comp/ref_act.s7i" */ { /* line 742 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 742 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 742 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 742 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 742 "../lib/comp/ref_act.s7i" */ } else { /* line 742 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 742 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 742 "../lib/comp/ref_act.s7i" */ } } } else { /* line 744 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1614] /* "printf(\"< ?? >\")" */); } /* line 746 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 747 "../lib/comp/ref_act.s7i" */ if ((((((structType)(o_9387_param1))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) || /* line 747 "../lib/comp/ref_act.s7i" */ (((((structType)(o_9387_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/)->size!=0 /* "" */))) { /* line 748 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9387_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/); /* line 749 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9387_param1))->stru[10].value.striValue/*->o_4788_result_free*/); /* line 750 "../lib/comp/ref_act.s7i" */ { /* line 750 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 750 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9384_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 750 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 750 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) '}'); /* line 750 "../lib/comp/ref_act.s7i" */ } else { /* line 750 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '}'; /* line 750 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 750 "../lib/comp/ref_act.s7i" */ } } } /* line 536 "../lib/comp/ref_act.s7i" */ destr_164(o_9387_param1); } /* line 1 "no_file" */ /* 4402 */ /* line 755 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9388_REF_TYPE (const objRefType/*t_19_reference*/ o_9389_function, const listType/*t_20_ref_list*/ *const o_9390_params, structType/*t_164_expr_type*/ *const o_9391_c_expr) { /* line 759 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 760 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9391_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1616] /* "refType(" */); /* line 761 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9390_params, 1L), o_9391_c_expr); /* line 762 "../lib/comp/ref_act.s7i" */ { /* line 762 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 762 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9391_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 762 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 762 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 762 "../lib/comp/ref_act.s7i" */ } else { /* line 762 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 762 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 762 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4403 */ /* line 766 "../lib/comp/ref_act.s7i" */ static void/*t_1_void*/ o_9392_REF_VALUE (const objRefType/*t_19_reference*/ o_9393_function, const listType/*t_20_ref_list*/ *const o_9394_params, structType/*t_164_expr_type*/ *const o_9395_c_expr) { /* line 770 "../lib/comp/ref_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 771 "../lib/comp/ref_act.s7i" */ strAppend(&(((structType)(*o_9395_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1617] /* "refValue(" */); /* line 772 "../lib/comp/ref_act.s7i" */ o_4941_process_expr(rflIdx(*o_9394_params, 1L), o_9395_c_expr); /* line 773 "../lib/comp/ref_act.s7i" */ { /* line 773 "../lib/comp/ref_act.s7i" */ striType *tmp_1; /* line 773 "../lib/comp/ref_act.s7i" */ tmp_1=&(((structType)(*o_9395_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 773 "../lib/comp/ref_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 773 "../lib/comp/ref_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 773 "../lib/comp/ref_act.s7i" */ } else { /* line 773 "../lib/comp/ref_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 773 "../lib/comp/ref_act.s7i" */ (*tmp_1)->size++; /* line 773 "../lib/comp/ref_act.s7i" */ } } } /* line 1 "no_file" */ /* 4404 */ /* 4405 */ /* line 49 "../lib/comp/rfl_act.s7i" */ static void/*t_1_void*/ o_9396_rfl_prototypes (interfaceType/*t_46_file*/ *const o_9397_c_prog) { /* line 52 "../lib/comp/rfl_act.s7i" */ o_6547_declareExtern(o_9397_c_prog, &str[1618] /* "void rflAppend (listType *const, const listType);" */); /* line 53 "../lib/comp/rfl_act.s7i" */ o_6547_declareExtern(o_9397_c_prog, &str[1619] /* "listType rflCat (listType, const listType);" */); /* line 54 "../lib/comp/rfl_act.s7i" */ o_6547_declareExtern(o_9397_c_prog, &str[1620] /* "intType rflCmpGeneric (const genericType, const genericType);" */); /* line 55 "../lib/comp/rfl_act.s7i" */ o_6547_declareExtern(o_9397_c_prog, &str[1621] /* "void rflCpy (listType *const, const const_listType);" */); /* line 56 "../lib/comp/rfl_act.s7i" */ o_6547_declareExtern(o_9397_c_prog, &str[1622] /* "void rflCpyGeneric (genericType *const, const genericType);" */); /* line 57 "../lib/comp/rfl_act.s7i" */ o_6547_declareExtern(o_9397_c_prog, &str[1623] /* "listType rflCreate (const const_listType);" */); /* line 58 "../lib/comp/rfl_act.s7i" */ o_6547_declareExtern(o_9397_c_prog, &str[1624] /* "genericType rflCreateGeneric (const genericType);" */); /* line 59 "../lib/comp/rfl_act.s7i" */ o_6547_declareExtern(o_9397_c_prog, &str[1625] /* "void rflDestr (const listType);" */); /* line 60 "../lib/comp/rfl_act.s7i" */ o_6547_declareExtern(o_9397_c_prog, &str[1626] /* "void rflDestrGeneric (const genericType);" */); /* line 61 "../lib/comp/rfl_act.s7i" */ o_6547_declareExtern(o_9397_c_prog, &str[1627] /* "boolType rflElem (const const_objRefType, const_listType);" */); /* line 62 "../lib/comp/rfl_act.s7i" */ o_6547_declareExtern(o_9397_c_prog, &str[1628] /* "void rflElemcpy (listType, intType, objRefType);" */); /* line 63 "../lib/comp/rfl_act.s7i" */ o_6547_declareExtern(o_9397_c_prog, &str[1629] /* "boolType rflEq (const_listType, const_listType);" */); /* line 64 "../lib/comp/rfl_act.s7i" */ o_6547_declareExtern(o_9397_c_prog, &str[1630] /* "listType rflHead (const listType, intType);" */); /* line 65 "../lib/comp/rfl_act.s7i" */ o_6547_declareExtern(o_9397_c_prog, &str[1631] /* "objRefType rflIdx (const_listType, intType);" */); /* line 66 "../lib/comp/rfl_act.s7i" */ o_6547_declareExtern(o_9397_c_prog, &str[1632] /* "void rflIncl (listType *, objRefType);" */); /* line 67 "../lib/comp/rfl_act.s7i" */ o_6547_declareExtern(o_9397_c_prog, &str[1633] /* "intType rflIpos (listType, objRefType, intType);" */); /* line 68 "../lib/comp/rfl_act.s7i" */ o_6547_declareExtern(o_9397_c_prog, &str[1634] /* "intType rflLng (const_listType);" */); /* line 69 "../lib/comp/rfl_act.s7i" */ o_6547_declareExtern(o_9397_c_prog, &str[1635] /* "listType rflMklist (objRefType);" */); /* line 70 "../lib/comp/rfl_act.s7i" */ o_6547_declareExtern(o_9397_c_prog, &str[1636] /* "intType rflPos (const_listType, const const_objRefType);" */); /* line 71 "../lib/comp/rfl_act.s7i" */ o_6547_declareExtern(o_9397_c_prog, &str[1637] /* "void rflSetValue (objRefType, listType);" */); /* line 72 "../lib/comp/rfl_act.s7i" */ o_6547_declareExtern(o_9397_c_prog, &str[1638] /* "listType rflTail (const_listType, intType);" */); /* line 73 "../lib/comp/rfl_act.s7i" */ o_6547_declareExtern(o_9397_c_prog, &str[1639] /* "listType rflValue (objRefType);" */); } /* line 1 "no_file" */ /* 4406 */ /* line 77 "../lib/comp/rfl_act.s7i" */ static void/*t_1_void*/ o_9398_RFL_APPEND (const objRefType/*t_19_reference*/ o_9399_function, const listType/*t_20_ref_list*/ *const o_9400_params, structType/*t_164_expr_type*/ *const o_9401_c_expr) { /* line 81 "../lib/comp/rfl_act.s7i" */ structType/*t_164_expr_type*/ o_9402_c_param1; /* line 82 "../lib/comp/rfl_act.s7i" */ structType/*t_164_expr_type*/ o_9403_c_param3; /* line 81 "../lib/comp/rfl_act.s7i" */ o_9402_c_param1=create_164(sct[285]); /* line 82 "../lib/comp/rfl_act.s7i" */ o_9403_c_param3=create_164(sct[286]); /* line 84 "../lib/comp/rfl_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 85 "../lib/comp/rfl_act.s7i" */ o_4941_process_expr(rflIdx(*o_9400_params, 1L), &(o_9402_c_param1)); /* line 86 "../lib/comp/rfl_act.s7i" */ ((structType)(o_9403_c_param3))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_9402_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 87 "../lib/comp/rfl_act.s7i" */ o_5010_getTemporaryToResultExpr(rflIdx(*o_9400_params, 3L), &(o_9403_c_param3)); /* line 88 "../lib/comp/rfl_act.s7i" */ ++(((structType)(o_9403_c_param3))->stru[2].value.intValue/*->o_4780_temp_num*/); /* line 89 "../lib/comp/rfl_act.s7i" */ if (o_5049_has_temp_values(o_9403_c_param3)) { /* line 90 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9401_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 91 "../lib/comp/rfl_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9402_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9401_c_expr); /* line 92 "../lib/comp/rfl_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9403_c_param3))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9401_c_expr); /* line 93 "../lib/comp/rfl_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9402_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9401_c_expr); /* line 94 "../lib/comp/rfl_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9403_c_param3))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9401_c_expr); } /* line 96 "../lib/comp/rfl_act.s7i" */ o_4819_setDiagnosticLine(o_9401_c_expr); /* line 97 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9401_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1640] /* "rflAppend(&(" */); /* line 98 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9401_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9402_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 99 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9401_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 100 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9401_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9403_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 101 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9401_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 102 "../lib/comp/rfl_act.s7i" */ if (o_5049_has_temp_values(o_9403_c_param3)) { /* line 103 "../lib/comp/rfl_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9402_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9401_c_expr); /* line 104 "../lib/comp/rfl_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9403_c_param3))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9401_c_expr); /* line 105 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9401_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 77 "../lib/comp/rfl_act.s7i" */ destr_164(o_9402_c_param1); /* line 77 "../lib/comp/rfl_act.s7i" */ destr_164(o_9403_c_param3); } /* line 1 "no_file" */ /* 4407 */ /* line 110 "../lib/comp/rfl_act.s7i" */ static void/*t_1_void*/ o_9404_RFL_CAT (const objRefType/*t_19_reference*/ o_9405_function, const listType/*t_20_ref_list*/ *const o_9406_params, structType/*t_164_expr_type*/ *const o_9407_c_expr) { /* line 114 "../lib/comp/rfl_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; { /* line 115 "../lib/comp/rfl_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 115 "../lib/comp/rfl_act.s7i" */ o_4949_prepare_list_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(o_4754_getExprResultType(rflIdx(*o_9406_params, 1L))), &tmp_1), o_9407_c_expr); } /* line 116 "../lib/comp/rfl_act.s7i" */ strCopy(&(((structType)(*o_9407_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1641] /* "rflCat(" */); /* line 117 "../lib/comp/rfl_act.s7i" */ o_5010_getTemporaryToResultExpr(rflIdx(*o_9406_params, 1L), o_9407_c_expr); /* line 118 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9407_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 119 "../lib/comp/rfl_act.s7i" */ o_5010_getTemporaryToResultExpr(rflIdx(*o_9406_params, 3L), o_9407_c_expr); /* line 120 "../lib/comp/rfl_act.s7i" */ { /* line 120 "../lib/comp/rfl_act.s7i" */ striType *tmp_1; /* line 120 "../lib/comp/rfl_act.s7i" */ tmp_1=&(((structType)(*o_9407_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 120 "../lib/comp/rfl_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 120 "../lib/comp/rfl_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 120 "../lib/comp/rfl_act.s7i" */ } else { /* line 120 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 120 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->size++; /* line 120 "../lib/comp/rfl_act.s7i" */ } } } /* line 1 "no_file" */ /* 4408 */ /* line 124 "../lib/comp/rfl_act.s7i" */ static void/*t_1_void*/ o_9408_RFL_CPY (const objRefType/*t_19_reference*/ o_9409_function, const listType/*t_20_ref_list*/ *const o_9410_params, structType/*t_164_expr_type*/ *const o_9411_c_expr) { /* line 128 "../lib/comp/rfl_act.s7i" */ structType/*t_164_expr_type*/ o_9412_c_param1; /* line 129 "../lib/comp/rfl_act.s7i" */ structType/*t_164_expr_type*/ o_9413_c_param3; /* line 128 "../lib/comp/rfl_act.s7i" */ o_9412_c_param1=create_164(sct[287]); /* line 129 "../lib/comp/rfl_act.s7i" */ o_9413_c_param3=create_164(sct[288]); /* line 131 "../lib/comp/rfl_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 132 "../lib/comp/rfl_act.s7i" */ o_4941_process_expr(rflIdx(*o_9410_params, 1L), &(o_9412_c_param1)); /* line 133 "../lib/comp/rfl_act.s7i" */ ((structType)(o_9413_c_param3))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_9412_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 134 "../lib/comp/rfl_act.s7i" */ o_4941_process_expr(rflIdx(*o_9410_params, 3L), &(o_9413_c_param3)); /* line 135 "../lib/comp/rfl_act.s7i" */ if (o_5049_has_temp_values(o_9413_c_param3)) { /* line 136 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9411_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 137 "../lib/comp/rfl_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9412_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9411_c_expr); /* line 138 "../lib/comp/rfl_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9413_c_param3))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9411_c_expr); /* line 139 "../lib/comp/rfl_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9412_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9411_c_expr); /* line 140 "../lib/comp/rfl_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9413_c_param3))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9411_c_expr); } /* line 142 "../lib/comp/rfl_act.s7i" */ if (((((structType)(o_9413_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 143 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9411_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 144 "../lib/comp/rfl_act.s7i" */ o_4819_setDiagnosticLine(o_9411_c_expr); /* line 145 "../lib/comp/rfl_act.s7i" */ if (o_5018_isNormalVariable(rflIdx(*o_9410_params, 1L))) { /* line 146 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9411_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1642] /* "listType old_rfl=" */); /* line 147 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9411_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9412_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 148 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9411_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 149 "../lib/comp/rfl_act.s7i" */ o_4819_setDiagnosticLine(o_9411_c_expr); /* line 150 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9411_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9412_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 151 "../lib/comp/rfl_act.s7i" */ { /* line 151 "../lib/comp/rfl_act.s7i" */ striType *tmp_1; /* line 151 "../lib/comp/rfl_act.s7i" */ tmp_1=&(((structType)(*o_9411_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 151 "../lib/comp/rfl_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 151 "../lib/comp/rfl_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 151 "../lib/comp/rfl_act.s7i" */ } else { /* line 151 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 151 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->size++; /* line 151 "../lib/comp/rfl_act.s7i" */ } } } else { /* line 153 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9411_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1643] /* "listType *rfl_ptr=&(" */); /* line 154 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9411_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9412_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 155 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9411_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 156 "../lib/comp/rfl_act.s7i" */ o_4819_setDiagnosticLine(o_9411_c_expr); /* line 157 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9411_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1644] /* "listType old_rfl=*rfl_ptr;\n" */); /* line 158 "../lib/comp/rfl_act.s7i" */ o_4819_setDiagnosticLine(o_9411_c_expr); /* line 159 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9411_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1645] /* "*rfl_ptr=" */); } /* line 161 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9411_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9413_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 162 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9411_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 163 "../lib/comp/rfl_act.s7i" */ o_4819_setDiagnosticLine(o_9411_c_expr); /* line 164 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9411_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1646] /* "rflDestr(old_rfl);\n" */); /* line 165 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9411_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } else { /* line 167 "../lib/comp/rfl_act.s7i" */ o_4819_setDiagnosticLine(o_9411_c_expr); /* line 168 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9411_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[272] /* "rflCpy(&(" */); /* line 169 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9411_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9412_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 170 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9411_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 171 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9411_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9413_c_param3))->stru[5].value.striValue/*->o_4783_expr*/); /* line 172 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9411_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 174 "../lib/comp/rfl_act.s7i" */ if (o_5049_has_temp_values(o_9413_c_param3)) { /* line 175 "../lib/comp/rfl_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9412_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9411_c_expr); /* line 176 "../lib/comp/rfl_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9413_c_param3))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9411_c_expr); /* line 177 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9411_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 124 "../lib/comp/rfl_act.s7i" */ destr_164(o_9412_c_param1); /* line 124 "../lib/comp/rfl_act.s7i" */ destr_164(o_9413_c_param3); } /* line 1 "no_file" */ /* 4409 */ /* line 182 "../lib/comp/rfl_act.s7i" */ static void/*t_1_void*/ o_9414_RFL_ELEM (const objRefType/*t_19_reference*/ o_9415_function, const listType/*t_20_ref_list*/ *const o_9416_params, structType/*t_164_expr_type*/ *const o_9417_c_expr) { /* line 186 "../lib/comp/rfl_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 187 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9417_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1647] /* "rflElem(" */); /* line 188 "../lib/comp/rfl_act.s7i" */ o_4941_process_expr(rflIdx(*o_9416_params, 1L), o_9417_c_expr); /* line 189 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9417_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 190 "../lib/comp/rfl_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9416_params, 3L), o_9417_c_expr); /* line 191 "../lib/comp/rfl_act.s7i" */ { /* line 191 "../lib/comp/rfl_act.s7i" */ striType *tmp_1; /* line 191 "../lib/comp/rfl_act.s7i" */ tmp_1=&(((structType)(*o_9417_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 191 "../lib/comp/rfl_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 191 "../lib/comp/rfl_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 191 "../lib/comp/rfl_act.s7i" */ } else { /* line 191 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 191 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->size++; /* line 191 "../lib/comp/rfl_act.s7i" */ } } } /* line 1 "no_file" */ /* 4410 */ /* line 195 "../lib/comp/rfl_act.s7i" */ static void/*t_1_void*/ o_9418_RFL_ELEMCPY (const objRefType/*t_19_reference*/ o_9419_function, const listType/*t_20_ref_list*/ *const o_9420_params, structType/*t_164_expr_type*/ *const o_9421_c_expr) { /* line 199 "../lib/comp/rfl_act.s7i" */ structType/*t_164_expr_type*/ o_9422_c_param1; /* line 200 "../lib/comp/rfl_act.s7i" */ structType/*t_164_expr_type*/ o_9423_c_param4; /* line 201 "../lib/comp/rfl_act.s7i" */ structType/*t_164_expr_type*/ o_9424_c_param6; /* line 199 "../lib/comp/rfl_act.s7i" */ o_9422_c_param1=create_164(sct[289]); /* line 200 "../lib/comp/rfl_act.s7i" */ o_9423_c_param4=create_164(sct[290]); /* line 201 "../lib/comp/rfl_act.s7i" */ o_9424_c_param6=create_164(sct[291]); /* line 203 "../lib/comp/rfl_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 204 "../lib/comp/rfl_act.s7i" */ o_4941_process_expr(rflIdx(*o_9420_params, 1L), &(o_9422_c_param1)); /* line 205 "../lib/comp/rfl_act.s7i" */ ((structType)(o_9423_c_param4))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_9422_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 206 "../lib/comp/rfl_act.s7i" */ o_4941_process_expr(rflIdx(*o_9420_params, 4L), &(o_9423_c_param4)); /* line 207 "../lib/comp/rfl_act.s7i" */ ((structType)(o_9424_c_param6))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_9423_c_param4))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 208 "../lib/comp/rfl_act.s7i" */ o_4941_process_expr(rflIdx(*o_9420_params, 6L), &(o_9424_c_param6)); /* line 209 "../lib/comp/rfl_act.s7i" */ if ((((structType)(o_9424_c_param6))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 210 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 211 "../lib/comp/rfl_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9422_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9421_c_expr); /* line 212 "../lib/comp/rfl_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9423_c_param4))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9421_c_expr); /* line 213 "../lib/comp/rfl_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9424_c_param6))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9421_c_expr); /* line 214 "../lib/comp/rfl_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9422_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9421_c_expr); /* line 215 "../lib/comp/rfl_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9423_c_param4))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9421_c_expr); /* line 216 "../lib/comp/rfl_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9424_c_param6))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9421_c_expr); } /* line 218 "../lib/comp/rfl_act.s7i" */ o_4819_setDiagnosticLine(o_9421_c_expr); /* line 219 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1648] /* "rflElemcpy(" */); /* line 220 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9422_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 221 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 222 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9423_c_param4))->stru[5].value.striValue/*->o_4783_expr*/); /* line 223 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 224 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9424_c_param6))->stru[5].value.striValue/*->o_4783_expr*/); /* line 225 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 226 "../lib/comp/rfl_act.s7i" */ if ((((structType)(o_9424_c_param6))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 227 "../lib/comp/rfl_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9422_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9421_c_expr); /* line 228 "../lib/comp/rfl_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9423_c_param4))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9421_c_expr); /* line 229 "../lib/comp/rfl_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9424_c_param6))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9421_c_expr); /* line 230 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 195 "../lib/comp/rfl_act.s7i" */ destr_164(o_9422_c_param1); /* line 195 "../lib/comp/rfl_act.s7i" */ destr_164(o_9423_c_param4); /* line 195 "../lib/comp/rfl_act.s7i" */ destr_164(o_9424_c_param6); } /* line 1 "no_file" */ /* 4411 */ /* line 235 "../lib/comp/rfl_act.s7i" */ static void/*t_1_void*/ o_9425_RFL_EQ (const objRefType/*t_19_reference*/ o_9426_function, const listType/*t_20_ref_list*/ *const o_9427_params, structType/*t_164_expr_type*/ *const o_9428_c_expr) { /* line 239 "../lib/comp/rfl_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 240 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9428_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1649] /* "rflEq(" */); /* line 241 "../lib/comp/rfl_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9427_params, 1L), o_9428_c_expr); /* line 242 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9428_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 243 "../lib/comp/rfl_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9427_params, 3L), o_9428_c_expr); /* line 244 "../lib/comp/rfl_act.s7i" */ { /* line 244 "../lib/comp/rfl_act.s7i" */ striType *tmp_1; /* line 244 "../lib/comp/rfl_act.s7i" */ tmp_1=&(((structType)(*o_9428_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 244 "../lib/comp/rfl_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 244 "../lib/comp/rfl_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 244 "../lib/comp/rfl_act.s7i" */ } else { /* line 244 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 244 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->size++; /* line 244 "../lib/comp/rfl_act.s7i" */ } } } /* line 1 "no_file" */ /* 4412 */ /* line 248 "../lib/comp/rfl_act.s7i" */ static void/*t_1_void*/ o_9429_RFL_FOR (const objRefType/*t_19_reference*/ o_9430_function, const listType/*t_20_ref_list*/ *const o_9431_params, structType/*t_164_expr_type*/ *const o_9432_c_expr) { /* line 252 "../lib/comp/rfl_act.s7i" */ striType/*t_15_string*/ o_9433_elem_name; /* line 252 "../lib/comp/rfl_act.s7i" */ o_9433_elem_name=strEmpty(); /* "" */ /* line 254 "../lib/comp/rfl_act.s7i" */ ++(((structType)(*o_9432_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 255 "../lib/comp/rfl_act.s7i" */ union { /* line 255 "../lib/comp/rfl_act.s7i" */ struct striStruct striBuf; /* line 255 "../lib/comp/rfl_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 255 "../lib/comp/rfl_act.s7i" */ } buffer_2; /* line 255 "../lib/comp/rfl_act.s7i" */ striType old_stri=o_9433_elem_name; /* line 255 "../lib/comp/rfl_act.s7i" */ o_9433_elem_name=strConcat(&str[1650] /* "tmp_elem_" */, intStrToBuffer(((structType)(*o_9432_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 255 "../lib/comp/rfl_act.s7i" */ strDestr(old_stri); } /* line 256 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9432_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 257 "../lib/comp/rfl_act.s7i" */ o_4819_setDiagnosticLine(o_9432_c_expr); /* line 258 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9432_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1651] /* "listType " */); /* line 259 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9432_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9433_elem_name); /* line 260 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9432_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 261 "../lib/comp/rfl_act.s7i" */ o_4819_setDiagnosticLine(o_9432_c_expr); /* line 262 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9432_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1405] /* "for (" */); /* line 263 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9432_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9433_elem_name); /* line 264 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9432_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1437] /* " = " */); /* line 265 "../lib/comp/rfl_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9431_params, 4L), o_9432_c_expr); /* line 266 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9432_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1406] /* "; " */); /* line 267 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9432_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9433_elem_name); /* line 268 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9432_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1652] /* " != NULL; " */); /* line 269 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9432_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9433_elem_name); /* line 270 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9432_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1437] /* " = " */); /* line 271 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9432_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9433_elem_name); /* line 272 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9432_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1653] /* "->next) {\n" */); /* line 273 "../lib/comp/rfl_act.s7i" */ o_4819_setDiagnosticLine(o_9432_c_expr); /* line 274 "../lib/comp/rfl_act.s7i" */ o_4941_process_expr(rflIdx(*o_9431_params, 2L), o_9432_c_expr); /* line 275 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9432_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1437] /* " = " */); /* line 276 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9432_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9433_elem_name); /* line 277 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9432_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1654] /* "->obj;\n" */); /* line 278 "../lib/comp/rfl_act.s7i" */ o_4941_process_expr(rflIdx(*o_9431_params, 6L), o_9432_c_expr); /* line 279 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9432_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1412] /* "}\n}\n" */); /* line 248 "../lib/comp/rfl_act.s7i" */ strDestr(o_9433_elem_name); } /* line 1 "no_file" */ /* 4413 */ /* line 283 "../lib/comp/rfl_act.s7i" */ static void/*t_1_void*/ o_9434_RFL_FOR_UNTIL (const objRefType/*t_19_reference*/ o_9435_function, const listType/*t_20_ref_list*/ *const o_9436_params, structType/*t_164_expr_type*/ *const o_9437_c_expr) { /* line 287 "../lib/comp/rfl_act.s7i" */ striType/*t_15_string*/ o_9438_elem_name; /* line 287 "../lib/comp/rfl_act.s7i" */ o_9438_elem_name=strEmpty(); /* "" */ /* line 289 "../lib/comp/rfl_act.s7i" */ ++(((structType)(*o_9437_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 290 "../lib/comp/rfl_act.s7i" */ union { /* line 290 "../lib/comp/rfl_act.s7i" */ struct striStruct striBuf; /* line 290 "../lib/comp/rfl_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 290 "../lib/comp/rfl_act.s7i" */ } buffer_2; /* line 290 "../lib/comp/rfl_act.s7i" */ striType old_stri=o_9438_elem_name; /* line 290 "../lib/comp/rfl_act.s7i" */ o_9438_elem_name=strConcat(&str[1650] /* "tmp_elem_" */, intStrToBuffer(((structType)(*o_9437_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 290 "../lib/comp/rfl_act.s7i" */ strDestr(old_stri); } /* line 291 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9437_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 292 "../lib/comp/rfl_act.s7i" */ o_4819_setDiagnosticLine(o_9437_c_expr); /* line 293 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9437_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1651] /* "listType " */); /* line 294 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9437_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9438_elem_name); /* line 295 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9437_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 296 "../lib/comp/rfl_act.s7i" */ o_4819_setDiagnosticLine(o_9437_c_expr); /* line 297 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9437_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1405] /* "for (" */); /* line 298 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9437_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9438_elem_name); /* line 299 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9437_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1437] /* " = " */); /* line 300 "../lib/comp/rfl_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9436_params, 4L), o_9437_c_expr); /* line 301 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9437_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1406] /* "; " */); /* line 302 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9437_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9438_elem_name); /* line 303 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9437_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1655] /* " != NULL && (" */); /* line 304 "../lib/comp/rfl_act.s7i" */ o_4941_process_expr(rflIdx(*o_9436_params, 2L), o_9437_c_expr); /* line 305 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9437_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1437] /* " = " */); /* line 306 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9437_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9438_elem_name); /* line 307 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9437_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1656] /* "->obj, !(" */); /* line 308 "../lib/comp/rfl_act.s7i" */ o_4941_process_expr(rflIdx(*o_9436_params, 6L), o_9437_c_expr); /* line 309 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9437_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1657] /* ")); " */); /* line 310 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9437_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9438_elem_name); /* line 311 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9437_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1437] /* " = " */); /* line 312 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9437_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9438_elem_name); /* line 313 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9437_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1653] /* "->next) {\n" */); /* line 314 "../lib/comp/rfl_act.s7i" */ o_4941_process_expr(rflIdx(*o_9436_params, 8L), o_9437_c_expr); /* line 315 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9437_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1412] /* "}\n}\n" */); /* line 283 "../lib/comp/rfl_act.s7i" */ strDestr(o_9438_elem_name); } /* line 1 "no_file" */ /* 4414 */ /* line 319 "../lib/comp/rfl_act.s7i" */ static void/*t_1_void*/ o_9439_RFL_HEAD (const objRefType/*t_19_reference*/ o_9440_function, const listType/*t_20_ref_list*/ *const o_9441_params, structType/*t_164_expr_type*/ *const o_9442_c_expr) { /* line 323 "../lib/comp/rfl_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; { /* line 324 "../lib/comp/rfl_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 324 "../lib/comp/rfl_act.s7i" */ o_4949_prepare_list_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(o_4754_getExprResultType(rflIdx(*o_9441_params, 1L))), &tmp_1), o_9442_c_expr); } /* line 325 "../lib/comp/rfl_act.s7i" */ strCopy(&(((structType)(*o_9442_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1658] /* "rflHead(" */); /* line 326 "../lib/comp/rfl_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9441_params, 1L), o_9442_c_expr); /* line 327 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9442_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 328 "../lib/comp/rfl_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9441_params, 4L), o_9442_c_expr); /* line 329 "../lib/comp/rfl_act.s7i" */ { /* line 329 "../lib/comp/rfl_act.s7i" */ striType *tmp_1; /* line 329 "../lib/comp/rfl_act.s7i" */ tmp_1=&(((structType)(*o_9442_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 329 "../lib/comp/rfl_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 329 "../lib/comp/rfl_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 329 "../lib/comp/rfl_act.s7i" */ } else { /* line 329 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 329 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->size++; /* line 329 "../lib/comp/rfl_act.s7i" */ } } } /* line 1 "no_file" */ /* 4415 */ /* line 333 "../lib/comp/rfl_act.s7i" */ static void/*t_1_void*/ o_9443_RFL_IDX (const objRefType/*t_19_reference*/ o_9444_function, const listType/*t_20_ref_list*/ *const o_9445_params, structType/*t_164_expr_type*/ *const o_9446_c_expr) { /* line 337 "../lib/comp/rfl_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 338 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9446_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1659] /* "rflIdx(" */); /* line 339 "../lib/comp/rfl_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9445_params, 1L), o_9446_c_expr); /* line 340 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9446_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 341 "../lib/comp/rfl_act.s7i" */ o_4941_process_expr(rflIdx(*o_9445_params, 3L), o_9446_c_expr); /* line 342 "../lib/comp/rfl_act.s7i" */ { /* line 342 "../lib/comp/rfl_act.s7i" */ striType *tmp_1; /* line 342 "../lib/comp/rfl_act.s7i" */ tmp_1=&(((structType)(*o_9446_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 342 "../lib/comp/rfl_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 342 "../lib/comp/rfl_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 342 "../lib/comp/rfl_act.s7i" */ } else { /* line 342 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 342 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->size++; /* line 342 "../lib/comp/rfl_act.s7i" */ } } } /* line 1 "no_file" */ /* 4416 */ /* line 346 "../lib/comp/rfl_act.s7i" */ static void/*t_1_void*/ o_9447_RFL_INCL (const objRefType/*t_19_reference*/ o_9448_function, const listType/*t_20_ref_list*/ *const o_9449_params, structType/*t_164_expr_type*/ *const o_9450_c_expr) { /* line 350 "../lib/comp/rfl_act.s7i" */ structType/*t_164_expr_type*/ o_9451_statement; /* line 350 "../lib/comp/rfl_act.s7i" */ o_9451_statement=create_164(sct[292]); /* line 352 "../lib/comp/rfl_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 353 "../lib/comp/rfl_act.s7i" */ strCopy(&(((structType)(o_9451_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1660] /* "rflIncl(&(" */); /* line 354 "../lib/comp/rfl_act.s7i" */ o_4941_process_expr(rflIdx(*o_9449_params, 1L), &(o_9451_statement)); /* line 355 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(o_9451_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 356 "../lib/comp/rfl_act.s7i" */ o_4941_process_expr(rflIdx(*o_9449_params, 2L), &(o_9451_statement)); /* line 357 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(o_9451_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 358 "../lib/comp/rfl_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_9451_statement, o_9450_c_expr); /* line 346 "../lib/comp/rfl_act.s7i" */ destr_164(o_9451_statement); } /* line 1 "no_file" */ /* 4417 */ /* line 362 "../lib/comp/rfl_act.s7i" */ static void/*t_1_void*/ o_9452_RFL_IPOS (const objRefType/*t_19_reference*/ o_9453_function, const listType/*t_20_ref_list*/ *const o_9454_params, structType/*t_164_expr_type*/ *const o_9455_c_expr) { /* line 366 "../lib/comp/rfl_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 367 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9455_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1661] /* "rflIpos(" */); /* line 368 "../lib/comp/rfl_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9454_params, 1L), o_9455_c_expr); /* line 369 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9455_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 370 "../lib/comp/rfl_act.s7i" */ o_4941_process_expr(rflIdx(*o_9454_params, 2L), o_9455_c_expr); /* line 371 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9455_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 372 "../lib/comp/rfl_act.s7i" */ o_4941_process_expr(rflIdx(*o_9454_params, 3L), o_9455_c_expr); /* line 373 "../lib/comp/rfl_act.s7i" */ { /* line 373 "../lib/comp/rfl_act.s7i" */ striType *tmp_1; /* line 373 "../lib/comp/rfl_act.s7i" */ tmp_1=&(((structType)(*o_9455_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 373 "../lib/comp/rfl_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 373 "../lib/comp/rfl_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 373 "../lib/comp/rfl_act.s7i" */ } else { /* line 373 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 373 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->size++; /* line 373 "../lib/comp/rfl_act.s7i" */ } } } /* line 1 "no_file" */ /* 4418 */ /* line 377 "../lib/comp/rfl_act.s7i" */ static void/*t_1_void*/ o_9456_RFL_LNG (const objRefType/*t_19_reference*/ o_9457_function, const listType/*t_20_ref_list*/ *const o_9458_params, structType/*t_164_expr_type*/ *const o_9459_c_expr) { /* line 381 "../lib/comp/rfl_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 382 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9459_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1662] /* "rflLng(" */); /* line 383 "../lib/comp/rfl_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9458_params, 1L), o_9459_c_expr); /* line 384 "../lib/comp/rfl_act.s7i" */ { /* line 384 "../lib/comp/rfl_act.s7i" */ striType *tmp_1; /* line 384 "../lib/comp/rfl_act.s7i" */ tmp_1=&(((structType)(*o_9459_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 384 "../lib/comp/rfl_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 384 "../lib/comp/rfl_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 384 "../lib/comp/rfl_act.s7i" */ } else { /* line 384 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 384 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->size++; /* line 384 "../lib/comp/rfl_act.s7i" */ } } } /* line 1 "no_file" */ /* 4419 */ /* line 388 "../lib/comp/rfl_act.s7i" */ static void/*t_1_void*/ o_9460_RFL_MKLIST (const objRefType/*t_19_reference*/ o_9461_function, const listType/*t_20_ref_list*/ *const o_9462_params, structType/*t_164_expr_type*/ *const o_9463_c_expr) { /* line 392 "../lib/comp/rfl_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; { /* line 393 "../lib/comp/rfl_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 393 "../lib/comp/rfl_act.s7i" */ o_4949_prepare_list_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_9461_function))), &tmp_1), o_9463_c_expr); } /* line 394 "../lib/comp/rfl_act.s7i" */ strCopy(&(((structType)(*o_9463_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1663] /* "rflMklist(" */); /* line 395 "../lib/comp/rfl_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9462_params, 1L), o_9463_c_expr); /* line 396 "../lib/comp/rfl_act.s7i" */ { /* line 396 "../lib/comp/rfl_act.s7i" */ striType *tmp_1; /* line 396 "../lib/comp/rfl_act.s7i" */ tmp_1=&(((structType)(*o_9463_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 396 "../lib/comp/rfl_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 396 "../lib/comp/rfl_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 396 "../lib/comp/rfl_act.s7i" */ } else { /* line 396 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 396 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->size++; /* line 396 "../lib/comp/rfl_act.s7i" */ } } } /* line 1 "no_file" */ /* 4420 */ /* line 400 "../lib/comp/rfl_act.s7i" */ static void/*t_1_void*/ o_9464_RFL_NE (const objRefType/*t_19_reference*/ o_9465_function, const listType/*t_20_ref_list*/ *const o_9466_params, structType/*t_164_expr_type*/ *const o_9467_c_expr) { /* line 404 "../lib/comp/rfl_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 405 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9467_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1664] /* "!rflEq(" */); /* line 406 "../lib/comp/rfl_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9466_params, 1L), o_9467_c_expr); /* line 407 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9467_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 408 "../lib/comp/rfl_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9466_params, 3L), o_9467_c_expr); /* line 409 "../lib/comp/rfl_act.s7i" */ { /* line 409 "../lib/comp/rfl_act.s7i" */ striType *tmp_1; /* line 409 "../lib/comp/rfl_act.s7i" */ tmp_1=&(((structType)(*o_9467_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 409 "../lib/comp/rfl_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 409 "../lib/comp/rfl_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 409 "../lib/comp/rfl_act.s7i" */ } else { /* line 409 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 409 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->size++; /* line 409 "../lib/comp/rfl_act.s7i" */ } } } /* line 1 "no_file" */ /* 4421 */ /* line 413 "../lib/comp/rfl_act.s7i" */ static void/*t_1_void*/ o_9468_RFL_NOT_ELEM (const objRefType/*t_19_reference*/ o_9469_function, const listType/*t_20_ref_list*/ *const o_9470_params, structType/*t_164_expr_type*/ *const o_9471_c_expr) { /* line 417 "../lib/comp/rfl_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 418 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9471_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1665] /* "!rflElem(" */); /* line 419 "../lib/comp/rfl_act.s7i" */ o_4941_process_expr(rflIdx(*o_9470_params, 1L), o_9471_c_expr); /* line 420 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9471_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 421 "../lib/comp/rfl_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9470_params, 4L), o_9471_c_expr); /* line 422 "../lib/comp/rfl_act.s7i" */ { /* line 422 "../lib/comp/rfl_act.s7i" */ striType *tmp_1; /* line 422 "../lib/comp/rfl_act.s7i" */ tmp_1=&(((structType)(*o_9471_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 422 "../lib/comp/rfl_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 422 "../lib/comp/rfl_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 422 "../lib/comp/rfl_act.s7i" */ } else { /* line 422 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 422 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->size++; /* line 422 "../lib/comp/rfl_act.s7i" */ } } } /* line 1 "no_file" */ /* 4422 */ /* line 426 "../lib/comp/rfl_act.s7i" */ static void/*t_1_void*/ o_9472_RFL_POS (const objRefType/*t_19_reference*/ o_9473_function, const listType/*t_20_ref_list*/ *const o_9474_params, structType/*t_164_expr_type*/ *const o_9475_c_expr) { /* line 430 "../lib/comp/rfl_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 431 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9475_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1666] /* "rflPos(" */); /* line 432 "../lib/comp/rfl_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9474_params, 1L), o_9475_c_expr); /* line 433 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9475_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 434 "../lib/comp/rfl_act.s7i" */ o_4941_process_expr(rflIdx(*o_9474_params, 2L), o_9475_c_expr); /* line 435 "../lib/comp/rfl_act.s7i" */ { /* line 435 "../lib/comp/rfl_act.s7i" */ striType *tmp_1; /* line 435 "../lib/comp/rfl_act.s7i" */ tmp_1=&(((structType)(*o_9475_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 435 "../lib/comp/rfl_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 435 "../lib/comp/rfl_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 435 "../lib/comp/rfl_act.s7i" */ } else { /* line 435 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 435 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->size++; /* line 435 "../lib/comp/rfl_act.s7i" */ } } } /* line 1 "no_file" */ /* 4423 */ /* line 439 "../lib/comp/rfl_act.s7i" */ static void/*t_1_void*/ o_9476_RFL_SETVALUE (const objRefType/*t_19_reference*/ o_9477_function, const listType/*t_20_ref_list*/ *const o_9478_params, structType/*t_164_expr_type*/ *const o_9479_c_expr) { /* line 443 "../lib/comp/rfl_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 444 "../lib/comp/rfl_act.s7i" */ o_4819_setDiagnosticLine(o_9479_c_expr); /* line 445 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9479_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1667] /* "rflSetValue(" */); /* line 446 "../lib/comp/rfl_act.s7i" */ o_4941_process_expr(rflIdx(*o_9478_params, 1L), o_9479_c_expr); /* line 447 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9479_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 448 "../lib/comp/rfl_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9478_params, 2L), o_9479_c_expr); /* line 449 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9479_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4424 */ /* line 453 "../lib/comp/rfl_act.s7i" */ static void/*t_1_void*/ o_9480_RFL_TAIL (const objRefType/*t_19_reference*/ o_9481_function, const listType/*t_20_ref_list*/ *const o_9482_params, structType/*t_164_expr_type*/ *const o_9483_c_expr) { /* line 457 "../lib/comp/rfl_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; { /* line 458 "../lib/comp/rfl_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 458 "../lib/comp/rfl_act.s7i" */ o_4949_prepare_list_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(o_4754_getExprResultType(rflIdx(*o_9482_params, 1L))), &tmp_1), o_9483_c_expr); } /* line 459 "../lib/comp/rfl_act.s7i" */ strCopy(&(((structType)(*o_9483_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1668] /* "rflTail(" */); /* line 460 "../lib/comp/rfl_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9482_params, 1L), o_9483_c_expr); /* line 461 "../lib/comp/rfl_act.s7i" */ strAppend(&(((structType)(*o_9483_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 462 "../lib/comp/rfl_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9482_params, 3L), o_9483_c_expr); /* line 463 "../lib/comp/rfl_act.s7i" */ { /* line 463 "../lib/comp/rfl_act.s7i" */ striType *tmp_1; /* line 463 "../lib/comp/rfl_act.s7i" */ tmp_1=&(((structType)(*o_9483_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 463 "../lib/comp/rfl_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 463 "../lib/comp/rfl_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 463 "../lib/comp/rfl_act.s7i" */ } else { /* line 463 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 463 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->size++; /* line 463 "../lib/comp/rfl_act.s7i" */ } } } /* line 1 "no_file" */ /* 4425 */ /* line 467 "../lib/comp/rfl_act.s7i" */ static void/*t_1_void*/ o_9484_RFL_VALUE (const objRefType/*t_19_reference*/ o_9485_function, const listType/*t_20_ref_list*/ *const o_9486_params, structType/*t_164_expr_type*/ *const o_9487_c_expr) { /* line 471 "../lib/comp/rfl_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; { /* line 472 "../lib/comp/rfl_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 472 "../lib/comp/rfl_act.s7i" */ o_4949_prepare_list_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_9485_function))), &tmp_1), o_9487_c_expr); } /* line 473 "../lib/comp/rfl_act.s7i" */ strCopy(&(((structType)(*o_9487_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1669] /* "rflValue(" */); /* line 474 "../lib/comp/rfl_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9486_params, 1L), o_9487_c_expr); /* line 475 "../lib/comp/rfl_act.s7i" */ { /* line 475 "../lib/comp/rfl_act.s7i" */ striType *tmp_1; /* line 475 "../lib/comp/rfl_act.s7i" */ tmp_1=&(((structType)(*o_9487_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 475 "../lib/comp/rfl_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 475 "../lib/comp/rfl_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 475 "../lib/comp/rfl_act.s7i" */ } else { /* line 475 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 475 "../lib/comp/rfl_act.s7i" */ (*tmp_1)->size++; /* line 475 "../lib/comp/rfl_act.s7i" */ } } } /* line 1 "no_file" */ /* 4426 */ /* 4427 */ /* 4428 */ /* line 32 "../lib/comp/sct_act.s7i" */ static void/*t_1_void*/ o_9488_SCT_ALLOC (const objRefType/*t_19_reference*/ o_9489_function, const listType/*t_20_ref_list*/ *const o_9490_params, structType/*t_164_expr_type*/ *const o_9491_c_expr) { /* line 36 "../lib/comp/sct_act.s7i" */ typeType/*t_7_type*/ o_9492_param_type=typ[0] /* void/t_1_void */; /* line 37 "../lib/comp/sct_act.s7i" */ structType/*t_164_expr_type*/ o_9493_c_param1; /* line 37 "../lib/comp/sct_act.s7i" */ o_9493_c_param1=create_164(sct[293]); /* line 39 "../lib/comp/sct_act.s7i" */ o_9492_param_type=o_4754_getExprResultType(rflIdx(*o_9490_params, 1L)); /* line 41 "../lib/comp/sct_act.s7i" */ o_4963_prepareAnyParamTemporarys(rflIdx(*o_9490_params, 1L), &(o_9493_c_param1), o_9491_c_expr); /* line 42 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9491_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1670] /* "/* SCT_ALLOC *\/ (objRefType)(" */); /* line 43 "../lib/comp/sct_act.s7i" */ if (((((structType)(o_9493_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 44 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9491_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9493_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 46 "../lib/comp/sct_act.s7i" */ o_3785/*@:=*/(&(o_4414_typeCategory), &(o_9492_param_type), 16L); /* line 47 "../lib/comp/sct_act.s7i" */ o_4878_process_create_declaration(&(o_9492_param_type), &(o_4794_global_c_expr)); /* line 48 "../lib/comp/sct_act.s7i" */ o_4881_process_create_call(&(o_9492_param_type), ((structType)(o_9493_c_param1))->stru[5].value.striValue/*->o_4783_expr*/, &(((structType)(*o_9491_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } /* line 51 "../lib/comp/sct_act.s7i" */ { /* line 51 "../lib/comp/sct_act.s7i" */ striType *tmp_1; /* line 51 "../lib/comp/sct_act.s7i" */ tmp_1=&(((structType)(*o_9491_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 51 "../lib/comp/sct_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 51 "../lib/comp/sct_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 51 "../lib/comp/sct_act.s7i" */ } else { /* line 51 "../lib/comp/sct_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 51 "../lib/comp/sct_act.s7i" */ (*tmp_1)->size++; /* line 51 "../lib/comp/sct_act.s7i" */ } } /* line 32 "../lib/comp/sct_act.s7i" */ destr_164(o_9493_c_param1); } /* line 1 "no_file" */ /* 4429 */ /* line 55 "../lib/comp/sct_act.s7i" */ static void/*t_1_void*/ o_9494_SCT_CPY (const objRefType/*t_19_reference*/ o_9495_function, const listType/*t_20_ref_list*/ *const o_9496_params, structType/*t_164_expr_type*/ *const o_9497_c_expr) { /* line 59 "../lib/comp/sct_act.s7i" */ structType/*t_164_expr_type*/ o_9498_c_param1; /* line 60 "../lib/comp/sct_act.s7i" */ structType/*t_164_expr_type*/ o_9499_c_param3; /* line 59 "../lib/comp/sct_act.s7i" */ o_9498_c_param1=create_164(sct[294]); /* line 60 "../lib/comp/sct_act.s7i" */ o_9499_c_param3=create_164(sct[295]); /* line 62 "../lib/comp/sct_act.s7i" */ o_4941_process_expr(rflIdx(*o_9496_params, 1L), &(o_9498_c_param1)); /* line 63 "../lib/comp/sct_act.s7i" */ ((structType)(o_9499_c_param3))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_9498_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 64 "../lib/comp/sct_act.s7i" */ o_4941_process_expr(rflIdx(*o_9496_params, 3L), &(o_9499_c_param3)); /* line 65 "../lib/comp/sct_act.s7i" */ if (o_5049_has_temp_values(o_9499_c_param3)) { /* line 66 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9497_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 67 "../lib/comp/sct_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9498_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9497_c_expr); /* line 68 "../lib/comp/sct_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9499_c_param3))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9497_c_expr); /* line 69 "../lib/comp/sct_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9498_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9497_c_expr); /* line 70 "../lib/comp/sct_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9499_c_param3))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9497_c_expr); } /* line 72 "../lib/comp/sct_act.s7i" */ if (((((structType)(o_9499_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 73 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9497_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 74 "../lib/comp/sct_act.s7i" */ o_4819_setDiagnosticLine(o_9497_c_expr); /* line 75 "../lib/comp/sct_act.s7i" */ if (o_5018_isNormalVariable(rflIdx(*o_9496_params, 1L))) { /* line 76 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9497_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1334] /* "structType old_struct=" */); /* line 77 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9497_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9498_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 78 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9497_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 79 "../lib/comp/sct_act.s7i" */ o_4819_setDiagnosticLine(o_9497_c_expr); /* line 80 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9497_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9498_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 81 "../lib/comp/sct_act.s7i" */ { /* line 81 "../lib/comp/sct_act.s7i" */ striType *tmp_1; /* line 81 "../lib/comp/sct_act.s7i" */ tmp_1=&(((structType)(*o_9497_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 81 "../lib/comp/sct_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 81 "../lib/comp/sct_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 81 "../lib/comp/sct_act.s7i" */ } else { /* line 81 "../lib/comp/sct_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 81 "../lib/comp/sct_act.s7i" */ (*tmp_1)->size++; /* line 81 "../lib/comp/sct_act.s7i" */ } } /* line 82 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9497_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9499_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 83 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9497_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 84 "../lib/comp/sct_act.s7i" */ o_4819_setDiagnosticLine(o_9497_c_expr); /* line 85 "../lib/comp/sct_act.s7i" */ { /* line 85 "../lib/comp/sct_act.s7i" */ striType *tmp_1; /* line 85 "../lib/comp/sct_act.s7i" */ tmp_1=&(((structType)(*o_9497_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 85 "../lib/comp/sct_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 85 "../lib/comp/sct_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 85 "../lib/comp/sct_act.s7i" */ } else { /* line 85 "../lib/comp/sct_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 85 "../lib/comp/sct_act.s7i" */ (*tmp_1)->size++; /* line 85 "../lib/comp/sct_act.s7i" */ } } /* line 86 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9497_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9498_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 87 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9497_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1671] /* ")->type_num = old_struct->type_num;\n" */); } else { /* line 89 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9497_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1672] /* "structType *struct_ptr=&(" */); /* line 90 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9497_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9498_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 91 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9497_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 92 "../lib/comp/sct_act.s7i" */ o_4819_setDiagnosticLine(o_9497_c_expr); /* line 93 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9497_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1673] /* "structType old_struct=*struct_ptr;\n" */); /* line 94 "../lib/comp/sct_act.s7i" */ o_4819_setDiagnosticLine(o_9497_c_expr); /* line 95 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9497_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1674] /* "*struct_ptr=" */); /* line 96 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9497_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9499_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 97 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9497_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 98 "../lib/comp/sct_act.s7i" */ o_4819_setDiagnosticLine(o_9497_c_expr); /* line 99 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9497_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1675] /* "(*struct_ptr)->type_num = old_struct->type_num;\n" */); } { /* line 101 "../lib/comp/sct_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 101 "../lib/comp/sct_act.s7i" */ o_4829_process_destr_declaration(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(o_4754_getExprResultType(rflIdx(*o_9496_params, 1L))), &tmp_1), &(o_4794_global_c_expr)); } /* line 102 "../lib/comp/sct_act.s7i" */ o_4819_setDiagnosticLine(o_9497_c_expr); { /* line 103 "../lib/comp/sct_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 103 "../lib/comp/sct_act.s7i" */ o_4832_process_destr_call(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(o_4754_getExprResultType(rflIdx(*o_9496_params, 1L))), &tmp_1), &str[1342] /* "old_struct" */, &(((structType)(*o_9497_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } /* line 105 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9497_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } else { { /* line 107 "../lib/comp/sct_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 107 "../lib/comp/sct_act.s7i" */ o_4911_process_cpy_declaration(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(o_4754_getExprResultType(rflIdx(*o_9496_params, 1L))), &tmp_1), &(o_4794_global_c_expr)); } /* line 108 "../lib/comp/sct_act.s7i" */ o_4819_setDiagnosticLine(o_9497_c_expr); { /* line 109 "../lib/comp/sct_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 109 "../lib/comp/sct_act.s7i" */ o_4914_process_cpy_call(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(o_4754_getExprResultType(rflIdx(*o_9496_params, 1L))), &tmp_1), ((structType)(o_9498_c_param1))->stru[5].value.striValue/*->o_4783_expr*/, ((structType)(o_9499_c_param3))->stru[5].value.striValue/*->o_4783_expr*/, &(((structType)(*o_9497_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } /* line 111 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9497_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); } /* line 113 "../lib/comp/sct_act.s7i" */ if (o_5049_has_temp_values(o_9499_c_param3)) { /* line 114 "../lib/comp/sct_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9498_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9497_c_expr); /* line 115 "../lib/comp/sct_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9499_c_param3))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9497_c_expr); /* line 116 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9497_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 55 "../lib/comp/sct_act.s7i" */ destr_164(o_9498_c_param1); /* line 55 "../lib/comp/sct_act.s7i" */ destr_164(o_9499_c_param3); } /* line 1 "no_file" */ /* 4430 */ /* line 121 "../lib/comp/sct_act.s7i" */ static void/*t_1_void*/ o_9500_SCT_SELECT (const objRefType/*t_19_reference*/ o_9501_function, const listType/*t_20_ref_list*/ *const o_9502_params, structType/*t_164_expr_type*/ *const o_9503_c_expr) { /* line 125 "../lib/comp/sct_act.s7i" */ typeType/*t_7_type*/ o_9504_object_type=typ[0] /* void/t_1_void */; /* line 127 "../lib/comp/sct_act.s7i" */ o_9504_object_type=o_4754_getExprResultType(rflIdx(*o_9502_params, 1L)); { /* line 128 "../lib/comp/sct_act.s7i" */ objRefType/*t_19_reference*/ tmp_1; /* line 128 "../lib/comp/sct_act.s7i" */ if ((o_4587_in(&(o_9504_object_type), o_4735_struct_elements)) && /* line 128 "../lib/comp/sct_act.s7i" */ (o_4502_in(/* CALLOBJECT */(tmp_1=(objRefType/*t_19_reference*/)(rflIdx(*o_9502_params, 3L)), &tmp_1), *o_4580/*[*/(&(o_4735_struct_elements), &(o_9504_object_type))))) { /* line 129 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9503_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1528] /* "((structType)(" */); /* line 130 "../lib/comp/sct_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9502_params, 1L), o_9503_c_expr); /* line 131 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9503_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1529] /* "))->stru[" */); { /* line 132 "../lib/comp/sct_act.s7i" */ union { /* line 132 "../lib/comp/sct_act.s7i" */ struct striStruct striBuf; /* line 132 "../lib/comp/sct_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 132 "../lib/comp/sct_act.s7i" */ } buffer_1; /* line 132 "../lib/comp/sct_act.s7i" */ objRefType/*t_19_reference*/ tmp_2; /* line 132 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9503_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(*o_4495/*[*/(&(*o_4580/*[*/(&(o_4735_struct_elements), &(o_9504_object_type))), /* CALLOBJECT */(tmp_2=(objRefType/*t_19_reference*/)(rflIdx(*o_9502_params, 3L)), &tmp_2)), &buffer_1.striBuf)); } /* line 133 "../lib/comp/sct_act.s7i" */ { /* line 133 "../lib/comp/sct_act.s7i" */ striType *tmp_1; /* line 133 "../lib/comp/sct_act.s7i" */ tmp_1=&(((structType)(*o_9503_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 133 "../lib/comp/sct_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 133 "../lib/comp/sct_act.s7i" */ strPush(&(*tmp_1), (charType) ']'); /* line 133 "../lib/comp/sct_act.s7i" */ } else { /* line 133 "../lib/comp/sct_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ']'; /* line 133 "../lib/comp/sct_act.s7i" */ (*tmp_1)->size++; /* line 133 "../lib/comp/sct_act.s7i" */ } } { /* line 134 "../lib/comp/sct_act.s7i" */ typeType/*t_7_type*/ tmp_2; /* line 134 "../lib/comp/sct_act.s7i" */ strAppendTemp(&(((structType)(*o_9503_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4760_select_value_from_rtlObjectStruct(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(typResult(refType(o_9501_function))), &tmp_2))); } /* line 135 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9503_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1530] /* "/*->o_" */); /* line 136 "../lib/comp/sct_act.s7i" */ o_5077_create_name2(rflIdx(*o_9502_params, 3L), &(((structType)(*o_9503_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 137 "../lib/comp/sct_act.s7i" */ strAppend(&(((structType)(*o_9503_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[123] /* "*\/" */); } } } /* line 1 "no_file" */ /* 4431 */ /* 4432 */ /* line 58 "../lib/comp/set_act.s7i" */ static intType/*t_14_integer*/ o_9505_bitset_pos (const intType/*t_14_integer*/ o_9506_number) { /* line 59 "../lib/comp/set_act.s7i" */ intType/*t_14_integer*/ result; /* line 59 "../lib/comp/set_act.s7i" */ intType rshift_1; /* line 59 "../lib/comp/set_act.s7i" */ result=(intType/*t_14_integer*/)(((rshift_1=intLog2(((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/),ovfChk((uintType)rshift_1>=(uintType)64L)?intRaiseError(OVERFLOW_ERROR):(o_9506_number) >> rshift_1))); /* line 59 "../lib/comp/set_act.s7i" */ return result; } /* line 1 "no_file" */ /* 4433 */ /* line 62 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9507_set_prototypes (interfaceType/*t_46_file*/ *const o_9508_c_prog) { /* line 65 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1676] /* "setType setArrlit (const_arrayType);" */); /* line 66 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1677] /* "setType setBaselit (const intType);" */); /* line 67 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1678] /* "intType setCard (const const_setType);" */); /* line 68 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1679] /* "intType setCmp (const const_setType, const const_setType);" */); /* line 69 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1680] /* "intType setCmpGeneric (const genericType, const genericType);" */); /* line 70 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1681] /* "void setCpy (setType *const, const const_setType);" */); /* line 71 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1682] /* "void setCpyGeneric (genericType *const, const genericType);" */); /* line 72 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1683] /* "setType setCreate (const const_setType);" */); /* line 73 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1684] /* "genericType setCreateGeneric (const genericType);" */); /* line 74 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1685] /* "void setDestr (const const_setType);" */); /* line 75 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1686] /* "void setDestrGeneric (const genericType);" */); /* line 76 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1687] /* "setType setDiff (const const_setType, const const_setType);" */); /* line 77 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1688] /* "boolType setElem (const intType, const const_setType);" */); /* line 78 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1689] /* "boolType setEq (const const_setType, const const_setType);" */); /* line 79 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1690] /* "void setExcl (setType *const, const intType);" */); /* line 80 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1691] /* "intType setHashCode (const const_setType);" */); /* line 81 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1692] /* "setType setIConv (intType);" */); /* line 82 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1693] /* "void setIncl (setType *const, const intType);" */); /* line 83 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1694] /* "setType setIntersect (const const_setType, const const_setType);" */); /* line 84 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1695] /* "boolType setIsEmpty (const const_setType);" */); /* line 85 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1696] /* "boolType setIsProperSubset (const const_setType, const const_setType);" */); /* line 86 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1697] /* "boolType setIsSubset (const const_setType, const const_setType);" */); /* line 87 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1698] /* "intType setMax (const const_setType);" */); /* line 88 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1699] /* "intType setMin (const const_setType);" */); /* line 89 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1700] /* "intType setNext (const const_setType, const intType);" */); /* line 90 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1701] /* "intType setRand (const const_setType);" */); /* line 91 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1702] /* "setType setRangelit (const intType, const intType);" */); /* line 92 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1703] /* "intType setSConv (const const_setType);" */); /* line 93 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1704] /* "setType setSymdiff (const const_setType, const const_setType);" */); /* line 94 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1705] /* "setType setUnion (const const_setType, const const_setType);" */); /* line 95 "../lib/comp/set_act.s7i" */ o_6547_declareExtern(o_9508_c_prog, &str[1706] /* "setType setValue (objRefType);" */); } /* line 1 "no_file" */ /* 4434 */ /* line 99 "../lib/comp/set_act.s7i" */ static striType/*t_15_string*/ o_9509_bitsetElemAsHex (const const_setType/*t_30_bitset*/ o_9510_set1, const intType/*t_14_integer*/ o_9511_start_num) { /* line 102 "../lib/comp/set_act.s7i" */ striType/*t_15_string*/ o_9512_hex_num; /* line 104 "../lib/comp/set_act.s7i" */ intType/*t_14_integer*/ o_9513_hex_digit_num=0; /* line 105 "../lib/comp/set_act.s7i" */ intType/*t_14_integer*/ o_9514_bit_num=0; /* line 106 "../lib/comp/set_act.s7i" */ intType/*t_14_integer*/ o_9515_hex_digit=0; /* line 102 "../lib/comp/set_act.s7i" */ o_9512_hex_num=strEmpty(); /* "" */ { /* line 108 "../lib/comp/set_act.s7i" */ intType tmp_e_1=((((structType)(sct[55]))->stru[21].value.intValue/*->o_3399_INTTYPE_SIZE*/) / 4L)-1; /* line 108 "../lib/comp/set_act.s7i" */ for (o_9513_hex_digit_num=0L; o_9513_hex_digit_num<=tmp_e_1; (o_9513_hex_digit_num)++) { /* line 109 "../lib/comp/set_act.s7i" */ o_9515_hex_digit=0L; /* line 110 "../lib/comp/set_act.s7i" */ for (o_9514_bit_num=0L; o_9514_bit_num<=3L; (o_9514_bit_num)++) { { /* line 111 "../lib/comp/set_act.s7i" */ intType tmp_1; /* line 111 "../lib/comp/set_act.s7i" */ intType tmp_2; /* line 111 "../lib/comp/set_act.s7i" */ if ((tmp_1=((o_9511_start_num) + ((o_9513_hex_digit_num) * 4L)) + (o_9514_bit_num),tmp_2=bitset_pos(tmp_1),tmp_2>=(o_9510_set1)->min_position&&tmp_2<=(o_9510_set1)->max_position&&(o_9510_set1)->bitset[(uintType)(tmp_2-(o_9510_set1)->min_position)] >> (tmp_1 & bitset_mask)&1)) { /* line 112 "../lib/comp/set_act.s7i" */ o_9515_hex_digit+=(numChk((o_9514_bit_num)<0)?intRaiseError(NUMERIC_ERROR):ovfChk((o_9514_bit_num)>62L)?intRaiseError(OVERFLOW_ERROR):1L<<(o_9514_bit_num)); } } } { /* line 115 "../lib/comp/set_act.s7i" */ striType old_stri=o_9512_hex_num; /* line 115 "../lib/comp/set_act.s7i" */ o_9512_hex_num=strConcatTemp(intRadixPow2(o_9515_hex_digit,4L,15L,0), o_9512_hex_num); /* line 115 "../lib/comp/set_act.s7i" */ strDestr(old_stri); } } } { /* line 117 "../lib/comp/set_act.s7i" */ striType old_stri=o_9512_hex_num; /* line 117 "../lib/comp/set_act.s7i" */ o_9512_hex_num=strConcat(&str[1707] /* "0x" */, o_9512_hex_num); /* line 117 "../lib/comp/set_act.s7i" */ strDestr(old_stri); } return o_9512_hex_num; } /* line 1 "no_file" */ /* 4435 */ /* line 121 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9516_SET_ARRLIT (const objRefType/*t_19_reference*/ o_9517_function, const listType/*t_20_ref_list*/ *const o_9518_params, structType/*t_164_expr_type*/ *const o_9519_c_expr) { { /* line 125 "../lib/comp/set_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 125 "../lib/comp/set_act.s7i" */ o_4952_prepare_set_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_9517_function))), &tmp_1), o_9519_c_expr); } /* line 126 "../lib/comp/set_act.s7i" */ strCopy(&(((structType)(*o_9519_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1708] /* "setArrlit(" */); /* line 127 "../lib/comp/set_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9518_params, 2L), o_9519_c_expr); /* line 128 "../lib/comp/set_act.s7i" */ { /* line 128 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 128 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9519_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 128 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 128 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 128 "../lib/comp/set_act.s7i" */ } else { /* line 128 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 128 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 128 "../lib/comp/set_act.s7i" */ } } } /* line 1 "no_file" */ /* 4436 */ /* line 132 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9520_SET_BASELIT (const objRefType/*t_19_reference*/ o_9521_function, const listType/*t_20_ref_list*/ *const o_9522_params, structType/*t_164_expr_type*/ *const o_9523_c_expr) { { /* line 136 "../lib/comp/set_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 136 "../lib/comp/set_act.s7i" */ o_4952_prepare_set_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_9521_function))), &tmp_1), o_9523_c_expr); } /* line 137 "../lib/comp/set_act.s7i" */ strCopy(&(((structType)(*o_9523_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1709] /* "setBaselit(" */); /* line 138 "../lib/comp/set_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9522_params, 2L), o_9523_c_expr); /* line 139 "../lib/comp/set_act.s7i" */ { /* line 139 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 139 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9523_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 139 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 139 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 139 "../lib/comp/set_act.s7i" */ } else { /* line 139 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 139 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 139 "../lib/comp/set_act.s7i" */ } } } /* line 1 "no_file" */ /* 4437 */ /* line 143 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9524_SET_CARD (const objRefType/*t_19_reference*/ o_9525_function, const listType/*t_20_ref_list*/ *const o_9526_params, structType/*t_164_expr_type*/ *const o_9527_c_expr) { /* line 147 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9527_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1710] /* "setCard(" */); /* line 148 "../lib/comp/set_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9526_params, 1L), o_9527_c_expr); /* line 149 "../lib/comp/set_act.s7i" */ { /* line 149 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 149 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9527_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 149 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 149 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 149 "../lib/comp/set_act.s7i" */ } else { /* line 149 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 149 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 149 "../lib/comp/set_act.s7i" */ } } } /* line 1 "no_file" */ /* 4438 */ /* line 153 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9528_SET_CMP (const objRefType/*t_19_reference*/ o_9529_function, const listType/*t_20_ref_list*/ *const o_9530_params, structType/*t_164_expr_type*/ *const o_9531_c_expr) { /* line 157 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1711] /* "setCmp(" */); /* line 158 "../lib/comp/set_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9530_params, 1L), o_9531_c_expr); /* line 159 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 160 "../lib/comp/set_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9530_params, 2L), o_9531_c_expr); /* line 161 "../lib/comp/set_act.s7i" */ { /* line 161 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 161 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9531_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 161 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 161 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 161 "../lib/comp/set_act.s7i" */ } else { /* line 161 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 161 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 161 "../lib/comp/set_act.s7i" */ } } } /* line 1 "no_file" */ /* 4439 */ /* line 165 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9532_SET_CONV (const objRefType/*t_19_reference*/ o_9533_function, const listType/*t_20_ref_list*/ *const o_9534_params, structType/*t_164_expr_type*/ *const o_9535_c_expr) { /* line 169 "../lib/comp/set_act.s7i" */ { /* line 169 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 169 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9535_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 169 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 169 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 169 "../lib/comp/set_act.s7i" */ } else { /* line 169 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 169 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 169 "../lib/comp/set_act.s7i" */ } } /* line 170 "../lib/comp/set_act.s7i" */ o_4941_process_expr(rflIdx(*o_9534_params, 3L), o_9535_c_expr); /* line 171 "../lib/comp/set_act.s7i" */ { /* line 171 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 171 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9535_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 171 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 171 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 171 "../lib/comp/set_act.s7i" */ } else { /* line 171 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 171 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 171 "../lib/comp/set_act.s7i" */ } } } /* line 1 "no_file" */ /* 4440 */ /* line 175 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9536_SET_CPY (const objRefType/*t_19_reference*/ o_9537_function, const listType/*t_20_ref_list*/ *const o_9538_params, structType/*t_164_expr_type*/ *const o_9539_c_expr) { /* line 179 "../lib/comp/set_act.s7i" */ structType/*t_164_expr_type*/ o_9540_c_param1; /* line 180 "../lib/comp/set_act.s7i" */ structType/*t_164_expr_type*/ o_9541_c_param3; /* line 179 "../lib/comp/set_act.s7i" */ o_9540_c_param1=create_164(sct[296]); /* line 180 "../lib/comp/set_act.s7i" */ o_9541_c_param3=create_164(sct[297]); /* line 182 "../lib/comp/set_act.s7i" */ o_4941_process_expr(rflIdx(*o_9538_params, 1L), &(o_9540_c_param1)); /* line 183 "../lib/comp/set_act.s7i" */ ((structType)(o_9541_c_param3))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_9540_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 184 "../lib/comp/set_act.s7i" */ o_4941_process_expr(rflIdx(*o_9538_params, 3L), &(o_9541_c_param3)); /* line 185 "../lib/comp/set_act.s7i" */ if (o_5049_has_temp_values(o_9541_c_param3)) { /* line 186 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9539_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 187 "../lib/comp/set_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9540_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9539_c_expr); /* line 188 "../lib/comp/set_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9541_c_param3))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9539_c_expr); /* line 189 "../lib/comp/set_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9540_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9539_c_expr); /* line 190 "../lib/comp/set_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9541_c_param3))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9539_c_expr); } /* line 192 "../lib/comp/set_act.s7i" */ if (((((structType)(o_9541_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 193 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9539_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 194 "../lib/comp/set_act.s7i" */ o_4819_setDiagnosticLine(o_9539_c_expr); /* line 195 "../lib/comp/set_act.s7i" */ if (o_5018_isNormalVariable(rflIdx(*o_9538_params, 1L))) { /* line 196 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9539_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1712] /* "setType old_set=" */); /* line 197 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9539_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9540_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 198 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9539_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 199 "../lib/comp/set_act.s7i" */ o_4819_setDiagnosticLine(o_9539_c_expr); /* line 200 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9539_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9540_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 201 "../lib/comp/set_act.s7i" */ { /* line 201 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 201 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9539_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 201 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 201 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 201 "../lib/comp/set_act.s7i" */ } else { /* line 201 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 201 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 201 "../lib/comp/set_act.s7i" */ } } } else { /* line 203 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9539_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1713] /* "setType *set_ptr=&(" */); /* line 204 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9539_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9540_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 205 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9539_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 206 "../lib/comp/set_act.s7i" */ o_4819_setDiagnosticLine(o_9539_c_expr); /* line 207 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9539_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1714] /* "setType old_set=*set_ptr;\n" */); /* line 208 "../lib/comp/set_act.s7i" */ o_4819_setDiagnosticLine(o_9539_c_expr); /* line 209 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9539_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1715] /* "*set_ptr=" */); } /* line 211 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9539_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9541_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 212 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9539_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 213 "../lib/comp/set_act.s7i" */ o_4819_setDiagnosticLine(o_9539_c_expr); /* line 214 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9539_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1716] /* "setDestr(old_set);\n" */); /* line 215 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9539_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } else { /* line 217 "../lib/comp/set_act.s7i" */ o_4819_setDiagnosticLine(o_9539_c_expr); /* line 218 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9539_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[270] /* "setCpy(&(" */); /* line 219 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9539_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9540_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 220 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9539_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 221 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9539_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9541_c_param3))->stru[5].value.striValue/*->o_4783_expr*/); /* line 222 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9539_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 224 "../lib/comp/set_act.s7i" */ if (o_5049_has_temp_values(o_9541_c_param3)) { /* line 225 "../lib/comp/set_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9540_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9539_c_expr); /* line 226 "../lib/comp/set_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9541_c_param3))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9539_c_expr); /* line 227 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9539_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 175 "../lib/comp/set_act.s7i" */ destr_164(o_9540_c_param1); /* line 175 "../lib/comp/set_act.s7i" */ destr_164(o_9541_c_param3); } /* line 1 "no_file" */ /* 4441 */ /* line 232 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9542_SET_DIFF (const objRefType/*t_19_reference*/ o_9543_function, const listType/*t_20_ref_list*/ *const o_9544_params, structType/*t_164_expr_type*/ *const o_9545_c_expr) { /* line 236 "../lib/comp/set_act.s7i" */ objRefType/*t_19_reference*/ o_9546_evaluatedParam=NULL; { /* line 238 "../lib/comp/set_act.s7i" */ setType/*t_30_bitset*/ tmp_1 = (setType/*t_30_bitset*/)(NULL); /* line 238 "../lib/comp/set_act.s7i" */ if ((o_5154_getConstant(rflIdx(*o_9544_params, 1L), 19L, &(o_9546_evaluatedParam))) && /* line 239 "../lib/comp/set_act.s7i" */ (setIsEmpty((tmp_1=(setType/*t_30_bitset*/)(setValue(o_9546_evaluatedParam)))))) { /* line 240 "../lib/comp/set_act.s7i" */ strAppendTemp(&(((structType)(*o_9545_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6508_bitsetLiteral((setType/*t_30_bitset*/)(set[0]))); } else { /* line 241 "../lib/comp/set_act.s7i" */ setType/*t_30_bitset*/ tmp_1 = (setType/*t_30_bitset*/)(NULL); /* line 241 "../lib/comp/set_act.s7i" */ if ((o_5154_getConstant(rflIdx(*o_9544_params, 3L), 19L, &(o_9546_evaluatedParam))) && /* line 242 "../lib/comp/set_act.s7i" */ (setIsEmpty((tmp_1=(setType/*t_30_bitset*/)(setValue(o_9546_evaluatedParam)))))) { /* line 243 "../lib/comp/set_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9544_params, 1L), o_9545_c_expr); } else { { /* line 245 "../lib/comp/set_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 245 "../lib/comp/set_act.s7i" */ o_4952_prepare_set_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(o_4754_getExprResultType(rflIdx(*o_9544_params, 1L))), &tmp_1), o_9545_c_expr); } /* line 246 "../lib/comp/set_act.s7i" */ strCopy(&(((structType)(*o_9545_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1717] /* "setDiff(" */); /* line 247 "../lib/comp/set_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9544_params, 1L), o_9545_c_expr); /* line 248 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9545_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 249 "../lib/comp/set_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9544_params, 3L), o_9545_c_expr); /* line 250 "../lib/comp/set_act.s7i" */ { /* line 250 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 250 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9545_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 250 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 250 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 250 "../lib/comp/set_act.s7i" */ } else { /* line 250 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 250 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 250 "../lib/comp/set_act.s7i" */ } } } /* line 241 "../lib/comp/set_act.s7i" */ setDestr(tmp_1); } /* line 238 "../lib/comp/set_act.s7i" */ setDestr(tmp_1); } } /* line 1 "no_file" */ /* 4442 */ /* line 255 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9547_process_const_set_elem (const objRefType/*t_19_reference*/ o_9548_param1, const const_setType/*t_30_bitset*/ o_9549_aBitset, structType/*t_164_expr_type*/ *const o_9550_c_expr) { /* line 259 "../lib/comp/set_act.s7i" */ objRefType/*t_19_reference*/ o_9551_evaluatedParam=NULL; /* line 260 "../lib/comp/set_act.s7i" */ striType/*t_15_string*/ o_9552_integer_name; /* line 261 "../lib/comp/set_act.s7i" */ intType/*t_14_integer*/ o_9553_number=0; /* line 262 "../lib/comp/set_act.s7i" */ boolType/*t_13_boolean*/ o_9554_first_element=1/*TRUE*/; /* line 263 "../lib/comp/set_act.s7i" */ boolType/*t_13_boolean*/ o_9555_isElement=0/*FALSE*/; /* line 260 "../lib/comp/set_act.s7i" */ o_9552_integer_name=strEmpty(); /* "" */ /* line 265 "../lib/comp/set_act.s7i" */ if (o_5154_getConstant(o_9548_param1, 9L, &(o_9551_evaluatedParam))) { /* line 266 "../lib/comp/set_act.s7i" */ ++(o_5107_countOptimizations); { /* line 267 "../lib/comp/set_act.s7i" */ intType tmp_1; /* line 267 "../lib/comp/set_act.s7i" */ intType tmp_2; /* line 267 "../lib/comp/set_act.s7i" */ o_9555_isElement=(tmp_1=intValue(o_9551_evaluatedParam),tmp_2=bitset_pos(tmp_1),tmp_2>=(o_9549_aBitset)->min_position&&tmp_2<=(o_9549_aBitset)->max_position&&(o_9549_aBitset)->bitset[(uintType)(tmp_2-(o_9549_aBitset)->min_position)] >> (tmp_1 & bitset_mask)&1); } { /* line 268 "../lib/comp/set_act.s7i" */ union { /* line 268 "../lib/comp/set_act.s7i" */ struct striStruct striBuf; /* line 268 "../lib/comp/set_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 268 "../lib/comp/set_act.s7i" */ } buffer_1; /* line 268 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((intType)(o_9555_isElement), &buffer_1.striBuf)); } /* line 269 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[190] /* "/*" */); /* line 270 "../lib/comp/set_act.s7i" */ strAppendTemp(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_43_str(o_9555_isElement)); /* line 271 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[123] /* "*\/" */); } else /* line 272 "../lib/comp/set_act.s7i" */ if (setIsEmpty(o_9549_aBitset)) { /* line 273 "../lib/comp/set_act.s7i" */ ++(o_5107_countOptimizations); /* line 274 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1718] /* "0/*FALSE*\/" */); } else /* line 275 "../lib/comp/set_act.s7i" */ if ((setCard(o_9549_aBitset)) == (1L)) { /* line 276 "../lib/comp/set_act.s7i" */ ++(o_5107_countOptimizations); /* line 277 "../lib/comp/set_act.s7i" */ { /* line 277 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 277 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 277 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 277 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 277 "../lib/comp/set_act.s7i" */ } else { /* line 277 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 277 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 277 "../lib/comp/set_act.s7i" */ } } /* line 278 "../lib/comp/set_act.s7i" */ o_4941_process_expr(o_9548_param1, o_9550_c_expr); /* line 279 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1719] /* ") == " */); /* line 280 "../lib/comp/set_act.s7i" */ strAppendTemp(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(setMin(o_9549_aBitset))); } else /* line 281 "../lib/comp/set_act.s7i" */ if (((setCard(o_9549_aBitset)) >= (3L)) && /* line 281 "../lib/comp/set_act.s7i" */ (((setMax(o_9549_aBitset)) - (setMin(o_9549_aBitset))) == ((setCard(o_9549_aBitset))-1))) { /* line 282 "../lib/comp/set_act.s7i" */ ++(o_5107_countOptimizations); /* line 283 "../lib/comp/set_act.s7i" */ { /* line 283 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 283 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 283 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 283 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 283 "../lib/comp/set_act.s7i" */ } else { /* line 283 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 283 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 283 "../lib/comp/set_act.s7i" */ } } { /* line 284 "../lib/comp/set_act.s7i" */ striType old_stri=o_9552_integer_name; /* line 284 "../lib/comp/set_act.s7i" */ o_9552_integer_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_9548_param1, o_9550_c_expr); /* line 284 "../lib/comp/set_act.s7i" */ strDestr(old_stri); } /* line 285 "../lib/comp/set_act.s7i" */ if ((((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/) && /* line 285 "../lib/comp/set_act.s7i" */ ((setMin(o_9549_aBitset)) == (0L))) { /* line 286 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1720] /* "(uintType)(" */); /* line 287 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9552_integer_name); /* line 288 "../lib/comp/set_act.s7i" */ { /* line 288 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 288 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 288 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 288 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 288 "../lib/comp/set_act.s7i" */ } else { /* line 288 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 288 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 288 "../lib/comp/set_act.s7i" */ } } } else { /* line 290 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9552_integer_name); /* line 291 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[414] /* ">=" */); /* line 292 "../lib/comp/set_act.s7i" */ strAppendTemp(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(setMin(o_9549_aBitset))); /* line 293 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1721] /* " && " */); /* line 294 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9552_integer_name); } /* line 296 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1407] /* "<=" */); /* line 297 "../lib/comp/set_act.s7i" */ strAppendTemp(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(setMax(o_9549_aBitset))); /* line 298 "../lib/comp/set_act.s7i" */ { /* line 298 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 298 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 298 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 298 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 298 "../lib/comp/set_act.s7i" */ } else { /* line 298 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 298 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 298 "../lib/comp/set_act.s7i" */ } } } else /* line 299 "../lib/comp/set_act.s7i" */ if (((setCard(o_9549_aBitset)) == (2L)) || /* line 300 "../lib/comp/set_act.s7i" */ (((setCard(o_9549_aBitset)) == (3L)) && /* line 300 "../lib/comp/set_act.s7i" */ (((setMin(o_9549_aBitset)) < (0L)) || /* line 300 "../lib/comp/set_act.s7i" */ ((setMax(o_9549_aBitset)) > (31L))))) { /* line 301 "../lib/comp/set_act.s7i" */ ++(o_5107_countOptimizations); /* line 302 "../lib/comp/set_act.s7i" */ { /* line 302 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 302 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 302 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 302 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 302 "../lib/comp/set_act.s7i" */ } else { /* line 302 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 302 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 302 "../lib/comp/set_act.s7i" */ } } { /* line 303 "../lib/comp/set_act.s7i" */ striType old_stri=o_9552_integer_name; /* line 303 "../lib/comp/set_act.s7i" */ o_9552_integer_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_9548_param1, o_9550_c_expr); /* line 303 "../lib/comp/set_act.s7i" */ strDestr(old_stri); } /* inline proc o_387_for */ { /* inline params */ /* line 304 "../lib/comp/set_act.s7i" */ intType/*t_14_integer*/ *const o_394_forVar=&(o_9553_number); /* line 304 "../lib/comp/set_act.s7i" */ const const_setType/*t_30_bitset*/ o_395_aSet=o_9549_aBitset; /* line 304 "../lib/comp/set_act.s7i" */ /* push proc param o_396_statements */ /* line 304 "../lib/comp/set_act.s7i" */ /* inline local_vars */ /* line 304 "../lib/comp/set_act.s7i" */ /* line 274 "../lib/bitset.s7i" */ /* line 304 "../lib/comp/set_act.s7i" */ intType/*t_14_integer*/ o_397_upperBound=0; /* line 304 "../lib/comp/set_act.s7i" */ /* line 275 "../lib/bitset.s7i" */ /* line 304 "../lib/comp/set_act.s7i" */ boolType/*t_13_boolean*/ o_398_leave=0/*FALSE*/; /* inline body */ /* line 277 "../lib/bitset.s7i" */ if (!setIsEmpty(o_395_aSet)) { /* line 278 "../lib/bitset.s7i" */ *o_394_forVar=setMin(o_395_aSet); /* line 279 "../lib/bitset.s7i" */ o_397_upperBound=setMax(o_395_aSet); /* line 280 "../lib/bitset.s7i" */ do { /* closure o_396_statements*/ { /* line 305 "../lib/comp/set_act.s7i" */ if (o_9554_first_element) { /* line 306 "../lib/comp/set_act.s7i" */ o_9554_first_element=o_25_FALSE; } else { /* line 308 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1192] /* "||" */); } /* line 310 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9552_integer_name); /* line 311 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1194] /* "==" */); /* line 312 "../lib/comp/set_act.s7i" */ strAppendTemp(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_9553_number)); } /* closure o_396_statements*/ /* line 282 "../lib/bitset.s7i" */ if ((*o_394_forVar) == (o_397_upperBound)) { /* line 283 "../lib/bitset.s7i" */ o_398_leave=o_26_TRUE; } else { /* line 285 "../lib/bitset.s7i" */ *o_394_forVar=setNext(o_395_aSet, *o_394_forVar); } /* line 275 "../lib/bitset.s7i" */ } while (!(o_398_leave)); } /* pop proc param o_396_statements */ } /* inline proc o_387_for */ /* line 314 "../lib/comp/set_act.s7i" */ { /* line 314 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 314 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 314 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 314 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 314 "../lib/comp/set_act.s7i" */ } else { /* line 314 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 314 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 314 "../lib/comp/set_act.s7i" */ } } } else /* line 315 "../lib/comp/set_act.s7i" */ if (((setMin(o_9549_aBitset)) >= (0L)) && /* line 315 "../lib/comp/set_act.s7i" */ ((setMax(o_9549_aBitset)) <= (31L))) { /* line 316 "../lib/comp/set_act.s7i" */ ++(o_5107_countOptimizations); /* line 317 "../lib/comp/set_act.s7i" */ { /* line 317 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 317 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 317 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 317 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 317 "../lib/comp/set_act.s7i" */ } else { /* line 317 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 317 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 317 "../lib/comp/set_act.s7i" */ } } { /* line 318 "../lib/comp/set_act.s7i" */ striType old_stri=o_9552_integer_name; /* line 318 "../lib/comp/set_act.s7i" */ o_9552_integer_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_9548_param1, o_9550_c_expr); /* line 318 "../lib/comp/set_act.s7i" */ strDestr(old_stri); } /* line 319 "../lib/comp/set_act.s7i" */ if (((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/) { /* line 320 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1720] /* "(uintType)(" */); /* line 321 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9552_integer_name); /* line 322 "../lib/comp/set_act.s7i" */ { /* line 322 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 322 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 322 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 322 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 322 "../lib/comp/set_act.s7i" */ } else { /* line 322 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 322 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 322 "../lib/comp/set_act.s7i" */ } } } else { /* line 324 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9552_integer_name); /* line 325 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1205] /* ">=0&&" */); /* line 326 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9552_integer_name); } /* line 328 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1722] /* "<=31&&" */); /* line 329 "../lib/comp/set_act.s7i" */ strAppendTemp(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9509_bitsetElemAsHex(o_9549_aBitset, 0L)); /* line 330 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1247] /* ">>" */); /* line 331 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9552_integer_name); /* line 332 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1723] /* "&1)" */); } else /* line 333 "../lib/comp/set_act.s7i" */ if (((setMax(o_9549_aBitset)) - (setMin(o_9549_aBitset))) <= (31L)) { /* line 334 "../lib/comp/set_act.s7i" */ ++(o_5107_countOptimizations); /* line 335 "../lib/comp/set_act.s7i" */ { /* line 335 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 335 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 335 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 335 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 335 "../lib/comp/set_act.s7i" */ } else { /* line 335 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 335 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 335 "../lib/comp/set_act.s7i" */ } } { /* line 336 "../lib/comp/set_act.s7i" */ striType old_stri=o_9552_integer_name; /* line 336 "../lib/comp/set_act.s7i" */ o_9552_integer_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_9548_param1, o_9550_c_expr); /* line 336 "../lib/comp/set_act.s7i" */ strDestr(old_stri); } /* line 337 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9552_integer_name); /* line 338 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[414] /* ">=" */); /* line 339 "../lib/comp/set_act.s7i" */ strAppendTemp(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(setMin(o_9549_aBitset))); /* line 340 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1229] /* "&&" */); /* line 341 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9552_integer_name); /* line 342 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1407] /* "<=" */); /* line 343 "../lib/comp/set_act.s7i" */ strAppendTemp(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(setMax(o_9549_aBitset))); /* line 344 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1229] /* "&&" */); /* line 345 "../lib/comp/set_act.s7i" */ strAppendTemp(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9509_bitsetElemAsHex(o_9549_aBitset, setMin(o_9549_aBitset))); /* line 346 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1247] /* ">>" */); /* line 347 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9552_integer_name); /* line 348 "../lib/comp/set_act.s7i" */ { /* line 348 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 348 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 348 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 348 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) '-'); /* line 348 "../lib/comp/set_act.s7i" */ } else { /* line 348 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '-'; /* line 348 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 348 "../lib/comp/set_act.s7i" */ } } /* line 349 "../lib/comp/set_act.s7i" */ strAppendTemp(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(setMin(o_9549_aBitset))); /* line 350 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1723] /* "&1)" */); } else /* line 351 "../lib/comp/set_act.s7i" */ if (o_3458_inlineFunctions) { /* line 352 "../lib/comp/set_act.s7i" */ { /* line 352 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 352 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 352 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 352 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 352 "../lib/comp/set_act.s7i" */ } else { /* line 352 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 352 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 352 "../lib/comp/set_act.s7i" */ } } { /* line 353 "../lib/comp/set_act.s7i" */ striType old_stri=o_9552_integer_name; /* line 353 "../lib/comp/set_act.s7i" */ o_9552_integer_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_9548_param1, o_9550_c_expr); /* line 353 "../lib/comp/set_act.s7i" */ strDestr(old_stri); } /* line 354 "../lib/comp/set_act.s7i" */ if ((((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/) && /* line 354 "../lib/comp/set_act.s7i" */ ((o_9505_bitset_pos(setMin(o_9549_aBitset))) == (0L))) { /* line 355 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1720] /* "(uintType)(" */); /* line 356 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9552_integer_name); /* line 357 "../lib/comp/set_act.s7i" */ { /* line 357 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 357 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 357 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 357 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 357 "../lib/comp/set_act.s7i" */ } else { /* line 357 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 357 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 357 "../lib/comp/set_act.s7i" */ } } } else { /* line 359 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9552_integer_name); /* line 360 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[414] /* ">=" */); /* line 361 "../lib/comp/set_act.s7i" */ strAppendTemp(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(setMin(o_9549_aBitset))); /* line 362 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1229] /* "&&" */); /* line 363 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9552_integer_name); } /* line 365 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1407] /* "<=" */); /* line 366 "../lib/comp/set_act.s7i" */ strAppendTemp(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(setMax(o_9549_aBitset))); /* line 367 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1229] /* "&&" */); /* line 368 "../lib/comp/set_act.s7i" */ strAppendTemp(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6508_bitsetLiteral(o_9549_aBitset)); /* line 369 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1724] /* "->bitset[(uintType)(bitset_pos(" */); /* line 370 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9552_integer_name); /* line 371 "../lib/comp/set_act.s7i" */ { /* line 371 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 371 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 371 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 371 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 371 "../lib/comp/set_act.s7i" */ } else { /* line 371 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 371 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 371 "../lib/comp/set_act.s7i" */ } } /* line 372 "../lib/comp/set_act.s7i" */ if ((o_9505_bitset_pos(setMin(o_9549_aBitset))) != (0L)) { /* line 373 "../lib/comp/set_act.s7i" */ { /* line 373 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 373 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 373 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 373 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) '-'); /* line 373 "../lib/comp/set_act.s7i" */ } else { /* line 373 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '-'; /* line 373 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 373 "../lib/comp/set_act.s7i" */ } } /* line 374 "../lib/comp/set_act.s7i" */ strAppendTemp(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(o_9505_bitset_pos(setMin(o_9549_aBitset)))); } /* line 376 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1725] /* ")] >> (" */); /* line 377 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9552_integer_name); /* line 378 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1726] /* " & bitset_mask)&1)" */); } else { /* line 380 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1727] /* "setElem(" */); /* line 381 "../lib/comp/set_act.s7i" */ o_4941_process_expr(o_9548_param1, o_9550_c_expr); /* line 382 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 383 "../lib/comp/set_act.s7i" */ strAppendTemp(&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6508_bitsetLiteral(o_9549_aBitset)); /* line 384 "../lib/comp/set_act.s7i" */ { /* line 384 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 384 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9550_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 384 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 384 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 384 "../lib/comp/set_act.s7i" */ } else { /* line 384 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 384 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 384 "../lib/comp/set_act.s7i" */ } } } /* line 255 "../lib/comp/set_act.s7i" */ strDestr(o_9552_integer_name); } /* line 1 "no_file" */ /* 4443 */ /* line 389 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9556_process_set_elem (const objRefType/*t_19_reference*/ o_9557_param1, const objRefType/*t_19_reference*/ o_9558_param3, structType/*t_164_expr_type*/ *const o_9559_c_expr) { /* line 393 "../lib/comp/set_act.s7i" */ objRefType/*t_19_reference*/ o_9560_evaluatedParam=NULL; /* line 394 "../lib/comp/set_act.s7i" */ striType/*t_15_string*/ o_9561_integer_name; /* line 395 "../lib/comp/set_act.s7i" */ striType/*t_15_string*/ o_9562_position_name; /* line 396 "../lib/comp/set_act.s7i" */ striType/*t_15_string*/ o_9563_set_name; /* line 394 "../lib/comp/set_act.s7i" */ o_9561_integer_name=strEmpty(); /* "" */ /* line 395 "../lib/comp/set_act.s7i" */ o_9562_position_name=strEmpty(); /* "" */ /* line 396 "../lib/comp/set_act.s7i" */ o_9563_set_name=strEmpty(); /* "" */ /* line 398 "../lib/comp/set_act.s7i" */ if (o_5154_getConstant(o_9558_param3, 19L, &(o_9560_evaluatedParam))) { { /* line 399 "../lib/comp/set_act.s7i" */ setType/*t_30_bitset*/ tmp_1 = (setType/*t_30_bitset*/)(NULL); /* line 399 "../lib/comp/set_act.s7i" */ o_9547_process_const_set_elem(o_9557_param1, (tmp_1=(setType/*t_30_bitset*/)(setValue(o_9560_evaluatedParam))), o_9559_c_expr); /* line 399 "../lib/comp/set_act.s7i" */ setDestr(tmp_1); } } else /* line 400 "../lib/comp/set_act.s7i" */ if (o_3458_inlineFunctions) { /* line 401 "../lib/comp/set_act.s7i" */ { /* line 401 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 401 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9559_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 401 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 401 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 401 "../lib/comp/set_act.s7i" */ } else { /* line 401 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 401 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 401 "../lib/comp/set_act.s7i" */ } } { /* line 402 "../lib/comp/set_act.s7i" */ striType old_stri=o_9561_integer_name; /* line 402 "../lib/comp/set_act.s7i" */ o_9561_integer_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[282] /* "tmp_" */, o_9557_param1, o_9559_c_expr); /* line 402 "../lib/comp/set_act.s7i" */ strDestr(old_stri); } { /* line 403 "../lib/comp/set_act.s7i" */ striType old_stri=o_9563_set_name; /* line 403 "../lib/comp/set_act.s7i" */ o_9563_set_name=o_5031_getParameterAsVariable(&str[1728] /* "const_setType" */, &str[282] /* "tmp_" */, o_9558_param3, o_9559_c_expr); /* line 403 "../lib/comp/set_act.s7i" */ strDestr(old_stri); } /* line 404 "../lib/comp/set_act.s7i" */ ++(((structType)(*o_9559_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 405 "../lib/comp/set_act.s7i" */ union { /* line 405 "../lib/comp/set_act.s7i" */ struct striStruct striBuf; /* line 405 "../lib/comp/set_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 405 "../lib/comp/set_act.s7i" */ } buffer_2; /* line 405 "../lib/comp/set_act.s7i" */ striType old_stri=o_9562_position_name; /* line 405 "../lib/comp/set_act.s7i" */ o_9562_position_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_9559_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 405 "../lib/comp/set_act.s7i" */ strDestr(old_stri); } /* line 406 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9559_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[410] /* "intType " */); /* line 407 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9559_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_9562_position_name); /* line 408 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9559_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 409 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9559_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9562_position_name); /* line 410 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9559_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1729] /* "=bitset_pos(" */); /* line 411 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9559_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9561_integer_name); /* line 412 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9559_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[308] /* ")," */); /* line 413 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9559_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9562_position_name); /* line 414 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9559_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[414] /* ">=" */); /* line 415 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9559_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9563_set_name); /* line 416 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9559_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1730] /* "->min_position&&" */); /* line 417 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9559_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9562_position_name); /* line 418 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9559_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1407] /* "<=" */); /* line 419 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9559_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9563_set_name); /* line 420 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9559_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1731] /* "->max_position&&" */); /* line 421 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9559_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9563_set_name); /* line 422 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9559_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1732] /* "->bitset[(uintType)(" */); /* line 423 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9559_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9562_position_name); /* line 424 "../lib/comp/set_act.s7i" */ { /* line 424 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 424 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9559_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 424 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 424 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) '-'); /* line 424 "../lib/comp/set_act.s7i" */ } else { /* line 424 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '-'; /* line 424 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 424 "../lib/comp/set_act.s7i" */ } } /* line 425 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9559_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9563_set_name); /* line 426 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9559_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1733] /* "->min_position)] >> (" */); /* line 427 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9559_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9561_integer_name); /* line 428 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9559_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1726] /* " & bitset_mask)&1)" */); } else { /* line 430 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9559_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1727] /* "setElem(" */); /* line 431 "../lib/comp/set_act.s7i" */ o_4941_process_expr(o_9557_param1, o_9559_c_expr); /* line 432 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9559_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 433 "../lib/comp/set_act.s7i" */ o_4970_getAnyParamToExpr(o_9558_param3, o_9559_c_expr); /* line 434 "../lib/comp/set_act.s7i" */ { /* line 434 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 434 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9559_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 434 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 434 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 434 "../lib/comp/set_act.s7i" */ } else { /* line 434 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 434 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 434 "../lib/comp/set_act.s7i" */ } } } /* line 389 "../lib/comp/set_act.s7i" */ strDestr(o_9561_integer_name); /* line 389 "../lib/comp/set_act.s7i" */ strDestr(o_9562_position_name); /* line 389 "../lib/comp/set_act.s7i" */ strDestr(o_9563_set_name); } /* line 1 "no_file" */ /* 4444 */ /* line 439 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9564_SET_ELEM (const objRefType/*t_19_reference*/ o_9565_function, const listType/*t_20_ref_list*/ *const o_9566_params, structType/*t_164_expr_type*/ *const o_9567_c_expr) { /* line 443 "../lib/comp/set_act.s7i" */ o_9556_process_set_elem(rflIdx(*o_9566_params, 1L), rflIdx(*o_9566_params, 3L), o_9567_c_expr); } /* line 1 "no_file" */ /* 4445 */ /* line 447 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9568_process_const_set_eq (const objRefType/*t_19_reference*/ o_9569_param1, const const_setType/*t_30_bitset*/ o_9570_aBitset, structType/*t_164_expr_type*/ *const o_9571_c_expr) { /* line 451 "../lib/comp/set_act.s7i" */ objRefType/*t_19_reference*/ o_9572_evaluatedParam=NULL; /* line 452 "../lib/comp/set_act.s7i" */ boolType/*t_13_boolean*/ o_9573_isEqual=0/*FALSE*/; /* line 454 "../lib/comp/set_act.s7i" */ if (o_5154_getConstant(o_9569_param1, 19L, &(o_9572_evaluatedParam))) { /* line 455 "../lib/comp/set_act.s7i" */ ++(o_5107_countOptimizations); { /* line 456 "../lib/comp/set_act.s7i" */ setType/*t_30_bitset*/ tmp_1 = (setType/*t_30_bitset*/)(NULL); /* line 456 "../lib/comp/set_act.s7i" */ o_9573_isEqual=setEq((tmp_1=(setType/*t_30_bitset*/)(setValue(o_9572_evaluatedParam))), o_9570_aBitset); /* line 456 "../lib/comp/set_act.s7i" */ setDestr(tmp_1); } { /* line 457 "../lib/comp/set_act.s7i" */ union { /* line 457 "../lib/comp/set_act.s7i" */ struct striStruct striBuf; /* line 457 "../lib/comp/set_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 457 "../lib/comp/set_act.s7i" */ } buffer_1; /* line 457 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9571_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((intType)(o_9573_isEqual), &buffer_1.striBuf)); } /* line 458 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9571_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[190] /* "/*" */); /* line 459 "../lib/comp/set_act.s7i" */ strAppendTemp(&(((structType)(*o_9571_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_43_str(o_9573_isEqual)); /* line 460 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9571_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[123] /* "*\/" */); } else /* line 461 "../lib/comp/set_act.s7i" */ if (setIsEmpty(o_9570_aBitset)) { /* line 462 "../lib/comp/set_act.s7i" */ ++(o_5107_countOptimizations); /* line 463 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9571_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1734] /* "setIsEmpty(" */); /* line 464 "../lib/comp/set_act.s7i" */ o_4970_getAnyParamToExpr(o_9569_param1, o_9571_c_expr); /* line 465 "../lib/comp/set_act.s7i" */ { /* line 465 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 465 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9571_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 465 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 465 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 465 "../lib/comp/set_act.s7i" */ } else { /* line 465 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 465 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 465 "../lib/comp/set_act.s7i" */ } } } else { /* line 467 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9571_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1735] /* "setEq(" */); /* line 468 "../lib/comp/set_act.s7i" */ o_4970_getAnyParamToExpr(o_9569_param1, o_9571_c_expr); /* line 469 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9571_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 470 "../lib/comp/set_act.s7i" */ strAppendTemp(&(((structType)(*o_9571_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6508_bitsetLiteral(o_9570_aBitset)); /* line 471 "../lib/comp/set_act.s7i" */ { /* line 471 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 471 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9571_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 471 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 471 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 471 "../lib/comp/set_act.s7i" */ } else { /* line 471 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 471 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 471 "../lib/comp/set_act.s7i" */ } } } } /* line 1 "no_file" */ /* 4446 */ /* line 476 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9574_SET_EQ (const objRefType/*t_19_reference*/ o_9575_function, const listType/*t_20_ref_list*/ *const o_9576_params, structType/*t_164_expr_type*/ *const o_9577_c_expr) { /* line 480 "../lib/comp/set_act.s7i" */ objRefType/*t_19_reference*/ o_9578_evaluatedParam=NULL; /* line 482 "../lib/comp/set_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_9576_params, 1L), 19L, &(o_9578_evaluatedParam))) { { /* line 483 "../lib/comp/set_act.s7i" */ setType/*t_30_bitset*/ tmp_1 = (setType/*t_30_bitset*/)(NULL); /* line 483 "../lib/comp/set_act.s7i" */ o_9568_process_const_set_eq(rflIdx(*o_9576_params, 3L), (tmp_1=(setType/*t_30_bitset*/)(setValue(o_9578_evaluatedParam))), o_9577_c_expr); /* line 483 "../lib/comp/set_act.s7i" */ setDestr(tmp_1); } } else /* line 484 "../lib/comp/set_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_9576_params, 3L), 19L, &(o_9578_evaluatedParam))) { { /* line 485 "../lib/comp/set_act.s7i" */ setType/*t_30_bitset*/ tmp_1 = (setType/*t_30_bitset*/)(NULL); /* line 485 "../lib/comp/set_act.s7i" */ o_9568_process_const_set_eq(rflIdx(*o_9576_params, 1L), (tmp_1=(setType/*t_30_bitset*/)(setValue(o_9578_evaluatedParam))), o_9577_c_expr); /* line 485 "../lib/comp/set_act.s7i" */ setDestr(tmp_1); } } else { /* line 487 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9577_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1735] /* "setEq(" */); /* line 488 "../lib/comp/set_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9576_params, 1L), o_9577_c_expr); /* line 489 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9577_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 490 "../lib/comp/set_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9576_params, 3L), o_9577_c_expr); /* line 491 "../lib/comp/set_act.s7i" */ { /* line 491 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 491 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9577_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 491 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 491 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 491 "../lib/comp/set_act.s7i" */ } else { /* line 491 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 491 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 491 "../lib/comp/set_act.s7i" */ } } } } /* line 1 "no_file" */ /* 4447 */ /* line 496 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9579_process_inline_set_excl (const listType/*t_20_ref_list*/ *const o_9580_params, structType/*t_164_expr_type*/ *const o_9581_c_expr) { /* line 500 "../lib/comp/set_act.s7i" */ structType/*t_164_expr_type*/ o_9582_statement; /* line 501 "../lib/comp/set_act.s7i" */ striType/*t_15_string*/ o_9583_integer_name; /* line 502 "../lib/comp/set_act.s7i" */ striType/*t_15_string*/ o_9584_position_name; /* line 503 "../lib/comp/set_act.s7i" */ striType/*t_15_string*/ o_9585_set_name; /* line 500 "../lib/comp/set_act.s7i" */ o_9582_statement=create_164(sct[298]); /* line 501 "../lib/comp/set_act.s7i" */ o_9583_integer_name=strEmpty(); /* "" */ /* line 502 "../lib/comp/set_act.s7i" */ o_9584_position_name=strEmpty(); /* "" */ /* line 503 "../lib/comp/set_act.s7i" */ o_9585_set_name=strEmpty(); /* "" */ /* line 505 "../lib/comp/set_act.s7i" */ if (o_5018_isNormalVariable(rflIdx(*o_9580_params, 1L))) { { /* line 506 "../lib/comp/set_act.s7i" */ striType old_stri=o_9585_set_name; /* line 506 "../lib/comp/set_act.s7i" */ o_9585_set_name=o_5020_normalVariable(rflIdx(*o_9580_params, 1L), &(o_9582_statement)); /* line 506 "../lib/comp/set_act.s7i" */ strDestr(old_stri); } } else { /* line 508 "../lib/comp/set_act.s7i" */ ++(((structType)(o_9582_statement))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 509 "../lib/comp/set_act.s7i" */ union { /* line 509 "../lib/comp/set_act.s7i" */ struct striStruct striBuf; /* line 509 "../lib/comp/set_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 509 "../lib/comp/set_act.s7i" */ } buffer_2; /* line 509 "../lib/comp/set_act.s7i" */ striType old_stri=o_9585_set_name; /* line 509 "../lib/comp/set_act.s7i" */ o_9585_set_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(o_9582_statement))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 509 "../lib/comp/set_act.s7i" */ strDestr(old_stri); } /* line 510 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[1736] /* "setType " */); /* line 511 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_9585_set_name); /* line 512 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 513 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_9585_set_name); /* line 514 "../lib/comp/set_act.s7i" */ { /* line 514 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 514 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 514 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 514 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 514 "../lib/comp/set_act.s7i" */ } else { /* line 514 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 514 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 514 "../lib/comp/set_act.s7i" */ } } /* line 515 "../lib/comp/set_act.s7i" */ o_4941_process_expr(rflIdx(*o_9580_params, 1L), &(o_9582_statement)); /* line 516 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); } /* line 518 "../lib/comp/set_act.s7i" */ if (o_5018_isNormalVariable(rflIdx(*o_9580_params, 2L))) { { /* line 519 "../lib/comp/set_act.s7i" */ striType old_stri=o_9583_integer_name; /* line 519 "../lib/comp/set_act.s7i" */ o_9583_integer_name=o_5020_normalVariable(rflIdx(*o_9580_params, 2L), &(o_9582_statement)); /* line 519 "../lib/comp/set_act.s7i" */ strDestr(old_stri); } } else { /* line 521 "../lib/comp/set_act.s7i" */ ++(((structType)(o_9582_statement))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 522 "../lib/comp/set_act.s7i" */ union { /* line 522 "../lib/comp/set_act.s7i" */ struct striStruct striBuf; /* line 522 "../lib/comp/set_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 522 "../lib/comp/set_act.s7i" */ } buffer_2; /* line 522 "../lib/comp/set_act.s7i" */ striType old_stri=o_9583_integer_name; /* line 522 "../lib/comp/set_act.s7i" */ o_9583_integer_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(o_9582_statement))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 522 "../lib/comp/set_act.s7i" */ strDestr(old_stri); } /* line 523 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[410] /* "intType " */); /* line 524 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_9583_integer_name); /* line 525 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 526 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_9583_integer_name); /* line 527 "../lib/comp/set_act.s7i" */ { /* line 527 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 527 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 527 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 527 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 527 "../lib/comp/set_act.s7i" */ } else { /* line 527 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 527 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 527 "../lib/comp/set_act.s7i" */ } } /* line 528 "../lib/comp/set_act.s7i" */ o_4941_process_expr(rflIdx(*o_9580_params, 2L), &(o_9582_statement)); /* line 529 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); } /* line 531 "../lib/comp/set_act.s7i" */ ++(((structType)(o_9582_statement))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 532 "../lib/comp/set_act.s7i" */ union { /* line 532 "../lib/comp/set_act.s7i" */ struct striStruct striBuf; /* line 532 "../lib/comp/set_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 532 "../lib/comp/set_act.s7i" */ } buffer_2; /* line 532 "../lib/comp/set_act.s7i" */ striType old_stri=o_9584_position_name; /* line 532 "../lib/comp/set_act.s7i" */ o_9584_position_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(o_9582_statement))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 532 "../lib/comp/set_act.s7i" */ strDestr(old_stri); } /* line 533 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[410] /* "intType " */); /* line 534 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_9584_position_name); /* line 535 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 536 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_9584_position_name); /* line 537 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1729] /* "=bitset_pos(" */); /* line 538 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_9583_integer_name); /* line 539 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 540 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[401] /* "if (" */); /* line 541 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_9584_position_name); /* line 542 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[414] /* ">=" */); /* line 543 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_9585_set_name); /* line 544 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1730] /* "->min_position&&" */); /* line 545 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_9584_position_name); /* line 546 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1407] /* "<=" */); /* line 547 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_9585_set_name); /* line 548 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1737] /* "->max_position) {\n" */); /* line 549 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_9585_set_name); /* line 550 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1732] /* "->bitset[(uintType)(" */); /* line 551 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_9584_position_name); /* line 552 "../lib/comp/set_act.s7i" */ { /* line 552 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 552 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 552 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 552 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) '-'); /* line 552 "../lib/comp/set_act.s7i" */ } else { /* line 552 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '-'; /* line 552 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 552 "../lib/comp/set_act.s7i" */ } } /* line 553 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_9585_set_name); /* line 554 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1738] /* "->min_position)] &= ~((bitSetType) 1 << (((unsigned int) " */); /* line 555 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_9583_integer_name); /* line 556 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1739] /* ") & bitset_mask));\n" */); /* line 557 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9582_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 558 "../lib/comp/set_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_9582_statement, o_9581_c_expr); /* line 496 "../lib/comp/set_act.s7i" */ destr_164(o_9582_statement); /* line 496 "../lib/comp/set_act.s7i" */ strDestr(o_9583_integer_name); /* line 496 "../lib/comp/set_act.s7i" */ strDestr(o_9584_position_name); /* line 496 "../lib/comp/set_act.s7i" */ strDestr(o_9585_set_name); } /* line 1 "no_file" */ /* 4448 */ /* line 562 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9586_SET_EXCL (const objRefType/*t_19_reference*/ o_9587_function, const listType/*t_20_ref_list*/ *const o_9588_params, structType/*t_164_expr_type*/ *const o_9589_c_expr) { /* line 566 "../lib/comp/set_act.s7i" */ structType/*t_164_expr_type*/ o_9590_statement; /* line 566 "../lib/comp/set_act.s7i" */ o_9590_statement=create_164(sct[299]); /* line 568 "../lib/comp/set_act.s7i" */ if (o_3458_inlineFunctions) { /* line 569 "../lib/comp/set_act.s7i" */ o_9579_process_inline_set_excl(o_9588_params, o_9589_c_expr); } else { /* line 571 "../lib/comp/set_act.s7i" */ strCopy(&(((structType)(o_9590_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1740] /* "setExcl(&(" */); /* line 572 "../lib/comp/set_act.s7i" */ o_4941_process_expr(rflIdx(*o_9588_params, 1L), &(o_9590_statement)); /* line 573 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9590_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 574 "../lib/comp/set_act.s7i" */ o_4941_process_expr(rflIdx(*o_9588_params, 2L), &(o_9590_statement)); /* line 575 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9590_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 576 "../lib/comp/set_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_9590_statement, o_9589_c_expr); } /* line 562 "../lib/comp/set_act.s7i" */ destr_164(o_9590_statement); } /* line 1 "no_file" */ /* 4449 */ /* line 581 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9591_SET_GE (const objRefType/*t_19_reference*/ o_9592_function, const listType/*t_20_ref_list*/ *const o_9593_params, structType/*t_164_expr_type*/ *const o_9594_c_expr) { /* line 585 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9594_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1741] /* "setIsSubset(" */); /* line 586 "../lib/comp/set_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9593_params, 3L), o_9594_c_expr); /* line 587 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9594_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 588 "../lib/comp/set_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9593_params, 1L), o_9594_c_expr); /* line 589 "../lib/comp/set_act.s7i" */ { /* line 589 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 589 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9594_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 589 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 589 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 589 "../lib/comp/set_act.s7i" */ } else { /* line 589 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 589 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 589 "../lib/comp/set_act.s7i" */ } } } /* line 1 "no_file" */ /* 4450 */ /* line 593 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9595_SET_GT (const objRefType/*t_19_reference*/ o_9596_function, const listType/*t_20_ref_list*/ *const o_9597_params, structType/*t_164_expr_type*/ *const o_9598_c_expr) { /* line 597 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9598_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1742] /* "setIsProperSubset(" */); /* line 598 "../lib/comp/set_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9597_params, 3L), o_9598_c_expr); /* line 599 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9598_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 600 "../lib/comp/set_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9597_params, 1L), o_9598_c_expr); /* line 601 "../lib/comp/set_act.s7i" */ { /* line 601 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 601 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9598_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 601 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 601 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 601 "../lib/comp/set_act.s7i" */ } else { /* line 601 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 601 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 601 "../lib/comp/set_act.s7i" */ } } } /* line 1 "no_file" */ /* 4451 */ /* line 605 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9599_SET_HASHCODE (const objRefType/*t_19_reference*/ o_9600_function, const listType/*t_20_ref_list*/ *const o_9601_params, structType/*t_164_expr_type*/ *const o_9602_c_expr) { /* line 609 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9602_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1743] /* "setHashCode(" */); /* line 610 "../lib/comp/set_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9601_params, 1L), o_9602_c_expr); /* line 611 "../lib/comp/set_act.s7i" */ { /* line 611 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 611 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9602_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 611 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 611 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 611 "../lib/comp/set_act.s7i" */ } else { /* line 611 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 611 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 611 "../lib/comp/set_act.s7i" */ } } } /* line 1 "no_file" */ /* 4452 */ /* line 615 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9603_SET_ICONV (const objRefType/*t_19_reference*/ o_9604_function, const listType/*t_20_ref_list*/ *const o_9605_params, structType/*t_164_expr_type*/ *const o_9606_c_expr) { /* line 619 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9606_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1744] /* "setIConv(" */); /* line 620 "../lib/comp/set_act.s7i" */ o_4941_process_expr(rflIdx(*o_9605_params, 3L), o_9606_c_expr); /* line 621 "../lib/comp/set_act.s7i" */ { /* line 621 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 621 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9606_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 621 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 621 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 621 "../lib/comp/set_act.s7i" */ } else { /* line 621 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 621 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 621 "../lib/comp/set_act.s7i" */ } } } /* line 1 "no_file" */ /* 4453 */ /* line 625 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9607_SET_INCL (const objRefType/*t_19_reference*/ o_9608_function, const listType/*t_20_ref_list*/ *const o_9609_params, structType/*t_164_expr_type*/ *const o_9610_c_expr) { /* line 629 "../lib/comp/set_act.s7i" */ structType/*t_164_expr_type*/ o_9611_statement; /* line 629 "../lib/comp/set_act.s7i" */ o_9611_statement=create_164(sct[300]); /* line 631 "../lib/comp/set_act.s7i" */ strCopy(&(((structType)(o_9611_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1745] /* "setIncl(&(" */); /* line 632 "../lib/comp/set_act.s7i" */ o_4941_process_expr(rflIdx(*o_9609_params, 1L), &(o_9611_statement)); /* line 633 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9611_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 634 "../lib/comp/set_act.s7i" */ o_4941_process_expr(rflIdx(*o_9609_params, 2L), &(o_9611_statement)); /* line 635 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(o_9611_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 636 "../lib/comp/set_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_9611_statement, o_9610_c_expr); /* line 625 "../lib/comp/set_act.s7i" */ destr_164(o_9611_statement); } /* line 1 "no_file" */ /* 4454 */ /* line 640 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9612_SET_INTERSECT (const objRefType/*t_19_reference*/ o_9613_function, const listType/*t_20_ref_list*/ *const o_9614_params, structType/*t_164_expr_type*/ *const o_9615_c_expr) { /* line 644 "../lib/comp/set_act.s7i" */ objRefType/*t_19_reference*/ o_9616_evaluatedParam=NULL; { /* line 646 "../lib/comp/set_act.s7i" */ setType/*t_30_bitset*/ tmp_1 = (setType/*t_30_bitset*/)(NULL); /* line 646 "../lib/comp/set_act.s7i" */ setType/*t_30_bitset*/ tmp_2 = (setType/*t_30_bitset*/)(NULL); /* line 646 "../lib/comp/set_act.s7i" */ if (((o_5154_getConstant(rflIdx(*o_9614_params, 1L), 19L, &(o_9616_evaluatedParam))) && /* line 647 "../lib/comp/set_act.s7i" */ (setIsEmpty((tmp_1=(setType/*t_30_bitset*/)(setValue(o_9616_evaluatedParam)))))) || /* line 648 "../lib/comp/set_act.s7i" */ ((o_5154_getConstant(rflIdx(*o_9614_params, 3L), 19L, &(o_9616_evaluatedParam))) && /* line 649 "../lib/comp/set_act.s7i" */ (setIsEmpty((tmp_2=(setType/*t_30_bitset*/)(setValue(o_9616_evaluatedParam))))))) { /* line 650 "../lib/comp/set_act.s7i" */ strAppendTemp(&(((structType)(*o_9615_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6508_bitsetLiteral((setType/*t_30_bitset*/)(set[0]))); } else { { /* line 652 "../lib/comp/set_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 652 "../lib/comp/set_act.s7i" */ o_4952_prepare_set_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(o_4754_getExprResultType(rflIdx(*o_9614_params, 1L))), &tmp_1), o_9615_c_expr); } /* line 653 "../lib/comp/set_act.s7i" */ strCopy(&(((structType)(*o_9615_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1746] /* "setIntersect(" */); /* line 654 "../lib/comp/set_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9614_params, 1L), o_9615_c_expr); /* line 655 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9615_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 656 "../lib/comp/set_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9614_params, 3L), o_9615_c_expr); /* line 657 "../lib/comp/set_act.s7i" */ { /* line 657 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 657 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9615_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 657 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 657 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 657 "../lib/comp/set_act.s7i" */ } else { /* line 657 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 657 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 657 "../lib/comp/set_act.s7i" */ } } } /* line 646 "../lib/comp/set_act.s7i" */ setDestr(tmp_1); /* line 646 "../lib/comp/set_act.s7i" */ setDestr(tmp_2); } } /* line 1 "no_file" */ /* 4455 */ /* line 662 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9617_SET_LE (const objRefType/*t_19_reference*/ o_9618_function, const listType/*t_20_ref_list*/ *const o_9619_params, structType/*t_164_expr_type*/ *const o_9620_c_expr) { /* line 666 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9620_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1741] /* "setIsSubset(" */); /* line 667 "../lib/comp/set_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9619_params, 1L), o_9620_c_expr); /* line 668 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9620_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 669 "../lib/comp/set_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9619_params, 3L), o_9620_c_expr); /* line 670 "../lib/comp/set_act.s7i" */ { /* line 670 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 670 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9620_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 670 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 670 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 670 "../lib/comp/set_act.s7i" */ } else { /* line 670 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 670 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 670 "../lib/comp/set_act.s7i" */ } } } /* line 1 "no_file" */ /* 4456 */ /* line 674 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9621_SET_LT (const objRefType/*t_19_reference*/ o_9622_function, const listType/*t_20_ref_list*/ *const o_9623_params, structType/*t_164_expr_type*/ *const o_9624_c_expr) { /* line 678 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9624_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1742] /* "setIsProperSubset(" */); /* line 679 "../lib/comp/set_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9623_params, 1L), o_9624_c_expr); /* line 680 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9624_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 681 "../lib/comp/set_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9623_params, 3L), o_9624_c_expr); /* line 682 "../lib/comp/set_act.s7i" */ { /* line 682 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 682 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9624_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 682 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 682 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 682 "../lib/comp/set_act.s7i" */ } else { /* line 682 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 682 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 682 "../lib/comp/set_act.s7i" */ } } } /* line 1 "no_file" */ /* 4457 */ /* line 686 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9625_SET_MAX (const objRefType/*t_19_reference*/ o_9626_function, const listType/*t_20_ref_list*/ *const o_9627_params, structType/*t_164_expr_type*/ *const o_9628_c_expr) { /* line 690 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9628_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1747] /* "setMax(" */); /* line 691 "../lib/comp/set_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9627_params, 1L), o_9628_c_expr); /* line 692 "../lib/comp/set_act.s7i" */ { /* line 692 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 692 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9628_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 692 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 692 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 692 "../lib/comp/set_act.s7i" */ } else { /* line 692 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 692 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 692 "../lib/comp/set_act.s7i" */ } } } /* line 1 "no_file" */ /* 4458 */ /* line 696 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9629_SET_MIN (const objRefType/*t_19_reference*/ o_9630_function, const listType/*t_20_ref_list*/ *const o_9631_params, structType/*t_164_expr_type*/ *const o_9632_c_expr) { /* line 700 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9632_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1748] /* "setMin(" */); /* line 701 "../lib/comp/set_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9631_params, 1L), o_9632_c_expr); /* line 702 "../lib/comp/set_act.s7i" */ { /* line 702 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 702 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9632_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 702 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 702 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 702 "../lib/comp/set_act.s7i" */ } else { /* line 702 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 702 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 702 "../lib/comp/set_act.s7i" */ } } } /* line 1 "no_file" */ /* 4459 */ /* line 706 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9633_SET_NE (const objRefType/*t_19_reference*/ o_9634_function, const listType/*t_20_ref_list*/ *const o_9635_params, structType/*t_164_expr_type*/ *const o_9636_c_expr) { /* line 710 "../lib/comp/set_act.s7i" */ { /* line 710 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 710 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9636_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 710 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 710 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) '!'); /* line 710 "../lib/comp/set_act.s7i" */ } else { /* line 710 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '!'; /* line 710 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 710 "../lib/comp/set_act.s7i" */ } } /* line 711 "../lib/comp/set_act.s7i" */ o_9574_SET_EQ(o_9634_function, o_9635_params, o_9636_c_expr); } /* line 1 "no_file" */ /* 4460 */ /* line 715 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9637_SET_NEXT (const objRefType/*t_19_reference*/ o_9638_function, const listType/*t_20_ref_list*/ *const o_9639_params, structType/*t_164_expr_type*/ *const o_9640_c_expr) { /* line 719 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9640_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1749] /* "setNext(" */); /* line 720 "../lib/comp/set_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9639_params, 1L), o_9640_c_expr); /* line 721 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9640_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 722 "../lib/comp/set_act.s7i" */ o_4941_process_expr(rflIdx(*o_9639_params, 2L), o_9640_c_expr); /* line 723 "../lib/comp/set_act.s7i" */ { /* line 723 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 723 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9640_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 723 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 723 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 723 "../lib/comp/set_act.s7i" */ } else { /* line 723 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 723 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 723 "../lib/comp/set_act.s7i" */ } } } /* line 1 "no_file" */ /* 4461 */ /* line 727 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9641_SET_NOT_ELEM (const objRefType/*t_19_reference*/ o_9642_function, const listType/*t_20_ref_list*/ *const o_9643_params, structType/*t_164_expr_type*/ *const o_9644_c_expr) { /* line 731 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9644_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[628] /* "!(" */); /* line 732 "../lib/comp/set_act.s7i" */ o_9556_process_set_elem(rflIdx(*o_9643_params, 1L), rflIdx(*o_9643_params, 4L), o_9644_c_expr); /* line 733 "../lib/comp/set_act.s7i" */ { /* line 733 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 733 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9644_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 733 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 733 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 733 "../lib/comp/set_act.s7i" */ } else { /* line 733 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 733 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 733 "../lib/comp/set_act.s7i" */ } } } /* line 1 "no_file" */ /* 4462 */ /* line 737 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9645_SET_RAND (const objRefType/*t_19_reference*/ o_9646_function, const listType/*t_20_ref_list*/ *const o_9647_params, structType/*t_164_expr_type*/ *const o_9648_c_expr) { /* line 741 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9648_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1750] /* "setRand(" */); /* line 742 "../lib/comp/set_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9647_params, 1L), o_9648_c_expr); /* line 743 "../lib/comp/set_act.s7i" */ { /* line 743 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 743 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9648_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 743 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 743 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 743 "../lib/comp/set_act.s7i" */ } else { /* line 743 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 743 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 743 "../lib/comp/set_act.s7i" */ } } } /* line 1 "no_file" */ /* 4463 */ /* line 747 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9649_SET_RANGELIT (const objRefType/*t_19_reference*/ o_9650_function, const listType/*t_20_ref_list*/ *const o_9651_params, structType/*t_164_expr_type*/ *const o_9652_c_expr) { { /* line 751 "../lib/comp/set_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 751 "../lib/comp/set_act.s7i" */ o_4952_prepare_set_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_9650_function))), &tmp_1), o_9652_c_expr); } /* line 752 "../lib/comp/set_act.s7i" */ strCopy(&(((structType)(*o_9652_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1751] /* "setRangelit(" */); /* line 753 "../lib/comp/set_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9651_params, 2L), o_9652_c_expr); /* line 754 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9652_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 755 "../lib/comp/set_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9651_params, 4L), o_9652_c_expr); /* line 756 "../lib/comp/set_act.s7i" */ { /* line 756 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 756 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9652_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 756 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 756 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 756 "../lib/comp/set_act.s7i" */ } else { /* line 756 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 756 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 756 "../lib/comp/set_act.s7i" */ } } } /* line 1 "no_file" */ /* 4464 */ /* line 760 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9653_SET_SCONV (const objRefType/*t_19_reference*/ o_9654_function, const listType/*t_20_ref_list*/ *const o_9655_params, structType/*t_164_expr_type*/ *const o_9656_c_expr) { /* line 764 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9656_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1752] /* "setSConv(" */); /* line 765 "../lib/comp/set_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9655_params, 3L), o_9656_c_expr); /* line 766 "../lib/comp/set_act.s7i" */ { /* line 766 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 766 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9656_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 766 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 766 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 766 "../lib/comp/set_act.s7i" */ } else { /* line 766 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 766 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 766 "../lib/comp/set_act.s7i" */ } } } /* line 1 "no_file" */ /* 4465 */ /* line 770 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9657_SET_SYMDIFF (const objRefType/*t_19_reference*/ o_9658_function, const listType/*t_20_ref_list*/ *const o_9659_params, structType/*t_164_expr_type*/ *const o_9660_c_expr) { { /* line 774 "../lib/comp/set_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 774 "../lib/comp/set_act.s7i" */ o_4952_prepare_set_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(o_4754_getExprResultType(rflIdx(*o_9659_params, 1L))), &tmp_1), o_9660_c_expr); } /* line 775 "../lib/comp/set_act.s7i" */ strCopy(&(((structType)(*o_9660_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1753] /* "setSymdiff(" */); /* line 776 "../lib/comp/set_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9659_params, 1L), o_9660_c_expr); /* line 777 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9660_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 778 "../lib/comp/set_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9659_params, 3L), o_9660_c_expr); /* line 779 "../lib/comp/set_act.s7i" */ { /* line 779 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 779 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9660_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 779 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 779 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 779 "../lib/comp/set_act.s7i" */ } else { /* line 779 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 779 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 779 "../lib/comp/set_act.s7i" */ } } } /* line 1 "no_file" */ /* 4466 */ /* line 783 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9661_SET_UNION (const objRefType/*t_19_reference*/ o_9662_function, const listType/*t_20_ref_list*/ *const o_9663_params, structType/*t_164_expr_type*/ *const o_9664_c_expr) { /* line 787 "../lib/comp/set_act.s7i" */ objRefType/*t_19_reference*/ o_9665_evaluatedParam=NULL; { /* line 789 "../lib/comp/set_act.s7i" */ setType/*t_30_bitset*/ tmp_1 = (setType/*t_30_bitset*/)(NULL); /* line 789 "../lib/comp/set_act.s7i" */ if ((o_5154_getConstant(rflIdx(*o_9663_params, 1L), 19L, &(o_9665_evaluatedParam))) && /* line 790 "../lib/comp/set_act.s7i" */ (setIsEmpty((tmp_1=(setType/*t_30_bitset*/)(setValue(o_9665_evaluatedParam)))))) { /* line 791 "../lib/comp/set_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9663_params, 3L), o_9664_c_expr); } else { /* line 792 "../lib/comp/set_act.s7i" */ setType/*t_30_bitset*/ tmp_1 = (setType/*t_30_bitset*/)(NULL); /* line 792 "../lib/comp/set_act.s7i" */ if ((o_5154_getConstant(rflIdx(*o_9663_params, 3L), 19L, &(o_9665_evaluatedParam))) && /* line 793 "../lib/comp/set_act.s7i" */ (setIsEmpty((tmp_1=(setType/*t_30_bitset*/)(setValue(o_9665_evaluatedParam)))))) { /* line 794 "../lib/comp/set_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9663_params, 1L), o_9664_c_expr); } else { { /* line 796 "../lib/comp/set_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 796 "../lib/comp/set_act.s7i" */ o_4952_prepare_set_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(o_4754_getExprResultType(rflIdx(*o_9663_params, 1L))), &tmp_1), o_9664_c_expr); } /* line 797 "../lib/comp/set_act.s7i" */ strCopy(&(((structType)(*o_9664_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1754] /* "setUnion(" */); /* line 798 "../lib/comp/set_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9663_params, 1L), o_9664_c_expr); /* line 799 "../lib/comp/set_act.s7i" */ strAppend(&(((structType)(*o_9664_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 800 "../lib/comp/set_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9663_params, 3L), o_9664_c_expr); /* line 801 "../lib/comp/set_act.s7i" */ { /* line 801 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 801 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9664_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 801 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 801 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 801 "../lib/comp/set_act.s7i" */ } else { /* line 801 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 801 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 801 "../lib/comp/set_act.s7i" */ } } } /* line 792 "../lib/comp/set_act.s7i" */ setDestr(tmp_1); } /* line 789 "../lib/comp/set_act.s7i" */ setDestr(tmp_1); } } /* line 1 "no_file" */ /* 4467 */ /* line 806 "../lib/comp/set_act.s7i" */ static void/*t_1_void*/ o_9666_SET_VALUE (const objRefType/*t_19_reference*/ o_9667_function, const listType/*t_20_ref_list*/ *const o_9668_params, structType/*t_164_expr_type*/ *const o_9669_c_expr) { { /* line 810 "../lib/comp/set_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 810 "../lib/comp/set_act.s7i" */ o_4952_prepare_set_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_9667_function))), &tmp_1), o_9669_c_expr); } /* line 811 "../lib/comp/set_act.s7i" */ strCopy(&(((structType)(*o_9669_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1755] /* "setValue(" */); /* line 812 "../lib/comp/set_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9668_params, 1L), o_9669_c_expr); /* line 813 "../lib/comp/set_act.s7i" */ { /* line 813 "../lib/comp/set_act.s7i" */ striType *tmp_1; /* line 813 "../lib/comp/set_act.s7i" */ tmp_1=&(((structType)(*o_9669_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 813 "../lib/comp/set_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 813 "../lib/comp/set_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 813 "../lib/comp/set_act.s7i" */ } else { /* line 813 "../lib/comp/set_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 813 "../lib/comp/set_act.s7i" */ (*tmp_1)->size++; /* line 813 "../lib/comp/set_act.s7i" */ } } } /* line 1 "no_file" */ /* 4468 */ /* 4469 */ /* line 56 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9670_soc_prototypes (interfaceType/*t_46_file*/ *const o_9671_c_prog) { /* line 59 "../lib/comp/soc_act.s7i" */ o_6547_declareExtern(o_9671_c_prog, &str[1756] /* "socketType socAccept (socketType, bstriType *);" */); /* line 60 "../lib/comp/soc_act.s7i" */ o_6547_declareExtern(o_9671_c_prog, &str[1757] /* "intType socAddrFamily (const const_bstriType);" */); /* line 61 "../lib/comp/soc_act.s7i" */ o_6547_declareExtern(o_9671_c_prog, &str[1758] /* "striType socAddrNumeric (const const_bstriType);" */); /* line 62 "../lib/comp/soc_act.s7i" */ o_6547_declareExtern(o_9671_c_prog, &str[1759] /* "striType socAddrService (const const_bstriType);" */); /* line 63 "../lib/comp/soc_act.s7i" */ o_6547_declareExtern(o_9671_c_prog, &str[1760] /* "void socBind (socketType, const_bstriType);" */); /* line 64 "../lib/comp/soc_act.s7i" */ o_6547_declareExtern(o_9671_c_prog, &str[1761] /* "void socClose (socketType);" */); /* line 65 "../lib/comp/soc_act.s7i" */ o_6547_declareExtern(o_9671_c_prog, &str[1762] /* "void socConnect (socketType, const_bstriType);" */); /* line 66 "../lib/comp/soc_act.s7i" */ o_6547_declareExtern(o_9671_c_prog, &str[1763] /* "charType socGetc (socketType, charType *);" */); /* line 67 "../lib/comp/soc_act.s7i" */ o_6547_declareExtern(o_9671_c_prog, &str[1764] /* "striType socGets (socketType, intType, charType *);" */); /* line 68 "../lib/comp/soc_act.s7i" */ o_6547_declareExtern(o_9671_c_prog, &str[1765] /* "bstriType socGetAddr (socketType);" */); /* line 69 "../lib/comp/soc_act.s7i" */ o_6547_declareExtern(o_9671_c_prog, &str[1766] /* "striType socGetHostname(void);" */); /* line 70 "../lib/comp/soc_act.s7i" */ o_6547_declareExtern(o_9671_c_prog, &str[1767] /* "boolType socHasNext (socketType);" */); /* line 71 "../lib/comp/soc_act.s7i" */ o_6547_declareExtern(o_9671_c_prog, &str[1768] /* "bstriType socInetAddr (const const_striType, intType);" */); /* line 72 "../lib/comp/soc_act.s7i" */ o_6547_declareExtern(o_9671_c_prog, &str[1769] /* "bstriType socInetLocalAddr (intType);" */); /* line 73 "../lib/comp/soc_act.s7i" */ o_6547_declareExtern(o_9671_c_prog, &str[1770] /* "bstriType socInetServAddr (intType);" */); /* line 74 "../lib/comp/soc_act.s7i" */ o_6547_declareExtern(o_9671_c_prog, &str[1771] /* "boolType socInputReady (socketType, intType, intType);" */); /* line 75 "../lib/comp/soc_act.s7i" */ o_6547_declareExtern(o_9671_c_prog, &str[1772] /* "striType socLineRead (socketType, charType *);" */); /* line 76 "../lib/comp/soc_act.s7i" */ o_6547_declareExtern(o_9671_c_prog, &str[1773] /* "void socListen (socketType, intType);" */); /* line 77 "../lib/comp/soc_act.s7i" */ o_6547_declareExtern(o_9671_c_prog, &str[1774] /* "intType socRecv (socketType, striType *, intType, intType);" */); /* line 78 "../lib/comp/soc_act.s7i" */ o_6547_declareExtern(o_9671_c_prog, &str[1775] /* "intType socRecvfrom (socketType, striType *, intType, intType, bstriType *);" */); /* line 79 "../lib/comp/soc_act.s7i" */ o_6547_declareExtern(o_9671_c_prog, &str[1776] /* "intType socSend (socketType, const_striType, intType);" */); /* line 80 "../lib/comp/soc_act.s7i" */ o_6547_declareExtern(o_9671_c_prog, &str[1777] /* "intType socSendto (socketType, const_striType, intType, bstriType);" */); /* line 81 "../lib/comp/soc_act.s7i" */ o_6547_declareExtern(o_9671_c_prog, &str[1778] /* "void socSetOptBool (socketType, intType, boolType);" */); /* line 82 "../lib/comp/soc_act.s7i" */ o_6547_declareExtern(o_9671_c_prog, &str[1779] /* "socketType socSocket (intType, intType, intType);" */); /* line 83 "../lib/comp/soc_act.s7i" */ o_6547_declareExtern(o_9671_c_prog, &str[1780] /* "striType socWordRead (socketType, charType *);" */); /* line 84 "../lib/comp/soc_act.s7i" */ o_6547_declareExtern(o_9671_c_prog, &str[1781] /* "void socWrite (socketType, const const_striType);" */); } /* line 1 "no_file" */ /* 4470 */ /* line 88 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9672_SOC_ACCEPT (const objRefType/*t_19_reference*/ o_9673_function, const listType/*t_20_ref_list*/ *const o_9674_params, structType/*t_164_expr_type*/ *const o_9675_c_expr) { /* line 92 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9675_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1782] /* "socAccept(" */); /* line 93 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9674_params, 1L), o_9675_c_expr); /* line 94 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9675_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[766] /* ", &(" */); /* line 95 "../lib/comp/soc_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9674_params, 2L), o_9675_c_expr); /* line 96 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9675_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 4471 */ /* line 100 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9676_SOC_ADDR_FAMILY (const objRefType/*t_19_reference*/ o_9677_function, const listType/*t_20_ref_list*/ *const o_9678_params, structType/*t_164_expr_type*/ *const o_9679_c_expr) { /* line 104 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9679_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1783] /* "socAddrFamily(" */); /* line 105 "../lib/comp/soc_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9678_params, 1L), o_9679_c_expr); /* line 106 "../lib/comp/soc_act.s7i" */ { /* line 106 "../lib/comp/soc_act.s7i" */ striType *tmp_1; /* line 106 "../lib/comp/soc_act.s7i" */ tmp_1=&(((structType)(*o_9679_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 106 "../lib/comp/soc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 106 "../lib/comp/soc_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 106 "../lib/comp/soc_act.s7i" */ } else { /* line 106 "../lib/comp/soc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 106 "../lib/comp/soc_act.s7i" */ (*tmp_1)->size++; /* line 106 "../lib/comp/soc_act.s7i" */ } } } /* line 1 "no_file" */ /* 4472 */ /* line 110 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9680_SOC_ADDR_NUMERIC (const objRefType/*t_19_reference*/ o_9681_function, const listType/*t_20_ref_list*/ *const o_9682_params, structType/*t_164_expr_type*/ *const o_9683_c_expr) { /* line 114 "../lib/comp/soc_act.s7i" */ o_4955_prepare_stri_result(o_9683_c_expr); /* line 115 "../lib/comp/soc_act.s7i" */ strCopy(&(((structType)(*o_9683_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1784] /* "socAddrNumeric(" */); /* line 116 "../lib/comp/soc_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9682_params, 1L), o_9683_c_expr); /* line 117 "../lib/comp/soc_act.s7i" */ { /* line 117 "../lib/comp/soc_act.s7i" */ striType *tmp_1; /* line 117 "../lib/comp/soc_act.s7i" */ tmp_1=&(((structType)(*o_9683_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 117 "../lib/comp/soc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 117 "../lib/comp/soc_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 117 "../lib/comp/soc_act.s7i" */ } else { /* line 117 "../lib/comp/soc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 117 "../lib/comp/soc_act.s7i" */ (*tmp_1)->size++; /* line 117 "../lib/comp/soc_act.s7i" */ } } } /* line 1 "no_file" */ /* 4473 */ /* line 121 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9684_SOC_ADDR_SERVICE (const objRefType/*t_19_reference*/ o_9685_function, const listType/*t_20_ref_list*/ *const o_9686_params, structType/*t_164_expr_type*/ *const o_9687_c_expr) { /* line 125 "../lib/comp/soc_act.s7i" */ o_4955_prepare_stri_result(o_9687_c_expr); /* line 126 "../lib/comp/soc_act.s7i" */ strCopy(&(((structType)(*o_9687_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1785] /* "socAddrService(" */); /* line 127 "../lib/comp/soc_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9686_params, 1L), o_9687_c_expr); /* line 128 "../lib/comp/soc_act.s7i" */ { /* line 128 "../lib/comp/soc_act.s7i" */ striType *tmp_1; /* line 128 "../lib/comp/soc_act.s7i" */ tmp_1=&(((structType)(*o_9687_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 128 "../lib/comp/soc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 128 "../lib/comp/soc_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 128 "../lib/comp/soc_act.s7i" */ } else { /* line 128 "../lib/comp/soc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 128 "../lib/comp/soc_act.s7i" */ (*tmp_1)->size++; /* line 128 "../lib/comp/soc_act.s7i" */ } } } /* line 1 "no_file" */ /* 4474 */ /* line 132 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9688_SOC_BIND (const objRefType/*t_19_reference*/ o_9689_function, const listType/*t_20_ref_list*/ *const o_9690_params, structType/*t_164_expr_type*/ *const o_9691_c_expr) { /* line 136 "../lib/comp/soc_act.s7i" */ o_4819_setDiagnosticLine(o_9691_c_expr); /* line 137 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9691_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1786] /* "socBind(" */); /* line 138 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9690_params, 1L), o_9691_c_expr); /* line 139 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9691_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 140 "../lib/comp/soc_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9690_params, 2L), o_9691_c_expr); /* line 141 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9691_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4475 */ /* line 145 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9692_SOC_CLOSE (const objRefType/*t_19_reference*/ o_9693_function, const listType/*t_20_ref_list*/ *const o_9694_params, structType/*t_164_expr_type*/ *const o_9695_c_expr) { /* line 149 "../lib/comp/soc_act.s7i" */ o_4819_setDiagnosticLine(o_9695_c_expr); /* line 150 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9695_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1787] /* "socClose(" */); /* line 151 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9694_params, 1L), o_9695_c_expr); /* line 152 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9695_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4476 */ /* line 156 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9696_SOC_CONNECT (const objRefType/*t_19_reference*/ o_9697_function, const listType/*t_20_ref_list*/ *const o_9698_params, structType/*t_164_expr_type*/ *const o_9699_c_expr) { /* line 160 "../lib/comp/soc_act.s7i" */ o_4819_setDiagnosticLine(o_9699_c_expr); /* line 161 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9699_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1788] /* "socConnect(" */); /* line 162 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9698_params, 1L), o_9699_c_expr); /* line 163 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9699_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 164 "../lib/comp/soc_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9698_params, 2L), o_9699_c_expr); /* line 165 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9699_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4477 */ /* line 169 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9700_SOC_CPY (const objRefType/*t_19_reference*/ o_9701_function, const listType/*t_20_ref_list*/ *const o_9702_params, structType/*t_164_expr_type*/ *const o_9703_c_expr) { /* line 173 "../lib/comp/soc_act.s7i" */ structType/*t_164_expr_type*/ o_9704_statement; /* line 173 "../lib/comp/soc_act.s7i" */ o_9704_statement=create_164(sct[301]); /* line 175 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9702_params, 1L), &(o_9704_statement)); /* line 176 "../lib/comp/soc_act.s7i" */ { /* line 176 "../lib/comp/soc_act.s7i" */ striType *tmp_1; /* line 176 "../lib/comp/soc_act.s7i" */ tmp_1=&(((structType)(o_9704_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 176 "../lib/comp/soc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 176 "../lib/comp/soc_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 176 "../lib/comp/soc_act.s7i" */ } else { /* line 176 "../lib/comp/soc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 176 "../lib/comp/soc_act.s7i" */ (*tmp_1)->size++; /* line 176 "../lib/comp/soc_act.s7i" */ } } /* line 177 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9702_params, 3L), &(o_9704_statement)); /* line 178 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(o_9704_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 179 "../lib/comp/soc_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_9704_statement, o_9703_c_expr); /* line 169 "../lib/comp/soc_act.s7i" */ destr_164(o_9704_statement); } /* line 1 "no_file" */ /* 4478 */ /* line 183 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9705_SOC_EQ (const objRefType/*t_19_reference*/ o_9706_function, const listType/*t_20_ref_list*/ *const o_9707_params, structType/*t_164_expr_type*/ *const o_9708_c_expr) { /* line 187 "../lib/comp/soc_act.s7i" */ { /* line 187 "../lib/comp/soc_act.s7i" */ striType *tmp_1; /* line 187 "../lib/comp/soc_act.s7i" */ tmp_1=&(((structType)(*o_9708_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 187 "../lib/comp/soc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 187 "../lib/comp/soc_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 187 "../lib/comp/soc_act.s7i" */ } else { /* line 187 "../lib/comp/soc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 187 "../lib/comp/soc_act.s7i" */ (*tmp_1)->size++; /* line 187 "../lib/comp/soc_act.s7i" */ } } /* line 188 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9707_params, 1L), o_9708_c_expr); /* line 189 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9708_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[350] /* ") == (" */); /* line 190 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9707_params, 3L), o_9708_c_expr); /* line 191 "../lib/comp/soc_act.s7i" */ { /* line 191 "../lib/comp/soc_act.s7i" */ striType *tmp_1; /* line 191 "../lib/comp/soc_act.s7i" */ tmp_1=&(((structType)(*o_9708_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 191 "../lib/comp/soc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 191 "../lib/comp/soc_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 191 "../lib/comp/soc_act.s7i" */ } else { /* line 191 "../lib/comp/soc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 191 "../lib/comp/soc_act.s7i" */ (*tmp_1)->size++; /* line 191 "../lib/comp/soc_act.s7i" */ } } } /* line 1 "no_file" */ /* 4479 */ /* line 195 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9709_SOC_GETC (const objRefType/*t_19_reference*/ o_9710_function, const listType/*t_20_ref_list*/ *const o_9711_params, structType/*t_164_expr_type*/ *const o_9712_c_expr) { /* line 199 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9712_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1789] /* "socGetc(" */); /* line 200 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9711_params, 1L), o_9712_c_expr); /* line 201 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9712_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[766] /* ", &(" */); /* line 202 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9711_params, 2L), o_9712_c_expr); /* line 203 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9712_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 4480 */ /* line 207 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9713_SOC_GETS (const objRefType/*t_19_reference*/ o_9714_function, const listType/*t_20_ref_list*/ *const o_9715_params, structType/*t_164_expr_type*/ *const o_9716_c_expr) { /* line 211 "../lib/comp/soc_act.s7i" */ o_4955_prepare_stri_result(o_9716_c_expr); /* line 212 "../lib/comp/soc_act.s7i" */ strCopy(&(((structType)(*o_9716_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1790] /* "socGets(" */); /* line 213 "../lib/comp/soc_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9715_params, 1L), o_9716_c_expr); /* line 214 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9716_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 215 "../lib/comp/soc_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9715_params, 2L), o_9716_c_expr); /* line 216 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9716_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[766] /* ", &(" */); /* line 217 "../lib/comp/soc_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9715_params, 3L), o_9716_c_expr); /* line 218 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9716_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 4481 */ /* line 222 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9717_SOC_GET_ADDR (const objRefType/*t_19_reference*/ o_9718_function, const listType/*t_20_ref_list*/ *const o_9719_params, structType/*t_164_expr_type*/ *const o_9720_c_expr) { /* line 226 "../lib/comp/soc_act.s7i" */ o_4957_prepare_bstri_result(o_9720_c_expr); /* line 227 "../lib/comp/soc_act.s7i" */ strCopy(&(((structType)(*o_9720_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1791] /* "socGetAddr(" */); /* line 228 "../lib/comp/soc_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9719_params, 1L), o_9720_c_expr); /* line 229 "../lib/comp/soc_act.s7i" */ { /* line 229 "../lib/comp/soc_act.s7i" */ striType *tmp_1; /* line 229 "../lib/comp/soc_act.s7i" */ tmp_1=&(((structType)(*o_9720_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 229 "../lib/comp/soc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 229 "../lib/comp/soc_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 229 "../lib/comp/soc_act.s7i" */ } else { /* line 229 "../lib/comp/soc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 229 "../lib/comp/soc_act.s7i" */ (*tmp_1)->size++; /* line 229 "../lib/comp/soc_act.s7i" */ } } } /* line 1 "no_file" */ /* 4482 */ /* line 233 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9721_SOC_GET_HOSTNAME (const objRefType/*t_19_reference*/ o_9722_function, const listType/*t_20_ref_list*/ *const o_9723_params, structType/*t_164_expr_type*/ *const o_9724_c_expr) { /* line 237 "../lib/comp/soc_act.s7i" */ o_4955_prepare_stri_result(o_9724_c_expr); /* line 238 "../lib/comp/soc_act.s7i" */ strCopy(&(((structType)(*o_9724_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1792] /* "socGetHostname()" */); } /* line 1 "no_file" */ /* 4483 */ /* line 242 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9725_SOC_HAS_NEXT (const objRefType/*t_19_reference*/ o_9726_function, const listType/*t_20_ref_list*/ *const o_9727_params, structType/*t_164_expr_type*/ *const o_9728_c_expr) { /* line 246 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9728_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1793] /* "socHasNext(" */); /* line 247 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9727_params, 1L), o_9728_c_expr); /* line 248 "../lib/comp/soc_act.s7i" */ { /* line 248 "../lib/comp/soc_act.s7i" */ striType *tmp_1; /* line 248 "../lib/comp/soc_act.s7i" */ tmp_1=&(((structType)(*o_9728_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 248 "../lib/comp/soc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 248 "../lib/comp/soc_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 248 "../lib/comp/soc_act.s7i" */ } else { /* line 248 "../lib/comp/soc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 248 "../lib/comp/soc_act.s7i" */ (*tmp_1)->size++; /* line 248 "../lib/comp/soc_act.s7i" */ } } } /* line 1 "no_file" */ /* 4484 */ /* line 252 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9729_SOC_INET_ADDR (const objRefType/*t_19_reference*/ o_9730_function, const listType/*t_20_ref_list*/ *const o_9731_params, structType/*t_164_expr_type*/ *const o_9732_c_expr) { /* line 256 "../lib/comp/soc_act.s7i" */ o_4957_prepare_bstri_result(o_9732_c_expr); /* line 257 "../lib/comp/soc_act.s7i" */ strCopy(&(((structType)(*o_9732_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1794] /* "socInetAddr(" */); /* line 258 "../lib/comp/soc_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9731_params, 1L), o_9732_c_expr); /* line 259 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9732_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 260 "../lib/comp/soc_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9731_params, 2L), o_9732_c_expr); /* line 261 "../lib/comp/soc_act.s7i" */ { /* line 261 "../lib/comp/soc_act.s7i" */ striType *tmp_1; /* line 261 "../lib/comp/soc_act.s7i" */ tmp_1=&(((structType)(*o_9732_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 261 "../lib/comp/soc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 261 "../lib/comp/soc_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 261 "../lib/comp/soc_act.s7i" */ } else { /* line 261 "../lib/comp/soc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 261 "../lib/comp/soc_act.s7i" */ (*tmp_1)->size++; /* line 261 "../lib/comp/soc_act.s7i" */ } } } /* line 1 "no_file" */ /* 4485 */ /* line 265 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9733_SOC_INET_LOCAL_ADDR (const objRefType/*t_19_reference*/ o_9734_function, const listType/*t_20_ref_list*/ *const o_9735_params, structType/*t_164_expr_type*/ *const o_9736_c_expr) { /* line 269 "../lib/comp/soc_act.s7i" */ o_4957_prepare_bstri_result(o_9736_c_expr); /* line 270 "../lib/comp/soc_act.s7i" */ strCopy(&(((structType)(*o_9736_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1795] /* "socInetLocalAddr(" */); /* line 271 "../lib/comp/soc_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9735_params, 1L), o_9736_c_expr); /* line 272 "../lib/comp/soc_act.s7i" */ { /* line 272 "../lib/comp/soc_act.s7i" */ striType *tmp_1; /* line 272 "../lib/comp/soc_act.s7i" */ tmp_1=&(((structType)(*o_9736_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 272 "../lib/comp/soc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 272 "../lib/comp/soc_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 272 "../lib/comp/soc_act.s7i" */ } else { /* line 272 "../lib/comp/soc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 272 "../lib/comp/soc_act.s7i" */ (*tmp_1)->size++; /* line 272 "../lib/comp/soc_act.s7i" */ } } } /* line 1 "no_file" */ /* 4486 */ /* line 276 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9737_SOC_INET_SERV_ADDR (const objRefType/*t_19_reference*/ o_9738_function, const listType/*t_20_ref_list*/ *const o_9739_params, structType/*t_164_expr_type*/ *const o_9740_c_expr) { /* line 280 "../lib/comp/soc_act.s7i" */ o_4957_prepare_bstri_result(o_9740_c_expr); /* line 281 "../lib/comp/soc_act.s7i" */ strCopy(&(((structType)(*o_9740_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1796] /* "socInetServAddr(" */); /* line 282 "../lib/comp/soc_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9739_params, 1L), o_9740_c_expr); /* line 283 "../lib/comp/soc_act.s7i" */ { /* line 283 "../lib/comp/soc_act.s7i" */ striType *tmp_1; /* line 283 "../lib/comp/soc_act.s7i" */ tmp_1=&(((structType)(*o_9740_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 283 "../lib/comp/soc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 283 "../lib/comp/soc_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 283 "../lib/comp/soc_act.s7i" */ } else { /* line 283 "../lib/comp/soc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 283 "../lib/comp/soc_act.s7i" */ (*tmp_1)->size++; /* line 283 "../lib/comp/soc_act.s7i" */ } } } /* line 1 "no_file" */ /* 4487 */ /* line 287 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9741_SOC_INPUT_READY (const objRefType/*t_19_reference*/ o_9742_function, const listType/*t_20_ref_list*/ *const o_9743_params, structType/*t_164_expr_type*/ *const o_9744_c_expr) { /* line 291 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1797] /* "socInputReady(" */); /* line 292 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9743_params, 1L), o_9744_c_expr); /* line 293 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 294 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9743_params, 2L), o_9744_c_expr); /* line 295 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 296 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9743_params, 3L), o_9744_c_expr); /* line 297 "../lib/comp/soc_act.s7i" */ { /* line 297 "../lib/comp/soc_act.s7i" */ striType *tmp_1; /* line 297 "../lib/comp/soc_act.s7i" */ tmp_1=&(((structType)(*o_9744_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 297 "../lib/comp/soc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 297 "../lib/comp/soc_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 297 "../lib/comp/soc_act.s7i" */ } else { /* line 297 "../lib/comp/soc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 297 "../lib/comp/soc_act.s7i" */ (*tmp_1)->size++; /* line 297 "../lib/comp/soc_act.s7i" */ } } } /* line 1 "no_file" */ /* 4488 */ /* line 301 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9745_SOC_LINE_READ (const objRefType/*t_19_reference*/ o_9746_function, const listType/*t_20_ref_list*/ *const o_9747_params, structType/*t_164_expr_type*/ *const o_9748_c_expr) { /* line 305 "../lib/comp/soc_act.s7i" */ o_4955_prepare_stri_result(o_9748_c_expr); /* line 306 "../lib/comp/soc_act.s7i" */ strCopy(&(((structType)(*o_9748_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1798] /* "socLineRead(" */); /* line 307 "../lib/comp/soc_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9747_params, 1L), o_9748_c_expr); /* line 308 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9748_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[766] /* ", &(" */); /* line 309 "../lib/comp/soc_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9747_params, 2L), o_9748_c_expr); /* line 310 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9748_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 4489 */ /* line 314 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9749_SOC_LISTEN (const objRefType/*t_19_reference*/ o_9750_function, const listType/*t_20_ref_list*/ *const o_9751_params, structType/*t_164_expr_type*/ *const o_9752_c_expr) { /* line 318 "../lib/comp/soc_act.s7i" */ o_4819_setDiagnosticLine(o_9752_c_expr); /* line 319 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9752_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1799] /* "socListen(" */); /* line 320 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9751_params, 1L), o_9752_c_expr); /* line 321 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9752_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 322 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9751_params, 2L), o_9752_c_expr); /* line 323 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9752_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4490 */ /* line 327 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9753_SOC_NE (const objRefType/*t_19_reference*/ o_9754_function, const listType/*t_20_ref_list*/ *const o_9755_params, structType/*t_164_expr_type*/ *const o_9756_c_expr) { /* line 331 "../lib/comp/soc_act.s7i" */ { /* line 331 "../lib/comp/soc_act.s7i" */ striType *tmp_1; /* line 331 "../lib/comp/soc_act.s7i" */ tmp_1=&(((structType)(*o_9756_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 331 "../lib/comp/soc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 331 "../lib/comp/soc_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 331 "../lib/comp/soc_act.s7i" */ } else { /* line 331 "../lib/comp/soc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 331 "../lib/comp/soc_act.s7i" */ (*tmp_1)->size++; /* line 331 "../lib/comp/soc_act.s7i" */ } } /* line 332 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9755_params, 1L), o_9756_c_expr); /* line 333 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9756_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[352] /* ") != (" */); /* line 334 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9755_params, 3L), o_9756_c_expr); /* line 335 "../lib/comp/soc_act.s7i" */ { /* line 335 "../lib/comp/soc_act.s7i" */ striType *tmp_1; /* line 335 "../lib/comp/soc_act.s7i" */ tmp_1=&(((structType)(*o_9756_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 335 "../lib/comp/soc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 335 "../lib/comp/soc_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 335 "../lib/comp/soc_act.s7i" */ } else { /* line 335 "../lib/comp/soc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 335 "../lib/comp/soc_act.s7i" */ (*tmp_1)->size++; /* line 335 "../lib/comp/soc_act.s7i" */ } } } /* line 1 "no_file" */ /* 4491 */ /* line 339 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9757_SOC_RECV (const objRefType/*t_19_reference*/ o_9758_function, const listType/*t_20_ref_list*/ *const o_9759_params, structType/*t_164_expr_type*/ *const o_9760_c_expr) { /* line 343 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9760_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1800] /* "socRecv(" */); /* line 344 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9759_params, 1L), o_9760_c_expr); /* line 345 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9760_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[766] /* ", &(" */); /* line 346 "../lib/comp/soc_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9759_params, 2L), o_9760_c_expr); /* line 347 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9760_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 348 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9759_params, 3L), o_9760_c_expr); /* line 349 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9760_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 350 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9759_params, 4L), o_9760_c_expr); /* line 351 "../lib/comp/soc_act.s7i" */ { /* line 351 "../lib/comp/soc_act.s7i" */ striType *tmp_1; /* line 351 "../lib/comp/soc_act.s7i" */ tmp_1=&(((structType)(*o_9760_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 351 "../lib/comp/soc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 351 "../lib/comp/soc_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 351 "../lib/comp/soc_act.s7i" */ } else { /* line 351 "../lib/comp/soc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 351 "../lib/comp/soc_act.s7i" */ (*tmp_1)->size++; /* line 351 "../lib/comp/soc_act.s7i" */ } } } /* line 1 "no_file" */ /* 4492 */ /* line 355 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9761_SOC_SEND (const objRefType/*t_19_reference*/ o_9762_function, const listType/*t_20_ref_list*/ *const o_9763_params, structType/*t_164_expr_type*/ *const o_9764_c_expr) { /* line 359 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9764_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1801] /* "socSend(" */); /* line 360 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9763_params, 1L), o_9764_c_expr); /* line 361 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9764_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 362 "../lib/comp/soc_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9763_params, 2L), o_9764_c_expr); /* line 363 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9764_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 364 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9763_params, 3L), o_9764_c_expr); /* line 365 "../lib/comp/soc_act.s7i" */ { /* line 365 "../lib/comp/soc_act.s7i" */ striType *tmp_1; /* line 365 "../lib/comp/soc_act.s7i" */ tmp_1=&(((structType)(*o_9764_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 365 "../lib/comp/soc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 365 "../lib/comp/soc_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 365 "../lib/comp/soc_act.s7i" */ } else { /* line 365 "../lib/comp/soc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 365 "../lib/comp/soc_act.s7i" */ (*tmp_1)->size++; /* line 365 "../lib/comp/soc_act.s7i" */ } } } /* line 1 "no_file" */ /* 4493 */ /* line 369 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9765_SOC_SET_OPT_BOOL (const objRefType/*t_19_reference*/ o_9766_function, const listType/*t_20_ref_list*/ *const o_9767_params, structType/*t_164_expr_type*/ *const o_9768_c_expr) { /* line 373 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9768_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1802] /* "socSetOptBool(" */); /* line 374 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9767_params, 1L), o_9768_c_expr); /* line 375 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9768_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 376 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9767_params, 2L), o_9768_c_expr); /* line 377 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9768_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 378 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9767_params, 3L), o_9768_c_expr); /* line 379 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9768_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4494 */ /* line 383 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9769_SOC_SOCKET (const objRefType/*t_19_reference*/ o_9770_function, const listType/*t_20_ref_list*/ *const o_9771_params, structType/*t_164_expr_type*/ *const o_9772_c_expr) { /* line 387 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9772_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1803] /* "socSocket(" */); /* line 388 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9771_params, 1L), o_9772_c_expr); /* line 389 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9772_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 390 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9771_params, 2L), o_9772_c_expr); /* line 391 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9772_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 392 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9771_params, 3L), o_9772_c_expr); /* line 393 "../lib/comp/soc_act.s7i" */ { /* line 393 "../lib/comp/soc_act.s7i" */ striType *tmp_1; /* line 393 "../lib/comp/soc_act.s7i" */ tmp_1=&(((structType)(*o_9772_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 393 "../lib/comp/soc_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 393 "../lib/comp/soc_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 393 "../lib/comp/soc_act.s7i" */ } else { /* line 393 "../lib/comp/soc_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 393 "../lib/comp/soc_act.s7i" */ (*tmp_1)->size++; /* line 393 "../lib/comp/soc_act.s7i" */ } } } /* line 1 "no_file" */ /* 4495 */ /* line 397 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9773_SOC_WORD_READ (const objRefType/*t_19_reference*/ o_9774_function, const listType/*t_20_ref_list*/ *const o_9775_params, structType/*t_164_expr_type*/ *const o_9776_c_expr) { /* line 401 "../lib/comp/soc_act.s7i" */ o_4955_prepare_stri_result(o_9776_c_expr); /* line 402 "../lib/comp/soc_act.s7i" */ strCopy(&(((structType)(*o_9776_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1804] /* "socWordRead(" */); /* line 403 "../lib/comp/soc_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9775_params, 1L), o_9776_c_expr); /* line 404 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9776_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[766] /* ", &(" */); /* line 405 "../lib/comp/soc_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9775_params, 2L), o_9776_c_expr); /* line 406 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9776_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 4496 */ /* line 410 "../lib/comp/soc_act.s7i" */ static void/*t_1_void*/ o_9777_SOC_WRITE (const objRefType/*t_19_reference*/ o_9778_function, const listType/*t_20_ref_list*/ *const o_9779_params, structType/*t_164_expr_type*/ *const o_9780_c_expr) { /* line 414 "../lib/comp/soc_act.s7i" */ o_4819_setDiagnosticLine(o_9780_c_expr); /* line 415 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9780_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1805] /* "socWrite(" */); /* line 416 "../lib/comp/soc_act.s7i" */ o_4941_process_expr(rflIdx(*o_9779_params, 1L), o_9780_c_expr); /* line 417 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9780_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 418 "../lib/comp/soc_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9779_params, 2L), o_9780_c_expr); /* line 419 "../lib/comp/soc_act.s7i" */ strAppend(&(((structType)(*o_9780_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4497 */ /* line 65 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9781_sql_prototypes (interfaceType/*t_46_file*/ *const o_9782_c_prog) { /* line 68 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1806] /* "void sqlBindBigInt (sqlStmtType, intType, const const_bigIntType);" */); /* line 69 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1807] /* "void sqlBindBigRat (sqlStmtType, intType, const const_bigIntType, const const_bigIntType);" */); /* line 70 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1808] /* "void sqlBindBool (sqlStmtType, intType, boolType);" */); /* line 71 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1809] /* "void sqlBindBStri (sqlStmtType, intType, bstriType);" */); /* line 72 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1810] /* "void sqlBindDuration (sqlStmtType, intType, intType, intType, intType, intType, intType, intType, intType);" */); /* line 73 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1811] /* "void sqlBindFloat (sqlStmtType, intType, floatType);" */); /* line 74 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1812] /* "void sqlBindInt (sqlStmtType, intType, intType);" */); /* line 75 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1813] /* "void sqlBindNull (sqlStmtType, intType);" */); /* line 76 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1814] /* "void sqlBindStri (sqlStmtType, intType, striType);" */); /* line 77 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1815] /* "void sqlBindTime (sqlStmtType, intType, intType, intType, intType, intType, intType, intType, intType);" */); /* line 78 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1816] /* "void sqlClose (databaseType);" */); /* line 79 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1817] /* "bigIntType sqlColumnBigInt (sqlStmtType, intType);" */); /* line 80 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1818] /* "void sqlColumnBigRat (sqlStmtType, intType, bigIntType *, bigIntType * );" */); /* line 81 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1819] /* "boolType sqlColumnBool (sqlStmtType, intType);" */); /* line 82 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1820] /* "bstriType sqlColumnBStri (sqlStmtType, intType);" */); /* line 83 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1821] /* "void sqlColumnDuration (sqlStmtType, intType, intType *, intType *, intType *, intType *, intType *, intType *, intType * );" */); /* line 84 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1822] /* "floatType sqlColumnFloat (sqlStmtType, intType);" */); /* line 85 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1823] /* "intType sqlColumnInt (sqlStmtType, intType);" */); /* line 86 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1824] /* "striType sqlColumnStri (sqlStmtType, intType);" */); /* line 87 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1825] /* "void sqlColumnTime (sqlStmtType, intType, intType *, intType *, intType *, intType *, intType *, intType *, intType *, intType *, boolType * );" */); /* line 88 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1826] /* "void sqlCommit (databaseType);" */); /* line 89 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1827] /* "void sqlCpyDb (databaseType *const, const databaseType);" */); /* line 90 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1828] /* "void sqlCpyStmt (sqlStmtType *const, const sqlStmtType);" */); /* line 91 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1829] /* "databaseType sqlCreateDb (const databaseType);" */); /* line 92 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1830] /* "sqlStmtType sqlCreateStmt (const sqlStmtType);" */); /* line 93 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1831] /* "void sqlDestrDb (const databaseType);" */); /* line 94 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1832] /* "void sqlDestrStmt (const sqlStmtType);" */); /* line 95 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1833] /* "void sqlExecute (sqlStmtType);" */); /* line 96 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1834] /* "boolType sqlFetch (sqlStmtType);" */); /* line 97 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1835] /* "boolType sqlIsNull (sqlStmtType, intType);" */); /* line 98 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1836] /* "databaseType sqlOpen (intType, const const_striType, const const_striType, const const_striType);" */); /* line 99 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1837] /* "sqlStmtType sqlPrepare (databaseType, striType);" */); /* line 100 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1838] /* "intType sqlStmtColumnCount (sqlStmtType);" */); /* line 101 "../lib/comp/sql_act.s7i" */ o_6547_declareExtern(o_9782_c_prog, &str[1839] /* "striType sqlStmtColumnName (sqlStmtType, intType);" */); } /* line 1 "no_file" */ /* 4498 */ /* line 105 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9783_SQL_BIND_BIGINT (const objRefType/*t_19_reference*/ o_9784_function, const listType/*t_20_ref_list*/ *const o_9785_params, structType/*t_164_expr_type*/ *const o_9786_c_expr) { /* line 109 "../lib/comp/sql_act.s7i" */ structType/*t_164_expr_type*/ o_9787_statement; /* line 109 "../lib/comp/sql_act.s7i" */ o_9787_statement=create_164(sct[302]); /* line 111 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(o_9787_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1840] /* "sqlBindBigInt(" */); /* line 112 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9785_params, 1L), &(o_9787_statement)); /* line 113 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(o_9787_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 114 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9785_params, 2L), &(o_9787_statement)); /* line 115 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(o_9787_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 116 "../lib/comp/sql_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9785_params, 3L), &(o_9787_statement)); /* line 117 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(o_9787_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 118 "../lib/comp/sql_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_9787_statement, o_9786_c_expr); /* line 105 "../lib/comp/sql_act.s7i" */ destr_164(o_9787_statement); } /* line 1 "no_file" */ /* 4499 */ /* line 122 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9788_SQL_BIND_BIGRAT (const objRefType/*t_19_reference*/ o_9789_function, const listType/*t_20_ref_list*/ *const o_9790_params, structType/*t_164_expr_type*/ *const o_9791_c_expr) { /* line 126 "../lib/comp/sql_act.s7i" */ structType/*t_164_expr_type*/ o_9792_statement; /* line 126 "../lib/comp/sql_act.s7i" */ o_9792_statement=create_164(sct[303]); /* line 128 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(o_9792_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1841] /* "sqlBindBigRat(" */); /* line 129 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9790_params, 1L), &(o_9792_statement)); /* line 130 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(o_9792_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 131 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9790_params, 2L), &(o_9792_statement)); /* line 132 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(o_9792_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 133 "../lib/comp/sql_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9790_params, 3L), &(o_9792_statement)); /* line 134 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(o_9792_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 135 "../lib/comp/sql_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9790_params, 4L), &(o_9792_statement)); /* line 136 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(o_9792_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 137 "../lib/comp/sql_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_9792_statement, o_9791_c_expr); /* line 122 "../lib/comp/sql_act.s7i" */ destr_164(o_9792_statement); } /* line 1 "no_file" */ /* 4500 */ /* line 141 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9793_SQL_BIND_BOOL (const objRefType/*t_19_reference*/ o_9794_function, const listType/*t_20_ref_list*/ *const o_9795_params, structType/*t_164_expr_type*/ *const o_9796_c_expr) { /* line 145 "../lib/comp/sql_act.s7i" */ o_4819_setDiagnosticLine(o_9796_c_expr); /* line 146 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9796_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1842] /* "sqlBindBool(" */); /* line 147 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9795_params, 1L), o_9796_c_expr); /* line 148 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9796_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 149 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9795_params, 2L), o_9796_c_expr); /* line 150 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9796_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 151 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9795_params, 3L), o_9796_c_expr); /* line 152 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9796_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4501 */ /* line 156 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9797_SQL_BIND_BSTRI (const objRefType/*t_19_reference*/ o_9798_function, const listType/*t_20_ref_list*/ *const o_9799_params, structType/*t_164_expr_type*/ *const o_9800_c_expr) { /* line 160 "../lib/comp/sql_act.s7i" */ structType/*t_164_expr_type*/ o_9801_statement; /* line 160 "../lib/comp/sql_act.s7i" */ o_9801_statement=create_164(sct[304]); /* line 162 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(o_9801_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1843] /* "sqlBindBStri(" */); /* line 163 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9799_params, 1L), &(o_9801_statement)); /* line 164 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(o_9801_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 165 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9799_params, 2L), &(o_9801_statement)); /* line 166 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(o_9801_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 167 "../lib/comp/sql_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9799_params, 3L), &(o_9801_statement)); /* line 168 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(o_9801_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 169 "../lib/comp/sql_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_9801_statement, o_9800_c_expr); /* line 156 "../lib/comp/sql_act.s7i" */ destr_164(o_9801_statement); } /* line 1 "no_file" */ /* 4502 */ /* line 173 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9802_SQL_BIND_DURATION (const objRefType/*t_19_reference*/ o_9803_function, const listType/*t_20_ref_list*/ *const o_9804_params, structType/*t_164_expr_type*/ *const o_9805_c_expr) { /* line 177 "../lib/comp/sql_act.s7i" */ o_4819_setDiagnosticLine(o_9805_c_expr); /* line 178 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9805_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1844] /* "sqlBindDuration(" */); /* line 179 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9804_params, 1L), o_9805_c_expr); /* line 180 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9805_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 181 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9804_params, 2L), o_9805_c_expr); /* line 182 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9805_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 183 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9804_params, 3L), o_9805_c_expr); /* line 184 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9805_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 185 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9804_params, 4L), o_9805_c_expr); /* line 186 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9805_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 187 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9804_params, 5L), o_9805_c_expr); /* line 188 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9805_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 189 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9804_params, 6L), o_9805_c_expr); /* line 190 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9805_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 191 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9804_params, 7L), o_9805_c_expr); /* line 192 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9805_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 193 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9804_params, 8L), o_9805_c_expr); /* line 194 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9805_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 195 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9804_params, 9L), o_9805_c_expr); /* line 196 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9805_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4503 */ /* line 200 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9806_SQL_BIND_FLOAT (const objRefType/*t_19_reference*/ o_9807_function, const listType/*t_20_ref_list*/ *const o_9808_params, structType/*t_164_expr_type*/ *const o_9809_c_expr) { /* line 204 "../lib/comp/sql_act.s7i" */ o_4819_setDiagnosticLine(o_9809_c_expr); /* line 205 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9809_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1845] /* "sqlBindFloat(" */); /* line 206 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9808_params, 1L), o_9809_c_expr); /* line 207 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9809_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 208 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9808_params, 2L), o_9809_c_expr); /* line 209 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9809_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 210 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9808_params, 3L), o_9809_c_expr); /* line 211 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9809_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4504 */ /* line 215 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9810_SQL_BIND_INT (const objRefType/*t_19_reference*/ o_9811_function, const listType/*t_20_ref_list*/ *const o_9812_params, structType/*t_164_expr_type*/ *const o_9813_c_expr) { /* line 219 "../lib/comp/sql_act.s7i" */ o_4819_setDiagnosticLine(o_9813_c_expr); /* line 220 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9813_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1846] /* "sqlBindInt(" */); /* line 221 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9812_params, 1L), o_9813_c_expr); /* line 222 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9813_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 223 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9812_params, 2L), o_9813_c_expr); /* line 224 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9813_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 225 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9812_params, 3L), o_9813_c_expr); /* line 226 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9813_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4505 */ /* line 230 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9814_SQL_BIND_NULL (const objRefType/*t_19_reference*/ o_9815_function, const listType/*t_20_ref_list*/ *const o_9816_params, structType/*t_164_expr_type*/ *const o_9817_c_expr) { /* line 234 "../lib/comp/sql_act.s7i" */ o_4819_setDiagnosticLine(o_9817_c_expr); /* line 235 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9817_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1847] /* "sqlBindNull(" */); /* line 236 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9816_params, 1L), o_9817_c_expr); /* line 237 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9817_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 238 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9816_params, 2L), o_9817_c_expr); /* line 239 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9817_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4506 */ /* line 243 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9818_SQL_BIND_STRI (const objRefType/*t_19_reference*/ o_9819_function, const listType/*t_20_ref_list*/ *const o_9820_params, structType/*t_164_expr_type*/ *const o_9821_c_expr) { /* line 247 "../lib/comp/sql_act.s7i" */ structType/*t_164_expr_type*/ o_9822_statement; /* line 247 "../lib/comp/sql_act.s7i" */ o_9822_statement=create_164(sct[305]); /* line 249 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(o_9822_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1848] /* "sqlBindStri(" */); /* line 250 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9820_params, 1L), &(o_9822_statement)); /* line 251 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(o_9822_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 252 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9820_params, 2L), &(o_9822_statement)); /* line 253 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(o_9822_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 254 "../lib/comp/sql_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9820_params, 3L), &(o_9822_statement)); /* line 255 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(o_9822_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 256 "../lib/comp/sql_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_9822_statement, o_9821_c_expr); /* line 243 "../lib/comp/sql_act.s7i" */ destr_164(o_9822_statement); } /* line 1 "no_file" */ /* 4507 */ /* line 260 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9823_SQL_BIND_TIME (const objRefType/*t_19_reference*/ o_9824_function, const listType/*t_20_ref_list*/ *const o_9825_params, structType/*t_164_expr_type*/ *const o_9826_c_expr) { /* line 264 "../lib/comp/sql_act.s7i" */ o_4819_setDiagnosticLine(o_9826_c_expr); /* line 265 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9826_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1849] /* "sqlBindTime(" */); /* line 266 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9825_params, 1L), o_9826_c_expr); /* line 267 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9826_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 268 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9825_params, 2L), o_9826_c_expr); /* line 269 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9826_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 270 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9825_params, 3L), o_9826_c_expr); /* line 271 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9826_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 272 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9825_params, 4L), o_9826_c_expr); /* line 273 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9826_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 274 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9825_params, 5L), o_9826_c_expr); /* line 275 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9826_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 276 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9825_params, 6L), o_9826_c_expr); /* line 277 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9826_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 278 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9825_params, 7L), o_9826_c_expr); /* line 279 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9826_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 280 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9825_params, 8L), o_9826_c_expr); /* line 281 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9826_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 282 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9825_params, 9L), o_9826_c_expr); /* line 283 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9826_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4508 */ /* line 287 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9827_SQL_CLOSE (const objRefType/*t_19_reference*/ o_9828_function, const listType/*t_20_ref_list*/ *const o_9829_params, structType/*t_164_expr_type*/ *const o_9830_c_expr) { /* line 291 "../lib/comp/sql_act.s7i" */ o_4819_setDiagnosticLine(o_9830_c_expr); /* line 292 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9830_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1850] /* "sqlClose(" */); /* line 293 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9829_params, 1L), o_9830_c_expr); /* line 294 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9830_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4509 */ /* line 298 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9831_SQL_COLUMN_BIGINT (const objRefType/*t_19_reference*/ o_9832_function, const listType/*t_20_ref_list*/ *const o_9833_params, structType/*t_164_expr_type*/ *const o_9834_c_expr) { /* line 302 "../lib/comp/sql_act.s7i" */ o_4947_prepare_bigint_result(o_9834_c_expr); /* line 303 "../lib/comp/sql_act.s7i" */ strCopy(&(((structType)(*o_9834_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1851] /* "sqlColumnBigInt(" */); /* line 304 "../lib/comp/sql_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9833_params, 1L), o_9834_c_expr); /* line 305 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9834_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 306 "../lib/comp/sql_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9833_params, 2L), o_9834_c_expr); /* line 307 "../lib/comp/sql_act.s7i" */ { /* line 307 "../lib/comp/sql_act.s7i" */ striType *tmp_1; /* line 307 "../lib/comp/sql_act.s7i" */ tmp_1=&(((structType)(*o_9834_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 307 "../lib/comp/sql_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 307 "../lib/comp/sql_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 307 "../lib/comp/sql_act.s7i" */ } else { /* line 307 "../lib/comp/sql_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 307 "../lib/comp/sql_act.s7i" */ (*tmp_1)->size++; /* line 307 "../lib/comp/sql_act.s7i" */ } } } /* line 1 "no_file" */ /* 4510 */ /* line 311 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9835_SQL_COLUMN_BIGRAT (const objRefType/*t_19_reference*/ o_9836_function, const listType/*t_20_ref_list*/ *const o_9837_params, structType/*t_164_expr_type*/ *const o_9838_c_expr) { /* line 315 "../lib/comp/sql_act.s7i" */ o_4819_setDiagnosticLine(o_9838_c_expr); /* line 316 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1852] /* "sqlColumnBigRat(" */); /* line 317 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9837_params, 1L), o_9838_c_expr); /* line 318 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 319 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9837_params, 2L), o_9838_c_expr); /* line 320 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[766] /* ", &(" */); /* line 321 "../lib/comp/sql_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9837_params, 3L), o_9838_c_expr); /* line 322 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 323 "../lib/comp/sql_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9837_params, 4L), o_9838_c_expr); /* line 324 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9838_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); } /* line 1 "no_file" */ /* 4511 */ /* line 328 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9839_SQL_COLUMN_BOOL (const objRefType/*t_19_reference*/ o_9840_function, const listType/*t_20_ref_list*/ *const o_9841_params, structType/*t_164_expr_type*/ *const o_9842_c_expr) { /* line 332 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9842_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1853] /* "sqlColumnBool(" */); /* line 333 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9841_params, 1L), o_9842_c_expr); /* line 334 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9842_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 335 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9841_params, 2L), o_9842_c_expr); /* line 336 "../lib/comp/sql_act.s7i" */ { /* line 336 "../lib/comp/sql_act.s7i" */ striType *tmp_1; /* line 336 "../lib/comp/sql_act.s7i" */ tmp_1=&(((structType)(*o_9842_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 336 "../lib/comp/sql_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 336 "../lib/comp/sql_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 336 "../lib/comp/sql_act.s7i" */ } else { /* line 336 "../lib/comp/sql_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 336 "../lib/comp/sql_act.s7i" */ (*tmp_1)->size++; /* line 336 "../lib/comp/sql_act.s7i" */ } } } /* line 1 "no_file" */ /* 4512 */ /* line 340 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9843_SQL_COLUMN_BSTRI (const objRefType/*t_19_reference*/ o_9844_function, const listType/*t_20_ref_list*/ *const o_9845_params, structType/*t_164_expr_type*/ *const o_9846_c_expr) { /* line 344 "../lib/comp/sql_act.s7i" */ o_4957_prepare_bstri_result(o_9846_c_expr); /* line 345 "../lib/comp/sql_act.s7i" */ strCopy(&(((structType)(*o_9846_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1854] /* "sqlColumnBStri(" */); /* line 346 "../lib/comp/sql_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9845_params, 1L), o_9846_c_expr); /* line 347 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9846_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 348 "../lib/comp/sql_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9845_params, 2L), o_9846_c_expr); /* line 349 "../lib/comp/sql_act.s7i" */ { /* line 349 "../lib/comp/sql_act.s7i" */ striType *tmp_1; /* line 349 "../lib/comp/sql_act.s7i" */ tmp_1=&(((structType)(*o_9846_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 349 "../lib/comp/sql_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 349 "../lib/comp/sql_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 349 "../lib/comp/sql_act.s7i" */ } else { /* line 349 "../lib/comp/sql_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 349 "../lib/comp/sql_act.s7i" */ (*tmp_1)->size++; /* line 349 "../lib/comp/sql_act.s7i" */ } } } /* line 1 "no_file" */ /* 4513 */ /* line 353 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9847_SQL_COLUMN_DURATION (const objRefType/*t_19_reference*/ o_9848_function, const listType/*t_20_ref_list*/ *const o_9849_params, structType/*t_164_expr_type*/ *const o_9850_c_expr) { /* line 357 "../lib/comp/sql_act.s7i" */ o_4819_setDiagnosticLine(o_9850_c_expr); /* line 358 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9850_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1855] /* "sqlColumnDuration(" */); /* line 359 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9849_params, 1L), o_9850_c_expr); /* line 360 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9850_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 361 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9849_params, 2L), o_9850_c_expr); /* line 362 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9850_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[766] /* ", &(" */); /* line 363 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9849_params, 3L), o_9850_c_expr); /* line 364 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9850_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 365 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9849_params, 4L), o_9850_c_expr); /* line 366 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9850_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 367 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9849_params, 5L), o_9850_c_expr); /* line 368 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9850_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 369 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9849_params, 6L), o_9850_c_expr); /* line 370 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9850_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 371 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9849_params, 7L), o_9850_c_expr); /* line 372 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9850_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 373 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9849_params, 8L), o_9850_c_expr); /* line 374 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9850_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 375 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9849_params, 9L), o_9850_c_expr); /* line 376 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9850_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); } /* line 1 "no_file" */ /* 4514 */ /* line 380 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9851_SQL_COLUMN_FLOAT (const objRefType/*t_19_reference*/ o_9852_function, const listType/*t_20_ref_list*/ *const o_9853_params, structType/*t_164_expr_type*/ *const o_9854_c_expr) { /* line 384 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9854_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1856] /* "sqlColumnFloat(" */); /* line 385 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9853_params, 1L), o_9854_c_expr); /* line 386 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9854_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 387 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9853_params, 2L), o_9854_c_expr); /* line 388 "../lib/comp/sql_act.s7i" */ { /* line 388 "../lib/comp/sql_act.s7i" */ striType *tmp_1; /* line 388 "../lib/comp/sql_act.s7i" */ tmp_1=&(((structType)(*o_9854_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 388 "../lib/comp/sql_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 388 "../lib/comp/sql_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 388 "../lib/comp/sql_act.s7i" */ } else { /* line 388 "../lib/comp/sql_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 388 "../lib/comp/sql_act.s7i" */ (*tmp_1)->size++; /* line 388 "../lib/comp/sql_act.s7i" */ } } } /* line 1 "no_file" */ /* 4515 */ /* line 392 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9855_SQL_COLUMN_INT (const objRefType/*t_19_reference*/ o_9856_function, const listType/*t_20_ref_list*/ *const o_9857_params, structType/*t_164_expr_type*/ *const o_9858_c_expr) { /* line 396 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9858_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1857] /* "sqlColumnInt(" */); /* line 397 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9857_params, 1L), o_9858_c_expr); /* line 398 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9858_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 399 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9857_params, 2L), o_9858_c_expr); /* line 400 "../lib/comp/sql_act.s7i" */ { /* line 400 "../lib/comp/sql_act.s7i" */ striType *tmp_1; /* line 400 "../lib/comp/sql_act.s7i" */ tmp_1=&(((structType)(*o_9858_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 400 "../lib/comp/sql_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 400 "../lib/comp/sql_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 400 "../lib/comp/sql_act.s7i" */ } else { /* line 400 "../lib/comp/sql_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 400 "../lib/comp/sql_act.s7i" */ (*tmp_1)->size++; /* line 400 "../lib/comp/sql_act.s7i" */ } } } /* line 1 "no_file" */ /* 4516 */ /* line 404 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9859_SQL_COLUMN_STRI (const objRefType/*t_19_reference*/ o_9860_function, const listType/*t_20_ref_list*/ *const o_9861_params, structType/*t_164_expr_type*/ *const o_9862_c_expr) { /* line 408 "../lib/comp/sql_act.s7i" */ o_4955_prepare_stri_result(o_9862_c_expr); /* line 409 "../lib/comp/sql_act.s7i" */ strCopy(&(((structType)(*o_9862_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1858] /* "sqlColumnStri(" */); /* line 410 "../lib/comp/sql_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9861_params, 1L), o_9862_c_expr); /* line 411 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9862_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 412 "../lib/comp/sql_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9861_params, 2L), o_9862_c_expr); /* line 413 "../lib/comp/sql_act.s7i" */ { /* line 413 "../lib/comp/sql_act.s7i" */ striType *tmp_1; /* line 413 "../lib/comp/sql_act.s7i" */ tmp_1=&(((structType)(*o_9862_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 413 "../lib/comp/sql_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 413 "../lib/comp/sql_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 413 "../lib/comp/sql_act.s7i" */ } else { /* line 413 "../lib/comp/sql_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 413 "../lib/comp/sql_act.s7i" */ (*tmp_1)->size++; /* line 413 "../lib/comp/sql_act.s7i" */ } } } /* line 1 "no_file" */ /* 4517 */ /* line 417 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9863_SQL_COLUMN_TIME (const objRefType/*t_19_reference*/ o_9864_function, const listType/*t_20_ref_list*/ *const o_9865_params, structType/*t_164_expr_type*/ *const o_9866_c_expr) { /* line 421 "../lib/comp/sql_act.s7i" */ o_4819_setDiagnosticLine(o_9866_c_expr); /* line 422 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9866_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1859] /* "sqlColumnTime(" */); /* line 423 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9865_params, 1L), o_9866_c_expr); /* line 424 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9866_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 425 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9865_params, 2L), o_9866_c_expr); /* line 426 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9866_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[766] /* ", &(" */); /* line 427 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9865_params, 3L), o_9866_c_expr); /* line 428 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9866_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 429 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9865_params, 4L), o_9866_c_expr); /* line 430 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9866_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 431 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9865_params, 5L), o_9866_c_expr); /* line 432 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9866_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 433 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9865_params, 6L), o_9866_c_expr); /* line 434 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9866_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 435 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9865_params, 7L), o_9866_c_expr); /* line 436 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9866_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 437 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9865_params, 8L), o_9866_c_expr); /* line 438 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9866_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 439 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9865_params, 9L), o_9866_c_expr); /* line 440 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9866_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 441 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9865_params, 10L), o_9866_c_expr); /* line 442 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9866_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 443 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9865_params, 11L), o_9866_c_expr); /* line 444 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9866_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); } /* line 1 "no_file" */ /* 4518 */ /* line 448 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9867_SQL_COMMIT (const objRefType/*t_19_reference*/ o_9868_function, const listType/*t_20_ref_list*/ *const o_9869_params, structType/*t_164_expr_type*/ *const o_9870_c_expr) { /* line 452 "../lib/comp/sql_act.s7i" */ o_4819_setDiagnosticLine(o_9870_c_expr); /* line 453 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9870_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1860] /* "sqlCommit(" */); /* line 454 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9869_params, 1L), o_9870_c_expr); /* line 455 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9870_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4519 */ /* line 459 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9871_SQL_CPY_DB (const objRefType/*t_19_reference*/ o_9872_function, const listType/*t_20_ref_list*/ *const o_9873_params, structType/*t_164_expr_type*/ *const o_9874_c_expr) { /* line 463 "../lib/comp/sql_act.s7i" */ structType/*t_164_expr_type*/ o_9875_c_param1; /* line 464 "../lib/comp/sql_act.s7i" */ structType/*t_164_expr_type*/ o_9876_c_param3; /* line 463 "../lib/comp/sql_act.s7i" */ o_9875_c_param1=create_164(sct[306]); /* line 464 "../lib/comp/sql_act.s7i" */ o_9876_c_param3=create_164(sct[307]); /* line 466 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9873_params, 1L), &(o_9875_c_param1)); /* line 467 "../lib/comp/sql_act.s7i" */ ((structType)(o_9876_c_param3))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_9875_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 468 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9873_params, 3L), &(o_9876_c_param3)); /* line 469 "../lib/comp/sql_act.s7i" */ if (o_5049_has_temp_values(o_9876_c_param3)) { /* line 470 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9874_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 471 "../lib/comp/sql_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9875_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9874_c_expr); /* line 472 "../lib/comp/sql_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9876_c_param3))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9874_c_expr); /* line 473 "../lib/comp/sql_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9875_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9874_c_expr); /* line 474 "../lib/comp/sql_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9876_c_param3))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9874_c_expr); } /* line 476 "../lib/comp/sql_act.s7i" */ if (((((structType)(o_9876_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 477 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9874_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 478 "../lib/comp/sql_act.s7i" */ o_4819_setDiagnosticLine(o_9874_c_expr); /* line 479 "../lib/comp/sql_act.s7i" */ if (o_5018_isNormalVariable(rflIdx(*o_9873_params, 1L))) { /* line 480 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9874_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1861] /* "databaseType old_db=" */); /* line 481 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9874_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9875_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 482 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9874_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 483 "../lib/comp/sql_act.s7i" */ o_4819_setDiagnosticLine(o_9874_c_expr); /* line 484 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9874_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9875_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 485 "../lib/comp/sql_act.s7i" */ { /* line 485 "../lib/comp/sql_act.s7i" */ striType *tmp_1; /* line 485 "../lib/comp/sql_act.s7i" */ tmp_1=&(((structType)(*o_9874_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 485 "../lib/comp/sql_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 485 "../lib/comp/sql_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 485 "../lib/comp/sql_act.s7i" */ } else { /* line 485 "../lib/comp/sql_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 485 "../lib/comp/sql_act.s7i" */ (*tmp_1)->size++; /* line 485 "../lib/comp/sql_act.s7i" */ } } } else { /* line 487 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9874_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1862] /* "databaseType *db_ptr=&(" */); /* line 488 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9874_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9875_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 489 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9874_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 490 "../lib/comp/sql_act.s7i" */ o_4819_setDiagnosticLine(o_9874_c_expr); /* line 491 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9874_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1863] /* "databaseType old_db=*db_ptr;\n" */); /* line 492 "../lib/comp/sql_act.s7i" */ o_4819_setDiagnosticLine(o_9874_c_expr); /* line 493 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9874_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1864] /* "*db_ptr=" */); } /* line 495 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9874_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9876_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 496 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9874_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 497 "../lib/comp/sql_act.s7i" */ o_4819_setDiagnosticLine(o_9874_c_expr); /* line 498 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9874_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1865] /* "sqlDestrDb(old_db);\n" */); /* line 499 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9874_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } else { /* line 501 "../lib/comp/sql_act.s7i" */ o_4819_setDiagnosticLine(o_9874_c_expr); /* line 502 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9874_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1866] /* "sqlCpyDb(&(" */); /* line 503 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9874_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9875_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 504 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9874_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 505 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9874_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9876_c_param3))->stru[5].value.striValue/*->o_4783_expr*/); /* line 506 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9874_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 508 "../lib/comp/sql_act.s7i" */ if (o_5049_has_temp_values(o_9876_c_param3)) { /* line 509 "../lib/comp/sql_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9875_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9874_c_expr); /* line 510 "../lib/comp/sql_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9876_c_param3))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9874_c_expr); /* line 511 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9874_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 459 "../lib/comp/sql_act.s7i" */ destr_164(o_9875_c_param1); /* line 459 "../lib/comp/sql_act.s7i" */ destr_164(o_9876_c_param3); } /* line 1 "no_file" */ /* 4520 */ /* line 516 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9877_SQL_CPY_STMT (const objRefType/*t_19_reference*/ o_9878_function, const listType/*t_20_ref_list*/ *const o_9879_params, structType/*t_164_expr_type*/ *const o_9880_c_expr) { /* line 520 "../lib/comp/sql_act.s7i" */ structType/*t_164_expr_type*/ o_9881_c_param1; /* line 521 "../lib/comp/sql_act.s7i" */ structType/*t_164_expr_type*/ o_9882_c_param3; /* line 520 "../lib/comp/sql_act.s7i" */ o_9881_c_param1=create_164(sct[308]); /* line 521 "../lib/comp/sql_act.s7i" */ o_9882_c_param3=create_164(sct[309]); /* line 523 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9879_params, 1L), &(o_9881_c_param1)); /* line 524 "../lib/comp/sql_act.s7i" */ ((structType)(o_9882_c_param3))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_9881_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 525 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9879_params, 3L), &(o_9882_c_param3)); /* line 526 "../lib/comp/sql_act.s7i" */ if (o_5049_has_temp_values(o_9882_c_param3)) { /* line 527 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9880_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 528 "../lib/comp/sql_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9881_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9880_c_expr); /* line 529 "../lib/comp/sql_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9882_c_param3))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9880_c_expr); /* line 530 "../lib/comp/sql_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9881_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9880_c_expr); /* line 531 "../lib/comp/sql_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9882_c_param3))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9880_c_expr); } /* line 533 "../lib/comp/sql_act.s7i" */ if (((((structType)(o_9882_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 534 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9880_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 535 "../lib/comp/sql_act.s7i" */ o_4819_setDiagnosticLine(o_9880_c_expr); /* line 536 "../lib/comp/sql_act.s7i" */ if (o_5018_isNormalVariable(rflIdx(*o_9879_params, 1L))) { /* line 537 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9880_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1867] /* "sqlStmtType old_stmt=" */); /* line 538 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9880_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9881_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 539 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9880_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 540 "../lib/comp/sql_act.s7i" */ o_4819_setDiagnosticLine(o_9880_c_expr); /* line 541 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9880_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9881_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 542 "../lib/comp/sql_act.s7i" */ { /* line 542 "../lib/comp/sql_act.s7i" */ striType *tmp_1; /* line 542 "../lib/comp/sql_act.s7i" */ tmp_1=&(((structType)(*o_9880_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 542 "../lib/comp/sql_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 542 "../lib/comp/sql_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 542 "../lib/comp/sql_act.s7i" */ } else { /* line 542 "../lib/comp/sql_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 542 "../lib/comp/sql_act.s7i" */ (*tmp_1)->size++; /* line 542 "../lib/comp/sql_act.s7i" */ } } } else { /* line 544 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9880_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1868] /* "sqlStmtType *stmt_ptr=&(" */); /* line 545 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9880_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9881_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 546 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9880_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 547 "../lib/comp/sql_act.s7i" */ o_4819_setDiagnosticLine(o_9880_c_expr); /* line 548 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9880_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1869] /* "sqlStmtType old_stmt=*stmt_ptr;\n" */); /* line 549 "../lib/comp/sql_act.s7i" */ o_4819_setDiagnosticLine(o_9880_c_expr); /* line 550 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9880_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1870] /* "*stmt_ptr=" */); } /* line 552 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9880_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9882_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 553 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9880_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 554 "../lib/comp/sql_act.s7i" */ o_4819_setDiagnosticLine(o_9880_c_expr); /* line 555 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9880_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1871] /* "sqlDestrStmt(old_stmt);\n" */); /* line 556 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9880_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } else { /* line 558 "../lib/comp/sql_act.s7i" */ o_4819_setDiagnosticLine(o_9880_c_expr); /* line 559 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9880_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1872] /* "sqlCpyStmt(&(" */); /* line 560 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9880_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9881_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 561 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9880_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 562 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9880_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9882_c_param3))->stru[5].value.striValue/*->o_4783_expr*/); /* line 563 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9880_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 565 "../lib/comp/sql_act.s7i" */ if (o_5049_has_temp_values(o_9882_c_param3)) { /* line 566 "../lib/comp/sql_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9881_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9880_c_expr); /* line 567 "../lib/comp/sql_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9882_c_param3))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9880_c_expr); /* line 568 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9880_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 516 "../lib/comp/sql_act.s7i" */ destr_164(o_9881_c_param1); /* line 516 "../lib/comp/sql_act.s7i" */ destr_164(o_9882_c_param3); } /* line 1 "no_file" */ /* 4521 */ /* line 573 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9883_SQL_EXECUTE (const objRefType/*t_19_reference*/ o_9884_function, const listType/*t_20_ref_list*/ *const o_9885_params, structType/*t_164_expr_type*/ *const o_9886_c_expr) { /* line 577 "../lib/comp/sql_act.s7i" */ o_4819_setDiagnosticLine(o_9886_c_expr); /* line 578 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9886_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1873] /* "sqlExecute(" */); /* line 579 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9885_params, 1L), o_9886_c_expr); /* line 580 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9886_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4522 */ /* line 584 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9887_SQL_FETCH (const objRefType/*t_19_reference*/ o_9888_function, const listType/*t_20_ref_list*/ *const o_9889_params, structType/*t_164_expr_type*/ *const o_9890_c_expr) { /* line 588 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9890_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1874] /* "sqlFetch(" */); /* line 589 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9889_params, 1L), o_9890_c_expr); /* line 590 "../lib/comp/sql_act.s7i" */ { /* line 590 "../lib/comp/sql_act.s7i" */ striType *tmp_1; /* line 590 "../lib/comp/sql_act.s7i" */ tmp_1=&(((structType)(*o_9890_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 590 "../lib/comp/sql_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 590 "../lib/comp/sql_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 590 "../lib/comp/sql_act.s7i" */ } else { /* line 590 "../lib/comp/sql_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 590 "../lib/comp/sql_act.s7i" */ (*tmp_1)->size++; /* line 590 "../lib/comp/sql_act.s7i" */ } } } /* line 1 "no_file" */ /* 4523 */ /* line 594 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9891_SQL_IS_NULL (const objRefType/*t_19_reference*/ o_9892_function, const listType/*t_20_ref_list*/ *const o_9893_params, structType/*t_164_expr_type*/ *const o_9894_c_expr) { /* line 598 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9894_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1875] /* "sqlIsNull(" */); /* line 599 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9893_params, 1L), o_9894_c_expr); /* line 600 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9894_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 601 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9893_params, 2L), o_9894_c_expr); /* line 602 "../lib/comp/sql_act.s7i" */ { /* line 602 "../lib/comp/sql_act.s7i" */ striType *tmp_1; /* line 602 "../lib/comp/sql_act.s7i" */ tmp_1=&(((structType)(*o_9894_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 602 "../lib/comp/sql_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 602 "../lib/comp/sql_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 602 "../lib/comp/sql_act.s7i" */ } else { /* line 602 "../lib/comp/sql_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 602 "../lib/comp/sql_act.s7i" */ (*tmp_1)->size++; /* line 602 "../lib/comp/sql_act.s7i" */ } } } /* line 1 "no_file" */ /* 4524 */ /* line 606 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9895_SQL_OPEN (const objRefType/*t_19_reference*/ o_9896_function, const listType/*t_20_ref_list*/ *const o_9897_params, structType/*t_164_expr_type*/ *const o_9898_c_expr) { { /* line 610 "../lib/comp/sql_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 610 "../lib/comp/sql_act.s7i" */ o_4944_prepare_typed_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_9896_function))), &tmp_1), o_9898_c_expr); } /* line 611 "../lib/comp/sql_act.s7i" */ strCopy(&(((structType)(*o_9898_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1876] /* "sqlOpen(" */); /* line 612 "../lib/comp/sql_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9897_params, 1L), o_9898_c_expr); /* line 613 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9898_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 614 "../lib/comp/sql_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9897_params, 2L), o_9898_c_expr); /* line 615 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9898_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 616 "../lib/comp/sql_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9897_params, 3L), o_9898_c_expr); /* line 617 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9898_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 618 "../lib/comp/sql_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9897_params, 4L), o_9898_c_expr); /* line 619 "../lib/comp/sql_act.s7i" */ { /* line 619 "../lib/comp/sql_act.s7i" */ striType *tmp_1; /* line 619 "../lib/comp/sql_act.s7i" */ tmp_1=&(((structType)(*o_9898_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 619 "../lib/comp/sql_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 619 "../lib/comp/sql_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 619 "../lib/comp/sql_act.s7i" */ } else { /* line 619 "../lib/comp/sql_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 619 "../lib/comp/sql_act.s7i" */ (*tmp_1)->size++; /* line 619 "../lib/comp/sql_act.s7i" */ } } } /* line 1 "no_file" */ /* 4525 */ /* line 623 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9899_SQL_PREPARE (const objRefType/*t_19_reference*/ o_9900_function, const listType/*t_20_ref_list*/ *const o_9901_params, structType/*t_164_expr_type*/ *const o_9902_c_expr) { { /* line 627 "../lib/comp/sql_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 627 "../lib/comp/sql_act.s7i" */ o_4944_prepare_typed_result(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_9900_function))), &tmp_1), o_9902_c_expr); } /* line 628 "../lib/comp/sql_act.s7i" */ strCopy(&(((structType)(*o_9902_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1877] /* "sqlPrepare(" */); /* line 629 "../lib/comp/sql_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9901_params, 1L), o_9902_c_expr); /* line 630 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9902_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 631 "../lib/comp/sql_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9901_params, 2L), o_9902_c_expr); /* line 632 "../lib/comp/sql_act.s7i" */ { /* line 632 "../lib/comp/sql_act.s7i" */ striType *tmp_1; /* line 632 "../lib/comp/sql_act.s7i" */ tmp_1=&(((structType)(*o_9902_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 632 "../lib/comp/sql_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 632 "../lib/comp/sql_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 632 "../lib/comp/sql_act.s7i" */ } else { /* line 632 "../lib/comp/sql_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 632 "../lib/comp/sql_act.s7i" */ (*tmp_1)->size++; /* line 632 "../lib/comp/sql_act.s7i" */ } } } /* line 1 "no_file" */ /* 4526 */ /* line 636 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9903_SQL_STMT_COLUMN_COUNT (const objRefType/*t_19_reference*/ o_9904_function, const listType/*t_20_ref_list*/ *const o_9905_params, structType/*t_164_expr_type*/ *const o_9906_c_expr) { /* line 640 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9906_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1878] /* "sqlStmtColumnCount(" */); /* line 641 "../lib/comp/sql_act.s7i" */ o_4941_process_expr(rflIdx(*o_9905_params, 1L), o_9906_c_expr); /* line 642 "../lib/comp/sql_act.s7i" */ { /* line 642 "../lib/comp/sql_act.s7i" */ striType *tmp_1; /* line 642 "../lib/comp/sql_act.s7i" */ tmp_1=&(((structType)(*o_9906_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 642 "../lib/comp/sql_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 642 "../lib/comp/sql_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 642 "../lib/comp/sql_act.s7i" */ } else { /* line 642 "../lib/comp/sql_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 642 "../lib/comp/sql_act.s7i" */ (*tmp_1)->size++; /* line 642 "../lib/comp/sql_act.s7i" */ } } } /* line 1 "no_file" */ /* 4527 */ /* line 646 "../lib/comp/sql_act.s7i" */ static void/*t_1_void*/ o_9907_SQL_STMT_COLUMN_NAME (const objRefType/*t_19_reference*/ o_9908_function, const listType/*t_20_ref_list*/ *const o_9909_params, structType/*t_164_expr_type*/ *const o_9910_c_expr) { /* line 650 "../lib/comp/sql_act.s7i" */ o_4955_prepare_stri_result(o_9910_c_expr); /* line 651 "../lib/comp/sql_act.s7i" */ strCopy(&(((structType)(*o_9910_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1879] /* "sqlStmtColumnName(" */); /* line 652 "../lib/comp/sql_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9909_params, 1L), o_9910_c_expr); /* line 653 "../lib/comp/sql_act.s7i" */ strAppend(&(((structType)(*o_9910_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 654 "../lib/comp/sql_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9909_params, 2L), o_9910_c_expr); /* line 655 "../lib/comp/sql_act.s7i" */ { /* line 655 "../lib/comp/sql_act.s7i" */ striType *tmp_1; /* line 655 "../lib/comp/sql_act.s7i" */ tmp_1=&(((structType)(*o_9910_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 655 "../lib/comp/sql_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 655 "../lib/comp/sql_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 655 "../lib/comp/sql_act.s7i" */ } else { /* line 655 "../lib/comp/sql_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 655 "../lib/comp/sql_act.s7i" */ (*tmp_1)->size++; /* line 655 "../lib/comp/sql_act.s7i" */ } } } /* line 1 "no_file" */ /* 4528 */ /* line 75 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_9911_str_prototypes (interfaceType/*t_46_file*/ *const o_9912_c_prog) { /* line 78 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1880] /* "void strAppend (striType *const, const_striType);" */); /* line 79 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1881] /* "void strAppendTemp (striType *const, const striType);" */); /* line 80 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1882] /* "intType strChIPos (const const_striType, const charType, const intType);" */); /* line 81 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1883] /* "striType strChMult (const charType, const intType);" */); /* line 82 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1884] /* "intType strChPos (const const_striType, const charType);" */); /* line 83 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1885] /* "arrayType strChSplit (const const_striType, const charType);" */); /* line 84 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1886] /* "intType strCmpGeneric (const genericType, const genericType);" */); /* line 85 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1887] /* "intType strCompare (const const_striType, const const_striType);" */); /* line 86 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1888] /* "striType strConcat (const const_striType, const const_striType);" */); /* line 87 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1889] /* "striType strConcatN (const const_striType[], memSizeType);" */); /* line 88 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1890] /* "striType strConcatTemp (striType, const const_striType);" */); /* line 89 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1891] /* "striType strCLit (const const_striType);" */); /* line 90 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1892] /* "void strCopy (striType *const, const const_striType);" */); /* line 91 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1893] /* "void strCpyGeneric (genericType *const, const genericType);" */); /* line 92 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1894] /* "striType strCreate (const const_striType);" */); /* line 93 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1895] /* "genericType strCreateGeneric (const genericType);" */); /* line 94 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1896] /* "void strDestr (const const_striType);" */); /* line 95 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1897] /* "void strDestrGeneric (const genericType);" */); /* line 96 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1898] /* "striType strEmpty(void);" */); /* line 97 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1899] /* "boolType strGe (const const_striType, const const_striType);" */); /* line 98 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1900] /* "boolType strGt (const const_striType, const const_striType);" */); /* line 99 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1901] /* "intType strHashCode (const const_striType);" */); /* line 100 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1902] /* "striType strHead (const_striType, intType);" */); /* line 101 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1903] /* "void strHeadSlice (const const_striType, const intType, striType);" */); /* line 102 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1904] /* "striType strHeadTemp (const striType, const intType);" */); /* line 103 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1905] /* "intType strIPos (const const_striType, const const_striType, const intType);" */); /* line 104 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1906] /* "boolType strLe (const const_striType, const const_striType);" */); /* line 105 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1907] /* "striType strLit (const const_striType);" */); /* line 106 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1908] /* "striType strLow (const const_striType);" */); /* line 107 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1909] /* "striType strLowTemp (const striType);" */); /* line 108 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1910] /* "striType strLpad (const const_striType, const intType);" */); /* line 109 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1911] /* "striType strLpadTemp (const striType, const intType);" */); /* line 110 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1912] /* "striType strLpad0 (const const_striType, const intType);" */); /* line 111 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1913] /* "striType strLpad0Temp (const striType, const intType);" */); /* line 112 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1914] /* "boolType strLt (const const_striType, const const_striType);" */); /* line 113 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1915] /* "striType strLtrim (const const_striType);" */); /* line 114 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1916] /* "striType strMult (const const_striType, const intType);" */); /* line 115 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1917] /* "intType strPos (const const_striType, const const_striType);" */); /* line 116 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1918] /* "void strPush (striType *const, const charType);" */); /* line 117 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1919] /* "striType strRange (const_striType, intType, intType);" */); /* line 118 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1920] /* "void strRangeSlice (const const_striType, intType, intType, striType);" */); /* line 119 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1921] /* "intType strRChIPos (const const_striType, const charType, const intType);" */); /* line 120 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1922] /* "intType strRChPos (const const_striType, const charType);" */); /* line 121 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1923] /* "striType strRepl (const const_striType, const const_striType, const const_striType);" */); /* line 122 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1924] /* "intType strRIPos (const const_striType, const const_striType, const intType);" */); /* line 123 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1925] /* "striType strRpad (const const_striType, const intType);" */); /* line 124 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1926] /* "intType strRPos (const const_striType, const const_striType);" */); /* line 125 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1927] /* "striType strRtrim (const const_striType);" */); /* line 126 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1928] /* "arrayType strSplit (const const_striType, const const_striType);" */); /* line 127 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1929] /* "striType strSubstr (const_striType, intType, intType);" */); /* line 128 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1930] /* "void strSubstrSlice (const const_striType, intType, intType, striType);" */); /* line 129 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1931] /* "striType strTail (const_striType, intType);" */); /* line 130 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1932] /* "void strTailSlice (const const_striType, intType, striType);" */); /* line 131 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1933] /* "striType strToUtf8 (const const_striType);" */); /* line 132 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1934] /* "striType strTrim (const const_striType);" */); /* line 133 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1935] /* "striType strUp (const const_striType);" */); /* line 134 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1936] /* "striType strUpTemp (const striType);" */); /* line 135 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1937] /* "striType strUtf8ToStri (const_striType);" */); /* line 136 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1938] /* "striType strValue (objRefType);" */); /* line 137 "../lib/comp/str_act.s7i" */ o_6547_declareExtern(o_9912_c_prog, &str[1939] /* "striType strZero (const intType);" */); } /* line 1 "no_file" */ /* 4529 */ /* line 141 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_9913_process_const_inline_str_push (const objRefType/*t_19_reference*/ o_9914_param1, const charType/*t_18_char*/ o_9915_ch, structType/*t_164_expr_type*/ *const o_9916_c_expr) { /* line 145 "../lib/comp/str_act.s7i" */ structType/*t_164_expr_type*/ o_9917_statement; /* line 146 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_9918_stri_name; /* line 145 "../lib/comp/str_act.s7i" */ o_9917_statement=create_164(sct[310]); /* line 146 "../lib/comp/str_act.s7i" */ o_9918_stri_name=strEmpty(); /* "" */ /* line 148 "../lib/comp/str_act.s7i" */ if (o_5018_isNormalVariable(o_9914_param1)) { { /* line 149 "../lib/comp/str_act.s7i" */ striType old_stri=o_9918_stri_name; /* line 149 "../lib/comp/str_act.s7i" */ o_9918_stri_name=o_5020_normalVariable(o_9914_param1, &(o_9917_statement)); /* line 149 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } } else { /* line 151 "../lib/comp/str_act.s7i" */ ++(((structType)(o_9917_statement))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 152 "../lib/comp/str_act.s7i" */ union { /* line 152 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 152 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 152 "../lib/comp/str_act.s7i" */ } buffer_2; /* line 152 "../lib/comp/str_act.s7i" */ striType old_stri=o_9918_stri_name; /* line 152 "../lib/comp/str_act.s7i" */ o_9918_stri_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(o_9917_statement))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 152 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } /* line 153 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_9917_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[1940] /* "striType *" */); /* line 154 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_9917_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_9918_stri_name); /* line 155 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_9917_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 156 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_9917_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_9918_stri_name); /* line 157 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_9917_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[307] /* "=&(" */); /* line 158 "../lib/comp/str_act.s7i" */ o_4941_process_expr(o_9914_param1, &(o_9917_statement)); /* line 159 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_9917_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); { /* line 160 "../lib/comp/str_act.s7i" */ striType old_stri=o_9918_stri_name; /* line 160 "../lib/comp/str_act.s7i" */ o_9918_stri_name=strConcat(&str[1019] /* "*" */, o_9918_stri_name); /* line 160 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } } /* line 162 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_9917_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1338] /* "if ((" */); /* line 163 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_9917_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_9918_stri_name); /* line 164 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_9917_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1941] /* ")->size == (" */); /* line 165 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_9917_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_9918_stri_name); /* line 166 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_9917_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1942] /* ")->capacity) {\n" */); /* line 167 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_9917_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1943] /* "strPush(&(" */); /* line 168 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_9917_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_9918_stri_name); /* line 169 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_9917_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 170 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(o_9917_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6500_charLiteral(o_9915_ch)); /* line 171 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_9917_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 172 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_9917_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[222] /* "} else {\n" */); /* line 173 "../lib/comp/str_act.s7i" */ { /* line 173 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 173 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(o_9917_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 173 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 173 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 173 "../lib/comp/str_act.s7i" */ } else { /* line 173 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 173 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 173 "../lib/comp/str_act.s7i" */ } } /* line 174 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_9917_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_9918_stri_name); /* line 175 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_9917_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[674] /* ")->mem[(" */); /* line 176 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_9917_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_9918_stri_name); /* line 177 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_9917_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1944] /* ")->size]=" */); /* line 178 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(o_9917_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_6500_charLiteral(o_9915_ch)); /* line 179 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_9917_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 180 "../lib/comp/str_act.s7i" */ { /* line 180 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 180 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(o_9917_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 180 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 180 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 180 "../lib/comp/str_act.s7i" */ } else { /* line 180 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 180 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 180 "../lib/comp/str_act.s7i" */ } } /* line 181 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_9917_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_9918_stri_name); /* line 182 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_9917_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1945] /* ")->size++;\n" */); /* line 183 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_9917_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 184 "../lib/comp/str_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_9917_statement, o_9916_c_expr); /* line 141 "../lib/comp/str_act.s7i" */ destr_164(o_9917_statement); /* line 141 "../lib/comp/str_act.s7i" */ strDestr(o_9918_stri_name); } /* line 1 "no_file" */ /* 4530 */ /* line 188 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_9919_process_const_str_push (const objRefType/*t_19_reference*/ o_9920_param1, const charType/*t_18_char*/ o_9921_ch, structType/*t_164_expr_type*/ *const o_9922_c_expr) { /* line 192 "../lib/comp/str_act.s7i" */ if ((o_3458_inlineFunctions) && /* line 192 "../lib/comp/str_act.s7i" */ (((structType)(sct[55]))->stru[0].value.boolValue/*->o_3378_WITH_STRI_CAPACITY*/)) { /* line 193 "../lib/comp/str_act.s7i" */ o_9913_process_const_inline_str_push(o_9920_param1, o_9921_ch, o_9922_c_expr); } else { /* line 195 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9922_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1943] /* "strPush(&(" */); /* line 196 "../lib/comp/str_act.s7i" */ o_4941_process_expr(o_9920_param1, o_9922_c_expr); /* line 197 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9922_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 198 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_9922_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6500_charLiteral(o_9921_ch)); /* line 199 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9922_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } } /* line 1 "no_file" */ /* 4531 */ /* line 204 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_9923_process_const_str_append (const objRefType/*t_19_reference*/ o_9924_param1, const const_striType/*t_15_string*/ o_9925_stri, structType/*t_164_expr_type*/ *const o_9926_c_expr) { /* line 208 "../lib/comp/str_act.s7i" */ o_4819_setDiagnosticLine(o_9926_c_expr); /* line 209 "../lib/comp/str_act.s7i" */ if (((o_9925_stri)->size==0 /* "" */)) { /* line 210 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); /* line 211 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1946] /* "/* append empty string *\/\n" */); } else /* line 212 "../lib/comp/str_act.s7i" */ if (((intType)((o_9925_stri)->size)) == (1L)) { /* line 213 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); /* line 214 "../lib/comp/str_act.s7i" */ o_9919_process_const_str_push(o_9924_param1, (o_9925_stri)->mem[(idxChk((o_9925_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)], o_9926_c_expr); } else { /* line 216 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1947] /* "strAppend(&(" */); /* line 217 "../lib/comp/str_act.s7i" */ o_4941_process_expr(o_9924_param1, o_9926_c_expr); /* line 218 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 219 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_9926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6494_stringLiteral(o_9925_stri)); /* line 220 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9926_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } } /* line 1 "no_file" */ /* 4532 */ /* line 225 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_9927_STR_APPEND (const objRefType/*t_19_reference*/ o_9928_function, const listType/*t_20_ref_list*/ *const o_9929_params, structType/*t_164_expr_type*/ *const o_9930_c_expr) { /* line 229 "../lib/comp/str_act.s7i" */ objRefType/*t_19_reference*/ o_9931_evaluatedParam=NULL; /* line 230 "../lib/comp/str_act.s7i" */ structType/*t_164_expr_type*/ o_9932_c_param1; /* line 231 "../lib/comp/str_act.s7i" */ structType/*t_164_expr_type*/ o_9933_c_param3; /* line 230 "../lib/comp/str_act.s7i" */ o_9932_c_param1=create_164(sct[311]); /* line 231 "../lib/comp/str_act.s7i" */ o_9933_c_param3=create_164(sct[312]); /* line 233 "../lib/comp/str_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_9929_params, 3L), 12L, &(o_9931_evaluatedParam))) { { /* line 234 "../lib/comp/str_act.s7i" */ striType tmp_1 = NULL; /* line 234 "../lib/comp/str_act.s7i" */ o_9923_process_const_str_append(rflIdx(*o_9929_params, 1L), (tmp_1=strValue(o_9931_evaluatedParam)), o_9930_c_expr); /* line 234 "../lib/comp/str_act.s7i" */ strDestr(tmp_1); } } else { /* line 236 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_9929_params, 1L), &(o_9932_c_param1)); /* line 237 "../lib/comp/str_act.s7i" */ ((structType)(o_9933_c_param3))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_9932_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 238 "../lib/comp/str_act.s7i" */ if (o_5093_isActionExpression(rflIdx(*o_9929_params, 3L), &str[1948] /* "CHR_STR" */)) { /* line 239 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); /* line 240 "../lib/comp/str_act.s7i" */ o_4941_process_expr(o_5098_getActionParameter(rflIdx(*o_9929_params, 3L), 1L), &(o_9933_c_param3)); } else { /* line 242 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_9929_params, 3L), &(o_9933_c_param3)); } /* line 244 "../lib/comp/str_act.s7i" */ if (o_5049_has_temp_values(o_9933_c_param3)) { /* line 245 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9930_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 246 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9932_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9930_c_expr); /* line 247 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9933_c_param3))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9930_c_expr); /* line 248 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9932_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9930_c_expr); /* line 249 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9933_c_param3))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9930_c_expr); } /* line 251 "../lib/comp/str_act.s7i" */ o_4819_setDiagnosticLine(o_9930_c_expr); /* line 252 "../lib/comp/str_act.s7i" */ if (o_5093_isActionExpression(rflIdx(*o_9929_params, 3L), &str[1948] /* "CHR_STR" */)) { /* line 253 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9930_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1943] /* "strPush(&(" */); /* line 254 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9930_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9932_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 255 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9930_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 256 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9930_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9933_c_param3))->stru[5].value.striValue/*->o_4783_expr*/); } else /* line 257 "../lib/comp/str_act.s7i" */ if (((((structType)(o_9933_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 258 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9930_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1949] /* "strAppendTemp(&(" */); /* line 259 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9930_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9932_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 260 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9930_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 261 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9930_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9933_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 263 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9930_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1947] /* "strAppend(&(" */); /* line 264 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9930_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9932_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 265 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9930_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 266 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9930_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9933_c_param3))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 268 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9930_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 269 "../lib/comp/str_act.s7i" */ if (o_5049_has_temp_values(o_9933_c_param3)) { /* line 270 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9932_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9930_c_expr); /* line 271 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9933_c_param3))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9930_c_expr); /* line 272 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9930_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } } /* line 225 "../lib/comp/str_act.s7i" */ destr_164(o_9932_c_param1); /* line 225 "../lib/comp/str_act.s7i" */ destr_164(o_9933_c_param3); } /* line 1 "no_file" */ /* 4533 */ /* line 287 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_9934_STR_CAT (const objRefType/*t_19_reference*/ o_9935_function, const listType/*t_20_ref_list*/ *const o_9936_params, structType/*t_164_expr_type*/ *const o_9937_c_expr) { /* line 291 "../lib/comp/str_act.s7i" */ objRefType/*t_19_reference*/ o_9938_leftParam=NULL; /* line 292 "../lib/comp/str_act.s7i" */ arrayType/*t_128_*ANONYM_TYPE**/ o_9939_concatNParamList; /* line 293 "../lib/comp/str_act.s7i" */ boolType/*t_13_boolean*/ o_9940_concatFound=0/*FALSE*/; /* line 294 "../lib/comp/str_act.s7i" */ listType/*t_20_ref_list*/ o_9941_subExprParams=NULL; /* line 295 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_9942_concatNParamName; /* line 296 "../lib/comp/str_act.s7i" */ intType/*t_14_integer*/ o_9943_index=0; /* line 297 "../lib/comp/str_act.s7i" */ structType/*t_164_expr_type*/ o_9944_c_param1; /* line 292 "../lib/comp/str_act.s7i" */ o_9939_concatNParamList=create_128(arr[313]); /* line 295 "../lib/comp/str_act.s7i" */ o_9942_concatNParamName=strEmpty(); /* "" */ /* line 297 "../lib/comp/str_act.s7i" */ o_9944_c_param1=create_164(sct[314]); /* line 299 "../lib/comp/str_act.s7i" */ o_4955_prepare_stri_result(o_9937_c_expr); /* line 300 "../lib/comp/str_act.s7i" */ o_9938_leftParam=rflIdx(*o_9936_params, 1L); { /* line 301 "../lib/comp/str_act.s7i" */ arrayType old_array=o_9939_concatNParamList; /* line 301 "../lib/comp/str_act.s7i" */ o_9939_concatNParamList=arrBaselit((genericType)(rflIdx(*o_9936_params, 3L))); /* line 301 "../lib/comp/str_act.s7i" */ destr_128(old_array); } /* line 302 "../lib/comp/str_act.s7i" */ do { /* line 303 "../lib/comp/str_act.s7i" */ o_9940_concatFound=o_25_FALSE; /* line 304 "../lib/comp/str_act.s7i" */ if ((refCategory(o_9938_leftParam)) == (5L)) { { /* line 305 "../lib/comp/str_act.s7i" */ listType old_rfl=o_9941_subExprParams; /* line 305 "../lib/comp/str_act.s7i" */ o_9941_subExprParams=rflValue(o_9938_leftParam); /* line 305 "../lib/comp/str_act.s7i" */ rflDestr(old_rfl); } /* line 306 "../lib/comp/str_act.s7i" */ if ((refCategory(rflIdx(o_9941_subExprParams, 1L))) == (33L)) { { /* line 307 "../lib/comp/str_act.s7i" */ const_striType tmp_1; /* line 307 "../lib/comp/str_act.s7i" */ striType tmp_2 = NULL; /* line 307 "../lib/comp/str_act.s7i" */ if ((tmp_1=(tmp_2=actStr(actValue(rflIdx(o_9941_subExprParams, 1L)))),tmp_1->size==7&&memcmp(tmp_1->mem,(&str[1950] /* "STR_CAT" */)->mem,7*sizeof(strElemType))==0)) { /* line 308 "../lib/comp/str_act.s7i" */ o_9938_leftParam=rflIdx(o_9941_subExprParams, 2L); { { /* line 309 "../lib/comp/str_act.s7i" */ arrayType old_array=o_9939_concatNParamList; /* line 309 "../lib/comp/str_act.s7i" */ o_9939_concatNParamList=arrCat(arrBaselit((genericType)(rflIdx(o_9941_subExprParams, 4L))), create_128(o_9939_concatNParamList)); /* line 309 "../lib/comp/str_act.s7i" */ destr_128(old_array); } } /* line 310 "../lib/comp/str_act.s7i" */ o_9940_concatFound=o_26_TRUE; } /* line 307 "../lib/comp/str_act.s7i" */ strDestr(tmp_2); } } } /* line 314 "../lib/comp/str_act.s7i" */ } while (!(!(o_9940_concatFound))); { { /* line 315 "../lib/comp/str_act.s7i" */ arrayType old_array=o_9939_concatNParamList; /* line 315 "../lib/comp/str_act.s7i" */ o_9939_concatNParamList=arrCat(arrBaselit((genericType)(o_9938_leftParam)), create_128(o_9939_concatNParamList)); /* line 315 "../lib/comp/str_act.s7i" */ destr_128(old_array); } } /* line 316 "../lib/comp/str_act.s7i" */ if ((((o_9939_concatNParamList)->max_position - (o_9939_concatNParamList)->min_position + 1)) > (2L)) { /* line 317 "../lib/comp/str_act.s7i" */ ++(((structType)(*o_9937_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 318 "../lib/comp/str_act.s7i" */ union { /* line 318 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 318 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 318 "../lib/comp/str_act.s7i" */ } buffer_2; /* line 318 "../lib/comp/str_act.s7i" */ striType old_stri=o_9942_concatNParamName; /* line 318 "../lib/comp/str_act.s7i" */ o_9942_concatNParamName=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_9937_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 318 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } /* line 319 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9937_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[1951] /* "const_striType " */); /* line 320 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9937_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_9942_concatNParamName); /* line 321 "../lib/comp/str_act.s7i" */ { /* line 321 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 321 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_9937_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 321 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 321 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '['); /* line 321 "../lib/comp/str_act.s7i" */ } else { /* line 321 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '['; /* line 321 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 321 "../lib/comp/str_act.s7i" */ } } { /* line 322 "../lib/comp/str_act.s7i" */ union { /* line 322 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 322 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 322 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 322 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9937_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), intStrToBuffer(((o_9939_concatNParamList)->max_position - (o_9939_concatNParamList)->min_position + 1), &buffer_1.striBuf)); } /* line 323 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9937_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[1952] /* "];\n" */); /* line 324 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_9937_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[32] /* "(" */); /* inline proc o_3528_for */ { /* inline params */ /* line 325 "../lib/comp/str_act.s7i" */ intType/*t_14_integer*/ *const o_9945_keyVar=&(o_9943_index); /* line 325 "../lib/comp/str_act.s7i" */ const const_arrayType/*t_128_*ANONYM_TYPE**/ o_9946_arr=o_9939_concatNParamList; /* line 325 "../lib/comp/str_act.s7i" */ /* push proc param o_9947_statements */ /* line 325 "../lib/comp/str_act.s7i" */ /* inline local_vars */ /* inline body */ { /* line 214 "../lib/array.s7i" */ intType tmp_e_1=(o_9946_arr)->max_position; /* line 214 "../lib/array.s7i" */ for (*o_9945_keyVar=(o_9946_arr)->min_position; *o_9945_keyVar<=tmp_e_1; (*o_9945_keyVar)++) { /* closure o_9947_statements*/ { /* line 326 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9937_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_9942_concatNParamName); /* line 327 "../lib/comp/str_act.s7i" */ { /* line 327 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 327 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_9937_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 327 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 327 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '['); /* line 327 "../lib/comp/str_act.s7i" */ } else { /* line 327 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '['; /* line 327 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 327 "../lib/comp/str_act.s7i" */ } } { /* line 328 "../lib/comp/str_act.s7i" */ union { /* line 328 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 328 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 328 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 328 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9937_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), intStrToBuffer((o_9943_index)-1, &buffer_1.striBuf)); } /* line 329 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9937_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1953] /* "] = " */); /* line 330 "../lib/comp/str_act.s7i" */ o_4977_getAnyParamToResultExpr((o_9939_concatNParamList)->arr[(idxChk((o_9943_index) < (o_9939_concatNParamList)->min_position || (o_9943_index) > (o_9939_concatNParamList)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_9943_index)-(o_9939_concatNParamList)->min_position)].value.objRefValue, o_9937_c_expr); /* line 331 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9937_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); } /* closure o_9947_statements*/ } } /* pop proc param o_9947_statements */ } /* inline proc o_3528_for */ /* line 333 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9937_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1954] /* "strConcatN(" */); /* line 334 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9937_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_9942_concatNParamName); /* line 335 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9937_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); { /* line 336 "../lib/comp/str_act.s7i" */ union { /* line 336 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 336 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 336 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 336 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9937_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), intStrToBuffer(((o_9939_concatNParamList)->max_position - (o_9939_concatNParamList)->min_position + 1), &buffer_1.striBuf)); } /* line 337 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9937_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[240] /* "))" */); } else { /* line 339 "../lib/comp/str_act.s7i" */ o_4963_prepareAnyParamTemporarys(rflIdx(*o_9936_params, 1L), &(o_9944_c_param1), o_9937_c_expr); /* line 340 "../lib/comp/str_act.s7i" */ if (((((structType)(o_9944_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 341 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_9937_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1955] /* "strConcatTemp(" */); /* line 342 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9937_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_9944_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 344 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_9937_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1956] /* "strConcat(" */); /* line 345 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9937_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_9944_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 347 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9937_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 348 "../lib/comp/str_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9936_params, 3L), o_9937_c_expr); /* line 349 "../lib/comp/str_act.s7i" */ { /* line 349 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 349 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_9937_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 349 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 349 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 349 "../lib/comp/str_act.s7i" */ } else { /* line 349 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 349 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 349 "../lib/comp/str_act.s7i" */ } } } /* line 287 "../lib/comp/str_act.s7i" */ destr_128(o_9939_concatNParamList); /* line 287 "../lib/comp/str_act.s7i" */ rflDestr(o_9941_subExprParams); /* line 287 "../lib/comp/str_act.s7i" */ strDestr(o_9942_concatNParamName); /* line 287 "../lib/comp/str_act.s7i" */ destr_164(o_9944_c_param1); } /* line 1 "no_file" */ /* 4534 */ /* line 354 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_9948_STR_CHIPOS (const objRefType/*t_19_reference*/ o_9949_function, const listType/*t_20_ref_list*/ *const o_9950_params, structType/*t_164_expr_type*/ *const o_9951_c_expr) { /* line 358 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9951_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1957] /* "strChIPos(" */); /* line 359 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9950_params, 1L), o_9951_c_expr); /* line 360 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9951_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 361 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_9950_params, 2L), o_9951_c_expr); /* line 362 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9951_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 363 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_9950_params, 3L), o_9951_c_expr); /* line 364 "../lib/comp/str_act.s7i" */ { /* line 364 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 364 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_9951_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 364 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 364 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 364 "../lib/comp/str_act.s7i" */ } else { /* line 364 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 364 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 364 "../lib/comp/str_act.s7i" */ } } } /* line 1 "no_file" */ /* 4535 */ /* line 368 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_9952_STR_CHPOS (const objRefType/*t_19_reference*/ o_9953_function, const listType/*t_20_ref_list*/ *const o_9954_params, structType/*t_164_expr_type*/ *const o_9955_c_expr) { /* line 372 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9955_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1958] /* "strChPos(" */); /* line 373 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9954_params, 1L), o_9955_c_expr); /* line 374 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9955_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 375 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_9954_params, 2L), o_9955_c_expr); /* line 376 "../lib/comp/str_act.s7i" */ { /* line 376 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 376 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_9955_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 376 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 376 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 376 "../lib/comp/str_act.s7i" */ } else { /* line 376 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 376 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 376 "../lib/comp/str_act.s7i" */ } } } /* line 1 "no_file" */ /* 4536 */ /* line 380 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_9956_STR_CHSPLIT (const objRefType/*t_19_reference*/ o_9957_function, const listType/*t_20_ref_list*/ *const o_9958_params, structType/*t_164_expr_type*/ *const o_9959_c_expr) { { /* line 384 "../lib/comp/str_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 384 "../lib/comp/str_act.s7i" */ o_4944_prepare_typed_result(&(*o_3822/*[*/(&(o_4416_array_type), /* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(o_4754_getExprResultType(rflIdx(*o_9958_params, 1L))), &tmp_1))), o_9959_c_expr); } /* line 385 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_9959_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1959] /* "strChSplit(" */); /* line 386 "../lib/comp/str_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9958_params, 1L), o_9959_c_expr); /* line 387 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9959_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 388 "../lib/comp/str_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_9958_params, 2L), o_9959_c_expr); /* line 389 "../lib/comp/str_act.s7i" */ { /* line 389 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 389 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_9959_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 389 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 389 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 389 "../lib/comp/str_act.s7i" */ } else { /* line 389 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 389 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 389 "../lib/comp/str_act.s7i" */ } } } /* line 1 "no_file" */ /* 4537 */ /* line 393 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_9960_STR_CLIT (const objRefType/*t_19_reference*/ o_9961_function, const listType/*t_20_ref_list*/ *const o_9962_params, structType/*t_164_expr_type*/ *const o_9963_c_expr) { /* line 397 "../lib/comp/str_act.s7i" */ o_4955_prepare_stri_result(o_9963_c_expr); /* line 398 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_9963_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1960] /* "strCLit(" */); /* line 399 "../lib/comp/str_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_9962_params, 1L), o_9963_c_expr); /* line 400 "../lib/comp/str_act.s7i" */ { /* line 400 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 400 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_9963_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 400 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 400 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 400 "../lib/comp/str_act.s7i" */ } else { /* line 400 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 400 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 400 "../lib/comp/str_act.s7i" */ } } } /* line 1 "no_file" */ /* 4538 */ /* line 404 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_9964_STR_CMP (const objRefType/*t_19_reference*/ o_9965_function, const listType/*t_20_ref_list*/ *const o_9966_params, structType/*t_164_expr_type*/ *const o_9967_c_expr) { /* line 408 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9967_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1961] /* "strCompare(" */); /* line 409 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9966_params, 1L), o_9967_c_expr); /* line 410 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9967_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 411 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_9966_params, 2L), o_9967_c_expr); /* line 412 "../lib/comp/str_act.s7i" */ { /* line 412 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 412 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_9967_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 412 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 412 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 412 "../lib/comp/str_act.s7i" */ } else { /* line 412 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 412 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 412 "../lib/comp/str_act.s7i" */ } } } /* line 1 "no_file" */ /* 4539 */ /* line 416 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_9968_STR_CPY (const objRefType/*t_19_reference*/ o_9969_function, const listType/*t_20_ref_list*/ *const o_9970_params, structType/*t_164_expr_type*/ *const o_9971_c_expr) { /* line 420 "../lib/comp/str_act.s7i" */ structType/*t_164_expr_type*/ o_9972_c_param1; /* line 421 "../lib/comp/str_act.s7i" */ structType/*t_164_expr_type*/ o_9973_c_param3; /* line 420 "../lib/comp/str_act.s7i" */ o_9972_c_param1=create_164(sct[315]); /* line 421 "../lib/comp/str_act.s7i" */ o_9973_c_param3=create_164(sct[316]); /* line 423 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_9970_params, 1L), &(o_9972_c_param1)); /* line 424 "../lib/comp/str_act.s7i" */ ((structType)(o_9973_c_param3))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_9972_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 425 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_9970_params, 3L), &(o_9973_c_param3)); /* line 426 "../lib/comp/str_act.s7i" */ if (o_5049_has_temp_values(o_9973_c_param3)) { /* line 427 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9971_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 428 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9972_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9971_c_expr); /* line 429 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9973_c_param3))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9971_c_expr); /* line 430 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9972_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9971_c_expr); /* line 431 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9973_c_param3))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9971_c_expr); } /* line 433 "../lib/comp/str_act.s7i" */ if (((((structType)(o_9973_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 434 "../lib/comp/str_act.s7i" */ if (!(o_5049_has_temp_values(o_9973_c_param3))) { /* line 435 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9971_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); } /* line 437 "../lib/comp/str_act.s7i" */ o_4819_setDiagnosticLine(o_9971_c_expr); /* line 438 "../lib/comp/str_act.s7i" */ if (o_5018_isNormalVariable(rflIdx(*o_9970_params, 1L))) { /* line 439 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9971_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1962] /* "striType old_stri=" */); /* line 440 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9971_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9972_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 441 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9971_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 442 "../lib/comp/str_act.s7i" */ o_4819_setDiagnosticLine(o_9971_c_expr); /* line 443 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9971_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9972_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 444 "../lib/comp/str_act.s7i" */ { /* line 444 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 444 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_9971_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 444 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 444 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 444 "../lib/comp/str_act.s7i" */ } else { /* line 444 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 444 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 444 "../lib/comp/str_act.s7i" */ } } } else { /* line 446 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9971_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1963] /* "striType *stri_ptr=&(" */); /* line 447 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9971_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9972_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 448 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9971_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 449 "../lib/comp/str_act.s7i" */ o_4819_setDiagnosticLine(o_9971_c_expr); /* line 450 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9971_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1964] /* "striType old_stri=*stri_ptr;\n" */); /* line 451 "../lib/comp/str_act.s7i" */ o_4819_setDiagnosticLine(o_9971_c_expr); /* line 452 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9971_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1965] /* "*stri_ptr=" */); } /* line 454 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9971_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9973_c_param3))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 455 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9971_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 456 "../lib/comp/str_act.s7i" */ o_4819_setDiagnosticLine(o_9971_c_expr); /* line 457 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9971_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1966] /* "strDestr(old_stri);\n" */); /* line 458 "../lib/comp/str_act.s7i" */ if (!(o_5049_has_temp_values(o_9973_c_param3))) { /* line 459 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9971_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } } else { /* line 462 "../lib/comp/str_act.s7i" */ o_4819_setDiagnosticLine(o_9971_c_expr); /* line 463 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9971_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[268] /* "strCopy(&(" */); /* line 464 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9971_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9972_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 465 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9971_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 466 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9971_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9973_c_param3))->stru[5].value.striValue/*->o_4783_expr*/); /* line 467 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9971_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 469 "../lib/comp/str_act.s7i" */ if (o_5049_has_temp_values(o_9973_c_param3)) { /* line 470 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9972_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9971_c_expr); /* line 471 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9973_c_param3))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9971_c_expr); /* line 472 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9971_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 416 "../lib/comp/str_act.s7i" */ destr_164(o_9972_c_param1); /* line 416 "../lib/comp/str_act.s7i" */ destr_164(o_9973_c_param3); } /* line 1 "no_file" */ /* 4540 */ /* line 477 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_9974_process_const_str_elemcpy (const objRefType/*t_19_reference*/ o_9975_function, const objRefType/*t_19_reference*/ o_9976_param1, const intType/*t_14_integer*/ o_9977_index, const charType/*t_18_char*/ o_9978_ch, structType/*t_164_expr_type*/ *const o_9979_c_expr) { /* line 481 "../lib/comp/str_act.s7i" */ structType/*t_164_expr_type*/ o_9980_c_param1; /* line 481 "../lib/comp/str_act.s7i" */ o_9980_c_param1=create_164(sct[317]); /* line 483 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); /* line 484 "../lib/comp/str_act.s7i" */ if ((o_9977_index) < (1L)) { /* line 485 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1967] /* "/* 'string @:= [n] char' with n < 1 *\/\n" */); /* line 486 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6522_voidRaiseError(&str[406] /* "RANGE_ERROR" */)); /* line 487 "../lib/comp/str_act.s7i" */ { /* line 487 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 487 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 487 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 487 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 487 "../lib/comp/str_act.s7i" */ } else { /* line 487 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 487 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 487 "../lib/comp/str_act.s7i" */ } } } else { /* line 489 "../lib/comp/str_act.s7i" */ o_4941_process_expr(o_9976_param1, &(o_9980_c_param1)); /* line 490 "../lib/comp/str_act.s7i" */ if (((((structType)(o_9980_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) || /* line 490 "../lib/comp/str_act.s7i" */ (o_3450_array_range_check)) { /* line 491 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); } /* line 493 "../lib/comp/str_act.s7i" */ if ((((structType)(o_9980_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 494 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9980_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9979_c_expr); /* line 495 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9980_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9979_c_expr); } /* line 497 "../lib/comp/str_act.s7i" */ if (o_3450_array_range_check) { /* line 498 "../lib/comp/str_act.s7i" */ ++(o_5109_countRangeChecks); /* line 499 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1968] /* "striType str1=" */); /* line 500 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9980_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 501 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 502 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1969] /* "if (idxChk(str1->size<=" */); { /* line 503 "../lib/comp/str_act.s7i" */ union { /* line 503 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 503 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 503 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 503 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((o_9977_index)-1, &buffer_1.striBuf)); } /* line 504 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1970] /* ")) {\n" */); /* line 505 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[218] /* " " */); /* line 506 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6522_voidRaiseError(&str[406] /* "RANGE_ERROR" */)); /* line 507 "../lib/comp/str_act.s7i" */ { /* line 507 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 507 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 507 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 507 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 507 "../lib/comp/str_act.s7i" */ } else { /* line 507 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 507 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 507 "../lib/comp/str_act.s7i" */ } } /* line 508 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[222] /* "} else {\n" */); /* line 509 "../lib/comp/str_act.s7i" */ o_4819_setDiagnosticLine(o_9979_c_expr); /* line 510 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1971] /* " str1->mem[" */); { /* line 511 "../lib/comp/str_act.s7i" */ union { /* line 511 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 511 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 511 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 511 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((o_9977_index)-1, &buffer_1.striBuf)); } /* line 512 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1972] /* "] = (strElemType)(" */); { /* line 513 "../lib/comp/str_act.s7i" */ union { /* line 513 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 513 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 513 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 513 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), chrCLitToBuffer(o_9978_ch, &buffer_1.striBuf)); } /* line 514 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 515 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } else { /* line 517 "../lib/comp/str_act.s7i" */ ++(o_5110_countNoRangeChecks); /* line 518 "../lib/comp/str_act.s7i" */ o_4819_setDiagnosticLine(o_9979_c_expr); /* line 519 "../lib/comp/str_act.s7i" */ { /* line 519 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 519 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 519 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 519 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 519 "../lib/comp/str_act.s7i" */ } else { /* line 519 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 519 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 519 "../lib/comp/str_act.s7i" */ } } /* line 520 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9980_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 521 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[671] /* ")->mem[" */); { /* line 522 "../lib/comp/str_act.s7i" */ union { /* line 522 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 522 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 522 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 522 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((o_9977_index)-1, &buffer_1.striBuf)); } /* line 523 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1972] /* "] = (strElemType)(" */); { /* line 524 "../lib/comp/str_act.s7i" */ union { /* line 524 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 524 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 524 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 524 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), chrCLitToBuffer(o_9978_ch, &buffer_1.striBuf)); } /* line 525 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 527 "../lib/comp/str_act.s7i" */ if ((((structType)(o_9980_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 528 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9980_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9979_c_expr); } /* line 530 "../lib/comp/str_act.s7i" */ if (((((structType)(o_9980_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) || /* line 530 "../lib/comp/str_act.s7i" */ (o_3450_array_range_check)) { /* line 531 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9979_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } } /* line 477 "../lib/comp/str_act.s7i" */ destr_164(o_9980_c_param1); } /* line 1 "no_file" */ /* 4541 */ /* line 537 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_9981_process_const_str_elemcpy (const objRefType/*t_19_reference*/ o_9982_function, const objRefType/*t_19_reference*/ o_9983_param1, const intType/*t_14_integer*/ o_9984_index, const objRefType/*t_19_reference*/ o_9985_param6, structType/*t_164_expr_type*/ *const o_9986_c_expr) { /* line 541 "../lib/comp/str_act.s7i" */ structType/*t_164_expr_type*/ o_9987_c_param1; /* line 542 "../lib/comp/str_act.s7i" */ structType/*t_164_expr_type*/ o_9988_c_param6; /* line 541 "../lib/comp/str_act.s7i" */ o_9987_c_param1=create_164(sct[318]); /* line 542 "../lib/comp/str_act.s7i" */ o_9988_c_param6=create_164(sct[319]); /* line 544 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); /* line 545 "../lib/comp/str_act.s7i" */ if ((o_9984_index) < (1L)) { /* line 546 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1967] /* "/* 'string @:= [n] char' with n < 1 *\/\n" */); /* line 547 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6522_voidRaiseError(&str[406] /* "RANGE_ERROR" */)); /* line 548 "../lib/comp/str_act.s7i" */ { /* line 548 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 548 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 548 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 548 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 548 "../lib/comp/str_act.s7i" */ } else { /* line 548 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 548 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 548 "../lib/comp/str_act.s7i" */ } } } else { /* line 550 "../lib/comp/str_act.s7i" */ o_4941_process_expr(o_9983_param1, &(o_9987_c_param1)); /* line 551 "../lib/comp/str_act.s7i" */ ((structType)(o_9988_c_param6))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_9987_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 552 "../lib/comp/str_act.s7i" */ o_4941_process_expr(o_9985_param6, &(o_9988_c_param6)); /* line 553 "../lib/comp/str_act.s7i" */ if (((((structType)(o_9988_c_param6))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) || /* line 553 "../lib/comp/str_act.s7i" */ (o_3450_array_range_check)) { /* line 554 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); } /* line 556 "../lib/comp/str_act.s7i" */ if ((((structType)(o_9988_c_param6))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 557 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9987_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9986_c_expr); /* line 558 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9988_c_param6))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9986_c_expr); /* line 559 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9987_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9986_c_expr); /* line 560 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9988_c_param6))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9986_c_expr); } /* line 562 "../lib/comp/str_act.s7i" */ if (o_3450_array_range_check) { /* line 563 "../lib/comp/str_act.s7i" */ ++(o_5109_countRangeChecks); /* line 564 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1968] /* "striType str1=" */); /* line 565 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9987_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 566 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 567 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1969] /* "if (idxChk(str1->size<=" */); { /* line 568 "../lib/comp/str_act.s7i" */ union { /* line 568 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 568 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 568 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 568 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((o_9984_index)-1, &buffer_1.striBuf)); } /* line 569 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1970] /* ")) {\n" */); /* line 570 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[218] /* " " */); /* line 571 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6522_voidRaiseError(&str[406] /* "RANGE_ERROR" */)); /* line 572 "../lib/comp/str_act.s7i" */ { /* line 572 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 572 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 572 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 572 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 572 "../lib/comp/str_act.s7i" */ } else { /* line 572 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 572 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 572 "../lib/comp/str_act.s7i" */ } } /* line 573 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[222] /* "} else {\n" */); /* line 574 "../lib/comp/str_act.s7i" */ o_4819_setDiagnosticLine(o_9986_c_expr); /* line 575 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1971] /* " str1->mem[" */); { /* line 576 "../lib/comp/str_act.s7i" */ union { /* line 576 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 576 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 576 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 576 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((o_9984_index)-1, &buffer_1.striBuf)); } /* line 577 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1972] /* "] = (strElemType)(" */); /* line 578 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9988_c_param6))->stru[5].value.striValue/*->o_4783_expr*/); /* line 579 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 580 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } else { /* line 582 "../lib/comp/str_act.s7i" */ ++(o_5110_countNoRangeChecks); /* line 583 "../lib/comp/str_act.s7i" */ o_4819_setDiagnosticLine(o_9986_c_expr); /* line 584 "../lib/comp/str_act.s7i" */ { /* line 584 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 584 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 584 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 584 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 584 "../lib/comp/str_act.s7i" */ } else { /* line 584 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 584 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 584 "../lib/comp/str_act.s7i" */ } } /* line 585 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9987_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 586 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[671] /* ")->mem[" */); { /* line 587 "../lib/comp/str_act.s7i" */ union { /* line 587 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 587 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 587 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 587 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((o_9984_index)-1, &buffer_1.striBuf)); } /* line 588 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1972] /* "] = (strElemType)(" */); /* line 589 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9988_c_param6))->stru[5].value.striValue/*->o_4783_expr*/); /* line 590 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 592 "../lib/comp/str_act.s7i" */ if ((((structType)(o_9988_c_param6))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 593 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9987_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9986_c_expr); /* line 594 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9988_c_param6))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9986_c_expr); } /* line 596 "../lib/comp/str_act.s7i" */ if (((((structType)(o_9988_c_param6))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) || /* line 596 "../lib/comp/str_act.s7i" */ (o_3450_array_range_check)) { /* line 597 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9986_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } } /* line 537 "../lib/comp/str_act.s7i" */ destr_164(o_9987_c_param1); /* line 537 "../lib/comp/str_act.s7i" */ destr_164(o_9988_c_param6); } /* line 1 "no_file" */ /* 4542 */ /* line 603 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_9989_process_const_str_elemcpy (const objRefType/*t_19_reference*/ o_9990_function, const objRefType/*t_19_reference*/ o_9991_param1, const objRefType/*t_19_reference*/ o_9992_param4, const charType/*t_18_char*/ o_9993_ch, structType/*t_164_expr_type*/ *const o_9994_c_expr) { /* line 607 "../lib/comp/str_act.s7i" */ objRefType/*t_19_reference*/ o_9995_evaluatedParam=NULL; /* line 608 "../lib/comp/str_act.s7i" */ structType/*t_164_expr_type*/ o_9996_c_param1; /* line 609 "../lib/comp/str_act.s7i" */ structType/*t_164_expr_type*/ o_9997_c_param4; /* line 608 "../lib/comp/str_act.s7i" */ o_9996_c_param1=create_164(sct[320]); /* line 609 "../lib/comp/str_act.s7i" */ o_9997_c_param4=create_164(sct[321]); /* line 611 "../lib/comp/str_act.s7i" */ if (o_5154_getConstant(o_9992_param4, 9L, &(o_9995_evaluatedParam))) { /* line 612 "../lib/comp/str_act.s7i" */ o_9974_process_const_str_elemcpy(o_9990_function, o_9991_param1, intValue(o_9995_evaluatedParam), o_9993_ch, o_9994_c_expr); } else { /* line 614 "../lib/comp/str_act.s7i" */ o_4941_process_expr(o_9991_param1, &(o_9996_c_param1)); /* line 615 "../lib/comp/str_act.s7i" */ ((structType)(o_9997_c_param4))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_9996_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 616 "../lib/comp/str_act.s7i" */ o_4941_process_expr(o_9992_param4, &(o_9997_c_param4)); /* line 617 "../lib/comp/str_act.s7i" */ if (((((structType)(o_9997_c_param4))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) || /* line 617 "../lib/comp/str_act.s7i" */ (o_3450_array_range_check)) { /* line 618 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); } /* line 620 "../lib/comp/str_act.s7i" */ if ((((structType)(o_9997_c_param4))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 621 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9996_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9994_c_expr); /* line 622 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9997_c_param4))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_9994_c_expr); /* line 623 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9996_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9994_c_expr); /* line 624 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9997_c_param4))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_9994_c_expr); } /* line 626 "../lib/comp/str_act.s7i" */ if (o_3450_array_range_check) { /* line 627 "../lib/comp/str_act.s7i" */ ++(o_5109_countRangeChecks); /* line 628 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1968] /* "striType str1=" */); /* line 629 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9996_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 630 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 631 "../lib/comp/str_act.s7i" */ if (((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/) { /* line 632 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1973] /* "uintType pos=(uintType)(" */); } else { /* line 634 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1974] /* "intType pos=(" */); } /* line 636 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9997_c_param4))->stru[5].value.striValue/*->o_4783_expr*/); /* line 637 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1975] /* ")-1;\n" */); /* line 638 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1976] /* "if (idxChk(" */); /* line 639 "../lib/comp/str_act.s7i" */ if (!(((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/)) { /* line 640 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1977] /* "pos<0 || " */); } /* line 642 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1978] /* "pos>=str1->size)) {\n" */); /* line 643 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[218] /* " " */); /* line 644 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6522_voidRaiseError(&str[406] /* "RANGE_ERROR" */)); /* line 645 "../lib/comp/str_act.s7i" */ { /* line 645 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 645 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 645 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 645 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 645 "../lib/comp/str_act.s7i" */ } else { /* line 645 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 645 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 645 "../lib/comp/str_act.s7i" */ } } /* line 646 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[222] /* "} else {\n" */); /* line 647 "../lib/comp/str_act.s7i" */ o_4819_setDiagnosticLine(o_9994_c_expr); /* line 648 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1979] /* " str1->mem[pos] = (strElemType)(" */); { /* line 649 "../lib/comp/str_act.s7i" */ union { /* line 649 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 649 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 649 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 649 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), chrCLitToBuffer(o_9993_ch, &buffer_1.striBuf)); } /* line 650 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 651 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } else { /* line 653 "../lib/comp/str_act.s7i" */ ++(o_5110_countNoRangeChecks); /* line 654 "../lib/comp/str_act.s7i" */ o_4819_setDiagnosticLine(o_9994_c_expr); /* line 655 "../lib/comp/str_act.s7i" */ { /* line 655 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 655 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 655 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 655 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 655 "../lib/comp/str_act.s7i" */ } else { /* line 655 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 655 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 655 "../lib/comp/str_act.s7i" */ } } /* line 656 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9996_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 657 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[674] /* ")->mem[(" */); /* line 658 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_9997_c_param4))->stru[5].value.striValue/*->o_4783_expr*/); /* line 659 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1980] /* ")-1] = (strElemType)(" */); { /* line 660 "../lib/comp/str_act.s7i" */ union { /* line 660 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 660 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 660 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 660 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), chrCLitToBuffer(o_9993_ch, &buffer_1.striBuf)); } /* line 661 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 663 "../lib/comp/str_act.s7i" */ if ((((structType)(o_9997_c_param4))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 664 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9996_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9994_c_expr); /* line 665 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_9997_c_param4))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_9994_c_expr); } /* line 667 "../lib/comp/str_act.s7i" */ if (((((structType)(o_9997_c_param4))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) || /* line 667 "../lib/comp/str_act.s7i" */ (o_3450_array_range_check)) { /* line 668 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_9994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } } /* line 603 "../lib/comp/str_act.s7i" */ destr_164(o_9996_c_param1); /* line 603 "../lib/comp/str_act.s7i" */ destr_164(o_9997_c_param4); } /* line 1 "no_file" */ /* 4543 */ /* line 674 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_9998_STR_ELEMCPY (const objRefType/*t_19_reference*/ o_9999_function, const listType/*t_20_ref_list*/ *const o_10000_params, structType/*t_164_expr_type*/ *const o_10001_c_expr) { /* line 678 "../lib/comp/str_act.s7i" */ objRefType/*t_19_reference*/ o_10002_evaluatedParam=NULL; /* line 679 "../lib/comp/str_act.s7i" */ structType/*t_164_expr_type*/ o_10003_c_param1; /* line 680 "../lib/comp/str_act.s7i" */ structType/*t_164_expr_type*/ o_10004_c_param4; /* line 681 "../lib/comp/str_act.s7i" */ structType/*t_164_expr_type*/ o_10005_c_param6; /* line 679 "../lib/comp/str_act.s7i" */ o_10003_c_param1=create_164(sct[322]); /* line 680 "../lib/comp/str_act.s7i" */ o_10004_c_param4=create_164(sct[323]); /* line 681 "../lib/comp/str_act.s7i" */ o_10005_c_param6=create_164(sct[324]); /* line 683 "../lib/comp/str_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_10000_params, 6L), 11L, &(o_10002_evaluatedParam))) { /* line 684 "../lib/comp/str_act.s7i" */ o_9989_process_const_str_elemcpy(o_9999_function, rflIdx(*o_10000_params, 1L), rflIdx(*o_10000_params, 4L), chrValue(o_10002_evaluatedParam), o_10001_c_expr); } else /* line 685 "../lib/comp/str_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_10000_params, 4L), 9L, &(o_10002_evaluatedParam))) { /* line 686 "../lib/comp/str_act.s7i" */ o_9981_process_const_str_elemcpy(o_9999_function, rflIdx(*o_10000_params, 1L), intValue(o_10002_evaluatedParam), rflIdx(*o_10000_params, 6L), o_10001_c_expr); } else { /* line 688 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10000_params, 1L), &(o_10003_c_param1)); /* line 689 "../lib/comp/str_act.s7i" */ ((structType)(o_10004_c_param4))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_10003_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 690 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10000_params, 4L), &(o_10004_c_param4)); /* line 691 "../lib/comp/str_act.s7i" */ ((structType)(o_10005_c_param6))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_10004_c_param4))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 692 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10000_params, 6L), &(o_10005_c_param6)); /* line 693 "../lib/comp/str_act.s7i" */ if (((((structType)(o_10005_c_param6))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) || /* line 693 "../lib/comp/str_act.s7i" */ (o_3450_array_range_check)) { /* line 694 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); } /* line 696 "../lib/comp/str_act.s7i" */ if ((((structType)(o_10005_c_param6))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 697 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_10003_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_10001_c_expr); /* line 698 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_10004_c_param4))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_10001_c_expr); /* line 699 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_10005_c_param6))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_10001_c_expr); /* line 700 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_10003_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_10001_c_expr); /* line 701 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_10004_c_param4))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_10001_c_expr); /* line 702 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_10005_c_param6))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_10001_c_expr); } /* line 704 "../lib/comp/str_act.s7i" */ if (o_3450_array_range_check) { /* line 705 "../lib/comp/str_act.s7i" */ ++(o_5109_countRangeChecks); /* line 706 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1968] /* "striType str1=" */); /* line 707 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_10003_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 708 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 709 "../lib/comp/str_act.s7i" */ if (((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/) { /* line 710 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1973] /* "uintType pos=(uintType)(" */); } else { /* line 712 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1974] /* "intType pos=(" */); } /* line 714 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_10004_c_param4))->stru[5].value.striValue/*->o_4783_expr*/); /* line 715 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1975] /* ")-1;\n" */); /* line 716 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1976] /* "if (idxChk(" */); /* line 717 "../lib/comp/str_act.s7i" */ if (!(((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/)) { /* line 718 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1977] /* "pos<0 || " */); } /* line 720 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1978] /* "pos>=str1->size)) {\n" */); /* line 721 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[218] /* " " */); /* line 722 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6522_voidRaiseError(&str[406] /* "RANGE_ERROR" */)); /* line 723 "../lib/comp/str_act.s7i" */ { /* line 723 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 723 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 723 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 723 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 723 "../lib/comp/str_act.s7i" */ } else { /* line 723 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 723 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 723 "../lib/comp/str_act.s7i" */ } } /* line 724 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[222] /* "} else {\n" */); /* line 725 "../lib/comp/str_act.s7i" */ o_4819_setDiagnosticLine(o_10001_c_expr); /* line 726 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1979] /* " str1->mem[pos] = (strElemType)(" */); /* line 727 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_10005_c_param6))->stru[5].value.striValue/*->o_4783_expr*/); /* line 728 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 729 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } else { /* line 731 "../lib/comp/str_act.s7i" */ ++(o_5110_countNoRangeChecks); /* line 732 "../lib/comp/str_act.s7i" */ o_4819_setDiagnosticLine(o_10001_c_expr); /* line 733 "../lib/comp/str_act.s7i" */ { /* line 733 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 733 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 733 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 733 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 733 "../lib/comp/str_act.s7i" */ } else { /* line 733 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 733 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 733 "../lib/comp/str_act.s7i" */ } } /* line 734 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_10003_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 735 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[674] /* ")->mem[(" */); /* line 736 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_10004_c_param4))->stru[5].value.striValue/*->o_4783_expr*/); /* line 737 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1980] /* ")-1] = (strElemType)(" */); /* line 738 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_10005_c_param6))->stru[5].value.striValue/*->o_4783_expr*/); /* line 739 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 741 "../lib/comp/str_act.s7i" */ if ((((structType)(o_10005_c_param6))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 742 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_10003_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_10001_c_expr); /* line 743 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_10004_c_param4))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_10001_c_expr); /* line 744 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_10005_c_param6))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_10001_c_expr); } /* line 746 "../lib/comp/str_act.s7i" */ if (((((structType)(o_10005_c_param6))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) || /* line 746 "../lib/comp/str_act.s7i" */ (o_3450_array_range_check)) { /* line 747 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10001_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } } /* line 674 "../lib/comp/str_act.s7i" */ destr_164(o_10003_c_param1); /* line 674 "../lib/comp/str_act.s7i" */ destr_164(o_10004_c_param4); /* line 674 "../lib/comp/str_act.s7i" */ destr_164(o_10005_c_param6); } /* line 1 "no_file" */ /* 4544 */ /* line 753 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10006_process_const_str_eq (const objRefType/*t_19_reference*/ o_10007_param1, const const_striType/*t_15_string*/ o_10008_stri_b, structType/*t_164_expr_type*/ *const o_10009_c_expr) { /* line 757 "../lib/comp/str_act.s7i" */ objRefType/*t_19_reference*/ o_10010_evaluatedParam=NULL; /* line 758 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10011_stri_a_name; /* line 758 "../lib/comp/str_act.s7i" */ o_10011_stri_a_name=strEmpty(); /* "" */ /* line 760 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); /* line 761 "../lib/comp/str_act.s7i" */ if (o_5154_getConstant(o_10007_param1, 12L, &(o_10010_evaluatedParam))) { /* line 762 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1431] /* "/* " */); { /* line 763 "../lib/comp/str_act.s7i" */ striType tmp_3 = NULL; /* line 763 "../lib/comp/str_act.s7i" */ striType tmp_2 = NULL; /* line 763 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), strRepl((tmp_2=strLit((tmp_3=strValue(o_10010_evaluatedParam)))), &str[123] /* "*\/" */, &str[318] /* "*\\/" */)); /* line 763 "../lib/comp/str_act.s7i" */ strDestr(tmp_3); /* line 763 "../lib/comp/str_act.s7i" */ strDestr(tmp_2); } /* line 764 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1025] /* " == " */); { /* line 765 "../lib/comp/str_act.s7i" */ striType tmp_2 = NULL; /* line 765 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), strRepl((tmp_2=strLit(o_10008_stri_b)), &str[123] /* "*\/" */, &str[318] /* "*\\/" */)); /* line 765 "../lib/comp/str_act.s7i" */ strDestr(tmp_2); } /* line 766 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1981] /* " *\/ " */); { /* line 767 "../lib/comp/str_act.s7i" */ const_striType tmp_a_1; /* line 767 "../lib/comp/str_act.s7i" */ striType tmp_2 = NULL; /* line 767 "../lib/comp/str_act.s7i" */ if ((tmp_a_1=(tmp_2=strValue(o_10010_evaluatedParam)),tmp_a_1->size==(o_10008_stri_b)->size&&memcmp(tmp_a_1->mem,(o_10008_stri_b)->mem,tmp_a_1->size*sizeof(strElemType))==0)) { /* line 768 "../lib/comp/str_act.s7i" */ { /* line 768 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 768 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 768 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 768 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '1'); /* line 768 "../lib/comp/str_act.s7i" */ } else { /* line 768 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '1'; /* line 768 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 768 "../lib/comp/str_act.s7i" */ } } } else { /* line 770 "../lib/comp/str_act.s7i" */ { /* line 770 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 770 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 770 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 770 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '0'); /* line 770 "../lib/comp/str_act.s7i" */ } else { /* line 770 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '0'; /* line 770 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 770 "../lib/comp/str_act.s7i" */ } } } /* line 767 "../lib/comp/str_act.s7i" */ strDestr(tmp_2); } } else /* line 772 "../lib/comp/str_act.s7i" */ if (((o_10008_stri_b)->size==0 /* "" */)) { /* line 773 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[205] /* "((" */); /* line 774 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(o_10007_param1, o_10009_c_expr); /* line 775 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1982] /* ")->size==0 /* \"\" *\/)" */); } else { /* line 777 "../lib/comp/str_act.s7i" */ { /* line 777 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 777 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 777 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 777 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 777 "../lib/comp/str_act.s7i" */ } else { /* line 777 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 777 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 777 "../lib/comp/str_act.s7i" */ } } { /* line 778 "../lib/comp/str_act.s7i" */ striType old_stri=o_10011_stri_a_name; /* line 778 "../lib/comp/str_act.s7i" */ o_10011_stri_a_name=o_5031_getParameterAsVariable(&str[1983] /* "const_striType" */, &str[282] /* "tmp_" */, o_10007_param1, o_10009_c_expr); /* line 778 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } /* line 779 "../lib/comp/str_act.s7i" */ if (((intType)((o_10008_stri_b)->size)) == (1L)) { /* line 781 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10011_stri_a_name); /* line 782 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1984] /* "->size==1&&" */); /* line 783 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10011_stri_a_name); /* line 784 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1985] /* "->mem[0]==(strElemType)(" */); { /* line 785 "../lib/comp/str_act.s7i" */ union { /* line 785 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 785 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 785 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 785 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), chrCLitToBuffer((o_10008_stri_b)->mem[(idxChk((o_10008_stri_b)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)], &buffer_1.striBuf)); } /* line 786 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1986] /* ") /* " */); /* line 787 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), strLit(o_10008_stri_b)); /* line 788 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1987] /* " *\/)" */); } else { /* line 792 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10011_stri_a_name); /* line 793 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[657] /* "->size==" */); { /* line 794 "../lib/comp/str_act.s7i" */ union { /* line 794 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 794 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 794 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 794 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((intType)((o_10008_stri_b)->size), &buffer_1.striBuf)); } /* line 795 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1988] /* "&&memcmp(" */); /* line 796 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10011_stri_a_name); /* line 797 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1989] /* "->mem,(" */); /* line 798 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6494_stringLiteral(o_10008_stri_b)); /* line 799 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1990] /* ")->mem," */); { /* line 800 "../lib/comp/str_act.s7i" */ union { /* line 800 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 800 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 800 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 800 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((intType)((o_10008_stri_b)->size), &buffer_1.striBuf)); } /* line 801 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10009_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1991] /* "*sizeof(strElemType))==0)" */); } } /* line 753 "../lib/comp/str_act.s7i" */ strDestr(o_10011_stri_a_name); } /* line 1 "no_file" */ /* 4545 */ /* line 807 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10012_STR_EQ (const objRefType/*t_19_reference*/ o_10013_function, const listType/*t_20_ref_list*/ *const o_10014_params, structType/*t_164_expr_type*/ *const o_10015_c_expr) { /* line 811 "../lib/comp/str_act.s7i" */ objRefType/*t_19_reference*/ o_10016_evaluatedParam=NULL; /* line 812 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10017_stri_a_name; /* line 813 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10018_stri_b_name; /* line 812 "../lib/comp/str_act.s7i" */ o_10017_stri_a_name=strEmpty(); /* "" */ /* line 813 "../lib/comp/str_act.s7i" */ o_10018_stri_b_name=strEmpty(); /* "" */ /* line 815 "../lib/comp/str_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_10014_params, 3L), 12L, &(o_10016_evaluatedParam))) { { /* line 816 "../lib/comp/str_act.s7i" */ striType tmp_1 = NULL; /* line 816 "../lib/comp/str_act.s7i" */ o_10006_process_const_str_eq(rflIdx(*o_10014_params, 1L), (tmp_1=strValue(o_10016_evaluatedParam)), o_10015_c_expr); /* line 816 "../lib/comp/str_act.s7i" */ strDestr(tmp_1); } } else /* line 817 "../lib/comp/str_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_10014_params, 1L), 12L, &(o_10016_evaluatedParam))) { { /* line 818 "../lib/comp/str_act.s7i" */ striType tmp_1 = NULL; /* line 818 "../lib/comp/str_act.s7i" */ o_10006_process_const_str_eq(rflIdx(*o_10014_params, 3L), (tmp_1=strValue(o_10016_evaluatedParam)), o_10015_c_expr); /* line 818 "../lib/comp/str_act.s7i" */ strDestr(tmp_1); } } else { /* line 820 "../lib/comp/str_act.s7i" */ { /* line 820 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 820 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10015_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 820 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 820 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 820 "../lib/comp/str_act.s7i" */ } else { /* line 820 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 820 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 820 "../lib/comp/str_act.s7i" */ } } { /* line 821 "../lib/comp/str_act.s7i" */ striType old_stri=o_10017_stri_a_name; /* line 821 "../lib/comp/str_act.s7i" */ o_10017_stri_a_name=o_5031_getParameterAsVariable(&str[1983] /* "const_striType" */, &str[655] /* "tmp_a_" */, rflIdx(*o_10014_params, 1L), o_10015_c_expr); /* line 821 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } { /* line 822 "../lib/comp/str_act.s7i" */ striType old_stri=o_10018_stri_b_name; /* line 822 "../lib/comp/str_act.s7i" */ o_10018_stri_b_name=o_5031_getParameterAsVariable(&str[1983] /* "const_striType" */, &str[656] /* "tmp_b_" */, rflIdx(*o_10014_params, 3L), o_10015_c_expr); /* line 822 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } /* line 825 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10015_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10017_stri_a_name); /* line 826 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10015_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[657] /* "->size==" */); /* line 827 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10015_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10018_stri_b_name); /* line 828 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10015_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[658] /* "->size&&memcmp(" */); /* line 829 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10015_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10017_stri_a_name); /* line 830 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10015_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[659] /* "->mem," */); /* line 831 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10015_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10018_stri_b_name); /* line 832 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10015_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[659] /* "->mem," */); /* line 833 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10015_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10017_stri_a_name); /* line 834 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10015_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1992] /* "->size*sizeof(strElemType))==0)" */); } /* line 807 "../lib/comp/str_act.s7i" */ strDestr(o_10017_stri_a_name); /* line 807 "../lib/comp/str_act.s7i" */ strDestr(o_10018_stri_b_name); } /* line 1 "no_file" */ /* 4546 */ /* line 839 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10019_STR_GE (const objRefType/*t_19_reference*/ o_10020_function, const listType/*t_20_ref_list*/ *const o_10021_params, structType/*t_164_expr_type*/ *const o_10022_c_expr) { /* line 843 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10022_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1993] /* "strGe(" */); /* line 844 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10021_params, 1L), o_10022_c_expr); /* line 845 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10022_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 846 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10021_params, 3L), o_10022_c_expr); /* line 847 "../lib/comp/str_act.s7i" */ { /* line 847 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 847 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10022_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 847 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 847 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 847 "../lib/comp/str_act.s7i" */ } else { /* line 847 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 847 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 847 "../lib/comp/str_act.s7i" */ } } } /* line 1 "no_file" */ /* 4547 */ /* line 851 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10023_STR_GT (const objRefType/*t_19_reference*/ o_10024_function, const listType/*t_20_ref_list*/ *const o_10025_params, structType/*t_164_expr_type*/ *const o_10026_c_expr) { /* line 855 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10026_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1994] /* "strGt(" */); /* line 856 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10025_params, 1L), o_10026_c_expr); /* line 857 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10026_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 858 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10025_params, 3L), o_10026_c_expr); /* line 859 "../lib/comp/str_act.s7i" */ { /* line 859 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 859 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10026_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 859 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 859 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 859 "../lib/comp/str_act.s7i" */ } else { /* line 859 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 859 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 859 "../lib/comp/str_act.s7i" */ } } } /* line 1 "no_file" */ /* 4548 */ /* line 863 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10027_STR_HASHCODE (const objRefType/*t_19_reference*/ o_10028_function, const listType/*t_20_ref_list*/ *const o_10029_params, structType/*t_164_expr_type*/ *const o_10030_c_expr) { /* line 867 "../lib/comp/str_act.s7i" */ objRefType/*t_19_reference*/ o_10031_evaluatedParam=NULL; /* line 868 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10032_stri_name; /* line 868 "../lib/comp/str_act.s7i" */ o_10032_stri_name=strEmpty(); /* "" */ /* line 870 "../lib/comp/str_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_10029_params, 1L), 12L, &(o_10031_evaluatedParam))) { /* line 871 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); { /* line 872 "../lib/comp/str_act.s7i" */ const_striType tmp_2; /* line 872 "../lib/comp/str_act.s7i" */ striType tmp_3 = NULL; /* line 872 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10030_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral((tmp_2=(tmp_3=strValue(o_10031_evaluatedParam)),tmp_2->size==0 ? 0 : (tmp_2->mem[0]<<5 ^ tmp_2->mem[tmp_2->size>>1]<<3 ^ tmp_2->mem[tmp_2->size-1]<<1 ^ tmp_2->size)))); /* line 872 "../lib/comp/str_act.s7i" */ strDestr(tmp_3); } } else /* line 873 "../lib/comp/str_act.s7i" */ if (o_3458_inlineFunctions) { /* line 874 "../lib/comp/str_act.s7i" */ { /* line 874 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 874 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10030_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 874 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 874 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 874 "../lib/comp/str_act.s7i" */ } else { /* line 874 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 874 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 874 "../lib/comp/str_act.s7i" */ } } { /* line 875 "../lib/comp/str_act.s7i" */ striType old_stri=o_10032_stri_name; /* line 875 "../lib/comp/str_act.s7i" */ o_10032_stri_name=o_5031_getParameterAsVariable(&str[1983] /* "const_striType" */, &str[282] /* "tmp_" */, rflIdx(*o_10029_params, 1L), o_10030_c_expr); /* line 875 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } /* line 876 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10030_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10032_stri_name); /* line 877 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10030_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1995] /* "->size==0 ? 0 : (" */); /* line 878 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10030_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10032_stri_name); /* line 879 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10030_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1996] /* "->mem[0]<<5 ^ " */); /* line 880 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10030_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10032_stri_name); /* line 881 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10030_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[662] /* "->mem[" */); /* line 882 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10030_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10032_stri_name); /* line 883 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10030_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1997] /* "->size>>1]<<3 ^ " */); /* line 884 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10030_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10032_stri_name); /* line 885 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10030_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[662] /* "->mem[" */); /* line 886 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10030_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10032_stri_name); /* line 887 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10030_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1998] /* "->size-1]<<1 ^ " */); /* line 888 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10030_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10032_stri_name); /* line 889 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10030_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1999] /* "->size))" */); } else { /* line 891 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10030_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2000] /* "strHashCode(" */); /* line 892 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10029_params, 1L), o_10030_c_expr); /* line 893 "../lib/comp/str_act.s7i" */ { /* line 893 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 893 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10030_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 893 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 893 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 893 "../lib/comp/str_act.s7i" */ } else { /* line 893 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 893 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 893 "../lib/comp/str_act.s7i" */ } } } /* line 863 "../lib/comp/str_act.s7i" */ strDestr(o_10032_stri_name); } /* line 1 "no_file" */ /* 4549 */ /* line 898 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10033_process_const_str_head (const const_striType/*t_15_string*/ o_10034_stri, const objRefType/*t_19_reference*/ o_10035_param4, structType/*t_164_expr_type*/ *const o_10036_c_expr) { /* line 902 "../lib/comp/str_act.s7i" */ objRefType/*t_19_reference*/ o_10037_evaluatedParam=NULL; /* line 903 "../lib/comp/str_act.s7i" */ intType/*t_14_integer*/ o_10038_stop=0; /* line 904 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10039_slice_name; /* line 904 "../lib/comp/str_act.s7i" */ o_10039_slice_name=strEmpty(); /* "" */ /* line 906 "../lib/comp/str_act.s7i" */ if (o_5154_getConstant(o_10035_param4, 9L, &(o_10037_evaluatedParam))) { /* line 907 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); { /* line 908 "../lib/comp/str_act.s7i" */ struct striStruct slice_2; /* line 908 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6494_stringLiteral((strHeadSlice(o_10034_stri, intValue(o_10037_evaluatedParam), &slice_2), &slice_2))); } } else /* line 909 "../lib/comp/str_act.s7i" */ if (((o_10034_stri)->size==0 /* "" */)) { /* line 910 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); /* line 911 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2001] /* "/* \"\"[ .. n] *\/ (" */); /* line 913 "../lib/comp/str_act.s7i" */ o_4941_process_expr(o_10035_param4, o_10036_c_expr); /* line 914 "../lib/comp/str_act.s7i" */ { /* line 914 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 914 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 914 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 914 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 914 "../lib/comp/str_act.s7i" */ } else { /* line 914 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 914 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 914 "../lib/comp/str_act.s7i" */ } } /* line 915 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6494_stringLiteral(&str[0] /* "" */)); /* line 916 "../lib/comp/str_act.s7i" */ { /* line 916 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 916 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 916 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 916 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 916 "../lib/comp/str_act.s7i" */ } else { /* line 916 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 916 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 916 "../lib/comp/str_act.s7i" */ } } } else /* line 917 "../lib/comp/str_act.s7i" */ if (((intType)((o_10034_stri)->size)) == (1L)) { /* line 918 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); /* line 919 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[205] /* "((" */); /* line 920 "../lib/comp/str_act.s7i" */ o_4941_process_expr(o_10035_param4, o_10036_c_expr); /* line 921 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2002] /* ")>=1?" */); /* line 922 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6494_stringLiteral(o_10034_stri)); /* line 923 "../lib/comp/str_act.s7i" */ { /* line 923 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 923 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 923 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 923 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ':'); /* line 923 "../lib/comp/str_act.s7i" */ } else { /* line 923 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ':'; /* line 923 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 923 "../lib/comp/str_act.s7i" */ } } /* line 924 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6494_stringLiteral(&str[0] /* "" */)); /* line 925 "../lib/comp/str_act.s7i" */ { /* line 925 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 925 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 925 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 925 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 925 "../lib/comp/str_act.s7i" */ } else { /* line 925 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 925 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 925 "../lib/comp/str_act.s7i" */ } } } else /* line 926 "../lib/comp/str_act.s7i" */ if (((structType)(sct[55]))->stru[1].value.boolValue/*->o_3379_ALLOW_STRITYPE_SLICES*/) { /* line 927 "../lib/comp/str_act.s7i" */ ++(((structType)(*o_10036_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 928 "../lib/comp/str_act.s7i" */ union { /* line 928 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 928 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 928 "../lib/comp/str_act.s7i" */ } buffer_2; /* line 928 "../lib/comp/str_act.s7i" */ striType old_stri=o_10039_slice_name; /* line 928 "../lib/comp/str_act.s7i" */ o_10039_slice_name=strConcat(&str[2003] /* "slice_" */, intStrToBuffer(((structType)(*o_10036_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 928 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } /* line 929 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10036_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[714] /* "struct striStruct " */); /* line 930 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10036_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_10039_slice_name); /* line 931 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10036_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 932 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2004] /* "(strHeadSlice(" */); /* line 933 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6494_stringLiteral(o_10034_stri)); /* line 934 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 935 "../lib/comp/str_act.s7i" */ o_4941_process_expr(o_10035_param4, o_10036_c_expr); /* line 936 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[421] /* ", &" */); /* line 937 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10039_slice_name); /* line 938 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[591] /* "), &" */); /* line 939 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10039_slice_name); /* line 940 "../lib/comp/str_act.s7i" */ { /* line 940 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 940 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10036_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 940 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 940 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 940 "../lib/comp/str_act.s7i" */ } else { /* line 940 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 940 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 940 "../lib/comp/str_act.s7i" */ } } } else { /* line 942 "../lib/comp/str_act.s7i" */ o_4955_prepare_stri_result(o_10036_c_expr); /* line 943 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10036_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2005] /* "strHead(" */); /* line 944 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10036_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6494_stringLiteral(o_10034_stri)); /* line 945 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10036_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 946 "../lib/comp/str_act.s7i" */ o_4981_getStdParamToResultExpr(o_10035_param4, o_10036_c_expr); /* line 947 "../lib/comp/str_act.s7i" */ { /* line 947 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 947 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10036_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 947 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 947 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 947 "../lib/comp/str_act.s7i" */ } else { /* line 947 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 947 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 947 "../lib/comp/str_act.s7i" */ } } } /* line 898 "../lib/comp/str_act.s7i" */ strDestr(o_10039_slice_name); } /* line 1 "no_file" */ /* 4550 */ /* line 952 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10040_process_const_str_head1 (const objRefType/*t_19_reference*/ o_10041_param1, structType/*t_164_expr_type*/ *const o_10042_c_expr) { /* line 956 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10043_temp_name; /* line 957 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10044_stri1_name; /* line 956 "../lib/comp/str_act.s7i" */ o_10043_temp_name=strEmpty(); /* "" */ /* line 957 "../lib/comp/str_act.s7i" */ o_10044_stri1_name=strEmpty(); /* "" */ /* line 959 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); /* line 960 "../lib/comp/str_act.s7i" */ { /* line 960 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 960 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10042_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 960 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 960 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 960 "../lib/comp/str_act.s7i" */ } else { /* line 960 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 960 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 960 "../lib/comp/str_act.s7i" */ } } { /* line 961 "../lib/comp/str_act.s7i" */ striType old_stri=o_10043_temp_name; /* line 961 "../lib/comp/str_act.s7i" */ o_10043_temp_name=o_5031_getParameterAsVariable(&str[1983] /* "const_striType" */, &str[282] /* "tmp_" */, o_10041_param1, o_10042_c_expr); /* line 961 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } /* line 962 "../lib/comp/str_act.s7i" */ ++(((structType)(*o_10042_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 963 "../lib/comp/str_act.s7i" */ union { /* line 963 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 963 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 963 "../lib/comp/str_act.s7i" */ } buffer_2; /* line 963 "../lib/comp/str_act.s7i" */ striType old_stri=o_10044_stri1_name; /* line 963 "../lib/comp/str_act.s7i" */ o_10044_stri1_name=strConcat(&str[2006] /* "stri1_" */, intStrToBuffer(((structType)(*o_10042_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 963 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } /* line 964 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10042_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[714] /* "struct striStruct " */); /* line 965 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10042_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_10044_stri1_name); /* line 966 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10042_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 967 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10042_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10043_temp_name); /* line 968 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10042_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2007] /* "->size>=1?chrStrMacro(" */); /* line 969 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10042_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10043_temp_name); /* line 970 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10042_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2008] /* "->mem[0]," */); /* line 971 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10042_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10044_stri1_name); /* line 972 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10042_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[316] /* "):" */); /* line 973 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10042_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6494_stringLiteral(&str[0] /* "" */)); /* line 974 "../lib/comp/str_act.s7i" */ { /* line 974 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 974 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10042_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 974 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 974 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 974 "../lib/comp/str_act.s7i" */ } else { /* line 974 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 974 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 974 "../lib/comp/str_act.s7i" */ } } /* line 952 "../lib/comp/str_act.s7i" */ strDestr(o_10043_temp_name); /* line 952 "../lib/comp/str_act.s7i" */ strDestr(o_10044_stri1_name); } /* line 1 "no_file" */ /* 4551 */ /* line 978 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10045_process_str_head (const objRefType/*t_19_reference*/ o_10046_param1, const objRefType/*t_19_reference*/ o_10047_param4, structType/*t_164_expr_type*/ *const o_10048_c_expr) { /* line 982 "../lib/comp/str_act.s7i" */ objRefType/*t_19_reference*/ o_10049_evaluatedParam=NULL; /* line 983 "../lib/comp/str_act.s7i" */ structType/*t_164_expr_type*/ o_10050_c_param1; /* line 984 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10051_slice_name; /* line 983 "../lib/comp/str_act.s7i" */ o_10050_c_param1=create_164(sct[325]); /* line 984 "../lib/comp/str_act.s7i" */ o_10051_slice_name=strEmpty(); /* "" */ /* line 986 "../lib/comp/str_act.s7i" */ if (o_5154_getConstant(o_10046_param1, 12L, &(o_10049_evaluatedParam))) { { /* line 987 "../lib/comp/str_act.s7i" */ striType tmp_1 = NULL; /* line 987 "../lib/comp/str_act.s7i" */ o_10033_process_const_str_head((tmp_1=strValue(o_10049_evaluatedParam)), o_10047_param4, o_10048_c_expr); /* line 987 "../lib/comp/str_act.s7i" */ strDestr(tmp_1); } } else /* line 988 "../lib/comp/str_act.s7i" */ if ((o_5154_getConstant(o_10047_param4, 9L, &(o_10049_evaluatedParam))) && /* line 989 "../lib/comp/str_act.s7i" */ ((intValue(o_10049_evaluatedParam)) == (1L))) { /* line 990 "../lib/comp/str_act.s7i" */ o_10040_process_const_str_head1(o_10046_param1, o_10048_c_expr); } else { /* line 992 "../lib/comp/str_act.s7i" */ o_4963_prepareAnyParamTemporarys(o_10046_param1, &(o_10050_c_param1), o_10048_c_expr); /* line 993 "../lib/comp/str_act.s7i" */ if (((((structType)(o_10050_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 994 "../lib/comp/str_act.s7i" */ o_4955_prepare_stri_result(o_10048_c_expr); /* line 995 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10048_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2009] /* "strHeadTemp(" */); /* line 996 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10048_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_10050_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 997 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10048_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 998 "../lib/comp/str_act.s7i" */ o_4981_getStdParamToResultExpr(o_10047_param4, o_10048_c_expr); /* line 999 "../lib/comp/str_act.s7i" */ { /* line 999 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 999 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10048_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 999 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 999 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 999 "../lib/comp/str_act.s7i" */ } else { /* line 999 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 999 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 999 "../lib/comp/str_act.s7i" */ } } } else /* line 1000 "../lib/comp/str_act.s7i" */ if (((structType)(sct[55]))->stru[1].value.boolValue/*->o_3379_ALLOW_STRITYPE_SLICES*/) { /* line 1001 "../lib/comp/str_act.s7i" */ ++(((structType)(*o_10048_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 1002 "../lib/comp/str_act.s7i" */ union { /* line 1002 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 1002 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1002 "../lib/comp/str_act.s7i" */ } buffer_2; /* line 1002 "../lib/comp/str_act.s7i" */ striType old_stri=o_10051_slice_name; /* line 1002 "../lib/comp/str_act.s7i" */ o_10051_slice_name=strConcat(&str[2003] /* "slice_" */, intStrToBuffer(((structType)(*o_10048_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 1002 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } /* line 1003 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10048_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[714] /* "struct striStruct " */); /* line 1004 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10048_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_10051_slice_name); /* line 1005 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10048_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 1006 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10048_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2004] /* "(strHeadSlice(" */); /* line 1007 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10048_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_10050_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1008 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10048_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 1009 "../lib/comp/str_act.s7i" */ o_4941_process_expr(o_10047_param4, o_10048_c_expr); /* line 1010 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10048_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[421] /* ", &" */); /* line 1011 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10048_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10051_slice_name); /* line 1012 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10048_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[591] /* "), &" */); /* line 1013 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10048_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10051_slice_name); /* line 1014 "../lib/comp/str_act.s7i" */ { /* line 1014 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1014 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10048_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1014 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1014 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1014 "../lib/comp/str_act.s7i" */ } else { /* line 1014 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1014 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1014 "../lib/comp/str_act.s7i" */ } } } else { /* line 1016 "../lib/comp/str_act.s7i" */ o_4955_prepare_stri_result(o_10048_c_expr); /* line 1017 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10048_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2005] /* "strHead(" */); /* line 1018 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10048_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_10050_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1019 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10048_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1020 "../lib/comp/str_act.s7i" */ o_4981_getStdParamToResultExpr(o_10047_param4, o_10048_c_expr); /* line 1021 "../lib/comp/str_act.s7i" */ { /* line 1021 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1021 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10048_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1021 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1021 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1021 "../lib/comp/str_act.s7i" */ } else { /* line 1021 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1021 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1021 "../lib/comp/str_act.s7i" */ } } } } /* line 978 "../lib/comp/str_act.s7i" */ destr_164(o_10050_c_param1); /* line 978 "../lib/comp/str_act.s7i" */ strDestr(o_10051_slice_name); } /* line 1 "no_file" */ /* 4552 */ /* line 1027 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10052_STR_HEAD (const objRefType/*t_19_reference*/ o_10053_function, const listType/*t_20_ref_list*/ *const o_10054_params, structType/*t_164_expr_type*/ *const o_10055_c_expr) { /* line 1031 "../lib/comp/str_act.s7i" */ o_10045_process_str_head(rflIdx(*o_10054_params, 1L), rflIdx(*o_10054_params, 4L), o_10055_c_expr); } /* line 1 "no_file" */ /* 4553 */ /* line 1035 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10056_process_const_str_idx (const objRefType/*t_19_reference*/ o_10057_function, const const_striType/*t_15_string*/ o_10058_stri, const objRefType/*t_19_reference*/ o_10059_param3, structType/*t_164_expr_type*/ *const o_10060_c_expr) { /* line 1039 "../lib/comp/str_act.s7i" */ objRefType/*t_19_reference*/ o_10061_evaluatedParam=NULL; /* line 1040 "../lib/comp/str_act.s7i" */ intType/*t_14_integer*/ o_10062_index=0; /* line 1041 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10063_index_name; /* line 1041 "../lib/comp/str_act.s7i" */ o_10063_index_name=strEmpty(); /* "" */ /* line 1043 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); /* line 1044 "../lib/comp/str_act.s7i" */ if (o_5154_getConstant(o_10059_param3, 9L, &(o_10061_evaluatedParam))) { /* line 1045 "../lib/comp/str_act.s7i" */ o_10062_index=intValue(o_10061_evaluatedParam); /* line 1046 "../lib/comp/str_act.s7i" */ if (((o_10062_index) < (1L)) || /* line 1046 "../lib/comp/str_act.s7i" */ ((o_10062_index) > ((intType)((o_10058_stri)->size)))) { /* line 1047 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[406] /* "RANGE_ERROR" */)); } else { { /* line 1049 "../lib/comp/str_act.s7i" */ uintType idx_2; /* line 1049 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6500_charLiteral((o_10058_stri)->mem[(idx_2=(uintType)((o_10062_index)-1), idxChk(idx_2>=(o_10058_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_2)])); } } } else { /* line 1052 "../lib/comp/str_act.s7i" */ { /* line 1052 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1052 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1052 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1052 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1052 "../lib/comp/str_act.s7i" */ } else { /* line 1052 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1052 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1052 "../lib/comp/str_act.s7i" */ } } /* line 1053 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6494_stringLiteral(o_10058_stri)); /* line 1054 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[671] /* ")->mem[" */); /* line 1055 "../lib/comp/str_act.s7i" */ if (o_3450_array_range_check) { /* line 1056 "../lib/comp/str_act.s7i" */ ++(o_5109_countRangeChecks); /* line 1057 "../lib/comp/str_act.s7i" */ ++(((structType)(*o_10060_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 1058 "../lib/comp/str_act.s7i" */ union { /* line 1058 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 1058 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1058 "../lib/comp/str_act.s7i" */ } buffer_2; /* line 1058 "../lib/comp/str_act.s7i" */ striType old_stri=o_10063_index_name; /* line 1058 "../lib/comp/str_act.s7i" */ o_10063_index_name=strConcat(&str[408] /* "idx_" */, intStrToBuffer(((structType)(*o_10060_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 1058 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } /* line 1059 "../lib/comp/str_act.s7i" */ if (((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/) { /* line 1060 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10060_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[409] /* "uintType " */); } else { /* line 1062 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10060_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[410] /* "intType " */); } /* line 1064 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10060_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_10063_index_name); /* line 1065 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10060_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 1066 "../lib/comp/str_act.s7i" */ { /* line 1066 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1066 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1066 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1066 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1066 "../lib/comp/str_act.s7i" */ } else { /* line 1066 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1066 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1066 "../lib/comp/str_act.s7i" */ } } /* line 1067 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10063_index_name); /* line 1068 "../lib/comp/str_act.s7i" */ { /* line 1068 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1068 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1068 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1068 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 1068 "../lib/comp/str_act.s7i" */ } else { /* line 1068 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 1068 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1068 "../lib/comp/str_act.s7i" */ } } /* line 1069 "../lib/comp/str_act.s7i" */ if (((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/) { /* line 1070 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[663] /* "(uintType)((" */); /* line 1071 "../lib/comp/str_act.s7i" */ o_4941_process_expr(o_10059_param3, o_10060_c_expr); /* line 1072 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[664] /* ")-1), idxChk(" */); } else { /* line 1074 "../lib/comp/str_act.s7i" */ { /* line 1074 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1074 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1074 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1074 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1074 "../lib/comp/str_act.s7i" */ } else { /* line 1074 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1074 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1074 "../lib/comp/str_act.s7i" */ } } /* line 1075 "../lib/comp/str_act.s7i" */ o_4941_process_expr(o_10059_param3, o_10060_c_expr); /* line 1076 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[665] /* ")-1, idxChk(" */); /* line 1077 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10063_index_name); /* line 1078 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[413] /* "<0 || " */); } /* line 1080 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10063_index_name); /* line 1081 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[414] /* ">=" */); { /* line 1082 "../lib/comp/str_act.s7i" */ union { /* line 1082 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 1082 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1082 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 1082 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((intType)((o_10058_stri)->size), &buffer_1.striBuf)); } /* line 1083 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[415] /* ") ? " */); /* line 1084 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[406] /* "RANGE_ERROR" */)); /* line 1085 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[416] /* " : 0, " */); /* line 1086 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10063_index_name); /* line 1087 "../lib/comp/str_act.s7i" */ { /* line 1087 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1087 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1087 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1087 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1087 "../lib/comp/str_act.s7i" */ } else { /* line 1087 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1087 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1087 "../lib/comp/str_act.s7i" */ } } } else { /* line 1089 "../lib/comp/str_act.s7i" */ ++(o_5110_countNoRangeChecks); /* line 1090 "../lib/comp/str_act.s7i" */ { /* line 1090 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1090 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1090 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1090 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1090 "../lib/comp/str_act.s7i" */ } else { /* line 1090 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1090 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1090 "../lib/comp/str_act.s7i" */ } } /* line 1091 "../lib/comp/str_act.s7i" */ o_4941_process_expr(o_10059_param3, o_10060_c_expr); /* line 1092 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[666] /* ")-1" */); } /* line 1094 "../lib/comp/str_act.s7i" */ { /* line 1094 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1094 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10060_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1094 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1094 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ']'); /* line 1094 "../lib/comp/str_act.s7i" */ } else { /* line 1094 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ']'; /* line 1094 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1094 "../lib/comp/str_act.s7i" */ } } } /* line 1035 "../lib/comp/str_act.s7i" */ strDestr(o_10063_index_name); } /* line 1 "no_file" */ /* 4554 */ /* line 1099 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10064_process_const_str_idx (const objRefType/*t_19_reference*/ o_10065_function, const objRefType/*t_19_reference*/ o_10066_param1, const intType/*t_14_integer*/ o_10067_index, structType/*t_164_expr_type*/ *const o_10068_c_expr) { /* line 1103 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10069_stri_name; /* line 1103 "../lib/comp/str_act.s7i" */ o_10069_stri_name=strEmpty(); /* "" */ /* line 1105 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); /* line 1106 "../lib/comp/str_act.s7i" */ if ((o_10067_index) < (1L)) { /* line 1107 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10068_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[406] /* "RANGE_ERROR" */)); } else /* line 1108 "../lib/comp/str_act.s7i" */ if (o_3450_array_range_check) { /* line 1109 "../lib/comp/str_act.s7i" */ ++(o_5109_countRangeChecks); /* line 1110 "../lib/comp/str_act.s7i" */ if (o_5018_isNormalVariable(o_10066_param1)) { { /* line 1111 "../lib/comp/str_act.s7i" */ striType old_stri=o_10069_stri_name; /* line 1111 "../lib/comp/str_act.s7i" */ o_10069_stri_name=o_5020_normalVariable(o_10066_param1, o_10068_c_expr); /* line 1111 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } } else { /* line 1113 "../lib/comp/str_act.s7i" */ ++(((structType)(*o_10068_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 1114 "../lib/comp/str_act.s7i" */ union { /* line 1114 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 1114 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1114 "../lib/comp/str_act.s7i" */ } buffer_2; /* line 1114 "../lib/comp/str_act.s7i" */ striType old_stri=o_10069_stri_name; /* line 1114 "../lib/comp/str_act.s7i" */ o_10069_stri_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_10068_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 1114 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } /* line 1115 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10068_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[1951] /* "const_striType " */); /* line 1116 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10068_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_10069_stri_name); /* line 1117 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10068_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 1118 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10068_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[420] /* "(*(" */); /* line 1119 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10068_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10069_stri_name); /* line 1120 "../lib/comp/str_act.s7i" */ { /* line 1120 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1120 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10068_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1120 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1120 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 1120 "../lib/comp/str_act.s7i" */ } else { /* line 1120 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 1120 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1120 "../lib/comp/str_act.s7i" */ } } /* line 1121 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(o_10066_param1, o_10068_c_expr); /* line 1122 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10068_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[421] /* ", &" */); } /* line 1124 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10068_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10069_stri_name); /* line 1125 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10068_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[668] /* "->mem[(idxChk(" */); /* line 1126 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10068_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10069_stri_name); /* line 1127 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10068_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[669] /* "->size<" */); { /* line 1128 "../lib/comp/str_act.s7i" */ union { /* line 1128 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 1128 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1128 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 1128 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10068_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(o_10067_index, &buffer_1.striBuf)); } /* line 1129 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10068_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[415] /* ") ? " */); /* line 1130 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10068_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[406] /* "RANGE_ERROR" */)); /* line 1131 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10068_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[416] /* " : 0, " */); { /* line 1132 "../lib/comp/str_act.s7i" */ union { /* line 1132 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 1132 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1132 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 1132 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10068_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((o_10067_index)-1, &buffer_1.striBuf)); } /* line 1133 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10068_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2010] /* ")]" */); /* line 1134 "../lib/comp/str_act.s7i" */ if (!(o_5018_isNormalVariable(o_10066_param1))) { /* line 1135 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10068_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); } } else { /* line 1138 "../lib/comp/str_act.s7i" */ ++(o_5110_countNoRangeChecks); /* line 1139 "../lib/comp/str_act.s7i" */ { /* line 1139 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1139 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10068_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1139 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1139 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1139 "../lib/comp/str_act.s7i" */ } else { /* line 1139 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1139 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1139 "../lib/comp/str_act.s7i" */ } } /* line 1140 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(o_10066_param1, o_10068_c_expr); /* line 1141 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10068_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[671] /* ")->mem[" */); { /* line 1142 "../lib/comp/str_act.s7i" */ union { /* line 1142 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 1142 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1142 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 1142 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10068_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((o_10067_index)-1, &buffer_1.striBuf)); } /* line 1143 "../lib/comp/str_act.s7i" */ { /* line 1143 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1143 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10068_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1143 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1143 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ']'); /* line 1143 "../lib/comp/str_act.s7i" */ } else { /* line 1143 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ']'; /* line 1143 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1143 "../lib/comp/str_act.s7i" */ } } } /* line 1099 "../lib/comp/str_act.s7i" */ strDestr(o_10069_stri_name); } /* line 1 "no_file" */ /* 4555 */ /* line 1148 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10070_STR_IDX (const objRefType/*t_19_reference*/ o_10071_function, const listType/*t_20_ref_list*/ *const o_10072_params, structType/*t_164_expr_type*/ *const o_10073_c_expr) { /* line 1152 "../lib/comp/str_act.s7i" */ objRefType/*t_19_reference*/ o_10074_evaluatedParam=NULL; /* line 1153 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10075_stri_name; /* line 1154 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10076_index_name; /* line 1153 "../lib/comp/str_act.s7i" */ o_10075_stri_name=strEmpty(); /* "" */ /* line 1154 "../lib/comp/str_act.s7i" */ o_10076_index_name=strEmpty(); /* "" */ /* line 1156 "../lib/comp/str_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_10072_params, 1L), 12L, &(o_10074_evaluatedParam))) { { /* line 1157 "../lib/comp/str_act.s7i" */ striType tmp_1 = NULL; /* line 1157 "../lib/comp/str_act.s7i" */ o_10056_process_const_str_idx(o_10071_function, (tmp_1=strValue(o_10074_evaluatedParam)), rflIdx(*o_10072_params, 3L), o_10073_c_expr); /* line 1157 "../lib/comp/str_act.s7i" */ strDestr(tmp_1); } } else /* line 1158 "../lib/comp/str_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_10072_params, 3L), 9L, &(o_10074_evaluatedParam))) { /* line 1159 "../lib/comp/str_act.s7i" */ o_10064_process_const_str_idx(o_10071_function, rflIdx(*o_10072_params, 1L), intValue(o_10074_evaluatedParam), o_10073_c_expr); } else /* line 1160 "../lib/comp/str_act.s7i" */ if (o_3450_array_range_check) { /* line 1161 "../lib/comp/str_act.s7i" */ ++(o_5109_countRangeChecks); /* line 1162 "../lib/comp/str_act.s7i" */ ++(((structType)(*o_10073_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 1163 "../lib/comp/str_act.s7i" */ union { /* line 1163 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 1163 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1163 "../lib/comp/str_act.s7i" */ } buffer_2; /* line 1163 "../lib/comp/str_act.s7i" */ striType old_stri=o_10076_index_name; /* line 1163 "../lib/comp/str_act.s7i" */ o_10076_index_name=strConcat(&str[408] /* "idx_" */, intStrToBuffer(((structType)(*o_10073_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 1163 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } /* line 1164 "../lib/comp/str_act.s7i" */ if (((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/) { /* line 1165 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[409] /* "uintType " */); } else { /* line 1167 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[410] /* "intType " */); } /* line 1169 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_10076_index_name); /* line 1170 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 1171 "../lib/comp/str_act.s7i" */ if (o_5018_isNormalVariable(rflIdx(*o_10072_params, 1L))) { { /* line 1172 "../lib/comp/str_act.s7i" */ striType old_stri=o_10075_stri_name; /* line 1172 "../lib/comp/str_act.s7i" */ o_10075_stri_name=o_5020_normalVariable(rflIdx(*o_10072_params, 1L), o_10073_c_expr); /* line 1172 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } } else { { /* line 1174 "../lib/comp/str_act.s7i" */ union { /* line 1174 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 1174 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1174 "../lib/comp/str_act.s7i" */ } buffer_2; /* line 1174 "../lib/comp/str_act.s7i" */ striType old_stri=o_10075_stri_name; /* line 1174 "../lib/comp/str_act.s7i" */ o_10075_stri_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(*o_10073_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 1174 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } /* line 1175 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[1951] /* "const_striType " */); /* line 1176 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_10075_stri_name); /* line 1177 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 1178 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[420] /* "(*(" */); /* line 1179 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10075_stri_name); /* line 1180 "../lib/comp/str_act.s7i" */ { /* line 1180 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1180 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10073_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1180 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1180 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 1180 "../lib/comp/str_act.s7i" */ } else { /* line 1180 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 1180 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1180 "../lib/comp/str_act.s7i" */ } } /* line 1181 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10072_params, 1L), o_10073_c_expr); /* line 1182 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[421] /* ", &" */); } /* line 1184 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10075_stri_name); /* line 1185 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[672] /* "->mem[(" */); /* line 1186 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10076_index_name); /* line 1187 "../lib/comp/str_act.s7i" */ { /* line 1187 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1187 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10073_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1187 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1187 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 1187 "../lib/comp/str_act.s7i" */ } else { /* line 1187 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 1187 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1187 "../lib/comp/str_act.s7i" */ } } /* line 1188 "../lib/comp/str_act.s7i" */ if (((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/) { /* line 1189 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[663] /* "(uintType)((" */); /* line 1190 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10072_params, 3L), o_10073_c_expr); /* line 1191 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[664] /* ")-1), idxChk(" */); } else { /* line 1193 "../lib/comp/str_act.s7i" */ { /* line 1193 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1193 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10073_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1193 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1193 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1193 "../lib/comp/str_act.s7i" */ } else { /* line 1193 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1193 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1193 "../lib/comp/str_act.s7i" */ } } /* line 1194 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10072_params, 3L), o_10073_c_expr); /* line 1195 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[665] /* ")-1, idxChk(" */); /* line 1196 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10076_index_name); /* line 1197 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[413] /* "<0 || " */); } /* line 1199 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10076_index_name); /* line 1200 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[414] /* ">=" */); /* line 1201 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10075_stri_name); /* line 1202 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[673] /* "->size) ? " */); /* line 1203 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10073_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6525_intRaiseError(&str[406] /* "RANGE_ERROR" */)); /* line 1204 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[416] /* " : 0, " */); /* line 1205 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10076_index_name); /* line 1206 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2010] /* ")]" */); /* line 1207 "../lib/comp/str_act.s7i" */ if (!(o_5018_isNormalVariable(rflIdx(*o_10072_params, 1L)))) { /* line 1208 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); } } else { /* line 1211 "../lib/comp/str_act.s7i" */ ++(o_5110_countNoRangeChecks); /* line 1212 "../lib/comp/str_act.s7i" */ { /* line 1212 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1212 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10073_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1212 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1212 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1212 "../lib/comp/str_act.s7i" */ } else { /* line 1212 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1212 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1212 "../lib/comp/str_act.s7i" */ } } /* line 1213 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10072_params, 1L), o_10073_c_expr); /* line 1214 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[674] /* ")->mem[(" */); /* line 1215 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10072_params, 3L), o_10073_c_expr); /* line 1216 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10073_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[675] /* ")-1]" */); } /* line 1148 "../lib/comp/str_act.s7i" */ strDestr(o_10075_stri_name); /* line 1148 "../lib/comp/str_act.s7i" */ strDestr(o_10076_index_name); } /* line 1 "no_file" */ /* 4556 */ /* line 1221 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10077_STR_IPOS (const objRefType/*t_19_reference*/ o_10078_function, const listType/*t_20_ref_list*/ *const o_10079_params, structType/*t_164_expr_type*/ *const o_10080_c_expr) { /* line 1225 "../lib/comp/str_act.s7i" */ objRefType/*t_19_reference*/ o_10081_evaluatedParam=NULL; { /* line 1227 "../lib/comp/str_act.s7i" */ striType tmp_1 = NULL; /* line 1227 "../lib/comp/str_act.s7i" */ if ((o_5154_getConstant(rflIdx(*o_10079_params, 2L), 12L, &(o_10081_evaluatedParam))) && /* line 1228 "../lib/comp/str_act.s7i" */ (((intType)(((tmp_1=strValue(o_10081_evaluatedParam)))->size)) == (1L))) { /* line 1229 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); /* line 1230 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10080_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1957] /* "strChIPos(" */); /* line 1231 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10079_params, 1L), o_10080_c_expr); /* line 1232 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10080_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); { /* line 1233 "../lib/comp/str_act.s7i" */ const_striType tmp_2; /* line 1233 "../lib/comp/str_act.s7i" */ striType tmp_3 = NULL; /* line 1233 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10080_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6500_charLiteral((*(tmp_2=(tmp_3=strValue(o_10081_evaluatedParam)), &tmp_2->mem[(idxChk(tmp_2->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)])))); /* line 1233 "../lib/comp/str_act.s7i" */ strDestr(tmp_3); } /* line 1234 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10080_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 1235 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10079_params, 3L), o_10080_c_expr); /* line 1236 "../lib/comp/str_act.s7i" */ { /* line 1236 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1236 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10080_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1236 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1236 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1236 "../lib/comp/str_act.s7i" */ } else { /* line 1236 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1236 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1236 "../lib/comp/str_act.s7i" */ } } } else { /* line 1238 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10080_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2011] /* "strIPos(" */); /* line 1239 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10079_params, 1L), o_10080_c_expr); /* line 1240 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10080_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 1241 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10079_params, 2L), o_10080_c_expr); /* line 1242 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10080_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 1243 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10079_params, 3L), o_10080_c_expr); /* line 1244 "../lib/comp/str_act.s7i" */ { /* line 1244 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1244 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10080_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1244 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1244 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1244 "../lib/comp/str_act.s7i" */ } else { /* line 1244 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1244 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1244 "../lib/comp/str_act.s7i" */ } } } /* line 1227 "../lib/comp/str_act.s7i" */ strDestr(tmp_1); } } /* line 1 "no_file" */ /* 4557 */ /* line 1249 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10082_STR_LE (const objRefType/*t_19_reference*/ o_10083_function, const listType/*t_20_ref_list*/ *const o_10084_params, structType/*t_164_expr_type*/ *const o_10085_c_expr) { /* line 1253 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2012] /* "strLe(" */); /* line 1254 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10084_params, 1L), o_10085_c_expr); /* line 1255 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 1256 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10084_params, 3L), o_10085_c_expr); /* line 1257 "../lib/comp/str_act.s7i" */ { /* line 1257 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1257 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10085_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1257 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1257 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1257 "../lib/comp/str_act.s7i" */ } else { /* line 1257 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1257 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1257 "../lib/comp/str_act.s7i" */ } } } /* line 1 "no_file" */ /* 4558 */ /* line 1261 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10086_STR_LIT (const objRefType/*t_19_reference*/ o_10087_function, const listType/*t_20_ref_list*/ *const o_10088_params, structType/*t_164_expr_type*/ *const o_10089_c_expr) { /* line 1265 "../lib/comp/str_act.s7i" */ o_4955_prepare_stri_result(o_10089_c_expr); /* line 1266 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10089_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2013] /* "strLit(" */); /* line 1267 "../lib/comp/str_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_10088_params, 1L), o_10089_c_expr); /* line 1268 "../lib/comp/str_act.s7i" */ { /* line 1268 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1268 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10089_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1268 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1268 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1268 "../lib/comp/str_act.s7i" */ } else { /* line 1268 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1268 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1268 "../lib/comp/str_act.s7i" */ } } } /* line 1 "no_file" */ /* 4559 */ /* line 1272 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10090_STR_LNG (const objRefType/*t_19_reference*/ o_10091_function, const listType/*t_20_ref_list*/ *const o_10092_params, structType/*t_164_expr_type*/ *const o_10093_c_expr) { /* line 1276 "../lib/comp/str_act.s7i" */ objRefType/*t_19_reference*/ o_10094_evaluatedParam=NULL; /* line 1277 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10095_stri; /* line 1277 "../lib/comp/str_act.s7i" */ o_10095_stri=strEmpty(); /* "" */ /* line 1279 "../lib/comp/str_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_10092_params, 1L), 12L, &(o_10094_evaluatedParam))) { /* line 1280 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); { /* line 1281 "../lib/comp/str_act.s7i" */ striType old_stri=o_10095_stri; /* line 1281 "../lib/comp/str_act.s7i" */ o_10095_stri=strValue(o_10094_evaluatedParam); /* line 1281 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } { /* line 1282 "../lib/comp/str_act.s7i" */ union { /* line 1282 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 1282 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1282 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 1282 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10093_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((intType)((o_10095_stri)->size), &buffer_1.striBuf)); } /* line 1283 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10093_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2014] /* " /* length(" */); { /* line 1284 "../lib/comp/str_act.s7i" */ striType tmp_2 = NULL; /* line 1284 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10093_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), strRepl((tmp_2=strLit(o_10095_stri)), &str[123] /* "*\/" */, &str[318] /* "*\\/" */)); /* line 1284 "../lib/comp/str_act.s7i" */ strDestr(tmp_2); } /* line 1285 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10093_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2015] /* ") *\/" */); } else { /* line 1287 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10093_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[676] /* "(intType)((" */); /* line 1288 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10092_params, 1L), o_10093_c_expr); /* line 1289 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10093_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[677] /* ")->size)" */); } /* line 1272 "../lib/comp/str_act.s7i" */ strDestr(o_10095_stri); } /* line 1 "no_file" */ /* 4560 */ /* line 1301 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10096_STR_LOW (const objRefType/*t_19_reference*/ o_10097_function, const listType/*t_20_ref_list*/ *const o_10098_params, structType/*t_164_expr_type*/ *const o_10099_c_expr) { /* line 1305 "../lib/comp/str_act.s7i" */ structType/*t_164_expr_type*/ o_10100_c_param1; /* line 1305 "../lib/comp/str_act.s7i" */ o_10100_c_param1=create_164(sct[326]); /* line 1307 "../lib/comp/str_act.s7i" */ o_4955_prepare_stri_result(o_10099_c_expr); /* line 1308 "../lib/comp/str_act.s7i" */ o_4963_prepareAnyParamTemporarys(rflIdx(*o_10098_params, 1L), &(o_10100_c_param1), o_10099_c_expr); /* line 1309 "../lib/comp/str_act.s7i" */ if (((((structType)(o_10100_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 1310 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10099_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2016] /* "strLowTemp(" */); /* line 1311 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10099_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_10100_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 1313 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10099_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2017] /* "strLow(" */); /* line 1314 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10099_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_10100_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 1316 "../lib/comp/str_act.s7i" */ { /* line 1316 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1316 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10099_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1316 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1316 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1316 "../lib/comp/str_act.s7i" */ } else { /* line 1316 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1316 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1316 "../lib/comp/str_act.s7i" */ } } /* line 1301 "../lib/comp/str_act.s7i" */ destr_164(o_10100_c_param1); } /* line 1 "no_file" */ /* 4561 */ /* line 1327 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10101_STR_LPAD (const objRefType/*t_19_reference*/ o_10102_function, const listType/*t_20_ref_list*/ *const o_10103_params, structType/*t_164_expr_type*/ *const o_10104_c_expr) { /* line 1331 "../lib/comp/str_act.s7i" */ structType/*t_164_expr_type*/ o_10105_c_param1; /* line 1331 "../lib/comp/str_act.s7i" */ o_10105_c_param1=create_164(sct[327]); /* line 1333 "../lib/comp/str_act.s7i" */ o_4955_prepare_stri_result(o_10104_c_expr); /* line 1334 "../lib/comp/str_act.s7i" */ o_4963_prepareAnyParamTemporarys(rflIdx(*o_10103_params, 1L), &(o_10105_c_param1), o_10104_c_expr); /* line 1335 "../lib/comp/str_act.s7i" */ if (((((structType)(o_10105_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 1336 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10104_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2018] /* "strLpadTemp(" */); /* line 1337 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10104_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_10105_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 1339 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10104_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2019] /* "strLpad(" */); /* line 1340 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10104_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_10105_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 1342 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10104_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1343 "../lib/comp/str_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_10103_params, 3L), o_10104_c_expr); /* line 1344 "../lib/comp/str_act.s7i" */ { /* line 1344 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1344 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10104_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1344 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1344 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1344 "../lib/comp/str_act.s7i" */ } else { /* line 1344 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1344 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1344 "../lib/comp/str_act.s7i" */ } } /* line 1327 "../lib/comp/str_act.s7i" */ destr_164(o_10105_c_param1); } /* line 1 "no_file" */ /* 4562 */ /* line 1355 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10106_STR_LPAD0 (const objRefType/*t_19_reference*/ o_10107_function, const listType/*t_20_ref_list*/ *const o_10108_params, structType/*t_164_expr_type*/ *const o_10109_c_expr) { /* line 1359 "../lib/comp/str_act.s7i" */ structType/*t_164_expr_type*/ o_10110_c_param1; /* line 1359 "../lib/comp/str_act.s7i" */ o_10110_c_param1=create_164(sct[328]); /* line 1361 "../lib/comp/str_act.s7i" */ o_4955_prepare_stri_result(o_10109_c_expr); /* line 1362 "../lib/comp/str_act.s7i" */ o_4963_prepareAnyParamTemporarys(rflIdx(*o_10108_params, 1L), &(o_10110_c_param1), o_10109_c_expr); /* line 1363 "../lib/comp/str_act.s7i" */ if (((((structType)(o_10110_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 1364 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10109_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2020] /* "strLpad0Temp(" */); /* line 1365 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10109_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_10110_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 1367 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10109_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2021] /* "strLpad0(" */); /* line 1368 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10109_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_10110_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 1370 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10109_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1371 "../lib/comp/str_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_10108_params, 3L), o_10109_c_expr); /* line 1372 "../lib/comp/str_act.s7i" */ { /* line 1372 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1372 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10109_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1372 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1372 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1372 "../lib/comp/str_act.s7i" */ } else { /* line 1372 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1372 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1372 "../lib/comp/str_act.s7i" */ } } /* line 1355 "../lib/comp/str_act.s7i" */ destr_164(o_10110_c_param1); } /* line 1 "no_file" */ /* 4563 */ /* line 1376 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10111_STR_LT (const objRefType/*t_19_reference*/ o_10112_function, const listType/*t_20_ref_list*/ *const o_10113_params, structType/*t_164_expr_type*/ *const o_10114_c_expr) { /* line 1380 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10114_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2022] /* "strLt(" */); /* line 1381 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10113_params, 1L), o_10114_c_expr); /* line 1382 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10114_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 1383 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10113_params, 3L), o_10114_c_expr); /* line 1384 "../lib/comp/str_act.s7i" */ { /* line 1384 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1384 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10114_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1384 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1384 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1384 "../lib/comp/str_act.s7i" */ } else { /* line 1384 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1384 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1384 "../lib/comp/str_act.s7i" */ } } } /* line 1 "no_file" */ /* 4564 */ /* line 1388 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10115_STR_LTRIM (const objRefType/*t_19_reference*/ o_10116_function, const listType/*t_20_ref_list*/ *const o_10117_params, structType/*t_164_expr_type*/ *const o_10118_c_expr) { /* line 1392 "../lib/comp/str_act.s7i" */ o_4955_prepare_stri_result(o_10118_c_expr); /* line 1393 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10118_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2023] /* "strLtrim(" */); /* line 1394 "../lib/comp/str_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_10117_params, 1L), o_10118_c_expr); /* line 1395 "../lib/comp/str_act.s7i" */ { /* line 1395 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1395 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10118_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1395 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1395 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1395 "../lib/comp/str_act.s7i" */ } else { /* line 1395 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1395 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1395 "../lib/comp/str_act.s7i" */ } } } /* line 1 "no_file" */ /* 4565 */ /* line 1399 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10119_process_const_str_mult (const const_striType/*t_15_string*/ o_10120_stri, const objRefType/*t_19_reference*/ o_10121_factor, structType/*t_164_expr_type*/ *const o_10122_c_expr) { /* line 1403 "../lib/comp/str_act.s7i" */ charType/*t_18_char*/ o_10123_ch=(charType) ' '; /* line 1405 "../lib/comp/str_act.s7i" */ if (((intType)((o_10120_stri)->size)) == (1L)) { /* line 1406 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); /* line 1407 "../lib/comp/str_act.s7i" */ o_10123_ch=(o_10120_stri)->mem[(idxChk((o_10120_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]; /* line 1408 "../lib/comp/str_act.s7i" */ if ((o_10123_ch) == ((charType) '\000')) { /* line 1409 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10122_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2024] /* "strZero(" */); } else { /* line 1411 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10122_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2025] /* "strChMult(" */); /* line 1412 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10122_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6500_charLiteral(o_10123_ch)); /* line 1413 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10122_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); } } else { /* line 1416 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10122_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2026] /* "strMult(" */); /* line 1417 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10122_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6494_stringLiteral(o_10120_stri)); /* line 1418 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10122_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); } /* line 1420 "../lib/comp/str_act.s7i" */ o_4981_getStdParamToResultExpr(o_10121_factor, o_10122_c_expr); /* line 1421 "../lib/comp/str_act.s7i" */ { /* line 1421 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1421 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10122_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1421 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1421 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1421 "../lib/comp/str_act.s7i" */ } else { /* line 1421 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1421 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1421 "../lib/comp/str_act.s7i" */ } } } /* line 1 "no_file" */ /* 4566 */ /* line 1425 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10124_STR_MULT (const objRefType/*t_19_reference*/ o_10125_function, const listType/*t_20_ref_list*/ *const o_10126_params, structType/*t_164_expr_type*/ *const o_10127_c_expr) { /* line 1429 "../lib/comp/str_act.s7i" */ objRefType/*t_19_reference*/ o_10128_evaluatedParam=NULL; /* line 1431 "../lib/comp/str_act.s7i" */ o_4955_prepare_stri_result(o_10127_c_expr); /* line 1432 "../lib/comp/str_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_10126_params, 1L), 12L, &(o_10128_evaluatedParam))) { { /* line 1433 "../lib/comp/str_act.s7i" */ striType tmp_1 = NULL; /* line 1433 "../lib/comp/str_act.s7i" */ o_10119_process_const_str_mult((tmp_1=strValue(o_10128_evaluatedParam)), rflIdx(*o_10126_params, 3L), o_10127_c_expr); /* line 1433 "../lib/comp/str_act.s7i" */ strDestr(tmp_1); } } else { /* line 1435 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10127_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2026] /* "strMult(" */); /* line 1436 "../lib/comp/str_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_10126_params, 1L), o_10127_c_expr); /* line 1437 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10127_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1438 "../lib/comp/str_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_10126_params, 3L), o_10127_c_expr); /* line 1439 "../lib/comp/str_act.s7i" */ { /* line 1439 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1439 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10127_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1439 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1439 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1439 "../lib/comp/str_act.s7i" */ } else { /* line 1439 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1439 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1439 "../lib/comp/str_act.s7i" */ } } } } /* line 1 "no_file" */ /* 4567 */ /* line 1444 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10129_process_const_str_ne (const objRefType/*t_19_reference*/ o_10130_param1, const const_striType/*t_15_string*/ o_10131_stri_b, structType/*t_164_expr_type*/ *const o_10132_c_expr) { /* line 1448 "../lib/comp/str_act.s7i" */ objRefType/*t_19_reference*/ o_10133_evaluatedParam=NULL; /* line 1449 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10134_stri_a_name; /* line 1449 "../lib/comp/str_act.s7i" */ o_10134_stri_a_name=strEmpty(); /* "" */ /* line 1451 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); /* line 1452 "../lib/comp/str_act.s7i" */ if (o_5154_getConstant(o_10130_param1, 12L, &(o_10133_evaluatedParam))) { /* line 1453 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1431] /* "/* " */); { /* line 1454 "../lib/comp/str_act.s7i" */ striType tmp_3 = NULL; /* line 1454 "../lib/comp/str_act.s7i" */ striType tmp_2 = NULL; /* line 1454 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), strRepl((tmp_2=strLit((tmp_3=strValue(o_10133_evaluatedParam)))), &str[123] /* "*\/" */, &str[318] /* "*\\/" */)); /* line 1454 "../lib/comp/str_act.s7i" */ strDestr(tmp_3); /* line 1454 "../lib/comp/str_act.s7i" */ strDestr(tmp_2); } /* line 1455 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1056] /* " != " */); { /* line 1456 "../lib/comp/str_act.s7i" */ striType tmp_2 = NULL; /* line 1456 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), strRepl((tmp_2=strLit(o_10131_stri_b)), &str[123] /* "*\/" */, &str[318] /* "*\\/" */)); /* line 1456 "../lib/comp/str_act.s7i" */ strDestr(tmp_2); } /* line 1457 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1981] /* " *\/ " */); { /* line 1458 "../lib/comp/str_act.s7i" */ const_striType tmp_a_1; /* line 1458 "../lib/comp/str_act.s7i" */ striType tmp_2 = NULL; /* line 1458 "../lib/comp/str_act.s7i" */ if ((tmp_a_1=(tmp_2=strValue(o_10133_evaluatedParam)),tmp_a_1->size!=(o_10131_stri_b)->size||memcmp(tmp_a_1->mem,(o_10131_stri_b)->mem,tmp_a_1->size*sizeof(strElemType))!=0)) { /* line 1459 "../lib/comp/str_act.s7i" */ { /* line 1459 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1459 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1459 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1459 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '1'); /* line 1459 "../lib/comp/str_act.s7i" */ } else { /* line 1459 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '1'; /* line 1459 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1459 "../lib/comp/str_act.s7i" */ } } } else { /* line 1461 "../lib/comp/str_act.s7i" */ { /* line 1461 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1461 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1461 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1461 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '0'); /* line 1461 "../lib/comp/str_act.s7i" */ } else { /* line 1461 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '0'; /* line 1461 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1461 "../lib/comp/str_act.s7i" */ } } } /* line 1458 "../lib/comp/str_act.s7i" */ strDestr(tmp_2); } } else /* line 1463 "../lib/comp/str_act.s7i" */ if (((o_10131_stri_b)->size==0 /* "" */)) { /* line 1464 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[205] /* "((" */); /* line 1465 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(o_10130_param1, o_10132_c_expr); /* line 1466 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2027] /* ")->size!=0 /* \"\" *\/)" */); } else { /* line 1468 "../lib/comp/str_act.s7i" */ { /* line 1468 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1468 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1468 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1468 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1468 "../lib/comp/str_act.s7i" */ } else { /* line 1468 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1468 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1468 "../lib/comp/str_act.s7i" */ } } { /* line 1469 "../lib/comp/str_act.s7i" */ striType old_stri=o_10134_stri_a_name; /* line 1469 "../lib/comp/str_act.s7i" */ o_10134_stri_a_name=o_5031_getParameterAsVariable(&str[1983] /* "const_striType" */, &str[282] /* "tmp_" */, o_10130_param1, o_10132_c_expr); /* line 1469 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } /* line 1470 "../lib/comp/str_act.s7i" */ if (((intType)((o_10131_stri_b)->size)) == (1L)) { /* line 1472 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10134_stri_a_name); /* line 1473 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2028] /* "->size!=1||" */); /* line 1474 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10134_stri_a_name); /* line 1475 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2029] /* "->mem[0]!=(strElemType)(" */); { /* line 1476 "../lib/comp/str_act.s7i" */ union { /* line 1476 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 1476 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1476 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 1476 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), chrCLitToBuffer((o_10131_stri_b)->mem[(idxChk((o_10131_stri_b)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)], &buffer_1.striBuf)); } /* line 1477 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1986] /* ") /* " */); /* line 1478 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), strLit(o_10131_stri_b)); /* line 1479 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1987] /* " *\/)" */); } else { /* line 1483 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10134_stri_a_name); /* line 1484 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[678] /* "->size!=" */); { /* line 1485 "../lib/comp/str_act.s7i" */ union { /* line 1485 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 1485 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1485 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 1485 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((intType)((o_10131_stri_b)->size), &buffer_1.striBuf)); } /* line 1486 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2030] /* "||memcmp(" */); /* line 1487 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10134_stri_a_name); /* line 1488 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1989] /* "->mem,(" */); /* line 1489 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6494_stringLiteral(o_10131_stri_b)); /* line 1490 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1990] /* ")->mem," */); { /* line 1491 "../lib/comp/str_act.s7i" */ union { /* line 1491 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 1491 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1491 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 1491 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((intType)((o_10131_stri_b)->size), &buffer_1.striBuf)); } /* line 1492 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2031] /* "*sizeof(strElemType))!=0)" */); } } /* line 1444 "../lib/comp/str_act.s7i" */ strDestr(o_10134_stri_a_name); } /* line 1 "no_file" */ /* 4568 */ /* line 1498 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10135_STR_NE (const objRefType/*t_19_reference*/ o_10136_function, const listType/*t_20_ref_list*/ *const o_10137_params, structType/*t_164_expr_type*/ *const o_10138_c_expr) { /* line 1502 "../lib/comp/str_act.s7i" */ objRefType/*t_19_reference*/ o_10139_evaluatedParam=NULL; /* line 1503 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10140_stri_a_name; /* line 1504 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10141_stri_b_name; /* line 1503 "../lib/comp/str_act.s7i" */ o_10140_stri_a_name=strEmpty(); /* "" */ /* line 1504 "../lib/comp/str_act.s7i" */ o_10141_stri_b_name=strEmpty(); /* "" */ /* line 1506 "../lib/comp/str_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_10137_params, 3L), 12L, &(o_10139_evaluatedParam))) { { /* line 1507 "../lib/comp/str_act.s7i" */ striType tmp_1 = NULL; /* line 1507 "../lib/comp/str_act.s7i" */ o_10129_process_const_str_ne(rflIdx(*o_10137_params, 1L), (tmp_1=strValue(o_10139_evaluatedParam)), o_10138_c_expr); /* line 1507 "../lib/comp/str_act.s7i" */ strDestr(tmp_1); } } else /* line 1508 "../lib/comp/str_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_10137_params, 1L), 12L, &(o_10139_evaluatedParam))) { { /* line 1509 "../lib/comp/str_act.s7i" */ striType tmp_1 = NULL; /* line 1509 "../lib/comp/str_act.s7i" */ o_10129_process_const_str_ne(rflIdx(*o_10137_params, 3L), (tmp_1=strValue(o_10139_evaluatedParam)), o_10138_c_expr); /* line 1509 "../lib/comp/str_act.s7i" */ strDestr(tmp_1); } } else { /* line 1511 "../lib/comp/str_act.s7i" */ { /* line 1511 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1511 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10138_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1511 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1511 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1511 "../lib/comp/str_act.s7i" */ } else { /* line 1511 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1511 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1511 "../lib/comp/str_act.s7i" */ } } { /* line 1512 "../lib/comp/str_act.s7i" */ striType old_stri=o_10140_stri_a_name; /* line 1512 "../lib/comp/str_act.s7i" */ o_10140_stri_a_name=o_5031_getParameterAsVariable(&str[1983] /* "const_striType" */, &str[655] /* "tmp_a_" */, rflIdx(*o_10137_params, 1L), o_10138_c_expr); /* line 1512 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } { /* line 1513 "../lib/comp/str_act.s7i" */ striType old_stri=o_10141_stri_b_name; /* line 1513 "../lib/comp/str_act.s7i" */ o_10141_stri_b_name=o_5031_getParameterAsVariable(&str[1983] /* "const_striType" */, &str[656] /* "tmp_b_" */, rflIdx(*o_10137_params, 3L), o_10138_c_expr); /* line 1513 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } /* line 1516 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10138_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10140_stri_a_name); /* line 1517 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10138_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[678] /* "->size!=" */); /* line 1518 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10138_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10141_stri_b_name); /* line 1519 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10138_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[679] /* "->size||memcmp(" */); /* line 1520 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10138_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10140_stri_a_name); /* line 1521 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10138_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[659] /* "->mem," */); /* line 1522 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10138_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10141_stri_b_name); /* line 1523 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10138_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[659] /* "->mem," */); /* line 1524 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10138_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10140_stri_a_name); /* line 1525 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10138_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2032] /* "->size*sizeof(strElemType))!=0)" */); } /* line 1498 "../lib/comp/str_act.s7i" */ strDestr(o_10140_stri_a_name); /* line 1498 "../lib/comp/str_act.s7i" */ strDestr(o_10141_stri_b_name); } /* line 1 "no_file" */ /* 4569 */ /* line 1530 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10142_STR_POS (const objRefType/*t_19_reference*/ o_10143_function, const listType/*t_20_ref_list*/ *const o_10144_params, structType/*t_164_expr_type*/ *const o_10145_c_expr) { /* line 1534 "../lib/comp/str_act.s7i" */ objRefType/*t_19_reference*/ o_10146_evaluatedParam=NULL; { /* line 1536 "../lib/comp/str_act.s7i" */ striType tmp_1 = NULL; /* line 1536 "../lib/comp/str_act.s7i" */ if ((o_5154_getConstant(rflIdx(*o_10144_params, 2L), 12L, &(o_10146_evaluatedParam))) && /* line 1537 "../lib/comp/str_act.s7i" */ (((intType)(((tmp_1=strValue(o_10146_evaluatedParam)))->size)) == (1L))) { /* line 1538 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); /* line 1539 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10145_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1958] /* "strChPos(" */); /* line 1540 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10144_params, 1L), o_10145_c_expr); /* line 1541 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10145_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); { /* line 1542 "../lib/comp/str_act.s7i" */ const_striType tmp_2; /* line 1542 "../lib/comp/str_act.s7i" */ striType tmp_3 = NULL; /* line 1542 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10145_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6500_charLiteral((*(tmp_2=(tmp_3=strValue(o_10146_evaluatedParam)), &tmp_2->mem[(idxChk(tmp_2->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)])))); /* line 1542 "../lib/comp/str_act.s7i" */ strDestr(tmp_3); } /* line 1543 "../lib/comp/str_act.s7i" */ { /* line 1543 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1543 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10145_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1543 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1543 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1543 "../lib/comp/str_act.s7i" */ } else { /* line 1543 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1543 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1543 "../lib/comp/str_act.s7i" */ } } } else { /* line 1545 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10145_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2033] /* "strPos(" */); /* line 1546 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10144_params, 1L), o_10145_c_expr); /* line 1547 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10145_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 1548 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10144_params, 2L), o_10145_c_expr); /* line 1549 "../lib/comp/str_act.s7i" */ { /* line 1549 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1549 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10145_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1549 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1549 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1549 "../lib/comp/str_act.s7i" */ } else { /* line 1549 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1549 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1549 "../lib/comp/str_act.s7i" */ } } } /* line 1536 "../lib/comp/str_act.s7i" */ strDestr(tmp_1); } } /* line 1 "no_file" */ /* 4570 */ /* line 1554 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10147_process_const_str_poscpy (const objRefType/*t_19_reference*/ o_10148_function, const objRefType/*t_19_reference*/ o_10149_param1, const intType/*t_14_integer*/ o_10150_index, const objRefType/*t_19_reference*/ o_10151_param6, structType/*t_164_expr_type*/ *const o_10152_c_expr) { /* line 1558 "../lib/comp/str_act.s7i" */ structType/*t_164_expr_type*/ o_10153_c_param1; /* line 1559 "../lib/comp/str_act.s7i" */ structType/*t_164_expr_type*/ o_10154_c_param6; /* line 1558 "../lib/comp/str_act.s7i" */ o_10153_c_param1=create_164(sct[329]); /* line 1559 "../lib/comp/str_act.s7i" */ o_10154_c_param6=create_164(sct[330]); /* line 1561 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); /* line 1562 "../lib/comp/str_act.s7i" */ if ((o_10150_index) < (1L)) { /* line 1563 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2034] /* "/* 'string @:= [n] string' with n < 1 *\/\n" */); /* line 1564 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6522_voidRaiseError(&str[406] /* "RANGE_ERROR" */)); /* line 1565 "../lib/comp/str_act.s7i" */ { /* line 1565 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1565 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1565 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1565 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 1565 "../lib/comp/str_act.s7i" */ } else { /* line 1565 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 1565 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1565 "../lib/comp/str_act.s7i" */ } } } else { /* line 1567 "../lib/comp/str_act.s7i" */ o_4941_process_expr(o_10149_param1, &(o_10153_c_param1)); /* line 1568 "../lib/comp/str_act.s7i" */ ((structType)(o_10154_c_param6))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_10153_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 1569 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(o_10151_param6, &(o_10154_c_param6)); /* line 1570 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 1571 "../lib/comp/str_act.s7i" */ if ((((structType)(o_10154_c_param6))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 1572 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_10153_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_10152_c_expr); /* line 1573 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_10154_c_param6))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_10152_c_expr); /* line 1574 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_10153_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_10152_c_expr); /* line 1575 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_10154_c_param6))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_10152_c_expr); } /* line 1577 "../lib/comp/str_act.s7i" */ if (o_3450_array_range_check) { /* line 1578 "../lib/comp/str_act.s7i" */ ++(o_5109_countRangeChecks); /* line 1579 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1968] /* "striType str1=" */); /* line 1580 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_10153_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1581 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 1582 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2035] /* "striType str2=" */); /* line 1583 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_10154_c_param6))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1584 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 1585 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2036] /* "if (idxChk(str1->sizesize || " */); { /* line 1586 "../lib/comp/str_act.s7i" */ union { /* line 1586 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 1586 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1586 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 1586 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((o_10150_index)-1, &buffer_1.striBuf)); } /* line 1587 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2037] /* "+str2->size>str1->size)) {\n" */); /* line 1588 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[218] /* " " */); /* line 1589 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6522_voidRaiseError(&str[406] /* "RANGE_ERROR" */)); /* line 1590 "../lib/comp/str_act.s7i" */ { /* line 1590 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1590 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1590 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1590 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 1590 "../lib/comp/str_act.s7i" */ } else { /* line 1590 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 1590 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1590 "../lib/comp/str_act.s7i" */ } } /* line 1591 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[222] /* "} else {\n" */); /* line 1592 "../lib/comp/str_act.s7i" */ o_4819_setDiagnosticLine(o_10152_c_expr); /* line 1593 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2038] /* " memmove(&str1->mem[" */); { /* line 1594 "../lib/comp/str_act.s7i" */ union { /* line 1594 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 1594 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1594 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 1594 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((o_10150_index)-1, &buffer_1.striBuf)); } /* line 1595 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2039] /* "], str2->mem, str2->size*sizeof(strElemType));\n" */); /* line 1596 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } else { /* line 1598 "../lib/comp/str_act.s7i" */ ++(o_5110_countNoRangeChecks); /* line 1599 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2035] /* "striType str2=" */); /* line 1600 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_10154_c_param6))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1601 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 1602 "../lib/comp/str_act.s7i" */ o_4819_setDiagnosticLine(o_10152_c_expr); /* line 1603 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2040] /* "memmove(&(" */); /* line 1604 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_10153_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1605 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[671] /* ")->mem[" */); { /* line 1606 "../lib/comp/str_act.s7i" */ union { /* line 1606 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 1606 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1606 "../lib/comp/str_act.s7i" */ } buffer_1; /* line 1606 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((o_10150_index)-1, &buffer_1.striBuf)); } /* line 1607 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2039] /* "], str2->mem, str2->size*sizeof(strElemType));\n" */); } /* line 1609 "../lib/comp/str_act.s7i" */ if ((((structType)(o_10154_c_param6))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 1610 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_10153_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_10152_c_expr); /* line 1611 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_10154_c_param6))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_10152_c_expr); } /* line 1613 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10152_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 1554 "../lib/comp/str_act.s7i" */ destr_164(o_10153_c_param1); /* line 1554 "../lib/comp/str_act.s7i" */ destr_164(o_10154_c_param6); } /* line 1 "no_file" */ /* 4571 */ /* line 1618 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10155_STR_POSCPY (const objRefType/*t_19_reference*/ o_10156_function, const listType/*t_20_ref_list*/ *const o_10157_params, structType/*t_164_expr_type*/ *const o_10158_c_expr) { /* line 1622 "../lib/comp/str_act.s7i" */ objRefType/*t_19_reference*/ o_10159_evaluatedParam=NULL; /* line 1623 "../lib/comp/str_act.s7i" */ structType/*t_164_expr_type*/ o_10160_c_param1; /* line 1624 "../lib/comp/str_act.s7i" */ structType/*t_164_expr_type*/ o_10161_c_param4; /* line 1625 "../lib/comp/str_act.s7i" */ structType/*t_164_expr_type*/ o_10162_c_param6; /* line 1623 "../lib/comp/str_act.s7i" */ o_10160_c_param1=create_164(sct[331]); /* line 1624 "../lib/comp/str_act.s7i" */ o_10161_c_param4=create_164(sct[332]); /* line 1625 "../lib/comp/str_act.s7i" */ o_10162_c_param6=create_164(sct[333]); { /* line 1627 "../lib/comp/str_act.s7i" */ striType tmp_1 = NULL; /* line 1627 "../lib/comp/str_act.s7i" */ if ((o_5154_getConstant(rflIdx(*o_10157_params, 6L), 12L, &(o_10159_evaluatedParam))) && /* line 1628 "../lib/comp/str_act.s7i" */ (((intType)(((tmp_1=strValue(o_10159_evaluatedParam)))->size)) == (1L))) { { /* line 1629 "../lib/comp/str_act.s7i" */ const_striType tmp_1; /* line 1629 "../lib/comp/str_act.s7i" */ striType tmp_2 = NULL; /* line 1629 "../lib/comp/str_act.s7i" */ o_9989_process_const_str_elemcpy(o_10156_function, rflIdx(*o_10157_params, 1L), rflIdx(*o_10157_params, 4L), (*(tmp_1=(tmp_2=strValue(o_10159_evaluatedParam)), &tmp_1->mem[(idxChk(tmp_1->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)])), o_10158_c_expr); /* line 1629 "../lib/comp/str_act.s7i" */ strDestr(tmp_2); } } else /* line 1630 "../lib/comp/str_act.s7i" */ if (o_5154_getConstant(rflIdx(*o_10157_params, 4L), 9L, &(o_10159_evaluatedParam))) { /* line 1631 "../lib/comp/str_act.s7i" */ o_10147_process_const_str_poscpy(o_10156_function, rflIdx(*o_10157_params, 1L), intValue(o_10159_evaluatedParam), rflIdx(*o_10157_params, 6L), o_10158_c_expr); } else { /* line 1633 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10157_params, 1L), &(o_10160_c_param1)); /* line 1634 "../lib/comp/str_act.s7i" */ ((structType)(o_10161_c_param4))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_10160_c_param1))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 1635 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10157_params, 4L), &(o_10161_c_param4)); /* line 1636 "../lib/comp/str_act.s7i" */ ((structType)(o_10162_c_param6))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_10161_c_param4))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 1637 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10157_params, 6L), &(o_10162_c_param6)); /* line 1638 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 1639 "../lib/comp/str_act.s7i" */ if ((((structType)(o_10162_c_param6))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 1640 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_10160_c_param1))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_10158_c_expr); /* line 1641 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_10161_c_param4))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_10158_c_expr); /* line 1642 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_10162_c_param6))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_10158_c_expr); /* line 1643 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_10160_c_param1))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_10158_c_expr); /* line 1644 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_10161_c_param4))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_10158_c_expr); /* line 1645 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_10162_c_param6))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_10158_c_expr); } /* line 1647 "../lib/comp/str_act.s7i" */ if (o_3450_array_range_check) { /* line 1648 "../lib/comp/str_act.s7i" */ ++(o_5109_countRangeChecks); /* line 1649 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1968] /* "striType str1=" */); /* line 1650 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_10160_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1651 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 1652 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2035] /* "striType str2=" */); /* line 1653 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_10162_c_param6))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1654 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 1655 "../lib/comp/str_act.s7i" */ if (((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/) { /* line 1656 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1973] /* "uintType pos=(uintType)(" */); } else { /* line 1658 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1974] /* "intType pos=(" */); } /* line 1660 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_10161_c_param4))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1661 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1975] /* ")-1;\n" */); /* line 1662 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1976] /* "if (idxChk(" */); /* line 1663 "../lib/comp/str_act.s7i" */ if (!(((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/)) { /* line 1664 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1977] /* "pos<0 || " */); } /* line 1666 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2041] /* "str1->sizesize || pos+str2->size>str1->size)) {\n" */); /* line 1667 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[218] /* " " */); /* line 1668 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6522_voidRaiseError(&str[406] /* "RANGE_ERROR" */)); /* line 1669 "../lib/comp/str_act.s7i" */ { /* line 1669 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1669 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1669 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1669 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '\n'); /* line 1669 "../lib/comp/str_act.s7i" */ } else { /* line 1669 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 1669 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1669 "../lib/comp/str_act.s7i" */ } } /* line 1670 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[222] /* "} else {\n" */); /* line 1671 "../lib/comp/str_act.s7i" */ o_4819_setDiagnosticLine(o_10158_c_expr); /* line 1672 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2042] /* " memmove(&str1->mem[pos], str2->mem, str2->size*sizeof(strElemType));\n" */); /* line 1673 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } else { /* line 1675 "../lib/comp/str_act.s7i" */ ++(o_5110_countNoRangeChecks); /* line 1676 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2035] /* "striType str2=" */); /* line 1677 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_10162_c_param6))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1678 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 1679 "../lib/comp/str_act.s7i" */ o_4819_setDiagnosticLine(o_10158_c_expr); /* line 1680 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2040] /* "memmove(&(" */); /* line 1681 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_10160_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1682 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[674] /* ")->mem[(" */); /* line 1683 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_10161_c_param4))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1684 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2043] /* ")-1], str2->mem, str2->size*sizeof(strElemType));\n" */); } /* line 1686 "../lib/comp/str_act.s7i" */ if ((((structType)(o_10162_c_param6))->stru[2].value.intValue/*->o_4780_temp_num*/) != (0L)) { /* line 1687 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_10160_c_param1))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_10158_c_expr); /* line 1688 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_10161_c_param4))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_10158_c_expr); /* line 1689 "../lib/comp/str_act.s7i" */ o_4821_AppendWithDiagnostic(((structType)(o_10162_c_param6))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_10158_c_expr); } /* line 1691 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10158_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 1627 "../lib/comp/str_act.s7i" */ strDestr(tmp_1); } /* line 1618 "../lib/comp/str_act.s7i" */ destr_164(o_10160_c_param1); /* line 1618 "../lib/comp/str_act.s7i" */ destr_164(o_10161_c_param4); /* line 1618 "../lib/comp/str_act.s7i" */ destr_164(o_10162_c_param6); } /* line 1 "no_file" */ /* 4572 */ /* line 1696 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10163_process_inline_str_push (const listType/*t_20_ref_list*/ *const o_10164_params, structType/*t_164_expr_type*/ *const o_10165_c_expr) { /* line 1700 "../lib/comp/str_act.s7i" */ structType/*t_164_expr_type*/ o_10166_statement; /* line 1701 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10167_stri_name; /* line 1702 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10168_char_name; /* line 1700 "../lib/comp/str_act.s7i" */ o_10166_statement=create_164(sct[334]); /* line 1701 "../lib/comp/str_act.s7i" */ o_10167_stri_name=strEmpty(); /* "" */ /* line 1702 "../lib/comp/str_act.s7i" */ o_10168_char_name=strEmpty(); /* "" */ /* line 1704 "../lib/comp/str_act.s7i" */ if (o_5018_isNormalVariable(rflIdx(*o_10164_params, 1L))) { { /* line 1705 "../lib/comp/str_act.s7i" */ striType old_stri=o_10167_stri_name; /* line 1705 "../lib/comp/str_act.s7i" */ o_10167_stri_name=o_5020_normalVariable(rflIdx(*o_10164_params, 1L), &(o_10166_statement)); /* line 1705 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } } else { /* line 1707 "../lib/comp/str_act.s7i" */ ++(((structType)(o_10166_statement))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 1708 "../lib/comp/str_act.s7i" */ union { /* line 1708 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 1708 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1708 "../lib/comp/str_act.s7i" */ } buffer_2; /* line 1708 "../lib/comp/str_act.s7i" */ striType old_stri=o_10167_stri_name; /* line 1708 "../lib/comp/str_act.s7i" */ o_10167_stri_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(o_10166_statement))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 1708 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } /* line 1709 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[1940] /* "striType *" */); /* line 1710 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_10167_stri_name); /* line 1711 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 1712 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_10167_stri_name); /* line 1713 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[307] /* "=&(" */); /* line 1714 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10164_params, 1L), &(o_10166_statement)); /* line 1715 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); { /* line 1716 "../lib/comp/str_act.s7i" */ striType old_stri=o_10167_stri_name; /* line 1716 "../lib/comp/str_act.s7i" */ o_10167_stri_name=strConcat(&str[1019] /* "*" */, o_10167_stri_name); /* line 1716 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } } /* line 1718 "../lib/comp/str_act.s7i" */ if (o_5018_isNormalVariable(rflIdx(*o_10164_params, 3L))) { { /* line 1719 "../lib/comp/str_act.s7i" */ striType old_stri=o_10168_char_name; /* line 1719 "../lib/comp/str_act.s7i" */ o_10168_char_name=o_5020_normalVariable(rflIdx(*o_10164_params, 3L), &(o_10166_statement)); /* line 1719 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } } else { /* line 1721 "../lib/comp/str_act.s7i" */ ++(((structType)(o_10166_statement))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 1722 "../lib/comp/str_act.s7i" */ union { /* line 1722 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 1722 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1722 "../lib/comp/str_act.s7i" */ } buffer_2; /* line 1722 "../lib/comp/str_act.s7i" */ striType old_stri=o_10168_char_name; /* line 1722 "../lib/comp/str_act.s7i" */ o_10168_char_name=strConcat(&str[282] /* "tmp_" */, intStrToBuffer(((structType)(o_10166_statement))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 1722 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } /* line 1723 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[2044] /* "charType " */); /* line 1724 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_10168_char_name); /* line 1725 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 1726 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_10168_char_name); /* line 1727 "../lib/comp/str_act.s7i" */ { /* line 1727 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1727 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1727 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1727 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 1727 "../lib/comp/str_act.s7i" */ } else { /* line 1727 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 1727 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1727 "../lib/comp/str_act.s7i" */ } } /* line 1728 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10164_params, 3L), &(o_10166_statement)); /* line 1729 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); } /* line 1731 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1338] /* "if ((" */); /* line 1732 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_10167_stri_name); /* line 1733 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1941] /* ")->size == (" */); /* line 1734 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_10167_stri_name); /* line 1735 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1942] /* ")->capacity) {\n" */); /* line 1736 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1943] /* "strPush(&(" */); /* line 1737 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_10167_stri_name); /* line 1738 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 1739 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_10168_char_name); /* line 1740 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 1741 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[222] /* "} else {\n" */); /* line 1742 "../lib/comp/str_act.s7i" */ { /* line 1742 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1742 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1742 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1742 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1742 "../lib/comp/str_act.s7i" */ } else { /* line 1742 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1742 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1742 "../lib/comp/str_act.s7i" */ } } /* line 1743 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_10167_stri_name); /* line 1744 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[674] /* ")->mem[(" */); /* line 1745 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_10167_stri_name); /* line 1746 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1944] /* ")->size]=" */); /* line 1747 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_10168_char_name); /* line 1748 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 1749 "../lib/comp/str_act.s7i" */ { /* line 1749 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1749 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1749 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1749 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1749 "../lib/comp/str_act.s7i" */ } else { /* line 1749 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1749 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1749 "../lib/comp/str_act.s7i" */ } } /* line 1750 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/), o_10167_stri_name); /* line 1751 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1945] /* ")->size++;\n" */); /* line 1752 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10166_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 1753 "../lib/comp/str_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_10166_statement, o_10165_c_expr); /* line 1696 "../lib/comp/str_act.s7i" */ destr_164(o_10166_statement); /* line 1696 "../lib/comp/str_act.s7i" */ strDestr(o_10167_stri_name); /* line 1696 "../lib/comp/str_act.s7i" */ strDestr(o_10168_char_name); } /* line 1 "no_file" */ /* 4573 */ /* line 1757 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10169_STR_PUSH (const objRefType/*t_19_reference*/ o_10170_function, const listType/*t_20_ref_list*/ *const o_10171_params, structType/*t_164_expr_type*/ *const o_10172_c_expr) { /* line 1761 "../lib/comp/str_act.s7i" */ structType/*t_164_expr_type*/ o_10173_statement; /* line 1761 "../lib/comp/str_act.s7i" */ o_10173_statement=create_164(sct[335]); /* line 1763 "../lib/comp/str_act.s7i" */ if ((o_3458_inlineFunctions) && /* line 1763 "../lib/comp/str_act.s7i" */ (((structType)(sct[55]))->stru[0].value.boolValue/*->o_3378_WITH_STRI_CAPACITY*/)) { /* line 1764 "../lib/comp/str_act.s7i" */ o_10163_process_inline_str_push(o_10171_params, o_10172_c_expr); } else { /* line 1766 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(o_10173_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[1943] /* "strPush(&(" */); /* line 1767 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10171_params, 1L), &(o_10173_statement)); /* line 1768 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10173_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[267] /* "), " */); /* line 1769 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10171_params, 3L), &(o_10173_statement)); /* line 1770 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(o_10173_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 1771 "../lib/comp/str_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_10173_statement, o_10172_c_expr); } /* line 1757 "../lib/comp/str_act.s7i" */ destr_164(o_10173_statement); } /* line 1 "no_file" */ /* 4574 */ /* line 1776 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10174_STR_RANGE (const objRefType/*t_19_reference*/ o_10175_function, const listType/*t_20_ref_list*/ *const o_10176_params, structType/*t_164_expr_type*/ *const o_10177_c_expr) { /* line 1780 "../lib/comp/str_act.s7i" */ objRefType/*t_19_reference*/ o_10178_evaluatedParam=NULL; /* line 1781 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10179_stri_name; /* line 1782 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10180_start_name; /* line 1783 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10181_stop_name; /* line 1784 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10182_slice_name; /* line 1781 "../lib/comp/str_act.s7i" */ o_10179_stri_name=strEmpty(); /* "" */ /* line 1782 "../lib/comp/str_act.s7i" */ o_10180_start_name=strEmpty(); /* "" */ /* line 1783 "../lib/comp/str_act.s7i" */ o_10181_stop_name=strEmpty(); /* "" */ /* line 1784 "../lib/comp/str_act.s7i" */ o_10182_slice_name=strEmpty(); /* "" */ { /* line 1786 "../lib/comp/str_act.s7i" */ striType tmp_1 = NULL; /* line 1786 "../lib/comp/str_act.s7i" */ if ((o_5154_getConstant(rflIdx(*o_10176_params, 1L), 12L, &(o_10178_evaluatedParam))) && /* line 1787 "../lib/comp/str_act.s7i" */ ((((tmp_1=strValue(o_10178_evaluatedParam)))->size==0 /* "" */))) { /* line 1788 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); /* line 1789 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2045] /* "/* \"\"[m .. n] *\/ (" */); /* line 1791 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10176_params, 3L), o_10177_c_expr); /* line 1792 "../lib/comp/str_act.s7i" */ { /* line 1792 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1792 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1792 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1792 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 1792 "../lib/comp/str_act.s7i" */ } else { /* line 1792 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 1792 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1792 "../lib/comp/str_act.s7i" */ } } /* line 1793 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10176_params, 5L), o_10177_c_expr); /* line 1794 "../lib/comp/str_act.s7i" */ { /* line 1794 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1794 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1794 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1794 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 1794 "../lib/comp/str_act.s7i" */ } else { /* line 1794 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 1794 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1794 "../lib/comp/str_act.s7i" */ } } /* line 1795 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6494_stringLiteral(&str[0] /* "" */)); /* line 1796 "../lib/comp/str_act.s7i" */ { /* line 1796 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1796 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1796 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1796 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1796 "../lib/comp/str_act.s7i" */ } else { /* line 1796 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1796 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1796 "../lib/comp/str_act.s7i" */ } } } else /* line 1797 "../lib/comp/str_act.s7i" */ if ((o_5154_getConstant(rflIdx(*o_10176_params, 3L), 9L, &(o_10178_evaluatedParam))) && /* line 1798 "../lib/comp/str_act.s7i" */ ((intValue(o_10178_evaluatedParam)) == (1L))) { /* line 1799 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); /* line 1800 "../lib/comp/str_act.s7i" */ o_10045_process_str_head(rflIdx(*o_10176_params, 1L), rflIdx(*o_10176_params, 5L), o_10177_c_expr); } else /* line 1801 "../lib/comp/str_act.s7i" */ if (((structType)(sct[55]))->stru[1].value.boolValue/*->o_3379_ALLOW_STRITYPE_SLICES*/) { /* line 1802 "../lib/comp/str_act.s7i" */ { /* line 1802 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1802 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1802 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1802 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 1802 "../lib/comp/str_act.s7i" */ } else { /* line 1802 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1802 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1802 "../lib/comp/str_act.s7i" */ } } /* line 1803 "../lib/comp/str_act.s7i" */ ++(((structType)(*o_10177_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 1804 "../lib/comp/str_act.s7i" */ union { /* line 1804 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 1804 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1804 "../lib/comp/str_act.s7i" */ } buffer_2; /* line 1804 "../lib/comp/str_act.s7i" */ striType old_stri=o_10182_slice_name; /* line 1804 "../lib/comp/str_act.s7i" */ o_10182_slice_name=strConcat(&str[2003] /* "slice_" */, intStrToBuffer(((structType)(*o_10177_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 1804 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } /* line 1805 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[714] /* "struct striStruct " */); /* line 1806 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_10182_slice_name); /* line 1807 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 1808 "../lib/comp/str_act.s7i" */ if (o_3458_inlineFunctions) { { /* line 1809 "../lib/comp/str_act.s7i" */ striType old_stri=o_10179_stri_name; /* line 1809 "../lib/comp/str_act.s7i" */ o_10179_stri_name=o_5031_getParameterAsVariable(&str[1983] /* "const_striType" */, &str[713] /* "stri_" */, rflIdx(*o_10176_params, 1L), o_10177_c_expr); /* line 1809 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } { /* line 1810 "../lib/comp/str_act.s7i" */ striType old_stri=o_10180_start_name; /* line 1810 "../lib/comp/str_act.s7i" */ o_10180_start_name=o_5025_getTempVariable(&str[101] /* "intType" */, &str[2046] /* "start_" */, rflIdx(*o_10176_params, 3L), o_10177_c_expr); /* line 1810 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } { /* line 1811 "../lib/comp/str_act.s7i" */ striType old_stri=o_10181_stop_name; /* line 1811 "../lib/comp/str_act.s7i" */ o_10181_stop_name=o_5031_getParameterAsVariable(&str[101] /* "intType" */, &str[2047] /* "stop_" */, rflIdx(*o_10176_params, 5L), o_10177_c_expr); /* line 1811 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } /* line 1813 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10180_start_name); /* line 1814 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2048] /* "<1 ? " */); /* line 1815 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10180_start_name); /* line 1816 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2049] /* "=1 : 0, " */); /* line 1824 "../lib/comp/str_act.s7i" */ if (((structType)(sct[55]))->stru[0].value.boolValue/*->o_3378_WITH_STRI_CAPACITY*/) { /* line 1825 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10182_slice_name); /* line 1826 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2050] /* ".capacity=0, " */); } /* line 1828 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10181_stop_name); /* line 1829 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[414] /* ">=" */); /* line 1830 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10180_start_name); /* line 1831 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2051] /* " && (uintType)" */); /* line 1832 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10180_start_name); /* line 1833 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1407] /* "<=" */); /* line 1834 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10179_stri_name); /* line 1835 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2052] /* "->size ? (" */); /* line 1836 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10182_slice_name); /* line 1837 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2053] /* ".mem = &" */); /* line 1838 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10179_stri_name); /* line 1839 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[662] /* "->mem[" */); /* line 1840 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10180_start_name); /* line 1841 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2054] /* "-1], (uintType)" */); /* line 1842 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10181_stop_name); /* line 1843 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[429] /* " > " */); /* line 1844 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10179_stri_name); /* line 1845 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2055] /* "->size ? " */); /* line 1846 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10182_slice_name); /* line 1847 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2056] /* ".size = " */); /* line 1848 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10179_stri_name); /* line 1849 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2057] /* "->size-(memSizeType)" */); /* line 1850 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10180_start_name); /* line 1851 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2058] /* "+1 : (" */); /* line 1852 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10182_slice_name); /* line 1853 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2059] /* ".size = (memSizeType)" */); /* line 1854 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10181_stop_name); /* line 1855 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2060] /* "-(memSizeType)" */); /* line 1856 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10180_start_name); /* line 1857 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2061] /* "+1)) : (" */); /* line 1858 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10182_slice_name); /* line 1859 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2062] /* ".mem = NULL," */); /* line 1860 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10182_slice_name); /* line 1861 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2063] /* ".size = 0)" */); } else { /* line 1863 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2064] /* "strRangeSlice(" */); /* line 1864 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10176_params, 1L), o_10177_c_expr); /* line 1865 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 1866 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10176_params, 3L), o_10177_c_expr); /* line 1867 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 1868 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10176_params, 5L), o_10177_c_expr); /* line 1869 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[421] /* ", &" */); /* line 1870 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10182_slice_name); /* line 1871 "../lib/comp/str_act.s7i" */ { /* line 1871 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1871 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1871 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1871 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1871 "../lib/comp/str_act.s7i" */ } else { /* line 1871 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1871 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1871 "../lib/comp/str_act.s7i" */ } } } /* line 1873 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[421] /* ", &" */); /* line 1874 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10182_slice_name); /* line 1875 "../lib/comp/str_act.s7i" */ { /* line 1875 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1875 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10177_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1875 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1875 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1875 "../lib/comp/str_act.s7i" */ } else { /* line 1875 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1875 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1875 "../lib/comp/str_act.s7i" */ } } } else { /* line 1877 "../lib/comp/str_act.s7i" */ o_4955_prepare_stri_result(o_10177_c_expr); /* line 1878 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10177_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2065] /* "strRange(" */); /* line 1879 "../lib/comp/str_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_10176_params, 1L), o_10177_c_expr); /* line 1880 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1881 "../lib/comp/str_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_10176_params, 3L), o_10177_c_expr); /* line 1882 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10177_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1883 "../lib/comp/str_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_10176_params, 5L), o_10177_c_expr); /* line 1884 "../lib/comp/str_act.s7i" */ { /* line 1884 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1884 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10177_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1884 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1884 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1884 "../lib/comp/str_act.s7i" */ } else { /* line 1884 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1884 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1884 "../lib/comp/str_act.s7i" */ } } } /* line 1786 "../lib/comp/str_act.s7i" */ strDestr(tmp_1); } /* line 1776 "../lib/comp/str_act.s7i" */ strDestr(o_10179_stri_name); /* line 1776 "../lib/comp/str_act.s7i" */ strDestr(o_10180_start_name); /* line 1776 "../lib/comp/str_act.s7i" */ strDestr(o_10181_stop_name); /* line 1776 "../lib/comp/str_act.s7i" */ strDestr(o_10182_slice_name); } /* line 1 "no_file" */ /* 4575 */ /* line 1889 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10183_STR_RCHIPOS (const objRefType/*t_19_reference*/ o_10184_function, const listType/*t_20_ref_list*/ *const o_10185_params, structType/*t_164_expr_type*/ *const o_10186_c_expr) { /* line 1893 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10186_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2066] /* "strRChIPos(" */); /* line 1894 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10185_params, 1L), o_10186_c_expr); /* line 1895 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10186_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 1896 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10185_params, 2L), o_10186_c_expr); /* line 1897 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10186_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 1898 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10185_params, 3L), o_10186_c_expr); /* line 1899 "../lib/comp/str_act.s7i" */ { /* line 1899 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1899 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10186_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1899 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1899 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1899 "../lib/comp/str_act.s7i" */ } else { /* line 1899 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1899 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1899 "../lib/comp/str_act.s7i" */ } } } /* line 1 "no_file" */ /* 4576 */ /* line 1903 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10187_STR_RCHPOS (const objRefType/*t_19_reference*/ o_10188_function, const listType/*t_20_ref_list*/ *const o_10189_params, structType/*t_164_expr_type*/ *const o_10190_c_expr) { /* line 1907 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10190_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2067] /* "strRChPos(" */); /* line 1908 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10189_params, 1L), o_10190_c_expr); /* line 1909 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10190_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 1910 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10189_params, 2L), o_10190_c_expr); /* line 1911 "../lib/comp/str_act.s7i" */ { /* line 1911 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1911 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10190_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1911 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1911 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1911 "../lib/comp/str_act.s7i" */ } else { /* line 1911 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1911 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1911 "../lib/comp/str_act.s7i" */ } } } /* line 1 "no_file" */ /* 4577 */ /* line 1915 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10191_STR_REPL (const objRefType/*t_19_reference*/ o_10192_function, const listType/*t_20_ref_list*/ *const o_10193_params, structType/*t_164_expr_type*/ *const o_10194_c_expr) { /* line 1919 "../lib/comp/str_act.s7i" */ o_4955_prepare_stri_result(o_10194_c_expr); /* line 1920 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10194_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2068] /* "strRepl(" */); /* line 1921 "../lib/comp/str_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_10193_params, 1L), o_10194_c_expr); /* line 1922 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10194_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1923 "../lib/comp/str_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_10193_params, 2L), o_10194_c_expr); /* line 1924 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10194_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1925 "../lib/comp/str_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_10193_params, 3L), o_10194_c_expr); /* line 1926 "../lib/comp/str_act.s7i" */ { /* line 1926 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1926 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10194_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1926 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1926 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1926 "../lib/comp/str_act.s7i" */ } else { /* line 1926 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1926 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1926 "../lib/comp/str_act.s7i" */ } } } /* line 1 "no_file" */ /* 4578 */ /* line 1930 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10195_STR_RIPOS (const objRefType/*t_19_reference*/ o_10196_function, const listType/*t_20_ref_list*/ *const o_10197_params, structType/*t_164_expr_type*/ *const o_10198_c_expr) { /* line 1934 "../lib/comp/str_act.s7i" */ objRefType/*t_19_reference*/ o_10199_evaluatedParam=NULL; { /* line 1936 "../lib/comp/str_act.s7i" */ striType tmp_1 = NULL; /* line 1936 "../lib/comp/str_act.s7i" */ if ((o_5154_getConstant(rflIdx(*o_10197_params, 2L), 12L, &(o_10199_evaluatedParam))) && /* line 1937 "../lib/comp/str_act.s7i" */ (((intType)(((tmp_1=strValue(o_10199_evaluatedParam)))->size)) == (1L))) { /* line 1938 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); /* line 1939 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10198_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2066] /* "strRChIPos(" */); /* line 1940 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10197_params, 1L), o_10198_c_expr); /* line 1941 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10198_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); { /* line 1942 "../lib/comp/str_act.s7i" */ const_striType tmp_2; /* line 1942 "../lib/comp/str_act.s7i" */ striType tmp_3 = NULL; /* line 1942 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10198_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6500_charLiteral((*(tmp_2=(tmp_3=strValue(o_10199_evaluatedParam)), &tmp_2->mem[(idxChk(tmp_2->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)])))); /* line 1942 "../lib/comp/str_act.s7i" */ strDestr(tmp_3); } /* line 1943 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10198_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 1944 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10197_params, 3L), o_10198_c_expr); /* line 1945 "../lib/comp/str_act.s7i" */ { /* line 1945 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1945 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10198_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1945 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1945 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1945 "../lib/comp/str_act.s7i" */ } else { /* line 1945 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1945 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1945 "../lib/comp/str_act.s7i" */ } } } else { /* line 1947 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10198_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2069] /* "strRIPos(" */); /* line 1948 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10197_params, 1L), o_10198_c_expr); /* line 1949 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10198_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 1950 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10197_params, 2L), o_10198_c_expr); /* line 1951 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10198_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 1952 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10197_params, 3L), o_10198_c_expr); /* line 1953 "../lib/comp/str_act.s7i" */ { /* line 1953 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1953 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10198_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1953 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1953 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1953 "../lib/comp/str_act.s7i" */ } else { /* line 1953 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1953 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1953 "../lib/comp/str_act.s7i" */ } } } /* line 1936 "../lib/comp/str_act.s7i" */ strDestr(tmp_1); } } /* line 1 "no_file" */ /* 4579 */ /* line 1958 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10200_STR_RPAD (const objRefType/*t_19_reference*/ o_10201_function, const listType/*t_20_ref_list*/ *const o_10202_params, structType/*t_164_expr_type*/ *const o_10203_c_expr) { /* line 1962 "../lib/comp/str_act.s7i" */ o_4955_prepare_stri_result(o_10203_c_expr); /* line 1963 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10203_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2070] /* "strRpad(" */); /* line 1964 "../lib/comp/str_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_10202_params, 1L), o_10203_c_expr); /* line 1965 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10203_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 1966 "../lib/comp/str_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_10202_params, 3L), o_10203_c_expr); /* line 1967 "../lib/comp/str_act.s7i" */ { /* line 1967 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1967 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10203_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1967 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1967 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1967 "../lib/comp/str_act.s7i" */ } else { /* line 1967 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1967 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1967 "../lib/comp/str_act.s7i" */ } } } /* line 1 "no_file" */ /* 4580 */ /* line 1971 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10204_STR_RPOS (const objRefType/*t_19_reference*/ o_10205_function, const listType/*t_20_ref_list*/ *const o_10206_params, structType/*t_164_expr_type*/ *const o_10207_c_expr) { /* line 1975 "../lib/comp/str_act.s7i" */ objRefType/*t_19_reference*/ o_10208_evaluatedParam=NULL; { /* line 1977 "../lib/comp/str_act.s7i" */ striType tmp_1 = NULL; /* line 1977 "../lib/comp/str_act.s7i" */ if ((o_5154_getConstant(rflIdx(*o_10206_params, 2L), 12L, &(o_10208_evaluatedParam))) && /* line 1978 "../lib/comp/str_act.s7i" */ (((intType)(((tmp_1=strValue(o_10208_evaluatedParam)))->size)) == (1L))) { /* line 1979 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); /* line 1980 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10207_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2067] /* "strRChPos(" */); /* line 1981 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10206_params, 1L), o_10207_c_expr); /* line 1982 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10207_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); { /* line 1983 "../lib/comp/str_act.s7i" */ const_striType tmp_2; /* line 1983 "../lib/comp/str_act.s7i" */ striType tmp_3 = NULL; /* line 1983 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10207_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6500_charLiteral((*(tmp_2=(tmp_3=strValue(o_10208_evaluatedParam)), &tmp_2->mem[(idxChk(tmp_2->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)])))); /* line 1983 "../lib/comp/str_act.s7i" */ strDestr(tmp_3); } /* line 1984 "../lib/comp/str_act.s7i" */ { /* line 1984 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1984 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10207_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1984 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1984 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1984 "../lib/comp/str_act.s7i" */ } else { /* line 1984 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1984 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1984 "../lib/comp/str_act.s7i" */ } } } else { /* line 1986 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10207_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2071] /* "strRPos(" */); /* line 1987 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10206_params, 1L), o_10207_c_expr); /* line 1988 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10207_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 1989 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10206_params, 2L), o_10207_c_expr); /* line 1990 "../lib/comp/str_act.s7i" */ { /* line 1990 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 1990 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10207_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1990 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1990 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 1990 "../lib/comp/str_act.s7i" */ } else { /* line 1990 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1990 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 1990 "../lib/comp/str_act.s7i" */ } } } /* line 1977 "../lib/comp/str_act.s7i" */ strDestr(tmp_1); } } /* line 1 "no_file" */ /* 4581 */ /* line 1995 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10209_STR_RTRIM (const objRefType/*t_19_reference*/ o_10210_function, const listType/*t_20_ref_list*/ *const o_10211_params, structType/*t_164_expr_type*/ *const o_10212_c_expr) { /* line 1999 "../lib/comp/str_act.s7i" */ o_4955_prepare_stri_result(o_10212_c_expr); /* line 2000 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10212_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2072] /* "strRtrim(" */); /* line 2001 "../lib/comp/str_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_10211_params, 1L), o_10212_c_expr); /* line 2002 "../lib/comp/str_act.s7i" */ { /* line 2002 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 2002 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10212_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 2002 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2002 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2002 "../lib/comp/str_act.s7i" */ } else { /* line 2002 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2002 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 2002 "../lib/comp/str_act.s7i" */ } } } /* line 1 "no_file" */ /* 4582 */ /* line 2006 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10213_STR_SPLIT (const objRefType/*t_19_reference*/ o_10214_function, const listType/*t_20_ref_list*/ *const o_10215_params, structType/*t_164_expr_type*/ *const o_10216_c_expr) { /* line 2010 "../lib/comp/str_act.s7i" */ objRefType/*t_19_reference*/ o_10217_evaluatedParam=NULL; { /* line 2012 "../lib/comp/str_act.s7i" */ typeType/*t_7_type*/ tmp_1; /* line 2012 "../lib/comp/str_act.s7i" */ o_4944_prepare_typed_result(&(*o_3822/*[*/(&(o_4416_array_type), /* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(o_4754_getExprResultType(rflIdx(*o_10215_params, 1L))), &tmp_1))), o_10216_c_expr); } { /* line 2013 "../lib/comp/str_act.s7i" */ striType tmp_1 = NULL; /* line 2013 "../lib/comp/str_act.s7i" */ if ((o_5154_getConstant(rflIdx(*o_10215_params, 2L), 12L, &(o_10217_evaluatedParam))) && /* line 2014 "../lib/comp/str_act.s7i" */ (((intType)(((tmp_1=strValue(o_10217_evaluatedParam)))->size)) == (1L))) { /* line 2015 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); /* line 2016 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10216_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1959] /* "strChSplit(" */); /* line 2017 "../lib/comp/str_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_10215_params, 1L), o_10216_c_expr); /* line 2018 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10216_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); { /* line 2019 "../lib/comp/str_act.s7i" */ const_striType tmp_2; /* line 2019 "../lib/comp/str_act.s7i" */ striType tmp_3 = NULL; /* line 2019 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10216_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_6500_charLiteral((*(tmp_2=(tmp_3=strValue(o_10217_evaluatedParam)), &tmp_2->mem[(idxChk(tmp_2->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)])))); /* line 2019 "../lib/comp/str_act.s7i" */ strDestr(tmp_3); } /* line 2020 "../lib/comp/str_act.s7i" */ { /* line 2020 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 2020 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10216_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 2020 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2020 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2020 "../lib/comp/str_act.s7i" */ } else { /* line 2020 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2020 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 2020 "../lib/comp/str_act.s7i" */ } } } else { /* line 2022 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10216_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2073] /* "strSplit(" */); /* line 2023 "../lib/comp/str_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_10215_params, 1L), o_10216_c_expr); /* line 2024 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10216_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 2025 "../lib/comp/str_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_10215_params, 2L), o_10216_c_expr); /* line 2026 "../lib/comp/str_act.s7i" */ { /* line 2026 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 2026 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10216_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 2026 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2026 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2026 "../lib/comp/str_act.s7i" */ } else { /* line 2026 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2026 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 2026 "../lib/comp/str_act.s7i" */ } } } /* line 2013 "../lib/comp/str_act.s7i" */ strDestr(tmp_1); } } /* line 1 "no_file" */ /* 4583 */ /* line 2031 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10218_STR_STR (const objRefType/*t_19_reference*/ o_10219_function, const listType/*t_20_ref_list*/ *const o_10220_params, structType/*t_164_expr_type*/ *const o_10221_c_expr) { /* line 2035 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10220_params, 1L), o_10221_c_expr); } /* line 1 "no_file" */ /* 4584 */ /* line 2039 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10222_process_str_substr1 (const objRefType/*t_19_reference*/ o_10223_param1, const objRefType/*t_19_reference*/ o_10224_param3, structType/*t_164_expr_type*/ *const o_10225_c_expr) { /* line 2043 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10226_stri_name; /* line 2044 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10227_index_name; /* line 2045 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10228_striStruct_name; /* line 2043 "../lib/comp/str_act.s7i" */ o_10226_stri_name=strEmpty(); /* "" */ /* line 2044 "../lib/comp/str_act.s7i" */ o_10227_index_name=strEmpty(); /* "" */ /* line 2045 "../lib/comp/str_act.s7i" */ o_10228_striStruct_name=strEmpty(); /* "" */ /* line 2047 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); /* line 2048 "../lib/comp/str_act.s7i" */ { /* line 2048 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 2048 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10225_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2048 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2048 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2048 "../lib/comp/str_act.s7i" */ } else { /* line 2048 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2048 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 2048 "../lib/comp/str_act.s7i" */ } } { /* line 2049 "../lib/comp/str_act.s7i" */ striType old_stri=o_10226_stri_name; /* line 2049 "../lib/comp/str_act.s7i" */ o_10226_stri_name=o_5031_getParameterAsVariable(&str[1983] /* "const_striType" */, &str[282] /* "tmp_" */, o_10223_param1, o_10225_c_expr); /* line 2049 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } /* line 2050 "../lib/comp/str_act.s7i" */ ++(((structType)(*o_10225_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 2051 "../lib/comp/str_act.s7i" */ union { /* line 2051 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 2051 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2051 "../lib/comp/str_act.s7i" */ } buffer_2; /* line 2051 "../lib/comp/str_act.s7i" */ striType old_stri=o_10227_index_name; /* line 2051 "../lib/comp/str_act.s7i" */ o_10227_index_name=strConcat(&str[408] /* "idx_" */, intStrToBuffer(((structType)(*o_10225_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 2051 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } /* line 2052 "../lib/comp/str_act.s7i" */ if (((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/) { /* line 2053 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10225_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[409] /* "uintType " */); } else { /* line 2055 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10225_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[410] /* "intType " */); } /* line 2057 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10225_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_10227_index_name); /* line 2058 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10225_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 2059 "../lib/comp/str_act.s7i" */ ++(((structType)(*o_10225_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 2060 "../lib/comp/str_act.s7i" */ union { /* line 2060 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 2060 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2060 "../lib/comp/str_act.s7i" */ } buffer_2; /* line 2060 "../lib/comp/str_act.s7i" */ striType old_stri=o_10228_striStruct_name; /* line 2060 "../lib/comp/str_act.s7i" */ o_10228_striStruct_name=strConcat(&str[713] /* "stri_" */, intStrToBuffer(((structType)(*o_10225_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 2060 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } /* line 2061 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10225_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[714] /* "struct striStruct " */); /* line 2062 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10225_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_10228_striStruct_name); /* line 2063 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10225_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 2064 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10225_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10227_index_name); /* line 2065 "../lib/comp/str_act.s7i" */ { /* line 2065 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 2065 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10225_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2065 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2065 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 2065 "../lib/comp/str_act.s7i" */ } else { /* line 2065 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 2065 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 2065 "../lib/comp/str_act.s7i" */ } } /* line 2066 "../lib/comp/str_act.s7i" */ if (((structType)(sct[55]))->stru[4].value.boolValue/*->o_3382_TWOS_COMPLEMENT_INTTYPE*/) { /* line 2067 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10225_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[663] /* "(uintType)((" */); /* line 2068 "../lib/comp/str_act.s7i" */ o_4941_process_expr(o_10224_param3, o_10225_c_expr); /* line 2069 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10225_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2074] /* ")-1), " */); } else { /* line 2071 "../lib/comp/str_act.s7i" */ { /* line 2071 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 2071 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10225_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2071 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2071 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2071 "../lib/comp/str_act.s7i" */ } else { /* line 2071 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2071 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 2071 "../lib/comp/str_act.s7i" */ } } /* line 2072 "../lib/comp/str_act.s7i" */ o_4941_process_expr(o_10224_param3, o_10225_c_expr); /* line 2073 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10225_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2075] /* ")-1, " */); /* line 2074 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10225_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10227_index_name); /* line 2075 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10225_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[413] /* "<0 || " */); } /* line 2077 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10225_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10227_index_name); /* line 2078 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10225_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[414] /* ">=" */); /* line 2079 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10225_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10226_stri_name); /* line 2080 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10225_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2055] /* "->size ? " */); /* line 2081 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10225_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6494_stringLiteral(&str[0] /* "" */)); /* line 2082 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10225_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2076] /* " : chrStrMacro(" */); /* line 2083 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10225_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10226_stri_name); /* line 2084 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10225_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[662] /* "->mem[" */); /* line 2085 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10225_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10227_index_name); /* line 2086 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10225_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2077] /* "]," */); /* line 2087 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10225_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10228_striStruct_name); /* line 2088 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10225_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[240] /* "))" */); /* line 2039 "../lib/comp/str_act.s7i" */ strDestr(o_10226_stri_name); /* line 2039 "../lib/comp/str_act.s7i" */ strDestr(o_10227_index_name); /* line 2039 "../lib/comp/str_act.s7i" */ strDestr(o_10228_striStruct_name); } /* line 1 "no_file" */ /* 4585 */ /* line 2092 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10229_STR_SUBSTR (const objRefType/*t_19_reference*/ o_10230_function, const listType/*t_20_ref_list*/ *const o_10231_params, structType/*t_164_expr_type*/ *const o_10232_c_expr) { /* line 2096 "../lib/comp/str_act.s7i" */ objRefType/*t_19_reference*/ o_10233_evaluatedParam=NULL; /* line 2097 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10234_stri_name; /* line 2098 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10235_start_name; /* line 2099 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10236_length_name; /* line 2100 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10237_slice_name; /* line 2097 "../lib/comp/str_act.s7i" */ o_10234_stri_name=strEmpty(); /* "" */ /* line 2098 "../lib/comp/str_act.s7i" */ o_10235_start_name=strEmpty(); /* "" */ /* line 2099 "../lib/comp/str_act.s7i" */ o_10236_length_name=strEmpty(); /* "" */ /* line 2100 "../lib/comp/str_act.s7i" */ o_10237_slice_name=strEmpty(); /* "" */ { /* line 2102 "../lib/comp/str_act.s7i" */ striType tmp_1 = NULL; /* line 2102 "../lib/comp/str_act.s7i" */ if ((o_5154_getConstant(rflIdx(*o_10231_params, 1L), 12L, &(o_10233_evaluatedParam))) && /* line 2103 "../lib/comp/str_act.s7i" */ ((((tmp_1=strValue(o_10233_evaluatedParam)))->size==0 /* "" */))) { /* line 2104 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); /* line 2105 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2078] /* "/* \"\"[m len n] *\/ (" */); /* line 2107 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10231_params, 3L), o_10232_c_expr); /* line 2108 "../lib/comp/str_act.s7i" */ { /* line 2108 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 2108 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2108 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2108 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 2108 "../lib/comp/str_act.s7i" */ } else { /* line 2108 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 2108 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 2108 "../lib/comp/str_act.s7i" */ } } /* line 2109 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10231_params, 5L), o_10232_c_expr); /* line 2110 "../lib/comp/str_act.s7i" */ { /* line 2110 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 2110 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2110 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2110 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 2110 "../lib/comp/str_act.s7i" */ } else { /* line 2110 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 2110 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 2110 "../lib/comp/str_act.s7i" */ } } /* line 2111 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6494_stringLiteral(&str[0] /* "" */)); /* line 2112 "../lib/comp/str_act.s7i" */ { /* line 2112 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 2112 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2112 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2112 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2112 "../lib/comp/str_act.s7i" */ } else { /* line 2112 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2112 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 2112 "../lib/comp/str_act.s7i" */ } } } else /* line 2113 "../lib/comp/str_act.s7i" */ if ((o_5154_getConstant(rflIdx(*o_10231_params, 3L), 9L, &(o_10233_evaluatedParam))) && /* line 2114 "../lib/comp/str_act.s7i" */ ((intValue(o_10233_evaluatedParam)) == (1L))) { /* line 2115 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); /* line 2116 "../lib/comp/str_act.s7i" */ o_10045_process_str_head(rflIdx(*o_10231_params, 1L), rflIdx(*o_10231_params, 5L), o_10232_c_expr); } else /* line 2117 "../lib/comp/str_act.s7i" */ if ((o_5154_getConstant(rflIdx(*o_10231_params, 5L), 9L, &(o_10233_evaluatedParam))) && /* line 2118 "../lib/comp/str_act.s7i" */ ((intValue(o_10233_evaluatedParam)) == (1L))) { /* line 2119 "../lib/comp/str_act.s7i" */ o_10222_process_str_substr1(rflIdx(*o_10231_params, 1L), rflIdx(*o_10231_params, 3L), o_10232_c_expr); } else /* line 2120 "../lib/comp/str_act.s7i" */ if (((structType)(sct[55]))->stru[1].value.boolValue/*->o_3379_ALLOW_STRITYPE_SLICES*/) { /* line 2121 "../lib/comp/str_act.s7i" */ { /* line 2121 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 2121 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2121 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2121 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 2121 "../lib/comp/str_act.s7i" */ } else { /* line 2121 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2121 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 2121 "../lib/comp/str_act.s7i" */ } } /* line 2122 "../lib/comp/str_act.s7i" */ ++(((structType)(*o_10232_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 2123 "../lib/comp/str_act.s7i" */ union { /* line 2123 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 2123 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2123 "../lib/comp/str_act.s7i" */ } buffer_2; /* line 2123 "../lib/comp/str_act.s7i" */ striType old_stri=o_10237_slice_name; /* line 2123 "../lib/comp/str_act.s7i" */ o_10237_slice_name=strConcat(&str[2003] /* "slice_" */, intStrToBuffer(((structType)(*o_10232_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 2123 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } /* line 2124 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[714] /* "struct striStruct " */); /* line 2125 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_10237_slice_name); /* line 2126 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 2127 "../lib/comp/str_act.s7i" */ if (o_3458_inlineFunctions) { { /* line 2128 "../lib/comp/str_act.s7i" */ striType old_stri=o_10234_stri_name; /* line 2128 "../lib/comp/str_act.s7i" */ o_10234_stri_name=o_5031_getParameterAsVariable(&str[1983] /* "const_striType" */, &str[713] /* "stri_" */, rflIdx(*o_10231_params, 1L), o_10232_c_expr); /* line 2128 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } { /* line 2129 "../lib/comp/str_act.s7i" */ striType old_stri=o_10235_start_name; /* line 2129 "../lib/comp/str_act.s7i" */ o_10235_start_name=o_5025_getTempVariable(&str[101] /* "intType" */, &str[2046] /* "start_" */, rflIdx(*o_10231_params, 3L), o_10232_c_expr); /* line 2129 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } { /* line 2130 "../lib/comp/str_act.s7i" */ striType old_stri=o_10236_length_name; /* line 2130 "../lib/comp/str_act.s7i" */ o_10236_length_name=o_5025_getTempVariable(&str[101] /* "intType" */, &str[2079] /* "length_" */, rflIdx(*o_10231_params, 5L), o_10232_c_expr); /* line 2130 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } /* line 2132 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10235_start_name); /* line 2133 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2080] /* "<1 ? (" */); /* line 2134 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10236_length_name); /* line 2135 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2081] /* ">=1 && " */); /* line 2136 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10235_start_name); /* line 2137 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2082] /* ">1-" */); /* line 2138 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10236_length_name); /* line 2139 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2083] /* " ? (" */); /* line 2140 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10236_length_name); /* line 2141 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1036] /* "+=" */); /* line 2142 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10235_start_name); /* line 2143 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2084] /* "-1, " */); /* line 2144 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10235_start_name); /* line 2145 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2085] /* "=1) : (" */); /* line 2146 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10236_length_name); /* line 2147 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2086] /* "=0)) : 0, " */); /* line 2155 "../lib/comp/str_act.s7i" */ if (((structType)(sct[55]))->stru[0].value.boolValue/*->o_3378_WITH_STRI_CAPACITY*/) { /* line 2156 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10237_slice_name); /* line 2157 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2050] /* ".capacity=0, " */); } /* line 2159 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10236_length_name); /* line 2160 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2087] /* ">=1 && (uintType)" */); /* line 2161 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10235_start_name); /* line 2162 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1407] /* "<=" */); /* line 2163 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10234_stri_name); /* line 2164 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2052] /* "->size ? (" */); /* line 2165 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10237_slice_name); /* line 2166 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2053] /* ".mem = &" */); /* line 2167 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10234_stri_name); /* line 2168 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[662] /* "->mem[" */); /* line 2169 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10235_start_name); /* line 2170 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2054] /* "-1], (uintType)" */); /* line 2171 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10236_length_name); /* line 2172 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[429] /* " > " */); /* line 2173 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10234_stri_name); /* line 2174 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2057] /* "->size-(memSizeType)" */); /* line 2175 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10235_start_name); /* line 2176 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2088] /* "+1 ? " */); /* line 2177 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10237_slice_name); /* line 2178 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2056] /* ".size = " */); /* line 2179 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10234_stri_name); /* line 2180 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2057] /* "->size-(memSizeType)" */); /* line 2181 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10235_start_name); /* line 2182 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2058] /* "+1 : (" */); /* line 2183 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10237_slice_name); /* line 2184 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2059] /* ".size = (memSizeType)" */); /* line 2185 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10236_length_name); /* line 2186 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2089] /* ")) : (" */); /* line 2187 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10237_slice_name); /* line 2188 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2090] /* ".mem = NULL, " */); /* line 2189 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10237_slice_name); /* line 2190 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2063] /* ".size = 0)" */); } else { /* line 2192 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2091] /* "strSubstrSlice(" */); /* line 2193 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10231_params, 1L), o_10232_c_expr); /* line 2194 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 2195 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10231_params, 3L), o_10232_c_expr); /* line 2196 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 2197 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10231_params, 5L), o_10232_c_expr); /* line 2198 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[421] /* ", &" */); /* line 2199 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10237_slice_name); /* line 2200 "../lib/comp/str_act.s7i" */ { /* line 2200 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 2200 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2200 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2200 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2200 "../lib/comp/str_act.s7i" */ } else { /* line 2200 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2200 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 2200 "../lib/comp/str_act.s7i" */ } } } /* line 2202 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[421] /* ", &" */); /* line 2203 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10237_slice_name); /* line 2204 "../lib/comp/str_act.s7i" */ { /* line 2204 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 2204 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10232_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2204 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2204 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2204 "../lib/comp/str_act.s7i" */ } else { /* line 2204 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2204 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 2204 "../lib/comp/str_act.s7i" */ } } } else { /* line 2206 "../lib/comp/str_act.s7i" */ o_4955_prepare_stri_result(o_10232_c_expr); /* line 2207 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10232_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2092] /* "strSubstr(" */); /* line 2208 "../lib/comp/str_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_10231_params, 1L), o_10232_c_expr); /* line 2209 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 2210 "../lib/comp/str_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_10231_params, 3L), o_10232_c_expr); /* line 2211 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10232_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 2212 "../lib/comp/str_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_10231_params, 5L), o_10232_c_expr); /* line 2213 "../lib/comp/str_act.s7i" */ { /* line 2213 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 2213 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10232_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 2213 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2213 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2213 "../lib/comp/str_act.s7i" */ } else { /* line 2213 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2213 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 2213 "../lib/comp/str_act.s7i" */ } } } /* line 2102 "../lib/comp/str_act.s7i" */ strDestr(tmp_1); } /* line 2092 "../lib/comp/str_act.s7i" */ strDestr(o_10234_stri_name); /* line 2092 "../lib/comp/str_act.s7i" */ strDestr(o_10235_start_name); /* line 2092 "../lib/comp/str_act.s7i" */ strDestr(o_10236_length_name); /* line 2092 "../lib/comp/str_act.s7i" */ strDestr(o_10237_slice_name); } /* line 1 "no_file" */ /* 4586 */ /* line 2218 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10238_STR_TAIL (const objRefType/*t_19_reference*/ o_10239_function, const listType/*t_20_ref_list*/ *const o_10240_params, structType/*t_164_expr_type*/ *const o_10241_c_expr) { /* line 2222 "../lib/comp/str_act.s7i" */ objRefType/*t_19_reference*/ o_10242_evaluatedParam=NULL; /* line 2223 "../lib/comp/str_act.s7i" */ striType/*t_15_string*/ o_10243_slice_name; /* line 2223 "../lib/comp/str_act.s7i" */ o_10243_slice_name=strEmpty(); /* "" */ { /* line 2225 "../lib/comp/str_act.s7i" */ striType tmp_1 = NULL; /* line 2225 "../lib/comp/str_act.s7i" */ if ((o_5154_getConstant(rflIdx(*o_10240_params, 1L), 12L, &(o_10242_evaluatedParam))) && /* line 2226 "../lib/comp/str_act.s7i" */ ((((tmp_1=strValue(o_10242_evaluatedParam)))->size==0 /* "" */))) { /* line 2227 "../lib/comp/str_act.s7i" */ ++(o_5107_countOptimizations); /* line 2228 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10241_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2093] /* "/* \"\"[n .. ] *\/ (" */); /* line 2230 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10240_params, 3L), o_10241_c_expr); /* line 2231 "../lib/comp/str_act.s7i" */ { /* line 2231 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 2231 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10241_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2231 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2231 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ','); /* line 2231 "../lib/comp/str_act.s7i" */ } else { /* line 2231 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ','; /* line 2231 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 2231 "../lib/comp/str_act.s7i" */ } } /* line 2232 "../lib/comp/str_act.s7i" */ strAppendTemp(&(((structType)(*o_10241_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6494_stringLiteral(&str[0] /* "" */)); /* line 2233 "../lib/comp/str_act.s7i" */ { /* line 2233 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 2233 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10241_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2233 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2233 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2233 "../lib/comp/str_act.s7i" */ } else { /* line 2233 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2233 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 2233 "../lib/comp/str_act.s7i" */ } } } else /* line 2234 "../lib/comp/str_act.s7i" */ if (((structType)(sct[55]))->stru[1].value.boolValue/*->o_3379_ALLOW_STRITYPE_SLICES*/) { /* line 2235 "../lib/comp/str_act.s7i" */ ++(((structType)(*o_10241_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); { /* line 2236 "../lib/comp/str_act.s7i" */ union { /* line 2236 "../lib/comp/str_act.s7i" */ struct striStruct striBuf; /* line 2236 "../lib/comp/str_act.s7i" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2236 "../lib/comp/str_act.s7i" */ } buffer_2; /* line 2236 "../lib/comp/str_act.s7i" */ striType old_stri=o_10243_slice_name; /* line 2236 "../lib/comp/str_act.s7i" */ o_10243_slice_name=strConcat(&str[2003] /* "slice_" */, intStrToBuffer(((structType)(*o_10241_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/, &buffer_2.striBuf)); /* line 2236 "../lib/comp/str_act.s7i" */ strDestr(old_stri); } /* line 2237 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10241_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[714] /* "struct striStruct " */); /* line 2238 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10241_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_10243_slice_name); /* line 2239 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10241_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 2240 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10241_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2094] /* "(strTailSlice(" */); /* line 2241 "../lib/comp/str_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10240_params, 1L), o_10241_c_expr); /* line 2242 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10241_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 2243 "../lib/comp/str_act.s7i" */ o_4941_process_expr(rflIdx(*o_10240_params, 3L), o_10241_c_expr); /* line 2244 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10241_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[421] /* ", &" */); /* line 2245 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10241_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10243_slice_name); /* line 2246 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10241_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[591] /* "), &" */); /* line 2247 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10241_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10243_slice_name); /* line 2248 "../lib/comp/str_act.s7i" */ { /* line 2248 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 2248 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10241_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2248 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2248 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2248 "../lib/comp/str_act.s7i" */ } else { /* line 2248 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2248 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 2248 "../lib/comp/str_act.s7i" */ } } } else { /* line 2250 "../lib/comp/str_act.s7i" */ o_4955_prepare_stri_result(o_10241_c_expr); /* line 2251 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10241_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2095] /* "strTail(" */); /* line 2252 "../lib/comp/str_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_10240_params, 1L), o_10241_c_expr); /* line 2253 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10241_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 2254 "../lib/comp/str_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_10240_params, 3L), o_10241_c_expr); /* line 2255 "../lib/comp/str_act.s7i" */ { /* line 2255 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 2255 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10241_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 2255 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2255 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2255 "../lib/comp/str_act.s7i" */ } else { /* line 2255 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2255 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 2255 "../lib/comp/str_act.s7i" */ } } } /* line 2225 "../lib/comp/str_act.s7i" */ strDestr(tmp_1); } /* line 2218 "../lib/comp/str_act.s7i" */ strDestr(o_10243_slice_name); } /* line 1 "no_file" */ /* 4587 */ /* line 2260 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10244_STR_TOUTF8 (const objRefType/*t_19_reference*/ o_10245_function, const listType/*t_20_ref_list*/ *const o_10246_params, structType/*t_164_expr_type*/ *const o_10247_c_expr) { /* line 2264 "../lib/comp/str_act.s7i" */ o_4955_prepare_stri_result(o_10247_c_expr); /* line 2265 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10247_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2096] /* "strToUtf8(" */); /* line 2266 "../lib/comp/str_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_10246_params, 1L), o_10247_c_expr); /* line 2267 "../lib/comp/str_act.s7i" */ { /* line 2267 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 2267 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10247_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 2267 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2267 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2267 "../lib/comp/str_act.s7i" */ } else { /* line 2267 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2267 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 2267 "../lib/comp/str_act.s7i" */ } } } /* line 1 "no_file" */ /* 4588 */ /* line 2271 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10248_STR_TRIM (const objRefType/*t_19_reference*/ o_10249_function, const listType/*t_20_ref_list*/ *const o_10250_params, structType/*t_164_expr_type*/ *const o_10251_c_expr) { /* line 2275 "../lib/comp/str_act.s7i" */ o_4955_prepare_stri_result(o_10251_c_expr); /* line 2276 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10251_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2097] /* "strTrim(" */); /* line 2277 "../lib/comp/str_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_10250_params, 1L), o_10251_c_expr); /* line 2278 "../lib/comp/str_act.s7i" */ { /* line 2278 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 2278 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10251_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 2278 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2278 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2278 "../lib/comp/str_act.s7i" */ } else { /* line 2278 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2278 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 2278 "../lib/comp/str_act.s7i" */ } } } /* line 1 "no_file" */ /* 4589 */ /* line 2289 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10252_STR_UP (const objRefType/*t_19_reference*/ o_10253_function, const listType/*t_20_ref_list*/ *const o_10254_params, structType/*t_164_expr_type*/ *const o_10255_c_expr) { /* line 2293 "../lib/comp/str_act.s7i" */ structType/*t_164_expr_type*/ o_10256_c_param1; /* line 2293 "../lib/comp/str_act.s7i" */ o_10256_c_param1=create_164(sct[336]); /* line 2295 "../lib/comp/str_act.s7i" */ o_4955_prepare_stri_result(o_10255_c_expr); /* line 2296 "../lib/comp/str_act.s7i" */ o_4963_prepareAnyParamTemporarys(rflIdx(*o_10254_params, 1L), &(o_10256_c_param1), o_10255_c_expr); /* line 2297 "../lib/comp/str_act.s7i" */ if (((((structType)(o_10256_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 2298 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10255_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2098] /* "strUpTemp(" */); /* line 2299 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10255_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_10256_c_param1))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 2301 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10255_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2099] /* "strUp(" */); /* line 2302 "../lib/comp/str_act.s7i" */ strAppend(&(((structType)(*o_10255_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_10256_c_param1))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 2304 "../lib/comp/str_act.s7i" */ { /* line 2304 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 2304 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10255_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 2304 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2304 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2304 "../lib/comp/str_act.s7i" */ } else { /* line 2304 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2304 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 2304 "../lib/comp/str_act.s7i" */ } } /* line 2289 "../lib/comp/str_act.s7i" */ destr_164(o_10256_c_param1); } /* line 1 "no_file" */ /* 4590 */ /* line 2308 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10257_STR_UTF8TOSTRI (const objRefType/*t_19_reference*/ o_10258_function, const listType/*t_20_ref_list*/ *const o_10259_params, structType/*t_164_expr_type*/ *const o_10260_c_expr) { /* line 2312 "../lib/comp/str_act.s7i" */ o_4955_prepare_stri_result(o_10260_c_expr); /* line 2313 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10260_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2100] /* "strUtf8ToStri(" */); /* line 2314 "../lib/comp/str_act.s7i" */ o_4977_getAnyParamToResultExpr(rflIdx(*o_10259_params, 1L), o_10260_c_expr); /* line 2315 "../lib/comp/str_act.s7i" */ { /* line 2315 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 2315 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10260_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 2315 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2315 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2315 "../lib/comp/str_act.s7i" */ } else { /* line 2315 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2315 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 2315 "../lib/comp/str_act.s7i" */ } } } /* line 1 "no_file" */ /* 4591 */ /* line 2319 "../lib/comp/str_act.s7i" */ static void/*t_1_void*/ o_10261_STR_VALUE (const objRefType/*t_19_reference*/ o_10262_function, const listType/*t_20_ref_list*/ *const o_10263_params, structType/*t_164_expr_type*/ *const o_10264_c_expr) { /* line 2323 "../lib/comp/str_act.s7i" */ o_4955_prepare_stri_result(o_10264_c_expr); /* line 2324 "../lib/comp/str_act.s7i" */ strCopy(&(((structType)(*o_10264_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2101] /* "strValue(" */); /* line 2325 "../lib/comp/str_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_10263_params, 1L), o_10264_c_expr); /* line 2326 "../lib/comp/str_act.s7i" */ { /* line 2326 "../lib/comp/str_act.s7i" */ striType *tmp_1; /* line 2326 "../lib/comp/str_act.s7i" */ tmp_1=&(((structType)(*o_10264_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 2326 "../lib/comp/str_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2326 "../lib/comp/str_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 2326 "../lib/comp/str_act.s7i" */ } else { /* line 2326 "../lib/comp/str_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2326 "../lib/comp/str_act.s7i" */ (*tmp_1)->size++; /* line 2326 "../lib/comp/str_act.s7i" */ } } } /* line 1 "no_file" */ /* 4592 */ /* line 33 "../lib/comp/tim_act.s7i" */ static void/*t_1_void*/ o_10265_tim_prototypes (interfaceType/*t_46_file*/ *const o_10266_c_prog) { /* line 36 "../lib/comp/tim_act.s7i" */ o_6547_declareExtern(o_10266_c_prog, &str[2102] /* "void timAwait (intType, intType, intType, intType, intType, intType, intType, intType);" */); /* line 37 "../lib/comp/tim_act.s7i" */ o_6547_declareExtern(o_10266_c_prog, &str[2103] /* "void timFromIntTimestamp (intType, intType *, intType *, intType *, intType *, intType *, intType *, intType *, intType *, boolType *);" */); /* line 38 "../lib/comp/tim_act.s7i" */ o_6547_declareExtern(o_10266_c_prog, &str[2104] /* "void timNow (intType *, intType *, intType *, intType *, intType *, intType *, intType *, intType *, boolType *);" */); /* line 39 "../lib/comp/tim_act.s7i" */ o_6547_declareExtern(o_10266_c_prog, &str[2105] /* "void timSetLocalTZ (intType, intType, intType, intType, intType, intType, intType *, boolType *);" */); } /* line 1 "no_file" */ /* 4593 */ /* line 43 "../lib/comp/tim_act.s7i" */ static void/*t_1_void*/ o_10267_TIM_AWAIT (const objRefType/*t_19_reference*/ o_10268_function, const listType/*t_20_ref_list*/ *const o_10269_params, structType/*t_164_expr_type*/ *const o_10270_c_expr) { /* line 47 "../lib/comp/tim_act.s7i" */ o_4819_setDiagnosticLine(o_10270_c_expr); /* line 48 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10270_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2106] /* "timAwait(" */); /* line 49 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10269_params, 1L), o_10270_c_expr); /* line 50 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10270_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 51 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10269_params, 2L), o_10270_c_expr); /* line 52 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10270_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 53 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10269_params, 3L), o_10270_c_expr); /* line 54 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10270_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 55 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10269_params, 4L), o_10270_c_expr); /* line 56 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10270_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 57 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10269_params, 5L), o_10270_c_expr); /* line 58 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10270_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 59 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10269_params, 6L), o_10270_c_expr); /* line 60 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10270_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 61 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10269_params, 7L), o_10270_c_expr); /* line 62 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10270_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 63 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10269_params, 8L), o_10270_c_expr); /* line 64 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10270_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4594 */ /* line 68 "../lib/comp/tim_act.s7i" */ static void/*t_1_void*/ o_10271_TIM_FROM_TIMESTAMP (const objRefType/*t_19_reference*/ o_10272_function, const listType/*t_20_ref_list*/ *const o_10273_params, structType/*t_164_expr_type*/ *const o_10274_c_expr) { /* line 72 "../lib/comp/tim_act.s7i" */ o_4819_setDiagnosticLine(o_10274_c_expr); /* line 73 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10274_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2107] /* "timFromIntTimestamp(" */); /* line 74 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10273_params, 1L), o_10274_c_expr); /* line 75 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10274_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[766] /* ", &(" */); /* line 76 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10273_params, 2L), o_10274_c_expr); /* line 77 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10274_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 78 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10273_params, 3L), o_10274_c_expr); /* line 79 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10274_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 80 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10273_params, 4L), o_10274_c_expr); /* line 81 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10274_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 82 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10273_params, 5L), o_10274_c_expr); /* line 83 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10274_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 84 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10273_params, 6L), o_10274_c_expr); /* line 85 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10274_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 86 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10273_params, 7L), o_10274_c_expr); /* line 87 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10274_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 88 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10273_params, 8L), o_10274_c_expr); /* line 89 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10274_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 90 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10273_params, 9L), o_10274_c_expr); /* line 91 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10274_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 92 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10273_params, 10L), o_10274_c_expr); /* line 93 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10274_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); } /* line 1 "no_file" */ /* 4595 */ /* line 97 "../lib/comp/tim_act.s7i" */ static void/*t_1_void*/ o_10275_TIM_NOW (const objRefType/*t_19_reference*/ o_10276_function, const listType/*t_20_ref_list*/ *const o_10277_params, structType/*t_164_expr_type*/ *const o_10278_c_expr) { /* line 101 "../lib/comp/tim_act.s7i" */ o_4819_setDiagnosticLine(o_10278_c_expr); /* line 102 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10278_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2108] /* "timNow(&(" */); /* line 103 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10277_params, 1L), o_10278_c_expr); /* line 104 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10278_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 105 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10277_params, 2L), o_10278_c_expr); /* line 106 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10278_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 107 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10277_params, 3L), o_10278_c_expr); /* line 108 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10278_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 109 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10277_params, 4L), o_10278_c_expr); /* line 110 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10278_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 111 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10277_params, 5L), o_10278_c_expr); /* line 112 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10278_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 113 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10277_params, 6L), o_10278_c_expr); /* line 114 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10278_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 115 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10277_params, 7L), o_10278_c_expr); /* line 116 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10278_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 117 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10277_params, 8L), o_10278_c_expr); /* line 118 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10278_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 119 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10277_params, 9L), o_10278_c_expr); /* line 120 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10278_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); } /* line 1 "no_file" */ /* 4596 */ /* line 124 "../lib/comp/tim_act.s7i" */ static void/*t_1_void*/ o_10279_TIM_SET_LOCAL_TZ (const objRefType/*t_19_reference*/ o_10280_function, const listType/*t_20_ref_list*/ *const o_10281_params, structType/*t_164_expr_type*/ *const o_10282_c_expr) { /* line 128 "../lib/comp/tim_act.s7i" */ o_4819_setDiagnosticLine(o_10282_c_expr); /* line 129 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10282_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2109] /* "timSetLocalTZ(" */); /* line 130 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10281_params, 1L), o_10282_c_expr); /* line 131 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10282_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 132 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10281_params, 2L), o_10282_c_expr); /* line 133 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10282_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 134 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10281_params, 3L), o_10282_c_expr); /* line 135 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10282_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 136 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10281_params, 4L), o_10282_c_expr); /* line 137 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10282_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 138 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10281_params, 5L), o_10282_c_expr); /* line 139 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10282_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 140 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10281_params, 6L), o_10282_c_expr); /* line 141 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10282_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[766] /* ", &(" */); /* line 142 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10281_params, 7L), o_10282_c_expr); /* line 143 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10282_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[767] /* "), &(" */); /* line 144 "../lib/comp/tim_act.s7i" */ o_4941_process_expr(rflIdx(*o_10281_params, 8L), o_10282_c_expr); /* line 145 "../lib/comp/tim_act.s7i" */ strAppend(&(((structType)(*o_10282_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[207] /* "));\n" */); } /* line 1 "no_file" */ /* 4597 */ /* line 45 "../lib/comp/typ_act.s7i" */ static void/*t_1_void*/ o_10283_typ_prototypes (interfaceType/*t_46_file*/ *const o_10284_c_prog) { /* line 48 "../lib/comp/typ_act.s7i" */ o_6547_declareExtern(o_10284_c_prog, &str[2110] /* "intType typCmp (const const_typeType, const const_typeType);" */); /* line 49 "../lib/comp/typ_act.s7i" */ o_6547_declareExtern(o_10284_c_prog, &str[2111] /* "intType typCmpGeneric (const genericType, const genericType);" */); /* line 50 "../lib/comp/typ_act.s7i" */ o_6547_declareExtern(o_10284_c_prog, &str[2112] /* "typeType typFunc (typeType);" */); /* line 51 "../lib/comp/typ_act.s7i" */ o_6547_declareExtern(o_10284_c_prog, &str[2113] /* "boolType typIsDerived (typeType);" */); /* line 52 "../lib/comp/typ_act.s7i" */ o_6547_declareExtern(o_10284_c_prog, &str[2114] /* "boolType typIsFunc (typeType);" */); /* line 53 "../lib/comp/typ_act.s7i" */ o_6547_declareExtern(o_10284_c_prog, &str[2115] /* "boolType typIsVarfunc (typeType);" */); /* line 54 "../lib/comp/typ_act.s7i" */ o_6547_declareExtern(o_10284_c_prog, &str[2116] /* "objRefType typMatchobj (typeType);" */); /* line 55 "../lib/comp/typ_act.s7i" */ o_6547_declareExtern(o_10284_c_prog, &str[2117] /* "typeType typMeta (typeType);" */); /* line 56 "../lib/comp/typ_act.s7i" */ o_6547_declareExtern(o_10284_c_prog, &str[2118] /* "intType typNum (typeType);" */); /* line 57 "../lib/comp/typ_act.s7i" */ o_6547_declareExtern(o_10284_c_prog, &str[2119] /* "typeType typResult (typeType);" */); /* line 58 "../lib/comp/typ_act.s7i" */ o_6547_declareExtern(o_10284_c_prog, &str[2120] /* "striType typStr (typeType);" */); /* line 59 "../lib/comp/typ_act.s7i" */ o_6547_declareExtern(o_10284_c_prog, &str[2121] /* "typeType typValue (objRefType);" */); } /* line 1 "no_file" */ /* 4598 */ /* line 63 "../lib/comp/typ_act.s7i" */ static void/*t_1_void*/ o_10285_TYP_CMP (const objRefType/*t_19_reference*/ o_10286_function, const listType/*t_20_ref_list*/ *const o_10287_params, structType/*t_164_expr_type*/ *const o_10288_c_expr) { /* line 67 "../lib/comp/typ_act.s7i" */ strAppend(&(((structType)(*o_10288_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2122] /* "typCmp(" */); /* line 68 "../lib/comp/typ_act.s7i" */ o_4941_process_expr(rflIdx(*o_10287_params, 1L), o_10288_c_expr); /* line 69 "../lib/comp/typ_act.s7i" */ strAppend(&(((structType)(*o_10288_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 70 "../lib/comp/typ_act.s7i" */ o_4941_process_expr(rflIdx(*o_10287_params, 2L), o_10288_c_expr); /* line 71 "../lib/comp/typ_act.s7i" */ { /* line 71 "../lib/comp/typ_act.s7i" */ striType *tmp_1; /* line 71 "../lib/comp/typ_act.s7i" */ tmp_1=&(((structType)(*o_10288_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 71 "../lib/comp/typ_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 71 "../lib/comp/typ_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 71 "../lib/comp/typ_act.s7i" */ } else { /* line 71 "../lib/comp/typ_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 71 "../lib/comp/typ_act.s7i" */ (*tmp_1)->size++; /* line 71 "../lib/comp/typ_act.s7i" */ } } } /* line 1 "no_file" */ /* 4599 */ /* line 75 "../lib/comp/typ_act.s7i" */ static void/*t_1_void*/ o_10289_TYP_CPY (const objRefType/*t_19_reference*/ o_10290_function, const listType/*t_20_ref_list*/ *const o_10291_params, structType/*t_164_expr_type*/ *const o_10292_c_expr) { /* line 79 "../lib/comp/typ_act.s7i" */ structType/*t_164_expr_type*/ o_10293_statement; /* line 79 "../lib/comp/typ_act.s7i" */ o_10293_statement=create_164(sct[337]); /* line 81 "../lib/comp/typ_act.s7i" */ o_4941_process_expr(rflIdx(*o_10291_params, 1L), &(o_10293_statement)); /* line 82 "../lib/comp/typ_act.s7i" */ { /* line 82 "../lib/comp/typ_act.s7i" */ striType *tmp_1; /* line 82 "../lib/comp/typ_act.s7i" */ tmp_1=&(((structType)(o_10293_statement))->stru[5].value.striValue/*->o_4783_expr*/); /* line 82 "../lib/comp/typ_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 82 "../lib/comp/typ_act.s7i" */ strPush(&(*tmp_1), (charType) '='); /* line 82 "../lib/comp/typ_act.s7i" */ } else { /* line 82 "../lib/comp/typ_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 82 "../lib/comp/typ_act.s7i" */ (*tmp_1)->size++; /* line 82 "../lib/comp/typ_act.s7i" */ } } /* line 83 "../lib/comp/typ_act.s7i" */ o_4941_process_expr(rflIdx(*o_10291_params, 3L), &(o_10293_statement)); /* line 84 "../lib/comp/typ_act.s7i" */ strAppend(&(((structType)(o_10293_statement))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 85 "../lib/comp/typ_act.s7i" */ o_5015_doLocalDeclsOfStatement(o_10293_statement, o_10292_c_expr); /* line 75 "../lib/comp/typ_act.s7i" */ destr_164(o_10293_statement); } /* line 1 "no_file" */ /* 4600 */ /* line 89 "../lib/comp/typ_act.s7i" */ static void/*t_1_void*/ o_10294_TYP_EQ (const objRefType/*t_19_reference*/ o_10295_function, const listType/*t_20_ref_list*/ *const o_10296_params, structType/*t_164_expr_type*/ *const o_10297_c_expr) { /* line 93 "../lib/comp/typ_act.s7i" */ { /* line 93 "../lib/comp/typ_act.s7i" */ striType *tmp_1; /* line 93 "../lib/comp/typ_act.s7i" */ tmp_1=&(((structType)(*o_10297_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 93 "../lib/comp/typ_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 93 "../lib/comp/typ_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 93 "../lib/comp/typ_act.s7i" */ } else { /* line 93 "../lib/comp/typ_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 93 "../lib/comp/typ_act.s7i" */ (*tmp_1)->size++; /* line 93 "../lib/comp/typ_act.s7i" */ } } /* line 94 "../lib/comp/typ_act.s7i" */ o_4941_process_expr(rflIdx(*o_10296_params, 1L), o_10297_c_expr); /* line 95 "../lib/comp/typ_act.s7i" */ strAppend(&(((structType)(*o_10297_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[350] /* ") == (" */); /* line 96 "../lib/comp/typ_act.s7i" */ o_4941_process_expr(rflIdx(*o_10296_params, 3L), o_10297_c_expr); /* line 97 "../lib/comp/typ_act.s7i" */ { /* line 97 "../lib/comp/typ_act.s7i" */ striType *tmp_1; /* line 97 "../lib/comp/typ_act.s7i" */ tmp_1=&(((structType)(*o_10297_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 97 "../lib/comp/typ_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 97 "../lib/comp/typ_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 97 "../lib/comp/typ_act.s7i" */ } else { /* line 97 "../lib/comp/typ_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 97 "../lib/comp/typ_act.s7i" */ (*tmp_1)->size++; /* line 97 "../lib/comp/typ_act.s7i" */ } } } /* line 1 "no_file" */ /* 4601 */ /* line 101 "../lib/comp/typ_act.s7i" */ static void/*t_1_void*/ o_10298_TYP_FUNC (const objRefType/*t_19_reference*/ o_10299_function, const listType/*t_20_ref_list*/ *const o_10300_params, structType/*t_164_expr_type*/ *const o_10301_c_expr) { /* line 105 "../lib/comp/typ_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 106 "../lib/comp/typ_act.s7i" */ strAppend(&(((structType)(*o_10301_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2123] /* "typFunc(" */); /* line 107 "../lib/comp/typ_act.s7i" */ o_4941_process_expr(rflIdx(*o_10300_params, 1L), o_10301_c_expr); /* line 108 "../lib/comp/typ_act.s7i" */ { /* line 108 "../lib/comp/typ_act.s7i" */ striType *tmp_1; /* line 108 "../lib/comp/typ_act.s7i" */ tmp_1=&(((structType)(*o_10301_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 108 "../lib/comp/typ_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 108 "../lib/comp/typ_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 108 "../lib/comp/typ_act.s7i" */ } else { /* line 108 "../lib/comp/typ_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 108 "../lib/comp/typ_act.s7i" */ (*tmp_1)->size++; /* line 108 "../lib/comp/typ_act.s7i" */ } } } /* line 1 "no_file" */ /* 4602 */ /* line 112 "../lib/comp/typ_act.s7i" */ static void/*t_1_void*/ o_10302_TYP_HASHCODE (const objRefType/*t_19_reference*/ o_10303_function, const listType/*t_20_ref_list*/ *const o_10304_params, structType/*t_164_expr_type*/ *const o_10305_c_expr) { /* line 116 "../lib/comp/typ_act.s7i" */ strAppend(&(((structType)(*o_10305_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[893] /* "(intType)(((memSizeType)(" */); /* line 117 "../lib/comp/typ_act.s7i" */ o_4941_process_expr(rflIdx(*o_10304_params, 1L), o_10305_c_expr); /* line 118 "../lib/comp/typ_act.s7i" */ strAppend(&(((structType)(*o_10305_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[894] /* ")) >> 6)" */); } /* line 1 "no_file" */ /* 4603 */ /* line 122 "../lib/comp/typ_act.s7i" */ static void/*t_1_void*/ o_10306_TYP_ISDERIVED (const objRefType/*t_19_reference*/ o_10307_function, const listType/*t_20_ref_list*/ *const o_10308_params, structType/*t_164_expr_type*/ *const o_10309_c_expr) { /* line 126 "../lib/comp/typ_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 127 "../lib/comp/typ_act.s7i" */ strAppend(&(((structType)(*o_10309_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2124] /* "typIsDerived(" */); /* line 128 "../lib/comp/typ_act.s7i" */ o_4941_process_expr(rflIdx(*o_10308_params, 1L), o_10309_c_expr); /* line 129 "../lib/comp/typ_act.s7i" */ { /* line 129 "../lib/comp/typ_act.s7i" */ striType *tmp_1; /* line 129 "../lib/comp/typ_act.s7i" */ tmp_1=&(((structType)(*o_10309_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 129 "../lib/comp/typ_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 129 "../lib/comp/typ_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 129 "../lib/comp/typ_act.s7i" */ } else { /* line 129 "../lib/comp/typ_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 129 "../lib/comp/typ_act.s7i" */ (*tmp_1)->size++; /* line 129 "../lib/comp/typ_act.s7i" */ } } } /* line 1 "no_file" */ /* 4604 */ /* line 133 "../lib/comp/typ_act.s7i" */ static void/*t_1_void*/ o_10310_TYP_ISFUNC (const objRefType/*t_19_reference*/ o_10311_function, const listType/*t_20_ref_list*/ *const o_10312_params, structType/*t_164_expr_type*/ *const o_10313_c_expr) { /* line 137 "../lib/comp/typ_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 138 "../lib/comp/typ_act.s7i" */ strAppend(&(((structType)(*o_10313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2125] /* "typIsFunc(" */); /* line 139 "../lib/comp/typ_act.s7i" */ o_4941_process_expr(rflIdx(*o_10312_params, 1L), o_10313_c_expr); /* line 140 "../lib/comp/typ_act.s7i" */ { /* line 140 "../lib/comp/typ_act.s7i" */ striType *tmp_1; /* line 140 "../lib/comp/typ_act.s7i" */ tmp_1=&(((structType)(*o_10313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 140 "../lib/comp/typ_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 140 "../lib/comp/typ_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 140 "../lib/comp/typ_act.s7i" */ } else { /* line 140 "../lib/comp/typ_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 140 "../lib/comp/typ_act.s7i" */ (*tmp_1)->size++; /* line 140 "../lib/comp/typ_act.s7i" */ } } } /* line 1 "no_file" */ /* 4605 */ /* line 144 "../lib/comp/typ_act.s7i" */ static void/*t_1_void*/ o_10314_TYP_ISVARFUNC (const objRefType/*t_19_reference*/ o_10315_function, const listType/*t_20_ref_list*/ *const o_10316_params, structType/*t_164_expr_type*/ *const o_10317_c_expr) { /* line 148 "../lib/comp/typ_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 149 "../lib/comp/typ_act.s7i" */ strAppend(&(((structType)(*o_10317_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2126] /* "typIsVarfunc(" */); /* line 150 "../lib/comp/typ_act.s7i" */ o_4941_process_expr(rflIdx(*o_10316_params, 1L), o_10317_c_expr); /* line 151 "../lib/comp/typ_act.s7i" */ { /* line 151 "../lib/comp/typ_act.s7i" */ striType *tmp_1; /* line 151 "../lib/comp/typ_act.s7i" */ tmp_1=&(((structType)(*o_10317_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 151 "../lib/comp/typ_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 151 "../lib/comp/typ_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 151 "../lib/comp/typ_act.s7i" */ } else { /* line 151 "../lib/comp/typ_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 151 "../lib/comp/typ_act.s7i" */ (*tmp_1)->size++; /* line 151 "../lib/comp/typ_act.s7i" */ } } } /* line 1 "no_file" */ /* 4606 */ /* line 155 "../lib/comp/typ_act.s7i" */ static void/*t_1_void*/ o_10318_TYP_MATCHOBJ (const objRefType/*t_19_reference*/ o_10319_function, const listType/*t_20_ref_list*/ *const o_10320_params, structType/*t_164_expr_type*/ *const o_10321_c_expr) { /* line 159 "../lib/comp/typ_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 160 "../lib/comp/typ_act.s7i" */ strAppend(&(((structType)(*o_10321_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2127] /* "typMatchobj(" */); /* line 161 "../lib/comp/typ_act.s7i" */ o_4941_process_expr(rflIdx(*o_10320_params, 1L), o_10321_c_expr); /* line 162 "../lib/comp/typ_act.s7i" */ { /* line 162 "../lib/comp/typ_act.s7i" */ striType *tmp_1; /* line 162 "../lib/comp/typ_act.s7i" */ tmp_1=&(((structType)(*o_10321_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 162 "../lib/comp/typ_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 162 "../lib/comp/typ_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 162 "../lib/comp/typ_act.s7i" */ } else { /* line 162 "../lib/comp/typ_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 162 "../lib/comp/typ_act.s7i" */ (*tmp_1)->size++; /* line 162 "../lib/comp/typ_act.s7i" */ } } } /* line 1 "no_file" */ /* 4607 */ /* line 166 "../lib/comp/typ_act.s7i" */ static void/*t_1_void*/ o_10322_TYP_META (const objRefType/*t_19_reference*/ o_10323_function, const listType/*t_20_ref_list*/ *const o_10324_params, structType/*t_164_expr_type*/ *const o_10325_c_expr) { /* line 170 "../lib/comp/typ_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 171 "../lib/comp/typ_act.s7i" */ strAppend(&(((structType)(*o_10325_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2128] /* "typMeta(" */); /* line 172 "../lib/comp/typ_act.s7i" */ o_4941_process_expr(rflIdx(*o_10324_params, 1L), o_10325_c_expr); /* line 173 "../lib/comp/typ_act.s7i" */ { /* line 173 "../lib/comp/typ_act.s7i" */ striType *tmp_1; /* line 173 "../lib/comp/typ_act.s7i" */ tmp_1=&(((structType)(*o_10325_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 173 "../lib/comp/typ_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 173 "../lib/comp/typ_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 173 "../lib/comp/typ_act.s7i" */ } else { /* line 173 "../lib/comp/typ_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 173 "../lib/comp/typ_act.s7i" */ (*tmp_1)->size++; /* line 173 "../lib/comp/typ_act.s7i" */ } } } /* line 1 "no_file" */ /* 4608 */ /* line 177 "../lib/comp/typ_act.s7i" */ static void/*t_1_void*/ o_10326_TYP_NE (const objRefType/*t_19_reference*/ o_10327_function, const listType/*t_20_ref_list*/ *const o_10328_params, structType/*t_164_expr_type*/ *const o_10329_c_expr) { /* line 181 "../lib/comp/typ_act.s7i" */ { /* line 181 "../lib/comp/typ_act.s7i" */ striType *tmp_1; /* line 181 "../lib/comp/typ_act.s7i" */ tmp_1=&(((structType)(*o_10329_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 181 "../lib/comp/typ_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 181 "../lib/comp/typ_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 181 "../lib/comp/typ_act.s7i" */ } else { /* line 181 "../lib/comp/typ_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 181 "../lib/comp/typ_act.s7i" */ (*tmp_1)->size++; /* line 181 "../lib/comp/typ_act.s7i" */ } } /* line 182 "../lib/comp/typ_act.s7i" */ o_4941_process_expr(rflIdx(*o_10328_params, 1L), o_10329_c_expr); /* line 183 "../lib/comp/typ_act.s7i" */ strAppend(&(((structType)(*o_10329_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[352] /* ") != (" */); /* line 184 "../lib/comp/typ_act.s7i" */ o_4941_process_expr(rflIdx(*o_10328_params, 3L), o_10329_c_expr); /* line 185 "../lib/comp/typ_act.s7i" */ { /* line 185 "../lib/comp/typ_act.s7i" */ striType *tmp_1; /* line 185 "../lib/comp/typ_act.s7i" */ tmp_1=&(((structType)(*o_10329_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 185 "../lib/comp/typ_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 185 "../lib/comp/typ_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 185 "../lib/comp/typ_act.s7i" */ } else { /* line 185 "../lib/comp/typ_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 185 "../lib/comp/typ_act.s7i" */ (*tmp_1)->size++; /* line 185 "../lib/comp/typ_act.s7i" */ } } } /* line 1 "no_file" */ /* 4609 */ /* line 189 "../lib/comp/typ_act.s7i" */ static void/*t_1_void*/ o_10330_TYP_NUM (const objRefType/*t_19_reference*/ o_10331_function, const listType/*t_20_ref_list*/ *const o_10332_params, structType/*t_164_expr_type*/ *const o_10333_c_expr) { /* line 193 "../lib/comp/typ_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 194 "../lib/comp/typ_act.s7i" */ strAppend(&(((structType)(*o_10333_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2129] /* "typNum(" */); /* line 195 "../lib/comp/typ_act.s7i" */ o_4941_process_expr(rflIdx(*o_10332_params, 1L), o_10333_c_expr); /* line 196 "../lib/comp/typ_act.s7i" */ { /* line 196 "../lib/comp/typ_act.s7i" */ striType *tmp_1; /* line 196 "../lib/comp/typ_act.s7i" */ tmp_1=&(((structType)(*o_10333_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 196 "../lib/comp/typ_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 196 "../lib/comp/typ_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 196 "../lib/comp/typ_act.s7i" */ } else { /* line 196 "../lib/comp/typ_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 196 "../lib/comp/typ_act.s7i" */ (*tmp_1)->size++; /* line 196 "../lib/comp/typ_act.s7i" */ } } } /* line 1 "no_file" */ /* 4610 */ /* line 200 "../lib/comp/typ_act.s7i" */ static void/*t_1_void*/ o_10334_TYP_RESULT (const objRefType/*t_19_reference*/ o_10335_function, const listType/*t_20_ref_list*/ *const o_10336_params, structType/*t_164_expr_type*/ *const o_10337_c_expr) { /* line 204 "../lib/comp/typ_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 205 "../lib/comp/typ_act.s7i" */ strAppend(&(((structType)(*o_10337_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2130] /* "typResult(" */); /* line 206 "../lib/comp/typ_act.s7i" */ o_4941_process_expr(rflIdx(*o_10336_params, 1L), o_10337_c_expr); /* line 207 "../lib/comp/typ_act.s7i" */ { /* line 207 "../lib/comp/typ_act.s7i" */ striType *tmp_1; /* line 207 "../lib/comp/typ_act.s7i" */ tmp_1=&(((structType)(*o_10337_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 207 "../lib/comp/typ_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 207 "../lib/comp/typ_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 207 "../lib/comp/typ_act.s7i" */ } else { /* line 207 "../lib/comp/typ_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 207 "../lib/comp/typ_act.s7i" */ (*tmp_1)->size++; /* line 207 "../lib/comp/typ_act.s7i" */ } } } /* line 1 "no_file" */ /* 4611 */ /* line 211 "../lib/comp/typ_act.s7i" */ static void/*t_1_void*/ o_10338_TYP_STR (const objRefType/*t_19_reference*/ o_10339_function, const listType/*t_20_ref_list*/ *const o_10340_params, structType/*t_164_expr_type*/ *const o_10341_c_expr) { /* line 215 "../lib/comp/typ_act.s7i" */ if (((refCategory(rflIdx(*o_10340_params, 1L))) == (7L)) && /* line 215 "../lib/comp/typ_act.s7i" */ (!(refIsVar(rflIdx(*o_10340_params, 1L))))) { /* line 216 "../lib/comp/typ_act.s7i" */ ++(o_5107_countOptimizations); { /* line 217 "../lib/comp/typ_act.s7i" */ striType tmp_2 = NULL; /* line 217 "../lib/comp/typ_act.s7i" */ strAppendTemp(&(((structType)(*o_10341_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6494_stringLiteral((tmp_2=typStr(typValue(rflIdx(*o_10340_params, 1L)))))); /* line 217 "../lib/comp/typ_act.s7i" */ strDestr(tmp_2); } } else { /* line 219 "../lib/comp/typ_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 220 "../lib/comp/typ_act.s7i" */ o_4955_prepare_stri_result(o_10341_c_expr); /* line 221 "../lib/comp/typ_act.s7i" */ strCopy(&(((structType)(*o_10341_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2131] /* "typStr(" */); /* line 222 "../lib/comp/typ_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_10340_params, 1L), o_10341_c_expr); /* line 223 "../lib/comp/typ_act.s7i" */ { /* line 223 "../lib/comp/typ_act.s7i" */ striType *tmp_1; /* line 223 "../lib/comp/typ_act.s7i" */ tmp_1=&(((structType)(*o_10341_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 223 "../lib/comp/typ_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 223 "../lib/comp/typ_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 223 "../lib/comp/typ_act.s7i" */ } else { /* line 223 "../lib/comp/typ_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 223 "../lib/comp/typ_act.s7i" */ (*tmp_1)->size++; /* line 223 "../lib/comp/typ_act.s7i" */ } } } } /* line 1 "no_file" */ /* 4612 */ /* line 228 "../lib/comp/typ_act.s7i" */ static void/*t_1_void*/ o_10342_TYP_VALUE (const objRefType/*t_19_reference*/ o_10343_function, const listType/*t_20_ref_list*/ *const o_10344_params, structType/*t_164_expr_type*/ *const o_10345_c_expr) { /* line 232 "../lib/comp/typ_act.s7i" */ o_6542_compDataLibraryUsed=o_26_TRUE; /* line 233 "../lib/comp/typ_act.s7i" */ strAppend(&(((structType)(*o_10345_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2132] /* "typValue(" */); /* line 234 "../lib/comp/typ_act.s7i" */ o_4941_process_expr(rflIdx(*o_10344_params, 1L), o_10345_c_expr); /* line 235 "../lib/comp/typ_act.s7i" */ { /* line 235 "../lib/comp/typ_act.s7i" */ striType *tmp_1; /* line 235 "../lib/comp/typ_act.s7i" */ tmp_1=&(((structType)(*o_10345_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 235 "../lib/comp/typ_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 235 "../lib/comp/typ_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 235 "../lib/comp/typ_act.s7i" */ } else { /* line 235 "../lib/comp/typ_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 235 "../lib/comp/typ_act.s7i" */ (*tmp_1)->size++; /* line 235 "../lib/comp/typ_act.s7i" */ } } } /* line 1 "no_file" */ /* 4613 */ /* line 239 "../lib/comp/typ_act.s7i" */ static void/*t_1_void*/ o_10346_TYP_VARCONV (const objRefType/*t_19_reference*/ o_10347_function, const listType/*t_20_ref_list*/ *const o_10348_params, structType/*t_164_expr_type*/ *const o_10349_c_expr) { /* line 243 "../lib/comp/typ_act.s7i" */ { /* line 243 "../lib/comp/typ_act.s7i" */ striType *tmp_1; /* line 243 "../lib/comp/typ_act.s7i" */ tmp_1=&(((structType)(*o_10349_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 243 "../lib/comp/typ_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 243 "../lib/comp/typ_act.s7i" */ strPush(&(*tmp_1), (charType) '('); /* line 243 "../lib/comp/typ_act.s7i" */ } else { /* line 243 "../lib/comp/typ_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 243 "../lib/comp/typ_act.s7i" */ (*tmp_1)->size++; /* line 243 "../lib/comp/typ_act.s7i" */ } } /* line 244 "../lib/comp/typ_act.s7i" */ o_4941_process_expr(rflIdx(*o_10348_params, 3L), o_10349_c_expr); /* line 245 "../lib/comp/typ_act.s7i" */ { /* line 245 "../lib/comp/typ_act.s7i" */ striType *tmp_1; /* line 245 "../lib/comp/typ_act.s7i" */ tmp_1=&(((structType)(*o_10349_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 245 "../lib/comp/typ_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 245 "../lib/comp/typ_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 245 "../lib/comp/typ_act.s7i" */ } else { /* line 245 "../lib/comp/typ_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 245 "../lib/comp/typ_act.s7i" */ (*tmp_1)->size++; /* line 245 "../lib/comp/typ_act.s7i" */ } } } /* line 1 "no_file" */ /* 4614 */ /* line 35 "../lib/comp/ut8_act.s7i" */ static void/*t_1_void*/ o_10350_ut8_prototypes (interfaceType/*t_46_file*/ *const o_10351_c_prog) { /* line 38 "../lib/comp/ut8_act.s7i" */ o_6547_declareExtern(o_10351_c_prog, &str[2133] /* "charType ut8Getc (fileType);" */); /* line 39 "../lib/comp/ut8_act.s7i" */ o_6547_declareExtern(o_10351_c_prog, &str[2134] /* "striType ut8Gets (fileType, intType);" */); /* line 40 "../lib/comp/ut8_act.s7i" */ o_6547_declareExtern(o_10351_c_prog, &str[2135] /* "striType ut8LineRead (fileType, charType *);" */); /* line 41 "../lib/comp/ut8_act.s7i" */ o_6547_declareExtern(o_10351_c_prog, &str[2136] /* "void ut8Seek (fileType, intType);" */); /* line 42 "../lib/comp/ut8_act.s7i" */ o_6547_declareExtern(o_10351_c_prog, &str[2137] /* "striType ut8WordRead (fileType, charType *);" */); /* line 43 "../lib/comp/ut8_act.s7i" */ o_6547_declareExtern(o_10351_c_prog, &str[2138] /* "void ut8Write (fileType, const const_striType);" */); } /* line 1 "no_file" */ /* 4615 */ /* line 47 "../lib/comp/ut8_act.s7i" */ static void/*t_1_void*/ o_10352_UT8_GETC (const objRefType/*t_19_reference*/ o_10353_function, const listType/*t_20_ref_list*/ *const o_10354_params, structType/*t_164_expr_type*/ *const o_10355_c_expr) { /* line 51 "../lib/comp/ut8_act.s7i" */ strAppend(&(((structType)(*o_10355_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2139] /* "ut8Getc(" */); /* line 52 "../lib/comp/ut8_act.s7i" */ o_4941_process_expr(rflIdx(*o_10354_params, 1L), o_10355_c_expr); /* line 53 "../lib/comp/ut8_act.s7i" */ { /* line 53 "../lib/comp/ut8_act.s7i" */ striType *tmp_1; /* line 53 "../lib/comp/ut8_act.s7i" */ tmp_1=&(((structType)(*o_10355_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 53 "../lib/comp/ut8_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 53 "../lib/comp/ut8_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 53 "../lib/comp/ut8_act.s7i" */ } else { /* line 53 "../lib/comp/ut8_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 53 "../lib/comp/ut8_act.s7i" */ (*tmp_1)->size++; /* line 53 "../lib/comp/ut8_act.s7i" */ } } } /* line 1 "no_file" */ /* 4616 */ /* line 57 "../lib/comp/ut8_act.s7i" */ static void/*t_1_void*/ o_10356_UT8_GETS (const objRefType/*t_19_reference*/ o_10357_function, const listType/*t_20_ref_list*/ *const o_10358_params, structType/*t_164_expr_type*/ *const o_10359_c_expr) { /* line 61 "../lib/comp/ut8_act.s7i" */ o_4955_prepare_stri_result(o_10359_c_expr); /* line 62 "../lib/comp/ut8_act.s7i" */ strCopy(&(((structType)(*o_10359_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2140] /* "ut8Gets(" */); /* line 63 "../lib/comp/ut8_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_10358_params, 1L), o_10359_c_expr); /* line 64 "../lib/comp/ut8_act.s7i" */ strAppend(&(((structType)(*o_10359_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[12] /* ", " */); /* line 65 "../lib/comp/ut8_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_10358_params, 2L), o_10359_c_expr); /* line 66 "../lib/comp/ut8_act.s7i" */ { /* line 66 "../lib/comp/ut8_act.s7i" */ striType *tmp_1; /* line 66 "../lib/comp/ut8_act.s7i" */ tmp_1=&(((structType)(*o_10359_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 66 "../lib/comp/ut8_act.s7i" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 66 "../lib/comp/ut8_act.s7i" */ strPush(&(*tmp_1), (charType) ')'); /* line 66 "../lib/comp/ut8_act.s7i" */ } else { /* line 66 "../lib/comp/ut8_act.s7i" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 66 "../lib/comp/ut8_act.s7i" */ (*tmp_1)->size++; /* line 66 "../lib/comp/ut8_act.s7i" */ } } } /* line 1 "no_file" */ /* 4617 */ /* line 70 "../lib/comp/ut8_act.s7i" */ static void/*t_1_void*/ o_10360_UT8_LINE_READ (const objRefType/*t_19_reference*/ o_10361_function, const listType/*t_20_ref_list*/ *const o_10362_params, structType/*t_164_expr_type*/ *const o_10363_c_expr) { /* line 74 "../lib/comp/ut8_act.s7i" */ o_4955_prepare_stri_result(o_10363_c_expr); /* line 75 "../lib/comp/ut8_act.s7i" */ strCopy(&(((structType)(*o_10363_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2141] /* "ut8LineRead(" */); /* line 76 "../lib/comp/ut8_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_10362_params, 1L), o_10363_c_expr); /* line 77 "../lib/comp/ut8_act.s7i" */ strAppend(&(((structType)(*o_10363_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[766] /* ", &(" */); /* line 78 "../lib/comp/ut8_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_10362_params, 2L), o_10363_c_expr); /* line 79 "../lib/comp/ut8_act.s7i" */ strAppend(&(((structType)(*o_10363_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 4618 */ /* line 83 "../lib/comp/ut8_act.s7i" */ static void/*t_1_void*/ o_10364_UT8_SEEK (const objRefType/*t_19_reference*/ o_10365_function, const listType/*t_20_ref_list*/ *const o_10366_params, structType/*t_164_expr_type*/ *const o_10367_c_expr) { /* line 87 "../lib/comp/ut8_act.s7i" */ strAppend(&(((structType)(*o_10367_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2142] /* "ut8Seek(" */); /* line 88 "../lib/comp/ut8_act.s7i" */ o_4941_process_expr(rflIdx(*o_10366_params, 1L), o_10367_c_expr); /* line 89 "../lib/comp/ut8_act.s7i" */ strAppend(&(((structType)(*o_10367_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 90 "../lib/comp/ut8_act.s7i" */ o_4941_process_expr(rflIdx(*o_10366_params, 2L), o_10367_c_expr); /* line 91 "../lib/comp/ut8_act.s7i" */ strAppend(&(((structType)(*o_10367_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4619 */ /* line 95 "../lib/comp/ut8_act.s7i" */ static void/*t_1_void*/ o_10368_UT8_WORD_READ (const objRefType/*t_19_reference*/ o_10369_function, const listType/*t_20_ref_list*/ *const o_10370_params, structType/*t_164_expr_type*/ *const o_10371_c_expr) { /* line 99 "../lib/comp/ut8_act.s7i" */ o_4955_prepare_stri_result(o_10371_c_expr); /* line 100 "../lib/comp/ut8_act.s7i" */ strCopy(&(((structType)(*o_10371_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2143] /* "ut8WordRead(" */); /* line 101 "../lib/comp/ut8_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_10370_params, 1L), o_10371_c_expr); /* line 102 "../lib/comp/ut8_act.s7i" */ strAppend(&(((structType)(*o_10371_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[766] /* ", &(" */); /* line 103 "../lib/comp/ut8_act.s7i" */ o_4981_getStdParamToResultExpr(rflIdx(*o_10370_params, 2L), o_10371_c_expr); /* line 104 "../lib/comp/ut8_act.s7i" */ strAppend(&(((structType)(*o_10371_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[240] /* "))" */); } /* line 1 "no_file" */ /* 4620 */ /* line 108 "../lib/comp/ut8_act.s7i" */ static void/*t_1_void*/ o_10372_UT8_WRITE (const objRefType/*t_19_reference*/ o_10373_function, const listType/*t_20_ref_list*/ *const o_10374_params, structType/*t_164_expr_type*/ *const o_10375_c_expr) { /* line 112 "../lib/comp/ut8_act.s7i" */ o_4819_setDiagnosticLine(o_10375_c_expr); /* line 113 "../lib/comp/ut8_act.s7i" */ strAppend(&(((structType)(*o_10375_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2144] /* "ut8Write(" */); /* line 114 "../lib/comp/ut8_act.s7i" */ o_4941_process_expr(rflIdx(*o_10374_params, 1L), o_10375_c_expr); /* line 115 "../lib/comp/ut8_act.s7i" */ strAppend(&(((structType)(*o_10375_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); /* line 116 "../lib/comp/ut8_act.s7i" */ o_4970_getAnyParamToExpr(rflIdx(*o_10374_params, 2L), o_10375_c_expr); /* line 117 "../lib/comp/ut8_act.s7i" */ strAppend(&(((structType)(*o_10375_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 1 "no_file" */ /* 4621 */ /* line 67 "../lib/comp/action.s7i" */ static void/*t_1_void*/ o_6547_declareExtern (interfaceType/*t_46_file*/ *const o_6548_c_prog, const const_striType/*t_15_string*/ o_6549_prototype) { /* line 70 "../lib/comp/action.s7i" */ o_889_write(o_6548_c_prog, &str[2145] /* "extern " */); /* line 71 "../lib/comp/action.s7i" */ if (o_3459_declare_with_extern_c) { /* line 72 "../lib/comp/action.s7i" */ o_889_write(o_6548_c_prog, &str[2146] /* "\"C\" " */); } /* line 74 "../lib/comp/action.s7i" */ o_894_writeln(o_6548_c_prog, o_6549_prototype); } /* line 1 "no_file" */ /* 4622 */ /* line 78 "../lib/comp/action.s7i" */ static void/*t_1_void*/ o_10376_process_unknown_action (const const_striType/*t_15_string*/ o_10377_action_name, structType/*t_164_expr_type*/ *const o_10378_c_expr) { /* line 81 "../lib/comp/action.s7i" */ strAppend(&(((structType)(*o_10378_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2147] /* "/* ACTOBJECT { " */); /* line 82 "../lib/comp/action.s7i" */ strAppend(&(((structType)(*o_10378_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_10377_action_name); /* line 83 "../lib/comp/action.s7i" */ strAppend(&(((structType)(*o_10378_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2148] /* " }*\/" */); } /* line 1 "no_file" */ /* 4623 */ /* line 87 "../lib/comp/action.s7i" */ static void/*t_1_void*/ o_6543_process_action (const objRefType/*t_19_reference*/ o_6544_function, const listType/*t_20_ref_list*/ *const o_6545_params, structType/*t_164_expr_type*/ *const o_6546_c_expr) { /* line 91 "../lib/comp/action.s7i" */ actType/*t_5_ACTION*/ o_10379_current_action=NULL; /* line 92 "../lib/comp/action.s7i" */ striType/*t_15_string*/ o_10380_action_name; /* line 93 "../lib/comp/action.s7i" */ striType/*t_15_string*/ o_10381_action_prefix; /* line 92 "../lib/comp/action.s7i" */ o_10380_action_name=strEmpty(); /* "" */ /* line 93 "../lib/comp/action.s7i" */ o_10381_action_prefix=strEmpty(); /* "" */ /* line 95 "../lib/comp/action.s7i" */ o_10379_current_action=actValue(o_6544_function); { /* line 96 "../lib/comp/action.s7i" */ striType old_stri=o_10380_action_name; /* line 96 "../lib/comp/action.s7i" */ o_10380_action_name=actStr(o_10379_current_action); /* line 96 "../lib/comp/action.s7i" */ strDestr(old_stri); } { /* line 98 "../lib/comp/action.s7i" */ struct striStruct slice_1; /* line 98 "../lib/comp/action.s7i" */ strCopy(&(o_10381_action_prefix), (strHeadSlice(o_10380_action_name, 3L, &slice_1), &slice_1)); } /* line 99 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2149] /* "ACT" */)->mem,3*sizeof(strElemType))==0)) { /* line 100 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2150] /* "ACT_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 101 "../lib/comp/action.s7i" */ o_6552_ACT_CPY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 102 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2151] /* "ACT_EQ" */)->mem,6*sizeof(strElemType))==0)) { /* line 103 "../lib/comp/action.s7i" */ o_6558_ACT_EQ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 104 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2152] /* "ACT_ICONV" */)->mem,9*sizeof(strElemType))==0)) { /* line 105 "../lib/comp/action.s7i" */ o_6562_ACT_ICONV(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 106 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2153] /* "ACT_NE" */)->mem,6*sizeof(strElemType))==0)) { /* line 107 "../lib/comp/action.s7i" */ o_6566_ACT_NE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 108 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2154] /* "ACT_ORD" */)->mem,7*sizeof(strElemType))==0)) { /* line 109 "../lib/comp/action.s7i" */ o_6570_ACT_ORD(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 110 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2155] /* "ACT_STR" */)->mem,7*sizeof(strElemType))==0)) { /* line 111 "../lib/comp/action.s7i" */ o_6574_ACT_STR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 112 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2156] /* "ACT_VALUE" */)->mem,9*sizeof(strElemType))==0)) { /* line 113 "../lib/comp/action.s7i" */ o_6578_ACT_VALUE(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 115 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 117 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2157] /* "ARR" */)->mem,3*sizeof(strElemType))==0)) { /* line 118 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2158] /* "ARR_APPEND" */)->mem,10*sizeof(strElemType))==0)) { /* line 119 "../lib/comp/action.s7i" */ o_6590_ARR_APPEND(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 120 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2159] /* "ARR_ARRLIT" */)->mem,10*sizeof(strElemType))==0)) { /* line 121 "../lib/comp/action.s7i" */ o_6596_ARR_ARRLIT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 122 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==11&&memcmp((o_10380_action_name)->mem,(&str[2160] /* "ARR_ARRLIT2" */)->mem,11*sizeof(strElemType))==0)) { /* line 123 "../lib/comp/action.s7i" */ o_6602_ARR_ARRLIT2(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 124 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==11&&memcmp((o_10380_action_name)->mem,(&str[2161] /* "ARR_BASELIT" */)->mem,11*sizeof(strElemType))==0)) { /* line 125 "../lib/comp/action.s7i" */ o_6606_ARR_BASELIT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 126 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2162] /* "ARR_BASELIT2" */)->mem,12*sizeof(strElemType))==0)) { /* line 127 "../lib/comp/action.s7i" */ o_6610_ARR_BASELIT2(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 128 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2163] /* "ARR_CAT" */)->mem,7*sizeof(strElemType))==0)) { /* line 129 "../lib/comp/action.s7i" */ o_6614_ARR_CAT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 130 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2164] /* "ARR_CONV" */)->mem,8*sizeof(strElemType))==0)) { /* line 131 "../lib/comp/action.s7i" */ o_6618_ARR_CONV(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 132 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2165] /* "ARR_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 133 "../lib/comp/action.s7i" */ o_6623_ARR_CPY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 134 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2166] /* "ARR_CREATE" */)->mem,10*sizeof(strElemType))==0)) { /* line 135 "../lib/comp/action.s7i" */ o_6629_ARR_CREATE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 136 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2167] /* "ARR_DESTR" */)->mem,9*sizeof(strElemType))==0)) { /* line 137 "../lib/comp/action.s7i" */ o_6634_ARR_DESTR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 138 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2168] /* "ARR_EXTEND" */)->mem,10*sizeof(strElemType))==0)) { /* line 139 "../lib/comp/action.s7i" */ o_6639_ARR_EXTEND(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 140 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2169] /* "ARR_GEN" */)->mem,7*sizeof(strElemType))==0)) { /* line 141 "../lib/comp/action.s7i" */ o_6643_ARR_GEN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 142 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2170] /* "ARR_HEAD" */)->mem,8*sizeof(strElemType))==0)) { /* line 143 "../lib/comp/action.s7i" */ o_6647_ARR_HEAD(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 144 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2171] /* "ARR_IDX" */)->mem,7*sizeof(strElemType))==0)) { /* line 145 "../lib/comp/action.s7i" */ o_6670_ARR_IDX(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 146 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2172] /* "ARR_LNG" */)->mem,7*sizeof(strElemType))==0)) { /* line 147 "../lib/comp/action.s7i" */ o_6679_ARR_LNG(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 148 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2173] /* "ARR_MAXIDX" */)->mem,10*sizeof(strElemType))==0)) { /* line 149 "../lib/comp/action.s7i" */ o_6685_ARR_MAXIDX(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 150 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2174] /* "ARR_MINIDX" */)->mem,10*sizeof(strElemType))==0)) { /* line 151 "../lib/comp/action.s7i" */ o_6690_ARR_MINIDX(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 152 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2175] /* "ARR_PUSH" */)->mem,8*sizeof(strElemType))==0)) { /* line 153 "../lib/comp/action.s7i" */ o_6695_ARR_PUSH(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 154 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2176] /* "ARR_RANGE" */)->mem,9*sizeof(strElemType))==0)) { /* line 155 "../lib/comp/action.s7i" */ o_6701_ARR_RANGE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 156 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2177] /* "ARR_REMOVE" */)->mem,10*sizeof(strElemType))==0)) { /* line 157 "../lib/comp/action.s7i" */ o_6708_ARR_REMOVE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 158 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2178] /* "ARR_SORT" */)->mem,8*sizeof(strElemType))==0)) { /* line 159 "../lib/comp/action.s7i" */ o_6715_ARR_SORT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 160 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2179] /* "ARR_SUBARR" */)->mem,10*sizeof(strElemType))==0)) { /* line 161 "../lib/comp/action.s7i" */ o_6719_ARR_SUBARR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 162 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2180] /* "ARR_TIMES" */)->mem,9*sizeof(strElemType))==0)) { /* line 163 "../lib/comp/action.s7i" */ o_6733_ARR_TIMES(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 164 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2181] /* "ARR_TAIL" */)->mem,8*sizeof(strElemType))==0)) { /* line 165 "../lib/comp/action.s7i" */ o_6726_ARR_TAIL(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 167 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 169 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2182] /* "BIG" */)->mem,3*sizeof(strElemType))==0)) { /* line 170 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2183] /* "BIG_ABS" */)->mem,7*sizeof(strElemType))==0)) { /* line 171 "../lib/comp/action.s7i" */ o_6740_BIG_ABS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 172 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2184] /* "BIG_ADD" */)->mem,7*sizeof(strElemType))==0)) { /* line 173 "../lib/comp/action.s7i" */ o_6750_BIG_ADD(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 174 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==14&&memcmp((o_10380_action_name)->mem,(&str[2185] /* "BIG_BIT_LENGTH" */)->mem,14*sizeof(strElemType))==0)) { /* line 175 "../lib/comp/action.s7i" */ o_6757_BIG_BIT_LENGTH(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 176 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2186] /* "BIG_CMP" */)->mem,7*sizeof(strElemType))==0)) { /* line 177 "../lib/comp/action.s7i" */ o_6770_BIG_CMP(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 178 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2187] /* "BIG_CONV" */)->mem,8*sizeof(strElemType))==0)) { /* line 179 "../lib/comp/action.s7i" */ o_6775_BIG_CONV(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 180 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2188] /* "BIG_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 181 "../lib/comp/action.s7i" */ o_6779_BIG_CPY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 182 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2189] /* "BIG_DECR" */)->mem,8*sizeof(strElemType))==0)) { /* line 183 "../lib/comp/action.s7i" */ o_6785_BIG_DECR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 184 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2190] /* "BIG_DIV" */)->mem,7*sizeof(strElemType))==0)) { /* line 185 "../lib/comp/action.s7i" */ o_6795_BIG_DIV(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 186 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2191] /* "BIG_EQ" */)->mem,6*sizeof(strElemType))==0)) { /* line 187 "../lib/comp/action.s7i" */ o_6805_BIG_EQ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 188 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==17&&memcmp((o_10380_action_name)->mem,(&str[2192] /* "BIG_FROM_BSTRI_BE" */)->mem,17*sizeof(strElemType))==0)) { /* line 189 "../lib/comp/action.s7i" */ o_6810_BIG_FROM_BSTRI_BE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 190 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==17&&memcmp((o_10380_action_name)->mem,(&str[2193] /* "BIG_FROM_BSTRI_LE" */)->mem,17*sizeof(strElemType))==0)) { /* line 191 "../lib/comp/action.s7i" */ o_6814_BIG_FROM_BSTRI_LE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 192 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2194] /* "BIG_GCD" */)->mem,7*sizeof(strElemType))==0)) { /* line 193 "../lib/comp/action.s7i" */ o_6818_BIG_GCD(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 194 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2195] /* "BIG_GE" */)->mem,6*sizeof(strElemType))==0)) { /* line 195 "../lib/comp/action.s7i" */ o_6822_BIG_GE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 196 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2196] /* "BIG_GROW" */)->mem,8*sizeof(strElemType))==0)) { /* line 197 "../lib/comp/action.s7i" */ o_6832_BIG_GROW(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 198 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2197] /* "BIG_GT" */)->mem,6*sizeof(strElemType))==0)) { /* line 199 "../lib/comp/action.s7i" */ o_6838_BIG_GT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 200 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2198] /* "BIG_HASHCODE" */)->mem,12*sizeof(strElemType))==0)) { /* line 201 "../lib/comp/action.s7i" */ o_6843_BIG_HASHCODE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 202 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2199] /* "BIG_ICONV" */)->mem,9*sizeof(strElemType))==0)) { /* line 203 "../lib/comp/action.s7i" */ o_6847_BIG_ICONV(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 204 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2200] /* "BIG_INCR" */)->mem,8*sizeof(strElemType))==0)) { /* line 205 "../lib/comp/action.s7i" */ o_6851_BIG_INCR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 206 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2201] /* "BIG_IPOW" */)->mem,8*sizeof(strElemType))==0)) { /* line 207 "../lib/comp/action.s7i" */ o_6866_BIG_IPOW(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 208 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2202] /* "BIG_LE" */)->mem,6*sizeof(strElemType))==0)) { /* line 209 "../lib/comp/action.s7i" */ o_6871_BIG_LE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 210 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2203] /* "BIG_LOG10" */)->mem,9*sizeof(strElemType))==0)) { /* line 211 "../lib/comp/action.s7i" */ o_6876_BIG_LOG10(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 212 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2204] /* "BIG_LOG2" */)->mem,8*sizeof(strElemType))==0)) { /* line 213 "../lib/comp/action.s7i" */ o_6880_BIG_LOG2(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 214 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==18&&memcmp((o_10380_action_name)->mem,(&str[2205] /* "BIG_LOWEST_SET_BIT" */)->mem,18*sizeof(strElemType))==0)) { /* line 215 "../lib/comp/action.s7i" */ o_6884_BIG_LOWEST_SET_BIT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 216 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2206] /* "BIG_LSHIFT" */)->mem,10*sizeof(strElemType))==0)) { /* line 217 "../lib/comp/action.s7i" */ o_6899_BIG_LSHIFT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 218 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==17&&memcmp((o_10380_action_name)->mem,(&str[2207] /* "BIG_LSHIFT_ASSIGN" */)->mem,17*sizeof(strElemType))==0)) { /* line 219 "../lib/comp/action.s7i" */ o_6906_BIG_LSHIFT_ASSIGN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 220 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2208] /* "BIG_LT" */)->mem,6*sizeof(strElemType))==0)) { /* line 221 "../lib/comp/action.s7i" */ o_6911_BIG_LT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 222 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2209] /* "BIG_MDIV" */)->mem,8*sizeof(strElemType))==0)) { /* line 223 "../lib/comp/action.s7i" */ o_6930_BIG_MDIV(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 224 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2210] /* "BIG_MOD" */)->mem,7*sizeof(strElemType))==0)) { /* line 225 "../lib/comp/action.s7i" */ o_6942_BIG_MOD(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 226 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2211] /* "BIG_MULT" */)->mem,8*sizeof(strElemType))==0)) { /* line 227 "../lib/comp/action.s7i" */ o_6953_BIG_MULT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 228 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==15&&memcmp((o_10380_action_name)->mem,(&str[2212] /* "BIG_MULT_ASSIGN" */)->mem,15*sizeof(strElemType))==0)) { /* line 229 "../lib/comp/action.s7i" */ o_6963_BIG_MULT_ASSIGN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 230 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2213] /* "BIG_NE" */)->mem,6*sizeof(strElemType))==0)) { /* line 231 "../lib/comp/action.s7i" */ o_6969_BIG_NE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 232 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[543] /* "BIG_NEGATE" */)->mem,10*sizeof(strElemType))==0)) { /* line 233 "../lib/comp/action.s7i" */ o_6973_BIG_NEGATE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 234 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2214] /* "BIG_ODD" */)->mem,7*sizeof(strElemType))==0)) { /* line 235 "../lib/comp/action.s7i" */ o_6980_BIG_ODD(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 236 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2215] /* "BIG_ORD" */)->mem,7*sizeof(strElemType))==0)) { /* line 237 "../lib/comp/action.s7i" */ o_6984_BIG_ORD(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 238 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2216] /* "BIG_PARSE" */)->mem,9*sizeof(strElemType))==0)) { /* line 239 "../lib/comp/action.s7i" */ o_6988_BIG_PARSE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 240 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==15&&memcmp((o_10380_action_name)->mem,(&str[2217] /* "BIG_PARSE_BASED" */)->mem,15*sizeof(strElemType))==0)) { /* line 241 "../lib/comp/action.s7i" */ o_6992_BIG_PARSE_BASED(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 242 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2218] /* "BIG_PLUS" */)->mem,8*sizeof(strElemType))==0)) { /* line 243 "../lib/comp/action.s7i" */ o_6996_BIG_PLUS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 244 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2219] /* "BIG_PRED" */)->mem,8*sizeof(strElemType))==0)) { /* line 245 "../lib/comp/action.s7i" */ o_7000_BIG_PRED(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 246 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2220] /* "BIG_radix" */)->mem,9*sizeof(strElemType))==0)) { /* line 247 "../lib/comp/action.s7i" */ o_7005_BIG_radix(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 248 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2221] /* "BIG_RADIX" */)->mem,9*sizeof(strElemType))==0)) { /* line 249 "../lib/comp/action.s7i" */ o_7009_BIG_RADIX(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 250 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2222] /* "BIG_RAND" */)->mem,8*sizeof(strElemType))==0)) { /* line 251 "../lib/comp/action.s7i" */ o_7013_BIG_RAND(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 252 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2223] /* "BIG_REM" */)->mem,7*sizeof(strElemType))==0)) { /* line 253 "../lib/comp/action.s7i" */ o_7023_BIG_REM(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 254 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2224] /* "BIG_RSHIFT" */)->mem,10*sizeof(strElemType))==0)) { /* line 255 "../lib/comp/action.s7i" */ o_7028_BIG_RSHIFT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 256 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==17&&memcmp((o_10380_action_name)->mem,(&str[2225] /* "BIG_RSHIFT_ASSIGN" */)->mem,17*sizeof(strElemType))==0)) { /* line 257 "../lib/comp/action.s7i" */ o_7034_BIG_RSHIFT_ASSIGN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 258 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2226] /* "BIG_SBTR" */)->mem,8*sizeof(strElemType))==0)) { /* line 259 "../lib/comp/action.s7i" */ o_7039_BIG_SBTR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 260 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2227] /* "BIG_SHRINK" */)->mem,10*sizeof(strElemType))==0)) { /* line 261 "../lib/comp/action.s7i" */ o_7050_BIG_SHRINK(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 262 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2228] /* "BIG_STR" */)->mem,7*sizeof(strElemType))==0)) { /* line 263 "../lib/comp/action.s7i" */ o_7056_BIG_STR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 264 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2229] /* "BIG_SUCC" */)->mem,8*sizeof(strElemType))==0)) { /* line 265 "../lib/comp/action.s7i" */ o_7060_BIG_SUCC(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 266 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==15&&memcmp((o_10380_action_name)->mem,(&str[2230] /* "BIG_TO_BSTRI_BE" */)->mem,15*sizeof(strElemType))==0)) { /* line 267 "../lib/comp/action.s7i" */ o_7065_BIG_TO_BSTRI_BE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 268 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==15&&memcmp((o_10380_action_name)->mem,(&str[2231] /* "BIG_TO_BSTRI_LE" */)->mem,15*sizeof(strElemType))==0)) { /* line 269 "../lib/comp/action.s7i" */ o_7069_BIG_TO_BSTRI_LE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 270 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2232] /* "BIG_VALUE" */)->mem,9*sizeof(strElemType))==0)) { /* line 271 "../lib/comp/action.s7i" */ o_7073_BIG_VALUE(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 273 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 275 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2233] /* "BIN" */)->mem,3*sizeof(strElemType))==0)) { /* line 276 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2234] /* "BIN_AND" */)->mem,7*sizeof(strElemType))==0)) { /* line 277 "../lib/comp/action.s7i" */ o_7079_BIN_AND(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 278 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2235] /* "BIN_OR" */)->mem,6*sizeof(strElemType))==0)) { /* line 279 "../lib/comp/action.s7i" */ o_7083_BIN_OR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 280 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2236] /* "BIN_XOR" */)->mem,7*sizeof(strElemType))==0)) { /* line 281 "../lib/comp/action.s7i" */ o_7087_BIN_XOR(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 283 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 285 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2237] /* "BLN" */)->mem,3*sizeof(strElemType))==0)) { /* line 286 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[621] /* "BLN_AND" */)->mem,7*sizeof(strElemType))==0)) { /* line 287 "../lib/comp/action.s7i" */ o_7091_BLN_AND(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 288 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2238] /* "BLN_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 289 "../lib/comp/action.s7i" */ o_7095_BLN_CPY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 290 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2239] /* "BLN_EQ" */)->mem,6*sizeof(strElemType))==0)) { /* line 291 "../lib/comp/action.s7i" */ o_7100_BLN_EQ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 292 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2240] /* "BLN_GE" */)->mem,6*sizeof(strElemType))==0)) { /* line 293 "../lib/comp/action.s7i" */ o_7104_BLN_GE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 294 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2241] /* "BLN_GT" */)->mem,6*sizeof(strElemType))==0)) { /* line 295 "../lib/comp/action.s7i" */ o_7108_BLN_GT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 296 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2242] /* "BLN_ICONV" */)->mem,9*sizeof(strElemType))==0)) { /* line 297 "../lib/comp/action.s7i" */ o_7112_BLN_ICONV(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 298 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2243] /* "BLN_LE" */)->mem,6*sizeof(strElemType))==0)) { /* line 299 "../lib/comp/action.s7i" */ o_7116_BLN_LE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 300 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2244] /* "BLN_LT" */)->mem,6*sizeof(strElemType))==0)) { /* line 301 "../lib/comp/action.s7i" */ o_7120_BLN_LT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 302 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2245] /* "BLN_NE" */)->mem,6*sizeof(strElemType))==0)) { /* line 303 "../lib/comp/action.s7i" */ o_7124_BLN_NE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 304 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2246] /* "BLN_NOT" */)->mem,7*sizeof(strElemType))==0)) { /* line 305 "../lib/comp/action.s7i" */ o_7128_BLN_NOT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 306 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[629] /* "BLN_OR" */)->mem,6*sizeof(strElemType))==0)) { /* line 307 "../lib/comp/action.s7i" */ o_7132_BLN_OR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 308 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2247] /* "BLN_ORD" */)->mem,7*sizeof(strElemType))==0)) { /* line 309 "../lib/comp/action.s7i" */ o_7136_BLN_ORD(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 310 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2248] /* "BLN_VALUE" */)->mem,9*sizeof(strElemType))==0)) { /* line 311 "../lib/comp/action.s7i" */ o_7140_BLN_VALUE(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 313 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 315 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2249] /* "BST" */)->mem,3*sizeof(strElemType))==0)) { /* line 316 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2250] /* "BST_APPEND" */)->mem,10*sizeof(strElemType))==0)) { /* line 317 "../lib/comp/action.s7i" */ o_7146_BST_APPEND(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 318 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2251] /* "BST_CMP" */)->mem,7*sizeof(strElemType))==0)) { /* line 319 "../lib/comp/action.s7i" */ o_7152_BST_CMP(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 320 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2252] /* "BST_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 321 "../lib/comp/action.s7i" */ o_7156_BST_CPY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 322 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2253] /* "BST_EQ" */)->mem,6*sizeof(strElemType))==0)) { /* line 323 "../lib/comp/action.s7i" */ o_7162_BST_EQ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 324 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2254] /* "BST_HASHCODE" */)->mem,12*sizeof(strElemType))==0)) { /* line 325 "../lib/comp/action.s7i" */ o_7168_BST_HASHCODE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 326 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2255] /* "BST_IDX" */)->mem,7*sizeof(strElemType))==0)) { /* line 327 "../lib/comp/action.s7i" */ o_7186_BST_IDX(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 328 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2256] /* "BST_LNG" */)->mem,7*sizeof(strElemType))==0)) { /* line 329 "../lib/comp/action.s7i" */ o_7193_BST_LNG(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 330 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2257] /* "BST_NE" */)->mem,6*sizeof(strElemType))==0)) { /* line 331 "../lib/comp/action.s7i" */ o_7197_BST_NE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 332 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2258] /* "BST_PARSE" */)->mem,9*sizeof(strElemType))==0)) { /* line 333 "../lib/comp/action.s7i" */ o_7203_BST_PARSE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 334 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2259] /* "BST_STR" */)->mem,7*sizeof(strElemType))==0)) { /* line 335 "../lib/comp/action.s7i" */ o_7207_BST_STR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 336 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2260] /* "BST_VALUE" */)->mem,9*sizeof(strElemType))==0)) { /* line 337 "../lib/comp/action.s7i" */ o_7211_BST_VALUE(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 339 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 341 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2261] /* "CHR" */)->mem,3*sizeof(strElemType))==0)) { /* line 342 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2262] /* "CHR_CHR" */)->mem,7*sizeof(strElemType))==0)) { /* line 343 "../lib/comp/action.s7i" */ o_7221_CHR_CHR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 344 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2263] /* "CHR_CLIT" */)->mem,8*sizeof(strElemType))==0)) { /* line 345 "../lib/comp/action.s7i" */ o_7227_CHR_CLIT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 346 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2264] /* "CHR_CMP" */)->mem,7*sizeof(strElemType))==0)) { /* line 347 "../lib/comp/action.s7i" */ o_7232_CHR_CMP(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 348 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2265] /* "CHR_CONV" */)->mem,8*sizeof(strElemType))==0)) { /* line 349 "../lib/comp/action.s7i" */ o_7236_CHR_CONV(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 350 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2266] /* "CHR_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 351 "../lib/comp/action.s7i" */ o_7240_CHR_CPY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 352 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2267] /* "CHR_EQ" */)->mem,6*sizeof(strElemType))==0)) { /* line 353 "../lib/comp/action.s7i" */ o_7249_CHR_EQ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 354 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2268] /* "CHR_DECR" */)->mem,8*sizeof(strElemType))==0)) { /* line 355 "../lib/comp/action.s7i" */ o_7245_CHR_DECR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 356 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2269] /* "CHR_GE" */)->mem,6*sizeof(strElemType))==0)) { /* line 357 "../lib/comp/action.s7i" */ o_7253_CHR_GE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 358 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2270] /* "CHR_GT" */)->mem,6*sizeof(strElemType))==0)) { /* line 359 "../lib/comp/action.s7i" */ o_7257_CHR_GT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 360 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2271] /* "CHR_HASHCODE" */)->mem,12*sizeof(strElemType))==0)) { /* line 361 "../lib/comp/action.s7i" */ o_7261_CHR_HASHCODE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 362 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2272] /* "CHR_ICONV" */)->mem,9*sizeof(strElemType))==0)) { /* line 363 "../lib/comp/action.s7i" */ o_7265_CHR_ICONV(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 364 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2273] /* "CHR_INCR" */)->mem,8*sizeof(strElemType))==0)) { /* line 365 "../lib/comp/action.s7i" */ o_7269_CHR_INCR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 366 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2274] /* "CHR_LE" */)->mem,6*sizeof(strElemType))==0)) { /* line 367 "../lib/comp/action.s7i" */ o_7273_CHR_LE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 368 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2275] /* "CHR_LOW" */)->mem,7*sizeof(strElemType))==0)) { /* line 369 "../lib/comp/action.s7i" */ o_7277_CHR_LOW(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 370 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2276] /* "CHR_LT" */)->mem,6*sizeof(strElemType))==0)) { /* line 371 "../lib/comp/action.s7i" */ o_7281_CHR_LT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 372 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2277] /* "CHR_NE" */)->mem,6*sizeof(strElemType))==0)) { /* line 373 "../lib/comp/action.s7i" */ o_7285_CHR_NE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 374 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2278] /* "CHR_ORD" */)->mem,7*sizeof(strElemType))==0)) { /* line 375 "../lib/comp/action.s7i" */ o_7289_CHR_ORD(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 376 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2279] /* "CHR_PRED" */)->mem,8*sizeof(strElemType))==0)) { /* line 377 "../lib/comp/action.s7i" */ o_7293_CHR_PRED(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 378 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[1948] /* "CHR_STR" */)->mem,7*sizeof(strElemType))==0)) { /* line 379 "../lib/comp/action.s7i" */ o_7297_CHR_STR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 380 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2280] /* "CHR_SUCC" */)->mem,8*sizeof(strElemType))==0)) { /* line 381 "../lib/comp/action.s7i" */ o_7303_CHR_SUCC(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 382 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2281] /* "CHR_UP" */)->mem,6*sizeof(strElemType))==0)) { /* line 383 "../lib/comp/action.s7i" */ o_7307_CHR_UP(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 384 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2282] /* "CHR_VALUE" */)->mem,9*sizeof(strElemType))==0)) { /* line 385 "../lib/comp/action.s7i" */ o_7311_CHR_VALUE(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 387 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 389 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2283] /* "CMD" */)->mem,3*sizeof(strElemType))==0)) { /* line 390 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==16&&memcmp((o_10380_action_name)->mem,(&str[2284] /* "CMD_BIG_FILESIZE" */)->mem,16*sizeof(strElemType))==0)) { /* line 391 "../lib/comp/action.s7i" */ o_7317_CMD_BIG_FILESIZE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 392 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2285] /* "CMD_CHDIR" */)->mem,9*sizeof(strElemType))==0)) { /* line 393 "../lib/comp/action.s7i" */ o_7321_CMD_CHDIR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 394 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==14&&memcmp((o_10380_action_name)->mem,(&str[2286] /* "CMD_CLONE_FILE" */)->mem,14*sizeof(strElemType))==0)) { /* line 395 "../lib/comp/action.s7i" */ o_7325_CMD_CLONE_FILE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 396 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==16&&memcmp((o_10380_action_name)->mem,(&str[2287] /* "CMD_CONFIG_VALUE" */)->mem,16*sizeof(strElemType))==0)) { /* line 397 "../lib/comp/action.s7i" */ o_7329_CMD_CONFIG_VALUE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 398 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2288] /* "CMD_COPY_FILE" */)->mem,13*sizeof(strElemType))==0)) { /* line 399 "../lib/comp/action.s7i" */ o_7333_CMD_COPY_FILE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 400 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==15&&memcmp((o_10380_action_name)->mem,(&str[2289] /* "CMD_ENVIRONMENT" */)->mem,15*sizeof(strElemType))==0)) { /* line 401 "../lib/comp/action.s7i" */ o_7337_CMD_ENVIRONMENT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 402 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2290] /* "CMD_FILEMODE" */)->mem,12*sizeof(strElemType))==0)) { /* line 403 "../lib/comp/action.s7i" */ o_7342_CMD_FILEMODE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 404 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2291] /* "CMD_FILESIZE" */)->mem,12*sizeof(strElemType))==0)) { /* line 405 "../lib/comp/action.s7i" */ o_7346_CMD_FILESIZE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 406 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2292] /* "CMD_FILETYPE" */)->mem,12*sizeof(strElemType))==0)) { /* line 407 "../lib/comp/action.s7i" */ o_7350_CMD_FILETYPE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 408 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==15&&memcmp((o_10380_action_name)->mem,(&str[2293] /* "CMD_FILETYPE_SL" */)->mem,15*sizeof(strElemType))==0)) { /* line 409 "../lib/comp/action.s7i" */ o_7354_CMD_FILETYPE_SL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 410 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2294] /* "CMD_GETCWD" */)->mem,10*sizeof(strElemType))==0)) { /* line 411 "../lib/comp/action.s7i" */ o_7358_CMD_GETCWD(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 412 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2295] /* "CMD_GETENV" */)->mem,10*sizeof(strElemType))==0)) { /* line 413 "../lib/comp/action.s7i" */ o_7362_CMD_GETENV(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 414 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2296] /* "CMD_GET_ATIME" */)->mem,13*sizeof(strElemType))==0)) { /* line 415 "../lib/comp/action.s7i" */ o_7366_CMD_GET_ATIME(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 416 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2297] /* "CMD_GET_CTIME" */)->mem,13*sizeof(strElemType))==0)) { /* line 417 "../lib/comp/action.s7i" */ o_7370_CMD_GET_CTIME(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 418 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2298] /* "CMD_GET_MTIME" */)->mem,13*sizeof(strElemType))==0)) { /* line 419 "../lib/comp/action.s7i" */ o_7374_CMD_GET_MTIME(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 420 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==19&&memcmp((o_10380_action_name)->mem,(&str[2299] /* "CMD_GET_SEARCH_PATH" */)->mem,19*sizeof(strElemType))==0)) { /* line 421 "../lib/comp/action.s7i" */ o_7378_CMD_GET_SEARCH_PATH(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 422 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2300] /* "CMD_HOME_DIR" */)->mem,12*sizeof(strElemType))==0)) { /* line 423 "../lib/comp/action.s7i" */ o_7383_CMD_HOME_DIR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 424 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2301] /* "CMD_LS" */)->mem,6*sizeof(strElemType))==0)) { /* line 425 "../lib/comp/action.s7i" */ o_7387_CMD_LS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 426 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2302] /* "CMD_MKDIR" */)->mem,9*sizeof(strElemType))==0)) { /* line 427 "../lib/comp/action.s7i" */ o_7391_CMD_MKDIR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 428 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2303] /* "CMD_MOVE" */)->mem,8*sizeof(strElemType))==0)) { /* line 429 "../lib/comp/action.s7i" */ o_7395_CMD_MOVE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 430 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2304] /* "CMD_READLINK" */)->mem,12*sizeof(strElemType))==0)) { /* line 431 "../lib/comp/action.s7i" */ o_7399_CMD_READLINK(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 432 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==15&&memcmp((o_10380_action_name)->mem,(&str[2305] /* "CMD_REMOVE_FILE" */)->mem,15*sizeof(strElemType))==0)) { /* line 433 "../lib/comp/action.s7i" */ o_7403_CMD_REMOVE_FILE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 434 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==15&&memcmp((o_10380_action_name)->mem,(&str[2306] /* "CMD_REMOVE_TREE" */)->mem,15*sizeof(strElemType))==0)) { /* line 435 "../lib/comp/action.s7i" */ o_7407_CMD_REMOVE_TREE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 436 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2307] /* "CMD_SETENV" */)->mem,10*sizeof(strElemType))==0)) { /* line 437 "../lib/comp/action.s7i" */ o_7411_CMD_SETENV(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 438 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2308] /* "CMD_SET_ATIME" */)->mem,13*sizeof(strElemType))==0)) { /* line 439 "../lib/comp/action.s7i" */ o_7415_CMD_SET_ATIME(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 440 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==16&&memcmp((o_10380_action_name)->mem,(&str[2309] /* "CMD_SET_FILEMODE" */)->mem,16*sizeof(strElemType))==0)) { /* line 441 "../lib/comp/action.s7i" */ o_7419_CMD_SET_FILEMODE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 442 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2310] /* "CMD_SET_MTIME" */)->mem,13*sizeof(strElemType))==0)) { /* line 443 "../lib/comp/action.s7i" */ o_7423_CMD_SET_MTIME(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 444 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==19&&memcmp((o_10380_action_name)->mem,(&str[2311] /* "CMD_SET_SEARCH_PATH" */)->mem,19*sizeof(strElemType))==0)) { /* line 445 "../lib/comp/action.s7i" */ o_7427_CMD_SET_SEARCH_PATH(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 446 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2312] /* "CMD_SHELL" */)->mem,9*sizeof(strElemType))==0)) { /* line 447 "../lib/comp/action.s7i" */ o_7431_CMD_SHELL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 448 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==16&&memcmp((o_10380_action_name)->mem,(&str[2313] /* "CMD_SHELL_ESCAPE" */)->mem,16*sizeof(strElemType))==0)) { /* line 449 "../lib/comp/action.s7i" */ o_7435_CMD_SHELL_ESCAPE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 450 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2314] /* "CMD_PIPE2" */)->mem,9*sizeof(strElemType))==0)) { /* line 451 "../lib/comp/action.s7i" */ o_7439_CMD_PIPE2(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 452 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2315] /* "CMD_PTY" */)->mem,7*sizeof(strElemType))==0)) { /* line 453 "../lib/comp/action.s7i" */ o_7443_CMD_PTY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 454 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==17&&memcmp((o_10380_action_name)->mem,(&str[2316] /* "CMD_START_PROCESS" */)->mem,17*sizeof(strElemType))==0)) { /* line 455 "../lib/comp/action.s7i" */ o_7447_CMD_START_PROCESS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 456 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==11&&memcmp((o_10380_action_name)->mem,(&str[2317] /* "CMD_SYMLINK" */)->mem,11*sizeof(strElemType))==0)) { /* line 457 "../lib/comp/action.s7i" */ o_7451_CMD_SYMLINK(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 458 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==14&&memcmp((o_10380_action_name)->mem,(&str[2318] /* "CMD_TO_OS_PATH" */)->mem,14*sizeof(strElemType))==0)) { /* line 459 "../lib/comp/action.s7i" */ o_7455_CMD_TO_OS_PATH(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 461 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 463 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2319] /* "CON" */)->mem,3*sizeof(strElemType))==0)) { /* line 464 "../lib/comp/action.s7i" */ o_6539_consoleLibraryUsed=o_26_TRUE; /* line 465 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2320] /* "CON_CLEAR" */)->mem,9*sizeof(strElemType))==0)) { /* line 466 "../lib/comp/action.s7i" */ o_7461_CON_CLEAR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 467 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2321] /* "CON_CURSOR" */)->mem,10*sizeof(strElemType))==0)) { /* line 468 "../lib/comp/action.s7i" */ o_7465_CON_CURSOR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 469 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2322] /* "CON_FLUSH" */)->mem,9*sizeof(strElemType))==0)) { /* line 470 "../lib/comp/action.s7i" */ o_7469_CON_FLUSH(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 471 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2323] /* "CON_HEIGHT" */)->mem,10*sizeof(strElemType))==0)) { /* line 472 "../lib/comp/action.s7i" */ o_7473_CON_HEIGHT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 473 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2324] /* "CON_H_SCL" */)->mem,9*sizeof(strElemType))==0)) { /* line 474 "../lib/comp/action.s7i" */ o_7477_CON_H_SCL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 475 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2325] /* "CON_OPEN" */)->mem,8*sizeof(strElemType))==0)) { /* line 476 "../lib/comp/action.s7i" */ o_7481_CON_OPEN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 477 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2326] /* "CON_SETPOS" */)->mem,10*sizeof(strElemType))==0)) { /* line 478 "../lib/comp/action.s7i" */ o_7485_CON_SETPOS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 479 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2327] /* "CON_V_SCL" */)->mem,9*sizeof(strElemType))==0)) { /* line 480 "../lib/comp/action.s7i" */ o_7489_CON_V_SCL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 481 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2328] /* "CON_WIDTH" */)->mem,9*sizeof(strElemType))==0)) { /* line 482 "../lib/comp/action.s7i" */ o_7493_CON_WIDTH(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 483 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2329] /* "CON_WRITE" */)->mem,9*sizeof(strElemType))==0)) { /* line 484 "../lib/comp/action.s7i" */ o_7497_CON_WRITE(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 486 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 488 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2330] /* "DCL" */)->mem,3*sizeof(strElemType))==0)) { /* line 489 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2331] /* "DCL_CONST" */)->mem,9*sizeof(strElemType))==0)) { /* line 490 "../lib/comp/action.s7i" */ o_7501_DCL_CONST(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 491 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2332] /* "DCL_FWD" */)->mem,7*sizeof(strElemType))==0)) { /* line 492 "../lib/comp/action.s7i" */ o_7505_DCL_FWD(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 493 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2333] /* "DCL_GLOBAL" */)->mem,10*sizeof(strElemType))==0)) { /* line 494 "../lib/comp/action.s7i" */ o_7509_DCL_GLOBAL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 495 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2334] /* "DCL_VAR" */)->mem,7*sizeof(strElemType))==0)) { /* line 496 "../lib/comp/action.s7i" */ o_7513_DCL_VAR(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 498 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 500 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2335] /* "DRW" */)->mem,3*sizeof(strElemType))==0)) { /* line 501 "../lib/comp/action.s7i" */ o_6540_drawLibraryUsed=o_26_TRUE; /* line 502 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2336] /* "DRW_ARC" */)->mem,7*sizeof(strElemType))==0)) { /* line 503 "../lib/comp/action.s7i" */ o_7519_DRW_ARC(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 504 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2337] /* "DRW_ARC2" */)->mem,8*sizeof(strElemType))==0)) { /* line 505 "../lib/comp/action.s7i" */ o_7523_DRW_ARC2(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 506 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==14&&memcmp((o_10380_action_name)->mem,(&str[2338] /* "DRW_BACKGROUND" */)->mem,14*sizeof(strElemType))==0)) { /* line 507 "../lib/comp/action.s7i" */ o_7527_DRW_BACKGROUND(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 508 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2339] /* "DRW_CIRCLE" */)->mem,10*sizeof(strElemType))==0)) { /* line 509 "../lib/comp/action.s7i" */ o_7531_DRW_CIRCLE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 510 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2340] /* "DRW_CLEAR" */)->mem,9*sizeof(strElemType))==0)) { /* line 511 "../lib/comp/action.s7i" */ o_7535_DRW_CLEAR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 512 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2341] /* "DRW_CMP" */)->mem,7*sizeof(strElemType))==0)) { /* line 513 "../lib/comp/action.s7i" */ o_7539_DRW_CMP(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 514 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2342] /* "DRW_COLOR" */)->mem,9*sizeof(strElemType))==0)) { /* line 515 "../lib/comp/action.s7i" */ o_7543_DRW_COLOR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 516 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2343] /* "DRW_COPYAREA" */)->mem,12*sizeof(strElemType))==0)) { /* line 517 "../lib/comp/action.s7i" */ o_7547_DRW_COPYAREA(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 518 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2344] /* "DRW_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 519 "../lib/comp/action.s7i" */ o_7551_DRW_CPY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 520 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2345] /* "DRW_EQ" */)->mem,6*sizeof(strElemType))==0)) { /* line 521 "../lib/comp/action.s7i" */ o_7557_DRW_EQ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 522 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2346] /* "DRW_FARCCHORD" */)->mem,13*sizeof(strElemType))==0)) { /* line 523 "../lib/comp/action.s7i" */ o_7561_DRW_FARCCHORD(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 524 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==16&&memcmp((o_10380_action_name)->mem,(&str[2347] /* "DRW_FARCPIESLICE" */)->mem,16*sizeof(strElemType))==0)) { /* line 525 "../lib/comp/action.s7i" */ o_7565_DRW_FARCPIESLICE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 526 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==11&&memcmp((o_10380_action_name)->mem,(&str[2348] /* "DRW_FCIRCLE" */)->mem,11*sizeof(strElemType))==0)) { /* line 527 "../lib/comp/action.s7i" */ o_7569_DRW_FCIRCLE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 528 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2349] /* "DRW_FELLIPSE" */)->mem,12*sizeof(strElemType))==0)) { /* line 529 "../lib/comp/action.s7i" */ o_7573_DRW_FELLIPSE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 530 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2350] /* "DRW_FLUSH" */)->mem,9*sizeof(strElemType))==0)) { /* line 531 "../lib/comp/action.s7i" */ o_7577_DRW_FLUSH(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 532 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2351] /* "DRW_FPOLYLINE" */)->mem,13*sizeof(strElemType))==0)) { /* line 533 "../lib/comp/action.s7i" */ o_7581_DRW_FPOLYLINE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 534 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==16&&memcmp((o_10380_action_name)->mem,(&str[2352] /* "DRW_GENPOINTLIST" */)->mem,16*sizeof(strElemType))==0)) { /* line 535 "../lib/comp/action.s7i" */ o_7585_DRW_GENPOINTLIST(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 536 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2353] /* "DRW_GET" */)->mem,7*sizeof(strElemType))==0)) { /* line 537 "../lib/comp/action.s7i" */ o_7589_DRW_GET(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 538 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2354] /* "DRW_GETIMAGE" */)->mem,12*sizeof(strElemType))==0)) { /* line 539 "../lib/comp/action.s7i" */ o_7593_DRW_GETIMAGE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 540 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==17&&memcmp((o_10380_action_name)->mem,(&str[2355] /* "DRW_GETIMAGEPIXEL" */)->mem,17*sizeof(strElemType))==0)) { /* line 541 "../lib/comp/action.s7i" */ o_7597_DRW_GETIMAGEPIXEL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 542 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2356] /* "DRW_GETPIXEL" */)->mem,12*sizeof(strElemType))==0)) { /* line 543 "../lib/comp/action.s7i" */ o_7601_DRW_GETPIXEL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 544 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2357] /* "DRW_HASHCODE" */)->mem,12*sizeof(strElemType))==0)) { /* line 545 "../lib/comp/action.s7i" */ o_7605_DRW_HASHCODE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 546 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2358] /* "DRW_HEIGHT" */)->mem,10*sizeof(strElemType))==0)) { /* line 547 "../lib/comp/action.s7i" */ o_7609_DRW_HEIGHT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 548 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2359] /* "DRW_IMAGE" */)->mem,9*sizeof(strElemType))==0)) { /* line 549 "../lib/comp/action.s7i" */ o_7613_DRW_IMAGE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 550 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2360] /* "DRW_LINE" */)->mem,8*sizeof(strElemType))==0)) { /* line 551 "../lib/comp/action.s7i" */ o_7617_DRW_LINE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 552 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2361] /* "DRW_NE" */)->mem,6*sizeof(strElemType))==0)) { /* line 553 "../lib/comp/action.s7i" */ o_7621_DRW_NE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 554 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==14&&memcmp((o_10380_action_name)->mem,(&str[2362] /* "DRW_NEW_PIXMAP" */)->mem,14*sizeof(strElemType))==0)) { /* line 555 "../lib/comp/action.s7i" */ o_7625_DRW_NEW_PIXMAP(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 556 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2363] /* "DRW_OPEN" */)->mem,8*sizeof(strElemType))==0)) { /* line 557 "../lib/comp/action.s7i" */ o_7629_DRW_OPEN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 558 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==19&&memcmp((o_10380_action_name)->mem,(&str[2364] /* "DRW_OPEN_SUB_WINDOW" */)->mem,19*sizeof(strElemType))==0)) { /* line 559 "../lib/comp/action.s7i" */ o_7633_DRW_OPEN_SUB_WINDOW(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 560 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2365] /* "DRW_PARC" */)->mem,8*sizeof(strElemType))==0)) { /* line 561 "../lib/comp/action.s7i" */ o_7637_DRW_PARC(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 562 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==11&&memcmp((o_10380_action_name)->mem,(&str[2366] /* "DRW_PCIRCLE" */)->mem,11*sizeof(strElemType))==0)) { /* line 563 "../lib/comp/action.s7i" */ o_7641_DRW_PCIRCLE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 564 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==14&&memcmp((o_10380_action_name)->mem,(&str[2367] /* "DRW_PFARCCHORD" */)->mem,14*sizeof(strElemType))==0)) { /* line 565 "../lib/comp/action.s7i" */ o_7645_DRW_PFARCCHORD(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 566 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==17&&memcmp((o_10380_action_name)->mem,(&str[2368] /* "DRW_PFARCPIESLICE" */)->mem,17*sizeof(strElemType))==0)) { /* line 567 "../lib/comp/action.s7i" */ o_7649_DRW_PFARCPIESLICE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 568 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2369] /* "DRW_PFCIRCLE" */)->mem,12*sizeof(strElemType))==0)) { /* line 569 "../lib/comp/action.s7i" */ o_7653_DRW_PFCIRCLE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 570 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2370] /* "DRW_PFELLIPSE" */)->mem,13*sizeof(strElemType))==0)) { /* line 571 "../lib/comp/action.s7i" */ o_7657_DRW_PFELLIPSE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 572 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==14&&memcmp((o_10380_action_name)->mem,(&str[2371] /* "DRW_PIXELTORGB" */)->mem,14*sizeof(strElemType))==0)) { /* line 573 "../lib/comp/action.s7i" */ o_7661_DRW_PIXELTORGB(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 574 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2372] /* "DRW_PLINE" */)->mem,9*sizeof(strElemType))==0)) { /* line 575 "../lib/comp/action.s7i" */ o_7665_DRW_PLINE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 576 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2373] /* "DRW_POINT" */)->mem,9*sizeof(strElemType))==0)) { /* line 577 "../lib/comp/action.s7i" */ o_7669_DRW_POINT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 578 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==16&&memcmp((o_10380_action_name)->mem,(&str[2374] /* "DRW_POINTER_XPOS" */)->mem,16*sizeof(strElemType))==0)) { /* line 579 "../lib/comp/action.s7i" */ o_7673_DRW_POINTER_XPOS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 580 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==16&&memcmp((o_10380_action_name)->mem,(&str[2375] /* "DRW_POINTER_YPOS" */)->mem,16*sizeof(strElemType))==0)) { /* line 581 "../lib/comp/action.s7i" */ o_7677_DRW_POINTER_YPOS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 582 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2376] /* "DRW_POLYLINE" */)->mem,12*sizeof(strElemType))==0)) { /* line 583 "../lib/comp/action.s7i" */ o_7681_DRW_POLYLINE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 584 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2377] /* "DRW_PPOINT" */)->mem,10*sizeof(strElemType))==0)) { /* line 585 "../lib/comp/action.s7i" */ o_7685_DRW_PPOINT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 586 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2378] /* "DRW_PRECT" */)->mem,9*sizeof(strElemType))==0)) { /* line 587 "../lib/comp/action.s7i" */ o_7689_DRW_PRECT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 588 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2379] /* "DRW_PUT" */)->mem,7*sizeof(strElemType))==0)) { /* line 589 "../lib/comp/action.s7i" */ o_7693_DRW_PUT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 590 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2380] /* "DRW_RECT" */)->mem,8*sizeof(strElemType))==0)) { /* line 591 "../lib/comp/action.s7i" */ o_7697_DRW_RECT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 592 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2381] /* "DRW_RGBCOL" */)->mem,10*sizeof(strElemType))==0)) { /* line 593 "../lib/comp/action.s7i" */ o_7701_DRW_RGBCOL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 594 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==14&&memcmp((o_10380_action_name)->mem,(&str[2382] /* "DRW_SETCONTENT" */)->mem,14*sizeof(strElemType))==0)) { /* line 595 "../lib/comp/action.s7i" */ o_7705_DRW_SETCONTENT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 596 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2383] /* "DRW_SETPOS" */)->mem,10*sizeof(strElemType))==0)) { /* line 597 "../lib/comp/action.s7i" */ o_7709_DRW_SETPOS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 598 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==23&&memcmp((o_10380_action_name)->mem,(&str[2384] /* "DRW_SETTRANSPARENTCOLOR" */)->mem,23*sizeof(strElemType))==0)) { /* line 599 "../lib/comp/action.s7i" */ o_7713_DRW_SETTRANSPARENTCOLOR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 600 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2385] /* "DRW_TEXT" */)->mem,8*sizeof(strElemType))==0)) { /* line 601 "../lib/comp/action.s7i" */ o_7717_DRW_TEXT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 602 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2386] /* "DRW_TOBOTTOM" */)->mem,12*sizeof(strElemType))==0)) { /* line 603 "../lib/comp/action.s7i" */ o_7721_DRW_TOBOTTOM(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 604 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2387] /* "DRW_TOTOP" */)->mem,9*sizeof(strElemType))==0)) { /* line 605 "../lib/comp/action.s7i" */ o_7725_DRW_TOTOP(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 606 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2388] /* "DRW_VALUE" */)->mem,9*sizeof(strElemType))==0)) { /* line 607 "../lib/comp/action.s7i" */ o_7729_DRW_VALUE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 608 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2389] /* "DRW_WIDTH" */)->mem,9*sizeof(strElemType))==0)) { /* line 609 "../lib/comp/action.s7i" */ o_7733_DRW_WIDTH(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 610 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2390] /* "DRW_XPOS" */)->mem,8*sizeof(strElemType))==0)) { /* line 611 "../lib/comp/action.s7i" */ o_7737_DRW_XPOS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 612 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2391] /* "DRW_YPOS" */)->mem,8*sizeof(strElemType))==0)) { /* line 613 "../lib/comp/action.s7i" */ o_7741_DRW_YPOS(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 615 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 617 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2392] /* "ENU" */)->mem,3*sizeof(strElemType))==0)) { /* line 618 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2393] /* "ENU_CONV" */)->mem,8*sizeof(strElemType))==0)) { /* line 619 "../lib/comp/action.s7i" */ o_7745_ENU_CONV(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 620 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2394] /* "ENU_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 621 "../lib/comp/action.s7i" */ o_7749_ENU_CPY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 622 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2395] /* "ENU_EQ" */)->mem,6*sizeof(strElemType))==0)) { /* line 623 "../lib/comp/action.s7i" */ o_7754_ENU_EQ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 624 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2396] /* "ENU_ICONV2" */)->mem,10*sizeof(strElemType))==0)) { /* line 625 "../lib/comp/action.s7i" */ o_7758_ENU_ICONV2(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 626 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2397] /* "ENU_NE" */)->mem,6*sizeof(strElemType))==0)) { /* line 627 "../lib/comp/action.s7i" */ o_7762_ENU_NE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 628 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2398] /* "ENU_ORD2" */)->mem,8*sizeof(strElemType))==0)) { /* line 629 "../lib/comp/action.s7i" */ o_7766_ENU_ORD2(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 630 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2399] /* "ENU_VALUE" */)->mem,9*sizeof(strElemType))==0)) { /* line 631 "../lib/comp/action.s7i" */ o_7770_ENU_VALUE(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 633 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 635 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2400] /* "FIL" */)->mem,3*sizeof(strElemType))==0)) { /* line 636 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==11&&memcmp((o_10380_action_name)->mem,(&str[2401] /* "FIL_BIG_LNG" */)->mem,11*sizeof(strElemType))==0)) { /* line 637 "../lib/comp/action.s7i" */ o_7776_FIL_BIG_LNG(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 638 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2402] /* "FIL_BIG_SEEK" */)->mem,12*sizeof(strElemType))==0)) { /* line 639 "../lib/comp/action.s7i" */ o_7780_FIL_BIG_SEEK(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 640 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2403] /* "FIL_BIG_TELL" */)->mem,12*sizeof(strElemType))==0)) { /* line 641 "../lib/comp/action.s7i" */ o_7784_FIL_BIG_TELL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 642 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2404] /* "FIL_CLOSE" */)->mem,9*sizeof(strElemType))==0)) { /* line 643 "../lib/comp/action.s7i" */ o_7788_FIL_CLOSE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 644 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2405] /* "FIL_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 645 "../lib/comp/action.s7i" */ o_7792_FIL_CPY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 646 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2406] /* "FIL_EMPTY" */)->mem,9*sizeof(strElemType))==0)) { /* line 647 "../lib/comp/action.s7i" */ o_7797_FIL_EMPTY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 648 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2407] /* "FIL_EOF" */)->mem,7*sizeof(strElemType))==0)) { /* line 649 "../lib/comp/action.s7i" */ o_7801_FIL_EOF(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 650 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2408] /* "FIL_EQ" */)->mem,6*sizeof(strElemType))==0)) { /* line 651 "../lib/comp/action.s7i" */ o_7805_FIL_EQ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 652 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2409] /* "FIL_ERR" */)->mem,7*sizeof(strElemType))==0)) { /* line 653 "../lib/comp/action.s7i" */ o_7809_FIL_ERR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 654 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2410] /* "FIL_FLUSH" */)->mem,9*sizeof(strElemType))==0)) { /* line 655 "../lib/comp/action.s7i" */ o_7813_FIL_FLUSH(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 656 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2411] /* "FIL_GETC" */)->mem,8*sizeof(strElemType))==0)) { /* line 657 "../lib/comp/action.s7i" */ o_7817_FIL_GETC(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 658 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2412] /* "FIL_GETS" */)->mem,8*sizeof(strElemType))==0)) { /* line 659 "../lib/comp/action.s7i" */ o_7821_FIL_GETS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 660 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2413] /* "FIL_HAS_NEXT" */)->mem,12*sizeof(strElemType))==0)) { /* line 661 "../lib/comp/action.s7i" */ o_7825_FIL_HAS_NEXT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 662 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2414] /* "FIL_IN" */)->mem,6*sizeof(strElemType))==0)) { /* line 663 "../lib/comp/action.s7i" */ o_7829_FIL_IN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 664 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==15&&memcmp((o_10380_action_name)->mem,(&str[2415] /* "FIL_INPUT_READY" */)->mem,15*sizeof(strElemType))==0)) { /* line 665 "../lib/comp/action.s7i" */ o_7833_FIL_INPUT_READY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 666 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2416] /* "FIL_LINE_READ" */)->mem,13*sizeof(strElemType))==0)) { /* line 667 "../lib/comp/action.s7i" */ o_7837_FIL_LINE_READ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 668 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2417] /* "FIL_LIT" */)->mem,7*sizeof(strElemType))==0)) { /* line 669 "../lib/comp/action.s7i" */ o_7841_FIL_LIT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 670 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2418] /* "FIL_LNG" */)->mem,7*sizeof(strElemType))==0)) { /* line 671 "../lib/comp/action.s7i" */ o_7845_FIL_LNG(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 672 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2419] /* "FIL_NE" */)->mem,6*sizeof(strElemType))==0)) { /* line 673 "../lib/comp/action.s7i" */ o_7849_FIL_NE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 674 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2420] /* "FIL_OPEN" */)->mem,8*sizeof(strElemType))==0)) { /* line 675 "../lib/comp/action.s7i" */ o_7853_FIL_OPEN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 676 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2421] /* "FIL_OUT" */)->mem,7*sizeof(strElemType))==0)) { /* line 677 "../lib/comp/action.s7i" */ o_7857_FIL_OUT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 678 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2422] /* "FIL_PCLOSE" */)->mem,10*sizeof(strElemType))==0)) { /* line 679 "../lib/comp/action.s7i" */ o_7861_FIL_PCLOSE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 680 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2423] /* "FIL_POPEN" */)->mem,9*sizeof(strElemType))==0)) { /* line 681 "../lib/comp/action.s7i" */ o_7865_FIL_POPEN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 682 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2424] /* "FIL_PRINT" */)->mem,9*sizeof(strElemType))==0)) { /* line 683 "../lib/comp/action.s7i" */ o_7869_FIL_PRINT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 684 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2425] /* "FIL_SEEK" */)->mem,8*sizeof(strElemType))==0)) { /* line 685 "../lib/comp/action.s7i" */ o_7873_FIL_SEEK(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 686 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2426] /* "FIL_SETBUF" */)->mem,10*sizeof(strElemType))==0)) { /* line 687 "../lib/comp/action.s7i" */ o_7877_FIL_SETBUF(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 688 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2427] /* "FIL_TELL" */)->mem,8*sizeof(strElemType))==0)) { /* line 689 "../lib/comp/action.s7i" */ o_7881_FIL_TELL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 690 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2428] /* "FIL_VALUE" */)->mem,9*sizeof(strElemType))==0)) { /* line 691 "../lib/comp/action.s7i" */ o_7885_FIL_VALUE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 692 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2429] /* "FIL_WRITE" */)->mem,9*sizeof(strElemType))==0)) { /* line 693 "../lib/comp/action.s7i" */ o_7889_FIL_WRITE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 694 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2430] /* "FIL_WORD_READ" */)->mem,13*sizeof(strElemType))==0)) { /* line 695 "../lib/comp/action.s7i" */ o_7893_FIL_WORD_READ(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 697 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 699 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2431] /* "FLT" */)->mem,3*sizeof(strElemType))==0)) { /* line 700 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2432] /* "FLT_A2TAN" */)->mem,9*sizeof(strElemType))==0)) { /* line 701 "../lib/comp/action.s7i" */ o_7899_FLT_A2TAN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 702 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2433] /* "FLT_ABS" */)->mem,7*sizeof(strElemType))==0)) { /* line 703 "../lib/comp/action.s7i" */ o_7903_FLT_ABS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 704 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2434] /* "FLT_ACOS" */)->mem,8*sizeof(strElemType))==0)) { /* line 705 "../lib/comp/action.s7i" */ o_7907_FLT_ACOS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 706 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2435] /* "FLT_ADD" */)->mem,7*sizeof(strElemType))==0)) { /* line 707 "../lib/comp/action.s7i" */ o_7911_FLT_ADD(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 708 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2436] /* "FLT_ASIN" */)->mem,8*sizeof(strElemType))==0)) { /* line 709 "../lib/comp/action.s7i" */ o_7915_FLT_ASIN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 710 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2437] /* "FLT_ATAN" */)->mem,8*sizeof(strElemType))==0)) { /* line 711 "../lib/comp/action.s7i" */ o_7919_FLT_ATAN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 712 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2438] /* "FLT_CAST" */)->mem,8*sizeof(strElemType))==0)) { /* line 713 "../lib/comp/action.s7i" */ o_7923_FLT_CAST(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 714 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2439] /* "FLT_CEIL" */)->mem,8*sizeof(strElemType))==0)) { /* line 715 "../lib/comp/action.s7i" */ o_7928_FLT_CEIL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 716 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2440] /* "FLT_CMP" */)->mem,7*sizeof(strElemType))==0)) { /* line 717 "../lib/comp/action.s7i" */ o_7932_FLT_CMP(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 718 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2441] /* "FLT_COS" */)->mem,7*sizeof(strElemType))==0)) { /* line 719 "../lib/comp/action.s7i" */ o_7936_FLT_COS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 720 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2442] /* "FLT_COSH" */)->mem,8*sizeof(strElemType))==0)) { /* line 721 "../lib/comp/action.s7i" */ o_7940_FLT_COSH(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 722 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2443] /* "FLT_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 723 "../lib/comp/action.s7i" */ o_7944_FLT_CPY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 724 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2444] /* "FLT_DGTS" */)->mem,8*sizeof(strElemType))==0)) { /* line 725 "../lib/comp/action.s7i" */ o_7949_FLT_DGTS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 726 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2445] /* "FLT_DIV" */)->mem,7*sizeof(strElemType))==0)) { /* line 727 "../lib/comp/action.s7i" */ o_7960_FLT_DIV(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 728 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==14&&memcmp((o_10380_action_name)->mem,(&str[2446] /* "FLT_DIV_ASSIGN" */)->mem,14*sizeof(strElemType))==0)) { /* line 729 "../lib/comp/action.s7i" */ o_7974_FLT_DIV_ASSIGN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 730 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2447] /* "FLT_EQ" */)->mem,6*sizeof(strElemType))==0)) { /* line 731 "../lib/comp/action.s7i" */ o_7988_FLT_EQ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 732 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2448] /* "FLT_EXP" */)->mem,7*sizeof(strElemType))==0)) { /* line 733 "../lib/comp/action.s7i" */ o_7993_FLT_EXP(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 734 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2449] /* "FLT_FLOOR" */)->mem,9*sizeof(strElemType))==0)) { /* line 735 "../lib/comp/action.s7i" */ o_7997_FLT_FLOOR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 736 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2450] /* "FLT_GE" */)->mem,6*sizeof(strElemType))==0)) { /* line 737 "../lib/comp/action.s7i" */ o_8013_FLT_GE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 738 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2451] /* "FLT_GROW" */)->mem,8*sizeof(strElemType))==0)) { /* line 739 "../lib/comp/action.s7i" */ o_8018_FLT_GROW(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 740 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2452] /* "FLT_GT" */)->mem,6*sizeof(strElemType))==0)) { /* line 741 "../lib/comp/action.s7i" */ o_8023_FLT_GT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 742 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2453] /* "FLT_HASHCODE" */)->mem,12*sizeof(strElemType))==0)) { /* line 743 "../lib/comp/action.s7i" */ o_8027_FLT_HASHCODE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 744 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2454] /* "FLT_ICAST" */)->mem,9*sizeof(strElemType))==0)) { /* line 745 "../lib/comp/action.s7i" */ o_8032_FLT_ICAST(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 746 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2455] /* "FLT_ICONV" */)->mem,9*sizeof(strElemType))==0)) { /* line 747 "../lib/comp/action.s7i" */ o_8037_FLT_ICONV(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 748 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2456] /* "FLT_IFLT" */)->mem,8*sizeof(strElemType))==0)) { /* line 749 "../lib/comp/action.s7i" */ o_8041_FLT_IFLT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 750 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2457] /* "FLT_IPOW" */)->mem,8*sizeof(strElemType))==0)) { /* line 751 "../lib/comp/action.s7i" */ o_8045_FLT_IPOW(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 752 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2458] /* "FLT_ISNAN" */)->mem,9*sizeof(strElemType))==0)) { /* line 753 "../lib/comp/action.s7i" */ o_8049_FLT_ISNAN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 754 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==18&&memcmp((o_10380_action_name)->mem,(&str[2459] /* "FLT_ISNEGATIVEZERO" */)->mem,18*sizeof(strElemType))==0)) { /* line 755 "../lib/comp/action.s7i" */ o_8053_FLT_ISNEGATIVEZERO(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 756 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2460] /* "FLT_LE" */)->mem,6*sizeof(strElemType))==0)) { /* line 757 "../lib/comp/action.s7i" */ o_8069_FLT_LE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 758 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2461] /* "FLT_LOG" */)->mem,7*sizeof(strElemType))==0)) { /* line 759 "../lib/comp/action.s7i" */ o_8074_FLT_LOG(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 760 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2462] /* "FLT_LOG10" */)->mem,9*sizeof(strElemType))==0)) { /* line 761 "../lib/comp/action.s7i" */ o_8078_FLT_LOG10(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 762 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2463] /* "FLT_LT" */)->mem,6*sizeof(strElemType))==0)) { /* line 763 "../lib/comp/action.s7i" */ o_8082_FLT_LT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 764 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2464] /* "FLT_MULT" */)->mem,8*sizeof(strElemType))==0)) { /* line 765 "../lib/comp/action.s7i" */ o_8086_FLT_MULT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 766 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==15&&memcmp((o_10380_action_name)->mem,(&str[2465] /* "FLT_MULT_ASSIGN" */)->mem,15*sizeof(strElemType))==0)) { /* line 767 "../lib/comp/action.s7i" */ o_8090_FLT_MULT_ASSIGN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 768 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2466] /* "FLT_NE" */)->mem,6*sizeof(strElemType))==0)) { /* line 769 "../lib/comp/action.s7i" */ o_8101_FLT_NE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 770 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[1011] /* "FLT_NEGATE" */)->mem,10*sizeof(strElemType))==0)) { /* line 771 "../lib/comp/action.s7i" */ o_8106_FLT_NEGATE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 772 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2467] /* "FLT_PARSE" */)->mem,9*sizeof(strElemType))==0)) { /* line 773 "../lib/comp/action.s7i" */ o_8111_FLT_PARSE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 774 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2468] /* "FLT_PLUS" */)->mem,8*sizeof(strElemType))==0)) { /* line 775 "../lib/comp/action.s7i" */ o_8115_FLT_PLUS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 776 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2469] /* "FLT_POW" */)->mem,7*sizeof(strElemType))==0)) { /* line 777 "../lib/comp/action.s7i" */ o_8119_FLT_POW(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 778 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2470] /* "FLT_RAND" */)->mem,8*sizeof(strElemType))==0)) { /* line 779 "../lib/comp/action.s7i" */ o_8123_FLT_RAND(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 780 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2471] /* "FLT_ROUND" */)->mem,9*sizeof(strElemType))==0)) { /* line 781 "../lib/comp/action.s7i" */ o_8127_FLT_ROUND(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 782 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2472] /* "FLT_SBTR" */)->mem,8*sizeof(strElemType))==0)) { /* line 783 "../lib/comp/action.s7i" */ o_8132_FLT_SBTR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 784 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2473] /* "FLT_SCI" */)->mem,7*sizeof(strElemType))==0)) { /* line 785 "../lib/comp/action.s7i" */ o_8136_FLT_SCI(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 786 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2474] /* "FLT_SHRINK" */)->mem,10*sizeof(strElemType))==0)) { /* line 787 "../lib/comp/action.s7i" */ o_8140_FLT_SHRINK(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 788 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2475] /* "FLT_SIN" */)->mem,7*sizeof(strElemType))==0)) { /* line 789 "../lib/comp/action.s7i" */ o_8145_FLT_SIN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 790 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2476] /* "FLT_SINH" */)->mem,8*sizeof(strElemType))==0)) { /* line 791 "../lib/comp/action.s7i" */ o_8149_FLT_SINH(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 792 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2477] /* "FLT_SQRT" */)->mem,8*sizeof(strElemType))==0)) { /* line 793 "../lib/comp/action.s7i" */ o_8153_FLT_SQRT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 794 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2478] /* "FLT_STR" */)->mem,7*sizeof(strElemType))==0)) { /* line 795 "../lib/comp/action.s7i" */ o_8157_FLT_STR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 796 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2479] /* "FLT_TAN" */)->mem,7*sizeof(strElemType))==0)) { /* line 797 "../lib/comp/action.s7i" */ o_8161_FLT_TAN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 798 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2480] /* "FLT_TANH" */)->mem,8*sizeof(strElemType))==0)) { /* line 799 "../lib/comp/action.s7i" */ o_8165_FLT_TANH(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 800 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2481] /* "FLT_TRUNC" */)->mem,9*sizeof(strElemType))==0)) { /* line 801 "../lib/comp/action.s7i" */ o_8169_FLT_TRUNC(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 802 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2482] /* "FLT_VALUE" */)->mem,9*sizeof(strElemType))==0)) { /* line 803 "../lib/comp/action.s7i" */ o_8173_FLT_VALUE(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 805 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 807 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2483] /* "GKB" */)->mem,3*sizeof(strElemType))==0)) { /* line 808 "../lib/comp/action.s7i" */ o_6540_drawLibraryUsed=o_26_TRUE; /* line 809 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2484] /* "GKB_BUSY_GETC" */)->mem,13*sizeof(strElemType))==0)) { /* line 810 "../lib/comp/action.s7i" */ o_8179_GKB_BUSY_GETC(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 811 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2485] /* "GKB_GETC" */)->mem,8*sizeof(strElemType))==0)) { /* line 812 "../lib/comp/action.s7i" */ o_8183_GKB_GETC(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 813 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2486] /* "GKB_GETS" */)->mem,8*sizeof(strElemType))==0)) { /* line 814 "../lib/comp/action.s7i" */ o_8187_GKB_GETS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 815 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==14&&memcmp((o_10380_action_name)->mem,(&str[2487] /* "GKB_KEYPRESSED" */)->mem,14*sizeof(strElemType))==0)) { /* line 816 "../lib/comp/action.s7i" */ o_8191_GKB_KEYPRESSED(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 817 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2488] /* "GKB_LINE_READ" */)->mem,13*sizeof(strElemType))==0)) { /* line 818 "../lib/comp/action.s7i" */ o_8195_GKB_LINE_READ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 819 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2489] /* "GKB_RAW_GETC" */)->mem,12*sizeof(strElemType))==0)) { /* line 820 "../lib/comp/action.s7i" */ o_8199_GKB_RAW_GETC(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 821 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2490] /* "GKB_WINDOW" */)->mem,10*sizeof(strElemType))==0)) { /* line 822 "../lib/comp/action.s7i" */ o_8203_GKB_WINDOW(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 823 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2491] /* "GKB_WORD_READ" */)->mem,13*sizeof(strElemType))==0)) { /* line 824 "../lib/comp/action.s7i" */ o_8207_GKB_WORD_READ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 825 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==18&&memcmp((o_10380_action_name)->mem,(&str[2492] /* "GKB_BUTTON_PRESSED" */)->mem,18*sizeof(strElemType))==0)) { /* line 826 "../lib/comp/action.s7i" */ o_8211_GKB_BUTTON_PRESSED(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 827 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==15&&memcmp((o_10380_action_name)->mem,(&str[2493] /* "GKB_BUTTON_XPOS" */)->mem,15*sizeof(strElemType))==0)) { /* line 828 "../lib/comp/action.s7i" */ o_8215_GKB_BUTTON_XPOS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 829 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==15&&memcmp((o_10380_action_name)->mem,(&str[2494] /* "GKB_BUTTON_YPOS" */)->mem,15*sizeof(strElemType))==0)) { /* line 830 "../lib/comp/action.s7i" */ o_8219_GKB_BUTTON_YPOS(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 832 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 834 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2495] /* "HSH" */)->mem,3*sizeof(strElemType))==0)) { /* line 835 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2496] /* "HSH_CONTAINS" */)->mem,12*sizeof(strElemType))==0)) { /* line 836 "../lib/comp/action.s7i" */ o_8225_HSH_CONTAINS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 837 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2497] /* "HSH_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 838 "../lib/comp/action.s7i" */ o_8229_HSH_CPY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 839 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2498] /* "HSH_CREATE" */)->mem,10*sizeof(strElemType))==0)) { /* line 840 "../lib/comp/action.s7i" */ o_8237_HSH_CREATE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 841 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2499] /* "HSH_DESTR" */)->mem,9*sizeof(strElemType))==0)) { /* line 842 "../lib/comp/action.s7i" */ o_8245_HSH_DESTR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 843 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2500] /* "HSH_EXCL" */)->mem,8*sizeof(strElemType))==0)) { /* line 844 "../lib/comp/action.s7i" */ o_8251_HSH_EXCL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 845 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2501] /* "HSH_FOR" */)->mem,7*sizeof(strElemType))==0)) { /* line 846 "../lib/comp/action.s7i" */ o_8268_HSH_FOR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 847 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==16&&memcmp((o_10380_action_name)->mem,(&str[2502] /* "HSH_FOR_DATA_KEY" */)->mem,16*sizeof(strElemType))==0)) { /* line 848 "../lib/comp/action.s7i" */ o_8272_HSH_FOR_DATA_KEY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 849 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==11&&memcmp((o_10380_action_name)->mem,(&str[2503] /* "HSH_FOR_KEY" */)->mem,11*sizeof(strElemType))==0)) { /* line 850 "../lib/comp/action.s7i" */ o_8276_HSH_FOR_KEY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 851 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2504] /* "HSH_IDX" */)->mem,7*sizeof(strElemType))==0)) { /* line 852 "../lib/comp/action.s7i" */ o_8280_HSH_IDX(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 853 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2505] /* "HSH_IDX2" */)->mem,8*sizeof(strElemType))==0)) { /* line 854 "../lib/comp/action.s7i" */ o_8287_HSH_IDX2(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 855 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2506] /* "HSH_INCL" */)->mem,8*sizeof(strElemType))==0)) { /* line 856 "../lib/comp/action.s7i" */ o_8294_HSH_INCL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 857 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2507] /* "HSH_KEYS" */)->mem,8*sizeof(strElemType))==0)) { /* line 858 "../lib/comp/action.s7i" */ o_8298_HSH_KEYS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 859 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2508] /* "HSH_LNG" */)->mem,7*sizeof(strElemType))==0)) { /* line 860 "../lib/comp/action.s7i" */ o_8302_HSH_LNG(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 861 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2509] /* "HSH_UPDATE" */)->mem,10*sizeof(strElemType))==0)) { /* line 862 "../lib/comp/action.s7i" */ o_8306_HSH_UPDATE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 863 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2510] /* "HSH_VALUES" */)->mem,10*sizeof(strElemType))==0)) { /* line 864 "../lib/comp/action.s7i" */ o_8312_HSH_VALUES(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 866 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 868 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2511] /* "INT" */)->mem,3*sizeof(strElemType))==0)) { /* line 869 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2512] /* "INT_ABS" */)->mem,7*sizeof(strElemType))==0)) { /* line 870 "../lib/comp/action.s7i" */ o_8336_INT_ABS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 871 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2513] /* "INT_ADD" */)->mem,7*sizeof(strElemType))==0)) { /* line 872 "../lib/comp/action.s7i" */ o_8349_INT_ADD(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 873 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2514] /* "INT_AND" */)->mem,7*sizeof(strElemType))==0)) { /* line 874 "../lib/comp/action.s7i" */ o_8357_INT_AND(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 875 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==14&&memcmp((o_10380_action_name)->mem,(&str[2515] /* "INT_AND_ASSIGN" */)->mem,14*sizeof(strElemType))==0)) { /* line 876 "../lib/comp/action.s7i" */ o_8361_INT_AND_ASSIGN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 877 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2516] /* "INT_BINOM" */)->mem,9*sizeof(strElemType))==0)) { /* line 878 "../lib/comp/action.s7i" */ o_8366_INT_BINOM(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 879 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==14&&memcmp((o_10380_action_name)->mem,(&str[2517] /* "INT_BIT_LENGTH" */)->mem,14*sizeof(strElemType))==0)) { /* line 880 "../lib/comp/action.s7i" */ o_8370_INT_BIT_LENGTH(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 881 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2518] /* "INT_BYTES_BE" */)->mem,12*sizeof(strElemType))==0)) { /* line 882 "../lib/comp/action.s7i" */ o_8374_INT_BYTES_BE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 883 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==18&&memcmp((o_10380_action_name)->mem,(&str[2519] /* "INT_BYTES_BE_2_INT" */)->mem,18*sizeof(strElemType))==0)) { /* line 884 "../lib/comp/action.s7i" */ o_8378_INT_BYTES_BE_2_INT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 885 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2520] /* "INT_BYTES_LE" */)->mem,12*sizeof(strElemType))==0)) { /* line 886 "../lib/comp/action.s7i" */ o_8382_INT_BYTES_LE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 887 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==18&&memcmp((o_10380_action_name)->mem,(&str[2521] /* "INT_BYTES_LE_2_INT" */)->mem,18*sizeof(strElemType))==0)) { /* line 888 "../lib/comp/action.s7i" */ o_8386_INT_BYTES_LE_2_INT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 889 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2522] /* "INT_CMP" */)->mem,7*sizeof(strElemType))==0)) { /* line 890 "../lib/comp/action.s7i" */ o_8390_INT_CMP(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 891 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2523] /* "INT_CONV" */)->mem,8*sizeof(strElemType))==0)) { /* line 892 "../lib/comp/action.s7i" */ o_8394_INT_CONV(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 893 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2524] /* "INT_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 894 "../lib/comp/action.s7i" */ o_8398_INT_CPY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 895 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2525] /* "INT_DECR" */)->mem,8*sizeof(strElemType))==0)) { /* line 896 "../lib/comp/action.s7i" */ o_8403_INT_DECR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 897 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2526] /* "INT_DIV" */)->mem,7*sizeof(strElemType))==0)) { /* line 898 "../lib/comp/action.s7i" */ o_8421_INT_DIV(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 899 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2527] /* "INT_EQ" */)->mem,6*sizeof(strElemType))==0)) { /* line 900 "../lib/comp/action.s7i" */ o_8428_INT_EQ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 901 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2528] /* "INT_FACT" */)->mem,8*sizeof(strElemType))==0)) { /* line 902 "../lib/comp/action.s7i" */ o_8432_INT_FACT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 903 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2529] /* "INT_GE" */)->mem,6*sizeof(strElemType))==0)) { /* line 904 "../lib/comp/action.s7i" */ o_8437_INT_GE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 905 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2530] /* "INT_GROW" */)->mem,8*sizeof(strElemType))==0)) { /* line 906 "../lib/comp/action.s7i" */ o_8447_INT_GROW(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 907 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2531] /* "INT_GT" */)->mem,6*sizeof(strElemType))==0)) { /* line 908 "../lib/comp/action.s7i" */ o_8456_INT_GT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 909 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2532] /* "INT_HASHCODE" */)->mem,12*sizeof(strElemType))==0)) { /* line 910 "../lib/comp/action.s7i" */ o_8460_INT_HASHCODE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 911 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2533] /* "INT_INCR" */)->mem,8*sizeof(strElemType))==0)) { /* line 912 "../lib/comp/action.s7i" */ o_8464_INT_INCR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 913 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2534] /* "INT_LE" */)->mem,6*sizeof(strElemType))==0)) { /* line 914 "../lib/comp/action.s7i" */ o_8471_INT_LE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 915 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2535] /* "INT_LOG10" */)->mem,9*sizeof(strElemType))==0)) { /* line 916 "../lib/comp/action.s7i" */ o_8475_INT_LOG10(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 917 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2536] /* "INT_LOG2" */)->mem,8*sizeof(strElemType))==0)) { /* line 918 "../lib/comp/action.s7i" */ o_8479_INT_LOG2(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 919 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==18&&memcmp((o_10380_action_name)->mem,(&str[2537] /* "INT_LOWEST_SET_BIT" */)->mem,18*sizeof(strElemType))==0)) { /* line 920 "../lib/comp/action.s7i" */ o_8483_INT_LOWEST_SET_BIT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 921 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2538] /* "INT_LPAD0" */)->mem,9*sizeof(strElemType))==0)) { /* line 922 "../lib/comp/action.s7i" */ o_8487_INT_LPAD0(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 923 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2539] /* "INT_LSHIFT" */)->mem,10*sizeof(strElemType))==0)) { /* line 924 "../lib/comp/action.s7i" */ o_8502_INT_LSHIFT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 925 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==17&&memcmp((o_10380_action_name)->mem,(&str[2540] /* "INT_LSHIFT_ASSIGN" */)->mem,17*sizeof(strElemType))==0)) { /* line 926 "../lib/comp/action.s7i" */ o_8516_INT_LSHIFT_ASSIGN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 927 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2541] /* "INT_LT" */)->mem,6*sizeof(strElemType))==0)) { /* line 928 "../lib/comp/action.s7i" */ o_8524_INT_LT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 929 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2542] /* "INT_MDIV" */)->mem,8*sizeof(strElemType))==0)) { /* line 930 "../lib/comp/action.s7i" */ o_8539_INT_MDIV(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 931 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2543] /* "INT_MOD" */)->mem,7*sizeof(strElemType))==0)) { /* line 932 "../lib/comp/action.s7i" */ o_8559_INT_MOD(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 933 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2544] /* "INT_MULT" */)->mem,8*sizeof(strElemType))==0)) { /* line 934 "../lib/comp/action.s7i" */ o_8573_INT_MULT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 935 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==15&&memcmp((o_10380_action_name)->mem,(&str[2545] /* "INT_MULT_ASSIGN" */)->mem,15*sizeof(strElemType))==0)) { /* line 936 "../lib/comp/action.s7i" */ o_8587_INT_MULT_ASSIGN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 937 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2546] /* "INT_NE" */)->mem,6*sizeof(strElemType))==0)) { /* line 938 "../lib/comp/action.s7i" */ o_8596_INT_NE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 939 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[1185] /* "INT_NEGATE" */)->mem,10*sizeof(strElemType))==0)) { /* line 940 "../lib/comp/action.s7i" */ o_8600_INT_NEGATE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 941 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2547] /* "INT_ODD" */)->mem,7*sizeof(strElemType))==0)) { /* line 942 "../lib/comp/action.s7i" */ o_8607_INT_ODD(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 943 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2548] /* "INT_OR" */)->mem,6*sizeof(strElemType))==0)) { /* line 944 "../lib/comp/action.s7i" */ o_8611_INT_OR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 945 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2549] /* "INT_ORD" */)->mem,7*sizeof(strElemType))==0)) { /* line 946 "../lib/comp/action.s7i" */ o_8615_INT_ORD(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 947 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2550] /* "INT_OR_ASSIGN" */)->mem,13*sizeof(strElemType))==0)) { /* line 948 "../lib/comp/action.s7i" */ o_8619_INT_OR_ASSIGN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 949 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2551] /* "INT_PARSE" */)->mem,9*sizeof(strElemType))==0)) { /* line 950 "../lib/comp/action.s7i" */ o_8624_INT_PARSE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 951 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2552] /* "INT_PLUS" */)->mem,8*sizeof(strElemType))==0)) { /* line 952 "../lib/comp/action.s7i" */ o_8628_INT_PLUS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 953 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2553] /* "INT_POW" */)->mem,7*sizeof(strElemType))==0)) { /* line 954 "../lib/comp/action.s7i" */ o_8650_INT_POW(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 955 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2554] /* "INT_PRED" */)->mem,8*sizeof(strElemType))==0)) { /* line 956 "../lib/comp/action.s7i" */ o_8655_INT_PRED(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 957 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2555] /* "INT_radix" */)->mem,9*sizeof(strElemType))==0)) { /* line 958 "../lib/comp/action.s7i" */ o_8672_INT_radix(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 959 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2556] /* "INT_RADIX" */)->mem,9*sizeof(strElemType))==0)) { /* line 960 "../lib/comp/action.s7i" */ o_8676_INT_RADIX(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 961 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2557] /* "INT_RAND" */)->mem,8*sizeof(strElemType))==0)) { /* line 962 "../lib/comp/action.s7i" */ o_8680_INT_RAND(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 963 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2558] /* "INT_REM" */)->mem,7*sizeof(strElemType))==0)) { /* line 964 "../lib/comp/action.s7i" */ o_8695_INT_REM(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 965 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2559] /* "INT_RSHIFT" */)->mem,10*sizeof(strElemType))==0)) { /* line 966 "../lib/comp/action.s7i" */ o_8708_INT_RSHIFT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 967 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==17&&memcmp((o_10380_action_name)->mem,(&str[2560] /* "INT_RSHIFT_ASSIGN" */)->mem,17*sizeof(strElemType))==0)) { /* line 968 "../lib/comp/action.s7i" */ o_8721_INT_RSHIFT_ASSIGN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 969 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2561] /* "INT_SBTR" */)->mem,8*sizeof(strElemType))==0)) { /* line 970 "../lib/comp/action.s7i" */ o_8741_INT_SBTR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 971 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2562] /* "INT_SHRINK" */)->mem,10*sizeof(strElemType))==0)) { /* line 972 "../lib/comp/action.s7i" */ o_8754_INT_SHRINK(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 973 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2563] /* "INT_SQRT" */)->mem,8*sizeof(strElemType))==0)) { /* line 974 "../lib/comp/action.s7i" */ o_8762_INT_SQRT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 975 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2564] /* "INT_STR" */)->mem,7*sizeof(strElemType))==0)) { /* line 976 "../lib/comp/action.s7i" */ o_8766_INT_STR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 977 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2565] /* "INT_SUCC" */)->mem,8*sizeof(strElemType))==0)) { /* line 978 "../lib/comp/action.s7i" */ o_8771_INT_SUCC(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 979 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==11&&memcmp((o_10380_action_name)->mem,(&str[2566] /* "INT_ULSHIFT" */)->mem,11*sizeof(strElemType))==0)) { /* line 980 "../lib/comp/action.s7i" */ o_8782_INT_ULSHIFT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 981 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==18&&memcmp((o_10380_action_name)->mem,(&str[2567] /* "INT_ULSHIFT_ASSIGN" */)->mem,18*sizeof(strElemType))==0)) { /* line 982 "../lib/comp/action.s7i" */ o_8794_INT_ULSHIFT_ASSIGN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 983 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==11&&memcmp((o_10380_action_name)->mem,(&str[2568] /* "INT_URSHIFT" */)->mem,11*sizeof(strElemType))==0)) { /* line 984 "../lib/comp/action.s7i" */ o_8806_INT_URSHIFT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 985 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==18&&memcmp((o_10380_action_name)->mem,(&str[2569] /* "INT_URSHIFT_ASSIGN" */)->mem,18*sizeof(strElemType))==0)) { /* line 986 "../lib/comp/action.s7i" */ o_8818_INT_URSHIFT_ASSIGN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 987 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2570] /* "INT_VALUE" */)->mem,9*sizeof(strElemType))==0)) { /* line 988 "../lib/comp/action.s7i" */ o_8826_INT_VALUE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 989 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2571] /* "INT_XOR" */)->mem,7*sizeof(strElemType))==0)) { /* line 990 "../lib/comp/action.s7i" */ o_8830_INT_XOR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 991 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==14&&memcmp((o_10380_action_name)->mem,(&str[2572] /* "INT_XOR_ASSIGN" */)->mem,14*sizeof(strElemType))==0)) { /* line 992 "../lib/comp/action.s7i" */ o_8834_INT_XOR_ASSIGN(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 994 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 996 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2573] /* "ITF" */)->mem,3*sizeof(strElemType))==0)) { /* line 997 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2574] /* "ITF_CMP" */)->mem,7*sizeof(strElemType))==0)) { /* line 998 "../lib/comp/action.s7i" */ o_8841_ITF_CMP(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 999 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2575] /* "ITF_CONV2" */)->mem,9*sizeof(strElemType))==0)) { /* line 1000 "../lib/comp/action.s7i" */ o_8845_ITF_CONV2(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1001 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2576] /* "ITF_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 1002 "../lib/comp/action.s7i" */ o_8849_ITF_CPY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1003 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2577] /* "ITF_CPY2" */)->mem,8*sizeof(strElemType))==0)) { /* line 1004 "../lib/comp/action.s7i" */ o_8855_ITF_CPY2(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1005 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2578] /* "ITF_EQ" */)->mem,6*sizeof(strElemType))==0)) { /* line 1006 "../lib/comp/action.s7i" */ o_8859_ITF_EQ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1007 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2579] /* "ITF_HASHCODE" */)->mem,12*sizeof(strElemType))==0)) { /* line 1008 "../lib/comp/action.s7i" */ o_8863_ITF_HASHCODE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1009 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2580] /* "ITF_NE" */)->mem,6*sizeof(strElemType))==0)) { /* line 1010 "../lib/comp/action.s7i" */ o_8867_ITF_NE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1011 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==16&&memcmp((o_10380_action_name)->mem,(&str[2581] /* "ITF_TO_INTERFACE" */)->mem,16*sizeof(strElemType))==0)) { /* line 1012 "../lib/comp/action.s7i" */ o_8871_ITF_TO_INTERFACE(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 1014 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 1016 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2582] /* "KBD" */)->mem,3*sizeof(strElemType))==0)) { /* line 1017 "../lib/comp/action.s7i" */ o_6539_consoleLibraryUsed=o_26_TRUE; /* line 1018 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2583] /* "KBD_BUSY_GETC" */)->mem,13*sizeof(strElemType))==0)) { /* line 1019 "../lib/comp/action.s7i" */ o_8878_KBD_BUSY_GETC(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1020 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2584] /* "KBD_GETC" */)->mem,8*sizeof(strElemType))==0)) { /* line 1021 "../lib/comp/action.s7i" */ o_8882_KBD_GETC(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1022 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2585] /* "KBD_GETS" */)->mem,8*sizeof(strElemType))==0)) { /* line 1023 "../lib/comp/action.s7i" */ o_8886_KBD_GETS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1024 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==14&&memcmp((o_10380_action_name)->mem,(&str[2586] /* "KBD_KEYPRESSED" */)->mem,14*sizeof(strElemType))==0)) { /* line 1025 "../lib/comp/action.s7i" */ o_8890_KBD_KEYPRESSED(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1026 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2587] /* "KBD_LINE_READ" */)->mem,13*sizeof(strElemType))==0)) { /* line 1027 "../lib/comp/action.s7i" */ o_8894_KBD_LINE_READ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1028 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2588] /* "KBD_RAW_GETC" */)->mem,12*sizeof(strElemType))==0)) { /* line 1029 "../lib/comp/action.s7i" */ o_8898_KBD_RAW_GETC(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1030 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2589] /* "KBD_WORD_READ" */)->mem,13*sizeof(strElemType))==0)) { /* line 1031 "../lib/comp/action.s7i" */ o_8902_KBD_WORD_READ(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 1033 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 1035 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2590] /* "POL" */)->mem,3*sizeof(strElemType))==0)) { /* line 1036 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2591] /* "POL_ADD_CHECK" */)->mem,13*sizeof(strElemType))==0)) { /* line 1037 "../lib/comp/action.s7i" */ o_8908_POL_ADD_CHECK(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1038 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2592] /* "POL_CLEAR" */)->mem,9*sizeof(strElemType))==0)) { /* line 1039 "../lib/comp/action.s7i" */ o_8912_POL_CLEAR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1040 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2593] /* "POL_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 1041 "../lib/comp/action.s7i" */ o_8916_POL_CPY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1042 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2594] /* "POL_GET_CHECK" */)->mem,13*sizeof(strElemType))==0)) { /* line 1043 "../lib/comp/action.s7i" */ o_8922_POL_GET_CHECK(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1044 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==15&&memcmp((o_10380_action_name)->mem,(&str[2595] /* "POL_GET_FINDING" */)->mem,15*sizeof(strElemType))==0)) { /* line 1045 "../lib/comp/action.s7i" */ o_8926_POL_GET_FINDING(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1046 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2596] /* "POL_HAS_NEXT" */)->mem,12*sizeof(strElemType))==0)) { /* line 1047 "../lib/comp/action.s7i" */ o_8930_POL_HAS_NEXT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1048 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==15&&memcmp((o_10380_action_name)->mem,(&str[2597] /* "POL_ITER_CHECKS" */)->mem,15*sizeof(strElemType))==0)) { /* line 1049 "../lib/comp/action.s7i" */ o_8934_POL_ITER_CHECKS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1050 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==17&&memcmp((o_10380_action_name)->mem,(&str[2598] /* "POL_ITER_FINDINGS" */)->mem,17*sizeof(strElemType))==0)) { /* line 1051 "../lib/comp/action.s7i" */ o_8938_POL_ITER_FINDINGS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1052 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2599] /* "POL_NEXT_FILE" */)->mem,13*sizeof(strElemType))==0)) { /* line 1053 "../lib/comp/action.s7i" */ o_8942_POL_NEXT_FILE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1054 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2600] /* "POL_POLL" */)->mem,8*sizeof(strElemType))==0)) { /* line 1055 "../lib/comp/action.s7i" */ o_8946_POL_POLL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1056 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==16&&memcmp((o_10380_action_name)->mem,(&str[2601] /* "POL_REMOVE_CHECK" */)->mem,16*sizeof(strElemType))==0)) { /* line 1057 "../lib/comp/action.s7i" */ o_8950_POL_REMOVE_CHECK(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1058 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2602] /* "POL_VALUE" */)->mem,9*sizeof(strElemType))==0)) { /* line 1059 "../lib/comp/action.s7i" */ o_8954_POL_VALUE(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 1061 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 1063 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2603] /* "PRC" */)->mem,3*sizeof(strElemType))==0)) { /* line 1064 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2604] /* "PRC_ARGS" */)->mem,8*sizeof(strElemType))==0)) { /* line 1065 "../lib/comp/action.s7i" */ o_9138_PRC_ARGS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1066 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2605] /* "PRC_BLOCK" */)->mem,9*sizeof(strElemType))==0)) { /* line 1067 "../lib/comp/action.s7i" */ o_9082_PRC_BLOCK(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1068 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==19&&memcmp((o_10380_action_name)->mem,(&str[2606] /* "PRC_BLOCK_CATCH_ALL" */)->mem,19*sizeof(strElemType))==0)) { /* line 1069 "../lib/comp/action.s7i" */ o_9089_PRC_BLOCK_CATCH_ALL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1070 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==19&&memcmp((o_10380_action_name)->mem,(&str[2607] /* "PRC_BLOCK_OTHERWISE" */)->mem,19*sizeof(strElemType))==0)) { /* line 1071 "../lib/comp/action.s7i" */ o_9093_PRC_BLOCK_OTHERWISE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1072 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2608] /* "PRC_CASE" */)->mem,8*sizeof(strElemType))==0)) { /* line 1073 "../lib/comp/action.s7i" */ o_9074_PRC_CASE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1074 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2609] /* "PRC_CASE_DEF" */)->mem,12*sizeof(strElemType))==0)) { /* line 1075 "../lib/comp/action.s7i" */ o_9078_PRC_CASE_DEF(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1076 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2610] /* "PRC_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 1077 "../lib/comp/action.s7i" */ o_9147_PRC_CPY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1078 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==11&&memcmp((o_10380_action_name)->mem,(&str[2611] /* "PRC_DYNAMIC" */)->mem,11*sizeof(strElemType))==0)) { /* line 1079 "../lib/comp/action.s7i" */ o_9104_PRC_DYNAMIC(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1080 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2612] /* "PRC_EXIT" */)->mem,8*sizeof(strElemType))==0)) { /* line 1081 "../lib/comp/action.s7i" */ o_9108_PRC_EXIT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1082 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==14&&memcmp((o_10380_action_name)->mem,(&str[2613] /* "PRC_FOR_DOWNTO" */)->mem,14*sizeof(strElemType))==0)) { /* line 1083 "../lib/comp/action.s7i" */ o_9048_PRC_FOR_DOWNTO(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1084 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2614] /* "PRC_FOR_TO" */)->mem,10*sizeof(strElemType))==0)) { /* line 1085 "../lib/comp/action.s7i" */ o_9052_PRC_FOR_TO(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1086 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2615] /* "PRC_HSIZE" */)->mem,9*sizeof(strElemType))==0)) { /* line 1087 "../lib/comp/action.s7i" */ o_9112_PRC_HSIZE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1088 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2616] /* "PRC_IF" */)->mem,6*sizeof(strElemType))==0)) { /* line 1089 "../lib/comp/action.s7i" */ o_8979_PRC_IF(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1090 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2617] /* "PRC_IF_ELSIF" */)->mem,12*sizeof(strElemType))==0)) { /* line 1091 "../lib/comp/action.s7i" */ o_8995_PRC_IF_ELSIF(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1092 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2618] /* "PRC_NOOP" */)->mem,8*sizeof(strElemType))==0)) { /* line 1093 "../lib/comp/action.s7i" */ o_9134_PRC_NOOP(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1094 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2619] /* "PRC_RAISE" */)->mem,9*sizeof(strElemType))==0)) { /* line 1095 "../lib/comp/action.s7i" */ o_9153_PRC_RAISE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1096 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2620] /* "PRC_REPEAT" */)->mem,10*sizeof(strElemType))==0)) { /* line 1097 "../lib/comp/action.s7i" */ o_9013_PRC_REPEAT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1098 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2621] /* "PRC_WHILE" */)->mem,9*sizeof(strElemType))==0)) { /* line 1099 "../lib/comp/action.s7i" */ o_9005_PRC_WHILE(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 1101 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 1103 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2622] /* "PRG" */)->mem,3*sizeof(strElemType))==0)) { /* line 1104 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2623] /* "PRG_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 1105 "../lib/comp/action.s7i" */ o_9159_PRG_CPY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1106 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2624] /* "PRG_EQ" */)->mem,6*sizeof(strElemType))==0)) { /* line 1107 "../lib/comp/action.s7i" */ o_9165_PRG_EQ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1108 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==15&&memcmp((o_10380_action_name)->mem,(&str[2625] /* "PRG_ERROR_COUNT" */)->mem,15*sizeof(strElemType))==0)) { /* line 1109 "../lib/comp/action.s7i" */ o_9169_PRG_ERROR_COUNT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1110 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2626] /* "PRG_EVAL" */)->mem,8*sizeof(strElemType))==0)) { /* line 1111 "../lib/comp/action.s7i" */ o_9173_PRG_EVAL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1112 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2627] /* "PRG_EXEC" */)->mem,8*sizeof(strElemType))==0)) { /* line 1113 "../lib/comp/action.s7i" */ o_9177_PRG_EXEC(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1114 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2628] /* "PRG_FIL_PARSE" */)->mem,13*sizeof(strElemType))==0)) { /* line 1115 "../lib/comp/action.s7i" */ o_9181_PRG_FIL_PARSE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1116 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==18&&memcmp((o_10380_action_name)->mem,(&str[2629] /* "PRG_GLOBAL_OBJECTS" */)->mem,18*sizeof(strElemType))==0)) { /* line 1117 "../lib/comp/action.s7i" */ o_9185_PRG_GLOBAL_OBJECTS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1118 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2630] /* "PRG_MATCH" */)->mem,9*sizeof(strElemType))==0)) { /* line 1119 "../lib/comp/action.s7i" */ o_9189_PRG_MATCH(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1120 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==14&&memcmp((o_10380_action_name)->mem,(&str[2631] /* "PRG_MATCH_EXPR" */)->mem,14*sizeof(strElemType))==0)) { /* line 1121 "../lib/comp/action.s7i" */ o_9193_PRG_MATCH_EXPR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1122 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2632] /* "PRG_NAME" */)->mem,8*sizeof(strElemType))==0)) { /* line 1123 "../lib/comp/action.s7i" */ o_9197_PRG_NAME(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1124 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2633] /* "PRG_NE" */)->mem,6*sizeof(strElemType))==0)) { /* line 1125 "../lib/comp/action.s7i" */ o_9201_PRG_NE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1126 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2634] /* "PRG_OWN_NAME" */)->mem,12*sizeof(strElemType))==0)) { /* line 1127 "../lib/comp/action.s7i" */ o_9205_PRG_OWN_NAME(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1128 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2635] /* "PRG_OWN_PATH" */)->mem,12*sizeof(strElemType))==0)) { /* line 1129 "../lib/comp/action.s7i" */ o_9209_PRG_OWN_PATH(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1130 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2636] /* "PRG_PATH" */)->mem,8*sizeof(strElemType))==0)) { /* line 1131 "../lib/comp/action.s7i" */ o_9213_PRG_PATH(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1132 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2637] /* "PRG_STR_PARSE" */)->mem,13*sizeof(strElemType))==0)) { /* line 1133 "../lib/comp/action.s7i" */ o_9217_PRG_STR_PARSE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1134 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2638] /* "PRG_SYOBJECT" */)->mem,12*sizeof(strElemType))==0)) { /* line 1135 "../lib/comp/action.s7i" */ o_9221_PRG_SYOBJECT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1136 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2639] /* "PRG_SYSVAR" */)->mem,10*sizeof(strElemType))==0)) { /* line 1137 "../lib/comp/action.s7i" */ o_9225_PRG_SYSVAR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1138 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2640] /* "PRG_VALUE" */)->mem,9*sizeof(strElemType))==0)) { /* line 1139 "../lib/comp/action.s7i" */ o_9229_PRG_VALUE(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 1141 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 1143 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2641] /* "REF" */)->mem,3*sizeof(strElemType))==0)) { /* line 1144 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2642] /* "REF_ADDR" */)->mem,8*sizeof(strElemType))==0)) { /* line 1145 "../lib/comp/action.s7i" */ o_9235_REF_ADDR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1146 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2643] /* "REF_ALLOC" */)->mem,9*sizeof(strElemType))==0)) { /* line 1147 "../lib/comp/action.s7i" */ o_9239_REF_ALLOC(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1148 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2644] /* "REF_ARRMAXIDX" */)->mem,13*sizeof(strElemType))==0)) { /* line 1149 "../lib/comp/action.s7i" */ o_9243_REF_ARRMAXIDX(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1150 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2645] /* "REF_ARRMINIDX" */)->mem,13*sizeof(strElemType))==0)) { /* line 1151 "../lib/comp/action.s7i" */ o_9247_REF_ARRMINIDX(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1152 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2646] /* "REF_ARRTOLIST" */)->mem,13*sizeof(strElemType))==0)) { /* line 1153 "../lib/comp/action.s7i" */ o_9251_REF_ARRTOLIST(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1154 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2647] /* "REF_BODY" */)->mem,8*sizeof(strElemType))==0)) { /* line 1155 "../lib/comp/action.s7i" */ o_9255_REF_BODY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1156 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2648] /* "REF_CATEGORY" */)->mem,12*sizeof(strElemType))==0)) { /* line 1157 "../lib/comp/action.s7i" */ o_9259_REF_CATEGORY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1158 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2649] /* "REF_CAT_PARSE" */)->mem,13*sizeof(strElemType))==0)) { /* line 1159 "../lib/comp/action.s7i" */ o_9263_REF_CAT_PARSE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1160 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==11&&memcmp((o_10380_action_name)->mem,(&str[2650] /* "REF_CAT_STR" */)->mem,11*sizeof(strElemType))==0)) { /* line 1161 "../lib/comp/action.s7i" */ o_9267_REF_CAT_STR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1162 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2651] /* "REF_CMP" */)->mem,7*sizeof(strElemType))==0)) { /* line 1163 "../lib/comp/action.s7i" */ o_9271_REF_CMP(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1164 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2652] /* "REF_CONV" */)->mem,8*sizeof(strElemType))==0)) { /* line 1165 "../lib/comp/action.s7i" */ o_9275_REF_CONV(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1166 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2653] /* "REF_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 1167 "../lib/comp/action.s7i" */ o_9279_REF_CPY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1168 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2654] /* "REF_DEREF" */)->mem,9*sizeof(strElemType))==0)) { /* line 1169 "../lib/comp/action.s7i" */ o_9284_REF_DEREF(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1170 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2655] /* "REF_EQ" */)->mem,6*sizeof(strElemType))==0)) { /* line 1171 "../lib/comp/action.s7i" */ o_9288_REF_EQ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1172 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2656] /* "REF_FILE" */)->mem,8*sizeof(strElemType))==0)) { /* line 1173 "../lib/comp/action.s7i" */ o_9292_REF_FILE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1174 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2657] /* "REF_GETREF" */)->mem,10*sizeof(strElemType))==0)) { /* line 1175 "../lib/comp/action.s7i" */ o_9296_REF_GETREF(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1176 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2658] /* "REF_HASHCODE" */)->mem,12*sizeof(strElemType))==0)) { /* line 1177 "../lib/comp/action.s7i" */ o_9300_REF_HASHCODE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1178 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==17&&memcmp((o_10380_action_name)->mem,(&str[2659] /* "REF_HSHDATATOLIST" */)->mem,17*sizeof(strElemType))==0)) { /* line 1179 "../lib/comp/action.s7i" */ o_9304_REF_HSHDATATOLIST(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1180 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==17&&memcmp((o_10380_action_name)->mem,(&str[2660] /* "REF_HSHKEYSTOLIST" */)->mem,17*sizeof(strElemType))==0)) { /* line 1181 "../lib/comp/action.s7i" */ o_9308_REF_HSHKEYSTOLIST(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1182 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2661] /* "REF_ISVAR" */)->mem,9*sizeof(strElemType))==0)) { /* line 1183 "../lib/comp/action.s7i" */ o_9312_REF_ISVAR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1184 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2662] /* "REF_ITFTOSCT" */)->mem,12*sizeof(strElemType))==0)) { /* line 1185 "../lib/comp/action.s7i" */ o_9316_REF_ITFTOSCT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1186 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2663] /* "REF_LINE" */)->mem,8*sizeof(strElemType))==0)) { /* line 1187 "../lib/comp/action.s7i" */ o_9320_REF_LINE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1188 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==16&&memcmp((o_10380_action_name)->mem,(&str[2664] /* "REF_LOCAL_CONSTS" */)->mem,16*sizeof(strElemType))==0)) { /* line 1189 "../lib/comp/action.s7i" */ o_9324_REF_LOCAL_CONSTS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1190 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==14&&memcmp((o_10380_action_name)->mem,(&str[2665] /* "REF_LOCAL_VARS" */)->mem,14*sizeof(strElemType))==0)) { /* line 1191 "../lib/comp/action.s7i" */ o_9328_REF_LOCAL_VARS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1192 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2666] /* "REF_NE" */)->mem,6*sizeof(strElemType))==0)) { /* line 1193 "../lib/comp/action.s7i" */ o_9332_REF_NE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1194 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2667] /* "REF_NUM" */)->mem,7*sizeof(strElemType))==0)) { /* line 1195 "../lib/comp/action.s7i" */ o_9336_REF_NUM(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1196 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2668] /* "REF_PARAMS" */)->mem,10*sizeof(strElemType))==0)) { /* line 1197 "../lib/comp/action.s7i" */ o_9340_REF_PARAMS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1198 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2669] /* "REF_RESINI" */)->mem,10*sizeof(strElemType))==0)) { /* line 1199 "../lib/comp/action.s7i" */ o_9344_REF_RESINI(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1200 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2670] /* "REF_RESULT" */)->mem,10*sizeof(strElemType))==0)) { /* line 1201 "../lib/comp/action.s7i" */ o_9348_REF_RESULT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1202 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2671] /* "REF_SCTTOLIST" */)->mem,13*sizeof(strElemType))==0)) { /* line 1203 "../lib/comp/action.s7i" */ o_9352_REF_SCTTOLIST(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1204 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2672] /* "REF_SELECT" */)->mem,10*sizeof(strElemType))==0)) { /* line 1205 "../lib/comp/action.s7i" */ o_9356_REF_SELECT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1206 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==15&&memcmp((o_10380_action_name)->mem,(&str[2673] /* "REF_SETCATEGORY" */)->mem,15*sizeof(strElemType))==0)) { /* line 1207 "../lib/comp/action.s7i" */ o_9361_REF_SETCATEGORY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1208 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2674] /* "REF_SETPARAMS" */)->mem,13*sizeof(strElemType))==0)) { /* line 1209 "../lib/comp/action.s7i" */ o_9365_REF_SETPARAMS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1210 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==11&&memcmp((o_10380_action_name)->mem,(&str[2675] /* "REF_SETTYPE" */)->mem,11*sizeof(strElemType))==0)) { /* line 1211 "../lib/comp/action.s7i" */ o_9369_REF_SETTYPE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1212 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2676] /* "REF_SETVAR" */)->mem,10*sizeof(strElemType))==0)) { /* line 1213 "../lib/comp/action.s7i" */ o_9373_REF_SETVAR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1214 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2677] /* "REF_STR" */)->mem,7*sizeof(strElemType))==0)) { /* line 1215 "../lib/comp/action.s7i" */ o_9377_REF_STR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1216 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2678] /* "REF_TRACE" */)->mem,9*sizeof(strElemType))==0)) { /* line 1217 "../lib/comp/action.s7i" */ o_9381_REF_TRACE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1218 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2679] /* "REF_TYPE" */)->mem,8*sizeof(strElemType))==0)) { /* line 1219 "../lib/comp/action.s7i" */ o_9388_REF_TYPE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1220 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2680] /* "REF_VALUE" */)->mem,9*sizeof(strElemType))==0)) { /* line 1221 "../lib/comp/action.s7i" */ o_9392_REF_VALUE(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 1223 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 1225 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2681] /* "RFL" */)->mem,3*sizeof(strElemType))==0)) { /* line 1226 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2682] /* "RFL_APPEND" */)->mem,10*sizeof(strElemType))==0)) { /* line 1227 "../lib/comp/action.s7i" */ o_9398_RFL_APPEND(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1228 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2683] /* "RFL_CAT" */)->mem,7*sizeof(strElemType))==0)) { /* line 1229 "../lib/comp/action.s7i" */ o_9404_RFL_CAT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1230 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2684] /* "RFL_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 1231 "../lib/comp/action.s7i" */ o_9408_RFL_CPY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1232 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2685] /* "RFL_ELEM" */)->mem,8*sizeof(strElemType))==0)) { /* line 1233 "../lib/comp/action.s7i" */ o_9414_RFL_ELEM(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1234 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==11&&memcmp((o_10380_action_name)->mem,(&str[2686] /* "RFL_ELEMCPY" */)->mem,11*sizeof(strElemType))==0)) { /* line 1235 "../lib/comp/action.s7i" */ o_9418_RFL_ELEMCPY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1236 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2687] /* "RFL_EQ" */)->mem,6*sizeof(strElemType))==0)) { /* line 1237 "../lib/comp/action.s7i" */ o_9425_RFL_EQ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1238 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2688] /* "RFL_FOR" */)->mem,7*sizeof(strElemType))==0)) { /* line 1239 "../lib/comp/action.s7i" */ o_9429_RFL_FOR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1240 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2689] /* "RFL_FOR_UNTIL" */)->mem,13*sizeof(strElemType))==0)) { /* line 1241 "../lib/comp/action.s7i" */ o_9434_RFL_FOR_UNTIL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1242 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2690] /* "RFL_HEAD" */)->mem,8*sizeof(strElemType))==0)) { /* line 1243 "../lib/comp/action.s7i" */ o_9439_RFL_HEAD(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1244 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2691] /* "RFL_IDX" */)->mem,7*sizeof(strElemType))==0)) { /* line 1245 "../lib/comp/action.s7i" */ o_9443_RFL_IDX(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1246 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2692] /* "RFL_INCL" */)->mem,8*sizeof(strElemType))==0)) { /* line 1247 "../lib/comp/action.s7i" */ o_9447_RFL_INCL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1248 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2693] /* "RFL_IPOS" */)->mem,8*sizeof(strElemType))==0)) { /* line 1249 "../lib/comp/action.s7i" */ o_9452_RFL_IPOS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1250 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2694] /* "RFL_LNG" */)->mem,7*sizeof(strElemType))==0)) { /* line 1251 "../lib/comp/action.s7i" */ o_9456_RFL_LNG(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1252 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2695] /* "RFL_MKLIST" */)->mem,10*sizeof(strElemType))==0)) { /* line 1253 "../lib/comp/action.s7i" */ o_9460_RFL_MKLIST(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1254 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2696] /* "RFL_NE" */)->mem,6*sizeof(strElemType))==0)) { /* line 1255 "../lib/comp/action.s7i" */ o_9464_RFL_NE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1256 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2697] /* "RFL_NOT_ELEM" */)->mem,12*sizeof(strElemType))==0)) { /* line 1257 "../lib/comp/action.s7i" */ o_9468_RFL_NOT_ELEM(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1258 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2698] /* "RFL_POS" */)->mem,7*sizeof(strElemType))==0)) { /* line 1259 "../lib/comp/action.s7i" */ o_9472_RFL_POS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1260 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2699] /* "RFL_SETVALUE" */)->mem,12*sizeof(strElemType))==0)) { /* line 1261 "../lib/comp/action.s7i" */ o_9476_RFL_SETVALUE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1262 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2700] /* "RFL_TAIL" */)->mem,8*sizeof(strElemType))==0)) { /* line 1263 "../lib/comp/action.s7i" */ o_9480_RFL_TAIL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1264 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2701] /* "RFL_VALUE" */)->mem,9*sizeof(strElemType))==0)) { /* line 1265 "../lib/comp/action.s7i" */ o_9484_RFL_VALUE(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 1267 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 1269 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2702] /* "SCT" */)->mem,3*sizeof(strElemType))==0)) { /* line 1270 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2703] /* "SCT_ALLOC" */)->mem,9*sizeof(strElemType))==0)) { /* line 1271 "../lib/comp/action.s7i" */ o_9488_SCT_ALLOC(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1272 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2704] /* "SCT_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 1273 "../lib/comp/action.s7i" */ o_9494_SCT_CPY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1274 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2705] /* "SCT_SELECT" */)->mem,10*sizeof(strElemType))==0)) { /* line 1275 "../lib/comp/action.s7i" */ o_9500_SCT_SELECT(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 1277 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 1279 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2706] /* "SET" */)->mem,3*sizeof(strElemType))==0)) { /* line 1280 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2707] /* "SET_ARRLIT" */)->mem,10*sizeof(strElemType))==0)) { /* line 1281 "../lib/comp/action.s7i" */ o_9516_SET_ARRLIT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1282 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==11&&memcmp((o_10380_action_name)->mem,(&str[2708] /* "SET_BASELIT" */)->mem,11*sizeof(strElemType))==0)) { /* line 1283 "../lib/comp/action.s7i" */ o_9520_SET_BASELIT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1284 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2709] /* "SET_CARD" */)->mem,8*sizeof(strElemType))==0)) { /* line 1285 "../lib/comp/action.s7i" */ o_9524_SET_CARD(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1286 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2710] /* "SET_CMP" */)->mem,7*sizeof(strElemType))==0)) { /* line 1287 "../lib/comp/action.s7i" */ o_9528_SET_CMP(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1288 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2711] /* "SET_CONV" */)->mem,8*sizeof(strElemType))==0)) { /* line 1289 "../lib/comp/action.s7i" */ o_9532_SET_CONV(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1290 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2712] /* "SET_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 1291 "../lib/comp/action.s7i" */ o_9536_SET_CPY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1292 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2713] /* "SET_DIFF" */)->mem,8*sizeof(strElemType))==0)) { /* line 1293 "../lib/comp/action.s7i" */ o_9542_SET_DIFF(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1294 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2714] /* "SET_ELEM" */)->mem,8*sizeof(strElemType))==0)) { /* line 1295 "../lib/comp/action.s7i" */ o_9564_SET_ELEM(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1296 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2715] /* "SET_EQ" */)->mem,6*sizeof(strElemType))==0)) { /* line 1297 "../lib/comp/action.s7i" */ o_9574_SET_EQ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1298 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2716] /* "SET_EXCL" */)->mem,8*sizeof(strElemType))==0)) { /* line 1299 "../lib/comp/action.s7i" */ o_9586_SET_EXCL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1300 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2717] /* "SET_GE" */)->mem,6*sizeof(strElemType))==0)) { /* line 1301 "../lib/comp/action.s7i" */ o_9591_SET_GE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1302 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2718] /* "SET_GT" */)->mem,6*sizeof(strElemType))==0)) { /* line 1303 "../lib/comp/action.s7i" */ o_9595_SET_GT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1304 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2719] /* "SET_HASHCODE" */)->mem,12*sizeof(strElemType))==0)) { /* line 1305 "../lib/comp/action.s7i" */ o_9599_SET_HASHCODE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1306 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2720] /* "SET_ICONV" */)->mem,9*sizeof(strElemType))==0)) { /* line 1307 "../lib/comp/action.s7i" */ o_9603_SET_ICONV(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1308 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2721] /* "SET_INCL" */)->mem,8*sizeof(strElemType))==0)) { /* line 1309 "../lib/comp/action.s7i" */ o_9607_SET_INCL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1310 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2722] /* "SET_INTERSECT" */)->mem,13*sizeof(strElemType))==0)) { /* line 1311 "../lib/comp/action.s7i" */ o_9612_SET_INTERSECT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1312 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2723] /* "SET_LE" */)->mem,6*sizeof(strElemType))==0)) { /* line 1313 "../lib/comp/action.s7i" */ o_9617_SET_LE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1314 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2724] /* "SET_LT" */)->mem,6*sizeof(strElemType))==0)) { /* line 1315 "../lib/comp/action.s7i" */ o_9621_SET_LT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1316 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2725] /* "SET_MAX" */)->mem,7*sizeof(strElemType))==0)) { /* line 1317 "../lib/comp/action.s7i" */ o_9625_SET_MAX(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1318 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2726] /* "SET_MIN" */)->mem,7*sizeof(strElemType))==0)) { /* line 1319 "../lib/comp/action.s7i" */ o_9629_SET_MIN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1320 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2727] /* "SET_NE" */)->mem,6*sizeof(strElemType))==0)) { /* line 1321 "../lib/comp/action.s7i" */ o_9633_SET_NE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1322 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2728] /* "SET_NEXT" */)->mem,8*sizeof(strElemType))==0)) { /* line 1323 "../lib/comp/action.s7i" */ o_9637_SET_NEXT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1324 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2729] /* "SET_NOT_ELEM" */)->mem,12*sizeof(strElemType))==0)) { /* line 1325 "../lib/comp/action.s7i" */ o_9641_SET_NOT_ELEM(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1326 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2730] /* "SET_RAND" */)->mem,8*sizeof(strElemType))==0)) { /* line 1327 "../lib/comp/action.s7i" */ o_9645_SET_RAND(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1328 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2731] /* "SET_RANGELIT" */)->mem,12*sizeof(strElemType))==0)) { /* line 1329 "../lib/comp/action.s7i" */ o_9649_SET_RANGELIT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1330 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2732] /* "SET_SCONV" */)->mem,9*sizeof(strElemType))==0)) { /* line 1331 "../lib/comp/action.s7i" */ o_9653_SET_SCONV(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1332 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==11&&memcmp((o_10380_action_name)->mem,(&str[2733] /* "SET_SYMDIFF" */)->mem,11*sizeof(strElemType))==0)) { /* line 1333 "../lib/comp/action.s7i" */ o_9657_SET_SYMDIFF(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1334 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2734] /* "SET_UNION" */)->mem,9*sizeof(strElemType))==0)) { /* line 1335 "../lib/comp/action.s7i" */ o_9661_SET_UNION(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1336 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2735] /* "SET_VALUE" */)->mem,9*sizeof(strElemType))==0)) { /* line 1337 "../lib/comp/action.s7i" */ o_9666_SET_VALUE(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 1339 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 1341 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2736] /* "SOC" */)->mem,3*sizeof(strElemType))==0)) { /* line 1342 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2737] /* "SOC_ACCEPT" */)->mem,10*sizeof(strElemType))==0)) { /* line 1343 "../lib/comp/action.s7i" */ o_9672_SOC_ACCEPT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1344 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==15&&memcmp((o_10380_action_name)->mem,(&str[2738] /* "SOC_ADDR_FAMILY" */)->mem,15*sizeof(strElemType))==0)) { /* line 1345 "../lib/comp/action.s7i" */ o_9676_SOC_ADDR_FAMILY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1346 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==16&&memcmp((o_10380_action_name)->mem,(&str[2739] /* "SOC_ADDR_NUMERIC" */)->mem,16*sizeof(strElemType))==0)) { /* line 1347 "../lib/comp/action.s7i" */ o_9680_SOC_ADDR_NUMERIC(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1348 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==16&&memcmp((o_10380_action_name)->mem,(&str[2740] /* "SOC_ADDR_SERVICE" */)->mem,16*sizeof(strElemType))==0)) { /* line 1349 "../lib/comp/action.s7i" */ o_9684_SOC_ADDR_SERVICE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1350 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2741] /* "SOC_BIND" */)->mem,8*sizeof(strElemType))==0)) { /* line 1351 "../lib/comp/action.s7i" */ o_9688_SOC_BIND(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1352 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2742] /* "SOC_CLOSE" */)->mem,9*sizeof(strElemType))==0)) { /* line 1353 "../lib/comp/action.s7i" */ o_9692_SOC_CLOSE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1354 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==11&&memcmp((o_10380_action_name)->mem,(&str[2743] /* "SOC_CONNECT" */)->mem,11*sizeof(strElemType))==0)) { /* line 1355 "../lib/comp/action.s7i" */ o_9696_SOC_CONNECT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1356 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2744] /* "SOC_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 1357 "../lib/comp/action.s7i" */ o_9700_SOC_CPY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1358 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2745] /* "SOC_EQ" */)->mem,6*sizeof(strElemType))==0)) { /* line 1359 "../lib/comp/action.s7i" */ o_9705_SOC_EQ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1360 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2746] /* "SOC_GETC" */)->mem,8*sizeof(strElemType))==0)) { /* line 1361 "../lib/comp/action.s7i" */ o_9709_SOC_GETC(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1362 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2747] /* "SOC_GETS" */)->mem,8*sizeof(strElemType))==0)) { /* line 1363 "../lib/comp/action.s7i" */ o_9713_SOC_GETS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1364 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2748] /* "SOC_GET_ADDR" */)->mem,12*sizeof(strElemType))==0)) { /* line 1365 "../lib/comp/action.s7i" */ o_9717_SOC_GET_ADDR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1366 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==16&&memcmp((o_10380_action_name)->mem,(&str[2749] /* "SOC_GET_HOSTNAME" */)->mem,16*sizeof(strElemType))==0)) { /* line 1367 "../lib/comp/action.s7i" */ o_9721_SOC_GET_HOSTNAME(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1368 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2750] /* "SOC_HAS_NEXT" */)->mem,12*sizeof(strElemType))==0)) { /* line 1369 "../lib/comp/action.s7i" */ o_9725_SOC_HAS_NEXT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1370 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2751] /* "SOC_INET_ADDR" */)->mem,13*sizeof(strElemType))==0)) { /* line 1371 "../lib/comp/action.s7i" */ o_9729_SOC_INET_ADDR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1372 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==19&&memcmp((o_10380_action_name)->mem,(&str[2752] /* "SOC_INET_LOCAL_ADDR" */)->mem,19*sizeof(strElemType))==0)) { /* line 1373 "../lib/comp/action.s7i" */ o_9733_SOC_INET_LOCAL_ADDR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1374 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==18&&memcmp((o_10380_action_name)->mem,(&str[2753] /* "SOC_INET_SERV_ADDR" */)->mem,18*sizeof(strElemType))==0)) { /* line 1375 "../lib/comp/action.s7i" */ o_9737_SOC_INET_SERV_ADDR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1376 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==15&&memcmp((o_10380_action_name)->mem,(&str[2754] /* "SOC_INPUT_READY" */)->mem,15*sizeof(strElemType))==0)) { /* line 1377 "../lib/comp/action.s7i" */ o_9741_SOC_INPUT_READY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1378 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2755] /* "SOC_LINE_READ" */)->mem,13*sizeof(strElemType))==0)) { /* line 1379 "../lib/comp/action.s7i" */ o_9745_SOC_LINE_READ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1380 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2756] /* "SOC_LISTEN" */)->mem,10*sizeof(strElemType))==0)) { /* line 1381 "../lib/comp/action.s7i" */ o_9749_SOC_LISTEN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1382 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2757] /* "SOC_NE" */)->mem,6*sizeof(strElemType))==0)) { /* line 1383 "../lib/comp/action.s7i" */ o_9753_SOC_NE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1384 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2758] /* "SOC_RECV" */)->mem,8*sizeof(strElemType))==0)) { /* line 1385 "../lib/comp/action.s7i" */ o_9757_SOC_RECV(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1386 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2759] /* "SOC_SEND" */)->mem,8*sizeof(strElemType))==0)) { /* line 1387 "../lib/comp/action.s7i" */ o_9761_SOC_SEND(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1388 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==16&&memcmp((o_10380_action_name)->mem,(&str[2760] /* "SOC_SET_OPT_BOOL" */)->mem,16*sizeof(strElemType))==0)) { /* line 1389 "../lib/comp/action.s7i" */ o_9765_SOC_SET_OPT_BOOL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1390 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2761] /* "SOC_SOCKET" */)->mem,10*sizeof(strElemType))==0)) { /* line 1391 "../lib/comp/action.s7i" */ o_9769_SOC_SOCKET(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1392 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2762] /* "SOC_WORD_READ" */)->mem,13*sizeof(strElemType))==0)) { /* line 1393 "../lib/comp/action.s7i" */ o_9773_SOC_WORD_READ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1394 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2763] /* "SOC_WRITE" */)->mem,9*sizeof(strElemType))==0)) { /* line 1395 "../lib/comp/action.s7i" */ o_9777_SOC_WRITE(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 1397 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 1399 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2764] /* "SQL" */)->mem,3*sizeof(strElemType))==0)) { /* line 1400 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==15&&memcmp((o_10380_action_name)->mem,(&str[2765] /* "SQL_BIND_BIGINT" */)->mem,15*sizeof(strElemType))==0)) { /* line 1401 "../lib/comp/action.s7i" */ o_9783_SQL_BIND_BIGINT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1402 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==15&&memcmp((o_10380_action_name)->mem,(&str[2766] /* "SQL_BIND_BIGRAT" */)->mem,15*sizeof(strElemType))==0)) { /* line 1403 "../lib/comp/action.s7i" */ o_9788_SQL_BIND_BIGRAT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1404 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2767] /* "SQL_BIND_BOOL" */)->mem,13*sizeof(strElemType))==0)) { /* line 1405 "../lib/comp/action.s7i" */ o_9793_SQL_BIND_BOOL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1406 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==14&&memcmp((o_10380_action_name)->mem,(&str[2768] /* "SQL_BIND_BSTRI" */)->mem,14*sizeof(strElemType))==0)) { /* line 1407 "../lib/comp/action.s7i" */ o_9797_SQL_BIND_BSTRI(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1408 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==17&&memcmp((o_10380_action_name)->mem,(&str[2769] /* "SQL_BIND_DURATION" */)->mem,17*sizeof(strElemType))==0)) { /* line 1409 "../lib/comp/action.s7i" */ o_9802_SQL_BIND_DURATION(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1410 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==14&&memcmp((o_10380_action_name)->mem,(&str[2770] /* "SQL_BIND_FLOAT" */)->mem,14*sizeof(strElemType))==0)) { /* line 1411 "../lib/comp/action.s7i" */ o_9806_SQL_BIND_FLOAT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1412 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2771] /* "SQL_BIND_INT" */)->mem,12*sizeof(strElemType))==0)) { /* line 1413 "../lib/comp/action.s7i" */ o_9810_SQL_BIND_INT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1414 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2772] /* "SQL_BIND_NULL" */)->mem,13*sizeof(strElemType))==0)) { /* line 1415 "../lib/comp/action.s7i" */ o_9814_SQL_BIND_NULL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1416 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2773] /* "SQL_BIND_STRI" */)->mem,13*sizeof(strElemType))==0)) { /* line 1417 "../lib/comp/action.s7i" */ o_9818_SQL_BIND_STRI(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1418 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2774] /* "SQL_BIND_TIME" */)->mem,13*sizeof(strElemType))==0)) { /* line 1419 "../lib/comp/action.s7i" */ o_9823_SQL_BIND_TIME(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1420 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2775] /* "SQL_CLOSE" */)->mem,9*sizeof(strElemType))==0)) { /* line 1421 "../lib/comp/action.s7i" */ o_9827_SQL_CLOSE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1422 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==17&&memcmp((o_10380_action_name)->mem,(&str[2776] /* "SQL_COLUMN_BIGINT" */)->mem,17*sizeof(strElemType))==0)) { /* line 1423 "../lib/comp/action.s7i" */ o_9831_SQL_COLUMN_BIGINT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1424 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==17&&memcmp((o_10380_action_name)->mem,(&str[2777] /* "SQL_COLUMN_BIGRAT" */)->mem,17*sizeof(strElemType))==0)) { /* line 1425 "../lib/comp/action.s7i" */ o_9835_SQL_COLUMN_BIGRAT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1426 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==15&&memcmp((o_10380_action_name)->mem,(&str[2778] /* "SQL_COLUMN_BOOL" */)->mem,15*sizeof(strElemType))==0)) { /* line 1427 "../lib/comp/action.s7i" */ o_9839_SQL_COLUMN_BOOL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1428 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==16&&memcmp((o_10380_action_name)->mem,(&str[2779] /* "SQL_COLUMN_BSTRI" */)->mem,16*sizeof(strElemType))==0)) { /* line 1429 "../lib/comp/action.s7i" */ o_9843_SQL_COLUMN_BSTRI(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1430 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==19&&memcmp((o_10380_action_name)->mem,(&str[2780] /* "SQL_COLUMN_DURATION" */)->mem,19*sizeof(strElemType))==0)) { /* line 1431 "../lib/comp/action.s7i" */ o_9847_SQL_COLUMN_DURATION(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1432 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==16&&memcmp((o_10380_action_name)->mem,(&str[2781] /* "SQL_COLUMN_FLOAT" */)->mem,16*sizeof(strElemType))==0)) { /* line 1433 "../lib/comp/action.s7i" */ o_9851_SQL_COLUMN_FLOAT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1434 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==14&&memcmp((o_10380_action_name)->mem,(&str[2782] /* "SQL_COLUMN_INT" */)->mem,14*sizeof(strElemType))==0)) { /* line 1435 "../lib/comp/action.s7i" */ o_9855_SQL_COLUMN_INT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1436 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==15&&memcmp((o_10380_action_name)->mem,(&str[2783] /* "SQL_COLUMN_STRI" */)->mem,15*sizeof(strElemType))==0)) { /* line 1437 "../lib/comp/action.s7i" */ o_9859_SQL_COLUMN_STRI(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1438 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==15&&memcmp((o_10380_action_name)->mem,(&str[2784] /* "SQL_COLUMN_TIME" */)->mem,15*sizeof(strElemType))==0)) { /* line 1439 "../lib/comp/action.s7i" */ o_9863_SQL_COLUMN_TIME(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1440 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2785] /* "SQL_COMMIT" */)->mem,10*sizeof(strElemType))==0)) { /* line 1441 "../lib/comp/action.s7i" */ o_9867_SQL_COMMIT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1442 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2786] /* "SQL_CPY_DB" */)->mem,10*sizeof(strElemType))==0)) { /* line 1443 "../lib/comp/action.s7i" */ o_9871_SQL_CPY_DB(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1444 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2787] /* "SQL_CPY_STMT" */)->mem,12*sizeof(strElemType))==0)) { /* line 1445 "../lib/comp/action.s7i" */ o_9877_SQL_CPY_STMT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1446 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==11&&memcmp((o_10380_action_name)->mem,(&str[2788] /* "SQL_EXECUTE" */)->mem,11*sizeof(strElemType))==0)) { /* line 1447 "../lib/comp/action.s7i" */ o_9883_SQL_EXECUTE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1448 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2789] /* "SQL_FETCH" */)->mem,9*sizeof(strElemType))==0)) { /* line 1449 "../lib/comp/action.s7i" */ o_9887_SQL_FETCH(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1450 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==11&&memcmp((o_10380_action_name)->mem,(&str[2790] /* "SQL_IS_NULL" */)->mem,11*sizeof(strElemType))==0)) { /* line 1451 "../lib/comp/action.s7i" */ o_9891_SQL_IS_NULL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1452 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2791] /* "SQL_OPEN" */)->mem,8*sizeof(strElemType))==0)) { /* line 1453 "../lib/comp/action.s7i" */ o_9895_SQL_OPEN(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1454 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==11&&memcmp((o_10380_action_name)->mem,(&str[2792] /* "SQL_PREPARE" */)->mem,11*sizeof(strElemType))==0)) { /* line 1455 "../lib/comp/action.s7i" */ o_9899_SQL_PREPARE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1456 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==21&&memcmp((o_10380_action_name)->mem,(&str[2793] /* "SQL_STMT_COLUMN_COUNT" */)->mem,21*sizeof(strElemType))==0)) { /* line 1457 "../lib/comp/action.s7i" */ o_9903_SQL_STMT_COLUMN_COUNT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1458 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==20&&memcmp((o_10380_action_name)->mem,(&str[2794] /* "SQL_STMT_COLUMN_NAME" */)->mem,20*sizeof(strElemType))==0)) { /* line 1459 "../lib/comp/action.s7i" */ o_9907_SQL_STMT_COLUMN_NAME(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 1461 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 1463 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2795] /* "STR" */)->mem,3*sizeof(strElemType))==0)) { /* line 1464 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2796] /* "STR_APPEND" */)->mem,10*sizeof(strElemType))==0)) { /* line 1465 "../lib/comp/action.s7i" */ o_9927_STR_APPEND(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1466 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[1950] /* "STR_CAT" */)->mem,7*sizeof(strElemType))==0)) { /* line 1467 "../lib/comp/action.s7i" */ o_9934_STR_CAT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1468 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2797] /* "STR_CHIPOS" */)->mem,10*sizeof(strElemType))==0)) { /* line 1469 "../lib/comp/action.s7i" */ o_9948_STR_CHIPOS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1470 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2798] /* "STR_CHPOS" */)->mem,9*sizeof(strElemType))==0)) { /* line 1471 "../lib/comp/action.s7i" */ o_9952_STR_CHPOS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1472 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==11&&memcmp((o_10380_action_name)->mem,(&str[2799] /* "STR_CHSPLIT" */)->mem,11*sizeof(strElemType))==0)) { /* line 1473 "../lib/comp/action.s7i" */ o_9956_STR_CHSPLIT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1474 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2800] /* "STR_CLIT" */)->mem,8*sizeof(strElemType))==0)) { /* line 1475 "../lib/comp/action.s7i" */ o_9960_STR_CLIT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1476 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2801] /* "STR_CMP" */)->mem,7*sizeof(strElemType))==0)) { /* line 1477 "../lib/comp/action.s7i" */ o_9964_STR_CMP(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1478 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2802] /* "STR_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 1479 "../lib/comp/action.s7i" */ o_9968_STR_CPY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1480 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==11&&memcmp((o_10380_action_name)->mem,(&str[2803] /* "STR_ELEMCPY" */)->mem,11*sizeof(strElemType))==0)) { /* line 1481 "../lib/comp/action.s7i" */ o_9998_STR_ELEMCPY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1482 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2804] /* "STR_EQ" */)->mem,6*sizeof(strElemType))==0)) { /* line 1483 "../lib/comp/action.s7i" */ o_10012_STR_EQ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1484 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2805] /* "STR_GE" */)->mem,6*sizeof(strElemType))==0)) { /* line 1485 "../lib/comp/action.s7i" */ o_10019_STR_GE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1486 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2806] /* "STR_GT" */)->mem,6*sizeof(strElemType))==0)) { /* line 1487 "../lib/comp/action.s7i" */ o_10023_STR_GT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1488 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2807] /* "STR_HASHCODE" */)->mem,12*sizeof(strElemType))==0)) { /* line 1489 "../lib/comp/action.s7i" */ o_10027_STR_HASHCODE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1490 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2808] /* "STR_HEAD" */)->mem,8*sizeof(strElemType))==0)) { /* line 1491 "../lib/comp/action.s7i" */ o_10052_STR_HEAD(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1492 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2809] /* "STR_IDX" */)->mem,7*sizeof(strElemType))==0)) { /* line 1493 "../lib/comp/action.s7i" */ o_10070_STR_IDX(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1494 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2810] /* "STR_IPOS" */)->mem,8*sizeof(strElemType))==0)) { /* line 1495 "../lib/comp/action.s7i" */ o_10077_STR_IPOS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1496 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2811] /* "STR_LE" */)->mem,6*sizeof(strElemType))==0)) { /* line 1497 "../lib/comp/action.s7i" */ o_10082_STR_LE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1498 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2812] /* "STR_LIT" */)->mem,7*sizeof(strElemType))==0)) { /* line 1499 "../lib/comp/action.s7i" */ o_10086_STR_LIT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1500 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2813] /* "STR_LNG" */)->mem,7*sizeof(strElemType))==0)) { /* line 1501 "../lib/comp/action.s7i" */ o_10090_STR_LNG(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1502 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2814] /* "STR_LOW" */)->mem,7*sizeof(strElemType))==0)) { /* line 1503 "../lib/comp/action.s7i" */ o_10096_STR_LOW(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1504 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2815] /* "STR_LPAD" */)->mem,8*sizeof(strElemType))==0)) { /* line 1505 "../lib/comp/action.s7i" */ o_10101_STR_LPAD(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1506 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2816] /* "STR_LPAD0" */)->mem,9*sizeof(strElemType))==0)) { /* line 1507 "../lib/comp/action.s7i" */ o_10106_STR_LPAD0(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1508 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2817] /* "STR_LT" */)->mem,6*sizeof(strElemType))==0)) { /* line 1509 "../lib/comp/action.s7i" */ o_10111_STR_LT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1510 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2818] /* "STR_LTRIM" */)->mem,9*sizeof(strElemType))==0)) { /* line 1511 "../lib/comp/action.s7i" */ o_10115_STR_LTRIM(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1512 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2819] /* "STR_MULT" */)->mem,8*sizeof(strElemType))==0)) { /* line 1513 "../lib/comp/action.s7i" */ o_10124_STR_MULT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1514 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2820] /* "STR_NE" */)->mem,6*sizeof(strElemType))==0)) { /* line 1515 "../lib/comp/action.s7i" */ o_10135_STR_NE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1516 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2821] /* "STR_POS" */)->mem,7*sizeof(strElemType))==0)) { /* line 1517 "../lib/comp/action.s7i" */ o_10142_STR_POS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1518 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2822] /* "STR_POSCPY" */)->mem,10*sizeof(strElemType))==0)) { /* line 1519 "../lib/comp/action.s7i" */ o_10155_STR_POSCPY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1520 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2823] /* "STR_PUSH" */)->mem,8*sizeof(strElemType))==0)) { /* line 1521 "../lib/comp/action.s7i" */ o_10169_STR_PUSH(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1522 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2824] /* "STR_RANGE" */)->mem,9*sizeof(strElemType))==0)) { /* line 1523 "../lib/comp/action.s7i" */ o_10174_STR_RANGE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1524 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==11&&memcmp((o_10380_action_name)->mem,(&str[2825] /* "STR_RCHIPOS" */)->mem,11*sizeof(strElemType))==0)) { /* line 1525 "../lib/comp/action.s7i" */ o_10183_STR_RCHIPOS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1526 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2826] /* "STR_RCHPOS" */)->mem,10*sizeof(strElemType))==0)) { /* line 1527 "../lib/comp/action.s7i" */ o_10187_STR_RCHPOS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1528 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2827] /* "STR_REPL" */)->mem,8*sizeof(strElemType))==0)) { /* line 1529 "../lib/comp/action.s7i" */ o_10191_STR_REPL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1530 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2828] /* "STR_RIPOS" */)->mem,9*sizeof(strElemType))==0)) { /* line 1531 "../lib/comp/action.s7i" */ o_10195_STR_RIPOS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1532 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2829] /* "STR_RPAD" */)->mem,8*sizeof(strElemType))==0)) { /* line 1533 "../lib/comp/action.s7i" */ o_10200_STR_RPAD(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1534 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2830] /* "STR_RPOS" */)->mem,8*sizeof(strElemType))==0)) { /* line 1535 "../lib/comp/action.s7i" */ o_10204_STR_RPOS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1536 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2831] /* "STR_RTRIM" */)->mem,9*sizeof(strElemType))==0)) { /* line 1537 "../lib/comp/action.s7i" */ o_10209_STR_RTRIM(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1538 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2832] /* "STR_SPLIT" */)->mem,9*sizeof(strElemType))==0)) { /* line 1539 "../lib/comp/action.s7i" */ o_10213_STR_SPLIT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1540 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2833] /* "STR_STR" */)->mem,7*sizeof(strElemType))==0)) { /* line 1541 "../lib/comp/action.s7i" */ o_10218_STR_STR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1542 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2834] /* "STR_SUBSTR" */)->mem,10*sizeof(strElemType))==0)) { /* line 1543 "../lib/comp/action.s7i" */ o_10229_STR_SUBSTR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1544 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2835] /* "STR_TAIL" */)->mem,8*sizeof(strElemType))==0)) { /* line 1545 "../lib/comp/action.s7i" */ o_10238_STR_TAIL(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1546 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2836] /* "STR_TOUTF8" */)->mem,10*sizeof(strElemType))==0)) { /* line 1547 "../lib/comp/action.s7i" */ o_10244_STR_TOUTF8(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1548 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2837] /* "STR_TRIM" */)->mem,8*sizeof(strElemType))==0)) { /* line 1549 "../lib/comp/action.s7i" */ o_10248_STR_TRIM(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1550 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2838] /* "STR_UP" */)->mem,6*sizeof(strElemType))==0)) { /* line 1551 "../lib/comp/action.s7i" */ o_10252_STR_UP(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1552 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==14&&memcmp((o_10380_action_name)->mem,(&str[2839] /* "STR_UTF8TOSTRI" */)->mem,14*sizeof(strElemType))==0)) { /* line 1553 "../lib/comp/action.s7i" */ o_10257_STR_UTF8TOSTRI(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1554 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2840] /* "STR_VALUE" */)->mem,9*sizeof(strElemType))==0)) { /* line 1555 "../lib/comp/action.s7i" */ o_10261_STR_VALUE(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 1557 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 1559 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2841] /* "TIM" */)->mem,3*sizeof(strElemType))==0)) { /* line 1560 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2842] /* "TIM_AWAIT" */)->mem,9*sizeof(strElemType))==0)) { /* line 1561 "../lib/comp/action.s7i" */ o_10267_TIM_AWAIT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1562 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==18&&memcmp((o_10380_action_name)->mem,(&str[2843] /* "TIM_FROM_TIMESTAMP" */)->mem,18*sizeof(strElemType))==0)) { /* line 1563 "../lib/comp/action.s7i" */ o_10271_TIM_FROM_TIMESTAMP(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1564 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2844] /* "TIM_NOW" */)->mem,7*sizeof(strElemType))==0)) { /* line 1565 "../lib/comp/action.s7i" */ o_10275_TIM_NOW(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1566 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==16&&memcmp((o_10380_action_name)->mem,(&str[2845] /* "TIM_SET_LOCAL_TZ" */)->mem,16*sizeof(strElemType))==0)) { /* line 1567 "../lib/comp/action.s7i" */ o_10279_TIM_SET_LOCAL_TZ(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 1569 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 1571 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2846] /* "TYP" */)->mem,3*sizeof(strElemType))==0)) { /* line 1572 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2847] /* "TYP_CMP" */)->mem,7*sizeof(strElemType))==0)) { /* line 1573 "../lib/comp/action.s7i" */ o_10285_TYP_CMP(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1574 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2848] /* "TYP_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 1575 "../lib/comp/action.s7i" */ o_10289_TYP_CPY(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1576 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2849] /* "TYP_EQ" */)->mem,6*sizeof(strElemType))==0)) { /* line 1577 "../lib/comp/action.s7i" */ o_10294_TYP_EQ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1578 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2850] /* "TYP_FUNC" */)->mem,8*sizeof(strElemType))==0)) { /* line 1579 "../lib/comp/action.s7i" */ o_10298_TYP_FUNC(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1580 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2851] /* "TYP_HASHCODE" */)->mem,12*sizeof(strElemType))==0)) { /* line 1581 "../lib/comp/action.s7i" */ o_10302_TYP_HASHCODE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1582 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2852] /* "TYP_ISDERIVED" */)->mem,13*sizeof(strElemType))==0)) { /* line 1583 "../lib/comp/action.s7i" */ o_10306_TYP_ISDERIVED(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1584 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2853] /* "TYP_ISFUNC" */)->mem,10*sizeof(strElemType))==0)) { /* line 1585 "../lib/comp/action.s7i" */ o_10310_TYP_ISFUNC(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1586 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2854] /* "TYP_ISVARFUNC" */)->mem,13*sizeof(strElemType))==0)) { /* line 1587 "../lib/comp/action.s7i" */ o_10314_TYP_ISVARFUNC(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1588 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==12&&memcmp((o_10380_action_name)->mem,(&str[2855] /* "TYP_MATCHOBJ" */)->mem,12*sizeof(strElemType))==0)) { /* line 1589 "../lib/comp/action.s7i" */ o_10318_TYP_MATCHOBJ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1590 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2856] /* "TYP_META" */)->mem,8*sizeof(strElemType))==0)) { /* line 1591 "../lib/comp/action.s7i" */ o_10322_TYP_META(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1592 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==6&&memcmp((o_10380_action_name)->mem,(&str[2857] /* "TYP_NE" */)->mem,6*sizeof(strElemType))==0)) { /* line 1593 "../lib/comp/action.s7i" */ o_10326_TYP_NE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1594 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2858] /* "TYP_NUM" */)->mem,7*sizeof(strElemType))==0)) { /* line 1595 "../lib/comp/action.s7i" */ o_10330_TYP_NUM(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1596 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==10&&memcmp((o_10380_action_name)->mem,(&str[2859] /* "TYP_RESULT" */)->mem,10*sizeof(strElemType))==0)) { /* line 1597 "../lib/comp/action.s7i" */ o_10334_TYP_RESULT(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1598 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==7&&memcmp((o_10380_action_name)->mem,(&str[2860] /* "TYP_STR" */)->mem,7*sizeof(strElemType))==0)) { /* line 1599 "../lib/comp/action.s7i" */ o_10338_TYP_STR(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1600 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2861] /* "TYP_VALUE" */)->mem,9*sizeof(strElemType))==0)) { /* line 1601 "../lib/comp/action.s7i" */ o_10342_TYP_VALUE(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1602 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==11&&memcmp((o_10380_action_name)->mem,(&str[2862] /* "TYP_VARCONV" */)->mem,11*sizeof(strElemType))==0)) { /* line 1603 "../lib/comp/action.s7i" */ o_10346_TYP_VARCONV(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 1605 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else /* line 1607 "../lib/comp/action.s7i" */ if (((o_10381_action_prefix)->size==3&&memcmp((o_10381_action_prefix)->mem,(&str[2863] /* "UT8" */)->mem,3*sizeof(strElemType))==0)) { /* line 1608 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2864] /* "UT8_GETC" */)->mem,8*sizeof(strElemType))==0)) { /* line 1609 "../lib/comp/action.s7i" */ o_10352_UT8_GETC(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1610 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2865] /* "UT8_GETS" */)->mem,8*sizeof(strElemType))==0)) { /* line 1611 "../lib/comp/action.s7i" */ o_10356_UT8_GETS(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1612 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2866] /* "UT8_LINE_READ" */)->mem,13*sizeof(strElemType))==0)) { /* line 1613 "../lib/comp/action.s7i" */ o_10360_UT8_LINE_READ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1614 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==8&&memcmp((o_10380_action_name)->mem,(&str[2867] /* "UT8_SEEK" */)->mem,8*sizeof(strElemType))==0)) { /* line 1615 "../lib/comp/action.s7i" */ o_10364_UT8_SEEK(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1616 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==13&&memcmp((o_10380_action_name)->mem,(&str[2868] /* "UT8_WORD_READ" */)->mem,13*sizeof(strElemType))==0)) { /* line 1617 "../lib/comp/action.s7i" */ o_10368_UT8_WORD_READ(o_6544_function, o_6545_params, o_6546_c_expr); } else /* line 1618 "../lib/comp/action.s7i" */ if (((o_10380_action_name)->size==9&&memcmp((o_10380_action_name)->mem,(&str[2869] /* "UT8_WRITE" */)->mem,9*sizeof(strElemType))==0)) { /* line 1619 "../lib/comp/action.s7i" */ o_10372_UT8_WRITE(o_6544_function, o_6545_params, o_6546_c_expr); } else { /* line 1621 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } } else { /* line 1624 "../lib/comp/action.s7i" */ o_10376_process_unknown_action(o_10380_action_name, o_6546_c_expr); } /* line 87 "../lib/comp/action.s7i" */ strDestr(o_10380_action_name); /* line 87 "../lib/comp/action.s7i" */ strDestr(o_10381_action_prefix); } /* line 1 "no_file" */ /* 4624 */ const boolType/*t_13_boolean*/ o_10382_SHOW_STATISTIC=0/*FALSE*/; /* 4625 */ typedef genericType t_204/*t_204_option_hash*/; /* 4626 */ /* 4627 */ /* 4628 */ /* 4629 */ /* 4630 */ /* objRefType/t_19_reference */ intfunctype o_10383/*.*/=(intfunctype)(&strCreateGeneric); /* 4631 */ /* objRefType/t_19_reference */ intfunctype o_10384/*.*/=(intfunctype)(&strDestrGeneric); /* 4632 */ /* objRefType/t_19_reference */ intfunctype o_10385/*.*/=(intfunctype)(&strCpyGeneric); /* 4633 */ /* objRefType/t_19_reference */ intfunctype o_10386/*.*/=(intfunctype)(&strCmpGeneric); /* 4634 */ /* objRefType/t_19_reference */ intfunctype o_10387/*.*/=(intfunctype)(&strCreateGeneric); /* 4635 */ /* objRefType/t_19_reference */ intfunctype o_10388/*.*/=(intfunctype)(&strDestrGeneric); /* 4636 */ /* objRefType/t_19_reference */ intfunctype o_10389/*.*/=(intfunctype)(&strCpyGeneric); /* 4637 */ /* 4638 */ /* 4639 */ /* 4640 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10390/*::=*/ (const const_hashType/*t_204_option_hash*/ o_10391_dest, const const_hashType/*t_204_option_hash*/ o_10392_source) { /* hshCreate implemented with create_204 */ } /* line 1 "no_file" */ /* 4641 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10393_destroy (const const_hashType/*t_204_option_hash*/ o_10394_oldHash) { /* hshDestr implemented with destr_204 */ } /* line 1 "no_file" */ /* 4642 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10395/*:=*/ (hashType/*t_204_option_hash*/ *const o_10396_dest, const const_hashType/*t_204_option_hash*/ o_10397_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_10396_dest), o_10397_source, (createFuncType)(o_10383/*.*/), (destrFuncType)(o_10384/*.*/), (createFuncType)(o_10387/*.*/), (destrFuncType)(o_10388/*.*/)); } /* line 1 "no_file" */ /* 4643 */ hashType/*t_204_option_hash*/ o_10398/*.*/; /* 4644 */ hashType/*t_204_option_hash*/ o_10399/*.*/; /* 4645 */ /* line 149 "../lib/hash.s7i" */ static striType/*t_15_string*/ o_10400/*[*/ (const const_hashType/*t_204_option_hash*/ o_10401_aHashMap, const const_striType/*t_15_string*/ o_10402_aKey) { /* line 150 "../lib/hash.s7i" */ return (striType/*t_15_string*/)((/*ref_to_value*/ (striType/*t_15_string*/)(hshIdx(o_10401_aHashMap, (genericType)(o_10402_aKey), ((o_10402_aKey)->size==0 ? 0 : ((o_10402_aKey)->mem[0]<<5 ^ (o_10402_aKey)->mem[(o_10402_aKey)->size>>1]<<3 ^ (o_10402_aKey)->mem[(o_10402_aKey)->size-1]<<1 ^ (o_10402_aKey)->size)), (compareType)(o_10386/*.*/))))); } /* line 1 "no_file" */ /* 4646 */ /* line 152 "../lib/hash.s7i" */ static striType/*t_15_string*/ /*varfunc*/ *o_10403/*[*/ (hashType/*t_204_option_hash*/ *const o_10404_aHashMap, const const_striType/*t_15_string*/ o_10405_aKey) { /* line 153 "../lib/hash.s7i" */ return (striType/*t_15_string*/ *)(&(hshIdxAddr(*o_10404_aHashMap, (genericType)(o_10405_aKey), ((o_10405_aKey)->size==0 ? 0 : ((o_10405_aKey)->mem[0]<<5 ^ (o_10405_aKey)->mem[(o_10405_aKey)->size>>1]<<3 ^ (o_10405_aKey)->mem[(o_10405_aKey)->size-1]<<1 ^ (o_10405_aKey)->size)), (compareType)(o_10386/*.*/))->value.striValue)); } /* line 1 "no_file" */ /* 4647 */ /* line 161 "../lib/hash.s7i" */ static striType/*t_15_string*/ o_10406/*[*/ (const const_hashType/*t_204_option_hash*/ o_10407_aHashMap, const const_striType/*t_15_string*/ o_10408_aKey, const const_striType/*t_15_string*/ value_o_10409_defaultValue) { /* line 162 "../lib/hash.s7i" */ striType/*t_15_string*/ result; /* line 162 "../lib/hash.s7i" */ const_striType/*t_15_string*/ o_10409_defaultValue; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ o_10409_defaultValue=strCreate(value_o_10409_defaultValue); /* line 162 "../lib/hash.s7i" */ result=(striType/*t_15_string*/)((/*ref_to_value*/ (addr_1=hshIdxAddr2(o_10407_aHashMap, (genericType)(o_10408_aKey), ((o_10408_aKey)->size==0 ? 0 : ((o_10408_aKey)->mem[0]<<5 ^ (o_10408_aKey)->mem[(o_10408_aKey)->size>>1]<<3 ^ (o_10408_aKey)->mem[(o_10408_aKey)->size-1]<<1 ^ (o_10408_aKey)->size)), (compareType)(o_10386/*.*/)),addr_1!=NULL?addr_1->value.striValue:(o_10409_defaultValue)))); /* line 162 "../lib/hash.s7i" */ strDestr(o_10409_defaultValue); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 4648 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_10410_in (const const_striType/*t_15_string*/ o_10411_aKey, const const_hashType/*t_204_option_hash*/ o_10412_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_10412_aHashMap, (genericType)(o_10411_aKey), ((o_10411_aKey)->size==0 ? 0 : ((o_10411_aKey)->mem[0]<<5 ^ (o_10411_aKey)->mem[(o_10411_aKey)->size>>1]<<3 ^ (o_10411_aKey)->mem[(o_10411_aKey)->size-1]<<1 ^ (o_10411_aKey)->size)), (compareType)(o_10386/*.*/)))); } /* line 1 "no_file" */ /* 4649 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_10413_not (const const_striType/*t_15_string*/ o_10414_aKey, const const_hashType/*t_204_option_hash*/ o_10415_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_10415_aHashMap, (genericType)(o_10414_aKey), ((o_10414_aKey)->size==0 ? 0 : ((o_10414_aKey)->mem[0]<<5 ^ (o_10414_aKey)->mem[(o_10414_aKey)->size>>1]<<3 ^ (o_10414_aKey)->mem[(o_10414_aKey)->size-1]<<1 ^ (o_10414_aKey)->size)), (compareType)(o_10386/*.*/))))); } /* line 1 "no_file" */ /* 4650 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10416_incl (hashType/*t_204_option_hash*/ *const o_10417_aHashMap, const const_striType/*t_15_string*/ o_10418_aKey, const const_striType/*t_15_string*/ value_o_10419_anElem) { /* line 189 "../lib/hash.s7i" */ const_striType/*t_15_string*/ o_10419_anElem; /* line 189 "../lib/hash.s7i" */ o_10419_anElem=strCreate(value_o_10419_anElem); /* line 191 "../lib/hash.s7i" */ hshIncl(*o_10417_aHashMap, (genericType)(o_10418_aKey), (genericType)(o_10419_anElem), ((o_10418_aKey)->size==0 ? 0 : ((o_10418_aKey)->mem[0]<<5 ^ (o_10418_aKey)->mem[(o_10418_aKey)->size>>1]<<3 ^ (o_10418_aKey)->mem[(o_10418_aKey)->size-1]<<1 ^ (o_10418_aKey)->size)), (compareType)(o_10386/*.*/), (createFuncType)(o_10383/*.*/), (createFuncType)(o_10387/*.*/), (copyFuncType)(o_10389/*.*/)); /* line 189 "../lib/hash.s7i" */ strDestr(o_10419_anElem); } /* line 1 "no_file" */ /* 4651 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10420_excl (hashType/*t_204_option_hash*/ *const o_10421_aHashMap, const const_striType/*t_15_string*/ o_10422_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_10421_aHashMap, (genericType)(o_10422_aKey), ((o_10422_aKey)->size==0 ? 0 : ((o_10422_aKey)->mem[0]<<5 ^ (o_10422_aKey)->mem[(o_10422_aKey)->size>>1]<<3 ^ (o_10422_aKey)->mem[(o_10422_aKey)->size-1]<<1 ^ (o_10422_aKey)->size)), (compareType)(o_10386/*.*/), (destrFuncType)(o_10384/*.*/), (destrFuncType)(o_10388/*.*/)); } /* line 1 "no_file" */ /* 4652 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10423/*@:=*/ (hashType/*t_204_option_hash*/ *const o_10424_aHashMap, const const_striType/*t_15_string*/ o_10425_aKey, const const_striType/*t_15_string*/ value_o_10426_anElem) { /* line 210 "../lib/hash.s7i" */ const_striType/*t_15_string*/ o_10426_anElem; /* line 210 "../lib/hash.s7i" */ o_10426_anElem=strCreate(value_o_10426_anElem); /* line 212 "../lib/hash.s7i" */ hshIncl(*o_10424_aHashMap, (genericType)(o_10425_aKey), (genericType)(o_10426_anElem), ((o_10425_aKey)->size==0 ? 0 : ((o_10425_aKey)->mem[0]<<5 ^ (o_10425_aKey)->mem[(o_10425_aKey)->size>>1]<<3 ^ (o_10425_aKey)->mem[(o_10425_aKey)->size-1]<<1 ^ (o_10425_aKey)->size)), (compareType)(o_10386/*.*/), (createFuncType)(o_10383/*.*/), (createFuncType)(o_10387/*.*/), (copyFuncType)(o_10389/*.*/)); /* line 210 "../lib/hash.s7i" */ strDestr(o_10426_anElem); } /* line 1 "no_file" */ /* 4653 */ /* line 216 "../lib/hash.s7i" */ static striType/*t_15_string*/ o_10427_update (hashType/*t_204_option_hash*/ *const o_10428_aHashMap, const const_striType/*t_15_string*/ o_10429_aKey, const const_striType/*t_15_string*/ value_o_10430_anElem) { /* line 217 "../lib/hash.s7i" */ striType/*t_15_string*/ result; /* line 217 "../lib/hash.s7i" */ const_striType/*t_15_string*/ o_10430_anElem; /* line 217 "../lib/hash.s7i" */ o_10430_anElem=strCreate(value_o_10430_anElem); /* line 217 "../lib/hash.s7i" */ result=(striType/*t_15_string*/)(((striType/*t_15_string*/)(hshUpdate(*o_10428_aHashMap, (genericType)(o_10429_aKey), (genericType)(strCreate(o_10430_anElem)), ((o_10429_aKey)->size==0 ? 0 : ((o_10429_aKey)->mem[0]<<5 ^ (o_10429_aKey)->mem[(o_10429_aKey)->size>>1]<<3 ^ (o_10429_aKey)->mem[(o_10429_aKey)->size-1]<<1 ^ (o_10429_aKey)->size)), (compareType)(o_10386/*.*/), (createFuncType)(o_10383/*.*/), (createFuncType)(o_10387/*.*/))))); /* line 217 "../lib/hash.s7i" */ strDestr(o_10430_anElem); /* line 217 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 4654 */ /* declare inline o_10431_for*/ /* declare inline o_10432_for*/ /* declare inline o_10433_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_28_TEST_3*/ o_10434_keys (const const_hashType/*t_204_option_hash*/ o_10435_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_28_TEST_3*/)((hshKeys(o_10435_aHashMap, (createFuncType)(o_10383/*.*/), (destrFuncType)(o_10384/*.*/)))); } /* line 1 "no_file" */ /* 4655 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_28_TEST_3*/ o_10436_values (const const_hashType/*t_204_option_hash*/ o_10437_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_28_TEST_3*/)((/*ref_to_value*/ hshValues(o_10437_aHashMap, (createFuncType)(o_10387/*.*/), (destrFuncType)(o_10388/*.*/)))); } /* line 1 "no_file" */ /* 4656 */ typedef genericType t_205/*t_205_*ANONYM_TYPE**/; /* 4657 */ /* 4658 */ /* 4659 */ /* 4660 */ /* objRefType/t_19_reference */ intfunctype o_10438/*.*/=(intfunctype)(&strCreateGeneric); /* 4661 */ /* objRefType/t_19_reference */ intfunctype o_10439/*.*/=(intfunctype)(&strDestrGeneric); /* 4662 */ /* objRefType/t_19_reference */ intfunctype o_10440/*.*/=(intfunctype)(&strCpyGeneric); /* 4663 */ /* objRefType/t_19_reference */ intfunctype o_10441/*.*/=(intfunctype)(&strCmpGeneric); /* 4664 */ /* objRefType/t_19_reference */ intfunctype o_10442/*.*/=(intfunctype)(&generic_create_28); /* 4665 */ /* objRefType/t_19_reference */ intfunctype o_10443/*.*/=(intfunctype)(&generic_destr_28); /* 4666 */ /* objRefType/t_19_reference */ intfunctype o_10444/*.*/=(intfunctype)(&generic_cpy_28); /* 4667 */ /* 4668 */ /* 4669 */ /* 4670 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10445/*::=*/ (const const_hashType/*t_205_*ANONYM_TYPE**/ o_10446_dest, const const_hashType/*t_205_*ANONYM_TYPE**/ o_10447_source) { /* hshCreate implemented with create_205 */ } /* line 1 "no_file" */ /* 4671 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10448_destroy (const const_hashType/*t_205_*ANONYM_TYPE**/ o_10449_oldHash) { /* hshDestr implemented with destr_205 */ } /* line 1 "no_file" */ /* 4672 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10450/*:=*/ (hashType/*t_205_*ANONYM_TYPE**/ *const o_10451_dest, const const_hashType/*t_205_*ANONYM_TYPE**/ o_10452_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_10451_dest), o_10452_source, (createFuncType)(o_10438/*.*/), (destrFuncType)(o_10439/*.*/), (createFuncType)(o_10442/*.*/), (destrFuncType)(o_10443/*.*/)); } /* line 1 "no_file" */ /* 4673 */ hashType/*t_205_*ANONYM_TYPE**/ o_10453/*.*/; /* 4674 */ hashType/*t_205_*ANONYM_TYPE**/ o_10454/*.*/; /* 4675 */ /* line 149 "../lib/hash.s7i" */ static arrayType/*t_28_TEST_3*/ o_10455/*[*/ (const const_hashType/*t_205_*ANONYM_TYPE**/ o_10456_aHashMap, const const_striType/*t_15_string*/ o_10457_aKey) { /* line 150 "../lib/hash.s7i" */ return (arrayType/*t_28_TEST_3*/)((/*ref_to_value*/ (arrayType/*t_28_TEST_3*/)(hshIdx(o_10456_aHashMap, (genericType)(o_10457_aKey), ((o_10457_aKey)->size==0 ? 0 : ((o_10457_aKey)->mem[0]<<5 ^ (o_10457_aKey)->mem[(o_10457_aKey)->size>>1]<<3 ^ (o_10457_aKey)->mem[(o_10457_aKey)->size-1]<<1 ^ (o_10457_aKey)->size)), (compareType)(o_10441/*.*/))))); } /* line 1 "no_file" */ /* 4676 */ /* line 152 "../lib/hash.s7i" */ static arrayType/*t_28_TEST_3*/ /*varfunc*/ *o_10458/*[*/ (hashType/*t_205_*ANONYM_TYPE**/ *const o_10459_aHashMap, const const_striType/*t_15_string*/ o_10460_aKey) { /* line 153 "../lib/hash.s7i" */ return (arrayType/*t_28_TEST_3*/ *)(&(hshIdxAddr(*o_10459_aHashMap, (genericType)(o_10460_aKey), ((o_10460_aKey)->size==0 ? 0 : ((o_10460_aKey)->mem[0]<<5 ^ (o_10460_aKey)->mem[(o_10460_aKey)->size>>1]<<3 ^ (o_10460_aKey)->mem[(o_10460_aKey)->size-1]<<1 ^ (o_10460_aKey)->size)), (compareType)(o_10441/*.*/))->value.arrayValue)); } /* line 1 "no_file" */ /* 4677 */ /* line 161 "../lib/hash.s7i" */ static arrayType/*t_28_TEST_3*/ o_10461/*[*/ (const const_hashType/*t_205_*ANONYM_TYPE**/ o_10462_aHashMap, const const_striType/*t_15_string*/ o_10463_aKey, const const_arrayType/*t_28_TEST_3*/ value_o_10464_defaultValue) { /* line 162 "../lib/hash.s7i" */ arrayType/*t_28_TEST_3*/ result; /* line 162 "../lib/hash.s7i" */ const_arrayType/*t_28_TEST_3*/ o_10464_defaultValue; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ o_10464_defaultValue=create_28(value_o_10464_defaultValue); /* line 162 "../lib/hash.s7i" */ result=(arrayType/*t_28_TEST_3*/)((/*ref_to_value*/ (addr_1=hshIdxAddr2(o_10462_aHashMap, (genericType)(o_10463_aKey), ((o_10463_aKey)->size==0 ? 0 : ((o_10463_aKey)->mem[0]<<5 ^ (o_10463_aKey)->mem[(o_10463_aKey)->size>>1]<<3 ^ (o_10463_aKey)->mem[(o_10463_aKey)->size-1]<<1 ^ (o_10463_aKey)->size)), (compareType)(o_10441/*.*/)),addr_1!=NULL?addr_1->value.arrayValue:(o_10464_defaultValue)))); /* line 162 "../lib/hash.s7i" */ destr_28(o_10464_defaultValue); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 4678 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_10465_in (const const_striType/*t_15_string*/ o_10466_aKey, const const_hashType/*t_205_*ANONYM_TYPE**/ o_10467_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_10467_aHashMap, (genericType)(o_10466_aKey), ((o_10466_aKey)->size==0 ? 0 : ((o_10466_aKey)->mem[0]<<5 ^ (o_10466_aKey)->mem[(o_10466_aKey)->size>>1]<<3 ^ (o_10466_aKey)->mem[(o_10466_aKey)->size-1]<<1 ^ (o_10466_aKey)->size)), (compareType)(o_10441/*.*/)))); } /* line 1 "no_file" */ /* 4679 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_10468_not (const const_striType/*t_15_string*/ o_10469_aKey, const const_hashType/*t_205_*ANONYM_TYPE**/ o_10470_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_10470_aHashMap, (genericType)(o_10469_aKey), ((o_10469_aKey)->size==0 ? 0 : ((o_10469_aKey)->mem[0]<<5 ^ (o_10469_aKey)->mem[(o_10469_aKey)->size>>1]<<3 ^ (o_10469_aKey)->mem[(o_10469_aKey)->size-1]<<1 ^ (o_10469_aKey)->size)), (compareType)(o_10441/*.*/))))); } /* line 1 "no_file" */ /* 4680 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10471_incl (hashType/*t_205_*ANONYM_TYPE**/ *const o_10472_aHashMap, const const_striType/*t_15_string*/ o_10473_aKey, const const_arrayType/*t_28_TEST_3*/ value_o_10474_anElem) { /* line 189 "../lib/hash.s7i" */ const_arrayType/*t_28_TEST_3*/ o_10474_anElem; /* line 189 "../lib/hash.s7i" */ o_10474_anElem=create_28(value_o_10474_anElem); /* line 191 "../lib/hash.s7i" */ hshIncl(*o_10472_aHashMap, (genericType)(o_10473_aKey), (genericType)(o_10474_anElem), ((o_10473_aKey)->size==0 ? 0 : ((o_10473_aKey)->mem[0]<<5 ^ (o_10473_aKey)->mem[(o_10473_aKey)->size>>1]<<3 ^ (o_10473_aKey)->mem[(o_10473_aKey)->size-1]<<1 ^ (o_10473_aKey)->size)), (compareType)(o_10441/*.*/), (createFuncType)(o_10438/*.*/), (createFuncType)(o_10442/*.*/), (copyFuncType)(o_10444/*.*/)); /* line 189 "../lib/hash.s7i" */ destr_28(o_10474_anElem); } /* line 1 "no_file" */ /* 4681 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10475_excl (hashType/*t_205_*ANONYM_TYPE**/ *const o_10476_aHashMap, const const_striType/*t_15_string*/ o_10477_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_10476_aHashMap, (genericType)(o_10477_aKey), ((o_10477_aKey)->size==0 ? 0 : ((o_10477_aKey)->mem[0]<<5 ^ (o_10477_aKey)->mem[(o_10477_aKey)->size>>1]<<3 ^ (o_10477_aKey)->mem[(o_10477_aKey)->size-1]<<1 ^ (o_10477_aKey)->size)), (compareType)(o_10441/*.*/), (destrFuncType)(o_10439/*.*/), (destrFuncType)(o_10443/*.*/)); } /* line 1 "no_file" */ /* 4682 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10478/*@:=*/ (hashType/*t_205_*ANONYM_TYPE**/ *const o_10479_aHashMap, const const_striType/*t_15_string*/ o_10480_aKey, const const_arrayType/*t_28_TEST_3*/ value_o_10481_anElem) { /* line 210 "../lib/hash.s7i" */ const_arrayType/*t_28_TEST_3*/ o_10481_anElem; /* line 210 "../lib/hash.s7i" */ o_10481_anElem=create_28(value_o_10481_anElem); /* line 212 "../lib/hash.s7i" */ hshIncl(*o_10479_aHashMap, (genericType)(o_10480_aKey), (genericType)(o_10481_anElem), ((o_10480_aKey)->size==0 ? 0 : ((o_10480_aKey)->mem[0]<<5 ^ (o_10480_aKey)->mem[(o_10480_aKey)->size>>1]<<3 ^ (o_10480_aKey)->mem[(o_10480_aKey)->size-1]<<1 ^ (o_10480_aKey)->size)), (compareType)(o_10441/*.*/), (createFuncType)(o_10438/*.*/), (createFuncType)(o_10442/*.*/), (copyFuncType)(o_10444/*.*/)); /* line 210 "../lib/hash.s7i" */ destr_28(o_10481_anElem); } /* line 1 "no_file" */ /* 4683 */ /* line 216 "../lib/hash.s7i" */ static arrayType/*t_28_TEST_3*/ o_10482_update (hashType/*t_205_*ANONYM_TYPE**/ *const o_10483_aHashMap, const const_striType/*t_15_string*/ o_10484_aKey, const const_arrayType/*t_28_TEST_3*/ value_o_10485_anElem) { /* line 217 "../lib/hash.s7i" */ arrayType/*t_28_TEST_3*/ result; /* line 217 "../lib/hash.s7i" */ const_arrayType/*t_28_TEST_3*/ o_10485_anElem; /* line 217 "../lib/hash.s7i" */ o_10485_anElem=create_28(value_o_10485_anElem); /* line 217 "../lib/hash.s7i" */ result=(arrayType/*t_28_TEST_3*/)(((arrayType/*t_28_TEST_3*/)(hshUpdate(*o_10483_aHashMap, (genericType)(o_10484_aKey), (genericType)(create_28(o_10485_anElem)), ((o_10484_aKey)->size==0 ? 0 : ((o_10484_aKey)->mem[0]<<5 ^ (o_10484_aKey)->mem[(o_10484_aKey)->size>>1]<<3 ^ (o_10484_aKey)->mem[(o_10484_aKey)->size-1]<<1 ^ (o_10484_aKey)->size)), (compareType)(o_10441/*.*/), (createFuncType)(o_10438/*.*/), (createFuncType)(o_10442/*.*/))))); /* line 217 "../lib/hash.s7i" */ destr_28(o_10485_anElem); /* line 217 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 4684 */ /* declare inline o_10486_for*/ /* declare inline o_10487_for*/ /* declare inline o_10488_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_28_TEST_3*/ o_10489_keys (const const_hashType/*t_205_*ANONYM_TYPE**/ o_10490_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_28_TEST_3*/)((hshKeys(o_10490_aHashMap, (createFuncType)(o_10438/*.*/), (destrFuncType)(o_10439/*.*/)))); } /* line 1 "no_file" */ /* 4685 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_178_*ANONYM_TYPE**/ o_10491_values (const const_hashType/*t_205_*ANONYM_TYPE**/ o_10492_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_178_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_10492_aHashMap, (createFuncType)(o_10442/*.*/), (destrFuncType)(o_10443/*.*/)))); } /* line 1 "no_file" */ /* 4686 */ /* line 61 "../lib/hash.s7i" */ static void destr_205 (const_hashType/*t_205_*ANONYM_TYPE**/ b) /* line 61 "../lib/hash.s7i" */ { /* line 61 "../lib/hash.s7i" */ hshDestr(b, (destrFuncType)(o_10439/*.*/), (destrFuncType)(o_10443/*.*/)); /* line 61 "../lib/hash.s7i" */ } /* line 1 "no_file" */ /* line 283 "../lib/hash.s7i" */ static hashType/*t_205_*ANONYM_TYPE**/ o_10493_flip (const const_hashType/*t_204_option_hash*/ o_10494_aHashMap) { /* line 285 "../lib/hash.s7i" */ hashType/*t_205_*ANONYM_TYPE**/ o_10495_inverseHash; /* line 287 "../lib/hash.s7i" */ striType/*t_15_string*/ o_10496_aKey; /* line 288 "../lib/hash.s7i" */ striType/*t_15_string*/ o_10497_aValue; /* line 285 "../lib/hash.s7i" */ o_10495_inverseHash=hshEmpty(); /* line 287 "../lib/hash.s7i" */ o_10496_aKey=strEmpty(); /* "" */ /* line 288 "../lib/hash.s7i" */ o_10497_aValue=strEmpty(); /* "" */ /* inline proc o_10433_for */ { /* inline params */ /* line 290 "../lib/hash.s7i" */ striType/*t_15_string*/ *const o_10498_forVar=&(o_10497_aValue); /* line 290 "../lib/hash.s7i" */ striType/*t_15_string*/ *const o_10499_keyVar=&(o_10496_aKey); /* line 290 "../lib/hash.s7i" */ const const_hashType/*t_204_option_hash*/ o_10500_aHashMap=o_10494_aHashMap; /* line 290 "../lib/hash.s7i" */ /* push proc param o_10501_statements */ /* line 290 "../lib/hash.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 258 "../lib/hash.s7i" */ const_hashType hash_1=o_10500_aHashMap; /* line 258 "../lib/hash.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 258 "../lib/hash.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 258 "../lib/hash.s7i" */ const_hashElemType helem_4; /* line 258 "../lib/hash.s7i" */ hashElemListType stack_5=NULL; /* line 258 "../lib/hash.s7i" */ while (counter_2 > 0) { /* line 258 "../lib/hash.s7i" */ helem_4=*table_elem_3; /* line 258 "../lib/hash.s7i" */ while (helem_4 != NULL) { /* line 258 "../lib/hash.s7i" */ if (helem_4->next_greater != NULL) { /* line 258 "../lib/hash.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ strCopy(&((*o_10498_forVar)), helem_4->data.value.striValue); /* line 258 "../lib/hash.s7i" */ strCopy(&((*o_10499_keyVar)), helem_4->key.value.striValue); /* closure o_10501_statements*/ { /* line 291 "../lib/hash.s7i" */ if (o_10465_in(o_10497_aValue, o_10495_inverseHash)) { /* line 292 "../lib/hash.s7i" */ arrPush(&(*o_10458/*[*/(&(o_10495_inverseHash), o_10497_aValue)), (genericType)(strCreate(o_10496_aKey))); } else { { /* line 294 "../lib/hash.s7i" */ arrayType/*t_28_TEST_3*/ tmp_1 = (arrayType/*t_28_TEST_3*/)(NULL); /* line 294 "../lib/hash.s7i" */ o_10478/*@:=*/(&(o_10495_inverseHash), o_10497_aValue, (tmp_1=(arrayType/*t_28_TEST_3*/)(arrBaselit((genericType)(strCreate(o_10496_aKey)))))); /* line 294 "../lib/hash.s7i" */ destr_28(tmp_1); } } } /* closure o_10501_statements*/ /* line 258 "../lib/hash.s7i" */ if (helem_4->next_less != NULL) { /* line 258 "../lib/hash.s7i" */ helem_4=helem_4->next_less; /* line 258 "../lib/hash.s7i" */ } else { /* line 258 "../lib/hash.s7i" */ pop_stack(stack_5, helem_4); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ counter_2--; /* line 258 "../lib/hash.s7i" */ table_elem_3++; /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ } /* hsh_for */ /* pop proc param o_10501_statements */ } /* inline proc o_10433_for */ /* line 283 "../lib/hash.s7i" */ strDestr(o_10496_aKey); /* line 283 "../lib/hash.s7i" */ strDestr(o_10497_aValue); return o_10495_inverseHash; } /* line 1 "no_file" */ /* 4687 */ /* line 58 "../lib/hash.s7i" */ static hashType/*t_204_option_hash*/ create_204 (const_hashType/*t_204_option_hash*/ b) /* line 58 "../lib/hash.s7i" */ { /* line 58 "../lib/hash.s7i" */ return hshCreate(b, (createFuncType)(o_10383/*.*/), (destrFuncType)(o_10384/*.*/), (createFuncType)(o_10387/*.*/), (destrFuncType)(o_10388/*.*/)); /* line 58 "../lib/hash.s7i" */ } /* line 1 "no_file" */ hashType/*t_204_option_hash*/ o_10502_compiler_option; /* 4688 */ boolType/*t_13_boolean*/ o_10503_compileLibrary=0/*FALSE*/; /* 4689 */ arrayType/*t_28_TEST_3*/ o_10504_libraryDirs; /* 4690 */ /* objRefType/t_19_reference */ objRefType o_10505_main_object=(objRefType)(NULL); /* 4691 */ interfaceType/*t_46_file*/ o_10506_c_prog; /* 4692 */ intType o_10507_countDeclarations=0L; /* 4693 */ structType/*t_164_expr_type*/ o_10508_global_init; /* 4694 */ typedef genericType t_206/*t_206_globalInitHash*/; /* 4695 */ /* 4696 */ /* 4697 */ /* 4698 */ /* 4699 */ /* objRefType/t_19_reference */ intfunctype o_10509/*.*/=(intfunctype)(&ptrCreateGeneric); /* 4700 */ /* objRefType/t_19_reference */ intfunctype o_10510/*.*/=(intfunctype)(&genericDestr); /* 4701 */ /* objRefType/t_19_reference */ intfunctype o_10511/*.*/=(intfunctype)(&ptrCpyGeneric); /* 4702 */ /* objRefType/t_19_reference */ intfunctype o_10512/*.*/=(intfunctype)(&ptrCmpGeneric); /* 4703 */ /* objRefType/t_19_reference */ intfunctype o_10513/*.*/=(intfunctype)(&strCreateGeneric); /* 4704 */ /* objRefType/t_19_reference */ intfunctype o_10514/*.*/=(intfunctype)(&strDestrGeneric); /* 4705 */ /* objRefType/t_19_reference */ intfunctype o_10515/*.*/=(intfunctype)(&strCpyGeneric); /* 4706 */ /* 4707 */ /* 4708 */ /* 4709 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10516/*::=*/ (const const_hashType/*t_206_globalInitHash*/ o_10517_dest, const const_hashType/*t_206_globalInitHash*/ o_10518_source) { /* hshCreate implemented with create_206 */ } /* line 1 "no_file" */ /* 4710 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10519_destroy (const const_hashType/*t_206_globalInitHash*/ o_10520_oldHash) { /* hshDestr implemented with destr_206 */ } /* line 1 "no_file" */ /* 4711 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10521/*:=*/ (hashType/*t_206_globalInitHash*/ *const o_10522_dest, const const_hashType/*t_206_globalInitHash*/ o_10523_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_10522_dest), o_10523_source, (createFuncType)(o_10509/*.*/), (destrFuncType)(o_10510/*.*/), (createFuncType)(o_10513/*.*/), (destrFuncType)(o_10514/*.*/)); } /* line 1 "no_file" */ /* 4712 */ hashType/*t_206_globalInitHash*/ o_10524/*.*/; /* 4713 */ hashType/*t_206_globalInitHash*/ o_10525/*.*/; /* 4714 */ /* line 149 "../lib/hash.s7i" */ static striType/*t_15_string*/ o_10526/*[*/ (const const_hashType/*t_206_globalInitHash*/ o_10527_aHashMap, const objRefType/*t_19_reference*/ *const o_10528_aKey) { /* line 150 "../lib/hash.s7i" */ return (striType/*t_15_string*/)((/*ref_to_value*/ (striType/*t_15_string*/)(hshIdx(o_10527_aHashMap, (genericType)(*o_10528_aKey), (intType)(((memSizeType)(*o_10528_aKey)) >> 6), (compareType)(o_10512/*.*/))))); } /* line 1 "no_file" */ /* 4715 */ /* line 152 "../lib/hash.s7i" */ static striType/*t_15_string*/ /*varfunc*/ *o_10529/*[*/ (hashType/*t_206_globalInitHash*/ *const o_10530_aHashMap, const objRefType/*t_19_reference*/ *const o_10531_aKey) { /* line 153 "../lib/hash.s7i" */ return (striType/*t_15_string*/ *)(&(hshIdxAddr(*o_10530_aHashMap, (genericType)(*o_10531_aKey), (intType)(((memSizeType)(*o_10531_aKey)) >> 6), (compareType)(o_10512/*.*/))->value.striValue)); } /* line 1 "no_file" */ /* 4716 */ /* line 161 "../lib/hash.s7i" */ static striType/*t_15_string*/ o_10532/*[*/ (const const_hashType/*t_206_globalInitHash*/ o_10533_aHashMap, const objRefType/*t_19_reference*/ *const o_10534_aKey, const const_striType/*t_15_string*/ value_o_10535_defaultValue) { /* line 162 "../lib/hash.s7i" */ striType/*t_15_string*/ result; /* line 162 "../lib/hash.s7i" */ const_striType/*t_15_string*/ o_10535_defaultValue; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ o_10535_defaultValue=strCreate(value_o_10535_defaultValue); /* line 162 "../lib/hash.s7i" */ result=(striType/*t_15_string*/)((/*ref_to_value*/ (addr_1=hshIdxAddr2(o_10533_aHashMap, (genericType)(*o_10534_aKey), (intType)(((memSizeType)(*o_10534_aKey)) >> 6), (compareType)(o_10512/*.*/)),addr_1!=NULL?addr_1->value.striValue:(o_10535_defaultValue)))); /* line 162 "../lib/hash.s7i" */ strDestr(o_10535_defaultValue); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 4717 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_10536_in (const objRefType/*t_19_reference*/ *const o_10537_aKey, const const_hashType/*t_206_globalInitHash*/ o_10538_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_10538_aHashMap, (genericType)(*o_10537_aKey), (intType)(((memSizeType)(*o_10537_aKey)) >> 6), (compareType)(o_10512/*.*/)))); } /* line 1 "no_file" */ /* 4718 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_10539_not (const objRefType/*t_19_reference*/ *const o_10540_aKey, const const_hashType/*t_206_globalInitHash*/ o_10541_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_10541_aHashMap, (genericType)(*o_10540_aKey), (intType)(((memSizeType)(*o_10540_aKey)) >> 6), (compareType)(o_10512/*.*/))))); } /* line 1 "no_file" */ /* 4719 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10542_incl (hashType/*t_206_globalInitHash*/ *const o_10543_aHashMap, const objRefType/*t_19_reference*/ *const o_10544_aKey, const const_striType/*t_15_string*/ value_o_10545_anElem) { /* line 189 "../lib/hash.s7i" */ const_striType/*t_15_string*/ o_10545_anElem; /* line 189 "../lib/hash.s7i" */ o_10545_anElem=strCreate(value_o_10545_anElem); /* line 191 "../lib/hash.s7i" */ hshIncl(*o_10543_aHashMap, (genericType)(*o_10544_aKey), (genericType)(o_10545_anElem), (intType)(((memSizeType)(*o_10544_aKey)) >> 6), (compareType)(o_10512/*.*/), (createFuncType)(o_10509/*.*/), (createFuncType)(o_10513/*.*/), (copyFuncType)(o_10515/*.*/)); /* line 189 "../lib/hash.s7i" */ strDestr(o_10545_anElem); } /* line 1 "no_file" */ /* 4720 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10546_excl (hashType/*t_206_globalInitHash*/ *const o_10547_aHashMap, const objRefType/*t_19_reference*/ *const o_10548_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_10547_aHashMap, (genericType)(*o_10548_aKey), (intType)(((memSizeType)(*o_10548_aKey)) >> 6), (compareType)(o_10512/*.*/), (destrFuncType)(o_10510/*.*/), (destrFuncType)(o_10514/*.*/)); } /* line 1 "no_file" */ /* 4721 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10549/*@:=*/ (hashType/*t_206_globalInitHash*/ *const o_10550_aHashMap, const objRefType/*t_19_reference*/ *const o_10551_aKey, const const_striType/*t_15_string*/ value_o_10552_anElem) { /* line 210 "../lib/hash.s7i" */ const_striType/*t_15_string*/ o_10552_anElem; /* line 210 "../lib/hash.s7i" */ o_10552_anElem=strCreate(value_o_10552_anElem); /* line 212 "../lib/hash.s7i" */ hshIncl(*o_10550_aHashMap, (genericType)(*o_10551_aKey), (genericType)(o_10552_anElem), (intType)(((memSizeType)(*o_10551_aKey)) >> 6), (compareType)(o_10512/*.*/), (createFuncType)(o_10509/*.*/), (createFuncType)(o_10513/*.*/), (copyFuncType)(o_10515/*.*/)); /* line 210 "../lib/hash.s7i" */ strDestr(o_10552_anElem); } /* line 1 "no_file" */ /* 4722 */ /* line 216 "../lib/hash.s7i" */ static striType/*t_15_string*/ o_10553_update (hashType/*t_206_globalInitHash*/ *const o_10554_aHashMap, const objRefType/*t_19_reference*/ *const o_10555_aKey, const const_striType/*t_15_string*/ value_o_10556_anElem) { /* line 217 "../lib/hash.s7i" */ striType/*t_15_string*/ result; /* line 217 "../lib/hash.s7i" */ const_striType/*t_15_string*/ o_10556_anElem; /* line 217 "../lib/hash.s7i" */ o_10556_anElem=strCreate(value_o_10556_anElem); /* line 217 "../lib/hash.s7i" */ result=(striType/*t_15_string*/)(((striType/*t_15_string*/)(hshUpdate(*o_10554_aHashMap, (genericType)(*o_10555_aKey), (genericType)(strCreate(o_10556_anElem)), (intType)(((memSizeType)(*o_10555_aKey)) >> 6), (compareType)(o_10512/*.*/), (createFuncType)(o_10509/*.*/), (createFuncType)(o_10513/*.*/))))); /* line 217 "../lib/hash.s7i" */ strDestr(o_10556_anElem); /* line 217 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 4723 */ /* declare inline o_10557_for*/ /* declare inline o_10558_for*/ /* declare inline o_10559_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_10560_keys (const const_hashType/*t_206_globalInitHash*/ o_10561_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_128_*ANONYM_TYPE**/)((hshKeys(o_10561_aHashMap, (createFuncType)(o_10509/*.*/), (destrFuncType)(o_10510/*.*/)))); } /* line 1 "no_file" */ /* 4724 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_28_TEST_3*/ o_10562_values (const const_hashType/*t_206_globalInitHash*/ o_10563_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_28_TEST_3*/)((/*ref_to_value*/ hshValues(o_10563_aHashMap, (createFuncType)(o_10513/*.*/), (destrFuncType)(o_10514/*.*/)))); } /* line 1 "no_file" */ /* 4725 */ typedef genericType t_207/*t_207_*ANONYM_TYPE**/; /* 4726 */ /* 4727 */ /* 4728 */ /* 4729 */ /* objRefType/t_19_reference */ intfunctype o_10564/*.*/=(intfunctype)(&strCreateGeneric); /* 4730 */ /* objRefType/t_19_reference */ intfunctype o_10565/*.*/=(intfunctype)(&strDestrGeneric); /* 4731 */ /* objRefType/t_19_reference */ intfunctype o_10566/*.*/=(intfunctype)(&strCpyGeneric); /* 4732 */ /* objRefType/t_19_reference */ intfunctype o_10567/*.*/=(intfunctype)(&strCmpGeneric); /* 4733 */ /* objRefType/t_19_reference */ intfunctype o_10568/*.*/=(intfunctype)(&generic_create_128); /* 4734 */ /* objRefType/t_19_reference */ intfunctype o_10569/*.*/=(intfunctype)(&generic_destr_128); /* 4735 */ /* objRefType/t_19_reference */ intfunctype o_10570/*.*/=(intfunctype)(&generic_cpy_128); /* 4736 */ /* 4737 */ /* 4738 */ /* 4739 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10571/*::=*/ (const const_hashType/*t_207_*ANONYM_TYPE**/ o_10572_dest, const const_hashType/*t_207_*ANONYM_TYPE**/ o_10573_source) { /* hshCreate implemented with create_207 */ } /* line 1 "no_file" */ /* 4740 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10574_destroy (const const_hashType/*t_207_*ANONYM_TYPE**/ o_10575_oldHash) { /* hshDestr implemented with destr_207 */ } /* line 1 "no_file" */ /* 4741 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10576/*:=*/ (hashType/*t_207_*ANONYM_TYPE**/ *const o_10577_dest, const const_hashType/*t_207_*ANONYM_TYPE**/ o_10578_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_10577_dest), o_10578_source, (createFuncType)(o_10564/*.*/), (destrFuncType)(o_10565/*.*/), (createFuncType)(o_10568/*.*/), (destrFuncType)(o_10569/*.*/)); } /* line 1 "no_file" */ /* 4742 */ hashType/*t_207_*ANONYM_TYPE**/ o_10579/*.*/; /* 4743 */ hashType/*t_207_*ANONYM_TYPE**/ o_10580/*.*/; /* 4744 */ /* line 149 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_10581/*[*/ (const const_hashType/*t_207_*ANONYM_TYPE**/ o_10582_aHashMap, const const_striType/*t_15_string*/ o_10583_aKey) { /* line 150 "../lib/hash.s7i" */ return (arrayType/*t_128_*ANONYM_TYPE**/)((/*ref_to_value*/ (arrayType/*t_128_*ANONYM_TYPE**/)(hshIdx(o_10582_aHashMap, (genericType)(o_10583_aKey), ((o_10583_aKey)->size==0 ? 0 : ((o_10583_aKey)->mem[0]<<5 ^ (o_10583_aKey)->mem[(o_10583_aKey)->size>>1]<<3 ^ (o_10583_aKey)->mem[(o_10583_aKey)->size-1]<<1 ^ (o_10583_aKey)->size)), (compareType)(o_10567/*.*/))))); } /* line 1 "no_file" */ /* 4745 */ /* line 152 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ /*varfunc*/ *o_10584/*[*/ (hashType/*t_207_*ANONYM_TYPE**/ *const o_10585_aHashMap, const const_striType/*t_15_string*/ o_10586_aKey) { /* line 153 "../lib/hash.s7i" */ return (arrayType/*t_128_*ANONYM_TYPE**/ *)(&(hshIdxAddr(*o_10585_aHashMap, (genericType)(o_10586_aKey), ((o_10586_aKey)->size==0 ? 0 : ((o_10586_aKey)->mem[0]<<5 ^ (o_10586_aKey)->mem[(o_10586_aKey)->size>>1]<<3 ^ (o_10586_aKey)->mem[(o_10586_aKey)->size-1]<<1 ^ (o_10586_aKey)->size)), (compareType)(o_10567/*.*/))->value.arrayValue)); } /* line 1 "no_file" */ /* 4746 */ /* line 161 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_10587/*[*/ (const const_hashType/*t_207_*ANONYM_TYPE**/ o_10588_aHashMap, const const_striType/*t_15_string*/ o_10589_aKey, const const_arrayType/*t_128_*ANONYM_TYPE**/ value_o_10590_defaultValue) { /* line 162 "../lib/hash.s7i" */ arrayType/*t_128_*ANONYM_TYPE**/ result; /* line 162 "../lib/hash.s7i" */ const_arrayType/*t_128_*ANONYM_TYPE**/ o_10590_defaultValue; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ o_10590_defaultValue=create_128(value_o_10590_defaultValue); /* line 162 "../lib/hash.s7i" */ result=(arrayType/*t_128_*ANONYM_TYPE**/)((/*ref_to_value*/ (addr_1=hshIdxAddr2(o_10588_aHashMap, (genericType)(o_10589_aKey), ((o_10589_aKey)->size==0 ? 0 : ((o_10589_aKey)->mem[0]<<5 ^ (o_10589_aKey)->mem[(o_10589_aKey)->size>>1]<<3 ^ (o_10589_aKey)->mem[(o_10589_aKey)->size-1]<<1 ^ (o_10589_aKey)->size)), (compareType)(o_10567/*.*/)),addr_1!=NULL?addr_1->value.arrayValue:(o_10590_defaultValue)))); /* line 162 "../lib/hash.s7i" */ destr_128(o_10590_defaultValue); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 4747 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_10591_in (const const_striType/*t_15_string*/ o_10592_aKey, const const_hashType/*t_207_*ANONYM_TYPE**/ o_10593_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_10593_aHashMap, (genericType)(o_10592_aKey), ((o_10592_aKey)->size==0 ? 0 : ((o_10592_aKey)->mem[0]<<5 ^ (o_10592_aKey)->mem[(o_10592_aKey)->size>>1]<<3 ^ (o_10592_aKey)->mem[(o_10592_aKey)->size-1]<<1 ^ (o_10592_aKey)->size)), (compareType)(o_10567/*.*/)))); } /* line 1 "no_file" */ /* 4748 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_10594_not (const const_striType/*t_15_string*/ o_10595_aKey, const const_hashType/*t_207_*ANONYM_TYPE**/ o_10596_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_10596_aHashMap, (genericType)(o_10595_aKey), ((o_10595_aKey)->size==0 ? 0 : ((o_10595_aKey)->mem[0]<<5 ^ (o_10595_aKey)->mem[(o_10595_aKey)->size>>1]<<3 ^ (o_10595_aKey)->mem[(o_10595_aKey)->size-1]<<1 ^ (o_10595_aKey)->size)), (compareType)(o_10567/*.*/))))); } /* line 1 "no_file" */ /* 4749 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10597_incl (hashType/*t_207_*ANONYM_TYPE**/ *const o_10598_aHashMap, const const_striType/*t_15_string*/ o_10599_aKey, const const_arrayType/*t_128_*ANONYM_TYPE**/ value_o_10600_anElem) { /* line 189 "../lib/hash.s7i" */ const_arrayType/*t_128_*ANONYM_TYPE**/ o_10600_anElem; /* line 189 "../lib/hash.s7i" */ o_10600_anElem=create_128(value_o_10600_anElem); /* line 191 "../lib/hash.s7i" */ hshIncl(*o_10598_aHashMap, (genericType)(o_10599_aKey), (genericType)(o_10600_anElem), ((o_10599_aKey)->size==0 ? 0 : ((o_10599_aKey)->mem[0]<<5 ^ (o_10599_aKey)->mem[(o_10599_aKey)->size>>1]<<3 ^ (o_10599_aKey)->mem[(o_10599_aKey)->size-1]<<1 ^ (o_10599_aKey)->size)), (compareType)(o_10567/*.*/), (createFuncType)(o_10564/*.*/), (createFuncType)(o_10568/*.*/), (copyFuncType)(o_10570/*.*/)); /* line 189 "../lib/hash.s7i" */ destr_128(o_10600_anElem); } /* line 1 "no_file" */ /* 4750 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10601_excl (hashType/*t_207_*ANONYM_TYPE**/ *const o_10602_aHashMap, const const_striType/*t_15_string*/ o_10603_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_10602_aHashMap, (genericType)(o_10603_aKey), ((o_10603_aKey)->size==0 ? 0 : ((o_10603_aKey)->mem[0]<<5 ^ (o_10603_aKey)->mem[(o_10603_aKey)->size>>1]<<3 ^ (o_10603_aKey)->mem[(o_10603_aKey)->size-1]<<1 ^ (o_10603_aKey)->size)), (compareType)(o_10567/*.*/), (destrFuncType)(o_10565/*.*/), (destrFuncType)(o_10569/*.*/)); } /* line 1 "no_file" */ /* 4751 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10604/*@:=*/ (hashType/*t_207_*ANONYM_TYPE**/ *const o_10605_aHashMap, const const_striType/*t_15_string*/ o_10606_aKey, const const_arrayType/*t_128_*ANONYM_TYPE**/ value_o_10607_anElem) { /* line 210 "../lib/hash.s7i" */ const_arrayType/*t_128_*ANONYM_TYPE**/ o_10607_anElem; /* line 210 "../lib/hash.s7i" */ o_10607_anElem=create_128(value_o_10607_anElem); /* line 212 "../lib/hash.s7i" */ hshIncl(*o_10605_aHashMap, (genericType)(o_10606_aKey), (genericType)(o_10607_anElem), ((o_10606_aKey)->size==0 ? 0 : ((o_10606_aKey)->mem[0]<<5 ^ (o_10606_aKey)->mem[(o_10606_aKey)->size>>1]<<3 ^ (o_10606_aKey)->mem[(o_10606_aKey)->size-1]<<1 ^ (o_10606_aKey)->size)), (compareType)(o_10567/*.*/), (createFuncType)(o_10564/*.*/), (createFuncType)(o_10568/*.*/), (copyFuncType)(o_10570/*.*/)); /* line 210 "../lib/hash.s7i" */ destr_128(o_10607_anElem); } /* line 1 "no_file" */ /* 4752 */ /* line 216 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_10608_update (hashType/*t_207_*ANONYM_TYPE**/ *const o_10609_aHashMap, const const_striType/*t_15_string*/ o_10610_aKey, const const_arrayType/*t_128_*ANONYM_TYPE**/ value_o_10611_anElem) { /* line 217 "../lib/hash.s7i" */ arrayType/*t_128_*ANONYM_TYPE**/ result; /* line 217 "../lib/hash.s7i" */ const_arrayType/*t_128_*ANONYM_TYPE**/ o_10611_anElem; /* line 217 "../lib/hash.s7i" */ o_10611_anElem=create_128(value_o_10611_anElem); /* line 217 "../lib/hash.s7i" */ result=(arrayType/*t_128_*ANONYM_TYPE**/)(((arrayType/*t_128_*ANONYM_TYPE**/)(hshUpdate(*o_10609_aHashMap, (genericType)(o_10610_aKey), (genericType)(create_128(o_10611_anElem)), ((o_10610_aKey)->size==0 ? 0 : ((o_10610_aKey)->mem[0]<<5 ^ (o_10610_aKey)->mem[(o_10610_aKey)->size>>1]<<3 ^ (o_10610_aKey)->mem[(o_10610_aKey)->size-1]<<1 ^ (o_10610_aKey)->size)), (compareType)(o_10567/*.*/), (createFuncType)(o_10564/*.*/), (createFuncType)(o_10568/*.*/))))); /* line 217 "../lib/hash.s7i" */ destr_128(o_10611_anElem); /* line 217 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 4753 */ /* declare inline o_10612_for*/ /* declare inline o_10613_for*/ /* declare inline o_10614_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_28_TEST_3*/ o_10615_keys (const const_hashType/*t_207_*ANONYM_TYPE**/ o_10616_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_28_TEST_3*/)((hshKeys(o_10616_aHashMap, (createFuncType)(o_10564/*.*/), (destrFuncType)(o_10565/*.*/)))); } /* line 1 "no_file" */ /* 4754 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_145_*ANONYM_TYPE**/ o_10617_values (const const_hashType/*t_207_*ANONYM_TYPE**/ o_10618_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_145_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_10618_aHashMap, (createFuncType)(o_10568/*.*/), (destrFuncType)(o_10569/*.*/)))); } /* line 1 "no_file" */ /* 4755 */ /* line 61 "../lib/hash.s7i" */ static void destr_207 (const_hashType/*t_207_*ANONYM_TYPE**/ b) /* line 61 "../lib/hash.s7i" */ { /* line 61 "../lib/hash.s7i" */ hshDestr(b, (destrFuncType)(o_10565/*.*/), (destrFuncType)(o_10569/*.*/)); /* line 61 "../lib/hash.s7i" */ } /* line 1 "no_file" */ /* line 283 "../lib/hash.s7i" */ static hashType/*t_207_*ANONYM_TYPE**/ o_10619_flip (const const_hashType/*t_206_globalInitHash*/ o_10620_aHashMap) { /* line 285 "../lib/hash.s7i" */ hashType/*t_207_*ANONYM_TYPE**/ o_10621_inverseHash; /* line 287 "../lib/hash.s7i" */ objRefType/*t_19_reference*/ o_10622_aKey=NULL; /* line 288 "../lib/hash.s7i" */ striType/*t_15_string*/ o_10623_aValue; /* line 285 "../lib/hash.s7i" */ o_10621_inverseHash=hshEmpty(); /* line 288 "../lib/hash.s7i" */ o_10623_aValue=strEmpty(); /* "" */ /* inline proc o_10559_for */ { /* inline params */ /* line 290 "../lib/hash.s7i" */ striType/*t_15_string*/ *const o_10624_forVar=&(o_10623_aValue); /* line 290 "../lib/hash.s7i" */ objRefType/*t_19_reference*/ *const o_10625_keyVar=&(o_10622_aKey); /* line 290 "../lib/hash.s7i" */ const const_hashType/*t_206_globalInitHash*/ o_10626_aHashMap=o_10620_aHashMap; /* line 290 "../lib/hash.s7i" */ /* push proc param o_10627_statements */ /* line 290 "../lib/hash.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 258 "../lib/hash.s7i" */ const_hashType hash_1=o_10626_aHashMap; /* line 258 "../lib/hash.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 258 "../lib/hash.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 258 "../lib/hash.s7i" */ const_hashElemType helem_4; /* line 258 "../lib/hash.s7i" */ hashElemListType stack_5=NULL; /* line 258 "../lib/hash.s7i" */ while (counter_2 > 0) { /* line 258 "../lib/hash.s7i" */ helem_4=*table_elem_3; /* line 258 "../lib/hash.s7i" */ while (helem_4 != NULL) { /* line 258 "../lib/hash.s7i" */ if (helem_4->next_greater != NULL) { /* line 258 "../lib/hash.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ strCopy(&((*o_10624_forVar)), helem_4->data.value.striValue); /* line 258 "../lib/hash.s7i" */ (*o_10625_keyVar)=helem_4->key.value.objRefValue; /* closure o_10627_statements*/ { /* line 291 "../lib/hash.s7i" */ if (o_10591_in(o_10623_aValue, o_10621_inverseHash)) { /* line 292 "../lib/hash.s7i" */ arrPush(&(*o_10584/*[*/(&(o_10621_inverseHash), o_10623_aValue)), (genericType)(o_10622_aKey)); } else { { /* line 294 "../lib/hash.s7i" */ arrayType/*t_128_*ANONYM_TYPE**/ tmp_1 = (arrayType/*t_128_*ANONYM_TYPE**/)(NULL); /* line 294 "../lib/hash.s7i" */ o_10604/*@:=*/(&(o_10621_inverseHash), o_10623_aValue, (tmp_1=(arrayType/*t_128_*ANONYM_TYPE**/)(arrBaselit((genericType)(o_10622_aKey))))); /* line 294 "../lib/hash.s7i" */ destr_128(tmp_1); } } } /* closure o_10627_statements*/ /* line 258 "../lib/hash.s7i" */ if (helem_4->next_less != NULL) { /* line 258 "../lib/hash.s7i" */ helem_4=helem_4->next_less; /* line 258 "../lib/hash.s7i" */ } else { /* line 258 "../lib/hash.s7i" */ pop_stack(stack_5, helem_4); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ counter_2--; /* line 258 "../lib/hash.s7i" */ table_elem_3++; /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ } /* hsh_for */ /* pop proc param o_10627_statements */ } /* inline proc o_10559_for */ /* line 283 "../lib/hash.s7i" */ strDestr(o_10623_aValue); return o_10621_inverseHash; } /* line 1 "no_file" */ /* 4756 */ /* line 58 "../lib/hash.s7i" */ static hashType/*t_206_globalInitHash*/ create_206 (const_hashType/*t_206_globalInitHash*/ b) /* line 58 "../lib/hash.s7i" */ { /* line 58 "../lib/hash.s7i" */ return hshCreate(b, (createFuncType)(o_10509/*.*/), (destrFuncType)(o_10510/*.*/), (createFuncType)(o_10513/*.*/), (destrFuncType)(o_10514/*.*/)); /* line 58 "../lib/hash.s7i" */ } /* line 1 "no_file" */ hashType/*t_206_globalInitHash*/ o_10628_globalInitalisations; /* 4757 */ /* 4758 */ /* 4759 */ typedef genericType t_208/*t_208_act_to_form_param_hash*/; /* 4760 */ /* 4761 */ /* 4762 */ /* 4763 */ /* 4764 */ /* objRefType/t_19_reference */ intfunctype o_10629/*.*/=(intfunctype)(&ptrCreateGeneric); /* 4765 */ /* objRefType/t_19_reference */ intfunctype o_10630/*.*/=(intfunctype)(&genericDestr); /* 4766 */ /* objRefType/t_19_reference */ intfunctype o_10631/*.*/=(intfunctype)(&ptrCpyGeneric); /* 4767 */ /* objRefType/t_19_reference */ intfunctype o_10632/*.*/=(intfunctype)(&ptrCmpGeneric); /* 4768 */ /* objRefType/t_19_reference */ intfunctype o_10633/*.*/=(intfunctype)(&ptrCreateGeneric); /* 4769 */ /* objRefType/t_19_reference */ intfunctype o_10634/*.*/=(intfunctype)(&genericDestr); /* 4770 */ /* objRefType/t_19_reference */ intfunctype o_10635/*.*/=(intfunctype)(&ptrCpyGeneric); /* 4771 */ /* 4772 */ /* 4773 */ /* 4774 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10636/*::=*/ (const const_hashType/*t_208_act_to_form_param_hash*/ o_10637_dest, const const_hashType/*t_208_act_to_form_param_hash*/ o_10638_source) { /* hshCreate implemented with create_208 */ } /* line 1 "no_file" */ /* 4775 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10639_destroy (const const_hashType/*t_208_act_to_form_param_hash*/ o_10640_oldHash) { /* hshDestr implemented with destr_208 */ } /* line 1 "no_file" */ /* 4776 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10641/*:=*/ (hashType/*t_208_act_to_form_param_hash*/ *const o_10642_dest, const const_hashType/*t_208_act_to_form_param_hash*/ o_10643_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_10642_dest), o_10643_source, (createFuncType)(o_10629/*.*/), (destrFuncType)(o_10630/*.*/), (createFuncType)(o_10633/*.*/), (destrFuncType)(o_10634/*.*/)); } /* line 1 "no_file" */ /* 4777 */ hashType/*t_208_act_to_form_param_hash*/ o_10644/*.*/; /* 4778 */ hashType/*t_208_act_to_form_param_hash*/ o_10645/*.*/; /* 4779 */ /* line 149 "../lib/hash.s7i" */ static objRefType/*t_19_reference*/ o_10646/*[*/ (const const_hashType/*t_208_act_to_form_param_hash*/ o_10647_aHashMap, const objRefType/*t_19_reference*/ *const o_10648_aKey) { /* line 150 "../lib/hash.s7i" */ return (objRefType/*t_19_reference*/)(((objRefType/*t_19_reference*/)(hshIdx(o_10647_aHashMap, (genericType)(*o_10648_aKey), (intType)(((memSizeType)(*o_10648_aKey)) >> 6), (compareType)(o_10632/*.*/))))); } /* line 1 "no_file" */ /* 4780 */ /* line 152 "../lib/hash.s7i" */ static objRefType/*t_19_reference*/ /*varfunc*/ *o_10649/*[*/ (hashType/*t_208_act_to_form_param_hash*/ *const o_10650_aHashMap, const objRefType/*t_19_reference*/ *const o_10651_aKey) { /* line 153 "../lib/hash.s7i" */ return (objRefType/*t_19_reference*/ *)(&(hshIdxAddr(*o_10650_aHashMap, (genericType)(*o_10651_aKey), (intType)(((memSizeType)(*o_10651_aKey)) >> 6), (compareType)(o_10632/*.*/))->value.objRefValue)); } /* line 1 "no_file" */ /* 4781 */ /* line 161 "../lib/hash.s7i" */ static objRefType/*t_19_reference*/ o_10652/*[*/ (const const_hashType/*t_208_act_to_form_param_hash*/ o_10653_aHashMap, const objRefType/*t_19_reference*/ *const o_10654_aKey, const objRefType/*t_19_reference*/ o_10655_defaultValue) { /* line 162 "../lib/hash.s7i" */ objRefType/*t_19_reference*/ result; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ result=(objRefType/*t_19_reference*/)(((addr_1=hshIdxAddr2(o_10653_aHashMap, (genericType)(*o_10654_aKey), (intType)(((memSizeType)(*o_10654_aKey)) >> 6), (compareType)(o_10632/*.*/)),addr_1!=NULL?addr_1->value.objRefValue:(o_10655_defaultValue)))); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 4782 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_10656_in (const objRefType/*t_19_reference*/ *const o_10657_aKey, const const_hashType/*t_208_act_to_form_param_hash*/ o_10658_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_10658_aHashMap, (genericType)(*o_10657_aKey), (intType)(((memSizeType)(*o_10657_aKey)) >> 6), (compareType)(o_10632/*.*/)))); } /* line 1 "no_file" */ /* 4783 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_10659_not (const objRefType/*t_19_reference*/ *const o_10660_aKey, const const_hashType/*t_208_act_to_form_param_hash*/ o_10661_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_10661_aHashMap, (genericType)(*o_10660_aKey), (intType)(((memSizeType)(*o_10660_aKey)) >> 6), (compareType)(o_10632/*.*/))))); } /* line 1 "no_file" */ /* 4784 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10662_incl (hashType/*t_208_act_to_form_param_hash*/ *const o_10663_aHashMap, const objRefType/*t_19_reference*/ *const o_10664_aKey, const objRefType/*t_19_reference*/ o_10665_anElem) { /* line 191 "../lib/hash.s7i" */ hshIncl(*o_10663_aHashMap, (genericType)(*o_10664_aKey), (genericType)(o_10665_anElem), (intType)(((memSizeType)(*o_10664_aKey)) >> 6), (compareType)(o_10632/*.*/), (createFuncType)(o_10629/*.*/), (createFuncType)(o_10633/*.*/), (copyFuncType)(o_10635/*.*/)); } /* line 1 "no_file" */ /* 4785 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10666_excl (hashType/*t_208_act_to_form_param_hash*/ *const o_10667_aHashMap, const objRefType/*t_19_reference*/ *const o_10668_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_10667_aHashMap, (genericType)(*o_10668_aKey), (intType)(((memSizeType)(*o_10668_aKey)) >> 6), (compareType)(o_10632/*.*/), (destrFuncType)(o_10630/*.*/), (destrFuncType)(o_10634/*.*/)); } /* line 1 "no_file" */ /* 4786 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10669/*@:=*/ (hashType/*t_208_act_to_form_param_hash*/ *const o_10670_aHashMap, const objRefType/*t_19_reference*/ *const o_10671_aKey, const objRefType/*t_19_reference*/ o_10672_anElem) { /* line 212 "../lib/hash.s7i" */ hshIncl(*o_10670_aHashMap, (genericType)(*o_10671_aKey), (genericType)(o_10672_anElem), (intType)(((memSizeType)(*o_10671_aKey)) >> 6), (compareType)(o_10632/*.*/), (createFuncType)(o_10629/*.*/), (createFuncType)(o_10633/*.*/), (copyFuncType)(o_10635/*.*/)); } /* line 1 "no_file" */ /* 4787 */ /* line 216 "../lib/hash.s7i" */ static objRefType/*t_19_reference*/ o_10673_update (hashType/*t_208_act_to_form_param_hash*/ *const o_10674_aHashMap, const objRefType/*t_19_reference*/ *const o_10675_aKey, const objRefType/*t_19_reference*/ o_10676_anElem) { /* line 217 "../lib/hash.s7i" */ return (objRefType/*t_19_reference*/)(((objRefType/*t_19_reference*/)(hshUpdate(*o_10674_aHashMap, (genericType)(*o_10675_aKey), (genericType)(o_10676_anElem), (intType)(((memSizeType)(*o_10675_aKey)) >> 6), (compareType)(o_10632/*.*/), (createFuncType)(o_10629/*.*/), (createFuncType)(o_10633/*.*/))))); } /* line 1 "no_file" */ /* 4788 */ /* declare inline o_10677_for*/ /* declare inline o_10678_for*/ /* declare inline o_10679_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_10680_keys (const const_hashType/*t_208_act_to_form_param_hash*/ o_10681_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_128_*ANONYM_TYPE**/)((hshKeys(o_10681_aHashMap, (createFuncType)(o_10629/*.*/), (destrFuncType)(o_10630/*.*/)))); } /* line 1 "no_file" */ /* 4789 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_10682_values (const const_hashType/*t_208_act_to_form_param_hash*/ o_10683_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_128_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_10683_aHashMap, (createFuncType)(o_10633/*.*/), (destrFuncType)(o_10634/*.*/)))); } /* line 1 "no_file" */ /* 4790 */ typedef genericType t_209/*t_209_*ANONYM_TYPE**/; /* 4791 */ /* 4792 */ /* 4793 */ /* 4794 */ /* objRefType/t_19_reference */ intfunctype o_10684/*.*/=(intfunctype)(&ptrCreateGeneric); /* 4795 */ /* objRefType/t_19_reference */ intfunctype o_10685/*.*/=(intfunctype)(&genericDestr); /* 4796 */ /* objRefType/t_19_reference */ intfunctype o_10686/*.*/=(intfunctype)(&ptrCpyGeneric); /* 4797 */ /* objRefType/t_19_reference */ intfunctype o_10687/*.*/=(intfunctype)(&ptrCmpGeneric); /* 4798 */ /* objRefType/t_19_reference */ intfunctype o_10688/*.*/=(intfunctype)(&generic_create_128); /* 4799 */ /* objRefType/t_19_reference */ intfunctype o_10689/*.*/=(intfunctype)(&generic_destr_128); /* 4800 */ /* objRefType/t_19_reference */ intfunctype o_10690/*.*/=(intfunctype)(&generic_cpy_128); /* 4801 */ /* 4802 */ /* 4803 */ /* 4804 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10691/*::=*/ (const const_hashType/*t_209_*ANONYM_TYPE**/ o_10692_dest, const const_hashType/*t_209_*ANONYM_TYPE**/ o_10693_source) { /* hshCreate implemented with create_209 */ } /* line 1 "no_file" */ /* 4805 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10694_destroy (const const_hashType/*t_209_*ANONYM_TYPE**/ o_10695_oldHash) { /* hshDestr implemented with destr_209 */ } /* line 1 "no_file" */ /* 4806 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10696/*:=*/ (hashType/*t_209_*ANONYM_TYPE**/ *const o_10697_dest, const const_hashType/*t_209_*ANONYM_TYPE**/ o_10698_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_10697_dest), o_10698_source, (createFuncType)(o_10684/*.*/), (destrFuncType)(o_10685/*.*/), (createFuncType)(o_10688/*.*/), (destrFuncType)(o_10689/*.*/)); } /* line 1 "no_file" */ /* 4807 */ hashType/*t_209_*ANONYM_TYPE**/ o_10699/*.*/; /* 4808 */ hashType/*t_209_*ANONYM_TYPE**/ o_10700/*.*/; /* 4809 */ /* line 149 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_10701/*[*/ (const const_hashType/*t_209_*ANONYM_TYPE**/ o_10702_aHashMap, const objRefType/*t_19_reference*/ *const o_10703_aKey) { /* line 150 "../lib/hash.s7i" */ return (arrayType/*t_128_*ANONYM_TYPE**/)((/*ref_to_value*/ (arrayType/*t_128_*ANONYM_TYPE**/)(hshIdx(o_10702_aHashMap, (genericType)(*o_10703_aKey), (intType)(((memSizeType)(*o_10703_aKey)) >> 6), (compareType)(o_10687/*.*/))))); } /* line 1 "no_file" */ /* 4810 */ /* line 152 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ /*varfunc*/ *o_10704/*[*/ (hashType/*t_209_*ANONYM_TYPE**/ *const o_10705_aHashMap, const objRefType/*t_19_reference*/ *const o_10706_aKey) { /* line 153 "../lib/hash.s7i" */ return (arrayType/*t_128_*ANONYM_TYPE**/ *)(&(hshIdxAddr(*o_10705_aHashMap, (genericType)(*o_10706_aKey), (intType)(((memSizeType)(*o_10706_aKey)) >> 6), (compareType)(o_10687/*.*/))->value.arrayValue)); } /* line 1 "no_file" */ /* 4811 */ /* line 161 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_10707/*[*/ (const const_hashType/*t_209_*ANONYM_TYPE**/ o_10708_aHashMap, const objRefType/*t_19_reference*/ *const o_10709_aKey, const const_arrayType/*t_128_*ANONYM_TYPE**/ value_o_10710_defaultValue) { /* line 162 "../lib/hash.s7i" */ arrayType/*t_128_*ANONYM_TYPE**/ result; /* line 162 "../lib/hash.s7i" */ const_arrayType/*t_128_*ANONYM_TYPE**/ o_10710_defaultValue; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ o_10710_defaultValue=create_128(value_o_10710_defaultValue); /* line 162 "../lib/hash.s7i" */ result=(arrayType/*t_128_*ANONYM_TYPE**/)((/*ref_to_value*/ (addr_1=hshIdxAddr2(o_10708_aHashMap, (genericType)(*o_10709_aKey), (intType)(((memSizeType)(*o_10709_aKey)) >> 6), (compareType)(o_10687/*.*/)),addr_1!=NULL?addr_1->value.arrayValue:(o_10710_defaultValue)))); /* line 162 "../lib/hash.s7i" */ destr_128(o_10710_defaultValue); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 4812 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_10711_in (const objRefType/*t_19_reference*/ *const o_10712_aKey, const const_hashType/*t_209_*ANONYM_TYPE**/ o_10713_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_10713_aHashMap, (genericType)(*o_10712_aKey), (intType)(((memSizeType)(*o_10712_aKey)) >> 6), (compareType)(o_10687/*.*/)))); } /* line 1 "no_file" */ /* 4813 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_10714_not (const objRefType/*t_19_reference*/ *const o_10715_aKey, const const_hashType/*t_209_*ANONYM_TYPE**/ o_10716_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_10716_aHashMap, (genericType)(*o_10715_aKey), (intType)(((memSizeType)(*o_10715_aKey)) >> 6), (compareType)(o_10687/*.*/))))); } /* line 1 "no_file" */ /* 4814 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10717_incl (hashType/*t_209_*ANONYM_TYPE**/ *const o_10718_aHashMap, const objRefType/*t_19_reference*/ *const o_10719_aKey, const const_arrayType/*t_128_*ANONYM_TYPE**/ value_o_10720_anElem) { /* line 189 "../lib/hash.s7i" */ const_arrayType/*t_128_*ANONYM_TYPE**/ o_10720_anElem; /* line 189 "../lib/hash.s7i" */ o_10720_anElem=create_128(value_o_10720_anElem); /* line 191 "../lib/hash.s7i" */ hshIncl(*o_10718_aHashMap, (genericType)(*o_10719_aKey), (genericType)(o_10720_anElem), (intType)(((memSizeType)(*o_10719_aKey)) >> 6), (compareType)(o_10687/*.*/), (createFuncType)(o_10684/*.*/), (createFuncType)(o_10688/*.*/), (copyFuncType)(o_10690/*.*/)); /* line 189 "../lib/hash.s7i" */ destr_128(o_10720_anElem); } /* line 1 "no_file" */ /* 4815 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10721_excl (hashType/*t_209_*ANONYM_TYPE**/ *const o_10722_aHashMap, const objRefType/*t_19_reference*/ *const o_10723_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_10722_aHashMap, (genericType)(*o_10723_aKey), (intType)(((memSizeType)(*o_10723_aKey)) >> 6), (compareType)(o_10687/*.*/), (destrFuncType)(o_10685/*.*/), (destrFuncType)(o_10689/*.*/)); } /* line 1 "no_file" */ /* 4816 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10724/*@:=*/ (hashType/*t_209_*ANONYM_TYPE**/ *const o_10725_aHashMap, const objRefType/*t_19_reference*/ *const o_10726_aKey, const const_arrayType/*t_128_*ANONYM_TYPE**/ value_o_10727_anElem) { /* line 210 "../lib/hash.s7i" */ const_arrayType/*t_128_*ANONYM_TYPE**/ o_10727_anElem; /* line 210 "../lib/hash.s7i" */ o_10727_anElem=create_128(value_o_10727_anElem); /* line 212 "../lib/hash.s7i" */ hshIncl(*o_10725_aHashMap, (genericType)(*o_10726_aKey), (genericType)(o_10727_anElem), (intType)(((memSizeType)(*o_10726_aKey)) >> 6), (compareType)(o_10687/*.*/), (createFuncType)(o_10684/*.*/), (createFuncType)(o_10688/*.*/), (copyFuncType)(o_10690/*.*/)); /* line 210 "../lib/hash.s7i" */ destr_128(o_10727_anElem); } /* line 1 "no_file" */ /* 4817 */ /* line 216 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_10728_update (hashType/*t_209_*ANONYM_TYPE**/ *const o_10729_aHashMap, const objRefType/*t_19_reference*/ *const o_10730_aKey, const const_arrayType/*t_128_*ANONYM_TYPE**/ value_o_10731_anElem) { /* line 217 "../lib/hash.s7i" */ arrayType/*t_128_*ANONYM_TYPE**/ result; /* line 217 "../lib/hash.s7i" */ const_arrayType/*t_128_*ANONYM_TYPE**/ o_10731_anElem; /* line 217 "../lib/hash.s7i" */ o_10731_anElem=create_128(value_o_10731_anElem); /* line 217 "../lib/hash.s7i" */ result=(arrayType/*t_128_*ANONYM_TYPE**/)(((arrayType/*t_128_*ANONYM_TYPE**/)(hshUpdate(*o_10729_aHashMap, (genericType)(*o_10730_aKey), (genericType)(create_128(o_10731_anElem)), (intType)(((memSizeType)(*o_10730_aKey)) >> 6), (compareType)(o_10687/*.*/), (createFuncType)(o_10684/*.*/), (createFuncType)(o_10688/*.*/))))); /* line 217 "../lib/hash.s7i" */ destr_128(o_10731_anElem); /* line 217 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 4818 */ /* declare inline o_10732_for*/ /* declare inline o_10733_for*/ /* declare inline o_10734_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_10735_keys (const const_hashType/*t_209_*ANONYM_TYPE**/ o_10736_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_128_*ANONYM_TYPE**/)((hshKeys(o_10736_aHashMap, (createFuncType)(o_10684/*.*/), (destrFuncType)(o_10685/*.*/)))); } /* line 1 "no_file" */ /* 4819 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_145_*ANONYM_TYPE**/ o_10737_values (const const_hashType/*t_209_*ANONYM_TYPE**/ o_10738_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_145_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_10738_aHashMap, (createFuncType)(o_10688/*.*/), (destrFuncType)(o_10689/*.*/)))); } /* line 1 "no_file" */ /* 4820 */ /* line 61 "../lib/hash.s7i" */ static void destr_209 (const_hashType/*t_209_*ANONYM_TYPE**/ b) /* line 61 "../lib/hash.s7i" */ { /* line 61 "../lib/hash.s7i" */ hshDestr(b, (destrFuncType)(o_10685/*.*/), (destrFuncType)(o_10689/*.*/)); /* line 61 "../lib/hash.s7i" */ } /* line 1 "no_file" */ /* line 283 "../lib/hash.s7i" */ static hashType/*t_209_*ANONYM_TYPE**/ o_10739_flip (const const_hashType/*t_208_act_to_form_param_hash*/ o_10740_aHashMap) { /* line 285 "../lib/hash.s7i" */ hashType/*t_209_*ANONYM_TYPE**/ o_10741_inverseHash; /* line 287 "../lib/hash.s7i" */ objRefType/*t_19_reference*/ o_10742_aKey=NULL; /* line 288 "../lib/hash.s7i" */ objRefType/*t_19_reference*/ o_10743_aValue=NULL; /* line 285 "../lib/hash.s7i" */ o_10741_inverseHash=hshEmpty(); /* inline proc o_10679_for */ { /* inline params */ /* line 290 "../lib/hash.s7i" */ objRefType/*t_19_reference*/ *const o_10744_forVar=&(o_10743_aValue); /* line 290 "../lib/hash.s7i" */ objRefType/*t_19_reference*/ *const o_10745_keyVar=&(o_10742_aKey); /* line 290 "../lib/hash.s7i" */ const const_hashType/*t_208_act_to_form_param_hash*/ o_10746_aHashMap=o_10740_aHashMap; /* line 290 "../lib/hash.s7i" */ /* push proc param o_10747_statements */ /* line 290 "../lib/hash.s7i" */ /* inline local_vars */ /* inline body */ /* hsh_for */ { /* line 258 "../lib/hash.s7i" */ const_hashType hash_1=o_10746_aHashMap; /* line 258 "../lib/hash.s7i" */ memSizeType counter_2=hash_1->table_size; /* line 258 "../lib/hash.s7i" */ hashElemType_const *table_elem_3=&hash_1->table[0]; /* line 258 "../lib/hash.s7i" */ const_hashElemType helem_4; /* line 258 "../lib/hash.s7i" */ hashElemListType stack_5=NULL; /* line 258 "../lib/hash.s7i" */ while (counter_2 > 0) { /* line 258 "../lib/hash.s7i" */ helem_4=*table_elem_3; /* line 258 "../lib/hash.s7i" */ while (helem_4 != NULL) { /* line 258 "../lib/hash.s7i" */ if (helem_4->next_greater != NULL) { /* line 258 "../lib/hash.s7i" */ push_stack(stack_5, helem_4->next_greater); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ (*o_10744_forVar)=helem_4->data.value.objRefValue; /* line 258 "../lib/hash.s7i" */ (*o_10745_keyVar)=helem_4->key.value.objRefValue; /* closure o_10747_statements*/ { /* line 291 "../lib/hash.s7i" */ if (o_10711_in(&(o_10743_aValue), o_10741_inverseHash)) { /* line 292 "../lib/hash.s7i" */ arrPush(&(*o_10704/*[*/(&(o_10741_inverseHash), &(o_10743_aValue))), (genericType)(o_10742_aKey)); } else { { /* line 294 "../lib/hash.s7i" */ arrayType/*t_128_*ANONYM_TYPE**/ tmp_1 = (arrayType/*t_128_*ANONYM_TYPE**/)(NULL); /* line 294 "../lib/hash.s7i" */ o_10724/*@:=*/(&(o_10741_inverseHash), &(o_10743_aValue), (tmp_1=(arrayType/*t_128_*ANONYM_TYPE**/)(arrBaselit((genericType)(o_10742_aKey))))); /* line 294 "../lib/hash.s7i" */ destr_128(tmp_1); } } } /* closure o_10747_statements*/ /* line 258 "../lib/hash.s7i" */ if (helem_4->next_less != NULL) { /* line 258 "../lib/hash.s7i" */ helem_4=helem_4->next_less; /* line 258 "../lib/hash.s7i" */ } else { /* line 258 "../lib/hash.s7i" */ pop_stack(stack_5, helem_4); /* line 258 "../lib/hash.s7i" */ } /* if */ /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ counter_2--; /* line 258 "../lib/hash.s7i" */ table_elem_3++; /* line 258 "../lib/hash.s7i" */ } /* while */ /* line 258 "../lib/hash.s7i" */ } /* hsh_for */ /* pop proc param o_10747_statements */ } /* inline proc o_10679_for */ return o_10741_inverseHash; } /* line 1 "no_file" */ /* 4821 */ typedef genericType t_210/*t_210_params_added_hash*/; /* 4822 */ /* 4823 */ /* 4824 */ /* 4825 */ /* 4826 */ /* objRefType/t_19_reference */ intfunctype o_10748/*.*/=(intfunctype)(&ptrCreateGeneric); /* 4827 */ /* objRefType/t_19_reference */ intfunctype o_10749/*.*/=(intfunctype)(&genericDestr); /* 4828 */ /* objRefType/t_19_reference */ intfunctype o_10750/*.*/=(intfunctype)(&ptrCpyGeneric); /* 4829 */ /* objRefType/t_19_reference */ intfunctype o_10751/*.*/=(intfunctype)(&ptrCmpGeneric); /* 4830 */ /* line 58 "../lib/hash.s7i" */ static hashType/*t_208_act_to_form_param_hash*/ create_208 (const_hashType/*t_208_act_to_form_param_hash*/ b) /* line 58 "../lib/hash.s7i" */ { /* line 58 "../lib/hash.s7i" */ return hshCreate(b, (createFuncType)(o_10629/*.*/), (destrFuncType)(o_10630/*.*/), (createFuncType)(o_10633/*.*/), (destrFuncType)(o_10634/*.*/)); /* line 58 "../lib/hash.s7i" */ } /* line 1 "no_file" */ static genericType generic_create_208 (const genericType b) { rtlObjectType result; result.value.hashValue=create_208(((const_rtlObjectType *) &b)->value.hashValue); return result.value.genericValue; } /* objRefType/t_19_reference */ intfunctype o_10752/*.*/=(intfunctype)(&generic_create_208); /* 4831 */ /* line 61 "../lib/hash.s7i" */ static void destr_208 (const_hashType/*t_208_act_to_form_param_hash*/ b) /* line 61 "../lib/hash.s7i" */ { /* line 61 "../lib/hash.s7i" */ hshDestr(b, (destrFuncType)(o_10630/*.*/), (destrFuncType)(o_10634/*.*/)); /* line 61 "../lib/hash.s7i" */ } /* line 1 "no_file" */ static void generic_destr_208 (const genericType b) { destr_208(((const_rtlObjectType *) &b)->value.hashValue); } /* objRefType/t_19_reference */ intfunctype o_10753/*.*/=(intfunctype)(&generic_destr_208); /* 4832 */ /* line 63 "../lib/hash.s7i" */ static void cpy_208 (hashType/*t_208_act_to_form_param_hash*/ *a, hashType/*t_208_act_to_form_param_hash*/ b) /* line 63 "../lib/hash.s7i" */ { /* line 63 "../lib/hash.s7i" */ hshCpy(a, b, (createFuncType)(o_10629/*.*/), (destrFuncType)(o_10630/*.*/), (createFuncType)(o_10633/*.*/), (destrFuncType)(o_10634/*.*/)); /* line 63 "../lib/hash.s7i" */ } /* line 1 "no_file" */ static void generic_cpy_208 (genericType *a, const genericType b) { cpy_208((hashType/*t_208_act_to_form_param_hash*/ *)(&(((const_rtlObjectType *) a)->value.hashValue)), (hashType/*t_208_act_to_form_param_hash*/)(((const_rtlObjectType *) &b)->value.hashValue)); } /* objRefType/t_19_reference */ intfunctype o_10754/*.*/=(intfunctype)(&generic_cpy_208); /* 4833 */ /* 4834 */ /* 4835 */ /* 4836 */ typedef genericType t_211/*t_211_*ANONYM_TYPE**/; /* 4837 */ typedef genericType t_212/*t_212_*ANONYM_TYPE**/; /* 4838 */ /* 4839 */ /* 4840 */ /* 4841 */ /* ACTION ARR_GEN for type arrayType/t_212_*ANONYM_TYPE* element is hashType/t_208_act_to_form_param_hash */ /* 4842 */ /* 4843 */ /* 4844 */ /* 4845 */ /* 4846 */ /* 4847 */ /* ACTION ARR_IDX for type arrayType/t_211_*ANONYM_TYPE* element is hashType/t_208_act_to_form_param_hash */ /* 4848 */ /* ACTION ARR_IDX for type arrayType/t_211_*ANONYM_TYPE* element is hashType/t_208_act_to_form_param_hash */ /* 4849 */ /* line 163 "../lib/array.s7i" */ static arrayType times_211 (intType n, const const_hashType/*t_208_act_to_form_param_hash*/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.hashValue=create_208(b); /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 4850 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_211_*ANONYM_TYPE**/ create_211 (const_arrayType/*t_211_*ANONYM_TYPE**/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_211_*ANONYM_TYPE**/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_211_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.hashValue=create_208(b->arr[i].value.hashValue); /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_211 (const_arrayType/*t_211_*ANONYM_TYPE**/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ destr_208(b->arr[i].value.hashValue); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_212 (const_arrayType/*t_212_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ destr_208(b->arr[i].value.hashValue); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_212_*ANONYM_TYPE**/ create_212 (const_arrayType/*t_212_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_212_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_212_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.hashValue=create_208(b->arr[i].value.hashValue); /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_211_*ANONYM_TYPE**/ o_10755_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_10756_indexRange, const const_hashType/*t_208_act_to_form_param_hash*/ value_o_10757_element) { /* line 183 "../lib/array.s7i" */ const_hashType/*t_208_act_to_form_param_hash*/ o_10757_element; /* line 186 "../lib/array.s7i" */ arrayType/*t_211_*ANONYM_TYPE**/ o_10758_anArray; /* line 183 "../lib/array.s7i" */ o_10757_element=create_208(value_o_10757_element); /* line 186 "../lib/array.s7i" */ o_10758_anArray=create_211(arr[355]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_10758_anArray; /* line 188 "../lib/array.s7i" */ o_10758_anArray=times_211(((((structType)(o_10756_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_10756_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_10757_element); /* line 188 "../lib/array.s7i" */ destr_211(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_10758_anArray; /* line 189 "../lib/array.s7i" */ o_10758_anArray=arrArrlit2(((structType)(o_10756_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_212(/*arrConv()*/o_10758_anArray)); /* line 189 "../lib/array.s7i" */ destr_211(old_array); } /* line 183 "../lib/array.s7i" */ destr_208(o_10757_element); return o_10758_anArray; } /* line 1 "no_file" */ /* 4851 */ /* declare inline o_10759_for*/ /* declare inline o_10760_for*/ /* declare inline o_10761_for*/ /* declare inline o_10762_for*/ /* declare inline o_10763_for*/ /* declare inline o_10764_for*/ /* declare inline o_10765_for*/ /* declare inline o_10766_for*/ /* declare inline o_10767_for*/ /* line 329 "../lib/array.s7i" */ static hashType/*t_208_act_to_form_param_hash*/ o_10768_rand (const const_arrayType/*t_211_*ANONYM_TYPE**/ o_10769_arr) { /* line 330 "../lib/array.s7i" */ hashType/*t_208_act_to_form_param_hash*/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(hashType/*t_208_act_to_form_param_hash*/)((/*ref_to_value*/ (o_10769_arr)->arr[idx_1=intRand((o_10769_arr)->min_position, (o_10769_arr)->max_position),(idxChk(idx_1 < (o_10769_arr)->min_position || idx_1 > (o_10769_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_10769_arr)->min_position)].value.hashValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 4852 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_10770_insert (arrayType/*t_211_*ANONYM_TYPE**/ *const o_10771_arr, const intType/*t_14_integer*/ o_10772_index, const const_hashType/*t_208_act_to_form_param_hash*/ value_o_10773_element) { /* line 332 "../lib/array.s7i" */ const_hashType/*t_208_act_to_form_param_hash*/ o_10773_element; /* line 332 "../lib/array.s7i" */ o_10773_element=create_208(value_o_10773_element); /* line 334 "../lib/array.s7i" */ if (((o_10772_index) >= ((*o_10771_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_10772_index) <= (((*o_10771_arr)->max_position)+1))) { { /* line 335 "../lib/array.s7i" */ arrayType tmp_4=NULL; /* line 335 "../lib/array.s7i" */ arrayType tmp_7=NULL; { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_10771_arr; /* line 335 "../lib/array.s7i" */ *o_10771_arr=arrCat(arrCat((tmp_4=arrHead(*o_10771_arr, (o_10772_index)-1), create_211(tmp_4)), arrBaselit((genericType)(create_208(o_10773_element)))), (tmp_7=arrTail(*o_10771_arr, o_10772_index), create_211(tmp_7))); /* line 335 "../lib/array.s7i" */ destr_211(old_array); } /* line 335 "../lib/array.s7i" */ if (tmp_4 != NULL) {arrFree(tmp_4);} /* line 335 "../lib/array.s7i" */ if (tmp_7 != NULL) {arrFree(tmp_7);} } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } /* line 332 "../lib/array.s7i" */ destr_208(o_10773_element); } /* line 1 "no_file" */ /* 4853 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10774/*::=*/ (const const_hashType/*t_210_params_added_hash*/ o_10775_dest, const const_hashType/*t_210_params_added_hash*/ o_10776_source) { /* hshCreate implemented with create_210 */ } /* line 1 "no_file" */ /* 4854 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10777_destroy (const const_hashType/*t_210_params_added_hash*/ o_10778_oldHash) { /* hshDestr implemented with destr_210 */ } /* line 1 "no_file" */ /* 4855 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10779/*:=*/ (hashType/*t_210_params_added_hash*/ *const o_10780_dest, const const_hashType/*t_210_params_added_hash*/ o_10781_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_10780_dest), o_10781_source, (createFuncType)(o_10748/*.*/), (destrFuncType)(o_10749/*.*/), (createFuncType)(o_10752/*.*/), (destrFuncType)(o_10753/*.*/)); } /* line 1 "no_file" */ /* 4856 */ typedef genericType t_213/*t_213_*ANONYM_TYPE**/; /* 4857 */ /* 4858 */ /* 4859 */ /* 4860 */ /* 4861 */ /* objRefType/t_213_*ANONYM_TYPE* */ objRefType o_10782/*.*/=(objRefType)(NULL); /* 4862 */ /* objRefType/t_213_*ANONYM_TYPE* */ objRefType o_10783/*.*/=(objRefType)(NULL); /* 4863 */ hashType/*t_210_params_added_hash*/ o_10784/*.*/; /* 4864 */ hashType/*t_210_params_added_hash*/ o_10785/*.*/; /* 4865 */ /* line 149 "../lib/hash.s7i" */ static hashType/*t_208_act_to_form_param_hash*/ o_10786/*[*/ (const const_hashType/*t_210_params_added_hash*/ o_10787_aHashMap, const objRefType/*t_19_reference*/ *const o_10788_aKey) { /* line 150 "../lib/hash.s7i" */ return (hashType/*t_208_act_to_form_param_hash*/)((/*ref_to_value*/ (hashType/*t_208_act_to_form_param_hash*/)(hshIdx(o_10787_aHashMap, (genericType)(*o_10788_aKey), (intType)(((memSizeType)(*o_10788_aKey)) >> 6), (compareType)(o_10751/*.*/))))); } /* line 1 "no_file" */ /* 4866 */ /* line 152 "../lib/hash.s7i" */ static hashType/*t_208_act_to_form_param_hash*/ /*varfunc*/ *o_10789/*[*/ (hashType/*t_210_params_added_hash*/ *const o_10790_aHashMap, const objRefType/*t_19_reference*/ *const o_10791_aKey) { /* line 153 "../lib/hash.s7i" */ return (hashType/*t_208_act_to_form_param_hash*/ *)(&(hshIdxAddr(*o_10790_aHashMap, (genericType)(*o_10791_aKey), (intType)(((memSizeType)(*o_10791_aKey)) >> 6), (compareType)(o_10751/*.*/))->value.hashValue)); } /* line 1 "no_file" */ /* 4867 */ /* line 161 "../lib/hash.s7i" */ static hashType/*t_208_act_to_form_param_hash*/ o_10792/*[*/ (const const_hashType/*t_210_params_added_hash*/ o_10793_aHashMap, const objRefType/*t_19_reference*/ *const o_10794_aKey, const const_hashType/*t_208_act_to_form_param_hash*/ value_o_10795_defaultValue) { /* line 162 "../lib/hash.s7i" */ hashType/*t_208_act_to_form_param_hash*/ result; /* line 162 "../lib/hash.s7i" */ const_hashType/*t_208_act_to_form_param_hash*/ o_10795_defaultValue; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ o_10795_defaultValue=create_208(value_o_10795_defaultValue); /* line 162 "../lib/hash.s7i" */ result=(hashType/*t_208_act_to_form_param_hash*/)((/*ref_to_value*/ (addr_1=hshIdxAddr2(o_10793_aHashMap, (genericType)(*o_10794_aKey), (intType)(((memSizeType)(*o_10794_aKey)) >> 6), (compareType)(o_10751/*.*/)),addr_1!=NULL?addr_1->value.hashValue:(o_10795_defaultValue)))); /* line 162 "../lib/hash.s7i" */ destr_208(o_10795_defaultValue); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 4868 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_10796_in (const objRefType/*t_19_reference*/ *const o_10797_aKey, const const_hashType/*t_210_params_added_hash*/ o_10798_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_10798_aHashMap, (genericType)(*o_10797_aKey), (intType)(((memSizeType)(*o_10797_aKey)) >> 6), (compareType)(o_10751/*.*/)))); } /* line 1 "no_file" */ /* 4869 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_10799_not (const objRefType/*t_19_reference*/ *const o_10800_aKey, const const_hashType/*t_210_params_added_hash*/ o_10801_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_10801_aHashMap, (genericType)(*o_10800_aKey), (intType)(((memSizeType)(*o_10800_aKey)) >> 6), (compareType)(o_10751/*.*/))))); } /* line 1 "no_file" */ /* 4870 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10802_incl (hashType/*t_210_params_added_hash*/ *const o_10803_aHashMap, const objRefType/*t_19_reference*/ *const o_10804_aKey, const const_hashType/*t_208_act_to_form_param_hash*/ value_o_10805_anElem) { /* line 189 "../lib/hash.s7i" */ const_hashType/*t_208_act_to_form_param_hash*/ o_10805_anElem; /* line 189 "../lib/hash.s7i" */ o_10805_anElem=create_208(value_o_10805_anElem); /* line 191 "../lib/hash.s7i" */ hshIncl(*o_10803_aHashMap, (genericType)(*o_10804_aKey), (genericType)(o_10805_anElem), (intType)(((memSizeType)(*o_10804_aKey)) >> 6), (compareType)(o_10751/*.*/), (createFuncType)(o_10748/*.*/), (createFuncType)(o_10752/*.*/), (copyFuncType)(o_10754/*.*/)); /* line 189 "../lib/hash.s7i" */ destr_208(o_10805_anElem); } /* line 1 "no_file" */ /* 4871 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10806_excl (hashType/*t_210_params_added_hash*/ *const o_10807_aHashMap, const objRefType/*t_19_reference*/ *const o_10808_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_10807_aHashMap, (genericType)(*o_10808_aKey), (intType)(((memSizeType)(*o_10808_aKey)) >> 6), (compareType)(o_10751/*.*/), (destrFuncType)(o_10749/*.*/), (destrFuncType)(o_10753/*.*/)); } /* line 1 "no_file" */ /* 4872 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10809/*@:=*/ (hashType/*t_210_params_added_hash*/ *const o_10810_aHashMap, const objRefType/*t_19_reference*/ *const o_10811_aKey, const const_hashType/*t_208_act_to_form_param_hash*/ value_o_10812_anElem) { /* line 210 "../lib/hash.s7i" */ const_hashType/*t_208_act_to_form_param_hash*/ o_10812_anElem; /* line 210 "../lib/hash.s7i" */ o_10812_anElem=create_208(value_o_10812_anElem); /* line 212 "../lib/hash.s7i" */ hshIncl(*o_10810_aHashMap, (genericType)(*o_10811_aKey), (genericType)(o_10812_anElem), (intType)(((memSizeType)(*o_10811_aKey)) >> 6), (compareType)(o_10751/*.*/), (createFuncType)(o_10748/*.*/), (createFuncType)(o_10752/*.*/), (copyFuncType)(o_10754/*.*/)); /* line 210 "../lib/hash.s7i" */ destr_208(o_10812_anElem); } /* line 1 "no_file" */ /* 4873 */ /* line 216 "../lib/hash.s7i" */ static hashType/*t_208_act_to_form_param_hash*/ o_10813_update (hashType/*t_210_params_added_hash*/ *const o_10814_aHashMap, const objRefType/*t_19_reference*/ *const o_10815_aKey, const const_hashType/*t_208_act_to_form_param_hash*/ value_o_10816_anElem) { /* line 217 "../lib/hash.s7i" */ hashType/*t_208_act_to_form_param_hash*/ result; /* line 217 "../lib/hash.s7i" */ const_hashType/*t_208_act_to_form_param_hash*/ o_10816_anElem; /* line 217 "../lib/hash.s7i" */ o_10816_anElem=create_208(value_o_10816_anElem); /* line 217 "../lib/hash.s7i" */ result=(hashType/*t_208_act_to_form_param_hash*/)(((hashType/*t_208_act_to_form_param_hash*/)(hshUpdate(*o_10814_aHashMap, (genericType)(*o_10815_aKey), (genericType)(create_208(o_10816_anElem)), (intType)(((memSizeType)(*o_10815_aKey)) >> 6), (compareType)(o_10751/*.*/), (createFuncType)(o_10748/*.*/), (createFuncType)(o_10752/*.*/))))); /* line 217 "../lib/hash.s7i" */ destr_208(o_10816_anElem); /* line 217 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 4874 */ /* declare inline o_10817_for*/ /* declare inline o_10818_for*/ /* declare inline o_10819_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_10820_keys (const const_hashType/*t_210_params_added_hash*/ o_10821_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_128_*ANONYM_TYPE**/)((hshKeys(o_10821_aHashMap, (createFuncType)(o_10748/*.*/), (destrFuncType)(o_10749/*.*/)))); } /* line 1 "no_file" */ /* 4875 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_211_*ANONYM_TYPE**/ o_10822_values (const const_hashType/*t_210_params_added_hash*/ o_10823_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_211_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_10823_aHashMap, (createFuncType)(o_10752/*.*/), (destrFuncType)(o_10753/*.*/)))); } /* line 1 "no_file" */ /* 4876 */ /* 4877 */ typedef genericType t_214/*t_214_inline_param_value_hash*/; /* 4878 */ /* 4879 */ /* 4880 */ /* 4881 */ /* 4882 */ /* objRefType/t_19_reference */ intfunctype o_10824/*.*/=(intfunctype)(&ptrCreateGeneric); /* 4883 */ /* objRefType/t_19_reference */ intfunctype o_10825/*.*/=(intfunctype)(&genericDestr); /* 4884 */ /* objRefType/t_19_reference */ intfunctype o_10826/*.*/=(intfunctype)(&ptrCpyGeneric); /* 4885 */ /* objRefType/t_19_reference */ intfunctype o_10827/*.*/=(intfunctype)(&ptrCmpGeneric); /* 4886 */ /* objRefType/t_19_reference */ intfunctype o_10828/*.*/=(intfunctype)(&rflCreateGeneric); /* 4887 */ /* objRefType/t_19_reference */ intfunctype o_10829/*.*/=(intfunctype)(&rflDestrGeneric); /* 4888 */ /* objRefType/t_19_reference */ intfunctype o_10830/*.*/=(intfunctype)(&rflCpyGeneric); /* 4889 */ /* 4890 */ /* 4891 */ /* 4892 */ typedef genericType t_215/*t_215_*ANONYM_TYPE**/; /* 4893 */ typedef genericType t_216/*t_216_*ANONYM_TYPE**/; /* 4894 */ /* 4895 */ /* 4896 */ /* 4897 */ /* ACTION ARR_GEN for type arrayType/t_216_*ANONYM_TYPE* element is listType/t_20_ref_list */ /* 4898 */ /* 4899 */ /* 4900 */ /* 4901 */ /* 4902 */ /* 4903 */ /* ACTION ARR_IDX for type arrayType/t_215_*ANONYM_TYPE* element is listType/t_20_ref_list */ /* 4904 */ /* ACTION ARR_IDX for type arrayType/t_215_*ANONYM_TYPE* element is listType/t_20_ref_list */ /* 4905 */ /* line 163 "../lib/array.s7i" */ static arrayType times_215 (intType n, const listType/*t_20_ref_list*/ b) /* line 163 "../lib/array.s7i" */ { /* line 163 "../lib/array.s7i" */ arrayType a; /* line 163 "../lib/array.s7i" */ memSizeType i; /* line 163 "../lib/array.s7i" */ if (n < 0) { /* line 163 "../lib/array.s7i" */ raise_error(RANGE_ERROR); /* line 163 "../lib/array.s7i" */ } else { /* line 163 "../lib/array.s7i" */ a=arrMalloc(1, n); /* line 163 "../lib/array.s7i" */ for (i = 0; i < (memSizeType)(n); i++) { /* line 163 "../lib/array.s7i" */ a->arr[i].value.listValue=rflCreate(b); /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ } /* line 163 "../lib/array.s7i" */ return a; /* line 163 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* 4906 */ /* line 62 "../lib/array.s7i" */ static arrayType/*t_215_*ANONYM_TYPE**/ create_215 (const_arrayType/*t_215_*ANONYM_TYPE**/ b) /* line 62 "../lib/array.s7i" */ { /* line 62 "../lib/array.s7i" */ arrayType/*t_215_*ANONYM_TYPE**/ a; /* line 62 "../lib/array.s7i" */ memSizeType i; /* line 62 "../lib/array.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 62 "../lib/array.s7i" */ a=(arrayType/*t_215_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 62 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 62 "../lib/array.s7i" */ a->arr[i].value.listValue=rflCreate(b->arr[i].value.listValue); /* line 62 "../lib/array.s7i" */ } /* line 62 "../lib/array.s7i" */ return a; /* line 62 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 63 "../lib/array.s7i" */ static void destr_215 (const_arrayType/*t_215_*ANONYM_TYPE**/ b) /* line 63 "../lib/array.s7i" */ { /* line 63 "../lib/array.s7i" */ memSizeType i; /* line 63 "../lib/array.s7i" */ memSizeType size; /* line 63 "../lib/array.s7i" */ if (b != NULL) { /* line 63 "../lib/array.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 63 "../lib/array.s7i" */ for (i = 0; i < size; i++) { /* line 63 "../lib/array.s7i" */ rflDestr(b->arr[i].value.listValue); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ arrFree((arrayType)(b)); /* line 63 "../lib/array.s7i" */ } /* line 63 "../lib/array.s7i" */ } /* line 1 "no_file" */ /* line 639 "../lib/seed7_05.s7i" */ static void destr_216 (const_arrayType/*t_216_*ANONYM_TYPE**/ b) /* line 639 "../lib/seed7_05.s7i" */ { /* line 639 "../lib/seed7_05.s7i" */ memSizeType i; /* line 639 "../lib/seed7_05.s7i" */ memSizeType size; /* line 639 "../lib/seed7_05.s7i" */ if (b != NULL) { /* line 639 "../lib/seed7_05.s7i" */ size = (uintType)(b->max_position - b->min_position + 1); /* line 639 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 639 "../lib/seed7_05.s7i" */ rflDestr(b->arr[i].value.listValue); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ arrFree((arrayType)(b)); /* line 639 "../lib/seed7_05.s7i" */ } /* line 639 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 638 "../lib/seed7_05.s7i" */ static arrayType/*t_216_*ANONYM_TYPE**/ create_216 (const_arrayType/*t_216_*ANONYM_TYPE**/ b) /* line 638 "../lib/seed7_05.s7i" */ { /* line 638 "../lib/seed7_05.s7i" */ arrayType/*t_216_*ANONYM_TYPE**/ a; /* line 638 "../lib/seed7_05.s7i" */ memSizeType i; /* line 638 "../lib/seed7_05.s7i" */ memSizeType size = (uintType)(b->max_position - b->min_position + 1); /* line 638 "../lib/seed7_05.s7i" */ a=(arrayType/*t_216_*ANONYM_TYPE**/)(arrMalloc(b->min_position, b->max_position)); /* line 638 "../lib/seed7_05.s7i" */ for (i = 0; i < size; i++) { /* line 638 "../lib/seed7_05.s7i" */ a->arr[i].value.listValue=rflCreate(b->arr[i].value.listValue); /* line 638 "../lib/seed7_05.s7i" */ } /* line 638 "../lib/seed7_05.s7i" */ return a; /* line 638 "../lib/seed7_05.s7i" */ } /* line 1 "no_file" */ /* line 183 "../lib/array.s7i" */ static arrayType/*t_215_*ANONYM_TYPE**/ o_10831_times (const structType/*t_24_ARRAY_IDX_RANGE*/ o_10832_indexRange, const listType/*t_20_ref_list*/ o_10833_element) { /* line 186 "../lib/array.s7i" */ arrayType/*t_215_*ANONYM_TYPE**/ o_10834_anArray; /* line 186 "../lib/array.s7i" */ o_10834_anArray=create_215(arr[358]); { /* line 188 "../lib/array.s7i" */ arrayType old_array=o_10834_anArray; /* line 188 "../lib/array.s7i" */ o_10834_anArray=times_215(((((structType)(o_10832_indexRange))->stru[1].value.intValue/*->o_233_maxIdx*/) - (((structType)(o_10832_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/))+1, o_10833_element); /* line 188 "../lib/array.s7i" */ destr_215(old_array); } { /* line 189 "../lib/array.s7i" */ arrayType old_array=o_10834_anArray; /* line 189 "../lib/array.s7i" */ o_10834_anArray=arrArrlit2(((structType)(o_10832_indexRange))->stru[0].value.intValue/*->o_232_minIdx*/, create_216(/*arrConv()*/o_10834_anArray)); /* line 189 "../lib/array.s7i" */ destr_215(old_array); } return o_10834_anArray; } /* line 1 "no_file" */ /* 4907 */ /* declare inline o_10835_for*/ /* declare inline o_10836_for*/ /* declare inline o_10837_for*/ /* declare inline o_10838_for*/ /* declare inline o_10839_for*/ /* declare inline o_10840_for*/ /* declare inline o_10841_for*/ /* declare inline o_10842_for*/ /* declare inline o_10843_for*/ /* line 329 "../lib/array.s7i" */ static listType/*t_20_ref_list*/ o_10844_rand (const const_arrayType/*t_215_*ANONYM_TYPE**/ o_10845_arr) { /* line 330 "../lib/array.s7i" */ listType/*t_20_ref_list*/ result; /* line 330 "../lib/array.s7i" */ intType idx_1; /* line 330 "../lib/array.s7i" */ result=(listType/*t_20_ref_list*/)(((o_10845_arr)->arr[idx_1=intRand((o_10845_arr)->min_position, (o_10845_arr)->max_position),(idxChk(idx_1 < (o_10845_arr)->min_position || idx_1 > (o_10845_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, idx_1-(o_10845_arr)->min_position)].value.listValue)); /* line 330 "../lib/array.s7i" */ return result; } /* line 1 "no_file" */ /* 4908 */ /* line 332 "../lib/array.s7i" */ static void/*t_1_void*/ o_10846_insert (arrayType/*t_215_*ANONYM_TYPE**/ *const o_10847_arr, const intType/*t_14_integer*/ o_10848_index, const listType/*t_20_ref_list*/ o_10849_element) { /* line 334 "../lib/array.s7i" */ if (((o_10848_index) >= ((*o_10847_arr)->min_position)) && /* line 334 "../lib/array.s7i" */ ((o_10848_index) <= (((*o_10847_arr)->max_position)+1))) { { { /* line 335 "../lib/array.s7i" */ arrayType old_array=*o_10847_arr; /* line 335 "../lib/array.s7i" */ *o_10847_arr=arrCat(arrCat(arrHead(*o_10847_arr, (o_10848_index)-1), arrBaselit((genericType)(rflCreate(o_10849_element)))), arrTail(*o_10847_arr, o_10848_index)); /* line 335 "../lib/array.s7i" */ destr_215(old_array); } } } else { /* line 337 "../lib/array.s7i" */ rtlRaiseError(o_18_RANGE_ERROR+1, "../lib/array.s7i", 337); } } /* line 1 "no_file" */ /* 4909 */ /* line 344 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_10850/*=*/ (const const_arrayType/*t_215_*ANONYM_TYPE**/ o_10851_arr1, const const_arrayType/*t_215_*ANONYM_TYPE**/ o_10852_arr2) { /* line 346 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_10853_isEqual=o_25_FALSE; /* line 348 "../lib/array.s7i" */ intType/*t_14_integer*/ o_10854_number=1; /* line 350 "../lib/array.s7i" */ if ((((o_10851_arr1)->min_position) == ((o_10852_arr2)->min_position)) && /* line 350 "../lib/array.s7i" */ (((o_10851_arr1)->max_position) == ((o_10852_arr2)->max_position))) { /* line 351 "../lib/array.s7i" */ o_10853_isEqual=o_26_TRUE; /* line 352 "../lib/array.s7i" */ o_10854_number=(o_10851_arr1)->min_position; /* line 353 "../lib/array.s7i" */ while (((o_10854_number) <= ((o_10851_arr1)->max_position)) && /* line 353 "../lib/array.s7i" */ (o_10853_isEqual)) { /* line 354 "../lib/array.s7i" */ o_10853_isEqual=rflEq((o_10851_arr1)->arr[(idxChk((o_10854_number) < (o_10851_arr1)->min_position || (o_10854_number) > (o_10851_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_10854_number)-(o_10851_arr1)->min_position)].value.listValue, (o_10852_arr2)->arr[(idxChk((o_10854_number) < (o_10852_arr2)->min_position || (o_10854_number) > (o_10852_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_10854_number)-(o_10852_arr2)->min_position)].value.listValue); /* line 355 "../lib/array.s7i" */ ++(o_10854_number); } } return o_10853_isEqual; } /* line 1 "no_file" */ /* 4910 */ /* line 360 "../lib/array.s7i" */ static boolType/*t_13_boolean*/ o_10855/*<>*/ (const const_arrayType/*t_215_*ANONYM_TYPE**/ o_10856_arr1, const const_arrayType/*t_215_*ANONYM_TYPE**/ o_10857_arr2) { /* line 362 "../lib/array.s7i" */ boolType/*t_13_boolean*/ o_10858_isNotEqual=o_26_TRUE; /* line 364 "../lib/array.s7i" */ intType/*t_14_integer*/ o_10859_number=1; /* line 366 "../lib/array.s7i" */ if ((((o_10856_arr1)->min_position) == ((o_10857_arr2)->min_position)) && /* line 366 "../lib/array.s7i" */ (((o_10856_arr1)->max_position) == ((o_10857_arr2)->max_position))) { /* line 367 "../lib/array.s7i" */ o_10858_isNotEqual=o_25_FALSE; /* line 368 "../lib/array.s7i" */ o_10859_number=(o_10856_arr1)->min_position; /* line 369 "../lib/array.s7i" */ while (((o_10859_number) <= ((o_10856_arr1)->max_position)) && /* line 369 "../lib/array.s7i" */ (!(o_10858_isNotEqual))) { /* line 370 "../lib/array.s7i" */ o_10858_isNotEqual=!rflEq((o_10856_arr1)->arr[(idxChk((o_10859_number) < (o_10856_arr1)->min_position || (o_10859_number) > (o_10856_arr1)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_10859_number)-(o_10856_arr1)->min_position)].value.listValue, (o_10857_arr2)->arr[(idxChk((o_10859_number) < (o_10857_arr2)->min_position || (o_10859_number) > (o_10857_arr2)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_10859_number)-(o_10857_arr2)->min_position)].value.listValue); /* line 371 "../lib/array.s7i" */ ++(o_10859_number); } } return o_10858_isNotEqual; } /* line 1 "no_file" */ /* 4911 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10860/*::=*/ (const const_hashType/*t_214_inline_param_value_hash*/ o_10861_dest, const const_hashType/*t_214_inline_param_value_hash*/ o_10862_source) { /* hshCreate implemented with create_214 */ } /* line 1 "no_file" */ /* 4912 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10863_destroy (const const_hashType/*t_214_inline_param_value_hash*/ o_10864_oldHash) { /* hshDestr implemented with destr_214 */ } /* line 1 "no_file" */ /* 4913 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10865/*:=*/ (hashType/*t_214_inline_param_value_hash*/ *const o_10866_dest, const const_hashType/*t_214_inline_param_value_hash*/ o_10867_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_10866_dest), o_10867_source, (createFuncType)(o_10824/*.*/), (destrFuncType)(o_10825/*.*/), (createFuncType)(o_10828/*.*/), (destrFuncType)(o_10829/*.*/)); } /* line 1 "no_file" */ /* 4914 */ typedef genericType t_217/*t_217_*ANONYM_TYPE**/; /* 4915 */ /* 4916 */ /* 4917 */ /* 4918 */ /* 4919 */ /* objRefType/t_217_*ANONYM_TYPE* */ objRefType o_10868/*.*/=(objRefType)(NULL); /* 4920 */ /* objRefType/t_217_*ANONYM_TYPE* */ objRefType o_10869/*.*/=(objRefType)(NULL); /* 4921 */ hashType/*t_214_inline_param_value_hash*/ o_10870/*.*/; /* 4922 */ hashType/*t_214_inline_param_value_hash*/ o_10871/*.*/; /* 4923 */ /* line 149 "../lib/hash.s7i" */ static listType/*t_20_ref_list*/ o_10872/*[*/ (const const_hashType/*t_214_inline_param_value_hash*/ o_10873_aHashMap, const objRefType/*t_19_reference*/ *const o_10874_aKey) { /* line 150 "../lib/hash.s7i" */ return (listType/*t_20_ref_list*/)(((listType/*t_20_ref_list*/)(hshIdx(o_10873_aHashMap, (genericType)(*o_10874_aKey), (intType)(((memSizeType)(*o_10874_aKey)) >> 6), (compareType)(o_10827/*.*/))))); } /* line 1 "no_file" */ /* 4924 */ /* line 152 "../lib/hash.s7i" */ static listType/*t_20_ref_list*/ /*varfunc*/ *o_10875/*[*/ (hashType/*t_214_inline_param_value_hash*/ *const o_10876_aHashMap, const objRefType/*t_19_reference*/ *const o_10877_aKey) { /* line 153 "../lib/hash.s7i" */ return (listType/*t_20_ref_list*/ *)(&(hshIdxAddr(*o_10876_aHashMap, (genericType)(*o_10877_aKey), (intType)(((memSizeType)(*o_10877_aKey)) >> 6), (compareType)(o_10827/*.*/))->value.listValue)); } /* line 1 "no_file" */ /* 4925 */ /* line 161 "../lib/hash.s7i" */ static listType/*t_20_ref_list*/ o_10878/*[*/ (const const_hashType/*t_214_inline_param_value_hash*/ o_10879_aHashMap, const objRefType/*t_19_reference*/ *const o_10880_aKey, const listType/*t_20_ref_list*/ o_10881_defaultValue) { /* line 162 "../lib/hash.s7i" */ listType/*t_20_ref_list*/ result; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ result=(listType/*t_20_ref_list*/)(((addr_1=hshIdxAddr2(o_10879_aHashMap, (genericType)(*o_10880_aKey), (intType)(((memSizeType)(*o_10880_aKey)) >> 6), (compareType)(o_10827/*.*/)),addr_1!=NULL?addr_1->value.listValue:(o_10881_defaultValue)))); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 4926 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_10882_in (const objRefType/*t_19_reference*/ *const o_10883_aKey, const const_hashType/*t_214_inline_param_value_hash*/ o_10884_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_10884_aHashMap, (genericType)(*o_10883_aKey), (intType)(((memSizeType)(*o_10883_aKey)) >> 6), (compareType)(o_10827/*.*/)))); } /* line 1 "no_file" */ /* 4927 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_10885_not (const objRefType/*t_19_reference*/ *const o_10886_aKey, const const_hashType/*t_214_inline_param_value_hash*/ o_10887_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_10887_aHashMap, (genericType)(*o_10886_aKey), (intType)(((memSizeType)(*o_10886_aKey)) >> 6), (compareType)(o_10827/*.*/))))); } /* line 1 "no_file" */ /* 4928 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10888_incl (hashType/*t_214_inline_param_value_hash*/ *const o_10889_aHashMap, const objRefType/*t_19_reference*/ *const o_10890_aKey, const listType/*t_20_ref_list*/ o_10891_anElem) { /* line 191 "../lib/hash.s7i" */ hshIncl(*o_10889_aHashMap, (genericType)(*o_10890_aKey), (genericType)(o_10891_anElem), (intType)(((memSizeType)(*o_10890_aKey)) >> 6), (compareType)(o_10827/*.*/), (createFuncType)(o_10824/*.*/), (createFuncType)(o_10828/*.*/), (copyFuncType)(o_10830/*.*/)); } /* line 1 "no_file" */ /* 4929 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10892_excl (hashType/*t_214_inline_param_value_hash*/ *const o_10893_aHashMap, const objRefType/*t_19_reference*/ *const o_10894_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_10893_aHashMap, (genericType)(*o_10894_aKey), (intType)(((memSizeType)(*o_10894_aKey)) >> 6), (compareType)(o_10827/*.*/), (destrFuncType)(o_10825/*.*/), (destrFuncType)(o_10829/*.*/)); } /* line 1 "no_file" */ /* 4930 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10895/*@:=*/ (hashType/*t_214_inline_param_value_hash*/ *const o_10896_aHashMap, const objRefType/*t_19_reference*/ *const o_10897_aKey, const listType/*t_20_ref_list*/ o_10898_anElem) { /* line 212 "../lib/hash.s7i" */ hshIncl(*o_10896_aHashMap, (genericType)(*o_10897_aKey), (genericType)(o_10898_anElem), (intType)(((memSizeType)(*o_10897_aKey)) >> 6), (compareType)(o_10827/*.*/), (createFuncType)(o_10824/*.*/), (createFuncType)(o_10828/*.*/), (copyFuncType)(o_10830/*.*/)); } /* line 1 "no_file" */ /* 4931 */ /* line 216 "../lib/hash.s7i" */ static listType/*t_20_ref_list*/ o_10899_update (hashType/*t_214_inline_param_value_hash*/ *const o_10900_aHashMap, const objRefType/*t_19_reference*/ *const o_10901_aKey, const listType/*t_20_ref_list*/ o_10902_anElem) { /* line 217 "../lib/hash.s7i" */ return (listType/*t_20_ref_list*/)(((listType/*t_20_ref_list*/)(hshUpdate(*o_10900_aHashMap, (genericType)(*o_10901_aKey), (genericType)(o_10902_anElem), (intType)(((memSizeType)(*o_10901_aKey)) >> 6), (compareType)(o_10827/*.*/), (createFuncType)(o_10824/*.*/), (createFuncType)(o_10828/*.*/))))); } /* line 1 "no_file" */ /* 4932 */ /* declare inline o_10903_for*/ /* declare inline o_10904_for*/ /* declare inline o_10905_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_10906_keys (const const_hashType/*t_214_inline_param_value_hash*/ o_10907_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_128_*ANONYM_TYPE**/)((hshKeys(o_10907_aHashMap, (createFuncType)(o_10824/*.*/), (destrFuncType)(o_10825/*.*/)))); } /* line 1 "no_file" */ /* 4933 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_215_*ANONYM_TYPE**/ o_10908_values (const const_hashType/*t_214_inline_param_value_hash*/ o_10909_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_215_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_10909_aHashMap, (createFuncType)(o_10828/*.*/), (destrFuncType)(o_10829/*.*/)))); } /* line 1 "no_file" */ /* 4934 */ typedef genericType t_218/*t_218_inline_param_hash*/; /* 4935 */ /* 4936 */ /* 4937 */ /* 4938 */ /* 4939 */ /* objRefType/t_19_reference */ intfunctype o_10910/*.*/=(intfunctype)(&ptrCreateGeneric); /* 4940 */ /* objRefType/t_19_reference */ intfunctype o_10911/*.*/=(intfunctype)(&genericDestr); /* 4941 */ /* objRefType/t_19_reference */ intfunctype o_10912/*.*/=(intfunctype)(&ptrCpyGeneric); /* 4942 */ /* objRefType/t_19_reference */ intfunctype o_10913/*.*/=(intfunctype)(&ptrCmpGeneric); /* 4943 */ /* objRefType/t_19_reference */ intfunctype o_10914/*.*/=(intfunctype)(&generic_create_27); /* 4944 */ /* objRefType/t_19_reference */ intfunctype o_10915/*.*/=(intfunctype)(&generic_destr_27); /* 4945 */ /* objRefType/t_19_reference */ intfunctype o_10916/*.*/=(intfunctype)(&generic_cpy_27); /* 4946 */ /* 4947 */ /* 4948 */ /* 4949 */ /* line 78 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10917/*::=*/ (const const_hashType/*t_218_inline_param_hash*/ o_10918_dest, const const_hashType/*t_218_inline_param_hash*/ o_10919_source) { /* hshCreate implemented with create_218 */ } /* line 1 "no_file" */ /* 4950 */ /* line 84 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10920_destroy (const const_hashType/*t_218_inline_param_hash*/ o_10921_oldHash) { /* hshDestr implemented with destr_218 */ } /* line 1 "no_file" */ /* 4951 */ /* line 89 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10922/*:=*/ (hashType/*t_218_inline_param_hash*/ *const o_10923_dest, const const_hashType/*t_218_inline_param_hash*/ o_10924_source) { /* line 91 "../lib/hash.s7i" */ hshCpy(&(*o_10923_dest), o_10924_source, (createFuncType)(o_10910/*.*/), (destrFuncType)(o_10911/*.*/), (createFuncType)(o_10914/*.*/), (destrFuncType)(o_10915/*.*/)); } /* line 1 "no_file" */ /* 4952 */ hashType/*t_218_inline_param_hash*/ o_10925/*.*/; /* 4953 */ hashType/*t_218_inline_param_hash*/ o_10926/*.*/; /* 4954 */ /* line 149 "../lib/hash.s7i" */ static arrayType/*t_27_TEST_1*/ o_10927/*[*/ (const const_hashType/*t_218_inline_param_hash*/ o_10928_aHashMap, const objRefType/*t_19_reference*/ *const o_10929_aKey) { /* line 150 "../lib/hash.s7i" */ return (arrayType/*t_27_TEST_1*/)((/*ref_to_value*/ (arrayType/*t_27_TEST_1*/)(hshIdx(o_10928_aHashMap, (genericType)(*o_10929_aKey), (intType)(((memSizeType)(*o_10929_aKey)) >> 6), (compareType)(o_10913/*.*/))))); } /* line 1 "no_file" */ /* 4955 */ /* line 152 "../lib/hash.s7i" */ static arrayType/*t_27_TEST_1*/ /*varfunc*/ *o_10930/*[*/ (hashType/*t_218_inline_param_hash*/ *const o_10931_aHashMap, const objRefType/*t_19_reference*/ *const o_10932_aKey) { /* line 153 "../lib/hash.s7i" */ return (arrayType/*t_27_TEST_1*/ *)(&(hshIdxAddr(*o_10931_aHashMap, (genericType)(*o_10932_aKey), (intType)(((memSizeType)(*o_10932_aKey)) >> 6), (compareType)(o_10913/*.*/))->value.arrayValue)); } /* line 1 "no_file" */ /* 4956 */ /* line 161 "../lib/hash.s7i" */ static arrayType/*t_27_TEST_1*/ o_10933/*[*/ (const const_hashType/*t_218_inline_param_hash*/ o_10934_aHashMap, const objRefType/*t_19_reference*/ *const o_10935_aKey, const const_arrayType/*t_27_TEST_1*/ value_o_10936_defaultValue) { /* line 162 "../lib/hash.s7i" */ arrayType/*t_27_TEST_1*/ result; /* line 162 "../lib/hash.s7i" */ const_arrayType/*t_27_TEST_1*/ o_10936_defaultValue; /* line 162 "../lib/hash.s7i" */ rtlObjectType *addr_1; /* line 162 "../lib/hash.s7i" */ o_10936_defaultValue=create_27(value_o_10936_defaultValue); /* line 162 "../lib/hash.s7i" */ result=(arrayType/*t_27_TEST_1*/)((/*ref_to_value*/ (addr_1=hshIdxAddr2(o_10934_aHashMap, (genericType)(*o_10935_aKey), (intType)(((memSizeType)(*o_10935_aKey)) >> 6), (compareType)(o_10913/*.*/)),addr_1!=NULL?addr_1->value.arrayValue:(o_10936_defaultValue)))); /* line 162 "../lib/hash.s7i" */ destr_27(o_10936_defaultValue); /* line 162 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 4957 */ /* line 171 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_10937_in (const objRefType/*t_19_reference*/ *const o_10938_aKey, const const_hashType/*t_218_inline_param_hash*/ o_10939_aHashMap) { /* line 172 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((hshContains(o_10939_aHashMap, (genericType)(*o_10938_aKey), (intType)(((memSizeType)(*o_10938_aKey)) >> 6), (compareType)(o_10913/*.*/)))); } /* line 1 "no_file" */ /* 4958 */ /* line 180 "../lib/hash.s7i" */ static boolType/*t_13_boolean*/ o_10940_not (const objRefType/*t_19_reference*/ *const o_10941_aKey, const const_hashType/*t_218_inline_param_hash*/ o_10942_aHashMap) { /* line 181 "../lib/hash.s7i" */ return (boolType/*t_13_boolean*/)((!(hshContains(o_10942_aHashMap, (genericType)(*o_10941_aKey), (intType)(((memSizeType)(*o_10941_aKey)) >> 6), (compareType)(o_10913/*.*/))))); } /* line 1 "no_file" */ /* 4959 */ /* line 189 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10943_incl (hashType/*t_218_inline_param_hash*/ *const o_10944_aHashMap, const objRefType/*t_19_reference*/ *const o_10945_aKey, const const_arrayType/*t_27_TEST_1*/ value_o_10946_anElem) { /* line 189 "../lib/hash.s7i" */ const_arrayType/*t_27_TEST_1*/ o_10946_anElem; /* line 189 "../lib/hash.s7i" */ o_10946_anElem=create_27(value_o_10946_anElem); /* line 191 "../lib/hash.s7i" */ hshIncl(*o_10944_aHashMap, (genericType)(*o_10945_aKey), (genericType)(o_10946_anElem), (intType)(((memSizeType)(*o_10945_aKey)) >> 6), (compareType)(o_10913/*.*/), (createFuncType)(o_10910/*.*/), (createFuncType)(o_10914/*.*/), (copyFuncType)(o_10916/*.*/)); /* line 189 "../lib/hash.s7i" */ destr_27(o_10946_anElem); } /* line 1 "no_file" */ /* 4960 */ /* line 198 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10947_excl (hashType/*t_218_inline_param_hash*/ *const o_10948_aHashMap, const objRefType/*t_19_reference*/ *const o_10949_aKey) { /* line 200 "../lib/hash.s7i" */ hshExcl(*o_10948_aHashMap, (genericType)(*o_10949_aKey), (intType)(((memSizeType)(*o_10949_aKey)) >> 6), (compareType)(o_10913/*.*/), (destrFuncType)(o_10911/*.*/), (destrFuncType)(o_10915/*.*/)); } /* line 1 "no_file" */ /* 4961 */ /* line 210 "../lib/hash.s7i" */ static void/*t_1_void*/ o_10950/*@:=*/ (hashType/*t_218_inline_param_hash*/ *const o_10951_aHashMap, const objRefType/*t_19_reference*/ *const o_10952_aKey, const const_arrayType/*t_27_TEST_1*/ value_o_10953_anElem) { /* line 210 "../lib/hash.s7i" */ const_arrayType/*t_27_TEST_1*/ o_10953_anElem; /* line 210 "../lib/hash.s7i" */ o_10953_anElem=create_27(value_o_10953_anElem); /* line 212 "../lib/hash.s7i" */ hshIncl(*o_10951_aHashMap, (genericType)(*o_10952_aKey), (genericType)(o_10953_anElem), (intType)(((memSizeType)(*o_10952_aKey)) >> 6), (compareType)(o_10913/*.*/), (createFuncType)(o_10910/*.*/), (createFuncType)(o_10914/*.*/), (copyFuncType)(o_10916/*.*/)); /* line 210 "../lib/hash.s7i" */ destr_27(o_10953_anElem); } /* line 1 "no_file" */ /* 4962 */ /* line 216 "../lib/hash.s7i" */ static arrayType/*t_27_TEST_1*/ o_10954_update (hashType/*t_218_inline_param_hash*/ *const o_10955_aHashMap, const objRefType/*t_19_reference*/ *const o_10956_aKey, const const_arrayType/*t_27_TEST_1*/ value_o_10957_anElem) { /* line 217 "../lib/hash.s7i" */ arrayType/*t_27_TEST_1*/ result; /* line 217 "../lib/hash.s7i" */ const_arrayType/*t_27_TEST_1*/ o_10957_anElem; /* line 217 "../lib/hash.s7i" */ o_10957_anElem=create_27(value_o_10957_anElem); /* line 217 "../lib/hash.s7i" */ result=(arrayType/*t_27_TEST_1*/)(((arrayType/*t_27_TEST_1*/)(hshUpdate(*o_10955_aHashMap, (genericType)(*o_10956_aKey), (genericType)(create_27(o_10957_anElem)), (intType)(((memSizeType)(*o_10956_aKey)) >> 6), (compareType)(o_10913/*.*/), (createFuncType)(o_10910/*.*/), (createFuncType)(o_10914/*.*/))))); /* line 217 "../lib/hash.s7i" */ destr_27(o_10957_anElem); /* line 217 "../lib/hash.s7i" */ return result; } /* line 1 "no_file" */ /* 4963 */ /* declare inline o_10958_for*/ /* declare inline o_10959_for*/ /* declare inline o_10960_for*/ /* line 265 "../lib/hash.s7i" */ static arrayType/*t_128_*ANONYM_TYPE**/ o_10961_keys (const const_hashType/*t_218_inline_param_hash*/ o_10962_aHashMap) { /* line 266 "../lib/hash.s7i" */ return (arrayType/*t_128_*ANONYM_TYPE**/)((hshKeys(o_10962_aHashMap, (createFuncType)(o_10910/*.*/), (destrFuncType)(o_10911/*.*/)))); } /* line 1 "no_file" */ /* 4964 */ /* line 272 "../lib/hash.s7i" */ static arrayType/*t_173_*ANONYM_TYPE**/ o_10963_values (const const_hashType/*t_218_inline_param_hash*/ o_10964_aHashMap) { /* line 273 "../lib/hash.s7i" */ return (arrayType/*t_173_*ANONYM_TYPE**/)((/*ref_to_value*/ hshValues(o_10964_aHashMap, (createFuncType)(o_10914/*.*/), (destrFuncType)(o_10915/*.*/)))); } /* line 1 "no_file" */ /* 4965 */ /* 4966 */ /* 4967 */ /* 4968 */ /* 4969 */ hashType/*t_140_boolean_type_hash*/ o_10965_generic_cpy_declared; /* 4970 */ hashType/*t_140_boolean_type_hash*/ o_10966_generic_create_declared; /* 4971 */ hashType/*t_140_boolean_type_hash*/ o_10967_generic_destr_declared; /* 4972 */ hashType/*t_140_boolean_type_hash*/ o_10968_generic_cmp_declared; /* 4973 */ hashType/*t_162_boolean_obj_hash*/ o_10969_return_ref_to_value; /* 4974 */ hashType/*t_162_boolean_obj_hash*/ o_10970_function_declared; /* 4975 */ listType/*t_20_ref_list*/ o_10971_dynamic_functions=NULL; /* 4976 */ hashType/*t_139_implements_hash*/ o_10972_interfaceOfType; /* 4977 */ hashType/*t_158_struct_elements_hash*/ o_10973_enum_literal; /* 4978 */ /* line 58 "../lib/hash.s7i" */ static hashType/*t_210_params_added_hash*/ create_210 (const_hashType/*t_210_params_added_hash*/ b) /* line 58 "../lib/hash.s7i" */ { /* line 58 "../lib/hash.s7i" */ return hshCreate(b, (createFuncType)(o_10748/*.*/), (destrFuncType)(o_10749/*.*/), (createFuncType)(o_10752/*.*/), (destrFuncType)(o_10753/*.*/)); /* line 58 "../lib/hash.s7i" */ } /* line 1 "no_file" */ hashType/*t_210_params_added_hash*/ o_10974_params_added; /* 4979 */ /* line 58 "../lib/hash.s7i" */ static hashType/*t_214_inline_param_value_hash*/ create_214 (const_hashType/*t_214_inline_param_value_hash*/ b) /* line 58 "../lib/hash.s7i" */ { /* line 58 "../lib/hash.s7i" */ return hshCreate(b, (createFuncType)(o_10824/*.*/), (destrFuncType)(o_10825/*.*/), (createFuncType)(o_10828/*.*/), (destrFuncType)(o_10829/*.*/)); /* line 58 "../lib/hash.s7i" */ } /* line 1 "no_file" */ hashType/*t_214_inline_param_value_hash*/ o_10975_inline_param_value; /* 4980 */ /* line 58 "../lib/hash.s7i" */ static hashType/*t_218_inline_param_hash*/ create_218 (const_hashType/*t_218_inline_param_hash*/ b) /* line 58 "../lib/hash.s7i" */ { /* line 58 "../lib/hash.s7i" */ return hshCreate(b, (createFuncType)(o_10910/*.*/), (destrFuncType)(o_10911/*.*/), (createFuncType)(o_10914/*.*/), (destrFuncType)(o_10915/*.*/)); /* line 58 "../lib/hash.s7i" */ } /* line 1 "no_file" */ hashType/*t_218_inline_param_hash*/ o_10976_inline_param; /* 4981 */ hashType/*t_206_globalInitHash*/ o_10977_funcparam_data; /* 4982 */ hashType/*t_206_globalInitHash*/ o_10978_funcparam_reference; /* 4983 */ hashType/*t_156_element_number_hash*/ o_10979_element_repeat_count; /* 4984 */ static void/*t_1_void*/ o_4941_process_expr (objRefType/*t_19_reference*/ o_4942_current_expression, structType/*t_164_expr_type*/ *const o_4943_c_expr); /* line 106 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_10980_count_declarations (structType/*t_164_expr_type*/ *const o_10981_c_expr) { /* line 109 "../prg/s7c.sd7" */ ++(o_10507_countDeclarations); /* line 110 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10981_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1431] /* "/* " */); { /* line 111 "../prg/s7c.sd7" */ union { /* line 111 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 111 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 111 "../prg/s7c.sd7" */ } buffer_1; /* line 111 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10981_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(o_10507_countDeclarations, &buffer_1.striBuf)); } /* line 112 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10981_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[164] /* " *\/\n" */); /* line 113 "../prg/s7c.sd7" */ o_1153_write(&(o_1074_OUT), o_10507_countDeclarations); /* line 114 "../prg/s7c.sd7" */ o_889_write(&(o_1074_OUT), &str[2870] /* "\r" */); /* line 115 "../prg/s7c.sd7" */ o_914_flush(&(o_1074_OUT)); } /* line 1 "no_file" */ /* 4985 */ /* line 119 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_10982_process_generic_cpy_declaration (const typeType/*t_7_type*/ *const o_10983_object_type, structType/*t_164_expr_type*/ *const o_10984_c_expr) { /* line 123 "../prg/s7c.sd7" */ if (o_3953_not(o_10983_object_type, o_10965_generic_cpy_declared)) { /* line 124 "../prg/s7c.sd7" */ o_4911_process_cpy_declaration(o_10983_object_type, o_10984_c_expr); /* line 125 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10984_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2871] /* "static void generic_cpy_" */); { /* line 126 "../prg/s7c.sd7" */ union { /* line 126 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 126 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 126 "../prg/s7c.sd7" */ } buffer_1; /* line 126 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10984_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(*o_10983_object_type), &buffer_1.striBuf)); } /* line 127 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10984_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2872] /* " (genericType *a, const genericType b)\n" */); /* line 128 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10984_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); { /* line 129 "../prg/s7c.sd7" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); /* line 129 "../prg/s7c.sd7" */ striType tmp_1 = NULL; /* line 129 "../prg/s7c.sd7" */ striType/*t_15_string*/ tmp_4 = (striType/*t_15_string*/)(NULL); /* line 129 "../prg/s7c.sd7" */ striType tmp_3 = NULL; /* line 129 "../prg/s7c.sd7" */ o_4914_process_cpy_call(o_10983_object_type, (tmp_1=strConcat(&str[2873] /* "((const_rtlObjectType *) a)->value." */, (tmp_2=(striType/*t_15_string*/)(o_4757_raw_type_value(o_10983_object_type))))), (tmp_3=strConcat(&str[2874] /* "((const_rtlObjectType *) &b)->value." */, (tmp_4=(striType/*t_15_string*/)(o_4757_raw_type_value(o_10983_object_type))))), &(((structType)(*o_10984_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 129 "../prg/s7c.sd7" */ strDestr(tmp_2); /* line 129 "../prg/s7c.sd7" */ strDestr(tmp_1); /* line 129 "../prg/s7c.sd7" */ strDestr(tmp_4); /* line 129 "../prg/s7c.sd7" */ strDestr(tmp_3); } /* line 133 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10984_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 134 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10984_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2875] /* "}\n\n" */); /* line 135 "../prg/s7c.sd7" */ o_3963/*@:=*/(&(o_10965_generic_cpy_declared), o_10983_object_type, o_26_TRUE); } } /* line 1 "no_file" */ /* 4986 */ /* line 140 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_10985_process_generic_create_declaration (const typeType/*t_7_type*/ *const o_10986_object_type, structType/*t_164_expr_type*/ *const o_10987_c_expr) { /* line 144 "../prg/s7c.sd7" */ if (o_3953_not(o_10986_object_type, o_10966_generic_create_declared)) { /* line 145 "../prg/s7c.sd7" */ o_4878_process_create_declaration(o_10986_object_type, o_10987_c_expr); /* line 146 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10987_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2876] /* "static genericType generic_create_" */); { /* line 147 "../prg/s7c.sd7" */ union { /* line 147 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 147 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 147 "../prg/s7c.sd7" */ } buffer_1; /* line 147 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10987_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(*o_10986_object_type), &buffer_1.striBuf)); } /* line 148 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10987_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2877] /* " (const genericType b)\n" */); /* line 149 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10987_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 150 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10987_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2878] /* "rtlObjectType result;\n" */); /* line 151 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10987_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2879] /* "result.value." */); /* line 152 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_10987_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4757_raw_type_value(o_10986_object_type)); /* line 153 "../prg/s7c.sd7" */ { /* line 153 "../prg/s7c.sd7" */ striType *tmp_1; /* line 153 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_10987_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 153 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 153 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 153 "../prg/s7c.sd7" */ } else { /* line 153 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 153 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 153 "../prg/s7c.sd7" */ } } { /* line 154 "../prg/s7c.sd7" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); /* line 154 "../prg/s7c.sd7" */ striType tmp_1 = NULL; /* line 154 "../prg/s7c.sd7" */ o_4881_process_create_call(o_10986_object_type, (tmp_1=strConcat(&str[2874] /* "((const_rtlObjectType *) &b)->value." */, (tmp_2=(striType/*t_15_string*/)(o_4757_raw_type_value(o_10986_object_type))))), &(((structType)(*o_10987_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 154 "../prg/s7c.sd7" */ strDestr(tmp_2); /* line 154 "../prg/s7c.sd7" */ strDestr(tmp_1); } /* line 157 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10987_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 158 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10987_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2880] /* "return result.value.genericValue;\n" */); /* line 159 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10987_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2875] /* "}\n\n" */); /* line 160 "../prg/s7c.sd7" */ o_3963/*@:=*/(&(o_10966_generic_create_declared), o_10986_object_type, o_26_TRUE); } } /* line 1 "no_file" */ /* 4987 */ /* line 165 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_10988_process_generic_destr_declaration (const typeType/*t_7_type*/ *const o_10989_object_type, structType/*t_164_expr_type*/ *const o_10990_c_expr) { /* line 169 "../prg/s7c.sd7" */ if (o_3953_not(o_10989_object_type, o_10967_generic_destr_declared)) { /* line 170 "../prg/s7c.sd7" */ o_4829_process_destr_declaration(o_10989_object_type, o_10990_c_expr); /* line 171 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10990_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2881] /* "static void generic_destr_" */); { /* line 172 "../prg/s7c.sd7" */ union { /* line 172 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 172 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 172 "../prg/s7c.sd7" */ } buffer_1; /* line 172 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10990_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(*o_10989_object_type), &buffer_1.striBuf)); } /* line 173 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10990_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2877] /* " (const genericType b)\n" */); /* line 174 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10990_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); { /* line 175 "../prg/s7c.sd7" */ striType/*t_15_string*/ tmp_2 = (striType/*t_15_string*/)(NULL); /* line 175 "../prg/s7c.sd7" */ striType tmp_1 = NULL; /* line 175 "../prg/s7c.sd7" */ o_4832_process_destr_call(o_10989_object_type, (tmp_1=strConcat(&str[2874] /* "((const_rtlObjectType *) &b)->value." */, (tmp_2=(striType/*t_15_string*/)(o_4757_raw_type_value(o_10989_object_type))))), &(((structType)(*o_10990_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 175 "../prg/s7c.sd7" */ strDestr(tmp_2); /* line 175 "../prg/s7c.sd7" */ strDestr(tmp_1); } /* line 178 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10990_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2875] /* "}\n\n" */); /* line 179 "../prg/s7c.sd7" */ o_3963/*@:=*/(&(o_10967_generic_destr_declared), o_10989_object_type, o_26_TRUE); } } /* line 1 "no_file" */ /* 4988 */ /* line 184 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_10991_process_generic_cmp_declaration (const objRefType/*t_19_reference*/ o_10992_function, const typeType/*t_7_type*/ *const o_10993_object_type, structType/*t_164_expr_type*/ *const o_10994_c_expr) { /* line 188 "../prg/s7c.sd7" */ if (o_3953_not(o_10993_object_type, o_10968_generic_cmp_declared)) { /* line 189 "../prg/s7c.sd7" */ o_4911_process_cpy_declaration(o_10993_object_type, o_10994_c_expr); /* line 190 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2882] /* "static intType generic_cmp_" */); { /* line 191 "../prg/s7c.sd7" */ union { /* line 191 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 191 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 191 "../prg/s7c.sd7" */ } buffer_1; /* line 191 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(*o_10993_object_type), &buffer_1.striBuf)); } /* line 192 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2883] /* " (const genericType a, const genericType b)\n" */); /* line 193 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 194 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2884] /* "return o_" */); /* line 195 "../prg/s7c.sd7" */ o_5072_create_name(o_10992_function, &(((structType)(*o_10994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 196 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2885] /* "(((const_rtlObjectType *) &a)->value." */); /* line 197 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_10994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4757_raw_type_value(o_10993_object_type)); /* line 198 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2886] /* ", ((const_rtlObjectType *) &b)->value." */); /* line 199 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_10994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4757_raw_type_value(o_10993_object_type)); /* line 200 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 201 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_10994_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2875] /* "}\n\n" */); /* line 202 "../prg/s7c.sd7" */ o_3963/*@:=*/(&(o_10968_generic_cmp_declared), o_10993_object_type, o_26_TRUE); } } /* line 1 "no_file" */ /* 4989 */ /* line 207 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_10995_process_big_create_call (const const_bigIntType/*t_57_bigInteger*/ o_10996_number, striType/*t_15_string*/ *const o_10997_expr) { /* line 210 "../prg/s7c.sd7" */ if (bigEqSignedDigit(o_10996_number, 0L)) { /* line 211 "../prg/s7c.sd7" */ ++(o_5107_countOptimizations); /* line 212 "../prg/s7c.sd7" */ strAppend(&(*o_10997_expr), &str[2887] /* "bigZero(); /* 0_ *\/\n" */); } else { /* line 214 "../prg/s7c.sd7" */ strAppend(&(*o_10997_expr), &str[229] /* "bigCreate(" */); /* line 215 "../prg/s7c.sd7" */ strAppendTemp(&(*o_10997_expr), o_6505_bigIntegerLiteral(o_10996_number)); /* line 216 "../prg/s7c.sd7" */ strAppend(&(*o_10997_expr), &str[186] /* ");\n" */); } } /* line 1 "no_file" */ /* 4990 */ /* line 221 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_10998_process_str_create_call (const const_striType/*t_15_string*/ o_10999_stri, striType/*t_15_string*/ *const o_11000_expr) { /* line 224 "../prg/s7c.sd7" */ charType/*t_18_char*/ o_11001_ch=(charType) ' '; /* line 225 "../prg/s7c.sd7" */ intType/*t_14_integer*/ o_11002_index=2; /* line 227 "../prg/s7c.sd7" */ if (((o_10999_stri)->size==0 /* "" */)) { /* line 228 "../prg/s7c.sd7" */ ++(o_5107_countOptimizations); /* line 229 "../prg/s7c.sd7" */ strAppend(&(*o_11000_expr), &str[2888] /* "strEmpty(); /* \"\" *\/\n" */); } else /* line 230 "../prg/s7c.sd7" */ if (((intType)((o_10999_stri)->size)) == (1L)) { /* line 231 "../prg/s7c.sd7" */ ++(o_5107_countOptimizations); /* line 232 "../prg/s7c.sd7" */ strAppend(&(*o_11000_expr), &str[2889] /* "chrStr(" */); /* line 233 "../prg/s7c.sd7" */ strAppendTemp(&(*o_11000_expr), o_6500_charLiteral((o_10999_stri)->mem[(idxChk((o_10999_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)])); /* line 234 "../prg/s7c.sd7" */ strAppend(&(*o_11000_expr), &str[2890] /* "); /* " */); /* line 235 "../prg/s7c.sd7" */ strAppendTemp(&(*o_11000_expr), strLit(o_10999_stri)); /* line 236 "../prg/s7c.sd7" */ strAppend(&(*o_11000_expr), &str[164] /* " *\/\n" */); } else { /* line 238 "../prg/s7c.sd7" */ o_11001_ch=(o_10999_stri)->mem[(idxChk((o_10999_stri)->size<1) ? intRaiseError(RANGE_ERROR) : 0, 0)]; { /* line 239 "../prg/s7c.sd7" */ uintType idx_1; /* line 239 "../prg/s7c.sd7" */ while (((o_11002_index) <= ((intType)((o_10999_stri)->size))) && /* line 239 "../prg/s7c.sd7" */ ((o_11001_ch) == ((o_10999_stri)->mem[(idx_1=(uintType)((o_11002_index)-1), idxChk(idx_1>=(o_10999_stri)->size) ? intRaiseError(RANGE_ERROR) : 0, idx_1)]))) { /* line 240 "../prg/s7c.sd7" */ ++(o_11002_index); } } /* line 242 "../prg/s7c.sd7" */ if ((o_11002_index) > ((intType)((o_10999_stri)->size))) { /* line 243 "../prg/s7c.sd7" */ ++(o_5107_countOptimizations); /* line 244 "../prg/s7c.sd7" */ if ((o_11001_ch) == ((charType) '\000')) { /* line 245 "../prg/s7c.sd7" */ strAppend(&(*o_11000_expr), &str[2024] /* "strZero(" */); } else { /* line 247 "../prg/s7c.sd7" */ strAppend(&(*o_11000_expr), &str[2025] /* "strChMult(" */); /* line 248 "../prg/s7c.sd7" */ strAppendTemp(&(*o_11000_expr), o_6500_charLiteral(o_11001_ch)); /* line 249 "../prg/s7c.sd7" */ strAppend(&(*o_11000_expr), &str[12] /* ", " */); } /* line 251 "../prg/s7c.sd7" */ strAppendTemp(&(*o_11000_expr), o_6502_integerLiteral((intType)((o_10999_stri)->size))); /* line 252 "../prg/s7c.sd7" */ strAppend(&(*o_11000_expr), &str[186] /* ");\n" */); } else { /* line 254 "../prg/s7c.sd7" */ strAppend(&(*o_11000_expr), &str[231] /* "strCreate(" */); /* line 255 "../prg/s7c.sd7" */ strAppendTemp(&(*o_11000_expr), o_6494_stringLiteral(o_10999_stri)); /* line 256 "../prg/s7c.sd7" */ strAppend(&(*o_11000_expr), &str[186] /* ");\n" */); } } } /* line 1 "no_file" */ /* 4991 */ /* line 262 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11003_getAnyParamToTempAssigns (const structType/*t_164_expr_type*/ o_11004_c_param, structType/*t_164_expr_type*/ *const o_11005_c_expr) { /* line 265 "../prg/s7c.sd7" */ if (((((structType)(o_11004_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 266 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11005_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), ((structType)(o_11004_c_param))->stru[9].value.striValue/*->o_4787_result_decl*/); /* line 267 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11005_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), ((structType)(o_11004_c_param))->stru[10].value.striValue/*->o_4788_result_free*/); /* line 268 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11005_c_expr))->stru[7].value.striValue/*->o_4785_temp_to_null*/), ((structType)(o_11004_c_param))->stru[11].value.striValue/*->o_4789_result_to_null*/); /* line 269 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11005_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), ((structType)(o_11004_c_param))->stru[12].value.striValue/*->o_4790_result_intro*/); /* line 270 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11005_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), ((structType)(o_11004_c_param))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 271 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11005_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), ((structType)(o_11004_c_param))->stru[14].value.striValue/*->o_4792_result_finish*/); } else { /* line 273 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11005_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), ((structType)(o_11004_c_param))->stru[5].value.striValue/*->o_4783_expr*/); } } /* line 1 "no_file" */ /* 4992 */ /* line 278 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11006_getAnyParamToTempAssigns (const objRefType/*t_19_reference*/ o_11007_aParam, structType/*t_164_expr_type*/ *const o_11008_c_expr) { /* line 281 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11009_c_param; /* line 281 "../prg/s7c.sd7" */ o_11009_c_param=create_164(sct[377]); /* line 283 "../prg/s7c.sd7" */ o_4963_prepareAnyParamTemporarys(o_11007_aParam, &(o_11009_c_param), o_11008_c_expr); /* line 284 "../prg/s7c.sd7" */ o_11003_getAnyParamToTempAssigns(o_11009_c_param, o_11008_c_expr); /* line 278 "../prg/s7c.sd7" */ destr_164(o_11009_c_param); } /* line 1 "no_file" */ /* 4993 */ /* line 288 "../prg/s7c.sd7" */ static striType/*t_15_string*/ o_11010_enum_value (const objRefType/*t_19_reference*/ o_11011_current_object) { /* line 291 "../prg/s7c.sd7" */ striType/*t_15_string*/ o_11012_enumValue; /* line 293 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11013_enum_type=typ[0] /* void/t_1_void */; /* line 294 "../prg/s7c.sd7" */ striType/*t_15_string*/ o_11014_object_name; /* line 291 "../prg/s7c.sd7" */ o_11012_enumValue=strEmpty(); /* "" */ /* line 294 "../prg/s7c.sd7" */ o_11014_object_name=strEmpty(); /* "" */ /* line 296 "../prg/s7c.sd7" */ o_11013_enum_type=refType(o_11011_current_object); /* line 297 "../prg/s7c.sd7" */ if ((o_3772_in(&(o_11013_enum_type), o_4414_typeCategory)) && /* line 297 "../prg/s7c.sd7" */ ((*o_3765/*[*/(&(o_4414_typeCategory), &(o_11013_enum_type))) == (256L))) { { /* line 298 "../prg/s7c.sd7" */ striType old_stri=o_11014_object_name; /* line 298 "../prg/s7c.sd7" */ o_11014_object_name=refStr(o_11011_current_object); /* line 298 "../prg/s7c.sd7" */ strDestr(old_stri); } /* line 299 "../prg/s7c.sd7" */ if (((o_11014_object_name)->size==5&&memcmp((o_11014_object_name)->mem,(&str[2] /* "FALSE" */)->mem,5*sizeof(strElemType))==0)) { /* line 300 "../prg/s7c.sd7" */ strCopy(&(o_11012_enumValue), &str[1718] /* "0/*FALSE*\/" */); } else /* line 301 "../prg/s7c.sd7" */ if (((o_11014_object_name)->size==4&&memcmp((o_11014_object_name)->mem,(&str[1] /* "TRUE" */)->mem,4*sizeof(strElemType))==0)) { /* line 302 "../prg/s7c.sd7" */ strCopy(&(o_11012_enumValue), &str[2891] /* "1/*TRUE*\/" */); } } else { { /* line 305 "../prg/s7c.sd7" */ const_striType tmp_2[3]; /* line 305 "../prg/s7c.sd7" */ striType tmp_3 = NULL; /* line 305 "../prg/s7c.sd7" */ striType old_stri=o_11012_enumValue; /* line 305 "../prg/s7c.sd7" */ o_11012_enumValue=(tmp_2[0] = &str[190] /* "/*" */, tmp_2[1] = (tmp_3=refStr(o_11011_current_object)), tmp_2[2] = &str[123] /* "*\/" */, strConcatN(tmp_2, 3)); /* line 305 "../prg/s7c.sd7" */ strDestr(old_stri); /* line 305 "../prg/s7c.sd7" */ strDestr(tmp_3); } /* line 306 "../prg/s7c.sd7" */ if ((o_4587_in(&(o_11013_enum_type), o_10973_enum_literal)) && /* line 307 "../prg/s7c.sd7" */ (o_4502_in(&(o_11011_current_object), *o_4580/*[*/(&(o_10973_enum_literal), &(o_11013_enum_type))))) { { /* line 308 "../prg/s7c.sd7" */ union { /* line 308 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 308 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 308 "../prg/s7c.sd7" */ } buffer_1; /* line 308 "../prg/s7c.sd7" */ strAppend(&(o_11012_enumValue), intStrToBuffer(*o_4495/*[*/(&(*o_4580/*[*/(&(o_10973_enum_literal), &(o_11013_enum_type))), &(o_11011_current_object)), &buffer_1.striBuf)); } } else { { /* line 310 "../prg/s7c.sd7" */ union { /* line 310 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 310 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 310 "../prg/s7c.sd7" */ } buffer_1; /* line 310 "../prg/s7c.sd7" */ strAppend(&(o_11012_enumValue), intStrToBuffer(refNum(o_11011_current_object), &buffer_1.striBuf)); } } } /* line 288 "../prg/s7c.sd7" */ strDestr(o_11014_object_name); return o_11012_enumValue; } /* line 1 "no_file" */ /* 4994 */ /* line 316 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11015_reference_value (const objRefType/*t_19_reference*/ o_11016_current_value, structType/*t_164_expr_type*/ *const o_11017_c_expr) { /* line 320 "../prg/s7c.sd7" */ if ((o_11016_current_value) == (NULL)) { /* line 321 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11017_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[953] /* "NULL" */); } else { /* line 323 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11017_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1503] /* "&(" */); /* line 324 "../prg/s7c.sd7" */ o_4941_process_expr(o_11016_current_value, o_11017_c_expr); /* line 325 "../prg/s7c.sd7" */ { /* line 325 "../prg/s7c.sd7" */ striType *tmp_1; /* line 325 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11017_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 325 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 325 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ')'); /* line 325 "../prg/s7c.sd7" */ } else { /* line 325 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 325 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 325 "../prg/s7c.sd7" */ } } } } /* line 1 "no_file" */ /* 4995 */ /* line 330 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11018_ref_list_value (const listType/*t_20_ref_list*/ *const o_11019_current_value, structType/*t_164_expr_type*/ *const o_11020_c_expr) { /* line 334 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11021_element=NULL; /* line 335 "../prg/s7c.sd7" */ boolType/*t_13_boolean*/ o_11022_first_element=1/*TRUE*/; /* line 337 "../prg/s7c.sd7" */ if ((rflLng(*o_11019_current_value)) == (0L)) { /* line 338 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11020_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[953] /* "NULL" */); } else { /* line 340 "../prg/s7c.sd7" */ { /* line 340 "../prg/s7c.sd7" */ striType *tmp_1; /* line 340 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11020_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 340 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 340 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '{'); /* line 340 "../prg/s7c.sd7" */ } else { /* line 340 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '{'; /* line 340 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 340 "../prg/s7c.sd7" */ } } { /* line 341 "../prg/s7c.sd7" */ listType tmp_elem_1; /* line 341 "../prg/s7c.sd7" */ for (tmp_elem_1 = *o_11019_current_value; tmp_elem_1 != NULL; tmp_elem_1 = tmp_elem_1->next) { /* line 341 "../prg/s7c.sd7" */ o_11021_element = tmp_elem_1->obj; /* line 342 "../prg/s7c.sd7" */ if (o_11022_first_element) { /* line 343 "../prg/s7c.sd7" */ o_11022_first_element=o_25_FALSE; } else { /* line 345 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11020_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); } /* line 347 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11020_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1503] /* "&(" */); /* line 348 "../prg/s7c.sd7" */ o_4941_process_expr(o_11021_element, o_11020_c_expr); /* line 349 "../prg/s7c.sd7" */ { /* line 349 "../prg/s7c.sd7" */ striType *tmp_1; /* line 349 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11020_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 349 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 349 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ')'); /* line 349 "../prg/s7c.sd7" */ } else { /* line 349 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 349 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 349 "../prg/s7c.sd7" */ } } } } /* line 351 "../prg/s7c.sd7" */ { /* line 351 "../prg/s7c.sd7" */ striType *tmp_1; /* line 351 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11020_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 351 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 351 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '}'); /* line 351 "../prg/s7c.sd7" */ } else { /* line 351 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '}'; /* line 351 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 351 "../prg/s7c.sd7" */ } } } } /* line 1 "no_file" */ /* 4996 */ /* line 356 "../prg/s7c.sd7" */ static striType/*t_15_string*/ o_11023_getExprValue (const objRefType/*t_19_reference*/ o_11024_current_expression/* attr t_15 string*/ ) { /* line 358 "../prg/s7c.sd7" */ striType/*t_15_string*/ o_11025_exprValue; /* line 360 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11026_evaluated_expression=NULL; /* line 358 "../prg/s7c.sd7" */ o_11025_exprValue=strEmpty(); /* "" */ /* line 362 "../prg/s7c.sd7" */ if ((refCategory(o_11024_current_expression)) == (12L)) { { /* line 363 "../prg/s7c.sd7" */ striType old_stri=o_11025_exprValue; /* line 363 "../prg/s7c.sd7" */ o_11025_exprValue=strValue(o_11024_current_expression); /* line 363 "../prg/s7c.sd7" */ strDestr(old_stri); } } else { /* line 365 "../prg/s7c.sd7" */ o_11026_evaluated_expression=prgEval(o_4739_prog, o_11024_current_expression); /* line 366 "../prg/s7c.sd7" */ if ((o_11026_evaluated_expression) != (NULL)) { { /* line 367 "../prg/s7c.sd7" */ striType old_stri=o_11025_exprValue; /* line 367 "../prg/s7c.sd7" */ o_11025_exprValue=strValue(o_11026_evaluated_expression); /* line 367 "../prg/s7c.sd7" */ strDestr(old_stri); } } } return o_11025_exprValue; } /* line 1 "no_file" */ /* 4997 */ /* line 373 "../prg/s7c.sd7" */ static boolType/*t_13_boolean*/ o_11027_isPointerParam (const objRefType/*t_19_reference*/ o_11028_a_param) { /* line 374 "../prg/s7c.sd7" */ return (boolType/*t_13_boolean*/)((((refCategory(o_11028_a_param)) == (35L)) && /* line 375 "../prg/s7c.sd7" */ ((!(o_4767_valueIsAtHeap(o_11028_a_param))) || /* line 375 "../prg/s7c.sd7" */ (refIsVar(o_11028_a_param))))); } /* line 1 "no_file" */ /* 4998 */ /* line 378 "../prg/s7c.sd7" */ static boolType/*t_13_boolean*/ o_11029_isCopyParam (const objRefType/*t_19_reference*/ o_11030_a_param) { /* line 379 "../prg/s7c.sd7" */ return (boolType/*t_13_boolean*/)((((refCategory(o_11030_a_param)) == (34L)) && /* line 380 "../prg/s7c.sd7" */ (o_4767_valueIsAtHeap(o_11030_a_param)))); } /* line 1 "no_file" */ /* 4999 */ /* line 383 "../prg/s7c.sd7" */ static boolType/*t_13_boolean*/ o_11031_isInOutParam (const objRefType/*t_19_reference*/ o_11032_a_param) { /* line 384 "../prg/s7c.sd7" */ return (boolType/*t_13_boolean*/)((((refCategory(o_11032_a_param)) == (35L)) && /* line 384 "../prg/s7c.sd7" */ (refIsVar(o_11032_a_param)))); } /* line 1 "no_file" */ /* 5000 */ /* line 387 "../prg/s7c.sd7" */ static boolType/*t_13_boolean*/ o_11033_canTakeAddress (const objRefType/*t_19_reference*/ o_11034_an_expression) { /* line 390 "../prg/s7c.sd7" */ boolType/*t_13_boolean*/ o_11035_canTakeAddress=o_26_TRUE; /* line 392 "../prg/s7c.sd7" */ intType/*t_86_category*/ o_11036_exprCategory=0; /* line 393 "../prg/s7c.sd7" */ striType/*t_15_string*/ o_11037_action_name; /* line 393 "../prg/s7c.sd7" */ o_11037_action_name=strEmpty(); /* "" */ /* line 395 "../prg/s7c.sd7" */ o_11036_exprCategory=refCategory(o_11034_an_expression); /* line 396 "../prg/s7c.sd7" */ if ((((o_11036_exprCategory) == (9L)) || /* line 397 "../prg/s7c.sd7" */ ((o_11036_exprCategory) == (11L)) || /* line 398 "../prg/s7c.sd7" */ ((o_11036_exprCategory) == (25L))) && /* line 399 "../prg/s7c.sd7" */ (!(refIsVar(o_11034_an_expression)))) { /* line 400 "../prg/s7c.sd7" */ o_11035_canTakeAddress=o_25_FALSE; } /* line 402 "../prg/s7c.sd7" */ if (typIsFunc(refType(o_11034_an_expression))) { /* line 403 "../prg/s7c.sd7" */ o_11035_canTakeAddress=o_25_FALSE; } /* line 405 "../prg/s7c.sd7" */ if ((o_11036_exprCategory) == (5L)) { { /* line 406 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ tmp_1 = (listType/*t_20_ref_list*/)(NULL); /* line 406 "../prg/s7c.sd7" */ if ((refCategory(rflIdx((tmp_1=(listType/*t_20_ref_list*/)(rflValue(o_11034_an_expression))), 1L))) == (33L)) { { /* line 407 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ tmp_2 = (listType/*t_20_ref_list*/)(NULL); /* line 407 "../prg/s7c.sd7" */ striType old_stri=o_11037_action_name; /* line 407 "../prg/s7c.sd7" */ o_11037_action_name=actStr(actValue(rflIdx((tmp_2=(listType/*t_20_ref_list*/)(rflValue(o_11034_an_expression))), 1L))); /* line 407 "../prg/s7c.sd7" */ strDestr(old_stri); /* line 407 "../prg/s7c.sd7" */ rflDestr(tmp_2); } /* line 408 "../prg/s7c.sd7" */ if ((((o_11037_action_name)->size==7&&memcmp((o_11037_action_name)->mem,(&str[2171] /* "ARR_IDX" */)->mem,7*sizeof(strElemType))==0)) || /* line 409 "../prg/s7c.sd7" */ (((o_11037_action_name)->size==10&&memcmp((o_11037_action_name)->mem,(&str[2705] /* "SCT_SELECT" */)->mem,10*sizeof(strElemType))==0))) { /* line 410 "../prg/s7c.sd7" */ o_11035_canTakeAddress=o_26_TRUE; } } /* line 406 "../prg/s7c.sd7" */ rflDestr(tmp_1); } } /* line 387 "../prg/s7c.sd7" */ strDestr(o_11037_action_name); return o_11035_canTakeAddress; } /* line 1 "no_file" */ /* 5001 */ /* line 417 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11038_process_constenumobject (const objRefType/*t_19_reference*/ o_11039_function, const listType/*t_20_ref_list*/ *const o_11040_params, structType/*t_164_expr_type*/ *const o_11041_c_expr) { /* line 421 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11041_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2892] /* "/*constenumobject*\/" */); { /* line 422 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ tmp_1; /* line 422 "../prg/s7c.sd7" */ o_9125_noop_params(/* CALLOBJECT */(tmp_1=(listType/*t_20_ref_list*/)(refParams(o_11039_function)), &tmp_1), o_11040_params, o_11041_c_expr); } } /* line 1 "no_file" */ /* 5002 */ /* line 426 "../prg/s7c.sd7" */ static boolType/*t_13_boolean*/ o_11042_param_list_okay (const listType/*t_20_ref_list*/ *const o_11043_formal_params) { /* line 429 "../prg/s7c.sd7" */ boolType/*t_13_boolean*/ o_11044_okay=o_26_TRUE; /* line 431 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11045_obj=NULL; /* line 432 "../prg/s7c.sd7" */ intType/*t_86_category*/ o_11046_paramCategory=0; { /* line 434 "../prg/s7c.sd7" */ listType tmp_elem_1; /* line 434 "../prg/s7c.sd7" */ for (tmp_elem_1 = *o_11043_formal_params; tmp_elem_1 != NULL; tmp_elem_1 = tmp_elem_1->next) { /* line 434 "../prg/s7c.sd7" */ o_11045_obj = tmp_elem_1->obj; /* line 435 "../prg/s7c.sd7" */ o_11046_paramCategory=refCategory(o_11045_obj); /* line 436 "../prg/s7c.sd7" */ if (((o_11046_paramCategory) != (0L)) && /* line 436 "../prg/s7c.sd7" */ ((o_11046_paramCategory) != (7L))) { /* line 437 "../prg/s7c.sd7" */ if (typIsFunc(refType(o_11045_obj))) { /* line 438 "../prg/s7c.sd7" */ o_11044_okay=o_25_FALSE; } } } } return o_11044_okay; } /* line 1 "no_file" */ /* 5003 */ static boolType/*t_13_boolean*/ o_11047_containsFunctionCall (const objRefType/*t_19_reference*/ o_11048_function, const objRefType/*t_19_reference*/ o_11049_current_expression); /* line 445 "../prg/s7c.sd7" */ static boolType/*t_13_boolean*/ o_11047_containsFunctionCall (const objRefType/*t_19_reference*/ o_11048_function, const objRefType/*t_19_reference*/ o_11049_current_expression) { /* line 449 "../prg/s7c.sd7" */ boolType/*t_13_boolean*/ o_11050_containsCall=o_25_FALSE; /* line 451 "../prg/s7c.sd7" */ intType/*t_86_category*/ o_11051_exprCategory=0; /* line 452 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11052_params=NULL; /* line 453 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11053_currentFunction=NULL; /* line 454 "../prg/s7c.sd7" */ intType/*t_14_integer*/ o_11054_paramNum=0; /* line 456 "../prg/s7c.sd7" */ o_11051_exprCategory=refCategory(o_11049_current_expression); /* line 457 "../prg/s7c.sd7" */ if (((o_11051_exprCategory) == (6L)) || /* line 457 "../prg/s7c.sd7" */ ((o_11051_exprCategory) == (5L))) { { /* line 458 "../prg/s7c.sd7" */ listType old_rfl=o_11052_params; /* line 458 "../prg/s7c.sd7" */ o_11052_params=rflValue(o_11049_current_expression); /* line 458 "../prg/s7c.sd7" */ rflDestr(old_rfl); } /* line 459 "../prg/s7c.sd7" */ o_11053_currentFunction=rflIdx(o_11052_params, 1L); /* line 460 "../prg/s7c.sd7" */ if ((o_11053_currentFunction) == (o_11048_function)) { /* line 461 "../prg/s7c.sd7" */ o_11050_containsCall=o_26_TRUE; } else { /* line 463 "../prg/s7c.sd7" */ o_11054_paramNum=2L; /* line 464 "../prg/s7c.sd7" */ while (((o_11054_paramNum) <= (rflLng(o_11052_params))) && /* line 464 "../prg/s7c.sd7" */ (!(o_11050_containsCall))) { /* line 465 "../prg/s7c.sd7" */ o_11050_containsCall=o_11047_containsFunctionCall(o_11048_function, rflIdx(o_11052_params, o_11054_paramNum)); /* line 466 "../prg/s7c.sd7" */ ++(o_11054_paramNum); } } } else /* line 469 "../prg/s7c.sd7" */ if ((o_11051_exprCategory) == (4L)) { /* line 470 "../prg/s7c.sd7" */ o_11050_containsCall=(o_11049_current_expression) == (o_11048_function); } /* line 445 "../prg/s7c.sd7" */ rflDestr(o_11052_params); return o_11050_containsCall; } /* line 1 "no_file" */ /* 5004 */ /* line 475 "../prg/s7c.sd7" */ static boolType/*t_13_boolean*/ o_11055_recursiveFunctionCall (const objRefType/*t_19_reference*/ o_11056_function, const objRefType/*t_19_reference*/ o_11057_current_expression) { /* line 479 "../prg/s7c.sd7" */ boolType/*t_13_boolean*/ o_11058_recursiveCall=o_25_FALSE; /* line 481 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11059_obj=NULL; /* line 483 "../prg/s7c.sd7" */ o_11058_recursiveCall=o_11047_containsFunctionCall(o_11056_function, o_11057_current_expression); /* line 484 "../prg/s7c.sd7" */ if (!(o_11058_recursiveCall)) { /* line 487 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ tmp_2 = (listType/*t_20_ref_list*/)(NULL); { /* line 485 "../prg/s7c.sd7" */ listType tmp_elem_1; /* line 485 "../prg/s7c.sd7" */ for (tmp_elem_1 = (tmp_2=(listType/*t_20_ref_list*/)(refLocalConsts(o_11056_function))); tmp_elem_1 != NULL; tmp_elem_1 = tmp_elem_1->next) { /* line 485 "../prg/s7c.sd7" */ o_11059_obj = tmp_elem_1->obj; /* line 486 "../prg/s7c.sd7" */ if ((!(o_11058_recursiveCall)) && /* line 486 "../prg/s7c.sd7" */ ((refCategory(o_11059_obj)) == (4L))) { /* line 487 "../prg/s7c.sd7" */ o_11058_recursiveCall=o_11047_containsFunctionCall(o_11056_function, refBody(o_11059_obj)); } } } /* line 487 "../prg/s7c.sd7" */ rflDestr(tmp_2); } return o_11058_recursiveCall; } /* line 1 "no_file" */ /* 5005 */ /* line 494 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11060_process_local_declaration (const objRefType/*t_19_reference*/ o_11061_current_object, objRefType/*t_19_reference*/ o_11062_object_value, structType/*t_164_expr_type*/ *const o_11063_c_expr) { /* line 498 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11064_objectType=typ[0] /* void/t_1_void */; /* line 499 "../prg/s7c.sd7" */ intType/*t_86_category*/ o_11065_valueCategory=0; /* line 500 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11066_c_declaration; /* line 501 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11067_c_value; /* line 502 "../prg/s7c.sd7" */ striType/*t_15_string*/ o_11068_param_name; /* line 503 "../prg/s7c.sd7" */ striType/*t_15_string*/ o_11069_param_value; /* line 500 "../prg/s7c.sd7" */ o_11066_c_declaration=create_164(sct[378]); /* line 501 "../prg/s7c.sd7" */ o_11067_c_value=create_164(sct[379]); /* line 502 "../prg/s7c.sd7" */ o_11068_param_name=strEmpty(); /* "" */ /* line 503 "../prg/s7c.sd7" */ o_11069_param_value=strEmpty(); /* "" */ /* line 505 "../prg/s7c.sd7" */ ((structType)(o_11066_c_declaration))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(*o_11063_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 506 "../prg/s7c.sd7" */ o_11065_valueCategory=refCategory(o_11062_object_value); /* line 507 "../prg/s7c.sd7" */ o_11064_objectType=refType(o_11061_current_object); /* line 508 "../prg/s7c.sd7" */ if (((o_11064_objectType) == (refType(o_11062_object_value))) && /* line 508 "../prg/s7c.sd7" */ (o_3775_not(&(o_11064_objectType), o_4414_typeCategory))) { /* line 509 "../prg/s7c.sd7" */ o_3785/*@:=*/(&(o_4414_typeCategory), &(o_11064_objectType), o_11065_valueCategory); } /* line 511 "../prg/s7c.sd7" */ o_4801_declare_type_if_necessary(&(o_11064_objectType), &(o_4794_global_c_expr)); /* line 512 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_4816_diagnosticLine(o_11061_current_object)); /* line 513 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_4743_type_name(&(o_11064_objectType))); /* line 514 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[2893] /* " o_" */); /* line 515 "../prg/s7c.sd7" */ o_5072_create_name(o_11061_current_object, &(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/)); /* line 516 "../prg/s7c.sd7" */ if ((o_3772_in(&(o_11064_objectType), o_4414_typeCategory)) && /* line 516 "../prg/s7c.sd7" */ ((*o_3765/*[*/(&(o_4414_typeCategory), &(o_11064_objectType))) == (18L))) { /* line 517 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (18L)) { /* line 518 "../prg/s7c.sd7" */ o_11062_object_value=refItfToSct(o_11062_object_value); /* line 519 "../prg/s7c.sd7" */ o_11065_valueCategory=refCategory(o_11062_object_value); } /* line 521 "../prg/s7c.sd7" */ if (refIsVar(o_11062_object_value)) { /* line 522 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), o_4816_diagnosticLine(o_11061_current_object)); /* line 523 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2894] /* "o_" */); /* line 524 "../prg/s7c.sd7" */ o_5072_create_name(o_11061_current_object, &(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/)); /* line 525 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2895] /* "=itfCreate(o_" */); /* line 526 "../prg/s7c.sd7" */ o_5072_create_name(o_11062_object_value, &(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/)); /* line 527 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[1431] /* "/* " */); /* line 528 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), refCatStr(o_11065_valueCategory)); /* line 529 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2896] /* " *\/);\n" */); } else { /* line 531 "../prg/s7c.sd7" */ if (o_4505_not(&(o_11062_object_value), o_6490_const_table)) { /* line 532 "../prg/s7c.sd7" */ o_4515/*@:=*/(&(o_6490_const_table), &(o_11062_object_value), (intType)((o_6490_const_table)->size)); } /* line 534 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), o_4816_diagnosticLine(o_11061_current_object)); /* line 535 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2894] /* "o_" */); /* line 536 "../prg/s7c.sd7" */ o_5072_create_name(o_11061_current_object, &(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/)); /* line 537 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[287] /* "=(" */); /* line 538 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), o_4743_type_name(&(o_11064_objectType))); /* line 539 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2897] /* ")(itfCreate(itf[" */); { /* line 540 "../prg/s7c.sd7" */ union { /* line 540 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 540 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 540 "../prg/s7c.sd7" */ } buffer_1; /* line 540 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), intStrToBuffer(*o_4495/*[*/(&(o_6490_const_table), &(o_11062_object_value)), &buffer_1.striBuf)); } /* line 541 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2898] /* "]));\n" */); } /* line 543 "../prg/s7c.sd7" */ o_4829_process_destr_declaration(&(o_11064_objectType), &(o_4794_global_c_expr)); /* line 544 "../prg/s7c.sd7" */ strCopy(&(o_11068_param_name), &str[2894] /* "o_" */); /* line 545 "../prg/s7c.sd7" */ o_5072_create_name(o_11061_current_object, &(o_11068_param_name)); /* line 546 "../prg/s7c.sd7" */ o_4832_process_destr_call(&(o_11064_objectType), o_11068_param_name, &(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/)); } else /* line 547 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (7L)) { /* line 548 "../prg/s7c.sd7" */ { /* line 548 "../prg/s7c.sd7" */ striType *tmp_1; /* line 548 "../prg/s7c.sd7" */ tmp_1=&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 548 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 548 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 548 "../prg/s7c.sd7" */ } else { /* line 548 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 548 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 548 "../prg/s7c.sd7" */ } } { /* line 549 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 549 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_6516_typeLiteral(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(typValue(o_11062_object_value)), &tmp_2))); } } else /* line 550 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (9L)) { /* line 551 "../prg/s7c.sd7" */ { /* line 551 "../prg/s7c.sd7" */ striType *tmp_1; /* line 551 "../prg/s7c.sd7" */ tmp_1=&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 551 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 551 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 551 "../prg/s7c.sd7" */ } else { /* line 551 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 551 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 551 "../prg/s7c.sd7" */ } } { /* line 552 "../prg/s7c.sd7" */ union { /* line 552 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 552 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 552 "../prg/s7c.sd7" */ } buffer_1; /* line 552 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/), intStrToBuffer(intValue(o_11062_object_value), &buffer_1.striBuf)); } } else /* line 553 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (10L)) { /* line 554 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), o_4816_diagnosticLine(o_11061_current_object)); /* line 555 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2894] /* "o_" */); /* line 556 "../prg/s7c.sd7" */ o_5072_create_name(o_11061_current_object, &(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/)); /* line 557 "../prg/s7c.sd7" */ { /* line 557 "../prg/s7c.sd7" */ striType *tmp_1; /* line 557 "../prg/s7c.sd7" */ tmp_1=&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/); /* line 557 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 557 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 557 "../prg/s7c.sd7" */ } else { /* line 557 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 557 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 557 "../prg/s7c.sd7" */ } } { /* line 558 "../prg/s7c.sd7" */ bigIntType tmp_1 = NULL; /* line 558 "../prg/s7c.sd7" */ o_10995_process_big_create_call((tmp_1=bigValue(o_11062_object_value)), &(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/)); /* line 558 "../prg/s7c.sd7" */ bigDestr(tmp_1); } /* line 559 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/), &str[2899] /* "bigDestr(o_" */); /* line 560 "../prg/s7c.sd7" */ o_5072_create_name(o_11061_current_object, &(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/)); /* line 561 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/), &str[186] /* ");\n" */); } else /* line 562 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (11L)) { /* line 563 "../prg/s7c.sd7" */ { /* line 563 "../prg/s7c.sd7" */ striType *tmp_1; /* line 563 "../prg/s7c.sd7" */ tmp_1=&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 563 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 563 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 563 "../prg/s7c.sd7" */ } else { /* line 563 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 563 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 563 "../prg/s7c.sd7" */ } } /* line 564 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_6500_charLiteral(chrValue(o_11062_object_value))); } else /* line 565 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (25L)) { /* line 566 "../prg/s7c.sd7" */ { /* line 566 "../prg/s7c.sd7" */ striType *tmp_1; /* line 566 "../prg/s7c.sd7" */ tmp_1=&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 566 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 566 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 566 "../prg/s7c.sd7" */ } else { /* line 566 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 566 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 566 "../prg/s7c.sd7" */ } } /* line 567 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_6511_floatLiteral(fltValue(o_11062_object_value))); } else /* line 568 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (12L)) { /* line 569 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), o_4816_diagnosticLine(o_11061_current_object)); /* line 570 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2894] /* "o_" */); /* line 571 "../prg/s7c.sd7" */ o_5072_create_name(o_11061_current_object, &(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/)); /* line 572 "../prg/s7c.sd7" */ { /* line 572 "../prg/s7c.sd7" */ striType *tmp_1; /* line 572 "../prg/s7c.sd7" */ tmp_1=&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/); /* line 572 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 572 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 572 "../prg/s7c.sd7" */ } else { /* line 572 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 572 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 572 "../prg/s7c.sd7" */ } } { /* line 573 "../prg/s7c.sd7" */ striType tmp_1 = NULL; /* line 573 "../prg/s7c.sd7" */ o_10998_process_str_create_call((tmp_1=strValue(o_11062_object_value)), &(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/)); /* line 573 "../prg/s7c.sd7" */ strDestr(tmp_1); } /* line 574 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/), &str[2900] /* "strDestr(o_" */); /* line 575 "../prg/s7c.sd7" */ o_5072_create_name(o_11061_current_object, &(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/)); /* line 576 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/), &str[186] /* ");\n" */); } else /* line 577 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (13L)) { /* line 578 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), o_4816_diagnosticLine(o_11061_current_object)); /* line 579 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2894] /* "o_" */); /* line 580 "../prg/s7c.sd7" */ o_5072_create_name(o_11061_current_object, &(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/)); /* line 581 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2901] /* "=bstCreate(" */); { /* line 582 "../prg/s7c.sd7" */ bstriType tmp_2 = NULL; /* line 582 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), o_6497_bstriLiteral((tmp_2=bstValue(o_11062_object_value)))); /* line 582 "../prg/s7c.sd7" */ bstDestr(tmp_2); } /* line 583 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[186] /* ");\n" */); /* line 584 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/), &str[2902] /* "bstDestr(o_" */); /* line 585 "../prg/s7c.sd7" */ o_5072_create_name(o_11061_current_object, &(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/)); /* line 586 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/), &str[186] /* ");\n" */); } else /* line 587 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (19L)) { /* line 588 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), o_4816_diagnosticLine(o_11061_current_object)); /* line 589 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2894] /* "o_" */); /* line 590 "../prg/s7c.sd7" */ o_5072_create_name(o_11061_current_object, &(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/)); /* line 591 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2903] /* "=setCreate(" */); { /* line 592 "../prg/s7c.sd7" */ setType/*t_30_bitset*/ tmp_2 = (setType/*t_30_bitset*/)(NULL); /* line 592 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), o_6508_bitsetLiteral((tmp_2=(setType/*t_30_bitset*/)(setValue(o_11062_object_value))))); /* line 592 "../prg/s7c.sd7" */ setDestr(tmp_2); } /* line 593 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[186] /* ");\n" */); /* line 594 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/), &str[2904] /* "setDestr(o_" */); /* line 595 "../prg/s7c.sd7" */ o_5072_create_name(o_11061_current_object, &(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/)); /* line 596 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/), &str[186] /* ");\n" */); } else /* line 597 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (30L)) { /* line 598 "../prg/s7c.sd7" */ { /* line 598 "../prg/s7c.sd7" */ striType *tmp_1; /* line 598 "../prg/s7c.sd7" */ tmp_1=&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 598 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 598 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 598 "../prg/s7c.sd7" */ } else { /* line 598 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 598 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 598 "../prg/s7c.sd7" */ } } /* line 599 "../prg/s7c.sd7" */ o_11015_reference_value(refValue(o_11062_object_value), &(o_11067_c_value)); /* line 600 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/), ((structType)(o_11067_c_value))->stru[5].value.striValue/*->o_4783_expr*/); } else /* line 601 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (31L)) { /* line 602 "../prg/s7c.sd7" */ { /* line 602 "../prg/s7c.sd7" */ striType *tmp_1; /* line 602 "../prg/s7c.sd7" */ tmp_1=&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 602 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 602 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 602 "../prg/s7c.sd7" */ } else { /* line 602 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 602 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 602 "../prg/s7c.sd7" */ } } { /* line 603 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ tmp_1; /* line 603 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ tmp_2 = (listType/*t_20_ref_list*/)(NULL); /* line 603 "../prg/s7c.sd7" */ o_11018_ref_list_value(/* CALLOBJECT */(tmp_1=(listType/*t_20_ref_list*/)((tmp_2=(listType/*t_20_ref_list*/)(rflValue(o_11062_object_value)))), &tmp_1), &(o_11067_c_value)); /* line 603 "../prg/s7c.sd7" */ rflDestr(tmp_2); } /* line 604 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/), ((structType)(o_11067_c_value))->stru[5].value.striValue/*->o_4783_expr*/); /* line 605 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/), &str[2905] /* "rflDestr(o_" */); /* line 606 "../prg/s7c.sd7" */ o_5072_create_name(o_11061_current_object, &(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/)); /* line 607 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/), &str[186] /* ");\n" */); } else /* line 608 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (20L)) { /* line 609 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[2906] /* "=NULL" */); } else /* line 610 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (22L)) { /* line 611 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[2907] /* "=-1" */); } else /* line 612 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (23L)) { /* line 613 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[2906] /* "=NULL" */); } else /* line 614 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (14L)) { /* line 615 "../prg/s7c.sd7" */ if (o_4505_not(&(o_11062_object_value), o_6490_const_table)) { /* line 616 "../prg/s7c.sd7" */ o_4515/*@:=*/(&(o_6490_const_table), &(o_11062_object_value), (intType)((o_6490_const_table)->size)); } /* line 618 "../prg/s7c.sd7" */ o_4878_process_create_declaration(&(o_11064_objectType), &(o_4794_global_c_expr)); /* line 619 "../prg/s7c.sd7" */ o_4829_process_destr_declaration(&(o_11064_objectType), &(o_4794_global_c_expr)); /* line 620 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), o_4816_diagnosticLine(o_11061_current_object)); /* line 621 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2894] /* "o_" */); /* line 622 "../prg/s7c.sd7" */ o_5072_create_name(o_11061_current_object, &(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/)); /* line 623 "../prg/s7c.sd7" */ { /* line 623 "../prg/s7c.sd7" */ striType *tmp_1; /* line 623 "../prg/s7c.sd7" */ tmp_1=&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/); /* line 623 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 623 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 623 "../prg/s7c.sd7" */ } else { /* line 623 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 623 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 623 "../prg/s7c.sd7" */ } } /* line 624 "../prg/s7c.sd7" */ strCopy(&(o_11069_param_value), &str[381] /* "arr[" */); { /* line 625 "../prg/s7c.sd7" */ union { /* line 625 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 625 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 625 "../prg/s7c.sd7" */ } buffer_1; /* line 625 "../prg/s7c.sd7" */ strAppend(&(o_11069_param_value), intStrToBuffer(*o_4495/*[*/(&(o_6490_const_table), &(o_11062_object_value)), &buffer_1.striBuf)); } /* line 626 "../prg/s7c.sd7" */ /* line 626 "../prg/s7c.sd7" */ if (((o_11069_param_value))->size == ((o_11069_param_value))->capacity) { /* line 626 "../prg/s7c.sd7" */ strPush(&((o_11069_param_value)), (charType) ']'); /* line 626 "../prg/s7c.sd7" */ } else { /* line 626 "../prg/s7c.sd7" */ ((o_11069_param_value))->mem[((o_11069_param_value))->size]=(charType) ']'; /* line 626 "../prg/s7c.sd7" */ ((o_11069_param_value))->size++; /* line 626 "../prg/s7c.sd7" */ } /* line 627 "../prg/s7c.sd7" */ o_4881_process_create_call(&(o_11064_objectType), o_11069_param_value, &(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/)); /* line 629 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[215] /* ";\n" */); /* line 630 "../prg/s7c.sd7" */ strCopy(&(o_11068_param_name), &str[2894] /* "o_" */); /* line 631 "../prg/s7c.sd7" */ o_5072_create_name(o_11061_current_object, &(o_11068_param_name)); /* line 632 "../prg/s7c.sd7" */ o_4832_process_destr_call(&(o_11064_objectType), o_11068_param_name, &(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/)); } else /* line 633 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (16L)) { /* line 634 "../prg/s7c.sd7" */ if (o_4505_not(&(o_11062_object_value), o_6490_const_table)) { /* line 635 "../prg/s7c.sd7" */ o_4515/*@:=*/(&(o_6490_const_table), &(o_11062_object_value), (intType)((o_6490_const_table)->size)); } /* line 637 "../prg/s7c.sd7" */ o_4878_process_create_declaration(&(o_11064_objectType), &(o_4794_global_c_expr)); /* line 638 "../prg/s7c.sd7" */ o_4829_process_destr_declaration(&(o_11064_objectType), &(o_4794_global_c_expr)); /* line 639 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), o_4816_diagnosticLine(o_11061_current_object)); /* line 640 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2894] /* "o_" */); /* line 641 "../prg/s7c.sd7" */ o_5072_create_name(o_11061_current_object, &(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/)); /* line 642 "../prg/s7c.sd7" */ { /* line 642 "../prg/s7c.sd7" */ striType *tmp_1; /* line 642 "../prg/s7c.sd7" */ tmp_1=&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/); /* line 642 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 642 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 642 "../prg/s7c.sd7" */ } else { /* line 642 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 642 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 642 "../prg/s7c.sd7" */ } } /* line 643 "../prg/s7c.sd7" */ strCopy(&(o_11069_param_value), &str[2908] /* "sct[" */); { /* line 644 "../prg/s7c.sd7" */ union { /* line 644 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 644 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 644 "../prg/s7c.sd7" */ } buffer_1; /* line 644 "../prg/s7c.sd7" */ strAppend(&(o_11069_param_value), intStrToBuffer(*o_4495/*[*/(&(o_6490_const_table), &(o_11062_object_value)), &buffer_1.striBuf)); } /* line 645 "../prg/s7c.sd7" */ /* line 645 "../prg/s7c.sd7" */ if (((o_11069_param_value))->size == ((o_11069_param_value))->capacity) { /* line 645 "../prg/s7c.sd7" */ strPush(&((o_11069_param_value)), (charType) ']'); /* line 645 "../prg/s7c.sd7" */ } else { /* line 645 "../prg/s7c.sd7" */ ((o_11069_param_value))->mem[((o_11069_param_value))->size]=(charType) ']'; /* line 645 "../prg/s7c.sd7" */ ((o_11069_param_value))->size++; /* line 645 "../prg/s7c.sd7" */ } /* line 646 "../prg/s7c.sd7" */ o_4881_process_create_call(&(o_11064_objectType), o_11069_param_value, &(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/)); /* line 648 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[215] /* ";\n" */); /* line 649 "../prg/s7c.sd7" */ strCopy(&(o_11068_param_name), &str[2894] /* "o_" */); /* line 650 "../prg/s7c.sd7" */ o_5072_create_name(o_11061_current_object, &(o_11068_param_name)); /* line 651 "../prg/s7c.sd7" */ o_4832_process_destr_call(&(o_11064_objectType), o_11068_param_name, &(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/)); } else /* line 652 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (15L)) { { /* line 653 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ tmp_1 = (listType/*t_20_ref_list*/)(NULL); /* line 653 "../prg/s7c.sd7" */ if ((rflLng((tmp_1=(listType/*t_20_ref_list*/)(refHshKeysToList(o_11062_object_value))))) == (0L)) { /* line 654 "../prg/s7c.sd7" */ o_4829_process_destr_declaration(&(o_11064_objectType), &(o_4794_global_c_expr)); /* line 655 "../prg/s7c.sd7" */ ++(o_5107_countOptimizations); /* line 656 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), o_4816_diagnosticLine(o_11061_current_object)); /* line 657 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2894] /* "o_" */); /* line 658 "../prg/s7c.sd7" */ o_5072_create_name(o_11061_current_object, &(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/)); /* line 659 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2909] /* "=hshEmpty();\n" */); } else { /* line 661 "../prg/s7c.sd7" */ if (o_4505_not(&(o_11062_object_value), o_6490_const_table)) { /* line 662 "../prg/s7c.sd7" */ o_4515/*@:=*/(&(o_6490_const_table), &(o_11062_object_value), (intType)((o_6490_const_table)->size)); } /* line 664 "../prg/s7c.sd7" */ o_4878_process_create_declaration(&(o_11064_objectType), &(o_4794_global_c_expr)); /* line 665 "../prg/s7c.sd7" */ o_4829_process_destr_declaration(&(o_11064_objectType), &(o_4794_global_c_expr)); /* line 666 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), o_4816_diagnosticLine(o_11061_current_object)); /* line 667 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2894] /* "o_" */); /* line 668 "../prg/s7c.sd7" */ o_5072_create_name(o_11061_current_object, &(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/)); /* line 669 "../prg/s7c.sd7" */ { /* line 669 "../prg/s7c.sd7" */ striType *tmp_1; /* line 669 "../prg/s7c.sd7" */ tmp_1=&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/); /* line 669 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 669 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 669 "../prg/s7c.sd7" */ } else { /* line 669 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 669 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 669 "../prg/s7c.sd7" */ } } /* line 670 "../prg/s7c.sd7" */ strCopy(&(o_11069_param_value), &str[2910] /* "hsh[" */); { /* line 671 "../prg/s7c.sd7" */ union { /* line 671 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 671 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 671 "../prg/s7c.sd7" */ } buffer_1; /* line 671 "../prg/s7c.sd7" */ strAppend(&(o_11069_param_value), intStrToBuffer(*o_4495/*[*/(&(o_6490_const_table), &(o_11062_object_value)), &buffer_1.striBuf)); } /* line 672 "../prg/s7c.sd7" */ /* line 672 "../prg/s7c.sd7" */ if (((o_11069_param_value))->size == ((o_11069_param_value))->capacity) { /* line 672 "../prg/s7c.sd7" */ strPush(&((o_11069_param_value)), (charType) ']'); /* line 672 "../prg/s7c.sd7" */ } else { /* line 672 "../prg/s7c.sd7" */ ((o_11069_param_value))->mem[((o_11069_param_value))->size]=(charType) ']'; /* line 672 "../prg/s7c.sd7" */ ((o_11069_param_value))->size++; /* line 672 "../prg/s7c.sd7" */ } /* line 673 "../prg/s7c.sd7" */ o_4881_process_create_call(&(o_11064_objectType), o_11069_param_value, &(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/)); /* line 675 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[215] /* ";\n" */); } /* line 653 "../prg/s7c.sd7" */ rflDestr(tmp_1); } /* line 677 "../prg/s7c.sd7" */ strCopy(&(o_11068_param_name), &str[2894] /* "o_" */); /* line 678 "../prg/s7c.sd7" */ o_5072_create_name(o_11061_current_object, &(o_11068_param_name)); /* line 679 "../prg/s7c.sd7" */ o_4832_process_destr_call(&(o_11064_objectType), o_11068_param_name, &(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/)); } else /* line 680 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (18L)) { /* line 681 "../prg/s7c.sd7" */ if (o_4505_not(&(o_11062_object_value), o_6490_const_table)) { /* line 682 "../prg/s7c.sd7" */ o_4515/*@:=*/(&(o_6490_const_table), &(o_11062_object_value), (intType)((o_6490_const_table)->size)); } /* line 684 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), o_4816_diagnosticLine(o_11061_current_object)); /* line 685 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2894] /* "o_" */); /* line 686 "../prg/s7c.sd7" */ o_5072_create_name(o_11061_current_object, &(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/)); /* line 687 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2911] /* "=itf[" */); { /* line 688 "../prg/s7c.sd7" */ union { /* line 688 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 688 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 688 "../prg/s7c.sd7" */ } buffer_1; /* line 688 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), intStrToBuffer(*o_4495/*[*/(&(o_6490_const_table), &(o_11062_object_value)), &buffer_1.striBuf)); } /* line 689 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[1952] /* "];\n" */); /* line 690 "../prg/s7c.sd7" */ o_4829_process_destr_declaration(&(o_11064_objectType), &(o_4794_global_c_expr)); /* line 691 "../prg/s7c.sd7" */ strCopy(&(o_11068_param_name), &str[2894] /* "o_" */); /* line 692 "../prg/s7c.sd7" */ o_5072_create_name(o_11061_current_object, &(o_11068_param_name)); /* line 693 "../prg/s7c.sd7" */ o_4832_process_destr_call(&(o_11064_objectType), o_11068_param_name, &(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/)); } else /* line 694 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (26L)) { /* line 695 "../prg/s7c.sd7" */ if ((drwValue(o_11062_object_value)) == ((winType) NULL)) { /* line 696 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[2906] /* "=NULL" */); } else { /* line 698 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), o_4816_diagnosticLine(o_11061_current_object)); /* line 699 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2894] /* "o_" */); /* line 700 "../prg/s7c.sd7" */ o_5072_create_name(o_11061_current_object, &(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/)); /* line 701 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2912] /* "=winCreate(" */); /* line 702 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), o_6519_windowLiteral(drwValue(o_11062_object_value))); /* line 703 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[186] /* ");\n" */); } /* line 705 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/), &str[2913] /* "drwDestr(o_" */); /* line 706 "../prg/s7c.sd7" */ o_5072_create_name(o_11061_current_object, &(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/)); /* line 707 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/), &str[186] /* ");\n" */); } else /* line 708 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (40L)) { /* line 709 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[2906] /* "=NULL" */); /* line 710 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/), &str[2914] /* "prgDestr(o_" */); /* line 711 "../prg/s7c.sd7" */ o_5072_create_name(o_11061_current_object, &(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/)); /* line 712 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/), &str[186] /* ");\n" */); } else /* line 713 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (28L)) { /* line 714 "../prg/s7c.sd7" */ { /* line 714 "../prg/s7c.sd7" */ striType *tmp_1; /* line 714 "../prg/s7c.sd7" */ tmp_1=&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 714 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 714 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 714 "../prg/s7c.sd7" */ } else { /* line 714 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 714 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 714 "../prg/s7c.sd7" */ } } /* line 715 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_11010_enum_value(refValue(o_11062_object_value))); } else /* line 716 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (29L)) { /* line 717 "../prg/s7c.sd7" */ { /* line 717 "../prg/s7c.sd7" */ striType *tmp_1; /* line 717 "../prg/s7c.sd7" */ tmp_1=&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 717 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 717 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 717 "../prg/s7c.sd7" */ } else { /* line 717 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 717 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 717 "../prg/s7c.sd7" */ } } /* line 718 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_11010_enum_value(refValue(o_11062_object_value))); } else /* line 719 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (27L)) { /* line 720 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[2915] /* "=o_" */); /* line 721 "../prg/s7c.sd7" */ o_5072_create_name(o_11062_object_value, &(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/)); } else /* line 722 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (5L)) { /* line 723 "../prg/s7c.sd7" */ strCopy(&(o_11068_param_name), &str[2894] /* "o_" */); /* line 724 "../prg/s7c.sd7" */ o_5072_create_name(o_11061_current_object, &(o_11068_param_name)); /* line 725 "../prg/s7c.sd7" */ ((structType)(o_11067_c_value))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_11066_c_declaration))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 726 "../prg/s7c.sd7" */ o_5010_getTemporaryToResultExpr(o_11062_object_value, &(o_11067_c_value)); /* line 727 "../prg/s7c.sd7" */ ((structType)(o_11066_c_declaration))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_11067_c_value))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 728 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11063_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), ((structType)(o_11067_c_value))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 729 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11063_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), ((structType)(o_11067_c_value))->stru[4].value.striValue/*->o_4782_temp_assigns*/); /* line 730 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11063_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), ((structType)(o_11067_c_value))->stru[6].value.striValue/*->o_4784_temp_frees*/); /* line 731 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11063_c_expr))->stru[7].value.striValue/*->o_4785_temp_to_null*/), ((structType)(o_11067_c_value))->stru[7].value.striValue/*->o_4785_temp_to_null*/); /* line 732 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), o_4816_diagnosticLine(o_11061_current_object)); /* line 733 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), o_11068_param_name); /* line 734 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[287] /* "=(" */); /* line 735 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), o_4743_type_name(&(o_11064_objectType))); /* line 736 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[206] /* ")(" */); /* line 737 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), ((structType)(o_11067_c_value))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 738 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[186] /* ");\n" */); /* line 739 "../prg/s7c.sd7" */ o_4829_process_destr_declaration(&(o_11064_objectType), &(o_4794_global_c_expr)); /* line 740 "../prg/s7c.sd7" */ o_4832_process_destr_call(&(o_11064_objectType), o_11068_param_name, &(((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/)); } else /* line 741 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (4L)) { /* line 742 "../prg/s7c.sd7" */ o_5082_create_name(o_11062_object_value, refNum(o_11062_object_value), &(o_11068_param_name)); /* line 743 "../prg/s7c.sd7" */ ((structType)(o_11067_c_value))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_11066_c_declaration))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 744 "../prg/s7c.sd7" */ o_9142_processFuncValue(o_11068_param_name, &(o_11064_objectType), o_11062_object_value, &(o_11067_c_value)); /* line 745 "../prg/s7c.sd7" */ ((structType)(o_11066_c_declaration))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_11067_c_value))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 746 "../prg/s7c.sd7" */ { /* line 746 "../prg/s7c.sd7" */ striType *tmp_1; /* line 746 "../prg/s7c.sd7" */ tmp_1=&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 746 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 746 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 746 "../prg/s7c.sd7" */ } else { /* line 746 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 746 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 746 "../prg/s7c.sd7" */ } } /* line 747 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/), ((structType)(o_11067_c_value))->stru[5].value.striValue/*->o_4783_expr*/); /* line 748 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11063_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), ((structType)(o_11067_c_value))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 749 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11063_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), ((structType)(o_11067_c_value))->stru[4].value.striValue/*->o_4782_temp_assigns*/); /* line 750 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11063_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), ((structType)(o_11067_c_value))->stru[6].value.striValue/*->o_4784_temp_frees*/); /* line 751 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11063_c_expr))->stru[7].value.striValue/*->o_4785_temp_to_null*/), ((structType)(o_11067_c_value))->stru[7].value.striValue/*->o_4785_temp_to_null*/); /* line 752 "../prg/s7c.sd7" */ o_4655/*@:=*/(&(o_10970_function_declared), &(o_11062_object_value), o_26_TRUE); } else /* line 753 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (33L)) { /* line 754 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[2906] /* "=NULL" */); } else /* line 755 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (38L)) { /* line 756 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[2906] /* "=NULL" */); } else /* line 757 "../prg/s7c.sd7" */ if ((o_11065_valueCategory) == (39L)) { /* line 758 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[2906] /* "=NULL" */); } else { /* line 760 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[1431] /* "/* " */); /* line 761 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/), refCatStr(o_11065_valueCategory)); /* line 762 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[281] /* " *\/" */); } /* line 764 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 765 "../prg/s7c.sd7" */ ((structType)(*o_11063_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_11066_c_declaration))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 766 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11063_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), ((structType)(o_11066_c_declaration))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 767 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11063_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), ((structType)(o_11066_c_declaration))->stru[4].value.striValue/*->o_4782_temp_assigns*/); /* line 768 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11063_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), ((structType)(o_11066_c_declaration))->stru[6].value.striValue/*->o_4784_temp_frees*/); /* line 769 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11063_c_expr))->stru[7].value.striValue/*->o_4785_temp_to_null*/), ((structType)(o_11066_c_declaration))->stru[7].value.striValue/*->o_4785_temp_to_null*/); /* line 494 "../prg/s7c.sd7" */ destr_164(o_11066_c_declaration); /* line 494 "../prg/s7c.sd7" */ destr_164(o_11067_c_value); /* line 494 "../prg/s7c.sd7" */ strDestr(o_11068_param_name); /* line 494 "../prg/s7c.sd7" */ strDestr(o_11069_param_value); } /* line 1 "no_file" */ /* 5006 */ /* line 773 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11070_process_local_var_declaration (const objRefType/*t_19_reference*/ o_11071_current_object, structType/*t_164_expr_type*/ *const o_11072_c_expr) { /* line 777 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11073_objects=NULL; /* line 778 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11074_obj=NULL; { /* line 780 "../prg/s7c.sd7" */ listType old_rfl=o_11073_objects; /* line 780 "../prg/s7c.sd7" */ o_11073_objects=refLocalVars(o_11071_current_object); /* line 780 "../prg/s7c.sd7" */ rflDestr(old_rfl); } { /* line 781 "../prg/s7c.sd7" */ listType tmp_elem_1; /* line 781 "../prg/s7c.sd7" */ for (tmp_elem_1 = o_11073_objects; tmp_elem_1 != NULL; tmp_elem_1 = tmp_elem_1->next) { /* line 781 "../prg/s7c.sd7" */ o_11074_obj = tmp_elem_1->obj; /* line 782 "../prg/s7c.sd7" */ o_11060_process_local_declaration(o_11074_obj, refValue(o_11074_obj), o_11072_c_expr); } } /* line 773 "../prg/s7c.sd7" */ rflDestr(o_11073_objects); } /* line 1 "no_file" */ /* 5007 */ /* line 787 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11075_push_inline_param_value (const objRefType/*t_19_reference*/ o_11076_obj, const objRefType/*t_19_reference*/ o_11077_value) { /* line 790 "../prg/s7c.sd7" */ if (o_10885_not(&(o_11076_obj), o_10975_inline_param_value)) { /* line 791 "../prg/s7c.sd7" */ o_10895/*@:=*/(&(o_10975_inline_param_value), &(o_11076_obj), o_125/*.*/); } /* line 793 "../prg/s7c.sd7" */ rflIncl(&(*o_10875/*[*/(&(o_10975_inline_param_value), &(o_11076_obj))), o_11077_value); } /* line 1 "no_file" */ /* 5008 */ /* line 797 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11078_pop_inline_param_value (const objRefType/*t_19_reference*/ o_11079_obj) { { /* line 800 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ tmp_1 = (listType/*t_20_ref_list*/)(NULL); /* line 800 "../prg/s7c.sd7" */ o_10895/*@:=*/(&(o_10975_inline_param_value), &(o_11079_obj), (tmp_1=(listType/*t_20_ref_list*/)(rflTail(*o_10875/*[*/(&(o_10975_inline_param_value), &(o_11079_obj)), 2L)))); /* line 800 "../prg/s7c.sd7" */ rflDestr(tmp_1); } } /* line 1 "no_file" */ /* 5009 */ /* line 804 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11080_assign_inline_param (const objRefType/*t_19_reference*/ o_11081_formal_param, const objRefType/*t_19_reference*/ o_11082_actual_param, structType/*t_164_expr_type*/ *const o_11083_c_expr) { /* line 808 "../prg/s7c.sd7" */ intType/*t_14_integer*/ o_11084_temp_num=0; /* line 810 "../prg/s7c.sd7" */ if (o_11027_isPointerParam(o_11081_formal_param)) { /* line 811 "../prg/s7c.sd7" */ if ((refCategory(o_11082_actual_param)) == (35L)) { /* line 812 "../prg/s7c.sd7" */ if (o_10937_in(&(o_11082_actual_param), o_10976_inline_param)) { /* line 813 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11083_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2916] /* "par_" */); { /* line 814 "../prg/s7c.sd7" */ union { /* line 814 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 814 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 814 "../prg/s7c.sd7" */ } buffer_1; /* line 814 "../prg/s7c.sd7" */ arrayType tmp_2; /* line 814 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11083_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((*(tmp_2=*o_10930/*[*/(&(o_10976_inline_param), &(o_11082_actual_param)), &tmp_2->arr[(idxChk(1min_position || 1>tmp_2->max_position) ? intRaiseError(RANGE_ERROR) : 0, 1-tmp_2->min_position)].value.intValue)), &buffer_1.striBuf)); } /* line 815 "../prg/s7c.sd7" */ { /* line 815 "../prg/s7c.sd7" */ striType *tmp_1; /* line 815 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11083_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 815 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 815 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '_'); /* line 815 "../prg/s7c.sd7" */ } else { /* line 815 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '_'; /* line 815 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 815 "../prg/s7c.sd7" */ } } } /* line 817 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11083_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 818 "../prg/s7c.sd7" */ o_5072_create_name(o_11082_actual_param, &(((structType)(*o_11083_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else /* line 819 "../prg/s7c.sd7" */ if (o_11033_canTakeAddress(o_11082_actual_param)) { /* line 820 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11083_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1503] /* "&(" */); /* line 821 "../prg/s7c.sd7" */ o_4941_process_expr(o_11082_actual_param, o_11083_c_expr); /* line 822 "../prg/s7c.sd7" */ { /* line 822 "../prg/s7c.sd7" */ striType *tmp_1; /* line 822 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11083_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 822 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 822 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ')'); /* line 822 "../prg/s7c.sd7" */ } else { /* line 822 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 822 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 822 "../prg/s7c.sd7" */ } } } else { /* line 824 "../prg/s7c.sd7" */ ++(((structType)(*o_11083_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); /* line 825 "../prg/s7c.sd7" */ o_11084_temp_num=((structType)(*o_11083_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/; { /* line 826 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 826 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11083_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_4743_type_name(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(o_4754_getExprResultType(o_11082_actual_param)), &tmp_2))); } /* line 827 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11083_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[283] /* " tmp_" */); { /* line 828 "../prg/s7c.sd7" */ union { /* line 828 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 828 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 828 "../prg/s7c.sd7" */ } buffer_1; /* line 828 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11083_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), intStrToBuffer(o_11084_temp_num, &buffer_1.striBuf)); } /* line 829 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11083_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 830 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11083_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[286] /* "(tmp_" */); { /* line 831 "../prg/s7c.sd7" */ union { /* line 831 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 831 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 831 "../prg/s7c.sd7" */ } buffer_1; /* line 831 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11083_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(o_11084_temp_num, &buffer_1.striBuf)); } /* line 832 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11083_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[287] /* "=(" */); { /* line 833 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 833 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11083_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(o_4754_getExprResultType(o_11082_actual_param)), &tmp_2))); } /* line 834 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11083_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[206] /* ")(" */); /* line 835 "../prg/s7c.sd7" */ o_4970_getAnyParamToExpr(o_11082_actual_param, o_11083_c_expr); /* line 836 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11083_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2917] /* "), &tmp_" */); { /* line 837 "../prg/s7c.sd7" */ union { /* line 837 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 837 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 837 "../prg/s7c.sd7" */ } buffer_1; /* line 837 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11083_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(o_11084_temp_num, &buffer_1.striBuf)); } /* line 838 "../prg/s7c.sd7" */ { /* line 838 "../prg/s7c.sd7" */ striType *tmp_1; /* line 838 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11083_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 838 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 838 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ')'); /* line 838 "../prg/s7c.sd7" */ } else { /* line 838 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 838 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 838 "../prg/s7c.sd7" */ } } } } else { /* line 841 "../prg/s7c.sd7" */ o_4970_getAnyParamToExpr(o_11082_actual_param, o_11083_c_expr); } } /* line 1 "no_file" */ /* 5010 */ /* line 846 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11085_push_inline_func_param (const objRefType/*t_19_reference*/ o_11086_formal_param, const objRefType/*t_19_reference*/ o_11087_actual_param, structType/*t_164_expr_type*/ *const o_11088_c_expr) { /* line 850 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11089_param_type=typ[0] /* void/t_1_void */; /* line 851 "../prg/s7c.sd7" */ striType/*t_15_string*/ o_11090_param_name; /* line 852 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11091_actual_param_expr; /* line 853 "../prg/s7c.sd7" */ intType/*t_14_integer*/ o_11092_temp_num=0; /* line 851 "../prg/s7c.sd7" */ o_11090_param_name=strEmpty(); /* "" */ /* line 852 "../prg/s7c.sd7" */ o_11091_actual_param_expr=create_164(sct[380]); /* line 855 "../prg/s7c.sd7" */ if ((refCategory(o_11086_formal_param)) != (0L)) { /* line 856 "../prg/s7c.sd7" */ o_11089_param_type=refType(o_11086_formal_param); /* line 857 "../prg/s7c.sd7" */ if (typIsFunc(o_11089_param_type)) { /* line 858 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11088_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2918] /* "/* push proc param o_" */); /* line 859 "../prg/s7c.sd7" */ o_5077_create_name2(o_11086_formal_param, &(((structType)(*o_11088_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 860 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11088_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[164] /* " *\/\n" */); /* line 861 "../prg/s7c.sd7" */ o_11075_push_inline_param_value(o_11086_formal_param, o_11087_actual_param); } else { /* line 863 "../prg/s7c.sd7" */ if ((!(refIsVar(o_11086_formal_param))) && /* line 863 "../prg/s7c.sd7" */ (!(o_11027_isPointerParam(o_11086_formal_param)))) { /* line 864 "../prg/s7c.sd7" */ if (o_4769_useConstPrefix(&(o_11089_param_type))) { /* line 865 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11088_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[228] /* "const_" */); } } /* line 868 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11088_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_4743_type_name(&(o_11089_param_type))); /* line 869 "../prg/s7c.sd7" */ { /* line 869 "../prg/s7c.sd7" */ striType *tmp_1; /* line 869 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11088_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 869 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 869 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ' '); /* line 869 "../prg/s7c.sd7" */ } else { /* line 869 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ' '; /* line 869 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 869 "../prg/s7c.sd7" */ } } /* line 870 "../prg/s7c.sd7" */ if (o_11027_isPointerParam(o_11086_formal_param)) { /* line 871 "../prg/s7c.sd7" */ { /* line 871 "../prg/s7c.sd7" */ striType *tmp_1; /* line 871 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11088_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 871 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 871 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '*'); /* line 871 "../prg/s7c.sd7" */ } else { /* line 871 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '*'; /* line 871 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 871 "../prg/s7c.sd7" */ } } } /* line 873 "../prg/s7c.sd7" */ ++(((structType)(*o_11088_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); /* line 874 "../prg/s7c.sd7" */ o_11092_temp_num=((structType)(*o_11088_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 875 "../prg/s7c.sd7" */ if (o_10937_in(&(o_11086_formal_param), o_10976_inline_param)) { { /* line 876 "../prg/s7c.sd7" */ arrayType/*t_27_TEST_1*/ tmp_1 = (arrayType/*t_27_TEST_1*/)(NULL); /* line 876 "../prg/s7c.sd7" */ o_10950/*@:=*/(&(o_10976_inline_param), &(o_11086_formal_param), (tmp_1=(arrayType/*t_27_TEST_1*/)(arrCat(arrBaselit((genericType)(o_11092_temp_num)), create_27(*o_10930/*[*/(&(o_10976_inline_param), &(o_11086_formal_param))))))); /* line 876 "../prg/s7c.sd7" */ destr_27(tmp_1); } } else { { /* line 878 "../prg/s7c.sd7" */ arrayType/*t_27_TEST_1*/ tmp_1 = (arrayType/*t_27_TEST_1*/)(NULL); /* line 878 "../prg/s7c.sd7" */ o_10950/*@:=*/(&(o_10976_inline_param), &(o_11086_formal_param), (tmp_1=(arrayType/*t_27_TEST_1*/)(arrBaselit((genericType)(o_11092_temp_num))))); /* line 878 "../prg/s7c.sd7" */ destr_27(tmp_1); } } /* line 880 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11088_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[2916] /* "par_" */); { /* line 881 "../prg/s7c.sd7" */ union { /* line 881 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 881 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 881 "../prg/s7c.sd7" */ } buffer_1; /* line 881 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11088_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), intStrToBuffer(o_11092_temp_num, &buffer_1.striBuf)); } /* line 882 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11088_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[2919] /* "_o_" */); /* line 883 "../prg/s7c.sd7" */ o_5072_create_name(o_11086_formal_param, &(((structType)(*o_11088_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/)); /* line 884 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11088_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 885 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11088_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2916] /* "par_" */); { /* line 886 "../prg/s7c.sd7" */ union { /* line 886 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 886 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 886 "../prg/s7c.sd7" */ } buffer_1; /* line 886 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11088_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(o_11092_temp_num, &buffer_1.striBuf)); } /* line 887 "../prg/s7c.sd7" */ { /* line 887 "../prg/s7c.sd7" */ striType *tmp_1; /* line 887 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11088_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 887 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 887 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '_'); /* line 887 "../prg/s7c.sd7" */ } else { /* line 887 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '_'; /* line 887 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 887 "../prg/s7c.sd7" */ } } /* line 888 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11088_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 889 "../prg/s7c.sd7" */ o_5072_create_name(o_11086_formal_param, &(((structType)(*o_11088_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 890 "../prg/s7c.sd7" */ { /* line 890 "../prg/s7c.sd7" */ striType *tmp_1; /* line 890 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11088_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 890 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 890 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 890 "../prg/s7c.sd7" */ } else { /* line 890 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 890 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 890 "../prg/s7c.sd7" */ } } /* line 891 "../prg/s7c.sd7" */ if (o_11029_isCopyParam(o_11086_formal_param)) { /* line 892 "../prg/s7c.sd7" */ o_5072_create_name(o_11086_formal_param, &(o_11090_param_name)); /* line 893 "../prg/s7c.sd7" */ o_4963_prepareAnyParamTemporarys(o_11087_actual_param, &(o_11091_actual_param_expr), o_11088_c_expr); /* line 894 "../prg/s7c.sd7" */ if (((((structType)(o_11091_actual_param_expr))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 895 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11088_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11091_actual_param_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { { /* line 897 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 897 "../prg/s7c.sd7" */ o_4878_process_create_declaration(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_11086_formal_param)), &tmp_1), &(o_4794_global_c_expr)); } { /* line 898 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 898 "../prg/s7c.sd7" */ o_4881_process_create_call(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_11086_formal_param)), &tmp_1), ((structType)(o_11091_actual_param_expr))->stru[5].value.striValue/*->o_4783_expr*/, &(((structType)(*o_11088_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } } { /* line 901 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 901 "../prg/s7c.sd7" */ o_4829_process_destr_declaration(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_11086_formal_param)), &tmp_1), &(o_4794_global_c_expr)); } { /* line 902 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 902 "../prg/s7c.sd7" */ striType tmp_2 = NULL; /* line 902 "../prg/s7c.sd7" */ o_4832_process_destr_call(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_11086_formal_param)), &tmp_1), (tmp_2=strConcat(&str[2894] /* "o_" */, o_11090_param_name)), &(((structType)(*o_11088_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/)); /* line 902 "../prg/s7c.sd7" */ strDestr(tmp_2); } } else { /* line 905 "../prg/s7c.sd7" */ o_11080_assign_inline_param(o_11086_formal_param, o_11087_actual_param, o_11088_c_expr); } /* line 907 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11088_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2920] /* ",\n" */); } } /* line 846 "../prg/s7c.sd7" */ strDestr(o_11090_param_name); /* line 846 "../prg/s7c.sd7" */ destr_164(o_11091_actual_param_expr); } /* line 1 "no_file" */ /* 5011 */ /* line 913 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11093_push_inline_func_params (const listType/*t_20_ref_list*/ *const o_11094_formal_params, const listType/*t_20_ref_list*/ *const o_11095_actual_params, structType/*t_164_expr_type*/ *const o_11096_c_expr) { /* line 917 "../prg/s7c.sd7" */ intType/*t_14_integer*/ o_11097_number=0; { /* line 919 "../prg/s7c.sd7" */ intType tmp_e_1=rflLng(*o_11094_formal_params); /* line 919 "../prg/s7c.sd7" */ for (o_11097_number=1L; o_11097_number<=tmp_e_1; (o_11097_number)++) { /* line 920 "../prg/s7c.sd7" */ o_11085_push_inline_func_param(rflIdx(*o_11094_formal_params, o_11097_number), rflIdx(*o_11095_actual_params, o_11097_number), o_11096_c_expr); } } } /* line 1 "no_file" */ /* 5012 */ /* line 925 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11098_pop_inline_func_param (const objRefType/*t_19_reference*/ o_11099_formal_param, striType/*t_15_string*/ *const o_11100_expr) { /* line 929 "../prg/s7c.sd7" */ intType/*t_86_category*/ o_11101_paramCategory=0; /* line 930 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11102_param_type=typ[0] /* void/t_1_void */; /* line 932 "../prg/s7c.sd7" */ o_11101_paramCategory=refCategory(o_11099_formal_param); /* line 933 "../prg/s7c.sd7" */ if ((o_11101_paramCategory) != (0L)) { /* line 934 "../prg/s7c.sd7" */ o_11102_param_type=refType(o_11099_formal_param); /* line 935 "../prg/s7c.sd7" */ if (typIsFunc(o_11102_param_type)) { /* line 936 "../prg/s7c.sd7" */ strAppend(&(*o_11100_expr), &str[2921] /* "/* pop proc param o_" */); /* line 937 "../prg/s7c.sd7" */ o_5077_create_name2(o_11099_formal_param, o_11100_expr); /* line 938 "../prg/s7c.sd7" */ strAppend(&(*o_11100_expr), &str[164] /* " *\/\n" */); /* line 939 "../prg/s7c.sd7" */ o_11078_pop_inline_param_value(o_11099_formal_param); } else { { /* line 941 "../prg/s7c.sd7" */ const_arrayType tmp_1; /* line 941 "../prg/s7c.sd7" */ if (((tmp_1=*o_10930/*[*/(&(o_10976_inline_param), &(o_11099_formal_param)),tmp_1->max_position - tmp_1->min_position + 1)) == (1L)) { /* line 942 "../prg/s7c.sd7" */ o_10947_excl(&(o_10976_inline_param), &(o_11099_formal_param)); } else { { /* line 944 "../prg/s7c.sd7" */ arrayType/*t_27_TEST_1*/ tmp_1 = (arrayType/*t_27_TEST_1*/)(NULL); /* line 944 "../prg/s7c.sd7" */ o_10950/*@:=*/(&(o_10976_inline_param), &(o_11099_formal_param), (tmp_1=(arrayType/*t_27_TEST_1*/)(arrTail(*o_10930/*[*/(&(o_10976_inline_param), &(o_11099_formal_param)), 2L)))); /* line 944 "../prg/s7c.sd7" */ destr_27(tmp_1); } } } } } } /* line 1 "no_file" */ /* 5013 */ /* line 951 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11103_pop_inline_func_params (const listType/*t_20_ref_list*/ *const o_11104_formal_params, striType/*t_15_string*/ *const o_11105_expr) { /* line 955 "../prg/s7c.sd7" */ intType/*t_14_integer*/ o_11106_number=0; { /* line 957 "../prg/s7c.sd7" */ intType tmp_e_1=rflLng(*o_11104_formal_params); /* line 957 "../prg/s7c.sd7" */ for (o_11106_number=1L; o_11106_number<=tmp_e_1; (o_11106_number)++) { /* line 958 "../prg/s7c.sd7" */ o_11098_pop_inline_func_param(rflIdx(*o_11104_formal_params, o_11106_number), o_11105_expr); } } } /* line 1 "no_file" */ /* 5014 */ /* line 963 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11107_process_inline_func (const objRefType/*t_19_reference*/ o_11108_function, const listType/*t_20_ref_list*/ *const o_11109_actual_params, structType/*t_164_expr_type*/ *const o_11110_c_expr) { /* line 967 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11111_function_type=typ[0] /* void/t_1_void */; /* line 968 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11112_result_type=typ[0] /* void/t_1_void */; /* line 969 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11113_formal_params=NULL; /* line 970 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11114_inline_body; /* line 971 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11115_inline_decls; /* line 972 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11116_result_object=NULL; /* line 970 "../prg/s7c.sd7" */ o_11114_inline_body=create_164(sct[381]); /* line 971 "../prg/s7c.sd7" */ o_11115_inline_decls=create_164(sct[382]); /* line 974 "../prg/s7c.sd7" */ o_11111_function_type=refType(o_11108_function); /* line 975 "../prg/s7c.sd7" */ o_11112_result_type=typResult(o_11111_function_type); /* line 976 "../prg/s7c.sd7" */ rflCpy(&(o_11113_formal_params), refParams(o_11108_function)); /* line 977 "../prg/s7c.sd7" */ ((structType)(o_11115_inline_decls))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(*o_11110_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 978 "../prg/s7c.sd7" */ o_11093_push_inline_func_params(&(o_11113_formal_params), o_11109_actual_params, &(o_11115_inline_decls)); /* line 979 "../prg/s7c.sd7" */ o_11070_process_local_var_declaration(o_11108_function, &(o_11115_inline_decls)); /* line 980 "../prg/s7c.sd7" */ o_11116_result_object=refResult(o_11108_function); /* line 981 "../prg/s7c.sd7" */ if ((o_11116_result_object) != (NULL)) { { /* line 982 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 982 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_11115_inline_decls))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_4743_type_name(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(refType(o_11116_result_object)), &tmp_2))); } /* line 983 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11115_inline_decls))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[2893] /* " o_" */); /* line 984 "../prg/s7c.sd7" */ o_5072_create_name(o_11116_result_object, &(((structType)(o_11115_inline_decls))->stru[3].value.striValue/*->o_4781_temp_decls*/)); /* line 985 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11115_inline_decls))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); } /* line 987 "../prg/s7c.sd7" */ ((structType)(*o_11110_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_11115_inline_decls))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 988 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), ((structType)(o_11115_inline_decls))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 989 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), ((structType)(o_11115_inline_decls))->stru[6].value.striValue/*->o_4784_temp_frees*/); /* line 990 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[7].value.striValue/*->o_4785_temp_to_null*/), ((structType)(o_11115_inline_decls))->stru[7].value.striValue/*->o_4785_temp_to_null*/); /* line 991 "../prg/s7c.sd7" */ o_4963_prepareAnyParamTemporarys(refBody(o_11108_function), &(o_11114_inline_body), o_11110_c_expr); /* line 992 "../prg/s7c.sd7" */ if (((((structType)(o_11114_inline_body))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 993 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2922] /* "\n/* " */); /* line 994 "../prg/s7c.sd7" */ if (typIsVarfunc(o_11111_function_type)) { /* line 995 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2923] /* "var" */); } /* line 997 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2924] /* "inline func o_" */); /* line 998 "../prg/s7c.sd7" */ o_5077_create_name2(o_11108_function, &(((structType)(*o_11110_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/)); /* line 999 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1981] /* " *\/ " */); /* line 1000 "../prg/s7c.sd7" */ if (typIsVarfunc(o_11111_function_type)) { /* line 1001 "../prg/s7c.sd7" */ { /* line 1001 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1001 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11110_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1001 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1001 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '*'); /* line 1001 "../prg/s7c.sd7" */ } else { /* line 1001 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '*'; /* line 1001 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1001 "../prg/s7c.sd7" */ } } } /* line 1003 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[205] /* "((" */); /* line 1004 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11110_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), o_4743_type_name(&(o_11112_result_type))); /* line 1005 "../prg/s7c.sd7" */ if (typIsVarfunc(o_11111_function_type)) { /* line 1006 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[306] /* " *" */); } /* line 1008 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2925] /* ")(\n" */); /* line 1009 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_11115_inline_decls))->stru[4].value.striValue/*->o_4782_temp_assigns*/); /* line 1010 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_11115_inline_decls))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1014 "../prg/s7c.sd7" */ if (typIsVarfunc(o_11111_function_type)) { /* line 1015 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[1503] /* "&(" */); /* line 1016 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_11114_inline_body))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1017 "../prg/s7c.sd7" */ { /* line 1017 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1017 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11110_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1017 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1017 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ')'); /* line 1017 "../prg/s7c.sd7" */ } else { /* line 1017 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1017 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1017 "../prg/s7c.sd7" */ } } } else { /* line 1019 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_11114_inline_body))->stru[13].value.striValue/*->o_4791_result_expr*/); } /* line 1021 "../prg/s7c.sd7" */ { /* line 1021 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1021 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11110_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1021 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1021 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '\n'); /* line 1021 "../prg/s7c.sd7" */ } else { /* line 1021 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 1021 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1021 "../prg/s7c.sd7" */ } } /* line 1022 "../prg/s7c.sd7" */ o_11103_pop_inline_func_params(&(o_11113_formal_params), &(((structType)(*o_11110_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/)); /* line 1023 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2926] /* ")) /* " */); /* line 1024 "../prg/s7c.sd7" */ if (typIsVarfunc(o_11111_function_type)) { /* line 1025 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2923] /* "var" */); } /* line 1027 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2924] /* "inline func o_" */); /* line 1028 "../prg/s7c.sd7" */ o_5077_create_name2(o_11108_function, &(((structType)(*o_11110_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/)); /* line 1029 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[164] /* " *\/\n" */); } else { /* line 1031 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2922] /* "\n/* " */); /* line 1032 "../prg/s7c.sd7" */ if (typIsVarfunc(o_11111_function_type)) { /* line 1033 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2923] /* "var" */); } /* line 1035 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2924] /* "inline func o_" */); /* line 1036 "../prg/s7c.sd7" */ o_5077_create_name2(o_11108_function, &(((structType)(*o_11110_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 1037 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1981] /* " *\/ " */); /* line 1038 "../prg/s7c.sd7" */ if (typIsVarfunc(o_11111_function_type)) { /* line 1039 "../prg/s7c.sd7" */ { /* line 1039 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1039 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11110_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1039 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1039 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '*'); /* line 1039 "../prg/s7c.sd7" */ } else { /* line 1039 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '*'; /* line 1039 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1039 "../prg/s7c.sd7" */ } } } /* line 1041 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[205] /* "((" */); /* line 1042 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11110_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(&(o_11112_result_type))); /* line 1043 "../prg/s7c.sd7" */ if (typIsVarfunc(o_11111_function_type)) { /* line 1044 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[306] /* " *" */); } /* line 1046 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2925] /* ")(\n" */); /* line 1047 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11115_inline_decls))->stru[4].value.striValue/*->o_4782_temp_assigns*/); /* line 1048 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11115_inline_decls))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1049 "../prg/s7c.sd7" */ if (typIsVarfunc(o_11111_function_type)) { /* line 1050 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1503] /* "&(" */); /* line 1051 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11114_inline_body))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1052 "../prg/s7c.sd7" */ { /* line 1052 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1052 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11110_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1052 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1052 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ')'); /* line 1052 "../prg/s7c.sd7" */ } else { /* line 1052 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1052 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1052 "../prg/s7c.sd7" */ } } } else { /* line 1054 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11114_inline_body))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 1056 "../prg/s7c.sd7" */ { /* line 1056 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1056 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11110_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1056 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1056 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '\n'); /* line 1056 "../prg/s7c.sd7" */ } else { /* line 1056 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 1056 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1056 "../prg/s7c.sd7" */ } } /* line 1057 "../prg/s7c.sd7" */ o_11103_pop_inline_func_params(&(o_11113_formal_params), &(((structType)(*o_11110_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 1058 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2926] /* ")) /* " */); /* line 1059 "../prg/s7c.sd7" */ if (typIsVarfunc(o_11111_function_type)) { /* line 1060 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2923] /* "var" */); } /* line 1062 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2924] /* "inline func o_" */); /* line 1063 "../prg/s7c.sd7" */ o_5077_create_name2(o_11108_function, &(((structType)(*o_11110_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 1064 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11110_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[164] /* " *\/\n" */); } /* line 963 "../prg/s7c.sd7" */ rflDestr(o_11113_formal_params); /* line 963 "../prg/s7c.sd7" */ destr_164(o_11114_inline_body); /* line 963 "../prg/s7c.sd7" */ destr_164(o_11115_inline_decls); } /* line 1 "no_file" */ /* 5015 */ /* line 1069 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11117_push_inline_proc_param (const objRefType/*t_19_reference*/ o_11118_formal_param, const objRefType/*t_19_reference*/ o_11119_actual_param, structType/*t_164_expr_type*/ *const o_11120_c_expr) { /* line 1073 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11121_param_type=typ[0] /* void/t_1_void */; /* line 1074 "../prg/s7c.sd7" */ striType/*t_15_string*/ o_11122_param_name; /* line 1075 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11123_actual_param_expr; /* line 1076 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11124_assign_decls; /* line 1074 "../prg/s7c.sd7" */ o_11122_param_name=strEmpty(); /* "" */ /* line 1075 "../prg/s7c.sd7" */ o_11123_actual_param_expr=create_164(sct[383]); /* line 1076 "../prg/s7c.sd7" */ o_11124_assign_decls=create_164(sct[384]); /* line 1078 "../prg/s7c.sd7" */ if ((refCategory(o_11118_formal_param)) != (0L)) { /* line 1079 "../prg/s7c.sd7" */ o_11121_param_type=refType(o_11118_formal_param); /* line 1080 "../prg/s7c.sd7" */ if (typIsFunc(o_11121_param_type)) { /* line 1081 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11120_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[2918] /* "/* push proc param o_" */); /* line 1082 "../prg/s7c.sd7" */ o_5077_create_name2(o_11118_formal_param, &(((structType)(*o_11120_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/)); /* line 1083 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11120_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[164] /* " *\/\n" */); /* line 1084 "../prg/s7c.sd7" */ o_11075_push_inline_param_value(o_11118_formal_param, o_11119_actual_param); } else /* line 1085 "../prg/s7c.sd7" */ if (o_11029_isCopyParam(o_11118_formal_param)) { /* line 1086 "../prg/s7c.sd7" */ o_5072_create_name(o_11118_formal_param, &(o_11122_param_name)); /* line 1087 "../prg/s7c.sd7" */ if ((!(refIsVar(o_11118_formal_param))) && /* line 1087 "../prg/s7c.sd7" */ (o_4769_useConstPrefix(&(o_11121_param_type)))) { /* line 1088 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11120_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[228] /* "const_" */); } /* line 1090 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11120_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_4743_type_name(&(o_11121_param_type))); /* line 1091 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11120_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[2893] /* " o_" */); /* line 1092 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11120_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_11122_param_name); /* line 1093 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11120_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 1094 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11120_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2894] /* "o_" */); /* line 1095 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11120_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), o_11122_param_name); /* line 1096 "../prg/s7c.sd7" */ { /* line 1096 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1096 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11120_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/); /* line 1096 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1096 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 1096 "../prg/s7c.sd7" */ } else { /* line 1096 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 1096 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1096 "../prg/s7c.sd7" */ } } /* line 1097 "../prg/s7c.sd7" */ o_4963_prepareAnyParamTemporarys(o_11119_actual_param, &(o_11123_actual_param_expr), o_11120_c_expr); /* line 1098 "../prg/s7c.sd7" */ if (((((structType)(o_11123_actual_param_expr))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 1099 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11120_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), ((structType)(o_11123_actual_param_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { { /* line 1101 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 1101 "../prg/s7c.sd7" */ o_4878_process_create_declaration(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_11118_formal_param)), &tmp_1), &(o_4794_global_c_expr)); } { /* line 1102 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 1102 "../prg/s7c.sd7" */ o_4881_process_create_call(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_11118_formal_param)), &tmp_1), ((structType)(o_11123_actual_param_expr))->stru[5].value.striValue/*->o_4783_expr*/, &(((structType)(*o_11120_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/)); } } /* line 1105 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11120_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[215] /* ";\n" */); { /* line 1106 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 1106 "../prg/s7c.sd7" */ o_4829_process_destr_declaration(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_11118_formal_param)), &tmp_1), &(o_4794_global_c_expr)); } { /* line 1107 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 1107 "../prg/s7c.sd7" */ striType tmp_2 = NULL; /* line 1107 "../prg/s7c.sd7" */ o_4832_process_destr_call(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_11118_formal_param)), &tmp_1), (tmp_2=strConcat(&str[2894] /* "o_" */, o_11122_param_name)), &(((structType)(*o_11120_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/)); /* line 1107 "../prg/s7c.sd7" */ strDestr(tmp_2); } } else { /* line 1110 "../prg/s7c.sd7" */ ((structType)(o_11124_assign_decls))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(*o_11120_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 1111 "../prg/s7c.sd7" */ o_11080_assign_inline_param(o_11118_formal_param, o_11119_actual_param, &(o_11124_assign_decls)); /* line 1112 "../prg/s7c.sd7" */ ((structType)(*o_11120_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_11124_assign_decls))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 1113 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11120_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), ((structType)(o_11124_assign_decls))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 1114 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11120_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), ((structType)(o_11124_assign_decls))->stru[4].value.striValue/*->o_4782_temp_assigns*/); /* line 1115 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11120_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), ((structType)(o_11124_assign_decls))->stru[6].value.striValue/*->o_4784_temp_frees*/); /* line 1116 "../prg/s7c.sd7" */ if (!(refIsVar(o_11118_formal_param))) { /* line 1117 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11120_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[1538] /* "const " */); /* line 1118 "../prg/s7c.sd7" */ if ((!(o_11027_isPointerParam(o_11118_formal_param))) && /* line 1118 "../prg/s7c.sd7" */ (o_4769_useConstPrefix(&(o_11121_param_type)))) { /* line 1119 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11120_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[228] /* "const_" */); } } /* line 1122 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11120_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_4743_type_name(&(o_11121_param_type))); /* line 1123 "../prg/s7c.sd7" */ { /* line 1123 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1123 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11120_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 1123 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1123 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ' '); /* line 1123 "../prg/s7c.sd7" */ } else { /* line 1123 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ' '; /* line 1123 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1123 "../prg/s7c.sd7" */ } } /* line 1124 "../prg/s7c.sd7" */ if (o_11027_isPointerParam(o_11118_formal_param)) { /* line 1125 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11120_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[2927] /* "*const " */); } /* line 1127 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11120_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[2894] /* "o_" */); /* line 1128 "../prg/s7c.sd7" */ o_5072_create_name(o_11118_formal_param, &(((structType)(*o_11120_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/)); /* line 1129 "../prg/s7c.sd7" */ if (((((structType)(o_11124_assign_decls))->stru[5].value.striValue/*->o_4783_expr*/)->size!=0 /* "" */)) { /* line 1130 "../prg/s7c.sd7" */ { /* line 1130 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1130 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11120_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 1130 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1130 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 1130 "../prg/s7c.sd7" */ } else { /* line 1130 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 1130 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1130 "../prg/s7c.sd7" */ } } /* line 1131 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11120_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), ((structType)(o_11124_assign_decls))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 1133 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11120_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); } } /* line 1069 "../prg/s7c.sd7" */ strDestr(o_11122_param_name); /* line 1069 "../prg/s7c.sd7" */ destr_164(o_11123_actual_param_expr); /* line 1069 "../prg/s7c.sd7" */ destr_164(o_11124_assign_decls); } /* line 1 "no_file" */ /* 5016 */ /* line 1139 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11125_push_inline_proc_params (const listType/*t_20_ref_list*/ *const o_11126_formal_params, const listType/*t_20_ref_list*/ *const o_11127_actual_params, structType/*t_164_expr_type*/ *const o_11128_c_expr) { /* line 1143 "../prg/s7c.sd7" */ intType/*t_14_integer*/ o_11129_number=0; { /* line 1145 "../prg/s7c.sd7" */ intType tmp_e_1=rflLng(*o_11126_formal_params); /* line 1145 "../prg/s7c.sd7" */ for (o_11129_number=1L; o_11129_number<=tmp_e_1; (o_11129_number)++) { /* line 1146 "../prg/s7c.sd7" */ o_11117_push_inline_proc_param(rflIdx(*o_11126_formal_params, o_11129_number), rflIdx(*o_11127_actual_params, o_11129_number), o_11128_c_expr); } } } /* line 1 "no_file" */ /* 5017 */ /* line 1151 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11130_pop_inline_proc_param (const objRefType/*t_19_reference*/ o_11131_formal_param, structType/*t_164_expr_type*/ *const o_11132_c_expr) { /* line 1155 "../prg/s7c.sd7" */ intType/*t_86_category*/ o_11133_paramCategory=0; /* line 1156 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11134_param_type=typ[0] /* void/t_1_void */; /* line 1158 "../prg/s7c.sd7" */ o_11133_paramCategory=refCategory(o_11131_formal_param); /* line 1159 "../prg/s7c.sd7" */ if ((o_11133_paramCategory) != (0L)) { /* line 1160 "../prg/s7c.sd7" */ o_11134_param_type=refType(o_11131_formal_param); /* line 1161 "../prg/s7c.sd7" */ if (typIsFunc(o_11134_param_type)) { /* line 1162 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2921] /* "/* pop proc param o_" */); /* line 1163 "../prg/s7c.sd7" */ o_5077_create_name2(o_11131_formal_param, &(((structType)(*o_11132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 1164 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11132_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[164] /* " *\/\n" */); /* line 1165 "../prg/s7c.sd7" */ o_11078_pop_inline_param_value(o_11131_formal_param); } } } /* line 1 "no_file" */ /* 5018 */ /* line 1171 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11135_pop_inline_proc_params (const listType/*t_20_ref_list*/ *const o_11136_formal_params, structType/*t_164_expr_type*/ *const o_11137_c_expr) { /* line 1175 "../prg/s7c.sd7" */ intType/*t_14_integer*/ o_11138_number=0; { /* line 1177 "../prg/s7c.sd7" */ intType tmp_e_1=rflLng(*o_11136_formal_params); /* line 1177 "../prg/s7c.sd7" */ for (o_11138_number=1L; o_11138_number<=tmp_e_1; (o_11138_number)++) { /* line 1178 "../prg/s7c.sd7" */ o_11130_pop_inline_proc_param(rflIdx(*o_11136_formal_params, o_11138_number), o_11137_c_expr); } } } /* line 1 "no_file" */ /* 5019 */ /* line 1183 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11139_process_inline_proc (const objRefType/*t_19_reference*/ o_11140_function, const listType/*t_20_ref_list*/ *const o_11141_actual_params, structType/*t_164_expr_type*/ *const o_11142_c_expr) { /* line 1187 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11143_formal_params=NULL; /* line 1188 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11144_inline_decls; /* line 1188 "../prg/s7c.sd7" */ o_11144_inline_decls=create_164(sct[385]); /* line 1190 "../prg/s7c.sd7" */ rflCpy(&(o_11143_formal_params), refParams(o_11140_function)); /* line 1191 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11142_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2928] /* "/* inline proc o_" */); /* line 1192 "../prg/s7c.sd7" */ o_5077_create_name2(o_11140_function, &(((structType)(*o_11142_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 1193 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11142_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1401] /* " *\/ {\n" */); /* line 1194 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11142_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2929] /* "/* inline params *\/\n" */); /* line 1195 "../prg/s7c.sd7" */ ((structType)(o_11144_inline_decls))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(*o_11142_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 1196 "../prg/s7c.sd7" */ o_11125_push_inline_proc_params(&(o_11143_formal_params), o_11141_actual_params, &(o_11144_inline_decls)); /* line 1197 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11144_inline_decls))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[2930] /* "/* inline local_vars *\/\n" */); /* line 1198 "../prg/s7c.sd7" */ o_11070_process_local_var_declaration(o_11140_function, &(o_11144_inline_decls)); /* line 1199 "../prg/s7c.sd7" */ ((structType)(*o_11142_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_11144_inline_decls))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 1200 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11144_inline_decls))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_11142_c_expr); /* line 1201 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11144_inline_decls))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_11142_c_expr); /* line 1202 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11142_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2931] /* "/* inline body *\/\n" */); /* line 1203 "../prg/s7c.sd7" */ o_4941_process_expr(refBody(o_11140_function), o_11142_c_expr); /* line 1204 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11144_inline_decls))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_11142_c_expr); /* line 1205 "../prg/s7c.sd7" */ o_11135_pop_inline_proc_params(&(o_11143_formal_params), o_11142_c_expr); /* line 1206 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11142_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2932] /* "\n} /* inline proc o_" */); /* line 1207 "../prg/s7c.sd7" */ o_5077_create_name2(o_11140_function, &(((structType)(*o_11142_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 1208 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11142_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[164] /* " *\/\n" */); /* line 1183 "../prg/s7c.sd7" */ rflDestr(o_11143_formal_params); /* line 1183 "../prg/s7c.sd7" */ destr_164(o_11144_inline_decls); } /* line 1 "no_file" */ /* 5020 */ /* line 1212 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11145_process_inline (const objRefType/*t_19_reference*/ o_11146_function, const listType/*t_20_ref_list*/ *const o_11147_actual_params, structType/*t_164_expr_type*/ *const o_11148_c_expr) { /* line 1216 "../prg/s7c.sd7" */ if ((typResult(refType(o_11146_function))) != (o_4737_voidtype)) { /* line 1217 "../prg/s7c.sd7" */ o_11107_process_inline_func(o_11146_function, o_11147_actual_params, o_11148_c_expr); } else { /* line 1219 "../prg/s7c.sd7" */ o_11139_process_inline_proc(o_11146_function, o_11147_actual_params, o_11148_c_expr); } } /* line 1 "no_file" */ /* 5021 */ static void/*t_1_void*/ o_11149_determineDataForActualFuncParam (const objRefType/*t_19_reference*/ o_11150_current_expression, listType/*t_20_ref_list*/ *const o_11151_data_list); /* line 1224 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11149_determineDataForActualFuncParam (const objRefType/*t_19_reference*/ o_11150_current_expression, listType/*t_20_ref_list*/ *const o_11151_data_list) { /* line 1228 "../prg/s7c.sd7" */ intType/*t_86_category*/ o_11152_paramCategory=0; /* line 1229 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11153_params=NULL; /* line 1230 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11154_aParam=NULL; /* line 1232 "../prg/s7c.sd7" */ o_11152_paramCategory=refCategory(o_11150_current_expression); /* line 1233 "../prg/s7c.sd7" */ if (((o_11152_paramCategory) == (6L)) || /* line 1233 "../prg/s7c.sd7" */ ((o_11152_paramCategory) == (5L))) { { /* line 1234 "../prg/s7c.sd7" */ listType old_rfl=o_11153_params; /* line 1234 "../prg/s7c.sd7" */ o_11153_params=rflValue(o_11150_current_expression); /* line 1234 "../prg/s7c.sd7" */ rflDestr(old_rfl); } { /* line 1235 "../prg/s7c.sd7" */ listType tmp_elem_1; /* line 1235 "../prg/s7c.sd7" */ for (tmp_elem_1 = o_11153_params; tmp_elem_1 != NULL; tmp_elem_1 = tmp_elem_1->next) { /* line 1235 "../prg/s7c.sd7" */ o_11154_aParam = tmp_elem_1->obj; /* line 1236 "../prg/s7c.sd7" */ o_11149_determineDataForActualFuncParam(o_11154_aParam, o_11151_data_list); } } } else /* line 1238 "../prg/s7c.sd7" */ if (((o_11152_paramCategory) == (37L)) || /* line 1238 "../prg/s7c.sd7" */ ((o_11152_paramCategory) == (34L)) || /* line 1239 "../prg/s7c.sd7" */ ((o_11152_paramCategory) == (35L)) || /* line 1239 "../prg/s7c.sd7" */ ((o_11152_paramCategory) == (36L))) { /* line 1240 "../prg/s7c.sd7" */ if (!rflElem(o_11150_current_expression, *o_11151_data_list)) { { /* line 1241 "../prg/s7c.sd7" */ rflAppend(&(*o_11151_data_list), rflMklist(o_11150_current_expression)); } } } /* line 1224 "../prg/s7c.sd7" */ rflDestr(o_11153_params); } /* line 1 "no_file" */ /* 5022 */ /* line 1247 "../prg/s7c.sd7" */ static listType/*t_20_ref_list*/ o_11155_determineDataForActualFuncParam (const objRefType/*t_19_reference*/ o_11156_current_expression) { /* line 1250 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11157_data_list=NULL; /* line 1252 "../prg/s7c.sd7" */ o_11149_determineDataForActualFuncParam(o_11156_current_expression, &(o_11157_data_list)); return o_11157_data_list; } /* line 1 "no_file" */ /* 5023 */ /* line 61 "../lib/hash.s7i" */ static void destr_206 (const_hashType/*t_206_globalInitHash*/ b) /* line 61 "../lib/hash.s7i" */ { /* line 61 "../lib/hash.s7i" */ hshDestr(b, (destrFuncType)(o_10510/*.*/), (destrFuncType)(o_10514/*.*/)); /* line 61 "../lib/hash.s7i" */ } /* line 1 "no_file" */ /* line 1256 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11158_defineActualFuncParam (const const_striType/*t_15_string*/ o_11159_valueName, const objRefType/*t_19_reference*/ o_11160_actual_param, const listType/*t_20_ref_list*/ *const o_11161_data_list, structType/*t_164_expr_type*/ *const o_11162_c_expr) { /* line 1260 "../prg/s7c.sd7" */ hashType/*t_206_globalInitHash*/ o_11163_funcparam_data_backup; /* line 1261 "../prg/s7c.sd7" */ hashType/*t_206_globalInitHash*/ o_11164_funcparam_reference_backup; /* line 1262 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11165_dataItem=NULL; /* line 1263 "../prg/s7c.sd7" */ striType/*t_15_string*/ o_11166_data_value; /* line 1264 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11167_c_func_body; /* line 1260 "../prg/s7c.sd7" */ o_11163_funcparam_data_backup=hshEmpty(); /* line 1261 "../prg/s7c.sd7" */ o_11164_funcparam_reference_backup=hshEmpty(); /* line 1263 "../prg/s7c.sd7" */ o_11166_data_value=strEmpty(); /* "" */ /* line 1264 "../prg/s7c.sd7" */ o_11167_c_func_body=create_164(sct[386]); /* line 1266 "../prg/s7c.sd7" */ o_10521/*:=*/(&(o_11163_funcparam_data_backup), o_10977_funcparam_data); /* line 1267 "../prg/s7c.sd7" */ o_10521/*:=*/(&(o_11164_funcparam_reference_backup), o_10978_funcparam_reference); /* line 1268 "../prg/s7c.sd7" */ if (!rflEq(*o_11161_data_list, o_125/*.*/)) { /* line 1269 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[151] /* "typedef struct {\n" */); { /* line 1270 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 1270 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(typResult(refType(o_11160_actual_param))), &tmp_2))); } /* line 1271 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2933] /* " (*func) (void *data_" */); /* line 1272 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_11159_valueName); /* line 1273 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 1274 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[153] /* "struct {\n" */); { /* line 1275 "../prg/s7c.sd7" */ listType tmp_elem_1; /* line 1275 "../prg/s7c.sd7" */ for (tmp_elem_1 = *o_11161_data_list; tmp_elem_1 != NULL; tmp_elem_1 = tmp_elem_1->next) { /* line 1275 "../prg/s7c.sd7" */ o_11165_dataItem = tmp_elem_1->obj; { /* line 1276 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 1276 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(refType(o_11165_dataItem)), &tmp_2))); } /* line 1277 "../prg/s7c.sd7" */ if (typIsFunc(refType(o_11165_dataItem))) { /* line 1278 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2934] /* " data_" */); } else { /* line 1280 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2935] /* " *data_" */); } /* line 1282 "../prg/s7c.sd7" */ o_5072_create_name(o_11165_dataItem, &(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 1283 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 1284 "../prg/s7c.sd7" */ if (typIsFunc(refType(o_11165_dataItem))) { /* line 1285 "../prg/s7c.sd7" */ strCopy(&(o_11166_data_value), &str[2936] /* "((functype_" */); /* line 1286 "../prg/s7c.sd7" */ strAppend(&(o_11166_data_value), o_11159_valueName); /* line 1287 "../prg/s7c.sd7" */ strAppend(&(o_11166_data_value), &str[2937] /* " *) data_" */); /* line 1288 "../prg/s7c.sd7" */ strAppend(&(o_11166_data_value), o_11159_valueName); /* line 1289 "../prg/s7c.sd7" */ strAppend(&(o_11166_data_value), &str[2938] /* ")->data.data_" */); /* line 1290 "../prg/s7c.sd7" */ o_5072_create_name(o_11165_dataItem, &(o_11166_data_value)); /* line 1291 "../prg/s7c.sd7" */ strAppend(&(o_11166_data_value), &str[2939] /* "->func(((functype_" */); /* line 1292 "../prg/s7c.sd7" */ strAppend(&(o_11166_data_value), o_11159_valueName); /* line 1293 "../prg/s7c.sd7" */ strAppend(&(o_11166_data_value), &str[2937] /* " *) data_" */); /* line 1294 "../prg/s7c.sd7" */ strAppend(&(o_11166_data_value), o_11159_valueName); /* line 1295 "../prg/s7c.sd7" */ strAppend(&(o_11166_data_value), &str[2938] /* ")->data.data_" */); /* line 1296 "../prg/s7c.sd7" */ o_5072_create_name(o_11165_dataItem, &(o_11166_data_value)); /* line 1297 "../prg/s7c.sd7" */ /* line 1297 "../prg/s7c.sd7" */ if (((o_11166_data_value))->size == ((o_11166_data_value))->capacity) { /* line 1297 "../prg/s7c.sd7" */ strPush(&((o_11166_data_value)), (charType) ')'); /* line 1297 "../prg/s7c.sd7" */ } else { /* line 1297 "../prg/s7c.sd7" */ ((o_11166_data_value))->mem[((o_11166_data_value))->size]=(charType) ')'; /* line 1297 "../prg/s7c.sd7" */ ((o_11166_data_value))->size++; /* line 1297 "../prg/s7c.sd7" */ } /* line 1298 "../prg/s7c.sd7" */ if ((refType(o_11165_dataItem)) == (o_4736_proctype)) { /* line 1299 "../prg/s7c.sd7" */ strAppend(&(o_11166_data_value), &str[215] /* ";\n" */); } } else { /* line 1302 "../prg/s7c.sd7" */ strCopy(&(o_11166_data_value), &str[2940] /* "*((functype_" */); /* line 1303 "../prg/s7c.sd7" */ strAppend(&(o_11166_data_value), o_11159_valueName); /* line 1304 "../prg/s7c.sd7" */ strAppend(&(o_11166_data_value), &str[2937] /* " *) data_" */); /* line 1305 "../prg/s7c.sd7" */ strAppend(&(o_11166_data_value), o_11159_valueName); /* line 1306 "../prg/s7c.sd7" */ strAppend(&(o_11166_data_value), &str[2938] /* ")->data.data_" */); /* line 1307 "../prg/s7c.sd7" */ o_5072_create_name(o_11165_dataItem, &(o_11166_data_value)); } /* line 1309 "../prg/s7c.sd7" */ o_10549/*@:=*/(&(o_10977_funcparam_data), &(o_11165_dataItem), o_11166_data_value); /* line 1310 "../prg/s7c.sd7" */ strCopy(&(o_11166_data_value), &str[2936] /* "((functype_" */); /* line 1311 "../prg/s7c.sd7" */ strAppend(&(o_11166_data_value), o_11159_valueName); /* line 1312 "../prg/s7c.sd7" */ strAppend(&(o_11166_data_value), &str[2937] /* " *) data_" */); /* line 1313 "../prg/s7c.sd7" */ strAppend(&(o_11166_data_value), o_11159_valueName); /* line 1314 "../prg/s7c.sd7" */ strAppend(&(o_11166_data_value), &str[2938] /* ")->data.data_" */); /* line 1315 "../prg/s7c.sd7" */ o_5072_create_name(o_11165_dataItem, &(o_11166_data_value)); /* line 1316 "../prg/s7c.sd7" */ o_10549/*@:=*/(&(o_10978_funcparam_reference), &(o_11165_dataItem), o_11166_data_value); } } /* line 1318 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[155] /* "} data;\n" */); /* line 1319 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2941] /* "} functype_" */); /* line 1320 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_11159_valueName); /* line 1321 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[158] /* ";\n\n" */); } /* line 1323 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[208] /* "static " */); { /* line 1324 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 1324 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(typResult(refType(o_11160_actual_param))), &tmp_2))); } /* line 1325 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2942] /* " func_" */); /* line 1326 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_11159_valueName); /* line 1327 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2943] /* " (void *data_" */); /* line 1328 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_11159_valueName); /* line 1329 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2944] /* ")\n" */); /* line 1330 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 1331 "../prg/s7c.sd7" */ if ((refCategory(o_11160_actual_param)) == (4L)) { /* line 1332 "../prg/s7c.sd7" */ o_4941_process_expr(refBody(o_11160_actual_param), &(o_11167_c_func_body)); } else { /* line 1334 "../prg/s7c.sd7" */ o_4941_process_expr(o_11160_actual_param, &(o_11167_c_func_body)); } /* line 1336 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11167_c_func_body))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_11162_c_expr); /* line 1337 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11167_c_func_body))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_11162_c_expr); /* line 1338 "../prg/s7c.sd7" */ if ((refType(o_11160_actual_param)) == (o_4736_proctype)) { /* line 1339 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11167_c_func_body))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1340 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11167_c_func_body))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_11162_c_expr); } else { /* line 1342 "../prg/s7c.sd7" */ if (((((structType)(o_11167_c_func_body))->stru[6].value.striValue/*->o_4784_temp_frees*/)->size!=0 /* "" */)) { { /* line 1343 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 1343 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(typResult(refType(o_11160_actual_param))), &tmp_2))); } /* line 1344 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2945] /* " result=" */); } else { /* line 1346 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_11160_actual_param)); /* line 1347 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2946] /* "return " */); } /* line 1349 "../prg/s7c.sd7" */ if (((((structType)(o_11167_c_func_body))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 1350 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11167_c_func_body))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 1352 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11167_c_func_body))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 1354 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 1355 "../prg/s7c.sd7" */ if (((((structType)(o_11167_c_func_body))->stru[6].value.striValue/*->o_4784_temp_frees*/)->size!=0 /* "" */)) { /* line 1356 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11167_c_func_body))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_11162_c_expr); /* line 1357 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2947] /* "return result;\n" */); } } /* line 1360 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11162_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2875] /* "}\n\n" */); /* line 1361 "../prg/s7c.sd7" */ o_10521/*:=*/(&(o_10977_funcparam_data), o_11163_funcparam_data_backup); /* line 1362 "../prg/s7c.sd7" */ o_10521/*:=*/(&(o_10978_funcparam_reference), o_11164_funcparam_reference_backup); /* line 1256 "../prg/s7c.sd7" */ destr_206(o_11163_funcparam_data_backup); /* line 1256 "../prg/s7c.sd7" */ destr_206(o_11164_funcparam_reference_backup); /* line 1256 "../prg/s7c.sd7" */ strDestr(o_11166_data_value); /* line 1256 "../prg/s7c.sd7" */ destr_164(o_11167_c_func_body); } /* line 1 "no_file" */ /* 5024 */ /* line 1366 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11168_defineFuncValue (const const_striType/*t_15_string*/ o_11169_valueName, const typeType/*t_7_type*/ *const o_11170_genericFuncType, const listType/*t_20_ref_list*/ *const o_11171_data_list, structType/*t_164_expr_type*/ *const o_11172_c_expr) { /* line 1370 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11173_dataItem=NULL; /* line 1372 "../prg/s7c.sd7" */ ++(((structType)(*o_11172_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); /* line 1373 "../prg/s7c.sd7" */ if (!rflEq(*o_11171_data_list, o_125/*.*/)) { /* line 1374 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11172_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[2948] /* "functype_" */); /* line 1375 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11172_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_11169_valueName); } else { /* line 1377 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11172_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[2949] /* "struct_" */); /* line 1378 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11172_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_4743_type_name(o_11170_genericFuncType)); } /* line 1380 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11172_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[2950] /* " funcvalue_" */); /* line 1381 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11172_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_11169_valueName); /* line 1382 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11172_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[158] /* ";\n\n" */); /* line 1383 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11172_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2951] /* "funcvalue_" */); /* line 1384 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11172_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), o_11169_valueName); /* line 1385 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11172_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2952] /* ".func = func_" */); /* line 1386 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11172_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), o_11169_valueName); /* line 1387 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11172_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[215] /* ";\n" */); { /* line 1388 "../prg/s7c.sd7" */ listType tmp_elem_1; /* line 1388 "../prg/s7c.sd7" */ for (tmp_elem_1 = *o_11171_data_list; tmp_elem_1 != NULL; tmp_elem_1 = tmp_elem_1->next) { /* line 1388 "../prg/s7c.sd7" */ o_11173_dataItem = tmp_elem_1->obj; /* line 1389 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11172_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2951] /* "funcvalue_" */); /* line 1390 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11172_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), o_11169_valueName); /* line 1391 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11172_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2953] /* ".data.data_" */); /* line 1392 "../prg/s7c.sd7" */ o_5072_create_name(o_11173_dataItem, &(((structType)(*o_11172_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/)); /* line 1393 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11172_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[1437] /* " = " */); /* line 1394 "../prg/s7c.sd7" */ if (typIsFunc(refType(o_11173_dataItem))) { /* line 1395 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11172_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2894] /* "o_" */); /* line 1396 "../prg/s7c.sd7" */ o_5072_create_name(o_11173_dataItem, &(((structType)(*o_11172_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/)); } else { /* line 1398 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11172_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[1503] /* "&(" */); /* line 1399 "../prg/s7c.sd7" */ o_11006_getAnyParamToTempAssigns(o_11173_dataItem, o_11172_c_expr); /* line 1400 "../prg/s7c.sd7" */ { /* line 1400 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1400 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11172_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/); /* line 1400 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1400 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ')'); /* line 1400 "../prg/s7c.sd7" */ } else { /* line 1400 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1400 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1400 "../prg/s7c.sd7" */ } } } /* line 1402 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11172_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[215] /* ";\n" */); } } } /* line 1 "no_file" */ /* 5025 */ /* line 1407 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11174_callActualFuncParam (const const_striType/*t_15_string*/ o_11175_valueName, const typeType/*t_7_type*/ *const o_11176_genericFuncType, const listType/*t_20_ref_list*/ *const o_11177_data_list, structType/*t_164_expr_type*/ *const o_11178_c_expr) { /* line 1411 "../prg/s7c.sd7" */ if (!rflEq(*o_11177_data_list, o_125/*.*/)) { /* line 1412 "../prg/s7c.sd7" */ { /* line 1412 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1412 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11178_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1412 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1412 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '('); /* line 1412 "../prg/s7c.sd7" */ } else { /* line 1412 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1412 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1412 "../prg/s7c.sd7" */ } } /* line 1413 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11178_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_11176_genericFuncType)); /* line 1414 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11178_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1513] /* " *)(" */); } /* line 1416 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11178_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2954] /* "&funcvalue_" */); /* line 1417 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11178_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_11175_valueName); /* line 1418 "../prg/s7c.sd7" */ if (!rflEq(*o_11177_data_list, o_125/*.*/)) { /* line 1419 "../prg/s7c.sd7" */ { /* line 1419 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1419 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11178_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1419 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1419 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ')'); /* line 1419 "../prg/s7c.sd7" */ } else { /* line 1419 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1419 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1419 "../prg/s7c.sd7" */ } } } } /* line 1 "no_file" */ /* 5026 */ /* line 1424 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_9142_processFuncValue (const const_striType/*t_15_string*/ o_9143_valueName, const typeType/*t_7_type*/ *const o_9144_genericFuncType, const objRefType/*t_19_reference*/ o_9145_closure, structType/*t_164_expr_type*/ *const o_9146_c_expr) { /* line 1428 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11179_data_list=NULL; /* line 1429 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11180_function_c_expr; /* line 1429 "../prg/s7c.sd7" */ o_11180_function_c_expr=create_164(sct[387]); /* line 1431 "../prg/s7c.sd7" */ o_4801_declare_type_if_necessary(o_9144_genericFuncType, &(o_4794_global_c_expr)); /* line 1432 "../prg/s7c.sd7" */ rflCpy(&(o_11179_data_list), o_11155_determineDataForActualFuncParam(o_9145_closure)); /* line 1433 "../prg/s7c.sd7" */ o_11158_defineActualFuncParam(o_9143_valueName, o_9145_closure, &(o_11179_data_list), &(o_11180_function_c_expr)); /* line 1434 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_4794_global_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11180_function_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 1435 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11180_function_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/); /* line 1436 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_4794_global_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11180_function_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1437 "../prg/s7c.sd7" */ o_11168_defineFuncValue(o_9143_valueName, o_9144_genericFuncType, &(o_11179_data_list), o_9146_c_expr); /* line 1438 "../prg/s7c.sd7" */ if (!rflEq(o_11179_data_list, o_125/*.*/)) { /* line 1439 "../prg/s7c.sd7" */ { /* line 1439 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1439 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_9146_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1439 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1439 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '('); /* line 1439 "../prg/s7c.sd7" */ } else { /* line 1439 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1439 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1439 "../prg/s7c.sd7" */ } } /* line 1440 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_9146_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(o_9144_genericFuncType)); /* line 1441 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_9146_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[206] /* ")(" */); } /* line 1443 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_9146_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2954] /* "&funcvalue_" */); /* line 1444 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_9146_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_9143_valueName); /* line 1445 "../prg/s7c.sd7" */ if (!rflEq(o_11179_data_list, o_125/*.*/)) { /* line 1446 "../prg/s7c.sd7" */ { /* line 1446 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1446 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_9146_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1446 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1446 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ')'); /* line 1446 "../prg/s7c.sd7" */ } else { /* line 1446 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1446 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1446 "../prg/s7c.sd7" */ } } } /* line 1424 "../prg/s7c.sd7" */ rflDestr(o_11179_data_list); /* line 1424 "../prg/s7c.sd7" */ destr_164(o_11180_function_c_expr); } /* line 1 "no_file" */ /* 5027 */ /* line 1451 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11181_processFuncParam (const objRefType/*t_19_reference*/ o_11182_formal_param, const objRefType/*t_19_reference*/ o_11183_actual_param, structType/*t_164_expr_type*/ *const o_11184_c_expr) { /* line 1455 "../prg/s7c.sd7" */ striType/*t_15_string*/ o_11185_valueName; /* line 1455 "../prg/s7c.sd7" */ o_11185_valueName=strEmpty(); /* "" */ /* line 1457 "../prg/s7c.sd7" */ o_5082_create_name(o_11182_formal_param, refNum(o_11183_actual_param), &(o_11185_valueName)); { /* line 1458 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 1458 "../prg/s7c.sd7" */ o_9142_processFuncValue(o_11185_valueName, /* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_11182_formal_param)), &tmp_1), o_11183_actual_param, o_11184_c_expr); } /* line 1451 "../prg/s7c.sd7" */ strDestr(o_11185_valueName); } /* line 1 "no_file" */ /* 5028 */ /* line 1462 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11186_call_params (const listType/*t_20_ref_list*/ *const o_11187_formal_params, const listType/*t_20_ref_list*/ *const o_11188_actual_params, structType/*t_164_expr_type*/ *const o_11189_c_expr) { /* line 1466 "../prg/s7c.sd7" */ intType/*t_14_integer*/ o_11190_number=0; /* line 1467 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11191_formal_param=NULL; /* line 1468 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11192_actual_param=NULL; /* line 1469 "../prg/s7c.sd7" */ intType/*t_86_category*/ o_11193_paramCategory=0; /* line 1470 "../prg/s7c.sd7" */ boolType/*t_13_boolean*/ o_11194_first_element=1/*TRUE*/; /* line 1471 "../prg/s7c.sd7" */ intType/*t_14_integer*/ o_11195_temp_num=0; { /* line 1474 "../prg/s7c.sd7" */ intType tmp_e_1=rflLng(*o_11188_actual_params); /* line 1474 "../prg/s7c.sd7" */ for (o_11190_number=1L; o_11190_number<=tmp_e_1; (o_11190_number)++) { /* line 1475 "../prg/s7c.sd7" */ o_11191_formal_param=rflIdx(*o_11187_formal_params, o_11190_number); /* line 1476 "../prg/s7c.sd7" */ o_11192_actual_param=rflIdx(*o_11188_actual_params, o_11190_number); /* line 1477 "../prg/s7c.sd7" */ o_11193_paramCategory=refCategory(o_11191_formal_param); /* line 1478 "../prg/s7c.sd7" */ if ((o_11193_paramCategory) != (0L)) { /* line 1479 "../prg/s7c.sd7" */ if ((o_11193_paramCategory) == (7L)) { /* line 1480 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2955] /* "/* attr t_" */); { /* line 1481 "../prg/s7c.sd7" */ union { /* line 1481 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 1481 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1481 "../prg/s7c.sd7" */ } buffer_1; /* line 1481 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(typValue(o_11191_formal_param)), &buffer_1.striBuf)); } /* line 1482 "../prg/s7c.sd7" */ { /* line 1482 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1482 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1482 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1482 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ' '); /* line 1482 "../prg/s7c.sd7" */ } else { /* line 1482 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ' '; /* line 1482 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1482 "../prg/s7c.sd7" */ } } /* line 1483 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), typStr(typValue(o_11191_formal_param))); /* line 1484 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2956] /* "*\/ " */); } else { /* line 1486 "../prg/s7c.sd7" */ if (o_11194_first_element) { /* line 1487 "../prg/s7c.sd7" */ o_11194_first_element=o_25_FALSE; } else { /* line 1489 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); } /* line 1491 "../prg/s7c.sd7" */ if (o_11027_isPointerParam(o_11191_formal_param)) { /* line 1492 "../prg/s7c.sd7" */ if ((refCategory(o_11192_actual_param)) == (35L)) { /* line 1493 "../prg/s7c.sd7" */ if (o_10937_in(&(o_11192_actual_param), o_10976_inline_param)) { /* line 1494 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2916] /* "par_" */); { /* line 1495 "../prg/s7c.sd7" */ union { /* line 1495 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 1495 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1495 "../prg/s7c.sd7" */ } buffer_1; /* line 1495 "../prg/s7c.sd7" */ arrayType tmp_2; /* line 1495 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((*(tmp_2=*o_10930/*[*/(&(o_10976_inline_param), &(o_11192_actual_param)), &tmp_2->arr[(idxChk(1min_position || 1>tmp_2->max_position) ? intRaiseError(RANGE_ERROR) : 0, 1-tmp_2->min_position)].value.intValue)), &buffer_1.striBuf)); } /* line 1496 "../prg/s7c.sd7" */ { /* line 1496 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1496 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1496 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1496 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '_'); /* line 1496 "../prg/s7c.sd7" */ } else { /* line 1496 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '_'; /* line 1496 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1496 "../prg/s7c.sd7" */ } } } /* line 1498 "../prg/s7c.sd7" */ if (o_10536_in(&(o_11192_actual_param), o_10978_funcparam_reference)) { /* line 1499 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), *o_10529/*[*/(&(o_10978_funcparam_reference), &(o_11192_actual_param))); } else { /* line 1501 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1502 "../prg/s7c.sd7" */ o_5072_create_name(o_11192_actual_param, &(((structType)(*o_11189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } } else /* line 1504 "../prg/s7c.sd7" */ if (o_11033_canTakeAddress(o_11192_actual_param)) { /* line 1505 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1503] /* "&(" */); /* line 1506 "../prg/s7c.sd7" */ o_4941_process_expr(o_11192_actual_param, o_11189_c_expr); /* line 1507 "../prg/s7c.sd7" */ { /* line 1507 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1507 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1507 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1507 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ')'); /* line 1507 "../prg/s7c.sd7" */ } else { /* line 1507 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1507 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1507 "../prg/s7c.sd7" */ } } } else /* line 1508 "../prg/s7c.sd7" */ if (((refCategory(o_11192_actual_param)) == (6L)) || /* line 1509 "../prg/s7c.sd7" */ ((refCategory(o_11192_actual_param)) == (4L))) { /* line 1510 "../prg/s7c.sd7" */ o_11181_processFuncParam(o_11191_formal_param, o_11192_actual_param, o_11189_c_expr); } else { /* line 1512 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1431] /* "/* " */); /* line 1513 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), refCatStr(refCategory(o_11192_actual_param))); /* line 1514 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[281] /* " *\/" */); /* line 1515 "../prg/s7c.sd7" */ ++(((structType)(*o_11189_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/); /* line 1516 "../prg/s7c.sd7" */ o_11195_temp_num=((structType)(*o_11189_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/; { /* line 1517 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 1517 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11189_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_4743_type_name(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(o_4754_getExprResultType(o_11192_actual_param)), &tmp_2))); } /* line 1518 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11189_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[283] /* " tmp_" */); { /* line 1519 "../prg/s7c.sd7" */ union { /* line 1519 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 1519 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1519 "../prg/s7c.sd7" */ } buffer_1; /* line 1519 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11189_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), intStrToBuffer(o_11195_temp_num, &buffer_1.striBuf)); } /* line 1520 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11189_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 1521 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[286] /* "(tmp_" */); { /* line 1522 "../prg/s7c.sd7" */ union { /* line 1522 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 1522 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1522 "../prg/s7c.sd7" */ } buffer_1; /* line 1522 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(o_11195_temp_num, &buffer_1.striBuf)); } /* line 1523 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[287] /* "=(" */); { /* line 1524 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 1524 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(o_4754_getExprResultType(o_11192_actual_param)), &tmp_2))); } /* line 1525 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[206] /* ")(" */); /* line 1526 "../prg/s7c.sd7" */ o_4970_getAnyParamToExpr(o_11192_actual_param, o_11189_c_expr); /* line 1527 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2917] /* "), &tmp_" */); { /* line 1528 "../prg/s7c.sd7" */ union { /* line 1528 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 1528 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1528 "../prg/s7c.sd7" */ } buffer_1; /* line 1528 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(o_11195_temp_num, &buffer_1.striBuf)); } /* line 1529 "../prg/s7c.sd7" */ { /* line 1529 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1529 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11189_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1529 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1529 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ')'); /* line 1529 "../prg/s7c.sd7" */ } else { /* line 1529 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1529 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1529 "../prg/s7c.sd7" */ } } } } else { /* line 1532 "../prg/s7c.sd7" */ o_4970_getAnyParamToExpr(o_11192_actual_param, o_11189_c_expr); } } } } } } /* line 1 "no_file" */ /* 5029 */ static void/*t_1_void*/ o_11196_process_prototype_declaration (const objRefType/*t_19_reference*/ o_11197_current_object, structType/*t_164_expr_type*/ *const o_11198_c_expr); static void/*t_1_void*/ o_11196_process_prototype_declaration (const objRefType/*t_19_reference*/ o_11197_current_object, structType/*t_164_expr_type*/ *const o_11198_c_expr); /* line 1544 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11199_process_const_func_call (const objRefType/*t_19_reference*/ o_11200_function, const listType/*t_20_ref_list*/ *const o_11201_actual_params, structType/*t_164_expr_type*/ *const o_11202_c_expr) { /* line 1548 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11203_function_type=typ[0] /* void/t_1_void */; /* line 1549 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11204_result_type=typ[0] /* void/t_1_void */; /* line 1550 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11205_formal_params=NULL; /* line 1551 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11206_c_params; /* line 1551 "../prg/s7c.sd7" */ o_11206_c_params=create_164(sct[388]); /* line 1553 "../prg/s7c.sd7" */ if (o_4645_not(&(o_11200_function), o_4797_prototype_declared)) { /* line 1554 "../prg/s7c.sd7" */ o_11196_process_prototype_declaration(o_11200_function, &(o_4794_global_c_expr)); /* line 1555 "../prg/s7c.sd7" */ o_4655/*@:=*/(&(o_4797_prototype_declared), &(o_11200_function), o_26_TRUE); } /* line 1557 "../prg/s7c.sd7" */ o_11203_function_type=refType(o_11200_function); /* line 1558 "../prg/s7c.sd7" */ o_11204_result_type=typResult(o_11203_function_type); /* line 1559 "../prg/s7c.sd7" */ rflCpy(&(o_11205_formal_params), refParams(o_11200_function)); /* line 1560 "../prg/s7c.sd7" */ if ((o_4764_valueIsAtHeap(&(o_11204_result_type))) && /* line 1561 "../prg/s7c.sd7" */ (!(typIsVarfunc(o_11203_function_type))) && /* line 1562 "../prg/s7c.sd7" */ (o_4645_not(&(o_11200_function), o_10969_return_ref_to_value))) { /* line 1563 "../prg/s7c.sd7" */ o_4944_prepare_typed_result(&(o_11204_result_type), o_11202_c_expr); /* line 1564 "../prg/s7c.sd7" */ strCopy(&(((structType)(*o_11202_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2894] /* "o_" */); /* line 1565 "../prg/s7c.sd7" */ o_5072_create_name(o_11200_function, &(((structType)(*o_11202_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/)); /* line 1566 "../prg/s7c.sd7" */ { /* line 1566 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1566 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11202_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1566 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1566 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '('); /* line 1566 "../prg/s7c.sd7" */ } else { /* line 1566 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1566 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1566 "../prg/s7c.sd7" */ } } /* line 1567 "../prg/s7c.sd7" */ ((structType)(o_11206_c_params))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(*o_11202_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 1568 "../prg/s7c.sd7" */ o_11186_call_params(&(o_11205_formal_params), o_11201_actual_params, &(o_11206_c_params)); /* line 1569 "../prg/s7c.sd7" */ ((structType)(*o_11202_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_11206_c_params))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 1570 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11202_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), ((structType)(o_11206_c_params))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 1571 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11202_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), ((structType)(o_11206_c_params))->stru[4].value.striValue/*->o_4782_temp_assigns*/); /* line 1572 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11202_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), ((structType)(o_11206_c_params))->stru[6].value.striValue/*->o_4784_temp_frees*/); /* line 1573 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11202_c_expr))->stru[7].value.striValue/*->o_4785_temp_to_null*/), ((structType)(o_11206_c_params))->stru[7].value.striValue/*->o_4785_temp_to_null*/); /* line 1574 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11202_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_11206_c_params))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1575 "../prg/s7c.sd7" */ { /* line 1575 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1575 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11202_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1575 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1575 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ')'); /* line 1575 "../prg/s7c.sd7" */ } else { /* line 1575 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1575 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1575 "../prg/s7c.sd7" */ } } } else /* line 1576 "../prg/s7c.sd7" */ if ((o_11204_result_type) == (o_4737_voidtype)) { /* line 1577 "../prg/s7c.sd7" */ o_11186_call_params(&(o_11205_formal_params), o_11201_actual_params, &(o_11206_c_params)); /* line 1578 "../prg/s7c.sd7" */ if ((((((structType)(o_11206_c_params))->stru[3].value.striValue/*->o_4781_temp_decls*/)->size!=0 /* "" */)) || /* line 1578 "../prg/s7c.sd7" */ (((((structType)(o_11206_c_params))->stru[4].value.striValue/*->o_4782_temp_assigns*/)->size!=0 /* "" */))) { /* line 1579 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11202_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 1580 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11206_c_params))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_11202_c_expr); /* line 1581 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11206_c_params))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_11202_c_expr); } /* line 1583 "../prg/s7c.sd7" */ o_4819_setDiagnosticLine(o_11202_c_expr); /* line 1584 "../prg/s7c.sd7" */ if (typIsVarfunc(o_11203_function_type)) { /* line 1585 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11202_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2957] /* "*o_" */); } else { /* line 1587 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11202_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); } /* line 1589 "../prg/s7c.sd7" */ o_5072_create_name(o_11200_function, &(((structType)(*o_11202_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 1590 "../prg/s7c.sd7" */ { /* line 1590 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1590 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11202_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1590 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1590 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '('); /* line 1590 "../prg/s7c.sd7" */ } else { /* line 1590 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1590 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1590 "../prg/s7c.sd7" */ } } /* line 1591 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11202_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11206_c_params))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1592 "../prg/s7c.sd7" */ { /* line 1592 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1592 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11202_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1592 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1592 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ')'); /* line 1592 "../prg/s7c.sd7" */ } else { /* line 1592 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1592 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1592 "../prg/s7c.sd7" */ } } /* line 1593 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11202_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 1594 "../prg/s7c.sd7" */ if ((((((structType)(o_11206_c_params))->stru[3].value.striValue/*->o_4781_temp_decls*/)->size!=0 /* "" */)) || /* line 1594 "../prg/s7c.sd7" */ (((((structType)(o_11206_c_params))->stru[4].value.striValue/*->o_4782_temp_assigns*/)->size!=0 /* "" */))) { /* line 1595 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11206_c_params))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_11202_c_expr); /* line 1596 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11202_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } } else { /* line 1599 "../prg/s7c.sd7" */ if (typIsVarfunc(o_11203_function_type)) { /* line 1600 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11202_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2957] /* "*o_" */); } else { /* line 1602 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11202_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); } /* line 1604 "../prg/s7c.sd7" */ o_5072_create_name(o_11200_function, &(((structType)(*o_11202_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 1605 "../prg/s7c.sd7" */ { /* line 1605 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1605 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11202_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1605 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1605 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '('); /* line 1605 "../prg/s7c.sd7" */ } else { /* line 1605 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1605 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1605 "../prg/s7c.sd7" */ } } /* line 1606 "../prg/s7c.sd7" */ o_11186_call_params(&(o_11205_formal_params), o_11201_actual_params, o_11202_c_expr); /* line 1607 "../prg/s7c.sd7" */ { /* line 1607 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1607 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11202_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1607 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1607 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ')'); /* line 1607 "../prg/s7c.sd7" */ } else { /* line 1607 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1607 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1607 "../prg/s7c.sd7" */ } } } /* line 1544 "../prg/s7c.sd7" */ rflDestr(o_11205_formal_params); /* line 1544 "../prg/s7c.sd7" */ destr_164(o_11206_c_params); } /* line 1 "no_file" */ /* 5030 */ /* line 1612 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_9100_process_func_call (const objRefType/*t_19_reference*/ o_9101_function, const listType/*t_20_ref_list*/ *const o_9102_actual_params, structType/*t_164_expr_type*/ *const o_9103_c_expr) { /* line 1616 "../prg/s7c.sd7" */ if (refIsVar(o_9101_function)) { /* line 1617 "../prg/s7c.sd7" */ if ((refType(o_9101_function)) == (o_4736_proctype)) { /* line 1618 "../prg/s7c.sd7" */ o_4819_setDiagnosticLine(o_9103_c_expr); } /* line 1620 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_9103_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1621 "../prg/s7c.sd7" */ o_5072_create_name(o_9101_function, &(((structType)(*o_9103_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 1622 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_9103_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2958] /* "->func(o_" */); /* line 1623 "../prg/s7c.sd7" */ o_5072_create_name(o_9101_function, &(((structType)(*o_9103_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 1624 "../prg/s7c.sd7" */ { /* line 1624 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1624 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_9103_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1624 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1624 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ')'); /* line 1624 "../prg/s7c.sd7" */ } else { /* line 1624 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1624 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1624 "../prg/s7c.sd7" */ } } /* line 1625 "../prg/s7c.sd7" */ if ((refType(o_9101_function)) == (o_4736_proctype)) { /* line 1626 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_9103_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); } } else { /* line 1629 "../prg/s7c.sd7" */ o_11199_process_const_func_call(o_9101_function, o_9102_actual_params, o_9103_c_expr); } } /* line 1 "no_file" */ /* 5031 */ /* line 1634 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11207_process_call (const objRefType/*t_19_reference*/ o_11208_current_expression, structType/*t_164_expr_type*/ *const o_11209_c_expr) { /* line 1637 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11210_params=NULL; /* line 1638 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11211_function=NULL; /* line 1639 "../prg/s7c.sd7" */ intType/*t_86_category*/ o_11212_functionCategory=0; /* line 1640 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11213_result_object=NULL; /* line 1641 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11214_obj=NULL; /* line 1642 "../prg/s7c.sd7" */ boolType/*t_13_boolean*/ o_11215_first_element=1/*TRUE*/; /* line 1644 "../prg/s7c.sd7" */ strCopy(&(((structType)(*o_11209_c_expr))->stru[0].value.striValue/*->o_4778_currentFile*/), refFile(o_11208_current_expression)); /* line 1645 "../prg/s7c.sd7" */ ((structType)(*o_11209_c_expr))->stru[1].value.intValue/*->o_4779_currentLine*/=refLine(o_11208_current_expression); { /* line 1649 "../prg/s7c.sd7" */ listType old_rfl=o_11210_params; /* line 1649 "../prg/s7c.sd7" */ o_11210_params=rflValue(o_11208_current_expression); /* line 1649 "../prg/s7c.sd7" */ rflDestr(old_rfl); } /* line 1650 "../prg/s7c.sd7" */ o_11211_function=rflIdx(o_11210_params, 1L); { /* line 1651 "../prg/s7c.sd7" */ listType old_rfl=o_11210_params; /* line 1651 "../prg/s7c.sd7" */ o_11210_params=rflTail(o_11210_params, 2L); /* line 1651 "../prg/s7c.sd7" */ rflDestr(old_rfl); } /* line 1652 "../prg/s7c.sd7" */ o_11212_functionCategory=refCategory(o_11211_function); /* line 1653 "../prg/s7c.sd7" */ if ((o_11212_functionCategory) == (33L)) { /* line 1654 "../prg/s7c.sd7" */ o_6543_process_action(o_11211_function, &(o_11210_params), o_11209_c_expr); } else /* line 1655 "../prg/s7c.sd7" */ if ((o_11212_functionCategory) == (4L)) { /* line 1656 "../prg/s7c.sd7" */ o_11213_result_object=refResult(o_11211_function); /* line 1657 "../prg/s7c.sd7" */ if ((o_4642_in(&(o_11211_function), o_10970_function_declared)) || /* line 1657 "../prg/s7c.sd7" */ ((o_11213_result_object) != (NULL))) { /* line 1658 "../prg/s7c.sd7" */ o_9100_process_func_call(o_11211_function, &(o_11210_params), o_11209_c_expr); } else { /* line 1660 "../prg/s7c.sd7" */ o_11145_process_inline(o_11211_function, &(o_11210_params), o_11209_c_expr); } } else /* line 1662 "../prg/s7c.sd7" */ if ((o_11212_functionCategory) == (37L)) { /* line 1663 "../prg/s7c.sd7" */ o_9100_process_func_call(o_11211_function, &(o_11210_params), o_11209_c_expr); } else /* line 1664 "../prg/s7c.sd7" */ if ((o_11212_functionCategory) == (28L)) { /* line 1666 "../prg/s7c.sd7" */ o_4941_process_expr(o_11211_function, o_11209_c_expr); } else /* line 1667 "../prg/s7c.sd7" */ if (((o_11212_functionCategory) == (34L)) || /* line 1668 "../prg/s7c.sd7" */ ((o_11212_functionCategory) == (35L)) || /* line 1669 "../prg/s7c.sd7" */ ((o_11212_functionCategory) == (9L)) || /* line 1670 "../prg/s7c.sd7" */ ((o_11212_functionCategory) == (10L)) || /* line 1671 "../prg/s7c.sd7" */ ((o_11212_functionCategory) == (25L)) || /* line 1672 "../prg/s7c.sd7" */ ((o_11212_functionCategory) == (11L)) || /* line 1673 "../prg/s7c.sd7" */ ((o_11212_functionCategory) == (12L)) || /* line 1674 "../prg/s7c.sd7" */ ((o_11212_functionCategory) == (13L)) || /* line 1675 "../prg/s7c.sd7" */ ((o_11212_functionCategory) == (14L)) || /* line 1676 "../prg/s7c.sd7" */ ((o_11212_functionCategory) == (15L)) || /* line 1677 "../prg/s7c.sd7" */ ((o_11212_functionCategory) == (19L)) || /* line 1678 "../prg/s7c.sd7" */ ((o_11212_functionCategory) == (16L)) || /* line 1679 "../prg/s7c.sd7" */ ((o_11212_functionCategory) == (18L)) || /* line 1680 "../prg/s7c.sd7" */ ((o_11212_functionCategory) == (26L)) || /* line 1681 "../prg/s7c.sd7" */ ((o_11212_functionCategory) == (40L)) || /* line 1682 "../prg/s7c.sd7" */ ((o_11212_functionCategory) == (27L)) || /* line 1683 "../prg/s7c.sd7" */ ((o_11212_functionCategory) == (7L))) { /* line 1684 "../prg/s7c.sd7" */ o_4941_process_expr(o_11211_function, o_11209_c_expr); } else /* line 1685 "../prg/s7c.sd7" */ if ((o_11212_functionCategory) == (30L)) { /* line 1686 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11209_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1687 "../prg/s7c.sd7" */ o_5072_create_name(o_11211_function, &(((structType)(*o_11209_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else /* line 1688 "../prg/s7c.sd7" */ if ((o_11212_functionCategory) == (31L)) { /* line 1689 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11209_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1690 "../prg/s7c.sd7" */ o_5072_create_name(o_11211_function, &(((structType)(*o_11209_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else { /* line 1692 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11209_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2959] /* "/*[ " */); /* line 1693 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11209_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), refCatStr(o_11212_functionCategory)); /* line 1694 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11209_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2960] /* " ]*\/" */); /* line 1695 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11209_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1696 "../prg/s7c.sd7" */ o_5072_create_name(o_11211_function, &(((structType)(*o_11209_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 1697 "../prg/s7c.sd7" */ { /* line 1697 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1697 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11209_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1697 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1697 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '('); /* line 1697 "../prg/s7c.sd7" */ } else { /* line 1697 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1697 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1697 "../prg/s7c.sd7" */ } } { /* line 1698 "../prg/s7c.sd7" */ listType tmp_elem_1; /* line 1698 "../prg/s7c.sd7" */ for (tmp_elem_1 = o_11210_params; tmp_elem_1 != NULL; tmp_elem_1 = tmp_elem_1->next) { /* line 1698 "../prg/s7c.sd7" */ o_11214_obj = tmp_elem_1->obj; /* line 1699 "../prg/s7c.sd7" */ if ((refCategory(o_11214_obj)) != (0L)) { /* line 1700 "../prg/s7c.sd7" */ if (o_11215_first_element) { /* line 1701 "../prg/s7c.sd7" */ o_11215_first_element=o_25_FALSE; } else { /* line 1703 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11209_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); } /* line 1705 "../prg/s7c.sd7" */ o_4941_process_expr(o_11214_obj, o_11209_c_expr); } } } /* line 1708 "../prg/s7c.sd7" */ { /* line 1708 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1708 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11209_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1708 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1708 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ')'); /* line 1708 "../prg/s7c.sd7" */ } else { /* line 1708 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1708 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1708 "../prg/s7c.sd7" */ } } } /* line 1634 "../prg/s7c.sd7" */ rflDestr(o_11210_params); } /* line 1 "no_file" */ /* 5032 */ /* line 1713 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_4941_process_expr (objRefType/*t_19_reference*/ o_4942_current_expression, structType/*t_164_expr_type*/ *const o_4943_c_expr) { /* line 1716 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11216_evaluated_expression=NULL; /* line 1717 "../prg/s7c.sd7" */ intType/*t_86_category*/ o_11217_exprCategory=0; /* line 1718 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11218_c_body; /* line 1718 "../prg/s7c.sd7" */ o_11218_c_body=create_164(sct[389]); /* line 1720 "../prg/s7c.sd7" */ if (((o_3457_evaluate_const_expr) == (3L)) && /* line 1720 "../prg/s7c.sd7" */ (o_5150_isConstantExpr(o_4942_current_expression))) { /* line 1721 "../prg/s7c.sd7" */ { /* line 1721 "../prg/s7c.sd7" */ int fail_value; /* line 1721 "../prg/s7c.sd7" */ catch_stack_pos++; /* line 1721 "../prg/s7c.sd7" */ if (unlikely(catch_stack_pos >= max_catch_stack)) { /* line 1721 "../prg/s7c.sd7" */ resize_catch_stack(); /* line 1721 "../prg/s7c.sd7" */ } /* line 1721 "../prg/s7c.sd7" */ if (likely((fail_value = do_setjmp(catch_stack[catch_stack_pos])) == 0)) { /* line 1722 "../prg/s7c.sd7" */ o_11216_evaluated_expression=prgEval(o_4739_prog, o_4942_current_expression); /* line 1723 "../prg/s7c.sd7" */ if (((o_11216_evaluated_expression) != (NULL)) && /* line 1723 "../prg/s7c.sd7" */ ((o_11216_evaluated_expression) != (o_4942_current_expression))) { /* line 1724 "../prg/s7c.sd7" */ ++(o_5108_countEvaluations); /* line 1725 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2961] /* "/* evaluate " */); { /* line 1726 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ tmp_1 = (listType/*t_20_ref_list*/)(NULL); /* line 1726 "../prg/s7c.sd7" */ if ((refCategory(rflIdx((tmp_1=(listType/*t_20_ref_list*/)(rflValue(o_4942_current_expression))), 1L))) == (33L)) { { /* line 1727 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ tmp_2 = (listType/*t_20_ref_list*/)(NULL); /* line 1727 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), actStr(actValue(rflIdx((tmp_2=(listType/*t_20_ref_list*/)(rflValue(o_4942_current_expression))), 1L)))); /* line 1727 "../prg/s7c.sd7" */ rflDestr(tmp_2); } } else { /* line 1728 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ tmp_1 = (listType/*t_20_ref_list*/)(NULL); /* line 1728 "../prg/s7c.sd7" */ if ((refCategory(rflIdx((tmp_1=(listType/*t_20_ref_list*/)(rflValue(o_4942_current_expression))), 1L))) == (4L)) { /* line 1729 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); { /* line 1730 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ tmp_1 = (listType/*t_20_ref_list*/)(NULL); /* line 1730 "../prg/s7c.sd7" */ o_5077_create_name2(rflIdx((tmp_1=(listType/*t_20_ref_list*/)(rflValue(o_4942_current_expression))), 1L), &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 1730 "../prg/s7c.sd7" */ rflDestr(tmp_1); } } /* line 1728 "../prg/s7c.sd7" */ rflDestr(tmp_1); } /* line 1726 "../prg/s7c.sd7" */ rflDestr(tmp_1); } /* line 1732 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1981] /* " *\/ " */); /* line 1733 "../prg/s7c.sd7" */ o_4942_current_expression=o_11216_evaluated_expression; /* line 1734 "../prg/s7c.sd7" */ if ((refCategory(o_4942_current_expression)) == (29L)) { /* line 1735 "../prg/s7c.sd7" */ o_4942_current_expression=refValue(o_4942_current_expression); } else { /* line 1737 "../prg/s7c.sd7" */ refSetVar(o_4942_current_expression, o_25_FALSE); } } /* line 1735 "../prg/s7c.sd7" */ catch_stack_pos--; /* line 1741 "../prg/s7c.sd7" */ } else { /* line 1735 "../prg/s7c.sd7" */ catch_stack_pos--; /* line 1741 "../prg/s7c.sd7" */ if (o_16_NUMERIC_ERROR == fail_value - 1) { /* line 1741 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2962] /* "/* NUMERIC_ERROR *\/ " */); /* line 1741 "../prg/s7c.sd7" */ } else /* line 1742 "../prg/s7c.sd7" */ if (o_17_OVERFLOW_ERROR == fail_value - 1) { /* line 1742 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2963] /* "/* OVERFLOW_ERROR *\/ " */); /* line 1742 "../prg/s7c.sd7" */ } else /* line 1743 "../prg/s7c.sd7" */ if (o_18_RANGE_ERROR == fail_value - 1) { /* line 1743 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2964] /* "/* RANGE_ERROR *\/ " */); /* line 1743 "../prg/s7c.sd7" */ } else /* line 1744 "../prg/s7c.sd7" */ if (o_19_FILE_ERROR == fail_value - 1) { /* line 1744 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2965] /* "/* FILE_ERROR *\/ " */); /* line 1745 "../prg/s7c.sd7" */ } else { /* line 1745 "../prg/s7c.sd7" */ rtlRaiseError(fail_value, error_file, error_line); /* line 1745 "../prg/s7c.sd7" */ } /* line 1745 "../prg/s7c.sd7" */ } /* line 1745 "../prg/s7c.sd7" */ } } /* line 1747 "../prg/s7c.sd7" */ o_11217_exprCategory=refCategory(o_4942_current_expression); /* line 1748 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (6L)) { /* line 1749 "../prg/s7c.sd7" */ o_11207_process_call(o_4942_current_expression, o_4943_c_expr); } else /* line 1750 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (5L)) { /* line 1751 "../prg/s7c.sd7" */ o_11207_process_call(o_4942_current_expression, o_4943_c_expr); } else /* line 1752 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (4L)) { /* line 1753 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1754 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 1755 "../prg/s7c.sd7" */ if (!(refIsVar(o_4942_current_expression))) { /* line 1756 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2966] /* "()" */); /* line 1757 "../prg/s7c.sd7" */ if ((typResult(refType(o_4942_current_expression))) == (o_4737_voidtype)) { /* line 1758 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); } } } else /* line 1761 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (33L)) { /* line 1762 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2967] /* "/* process_expr ACTOBJECT " */); /* line 1763 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), actStr(actValue(o_4942_current_expression))); /* line 1764 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[281] /* " *\/" */); /* line 1765 "../prg/s7c.sd7" */ o_6543_process_action(o_4942_current_expression, &(o_125/*.*/), o_4943_c_expr); } else /* line 1766 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (37L)) { /* line 1767 "../prg/s7c.sd7" */ if (o_10536_in(&(o_4942_current_expression), o_10977_funcparam_data)) { /* line 1768 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), *o_10529/*[*/(&(o_10977_funcparam_data), &(o_4942_current_expression))); } else { /* line 1770 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1771 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } } else /* line 1773 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (34L)) { /* line 1774 "../prg/s7c.sd7" */ if (o_10536_in(&(o_4942_current_expression), o_10977_funcparam_data)) { /* line 1775 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), *o_10529/*[*/(&(o_10977_funcparam_data), &(o_4942_current_expression))); } else { /* line 1777 "../prg/s7c.sd7" */ if (o_10937_in(&(o_4942_current_expression), o_10976_inline_param)) { /* line 1778 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2916] /* "par_" */); { /* line 1779 "../prg/s7c.sd7" */ union { /* line 1779 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 1779 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1779 "../prg/s7c.sd7" */ } buffer_1; /* line 1779 "../prg/s7c.sd7" */ arrayType tmp_2; /* line 1779 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((*(tmp_2=*o_10930/*[*/(&(o_10976_inline_param), &(o_4942_current_expression)), &tmp_2->arr[(idxChk(1min_position || 1>tmp_2->max_position) ? intRaiseError(RANGE_ERROR) : 0, 1-tmp_2->min_position)].value.intValue)), &buffer_1.striBuf)); } /* line 1780 "../prg/s7c.sd7" */ { /* line 1780 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1780 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1780 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1780 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '_'); /* line 1780 "../prg/s7c.sd7" */ } else { /* line 1780 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '_'; /* line 1780 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1780 "../prg/s7c.sd7" */ } } } /* line 1782 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1783 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } } else /* line 1785 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (35L)) { /* line 1786 "../prg/s7c.sd7" */ if (o_10536_in(&(o_4942_current_expression), o_10977_funcparam_data)) { /* line 1787 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), *o_10529/*[*/(&(o_10977_funcparam_data), &(o_4942_current_expression))); } else /* line 1788 "../prg/s7c.sd7" */ if (o_11027_isPointerParam(o_4942_current_expression)) { /* line 1789 "../prg/s7c.sd7" */ if ((o_10882_in(&(o_4942_current_expression), o_10975_inline_param_value)) && /* line 1790 "../prg/s7c.sd7" */ ((rflLng(*o_10875/*[*/(&(o_10975_inline_param_value), &(o_4942_current_expression)))) > (0L))) { /* line 1791 "../prg/s7c.sd7" */ if ((refType(o_4942_current_expression)) == (o_4736_proctype)) { /* line 1792 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2968] /* "/* closure o_" */); /* line 1793 "../prg/s7c.sd7" */ o_5077_create_name2(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 1794 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2969] /* "*\/ {\n" */); /* line 1795 "../prg/s7c.sd7" */ o_4941_process_expr(rflIdx(*o_10875/*[*/(&(o_10975_inline_param_value), &(o_4942_current_expression)), 1L), &(o_11218_c_body)); /* line 1796 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11218_c_body))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_4943_c_expr); /* line 1797 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11218_c_body))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_4943_c_expr); /* line 1798 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11218_c_body))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1799 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11218_c_body))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_4943_c_expr); /* line 1800 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2970] /* "\n} /* closure o_" */); /* line 1801 "../prg/s7c.sd7" */ o_5077_create_name2(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 1802 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2971] /* "*\/\n" */); } else { /* line 1804 "../prg/s7c.sd7" */ ((structType)(o_11218_c_body))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(*o_4943_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 1805 "../prg/s7c.sd7" */ o_4941_process_expr(rflIdx(*o_10875/*[*/(&(o_10975_inline_param_value), &(o_4942_current_expression)), 1L), &(o_11218_c_body)); /* line 1806 "../prg/s7c.sd7" */ ((structType)(*o_4943_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_11218_c_body))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 1807 "../prg/s7c.sd7" */ if (((((structType)(o_11218_c_body))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 1808 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2968] /* "/* closure o_" */); /* line 1809 "../prg/s7c.sd7" */ o_5077_create_name2(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/)); /* line 1810 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), &str[2972] /* "*\/ (" */); /* line 1811 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/), ((structType)(o_11218_c_body))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1812 "../prg/s7c.sd7" */ { /* line 1812 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1812 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_4943_c_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); /* line 1812 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1812 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ')'); /* line 1812 "../prg/s7c.sd7" */ } else { /* line 1812 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1812 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1812 "../prg/s7c.sd7" */ } } /* line 1813 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), ((structType)(o_11218_c_body))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 1814 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), ((structType)(o_11218_c_body))->stru[4].value.striValue/*->o_4782_temp_assigns*/); /* line 1815 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), ((structType)(o_11218_c_body))->stru[6].value.striValue/*->o_4784_temp_frees*/); /* line 1816 "../prg/s7c.sd7" */ strCopy(&(((structType)(*o_4943_c_expr))->stru[8].value.striValue/*->o_4786_result_temp*/), ((structType)(o_11218_c_body))->stru[8].value.striValue/*->o_4786_result_temp*/); /* line 1817 "../prg/s7c.sd7" */ strCopy(&(((structType)(*o_4943_c_expr))->stru[9].value.striValue/*->o_4787_result_decl*/), ((structType)(o_11218_c_body))->stru[9].value.striValue/*->o_4787_result_decl*/); /* line 1818 "../prg/s7c.sd7" */ strCopy(&(((structType)(*o_4943_c_expr))->stru[10].value.striValue/*->o_4788_result_free*/), ((structType)(o_11218_c_body))->stru[10].value.striValue/*->o_4788_result_free*/); /* line 1819 "../prg/s7c.sd7" */ strCopy(&(((structType)(*o_4943_c_expr))->stru[11].value.striValue/*->o_4789_result_to_null*/), ((structType)(o_11218_c_body))->stru[11].value.striValue/*->o_4789_result_to_null*/); /* line 1820 "../prg/s7c.sd7" */ strCopy(&(((structType)(*o_4943_c_expr))->stru[12].value.striValue/*->o_4790_result_intro*/), ((structType)(o_11218_c_body))->stru[12].value.striValue/*->o_4790_result_intro*/); /* line 1821 "../prg/s7c.sd7" */ strCopy(&(((structType)(*o_4943_c_expr))->stru[14].value.striValue/*->o_4792_result_finish*/), ((structType)(o_11218_c_body))->stru[14].value.striValue/*->o_4792_result_finish*/); } else { /* line 1823 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2968] /* "/* closure o_" */); /* line 1824 "../prg/s7c.sd7" */ o_5077_create_name2(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 1825 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2972] /* "*\/ (" */); /* line 1826 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11218_c_body))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1827 "../prg/s7c.sd7" */ { /* line 1827 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1827 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1827 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1827 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ')'); /* line 1827 "../prg/s7c.sd7" */ } else { /* line 1827 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1827 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1827 "../prg/s7c.sd7" */ } } /* line 1828 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), ((structType)(o_11218_c_body))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 1829 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), ((structType)(o_11218_c_body))->stru[4].value.striValue/*->o_4782_temp_assigns*/); /* line 1830 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), ((structType)(o_11218_c_body))->stru[6].value.striValue/*->o_4784_temp_frees*/); } } } else /* line 1833 "../prg/s7c.sd7" */ if (typIsFunc(refType(o_4942_current_expression))) { /* line 1834 "../prg/s7c.sd7" */ if ((refType(o_4942_current_expression)) == (o_4736_proctype)) { /* line 1835 "../prg/s7c.sd7" */ o_4819_setDiagnosticLine(o_4943_c_expr); } /* line 1837 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1838 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 1839 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2958] /* "->func(o_" */); /* line 1840 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 1841 "../prg/s7c.sd7" */ { /* line 1841 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1841 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1841 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1841 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ')'); /* line 1841 "../prg/s7c.sd7" */ } else { /* line 1841 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1841 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1841 "../prg/s7c.sd7" */ } } /* line 1842 "../prg/s7c.sd7" */ if ((refType(o_4942_current_expression)) == (o_4736_proctype)) { /* line 1843 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); } } else { /* line 1846 "../prg/s7c.sd7" */ { /* line 1846 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1846 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1846 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1846 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '*'); /* line 1846 "../prg/s7c.sd7" */ } else { /* line 1846 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '*'; /* line 1846 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1846 "../prg/s7c.sd7" */ } } /* line 1847 "../prg/s7c.sd7" */ if (o_10937_in(&(o_4942_current_expression), o_10976_inline_param)) { /* line 1848 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2916] /* "par_" */); { /* line 1849 "../prg/s7c.sd7" */ union { /* line 1849 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 1849 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1849 "../prg/s7c.sd7" */ } buffer_1; /* line 1849 "../prg/s7c.sd7" */ arrayType tmp_2; /* line 1849 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((*(tmp_2=*o_10930/*[*/(&(o_10976_inline_param), &(o_4942_current_expression)), &tmp_2->arr[(idxChk(1min_position || 1>tmp_2->max_position) ? intRaiseError(RANGE_ERROR) : 0, 1-tmp_2->min_position)].value.intValue)), &buffer_1.striBuf)); } /* line 1850 "../prg/s7c.sd7" */ { /* line 1850 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1850 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1850 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1850 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '_'); /* line 1850 "../prg/s7c.sd7" */ } else { /* line 1850 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '_'; /* line 1850 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1850 "../prg/s7c.sd7" */ } } } /* line 1852 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1853 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } } else { /* line 1856 "../prg/s7c.sd7" */ if (o_10937_in(&(o_4942_current_expression), o_10976_inline_param)) { /* line 1857 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2916] /* "par_" */); { /* line 1858 "../prg/s7c.sd7" */ union { /* line 1858 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 1858 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1858 "../prg/s7c.sd7" */ } buffer_1; /* line 1858 "../prg/s7c.sd7" */ arrayType tmp_2; /* line 1858 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((*(tmp_2=*o_10930/*[*/(&(o_10976_inline_param), &(o_4942_current_expression)), &tmp_2->arr[(idxChk(1min_position || 1>tmp_2->max_position) ? intRaiseError(RANGE_ERROR) : 0, 1-tmp_2->min_position)].value.intValue)), &buffer_1.striBuf)); } /* line 1859 "../prg/s7c.sd7" */ { /* line 1859 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1859 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1859 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1859 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '_'); /* line 1859 "../prg/s7c.sd7" */ } else { /* line 1859 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '_'; /* line 1859 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1859 "../prg/s7c.sd7" */ } } } /* line 1861 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1862 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } } else /* line 1864 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (36L)) { /* line 1865 "../prg/s7c.sd7" */ if (o_10536_in(&(o_4942_current_expression), o_10977_funcparam_data)) { /* line 1866 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), *o_10529/*[*/(&(o_10977_funcparam_data), &(o_4942_current_expression))); } else { /* line 1868 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1869 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } } else /* line 1871 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (7L)) { /* line 1872 "../prg/s7c.sd7" */ if (refIsVar(o_4942_current_expression)) { /* line 1873 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1874 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else { { /* line 1876 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 1876 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6516_typeLiteral(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(typValue(o_4942_current_expression)), &tmp_2))); } } } else /* line 1878 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (9L)) { /* line 1879 "../prg/s7c.sd7" */ if (refIsVar(o_4942_current_expression)) { /* line 1880 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1881 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else { /* line 1883 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(intValue(o_4942_current_expression))); } } else /* line 1885 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (10L)) { /* line 1886 "../prg/s7c.sd7" */ if (refIsVar(o_4942_current_expression)) { /* line 1887 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1888 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else { { /* line 1890 "../prg/s7c.sd7" */ bigIntType tmp_2 = NULL; /* line 1890 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6505_bigIntegerLiteral((tmp_2=bigValue(o_4942_current_expression)))); /* line 1890 "../prg/s7c.sd7" */ bigDestr(tmp_2); } } } else /* line 1892 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (25L)) { /* line 1893 "../prg/s7c.sd7" */ if (refIsVar(o_4942_current_expression)) { /* line 1894 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1895 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else { /* line 1897 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6511_floatLiteral(fltValue(o_4942_current_expression))); } } else /* line 1899 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (11L)) { /* line 1900 "../prg/s7c.sd7" */ if (refIsVar(o_4942_current_expression)) { /* line 1901 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1902 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else { /* line 1904 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6500_charLiteral(chrValue(o_4942_current_expression))); } } else /* line 1906 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (12L)) { /* line 1907 "../prg/s7c.sd7" */ if (refIsVar(o_4942_current_expression)) { /* line 1908 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1909 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else { { /* line 1911 "../prg/s7c.sd7" */ striType tmp_2 = NULL; /* line 1911 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6494_stringLiteral((tmp_2=strValue(o_4942_current_expression)))); /* line 1911 "../prg/s7c.sd7" */ strDestr(tmp_2); } } } else /* line 1913 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (13L)) { /* line 1914 "../prg/s7c.sd7" */ if (refIsVar(o_4942_current_expression)) { /* line 1915 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1916 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else { { /* line 1918 "../prg/s7c.sd7" */ bstriType tmp_2 = NULL; /* line 1918 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6497_bstriLiteral((tmp_2=bstValue(o_4942_current_expression)))); /* line 1918 "../prg/s7c.sd7" */ bstDestr(tmp_2); } } } else /* line 1920 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (19L)) { /* line 1921 "../prg/s7c.sd7" */ if (refIsVar(o_4942_current_expression)) { /* line 1922 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1923 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else { /* line 1925 "../prg/s7c.sd7" */ { /* line 1925 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1925 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1925 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1925 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '('); /* line 1925 "../prg/s7c.sd7" */ } else { /* line 1925 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 1925 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1925 "../prg/s7c.sd7" */ } } { /* line 1926 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 1926 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(refType(o_4942_current_expression)), &tmp_2))); } /* line 1927 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[206] /* ")(" */); { /* line 1928 "../prg/s7c.sd7" */ setType/*t_30_bitset*/ tmp_2 = (setType/*t_30_bitset*/)(NULL); /* line 1928 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6508_bitsetLiteral((tmp_2=(setType/*t_30_bitset*/)(setValue(o_4942_current_expression))))); /* line 1928 "../prg/s7c.sd7" */ setDestr(tmp_2); } /* line 1929 "../prg/s7c.sd7" */ { /* line 1929 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1929 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1929 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1929 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ')'); /* line 1929 "../prg/s7c.sd7" */ } else { /* line 1929 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1929 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1929 "../prg/s7c.sd7" */ } } } } else /* line 1931 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (30L)) { /* line 1932 "../prg/s7c.sd7" */ if (refIsVar(o_4942_current_expression)) { /* line 1933 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1934 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else { /* line 1936 "../prg/s7c.sd7" */ if ((refValue(o_4942_current_expression)) == (NULL)) { /* line 1937 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[953] /* "NULL" */); } else { /* line 1939 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1503] /* "&(" */); /* line 1940 "../prg/s7c.sd7" */ o_4941_process_expr(refValue(o_4942_current_expression), o_4943_c_expr); /* line 1941 "../prg/s7c.sd7" */ { /* line 1941 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1941 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1941 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1941 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ')'); /* line 1941 "../prg/s7c.sd7" */ } else { /* line 1941 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 1941 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1941 "../prg/s7c.sd7" */ } } } } } else /* line 1944 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (31L)) { /* line 1945 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1946 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else /* line 1947 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (14L)) { /* line 1948 "../prg/s7c.sd7" */ if (refIsVar(o_4942_current_expression)) { /* line 1949 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1950 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else { /* line 1952 "../prg/s7c.sd7" */ if (o_4505_not(&(o_4942_current_expression), o_6490_const_table)) { /* line 1953 "../prg/s7c.sd7" */ o_4515/*@:=*/(&(o_6490_const_table), &(o_4942_current_expression), (intType)((o_6490_const_table)->size)); } /* line 1955 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[381] /* "arr[" */); { /* line 1956 "../prg/s7c.sd7" */ union { /* line 1956 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 1956 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1956 "../prg/s7c.sd7" */ } buffer_1; /* line 1956 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(*o_4495/*[*/(&(o_6490_const_table), &(o_4942_current_expression)), &buffer_1.striBuf)); } /* line 1957 "../prg/s7c.sd7" */ { /* line 1957 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1957 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1957 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1957 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ']'); /* line 1957 "../prg/s7c.sd7" */ } else { /* line 1957 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ']'; /* line 1957 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1957 "../prg/s7c.sd7" */ } } } } else /* line 1959 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (16L)) { /* line 1960 "../prg/s7c.sd7" */ if (refIsVar(o_4942_current_expression)) { /* line 1961 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1962 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else { /* line 1964 "../prg/s7c.sd7" */ if (o_4505_not(&(o_4942_current_expression), o_6490_const_table)) { /* line 1965 "../prg/s7c.sd7" */ o_4515/*@:=*/(&(o_6490_const_table), &(o_4942_current_expression), (intType)((o_6490_const_table)->size)); } /* line 1967 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2908] /* "sct[" */); { /* line 1968 "../prg/s7c.sd7" */ union { /* line 1968 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 1968 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1968 "../prg/s7c.sd7" */ } buffer_1; /* line 1968 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(*o_4495/*[*/(&(o_6490_const_table), &(o_4942_current_expression)), &buffer_1.striBuf)); } /* line 1969 "../prg/s7c.sd7" */ { /* line 1969 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1969 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1969 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1969 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ']'); /* line 1969 "../prg/s7c.sd7" */ } else { /* line 1969 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ']'; /* line 1969 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1969 "../prg/s7c.sd7" */ } } } } else /* line 1971 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (15L)) { /* line 1972 "../prg/s7c.sd7" */ if (refIsVar(o_4942_current_expression)) { /* line 1973 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1974 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else { /* line 1976 "../prg/s7c.sd7" */ if (o_4505_not(&(o_4942_current_expression), o_6490_const_table)) { /* line 1977 "../prg/s7c.sd7" */ o_4515/*@:=*/(&(o_6490_const_table), &(o_4942_current_expression), (intType)((o_6490_const_table)->size)); } /* line 1979 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2910] /* "hsh[" */); { /* line 1980 "../prg/s7c.sd7" */ union { /* line 1980 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 1980 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1980 "../prg/s7c.sd7" */ } buffer_1; /* line 1980 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(*o_4495/*[*/(&(o_6490_const_table), &(o_4942_current_expression)), &buffer_1.striBuf)); } /* line 1981 "../prg/s7c.sd7" */ { /* line 1981 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1981 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1981 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1981 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ']'); /* line 1981 "../prg/s7c.sd7" */ } else { /* line 1981 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ']'; /* line 1981 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1981 "../prg/s7c.sd7" */ } } } } else /* line 1983 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (18L)) { /* line 1984 "../prg/s7c.sd7" */ if (refIsVar(o_4942_current_expression)) { /* line 1985 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1986 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else { /* line 1988 "../prg/s7c.sd7" */ if (o_4505_not(&(o_4942_current_expression), o_6490_const_table)) { /* line 1989 "../prg/s7c.sd7" */ o_4515/*@:=*/(&(o_6490_const_table), &(o_4942_current_expression), (intType)((o_6490_const_table)->size)); } /* line 1991 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2973] /* "itf[" */); { /* line 1992 "../prg/s7c.sd7" */ union { /* line 1992 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 1992 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 1992 "../prg/s7c.sd7" */ } buffer_1; /* line 1992 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(*o_4495/*[*/(&(o_6490_const_table), &(o_4942_current_expression)), &buffer_1.striBuf)); } /* line 1993 "../prg/s7c.sd7" */ { /* line 1993 "../prg/s7c.sd7" */ striType *tmp_1; /* line 1993 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 1993 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 1993 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ']'); /* line 1993 "../prg/s7c.sd7" */ } else { /* line 1993 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ']'; /* line 1993 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 1993 "../prg/s7c.sd7" */ } } } } else /* line 1995 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (20L)) { /* line 1996 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 1997 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else /* line 1998 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (22L)) { /* line 1999 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 2000 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else /* line 2001 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (23L)) { /* line 2002 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 2003 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else /* line 2004 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (26L)) { /* line 2005 "../prg/s7c.sd7" */ if (refIsVar(o_4942_current_expression)) { /* line 2006 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 2007 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else { /* line 2009 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6519_windowLiteral(drwValue(o_4942_current_expression))); } } else /* line 2011 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (40L)) { /* line 2012 "../prg/s7c.sd7" */ if (refIsVar(o_4942_current_expression)) { /* line 2013 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 2014 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else { /* line 2016 "../prg/s7c.sd7" */ if ((prgValue(o_4942_current_expression)) == (/*program.EMPTY*/NULL)) { /* line 2017 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2974] /* "/*program.EMPTY*\/NULL" */); } else { /* line 2019 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 2020 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } } } else /* line 2023 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (28L)) { /* line 2024 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 2025 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else /* line 2026 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (29L)) { /* line 2027 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 2028 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else /* line 2029 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (27L)) { /* line 2030 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 2031 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else /* line 2032 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (32L)) { /* line 2033 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 2034 "../prg/s7c.sd7" */ o_5072_create_name(o_4942_current_expression, &(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else /* line 2035 "../prg/s7c.sd7" */ if ((o_11217_exprCategory) == (0L)) { /* line 2036 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2975] /* "/* SYMBOLOBJECT " */); /* line 2037 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), refStr(o_4942_current_expression)); /* line 2038 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[281] /* " *\/" */); } else { /* line 2040 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1431] /* "/* " */); /* line 2041 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), refCatStr(o_11217_exprCategory)); /* line 2042 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_4943_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[281] /* " *\/" */); } /* line 1713 "../prg/s7c.sd7" */ destr_164(o_11218_c_body); } /* line 1 "no_file" */ /* 5033 */ /* line 2047 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11219_declare_types_of_params (const listType/*t_20_ref_list*/ *const o_11220_formal_params, structType/*t_164_expr_type*/ *const o_11221_c_expr) { /* line 2050 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11222_formal_param=NULL; /* line 2051 "../prg/s7c.sd7" */ intType/*t_86_category*/ o_11223_paramCategory=0; { /* line 2053 "../prg/s7c.sd7" */ listType tmp_elem_1; /* line 2053 "../prg/s7c.sd7" */ for (tmp_elem_1 = *o_11220_formal_params; tmp_elem_1 != NULL; tmp_elem_1 = tmp_elem_1->next) { /* line 2053 "../prg/s7c.sd7" */ o_11222_formal_param = tmp_elem_1->obj; /* line 2054 "../prg/s7c.sd7" */ o_11223_paramCategory=refCategory(o_11222_formal_param); /* line 2055 "../prg/s7c.sd7" */ if (((o_11223_paramCategory) != (0L)) && /* line 2055 "../prg/s7c.sd7" */ ((o_11223_paramCategory) != (7L))) { { /* line 2056 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 2056 "../prg/s7c.sd7" */ o_4801_declare_type_if_necessary(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_11222_formal_param)), &tmp_1), o_11221_c_expr); } } } } } /* line 1 "no_file" */ /* 5034 */ /* line 2062 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11224_process_param_declaration (const objRefType/*t_19_reference*/ o_11225_formal_param, structType/*t_164_expr_type*/ *const o_11226_c_expr) { /* line 2065 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11227_param_type=typ[0] /* void/t_1_void */; /* line 2066 "../prg/s7c.sd7" */ striType/*t_15_string*/ o_11228_param_name; /* line 2066 "../prg/s7c.sd7" */ o_11228_param_name=strEmpty(); /* "" */ /* line 2068 "../prg/s7c.sd7" */ o_11227_param_type=refType(o_11225_formal_param); /* line 2069 "../prg/s7c.sd7" */ if (o_11027_isPointerParam(o_11225_formal_param)) { /* line 2070 "../prg/s7c.sd7" */ if (typIsFunc(o_11227_param_type)) { /* line 2071 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11226_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(&(o_11227_param_type))); /* line 2072 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11226_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2893] /* " o_" */); /* line 2073 "../prg/s7c.sd7" */ o_5072_create_name(o_11225_formal_param, &(((structType)(*o_11226_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else { /* line 2075 "../prg/s7c.sd7" */ if (!(refIsVar(o_11225_formal_param))) { /* line 2076 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11226_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1538] /* "const " */); } /* line 2078 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11226_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(&(o_11227_param_type))); /* line 2079 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11226_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2976] /* " *const o_" */); /* line 2080 "../prg/s7c.sd7" */ o_5072_create_name(o_11225_formal_param, &(((structType)(*o_11226_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } } else /* line 2082 "../prg/s7c.sd7" */ if (o_11029_isCopyParam(o_11225_formal_param)) { /* line 2083 "../prg/s7c.sd7" */ o_5072_create_name(o_11225_formal_param, &(o_11228_param_name)); /* line 2084 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11226_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1538] /* "const " */); /* line 2085 "../prg/s7c.sd7" */ if (o_4772_useConstPrefix(o_11225_formal_param)) { /* line 2086 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11226_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[228] /* "const_" */); } /* line 2088 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11226_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(&(o_11227_param_type))); /* line 2089 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11226_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2977] /* " value_o_" */); /* line 2090 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11226_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_11228_param_name); /* line 2091 "../prg/s7c.sd7" */ if ((!(refIsVar(o_11225_formal_param))) && /* line 2091 "../prg/s7c.sd7" */ (o_4769_useConstPrefix(&(o_11227_param_type)))) { /* line 2092 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11226_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[228] /* "const_" */); } /* line 2094 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11226_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_4743_type_name(&(o_11227_param_type))); /* line 2095 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11226_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[2893] /* " o_" */); /* line 2096 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11226_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), o_11228_param_name); /* line 2097 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11226_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), &str[215] /* ";\n" */); /* line 2098 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11226_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[2894] /* "o_" */); /* line 2099 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11226_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), o_11228_param_name); /* line 2100 "../prg/s7c.sd7" */ { /* line 2100 "../prg/s7c.sd7" */ striType *tmp_1; /* line 2100 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11226_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/); /* line 2100 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2100 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 2100 "../prg/s7c.sd7" */ } else { /* line 2100 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 2100 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 2100 "../prg/s7c.sd7" */ } } /* line 2101 "../prg/s7c.sd7" */ o_4878_process_create_declaration(&(o_11227_param_type), &(o_4794_global_c_expr)); { /* line 2102 "../prg/s7c.sd7" */ striType tmp_1 = NULL; /* line 2102 "../prg/s7c.sd7" */ o_4881_process_create_call(&(o_11227_param_type), (tmp_1=strConcat(&str[2978] /* "value_o_" */, o_11228_param_name)), &(((structType)(*o_11226_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/)); /* line 2102 "../prg/s7c.sd7" */ strDestr(tmp_1); } /* line 2104 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11226_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), &str[215] /* ";\n" */); /* line 2105 "../prg/s7c.sd7" */ o_4829_process_destr_declaration(&(o_11227_param_type), &(o_4794_global_c_expr)); { /* line 2106 "../prg/s7c.sd7" */ striType tmp_1 = NULL; /* line 2106 "../prg/s7c.sd7" */ o_4832_process_destr_call(&(o_11227_param_type), (tmp_1=strConcat(&str[2894] /* "o_" */, o_11228_param_name)), &(((structType)(*o_11226_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/)); /* line 2106 "../prg/s7c.sd7" */ strDestr(tmp_1); } } else { /* line 2109 "../prg/s7c.sd7" */ if (!(refIsVar(o_11225_formal_param))) { /* line 2110 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11226_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1538] /* "const " */); /* line 2111 "../prg/s7c.sd7" */ if (o_4772_useConstPrefix(o_11225_formal_param)) { /* line 2112 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11226_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[228] /* "const_" */); } } /* line 2115 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11226_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(&(o_11227_param_type))); /* line 2116 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11226_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2893] /* " o_" */); /* line 2117 "../prg/s7c.sd7" */ o_5072_create_name(o_11225_formal_param, &(((structType)(*o_11226_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } /* line 2062 "../prg/s7c.sd7" */ strDestr(o_11228_param_name); } /* line 1 "no_file" */ /* 5035 */ /* line 2122 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11229_process_param_list_declaration (const listType/*t_20_ref_list*/ *const o_11230_formal_params, structType/*t_164_expr_type*/ *const o_11231_c_expr) { /* line 2125 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11232_formal_param=NULL; /* line 2126 "../prg/s7c.sd7" */ intType/*t_86_category*/ o_11233_paramCategory=0; /* line 2127 "../prg/s7c.sd7" */ boolType/*t_13_boolean*/ o_11234_first_element=1/*TRUE*/; { /* line 2129 "../prg/s7c.sd7" */ listType tmp_elem_1; /* line 2129 "../prg/s7c.sd7" */ for (tmp_elem_1 = *o_11230_formal_params; tmp_elem_1 != NULL; tmp_elem_1 = tmp_elem_1->next) { /* line 2129 "../prg/s7c.sd7" */ o_11232_formal_param = tmp_elem_1->obj; /* line 2130 "../prg/s7c.sd7" */ o_11233_paramCategory=refCategory(o_11232_formal_param); /* line 2131 "../prg/s7c.sd7" */ if ((o_11233_paramCategory) != (0L)) { /* line 2132 "../prg/s7c.sd7" */ if ((o_11233_paramCategory) == (7L)) { /* line 2133 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11231_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2955] /* "/* attr t_" */); { /* line 2134 "../prg/s7c.sd7" */ union { /* line 2134 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 2134 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2134 "../prg/s7c.sd7" */ } buffer_1; /* line 2134 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11231_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(typValue(o_11232_formal_param)), &buffer_1.striBuf)); } /* line 2135 "../prg/s7c.sd7" */ { /* line 2135 "../prg/s7c.sd7" */ striType *tmp_1; /* line 2135 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11231_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2135 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2135 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ' '); /* line 2135 "../prg/s7c.sd7" */ } else { /* line 2135 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ' '; /* line 2135 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 2135 "../prg/s7c.sd7" */ } } /* line 2136 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11231_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), typStr(typValue(o_11232_formal_param))); /* line 2137 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11231_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2956] /* "*\/ " */); } else { /* line 2139 "../prg/s7c.sd7" */ if (o_11234_first_element) { /* line 2140 "../prg/s7c.sd7" */ o_11234_first_element=o_25_FALSE; } else { /* line 2142 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11231_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); } /* line 2144 "../prg/s7c.sd7" */ o_11224_process_param_declaration(o_11232_formal_param, o_11231_c_expr); } } } } /* line 2148 "../prg/s7c.sd7" */ if (o_11234_first_element) { /* line 2149 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11231_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[98] /* "void" */); } } /* line 1 "no_file" */ /* 5036 */ /* line 2154 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11235_process_result_declaration (const objRefType/*t_19_reference*/ o_11236_result_object, objRefType/*t_19_reference*/ o_11237_result_init, structType/*t_164_expr_type*/ *const o_11238_c_expr) { /* line 2158 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11239_evaluatedExpr=NULL; /* line 2160 "../prg/s7c.sd7" */ if ((o_11236_result_object) != (NULL)) { /* line 2161 "../prg/s7c.sd7" */ if (((o_3457_evaluate_const_expr) >= (2L)) && /* line 2161 "../prg/s7c.sd7" */ (o_5140_isConstant(o_11237_result_init))) { /* line 2162 "../prg/s7c.sd7" */ { /* line 2162 "../prg/s7c.sd7" */ int fail_value; /* line 2162 "../prg/s7c.sd7" */ catch_stack_pos++; /* line 2162 "../prg/s7c.sd7" */ if (unlikely(catch_stack_pos >= max_catch_stack)) { /* line 2162 "../prg/s7c.sd7" */ resize_catch_stack(); /* line 2162 "../prg/s7c.sd7" */ } /* line 2162 "../prg/s7c.sd7" */ if (likely((fail_value = do_setjmp(catch_stack[catch_stack_pos])) == 0)) { /* line 2163 "../prg/s7c.sd7" */ o_11239_evaluatedExpr=prgEval(o_4739_prog, o_11237_result_init); /* line 2164 "../prg/s7c.sd7" */ if ((o_11239_evaluatedExpr) != (NULL)) { /* line 2165 "../prg/s7c.sd7" */ ++(o_5108_countEvaluations); /* line 2166 "../prg/s7c.sd7" */ o_11237_result_init=o_11239_evaluatedExpr; } /* line 2166 "../prg/s7c.sd7" */ catch_stack_pos--; /* line 2169 "../prg/s7c.sd7" */ } else { /* line 2166 "../prg/s7c.sd7" */ catch_stack_pos--; /* line 2169 "../prg/s7c.sd7" */ if (o_16_NUMERIC_ERROR == fail_value - 1) { /* process_expr ACTOBJECT PRC_NOOP *//*noop*/ /* line 2169 "../prg/s7c.sd7" */ } else /* line 2170 "../prg/s7c.sd7" */ if (o_17_OVERFLOW_ERROR == fail_value - 1) { /* process_expr ACTOBJECT PRC_NOOP *//*noop*/ /* line 2170 "../prg/s7c.sd7" */ } else /* line 2171 "../prg/s7c.sd7" */ if (o_18_RANGE_ERROR == fail_value - 1) { /* process_expr ACTOBJECT PRC_NOOP *//*noop*/ /* line 2171 "../prg/s7c.sd7" */ } else /* line 2172 "../prg/s7c.sd7" */ if (o_19_FILE_ERROR == fail_value - 1) { /* process_expr ACTOBJECT PRC_NOOP *//*noop*/ /* line 2167 "../prg/s7c.sd7" */ } else { /* line 2167 "../prg/s7c.sd7" */ rtlRaiseError(fail_value, error_file, error_line); /* line 2167 "../prg/s7c.sd7" */ } /* line 2167 "../prg/s7c.sd7" */ } /* line 2167 "../prg/s7c.sd7" */ } } /* line 2175 "../prg/s7c.sd7" */ o_11060_process_local_declaration(o_11236_result_object, o_11237_result_init, o_11238_c_expr); } } /* line 1 "no_file" */ /* 5037 */ /* line 2180 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11240_process_return (const objRefType/*t_19_reference*/ o_11241_result_object, structType/*t_164_expr_type*/ *const o_11242_c_expr) { /* line 2184 "../prg/s7c.sd7" */ if ((o_11241_result_object) != (NULL)) { /* line 2185 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11242_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2884] /* "return o_" */); /* line 2186 "../prg/s7c.sd7" */ o_5072_create_name(o_11241_result_object, &(((structType)(*o_11242_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 2187 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11242_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); } } /* line 1 "no_file" */ /* 5038 */ /* line 2192 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11243_process_return_value (const objRefType/*t_19_reference*/ o_11244_function, const typeType/*t_7_type*/ *const o_11245_result_type, const structType/*t_164_expr_type*/ o_11246_c_func_body, structType/*t_164_expr_type*/ *const o_11247_c_expr) { /* line 2197 "../prg/s7c.sd7" */ if (typIsVarfunc(refType(o_11244_function))) { /* line 2198 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11247_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1503] /* "&(" */); /* line 2199 "../prg/s7c.sd7" */ if (((((structType)(o_11246_c_func_body))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 2200 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11247_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11246_c_func_body))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 2202 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11247_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11246_c_func_body))->stru[5].value.striValue/*->o_4783_expr*/); } } else { /* line 2205 "../prg/s7c.sd7" */ { /* line 2205 "../prg/s7c.sd7" */ striType *tmp_1; /* line 2205 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11247_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2205 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2205 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '('); /* line 2205 "../prg/s7c.sd7" */ } else { /* line 2205 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 2205 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 2205 "../prg/s7c.sd7" */ } } /* line 2206 "../prg/s7c.sd7" */ if (((((structType)(o_11246_c_func_body))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 2207 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11247_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11246_c_func_body))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 2209 "../prg/s7c.sd7" */ if (o_4642_in(&(o_11244_function), o_4797_prototype_declared)) { /* line 2210 "../prg/s7c.sd7" */ o_4878_process_create_declaration(o_11245_result_type, &(o_4794_global_c_expr)); /* line 2211 "../prg/s7c.sd7" */ o_4881_process_create_call(o_11245_result_type, ((structType)(o_11246_c_func_body))->stru[5].value.striValue/*->o_4783_expr*/, &(((structType)(*o_11247_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else { /* line 2213 "../prg/s7c.sd7" */ if (o_4764_valueIsAtHeap(o_11245_result_type)) { /* line 2214 "../prg/s7c.sd7" */ o_4655/*@:=*/(&(o_10969_return_ref_to_value), &(o_11244_function), o_26_TRUE); /* line 2215 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11247_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2979] /* "/*ref_to_value*\/ " */); } /* line 2217 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11247_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11246_c_func_body))->stru[5].value.striValue/*->o_4783_expr*/); } } } /* line 2221 "../prg/s7c.sd7" */ { /* line 2221 "../prg/s7c.sd7" */ striType *tmp_1; /* line 2221 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11247_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2221 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2221 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ')'); /* line 2221 "../prg/s7c.sd7" */ } else { /* line 2221 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2221 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 2221 "../prg/s7c.sd7" */ } } } /* line 1 "no_file" */ /* 5039 */ static void/*t_1_void*/ o_11248_process_local_consts (const objRefType/*t_19_reference*/ o_11249_function, structType/*t_164_expr_type*/ *const o_11250_c_expr); static void/*t_1_void*/ o_11248_process_local_consts (const objRefType/*t_19_reference*/ o_11249_function, structType/*t_164_expr_type*/ *const o_11250_c_expr); /* line 2229 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11251_process_const_func_declaration (const objRefType/*t_19_reference*/ o_11252_function, structType/*t_164_expr_type*/ *const o_11253_c_expr) { /* line 2233 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11254_c_param_list; /* line 2234 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11255_c_result; /* line 2235 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11256_c_local_vars; /* line 2236 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11257_c_func_body; /* line 2237 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11258_function_type=typ[0] /* void/t_1_void */; /* line 2238 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11259_result_type=typ[0] /* void/t_1_void */; /* line 2239 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11260_param_list=NULL; /* line 2240 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11261_result_object=NULL; /* line 2241 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11262_result_init=NULL; /* line 2233 "../prg/s7c.sd7" */ o_11254_c_param_list=create_164(sct[390]); /* line 2234 "../prg/s7c.sd7" */ o_11255_c_result=create_164(sct[391]); /* line 2235 "../prg/s7c.sd7" */ o_11256_c_local_vars=create_164(sct[392]); /* line 2236 "../prg/s7c.sd7" */ o_11257_c_func_body=create_164(sct[393]); /* line 2243 "../prg/s7c.sd7" */ o_11258_function_type=refType(o_11252_function); /* line 2244 "../prg/s7c.sd7" */ o_11259_result_type=typResult(o_11258_function_type); /* line 2245 "../prg/s7c.sd7" */ rflCpy(&(o_11260_param_list), refParams(o_11252_function)); /* line 2246 "../prg/s7c.sd7" */ o_11261_result_object=refResult(o_11252_function); /* line 2247 "../prg/s7c.sd7" */ if ((o_11042_param_list_okay(&(o_11260_param_list))) || /* line 2248 "../prg/s7c.sd7" */ (o_11055_recursiveFunctionCall(o_11252_function, refBody(o_11252_function))) || /* line 2249 "../prg/s7c.sd7" */ ((o_11261_result_object) != (NULL))) { /* line 2253 "../prg/s7c.sd7" */ o_4655/*@:=*/(&(o_10970_function_declared), &(o_11252_function), o_26_TRUE); /* line 2254 "../prg/s7c.sd7" */ o_11219_declare_types_of_params(&(o_11260_param_list), &(o_4794_global_c_expr)); /* line 2255 "../prg/s7c.sd7" */ o_11248_process_local_consts(o_11252_function, o_11253_c_expr); /* line 2256 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_11252_function)); /* line 2257 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[208] /* "static " */); /* line 2258 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(&(o_11259_result_type))); /* line 2259 "../prg/s7c.sd7" */ if (typIsVarfunc(refType(o_11252_function))) { /* line 2260 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2980] /* " /*varfunc*\/ *o_" */); } else { /* line 2262 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2893] /* " o_" */); } /* line 2264 "../prg/s7c.sd7" */ o_5072_create_name(o_11252_function, &(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 2265 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[177] /* " (" */); /* line 2266 "../prg/s7c.sd7" */ o_11229_process_param_list_declaration(&(o_11260_param_list), &(o_11254_c_param_list)); /* line 2267 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11254_c_param_list))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2268 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2944] /* ")\n" */); /* line 2269 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 2270 "../prg/s7c.sd7" */ if (((o_11258_function_type) != (o_4736_proctype)) && /* line 2270 "../prg/s7c.sd7" */ ((o_11261_result_object) == (NULL))) { /* line 2271 "../prg/s7c.sd7" */ o_4941_process_expr(refBody(o_11252_function), &(o_11257_c_func_body)); /* line 2272 "../prg/s7c.sd7" */ if ((((((structType)(o_11254_c_param_list))->stru[3].value.striValue/*->o_4781_temp_decls*/)->size!=0 /* "" */)) || /* line 2272 "../prg/s7c.sd7" */ (((((structType)(o_11257_c_func_body))->stru[3].value.striValue/*->o_4781_temp_decls*/)->size!=0 /* "" */))) { /* line 2273 "../prg/s7c.sd7" */ strCopy(&(((structType)(*o_11253_c_expr))->stru[0].value.striValue/*->o_4778_currentFile*/), refFile(refBody(o_11252_function))); /* line 2274 "../prg/s7c.sd7" */ ((structType)(*o_11253_c_expr))->stru[1].value.intValue/*->o_4779_currentLine*/=refLine(refBody(o_11252_function)); /* line 2275 "../prg/s7c.sd7" */ o_4819_setDiagnosticLine(o_11253_c_expr); /* line 2276 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(&(o_11259_result_type))); /* line 2277 "../prg/s7c.sd7" */ if (typIsVarfunc(refType(o_11252_function))) { /* line 2278 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2981] /* " *result;\n" */); } else { /* line 2280 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2982] /* " result;\n" */); } /* line 2282 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11254_c_param_list))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_11253_c_expr); /* line 2283 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11257_c_func_body))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_11253_c_expr); /* line 2284 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11254_c_param_list))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_11253_c_expr); /* line 2285 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11257_c_func_body))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_11253_c_expr); /* line 2286 "../prg/s7c.sd7" */ o_4819_setDiagnosticLine(o_11253_c_expr); /* line 2287 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2983] /* "result=(" */); /* line 2288 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(&(o_11259_result_type))); /* line 2289 "../prg/s7c.sd7" */ if (typIsVarfunc(refType(o_11252_function))) { /* line 2290 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[306] /* " *" */); } /* line 2292 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[206] /* ")(" */); /* line 2293 "../prg/s7c.sd7" */ o_11243_process_return_value(o_11252_function, &(o_11259_result_type), o_11257_c_func_body, o_11253_c_expr); /* line 2294 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 2295 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11254_c_param_list))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_11253_c_expr); /* line 2296 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11257_c_func_body))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_11253_c_expr); /* line 2297 "../prg/s7c.sd7" */ o_4819_setDiagnosticLine(o_11253_c_expr); /* line 2298 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2947] /* "return result;\n" */); } else { /* line 2300 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(refBody(o_11252_function))); /* line 2301 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2984] /* "return (" */); /* line 2302 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(&(o_11259_result_type))); /* line 2303 "../prg/s7c.sd7" */ if (typIsVarfunc(refType(o_11252_function))) { /* line 2304 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[306] /* " *" */); } /* line 2306 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[206] /* ")(" */); /* line 2307 "../prg/s7c.sd7" */ o_11243_process_return_value(o_11252_function, &(o_11259_result_type), o_11257_c_func_body, o_11253_c_expr); /* line 2308 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } } else { /* line 2311 "../prg/s7c.sd7" */ o_11262_result_init=refResini(o_11252_function); /* line 2312 "../prg/s7c.sd7" */ o_11235_process_result_declaration(o_11261_result_object, o_11262_result_init, &(o_11255_c_result)); /* line 2313 "../prg/s7c.sd7" */ o_11070_process_local_var_declaration(o_11252_function, &(o_11256_c_local_vars)); /* line 2314 "../prg/s7c.sd7" */ o_4941_process_expr(refBody(o_11252_function), &(o_11257_c_func_body)); /* line 2315 "../prg/s7c.sd7" */ strCopy(&(((structType)(*o_11253_c_expr))->stru[0].value.striValue/*->o_4778_currentFile*/), refFile(o_11252_function)); /* line 2316 "../prg/s7c.sd7" */ ((structType)(*o_11253_c_expr))->stru[1].value.intValue/*->o_4779_currentLine*/=refLine(o_11252_function); /* line 2317 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11254_c_param_list))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_11253_c_expr); /* line 2318 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11255_c_result))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 2319 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11256_c_local_vars))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 2320 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11257_c_func_body))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_11253_c_expr); /* line 2321 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11254_c_param_list))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_11253_c_expr); /* line 2322 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11255_c_result))->stru[4].value.striValue/*->o_4782_temp_assigns*/); /* line 2323 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11256_c_local_vars))->stru[4].value.striValue/*->o_4782_temp_assigns*/); /* line 2324 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11257_c_func_body))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_11253_c_expr); /* line 2325 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11257_c_func_body))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2326 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11254_c_param_list))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_11253_c_expr); /* line 2327 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11256_c_local_vars))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_11253_c_expr); /* line 2328 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11257_c_func_body))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_11253_c_expr); /* line 2329 "../prg/s7c.sd7" */ o_11240_process_return(o_11261_result_object, o_11253_c_expr); } /* line 2331 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 2332 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4814_noDiagnosticLine()); /* line 2333 "../prg/s7c.sd7" */ { /* line 2333 "../prg/s7c.sd7" */ striType *tmp_1; /* line 2333 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2333 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2333 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '\n'); /* line 2333 "../prg/s7c.sd7" */ } else { /* line 2333 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 2333 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 2333 "../prg/s7c.sd7" */ } } /* line 2334 "../prg/s7c.sd7" */ if (o_4796_write_object_declaration) { /* line 2335 "../prg/s7c.sd7" */ o_4655/*@:=*/(&(o_4797_prototype_declared), &(o_11252_function), o_26_TRUE); /* line 2336 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11253_c_expr); } else { /* line 2338 "../prg/s7c.sd7" */ o_4652_excl(&(o_10970_function_declared), &(o_11252_function)); /* line 2339 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2985] /* "/* declare inline o_" */); /* line 2340 "../prg/s7c.sd7" */ o_5077_create_name2(o_11252_function, &(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 2341 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2986] /* "*\/\n\n" */); } } else { /* line 2344 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2985] /* "/* declare inline o_" */); /* line 2345 "../prg/s7c.sd7" */ o_5077_create_name2(o_11252_function, &(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 2346 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11253_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2986] /* "*\/\n\n" */); } /* line 2229 "../prg/s7c.sd7" */ destr_164(o_11254_c_param_list); /* line 2229 "../prg/s7c.sd7" */ destr_164(o_11255_c_result); /* line 2229 "../prg/s7c.sd7" */ destr_164(o_11256_c_local_vars); /* line 2229 "../prg/s7c.sd7" */ destr_164(o_11257_c_func_body); /* line 2229 "../prg/s7c.sd7" */ rflDestr(o_11260_param_list); } /* line 1 "no_file" */ /* 5040 */ /* line 2351 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11263_process_library_initialisation (const objRefType/*t_19_reference*/ o_11264_current_object, structType/*t_164_expr_type*/ *const o_11265_c_expr) { /* line 2355 "../prg/s7c.sd7" */ striType/*t_15_string*/ o_11266_libraryName; /* line 2355 "../prg/s7c.sd7" */ o_11266_libraryName=strEmpty(); /* "" */ /* line 2357 "../prg/s7c.sd7" */ strCopy(&(o_11266_libraryName), prgName(o_4739_prog)); /* line 2358 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11265_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2987] /* "void init_" */); /* line 2359 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11265_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_11266_libraryName); /* line 2360 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11265_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2988] /* " (void)\n" */); /* line 2361 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11265_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 2362 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11265_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2989] /* "init_values();\n" */); /* line 2363 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11265_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2990] /* "init_globals();\n" */); /* line 2364 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11265_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 2365 "../prg/s7c.sd7" */ { /* line 2365 "../prg/s7c.sd7" */ striType *tmp_1; /* line 2365 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11265_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2365 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2365 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '\n'); /* line 2365 "../prg/s7c.sd7" */ } else { /* line 2365 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 2365 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 2365 "../prg/s7c.sd7" */ } } /* line 2366 "../prg/s7c.sd7" */ o_4655/*@:=*/(&(o_4797_prototype_declared), &(o_11264_current_object), o_26_TRUE); /* line 2367 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11265_c_expr); /* line 2351 "../prg/s7c.sd7" */ strDestr(o_11266_libraryName); } /* line 1 "no_file" */ /* 5041 */ /* line 2371 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11267_process_main_declaration (const objRefType/*t_19_reference*/ o_11268_current_object, structType/*t_164_expr_type*/ *const o_11269_c_expr) { /* line 2375 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11270_c_local_vars; /* line 2376 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11271_c_func_body; /* line 2377 "../prg/s7c.sd7" */ striType/*t_15_string*/ o_11272_main_prolog; /* line 2378 "../prg/s7c.sd7" */ striType/*t_15_string*/ o_11273_main_epilog; /* line 2375 "../prg/s7c.sd7" */ o_11270_c_local_vars=create_164(sct[394]); /* line 2376 "../prg/s7c.sd7" */ o_11271_c_func_body=create_164(sct[395]); /* line 2377 "../prg/s7c.sd7" */ o_11272_main_prolog=strEmpty(); /* "" */ /* line 2378 "../prg/s7c.sd7" */ o_11273_main_epilog=strEmpty(); /* "" */ /* line 2380 "../prg/s7c.sd7" */ if ((refCategory(o_11268_current_object)) == (4L)) { /* line 2381 "../prg/s7c.sd7" */ o_4655/*@:=*/(&(o_10970_function_declared), &(o_11268_current_object), o_26_TRUE); /* line 2382 "../prg/s7c.sd7" */ o_11248_process_local_consts(o_11268_current_object, o_11269_c_expr); /* line 2383 "../prg/s7c.sd7" */ o_11070_process_local_var_declaration(o_11268_current_object, &(o_11270_c_local_vars)); /* line 2384 "../prg/s7c.sd7" */ o_4941_process_expr(refBody(o_11268_current_object), &(o_11271_c_func_body)); } else /* line 2385 "../prg/s7c.sd7" */ if ((refCategory(o_11268_current_object)) == (33L)) { /* line 2386 "../prg/s7c.sd7" */ o_4941_process_expr(o_11268_current_object, &(o_11271_c_func_body)); } /* line 2388 "../prg/s7c.sd7" */ strCopy(&(((structType)(*o_11269_c_expr))->stru[0].value.striValue/*->o_4778_currentFile*/), refFile(o_11268_current_object)); /* line 2389 "../prg/s7c.sd7" */ ((structType)(*o_11269_c_expr))->stru[1].value.intValue/*->o_4779_currentLine*/=refLine(o_11268_current_object); /* line 2390 "../prg/s7c.sd7" */ if (((structType)(sct[55]))->stru[18].value.boolValue/*->o_3396_USE_WMAIN*/) { /* line 2391 "../prg/s7c.sd7" */ strCopy(&(o_11272_main_prolog), &str[2991] /* "int wmain (int argc, wchar_t **argv)\n" */); } else /* line 2392 "../prg/s7c.sd7" */ if (((structType)(sct[55]))->stru[19].value.boolValue/*->o_3397_USE_WINMAIN*/) { /* line 2393 "../prg/s7c.sd7" */ strCopy(&(o_11272_main_prolog), &str[2992] /* "int WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance, char *lpCmdLine, int nShowCmd)\n" */); } else { /* line 2395 "../prg/s7c.sd7" */ strCopy(&(o_11272_main_prolog), &str[2993] /* "int main (int argc, char **argv)\n" */); } /* line 2397 "../prg/s7c.sd7" */ /* line 2397 "../prg/s7c.sd7" */ if (((o_11272_main_prolog))->size == ((o_11272_main_prolog))->capacity) { /* line 2397 "../prg/s7c.sd7" */ strPush(&((o_11272_main_prolog)), (charType) '\n'); /* line 2397 "../prg/s7c.sd7" */ } else { /* line 2397 "../prg/s7c.sd7" */ ((o_11272_main_prolog))->mem[((o_11272_main_prolog))->size]=(charType) '\n'; /* line 2397 "../prg/s7c.sd7" */ ((o_11272_main_prolog))->size++; /* line 2397 "../prg/s7c.sd7" */ } /* line 2398 "../prg/s7c.sd7" */ strAppend(&(o_11272_main_prolog), &str[168] /* "{\n" */); /* line 2399 "../prg/s7c.sd7" */ strAppend(&(o_11272_main_prolog), &str[1419] /* "int fail_value;\n" */); /* line 2400 "../prg/s7c.sd7" */ strAppend(&(o_11272_main_prolog), &str[2994] /* "catch_stack_pos = 0;\n" */); /* line 2401 "../prg/s7c.sd7" */ strAppend(&(o_11272_main_prolog), &str[2995] /* "max_catch_stack = 128;\n" */); /* line 2402 "../prg/s7c.sd7" */ strAppend(&(o_11272_main_prolog), &str[2996] /* "catch_stack = (catch_type *)(malloc(max_catch_stack * sizeof(catch_type)));\n" */); /* line 2403 "../prg/s7c.sd7" */ strAppend(&(o_11272_main_prolog), &str[2997] /* "if ((fail_value = do_setjmp(catch_stack[catch_stack_pos])) == 0) {\n" */); /* line 2404 "../prg/s7c.sd7" */ if (((structType)(sct[55]))->stru[19].value.boolValue/*->o_3397_USE_WINMAIN*/) { /* line 2405 "../prg/s7c.sd7" */ strAppend(&(o_11272_main_prolog), &str[2998] /* "arg_v = getArgv(0, NULL, &arg_0, &programName, &programPath);\n" */); } else { /* line 2407 "../prg/s7c.sd7" */ strAppend(&(o_11272_main_prolog), &str[2999] /* "arg_v = getArgv(argc, argv, &arg_0, &programName, &programPath);\n" */); } /* line 2409 "../prg/s7c.sd7" */ strAppend(&(o_11272_main_prolog), &str[3000] /* "setupStack();\n" */); /* line 2410 "../prg/s7c.sd7" */ strAppend(&(o_11272_main_prolog), &str[3001] /* "setupFloat();\n" */); /* line 2411 "../prg/s7c.sd7" */ strAppend(&(o_11272_main_prolog), &str[2989] /* "init_values();\n" */); /* line 2412 "../prg/s7c.sd7" */ strAppend(&(o_11272_main_prolog), &str[3002] /* "activate_signal_handlers();\n" */); /* line 2413 "../prg/s7c.sd7" */ strAppend(&(o_11272_main_prolog), &str[2990] /* "init_globals();\n" */); /* line 2414 "../prg/s7c.sd7" */ strAppend(&(o_11272_main_prolog), &str[168] /* "{\n" */); /* line 2416 "../prg/s7c.sd7" */ if (((structType)(sct[55]))->stru[19].value.boolValue/*->o_3397_USE_WINMAIN*/) { /* line 2417 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11269_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[151] /* "typedef struct {\n" */); /* line 2418 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11269_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3003] /* " int dummy;\n" */); /* line 2419 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11269_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3004] /* " } HINSTANCE__;\n" */); /* line 2420 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11269_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3005] /* "typedef HINSTANCE__* HINSTANCE;\n" */); /* line 2421 "../prg/s7c.sd7" */ { /* line 2421 "../prg/s7c.sd7" */ striType *tmp_1; /* line 2421 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11269_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2421 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2421 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '\n'); /* line 2421 "../prg/s7c.sd7" */ } else { /* line 2421 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 2421 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 2421 "../prg/s7c.sd7" */ } } } /* line 2423 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(o_11272_main_prolog, o_11269_c_expr); /* line 2424 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11269_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11270_c_local_vars))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 2425 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11271_c_func_body))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_11269_c_expr); /* line 2426 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11269_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11270_c_local_vars))->stru[4].value.striValue/*->o_4782_temp_assigns*/); /* line 2427 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11271_c_func_body))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_11269_c_expr); /* line 2428 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11269_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11271_c_func_body))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2429 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11270_c_local_vars))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_11269_c_expr); /* line 2430 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11271_c_func_body))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_11269_c_expr); /* line 2431 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11269_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 2432 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11269_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_10508_global_init))->stru[6].value.striValue/*->o_4784_temp_frees*/); /* line 2434 "../prg/s7c.sd7" */ strCopy(&(o_11273_main_epilog), &str[3006] /* "return 0;\n" */); /* line 2435 "../prg/s7c.sd7" */ strAppend(&(o_11273_main_epilog), &str[222] /* "} else {\n" */); /* line 2436 "../prg/s7c.sd7" */ strAppend(&(o_11273_main_epilog), &str[3007] /* " printf(\"\\n*** Uncaught EXCEPTION \");\n" */); /* line 2437 "../prg/s7c.sd7" */ strAppend(&(o_11273_main_epilog), &str[3008] /* " if (fail_value >= 0 && fail_value < sizeof(exception_name) / sizeof(char *)) {\n" */); /* line 2438 "../prg/s7c.sd7" */ strAppend(&(o_11273_main_epilog), &str[3009] /* " printf(\"%s\", exception_name[fail_value]);\n" */); /* line 2439 "../prg/s7c.sd7" */ strAppend(&(o_11273_main_epilog), &str[3010] /* " } else {\n" */); /* line 2440 "../prg/s7c.sd7" */ strAppend(&(o_11273_main_epilog), &str[3011] /* " printf(\"%d\", fail_value);\n" */); /* line 2441 "../prg/s7c.sd7" */ strAppend(&(o_11273_main_epilog), &str[3012] /* " }\n" */); /* line 2442 "../prg/s7c.sd7" */ strAppend(&(o_11273_main_epilog), &str[3013] /* " printf(\" raised\");\n" */); /* line 2443 "../prg/s7c.sd7" */ strAppend(&(o_11273_main_epilog), &str[3014] /* " if (error_file != NULL) {\n" */); /* line 2444 "../prg/s7c.sd7" */ strAppend(&(o_11273_main_epilog), &str[3015] /* " printf(\" at %s(%d)\", error_file, error_line);\n" */); /* line 2445 "../prg/s7c.sd7" */ strAppend(&(o_11273_main_epilog), &str[3012] /* " }\n" */); /* line 2446 "../prg/s7c.sd7" */ strAppend(&(o_11273_main_epilog), &str[3016] /* " printf(\"\\n\");\n" */); /* line 2447 "../prg/s7c.sd7" */ strAppend(&(o_11273_main_epilog), &str[3017] /* " return 1;\n" */); /* line 2448 "../prg/s7c.sd7" */ strAppend(&(o_11273_main_epilog), &str[175] /* "}\n" */); /* line 2449 "../prg/s7c.sd7" */ strAppend(&(o_11273_main_epilog), &str[175] /* "}\n" */); /* line 2451 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(o_11273_main_epilog, o_11269_c_expr); /* line 2452 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11269_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4814_noDiagnosticLine()); /* line 2453 "../prg/s7c.sd7" */ { /* line 2453 "../prg/s7c.sd7" */ striType *tmp_1; /* line 2453 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11269_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2453 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2453 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '\n'); /* line 2453 "../prg/s7c.sd7" */ } else { /* line 2453 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 2453 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 2453 "../prg/s7c.sd7" */ } } /* line 2454 "../prg/s7c.sd7" */ o_4655/*@:=*/(&(o_4797_prototype_declared), &(o_11268_current_object), o_26_TRUE); /* line 2455 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11269_c_expr); /* line 2371 "../prg/s7c.sd7" */ destr_164(o_11270_c_local_vars); /* line 2371 "../prg/s7c.sd7" */ destr_164(o_11271_c_func_body); /* line 2371 "../prg/s7c.sd7" */ strDestr(o_11272_main_prolog); /* line 2371 "../prg/s7c.sd7" */ strDestr(o_11273_main_epilog); } /* line 1 "no_file" */ /* 5042 */ /* line 2459 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11274_process_var_func_declaration (const objRefType/*t_19_reference*/ o_11275_function, structType/*t_164_expr_type*/ *const o_11276_c_expr) { /* line 2463 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11277_c_value; /* line 2464 "../prg/s7c.sd7" */ striType/*t_15_string*/ o_11278_valueName; /* line 2463 "../prg/s7c.sd7" */ o_11277_c_value=create_164(sct[396]); /* line 2464 "../prg/s7c.sd7" */ o_11278_valueName=strEmpty(); /* "" */ { /* line 2466 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 2466 "../prg/s7c.sd7" */ o_4801_declare_type_if_necessary(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_11275_function)), &tmp_1), &(o_4794_global_c_expr)); } /* line 2467 "../prg/s7c.sd7" */ o_5082_create_name(o_11275_function, refNum(o_11275_function), &(o_11278_valueName)); { /* line 2468 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 2468 "../prg/s7c.sd7" */ o_9142_processFuncValue(o_11278_valueName, /* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_11275_function)), &tmp_1), o_11275_function, &(o_11277_c_value)); } /* line 2469 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11276_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11277_c_value))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 2470 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_11275_function)); /* line 2471 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11277_c_value))->stru[4].value.striValue/*->o_4782_temp_assigns*/); { /* line 2472 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 2472 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11276_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(refType(o_11275_function)), &tmp_2))); } /* line 2473 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11276_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2893] /* " o_" */); /* line 2474 "../prg/s7c.sd7" */ o_5072_create_name(o_11275_function, &(((structType)(*o_11276_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 2475 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11276_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1437] /* " = " */); /* line 2476 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11276_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11277_c_value))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2477 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11276_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[158] /* ";\n\n" */); /* line 2478 "../prg/s7c.sd7" */ o_4655/*@:=*/(&(o_10970_function_declared), &(o_11275_function), o_26_TRUE); /* line 2459 "../prg/s7c.sd7" */ destr_164(o_11277_c_value); /* line 2459 "../prg/s7c.sd7" */ strDestr(o_11278_valueName); } /* line 1 "no_file" */ /* 5043 */ /* line 2482 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11279_process_func_declaration (const objRefType/*t_19_reference*/ o_11280_function, structType/*t_164_expr_type*/ *const o_11281_c_expr) { /* line 2486 "../prg/s7c.sd7" */ if (refIsVar(o_11280_function)) { /* line 2487 "../prg/s7c.sd7" */ o_11274_process_var_func_declaration(o_11280_function, o_11281_c_expr); } else { /* line 2489 "../prg/s7c.sd7" */ o_11251_process_const_func_declaration(o_11280_function, o_11281_c_expr); } } /* line 1 "no_file" */ /* 5044 */ /* line 2494 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11196_process_prototype_declaration (const objRefType/*t_19_reference*/ o_11197_current_object, structType/*t_164_expr_type*/ *const o_11198_c_expr) { /* line 2498 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11282_c_param_list; /* line 2499 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11283_current_type=typ[0] /* void/t_1_void */; /* line 2500 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11284_result_type=typ[0] /* void/t_1_void */; /* line 2501 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11285_param_list=NULL; /* line 2498 "../prg/s7c.sd7" */ o_11282_c_param_list=create_164(sct[397]); /* line 2503 "../prg/s7c.sd7" */ o_11283_current_type=refType(o_11197_current_object); /* line 2504 "../prg/s7c.sd7" */ if ((typIsFunc(o_11283_current_type)) || /* line 2504 "../prg/s7c.sd7" */ (typIsVarfunc(o_11283_current_type))) { /* line 2505 "../prg/s7c.sd7" */ o_11284_result_type=typResult(o_11283_current_type); /* line 2506 "../prg/s7c.sd7" */ rflCpy(&(o_11285_param_list), refParams(o_11197_current_object)); /* line 2507 "../prg/s7c.sd7" */ o_4655/*@:=*/(&(o_10970_function_declared), &(o_11197_current_object), o_26_TRUE); /* line 2508 "../prg/s7c.sd7" */ o_11219_declare_types_of_params(&(o_11285_param_list), &(o_4794_global_c_expr)); /* line 2509 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11198_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[208] /* "static " */); /* line 2510 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11198_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(&(o_11284_result_type))); /* line 2511 "../prg/s7c.sd7" */ if (typIsVarfunc(o_11283_current_type)) { /* line 2512 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11198_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3018] /* " *o_" */); } else { /* line 2514 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11198_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2893] /* " o_" */); } /* line 2516 "../prg/s7c.sd7" */ o_5072_create_name(o_11197_current_object, &(((structType)(*o_11198_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 2517 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11198_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[177] /* " (" */); /* line 2518 "../prg/s7c.sd7" */ o_11229_process_param_list_declaration(&(o_11285_param_list), &(o_11282_c_param_list)); /* line 2519 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11198_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11282_c_param_list))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2520 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11198_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[195] /* ");\n\n" */); } else { /* line 2522 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11198_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2145] /* "extern " */); /* line 2523 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11198_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(&(o_11283_current_type))); /* line 2524 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11198_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2893] /* " o_" */); /* line 2525 "../prg/s7c.sd7" */ o_5072_create_name(o_11197_current_object, &(((structType)(*o_11198_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 2526 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11198_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[158] /* ";\n\n" */); } /* line 2494 "../prg/s7c.sd7" */ destr_164(o_11282_c_param_list); /* line 2494 "../prg/s7c.sd7" */ rflDestr(o_11285_param_list); } /* line 1 "no_file" */ /* 5045 */ /* line 2531 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11286_process_forward_declaration (const objRefType/*t_19_reference*/ o_11287_fwd_ref, structType/*t_164_expr_type*/ *const o_11288_c_expr) { /* line 2535 "../prg/s7c.sd7" */ o_11196_process_prototype_declaration(refValue(o_11287_fwd_ref), o_11288_c_expr); } /* line 1 "no_file" */ /* 5046 */ /* line 2539 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11289_process_type_declaration (const objRefType/*t_19_reference*/ o_11290_current_object, structType/*t_164_expr_type*/ *const o_11291_c_expr) { /* line 2543 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11292_aType=typ[0] /* void/t_1_void */; /* line 2545 "../prg/s7c.sd7" */ if (refIsVar(o_11290_current_object)) { /* line 2546 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11291_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3019] /* "typeType o_" */); /* line 2547 "../prg/s7c.sd7" */ o_5072_create_name(o_11290_current_object, &(((structType)(*o_11291_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 2548 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11291_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[158] /* ";\n\n" */); /* line 2549 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_11290_current_object)); /* line 2550 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 2551 "../prg/s7c.sd7" */ o_5072_create_name(o_11290_current_object, &(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 2552 "../prg/s7c.sd7" */ { /* line 2552 "../prg/s7c.sd7" */ striType *tmp_1; /* line 2552 "../prg/s7c.sd7" */ tmp_1=&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2552 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2552 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 2552 "../prg/s7c.sd7" */ } else { /* line 2552 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 2552 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 2552 "../prg/s7c.sd7" */ } } { /* line 2553 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 2553 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), o_6516_typeLiteral(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(typValue(o_11290_current_object)), &tmp_2))); } /* line 2554 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); } else { /* line 2556 "../prg/s7c.sd7" */ o_11292_aType=typValue(o_11290_current_object); /* line 2557 "../prg/s7c.sd7" */ o_4801_declare_type_if_necessary(&(o_11292_aType), o_11291_c_expr); } /* line 2559 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11291_c_expr); } /* line 1 "no_file" */ /* 5047 */ /* line 2563 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11293_process_int_declaration (const objRefType/*t_19_reference*/ o_11294_current_object, structType/*t_164_expr_type*/ *const o_11295_c_expr) { /* line 2567 "../prg/s7c.sd7" */ if (refIsVar(o_11294_current_object)) { /* line 2568 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11295_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3020] /* "intType o_" */); /* line 2569 "../prg/s7c.sd7" */ o_5072_create_name(o_11294_current_object, &(((structType)(*o_11295_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 2570 "../prg/s7c.sd7" */ { /* line 2570 "../prg/s7c.sd7" */ striType *tmp_1; /* line 2570 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11295_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2570 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2570 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 2570 "../prg/s7c.sd7" */ } else { /* line 2570 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 2570 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 2570 "../prg/s7c.sd7" */ } } /* line 2571 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11295_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6502_integerLiteral(intValue(o_11294_current_object))); /* line 2572 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11295_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[158] /* ";\n\n" */); /* line 2573 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11295_c_expr); } } /* line 1 "no_file" */ /* 5048 */ /* line 2578 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11296_process_bigint_declaration (const objRefType/*t_19_reference*/ o_11297_current_object, structType/*t_164_expr_type*/ *const o_11298_c_expr) { /* line 2582 "../prg/s7c.sd7" */ if (refIsVar(o_11297_current_object)) { /* line 2583 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11298_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3021] /* "bigIntType o_" */); /* line 2584 "../prg/s7c.sd7" */ o_5072_create_name(o_11297_current_object, &(((structType)(*o_11298_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 2585 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11298_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[158] /* ";\n\n" */); /* line 2586 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_11297_current_object)); /* line 2587 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 2588 "../prg/s7c.sd7" */ o_5072_create_name(o_11297_current_object, &(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 2589 "../prg/s7c.sd7" */ { /* line 2589 "../prg/s7c.sd7" */ striType *tmp_1; /* line 2589 "../prg/s7c.sd7" */ tmp_1=&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2589 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2589 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 2589 "../prg/s7c.sd7" */ } else { /* line 2589 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 2589 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 2589 "../prg/s7c.sd7" */ } } { /* line 2590 "../prg/s7c.sd7" */ bigIntType tmp_1 = NULL; /* line 2590 "../prg/s7c.sd7" */ o_10995_process_big_create_call((tmp_1=bigValue(o_11297_current_object)), &(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 2590 "../prg/s7c.sd7" */ bigDestr(tmp_1); } /* line 2591 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11298_c_expr); } } /* line 1 "no_file" */ /* 5049 */ /* line 2596 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11299_process_char_declaration (const objRefType/*t_19_reference*/ o_11300_current_object, structType/*t_164_expr_type*/ *const o_11301_c_expr) { /* line 2600 "../prg/s7c.sd7" */ if (refIsVar(o_11300_current_object)) { /* line 2601 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11301_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3022] /* "charType o_" */); /* line 2602 "../prg/s7c.sd7" */ o_5072_create_name(o_11300_current_object, &(((structType)(*o_11301_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 2603 "../prg/s7c.sd7" */ { /* line 2603 "../prg/s7c.sd7" */ striType *tmp_1; /* line 2603 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11301_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2603 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2603 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 2603 "../prg/s7c.sd7" */ } else { /* line 2603 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 2603 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 2603 "../prg/s7c.sd7" */ } } /* line 2604 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11301_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6500_charLiteral(chrValue(o_11300_current_object))); /* line 2605 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11301_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[158] /* ";\n\n" */); /* line 2606 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11301_c_expr); } } /* line 1 "no_file" */ /* 5050 */ /* line 2611 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11302_process_stri_declaration (const objRefType/*t_19_reference*/ o_11303_current_object, structType/*t_164_expr_type*/ *const o_11304_c_expr) { /* line 2615 "../prg/s7c.sd7" */ if (refIsVar(o_11303_current_object)) { /* line 2616 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11304_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3023] /* "striType o_" */); /* line 2617 "../prg/s7c.sd7" */ o_5072_create_name(o_11303_current_object, &(((structType)(*o_11304_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 2618 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11304_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[158] /* ";\n\n" */); /* line 2619 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_11303_current_object)); /* line 2620 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 2621 "../prg/s7c.sd7" */ o_5072_create_name(o_11303_current_object, &(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 2622 "../prg/s7c.sd7" */ { /* line 2622 "../prg/s7c.sd7" */ striType *tmp_1; /* line 2622 "../prg/s7c.sd7" */ tmp_1=&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2622 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2622 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 2622 "../prg/s7c.sd7" */ } else { /* line 2622 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 2622 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 2622 "../prg/s7c.sd7" */ } } { /* line 2623 "../prg/s7c.sd7" */ striType tmp_1 = NULL; /* line 2623 "../prg/s7c.sd7" */ o_10998_process_str_create_call((tmp_1=strValue(o_11303_current_object)), &(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 2623 "../prg/s7c.sd7" */ strDestr(tmp_1); } /* line 2624 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11304_c_expr); } } /* line 1 "no_file" */ /* 5051 */ /* line 2629 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11305_process_bstri_declaration (const objRefType/*t_19_reference*/ o_11306_current_object, structType/*t_164_expr_type*/ *const o_11307_c_expr) { /* line 2633 "../prg/s7c.sd7" */ if (refIsVar(o_11306_current_object)) { /* line 2634 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11307_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3024] /* "bstriType o_" */); /* line 2635 "../prg/s7c.sd7" */ o_5072_create_name(o_11306_current_object, &(((structType)(*o_11307_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 2636 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11307_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[158] /* ";\n\n" */); /* line 2637 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_11306_current_object)); /* line 2638 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 2639 "../prg/s7c.sd7" */ o_5072_create_name(o_11306_current_object, &(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 2640 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), &str[2901] /* "=bstCreate(" */); { /* line 2641 "../prg/s7c.sd7" */ bstriType tmp_2 = NULL; /* line 2641 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), o_6497_bstriLiteral((tmp_2=bstValue(o_11306_current_object)))); /* line 2641 "../prg/s7c.sd7" */ bstDestr(tmp_2); } /* line 2642 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 2643 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11307_c_expr); } } /* line 1 "no_file" */ /* 5052 */ /* line 2648 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11308_process_float_declaration (const objRefType/*t_19_reference*/ o_11309_current_object, structType/*t_164_expr_type*/ *const o_11310_c_expr) { /* line 2652 "../prg/s7c.sd7" */ if (refIsVar(o_11309_current_object)) { /* line 2653 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11310_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3025] /* "floatType o_" */); /* line 2654 "../prg/s7c.sd7" */ o_5072_create_name(o_11309_current_object, &(((structType)(*o_11310_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 2655 "../prg/s7c.sd7" */ { /* line 2655 "../prg/s7c.sd7" */ striType *tmp_1; /* line 2655 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11310_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2655 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2655 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 2655 "../prg/s7c.sd7" */ } else { /* line 2655 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 2655 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 2655 "../prg/s7c.sd7" */ } } /* line 2656 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11310_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_6511_floatLiteral(fltValue(o_11309_current_object))); /* line 2657 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11310_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[158] /* ";\n\n" */); /* line 2658 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11310_c_expr); } } /* line 1 "no_file" */ /* 5053 */ /* line 2663 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11311_action_address (const objRefType/*t_19_reference*/ o_11312_function, structType/*t_164_expr_type*/ *const o_11313_c_expr) { /* line 2666 "../prg/s7c.sd7" */ actType/*t_5_ACTION*/ o_11314_current_action=NULL; /* line 2667 "../prg/s7c.sd7" */ striType/*t_15_string*/ o_11315_action_name; /* line 2668 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11316_object_type=typ[0] /* void/t_1_void */; /* line 2667 "../prg/s7c.sd7" */ o_11315_action_name=strEmpty(); /* "" */ /* line 2670 "../prg/s7c.sd7" */ o_11314_current_action=actValue(o_11312_function); { /* line 2671 "../prg/s7c.sd7" */ striType old_stri=o_11315_action_name; /* line 2671 "../prg/s7c.sd7" */ o_11315_action_name=actStr(o_11314_current_action); /* line 2671 "../prg/s7c.sd7" */ strDestr(old_stri); } /* line 2672 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2165] /* "ARR_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 2673 "../prg/s7c.sd7" */ o_11316_object_type=refType(rflIdx(refParams(o_11312_function), 1L)); /* line 2674 "../prg/s7c.sd7" */ o_10982_process_generic_cpy_declaration(&(o_11316_object_type), &(o_4794_global_c_expr)); /* line 2675 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3026] /* "&generic_cpy_" */); { /* line 2676 "../prg/s7c.sd7" */ union { /* line 2676 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 2676 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2676 "../prg/s7c.sd7" */ } buffer_1; /* line 2676 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(o_11316_object_type), &buffer_1.striBuf)); } } else /* line 2677 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==10&&memcmp((o_11315_action_name)->mem,(&str[2166] /* "ARR_CREATE" */)->mem,10*sizeof(strElemType))==0)) { /* line 2678 "../prg/s7c.sd7" */ o_11316_object_type=refType(rflIdx(refParams(o_11312_function), 1L)); /* line 2679 "../prg/s7c.sd7" */ o_3785/*@:=*/(&(o_4414_typeCategory), &(o_11316_object_type), 14L); /* line 2680 "../prg/s7c.sd7" */ o_10985_process_generic_create_declaration(&(o_11316_object_type), &(o_4794_global_c_expr)); /* line 2681 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3027] /* "&generic_create_" */); { /* line 2682 "../prg/s7c.sd7" */ union { /* line 2682 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 2682 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2682 "../prg/s7c.sd7" */ } buffer_1; /* line 2682 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(o_11316_object_type), &buffer_1.striBuf)); } } else /* line 2683 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==9&&memcmp((o_11315_action_name)->mem,(&str[2167] /* "ARR_DESTR" */)->mem,9*sizeof(strElemType))==0)) { /* line 2684 "../prg/s7c.sd7" */ o_11316_object_type=refType(rflIdx(refParams(o_11312_function), 1L)); /* line 2685 "../prg/s7c.sd7" */ o_10988_process_generic_destr_declaration(&(o_11316_object_type), &(o_4794_global_c_expr)); /* line 2686 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3028] /* "&generic_destr_" */); { /* line 2687 "../prg/s7c.sd7" */ union { /* line 2687 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 2687 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2687 "../prg/s7c.sd7" */ } buffer_1; /* line 2687 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(o_11316_object_type), &buffer_1.striBuf)); } } else /* line 2688 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2186] /* "BIG_CMP" */)->mem,7*sizeof(strElemType))==0)) { /* line 2689 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3029] /* "&bigCmpGeneric" */); } else /* line 2690 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2188] /* "BIG_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 2691 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3030] /* "&bigCpyGeneric" */); } else /* line 2692 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==10&&memcmp((o_11315_action_name)->mem,(&str[3031] /* "BIG_CREATE" */)->mem,10*sizeof(strElemType))==0)) { /* line 2693 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3032] /* "&bigCreateGeneric" */); } else /* line 2694 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==9&&memcmp((o_11315_action_name)->mem,(&str[3033] /* "BIG_DESTR" */)->mem,9*sizeof(strElemType))==0)) { /* line 2695 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3034] /* "&bigDestrGeneric" */); } else /* line 2696 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2238] /* "BLN_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 2697 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3035] /* "&genericCpy" */); } else /* line 2698 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==10&&memcmp((o_11315_action_name)->mem,(&str[3036] /* "BLN_CREATE" */)->mem,10*sizeof(strElemType))==0)) { /* line 2699 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3037] /* "&genericCreate" */); } else /* line 2700 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2251] /* "BST_CMP" */)->mem,7*sizeof(strElemType))==0)) { /* line 2701 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3038] /* "&bstCmpGeneric" */); } else /* line 2702 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2252] /* "BST_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 2703 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3039] /* "&bstCpyGeneric" */); } else /* line 2704 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==10&&memcmp((o_11315_action_name)->mem,(&str[3040] /* "BST_CREATE" */)->mem,10*sizeof(strElemType))==0)) { /* line 2705 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3041] /* "&bstCreateGeneric" */); } else /* line 2706 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==9&&memcmp((o_11315_action_name)->mem,(&str[3042] /* "BST_DESTR" */)->mem,9*sizeof(strElemType))==0)) { /* line 2707 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3043] /* "&bstDestrGeneric" */); } else /* line 2708 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2264] /* "CHR_CMP" */)->mem,7*sizeof(strElemType))==0)) { /* line 2709 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3044] /* "&chrCmpGeneric" */); } else /* line 2710 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2266] /* "CHR_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 2711 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3035] /* "&genericCpy" */); } else /* line 2712 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==10&&memcmp((o_11315_action_name)->mem,(&str[3045] /* "CHR_CREATE" */)->mem,10*sizeof(strElemType))==0)) { /* line 2713 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3037] /* "&genericCreate" */); } else /* line 2714 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2341] /* "DRW_CMP" */)->mem,7*sizeof(strElemType))==0)) { /* line 2715 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3046] /* "&ptrCmpGeneric" */); } else /* line 2716 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2344] /* "DRW_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 2717 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3047] /* "&drwCpyGeneric" */); } else /* line 2718 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==10&&memcmp((o_11315_action_name)->mem,(&str[3048] /* "DRW_CREATE" */)->mem,10*sizeof(strElemType))==0)) { /* line 2719 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3049] /* "&drwCreateGeneric" */); } else /* line 2720 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==9&&memcmp((o_11315_action_name)->mem,(&str[3050] /* "DRW_DESTR" */)->mem,9*sizeof(strElemType))==0)) { /* line 2721 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3051] /* "&drwDestrGeneric" */); } else /* line 2722 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2394] /* "ENU_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 2723 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3035] /* "&genericCpy" */); } else /* line 2724 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==10&&memcmp((o_11315_action_name)->mem,(&str[3052] /* "ENU_CREATE" */)->mem,10*sizeof(strElemType))==0)) { /* line 2725 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3037] /* "&genericCreate" */); } else /* line 2726 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2440] /* "FLT_CMP" */)->mem,7*sizeof(strElemType))==0)) { /* line 2727 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3053] /* "&fltCmpGeneric" */); } else /* line 2728 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2443] /* "FLT_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 2729 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3054] /* "&fltCpyGeneric" */); } else /* line 2730 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==10&&memcmp((o_11315_action_name)->mem,(&str[3055] /* "FLT_CREATE" */)->mem,10*sizeof(strElemType))==0)) { /* line 2731 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3037] /* "&genericCreate" */); } else /* line 2732 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==9&&memcmp((o_11315_action_name)->mem,(&str[3056] /* "GEN_DESTR" */)->mem,9*sizeof(strElemType))==0)) { /* line 2733 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3057] /* "&genericDestr" */); } else /* line 2734 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2522] /* "INT_CMP" */)->mem,7*sizeof(strElemType))==0)) { /* line 2735 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3058] /* "&intCmpGeneric" */); } else /* line 2736 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2524] /* "INT_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 2737 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3035] /* "&genericCpy" */); } else /* line 2738 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==10&&memcmp((o_11315_action_name)->mem,(&str[3059] /* "INT_CREATE" */)->mem,10*sizeof(strElemType))==0)) { /* line 2739 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3037] /* "&genericCreate" */); } else /* line 2740 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2574] /* "ITF_CMP" */)->mem,7*sizeof(strElemType))==0)) { /* line 2741 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3046] /* "&ptrCmpGeneric" */); } else /* line 2742 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2576] /* "ITF_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 2743 "../prg/s7c.sd7" */ o_11316_object_type=refType(rflIdx(refParams(o_11312_function), 1L)); /* line 2744 "../prg/s7c.sd7" */ o_10982_process_generic_cpy_declaration(&(o_11316_object_type), &(o_4794_global_c_expr)); /* line 2745 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3026] /* "&generic_cpy_" */); { /* line 2746 "../prg/s7c.sd7" */ union { /* line 2746 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 2746 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2746 "../prg/s7c.sd7" */ } buffer_1; /* line 2746 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(o_11316_object_type), &buffer_1.striBuf)); } } else /* line 2747 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==10&&memcmp((o_11315_action_name)->mem,(&str[3060] /* "ITF_CREATE" */)->mem,10*sizeof(strElemType))==0)) { /* line 2748 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3061] /* "&itfCreateGeneric" */); } else /* line 2749 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==9&&memcmp((o_11315_action_name)->mem,(&str[3062] /* "ITF_DESTR" */)->mem,9*sizeof(strElemType))==0)) { /* line 2750 "../prg/s7c.sd7" */ o_11316_object_type=refType(rflIdx(refParams(o_11312_function), 1L)); /* line 2751 "../prg/s7c.sd7" */ o_10988_process_generic_destr_declaration(&(o_11316_object_type), &(o_4794_global_c_expr)); /* line 2752 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3028] /* "&generic_destr_" */); { /* line 2753 "../prg/s7c.sd7" */ union { /* line 2753 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 2753 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2753 "../prg/s7c.sd7" */ } buffer_1; /* line 2753 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(o_11316_object_type), &buffer_1.striBuf)); } } else /* line 2754 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==8&&memcmp((o_11315_action_name)->mem,(&str[2618] /* "PRC_NOOP" */)->mem,8*sizeof(strElemType))==0)) { /* line 2755 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3063] /* "&prcNoop" */); } else /* line 2756 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2651] /* "REF_CMP" */)->mem,7*sizeof(strElemType))==0)) { /* line 2757 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3046] /* "&ptrCmpGeneric" */); } else /* line 2758 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2653] /* "REF_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 2759 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3064] /* "&ptrCpyGeneric" */); } else /* line 2760 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==10&&memcmp((o_11315_action_name)->mem,(&str[3065] /* "REF_CREATE" */)->mem,10*sizeof(strElemType))==0)) { /* line 2761 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3066] /* "&ptrCreateGeneric" */); } else /* line 2762 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[3067] /* "RFL_CMP" */)->mem,7*sizeof(strElemType))==0)) { /* line 2763 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3068] /* "&rflCmpGeneric" */); } else /* line 2764 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2684] /* "RFL_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 2765 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3069] /* "&rflCpyGeneric" */); } else /* line 2766 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==10&&memcmp((o_11315_action_name)->mem,(&str[3070] /* "RFL_CREATE" */)->mem,10*sizeof(strElemType))==0)) { /* line 2767 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3071] /* "&rflCreateGeneric" */); } else /* line 2768 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==9&&memcmp((o_11315_action_name)->mem,(&str[3072] /* "RFL_DESTR" */)->mem,9*sizeof(strElemType))==0)) { /* line 2769 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3073] /* "&rflDestrGeneric" */); } else /* line 2770 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2704] /* "SCT_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 2771 "../prg/s7c.sd7" */ o_11316_object_type=refType(rflIdx(refParams(o_11312_function), 1L)); /* line 2772 "../prg/s7c.sd7" */ o_10982_process_generic_cpy_declaration(&(o_11316_object_type), &(o_4794_global_c_expr)); /* line 2773 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3026] /* "&generic_cpy_" */); { /* line 2774 "../prg/s7c.sd7" */ union { /* line 2774 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 2774 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2774 "../prg/s7c.sd7" */ } buffer_1; /* line 2774 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(o_11316_object_type), &buffer_1.striBuf)); } } else /* line 2775 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==10&&memcmp((o_11315_action_name)->mem,(&str[3074] /* "SCT_CREATE" */)->mem,10*sizeof(strElemType))==0)) { /* line 2776 "../prg/s7c.sd7" */ o_11316_object_type=refType(rflIdx(refParams(o_11312_function), 1L)); /* line 2777 "../prg/s7c.sd7" */ o_3785/*@:=*/(&(o_4414_typeCategory), &(o_11316_object_type), 16L); /* line 2778 "../prg/s7c.sd7" */ o_10985_process_generic_create_declaration(&(o_11316_object_type), &(o_4794_global_c_expr)); /* line 2779 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3027] /* "&generic_create_" */); { /* line 2780 "../prg/s7c.sd7" */ union { /* line 2780 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 2780 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2780 "../prg/s7c.sd7" */ } buffer_1; /* line 2780 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(o_11316_object_type), &buffer_1.striBuf)); } } else /* line 2781 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==9&&memcmp((o_11315_action_name)->mem,(&str[3075] /* "SCT_DESTR" */)->mem,9*sizeof(strElemType))==0)) { /* line 2782 "../prg/s7c.sd7" */ o_11316_object_type=refType(rflIdx(refParams(o_11312_function), 1L)); /* line 2783 "../prg/s7c.sd7" */ o_10988_process_generic_destr_declaration(&(o_11316_object_type), &(o_4794_global_c_expr)); /* line 2784 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3028] /* "&generic_destr_" */); { /* line 2785 "../prg/s7c.sd7" */ union { /* line 2785 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 2785 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2785 "../prg/s7c.sd7" */ } buffer_1; /* line 2785 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(o_11316_object_type), &buffer_1.striBuf)); } } else /* line 2786 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2710] /* "SET_CMP" */)->mem,7*sizeof(strElemType))==0)) { /* line 2787 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3076] /* "&setCmpGeneric" */); } else /* line 2788 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2712] /* "SET_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 2789 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3077] /* "&setCpyGeneric" */); } else /* line 2790 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==10&&memcmp((o_11315_action_name)->mem,(&str[3078] /* "SET_CREATE" */)->mem,10*sizeof(strElemType))==0)) { /* line 2791 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3079] /* "&setCreateGeneric" */); } else /* line 2792 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==9&&memcmp((o_11315_action_name)->mem,(&str[3080] /* "SET_DESTR" */)->mem,9*sizeof(strElemType))==0)) { /* line 2793 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3081] /* "&setDestrGeneric" */); } else /* line 2794 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2801] /* "STR_CMP" */)->mem,7*sizeof(strElemType))==0)) { /* line 2795 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3082] /* "&strCmpGeneric" */); } else /* line 2796 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2802] /* "STR_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 2797 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3083] /* "&strCpyGeneric" */); } else /* line 2798 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==10&&memcmp((o_11315_action_name)->mem,(&str[3084] /* "STR_CREATE" */)->mem,10*sizeof(strElemType))==0)) { /* line 2799 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3085] /* "&strCreateGeneric" */); } else /* line 2800 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==9&&memcmp((o_11315_action_name)->mem,(&str[3086] /* "STR_DESTR" */)->mem,9*sizeof(strElemType))==0)) { /* line 2801 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3087] /* "&strDestrGeneric" */); } else /* line 2802 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2847] /* "TYP_CMP" */)->mem,7*sizeof(strElemType))==0)) { /* line 2803 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3088] /* "&typCmpGeneric" */); } else /* line 2804 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==7&&memcmp((o_11315_action_name)->mem,(&str[2848] /* "TYP_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 2805 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3064] /* "&ptrCpyGeneric" */); } else /* line 2806 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==10&&memcmp((o_11315_action_name)->mem,(&str[3089] /* "TYP_CREATE" */)->mem,10*sizeof(strElemType))==0)) { /* line 2807 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3066] /* "&ptrCreateGeneric" */); } else /* line 2808 "../prg/s7c.sd7" */ if (((o_11315_action_name)->size==9&&memcmp((o_11315_action_name)->mem,(&str[3090] /* "TYP_DESTR" */)->mem,9*sizeof(strElemType))==0)) { /* line 2809 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3057] /* "&genericDestr" */); } else { /* line 2811 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3091] /* "NULL /* ACTOBJECT { " */); /* line 2812 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_11315_action_name); /* line 2813 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11313_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2148] /* " }*\/" */); } /* line 2663 "../prg/s7c.sd7" */ strDestr(o_11315_action_name); } /* line 1 "no_file" */ /* 5054 */ /* line 2818 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11317_block_address (const objRefType/*t_19_reference*/ o_11318_function, structType/*t_164_expr_type*/ *const o_11319_c_expr) { /* line 2821 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11320_formal_params=NULL; /* line 2822 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11321_formal_param=NULL; /* line 2823 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11322_object_type=typ[0] /* void/t_1_void */; /* line 2824 "../prg/s7c.sd7" */ boolType/*t_13_boolean*/ o_11323_address_written=0/*FALSE*/; /* line 2826 "../prg/s7c.sd7" */ rflCpy(&(o_11320_formal_params), refParams(o_11318_function)); { /* line 2827 "../prg/s7c.sd7" */ const_striType tmp_1; /* line 2827 "../prg/s7c.sd7" */ striType tmp_2 = NULL; /* line 2827 "../prg/s7c.sd7" */ if (((rflLng(o_11320_formal_params)) == (3L)) && /* line 2827 "../prg/s7c.sd7" */ ((refCategory(rflIdx(o_11320_formal_params, 2L))) == (0L)) && /* line 2828 "../prg/s7c.sd7" */ ((tmp_1=(tmp_2=refStr(rflIdx(o_11320_formal_params, 2L))),tmp_1->size==2&&memcmp(tmp_1->mem,(&str[3092] /* ":=" */)->mem,2*sizeof(strElemType))==0))) { /* line 2829 "../prg/s7c.sd7" */ o_11321_formal_param=rflIdx(o_11320_formal_params, 1L); /* line 2830 "../prg/s7c.sd7" */ o_11322_object_type=refType(o_11321_formal_param); /* line 2831 "../prg/s7c.sd7" */ o_10982_process_generic_cpy_declaration(&(o_11322_object_type), &(o_4794_global_c_expr)); /* line 2832 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11319_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3026] /* "&generic_cpy_" */); { /* line 2833 "../prg/s7c.sd7" */ union { /* line 2833 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 2833 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2833 "../prg/s7c.sd7" */ } buffer_1; /* line 2833 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11319_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(o_11322_object_type), &buffer_1.striBuf)); } /* line 2834 "../prg/s7c.sd7" */ o_11323_address_written=o_26_TRUE; } else { /* line 2835 "../prg/s7c.sd7" */ const_striType tmp_1; /* line 2835 "../prg/s7c.sd7" */ striType tmp_2 = NULL; /* line 2835 "../prg/s7c.sd7" */ if (((rflLng(o_11320_formal_params)) == (3L)) && /* line 2835 "../prg/s7c.sd7" */ ((refCategory(rflIdx(o_11320_formal_params, 2L))) == (0L)) && /* line 2836 "../prg/s7c.sd7" */ ((tmp_1=(tmp_2=refStr(rflIdx(o_11320_formal_params, 2L))),tmp_1->size==3&&memcmp(tmp_1->mem,(&str[3093] /* "::=" */)->mem,3*sizeof(strElemType))==0))) { /* line 2837 "../prg/s7c.sd7" */ o_11321_formal_param=rflIdx(o_11320_formal_params, 1L); /* line 2838 "../prg/s7c.sd7" */ o_11322_object_type=refType(o_11321_formal_param); /* line 2839 "../prg/s7c.sd7" */ o_10985_process_generic_create_declaration(&(o_11322_object_type), &(o_4794_global_c_expr)); /* line 2840 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11319_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3027] /* "&generic_create_" */); { /* line 2841 "../prg/s7c.sd7" */ union { /* line 2841 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 2841 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2841 "../prg/s7c.sd7" */ } buffer_1; /* line 2841 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11319_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(o_11322_object_type), &buffer_1.striBuf)); } /* line 2842 "../prg/s7c.sd7" */ o_11323_address_written=o_26_TRUE; } else { /* line 2843 "../prg/s7c.sd7" */ const_striType tmp_1; /* line 2843 "../prg/s7c.sd7" */ striType tmp_2 = NULL; /* line 2843 "../prg/s7c.sd7" */ if (((rflLng(o_11320_formal_params)) == (2L)) && /* line 2843 "../prg/s7c.sd7" */ ((refCategory(rflIdx(o_11320_formal_params, 2L))) == (0L)) && /* line 2844 "../prg/s7c.sd7" */ ((tmp_1=(tmp_2=refStr(rflIdx(o_11320_formal_params, 2L))),tmp_1->size==7&&memcmp(tmp_1->mem,(&str[3094] /* "destroy" */)->mem,7*sizeof(strElemType))==0))) { /* line 2845 "../prg/s7c.sd7" */ o_11321_formal_param=rflIdx(o_11320_formal_params, 1L); /* line 2846 "../prg/s7c.sd7" */ o_11322_object_type=refType(o_11321_formal_param); /* line 2847 "../prg/s7c.sd7" */ o_10988_process_generic_destr_declaration(&(o_11322_object_type), &(o_4794_global_c_expr)); /* line 2848 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11319_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3028] /* "&generic_destr_" */); { /* line 2849 "../prg/s7c.sd7" */ union { /* line 2849 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 2849 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2849 "../prg/s7c.sd7" */ } buffer_1; /* line 2849 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11319_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(o_11322_object_type), &buffer_1.striBuf)); } /* line 2850 "../prg/s7c.sd7" */ o_11323_address_written=o_26_TRUE; } else { /* line 2851 "../prg/s7c.sd7" */ const_striType tmp_1; /* line 2851 "../prg/s7c.sd7" */ striType tmp_2 = NULL; /* line 2851 "../prg/s7c.sd7" */ if (((rflLng(o_11320_formal_params)) == (3L)) && /* line 2851 "../prg/s7c.sd7" */ ((refCategory(rflIdx(o_11320_formal_params, 3L))) == (0L)) && /* line 2852 "../prg/s7c.sd7" */ ((tmp_1=(tmp_2=refStr(rflIdx(o_11320_formal_params, 3L))),tmp_1->size==7&&memcmp(tmp_1->mem,(&str[3095] /* "compare" */)->mem,7*sizeof(strElemType))==0))) { /* line 2853 "../prg/s7c.sd7" */ o_11321_formal_param=rflIdx(o_11320_formal_params, 1L); /* line 2854 "../prg/s7c.sd7" */ o_11322_object_type=refType(o_11321_formal_param); /* line 2855 "../prg/s7c.sd7" */ o_10991_process_generic_cmp_declaration(o_11318_function, &(o_11322_object_type), &(o_4794_global_c_expr)); /* line 2856 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11319_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3096] /* "&generic_cmp_" */); { /* line 2857 "../prg/s7c.sd7" */ union { /* line 2857 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 2857 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2857 "../prg/s7c.sd7" */ } buffer_1; /* line 2857 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11319_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(o_11322_object_type), &buffer_1.striBuf)); } /* line 2858 "../prg/s7c.sd7" */ o_11323_address_written=o_26_TRUE; } /* line 2851 "../prg/s7c.sd7" */ strDestr(tmp_2); } /* line 2843 "../prg/s7c.sd7" */ strDestr(tmp_2); } /* line 2835 "../prg/s7c.sd7" */ strDestr(tmp_2); } /* line 2827 "../prg/s7c.sd7" */ strDestr(tmp_2); } /* line 2860 "../prg/s7c.sd7" */ if (!(o_11323_address_written)) { /* line 2861 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11319_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3097] /* "&o_" */); /* line 2862 "../prg/s7c.sd7" */ o_5072_create_name(o_11318_function, &(((structType)(*o_11319_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } /* line 2818 "../prg/s7c.sd7" */ rflDestr(o_11320_formal_params); } /* line 1 "no_file" */ /* 5055 */ /* line 2867 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11324_object_address (const objRefType/*t_19_reference*/ o_11325_current_object, structType/*t_164_expr_type*/ *const o_11326_c_expr) { /* line 2870 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11327_curr_expr=NULL; /* line 2871 "../prg/s7c.sd7" */ intType/*t_86_category*/ o_11328_exprCategory=0; /* line 2873 "../prg/s7c.sd7" */ o_11327_curr_expr=refValue(o_11325_current_object); /* line 2874 "../prg/s7c.sd7" */ if ((o_11327_curr_expr) == (NULL)) { /* line 2875 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11326_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[953] /* "NULL" */); } else { /* line 2877 "../prg/s7c.sd7" */ o_11328_exprCategory=refCategory(o_11327_curr_expr); /* line 2878 "../prg/s7c.sd7" */ if ((o_11328_exprCategory) == (33L)) { /* line 2879 "../prg/s7c.sd7" */ o_11311_action_address(o_11327_curr_expr, o_11326_c_expr); } else /* line 2880 "../prg/s7c.sd7" */ if ((o_11328_exprCategory) == (4L)) { /* line 2881 "../prg/s7c.sd7" */ o_11317_block_address(o_11327_curr_expr, o_11326_c_expr); } else { /* line 2883 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11326_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1431] /* "/* " */); /* line 2884 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11326_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), refCatStr(o_11328_exprCategory)); /* line 2885 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11326_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[281] /* " *\/" */); /* line 2886 "../prg/s7c.sd7" */ { /* line 2886 "../prg/s7c.sd7" */ int fail_value; /* line 2886 "../prg/s7c.sd7" */ catch_stack_pos++; /* line 2886 "../prg/s7c.sd7" */ if (unlikely(catch_stack_pos >= max_catch_stack)) { /* line 2886 "../prg/s7c.sd7" */ resize_catch_stack(); /* line 2886 "../prg/s7c.sd7" */ } /* line 2886 "../prg/s7c.sd7" */ if (likely((fail_value = do_setjmp(catch_stack[catch_stack_pos])) == 0)) { /* line 2887 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11326_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1503] /* "&(" */); /* line 2888 "../prg/s7c.sd7" */ o_4941_process_expr(o_11327_curr_expr, o_11326_c_expr); /* line 2889 "../prg/s7c.sd7" */ { /* line 2889 "../prg/s7c.sd7" */ striType *tmp_1; /* line 2889 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11326_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2889 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2889 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ')'); /* line 2889 "../prg/s7c.sd7" */ } else { /* line 2889 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 2889 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 2889 "../prg/s7c.sd7" */ } } /* line 2889 "../prg/s7c.sd7" */ catch_stack_pos--; /* line 2891 "../prg/s7c.sd7" */ } else { /* line 2889 "../prg/s7c.sd7" */ catch_stack_pos--; /* line 2891 "../prg/s7c.sd7" */ if (o_18_RANGE_ERROR == fail_value - 1) { /* line 2892 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11326_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3098] /* "/*RANGE_ERROR*\/" */); /* line 2893 "../prg/s7c.sd7" */ o_1282_writeln(&str[3099] /* "] " */); printf("var %s: %s is ", "reference", "curr_expr"); { objRefType ref=o_11327_curr_expr; striType typeStri=typStr(refType(ref)); striType nameStri=refStr(ref); striType categoryStri=refCatStr(refCategory(ref)); printf("\n"); if (refIsVar(ref)) { printf(" var "); } else { printf(" const "); } filWrite(stdout, typeStri); printf(": "); filWrite(stdout, nameStri); printf(" is <"); filWrite(stdout, categoryStri); printf(">"); strDestr(typeStri); strDestr(nameStri); strDestr(categoryStri); } ; /* line 2894 "../prg/s7c.sd7" */ o_1281_writeln(); /* line 2895 "../prg/s7c.sd7" */ } else { /* line 2895 "../prg/s7c.sd7" */ rtlRaiseError(fail_value, error_file, error_line); /* line 2895 "../prg/s7c.sd7" */ } /* line 2895 "../prg/s7c.sd7" */ } /* line 2895 "../prg/s7c.sd7" */ } } } } /* line 1 "no_file" */ /* 5056 */ /* line 2902 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11329_process_reference_declaration (const objRefType/*t_19_reference*/ o_11330_current_object, structType/*t_164_expr_type*/ *const o_11331_c_expr) { /* line 2907 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11331_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1431] /* "/* " */); { /* line 2908 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 2908 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11331_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4746_type_name2(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(refType(o_11330_current_object)), &tmp_2))); } /* line 2909 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11331_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1981] /* " *\/ " */); /* line 2910 "../prg/s7c.sd7" */ if (o_5067_useFunctype(o_11330_current_object)) { /* line 2911 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11331_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3100] /* "intfunctype o_" */); } else { /* line 2913 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11331_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3101] /* "objRefType o_" */); } /* line 2915 "../prg/s7c.sd7" */ o_5072_create_name(o_11330_current_object, &(((structType)(*o_11331_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 2916 "../prg/s7c.sd7" */ { /* line 2916 "../prg/s7c.sd7" */ striType *tmp_1; /* line 2916 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11331_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2916 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2916 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 2916 "../prg/s7c.sd7" */ } else { /* line 2916 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 2916 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 2916 "../prg/s7c.sd7" */ } } /* line 2917 "../prg/s7c.sd7" */ if (o_5067_useFunctype(o_11330_current_object)) { /* line 2918 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11331_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3102] /* "(intfunctype)(" */); } else { /* line 2920 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11331_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3103] /* "(objRefType)(" */); } /* line 2922 "../prg/s7c.sd7" */ o_11324_object_address(o_11330_current_object, o_11331_c_expr); /* line 2923 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11331_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[195] /* ");\n\n" */); /* line 2924 "../prg/s7c.sd7" */ o_4655/*@:=*/(&(o_4940_function_pointer_declared), &(o_11330_current_object), o_26_TRUE); /* line 2925 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11331_c_expr); } /* line 1 "no_file" */ /* 5057 */ /* line 2930 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11332_process_ref_list_declaration (const objRefType/*t_19_reference*/ o_11333_current_object, structType/*t_164_expr_type*/ *const o_11334_c_expr) { /* line 2934 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11335_refListValue=NULL; /* line 2935 "../prg/s7c.sd7" */ intType/*t_14_integer*/ o_11336_index=0; { /* line 2937 "../prg/s7c.sd7" */ listType old_rfl=o_11335_refListValue; /* line 2937 "../prg/s7c.sd7" */ o_11335_refListValue=rflValue(o_11333_current_object); /* line 2937 "../prg/s7c.sd7" */ rflDestr(old_rfl); } /* line 2938 "../prg/s7c.sd7" */ for (o_11336_index=rflLng(o_11335_refListValue); o_11336_index>=1L; (o_11336_index)--) { /* line 2939 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3104] /* "struct listStruct rec_" */); { /* line 2940 "../prg/s7c.sd7" */ union { /* line 2940 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 2940 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2940 "../prg/s7c.sd7" */ } buffer_1; /* line 2940 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(refNum(o_11333_current_object), &buffer_1.striBuf)); } /* line 2941 "../prg/s7c.sd7" */ { /* line 2941 "../prg/s7c.sd7" */ striType *tmp_1; /* line 2941 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2941 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2941 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '_'); /* line 2941 "../prg/s7c.sd7" */ } else { /* line 2941 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '_'; /* line 2941 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 2941 "../prg/s7c.sd7" */ } } { /* line 2942 "../prg/s7c.sd7" */ union { /* line 2942 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 2942 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2942 "../prg/s7c.sd7" */ } buffer_1; /* line 2942 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(o_11336_index, &buffer_1.striBuf)); } /* line 2943 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3105] /* "={" */); /* line 2944 "../prg/s7c.sd7" */ if ((o_11336_index) == (rflLng(o_11335_refListValue))) { /* line 2945 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[953] /* "NULL" */); } else { /* line 2947 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3106] /* "&rec_" */); { /* line 2948 "../prg/s7c.sd7" */ union { /* line 2948 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 2948 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2948 "../prg/s7c.sd7" */ } buffer_1; /* line 2948 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(refNum(o_11333_current_object), &buffer_1.striBuf)); } /* line 2949 "../prg/s7c.sd7" */ { /* line 2949 "../prg/s7c.sd7" */ striType *tmp_1; /* line 2949 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2949 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2949 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '_'); /* line 2949 "../prg/s7c.sd7" */ } else { /* line 2949 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '_'; /* line 2949 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 2949 "../prg/s7c.sd7" */ } } { /* line 2950 "../prg/s7c.sd7" */ union { /* line 2950 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 2950 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2950 "../prg/s7c.sd7" */ } buffer_1; /* line 2950 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer((o_11336_index)+1, &buffer_1.striBuf)); } } /* line 2952 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3107] /* ", (objRefType) &(" */); /* line 2953 "../prg/s7c.sd7" */ o_4941_process_expr(rflIdx(o_11335_refListValue, o_11336_index), o_11334_c_expr); /* line 2954 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3108] /* ")};\n" */); } /* line 2956 "../prg/s7c.sd7" */ { /* line 2956 "../prg/s7c.sd7" */ striType *tmp_1; /* line 2956 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2956 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2956 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '\n'); /* line 2956 "../prg/s7c.sd7" */ } else { /* line 2956 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 2956 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 2956 "../prg/s7c.sd7" */ } } { /* line 2957 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 2957 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(refType(o_11333_current_object)), &tmp_2))); } /* line 2958 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2893] /* " o_" */); /* line 2959 "../prg/s7c.sd7" */ o_5072_create_name(o_11333_current_object, &(((structType)(*o_11334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 2960 "../prg/s7c.sd7" */ { /* line 2960 "../prg/s7c.sd7" */ striType *tmp_1; /* line 2960 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 2960 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 2960 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 2960 "../prg/s7c.sd7" */ } else { /* line 2960 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 2960 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 2960 "../prg/s7c.sd7" */ } } /* line 2961 "../prg/s7c.sd7" */ if ((rflLng(o_11335_refListValue)) == (0L)) { /* line 2962 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[953] /* "NULL" */); } else { /* line 2964 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3106] /* "&rec_" */); { /* line 2965 "../prg/s7c.sd7" */ union { /* line 2965 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 2965 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 2965 "../prg/s7c.sd7" */ } buffer_1; /* line 2965 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(refNum(o_11333_current_object), &buffer_1.striBuf)); } /* line 2966 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3109] /* "_1" */); } /* line 2968 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11334_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[158] /* ";\n\n" */); /* line 2969 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11334_c_expr); /* line 2930 "../prg/s7c.sd7" */ rflDestr(o_11335_refListValue); } /* line 1 "no_file" */ /* 5058 */ /* line 2973 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11337_process_file_declaration (const objRefType/*t_19_reference*/ o_11338_current_object, structType/*t_164_expr_type*/ *const o_11339_c_expr) { /* line 2977 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11339_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3110] /* "fileType o_" */); /* line 2978 "../prg/s7c.sd7" */ o_5072_create_name(o_11338_current_object, &(((structType)(*o_11339_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 2979 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11339_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3111] /* "=NULL;\n\n" */); /* line 2980 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11339_c_expr); } /* line 1 "no_file" */ /* 5059 */ /* line 2984 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11340_process_socket_declaration (const objRefType/*t_19_reference*/ o_11341_current_object, structType/*t_164_expr_type*/ *const o_11342_c_expr) { /* line 2988 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11342_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3112] /* "socketType o_" */); /* line 2989 "../prg/s7c.sd7" */ o_5072_create_name(o_11341_current_object, &(((structType)(*o_11342_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 2990 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11342_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3113] /* " = (socketType) -1;\n\n" */); /* line 2991 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11342_c_expr); } /* line 1 "no_file" */ /* 5060 */ /* line 2995 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11343_process_poll_declaration (const objRefType/*t_19_reference*/ o_11344_current_object, structType/*t_164_expr_type*/ *const o_11345_c_expr) { /* line 2999 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11345_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3114] /* "pollType o_" */); /* line 3000 "../prg/s7c.sd7" */ o_5072_create_name(o_11344_current_object, &(((structType)(*o_11345_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 3001 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11345_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[158] /* ";\n\n" */); /* line 3002 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11345_c_expr); } /* line 1 "no_file" */ /* 5061 */ /* line 3006 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11346_process_array_declaration (const objRefType/*t_19_reference*/ o_11347_current_object, structType/*t_164_expr_type*/ *const o_11348_c_expr) { /* line 3010 "../prg/s7c.sd7" */ striType/*t_15_string*/ o_11349_param_value; /* line 3010 "../prg/s7c.sd7" */ o_11349_param_value=strEmpty(); /* "" */ { /* line 3012 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 3012 "../prg/s7c.sd7" */ o_3785/*@:=*/(&(o_4414_typeCategory), /* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_11347_current_object)), &tmp_1), 14L); } /* line 3013 "../prg/s7c.sd7" */ if (refIsVar(o_11347_current_object)) { { /* line 3014 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 3014 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11348_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(refType(o_11347_current_object)), &tmp_2))); } /* line 3015 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11348_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2893] /* " o_" */); /* line 3016 "../prg/s7c.sd7" */ o_5072_create_name(o_11347_current_object, &(((structType)(*o_11348_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 3017 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11348_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[158] /* ";\n\n" */); /* line 3018 "../prg/s7c.sd7" */ if (o_4505_not(&(o_11347_current_object), o_6490_const_table)) { /* line 3019 "../prg/s7c.sd7" */ o_4515/*@:=*/(&(o_6490_const_table), &(o_11347_current_object), (intType)((o_6490_const_table)->size)); } /* line 3021 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_11347_current_object)); /* line 3022 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 3023 "../prg/s7c.sd7" */ o_5072_create_name(o_11347_current_object, &(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 3024 "../prg/s7c.sd7" */ { /* line 3024 "../prg/s7c.sd7" */ striType *tmp_1; /* line 3024 "../prg/s7c.sd7" */ tmp_1=&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3024 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3024 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 3024 "../prg/s7c.sd7" */ } else { /* line 3024 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 3024 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 3024 "../prg/s7c.sd7" */ } } /* line 3025 "../prg/s7c.sd7" */ strCopy(&(o_11349_param_value), &str[32] /* "(" */); { /* line 3026 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 3026 "../prg/s7c.sd7" */ strAppendTemp(&(o_11349_param_value), o_4743_type_name(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(refType(o_11347_current_object)), &tmp_2))); } /* line 3027 "../prg/s7c.sd7" */ strAppend(&(o_11349_param_value), &str[3115] /* ")(arr[" */); { /* line 3028 "../prg/s7c.sd7" */ union { /* line 3028 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 3028 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 3028 "../prg/s7c.sd7" */ } buffer_1; /* line 3028 "../prg/s7c.sd7" */ strAppend(&(o_11349_param_value), intStrToBuffer(*o_4495/*[*/(&(o_6490_const_table), &(o_11347_current_object)), &buffer_1.striBuf)); } /* line 3029 "../prg/s7c.sd7" */ strAppend(&(o_11349_param_value), &str[1232] /* "])" */); { /* line 3030 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 3030 "../prg/s7c.sd7" */ o_4878_process_create_declaration(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_11347_current_object)), &tmp_1), &(o_4794_global_c_expr)); } { /* line 3031 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 3031 "../prg/s7c.sd7" */ o_4881_process_create_call(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_11347_current_object)), &tmp_1), o_11349_param_value, &(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/)); } /* line 3033 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 3034 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11348_c_expr); } /* line 3006 "../prg/s7c.sd7" */ strDestr(o_11349_param_value); } /* line 1 "no_file" */ /* 5062 */ /* line 3039 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11350_process_hash_declaration (const objRefType/*t_19_reference*/ o_11351_current_object, structType/*t_164_expr_type*/ *const o_11352_c_expr) { /* line 3043 "../prg/s7c.sd7" */ striType/*t_15_string*/ o_11353_param_value; /* line 3043 "../prg/s7c.sd7" */ o_11353_param_value=strEmpty(); /* "" */ { /* line 3045 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 3045 "../prg/s7c.sd7" */ o_3785/*@:=*/(&(o_4414_typeCategory), /* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_11351_current_object)), &tmp_1), 15L); } { /* line 3046 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 3046 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(refType(o_11351_current_object)), &tmp_2))); } /* line 3047 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2893] /* " o_" */); /* line 3048 "../prg/s7c.sd7" */ o_5072_create_name(o_11351_current_object, &(((structType)(*o_11352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 3049 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11352_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[158] /* ";\n\n" */); /* line 3050 "../prg/s7c.sd7" */ if (o_4505_not(&(o_11351_current_object), o_6490_const_table)) { /* line 3051 "../prg/s7c.sd7" */ o_4515/*@:=*/(&(o_6490_const_table), &(o_11351_current_object), (intType)((o_6490_const_table)->size)); } /* line 3053 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_11351_current_object)); /* line 3054 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 3055 "../prg/s7c.sd7" */ o_5072_create_name(o_11351_current_object, &(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 3056 "../prg/s7c.sd7" */ { /* line 3056 "../prg/s7c.sd7" */ striType *tmp_1; /* line 3056 "../prg/s7c.sd7" */ tmp_1=&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3056 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3056 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 3056 "../prg/s7c.sd7" */ } else { /* line 3056 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 3056 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 3056 "../prg/s7c.sd7" */ } } /* line 3057 "../prg/s7c.sd7" */ strCopy(&(o_11353_param_value), &str[32] /* "(" */); { /* line 3058 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 3058 "../prg/s7c.sd7" */ strAppendTemp(&(o_11353_param_value), o_4743_type_name(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(refType(o_11351_current_object)), &tmp_2))); } /* line 3059 "../prg/s7c.sd7" */ strAppend(&(o_11353_param_value), &str[3116] /* ")(hsh[" */); { /* line 3060 "../prg/s7c.sd7" */ union { /* line 3060 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 3060 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 3060 "../prg/s7c.sd7" */ } buffer_1; /* line 3060 "../prg/s7c.sd7" */ strAppend(&(o_11353_param_value), intStrToBuffer(*o_4495/*[*/(&(o_6490_const_table), &(o_11351_current_object)), &buffer_1.striBuf)); } /* line 3061 "../prg/s7c.sd7" */ strAppend(&(o_11353_param_value), &str[1232] /* "])" */); /* line 3062 "../prg/s7c.sd7" */ if (refIsVar(o_11351_current_object)) { { /* line 3063 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 3063 "../prg/s7c.sd7" */ o_4878_process_create_declaration(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_11351_current_object)), &tmp_1), &(o_4794_global_c_expr)); } { /* line 3064 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 3064 "../prg/s7c.sd7" */ o_4881_process_create_call(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_11351_current_object)), &tmp_1), o_11353_param_value, &(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/)); } } else { /* line 3067 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), o_11353_param_value); } /* line 3069 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 3070 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11352_c_expr); /* line 3039 "../prg/s7c.sd7" */ strDestr(o_11353_param_value); } /* line 1 "no_file" */ /* 5063 */ /* line 3074 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11354_process_set_declaration (const objRefType/*t_19_reference*/ o_11355_current_object, structType/*t_164_expr_type*/ *const o_11356_c_expr) { /* line 3078 "../prg/s7c.sd7" */ if (refIsVar(o_11355_current_object)) { { /* line 3079 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 3079 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11356_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(refType(o_11355_current_object)), &tmp_2))); } /* line 3080 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11356_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2893] /* " o_" */); /* line 3081 "../prg/s7c.sd7" */ o_5072_create_name(o_11355_current_object, &(((structType)(*o_11356_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 3082 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11356_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[158] /* ";\n\n" */); /* line 3083 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_11355_current_object)); /* line 3084 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 3085 "../prg/s7c.sd7" */ o_5072_create_name(o_11355_current_object, &(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 3086 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), &str[2903] /* "=setCreate(" */); { /* line 3087 "../prg/s7c.sd7" */ setType/*t_30_bitset*/ tmp_2 = (setType/*t_30_bitset*/)(NULL); /* line 3087 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), o_6508_bitsetLiteral((tmp_2=(setType/*t_30_bitset*/)(setValue(o_11355_current_object))))); /* line 3087 "../prg/s7c.sd7" */ setDestr(tmp_2); } /* line 3088 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 3089 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11356_c_expr); } } /* line 1 "no_file" */ /* 5064 */ /* line 3094 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11357_process_struct_declaration (const objRefType/*t_19_reference*/ o_11358_current_object, structType/*t_164_expr_type*/ *const o_11359_c_expr) { /* line 3098 "../prg/s7c.sd7" */ striType/*t_15_string*/ o_11360_param_value; /* line 3099 "../prg/s7c.sd7" */ striType/*t_15_string*/ o_11361_init_expr; /* line 3098 "../prg/s7c.sd7" */ o_11360_param_value=strEmpty(); /* "" */ /* line 3099 "../prg/s7c.sd7" */ o_11361_init_expr=strEmpty(); /* "" */ { /* line 3101 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 3101 "../prg/s7c.sd7" */ o_4801_declare_type_if_necessary(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_11358_current_object)), &tmp_1), o_11359_c_expr); } { /* line 3102 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 3102 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11359_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(refType(o_11358_current_object)), &tmp_2))); } /* line 3103 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11359_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2893] /* " o_" */); /* line 3104 "../prg/s7c.sd7" */ o_5072_create_name(o_11358_current_object, &(((structType)(*o_11359_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 3105 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11359_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[158] /* ";\n\n" */); /* line 3106 "../prg/s7c.sd7" */ if (o_4505_not(&(o_11358_current_object), o_6490_const_table)) { /* line 3107 "../prg/s7c.sd7" */ o_4515/*@:=*/(&(o_6490_const_table), &(o_11358_current_object), (intType)((o_6490_const_table)->size)); } /* line 3109 "../prg/s7c.sd7" */ strAppendTemp(&(o_11361_init_expr), o_4816_diagnosticLine(o_11358_current_object)); /* line 3110 "../prg/s7c.sd7" */ strAppend(&(o_11361_init_expr), &str[2894] /* "o_" */); /* line 3111 "../prg/s7c.sd7" */ o_5072_create_name(o_11358_current_object, &(o_11361_init_expr)); /* line 3112 "../prg/s7c.sd7" */ /* line 3112 "../prg/s7c.sd7" */ if (((o_11361_init_expr))->size == ((o_11361_init_expr))->capacity) { /* line 3112 "../prg/s7c.sd7" */ strPush(&((o_11361_init_expr)), (charType) '='); /* line 3112 "../prg/s7c.sd7" */ } else { /* line 3112 "../prg/s7c.sd7" */ ((o_11361_init_expr))->mem[((o_11361_init_expr))->size]=(charType) '='; /* line 3112 "../prg/s7c.sd7" */ ((o_11361_init_expr))->size++; /* line 3112 "../prg/s7c.sd7" */ } /* line 3113 "../prg/s7c.sd7" */ strCopy(&(o_11360_param_value), &str[32] /* "(" */); { /* line 3114 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 3114 "../prg/s7c.sd7" */ strAppendTemp(&(o_11360_param_value), o_4743_type_name(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(refType(o_11358_current_object)), &tmp_2))); } /* line 3115 "../prg/s7c.sd7" */ strAppend(&(o_11360_param_value), &str[3117] /* ")(sct[" */); { /* line 3116 "../prg/s7c.sd7" */ union { /* line 3116 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 3116 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 3116 "../prg/s7c.sd7" */ } buffer_1; /* line 3116 "../prg/s7c.sd7" */ strAppend(&(o_11360_param_value), intStrToBuffer(*o_4495/*[*/(&(o_6490_const_table), &(o_11358_current_object)), &buffer_1.striBuf)); } /* line 3117 "../prg/s7c.sd7" */ strAppend(&(o_11360_param_value), &str[1232] /* "])" */); /* line 3118 "../prg/s7c.sd7" */ if (refIsVar(o_11358_current_object)) { { /* line 3119 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 3119 "../prg/s7c.sd7" */ o_4878_process_create_declaration(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_11358_current_object)), &tmp_1), &(o_4794_global_c_expr)); } { /* line 3120 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 3120 "../prg/s7c.sd7" */ o_4881_process_create_call(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_11358_current_object)), &tmp_1), o_11360_param_value, &(o_11361_init_expr)); } } else { /* line 3123 "../prg/s7c.sd7" */ strAppend(&(o_11361_init_expr), o_11360_param_value); } /* line 3125 "../prg/s7c.sd7" */ strAppend(&(o_11361_init_expr), &str[215] /* ";\n" */); /* line 3126 "../prg/s7c.sd7" */ if (o_10536_in(&(o_11358_current_object), o_10628_globalInitalisations)) { { /* line 3127 "../prg/s7c.sd7" */ striType tmp_1 = NULL; /* line 3127 "../prg/s7c.sd7" */ o_10549/*@:=*/(&(o_10628_globalInitalisations), &(o_11358_current_object), (tmp_1=strConcat(*o_10529/*[*/(&(o_10628_globalInitalisations), &(o_11358_current_object)), o_11361_init_expr))); /* line 3127 "../prg/s7c.sd7" */ strDestr(tmp_1); } } else { /* line 3129 "../prg/s7c.sd7" */ o_10549/*@:=*/(&(o_10628_globalInitalisations), &(o_11358_current_object), o_11361_init_expr); } /* line 3131 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11359_c_expr); /* line 3094 "../prg/s7c.sd7" */ strDestr(o_11360_param_value); /* line 3094 "../prg/s7c.sd7" */ strDestr(o_11361_init_expr); } /* line 1 "no_file" */ /* 5065 */ /* line 3135 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11362_process_interface_declaration (const objRefType/*t_19_reference*/ o_11363_current_object, structType/*t_164_expr_type*/ *const o_11364_c_expr) { /* line 3139 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11365_object_value=NULL; /* line 3140 "../prg/s7c.sd7" */ intType/*t_86_category*/ o_11366_valueCategory=0; { /* line 3142 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 3142 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11364_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(refType(o_11363_current_object)), &tmp_2))); } /* line 3143 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11364_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2893] /* " o_" */); /* line 3144 "../prg/s7c.sd7" */ o_5072_create_name(o_11363_current_object, &(((structType)(*o_11364_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 3145 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11364_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[158] /* ";\n\n" */); /* line 3146 "../prg/s7c.sd7" */ o_11365_object_value=refItfToSct(o_11363_current_object); /* line 3147 "../prg/s7c.sd7" */ o_11366_valueCategory=refCategory(o_11365_object_value); /* line 3148 "../prg/s7c.sd7" */ if (o_4505_not(&(o_11363_current_object), o_6490_const_table)) { /* line 3149 "../prg/s7c.sd7" */ o_4515/*@:=*/(&(o_6490_const_table), &(o_11363_current_object), (intType)((o_6490_const_table)->size)); } /* line 3151 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_11363_current_object)); /* line 3152 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 3153 "../prg/s7c.sd7" */ o_5072_create_name(o_11363_current_object, &(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 3154 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), &str[287] /* "=(" */); { /* line 3155 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 3155 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(refType(o_11363_current_object)), &tmp_2))); } /* line 3156 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), &str[2897] /* ")(itfCreate(itf[" */); { /* line 3157 "../prg/s7c.sd7" */ union { /* line 3157 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 3157 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 3157 "../prg/s7c.sd7" */ } buffer_1; /* line 3157 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(*o_4495/*[*/(&(o_6490_const_table), &(o_11363_current_object)), &buffer_1.striBuf)); } /* line 3158 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), &str[2898] /* "]));\n" */); /* line 3159 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11364_c_expr); } /* line 1 "no_file" */ /* 5066 */ /* line 3163 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11367_process_win_declaration (const objRefType/*t_19_reference*/ o_11368_current_object, structType/*t_164_expr_type*/ *const o_11369_c_expr) { /* line 3167 "../prg/s7c.sd7" */ if (refIsVar(o_11368_current_object)) { /* line 3168 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11369_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3118] /* "winType o_" */); /* line 3169 "../prg/s7c.sd7" */ o_5072_create_name(o_11368_current_object, &(((structType)(*o_11369_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 3170 "../prg/s7c.sd7" */ if ((drwValue(o_11368_current_object)) == ((winType) NULL)) { /* line 3171 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11369_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3111] /* "=NULL;\n\n" */); } else { /* line 3173 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11369_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[158] /* ";\n\n" */); /* line 3174 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_11368_current_object)); /* line 3175 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 3176 "../prg/s7c.sd7" */ o_5072_create_name(o_11368_current_object, &(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 3177 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), &str[3119] /* "=drwCreate(" */); /* line 3178 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), o_6519_windowLiteral(drwValue(o_11368_current_object))); /* line 3179 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); } /* line 3181 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11369_c_expr); } } /* line 1 "no_file" */ /* 5067 */ /* line 3186 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11370_process_prog_declaration (const objRefType/*t_19_reference*/ o_11371_current_object, structType/*t_164_expr_type*/ *const o_11372_c_expr) { /* line 3190 "../prg/s7c.sd7" */ if (refIsVar(o_11371_current_object)) { /* line 3191 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11372_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3120] /* "progType o_" */); /* line 3192 "../prg/s7c.sd7" */ o_5072_create_name(o_11371_current_object, &(((structType)(*o_11372_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 3193 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11372_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3111] /* "=NULL;\n\n" */); /* line 3194 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11372_c_expr); } } /* line 1 "no_file" */ /* 5068 */ /* line 3199 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11373_process_enum_declaration (const objRefType/*t_19_reference*/ o_11374_current_object, structType/*t_164_expr_type*/ *const o_11375_c_expr) { /* line 3203 "../prg/s7c.sd7" */ if ((refIsVar(o_11374_current_object)) || /* line 3203 "../prg/s7c.sd7" */ (!(typIsFunc(refType(o_11374_current_object))))) { /* line 3204 "../prg/s7c.sd7" */ if (!(refIsVar(o_11374_current_object))) { /* line 3205 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11375_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1538] /* "const " */); } { /* line 3207 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 3207 "../prg/s7c.sd7" */ o_4801_declare_type_if_necessary(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_11374_current_object)), &tmp_1), o_11375_c_expr); } { /* line 3208 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 3208 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11375_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(refType(o_11374_current_object)), &tmp_2))); } /* line 3209 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11375_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2893] /* " o_" */); /* line 3210 "../prg/s7c.sd7" */ o_5072_create_name(o_11374_current_object, &(((structType)(*o_11375_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 3211 "../prg/s7c.sd7" */ { /* line 3211 "../prg/s7c.sd7" */ striType *tmp_1; /* line 3211 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11375_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3211 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3211 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 3211 "../prg/s7c.sd7" */ } else { /* line 3211 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 3211 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 3211 "../prg/s7c.sd7" */ } } /* line 3212 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11375_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_11010_enum_value(refValue(o_11374_current_object))); /* line 3213 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11375_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[158] /* ";\n\n" */); } /* line 3215 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11375_c_expr); } /* line 1 "no_file" */ /* 5069 */ /* line 3219 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11376_process_enum_literal_declaration (const objRefType/*t_19_reference*/ o_11377_current_object, structType/*t_164_expr_type*/ *const o_11378_c_expr) { /* line 3223 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11379_enum_type=typ[0] /* void/t_1_void */; /* line 3225 "../prg/s7c.sd7" */ o_11379_enum_type=refType(o_11377_current_object); /* line 3226 "../prg/s7c.sd7" */ if ((o_11379_enum_type) == (o_4737_voidtype)) { /* line 3227 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11378_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3121] /* "/* do not declare: void o_4_empty *\/\n\n" */); } else { /* line 3229 "../prg/s7c.sd7" */ if (o_4590_not(&(o_11379_enum_type), o_10973_enum_literal)) { /* line 3230 "../prg/s7c.sd7" */ o_4600/*@:=*/(&(o_10973_enum_literal), &(o_11379_enum_type), hsh[91]); } /* line 3232 "../prg/s7c.sd7" */ if (o_4505_not(&(o_11377_current_object), *o_4580/*[*/(&(o_10973_enum_literal), &(o_11379_enum_type)))) { /* line 3233 "../prg/s7c.sd7" */ o_4515/*@:=*/(&(*o_4580/*[*/(&(o_10973_enum_literal), &(o_11379_enum_type))), &(o_11377_current_object), (intType)((*o_4580/*[*/(&(o_10973_enum_literal), &(o_11379_enum_type)))->size)); } /* line 3235 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11378_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1538] /* "const " */); /* line 3236 "../prg/s7c.sd7" */ o_4801_declare_type_if_necessary(&(o_11379_enum_type), o_11378_c_expr); /* line 3237 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11378_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(&(o_11379_enum_type))); /* line 3238 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11378_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2893] /* " o_" */); /* line 3239 "../prg/s7c.sd7" */ o_5072_create_name(o_11377_current_object, &(((structType)(*o_11378_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 3240 "../prg/s7c.sd7" */ { /* line 3240 "../prg/s7c.sd7" */ striType *tmp_1; /* line 3240 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11378_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3240 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3240 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 3240 "../prg/s7c.sd7" */ } else { /* line 3240 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 3240 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 3240 "../prg/s7c.sd7" */ } } /* line 3241 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11378_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_11010_enum_value(o_11377_current_object)); /* line 3242 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11378_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[158] /* ";\n\n" */); } /* line 3244 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11378_c_expr); } /* line 1 "no_file" */ /* 5070 */ /* line 3248 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11380_print_parameter_list (const listType/*t_20_ref_list*/ *const o_11381_formal_params, structType/*t_164_expr_type*/ *const o_11382_c_expr) { /* line 3252 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11383_formal_param=NULL; /* line 3253 "../prg/s7c.sd7" */ intType/*t_86_category*/ o_11384_paramCategory=0; /* line 3254 "../prg/s7c.sd7" */ boolType/*t_13_boolean*/ o_11385_first_element=1/*TRUE*/; /* line 3255 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11386_param_type=typ[0] /* void/t_1_void */; /* line 3256 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11387_implementationType=typ[0] /* void/t_1_void */; { /* line 3258 "../prg/s7c.sd7" */ listType tmp_elem_1; /* line 3258 "../prg/s7c.sd7" */ for (tmp_elem_1 = *o_11381_formal_params; tmp_elem_1 != NULL; tmp_elem_1 = tmp_elem_1->next) { /* line 3258 "../prg/s7c.sd7" */ o_11383_formal_param = tmp_elem_1->obj; /* line 3259 "../prg/s7c.sd7" */ o_11384_paramCategory=refCategory(o_11383_formal_param); /* line 3260 "../prg/s7c.sd7" */ if ((o_11384_paramCategory) != (0L)) { /* line 3261 "../prg/s7c.sd7" */ if (o_11385_first_element) { /* line 3262 "../prg/s7c.sd7" */ o_11385_first_element=o_25_FALSE; } else { /* line 3264 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3122] /* " printf(\", \");\n" */); } /* line 3266 "../prg/s7c.sd7" */ o_11386_param_type=refType(o_11383_formal_param); /* line 3267 "../prg/s7c.sd7" */ if (o_3884_in(&(o_11386_param_type), o_4734_implements)) { /* line 3268 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3123] /* " /*# " */); /* inline proc o_3477_for */ { /* inline params */ /* line 3269 "../prg/s7c.sd7" */ typeType/*t_7_type*/ *const o_4858_forVar=&(o_11387_implementationType); /* line 3269 "../prg/s7c.sd7" */ const const_arrayType/*t_126_*ANONYM_TYPE**/ o_4859_arr=*o_3877/*[*/(&(o_4734_implements), &(o_11386_param_type)); /* line 3269 "../prg/s7c.sd7" */ /* push proc param o_4860_statements */ /* line 3269 "../prg/s7c.sd7" */ /* inline local_vars */ /* line 3269 "../prg/s7c.sd7" */ /* line 199 "../lib/array.s7i" */ /* line 3269 "../prg/s7c.sd7" */ intType/*t_14_integer*/ o_4861_number=0; /* inline body */ { /* line 201 "../lib/array.s7i" */ intType tmp_e_1=(o_4859_arr)->max_position; /* line 201 "../lib/array.s7i" */ for (o_4861_number=(o_4859_arr)->min_position; o_4861_number<=tmp_e_1; (o_4861_number)++) { /* line 202 "../lib/array.s7i" */ *o_4858_forVar=(o_4859_arr)->arr[(idxChk((o_4861_number) < (o_4859_arr)->min_position || (o_4861_number) > (o_4859_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_4861_number)-(o_4859_arr)->min_position)].value.typeValue; /* closure o_4860_statements*/ { /* line 3270 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4746_type_name2(&(o_11387_implementationType))); /* line 3271 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[218] /* " " */); } /* closure o_4860_statements*/ } } /* pop proc param o_4860_statements */ } /* inline proc o_3477_for */ /* line 3273 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1981] /* " *\/ " */); } /* line 3275 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3124] /* "printf(" */); { /* line 3276 "../prg/s7c.sd7" */ striType tmp_2 = NULL; /* line 3276 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), strCLit((tmp_2=strConcatTemp(refCatStr(o_11384_paramCategory), &str[26] /* " " */)))); /* line 3276 "../prg/s7c.sd7" */ strDestr(tmp_2); } /* line 3277 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3125] /* "); " */); /* line 3278 "../prg/s7c.sd7" */ if (o_3772_in(&(o_11386_param_type), o_4414_typeCategory)) { /* line 3279 "../prg/s7c.sd7" */ switch (*o_3765/*[*/(&(o_4414_typeCategory), &(o_11386_param_type))) { /* line 3280 "../prg/s7c.sd7" */ case 9: /* line 3281 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3126] /* "printf(\"intType \"); " */); /* line 3282 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3127] /* "printf(\"%ld\", " */); /* line 3282 "../prg/s7c.sd7" */ break; /* line 3283 "../prg/s7c.sd7" */ case 25: /* line 3284 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3128] /* "printf(\"floatType \"); " */); /* line 3285 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3129] /* "printf(\"%f\", " */); /* line 3285 "../prg/s7c.sd7" */ break; /* line 3286 "../prg/s7c.sd7" */ case 11: /* line 3287 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3130] /* "printf(\"charType \"); " */); /* line 3288 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3131] /* "printf(\"%c\", " */); /* line 3288 "../prg/s7c.sd7" */ break; /* line 3289 "../prg/s7c.sd7" */ case 12: /* line 3290 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3132] /* "printf(\"striType \"); " */); /* line 3291 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[969] /* "filPrint(" */); /* line 3291 "../prg/s7c.sd7" */ break; /* line 3292 "../prg/s7c.sd7" */ case 7: /* line 3293 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3133] /* "printf(\"typeType \"); " */); /* line 3294 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3134] /* "printf(\"%X\", " */); /* line 3294 "../prg/s7c.sd7" */ break; default: /* line 3296 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1536] /* "printf(\"" */); /* line 3297 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(&(o_11386_param_type))); /* line 3298 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3135] /* " \"); " */); /* line 3299 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3134] /* "printf(\"%X\", " */); break; } } else { /* line 3302 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1536] /* "printf(\"" */); /* line 3303 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(&(o_11386_param_type))); /* line 3304 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3135] /* " \"); " */); /* line 3305 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3134] /* "printf(\"%X\", " */); } /* line 3307 "../prg/s7c.sd7" */ if (o_11027_isPointerParam(o_11383_formal_param)) { /* line 3308 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3136] /* "(o_" */); /* line 3309 "../prg/s7c.sd7" */ o_5072_create_name(o_11383_formal_param, &(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 3310 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3137] /* "?*o_" */); /* line 3311 "../prg/s7c.sd7" */ o_5072_create_name(o_11383_formal_param, &(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 3312 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1224] /* ":0)" */); } else { /* line 3314 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 3315 "../prg/s7c.sd7" */ o_5072_create_name(o_11383_formal_param, &(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } /* line 3317 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11382_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[339] /* ");" */); } } } } /* line 1 "no_file" */ /* 5071 */ /* line 3323 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11388_process_dynamic_parameter_list (const listType/*t_20_ref_list*/ *const o_11389_actual_params, const objRefType/*t_19_reference*/ o_11390_matched_object, structType/*t_164_expr_type*/ *const o_11391_c_expr) { /* line 3327 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11392_formal_params=NULL; /* line 3328 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11393_formal_param=NULL; /* line 3329 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11394_actual_param=NULL; /* line 3330 "../prg/s7c.sd7" */ intType/*t_86_category*/ o_11395_paramCategory=0; /* line 3331 "../prg/s7c.sd7" */ boolType/*t_13_boolean*/ o_11396_first_element=1/*TRUE*/; /* line 3332 "../prg/s7c.sd7" */ intType/*t_14_integer*/ o_11397_number=0; /* line 3334 "../prg/s7c.sd7" */ rflCpy(&(o_11392_formal_params), refParams(o_11390_matched_object)); { /* line 3335 "../prg/s7c.sd7" */ intType tmp_e_1=rflLng(o_11392_formal_params); /* line 3335 "../prg/s7c.sd7" */ for (o_11397_number=1L; o_11397_number<=tmp_e_1; (o_11397_number)++) { /* line 3336 "../prg/s7c.sd7" */ o_11393_formal_param=rflIdx(o_11392_formal_params, o_11397_number); /* line 3337 "../prg/s7c.sd7" */ o_11394_actual_param=rflIdx(*o_11389_actual_params, o_11397_number); /* line 3338 "../prg/s7c.sd7" */ o_11395_paramCategory=refCategory(o_11394_actual_param); /* line 3339 "../prg/s7c.sd7" */ if (((o_11395_paramCategory) != (0L)) && /* line 3340 "../prg/s7c.sd7" */ ((refCategory(o_11393_formal_param)) != (0L))) { /* line 3341 "../prg/s7c.sd7" */ if (o_11396_first_element) { /* line 3342 "../prg/s7c.sd7" */ o_11396_first_element=o_25_FALSE; } else { /* line 3344 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11391_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[12] /* ", " */); } /* line 3346 "../prg/s7c.sd7" */ if ((!(refIsVar(o_11394_actual_param))) && /* line 3346 "../prg/s7c.sd7" */ (o_11031_isInOutParam(o_11393_formal_param))) { /* line 3347 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11391_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3138] /* "/* SHOULD NOT HAPPEN &o_" */); /* line 3348 "../prg/s7c.sd7" */ o_5072_create_name(o_11394_actual_param, &(((structType)(*o_11391_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 3349 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11391_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[281] /* " *\/" */); } else /* line 3350 "../prg/s7c.sd7" */ if ((o_11027_isPointerParam(o_11394_actual_param)) == (o_11027_isPointerParam(o_11393_formal_param))) { /* line 3351 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11391_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 3352 "../prg/s7c.sd7" */ o_5072_create_name(o_11394_actual_param, &(((structType)(*o_11391_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else /* line 3353 "../prg/s7c.sd7" */ if ((o_11027_isPointerParam(o_11394_actual_param)) && /* line 3353 "../prg/s7c.sd7" */ (!(o_11027_isPointerParam(o_11393_formal_param)))) { /* line 3354 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11391_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2957] /* "*o_" */); /* line 3355 "../prg/s7c.sd7" */ o_5072_create_name(o_11394_actual_param, &(((structType)(*o_11391_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else { /* line 3357 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11391_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3097] /* "&o_" */); /* line 3358 "../prg/s7c.sd7" */ o_5072_create_name(o_11394_actual_param, &(((structType)(*o_11391_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } } } } /* line 3323 "../prg/s7c.sd7" */ rflDestr(o_11392_formal_params); } /* line 1 "no_file" */ /* 5072 */ /* line 3365 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11398_process_dynamic_action_call (const listType/*t_20_ref_list*/ *const o_11399_actual_params, const objRefType/*t_19_reference*/ o_11400_current_object, const objRefType/*t_19_reference*/ o_11401_matched_object, structType/*t_164_expr_type*/ *const o_11402_c_expr) { /* line 3369 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11403_c_action_expr; /* line 3369 "../prg/s7c.sd7" */ o_11403_c_action_expr=create_164(sct[398]); /* line 3374 "../prg/s7c.sd7" */ strCopy(&(((structType)(o_11403_c_action_expr))->stru[0].value.striValue/*->o_4778_currentFile*/), refFile(o_11400_current_object)); /* line 3375 "../prg/s7c.sd7" */ ((structType)(o_11403_c_action_expr))->stru[1].value.intValue/*->o_4779_currentLine*/=refLine(o_11400_current_object); /* line 3376 "../prg/s7c.sd7" */ ((structType)(o_11403_c_action_expr))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(*o_11402_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 3377 "../prg/s7c.sd7" */ o_6543_process_action(o_11401_matched_object, o_11399_actual_params, &(o_11403_c_action_expr)); /* line 3378 "../prg/s7c.sd7" */ ((structType)(*o_11402_c_expr))->stru[2].value.intValue/*->o_4780_temp_num*/=((structType)(o_11403_c_action_expr))->stru[2].value.intValue/*->o_4780_temp_num*/; /* line 3379 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11402_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), ((structType)(o_11403_c_action_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 3380 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11402_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), ((structType)(o_11403_c_action_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/); /* line 3381 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11402_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), ((structType)(o_11403_c_action_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/); /* line 3382 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11402_c_expr))->stru[7].value.striValue/*->o_4785_temp_to_null*/), ((structType)(o_11403_c_action_expr))->stru[7].value.striValue/*->o_4785_temp_to_null*/); /* line 3383 "../prg/s7c.sd7" */ if (((((structType)(o_11403_c_action_expr))->stru[13].value.striValue/*->o_4791_result_expr*/)->size!=0 /* "" */)) { /* line 3384 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11402_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11403_c_action_expr))->stru[13].value.striValue/*->o_4791_result_expr*/); } else { /* line 3386 "../prg/s7c.sd7" */ if ((typIsVarfunc(refType(o_11400_current_object))) || /* line 3387 "../prg/s7c.sd7" */ ((refType(o_11400_current_object)) == (o_4736_proctype))) { /* line 3388 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11402_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11403_c_action_expr))->stru[5].value.striValue/*->o_4783_expr*/); } else { /* line 3390 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11402_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3139] /* "/* copy ref_to_value *\/ " */); { /* line 3391 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 3391 "../prg/s7c.sd7" */ o_4878_process_create_declaration(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_11400_current_object))), &tmp_1), &(o_4794_global_c_expr)); } { /* line 3392 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 3392 "../prg/s7c.sd7" */ o_4881_process_create_call(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_11400_current_object))), &tmp_1), ((structType)(o_11403_c_action_expr))->stru[5].value.striValue/*->o_4783_expr*/, &(((structType)(*o_11402_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } } } /* line 3365 "../prg/s7c.sd7" */ destr_164(o_11403_c_action_expr); } /* line 1 "no_file" */ /* 5073 */ /* line 3399 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11404_process_dynamic_call (const objRefType/*t_19_reference*/ o_11405_current_object, const objRefType/*t_19_reference*/ o_11406_matched_object, const listType/*t_20_ref_list*/ *const o_11407_actual_params, structType/*t_164_expr_type*/ *const o_11408_c_expr) { /* line 3404 "../prg/s7c.sd7" */ intType/*t_86_category*/ o_11409_objectCategory=0; /* line 3405 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11410_resultExpr; /* line 3405 "../prg/s7c.sd7" */ o_11410_resultExpr=create_164(sct[399]); /* line 3407 "../prg/s7c.sd7" */ if ((o_11406_matched_object) != (NULL)) { /* line 3408 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11408_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_11405_current_object)); /* line 3409 "../prg/s7c.sd7" */ o_11409_objectCategory=refCategory(o_11406_matched_object); /* line 3410 "../prg/s7c.sd7" */ if ((o_11409_objectCategory) == (4L)) { /* line 3411 "../prg/s7c.sd7" */ if ((typResult(refType(o_11405_current_object))) != (o_4737_voidtype)) { /* line 3412 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11408_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2946] /* "return " */); } /* line 3414 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_11410_resultExpr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 3415 "../prg/s7c.sd7" */ o_5072_create_name(o_11406_matched_object, &(((structType)(o_11410_resultExpr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 3416 "../prg/s7c.sd7" */ { /* line 3416 "../prg/s7c.sd7" */ striType *tmp_1; /* line 3416 "../prg/s7c.sd7" */ tmp_1=&(((structType)(o_11410_resultExpr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3416 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3416 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '('); /* line 3416 "../prg/s7c.sd7" */ } else { /* line 3416 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '('; /* line 3416 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 3416 "../prg/s7c.sd7" */ } } /* line 3417 "../prg/s7c.sd7" */ o_11388_process_dynamic_parameter_list(o_11407_actual_params, o_11406_matched_object, &(o_11410_resultExpr)); /* line 3418 "../prg/s7c.sd7" */ { /* line 3418 "../prg/s7c.sd7" */ striType *tmp_1; /* line 3418 "../prg/s7c.sd7" */ tmp_1=&(((structType)(o_11410_resultExpr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3418 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3418 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ')'); /* line 3418 "../prg/s7c.sd7" */ } else { /* line 3418 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 3418 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 3418 "../prg/s7c.sd7" */ } } /* line 3419 "../prg/s7c.sd7" */ if (o_4642_in(&(o_11406_matched_object), o_10969_return_ref_to_value)) { /* line 3420 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11408_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3139] /* "/* copy ref_to_value *\/ " */); { /* line 3421 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 3421 "../prg/s7c.sd7" */ o_4878_process_create_declaration(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_11405_current_object))), &tmp_1), &(o_4794_global_c_expr)); } { /* line 3422 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 3422 "../prg/s7c.sd7" */ o_4881_process_create_call(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(typResult(refType(o_11405_current_object))), &tmp_1), ((structType)(o_11410_resultExpr))->stru[5].value.striValue/*->o_4783_expr*/, &(((structType)(*o_11408_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } } else { /* line 3425 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11408_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11410_resultExpr))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 3427 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11408_c_expr))->stru[3].value.striValue/*->o_4781_temp_decls*/), ((structType)(o_11410_resultExpr))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 3428 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11408_c_expr))->stru[4].value.striValue/*->o_4782_temp_assigns*/), ((structType)(o_11410_resultExpr))->stru[4].value.striValue/*->o_4782_temp_assigns*/); /* line 3429 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11408_c_expr))->stru[6].value.striValue/*->o_4784_temp_frees*/), ((structType)(o_11410_resultExpr))->stru[6].value.striValue/*->o_4784_temp_frees*/); /* line 3430 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11408_c_expr))->stru[7].value.striValue/*->o_4785_temp_to_null*/), ((structType)(o_11410_resultExpr))->stru[7].value.striValue/*->o_4785_temp_to_null*/); /* line 3431 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11408_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); } else /* line 3432 "../prg/s7c.sd7" */ if ((o_11409_objectCategory) == (33L)) { /* line 3433 "../prg/s7c.sd7" */ if ((typResult(refType(o_11405_current_object))) != (o_4737_voidtype)) { /* line 3434 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11408_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2946] /* "return " */); /* line 3435 "../prg/s7c.sd7" */ if (typIsVarfunc(refType(o_11405_current_object))) { /* line 3436 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11408_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1503] /* "&(" */); } } /* line 3439 "../prg/s7c.sd7" */ o_11398_process_dynamic_action_call(o_11407_actual_params, o_11405_current_object, o_11406_matched_object, o_11408_c_expr); /* line 3440 "../prg/s7c.sd7" */ if ((typResult(refType(o_11405_current_object))) != (o_4737_voidtype)) { /* line 3441 "../prg/s7c.sd7" */ if (typIsVarfunc(refType(o_11405_current_object))) { /* line 3442 "../prg/s7c.sd7" */ { /* line 3442 "../prg/s7c.sd7" */ striType *tmp_1; /* line 3442 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11408_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3442 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 3442 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) ')'); /* line 3442 "../prg/s7c.sd7" */ } else { /* line 3442 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) ')'; /* line 3442 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 3442 "../prg/s7c.sd7" */ } } } /* line 3444 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11408_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); } } else /* line 3446 "../prg/s7c.sd7" */ if (((o_11409_objectCategory) == (9L)) || /* line 3447 "../prg/s7c.sd7" */ ((o_11409_objectCategory) == (10L)) || /* line 3448 "../prg/s7c.sd7" */ ((o_11409_objectCategory) == (25L)) || /* line 3449 "../prg/s7c.sd7" */ ((o_11409_objectCategory) == (11L)) || /* line 3450 "../prg/s7c.sd7" */ ((o_11409_objectCategory) == (12L)) || /* line 3451 "../prg/s7c.sd7" */ ((o_11409_objectCategory) == (13L)) || /* line 3452 "../prg/s7c.sd7" */ ((o_11409_objectCategory) == (14L)) || /* line 3453 "../prg/s7c.sd7" */ ((o_11409_objectCategory) == (16L)) || /* line 3454 "../prg/s7c.sd7" */ ((o_11409_objectCategory) == (19L)) || /* line 3455 "../prg/s7c.sd7" */ ((o_11409_objectCategory) == (28L))) { /* line 3456 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11408_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2946] /* "return " */); /* line 3457 "../prg/s7c.sd7" */ o_4970_getAnyParamToExpr(o_11406_matched_object, &(o_11410_resultExpr)); { /* line 3458 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 3458 "../prg/s7c.sd7" */ o_4878_process_create_declaration(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_11406_matched_object)), &tmp_1), &(o_4794_global_c_expr)); } { /* line 3459 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 3459 "../prg/s7c.sd7" */ o_4881_process_create_call(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_11406_matched_object)), &tmp_1), ((structType)(o_11410_resultExpr))->stru[5].value.striValue/*->o_4783_expr*/, &(((structType)(*o_11408_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } /* line 3461 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11408_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); } else { /* line 3463 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11408_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1431] /* "/* " */); /* line 3464 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11408_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), refCatStr(o_11409_objectCategory)); /* line 3465 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11408_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[164] /* " *\/\n" */); } } else { /* line 3468 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11408_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3140] /* "/* NOT FOUND *\/\n" */); } /* line 3399 "../prg/s7c.sd7" */ destr_164(o_11410_resultExpr); } /* line 1 "no_file" */ /* 5074 */ static void/*t_1_void*/ o_11411_process_dynamic_condition (const objRefType/*t_19_reference*/ o_11412_current_object, listType/*t_20_ref_list*/ *const o_11413_formal_params, intType/*t_14_integer*/ o_11414_paramNum, structType/*t_164_expr_type*/ *const o_11415_c_expr); static void/*t_1_void*/ o_11411_process_dynamic_condition (const objRefType/*t_19_reference*/ o_11412_current_object, listType/*t_20_ref_list*/ *const o_11413_formal_params, intType/*t_14_integer*/ o_11414_paramNum, structType/*t_164_expr_type*/ *const o_11415_c_expr); /* line 3478 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11416_process_dynamic_param_implements (const objRefType/*t_19_reference*/ o_11417_current_object, listType/*t_20_ref_list*/ *const o_11418_formal_params, intType/*t_14_integer*/ o_11419_paramNum, const typeType/*t_7_type*/ *const o_11420_param_type, structType/*t_164_expr_type*/ *const o_11421_c_expr) { /* line 3483 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11422_formal_param=NULL; /* line 3484 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11423_implementationType=typ[0] /* void/t_1_void */; /* line 3486 "../prg/s7c.sd7" */ o_11422_formal_param=rflIdx(*o_11418_formal_params, o_11419_paramNum); /* line 3487 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_11417_current_object)); /* inline proc o_3477_for */ { /* inline params */ /* line 3488 "../prg/s7c.sd7" */ typeType/*t_7_type*/ *const o_4858_forVar=&(o_11423_implementationType); /* line 3488 "../prg/s7c.sd7" */ const const_arrayType/*t_126_*ANONYM_TYPE**/ o_4859_arr=*o_3877/*[*/(&(o_4734_implements), o_11420_param_type); /* line 3488 "../prg/s7c.sd7" */ /* push proc param o_4860_statements */ /* line 3488 "../prg/s7c.sd7" */ /* inline local_vars */ /* line 3488 "../prg/s7c.sd7" */ /* line 199 "../lib/array.s7i" */ /* line 3488 "../prg/s7c.sd7" */ intType/*t_14_integer*/ o_4861_number=0; /* inline body */ { /* line 201 "../lib/array.s7i" */ intType tmp_e_1=(o_4859_arr)->max_position; /* line 201 "../lib/array.s7i" */ for (o_4861_number=(o_4859_arr)->min_position; o_4861_number<=tmp_e_1; (o_4861_number)++) { /* line 202 "../lib/array.s7i" */ *o_4858_forVar=(o_4859_arr)->arr[(idxChk((o_4861_number) < (o_4859_arr)->min_position || (o_4861_number) > (o_4859_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_4861_number)-(o_4859_arr)->min_position)].value.typeValue; /* closure o_4860_statements*/ { /* line 3489 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3141] /* "if (((interfaceType) " */); /* line 3490 "../prg/s7c.sd7" */ if (o_11027_isPointerParam(o_11422_formal_param)) { /* line 3491 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2957] /* "*o_" */); } else { /* line 3493 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); } /* line 3495 "../prg/s7c.sd7" */ o_5072_create_name(o_11422_formal_param, &(((structType)(*o_11421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 3496 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3142] /* ")->type_num==" */); { /* line 3497 "../prg/s7c.sd7" */ union { /* line 3497 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 3497 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 3497 "../prg/s7c.sd7" */ } buffer_1; /* line 3497 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(o_11423_implementationType), &buffer_1.striBuf)); } /* line 3498 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[190] /* "/*" */); /* line 3499 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), typStr(o_11423_implementationType)); /* line 3500 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[123] /* "*\/" */); /* line 3501 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[191] /* ") {\n" */); /* line 3503 "../prg/s7c.sd7" */ refSetType(rflIdx(*o_11418_formal_params, o_11419_paramNum), o_11423_implementationType); /* line 3504 "../prg/s7c.sd7" */ o_11411_process_dynamic_condition(o_11417_current_object, o_11418_formal_params, o_11419_paramNum, o_11421_c_expr); /* line 3506 "../prg/s7c.sd7" */ refSetType(rflIdx(*o_11418_formal_params, o_11419_paramNum), *o_11420_param_type); /* line 3507 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_11417_current_object)); /* line 3508 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[193] /* "} else " */); } /* closure o_4860_statements*/ } } /* pop proc param o_4860_statements */ } /* inline proc o_3477_for */ /* line 3510 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 3511 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_11417_current_object)); /* line 3512 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[194] /* "raise_error(ACTION_ERROR);\n" */); /* line 3531 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_11417_current_object)); /* line 3532 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11421_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 1 "no_file" */ /* 5075 */ /* line 3536 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11424_process_dynamic_param_enumeration (const objRefType/*t_19_reference*/ o_11425_current_object, listType/*t_20_ref_list*/ *const o_11426_formal_params, intType/*t_14_integer*/ o_11427_paramNum, const typeType/*t_7_type*/ *const o_11428_param_type, structType/*t_164_expr_type*/ *const o_11429_c_expr) { /* line 3541 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11430_formal_param=NULL; /* line 3542 "../prg/s7c.sd7" */ hashType/*t_155_number_element_hash*/ o_11431_enumsByIntValue; /* line 3543 "../prg/s7c.sd7" */ intType/*t_14_integer*/ o_11432_intValueOfEnum=0; /* line 3544 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11433_enumLiteral=NULL; /* line 3545 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11434_backupParam=NULL; /* line 3542 "../prg/s7c.sd7" */ o_11431_enumsByIntValue=hshEmpty(); /* line 3547 "../prg/s7c.sd7" */ o_11430_formal_param=rflIdx(*o_11426_formal_params, o_11427_paramNum); /* line 3548 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11429_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_11425_current_object)); /* line 3549 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11429_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1417] /* "switch (" */); /* line 3550 "../prg/s7c.sd7" */ if (o_11027_isPointerParam(o_11430_formal_param)) { /* line 3551 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11429_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2957] /* "*o_" */); /* line 3552 "../prg/s7c.sd7" */ o_5072_create_name(o_11430_formal_param, &(((structType)(*o_11429_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } else { /* line 3554 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11429_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2894] /* "o_" */); /* line 3555 "../prg/s7c.sd7" */ o_5072_create_name(o_11430_formal_param, &(((structType)(*o_11429_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); } /* line 3557 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11429_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[191] /* ") {\n" */); { /* line 3558 "../prg/s7c.sd7" */ hashType/*t_155_number_element_hash*/ tmp_1 = (hashType/*t_155_number_element_hash*/)(NULL); /* line 3558 "../prg/s7c.sd7" */ o_4430/*:=*/(&(o_11431_enumsByIntValue), (tmp_1=(hashType/*t_155_number_element_hash*/)(o_4530_flip(*o_4580/*[*/(&(o_10973_enum_literal), o_11428_param_type))))); /* line 3558 "../prg/s7c.sd7" */ destr_155(tmp_1); } /* inline proc o_247_for */ { /* inline params */ /* line 3560 "../prg/s7c.sd7" */ intType/*t_14_integer*/ *const o_11435_forVar=&(o_11432_intValueOfEnum); /* line 3560 "../prg/s7c.sd7" */ arrayType/*t_27_TEST_1*/ tmp_2 = (arrayType/*t_27_TEST_1*/)(NULL); /* line 3560 "../prg/s7c.sd7" */ arrayType/*t_27_TEST_1*/ tmp_1 = (arrayType/*t_27_TEST_1*/)(NULL); /* line 3560 "../prg/s7c.sd7" */ const const_arrayType/*t_27_TEST_1*/ o_11436_arr=(tmp_1=(arrayType/*t_27_TEST_1*/)(o_295_sort((tmp_2=(arrayType/*t_27_TEST_1*/)(o_4469_keys(o_11431_enumsByIntValue)))))); /* line 3560 "../prg/s7c.sd7" */ /* push proc param o_11437_statements */ /* line 3560 "../prg/s7c.sd7" */ /* inline local_vars */ /* line 3560 "../prg/s7c.sd7" */ /* line 199 "../lib/array.s7i" */ /* line 3560 "../prg/s7c.sd7" */ intType/*t_14_integer*/ o_11438_number=0; /* inline body */ { /* line 201 "../lib/array.s7i" */ intType tmp_e_1=(o_11436_arr)->max_position; /* line 201 "../lib/array.s7i" */ for (o_11438_number=(o_11436_arr)->min_position; o_11438_number<=tmp_e_1; (o_11438_number)++) { /* line 202 "../lib/array.s7i" */ *o_11435_forVar=(o_11436_arr)->arr[(idxChk((o_11438_number) < (o_11436_arr)->min_position || (o_11438_number) > (o_11436_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_11438_number)-(o_11436_arr)->min_position)].value.intValue; /* closure o_11437_statements*/ { /* line 3561 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11429_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_11425_current_object)); /* line 3562 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11429_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1413] /* "case " */); { /* line 3563 "../prg/s7c.sd7" */ union { /* line 3563 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 3563 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 3563 "../prg/s7c.sd7" */ } buffer_1; /* line 3563 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11429_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(o_11432_intValueOfEnum, &buffer_1.striBuf)); } /* line 3564 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11429_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3143] /* ": {\n" */); { /* line 3566 "../prg/s7c.sd7" */ arrayType tmp_1; /* line 3566 "../prg/s7c.sd7" */ o_11433_enumLiteral=(*(tmp_1=*o_4438/*[*/(&(o_11431_enumsByIntValue), &(o_11432_intValueOfEnum)), &tmp_1->arr[(idxChk(1min_position || 1>tmp_1->max_position) ? intRaiseError(RANGE_ERROR) : 0, 1-tmp_1->min_position)].value.objRefValue)); } /* line 3567 "../prg/s7c.sd7" */ o_11434_backupParam=rflIdx(*o_11426_formal_params, o_11427_paramNum); /* line 3568 "../prg/s7c.sd7" */ rflElemcpy(*o_11426_formal_params, o_11427_paramNum, o_11433_enumLiteral); /* line 3569 "../prg/s7c.sd7" */ o_11411_process_dynamic_condition(o_11425_current_object, o_11426_formal_params, o_11427_paramNum, o_11429_c_expr); /* line 3571 "../prg/s7c.sd7" */ rflElemcpy(*o_11426_formal_params, o_11427_paramNum, o_11434_backupParam); /* line 3572 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11429_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_11425_current_object)); /* line 3573 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11429_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3144] /* "} break;\n" */); } /* closure o_11437_statements*/ } } /* line 202 "../lib/array.s7i" */ destr_27(tmp_2); /* line 202 "../lib/array.s7i" */ destr_27(tmp_1); /* pop proc param o_11437_statements */ } /* inline proc o_247_for */ /* line 3575 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11429_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_11425_current_object)); /* line 3576 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11429_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3145] /* "default: {\n" */); /* line 3577 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11429_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_11425_current_object)); /* line 3578 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11429_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[194] /* "raise_error(ACTION_ERROR);\n" */); /* line 3595 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11429_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3144] /* "} break;\n" */); /* line 3596 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11429_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 3536 "../prg/s7c.sd7" */ destr_155(o_11431_enumsByIntValue); } /* line 1 "no_file" */ /* 5076 */ /* line 3600 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11411_process_dynamic_condition (const objRefType/*t_19_reference*/ o_11412_current_object, listType/*t_20_ref_list*/ *const o_11413_formal_params, intType/*t_14_integer*/ o_11414_paramNum, structType/*t_164_expr_type*/ *const o_11415_c_expr) { /* line 3605 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11439_formal_param=NULL; /* line 3606 "../prg/s7c.sd7" */ intType/*t_86_category*/ o_11440_paramCategory=0; /* line 3607 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11441_param_type=typ[0] /* void/t_1_void */; /* line 3608 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11442_param_list=NULL; /* line 3609 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11443_matched_object=NULL; /* line 3611 "../prg/s7c.sd7" */ ++(o_11414_paramNum); /* line 3612 "../prg/s7c.sd7" */ if ((o_11414_paramNum) <= (rflLng(*o_11413_formal_params))) { /* line 3613 "../prg/s7c.sd7" */ o_11439_formal_param=rflIdx(*o_11413_formal_params, o_11414_paramNum); /* line 3614 "../prg/s7c.sd7" */ o_11440_paramCategory=refCategory(o_11439_formal_param); /* line 3615 "../prg/s7c.sd7" */ if ((o_11440_paramCategory) != (0L)) { /* line 3616 "../prg/s7c.sd7" */ o_11441_param_type=refType(o_11439_formal_param); /* line 3617 "../prg/s7c.sd7" */ if (o_3884_in(&(o_11441_param_type), o_4734_implements)) { /* line 3618 "../prg/s7c.sd7" */ o_11416_process_dynamic_param_implements(o_11412_current_object, o_11413_formal_params, o_11414_paramNum, &(o_11441_param_type), o_11415_c_expr); } else /* line 3620 "../prg/s7c.sd7" */ if (o_4587_in(&(o_11441_param_type), o_10973_enum_literal)) { /* line 3621 "../prg/s7c.sd7" */ o_11424_process_dynamic_param_enumeration(o_11412_current_object, o_11413_formal_params, o_11414_paramNum, &(o_11441_param_type), o_11415_c_expr); } else { /* line 3624 "../prg/s7c.sd7" */ o_11411_process_dynamic_condition(o_11412_current_object, o_11413_formal_params, o_11414_paramNum, o_11415_c_expr); } } else { /* line 3628 "../prg/s7c.sd7" */ o_11411_process_dynamic_condition(o_11412_current_object, o_11413_formal_params, o_11414_paramNum, o_11415_c_expr); } } else { /* line 3632 "../prg/s7c.sd7" */ rflCpy(&(o_11442_param_list), *o_11413_formal_params); /* line 3633 "../prg/s7c.sd7" */ o_11443_matched_object=prgMatch(o_4739_prog, o_11442_param_list); /* line 3634 "../prg/s7c.sd7" */ if ((o_11443_matched_object) == (NULL)) { /* line 3635 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11415_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3146] /* "printf(\"NOT FOUND:\\n\");\n" */); { /* line 3636 "../prg/s7c.sd7" */ listType tmp_elem_1; /* line 3636 "../prg/s7c.sd7" */ for (tmp_elem_1 = *o_11413_formal_params; tmp_elem_1 != NULL; tmp_elem_1 = tmp_elem_1->next) { /* line 3636 "../prg/s7c.sd7" */ o_11439_formal_param = tmp_elem_1->obj; /* line 3637 "../prg/s7c.sd7" */ o_11440_paramCategory=refCategory(o_11439_formal_param); /* line 3638 "../prg/s7c.sd7" */ if ((o_11440_paramCategory) != (0L)) { /* line 3639 "../prg/s7c.sd7" */ o_11441_param_type=refType(o_11439_formal_param); /* line 3640 "../prg/s7c.sd7" */ if (o_3884_in(&(o_11441_param_type), o_4734_implements)) { /* line 3641 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11415_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[194] /* "raise_error(ACTION_ERROR);\n" */); } else /* line 3652 "../prg/s7c.sd7" */ if (o_4587_in(&(o_11441_param_type), o_10973_enum_literal)) { /* line 3653 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11415_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[194] /* "raise_error(ACTION_ERROR);\n" */); } else { /* line 3665 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11415_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3147] /* "printf(\"other param_type\\n\");\n" */); } } } } } /* line 3670 "../prg/s7c.sd7" */ o_11404_process_dynamic_call(o_11412_current_object, o_11443_matched_object, o_11413_formal_params, o_11415_c_expr); } /* line 3600 "../prg/s7c.sd7" */ rflDestr(o_11442_param_list); } /* line 1 "no_file" */ /* 5077 */ /* line 3675 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11444_process_dynamic_decision (const objRefType/*t_19_reference*/ o_11445_current_object, structType/*t_164_expr_type*/ *const o_11446_c_expr) { /* line 3679 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11447_c_param_list; /* line 3680 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11448_c_func_body; /* line 3681 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11449_object_type=typ[0] /* void/t_1_void */; /* line 3682 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11450_result_type=typ[0] /* void/t_1_void */; /* line 3683 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11451_param_list=NULL; /* line 3679 "../prg/s7c.sd7" */ o_11447_c_param_list=create_164(sct[400]); /* line 3680 "../prg/s7c.sd7" */ o_11448_c_func_body=create_164(sct[401]); /* line 3685 "../prg/s7c.sd7" */ o_11449_object_type=refType(o_11445_current_object); /* line 3686 "../prg/s7c.sd7" */ if ((typIsFunc(o_11449_object_type)) || /* line 3686 "../prg/s7c.sd7" */ (typIsVarfunc(o_11449_object_type))) { /* line 3687 "../prg/s7c.sd7" */ o_11450_result_type=typResult(o_11449_object_type); /* line 3688 "../prg/s7c.sd7" */ if ((o_3775_not(&(o_11450_result_type), o_4414_typeCategory)) || /* line 3688 "../prg/s7c.sd7" */ ((*o_3765/*[*/(&(o_4414_typeCategory), &(o_11450_result_type))) != (7L))) { /* line 3689 "../prg/s7c.sd7" */ o_11219_declare_types_of_params(&(o_11451_param_list), &(o_4794_global_c_expr)); /* line 3690 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11446_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_11445_current_object)); /* line 3691 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11446_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3148] /* "/* DYNAMIC *\/ static " */); /* line 3692 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11446_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(&(o_11450_result_type))); /* line 3693 "../prg/s7c.sd7" */ if (typIsVarfunc(o_11449_object_type)) { /* line 3694 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11446_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3018] /* " *o_" */); } else { /* line 3696 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11446_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2893] /* " o_" */); } /* line 3698 "../prg/s7c.sd7" */ o_5072_create_name(o_11445_current_object, &(((structType)(*o_11446_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 3699 "../prg/s7c.sd7" */ rflCpy(&(o_11451_param_list), refParams(o_11445_current_object)); /* line 3700 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11446_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[177] /* " (" */); /* line 3701 "../prg/s7c.sd7" */ o_11229_process_param_list_declaration(&(o_11451_param_list), &(o_11447_c_param_list)); /* line 3702 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11446_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11447_c_param_list))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3703 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11446_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2944] /* ")\n" */); /* line 3704 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11446_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_11445_current_object)); /* line 3705 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11446_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 3706 "../prg/s7c.sd7" */ o_11411_process_dynamic_condition(o_11445_current_object, &(o_11451_param_list), 0L, &(o_11448_c_func_body)); /* line 3708 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11447_c_param_list))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_11446_c_expr); /* line 3709 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11448_c_func_body))->stru[3].value.striValue/*->o_4781_temp_decls*/, o_11446_c_expr); /* line 3710 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11446_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11447_c_param_list))->stru[4].value.striValue/*->o_4782_temp_assigns*/); /* line 3711 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11448_c_func_body))->stru[4].value.striValue/*->o_4782_temp_assigns*/, o_11446_c_expr); /* line 3712 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11446_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11448_c_func_body))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3713 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11447_c_param_list))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_11446_c_expr); /* line 3714 "../prg/s7c.sd7" */ o_4821_AppendWithDiagnostic(((structType)(o_11448_c_func_body))->stru[6].value.striValue/*->o_4784_temp_frees*/, o_11446_c_expr); /* line 3715 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11446_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_11445_current_object)); /* line 3716 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11446_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2875] /* "}\n\n" */); } } /* line 3675 "../prg/s7c.sd7" */ destr_164(o_11447_c_param_list); /* line 3675 "../prg/s7c.sd7" */ destr_164(o_11448_c_func_body); /* line 3675 "../prg/s7c.sd7" */ rflDestr(o_11451_param_list); } /* line 1 "no_file" */ /* 5078 */ /* line 3722 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11452_process_dynamic_decisions (structType/*t_164_expr_type*/ *const o_11453_c_expr) { /* line 3725 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11454_current_object=NULL; { /* line 3727 "../prg/s7c.sd7" */ listType tmp_elem_1; /* line 3727 "../prg/s7c.sd7" */ for (tmp_elem_1 = o_10971_dynamic_functions; tmp_elem_1 != NULL; tmp_elem_1 = tmp_elem_1->next) { /* line 3727 "../prg/s7c.sd7" */ o_11454_current_object = tmp_elem_1->obj; /* line 3728 "../prg/s7c.sd7" */ o_11444_process_dynamic_decision(o_11454_current_object, o_11453_c_expr); } } } /* line 1 "no_file" */ /* 5079 */ /* line 3733 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11455_process_dynamic_declaration (const objRefType/*t_19_reference*/ o_11456_current_object, structType/*t_164_expr_type*/ *const o_11457_c_expr) { /* line 3737 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11458_c_param_list; /* line 3738 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11459_object_type=typ[0] /* void/t_1_void */; /* line 3739 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11460_result_type=typ[0] /* void/t_1_void */; /* line 3740 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11461_param_list=NULL; /* line 3737 "../prg/s7c.sd7" */ o_11458_c_param_list=create_164(sct[402]); /* line 3742 "../prg/s7c.sd7" */ o_11459_object_type=refType(o_11456_current_object); /* line 3743 "../prg/s7c.sd7" */ if ((typIsFunc(o_11459_object_type)) || /* line 3743 "../prg/s7c.sd7" */ (typIsVarfunc(o_11459_object_type))) { /* line 3744 "../prg/s7c.sd7" */ o_11460_result_type=typResult(o_11459_object_type); /* line 3745 "../prg/s7c.sd7" */ if ((o_3775_not(&(o_11460_result_type), o_4414_typeCategory)) || /* line 3745 "../prg/s7c.sd7" */ ((*o_3765/*[*/(&(o_4414_typeCategory), &(o_11460_result_type))) != (7L))) { { /* line 3746 "../prg/s7c.sd7" */ rflAppend(&(o_10971_dynamic_functions), rflMklist(o_11456_current_object)); } /* line 3747 "../prg/s7c.sd7" */ o_11219_declare_types_of_params(&(o_11461_param_list), &(o_4794_global_c_expr)); /* line 3748 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11457_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3148] /* "/* DYNAMIC *\/ static " */); /* line 3749 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11457_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(&(o_11460_result_type))); /* line 3750 "../prg/s7c.sd7" */ if (typIsVarfunc(o_11459_object_type)) { /* line 3751 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11457_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3018] /* " *o_" */); } else { /* line 3753 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11457_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2893] /* " o_" */); } /* line 3755 "../prg/s7c.sd7" */ o_5072_create_name(o_11456_current_object, &(((structType)(*o_11457_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 3756 "../prg/s7c.sd7" */ rflCpy(&(o_11461_param_list), refParams(o_11456_current_object)); /* line 3757 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11457_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[177] /* " (" */); /* line 3758 "../prg/s7c.sd7" */ o_11229_process_param_list_declaration(&(o_11461_param_list), &(o_11458_c_param_list)); /* line 3759 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11457_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11458_c_param_list))->stru[5].value.striValue/*->o_4783_expr*/); /* line 3760 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11457_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[186] /* ");\n" */); /* line 3761 "../prg/s7c.sd7" */ o_4655/*@:=*/(&(o_4797_prototype_declared), &(o_11456_current_object), o_26_TRUE); } } /* line 3733 "../prg/s7c.sd7" */ destr_164(o_11458_c_param_list); /* line 3733 "../prg/s7c.sd7" */ rflDestr(o_11461_param_list); } /* line 1 "no_file" */ /* 5080 */ /* line 60 "../lib/struct.s7i" */ static void cpy_164 (structType/*t_164_expr_type*/ a, structType/*t_164_expr_type*/ b) /* line 60 "../lib/struct.s7i" */ { /* line 60 "../lib/struct.s7i" */ strCopy(&(a->stru[0].value.striValue), b->stru[0].value.striValue); /* line 60 "../lib/struct.s7i" */ a->stru[1].value.intValue=b->stru[1].value.intValue; /* line 60 "../lib/struct.s7i" */ a->stru[2].value.intValue=b->stru[2].value.intValue; /* line 60 "../lib/struct.s7i" */ strCopy(&(a->stru[3].value.striValue), b->stru[3].value.striValue); /* line 60 "../lib/struct.s7i" */ strCopy(&(a->stru[4].value.striValue), b->stru[4].value.striValue); /* line 60 "../lib/struct.s7i" */ strCopy(&(a->stru[5].value.striValue), b->stru[5].value.striValue); /* line 60 "../lib/struct.s7i" */ strCopy(&(a->stru[6].value.striValue), b->stru[6].value.striValue); /* line 60 "../lib/struct.s7i" */ strCopy(&(a->stru[7].value.striValue), b->stru[7].value.striValue); /* line 60 "../lib/struct.s7i" */ strCopy(&(a->stru[8].value.striValue), b->stru[8].value.striValue); /* line 60 "../lib/struct.s7i" */ strCopy(&(a->stru[9].value.striValue), b->stru[9].value.striValue); /* line 60 "../lib/struct.s7i" */ strCopy(&(a->stru[10].value.striValue), b->stru[10].value.striValue); /* line 60 "../lib/struct.s7i" */ strCopy(&(a->stru[11].value.striValue), b->stru[11].value.striValue); /* line 60 "../lib/struct.s7i" */ strCopy(&(a->stru[12].value.striValue), b->stru[12].value.striValue); /* line 60 "../lib/struct.s7i" */ strCopy(&(a->stru[13].value.striValue), b->stru[13].value.striValue); /* line 60 "../lib/struct.s7i" */ strCopy(&(a->stru[14].value.striValue), b->stru[14].value.striValue); /* line 60 "../lib/struct.s7i" */ } /* line 1 "no_file" */ /* line 3767 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11462_process_hashcode (const objRefType/*t_19_reference*/ o_11463_current_object, structType/*t_164_expr_type*/ *const o_11464_c_expr) { /* line 3770 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11465_param_list=NULL; /* line 3771 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11466_expression=NULL; /* line 3773 "../prg/s7c.sd7" */ cpy_164((structType/*t_164_expr_type*/)(*o_11464_c_expr), (structType/*t_164_expr_type*/)(sct[102])); /* line 3774 "../prg/s7c.sd7" */ refSetVar(o_11463_current_object, o_25_FALSE); { /* line 3775 "../prg/s7c.sd7" */ listType old_rfl=o_11465_param_list; /* line 3775 "../prg/s7c.sd7" */ o_11465_param_list=rflMklist(o_11463_current_object); /* line 3775 "../prg/s7c.sd7" */ rflDestr(old_rfl); } { /* line 3776 "../prg/s7c.sd7" */ rflAppend(&(o_11465_param_list), rflMklist(prgSyobject(o_4739_prog, &str[3149] /* "hashCode" */))); } /* line 3777 "../prg/s7c.sd7" */ o_11466_expression=prgMatchExpr(o_4739_prog, o_11465_param_list); /* line 3779 "../prg/s7c.sd7" */ refSetCategory(o_11466_expression, 5L); /* line 3780 "../prg/s7c.sd7" */ o_4941_process_expr(o_11466_expression, o_11464_c_expr); /* line 3767 "../prg/s7c.sd7" */ rflDestr(o_11465_param_list); } /* line 1 "no_file" */ /* 5081 */ /* line 3784 "../prg/s7c.sd7" */ static objRefType/*t_19_reference*/ o_11467_keyCreateObj (const typeType/*t_7_type*/ *const o_11468_hash_type) { /* line 3787 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11469_keyCreate=NULL; /* line 3789 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11470_param_list=NULL; { /* line 3791 "../prg/s7c.sd7" */ listType old_rfl=o_11470_param_list; /* line 3791 "../prg/s7c.sd7" */ o_11470_param_list=rflMklist(typMatchobj(*o_11468_hash_type)); /* line 3791 "../prg/s7c.sd7" */ rflDestr(old_rfl); } { /* line 3792 "../prg/s7c.sd7" */ rflAppend(&(o_11470_param_list), rflMklist(prgSyobject(o_4739_prog, &str[16] /* "." */))); } { /* line 3793 "../prg/s7c.sd7" */ rflAppend(&(o_11470_param_list), rflMklist(prgSyobject(o_4739_prog, &str[3150] /* "keyCreate" */))); } /* line 3794 "../prg/s7c.sd7" */ o_11469_keyCreate=prgMatch(o_4739_prog, o_11470_param_list); /* line 3784 "../prg/s7c.sd7" */ rflDestr(o_11470_param_list); return o_11469_keyCreate; } /* line 1 "no_file" */ /* 5082 */ /* line 3798 "../prg/s7c.sd7" */ static objRefType/*t_19_reference*/ o_11471_keyCompareObj (const typeType/*t_7_type*/ *const o_11472_hash_type) { /* line 3801 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11473_keyCompare=NULL; /* line 3803 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11474_param_list=NULL; { /* line 3805 "../prg/s7c.sd7" */ listType old_rfl=o_11474_param_list; /* line 3805 "../prg/s7c.sd7" */ o_11474_param_list=rflMklist(typMatchobj(*o_11472_hash_type)); /* line 3805 "../prg/s7c.sd7" */ rflDestr(old_rfl); } { /* line 3806 "../prg/s7c.sd7" */ rflAppend(&(o_11474_param_list), rflMklist(prgSyobject(o_4739_prog, &str[16] /* "." */))); } { /* line 3807 "../prg/s7c.sd7" */ rflAppend(&(o_11474_param_list), rflMklist(prgSyobject(o_4739_prog, &str[3151] /* "keyCompare" */))); } /* line 3808 "../prg/s7c.sd7" */ o_11473_keyCompare=prgMatch(o_4739_prog, o_11474_param_list); /* line 3798 "../prg/s7c.sd7" */ rflDestr(o_11474_param_list); return o_11473_keyCompare; } /* line 1 "no_file" */ /* 5083 */ /* line 3812 "../prg/s7c.sd7" */ static objRefType/*t_19_reference*/ o_11475_dataCreateObj (const typeType/*t_7_type*/ *const o_11476_hash_type) { /* line 3815 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11477_dataCreate=NULL; /* line 3817 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11478_param_list=NULL; { /* line 3819 "../prg/s7c.sd7" */ listType old_rfl=o_11478_param_list; /* line 3819 "../prg/s7c.sd7" */ o_11478_param_list=rflMklist(typMatchobj(*o_11476_hash_type)); /* line 3819 "../prg/s7c.sd7" */ rflDestr(old_rfl); } { /* line 3820 "../prg/s7c.sd7" */ rflAppend(&(o_11478_param_list), rflMklist(prgSyobject(o_4739_prog, &str[16] /* "." */))); } { /* line 3821 "../prg/s7c.sd7" */ rflAppend(&(o_11478_param_list), rflMklist(prgSyobject(o_4739_prog, &str[3152] /* "dataCreate" */))); } /* line 3822 "../prg/s7c.sd7" */ o_11477_dataCreate=prgMatch(o_4739_prog, o_11478_param_list); /* line 3812 "../prg/s7c.sd7" */ rflDestr(o_11478_param_list); return o_11477_dataCreate; } /* line 1 "no_file" */ /* 5084 */ /* line 3826 "../prg/s7c.sd7" */ static objRefType/*t_19_reference*/ o_11479_dataCopyObj (const typeType/*t_7_type*/ *const o_11480_hash_type) { /* line 3829 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11481_dataCopy=NULL; /* line 3831 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11482_param_list=NULL; { /* line 3833 "../prg/s7c.sd7" */ listType old_rfl=o_11482_param_list; /* line 3833 "../prg/s7c.sd7" */ o_11482_param_list=rflMklist(typMatchobj(*o_11480_hash_type)); /* line 3833 "../prg/s7c.sd7" */ rflDestr(old_rfl); } { /* line 3834 "../prg/s7c.sd7" */ rflAppend(&(o_11482_param_list), rflMklist(prgSyobject(o_4739_prog, &str[16] /* "." */))); } { /* line 3835 "../prg/s7c.sd7" */ rflAppend(&(o_11482_param_list), rflMklist(prgSyobject(o_4739_prog, &str[3153] /* "dataCopy" */))); } /* line 3836 "../prg/s7c.sd7" */ o_11481_dataCopy=prgMatch(o_4739_prog, o_11482_param_list); /* line 3826 "../prg/s7c.sd7" */ rflDestr(o_11482_param_list); return o_11481_dataCopy; } /* line 1 "no_file" */ /* 5085 */ /* line 3840 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11483_process_arr_cpy_declaration (const objRefType/*t_19_reference*/ o_11484_current_object) { /* line 3843 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11485_params=NULL; /* line 3844 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11486_base_type=typ[0] /* void/t_1_void */; /* line 3845 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11487_object_type=typ[0] /* void/t_1_void */; /* line 3847 "../prg/s7c.sd7" */ rflCpy(&(o_11485_params), refParams(o_11484_current_object)); /* line 3848 "../prg/s7c.sd7" */ if ((rflLng(o_11485_params)) >= (1L)) { /* line 3849 "../prg/s7c.sd7" */ o_11487_object_type=refType(rflIdx(o_11485_params, 1L)); /* line 3850 "../prg/s7c.sd7" */ o_3608/*@:=*/(&(o_4908_copyFunction), &(o_11487_object_type), o_11484_current_object); /* line 3851 "../prg/s7c.sd7" */ o_3785/*@:=*/(&(o_4414_typeCategory), &(o_11487_object_type), 14L); /* line 3852 "../prg/s7c.sd7" */ o_11486_base_type=o_4749_base_type(&(o_11487_object_type)); /* line 3853 "../prg/s7c.sd7" */ if ((o_11486_base_type) != (typ[0] /* void/t_1_void */)) { /* line 3854 "../prg/s7c.sd7" */ if (o_3832_not(&(o_11487_object_type), o_4415_array_element)) { /* line 3855 "../prg/s7c.sd7" */ o_3842/*@:=*/(&(o_4415_array_element), &(o_11487_object_type), o_11486_base_type); } /* line 3857 "../prg/s7c.sd7" */ if (o_3832_not(&(o_11486_base_type), o_4416_array_type)) { /* line 3858 "../prg/s7c.sd7" */ o_3842/*@:=*/(&(o_4416_array_type), &(o_11486_base_type), o_11487_object_type); } } } /* line 3840 "../prg/s7c.sd7" */ rflDestr(o_11485_params); } /* line 1 "no_file" */ /* 5086 */ /* line 3865 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11488_process_arr_create_declaration (const objRefType/*t_19_reference*/ o_11489_current_object) { /* line 3868 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11490_params=NULL; /* line 3869 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11491_base_type=typ[0] /* void/t_1_void */; /* line 3870 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11492_object_type=typ[0] /* void/t_1_void */; /* line 3872 "../prg/s7c.sd7" */ rflCpy(&(o_11490_params), refParams(o_11489_current_object)); /* line 3873 "../prg/s7c.sd7" */ if ((rflLng(o_11490_params)) >= (1L)) { /* line 3874 "../prg/s7c.sd7" */ o_11492_object_type=refType(rflIdx(o_11490_params, 1L)); /* line 3875 "../prg/s7c.sd7" */ o_3608/*@:=*/(&(o_4874_createFunction), &(o_11492_object_type), o_11489_current_object); /* line 3876 "../prg/s7c.sd7" */ o_3785/*@:=*/(&(o_4414_typeCategory), &(o_11492_object_type), 14L); /* line 3877 "../prg/s7c.sd7" */ o_11491_base_type=o_4749_base_type(&(o_11492_object_type)); /* line 3878 "../prg/s7c.sd7" */ if ((o_11491_base_type) != (typ[0] /* void/t_1_void */)) { /* line 3879 "../prg/s7c.sd7" */ if (o_3832_not(&(o_11492_object_type), o_4415_array_element)) { /* line 3880 "../prg/s7c.sd7" */ o_3842/*@:=*/(&(o_4415_array_element), &(o_11492_object_type), o_11491_base_type); } /* line 3882 "../prg/s7c.sd7" */ if (o_3832_not(&(o_11491_base_type), o_4416_array_type)) { /* line 3883 "../prg/s7c.sd7" */ o_3842/*@:=*/(&(o_4416_array_type), &(o_11491_base_type), o_11492_object_type); } } } /* line 3865 "../prg/s7c.sd7" */ rflDestr(o_11490_params); } /* line 1 "no_file" */ /* 5087 */ /* line 3890 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11493_process_arr_destr_declaration (const objRefType/*t_19_reference*/ o_11494_current_object) { /* line 3893 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11495_params=NULL; /* line 3894 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11496_base_type=typ[0] /* void/t_1_void */; /* line 3895 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11497_object_type=typ[0] /* void/t_1_void */; /* line 3897 "../prg/s7c.sd7" */ rflCpy(&(o_11495_params), refParams(o_11494_current_object)); /* line 3898 "../prg/s7c.sd7" */ if ((rflLng(o_11495_params)) >= (1L)) { /* line 3899 "../prg/s7c.sd7" */ o_11497_object_type=refType(rflIdx(o_11495_params, 1L)); /* line 3900 "../prg/s7c.sd7" */ o_3608/*@:=*/(&(o_4825_destrFunction), &(o_11497_object_type), o_11494_current_object); /* line 3901 "../prg/s7c.sd7" */ o_3785/*@:=*/(&(o_4414_typeCategory), &(o_11497_object_type), 14L); /* line 3902 "../prg/s7c.sd7" */ o_11496_base_type=o_4749_base_type(&(o_11497_object_type)); /* line 3903 "../prg/s7c.sd7" */ if ((o_11496_base_type) != (typ[0] /* void/t_1_void */)) { /* line 3904 "../prg/s7c.sd7" */ if (o_3832_not(&(o_11497_object_type), o_4415_array_element)) { /* line 3905 "../prg/s7c.sd7" */ o_3842/*@:=*/(&(o_4415_array_element), &(o_11497_object_type), o_11496_base_type); } /* line 3907 "../prg/s7c.sd7" */ if (o_3832_not(&(o_11496_base_type), o_4416_array_type)) { /* line 3908 "../prg/s7c.sd7" */ o_3842/*@:=*/(&(o_4416_array_type), &(o_11496_base_type), o_11497_object_type); } } } /* line 3890 "../prg/s7c.sd7" */ rflDestr(o_11495_params); } /* line 1 "no_file" */ /* 5088 */ /* line 3915 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11498_process_arr_gen_declaration (const objRefType/*t_19_reference*/ o_11499_current_object, structType/*t_164_expr_type*/ *const o_11500_c_expr) { /* line 3919 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11501_params=NULL; /* line 3920 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11502_result_type=typ[0] /* void/t_1_void */; /* line 3921 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11503_object_type=typ[0] /* void/t_1_void */; /* line 3923 "../prg/s7c.sd7" */ rflCpy(&(o_11501_params), refParams(o_11499_current_object)); /* line 3924 "../prg/s7c.sd7" */ if ((rflLng(o_11501_params)) >= (1L)) { /* line 3925 "../prg/s7c.sd7" */ o_11503_object_type=refType(rflIdx(o_11501_params, 1L)); /* line 3926 "../prg/s7c.sd7" */ o_11502_result_type=typResult(refType(o_11499_current_object)); /* line 3927 "../prg/s7c.sd7" */ if (o_3832_not(&(o_11503_object_type), o_4416_array_type)) { /* line 3928 "../prg/s7c.sd7" */ o_3842/*@:=*/(&(o_4416_array_type), &(o_11503_object_type), o_11502_result_type); } /* line 3930 "../prg/s7c.sd7" */ if (o_3832_not(&(o_11502_result_type), o_4415_array_element)) { /* line 3931 "../prg/s7c.sd7" */ o_3842/*@:=*/(&(o_4415_array_element), &(o_11502_result_type), o_11503_object_type); } /* line 3933 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11500_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3154] /* "/* ACTION ARR_GEN for type " */); /* line 3934 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11500_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4746_type_name2(&(o_11502_result_type))); /* line 3935 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11500_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3155] /* " element is " */); /* line 3936 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11500_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4746_type_name2(&(o_11503_object_type))); /* line 3937 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11500_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[265] /* " *\/\n\n" */); } /* line 3915 "../prg/s7c.sd7" */ rflDestr(o_11501_params); } /* line 1 "no_file" */ /* 5089 */ /* line 3942 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11504_process_arr_idx_declaration (const objRefType/*t_19_reference*/ o_11505_current_object, structType/*t_164_expr_type*/ *const o_11506_c_expr) { /* line 3946 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11507_params=NULL; /* line 3947 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11508_result_type=typ[0] /* void/t_1_void */; /* line 3948 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11509_object_type=typ[0] /* void/t_1_void */; /* line 3950 "../prg/s7c.sd7" */ rflCpy(&(o_11507_params), refParams(o_11505_current_object)); /* line 3951 "../prg/s7c.sd7" */ if ((rflLng(o_11507_params)) >= (1L)) { /* line 3952 "../prg/s7c.sd7" */ o_11509_object_type=refType(rflIdx(o_11507_params, 1L)); /* line 3953 "../prg/s7c.sd7" */ o_11508_result_type=typResult(refType(o_11505_current_object)); /* line 3954 "../prg/s7c.sd7" */ if (o_3832_not(&(o_11509_object_type), o_4415_array_element)) { /* line 3955 "../prg/s7c.sd7" */ o_3842/*@:=*/(&(o_4415_array_element), &(o_11509_object_type), o_11508_result_type); } /* line 3957 "../prg/s7c.sd7" */ if (o_3832_not(&(o_11508_result_type), o_4416_array_type)) { /* line 3958 "../prg/s7c.sd7" */ o_3842/*@:=*/(&(o_4416_array_type), &(o_11508_result_type), o_11509_object_type); } /* line 3960 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11506_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3156] /* "/* ACTION ARR_IDX for type " */); /* line 3961 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11506_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4746_type_name2(&(o_11509_object_type))); /* line 3962 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11506_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3155] /* " element is " */); /* line 3963 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11506_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4746_type_name2(&(o_11508_result_type))); /* line 3964 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11506_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[265] /* " *\/\n\n" */); } /* line 3942 "../prg/s7c.sd7" */ rflDestr(o_11507_params); } /* line 1 "no_file" */ /* 5090 */ /* line 3969 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11510_process_arr_times_declaration (const objRefType/*t_19_reference*/ o_11511_current_object, structType/*t_164_expr_type*/ *const o_11512_c_expr) { /* line 3973 "../prg/s7c.sd7" */ striType/*t_15_string*/ o_11513_diagnosticLine; /* line 3974 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11514_params=NULL; /* line 3975 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11515_result_type=typ[0] /* void/t_1_void */; /* line 3976 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11516_object_type=typ[0] /* void/t_1_void */; /* line 3973 "../prg/s7c.sd7" */ o_11513_diagnosticLine=strEmpty(); /* "" */ { /* line 3978 "../prg/s7c.sd7" */ striType old_stri=o_11513_diagnosticLine; /* line 3978 "../prg/s7c.sd7" */ o_11513_diagnosticLine=o_4816_diagnosticLine(o_11511_current_object); /* line 3978 "../prg/s7c.sd7" */ strDestr(old_stri); } /* line 3979 "../prg/s7c.sd7" */ rflCpy(&(o_11514_params), refParams(o_11511_current_object)); /* line 3980 "../prg/s7c.sd7" */ if ((rflLng(o_11514_params)) >= (3L)) { /* line 3981 "../prg/s7c.sd7" */ o_11516_object_type=refType(rflIdx(o_11514_params, 3L)); /* line 3982 "../prg/s7c.sd7" */ o_11515_result_type=typResult(refType(o_11511_current_object)); /* line 3983 "../prg/s7c.sd7" */ o_4878_process_create_declaration(&(o_11516_object_type), o_11512_c_expr); /* line 3984 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_11513_diagnosticLine); /* line 3986 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[378] /* "static arrayType times_" */); { /* line 3987 "../prg/s7c.sd7" */ union { /* line 3987 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 3987 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 3987 "../prg/s7c.sd7" */ } buffer_1; /* line 3987 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(typNum(o_11515_result_type), &buffer_1.striBuf)); } /* line 3988 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3157] /* " (intType n, const " */); /* line 3989 "../prg/s7c.sd7" */ if (o_4769_useConstPrefix(&(o_11516_object_type))) { /* line 3990 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[228] /* "const_" */); } /* line 3992 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(&(o_11516_object_type))); /* line 3993 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[167] /* " b)\n" */); /* line 3994 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_11513_diagnosticLine); /* line 3995 "../prg/s7c.sd7" */ o_4655/*@:=*/(&(o_4797_prototype_declared), &(o_11511_current_object), o_26_TRUE); /* line 3996 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[168] /* "{\n" */); /* line 3997 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_11513_diagnosticLine); /* line 3998 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3158] /* "arrayType a;\n" */); /* line 3999 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_11513_diagnosticLine); /* line 4000 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[169] /* "memSizeType i;\n" */); /* line 4001 "../prg/s7c.sd7" */ if (o_3450_array_range_check) { /* line 4002 "../prg/s7c.sd7" */ ++(o_5109_countRangeChecks); /* line 4003 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_11513_diagnosticLine); /* line 4004 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3159] /* "if (n < 0) {\n" */); /* line 4005 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_11513_diagnosticLine); /* line 4006 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3160] /* "raise_error(RANGE_ERROR);\n" */); /* line 4007 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_11513_diagnosticLine); /* line 4008 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[222] /* "} else {\n" */); } else { /* line 4010 "../prg/s7c.sd7" */ ++(o_5110_countNoRangeChecks); } /* line 4012 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_11513_diagnosticLine); /* line 4013 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3161] /* "a=arrMalloc(1, n);\n" */); /* line 4014 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_11513_diagnosticLine); /* line 4015 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3162] /* "for (i = 0; i < (memSizeType)(n); i++) {\n" */); /* line 4016 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_11513_diagnosticLine); /* line 4017 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[214] /* "a->arr[i]" */); /* line 4018 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4760_select_value_from_rtlObjectStruct(&(o_11516_object_type))); /* line 4019 "../prg/s7c.sd7" */ { /* line 4019 "../prg/s7c.sd7" */ striType *tmp_1; /* line 4019 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 4019 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 4019 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '='); /* line 4019 "../prg/s7c.sd7" */ } else { /* line 4019 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '='; /* line 4019 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 4019 "../prg/s7c.sd7" */ } } /* line 4020 "../prg/s7c.sd7" */ o_4881_process_create_call(&(o_11516_object_type), &str[192] /* "b" */, &(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 4021 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[215] /* ";\n" */); /* line 4022 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_11513_diagnosticLine); /* line 4023 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 4024 "../prg/s7c.sd7" */ if (o_3450_array_range_check) { /* line 4025 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_11513_diagnosticLine); /* line 4026 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); } /* line 4028 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_11513_diagnosticLine); /* line 4029 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[216] /* "return a;\n" */); /* line 4030 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_11513_diagnosticLine); /* line 4031 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[175] /* "}\n" */); /* line 4032 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4814_noDiagnosticLine()); /* line 4033 "../prg/s7c.sd7" */ { /* line 4033 "../prg/s7c.sd7" */ striType *tmp_1; /* line 4033 "../prg/s7c.sd7" */ tmp_1=&(((structType)(*o_11512_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 4033 "../prg/s7c.sd7" */ if ((*tmp_1)->size == (*tmp_1)->capacity) { /* line 4033 "../prg/s7c.sd7" */ strPush(&(*tmp_1), (charType) '\n'); /* line 4033 "../prg/s7c.sd7" */ } else { /* line 4033 "../prg/s7c.sd7" */ (*tmp_1)->mem[(*tmp_1)->size]=(charType) '\n'; /* line 4033 "../prg/s7c.sd7" */ (*tmp_1)->size++; /* line 4033 "../prg/s7c.sd7" */ } } } /* line 3969 "../prg/s7c.sd7" */ strDestr(o_11513_diagnosticLine); /* line 3969 "../prg/s7c.sd7" */ rflDestr(o_11514_params); } /* line 1 "no_file" */ /* 5091 */ /* line 4038 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11517_defineParam1TypeCategory (const objRefType/*t_19_reference*/ o_11518_current_object, const intType/*t_86_category*/ o_11519_param1Category) { /* line 4042 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11520_params=NULL; /* line 4043 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11521_param1Type=typ[0] /* void/t_1_void */; /* line 4045 "../prg/s7c.sd7" */ rflCpy(&(o_11520_params), refParams(o_11518_current_object)); /* line 4046 "../prg/s7c.sd7" */ if ((rflLng(o_11520_params)) >= (1L)) { /* line 4047 "../prg/s7c.sd7" */ o_11521_param1Type=refType(rflIdx(o_11520_params, 1L)); /* line 4048 "../prg/s7c.sd7" */ o_3785/*@:=*/(&(o_4414_typeCategory), &(o_11521_param1Type), o_11519_param1Category); } /* line 4038 "../prg/s7c.sd7" */ rflDestr(o_11520_params); } /* line 1 "no_file" */ /* 5092 */ /* line 4053 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11522_addImplementationToInterface (const typeType/*t_7_type*/ *const o_11523_implementationType, const typeType/*t_7_type*/ *const o_11524_interfaceType) { /* line 4056 "../prg/s7c.sd7" */ if (o_3884_in(o_11524_interfaceType, o_4734_implements)) { /* line 4057 "../prg/s7c.sd7" */ arrPush(&(*o_3877/*[*/(&(o_4734_implements), o_11524_interfaceType)), (genericType)(*o_11523_implementationType)); } else { { /* line 4059 "../prg/s7c.sd7" */ arrayType/*t_126_*ANONYM_TYPE**/ tmp_1 = (arrayType/*t_126_*ANONYM_TYPE**/)(NULL); /* line 4059 "../prg/s7c.sd7" */ o_3897/*@:=*/(&(o_4734_implements), o_11524_interfaceType, (tmp_1=(arrayType/*t_126_*ANONYM_TYPE**/)(arrBaselit((genericType)(*o_11523_implementationType))))); /* line 4059 "../prg/s7c.sd7" */ destr_126(tmp_1); } } /* line 4061 "../prg/s7c.sd7" */ if (o_3884_in(o_11523_implementationType, o_10972_interfaceOfType)) { /* line 4062 "../prg/s7c.sd7" */ arrPush(&(*o_3877/*[*/(&(o_10972_interfaceOfType), o_11523_implementationType)), (genericType)(*o_11524_interfaceType)); } else { { /* line 4064 "../prg/s7c.sd7" */ arrayType/*t_126_*ANONYM_TYPE**/ tmp_1 = (arrayType/*t_126_*ANONYM_TYPE**/)(NULL); /* line 4064 "../prg/s7c.sd7" */ o_3897/*@:=*/(&(o_10972_interfaceOfType), o_11523_implementationType, (tmp_1=(arrayType/*t_126_*ANONYM_TYPE**/)(arrBaselit((genericType)(*o_11524_interfaceType))))); /* line 4064 "../prg/s7c.sd7" */ destr_126(tmp_1); } } } /* line 1 "no_file" */ /* 5093 */ /* line 4069 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11525_process_itf_cpy2_declaration (const objRefType/*t_19_reference*/ o_11526_current_object, structType/*t_164_expr_type*/ *const o_11527_c_expr) { /* line 4073 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11528_params=NULL; /* line 4074 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11529_interfaceType=typ[0] /* void/t_1_void */; /* line 4075 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11530_implementationType=typ[0] /* void/t_1_void */; /* line 4077 "../prg/s7c.sd7" */ rflCpy(&(o_11528_params), refParams(o_11526_current_object)); /* line 4078 "../prg/s7c.sd7" */ if ((rflLng(o_11528_params)) >= (1L)) { /* line 4079 "../prg/s7c.sd7" */ o_11529_interfaceType=refType(rflIdx(o_11528_params, 1L)); /* line 4080 "../prg/s7c.sd7" */ o_11530_implementationType=refType(rflIdx(o_11528_params, 3L)); /* line 4081 "../prg/s7c.sd7" */ o_11522_addImplementationToInterface(&(o_11530_implementationType), &(o_11529_interfaceType)); /* line 4082 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11527_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3163] /* "/* itf_cpy2: " */); /* line 4083 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11527_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4746_type_name2(&(o_11529_interfaceType))); /* line 4084 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11527_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3164] /* " := " */); /* line 4085 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11527_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4746_type_name2(&(o_11530_implementationType))); /* line 4086 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11527_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[164] /* " *\/\n" */); } /* line 4069 "../prg/s7c.sd7" */ rflDestr(o_11528_params); } /* line 1 "no_file" */ /* 5094 */ /* line 4091 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11531_process_itf_next_file_declaration (const objRefType/*t_19_reference*/ o_11532_current_object) { /* line 4094 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11533_object_type=typ[0] /* void/t_1_void */; /* line 4096 "../prg/s7c.sd7" */ o_11533_object_type=refType(o_11532_current_object); /* line 4097 "../prg/s7c.sd7" */ if ((typIsFunc(o_11533_object_type)) || /* line 4097 "../prg/s7c.sd7" */ (typIsVarfunc(o_11533_object_type))) { /* line 4098 "../prg/s7c.sd7" */ o_4738_fileInterfaceType=typResult(o_11533_object_type); } } /* line 1 "no_file" */ /* 5095 */ /* line 4103 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11534_process_hsh_cpy_declaration (const objRefType/*t_19_reference*/ o_11535_current_object) { /* line 4106 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11536_params=NULL; /* line 4107 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11537_hash_type=typ[0] /* void/t_1_void */; /* line 4109 "../prg/s7c.sd7" */ rflCpy(&(o_11536_params), refParams(o_11535_current_object)); /* line 4110 "../prg/s7c.sd7" */ if ((rflLng(o_11536_params)) >= (1L)) { /* line 4111 "../prg/s7c.sd7" */ o_11537_hash_type=refType(rflIdx(o_11536_params, 1L)); /* line 4112 "../prg/s7c.sd7" */ o_3608/*@:=*/(&(o_4908_copyFunction), &(o_11537_hash_type), o_11535_current_object); /* line 4113 "../prg/s7c.sd7" */ o_3785/*@:=*/(&(o_4414_typeCategory), &(o_11537_hash_type), 15L); } /* line 4103 "../prg/s7c.sd7" */ rflDestr(o_11536_params); } /* line 1 "no_file" */ /* 5096 */ /* line 4118 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11538_process_hsh_create_declaration (const objRefType/*t_19_reference*/ o_11539_current_object) { /* line 4121 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11540_params=NULL; /* line 4122 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11541_object_type=typ[0] /* void/t_1_void */; /* line 4124 "../prg/s7c.sd7" */ rflCpy(&(o_11540_params), refParams(o_11539_current_object)); /* line 4125 "../prg/s7c.sd7" */ if ((rflLng(o_11540_params)) >= (1L)) { /* line 4126 "../prg/s7c.sd7" */ o_11541_object_type=refType(rflIdx(o_11540_params, 1L)); /* line 4127 "../prg/s7c.sd7" */ o_3608/*@:=*/(&(o_4874_createFunction), &(o_11541_object_type), o_11539_current_object); /* line 4128 "../prg/s7c.sd7" */ o_3785/*@:=*/(&(o_4414_typeCategory), &(o_11541_object_type), 15L); } /* line 4118 "../prg/s7c.sd7" */ rflDestr(o_11540_params); } /* line 1 "no_file" */ /* 5097 */ /* line 4133 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11542_process_hsh_destr_declaration (const objRefType/*t_19_reference*/ o_11543_current_object) { /* line 4136 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11544_params=NULL; /* line 4137 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11545_object_type=typ[0] /* void/t_1_void */; /* line 4139 "../prg/s7c.sd7" */ rflCpy(&(o_11544_params), refParams(o_11543_current_object)); /* line 4140 "../prg/s7c.sd7" */ if ((rflLng(o_11544_params)) >= (1L)) { /* line 4141 "../prg/s7c.sd7" */ o_11545_object_type=refType(rflIdx(o_11544_params, 1L)); /* line 4142 "../prg/s7c.sd7" */ o_3608/*@:=*/(&(o_4825_destrFunction), &(o_11545_object_type), o_11543_current_object); /* line 4143 "../prg/s7c.sd7" */ o_3785/*@:=*/(&(o_4414_typeCategory), &(o_11545_object_type), 15L); } /* line 4133 "../prg/s7c.sd7" */ rflDestr(o_11544_params); } /* line 1 "no_file" */ /* 5098 */ /* line 4148 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11546_addStructElem (const typeType/*t_7_type*/ *const o_11547_structType, const typeType/*t_7_type*/ *const o_11548_elemType, const objRefType/*t_19_reference*/ o_11549_elementOfStruct) { /* line 4151 "../prg/s7c.sd7" */ hashType/*t_156_element_number_hash*/ o_11550_element_number; /* line 4152 "../prg/s7c.sd7" */ hashType/*t_143_element_type_hash*/ o_11551_element_type; /* line 4151 "../prg/s7c.sd7" */ o_11550_element_number=hshEmpty(); /* line 4152 "../prg/s7c.sd7" */ o_11551_element_type=hshEmpty(); /* line 4154 "../prg/s7c.sd7" */ if (o_4587_in(o_11547_structType, o_4735_struct_elements)) { /* line 4155 "../prg/s7c.sd7" */ if (o_4505_not(&(o_11549_elementOfStruct), *o_4580/*[*/(&(o_4735_struct_elements), o_11547_structType))) { /* line 4156 "../prg/s7c.sd7" */ o_4515/*@:=*/(&(*o_4580/*[*/(&(o_4735_struct_elements), o_11547_structType)), &(o_11549_elementOfStruct), (intType)((*o_4580/*[*/(&(o_4735_struct_elements), o_11547_structType))->size)); } /* line 4158 "../prg/s7c.sd7" */ if (o_4072_not(&(o_11549_elementOfStruct), *o_4258/*[*/(&(o_4417_struct_element_type), o_11547_structType))) { /* line 4159 "../prg/s7c.sd7" */ o_4082/*@:=*/(&(*o_4258/*[*/(&(o_4417_struct_element_type), o_11547_structType)), &(o_11549_elementOfStruct), *o_11548_elemType); } } else { /* line 4162 "../prg/s7c.sd7" */ o_4515/*@:=*/(&(o_11550_element_number), &(o_11549_elementOfStruct), 0L); /* line 4163 "../prg/s7c.sd7" */ o_4600/*@:=*/(&(o_4735_struct_elements), o_11547_structType, o_11550_element_number); /* line 4164 "../prg/s7c.sd7" */ o_4082/*@:=*/(&(o_11551_element_type), &(o_11549_elementOfStruct), *o_11548_elemType); /* line 4165 "../prg/s7c.sd7" */ o_4278/*@:=*/(&(o_4417_struct_element_type), o_11547_structType, o_11551_element_type); } /* line 4148 "../prg/s7c.sd7" */ destr_156(o_11550_element_number); /* line 4148 "../prg/s7c.sd7" */ destr_143(o_11551_element_type); } /* line 1 "no_file" */ /* 5099 */ /* line 4170 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11552_process_sct_cpy_declaration (const objRefType/*t_19_reference*/ o_11553_current_object) { /* line 4173 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11554_params=NULL; /* line 4174 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11555_sct_type=typ[0] /* void/t_1_void */; /* line 4175 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11556_meta_type=typ[0] /* void/t_1_void */; /* line 4176 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11557_interfaceType=typ[0] /* void/t_1_void */; /* line 4177 "../prg/s7c.sd7" */ hashType/*t_155_number_element_hash*/ o_11558_elements; /* line 4178 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11559_elementOfStruct=NULL; /* line 4179 "../prg/s7c.sd7" */ intType/*t_14_integer*/ o_11560_number=0; /* line 4177 "../prg/s7c.sd7" */ o_11558_elements=hshEmpty(); /* line 4181 "../prg/s7c.sd7" */ rflCpy(&(o_11554_params), refParams(o_11553_current_object)); /* line 4182 "../prg/s7c.sd7" */ if ((rflLng(o_11554_params)) >= (1L)) { /* line 4183 "../prg/s7c.sd7" */ o_11555_sct_type=refType(rflIdx(o_11554_params, 1L)); /* line 4184 "../prg/s7c.sd7" */ o_3608/*@:=*/(&(o_4908_copyFunction), &(o_11555_sct_type), o_11553_current_object); /* line 4185 "../prg/s7c.sd7" */ o_3785/*@:=*/(&(o_4414_typeCategory), &(o_11555_sct_type), 16L); /* line 4186 "../prg/s7c.sd7" */ if (typIsDerived(o_11555_sct_type)) { /* line 4187 "../prg/s7c.sd7" */ o_11556_meta_type=typMeta(o_11555_sct_type); /* line 4188 "../prg/s7c.sd7" */ if (o_4587_in(&(o_11556_meta_type), o_4735_struct_elements)) { { /* line 4189 "../prg/s7c.sd7" */ hashType/*t_155_number_element_hash*/ tmp_1 = (hashType/*t_155_number_element_hash*/)(NULL); /* line 4189 "../prg/s7c.sd7" */ o_4430/*:=*/(&(o_11558_elements), (tmp_1=(hashType/*t_155_number_element_hash*/)(o_4530_flip(*o_4580/*[*/(&(o_4735_struct_elements), &(o_11556_meta_type)))))); /* line 4189 "../prg/s7c.sd7" */ destr_155(tmp_1); } { /* line 4190 "../prg/s7c.sd7" */ intType tmp_e_1=((intType)((o_11558_elements)->size))-1; /* line 4190 "../prg/s7c.sd7" */ for (o_11560_number=0L; o_11560_number<=tmp_e_1; (o_11560_number)++) { { /* line 4191 "../prg/s7c.sd7" */ arrayType tmp_1; /* line 4191 "../prg/s7c.sd7" */ o_11559_elementOfStruct=(*(tmp_1=*o_4438/*[*/(&(o_11558_elements), &(o_11560_number)), &tmp_1->arr[(idxChk(1min_position || 1>tmp_1->max_position) ? intRaiseError(RANGE_ERROR) : 0, 1-tmp_1->min_position)].value.objRefValue)); } /* line 4192 "../prg/s7c.sd7" */ o_11546_addStructElem(&(o_11555_sct_type), &(*o_4062/*[*/(&(*o_4258/*[*/(&(o_4417_struct_element_type), &(o_11556_meta_type))), &(o_11559_elementOfStruct))), o_11559_elementOfStruct); } } } /* line 4195 "../prg/s7c.sd7" */ if (o_3884_in(&(o_11556_meta_type), o_10972_interfaceOfType)) { /* inline proc o_3477_for */ { /* inline params */ /* line 4196 "../prg/s7c.sd7" */ typeType/*t_7_type*/ *const o_4858_forVar=&(o_11557_interfaceType); /* line 4196 "../prg/s7c.sd7" */ const const_arrayType/*t_126_*ANONYM_TYPE**/ o_4859_arr=*o_3877/*[*/(&(o_10972_interfaceOfType), &(o_11556_meta_type)); /* line 4196 "../prg/s7c.sd7" */ /* push proc param o_4860_statements */ /* line 4196 "../prg/s7c.sd7" */ /* inline local_vars */ /* line 4196 "../prg/s7c.sd7" */ /* line 199 "../lib/array.s7i" */ /* line 4196 "../prg/s7c.sd7" */ intType/*t_14_integer*/ o_4861_number=0; /* inline body */ { /* line 201 "../lib/array.s7i" */ intType tmp_e_1=(o_4859_arr)->max_position; /* line 201 "../lib/array.s7i" */ for (o_4861_number=(o_4859_arr)->min_position; o_4861_number<=tmp_e_1; (o_4861_number)++) { /* line 202 "../lib/array.s7i" */ *o_4858_forVar=(o_4859_arr)->arr[(idxChk((o_4861_number) < (o_4859_arr)->min_position || (o_4861_number) > (o_4859_arr)->max_position) ? intRaiseError(RANGE_ERROR) : 0, (o_4861_number)-(o_4859_arr)->min_position)].value.typeValue; /* closure o_4860_statements*/ { /* line 4197 "../prg/s7c.sd7" */ o_11522_addImplementationToInterface(&(o_11555_sct_type), &(o_11557_interfaceType)); } /* closure o_4860_statements*/ } } /* pop proc param o_4860_statements */ } /* inline proc o_3477_for */ } } } /* line 4170 "../prg/s7c.sd7" */ rflDestr(o_11554_params); /* line 4170 "../prg/s7c.sd7" */ destr_155(o_11558_elements); } /* line 1 "no_file" */ /* 5100 */ /* line 4205 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11561_process_sct_create_declaration (const objRefType/*t_19_reference*/ o_11562_current_object) { /* line 4208 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11563_params=NULL; /* line 4209 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11564_object_type=typ[0] /* void/t_1_void */; /* line 4211 "../prg/s7c.sd7" */ rflCpy(&(o_11563_params), refParams(o_11562_current_object)); /* line 4212 "../prg/s7c.sd7" */ o_11564_object_type=refType(rflIdx(o_11563_params, 1L)); /* line 4213 "../prg/s7c.sd7" */ o_3608/*@:=*/(&(o_4874_createFunction), &(o_11564_object_type), o_11562_current_object); /* line 4214 "../prg/s7c.sd7" */ o_3785/*@:=*/(&(o_4414_typeCategory), &(o_11564_object_type), 16L); /* line 4205 "../prg/s7c.sd7" */ rflDestr(o_11563_params); } /* line 1 "no_file" */ /* 5101 */ /* line 4218 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11565_process_sct_destr_declaration (const objRefType/*t_19_reference*/ o_11566_current_object) { /* line 4221 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11567_params=NULL; /* line 4222 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11568_object_type=typ[0] /* void/t_1_void */; /* line 4224 "../prg/s7c.sd7" */ rflCpy(&(o_11567_params), refParams(o_11566_current_object)); /* line 4225 "../prg/s7c.sd7" */ o_11568_object_type=refType(rflIdx(o_11567_params, 1L)); /* line 4226 "../prg/s7c.sd7" */ o_3608/*@:=*/(&(o_4825_destrFunction), &(o_11568_object_type), o_11566_current_object); /* line 4227 "../prg/s7c.sd7" */ o_3785/*@:=*/(&(o_4414_typeCategory), &(o_11568_object_type), 16L); /* line 4218 "../prg/s7c.sd7" */ rflDestr(o_11567_params); } /* line 1 "no_file" */ /* 5102 */ /* line 4231 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11569_process_sct_select_declaration (const objRefType/*t_19_reference*/ o_11570_current_object, structType/*t_164_expr_type*/ *const o_11571_c_expr) { /* line 4235 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11572_params=NULL; /* line 4236 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11573_elemType=typ[0] /* void/t_1_void */; /* line 4237 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11574_structType=typ[0] /* void/t_1_void */; /* line 4238 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11575_elementOfStruct=NULL; /* line 4240 "../prg/s7c.sd7" */ rflCpy(&(o_11572_params), refParams(o_11570_current_object)); /* line 4241 "../prg/s7c.sd7" */ if ((rflLng(o_11572_params)) >= (3L)) { /* line 4242 "../prg/s7c.sd7" */ o_11574_structType=refType(rflIdx(o_11572_params, 1L)); /* line 4243 "../prg/s7c.sd7" */ o_11575_elementOfStruct=rflIdx(o_11572_params, 3L); /* line 4244 "../prg/s7c.sd7" */ o_11573_elemType=typResult(refType(o_11570_current_object)); /* line 4245 "../prg/s7c.sd7" */ o_11546_addStructElem(&(o_11574_structType), &(o_11573_elemType), o_11575_elementOfStruct); /* line 4246 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11571_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3165] /* "/* struct element " */); /* line 4247 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11571_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4746_type_name2(&(o_11573_elemType))); /* line 4248 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11571_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3166] /* " ** " */); /* line 4249 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11571_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4746_type_name2(&(o_11574_structType))); /* line 4250 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11571_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3167] /* "->o_" */); /* line 4251 "../prg/s7c.sd7" */ o_5077_create_name2(o_11575_elementOfStruct, &(((structType)(*o_11571_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 4252 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11571_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1437] /* " = " */); { /* line 4253 "../prg/s7c.sd7" */ union { /* line 4253 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 4253 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 4253 "../prg/s7c.sd7" */ } buffer_1; /* line 4253 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11571_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(*o_4495/*[*/(&(*o_4580/*[*/(&(o_4735_struct_elements), &(o_11574_structType))), &(o_11575_elementOfStruct)), &buffer_1.striBuf)); } /* line 4254 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11571_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[164] /* " *\/\n" */); } /* line 4231 "../prg/s7c.sd7" */ rflDestr(o_11572_params); } /* line 1 "no_file" */ /* 5103 */ /* line 4259 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11576_process_ref_select_declaration (const objRefType/*t_19_reference*/ o_11577_current_object, structType/*t_164_expr_type*/ *const o_11578_c_expr) { /* line 4263 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11579_params=NULL; /* line 4264 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11580_elemType=typ[0] /* void/t_1_void */; /* line 4265 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11581_structType=typ[0] /* void/t_1_void */; /* line 4266 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11582_elementOfStruct=NULL; /* line 4268 "../prg/s7c.sd7" */ rflCpy(&(o_11579_params), refParams(o_11577_current_object)); /* line 4269 "../prg/s7c.sd7" */ if ((rflLng(o_11579_params)) >= (3L)) { /* line 4270 "../prg/s7c.sd7" */ o_11581_structType=refType(rflIdx(o_11579_params, 1L)); /* line 4271 "../prg/s7c.sd7" */ o_11582_elementOfStruct=rflIdx(o_11579_params, 3L); /* line 4272 "../prg/s7c.sd7" */ o_11580_elemType=typResult(refType(o_11577_current_object)); /* line 4273 "../prg/s7c.sd7" */ o_11546_addStructElem(&(o_11581_structType), &(o_11580_elemType), o_11582_elementOfStruct); /* line 4274 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11578_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3168] /* "/* ref struct element " */); /* line 4275 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11578_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4746_type_name2(&(o_11580_elemType))); /* line 4276 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11578_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3166] /* " ** " */); /* line 4277 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11578_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4746_type_name2(&(o_11581_structType))); /* line 4278 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11578_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3167] /* "->o_" */); /* line 4279 "../prg/s7c.sd7" */ o_5077_create_name2(o_11582_elementOfStruct, &(((structType)(*o_11578_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 4280 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11578_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1437] /* " = " */); { /* line 4281 "../prg/s7c.sd7" */ union { /* line 4281 "../prg/s7c.sd7" */ struct striStruct striBuf; /* line 4281 "../prg/s7c.sd7" */ char charBuf[SIZ_STRI(INTTYPE_DECIMAL_SIZE)]; /* line 4281 "../prg/s7c.sd7" */ } buffer_1; /* line 4281 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11578_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), intStrToBuffer(*o_4495/*[*/(&(*o_4580/*[*/(&(o_4735_struct_elements), &(o_11581_structType))), &(o_11582_elementOfStruct)), &buffer_1.striBuf)); } /* line 4282 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11578_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[164] /* " *\/\n" */); } /* line 4259 "../prg/s7c.sd7" */ rflDestr(o_11579_params); } /* line 1 "no_file" */ /* 5104 */ /* line 4287 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11583_process_var_action_declaration (const objRefType/*t_19_reference*/ o_11584_current_object, structType/*t_164_expr_type*/ *const o_11585_c_expr) { /* line 4291 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11586_c_value; /* line 4292 "../prg/s7c.sd7" */ striType/*t_15_string*/ o_11587_valueName; /* line 4291 "../prg/s7c.sd7" */ o_11586_c_value=create_164(sct[403]); /* line 4292 "../prg/s7c.sd7" */ o_11587_valueName=strEmpty(); /* "" */ /* line 4294 "../prg/s7c.sd7" */ o_5082_create_name(o_11584_current_object, refNum(o_11584_current_object), &(o_11587_valueName)); { /* line 4295 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 4295 "../prg/s7c.sd7" */ o_9142_processFuncValue(o_11587_valueName, /* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_11584_current_object)), &tmp_1), o_11584_current_object, &(o_11586_c_value)); } /* line 4296 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11585_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11586_c_value))->stru[3].value.striValue/*->o_4781_temp_decls*/); /* line 4297 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), o_4816_diagnosticLine(o_11584_current_object)); /* line 4298 "../prg/s7c.sd7" */ strAppend(&(((structType)(o_10508_global_init))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11586_c_value))->stru[4].value.striValue/*->o_4782_temp_assigns*/); { /* line 4299 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_2; /* line 4299 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11585_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), o_4743_type_name(/* CALLOBJECT */(tmp_2=(typeType/*t_7_type*/)(refType(o_11584_current_object)), &tmp_2))); } /* line 4300 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11585_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[2893] /* " o_" */); /* line 4301 "../prg/s7c.sd7" */ o_5072_create_name(o_11584_current_object, &(((structType)(*o_11585_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 4302 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11585_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1437] /* " = " */); /* line 4303 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11585_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), ((structType)(o_11586_c_value))->stru[5].value.striValue/*->o_4783_expr*/); /* line 4304 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11585_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[158] /* ";\n\n" */); /* line 4305 "../prg/s7c.sd7" */ o_4655/*@:=*/(&(o_10970_function_declared), &(o_11584_current_object), o_26_TRUE); /* line 4287 "../prg/s7c.sd7" */ destr_164(o_11586_c_value); /* line 4287 "../prg/s7c.sd7" */ strDestr(o_11587_valueName); } /* line 1 "no_file" */ /* 5105 */ /* line 4309 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11588_process_action_declaration (const objRefType/*t_19_reference*/ o_11589_current_object, structType/*t_164_expr_type*/ *const o_11590_c_expr) { /* line 4313 "../prg/s7c.sd7" */ actType/*t_5_ACTION*/ o_11591_current_action=NULL; /* line 4314 "../prg/s7c.sd7" */ striType/*t_15_string*/ o_11592_action_name; /* line 4314 "../prg/s7c.sd7" */ o_11592_action_name=strEmpty(); /* "" */ /* line 4316 "../prg/s7c.sd7" */ if (refIsVar(o_11589_current_object)) { /* line 4317 "../prg/s7c.sd7" */ o_11583_process_var_action_declaration(o_11589_current_object, o_11590_c_expr); } else { /* line 4319 "../prg/s7c.sd7" */ o_11591_current_action=actValue(o_11589_current_object); { /* line 4320 "../prg/s7c.sd7" */ striType old_stri=o_11592_action_name; /* line 4320 "../prg/s7c.sd7" */ o_11592_action_name=actStr(o_11591_current_action); /* line 4320 "../prg/s7c.sd7" */ strDestr(old_stri); } /* line 4321 "../prg/s7c.sd7" */ if (((o_11592_action_name)->size==11&&memcmp((o_11592_action_name)->mem,(&str[2611] /* "PRC_DYNAMIC" */)->mem,11*sizeof(strElemType))==0)) { /* line 4322 "../prg/s7c.sd7" */ o_11455_process_dynamic_declaration(o_11589_current_object, o_11590_c_expr); /* line 4323 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4324 "../prg/s7c.sd7" */ if (((o_11592_action_name)->size==7&&memcmp((o_11592_action_name)->mem,(&str[2150] /* "ACT_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 4325 "../prg/s7c.sd7" */ o_11517_defineParam1TypeCategory(o_11589_current_object, 33L); /* line 4326 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4327 "../prg/s7c.sd7" */ if (((o_11592_action_name)->size==7&&memcmp((o_11592_action_name)->mem,(&str[2165] /* "ARR_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 4328 "../prg/s7c.sd7" */ o_11483_process_arr_cpy_declaration(o_11589_current_object); /* line 4329 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4330 "../prg/s7c.sd7" */ if (((o_11592_action_name)->size==10&&memcmp((o_11592_action_name)->mem,(&str[2166] /* "ARR_CREATE" */)->mem,10*sizeof(strElemType))==0)) { /* line 4331 "../prg/s7c.sd7" */ o_11488_process_arr_create_declaration(o_11589_current_object); /* line 4332 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4333 "../prg/s7c.sd7" */ if (((o_11592_action_name)->size==9&&memcmp((o_11592_action_name)->mem,(&str[2167] /* "ARR_DESTR" */)->mem,9*sizeof(strElemType))==0)) { /* line 4334 "../prg/s7c.sd7" */ o_11493_process_arr_destr_declaration(o_11589_current_object); /* line 4335 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4336 "../prg/s7c.sd7" */ if (((o_11592_action_name)->size==7&&memcmp((o_11592_action_name)->mem,(&str[2169] /* "ARR_GEN" */)->mem,7*sizeof(strElemType))==0)) { /* line 4337 "../prg/s7c.sd7" */ o_11498_process_arr_gen_declaration(o_11589_current_object, o_11590_c_expr); /* line 4338 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4339 "../prg/s7c.sd7" */ if (((o_11592_action_name)->size==7&&memcmp((o_11592_action_name)->mem,(&str[2171] /* "ARR_IDX" */)->mem,7*sizeof(strElemType))==0)) { /* line 4340 "../prg/s7c.sd7" */ o_11504_process_arr_idx_declaration(o_11589_current_object, o_11590_c_expr); /* line 4341 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4342 "../prg/s7c.sd7" */ if (((o_11592_action_name)->size==9&&memcmp((o_11592_action_name)->mem,(&str[2180] /* "ARR_TIMES" */)->mem,9*sizeof(strElemType))==0)) { /* line 4343 "../prg/s7c.sd7" */ o_11510_process_arr_times_declaration(o_11589_current_object, o_11590_c_expr); /* line 4344 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4345 "../prg/s7c.sd7" */ if ((((o_11592_action_name)->size==7&&memcmp((o_11592_action_name)->mem,(&str[2188] /* "BIG_CPY" */)->mem,7*sizeof(strElemType))==0)) || /* line 4345 "../prg/s7c.sd7" */ (((o_11592_action_name)->size==10&&memcmp((o_11592_action_name)->mem,(&str[3031] /* "BIG_CREATE" */)->mem,10*sizeof(strElemType))==0))) { /* line 4346 "../prg/s7c.sd7" */ o_11517_defineParam1TypeCategory(o_11589_current_object, 10L); /* line 4347 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4348 "../prg/s7c.sd7" */ if (((o_11592_action_name)->size==7&&memcmp((o_11592_action_name)->mem,(&str[2238] /* "BLN_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 4349 "../prg/s7c.sd7" */ o_11517_defineParam1TypeCategory(o_11589_current_object, 256L); /* line 4350 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4351 "../prg/s7c.sd7" */ if ((((o_11592_action_name)->size==7&&memcmp((o_11592_action_name)->mem,(&str[2252] /* "BST_CPY" */)->mem,7*sizeof(strElemType))==0)) || /* line 4351 "../prg/s7c.sd7" */ (((o_11592_action_name)->size==10&&memcmp((o_11592_action_name)->mem,(&str[3040] /* "BST_CREATE" */)->mem,10*sizeof(strElemType))==0))) { /* line 4352 "../prg/s7c.sd7" */ o_11517_defineParam1TypeCategory(o_11589_current_object, 13L); /* line 4353 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4354 "../prg/s7c.sd7" */ if ((((o_11592_action_name)->size==7&&memcmp((o_11592_action_name)->mem,(&str[2344] /* "DRW_CPY" */)->mem,7*sizeof(strElemType))==0)) || /* line 4354 "../prg/s7c.sd7" */ (((o_11592_action_name)->size==10&&memcmp((o_11592_action_name)->mem,(&str[3048] /* "DRW_CREATE" */)->mem,10*sizeof(strElemType))==0))) { /* line 4355 "../prg/s7c.sd7" */ o_11517_defineParam1TypeCategory(o_11589_current_object, 26L); /* line 4356 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4357 "../prg/s7c.sd7" */ if (((o_11592_action_name)->size==7&&memcmp((o_11592_action_name)->mem,(&str[2394] /* "ENU_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 4358 "../prg/s7c.sd7" */ o_11517_defineParam1TypeCategory(o_11589_current_object, 257L); /* line 4359 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4360 "../prg/s7c.sd7" */ if ((((o_11592_action_name)->size==7&&memcmp((o_11592_action_name)->mem,(&str[2405] /* "FIL_CPY" */)->mem,7*sizeof(strElemType))==0)) || /* line 4360 "../prg/s7c.sd7" */ (((o_11592_action_name)->size==10&&memcmp((o_11592_action_name)->mem,(&str[3169] /* "FIL_CREATE" */)->mem,10*sizeof(strElemType))==0))) { /* line 4361 "../prg/s7c.sd7" */ o_11517_defineParam1TypeCategory(o_11589_current_object, 20L); /* line 4362 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4363 "../prg/s7c.sd7" */ if ((((o_11592_action_name)->size==7&&memcmp((o_11592_action_name)->mem,(&str[2443] /* "FLT_CPY" */)->mem,7*sizeof(strElemType))==0)) || /* line 4363 "../prg/s7c.sd7" */ (((o_11592_action_name)->size==10&&memcmp((o_11592_action_name)->mem,(&str[3055] /* "FLT_CREATE" */)->mem,10*sizeof(strElemType))==0))) { /* line 4364 "../prg/s7c.sd7" */ o_11517_defineParam1TypeCategory(o_11589_current_object, 25L); /* line 4365 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4366 "../prg/s7c.sd7" */ if (((o_11592_action_name)->size==7&&memcmp((o_11592_action_name)->mem,(&str[2497] /* "HSH_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 4367 "../prg/s7c.sd7" */ o_11534_process_hsh_cpy_declaration(o_11589_current_object); /* line 4368 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4369 "../prg/s7c.sd7" */ if (((o_11592_action_name)->size==10&&memcmp((o_11592_action_name)->mem,(&str[2498] /* "HSH_CREATE" */)->mem,10*sizeof(strElemType))==0)) { /* line 4370 "../prg/s7c.sd7" */ o_11538_process_hsh_create_declaration(o_11589_current_object); /* line 4371 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4372 "../prg/s7c.sd7" */ if (((o_11592_action_name)->size==9&&memcmp((o_11592_action_name)->mem,(&str[2499] /* "HSH_DESTR" */)->mem,9*sizeof(strElemType))==0)) { /* line 4373 "../prg/s7c.sd7" */ o_11542_process_hsh_destr_declaration(o_11589_current_object); /* line 4374 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4375 "../prg/s7c.sd7" */ if ((((o_11592_action_name)->size==7&&memcmp((o_11592_action_name)->mem,(&str[2524] /* "INT_CPY" */)->mem,7*sizeof(strElemType))==0)) || /* line 4375 "../prg/s7c.sd7" */ (((o_11592_action_name)->size==10&&memcmp((o_11592_action_name)->mem,(&str[3059] /* "INT_CREATE" */)->mem,10*sizeof(strElemType))==0))) { /* line 4376 "../prg/s7c.sd7" */ o_11517_defineParam1TypeCategory(o_11589_current_object, 9L); /* line 4377 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4378 "../prg/s7c.sd7" */ if (((o_11592_action_name)->size==7&&memcmp((o_11592_action_name)->mem,(&str[2576] /* "ITF_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 4379 "../prg/s7c.sd7" */ o_11517_defineParam1TypeCategory(o_11589_current_object, 18L); /* line 4380 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4381 "../prg/s7c.sd7" */ if (((o_11592_action_name)->size==8&&memcmp((o_11592_action_name)->mem,(&str[2577] /* "ITF_CPY2" */)->mem,8*sizeof(strElemType))==0)) { /* line 4382 "../prg/s7c.sd7" */ o_11525_process_itf_cpy2_declaration(o_11589_current_object, o_11590_c_expr); /* line 4383 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4384 "../prg/s7c.sd7" */ if ((((o_11592_action_name)->size==7&&memcmp((o_11592_action_name)->mem,(&str[2593] /* "POL_CPY" */)->mem,7*sizeof(strElemType))==0)) || /* line 4384 "../prg/s7c.sd7" */ (((o_11592_action_name)->size==10&&memcmp((o_11592_action_name)->mem,(&str[3170] /* "POL_CREATE" */)->mem,10*sizeof(strElemType))==0))) { /* line 4385 "../prg/s7c.sd7" */ o_11517_defineParam1TypeCategory(o_11589_current_object, 23L); /* line 4386 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4387 "../prg/s7c.sd7" */ if (((o_11592_action_name)->size==13&&memcmp((o_11592_action_name)->mem,(&str[2599] /* "POL_NEXT_FILE" */)->mem,13*sizeof(strElemType))==0)) { /* line 4388 "../prg/s7c.sd7" */ o_11531_process_itf_next_file_declaration(o_11589_current_object); /* line 4389 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4390 "../prg/s7c.sd7" */ if ((((o_11592_action_name)->size==7&&memcmp((o_11592_action_name)->mem,(&str[2623] /* "PRG_CPY" */)->mem,7*sizeof(strElemType))==0)) || /* line 4390 "../prg/s7c.sd7" */ (((o_11592_action_name)->size==10&&memcmp((o_11592_action_name)->mem,(&str[3171] /* "PRG_CREATE" */)->mem,10*sizeof(strElemType))==0))) { /* line 4391 "../prg/s7c.sd7" */ o_11517_defineParam1TypeCategory(o_11589_current_object, 40L); /* line 4392 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4393 "../prg/s7c.sd7" */ if ((((o_11592_action_name)->size==7&&memcmp((o_11592_action_name)->mem,(&str[2653] /* "REF_CPY" */)->mem,7*sizeof(strElemType))==0)) || /* line 4393 "../prg/s7c.sd7" */ (((o_11592_action_name)->size==10&&memcmp((o_11592_action_name)->mem,(&str[3065] /* "REF_CREATE" */)->mem,10*sizeof(strElemType))==0))) { /* line 4394 "../prg/s7c.sd7" */ o_11517_defineParam1TypeCategory(o_11589_current_object, 30L); /* line 4395 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4396 "../prg/s7c.sd7" */ if (((o_11592_action_name)->size==10&&memcmp((o_11592_action_name)->mem,(&str[2672] /* "REF_SELECT" */)->mem,10*sizeof(strElemType))==0)) { /* line 4397 "../prg/s7c.sd7" */ o_11576_process_ref_select_declaration(o_11589_current_object, o_11590_c_expr); /* line 4398 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4399 "../prg/s7c.sd7" */ if ((((o_11592_action_name)->size==7&&memcmp((o_11592_action_name)->mem,(&str[2684] /* "RFL_CPY" */)->mem,7*sizeof(strElemType))==0)) || /* line 4399 "../prg/s7c.sd7" */ (((o_11592_action_name)->size==10&&memcmp((o_11592_action_name)->mem,(&str[3070] /* "RFL_CREATE" */)->mem,10*sizeof(strElemType))==0))) { /* line 4400 "../prg/s7c.sd7" */ o_11517_defineParam1TypeCategory(o_11589_current_object, 31L); /* line 4401 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4402 "../prg/s7c.sd7" */ if (((o_11592_action_name)->size==7&&memcmp((o_11592_action_name)->mem,(&str[2704] /* "SCT_CPY" */)->mem,7*sizeof(strElemType))==0)) { /* line 4403 "../prg/s7c.sd7" */ o_11552_process_sct_cpy_declaration(o_11589_current_object); /* line 4404 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4405 "../prg/s7c.sd7" */ if (((o_11592_action_name)->size==10&&memcmp((o_11592_action_name)->mem,(&str[3074] /* "SCT_CREATE" */)->mem,10*sizeof(strElemType))==0)) { /* line 4406 "../prg/s7c.sd7" */ o_11561_process_sct_create_declaration(o_11589_current_object); /* line 4407 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4408 "../prg/s7c.sd7" */ if (((o_11592_action_name)->size==9&&memcmp((o_11592_action_name)->mem,(&str[3075] /* "SCT_DESTR" */)->mem,9*sizeof(strElemType))==0)) { /* line 4409 "../prg/s7c.sd7" */ o_11565_process_sct_destr_declaration(o_11589_current_object); /* line 4410 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4411 "../prg/s7c.sd7" */ if (((o_11592_action_name)->size==10&&memcmp((o_11592_action_name)->mem,(&str[2705] /* "SCT_SELECT" */)->mem,10*sizeof(strElemType))==0)) { /* line 4412 "../prg/s7c.sd7" */ o_11569_process_sct_select_declaration(o_11589_current_object, o_11590_c_expr); /* line 4413 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4414 "../prg/s7c.sd7" */ if ((((o_11592_action_name)->size==7&&memcmp((o_11592_action_name)->mem,(&str[2712] /* "SET_CPY" */)->mem,7*sizeof(strElemType))==0)) || /* line 4414 "../prg/s7c.sd7" */ (((o_11592_action_name)->size==10&&memcmp((o_11592_action_name)->mem,(&str[3078] /* "SET_CREATE" */)->mem,10*sizeof(strElemType))==0))) { /* line 4415 "../prg/s7c.sd7" */ o_11517_defineParam1TypeCategory(o_11589_current_object, 19L); /* line 4416 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } else /* line 4417 "../prg/s7c.sd7" */ if ((((o_11592_action_name)->size==7&&memcmp((o_11592_action_name)->mem,(&str[2744] /* "SOC_CPY" */)->mem,7*sizeof(strElemType))==0)) || /* line 4417 "../prg/s7c.sd7" */ (((o_11592_action_name)->size==10&&memcmp((o_11592_action_name)->mem,(&str[3172] /* "SOC_CREATE" */)->mem,10*sizeof(strElemType))==0))) { /* line 4418 "../prg/s7c.sd7" */ o_11517_defineParam1TypeCategory(o_11589_current_object, 22L); /* line 4419 "../prg/s7c.sd7" */ o_10980_count_declarations(o_11590_c_expr); } } /* line 4309 "../prg/s7c.sd7" */ strDestr(o_11592_action_name); } /* line 1 "no_file" */ /* 5106 */ /* line 4431 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11593_process_object_declaration (const objRefType/*t_19_reference*/ o_11594_current_object, structType/*t_164_expr_type*/ *const o_11595_c_expr) { /* line 4435 "../prg/s7c.sd7" */ intType/*t_86_category*/ o_11596_objectCategory=0; /* line 4437 "../prg/s7c.sd7" */ o_11596_objectCategory=refCategory(o_11594_current_object); /* line 4438 "../prg/s7c.sd7" */ if ((o_11594_current_object) == (o_10505_main_object)) { /* line 4439 "../prg/s7c.sd7" */ if ((refCategory(o_11594_current_object)) == (2L)) { /* line 4440 "../prg/s7c.sd7" */ o_11263_process_library_initialisation(o_11594_current_object, o_11595_c_expr); } else { /* line 4442 "../prg/s7c.sd7" */ o_11267_process_main_declaration(o_11594_current_object, o_11595_c_expr); } } else /* line 4444 "../prg/s7c.sd7" */ if ((o_11596_objectCategory) == (4L)) { /* line 4445 "../prg/s7c.sd7" */ o_11279_process_func_declaration(o_11594_current_object, o_11595_c_expr); } else /* line 4446 "../prg/s7c.sd7" */ if ((o_11596_objectCategory) == (7L)) { /* line 4447 "../prg/s7c.sd7" */ o_11289_process_type_declaration(o_11594_current_object, o_11595_c_expr); } else /* line 4448 "../prg/s7c.sd7" */ if ((o_11596_objectCategory) == (9L)) { /* line 4449 "../prg/s7c.sd7" */ o_11293_process_int_declaration(o_11594_current_object, o_11595_c_expr); } else /* line 4450 "../prg/s7c.sd7" */ if ((o_11596_objectCategory) == (10L)) { /* line 4451 "../prg/s7c.sd7" */ o_11296_process_bigint_declaration(o_11594_current_object, o_11595_c_expr); } else /* line 4452 "../prg/s7c.sd7" */ if ((o_11596_objectCategory) == (11L)) { /* line 4453 "../prg/s7c.sd7" */ o_11299_process_char_declaration(o_11594_current_object, o_11595_c_expr); } else /* line 4454 "../prg/s7c.sd7" */ if ((o_11596_objectCategory) == (12L)) { /* line 4455 "../prg/s7c.sd7" */ o_11302_process_stri_declaration(o_11594_current_object, o_11595_c_expr); } else /* line 4456 "../prg/s7c.sd7" */ if ((o_11596_objectCategory) == (13L)) { /* line 4457 "../prg/s7c.sd7" */ o_11305_process_bstri_declaration(o_11594_current_object, o_11595_c_expr); } else /* line 4458 "../prg/s7c.sd7" */ if ((o_11596_objectCategory) == (25L)) { /* line 4459 "../prg/s7c.sd7" */ o_11308_process_float_declaration(o_11594_current_object, o_11595_c_expr); } else /* line 4460 "../prg/s7c.sd7" */ if ((o_11596_objectCategory) == (30L)) { /* line 4461 "../prg/s7c.sd7" */ o_11329_process_reference_declaration(o_11594_current_object, o_11595_c_expr); } else /* line 4462 "../prg/s7c.sd7" */ if ((o_11596_objectCategory) == (31L)) { /* line 4463 "../prg/s7c.sd7" */ o_11332_process_ref_list_declaration(o_11594_current_object, o_11595_c_expr); } else /* line 4464 "../prg/s7c.sd7" */ if ((o_11596_objectCategory) == (20L)) { /* line 4465 "../prg/s7c.sd7" */ o_11337_process_file_declaration(o_11594_current_object, o_11595_c_expr); } else /* line 4466 "../prg/s7c.sd7" */ if ((o_11596_objectCategory) == (22L)) { /* line 4467 "../prg/s7c.sd7" */ o_11340_process_socket_declaration(o_11594_current_object, o_11595_c_expr); } else /* line 4468 "../prg/s7c.sd7" */ if ((o_11596_objectCategory) == (23L)) { /* line 4469 "../prg/s7c.sd7" */ o_11343_process_poll_declaration(o_11594_current_object, o_11595_c_expr); } else /* line 4470 "../prg/s7c.sd7" */ if ((o_11596_objectCategory) == (14L)) { /* line 4471 "../prg/s7c.sd7" */ o_11346_process_array_declaration(o_11594_current_object, o_11595_c_expr); } else /* line 4472 "../prg/s7c.sd7" */ if ((o_11596_objectCategory) == (15L)) { /* line 4473 "../prg/s7c.sd7" */ o_11350_process_hash_declaration(o_11594_current_object, o_11595_c_expr); } else /* line 4474 "../prg/s7c.sd7" */ if ((o_11596_objectCategory) == (19L)) { /* line 4475 "../prg/s7c.sd7" */ o_11354_process_set_declaration(o_11594_current_object, o_11595_c_expr); } else /* line 4476 "../prg/s7c.sd7" */ if ((o_11596_objectCategory) == (16L)) { /* line 4477 "../prg/s7c.sd7" */ o_11357_process_struct_declaration(o_11594_current_object, o_11595_c_expr); } else /* line 4478 "../prg/s7c.sd7" */ if ((o_11596_objectCategory) == (18L)) { /* line 4479 "../prg/s7c.sd7" */ o_11362_process_interface_declaration(o_11594_current_object, o_11595_c_expr); } else /* line 4480 "../prg/s7c.sd7" */ if ((o_11596_objectCategory) == (26L)) { /* line 4481 "../prg/s7c.sd7" */ o_11367_process_win_declaration(o_11594_current_object, o_11595_c_expr); } else /* line 4482 "../prg/s7c.sd7" */ if ((o_11596_objectCategory) == (40L)) { /* line 4483 "../prg/s7c.sd7" */ o_11370_process_prog_declaration(o_11594_current_object, o_11595_c_expr); } else /* line 4484 "../prg/s7c.sd7" */ if ((o_11596_objectCategory) == (28L)) { /* line 4485 "../prg/s7c.sd7" */ o_11373_process_enum_declaration(o_11594_current_object, o_11595_c_expr); } else /* line 4486 "../prg/s7c.sd7" */ if ((o_11596_objectCategory) == (29L)) { /* line 4487 "../prg/s7c.sd7" */ o_11373_process_enum_declaration(o_11594_current_object, o_11595_c_expr); } else /* line 4488 "../prg/s7c.sd7" */ if ((o_11596_objectCategory) == (27L)) { /* line 4489 "../prg/s7c.sd7" */ o_11376_process_enum_literal_declaration(o_11594_current_object, o_11595_c_expr); } else /* line 4490 "../prg/s7c.sd7" */ if ((o_11596_objectCategory) == (33L)) { /* line 4491 "../prg/s7c.sd7" */ o_11588_process_action_declaration(o_11594_current_object, o_11595_c_expr); } else /* line 4492 "../prg/s7c.sd7" */ if ((o_11596_objectCategory) == (3L)) { /* line 4493 "../prg/s7c.sd7" */ o_11286_process_forward_declaration(o_11594_current_object, o_11595_c_expr); } else { /* line 4495 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11595_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[1431] /* "/* " */); /* line 4496 "../prg/s7c.sd7" */ strAppendTemp(&(((structType)(*o_11595_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), refCatStr(o_11596_objectCategory)); /* line 4497 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11595_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[3173] /* ": " */); /* line 4498 "../prg/s7c.sd7" */ o_5077_create_name2(o_11594_current_object, &(((structType)(*o_11595_c_expr))->stru[5].value.striValue/*->o_4783_expr*/)); /* line 4499 "../prg/s7c.sd7" */ strAppend(&(((structType)(*o_11595_c_expr))->stru[5].value.striValue/*->o_4783_expr*/), &str[164] /* " *\/\n" */); } } /* line 1 "no_file" */ /* 5107 */ static void/*t_1_void*/ o_11597_replaceLocalsFromOutside (const objRefType/*t_19_reference*/ o_11598_local_function, objRefType/*t_19_reference*/ *const o_11599_current_expression, const listType/*t_20_ref_list*/ *const o_11600_local_objects, listType/*t_20_ref_list*/ *const o_11601_additional_act_params, listType/*t_20_ref_list*/ *const o_11602_additional_form_params); /* line 4504 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11597_replaceLocalsFromOutside (const objRefType/*t_19_reference*/ o_11598_local_function, objRefType/*t_19_reference*/ *const o_11599_current_expression, const listType/*t_20_ref_list*/ *const o_11600_local_objects, listType/*t_20_ref_list*/ *const o_11601_additional_act_params, listType/*t_20_ref_list*/ *const o_11602_additional_form_params) { /* line 4509 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11603_params=NULL; /* line 4510 "../prg/s7c.sd7" */ intType/*t_14_integer*/ o_11604_paramNum=0; /* line 4511 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11605_aParam=NULL; /* line 4512 "../prg/s7c.sd7" */ intType/*t_86_category*/ o_11606_paramCategory=0; /* line 4513 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11607_formalRefParam=NULL; { /* line 4515 "../prg/s7c.sd7" */ listType old_rfl=o_11603_params; /* line 4515 "../prg/s7c.sd7" */ o_11603_params=rflValue(*o_11599_current_expression); /* line 4515 "../prg/s7c.sd7" */ rflDestr(old_rfl); } { /* line 4516 "../prg/s7c.sd7" */ intType tmp_e_1=rflLng(o_11603_params); /* line 4516 "../prg/s7c.sd7" */ for (o_11604_paramNum=2L; o_11604_paramNum<=tmp_e_1; (o_11604_paramNum)++) { /* line 4517 "../prg/s7c.sd7" */ o_11605_aParam=rflIdx(o_11603_params, o_11604_paramNum); /* line 4518 "../prg/s7c.sd7" */ o_11606_paramCategory=refCategory(o_11605_aParam); /* line 4519 "../prg/s7c.sd7" */ if (((o_11606_paramCategory) == (6L)) || /* line 4519 "../prg/s7c.sd7" */ ((o_11606_paramCategory) == (5L))) { /* line 4520 "../prg/s7c.sd7" */ o_11597_replaceLocalsFromOutside(o_11598_local_function, &(o_11605_aParam), o_11600_local_objects, o_11601_additional_act_params, o_11602_additional_form_params); } else /* line 4522 "../prg/s7c.sd7" */ if (((o_11606_paramCategory) == (37L)) || /* line 4522 "../prg/s7c.sd7" */ ((o_11606_paramCategory) == (34L)) || /* line 4523 "../prg/s7c.sd7" */ ((o_11606_paramCategory) == (35L)) || /* line 4523 "../prg/s7c.sd7" */ ((o_11606_paramCategory) == (36L))) { /* line 4524 "../prg/s7c.sd7" */ if (!rflElem(o_11605_aParam, *o_11600_local_objects)) { /* line 4525 "../prg/s7c.sd7" */ if (rflElem(o_11605_aParam, *o_11601_additional_act_params)) { /* line 4526 "../prg/s7c.sd7" */ o_11607_formalRefParam=rflIdx(*o_11602_additional_form_params, rflPos(*o_11601_additional_act_params, o_11605_aParam)); } else /* line 4527 "../prg/s7c.sd7" */ if ((o_10796_in(&(o_11598_local_function), o_10974_params_added)) && /* line 4528 "../prg/s7c.sd7" */ (o_10656_in(&(o_11605_aParam), *o_10789/*[*/(&(o_10974_params_added), &(o_11598_local_function))))) { /* line 4529 "../prg/s7c.sd7" */ o_11607_formalRefParam=*o_10649/*[*/(&(*o_10789/*[*/(&(o_10974_params_added), &(o_11598_local_function))), &(o_11605_aParam)); } else { { /* line 4531 "../prg/s7c.sd7" */ rflAppend(&(*o_11601_additional_act_params), rflMklist(o_11605_aParam)); } /* line 4532 "../prg/s7c.sd7" */ o_11607_formalRefParam=refAlloc(o_11605_aParam); /* line 4533 "../prg/s7c.sd7" */ refSetCategory(o_11607_formalRefParam, 35L); { /* line 4534 "../prg/s7c.sd7" */ rflAppend(&(*o_11602_additional_form_params), rflMklist(o_11607_formalRefParam)); } } /* line 4536 "../prg/s7c.sd7" */ rflElemcpy(o_11603_params, o_11604_paramNum, o_11607_formalRefParam); } } } } /* line 4540 "../prg/s7c.sd7" */ rflSetValue(*o_11599_current_expression, o_11603_params); /* line 4504 "../prg/s7c.sd7" */ rflDestr(o_11603_params); } /* line 1 "no_file" */ /* 5108 */ static void/*t_1_void*/ o_11608_changeCallsOfLocalFunction (objRefType/*t_19_reference*/ *const o_11609_current_expression, const objRefType/*t_19_reference*/ o_11610_local_function, const listType/*t_20_ref_list*/ *const o_11611_additional_params); /* line 4544 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11608_changeCallsOfLocalFunction (objRefType/*t_19_reference*/ *const o_11609_current_expression, const objRefType/*t_19_reference*/ o_11610_local_function, const listType/*t_20_ref_list*/ *const o_11611_additional_params) { /* line 4548 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11612_params=NULL; /* line 4549 "../prg/s7c.sd7" */ intType/*t_14_integer*/ o_11613_paramNum=0; /* line 4550 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11614_aParam=NULL; /* line 4551 "../prg/s7c.sd7" */ intType/*t_86_category*/ o_11615_paramCategory=0; { /* line 4553 "../prg/s7c.sd7" */ listType old_rfl=o_11612_params; /* line 4553 "../prg/s7c.sd7" */ o_11612_params=rflValue(*o_11609_current_expression); /* line 4553 "../prg/s7c.sd7" */ rflDestr(old_rfl); } { /* line 4554 "../prg/s7c.sd7" */ intType tmp_e_1=rflLng(o_11612_params); /* line 4554 "../prg/s7c.sd7" */ for (o_11613_paramNum=2L; o_11613_paramNum<=tmp_e_1; (o_11613_paramNum)++) { /* line 4555 "../prg/s7c.sd7" */ o_11614_aParam=rflIdx(o_11612_params, o_11613_paramNum); /* line 4556 "../prg/s7c.sd7" */ o_11615_paramCategory=refCategory(o_11614_aParam); /* line 4557 "../prg/s7c.sd7" */ if (((o_11615_paramCategory) == (6L)) || /* line 4557 "../prg/s7c.sd7" */ ((o_11615_paramCategory) == (5L))) { /* line 4558 "../prg/s7c.sd7" */ o_11608_changeCallsOfLocalFunction(&(o_11614_aParam), o_11610_local_function, o_11611_additional_params); } else /* line 4559 "../prg/s7c.sd7" */ if ((o_11614_aParam) == (o_11610_local_function)) { /* line 4564 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ tmp_1 = (listType/*t_20_ref_list*/)(NULL); /* line 4560 "../prg/s7c.sd7" */ o_11614_aParam=refAlloc(o_11614_aParam); /* line 4561 "../prg/s7c.sd7" */ refSetCategory(o_11614_aParam, 6L); /* line 4562 "../prg/s7c.sd7" */ rflSetValue(o_11614_aParam, (tmp_1=(listType/*t_20_ref_list*/)(rflCat(rflMklist(rflIdx(o_11612_params, o_11613_paramNum)), rflCreate(*o_11611_additional_params))))); /* line 4563 "../prg/s7c.sd7" */ rflElemcpy(o_11612_params, o_11613_paramNum, o_11614_aParam); /* line 4564 "../prg/s7c.sd7" */ rflSetValue(*o_11609_current_expression, o_11612_params); /* line 4564 "../prg/s7c.sd7" */ rflDestr(tmp_1); } } } /* line 4567 "../prg/s7c.sd7" */ if ((rflIdx(o_11612_params, 1L)) == (o_11610_local_function)) { /* line 4568 "../prg/s7c.sd7" */ rflAppend(&(o_11612_params), rflCreate(*o_11611_additional_params)); /* line 4569 "../prg/s7c.sd7" */ rflSetValue(*o_11609_current_expression, o_11612_params); } /* line 4544 "../prg/s7c.sd7" */ rflDestr(o_11612_params); } /* line 1 "no_file" */ /* 5109 */ static void/*t_1_void*/ o_11616_changeCallsFromSubFunctions (const objRefType/*t_19_reference*/ o_11617_parent_function, const objRefType/*t_19_reference*/ o_11618_local_function, const listType/*t_20_ref_list*/ *const o_11619_additional_params); /* line 4574 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11616_changeCallsFromSubFunctions (const objRefType/*t_19_reference*/ o_11617_parent_function, const objRefType/*t_19_reference*/ o_11618_local_function, const listType/*t_20_ref_list*/ *const o_11619_additional_params) { /* line 4578 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11620_parent_body=NULL; /* line 4579 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11621_obj=NULL; /* line 4574 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ tmp_2 = (listType/*t_20_ref_list*/)(NULL); /* line 4581 "../prg/s7c.sd7" */ if ((o_11617_parent_function) != (o_11618_local_function)) { /* line 4582 "../prg/s7c.sd7" */ o_11620_parent_body=refBody(o_11617_parent_function); /* line 4583 "../prg/s7c.sd7" */ o_11608_changeCallsOfLocalFunction(&(o_11620_parent_body), o_11618_local_function, o_11619_additional_params); } { /* line 4585 "../prg/s7c.sd7" */ listType tmp_elem_1; /* line 4585 "../prg/s7c.sd7" */ for (tmp_elem_1 = (tmp_2=(listType/*t_20_ref_list*/)(refLocalConsts(o_11617_parent_function))); tmp_elem_1 != NULL; tmp_elem_1 = tmp_elem_1->next) { /* line 4585 "../prg/s7c.sd7" */ o_11621_obj = tmp_elem_1->obj; /* line 4586 "../prg/s7c.sd7" */ if ((refCategory(o_11621_obj)) == (4L)) { /* line 4587 "../prg/s7c.sd7" */ o_11616_changeCallsFromSubFunctions(o_11621_obj, o_11618_local_function, o_11619_additional_params); } } } /* line 4574 "../prg/s7c.sd7" */ rflDestr(tmp_2); } /* line 1 "no_file" */ /* 5110 */ /* line 4593 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11622_adjustParamsToAdd (const objRefType/*t_19_reference*/ o_11623_local_function, listType/*t_20_ref_list*/ *const o_11624_additional_act_params, listType/*t_20_ref_list*/ *const o_11625_additional_form_params) { /* line 4597 "../prg/s7c.sd7" */ intType/*t_14_integer*/ o_11626_paramNum=0; /* line 4598 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11627_actParam=NULL; /* line 4599 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11628_formParam=NULL; /* line 4601 "../prg/s7c.sd7" */ if ((rflLng(*o_11624_additional_act_params)) != (0L)) { /* line 4602 "../prg/s7c.sd7" */ if (o_10799_not(&(o_11623_local_function), o_10974_params_added)) { /* line 4603 "../prg/s7c.sd7" */ o_10809/*@:=*/(&(o_10974_params_added), &(o_11623_local_function), hsh[352]); } /* line 4605 "../prg/s7c.sd7" */ o_11626_paramNum=1L; /* line 4606 "../prg/s7c.sd7" */ while ((o_11626_paramNum) <= (rflLng(*o_11624_additional_act_params))) { /* line 4607 "../prg/s7c.sd7" */ o_11627_actParam=rflIdx(*o_11624_additional_act_params, o_11626_paramNum); /* line 4608 "../prg/s7c.sd7" */ if (o_10656_in(&(o_11627_actParam), *o_10789/*[*/(&(o_10974_params_added), &(o_11623_local_function)))) { { { /* line 4609 "../prg/s7c.sd7" */ listType old_rfl=*o_11624_additional_act_params; /* line 4609 "../prg/s7c.sd7" */ *o_11624_additional_act_params=rflCat(rflHead(*o_11624_additional_act_params, (o_11626_paramNum)-1), rflTail(*o_11624_additional_act_params, (o_11626_paramNum)+1)); /* line 4609 "../prg/s7c.sd7" */ rflDestr(old_rfl); } } { { /* line 4611 "../prg/s7c.sd7" */ listType old_rfl=*o_11625_additional_form_params; /* line 4611 "../prg/s7c.sd7" */ *o_11625_additional_form_params=rflCat(rflHead(*o_11625_additional_form_params, (o_11626_paramNum)-1), rflTail(*o_11625_additional_form_params, (o_11626_paramNum)+1)); /* line 4611 "../prg/s7c.sd7" */ rflDestr(old_rfl); } } } else { /* line 4614 "../prg/s7c.sd7" */ ++(o_11626_paramNum); } } { /* line 4617 "../prg/s7c.sd7" */ intType tmp_e_1=rflLng(*o_11624_additional_act_params); /* line 4617 "../prg/s7c.sd7" */ for (o_11626_paramNum=1L; o_11626_paramNum<=tmp_e_1; (o_11626_paramNum)++) { /* line 4618 "../prg/s7c.sd7" */ o_11627_actParam=rflIdx(*o_11624_additional_act_params, o_11626_paramNum); /* line 4619 "../prg/s7c.sd7" */ o_11628_formParam=rflIdx(*o_11625_additional_form_params, o_11626_paramNum); /* line 4620 "../prg/s7c.sd7" */ if (o_10659_not(&(o_11627_actParam), *o_10789/*[*/(&(o_10974_params_added), &(o_11623_local_function)))) { /* line 4621 "../prg/s7c.sd7" */ o_10669/*@:=*/(&(*o_10789/*[*/(&(o_10974_params_added), &(o_11623_local_function))), &(o_11627_actParam), o_11628_formParam); } } } } } /* line 1 "no_file" */ /* 5111 */ /* line 4628 "../prg/s7c.sd7" */ static boolType/*t_13_boolean*/ o_11629_fixLocalFunction (const objRefType/*t_19_reference*/ o_11630_parent_function, const objRefType/*t_19_reference*/ o_11631_local_function) { /* line 4632 "../prg/s7c.sd7" */ boolType/*t_13_boolean*/ o_11632_fix_done=o_25_FALSE; /* line 4634 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11633_body_expression=NULL; /* line 4635 "../prg/s7c.sd7" */ intType/*t_86_category*/ o_11634_bodyCategory=0; /* line 4636 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11635_local_objects=NULL; /* line 4637 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11636_additional_act_params=NULL; /* line 4638 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11637_additional_form_params=NULL; /* line 4640 "../prg/s7c.sd7" */ o_11633_body_expression=refBody(o_11631_local_function); /* line 4641 "../prg/s7c.sd7" */ o_11634_bodyCategory=refCategory(o_11633_body_expression); /* line 4642 "../prg/s7c.sd7" */ if (((o_11634_bodyCategory) == (6L)) || /* line 4642 "../prg/s7c.sd7" */ ((o_11634_bodyCategory) == (5L))) { { { /* line 4643 "../prg/s7c.sd7" */ listType old_rfl=o_11635_local_objects; /* line 4643 "../prg/s7c.sd7" */ o_11635_local_objects=rflCat(rflCat(rflCreate(refParams(o_11631_local_function)), refLocalVars(o_11631_local_function)), rflMklist(refResult(o_11631_local_function))); /* line 4643 "../prg/s7c.sd7" */ rflDestr(old_rfl); } } /* line 4645 "../prg/s7c.sd7" */ o_11597_replaceLocalsFromOutside(o_11631_local_function, &(o_11633_body_expression), &(o_11635_local_objects), &(o_11636_additional_act_params), &(o_11637_additional_form_params)); /* line 4647 "../prg/s7c.sd7" */ o_11622_adjustParamsToAdd(o_11631_local_function, &(o_11636_additional_act_params), &(o_11637_additional_form_params)); /* line 4648 "../prg/s7c.sd7" */ if ((rflLng(o_11636_additional_act_params)) != (0L)) { /* line 4652 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ tmp_1 = (listType/*t_20_ref_list*/)(NULL); /* line 4649 "../prg/s7c.sd7" */ refSetParams(o_11631_local_function, (tmp_1=(listType/*t_20_ref_list*/)(rflCat(rflCreate(refParams(o_11631_local_function)), rflCreate(o_11637_additional_form_params))))); /* line 4650 "../prg/s7c.sd7" */ o_11608_changeCallsOfLocalFunction(&(o_11633_body_expression), o_11631_local_function, &(o_11637_additional_form_params)); /* line 4651 "../prg/s7c.sd7" */ o_11616_changeCallsFromSubFunctions(o_11630_parent_function, o_11631_local_function, &(o_11636_additional_act_params)); /* line 4652 "../prg/s7c.sd7" */ o_11632_fix_done=o_26_TRUE; /* line 4652 "../prg/s7c.sd7" */ rflDestr(tmp_1); } } /* line 4628 "../prg/s7c.sd7" */ rflDestr(o_11635_local_objects); /* line 4628 "../prg/s7c.sd7" */ rflDestr(o_11636_additional_act_params); /* line 4628 "../prg/s7c.sd7" */ rflDestr(o_11637_additional_form_params); return o_11632_fix_done; } /* line 1 "no_file" */ /* 5112 */ static void/*t_1_void*/ o_11638_processLocalFunctions (const objRefType/*t_19_reference*/ o_11639_current_object); /* line 4658 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11638_processLocalFunctions (const objRefType/*t_19_reference*/ o_11639_current_object) { /* line 4661 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11640_objects=NULL; /* line 4662 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11641_obj=NULL; /* line 4663 "../prg/s7c.sd7" */ boolType/*t_13_boolean*/ o_11642_fix_done=0/*FALSE*/; { /* line 4665 "../prg/s7c.sd7" */ listType old_rfl=o_11640_objects; /* line 4665 "../prg/s7c.sd7" */ o_11640_objects=refLocalConsts(o_11639_current_object); /* line 4665 "../prg/s7c.sd7" */ rflDestr(old_rfl); } /* line 4666 "../prg/s7c.sd7" */ do { /* line 4667 "../prg/s7c.sd7" */ o_11642_fix_done=o_25_FALSE; { /* line 4668 "../prg/s7c.sd7" */ listType tmp_elem_1; /* line 4668 "../prg/s7c.sd7" */ for (tmp_elem_1 = o_11640_objects; tmp_elem_1 != NULL; tmp_elem_1 = tmp_elem_1->next) { /* line 4668 "../prg/s7c.sd7" */ o_11641_obj = tmp_elem_1->obj; /* line 4669 "../prg/s7c.sd7" */ if ((refCategory(o_11641_obj)) == (4L)) { /* line 4670 "../prg/s7c.sd7" */ o_11638_processLocalFunctions(o_11641_obj); /* line 4671 "../prg/s7c.sd7" */ if (o_11629_fixLocalFunction(o_11639_current_object, o_11641_obj)) { /* line 4672 "../prg/s7c.sd7" */ o_11642_fix_done=o_26_TRUE; } } } } /* line 4676 "../prg/s7c.sd7" */ } while (!(!(o_11642_fix_done))); /* line 4658 "../prg/s7c.sd7" */ rflDestr(o_11640_objects); } /* line 1 "no_file" */ /* 5113 */ /* line 4680 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11643_addTypeCategoryForLocalVars (const objRefType/*t_19_reference*/ o_11644_function) { /* line 4683 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11645_objects=NULL; /* line 4684 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11646_obj=NULL; /* line 4685 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11647_object_value=NULL; /* line 4686 "../prg/s7c.sd7" */ typeType/*t_7_type*/ o_11648_objectType=typ[0] /* void/t_1_void */; /* line 4687 "../prg/s7c.sd7" */ intType/*t_86_category*/ o_11649_valueCategory=0; { /* line 4689 "../prg/s7c.sd7" */ listType old_rfl=o_11645_objects; /* line 4689 "../prg/s7c.sd7" */ o_11645_objects=refLocalVars(o_11644_function); /* line 4689 "../prg/s7c.sd7" */ rflDestr(old_rfl); } { /* line 4690 "../prg/s7c.sd7" */ listType tmp_elem_1; /* line 4690 "../prg/s7c.sd7" */ for (tmp_elem_1 = o_11645_objects; tmp_elem_1 != NULL; tmp_elem_1 = tmp_elem_1->next) { /* line 4690 "../prg/s7c.sd7" */ o_11646_obj = tmp_elem_1->obj; /* line 4691 "../prg/s7c.sd7" */ o_11647_object_value=refValue(o_11646_obj); /* line 4692 "../prg/s7c.sd7" */ o_11649_valueCategory=refCategory(o_11647_object_value); /* line 4693 "../prg/s7c.sd7" */ o_11648_objectType=refType(o_11646_obj); /* line 4694 "../prg/s7c.sd7" */ if (((o_11648_objectType) == (refType(o_11647_object_value))) && /* line 4694 "../prg/s7c.sd7" */ (o_3775_not(&(o_11648_objectType), o_4414_typeCategory))) { /* line 4695 "../prg/s7c.sd7" */ o_3785/*@:=*/(&(o_4414_typeCategory), &(o_11648_objectType), o_11649_valueCategory); } } } /* line 4680 "../prg/s7c.sd7" */ rflDestr(o_11645_objects); } /* line 1 "no_file" */ /* 5114 */ /* line 4701 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11248_process_local_consts (const objRefType/*t_19_reference*/ o_11249_function, structType/*t_164_expr_type*/ *const o_11250_c_expr) { /* line 4705 "../prg/s7c.sd7" */ listType/*t_20_ref_list*/ o_11650_objects=NULL; /* line 4706 "../prg/s7c.sd7" */ objRefType/*t_19_reference*/ o_11651_obj=NULL; /* line 4708 "../prg/s7c.sd7" */ o_11643_addTypeCategoryForLocalVars(o_11249_function); /* line 4709 "../prg/s7c.sd7" */ o_11638_processLocalFunctions(o_11249_function); { /* line 4710 "../prg/s7c.sd7" */ listType old_rfl=o_11650_objects; /* line 4710 "../prg/s7c.sd7" */ o_11650_objects=refLocalConsts(o_11249_function); /* line 4710 "../prg/s7c.sd7" */ rflDestr(old_rfl); } { /* line 4711 "../prg/s7c.sd7" */ listType tmp_elem_1; /* line 4711 "../prg/s7c.sd7" */ for (tmp_elem_1 = o_11650_objects; tmp_elem_1 != NULL; tmp_elem_1 = tmp_elem_1->next) { /* line 4711 "../prg/s7c.sd7" */ o_11651_obj = tmp_elem_1->obj; /* line 4712 "../prg/s7c.sd7" */ if ((refCategory(o_11651_obj)) != (3L)) { { /* line 4713 "../prg/s7c.sd7" */ typeType/*t_7_type*/ tmp_1; /* line 4713 "../prg/s7c.sd7" */ o_4801_declare_type_if_necessary(/* CALLOBJECT */(tmp_1=(typeType/*t_7_type*/)(refType(o_11651_obj)), &tmp_1), &(o_4794_global_c_expr)); } } /* line 4715 "../prg/s7c.sd7" */ o_11593_process_object_declaration(o_11651_obj, o_11250_c_expr); } } /* line 4701 "../prg/s7c.sd7" */ rflDestr(o_11650_objects); } /* line 1 "no_file" */ /* 5115 */ /* line 4720 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11652_process_object (const objRefType/*t_19_reference*/ o_11653_current_object) { /* line 4723 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11654_c_expr; /* line 4723 "../prg/s7c.sd7" */ o_11654_c_expr=create_164(sct[404]); /* line 4725 "../prg/s7c.sd7" */ o_4796_write_object_declaration=o_26_TRUE; /* line 4726 "../prg/s7c.sd7" */ o_11593_process_object_declaration(o_11653_current_object, &(o_11654_c_expr)); /* line 4727 "../prg/s7c.sd7" */ o_889_write(&(o_10506_c_prog), ((structType)(o_4794_global_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); /* line 4728 "../prg/s7c.sd7" */ if (o_4796_write_object_declaration) { /* line 4730 "../prg/s7c.sd7" */ o_889_write(&(o_10506_c_prog), ((structType)(o_11654_c_expr))->stru[5].value.striValue/*->o_4783_expr*/); } /* line 4738 "../prg/s7c.sd7" */ o_914_flush(&(o_10506_c_prog)); /* line 4739 "../prg/s7c.sd7" */ cpy_164((structType/*t_164_expr_type*/)(o_4794_global_c_expr), (structType/*t_164_expr_type*/)(sct[102])); /* line 4720 "../prg/s7c.sd7" */ destr_164(o_11654_c_expr); } /* line 1 "no_file" */ /* 5116 */ /* line 4743 "../prg/s7c.sd7" */ static void/*t_1_void*/ o_11655_process_library_import_object (const objRefType/*t_19_reference*/ o_11656_current_object) { /* line 4746 "../prg/s7c.sd7" */ structType/*t_164_expr_type*/ o_11657_c_expr; /* line 4746 "../prg/s7c.sd7" */ o_11657_c_expr=create_164(sct[405]); /* line 4748 "../prg/s7c.sd7" */ o_11593_process_object_declaration(o_11656_current_object, &(o_11657_c_expr)); /* line 4749 "../prg/s7c.sd7" */ cpy_164((structType/*t_164_expr_type*/)(o_4794_global_c_expr), (structType/*t_164_expr_type*/)(sct[102])); /* line 4743 "../prg/s7c.sd7" */ destr_164(o_11657_c_expr); } /* line 1 "no_file" */ /* 5117 */