rosapps/mc/slang/_slang.h

   1 /* header file for S-Lang internal structures that users do not (should not)
   2    need.  Use slang.h for that purpose. */
   3 /* Copyright (c) 1992, 1995 John E. Davis
   4  * All rights reserved.
   5  *
   6  * You may distribute under the terms of either the GNU General Public
   7  * License or the Perl Artistic License.
   8  */
   9
  10
  11 #include "config.h"
  12
  13 #include <string.h>
  14
  15 #include "jdmacros.h"
  16
  17 #ifdef VMS
  18 # define SLANG_SYSTEM_NAME "_VMS"
  19 #else
  20 # if defined (__GO32__) || defined (__EMX__) || \
  21     defined (msdos) || defined (__os2__)
  22 #  define SLANG_SYSTEM_NAME "_IBMPC"
  23 # else
  24 #  define SLANG_SYSTEM_NAME "_UNIX"
  25 # endif
  26 #endif  /* VMS */
  27
  28 #ifdef msdos
  29 #define SLANG_MAX_SYMBOLS 500
  30 #else
  31 #define SLANG_MAX_SYMBOLS 2500
  32 #endif
  33 /* maximum number of global symbols--- slang builtin, functions, global vars */
  34
  35
  36 /* These quantities are main_types for byte-compiled code.  They are used
  37  * by the inner_interp routine.  The ones commented out with a // are
  38  * actually defined in slang.h because they are also used as the main_type in
  39  * the name table.
  40  */
  41
  42 /* // #define SLANG_LVARIABLE   0x01 */
  43 #define SLANG_LOGICAL   0x02
  44 #define SLANG_BINARY    0x03
  45 /* // #define SLANG_INTRINSIC   0x06 */
  46 /* // #define SLANG_FUNCTION    0x07 */
  47 #define SLANG_LITERAL   0x08           /* constant objects */
  48 #define SLANG_BLOCK      0x09
  49 #define SLANG_EQS       0x0A
  50 #define SLANG_UNARY     0x0B
  51 #define SLANG_LUNARY    0x0C
  52
  53 /* // #define SLANG_GVARIABLE   0x0D */
  54 /* // #define SLANG_IVARIABLE   0x0E */     /* intrinsic variables */
  55 /* // #define SLANG_RVARIABLE   0x0F */     /* read only variable */
  56
  57 /* These 3 MUST be in this order too ! */
  58 #define SLANG_RETURN    0x10
  59 #define SLANG_BREAK     0x11
  60 #define SLANG_CONTINUE  0x12
  61
  62 #define SLANG_EXCH      0x13
  63 #define SLANG_LABEL     0x14
  64 #define SLANG_LOBJPTR   0x15
  65 #define SLANG_GOBJPTR   0x16
  66 #define SLANG_X_ERROR   0x17
  67 /* These must be in this order */
  68 #define SLANG_X_USER0   0x18
  69 #define SLANG_X_USER1   0x19
  70 #define SLANG_X_USER2   0x1A
  71 #define SLANG_X_USER3   0x1B
  72 #define SLANG_X_USER4   0x1C
  73
  74 #ifdef SLANG_NOOP
  75 # define SLANG_NOOP_DIRECTIVE 0x2F
  76 #endif
  77
  78 /* If SLANG_DATA occurs as the main_type for an object in the interpreter's
  79  * byte-code, it currently refers to a STRING.
  80  */
  81 /* // #define SLANG_DATA        0x30 */           /* real objects which may be destroyed */
  82
  83
  84 /* Subtypes */
  85 #define ERROR_BLOCK     0x01
  86 /* gets executed if block encounters error other than stack related */
  87 #define EXIT_BLOCK      0x02
  88 #define USER_BLOCK0     0x03
  89 #define USER_BLOCK1     0x04
  90 #define USER_BLOCK2     0x05
  91 #define USER_BLOCK3     0x06
  92 #define USER_BLOCK4     0x07
  93 /* The user blocks MUST be in the above order */
  94
  95 /* directive subtypes */
  96 #define SLANG_LOOP_MASK 0x80
  97 #define SLANG_LOOP      0x81
  98 #define SLANG_WHILE     0x82
  99 #define SLANG_FOR       0x83
 100 #define SLANG_FOREVER   0x84
 101 #define SLANG_CFOR      0x85
 102 #define SLANG_DOWHILE   0x86
 103
 104 #define SLANG_IF_MASK   0x40
 105 #define SLANG_IF                0x41
 106 #define SLANG_IFNOT     0x42
 107 #define SLANG_ELSE      0x43
 108
 109
 110 /* local, global variable assignments
 111  * The order here is important.  See interp_variable_eqs to see how this
 112  * is exploited. */
 113 #define SLANG_EQS_MASK  0x20
 114 /* local variables */
 115 /* Keep these in this order!! */
 116 #define SLANG_LEQS      0x21
 117 #define SLANG_LPEQS     0x22
 118 #define SLANG_LMEQS     0x23
 119 #define SLANG_LPP       0x24
 120 #define SLANG_LMM       0x25
 121 /* globals */
 122 /* Keep this on this order!! */
 123 #define SLANG_GEQS      0x26
 124 #define SLANG_GPEQS     0x27
 125 #define SLANG_GMEQS     0x28
 126 #define SLANG_GPP       0x29
 127 #define SLANG_GMM       0x2A
 128 /* intrinsic variables */
 129 #define SLANG_IEQS      0x2B
 130 #define SLANG_IPEQS     0x2C
 131 #define SLANG_IMEQS     0x2D
 132 #define SLANG_IPP       0x2E
 133 #define SLANG_IMM       0x2F
 134
 135
 136 #define SLANG_ELSE_MASK 0x10
 137 #define SLANG_ANDELSE   0x11
 138 #define SLANG_ORELSE    0x12
 139 #define SLANG_SWITCH    0x13
 140
 141 /* LOGICAL SUBTYPES (operate on integers) */
 142 #define SLANG_MOD       16
 143 #define SLANG_OR        17
 144 #define SLANG_AND       18
 145 #define SLANG_BAND      19
 146 #define SLANG_BOR       20
 147 #define SLANG_BXOR      21
 148 #define SLANG_SHL       22
 149 #define SLANG_SHR       23
 150
 151 /* LUnary Subtypes */
 152 #define SLANG_NOT       24
 153 #define SLANG_BNOT      25
 154
 155 typedef struct SLBlock_Type
 156   {
 157      unsigned char main_type;
 158      unsigned char sub_type;
 159      union
 160        {
 161           struct SLBlock_Type *blk;
 162           int i_blk;
 163           SLang_Name_Type *n_blk;
 164           char *s_blk;
 165 #ifdef FLOAT_TYPE
 166           float64 *f_blk;                      /*literal float is a pointer */
 167 #endif
 168           long l_blk;
 169        }
 170      b;
 171   }
 172 SLBlock_Type;
 173
 174
 175 typedef struct
 176 {
 177    unsigned char main_type;            /* block, intrinsic... */
 178    unsigned char sub_type;             /* SLANG_WHILE, SLANG_DATA, ... */
 179    union
 180      {
 181         long l_val;
 182         char *s_val;
 183         int i_val;
 184         SLuser_Object_Type *uobj;
 185         SLang_Name_Type *n_val;
 186 #ifdef FLOAT_TYPE
 187         float64 f_val;
 188 #endif
 189      } v;
 190 }  SLang_Object_Type;
 191
 192
 193 extern void SLang_free_object (SLang_Object_Type *);
 194
 195 extern int SLang_pop_non_object (SLang_Object_Type *);
 196
 197 extern void _SLdo_error (char *, ...);
 198 extern void SLcompile(char *);
 199 extern void (*SLcompile_ptr)(char *);
 200
 201 typedef struct
 202 {
 203    char *name;  int type;
 204 } SLang_Name2_Type;
 205
 206 extern void SLstupid_hash(void);
 207
 208 typedef struct SLName_Table
 209 {
 210    struct SLName_Table *next;          /* next table */
 211    SLang_Name_Type *table;             /* pointer to table */
 212    int n;                              /* entries in this table */
 213    char name[32];                      /* name of table */
 214    int ofs[256];                       /* offsets into table */
 215 } SLName_Table;
 216
 217 extern SLName_Table *SLName_Table_Root;
 218 #ifdef MSWINDOWS
 219 extern SLang_Name_Type *SLang_Name_Table;
 220 #else
 221 extern SLang_Name_Type SLang_Name_Table[SLANG_MAX_SYMBOLS];
 222 #endif
 223
 224 extern SLang_Name2_Type SL_Binary_Ops [];
 225 extern SLang_Object_Type *SLStack_Pointer;
 226 extern char *SLbyte_compile_name(char *);
 227 extern int SLang_pop(SLang_Object_Type *);
 228 extern char *SLexpand_escaped_char(char *, char *);
 229 extern void SLexpand_escaped_string (char *, char *, char *);
 230
 231 extern SLang_Object_Type *_SLreverse_stack (int);
 232 extern SLang_Name_Type *SLang_locate_name(char *);
 233
 234 /* returns a pointer to a MALLOCED string */
 235 extern char *SLstringize_object (SLang_Object_Type *);
 236
 237 /* array types */
 238 typedef struct SLArray_Type
 239 {
 240    unsigned char type;                 /* int, float, etc... */
 241    int dim;                            /* # of dims (max 3) */
 242    int x, y, z;                        /* actual dims */
 243    union
 244      {
 245         unsigned char *c_ptr;
 246         unsigned char **s_ptr;
 247         int *i_ptr;
 248 #ifdef FLOAT_TYPE
 249         float64 *f_ptr;
 250 #endif
 251         SLuser_Object_Type **u_ptr;
 252      }
 253    buf;
 254    unsigned char flags;                /* readonly, etc...  If this is non-zero,
 255                                         * the buf pointer will NOT be freed.
 256                                         * See SLarray_free_array.
 257                                         */
 258 } SLArray_Type;
 259
 260
 261 /* Callback to delete array */
 262 extern void SLarray_free_array (long *);
 263
 264
 265 /* maximum size of run time stack */
 266 #ifdef msdos
 267 #define SLANG_MAX_STACK_LEN 500
 268 #else
 269 #define SLANG_MAX_STACK_LEN 2500
 270 #endif
 271
 272 #ifdef MSWINDOWS
 273 extern SLang_Object_Type *SLRun_Stack;
 274 #else
 275 extern SLang_Object_Type SLRun_Stack[SLANG_MAX_STACK_LEN];
 276 #endif
 277
 278 extern SLang_Object_Type *SLStack_Pointer;
 279
 280 extern int SLang_Trace;
 281 extern int SLstack_depth(void);
 282
 283 extern void SLang_trace_fun(char *);
 284 extern void SLexecute_function(SLang_Name_Type *);
 285 extern char *SLmake_string (char *);
 286
 287 extern int _SLeqs_name(char *, SLang_Name2_Type *);
 288 extern void SLang_push(SLang_Object_Type *);
 289 extern void SLang_push_float(float64);
 290 extern void SLadd_variable(char *);
 291 extern void SLang_clear_error(void);
 292 extern void SLarray_info (void);
 293 extern int SLPreprocess_Only;                   /* preprocess instead of
 294                                                  * bytecompiling
 295                                                  */
 296
 297 extern void SLdo_pop (void);
 298 extern unsigned int SLsys_getkey (void);
 299 extern int SLsys_input_pending (int);
 300
 301 #ifdef REAL_UNIX_SYSTEM
 302 extern int SLtt_tigetflag (char *, char **);
 303 extern int SLtt_tigetnum (char *, char **);
 304 extern char *SLtt_tigetstr (char *, char **);
 305 extern char *SLtt_tigetent (char *);
 306 #endif
 307
 308 #ifdef msdos
 309 #define MAX_INPUT_BUFFER_LEN 40
 310 #else
 311 #define MAX_INPUT_BUFFER_LEN 1024
 312 #endif
 313 extern unsigned char SLang_Input_Buffer [MAX_INPUT_BUFFER_LEN];
 314 extern unsigned int SLang_Input_Buffer_Len;
 315
 316 extern int SLregister_types (void);
 317
 318 #ifndef pc_system
 319 extern char *SLtt_Graphics_Char_Pairs;
 320 #endif                                 /* NOT pc_system */
 321
 322 extern void _SLerrno_set_return_status (void);
 323 extern char *_SLerrno_strerror (void);
 324 extern int _SLerrno_Return_Status;
 325