Initial Code Commit

main
AIR 2 years ago
parent 54b5db9d65
commit cd1708fb0f
  1. 11546
      mbc4.bas
  2. 20603
      mbc4.cc
  3. 2357
      runtime.bas
  4. 106
      std_macros.bas
  5. 491
      std_prototypes.bas

11546
mbc4.bas

File diff suppressed because it is too large Load Diff

20603
mbc4.cc

File diff suppressed because it is too large Load Diff

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…
Cancel
Save