home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CP/M
/
CPM_CDROM.iso
/
cpm
/
draco
/
draco-1.ark
/
Q.G
< prev
next >
Wrap
Text File
|
1986-11-12
|
2KB
|
80 lines
/*
* Q.G - include file for Quest globals.
*/
/*
* screen routines.
*/
type
/* type for two-character map area displays: */
C2 = [2]char;
extern
scInit()void,
scPut(char ch)void,
scPrompt(*char prompt)void,
scRead(*char buffer)void,
scNewMap(proc(int l, c)C2 scenery; word oldObj)word,
scWindow(int line, column)void,
scNew(int id, line, column; C2 chars)void,
scAt(int line, column)C2,
scMove(int id, line, column)void,
scDelete(int id)void,
scNumber(int id; *char name; ushort line, column, len; *int ptr)void,
scString(int id; *char name; ushort line, column, len; **char ptr)void,
scMult(int id; *char name; ushort line, column, lines;
proc(bool first)*char gen)void,
scUpdate(int id)void,
scRemove(int id)void;
/*
* parser routines.
*/
type
FORMTYPE = enum {REQID, REQTYPE, OPTID, OPTTYPE, MULTIPLE};
extern
psInit(bool prefixEnabled)void,
psWord(int id; *char txt; int typ)void,
psDel(int id)void,
psgBegin(int id)void,
psgWord(FORMTYPE form; int data)void,
psgEnd()void,
psgDel(int id)void,
psFind(*char txt)int,
psGet(int id)*char,
psType(int id)int,
psParse(*char sentence)int,
pspBad()*char,
pspWord(int pos)int,
pspPref()int;
/*
* list handling routines.
*/
type
INTLIST = struct {
*INTLIST il_next;
int il_this;
};
extern
lInit()void,
getId()int,
lAdd(**INTLIST pil; int n)void,
lAppend(**INTLIST pil; int n)void,
lDelete(**INTLIST pil; int n)void,
lGet(*INTLIST il; int n)int,
lIn(*INTLIST il; int n)bool,
putProp(int id, prop)void,
getProp(int id, prop)bool,
delProp(int id, prop)void,
putAttr(int id, attr, val)void,
getAttr(int id, attr)int,
delAttr(int id, attr)void;