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 [][32768], 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