123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492 |
- 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
|