Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //
- // PureBasic 6.30 - C Backend (Linux - x64) generated code
- //
- // (c) 2025 Fantaisie Software
- //
- // The header must remain intact for Re-Assembly
- //
- // String
- // CipherMD5
- // Cipher
- // Network
- // System
- // FileSystem
- // Date
- // Array
- // Memory
- // Map
- // Object
- // SimpleList
- // :System
- //
- #pragma warning(disable: 4024)
- //
- typedef long long quad;
- typedef quad integer;
- #define PB_INFINITY (1.0 / 0.0)
- #define PB_NEG_INFINITY (-1.0 / 0.0)
- typedef struct pb_array { void *a; } pb_array;
- typedef struct pb_array2 { void *a; integer b[2]; } pb_array2;
- typedef struct pb_array3 { void *a; integer b[3]; } pb_array3;
- typedef struct pb_array4 { void *a; integer b[4]; } pb_array4;
- typedef struct pb_array5 { void *a; integer b[5]; } pb_array5;
- typedef struct pb_array6 { void *a; integer b[6]; } pb_array6;
- typedef struct pb_array7 { void *a; integer b[7]; } pb_array7;
- typedef struct pb_array8 { void *a; integer b[8]; } pb_array8;
- typedef struct pb_array9 { void *a; integer b[9]; } pb_array9;
- typedef struct pb_listitem { void *a; void *b; void *c;} pb_listitem;
- typedef struct pb_list { void *a; pb_listitem *b; } pb_list;
- typedef struct pb_mapitem { void *a; void *b; void *c;} pb_mapitem;
- typedef struct pb_pbmap { pb_mapitem *a; } pb_pbmap;
- typedef struct pb_map { pb_pbmap *a; } pb_map;
- static integer s_s[]={0, -1};
- #define M_SYSFUNCTION(a) a
- #define M_PBFUNCTION(a) a
- #define M_CDECL
- typedef void TCHAR;
- #include <math.h>
- #define SYS_BankerRound(x) llrint(x)
- #define SYS_BankerRoundQuad(x) llrint(x)
- //
- void* PB_DirectoryEntryName(integer,integer);
- void* PB_DirectoryEntryName_DEBUG(integer,integer);
- quad PB_DirectoryEntrySize(integer);
- quad PB_DirectoryEntrySize_DEBUG(integer);
- integer PB_DirectoryEntryType(integer);
- integer PB_DirectoryEntryType_DEBUG(integer);
- integer PB_ExamineDirectory(integer,void*,void*);
- integer PB_ExamineDirectory_DEBUG(integer,void*,void*);
- integer PB_FinishDirectory(integer);
- integer PB_FinishDirectory_DEBUG(integer);
- integer PB_FreeFileSystem();
- integer PB_FreeMemorys();
- integer PB_FreeNetworks();
- integer PB_FreeObjects();
- integer PB_InitArray();
- integer PB_InitMap();
- integer PB_InitMemory();
- integer PB_InitNetworkInternal();
- integer PB_NextDirectoryEntry(integer);
- integer PB_NextDirectoryEntry_DEBUG(integer);
- void* PB_Right(void*,integer,integer);
- void* PB_Str(quad,integer);
- static char *tls;
- int PB_ExitCode=0;
- integer PB_MemoryBase=0;
- integer PB_Instance=0;
- int PB_ArgC;
- char **PB_ArgV;
- static unsigned char *pb_datapointer;
- //
- //
- //
- void DBG_CheckDataSection();
- void DBG_CheckNullPointer(void *pointer);
- //
- void SYS_Quit();
- M_SYSFUNCTION(void) SYS_InitPureBasic();
- void exit(int status);
- M_SYSFUNCTION(void) SYS_CopyString(const void *String);
- int M_CDECL SYS_StringEqual(TCHAR *String1, TCHAR *String2);
- M_SYSFUNCTION(void) SYS_AllocateString4(TCHAR **String, integer PreviousPosition);
- M_SYSFUNCTION(void) SYS_FastAllocateString4(TCHAR **Address, const TCHAR *String);
- M_SYSFUNCTION(integer) SYS_FastAllocateStringFree4(TCHAR **Address, const TCHAR *String);
- M_SYSFUNCTION(void) SYS_FreeString(TCHAR *String);
- M_SYSFUNCTION(void *) SYS_InitThreadedObject();
- extern void *PB_StringBase;
- extern integer PB_StringBasePosition;
- M_SYSFUNCTION(void) SYS_InitString(void);
- M_SYSFUNCTION(void) SYS_FreeStrings(void);
- //
- M_SYSFUNCTION(void) SYS_PushStringBasePosition(void);
- M_SYSFUNCTION(integer) SYS_PopStringBasePosition(void);
- M_SYSFUNCTION(integer) SYS_PopStringBasePositionUpdate(void);
- M_SYSFUNCTION(void *) SYS_PopStringBasePositionValue(void);
- M_SYSFUNCTION(void *) SYS_PopStringBasePositionValueNoUpdate(void);
- M_SYSFUNCTION(integer) SYS_GetStringBasePosition(void);
- M_SYSFUNCTION(void) SYS_SetStringBasePosition(integer Position);
- M_SYSFUNCTION(integer) SYS_StringBasePositionNoPop(void);
- M_SYSFUNCTION(char *) SYS_GetStringBase(void);
- #define DBG_ZeroDivideError 1
- #define DBG_ZeroModuloError 2
- #define DBG_NullPointerError 3
- #define DBG_ArrayOutOfBoundsError 4
- #define DBG_LinkedListNoCurrentElementError 5
- #define DBG_StructureArrayOufOfBoundError 6
- #define DBG_NegativeArraySizeError 7
- #define DBG_LastDimensionRedimOnlyError 8
- #define DBG_ReadDataError 9
- #define DBG_MapHashSizeError 10
- #define DBG_MapNoCurrentElementError 11
- #define DBG_MapUninitializedError 12
- typedef integer unsigned_integer;
- void PB_DEBUGGER_Start(unsigned_integer StackPosition, int Flags);
- void PB_DEBUGGER_End();
- integer PB_DEBUGGER_Check(int LineNumber, integer *registers);
- void PB_DEBUGGER_EnterProcedure(int ProcedureID, char *VariablesOffset);
- void PB_DEBUGGER_LeaveProcedure();
- integer PB_DEBUGGER_Error(int Control, const char *Description);
- integer PB_DEBUGGER_ErrorCode(int Control, int ErrorCode);
- void PB_DEBUGGER_PrintString(void *String);
- void PB_DEBUGGER_PrintFloat(float Float);
- void PB_DEBUGGER_PrintLong(int Long);
- void PB_DEBUGGER_PrintQuad(quad Quad);
- void PB_DEBUGGER_PrintDouble(double Double);
- void PB_DEBUGGER_Break(integer *registers);
- void PB_DEBUGGER_SetLine(int LineNumber);
- M_SYSFUNCTION(void) SYS_CheckArray(integer *ArrayAddress, integer Index);
- M_SYSFUNCTION(integer) SYS_CheckMultiArrayDimension(int DimensionIndex, integer Value, integer *ArrayAddress);
- M_SYSFUNCTION(void) SYS_CheckRedimDimension(int DimensionIndex, integer Value, integer *ArrayAddress);
- M_SYSFUNCTION(void) SYS_CheckCurrentListElement(pb_list *List);
- M_SYSFUNCTION(void) SYS_CheckCurrentMapElement(pb_pbmap *Map);
- M_SYSFUNCTION(void) SYS_CheckMapHashSize(integer Value);
- M_SYSFUNCTION(void) SYS_CheckStructureArrayIndex(int ArraySize, integer Index);
- void PB_PURIFIER_Start(int **GlobalMap);
- void PB_PURIFIER_EnterProcedure(int *LocalOffsetMap, char *Stack);
- void PB_PURIFIER_Check(int **GlobalMap, int *LocalOffsetMap, const char *Stack);
- void DBG_Check(int Line) { PB_DEBUGGER_Check(Line, 0); }
- int PB_DEBUGGER_Control=0;
- int PB_DEBUGGER_CurrentLine=0;
- int PB_DEBUGGER_ErrorDescription=0;
- int PB_DEBUGGER_FullScreen=0;
- int PB_DEBUGGER_StartDrawing=0;
- int PB_DEBUGGER_Unicode=1;
- int PB_DEBUGGER_Thread=0;
- int PB_DEBUGGER_Purifier=1;
- int PB_DEBUGGER_Version=630;
- const char PB_DEBUGGER_SourcePath[]="/home/ucedac/Desktop";
- const char PB_DEBUGGER_PureBasicPath[]="/opt/purebasic/";
- const char PB_DEBUGGER_Language[]="";
- volatile int PB_DEBUGGER_LineNumber=0;
- volatile int PB_DEBUGGER_NbIncludedFiles=0;
- const char PB_DEBUGGER_FileName[]="recurse.pb";
- char *PB_DEBUGGER_IncludedFiles[]={
- 0};
- //
- static integer f_listdir(void* v_directoryS);
- static unsigned char lmv_0[]={
- 8,
- 1,
- 68,105,114,101,99,116,111,114,121,36,0,
- 0,0,0,0,0,0,0,0,
- 8,
- 1,
- 84,121,112,101,36,0,
- 0,0,0,0,0,0,0,0,
- 8,
- 1,
- 83,105,122,101,36,0,
- 0,0,0,0,0,0,0,0,
- 21,
- 1,
- 104,110,100,0,
- 0,0,0,0,0,0,0,0,
- -1};
- static unsigned char lma_0[]={
- -1};
- static unsigned char lml_0[]={
- -1};
- static unsigned char lmm_0[]={
- -1};
- static unsigned short _S7[]={0};
- static unsigned short _S5[]={41,0};
- static unsigned short _S8[]={46,0};
- static unsigned short _S1[]={47,0};
- static unsigned short _S4[]={32,40,83,105,122,101,58,32,0};
- static unsigned short _S2[]={42,46,42,0};
- static unsigned short _S6[]={91,68,105,114,101,99,116,111,114,121,93,32,0};
- static unsigned short _S9[]={46,46,0};
- static unsigned short _S3[]={91,70,105,108,101,93,32,0};
- unsigned char PB_DEBUGGER_VariableBank[] __attribute__((aligned(4)))={0,0,0,0,
- 0};
- unsigned char PB_DEBUGGER_ProcedureBank[] __attribute__((aligned(4)))={1,0,0,0,
- 1,0,
- 1,
- 8,
- 0,0,0,0,
- 21,
- 0,
- 108,105,115,116,100,105,114,0,
- 0,
- 0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,
- 0,0,0,0,0,0,0,0,
- 0,0,
- };
- unsigned char PB_DEBUGGER_ArrayBank[] __attribute__((aligned(4)))={0,0,0,0,
- };
- unsigned char PB_DEBUGGER_LinkedListBank[] __attribute__((aligned(4)))={0,0,0,0,
- };
- unsigned char PB_DEBUGGER_MapBank[] __attribute__((aligned(4)))={0,0,0,0,
- };
- unsigned char PB_DEBUGGER_ConstantBank[] __attribute__((aligned(4)))={28,0,0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,80,114,111,99,101,115,115,111,114,0,
- 0,
- 3,
- 4,0,0,0,
- 0,0,0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,87,97,121,108,97,110,100,0,
- 0,
- 3,
- 0,0,0,0,
- 0,0,0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,76,105,110,101,0,
- 0,
- 3,
- 36,0,0,0,
- 0,0,0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,51,50,66,105,116,0,
- 0,
- 3,
- 0,0,0,0,
- 0,0,0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,80,114,111,99,101,100,117,114,101,0,
- 0,
- 6,
- 0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,70,105,108,101,80,97,116,104,0,
- 0,
- 6,
- 0x2F,0x0,0x68,0x0,0x6F,0x0,0x6D,0x0,0x65,0x0,0x2F,0x0,0x75,0x0,0x63,0x0,0x65,0x0,0x64,0x0,0x61,0x0,0x63,0x0,0x2F,0x0,0x44,0x0,0x65,0x0,0x73,0x0,0x6B,0x0,0x74,0x0,0x6F,0x0,0x70,0x0,0x2F,0x0,0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,69,120,101,99,117,116,97,98,108,101,70,111,114,109,97,116,0,
- 0,
- 3,
- 0,0,0,0,
- 0,0,0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,79,112,116,105,109,105,122,101,114,0,
- 0,
- 3,
- 0,0,0,0,
- 0,0,0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,68,101,98,117,103,103,101,114,0,
- 0,
- 3,
- 1,0,0,0,
- 0,0,0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,70,105,108,101,110,97,109,101,0,
- 0,
- 6,
- 0x72,0x0,0x65,0x0,0x63,0x0,0x75,0x0,0x72,0x0,0x73,0x0,0x65,0x0,0x2E,0x0,0x70,0x0,0x62,0x0,0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,79,83,0,
- 0,
- 3,
- 2,0,0,0,
- 0,0,0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,72,111,109,101,0,
- 0,
- 6,
- 0x2F,0x0,0x6F,0x0,0x70,0x0,0x74,0x0,0x2F,0x0,0x70,0x0,0x75,0x0,0x72,0x0,0x65,0x0,0x62,0x0,0x61,0x0,0x73,0x0,0x69,0x0,0x63,0x0,0x2F,0x0,0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,69,110,97,98,108,101,69,120,112,108,105,99,105,116,0,
- 0,
- 3,
- 1,0,0,0,
- 0,0,0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,69,110,117,109,101,114,97,116,105,111,110,86,97,108,117,101,0,
- 0,
- 3,
- 0,0,0,0,
- 0,0,0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,66,97,99,107,101,110,100,0,
- 0,
- 3,
- 1,0,0,0,
- 0,0,0,0,
- 2,
- 78,117,108,108,36,0,
- 0,
- 6,
- 0x21,0x0,0x5F,0x0,0x50,0x0,0x42,0x0,0x5F,0x0,0x4E,0x0,0x75,0x0,0x6C,0x0,0x6C,0x0,0x43,0x0,0x6F,0x0,0x6E,0x0,0x73,0x0,0x74,0x0,0x61,0x0,0x6E,0x0,0x74,0x0,0x5F,0x0,0x21,0x0,0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,84,104,114,101,97,100,0,
- 0,
- 3,
- 0,0,0,0,
- 0,0,0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,76,105,110,101,78,117,109,98,101,114,105,110,103,0,
- 0,
- 3,
- 0,0,0,0,
- 0,0,0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,54,52,66,105,116,0,
- 0,
- 3,
- 1,0,0,0,
- 0,0,0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,86,101,114,115,105,111,110,0,
- 0,
- 3,
- 118,2,0,0,
- 0,0,0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,85,110,105,99,111,100,101,0,
- 0,
- 3,
- 1,0,0,0,
- 0,0,0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,70,105,108,101,0,
- 0,
- 6,
- 0x2F,0x0,0x68,0x0,0x6F,0x0,0x6D,0x0,0x65,0x0,0x2F,0x0,0x75,0x0,0x63,0x0,0x65,0x0,0x64,0x0,0x61,0x0,0x63,0x0,0x2F,0x0,0x44,0x0,0x65,0x0,0x73,0x0,0x6B,0x0,0x74,0x0,0x6F,0x0,0x70,0x0,0x2F,0x0,0x72,0x0,0x65,0x0,0x63,0x0,0x75,0x0,0x72,0x0,0x73,0x0,0x65,0x0,0x2E,0x0,0x70,0x0,0x62,0x0,0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,73,115,73,110,99,108,117,100,101,70,105,108,101,0,
- 0,
- 3,
- 0,0,0,0,
- 0,0,0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,73,115,77,97,105,110,70,105,108,101,0,
- 0,
- 3,
- 1,0,0,0,
- 0,0,0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,77,111,100,117,108,101,0,
- 0,
- 6,
- 0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,68,80,73,65,119,97,114,101,0,
- 0,
- 3,
- 0,0,0,0,
- 0,0,0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,68,97,116,101,0,
- 0,
- 3,
- 45,20,40,106,
- 0,0,0,0,
- 2,
- 80,66,95,67,111,109,112,105,108,101,114,95,73,110,108,105,110,101,65,115,115,101,109,98,108,121,0,
- 0,
- 3,
- 0,0,0,0,
- 0,0,0,0,
- };
- unsigned char PB_DEBUGGER_LabelBank[] __attribute__((aligned(4)))={0,0,0,0,
- };
- unsigned char PB_DEBUGGER_ModuleBank[] __attribute__((aligned(4)))={0,0,0,0,
- };
- static integer ms_s[]={0,-1};
- //
- //
- // Procedure listdir(Directory$)
- static integer f_listdir(void* v_directoryS) {
- integer r=0;
- SYS_FastAllocateString4(&v_directoryS,v_directoryS);
- void* v_typeS=0;
- void* v_sizeS=0;
- integer v_hnd=0;
- *(integer *)(&lmv_0[13])=(integer *)&v_directoryS;
- *(integer *)(&lmv_0[29])=(integer *)&v_typeS;
- *(integer *)(&lmv_0[45])=(integer *)&v_sizeS;
- *(integer *)(&lmv_0[59])=(integer *)&v_hnd;
- PB_DEBUGGER_EnterProcedure(0,0);
- PB_PURIFIER_EnterProcedure(0,0);
- DBG_Check(2);
- // Protected hnd.i;
- // Protected Type$;
- // Protected Size$;
- //
- // If Right(Directory$,1) <> "/"
- DBG_Check(7);
- SYS_PushStringBasePosition();
- SYS_PushStringBasePosition();
- integer p0=SYS_PopStringBasePosition();
- PB_Right(v_directoryS,1LL,p0);
- PB_StringBasePosition+=2;
- void* p1=SYS_PopStringBasePositionValue();
- void* p2=_S1;
- if (!((!SYS_StringEqual(p2,p1)))) { goto no2; }
- // Directory$ + "/"
- DBG_Check(8);
- SYS_PushStringBasePosition();
- SYS_CopyString(v_directoryS);
- SYS_CopyString(_S1);
- SYS_AllocateString4(&v_directoryS,SYS_PopStringBasePosition());
- // EndIf
- no2:;
- DBG_Check(9);
- // hnd = ExamineDirectory(#PB_Any, Directory$, "*.*")
- DBG_Check(10);
- PB_ExamineDirectory_DEBUG(-1LL,v_directoryS,_S2);
- integer r0=PB_ExamineDirectory(-1LL,v_directoryS,_S2);
- v_hnd=r0;
- PB_PURIFIER_Check(0,0,0);
- // If Not hnd
- DBG_Check(11);
- if (!(!(v_hnd))) { goto no4; }
- // ProcedureReturn #False
- DBG_Check(12);
- r=0LL;
- goto end;
- // EndIf
- no4:;
- DBG_Check(13);
- //
- // While NextDirectoryEntry(hnd)
- while (1) {
- PB_NextDirectoryEntry_DEBUG(v_hnd);
- integer r1=PB_NextDirectoryEntry(v_hnd);
- DBG_Check(15);
- if (!(r1)) { break; }
- // If DirectoryEntryType(hnd) = #PB_DirectoryEntry_File
- DBG_Check(16);
- PB_DirectoryEntryType_DEBUG(v_hnd);
- integer r2=PB_DirectoryEntryType(v_hnd);
- if (!((r2==1))) { goto no7; }
- // Type$ = "[File] "
- DBG_Check(17);
- SYS_FastAllocateStringFree4(&v_typeS,_S3);
- // Size$ = " (Size: " + DirectoryEntrySize(hnd) + ")"
- DBG_Check(18);
- SYS_PushStringBasePosition();
- SYS_CopyString(_S4);
- PB_DirectoryEntrySize_DEBUG(v_hnd);
- quad r3=PB_DirectoryEntrySize(v_hnd);
- SYS_PushStringBasePosition();
- PB_Str(r3,SYS_GetStringBasePosition());
- SYS_PopStringBasePosition();
- SYS_CopyString(_S5);
- SYS_AllocateString4(&v_sizeS,SYS_PopStringBasePosition());
- PB_PURIFIER_Check(0,0,0);
- // Else
- DBG_Check(19);
- goto endif6;
- no7:;
- DBG_Check(19);
- // Type$ = "[Directory] "
- DBG_Check(20);
- SYS_FastAllocateStringFree4(&v_typeS,_S6);
- // Size$ = ""
- DBG_Check(21);
- SYS_FastAllocateStringFree4(&v_sizeS,_S7);
- // If DirectoryEntryName(hnd) <> "." And DirectoryEntryName(hnd) <> ".."
- DBG_Check(22);
- SYS_PushStringBasePosition();
- SYS_PushStringBasePosition();
- integer p3=SYS_PopStringBasePosition();
- PB_DirectoryEntryName_DEBUG(v_hnd,p3);
- PB_DirectoryEntryName(v_hnd,p3);
- PB_StringBasePosition+=2;
- void* p4=SYS_PopStringBasePositionValue();
- void* p5=_S8;
- integer c11=0;
- if (!((!SYS_StringEqual(p5,p4)))) { goto no11; }
- SYS_PushStringBasePosition();
- SYS_PushStringBasePosition();
- integer p6=SYS_PopStringBasePosition();
- PB_DirectoryEntryName_DEBUG(v_hnd,p6);
- PB_DirectoryEntryName(v_hnd,p6);
- PB_StringBasePosition+=2;
- void* p7=SYS_PopStringBasePositionValue();
- void* p8=_S9;
- if (!((!SYS_StringEqual(p8,p7)))) { goto no11; }
- ok11:
- c11=1;
- no11:;
- if (!(c11)) { goto no10; }
- // listdir(Directory$ + DirectoryEntryName(hnd))
- DBG_Check(23);
- SYS_PushStringBasePosition();
- SYS_PushStringBasePosition();
- SYS_CopyString(v_directoryS);
- SYS_PushStringBasePosition();
- SYS_PushStringBasePosition();
- integer p9=SYS_PopStringBasePosition();
- PB_DirectoryEntryName_DEBUG(v_hnd,p9);
- PB_DirectoryEntryName(v_hnd,p9);
- SYS_PopStringBasePosition();
- void* p10=(void*)SYS_PopStringBasePositionValueNoUpdate();
- integer r4=f_listdir(p10);
- PB_DEBUGGER_SetLine(23);
- SYS_PopStringBasePositionUpdate();
- PB_PURIFIER_Check(0,0,0);
- // Else
- DBG_Check(24);
- goto endif9;
- no10:;
- DBG_Check(24);
- // Continue
- continue;
- // EndIf
- endif9:;
- DBG_Check(26);
- // EndIf
- endif6:;
- DBG_Check(27);
- //
- // Debug Type$ + DirectoryEntryName(hnd) + Size$
- DBG_Check(29);
- SYS_PushStringBasePosition();
- SYS_PushStringBasePosition();
- SYS_CopyString(v_typeS);
- SYS_PushStringBasePosition();
- SYS_PushStringBasePosition();
- integer p11=SYS_PopStringBasePosition();
- PB_DirectoryEntryName_DEBUG(v_hnd,p11);
- PB_DirectoryEntryName(v_hnd,p11);
- SYS_PopStringBasePosition();
- SYS_CopyString(v_sizeS);
- PB_DEBUGGER_PrintString(SYS_PopStringBasePositionValue());
- SYS_PopStringBasePositionUpdate();
- // Wend
- DBG_Check(30);
- }
- il_wend5:;
- // FinishDirectory(hnd)
- DBG_Check(31);
- PB_FinishDirectory_DEBUG(v_hnd);
- integer r5=PB_FinishDirectory(v_hnd);
- PB_PURIFIER_Check(0,0,0);
- // EndProcedure
- DBG_Check(32);
- r=0;
- end:
- PB_DEBUGGER_LeaveProcedure();
- SYS_FreeString(v_directoryS);
- SYS_FreeString(v_typeS);
- SYS_FreeString(v_sizeS);
- return r;
- }
- void PB_DEBUGGER_ChangeString(TCHAR** Target, TCHAR *Value) { SYS_FastAllocateStringFree4(Target, Value); }
- void DBG_FatalMessage(int ErrorCode) { PB_DEBUGGER_ErrorCode(6, ErrorCode); PB_DEBUGGER_Check(-1, 0); }
- #define PB_DATASECTION_SIZE 0
- void DBG_CheckNullPointer(void *pointer) { if (pointer == 0) { DBG_FatalMessage(DBG_NullPointerError); }}
- M_SYSFUNCTION(void) SYS_InitThreadObjectCallback(char *tls) {
- }
- M_SYSFUNCTION(void) SYS_FreeThreadObjectCallback(char *tls) {
- }
- //
- char PB_OpenGLSubsystem=1;
- int PB_Compiler_Unicode=1;
- int PB_Compiler_Thread=0;
- int PB_Compiler_Purifier=1;
- int PB_Compiler_Debugger=1;
- int PB_Compiler_DPIAware=0;
- int PB_Compiler_Wayland=0;
- int PB_ExecutableType=0;
- integer PB_ThreadedObjectSize=0;
- //
- void PB_EndFunctions() {
- PB_FreeNetworks();
- PB_FreeFileSystem();
- PB_FreeObjects();
- PB_FreeMemorys();
- }
- //
- int main(int argc, char* argv[]) {
- PB_ArgC = argc;
- PB_ArgV = argv;
- SYS_InitPureBasic();
- SYS_InitString();
- *(integer *)(&PB_DEBUGGER_ProcedureBank[23])=(integer)&f_listdir;
- *(integer *)(&PB_DEBUGGER_ProcedureBank[31])=(integer)&lmv_0;
- *(integer *)(&PB_DEBUGGER_ProcedureBank[39])=(integer)&lma_0;
- *(integer *)(&PB_DEBUGGER_ProcedureBank[47])=(integer)&lml_0;
- *(integer *)(&PB_DEBUGGER_ProcedureBank[55])=(integer)&lmm_0;
- PB_DEBUGGER_Start(0, 1);
- PB_PURIFIER_Start(0);
- PB_InitMap();
- PB_InitMemory();
- PB_InitArray();
- PB_InitNetworkInternal();
- tls=SYS_InitThreadedObject();
- // EnableExplicit
- //
- //
- // listdir("/")
- DBG_Check(34);
- integer r0=f_listdir(_S1);
- PB_DEBUGGER_SetLine(34);
- PB_PURIFIER_Check(0,0,0);
- DBG_Check(35);
- SYS_Quit();
- }
- void SYS_Quit() {
- PB_EndFunctions();
- PB_DEBUGGER_End();
- exit(PB_ExitCode);
- }
- unsigned char PB_DEBUGGER_CodeContextBank[]={2,0,0,0,1,108,105,115,116,100,105,114,0,32,0,0,0,2,108,105,115,116,100,105,114,0,-1};
- int PB_DEBUGGER_ValidLines[]={2,3,4,5,7,8,9,10,11,12,13,15,16,17,18,19,20,21,22,23,24,25,26,27,29,30,31,32,34,35,-1};
Advertisement