Return to pnames.h CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / h

Initial revision

/*
 * Structure for mapping string names of procedures to block addresses.
 */
struct pstrnm {
   char *pstrep;
   struct b_proc *pblock;
   };

extern struct b_proc
#define PDEF(p) B/**/p,
#include "../h/pdef.h"
	interp;	/* Hack to avoid ,; in expansion */
#undef PDEF

extern struct b_proc
   Basgn,
   Bbang,
   Bcat,
   Bcompl,
   Bdiff,
   Bdiv,
   Beqv,
   Binter,
   Blconcat,
   Blexeq,
   Blexge,
   Blexgt,
   Blexle,
   Blexlt,
   Blexne,
   Bminus,
   Bmod,
   Bmult,
   Bneg,
   Bneqv,
   Bnonnull,
   Bnull,
   Bnumber,
   Bnumeq,
   Bnumge,
   Bnumgt,
   Bnumle,
   Bnumlt,
   Bnumne,
   Bplus,
   Bpower,
   Brandom,
   Brasgn,
   Brefresh,
   Brswap,
   Bsect,
   Bsize,
   Bsubsc,
   Bswap,
   Btabmat,
   Btoby,
   Bunioncs,
   Bvalue;

struct pstrnm pntab[] = {
#define PDEF(p) "p", &B/**/p,
#include "../h/pdef.h"
#undef PDEF
	":=",		&Basgn,
	"!",		&Bbang,
	"||",		&Bcat,
	"~",		&Bcompl,
	"--",		&Bdiff,
	"/",		&Bdiv,
	"===",		&Beqv,
	"**",		&Binter,
	"|||",		&Blconcat,
	"==",		&Blexeq,
	">>=",		&Blexge,
	">>",		&Blexgt,
	"<<=",		&Blexle,
	"<<",		&Blexlt,
	"~==",		&Blexne,
	"-",		&Bminus,
	"%",		&Bmod,
	"*",		&Bmult,
	"-",		&Bneg,
	"~===",		&Bneqv,
	"\\",		&Bnonnull,
	"/",		&Bnull,
	"+",		&Bnumber,
	"=",		&Bnumeq,
	">=",		&Bnumge,
	">",		&Bnumgt,
	"<=",		&Bnumle,
	"<",		&Bnumlt,
	"~=",		&Bnumne,
	"+",		&Bplus,
	"^",		&Bpower,
	"?",		&Brandom,
	"<-",		&Brasgn,
	"^",		&Brefresh,
	"<->",		&Brswap,
	":",		&Bsect,
	"*",		&Bsize,
	"[]",		&Bsubsc,
	":=:",		&Bswap,
	"=",		&Btabmat,
	"...",		&Btoby,
	"++",		&Bunioncs,
	".",		&Bvalue,
	0,		0
	};

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.