107 lines
2.9 KiB
QBasic
107 lines
2.9 KiB
QBasic
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
|