Scilab [trunk]: scilab/libs/f2c/src/defines.h File Reference


Defines
#define	PDP11 4
#define	BIGGEST_CHAR 0x7f
#define	BIGGEST_SHORT 0x7fff
#define	BIGGEST_LONG 0x7fffffff
#define	M(x) (1<<x)
#define	ALLOC(x) (struct x *) ckalloc((int)sizeof(struct x))
#define	ALLEXPR (expptr) ckalloc((int)sizeof(union Expression) )
#define	LOCAL static
#define	NO 0
#define	YES 1
#define	CNULL (char *) 0
#define	PNULL (ptr) 0
#define	CHNULL (chainp) 0
#define	ENULL (expptr) 0
#define	BAD_MEMNO -32768
#define	TNAME 1
#define	TCONST 2
#define	TEXPR 3
#define	TADDR 4
#define	TPRIM 5
#define	TLIST 6
#define	TIMPLDO 7
#define	TERROR 8
#define	OUTSIDE 0
#define	INSIDE 1
#define	INDCL 2
#define	INDATA 3
#define	INEXEC 4
#define	PROCMAIN 1
#define	PROCBLOCK 2
#define	PROCSUBR 3
#define	PROCFUNCT 4
#define	STGUNKNOWN 0
#define	STGARG 1
#define	STGAUTO 2
#define	STGBSS 3
#define	STGINIT 4
#define	STGCONST 5
#define	STGEXT 6
#define	STGINTR 7
#define	STGSTFUNCT 8
#define	STGCOMMON 9
#define	STGEQUIV 10
#define	STGREG 11
#define	STGLENG 12
#define	STGNULL 13
#define	STGMEMNO 14
#define	CLUNKNOWN 0
#define	CLPARAM 1
#define	CLVAR 2
#define	CLENTRY 3
#define	CLMAIN 4
#define	CLBLOCK 5
#define	CLPROC 6
#define	CLNAMELIST 7
#define	PUNKNOWN 0
#define	PEXTERNAL 1
#define	PINTRINSIC 2
#define	PSTFUNCT 3
#define	PTHISPROC 4
#define	CTLDO 1
#define	CTLIF 2
#define	CTLELSE 3
#define	CTLIFX 4
#define	OPPLUS 1
#define	OPMINUS 2
#define	OPSTAR 3
#define	OPSLASH 4
#define	OPPOWER 5
#define	OPNEG 6
#define	OPOR 7
#define	OPAND 8
#define	OPEQV 9
#define	OPNEQV 10
#define	OPNOT 11
#define	OPCONCAT 12
#define	OPLT 13
#define	OPEQ 14
#define	OPGT 15
#define	OPLE 16
#define	OPNE 17
#define	OPGE 18
#define	OPCALL 19
#define	OPCCALL 20
#define	OPASSIGN 21
#define	OPPLUSEQ 22
#define	OPSTAREQ 23
#define	OPCONV 24
#define	OPLSHIFT 25
#define	OPMOD 26
#define	OPCOMMA 27
#define	OPQUEST 28
#define	OPCOLON 29
#define	OPABS 30
#define	OPMIN 31
#define	OPMAX 32
#define	OPADDR 33
#define	OPCOMMA_ARG 34
#define	OPBITOR 35
#define	OPBITAND 36
#define	OPBITXOR 37
#define	OPBITNOT 38
#define	OPRSHIFT 39
#define	OPWHATSIN 40
#define	OPMINUSEQ 41
#define	OPSLASHEQ 42
#define	OPMODEQ 43
#define	OPLSHIFTEQ 44
#define	OPRSHIFTEQ 45
#define	OPBITANDEQ 46
#define	OPBITXOREQ 47
#define	OPBITOREQ 48
#define	OPPREINC 49
#define	OPPREDEC 50
#define	OPDOT 51
#define	OPARROW 52
#define	OPNEG1 53
#define	OPDMIN 54
#define	OPDMAX 55
#define	OPASSIGNI 56
#define	OPIDENTITY 57
#define	OPCHARCAST 58
#define	OPDABS 59
#define	OPMIN2 60
#define	OPMAX2 61
#define	OPBITTEST 62
#define	OPBITCLR 63
#define	OPBITSET 64
#define	OPQBITCLR 65
#define	OPQBITSET 66
#define	OPBITBITS 67
#define	OPBITSH 68
#define	OPBITSHC 69
#define	LABUNKNOWN 0
#define	LABEXEC 1
#define	LABFORMAT 2
#define	LABOTHER 3
#define	INTREND 0
#define	INTRCONV 1
#define	INTRMIN 2
#define	INTRMAX 3
#define	INTRGEN 4
#define	INTRSPEC 5
#define	INTRBOOL 6
#define	INTRCNST 7
#define	INTRBGEN 8
#define	IOSTDIN ICON(5)
#define	IOSTDOUT ICON(6)
#define	IOSTDERR ICON(0)
#define	IOSBAD (-1)
#define	IOSPOSITIONAL 0
#define	IOSUNIT 1
#define	IOSFMT 2
#define	IOINQUIRE 1
#define	IOOPEN 2
#define	IOCLOSE 3
#define	IOREWIND 4
#define	IOBACKSPACE 5
#define	IOENDFILE 6
#define	IOREAD 7
#define	IOWRITE 8
#define	UNAM_UNKNOWN 0
#define	UNAM_NAME 1
#define	UNAM_IDENT 2
#define	UNAM_EXTERN 3
#define	UNAM_CONST 4
#define	UNAM_CHARP 5
#define	UNAM_REF 6
#define	IDENT_LEN 31
#define	MAXNAMELEN 50
#define	MSKLOGICAL M(TYLOGICAL)\|M(TYLOGICAL1)\|M(TYLOGICAL2)
#define	MSKADDR M(TYADDR)
#define	MSKCHAR M(TYCHAR)
#define	MSKINT M(TYINT1)\|M(TYSHORT)\|M(TYLONG)
#define	MSKREAL M(TYREAL)\|M(TYDREAL)
#define	MSKCOMPLEX M(TYCOMPLEX)\|M(TYDCOMPLEX)
#define	MSKSTATIC (M(STGINIT)\|M(STGBSS)\|M(STGCOMMON)\|M(STGEQUIV)\|M(STGCONST))
#define	ONEOF(x, y) (M(x) & (y))
#define	ISCOMPLEX(z) ONEOF(z, MSKCOMPLEX)
#define	ISREAL(z) ONEOF(z, MSKREAL)
#define	ISNUMERIC(z) ONEOF(z, MSKINT\|MSKREAL\|MSKCOMPLEX)
#define	ISICON(z) (z->tag==TCONST && ISINT(z->constblock.vtype))
#define	ISLOGICAL(z) ONEOF(z, MSKLOGICAL)
#define	ISCHAR(z) (z->headblock.vtype==TYCHAR)
#define	ISINT(z) ONEOF(z, MSKINT)
#define	ISCONST(z) (z->tag==TCONST)
#define	ISERROR(z) (z->tag==TERROR)
#define	ISPLUSOP(z) (z->tag==TEXPR && z->exprblock.opcode==OPPLUS)
#define	ISSTAROP(z) (z->tag==TEXPR && z->exprblock.opcode==OPSTAR)
#define	ISONE(z) (ISICON(z) && z->constblock.Const.ci==1)
#define	INT(z) ONEOF(z, MSKINT\|MSKCHAR)
#define	ICON(z) mkintcon( (ftnint)(z) )
#define	NO66(s) if(no66flag) err66(s)
#define	NOEXT(s) if(noextflag) errext(s)
Typedefs
typedef int *	ptr
typedef char *	charptr
typedef FILE *	FILEP
typedef int	flag
typedef char	field
typedef long int	ftnint