232 lines
6.4 KiB
C
232 lines
6.4 KiB
C
|
/*
|
||
|
|
** translat.h - Translation macros for common DOS / Windows functions.
|
||
|
|
**
|
||
|
|
** Author: DavidDi (stolen from ToddLa)
|
||
|
|
*/
|
||
|
|
|
||
|
|
|
||
|
|
#ifndef WM_USER
|
||
|
|
|
||
|
|
/********************************* DOS code ********************************/
|
||
|
|
|
||
|
|
// Globals
|
||
|
|
///////////
|
||
|
|
|
||
|
|
INT _ret;
|
||
|
|
INT _error;
|
||
|
|
|
||
|
|
|
||
|
|
// Types
|
||
|
|
/////////
|
||
|
|
|
||
|
|
typedef unsigned CHAR BYTE;
|
||
|
|
typedef unsigned SHORT WORD;
|
||
|
|
typedef unsigned LONG DWORD;
|
||
|
|
typedef INT BOOL;
|
||
|
|
typedef CHAR * PSTR;
|
||
|
|
typedef CHAR NEAR * NPSTR;
|
||
|
|
typedef CHAR FAR * LPSTR;
|
||
|
|
typedef INT FAR * LPINT;
|
||
|
|
|
||
|
|
|
||
|
|
// Constants
|
||
|
|
/////////////
|
||
|
|
|
||
|
|
// NULL
|
||
|
|
|
||
|
|
#ifndef NULL
|
||
|
|
#if (_MSC_VER >= 600)
|
||
|
|
#define NULL ((void *)0)
|
||
|
|
#elif (defined(M_I86SM) || defined(M_I86MM))
|
||
|
|
#define NULL 0
|
||
|
|
#else
|
||
|
|
#define NULL 0L
|
||
|
|
#endif
|
||
|
|
#endif
|
||
|
|
|
||
|
|
// modifiers
|
||
|
|
|
||
|
|
#define FAR FAR
|
||
|
|
#define NEAR near
|
||
|
|
#define LONG long
|
||
|
|
#define VOID void
|
||
|
|
#define PASCAL PASCAL
|
||
|
|
|
||
|
|
// Boolean values
|
||
|
|
|
||
|
|
#define FALSE 0
|
||
|
|
#define TRUE 1
|
||
|
|
|
||
|
|
|
||
|
|
// Macros
|
||
|
|
//////////
|
||
|
|
|
||
|
|
// byte manipulation
|
||
|
|
|
||
|
|
#define LOWORD(l) ((WORD)(l))
|
||
|
|
#define HIWORD(l) ((WORD)(((DWORD)(l) >> 16) & 0xFFFF))
|
||
|
|
#define LOBYTE(w) ((BYTE)(w))
|
||
|
|
#define HIBYTE(w) (((WORD)(w) >> 8) & 0xFF)
|
||
|
|
#define MAKELONG(a, b) ((LONG)(((WORD)(a)) | ((DWORD)((WORD)(b))) << 16))
|
||
|
|
|
||
|
|
// file i/o
|
||
|
|
|
||
|
|
//-protect-
|
||
|
|
#define FOPEN(psz) ( \
|
||
|
|
(_ret = -1), \
|
||
|
|
(_error = _dos_open(psz, O_RDONLY, &_ret)), \
|
||
|
|
_ret \
|
||
|
|
)
|
||
|
|
|
||
|
|
//-protect-
|
||
|
|
#define FCREATE(psz) ( \
|
||
|
|
(_ret = -1), \
|
||
|
|
(_error = _dos_creat(psz, _A_NORMAL, &_ret)), \
|
||
|
|
_ret \
|
||
|
|
)
|
||
|
|
|
||
|
|
#define FCLOSE(dosh) (_error = _dos_close(dosh))
|
||
|
|
|
||
|
|
//-protect-
|
||
|
|
#define FREAD(dosh, buf, len) ( \
|
||
|
|
(_error = _dos_read(dosh, buf, len, &_ret)), \
|
||
|
|
_ret \
|
||
|
|
)
|
||
|
|
|
||
|
|
//-protect-
|
||
|
|
#define FWRITE(dosh, buf, len) ( \
|
||
|
|
(_error = _dos_write(dosh, buf, len, &_ret)), \
|
||
|
|
_ret \
|
||
|
|
)
|
||
|
|
|
||
|
|
#define FSEEK(dosh, off, i) lseek(dosh, (long)(off), i)
|
||
|
|
|
||
|
|
#define FERROR() _error
|
||
|
|
|
||
|
|
// near heap memory management
|
||
|
|
|
||
|
|
#define ALLOC(n) malloc(n)
|
||
|
|
#define FREE(p) free(p)
|
||
|
|
#define SIZE(p) _msize(p)
|
||
|
|
#define REALLOC(p, n) realloc(p,n)
|
||
|
|
|
||
|
|
// FAR heap memory management
|
||
|
|
|
||
|
|
#define FALLOC(n) _fmalloc(n)
|
||
|
|
#define FFREE(n) _ffree(n)
|
||
|
|
|
||
|
|
// string manipulation
|
||
|
|
|
||
|
|
#define STRCAT(psz1, psz2) strcat(psz1, psz2)
|
||
|
|
#define STRCMP(psz1, psz2) strcmp(psz1, psz2)
|
||
|
|
#define STRCMPI(psz1, psz2) strcmpi(psz1, psz2)
|
||
|
|
#define STRCPY(psz1, psz2) strcpy(psz1, psz2)
|
||
|
|
#define STRLEN(psz) strlen(psz)
|
||
|
|
#define STRLWR(psz) strlwr(psz)
|
||
|
|
#define STRUPR(psz) strupr(psz)
|
||
|
|
|
||
|
|
// character classification
|
||
|
|
|
||
|
|
#define ISALPHA(c) isalpha(c)
|
||
|
|
#define ISALPHANUMERIC(c) isalnum(c)
|
||
|
|
#define ISLOWER(c) islower(c)
|
||
|
|
#define ISUPPER(c) isupper(c)
|
||
|
|
|
||
|
|
#else
|
||
|
|
|
||
|
|
/******************************* Windows code ******************************/
|
||
|
|
|
||
|
|
// file i/o
|
||
|
|
|
||
|
|
#ifdef ORGCODE
|
||
|
|
#define FOPEN(psz) _lopen(psz, READ)
|
||
|
|
#else
|
||
|
|
#define FOPEN(psz) _lopen(psz, OF_READ)
|
||
|
|
#endif
|
||
|
|
#define FCREATE(psz) _lcreat(psz, 0)
|
||
|
|
#define FCLOSE(dosh) _lclose(dosh)
|
||
|
|
#define FREAD(dosh, buf, len) _lread(dosh, buf, len)
|
||
|
|
#define FWRITE(dosh, buf, len) _lwrite(dosh, buf, len)
|
||
|
|
#define FSEEK(dosh, off, i) _llseek(dosh, (DWORD)off, i)
|
||
|
|
#define FERROR() 0
|
||
|
|
|
||
|
|
// near heap memory management
|
||
|
|
|
||
|
|
#define ALLOC(n) (VOID *)LocalAlloc(LPTR, n)
|
||
|
|
#define FREE(p) LocalFree(p)
|
||
|
|
#define SIZE(p) LocalSize(p)
|
||
|
|
#define REALLOC(p, n) LocalRealloc(p, n, LMEM_MOVEABLE)
|
||
|
|
|
||
|
|
// FAR heap memory management
|
||
|
|
|
||
|
|
#ifdef ORGCODE
|
||
|
|
#define FALLOC(n) (VOID FAR *)MAKELONG(0, GlobalAlloc(GPTR, (DWORD)n))
|
||
|
|
#define FFREE(n) GlobalFree((HANDLE)HIWORD((LONG)n))
|
||
|
|
#else
|
||
|
|
#define FALLOC(n) GlobalAlloc(GPTR, (DWORD)n)
|
||
|
|
#define FFREE(n) GlobalFree((HANDLE)n)
|
||
|
|
#endif
|
||
|
|
// string manipulation
|
||
|
|
|
||
|
|
#define STRCAT(psz1, psz2) lstrcat(psz1, psz2)
|
||
|
|
#define STRCMP(psz1, psz2) lstrcmp(psz1, psz2)
|
||
|
|
#define STRCMPI(psz1, psz2) lstrcmpi(psz1, psz2)
|
||
|
|
#define STRCPY(psz1, psz2) lstrcpy(psz1, psz2)
|
||
|
|
#define STRLEN(psz) lstrlen(psz)
|
||
|
|
#define STRLWR(psz) AnsiLower(psz)
|
||
|
|
#define STRUPR(psz) AnsiUpper(psz)
|
||
|
|
|
||
|
|
// character classification
|
||
|
|
|
||
|
|
#define ISALPHA(c) IsCharAlpha(c)
|
||
|
|
#define ISALPHANUMERIC(c) IsCharAlphaNumeric(c)
|
||
|
|
#define ISLOWER(c) IsCharLower(c)
|
||
|
|
#define ISUPPER(c) IsCharUpper(c)
|
||
|
|
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/******************************* common code *******************************/
|
||
|
|
|
||
|
|
|
||
|
|
// Constants
|
||
|
|
/////////////
|
||
|
|
|
||
|
|
#define SEP_STR "\\"
|
||
|
|
|
||
|
|
#define EQUAL '='
|
||
|
|
#define SPACE ' '
|
||
|
|
#define COLON ':'
|
||
|
|
#define PERIOD '.'
|
||
|
|
|
||
|
|
#define LF 0x0a
|
||
|
|
#define CR 0x0d
|
||
|
|
#define CTRL_Z 0x1a
|
||
|
|
|
||
|
|
// flags for _lseek
|
||
|
|
|
||
|
|
#define SEEK_SET 0
|
||
|
|
#define SEEK_CUR 1
|
||
|
|
#define SEEK_END 2
|
||
|
|
|
||
|
|
|
||
|
|
// Macros
|
||
|
|
//////////
|
||
|
|
|
||
|
|
// character classification
|
||
|
|
|
||
|
|
#define ISWHITE(c) ((c) == ' ' || (c) == '\t' || (c) == '\n' || (c) == '\r')
|
||
|
|
#define ISFILL(c) ((c) == ' ' || (c) == '\t')
|
||
|
|
#define ISEOL(c) ((c) == '\n' || (c) == '\r' || (c) == '\0' || (c) == CTRL_Z)
|
||
|
|
#define ISCRLF(c) ((c) == '\n' || (c) == '\r')
|
||
|
|
#define ISDIGIT(c) ((c) >= '0' && (c) <= '9')
|
||
|
|
#define ISLETTER(c) (((c) >= 'A' && (c) <= 'Z') || ((c) >= 'a' && (c) <= 'z'))
|
||
|
|
#define ISSWITCH(c) ((c) == '/' || (c) == '-')
|
||
|
|
#define ISSLASH(c) ((c) == '/' || (c) == '\\')
|
||
|
|
|
||
|
|
// character manipulation
|
||
|
|
|
||
|
|
#define TOUPPERCASE(c) ((c) >= 'a' && (c) <= 'z' ? (c) - 'a' + 'A' : (c))
|
||
|
|
#define TOLOWERCASE(c) ((c) >= 'A' && (c) <= 'Z' ? (c) - 'A' + 'a' : (c))
|
||
|
|
#define HEXVALUE(c) (ISDIGIT(c) ? (c) - '0' : TOUPPERCASE(c) - 'A' + 10)
|
||
|
|
|