|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T a r
Length: 801 (0x321)
Types: TextFile
Names: »adlglob.c«, »rtglob.c«
└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
└─⟦this⟧ »EUUGD18/General/Adl/adlcomp/adlglob.c«
└─⟦this⟧ »EUUGD18/General/Adl/adlrun/rtglob.c«
#include "adltypes.h"
#include "adlprog.h"
struct header hdr; /* Actual header */
struct verbrec *verbspace; /* Verb contents */
struct objrec *objspace; /* Object contents */
struct preprec *prepspace; /* Preposition contents */
struct vp_syn *verbsyn; /* Verb synonyms */
int16 *varspace; /* Stack & variables */
int16 *nounspace; /* Noun indices */
address *routspace; /* Routine indexes */
int32 *str_tab; /* String table */
int16 bitpat[16] = { 0x0001, 0x0002, 0x0004, 0x0008,
0x0010, 0x0020, 0x0040, 0x0080,
0x0100, 0x0200, 0x0400, 0x0800,
0x1000, 0x2000, 0x4000, 0x8000 },
ibitpat[16] = { 0xFFFE, 0xFFFD, 0xFFFB, 0xFFF7,
0xFFEF, 0xFFDF, 0xFFBF, 0xFF7F,
0xFEFF, 0xFDFF, 0xFBFF, 0xF7FF,
0xEFFF, 0xDFFF, 0xBFFF, 0x7FFF };
/*** EOF global.c ***/