home *** CD-ROM | disk | FTP | other *** search
- /***
- * winbase.h
- * WinBase╙δC╙∩╤╘╜╙┐┌╢¿╥σ
- * Winbase ╩╣╙├ Microsoft C ╡─┤≤╨═─ú╩╜.
- */
-
-
- #ifndef WINBASEC
-
- #define WINBASE void pascal
-
- #define FALSE 0
- #define TRUE 1
-
- #define NIL '\0'
-
- #ifndef NULL
- #define NULL 0L
- #endif
-
- #define WINBASEC
- #endif
-
- /*
- ┤╙ WinBase ╜╙╩╒╥╗╕÷▓╬╩²
- */
-
- char *p_getc(int ); //╗±╡├╓╕╢¿▓╬╩²╡─╫╓╖√┤«
- int p_lenc(int ); //╗±╡├╓╕╢¿▓╬╩²╡─╫╓╖√┤«│ñ╢╚
- int p_geti(int); //╗±╡├╓╕╢¿▓╬╩²╡─╒√╩²
- int p_getlog(int); //╗±╡├╓╕╢¿▓╬╩²╡─┬▀╝¡╓╡
- char *p_getdate(int); //╗±╡├╓╕╢¿▓╬╩²╡─╚╒╞┌╫╓╖√┤«
- long p_getlong(int); //╗±╡├╓╕╢¿▓╬╩²╡─│ñ╒√╨═
- double p_getdb(int); //╗±╡├╓╕╢¿▓╬╩²╡─╩╡╩²
-
- int p_count(); //╗±╡├▓╬╩²╕÷╩²
- int p_ischar(int); //┼╨╢╧╓╕╢¿▓╬╩²╩╟╖±╬¬╫╓╖√┤«
- int p_isnum(int); //┼╨╢╧╓╕╢¿▓╬╩²╩╟╖±╬¬╩²╓╡
- int p_islog(int); //┼╨╢╧╓╕╢¿▓╬╩²╩╟╖±╬¬┬▀╝¡╓╡
- int p_isdate(int); //┼╨╢╧╓╕╢¿▓╬╩²╩╟╖±╬¬╚╒╞┌
- int p_ismemo(int); //┼╨╢╧╓╕╢¿▓╬╩²╩╟╖±╬¬▒╕╫ó╬─▒╛
- int p_isptr(int); //┼╨╢╧╓╕╢¿▓╬╩²╩╟╖±╬¬╓╕╒δ
- int p_isarray(int); //┼╨╢╧╓╕╢¿▓╬╩²╩╟╖±╬¬╩²╫Θ
-
- /*
- ┤╙ WinBase ╡─▓╬╩²╩²╫Θ╓╨╜╙╩╒╥╗╕÷▓╬╩²
- */
-
- char *p_getca(int,int); //╗±╡├╓╕╢¿╩²╫Θ▓╬╩²─│╘¬╦╪╡─╫╓╖√┤«
- int p_lenca(int,int); //╗±╡├╓╕╢¿╩²╫Θ▓╬╩²─│╘¬╦╪╡─╫╓╖√┤«│ñ╢╚
- int p_getia(int,int); //╗±╡├╓╕╢¿╩²╫Θ▓╬╩²─│╘¬╦╪╡─╒√╩²
- int p_getloga(int,int); //╗±╡├╓╕╢¿╩²╫Θ▓╬╩²─│╘¬╦╪╡─┬▀╝¡╓╡
- char *p_getdatea(int,int); //╗±╡├╓╕╢¿╩²╫Θ▓╬╩²─│╘¬╦╪╡─╚╒╞┌╫╓╖√┤«
- long p_getlonga(int,int); //╗±╡├╓╕╢¿╩²╫Θ▓╬╩²─│╘¬╦╪╡─│ñ╒√╨═
- double p_getdba(int,int); //╗±╡├╓╕╢¿╩²╫Θ▓╬╩²─│╘¬╦╪╡─╩╡╩²
-
- int p_lena(int); //╗±╡├╓╕╢¿╩²╫Θ▓╬╩²╘¬╦╪╡─╕÷╩²
- int p_ischara(int,int); //┼╨╢╧╓╕╢¿╩²╫Θ▓╬╩²─│╘¬╦╪╩╟╖±╬¬╫╓╖√┤«
- int p_isnuma(int,int); //┼╨╢╧╓╕╢¿╩²╫Θ▓╬╩²─│╘¬╦╪╩╟╖±╬¬╩²╓╡
- int p_isloga(int,int); //┼╨╢╧╓╕╢¿╩²╫Θ▓╬╩²─│╘¬╦╪╩╟╖±╬¬┬▀╝¡╓╡
- int p_isdatea(int,int); //┼╨╢╧╓╕╢¿╩²╫Θ▓╬╩²─│╘¬╦╪╩╟╖±╬¬╚╒╞┌
- int p_ismemoa(int,int); //┼╨╢╧╓╕╢¿╩²╫Θ▓╬╩²─│╘¬╦╪╩╟╖±╬¬▒╕╫ó╬─▒╛
- int p_isptra(int,int); //┼╨╢╧╓╕╢¿╩²╫Θ▓╬╩²─│╘¬╦╪╩╟╖±╬¬╓╕╒δ
- //┼╨╢╧╓╕╢¿╩²╫Θ▓╬╩²─│╘¬╦╪╩╟╖±╬¬╩²╫Θ
- /*
- ╖╡╗╪╓╡╡╜ WinBase ╡─║»╩²
- */
-
- void f_ret(void); //╖╡╗╪┐╒╓╡(NIL)
- void f_retc(char *); //╖╡╗╪╫╓╖√┤«
- void f_retclen(char *,int); //╖╡╗╪╓╕╢¿│ñ╢╚╫╓╖√┤«
- void f_reti(int); //╖╡╗╪╒√╩²
- void f_retlog(int); //╖╡╗╪┬▀╝¡╓╡
- void f_retdate(char *); //╖╡╗╪╚╒╞┌╫╓╖√┤«
- void f_retlong(long); //╖╡╗╪│ñ╒√╩²
- void f_retdb(double); //╖╡╗╪╩╡╩²
-
- /*
- ╖╡╗╪╓╡╡╜ WinBase ║»╩²╓╨╡──│▓╬╩²
- */
-
- int p_putc(int ,char *); //╖╡╗╪╫╓╖√┤«╡╜╓╕╢¿▓╬╩²
- int p_putclen(int,char *,int); //╖╡╗╪╓╕╢¿│ñ╢╚╫╓╖√┤«╡╜╓╕╢¿▓╬╩²
- int p_puti(int,int); //╖╡╗╪╒√╩²╡╜╓╕╢¿▓╬╩²
- int p_putlog(int,int); //╖╡╗╪┬▀╝¡╓╡╡╜╓╕╢¿▓╬╩²
- int p_putdate(int,char *); //╖╡╗╪╚╒╞┌╫╓╖√┤«╡╜╓╕╢¿▓╬╩²
- int p_putlong(int,long); //╖╡╗╪│ñ╒√╩²╡╜╓╕╢¿▓╬╩²
- int p_putdb(int,double); //╖╡╗╪╩╡╩²╡╜╓╕╢¿▓╬╩²
-
- /*
- ╖╡╗╪╓╡╡╜ WinBase ║»╩²╓╨╡─╩²╫Θ▓╬╩²╡──│╘¬╦╪
- */
-
- int p_putca(int,int,char *); //╖╡╗╪╫╓╖√┤«╡╜╓╕╢¿▓╬╩²╩²╫Θ╡──│╘¬╦╪
- int p_putclena(int,int,char *,int); //╖╡╗╪╓╕╢¿│ñ╢╚╫╓╖√┤«╡╜╓╕╢¿▓╬╩²╩²╫Θ╡──│╘¬╦╪
- int p_putia(int,int,int); //╖╡╗╪╒√╩²╡╜╓╕╢¿▓╬╩²╩²╫Θ╡──│╘¬╦╪
- int p_putloga(int,int,int); //╖╡╗╪┬▀╝¡╓╡╡╜╓╕╢¿▓╬╩²╩²╫Θ╡──│╘¬╦╪
- int p_putdatea(int,int,char *); //╖╡╗╪╚╒╞┌╫╓╖√┤«╡╜╓╕╢¿▓╬╩²╩²╫Θ╡──│╘¬╦╪
- int p_putlonga(int,int,long); //╖╡╗╪│ñ╒√╩²╡╜╓╕╢¿▓╬╩²╩²╫Θ╡──│╘¬╦╪
- int p_putdba(int,int,double); //╖╡╗╪╩╡╩²╡╜╓╕╢¿▓╬╩²╩²╫Θ╡──│╘¬╦╪
-
- /* ─┌┤µ╖╓┼Σ */
- extern void far * _xalloc(unsigned int Bytes); //╚⌠╩º░▄╖╡╗╪NULL
- extern void _xfree(void far *MemBlock);
-
-