AIR
1 year ago
parent
54b5db9d65
commit
cd1708fb0f
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,106 @@ |
||||
FPRINT Outfile,"" |
||||
FPRINT Outfile,"// *************************************************" |
||||
FPRINT Outfile,"// " + $BCX_STR_STD_MACROS |
||||
FPRINT Outfile,"// *************************************************" |
||||
FPRINT Outfile,"" |
||||
|
||||
IF Use_BcxSplitPath THEN |
||||
FPRINT Outfile,"#define FDRV 2" |
||||
FPRINT Outfile,"#define FPATH 4" |
||||
FPRINT Outfile,"#define FNAME 8" |
||||
FPRINT Outfile,"#define FEXT 16" |
||||
END IF |
||||
|
||||
IF Use_Cbool THEN |
||||
FPRINT Outfile,"#define CBOOL(A)(A!=0)?1:0" |
||||
END IF |
||||
|
||||
IF Use_Isptr THEN |
||||
FPRINT Outfile,"#define IsPtr(a)((DWORD)a)" |
||||
END IF |
||||
|
||||
IF Use_Band THEN |
||||
FPRINT Outfile,"#define BAND &" |
||||
END IF |
||||
|
||||
IF Use_Bor THEN |
||||
FPRINT Outfile,"#define BOR |" |
||||
END IF |
||||
|
||||
IF Use_Bnot THEN |
||||
FPRINT Outfile,"#define BNOT ~(int)" |
||||
END IF |
||||
|
||||
IF Use_Ubound THEN |
||||
FPRINT Outfile,"#define ubound(T)(sizeof((T))/sizeof((T[0]))-1)" |
||||
END IF |
||||
|
||||
IF Use_Clear THEN |
||||
FPRINT Outfile,"#define Clear(arg)memset(&arg,0,sizeof(arg))" |
||||
END IF |
||||
|
||||
IF Use_Imod THEN |
||||
FPRINT Outfile,"#define imod(a,b)((a)%(b))" |
||||
END IF |
||||
|
||||
IF Use_Get THEN |
||||
FPRINT Outfile,"#define GET(A,B,C) F_GetVal=fread(B,1,C,A)" |
||||
CALL AddGlobal("F_GetVal", vt_INTEGER , 0,"",0,0,0,0) |
||||
END IF |
||||
|
||||
IF Use_Put THEN |
||||
FPRINT Outfile,"#define PUT(A,B,C) F_PutVal=fwrite(B,1,C,A)" |
||||
CALL AddGlobal("F_PutVal", vt_INTEGER , 0,"",0,0,0,0) |
||||
END IF |
||||
|
||||
IF Use_Strptr THEN |
||||
FPRINT Outfile,"#define STRPTR(A)((char*)&(A))" |
||||
END IF |
||||
|
||||
IF Use_Val THEN |
||||
FPRINT Outfile,"#define VAL(a)(double)atof(a)" |
||||
END IF |
||||
|
||||
IF Use_Vall THEN |
||||
FPRINT Outfile,"#define VALL(a) (long double)strtold(a,(char**)NULL)" |
||||
END IF |
||||
|
||||
IF Use_Fint THEN |
||||
FPRINT Outfile,"#define FINT(a)floor(a)" |
||||
END IF |
||||
|
||||
IF Use_Frac THEN |
||||
FPRINT Outfile,"#define FRAC(a)(double)(a-FIX(a))" |
||||
Use_Fix = TRUE |
||||
END IF |
||||
|
||||
IF Use_Fracl THEN |
||||
FPRINT Outfile,"#define FRACL(a)(long double)(a-FIX(a))" |
||||
Use_Fix = TRUE |
||||
END IF |
||||
|
||||
IF Use_Fix THEN |
||||
FPRINT Outfile,"#define FIX(a)(int)((a))" |
||||
END IF |
||||
|
||||
IF Use_Csng THEN |
||||
FPRINT Outfile,"#define CSNG(a)((float)(a))" |
||||
END IF |
||||
|
||||
IF Use_Cdbl THEN |
||||
FPRINT Outfile,"#define CDBL(a)((double)(a))" |
||||
END IF |
||||
|
||||
IF Use_Cldbl THEN |
||||
FPRINT Outfile,"#define CLDBL(a)((long double)(a))" |
||||
END IF |
||||
|
||||
IF Use_Threads THEN |
||||
FPRINT Outfile,"#define BCX_THREAD(fn,arg) ({ pthread_t tid; pthread_create(&tid, NULL, (void*(*)(void*))fn, arg); tid;})" |
||||
FPRINT Outfile,"#define BCX_THREADWAIT(a) pthread_join(a, NULL)" |
||||
FPRINT Outfile,"#define BCX_INITLOCK(a) pthread_mutex_init(a, NULL)" |
||||
FPRINT Outfile,"#define BCX_THREADLOCK(a) pthread_mutex_lock (a)" |
||||
FPRINT Outfile,"#define BCX_THREADUNLOCK(a) pthread_mutex_unlock (a)" |
||||
FPRINT Outfile,"#define BCX_THREADKILL(t) pthread_cancel(t)" |
||||
FPRINT Outfile,"#define BCX_THREADEND pthread_exit(0)" |
||||
END IF |
||||
@ -0,0 +1,491 @@ |
||||
FPRINT Outfile,"" |
||||
FPRINT Outfile,"// *************************************************" |
||||
FPRINT Outfile,"// " + $BCX_STR_STD_PROTOS |
||||
FPRINT Outfile,"// *************************************************" |
||||
FPRINT Outfile,"" |
||||
IF NoRT=FALSE THEN |
||||
|
||||
IF Use_Clng THEN |
||||
FPRINT Outfile,"long CLNG(double);" |
||||
END IF |
||||
IF Use_Cint THEN |
||||
FPRINT Outfile,"int Cint(double);" |
||||
END IF |
||||
IF Use_StartupCode THEN |
||||
FPRINT Outfile,"int BCX_StartupCode_(void);" |
||||
END IF |
||||
IF Use_ExitCode THEN |
||||
FPRINT Outfile,"int BCX_ExitCode_(void);" |
||||
END IF |
||||
IF Use_Str_Cmp THEN |
||||
FPRINT Outfile,"int str_cmp(char*, char*);" |
||||
END IF |
||||
IF Use_Eof THEN |
||||
FPRINT Outfile,"int EoF (FILE*);" |
||||
END IF |
||||
IF Use_CopyFile THEN |
||||
FPRINT Outfile,"void CopyFile (char *,char *,int=FALSE);" |
||||
END IF |
||||
|
||||
IF Use_QBColor THEN |
||||
FPRINT Outfile,"int qbcolor (int);" |
||||
END IF |
||||
IF Use_Cls THEN |
||||
FPRINT Outfile,"void cls(void);" |
||||
END IF |
||||
IF Use_Color THEN |
||||
FPRINT Outfile,"void color (int,int);" |
||||
END IF |
||||
IF Use_Locate THEN |
||||
FPRINT Outfile,"void locate (int,int,int=1,int=12);" |
||||
END IF |
||||
IF Use_Run THEN |
||||
FPRINT Outfile,"int Run (char*, int =1, int =0);" |
||||
END IF |
||||
IF Use_Randomize THEN |
||||
FPRINT Outfile,"void randomize (unsigned int);" |
||||
END IF |
||||
IF Use_Midstr THEN |
||||
FPRINT Outfile,"void midstr (char*, int, int, char *);" |
||||
END IF |
||||
IF Use_Swap THEN |
||||
FPRINT Outfile,"void swap (UCHAR*,UCHAR*,int);" |
||||
END IF |
||||
|
||||
IF UseFlag THEN |
||||
FPRINT Outfile,"char* BCX_TmpStr(size_t);" |
||||
END IF |
||||
|
||||
IF Use_sziif THEN |
||||
FPRINT Outfile,"char* sziif (bool,char*,char*);" |
||||
END IF |
||||
IF Use_Using THEN |
||||
FPRINT Outfile,"char* Using (char*,double);" |
||||
END IF |
||||
IF Use_TempFileName THEN |
||||
FPRINT Outfile,"char* TempFileName (char*,char*);" |
||||
END IF |
||||
IF Use_AppExePath THEN |
||||
FPRINT Outfile,"char* AppExePath (void);" |
||||
END IF |
||||
IF Use_AppExeName THEN |
||||
FPRINT Outfile,"char* AppExeName (void);" |
||||
END IF |
||||
IF Use_Lcase THEN |
||||
FPRINT Outfile,"char* lcase (char*);" |
||||
END IF |
||||
IF Use_Ucase THEN |
||||
FPRINT Outfile,"char* ucase (char*);" |
||||
END IF |
||||
IF Use_Mid THEN |
||||
FPRINT Outfile,"char* mid (char*, int, int=-1);" |
||||
END IF |
||||
IF Use_Ltrim THEN |
||||
FPRINT Outfile,"char* ltrim (char*,char=32);" |
||||
END IF |
||||
IF Use_Rtrim THEN |
||||
FPRINT Outfile,"char* rtrim (char*,char=32);" |
||||
END IF |
||||
IF Use_Trim THEN |
||||
FPRINT Outfile,"char* trim (char*);" |
||||
END IF |
||||
IF Use_Strim THEN |
||||
FPRINT Outfile,"char* strim (char*);" |
||||
END IF |
||||
IF Use_Left THEN |
||||
FPRINT Outfile,"char* left (char*,int);" |
||||
END IF |
||||
IF Use_Right THEN |
||||
FPRINT Outfile,"char* right (char*,int);" |
||||
END IF |
||||
IF Use_Rpad THEN |
||||
FPRINT Outfile,"char* rpad (char*,int,int=32);" |
||||
END IF |
||||
IF Use_Lpad THEN |
||||
FPRINT Outfile,"char* lpad (char*,int,int=32);" |
||||
END IF |
||||
IF Use_String THEN |
||||
FPRINT Outfile,"char* stringx (int,int);" |
||||
END IF |
||||
IF Use_Repeat THEN |
||||
FPRINT Outfile,"char* repeat (int,char*);" |
||||
END IF |
||||
IF Use_Extract THEN |
||||
FPRINT Outfile,"char* extract (char*,char*);" |
||||
END IF |
||||
IF Use_Remain THEN |
||||
FPRINT Outfile,"char* remain (char*,char*);" |
||||
END IF |
||||
IF Use_Reverse THEN |
||||
FPRINT Outfile,"char* reverse (char*);" |
||||
END IF |
||||
IF Use_Command THEN |
||||
FPRINT Outfile,"char* command (int=-1);" |
||||
END IF |
||||
IF Use_Mcase THEN |
||||
FPRINT Outfile,"char* mcase (char*);" |
||||
END IF |
||||
IF Use_Replace THEN |
||||
FPRINT Outfile,"char* replace (char*,char*,char*);" |
||||
END IF |
||||
IF Use_iReplace THEN |
||||
FPRINT Outfile,"char* iReplace (char*,char*,char*);" |
||||
END IF |
||||
IF Use_Shell THEN |
||||
FPRINT Outfile,"void Shell (char *);" |
||||
END IF |
||||
IF Use_Space THEN |
||||
FPRINT Outfile,"char* space (int a);" |
||||
END IF |
||||
IF Use_Str THEN |
||||
FPRINT Outfile,"char* str (double);" |
||||
END IF |
||||
IF Use_Strl THEN |
||||
FPRINT Outfile,"char* strl (long double);" |
||||
END IF |
||||
IF Use_Findfirst THEN |
||||
FPRINT Outfile,"char* findfirst (char*, FILE_FIND_DATA*);" |
||||
END IF |
||||
IF Use_Findnext THEN |
||||
FPRINT Outfile,"char* findnext (FILE_FIND_DATA*);" |
||||
END IF |
||||
IF Use_Curdir THEN |
||||
FPRINT Outfile,"char* curdir (void);" |
||||
END IF |
||||
|
||||
IF Use_Sysdir THEN |
||||
FPRINT Outfile,"char* sysdir (void);" |
||||
END IF |
||||
IF Use_Tempdir THEN |
||||
FPRINT Outfile,"char* tempdir (void);" |
||||
END IF |
||||
IF Use_Environ THEN |
||||
FPRINT Outfile,"char* Environ (char*);" |
||||
END IF |
||||
IF Use_Boolstr THEN |
||||
FPRINT Outfile,"char* BoolStr (int);" |
||||
END IF |
||||
IF Use_Hex THEN |
||||
FPRINT Outfile,"char* hex (int);" |
||||
END IF |
||||
IF Use_Bin THEN |
||||
FPRINT Outfile,"char* Bin (int);" |
||||
END IF |
||||
IF Use_Oct THEN |
||||
FPRINT Outfile,"char* oct (int);" |
||||
END IF |
||||
IF Use_Now THEN |
||||
FPRINT Outfile,"char* now (void);" |
||||
END IF |
||||
IF Use_SearchPath THEN |
||||
FPRINT Outfile,"char* SEARCHPATH (char *);" |
||||
END IF |
||||
IF Use_StrUpLow THEN |
||||
FPRINT Outfile,"char* _strupr_(char *);" |
||||
FPRINT Outfile,"char* _strlwr_(char *);" |
||||
END IF |
||||
IF Use_BcxSplitPath THEN |
||||
FPRINT Outfile,"char* BcxSplitPath (char *, int);" |
||||
FPRINT Outfile,"void _splitpath_(const char* path, char* drv, char* dir, char* name, char* ext);" |
||||
END IF |
||||
|
||||
IF Use_Strtoken THEN |
||||
FPRINT Outfile,"char* StrToken (char*,char*,int);" |
||||
END IF |
||||
IF Use_FileLocked THEN |
||||
FPRINT Outfile,"int FileLocked (char*);" |
||||
END IF |
||||
IF Use_FillArray THEN |
||||
FPRINT Outfile,"int fillarray (char *, int, int, void *);" |
||||
END IF |
||||
IF Use_Remove THEN |
||||
FPRINT Outfile,"char* RemoveStr (char*,char*);" |
||||
END IF |
||||
IF Use_IRemove THEN |
||||
FPRINT Outfile,"char* IRemoveStr (char*,char*);" |
||||
END IF |
||||
IF Use_Time THEN |
||||
FPRINT Outfile,"char* timef (int i=0);" |
||||
END IF |
||||
IF Use_Join THEN |
||||
FPRINT Outfile,"char* join (int, ... );" |
||||
END IF |
||||
IF Use_Enclose THEN |
||||
FPRINT Outfile,"char* enc (char*, int=0, int=0);" |
||||
END IF |
||||
IF Use_Chr THEN |
||||
FPRINT Outfile,"char* chr"; |
||||
FPRINT Outfile,"(int,int=0,int=0,int=0,int=0,int=0,int=0,int=0,int=0,int=0);" |
||||
END IF |
||||
IF Use_VChr THEN |
||||
FPRINT Outfile,"char* vchr (int,...);" |
||||
END IF |
||||
IF Use_Freefile THEN |
||||
FPRINT Outfile,"FILE* FreeFile (void);" |
||||
END IF |
||||
IF Use_PeekStr THEN |
||||
FPRINT Outfile,"char* peekstr (LPVOID,int);" |
||||
END IF |
||||
IF Use_Asc THEN |
||||
FPRINT Outfile,"int asc (char*,int=0);" |
||||
END IF |
||||
IF Use_Instrrev THEN |
||||
FPRINT Outfile,"int InstrRev (char*,char*,int=0,int=0);" |
||||
END IF |
||||
IF Use_Instr THEN |
||||
FPRINT Outfile,"int instr_b(char*,char*,int=0,int=0);" |
||||
END IF |
||||
IF UseLCaseTbl THEN |
||||
FPRINT Outfile,"char *MakeLCaseTbl(void);" |
||||
END IF |
||||
IF Use_Stristr THEN |
||||
FPRINT Outfile,"char *_stristr_(char*,char*);" |
||||
END IF |
||||
IF Use_StrStr THEN |
||||
FPRINT Outfile,"char *_strstr_(char*,char*);" |
||||
END IF |
||||
IF Use_Verify THEN |
||||
FPRINT Outfile,"int Verify (char *, char *);" |
||||
FPRINT Outfile,"int VerifyInstr(char*,char*,int=0);" |
||||
END IF |
||||
IF Use_Retain THEN |
||||
FPRINT Outfile,"char* Retain (char*,char *);" |
||||
END IF |
||||
IF Use_LoadFile THEN |
||||
FPRINT Outfile,"char* LoadFile (char*);" |
||||
END IF |
||||
IF Use_Inchr THEN |
||||
FPRINT Outfile,"int inchr (char*,char*);" |
||||
END IF |
||||
IF Use_Idxqsort THEN |
||||
FPRINT Outfile,"int IdxCompare (const void *,const void *);" |
||||
END IF |
||||
IF Use_IdxqsortSt THEN |
||||
FPRINT Outfile,"int IdxCompareSt (const void *,const void *);" |
||||
END IF |
||||
IF Use_PtrqsortSt THEN |
||||
FPRINT Outfile,"int PtrCompareSt (const void *,const void *);" |
||||
END IF |
||||
IF Use_Strqsorta THEN |
||||
FPRINT Outfile,"int StrCompareA (const void *,const void *);" |
||||
END IF |
||||
IF Use_Strqsortd THEN |
||||
FPRINT Outfile,"int StrCompareD (const void *,const void *);" |
||||
END IF |
||||
IF Use_DynStrqsorta THEN |
||||
FPRINT Outfile,"int DynStrCompareA (const void *,const void *);" |
||||
END IF |
||||
IF Use_DynStrqsortd THEN |
||||
FPRINT Outfile,"int DynStrCompareD (const void *,const void *);" |
||||
END IF |
||||
IF Use_Numqsortaint THEN |
||||
FPRINT Outfile,"int NumCompareAint (const void *,const void *);" |
||||
END IF |
||||
IF Use_Numqsortdint THEN |
||||
FPRINT Outfile,"int NumCompareDint (const void *,const void *);" |
||||
END IF |
||||
IF Use_Numqsortafloat THEN |
||||
FPRINT Outfile,"int NumCompareAfloat (const void *,const void *);" |
||||
END IF |
||||
IF Use_Numqsortdfloat THEN |
||||
FPRINT Outfile,"int NumCompareDfloat (const void *,const void *);" |
||||
END IF |
||||
IF Use_Numqsortadouble THEN |
||||
FPRINT Outfile,"int NumCompareAdouble (const void *,const void *);" |
||||
END IF |
||||
IF Use_Numqsortddouble THEN |
||||
FPRINT Outfile,"int NumCompareDdouble (const void *,const void *);" |
||||
END IF |
||||
IF Use_Like THEN |
||||
FPRINT Outfile,"int like (char*,char*);" |
||||
END IF |
||||
IF Use_Tally THEN |
||||
FPRINT Outfile,"int tally (char*,char*,int=0);" |
||||
END IF |
||||
IF Use_Inkey THEN |
||||
FPRINT Outfile,"char* inkey (void);" |
||||
END IF |
||||
IF Use_InkeyD THEN |
||||
FPRINT Outfile,"int inkeyd (void);" |
||||
END IF |
||||
'/***** 2010-12-08 Added to support INSTAT-AIR *****/ |
||||
IF Use_Instat THEN |
||||
FPRINT Outfile,"int kbhit(void);" |
||||
END IF |
||||
IF Use_GetCh THEN |
||||
FPRINT Outfile,"int _getch_(int);" |
||||
END IF |
||||
IF Use_Bin2dec THEN |
||||
FPRINT Outfile,"int Bin2Dec (char*);" |
||||
END IF |
||||
IF Use_Hex2Dec THEN |
||||
FPRINT Outfile,"int Hex2Dec (char*);" |
||||
END IF |
||||
IF Use_Download THEN |
||||
FPRINT Outfile,"int Download (char*,char*);" |
||||
END IF |
||||
|
||||
IF Use_Embed THEN |
||||
FPRINT Outfile,"char* GetResource (int* );" |
||||
END IF |
||||
|
||||
IF Use_Exist THEN |
||||
IF Use_Osx THEN |
||||
FPRINT Outfile,"bool Exist (char*);" |
||||
ELSE |
||||
FPRINT Outfile,"BOOL Exist (char*);" |
||||
END IF |
||||
|
||||
END IF |
||||
IF Use_Ins THEN |
||||
FPRINT Outfile,"char* ins (char *S, int i, char *a);" |
||||
END IF |
||||
IF Use_Del THEN |
||||
FPRINT Outfile,"char* del (char*,int,int);" |
||||
END IF |
||||
IF Use_Pause THEN |
||||
FPRINT Outfile,"void Pause (void);" |
||||
END IF |
||||
IF Use_Keypress THEN |
||||
FPRINT Outfile,"int keypress (void);" |
||||
END IF |
||||
IF Use_Lof THEN |
||||
FPRINT Outfile,"DWORD lof (char*);" |
||||
END IF |
||||
IF Use_Sgn THEN |
||||
FPRINT Outfile,"double sgn (double);" |
||||
END IF |
||||
IF Use_Round THEN |
||||
FPRINT Outfile,"double Round (double,int);" |
||||
END IF |
||||
IF Use_Rnd THEN |
||||
FPRINT Outfile,"float rnd (void);" |
||||
END IF |
||||
IF Use_Exp THEN |
||||
FPRINT Outfile,"double Exp (double);" |
||||
END IF |
||||
IF Use_Min THEN |
||||
FPRINT Outfile,"double _MIN_ (double,double);" |
||||
END IF |
||||
IF Use_Max THEN |
||||
FPRINT Outfile,"double _MAX_ (double,double);" |
||||
END IF |
||||
IF Use_Timer THEN |
||||
FPRINT Outfile,"float timer (void);" |
||||
END IF |
||||
IF Use_Iif THEN |
||||
FPRINT Outfile,"double iif (bool,double,double);" |
||||
END IF |
||||
IF Use_Loc THEN |
||||
FPRINT Outfile,"int loc (FILE *fp, int fplen);" |
||||
END IF |
||||
IF Use_Rec THEN |
||||
FPRINT Outfile,"int rec (FILE *fp, int fplen);" |
||||
END IF |
||||
IF Use_RecCount THEN |
||||
FPRINT Outfile,"int reccount (FILE *fp, int fplen);" |
||||
END IF |
||||
IF Use_Scan THEN |
||||
FPRINT Outfile,"int scan (char *input, char *format, ... );" |
||||
END IF |
||||
IF Use_Split THEN |
||||
FPRINT Outfile,"int Split (char [][65535], char*, char*, int=0);" |
||||
END IF |
||||
IF Use_DSplit THEN |
||||
FPRINT Outfile,"int DSplit (PCHAR *, char*, char*, int=0);" |
||||
END IF |
||||
IF Use_SysStr THEN |
||||
FPRINT Outfile,"BSTR SysStr (char * szIn, int=0, int=0);" |
||||
END IF |
||||
IF Use_WideToAnsi THEN |
||||
FPRINT Outfile,"char* WideToAnsi (wchar_t *, UINT=0, DWORD=0);" |
||||
END IF |
||||
IF Use_AnsiToWide THEN |
||||
FPRINT Outfile,"wchar_t* AnsiToWide (char*,UINT=0,DWORD=0);" |
||||
END IF |
||||
IF Use_Cvi THEN |
||||
FPRINT Outfile,"short CVI (char*);" |
||||
END IF |
||||
IF Use_Mki THEN |
||||
FPRINT Outfile,"char* MKI (short);" |
||||
END IF |
||||
IF Use_Cvl THEN |
||||
FPRINT Outfile,"long CVL (char*);" |
||||
END IF |
||||
IF Use_Mkl THEN |
||||
FPRINT Outfile,"char* MKL (int);" |
||||
END IF |
||||
IF Use_Cvs THEN |
||||
FPRINT Outfile,"float CVS (char*);" |
||||
END IF |
||||
IF Use_Mks THEN |
||||
FPRINT Outfile,"char* MKS (float);" |
||||
END IF |
||||
IF Use_Cvd THEN |
||||
FPRINT Outfile,"double CVD (char*);" |
||||
END IF |
||||
IF Use_Cvld THEN |
||||
FPRINT Outfile,"long double CVLD (char*);" |
||||
END IF |
||||
IF Use_Mkd THEN |
||||
FPRINT Outfile,"char* MKD (double);" |
||||
END IF |
||||
IF Use_Mkld THEN |
||||
FPRINT Outfile,"char* MKLD (long double);" |
||||
END IF |
||||
IF Use_OSVersion THEN |
||||
FPRINT Outfile,"int OSVersion (void);" |
||||
END IF |
||||
IF Use_Dynacall THEN |
||||
FPRINT Outfile,"HINSTANCE BCX_LoadDll(char *);" |
||||
FPRINT Outfile,"void BCX_UnloadDll(void);" |
||||
FPRINT Outfile,"typedef int (CALLBACK *DYNACALL1)(void);" |
||||
FPRINT Outfile,"int BCX_DynaCall(char *, char *, int, ...);" |
||||
END IF |
||||
IF Use_DynamicA THEN |
||||
FPRINT Outfile,"void* CreateArr (void*,int,int,int,...);" |
||||
FPRINT Outfile,"void* CreateArr_internal(void*, int, int, int, va_list);" |
||||
FPRINT Outfile,"void DestroyArr (void**,int,int);" |
||||
END IF |
||||
IF Use_ContainedIn THEN |
||||
FPRINT Outfile,"int containedin(char * ,char **,int=0);" |
||||
END IF |
||||
IF Use_FindInType THEN |
||||
FPRINT Outfile,"int FindInType(char *,char *,int,int,int,int=0,int* =0);" |
||||
END IF |
||||
IF Use_SingleFile = FALSE THEN |
||||
OPEN HFile$ FOR OUTPUT AS fpHFile |
||||
END IF |
||||
|
||||
'/***** 2010-11-10 emit wxApp Class Definition - AIR *****/ |
||||
/***** 2010-11-24 Change TO NOT emit wxApp CLASS Definition FOR WX CONSOLE Apps -AIR *****/ |
||||
'/***** 2010-12-01 Switched to using BCXSPLITPATH$ per James Fuller's suggestion -AIR *****/ |
||||
IF Use_Wx THEN |
||||
FPRINT Outfile,"" |
||||
FPRINT Outfile,"class ";bcxsplitpath$(FileIn$, FNAME);": public wxApp {" |
||||
FPRINT Outfile," public:" |
||||
FPRINT Outfile," virtual bool OnInit();" |
||||
FPRINT Outfile,"};" |
||||
FPRINT Outfile,"" |
||||
FPRINT Outfile,"IMPLEMENT_APP(";bcxsplitpath$(FileIn$, FNAME);")" |
||||
FPRINT Outfile,"" |
||||
END IF |
||||
|
||||
'/***** 2010-12-10 Socket Support -AIR *****/ |
||||
if Use_Socket then |
||||
FPRINT Outfile,"" |
||||
FPRINT Outfile,"sockaddr_in sock_addr (char* ,int=80);" |
||||
FPRINT Outfile,"int connect_socket (sockaddr_in);" |
||||
FPRINT Outfile,"int BcxSocket (char* ,int=80);" |
||||
FPRINT Outfile,"int BcxSocketSend (int, char *);" |
||||
FPRINT Outfile,"int BcxSocketRead (int, char *);" |
||||
FPRINT Outfile,"void BcxSocketClose(int);" |
||||
FPRINT Outfile,"" |
||||
end if |
||||
|
||||
'/***** 2013-06-26 New REGEX Keywords -AIR *****/ |
||||
IF Use_RegEx then |
||||
FPRINT Outfile,"bool regmatch (char *, char *, REGEX* );" |
||||
END IF |
||||
|
||||
END IF 'IF NoRT=FALSE |
||||
Loading…
Reference in new issue