BSD 3 development

[unix-history] / usr / src / cmd / apl / apl.h

#include <stdio.h>

double *test1;
double gamma();
/*
*  A P L
*/

/*
*  Magic numbers
*/

#define OPERBOXSIZE 75

#define MRANK   8                       /* Size of dimension buffer     */
#define CANBS   300                     /* Size of input buffer         */
#define STKS    50                      /* Size of stack increment      */
#define NLS     100                     /* Size of namelist             */
#define NAMS    23                      /* Size of name buffer          */
#define OBJS    500                     /* Size of compiled expr buffer */
#define MAGIC   0100554                 /* Magic word for WS file       */

/*
*  Magic words
*/

#define EDIT_ED "/usr/bin/ed"
#define EDIT_EX "/usr/bin/ex"
#define EDIT_VI "/usr/bin/vi"

/*
*  Debug modes
*/
#define FULLD 1

#ifdef FULLD
#define SOMED SOMED
#endif

#ifdef SHORTD
#define SOMED SOMED
#endif

/*
*  Derived constants
*/

#define SDAT    sizeof datum
#define SINT    sizeof integ

/*
*  Interpreter Op Codes
*/

#define EOF     (-1)
#define EOL     0

#define ADD     1
#define PLUS    2
#define SUB     3
#define MINUS   4
#define MUL     5
#define SGN     6
#define DIV     7
#define RECIP   8
#define MOD     9
#define ABS     10
#define MIN     11
#define FLOOR   12
#define MAX     13
#define CEIL    14
#define PWR     15
#define EXP     16
#define LOG     17
#define LOGE    18
#define CIR     19
#define PI      20
#define COMB    21
#define FAC     22

#define DEAL    23
#define RAND    24
#define DRHO    25
#define MRHO    26
#define DIOT    27
#define MIOT    28
#define ROT0    29
#define REV0    30
#define DTRN    31
#define MTRN    32
#define DIBM    33
#define MIBM    34

#define GDU     35
#define GDUK    36
#define GDD     37
#define GDDK    38
#define EXD     39
#define SCAN    40
#define EXDK    41
#define SCANK   42
#define IPROD   43
#define OPROD   44
#define QUAD    45
#define QQUAD   46
#define BRAN0   47
#define BRAN    48
#define DDOM    49
#define MDOM    50

#define COM     51
#define RED     52
#define COMK    53
#define REDK    54
#define ROT     55
#define REV     56
#define ROTK    57
#define REVK    58
#define CAT     59
#define RAV     60
#define CATK    61
#define RAVK    62

#define PRINT   63
#define QUOT    64
#define ELID    65
#define CQUAD   66
#define COMNT   67
#define INDEX   68
#define HPRINT  69

#define LT      71
#define LE      72
#define GT      73
#define GE      74
#define EQ      75
#define NE      76
#define AND     77
#define OR      78
#define NAND    79
#define NOR     80
#define NOT     81
#define EPS     82
#define MEPS    83
#define REP     84
#define TAKE    85
#define DROP    86
#define ASGN    88
#define IMMED   89


#define NAME    90
#define CONST   91
#define FUN     92
#define ARG1    93
#define ARG2    94
#define AUTO    95
#define REST    96

#define COM0    97
#define RED0    98
#define EXD0    99
#define SCAN0   100
#define BASE    101
#define MENC    102     /*      monadic encode  */

/*
*  Immediate sub-op codes
*/

#define CLEAR   1
#define DIGITS  2
#define ED_IT   3
#define ERASE   4
#define FNS     5
#define FUZZ    6
#define READ    7
#define ORIGIN  8
#define VARS    9
#define WIDTH   10
#define DEBUG   11
#define OFF     12
#define LOAD    13
#define SAVE    14
#define COPY    15
#define CONTIN  16
#define LIB     17
#define DROPC   18
#ifdef SOMED
#define SYMBOLS 19
#endif
#define EX_IT   20
#define EX_VI   21
#define ASCII   22
#define APL     23

/*
*  Types
*/

#define DA      1       /* Numeric data (?) */
#define CH      2       /* Character data (?) */
#define LV      3       /* Used for most data items */
#define QD      4       /* Quad (assignment to (?)) */
#define QQ      5       /* Quote-quad */
#define IN      6       /* ??? */
#define EL      7       /* Literal data (??) */
#define NF      8       /* Name of function with no args */
#define MF      9       /* Monadic function */
#define DF      10      /* Dyadic function */
#define QC      11

/*
*  Idiosyncracies
*/

#define data    double
#define unsignd unsigned

/*
*  Structures
*/

struct {
       char    c[8];
};

struct env {
       double  fuzz;
       int     iorg;
       int     digits;
       int     width;
} thread;

struct item {
       char    rank;
       char    type;
       int     size;
       int     index;
       data    *datap;
       int     dim[MRANK];
};

struct nlist {
       char    use;
       char    type;   /* == LV */
       int     *itemp;
       char    *namep;
       int     label;
} nlist[NLS];

struct  lablist {
       char    *lname;
       int     lno;
       struct  lablist *nextll;
} labldefs;

struct {
       char    rank;
       char    type;
       int     size;
       int     dimk;
       int     delk;
       int     dim[MRANK];
       int     del[MRANK];
       int     idx[MRANK];
} idx;

struct  {
       char    *name;
       int     line;
} now_xeq;

struct  item **sp, **stack, **staktop;  /* Internal run-time stack */

/*
*  Externals
*/

data    zero;
data    one;
data    pi;
data    maxexp;
data    datum;
data    getdat();

int     cs_size;                        /* Current stack size      */

int     (*exop[])();

double  floor();
double  ceil();
double  log();
double  sin();
double  cos();
double  atan();
double  atan2();
double  sqrt();
double  exp();
double  gamma();
double  ltod();

int     integ;
int     signgam;
int     column;
int     intflg;
int     echoflg;
int     ifile;
int     wfile;
int     ofile;
int     funlc;
int     debug;
int     ttystat[3];
int     stime[2];
char    *pcp;
int     rowsz;
int     mencflg;
char    *mencptr;
char    *memstart;
int pt;
int syze;
int pas1;

char    *continu;

struct charbox {
       char a1,a2;
};

struct asoperbox {
       unsigned char letters[2];
       int     returnchar
};