/* Basmark BASIC Compiler * * Copyright 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992 * by Basmark Corporation * Cleveland, Ohio, USA */ /* codes for run-time function arguments */ /* types, may be combined to indicate multiple types permitted */ #define TY_STR 0x01 /* string */ #define TY_INT 0x02 /* integer */ #define TY_FLT 0x04 /* float */ #define TY_DBL 0x08 /* double */ /* address of, indicates value passed by address */ #define TY_ADR 0x10 /* pass type, indicates that type code is required by function */ #define TY_TYP 0x20 #define TY_SAD 0x11 /* string address */ #define TY_PTR 0x3F /* address of any value, with type */The generic union is defined as follows:
/* Basmark BASIC Compiler
*
* Copyright 1985, 1986, 1987, 1988, 1989, 1990, 1991, 1992
* by Basmark Corporation
* Cleveland, Ohio, USA */
union generic {
short gn_int;
float gn_flt;
double gn_dbl;
struct string gn_str;
};
from The Basmark QuickBASIC Programmer’s Manual by Lawrence Leinweber