From decwrl!elroy.jpl.nasa.gov!usc!cs.utexas.edu!uunet!allbery Sat Mar 3 18:33:01 PST 1990 Article 1368 of comp.sources.misc: Path: decwrl!elroy.jpl.nasa.gov!usc!cs.utexas.edu!uunet!allbery From: garym@cognos.UUCP (Gary Murphy) Newsgroups: comp.sources.misc Subject: v10i096: XLisP 2.1 sources 5/5 Message-ID: <79998@uunet.UU.NET> Date: 27 Feb 90 03:13:19 GMT Sender: allbery@uunet.UU.NET Organization: Cognos Inc., Ottawa, Canada Lines: 982 Approved: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc) Posting-number: Volume 10, Issue 96 Submitted-by: garym@cognos.UUCP (Gary Murphy) Archive-name: xlisp21/part09 #!/bin/sh # This is a shell archive, meaning: # 1. Remove everything above the #!/bin/sh line. # 2. Save the resulting text in a file. # 3. Execute the file with /bin/sh (not csh) to create the files: # msstuff/msstuff.c # msstuff/osdefs.h # msstuff/osptrs.h # makefile # tags # This archive created: Sun Feb 18 07:49:09 1990 # By: Gary Murphy () export PATH; PATH=/bin:$PATH echo shar: extracting "'msstuff.c'" '(5127 characters)' if test -f 'msstuff.c' then echo shar: over-writing existing file "'msstuff.c'" fi sed 's/^X//' << \SHAR_EOF > 'msstuff.c' X/* msstuff.c - ms-dos specific routines */ X X#include "xlisp.h" X X#define LBSIZE 200 X X/* external variables */ Xextern LVAL s_unbound,true; Xextern FILE *tfp; Xextern int errno; X X/* make sure we get a large stack */ Xint _stklen = 32766; X X/* local variables */ Xstatic char lbuf[LBSIZE]; Xstatic int lpos[LBSIZE]; Xstatic int lindex; Xstatic int lcount; Xstatic int lposition; Xstatic long rseed = 1L; X X/* osinit - initialize */ Xosinit(banner) X char *banner; X{ X printf("%s\n",banner); X lposition = 0; X lindex = 0; X lcount = 0; X} X X/* osfinish - clean up before returning to the operating system */ Xosfinish() X{ X} X X/* oserror - print an error message */ Xoserror(msg) X char *msg; X{ X printf("error: %s\n",msg); X} X X/* osrand - return a random number between 0 and n-1 */ Xint osrand(n) X int n; X{ X long k1; X X /* make sure we don't get stuck at zero */ X if (rseed == 0L) rseed = 1L; X X /* algorithm taken from Dr. Dobbs Journal, November 1985, page 91 */ X k1 = rseed / 127773L; X if ((rseed = 16807L * (rseed - k1 * 127773L) - k1 * 2836L) < 0L) X rseed += 2147483647L; X X /* return a random number between 0 and n-1 */ X return ((int)(rseed % (long)n)); X} X X/* osaopen - open an ascii file */ XFILE *osaopen(name,mode) X char *name,*mode; X{ X return (fopen(name,mode)); X} X X/* osbopen - open a binary file */ XFILE *osbopen(name,mode) X char *name,*mode; X{ X char bmode[10]; X strcpy(bmode,mode); strcat(bmode,"b"); X return (fopen(name,bmode)); X} X X/* osclose - close a file */ Xint osclose(fp) X FILE *fp; X{ X return (fclose(fp)); X} X X/* osagetc - get a character from an ascii file */ Xint osagetc(fp) X FILE *fp; X{ X return (getc(fp)); X} X X/* osaputc - put a character to an ascii file */ Xint osaputc(ch,fp) X int ch; FILE *fp; X{ X return (putc(ch,fp)); X} X X/* osbgetc - get a character from a binary file */ Xint osbgetc(fp) X FILE *fp; X{ X return (getc(fp)); X} X X/* osbputc - put a character to a binary file */ Xint osbputc(ch,fp) X int ch; FILE *fp; X{ X return (putc(ch,fp)); X} X X/* ostgetc - get a character from the terminal */ Xint ostgetc() X{ X int ch; X X /* check for a buffered character */ X if (lcount--) X return (lbuf[lindex++]); X X /* get an input line */ X for (lcount = 0; ; ) X switch (ch = xgetc()) { X case '\r': X lbuf[lcount++] = '\n'; X xputc('\r'); xputc('\n'); lposition = 0; X if (tfp) X for (lindex = 0; lindex < lcount; ++lindex) X osaputc(lbuf[lindex],tfp); X lindex = 0; lcount--; X return (lbuf[lindex++]); X case '\010': X case '\177': X if (lcount) { X lcount--; X while (lposition > lpos[lcount]) { X xputc('\010'); xputc(' '); xputc('\010'); X lposition--; X } X } X break; X case '\032': X xflush(); X return (EOF); X default: X if (ch == '\t' || (ch >= 0x20 && ch < 0x7F)) { X lbuf[lcount] = ch; X lpos[lcount] = lposition; X if (ch == '\t') X do { X xputc(' '); X } while (++lposition & 7); X else { X xputc(ch); lposition++; X } X lcount++; X } X else { X xflush(); X switch (ch) { X case '\003': xltoplevel(); /* control-c */ X case '\007': xlcleanup(); /* control-g */ X case '\020': xlcontinue(); /* control-p */ X case '\032': return (EOF); /* control-z */ X default: return (ch); X } X } X } X} X X/* ostputc - put a character to the terminal */ Xostputc(ch) X int ch; X{ X /* check for control characters */ X oscheck(); X X /* output the character */ X if (ch == '\n') { X xputc('\r'); xputc('\n'); X lposition = 0; X } X else { X xputc(ch); X lposition++; X } X X /* output the character to the transcript file */ X if (tfp) X osaputc(ch,tfp); X} X X/* osflush - flush the terminal input buffer */ Xosflush() X{ X lindex = lcount = lposition = 0; X} X X/* oscheck - check for control characters during execution */ Xoscheck() X{ X int ch; X if (ch = xcheck()) X switch (ch) { X case '\002': /* control-b */ X xflush(); X xlbreak("BREAK",s_unbound); X break; X case '\003': /* control-c */ X xflush(); X xltoplevel(); X break; X case '\024': /* control-t */ X xinfo(); X break; X } X} X X/* xinfo - show information on control-t */ Xstatic xinfo() X{ X extern int nfree,gccalls; X extern long total; X char buf[80]; X sprintf(buf,"\n[ Free: %d, GC calls: %d, Total: %ld ]", X nfree,gccalls,total); X errputstr(buf); X} X X/* xflush - flush the input line buffer and start a new line */ Xstatic xflush() X{ X osflush(); X ostputc('\n'); X} X X/* xgetc - get a character from the terminal without echo */ Xstatic int xgetc() X{ X return (bdos(7) & 0xFF); X} X X/* xputc - put a character to the terminal */ Xstatic xputc(ch) X int ch; X{ X bdos(6,ch); X} X X/* xcheck - check for a character */ Xstatic int xcheck() X{ X return (bdos(6,0xFF)); X} X X/* xsystem - execute a system command */ XLVAL xsystem() X{ X char *cmd="COMMAND"; X if (moreargs()) X cmd = (char *)getstring(xlgastring()); X xllastarg(); X return (system(cmd) == 0 ? true : cvfixnum((FIXTYPE)errno)); X} X X/* xgetkey - get a key from the keyboard */ XLVAL xgetkey() X{ X xllastarg(); X return (cvfixnum((FIXTYPE)xgetc())); X} X X/* ossymbols - enter os specific symbols */ Xossymbols() X{ X} SHAR_EOF if test 5127 -ne "`wc -c 'msstuff.c'`" then echo shar: error transmitting "'msstuff.c'" '(should have been 5127 characters)' fi echo shar: extracting "'osdefs.h'" '(90 characters)' if test -f 'osdefs.h' then echo shar: over-writing existing file "'osdefs.h'" fi sed 's/^X//' << \SHAR_EOF > 'osdefs.h' X/* osdefs.h - system specific function declarations */ X Xextern LVAL xsystem(),xgetkey(); X SHAR_EOF if test 90 -ne "`wc -c 'osdefs.h'`" then echo shar: error transmitting "'osdefs.h'" '(should have been 90 characters)' fi echo shar: extracting "'osptrs.h'" '(107 characters)' if test -f 'osptrs.h' then echo shar: over-writing existing file "'osptrs.h'" fi sed 's/^X//' << \SHAR_EOF > 'osptrs.h' X/* osptrs.h - system specific function pointers */ X X{ "SYSTEM", S, xsystem }, X{ "GET-KEY", S, xgetkey }, X X SHAR_EOF if test 107 -ne "`wc -c 'osptrs.h'`" then echo shar: error transmitting "'osptrs.h'" '(should have been 107 characters)' fi echo shar: extracting "'makefile'" '(473 characters)' if test -f 'makefile' then echo shar: over-writing existing file "'makefile'" fi sed 's/^X//' << \SHAR_EOF > 'makefile' XOFILES=xlisp.obj xlbfun.obj xlcont.obj xldbug.obj xldmem.obj xleval.obj \ Xxlfio.obj xlglob.obj xlimage.obj xlinit.obj xlio.obj xljump.obj xllist.obj \ Xxlmath.obj xlobj.obj xlpp.obj xlprin.obj xlread.obj xlstr.obj xlstruct.obj \ Xxlsubr.obj xlsym.obj xlsys.obj msstuff.obj X XCFLAGS=-ml -f -O -G -w-pia -w-def -w-aus -Ic:\turboc\include X X.c.obj: X tcc -c $(CFLAGS) $< X Xxlisp.exe: $(OFILES) xlftab.obj X tlink @xlisp.lnk X Xxlftab.obj: xlisp.h osdefs.h osptrs.h X$(OFILES): xlisp.h X SHAR_EOF if test 473 -ne "`wc -c 'makefile'`" then echo shar: error transmitting "'makefile'" '(should have been 473 characters)' fi echo shar: extracting "'tags'" '(13349 characters)' if test -f 'tags' then echo shar: over-writing existing file "'tags'" fi sed 's/^X//' << \SHAR_EOF > 'tags' X X..\v2.1\msstuff.c,487 Xint osagetc(87,1694 XFILE *osaopen(64,1272 Xint osaputc(94,1806 Xint osbgetc(101,1934 XFILE *osbopen(71,1395 Xint osbputc(108,2046 Xoscheck(202,3970 Xint osclose(80,1578 Xoserror(39,691 Xosfinish(34,631 Xosflush(196,3850 Xosinit(24,440 Xint osrand(46,816 Xossymbols(276,5386 Xint ostgetc(115,2173 Xostputc(174,3470 Xstatic int xcheck(253,4917 Xstatic xflush(233,4597 Xstatic int xgetc(240,4720 XLVAL xgetkey(269,5257 Xstatic xinfo(222,4324 Xstatic xputc(246,4825 XLVAL xsystem(259,5016 X X..\v2.1\xlbfun.c,1105 XLOCAL LVAL makesymbol(363,7220 XLVAL x1macroexpand(87,1989 XLVAL xapply(40,948 XLVAL xaref(511,10109 XLVAL xarrayp(179,3765 XLVAL xatom(116,2645 XLVAL xboundp(206,4275 XLVAL xbreak(594,11800 XLVAL xcerror(576,11392 XLVAL xcharp(161,3454 XLVAL xcleanup(611,12187 XLVAL xconsp(251,5073 XLVAL xcontinue(625,12398 XLVAL xendp(242,4925 XLVAL xeq(260,5221 XLVAL xeql(274,5470 XLVAL xequal(288,5736 XLVAL xerror(562,11099 XLVAL xeval(27,713 XLVAL xevalhook(632,12499 XLVAL xfboundp(215,4464 XLVAL xfloatp(152,3297 XLVAL xfuncall(54,1255 XLVAL xgensym(319,6336 XLVAL xget(438,8646 XLVAL xhash(487,9587 XLVAL xintegerp(143,3143 XLVAL xintern(357,7126 XLVAL xlistp(233,4765 XLVAL xmacroexpand(78,1823 XLVAL xmakesymbol(351,7021 XLVAL xmkarray(530,10534 XLVAL xnull(224,4617 XLVAL xnumberp(134,2970 XLVAL xobjectp(197,4098 XLVAL xputprop(452,8916 XLVAL xremprop(470,9273 XLVAL xset(302,5997 XLVAL xstreamp(188,3922 XLVAL xstringp(170,3608 XLVAL xsymbolp(125,2798 XLVAL xsymfunction(408,8100 XLVAL xsymname(378,7556 XLVAL xsymplist(425,8425 XLVAL xsymvalue(391,7776 XLVAL xtoplevel(618,12292 XLVAL xvector(544,10786 X X..\v2.1\xlcont.c,1498 XLOCAL LVAL bquote1(98,2645 XLOCAL dobindings(1214,26210 XLOCAL LVAL doloop(858,18602 XLOCAL doupdates(1251,26908 XLOCAL LVAL evarg(1347,28896 XLOCAL LVAL evmatch(1376,29450 XLOCAL LVAL flet(602,13535 XLOCAL int keypresent(488,11329 XLOCAL LVAL let(553,12572 XLOCAL LVAL match(1317,28262 XLOCAL placeform(255,5946 XLOCAL LVAL prog(649,14536 XLOCAL LVAL progx(741,16216 XLOCAL setffunction(325,7694 XLOCAL tagbody(1290,27754 XLOCAL toofew(1415,30225 XLOCAL toomany(1422,30343 XLVAL xand(498,11531 XLVAL xblock(1018,22191 XLVAL xbquote(85,2424 XLVAL xcase(444,10395 XLVAL xcatch(1049,22783 XLVAL xcond(389,9362 XLVAL xdefmacro(370,8867 XLVAL xdefun(351,8361 XLVAL xdo(846,18431 XLVAL xdolist(914,19884 XLVAL xdostar(852,18515 XLVAL xdotimes(969,21066 XLVAL xerrset(1137,24537 XLVAL xflet(584,13216 XLVAL xfunction(60,1844 XLVAL xgetlambda(169,4223 XLVAL xgo(689,15307 XLVAL xif(526,12018 XLVAL xlabels(590,13317 XLVAL xlambda(151,3753 XLVAL xlet(541,12405 XLVAL xletstar(547,12489 XLVAL xloop(816,17843 XLVAL xmacrolet(596,13425 XLVAL xor(512,11779 XLVAL xprog(637,14361 XLVAL xprog1(729,16052 XLVAL xprog2(735,16136 XLVAL xprogn(765,16676 XLVAL xprogstar(643,14449 XLVAL xprogv(778,16921 XLVAL xpsetq(194,4726 XLVAL xquote(51,1703 XLVAL xreturn(702,15513 XLVAL xrtnfrom(715,15770 XLVAL xsetf(220,5255 XLVAL xsetq(178,4433 XLVAL xtagbody(1042,22686 XLVAL xthrow(1082,23412 XLVAL xtrace(1166,25118 XLVAL xunless(430,10141 XLVAL xuntrace(1188,25641 XLVAL xunwindprotect(1096,23692 XLVAL xwhen(416,9890 X X..\v2.1\xldbug.c,170 XLOCAL int breakloop(98,2144 Xxlabort(24,641 Xxlbaktrace(179,3841 Xxlbreak(33,811 Xxlcerror(60,1337 Xxldinit(198,4237 Xxlerror(47,1063 Xxlerrprint(73,1620 Xxlfail(40,958 X X..\v2.1\xldmem.c,740 XLOCAL int addseg(478,10505 XLVAL cons(41,1124 XLVAL cvchar(159,3535 XLVAL cvfile(126,2874 XLVAL cvfixnum(137,3076 XLVAL cvflonum(149,3354 XLVAL cvstring(72,1709 XLVAL cvsubr(115,2637 XLVAL cvsymbol(100,2313 XLOCAL findmem(279,6243 Xgc(287,6386 XLOCAL mark(345,7704 XLVAL newclosure(189,4190 XLOCAL LVAL newnode(236,5250 XLVAL newobject(178,3956 XSEGMENT *newsegment(500,10988 XLVAL newstring(86,2021 XLVAL newstruct(203,4514 XLVAL newustream(168,3764 XLVAL newvector(214,4754 X#define segsize(13,310 XLOCAL stats(529,11583 XLOCAL unsigned char *stralloc(261,5786 XLOCAL sweep(425,9398 XLVAL xalloc(577,12725 XLVAL xexpand(553,12267 XLVAL xgc(540,12040 Xxlminit(646,14210 XLVAL xmem(598,13167 XLVAL xrestore(626,13738 XLVAL xsave(613,13451 X X..\v2.1\xleval.c,625 XLOCAL badarglist(873,20489 XLOCAL doenter(796,18722 XLOCAL doexit(818,19271 XLOCAL LVAL evalhook(324,7638 XLOCAL LVAL evform(183,4416 XLOCAL LVAL evfun(426,9965 XLOCAL int evpushargs(354,8321 X#define iskey(9,234 Xint macroexpand(304,7164 XLVAL makearglist(410,9637 XLOCAL int member(837,19705 Xint pushargs(385,9039 X#define trenter(16,461 X#define trexit(17,528 Xxlabind(689,16100 XLVAL xlapply(122,3075 Xxlargstkoverflow(867,20367 XLVAL xlclose(474,11037 XLVAL xleval(43,1519 XLVAL xlevalenv(72,2082 XLVAL xlexpandmacros(276,6505 Xxlfunbound(854,20073 Xxlstkoverflow(861,20233 Xxlunbound(847,19914 XLVAL xlxeval(103,2712 X X..\v2.1\xlfio.c,563 XLOCAL LVAL flatsize(112,2515 XLOCAL LVAL getstroutput(463,10105 XLOCAL LVAL printit(78,1766 XLVAL xclose(154,3365 XLVAL xflatc(106,2402 XLVAL xflatsize(100,2273 XLVAL xformat(400,8684 XLVAL xgetlstoutput(380,8305 XLVAL xgetstroutput(371,8128 XLVAL xmkstrinput(315,6899 XLVAL xmkstroutput(365,8023 XLVAL xopen(130,2867 XLVAL xpkchar(203,4382 XLVAL xprin1(52,1278 XLVAL xprinc(58,1376 XLVAL xprint(46,1179 XLVAL xrdbyte(189,4055 XLVAL xrdchar(175,3747 XLVAL xread(27,732 XLVAL xreadline(259,5626 XLVAL xterpri(64,1485 XLVAL xwrbyte(242,5266 XLVAL xwrchar(225,4906 X X..\v2.1\xlftab.c,30 XLOCAL LVAL xnotimp(455,17022 X X..\v2.1\xlglob.c,0 X X..\v2.1\xlimage.c,265 XLOCAL LVAL cviptr(333,7702 XLOCAL OFFTYPE cvoptr(365,8575 XLOCAL freeimage(243,5894 XLOCAL readnode(310,7229 XLOCAL OFFTYPE readptr(322,7486 XLOCAL setoffset(278,6652 XLOCAL writenode(288,6803 XLOCAL writeptr(300,7053 Xint xlirestore(126,3062 Xint xlisave(41,1177 X X..\v2.1\xlinit.c,58 XLOCAL initwks(50,1712 Xxlinit(36,1405 Xxlsymbols(88,3357 X X..\v2.1\xlio.c,252 Xdbgprint(183,3764 Xdbgputstr(191,3931 Xerrprint(168,3480 Xerrputstr(176,3649 Xstdprint(153,3189 Xstdputstr(161,3361 Xtrcprin1(198,4051 Xtrcputstr(205,4187 Xint xlflush(147,3105 Xint xlgetc(13,362 Xint xlpeek(81,1789 Xxlputc(113,2446 Xxlungetc(56,1282 X X..\v2.1\xlisp.c,86 Xmain(27,722 Xwrapup(160,3745 Xxlevsave(143,3412 Xxlfatal(152,3617 Xxlrdsave(133,3150 X X..\v2.1\xljump.c,225 XLOCAL findandjump(160,3887 Xxlbegin(16,463 Xxlbrklevel(112,2685 Xxlcleanup(118,2807 Xxlcontinue(125,2977 Xxlend(34,925 Xxlgo(41,1028 Xxljump(131,3102 Xxlreturn(64,1525 Xxlsignal(90,2164 Xxlthrow(77,1847 Xxltoplevel(105,2518 X X..\v2.1\xllist.c,1582 XLOCAL LVAL assoc(358,8404 XLOCAL LVAL cxr(77,2657 XLOCAL LVAL delif(780,17104 Xint dotest1(453,10453 Xint dotest2(472,10871 XLOCAL LVAL gluelists(909,19987 XLOCAL LVAL map(583,13062 XLOCAL LVAL nth(504,11489 XLOCAL LVAL remif(419,9716 XLOCAL LVAL sortlist(859,18772 XLOCAL splitlist(886,19459 XLOCAL LVAL sublis(339,7944 XLOCAL LVAL subst(296,7007 XLVAL xappend(138,3839 XLVAL xassoc(242,5861 XLVAL xcaaaar(59,1947 XLVAL xcaaadr(60,1989 XLVAL xcaaar(49,1601 XLVAL xcaadar(61,2031 XLVAL xcaaddr(62,2073 XLVAL xcaadr(50,1641 XLVAL xcaar(43,1424 XLVAL xcadaar(63,2115 XLVAL xcadadr(64,2157 XLVAL xcadar(51,1681 XLVAL xcaddar(65,2199 XLVAL xcadddr(66,2241 XLVAL xcaddr(52,1721 XLVAL xcadr(44,1462 XLVAL xcar(25,1126 XLVAL xcdaaar(67,2283 XLVAL xcdaadr(68,2325 XLVAL xcdaar(53,1761 XLVAL xcdadar(69,2367 XLVAL xcdaddr(70,2409 XLVAL xcdadr(54,1801 XLVAL xcdar(45,1500 XLVAL xcddaar(71,2451 XLVAL xcddadr(72,2493 XLVAL xcddar(55,1841 XLVAL xcdddar(73,2535 XLVAL xcddddr(74,2577 XLVAL xcdddr(56,1881 XLVAL xcddr(46,1538 XLVAL xcdr(34,1285 XLVAL xcons(99,3109 XLVAL xdelete(717,15847 XLVAL xdelif(766,16843 XLVAL xdelifnot(773,16965 XLVAL xlast(197,5006 XLVAL xlength(528,12044 XLVAL xlist(113,3371 XLVAL xmapc(559,12676 XLVAL xmapcar(565,12773 XLVAL xmapl(571,12867 XLVAL xmaplist(577,12967 XLVAL xmember(214,5303 XLVAL xnconc(682,15165 XLVAL xnth(492,11312 XLVAL xnthcdr(498,11404 XLVAL xremif(405,9458 XLVAL xremifnot(412,9580 XLVAL xremove(371,8728 XLVAL xreverse(174,4544 XLVAL xrplca(648,14509 XLVAL xrplcd(665,14839 XLVAL xsort(829,18089 XLVAL xsublis(315,7461 XLVAL xsubst(271,6492 X X..\v2.1\xlmath.c,997 XLOCAL badfop(426,10612 XLOCAL badiop(420,10505 XLOCAL LVAL binary(64,1873 Xcheckfneg(202,4807 Xcheckfzero(194,4650 Xcheckizero(186,4495 XLOCAL LVAL compare(333,8577 XLOCAL LVAL predicate(285,7372 XLOCAL LVAL unary(227,5760 XLVAL xabs(211,4993 XLVAL xacos(218,5349 XLVAL xadd(25,689 XLVAL xadd1(212,5044 XLVAL xasin(217,5297 XLVAL xatan(219,5401 XLVAL xcos(215,5195 XLVAL xdiv(28,839 XLVAL xequ(327,8340 XLVAL xevenp(281,7210 XLVAL xexp(220,5453 XLVAL xexpt(32,1045 XLVAL xfix(222,5556 XLVAL xfloat(223,5612 XLVAL xgcd(38,1303 XLVAL xgeq(329,8437 XLVAL xgtr(330,8486 XLVAL xleq(326,8291 XLVAL xlogand(33,1098 XLVAL xlogior(34,1153 XLVAL xlognot(210,4939 XLVAL xlogxor(35,1208 XLVAL xlss(325,8243 XLVAL xmax(31,993 XLVAL xmin(30,941 XLVAL xminusp(278,7038 XLVAL xmul(27,789 XLVAL xneq(328,8388 XLVAL xoddp(282,7267 XLVAL xplusp(280,7153 XLVAL xrand(224,5665 XLVAL xrem(29,889 XLVAL xsin(214,5144 XLVAL xsqrt(221,5504 XLVAL xsub(26,739 XLVAL xsub1(213,5094 XLVAL xtan(216,5246 XLVAL xzerop(279,7096 X X..\v2.1\xlobj.c,485 XLVAL clanswer(268,6953 XLVAL clisnew(239,6081 XLVAL clnew(231,5921 XLOCAL LVAL entermsg(293,7563 XLOCAL LVAL evmethod(368,9371 XLOCAL int getivcnt(417,10545 XLOCAL int listlength(427,10810 XLVAL obclass(183,4756 XLVAL obisnew(174,4608 XLVAL obshow(192,4927 Xobsymbols(437,10990 XLOCAL LVAL sendmsg(314,8074 Xxladdivar(81,2355 Xxladdmsg(88,2513 XLVAL xlclass(59,1829 Xint xlobgetvalue(102,2895 Xint xlobsetvalue(138,3767 Xxloinit(450,11346 XLVAL xsend(39,1363 XLVAL xsendsuper(47,1546 X X..\v2.1\xlpp.c,156 XLOCAL int flatsize(116,2455 XLOCAL pp(44,1066 XLOCAL ppexpr(92,1973 XLOCAL pplist(54,1204 XLOCAL ppputc(100,2142 XLOCAL ppterpri(108,2273 XLVAL xpp(25,607 X X..\v2.1\xlprin.c,309 XLOCAL putatm(237,5548 XLOCAL putchcode(307,7715 XLOCAL putclosure(256,6052 XLOCAL putfixnum(283,7132 XLOCAL putflonum(295,7422 XLOCAL putoct(329,8106 XLOCAL putqstring(188,4587 XLOCAL putstring(176,4347 XLOCAL putsubr(246,5780 XLOCAL putsymbol(129,3142 Xxlprint(28,1050 Xxlputstr(121,3013 Xxlterpri(114,2917 X X..\v2.1\xlread.c,783 XLOCAL badeof(753,16286 XLVAL callmacro(822,17765 XLOCAL int checkeof(742,16121 Xdefmacro(812,17485 Xint isnumber(761,16429 XLOCAL int nextch(729,15843 XLOCAL pcomment(415,9203 XLOCAL LVAL plist(450,10066 XLOCAL int pname(604,13126 XLOCAL LVAL pnumber(431,9581 XLOCAL LVAL pquote(560,12242 XLOCAL LVAL pstruct(536,11814 XLOCAL LVAL psymbol(585,12737 XLOCAL LVAL punintern(595,12958 XLOCAL LVAL pvector(509,11280 XLOCAL LVAL readlist(659,14406 Xint readone(126,3334 XLVAL rmbquote(339,7765 XLVAL rmcomma(353,8043 XLVAL rmdquote(259,6029 XLVAL rmhash(170,4271 XLVAL rmlpar(376,8474 XLVAL rmquote(245,5752 XLVAL rmrpar(390,8733 XLVAL rmsemi(396,8829 XLOCAL int storech(709,15433 XLVAL tentry(718,15587 XLOCAL upcase(839,18175 Xint xlload(51,1787 Xint xlread(112,3046 Xxlrinit(848,18346 X X..\v2.1\xlstr.c,1336 XLOCAL LVAL changecase(108,3890 XLOCAL LVAL chrcompare(486,13071 X#define fix(9,241 XLOCAL getbounds(190,5920 XLOCAL int inbag(223,6750 XLOCAL LVAL strcompare(50,1993 XLOCAL LVAL trim(151,4978 XLVAL xalphanumericp(461,11945 XLVAL xbothcasep(394,10466 XLVAL xchar(339,9304 XLVAL xcharcode(412,10864 XLVAL xcharint(358,9734 XLVAL xchdowncase(441,11490 XLVAL xchreql(472,12278 XLVAL xchrgeq(474,12407 XLVAL xchrgtr(475,12472 XLVAL xchrieql(480,12741 XLVAL xchrigeq(482,12885 XLVAL xchrigtr(483,12958 XLVAL xchrileq(479,12665 XLVAL xchrilss(478,12596 XLVAL xchrineq(481,12811 XLVAL xchrleq(471,12213 XLVAL xchrlss(470,12149 XLVAL xchrneq(473,12342 XLVAL xchupcase(431,11264 XLVAL xcodechar(421,11040 XLVAL xdigitchar(451,11714 XLVAL xdigitp(403,10662 XLVAL xdowncase(101,3647 XLVAL xintchar(367,9916 XLVAL xlefttrim(147,4842 XLVAL xlowercasep(385,10282 XLVAL xndowncase(105,3802 XLVAL xnupcase(104,3748 XLVAL xrighttrim(148,4887 XLVAL xstrcat(234,6980 XLVAL xstreql(36,1187 XLVAL xstrgeq(38,1320 XLVAL xstrgtr(39,1387 XLVAL xstrieql(44,1660 XLVAL xstrigeq(46,1806 XLVAL xstrigtr(47,1881 XLVAL xstrileq(43,1582 XLVAL xstrilss(42,1511 XLVAL xstrineq(45,1731 XLVAL xstring(311,8800 XLVAL xstrleq(35,1120 XLVAL xstrlss(34,1054 XLVAL xstrneq(37,1253 XLVAL xsubseq(269,7716 XLVAL xtrim(146,4790 XLVAL xupcase(100,3593 XLVAL xuppercasep(376,10096 X X..\v2.1\xlstruct.c,240 XLOCAL addslot(355,9328 XLOCAL updateslot(419,11068 XLVAL xcpystruct(42,1027 XLVAL xdefstruct(90,2065 Xxlprstruct(334,8701 XLVAL xlrdstruct(278,7249 XLVAL xmkstruct(21,623 XLVAL xstrref(56,1341 XLVAL xstrset(67,1566 XLVAL xstrtypep(80,1833 X X..\v2.1\xlsubr.c,284 Xint eq(134,2845 Xint eql(141,2954 Xint equal(162,3404 Xint needsextension(98,2132 XLVAL xlbadtype(115,2508 XLVAL xlgetfile(63,1433 XLVAL xlgetfname(80,1765 Xint xlgetkeyarg(22,564 Xint xlgkfixnum(37,883 XLVAL xlsubr(12,315 Xxltest(49,1119 XLVAL xltoofew(122,2642 Xxltoomany(128,2756 X X..\v2.1\xlsym.c,331 XLOCAL LVAL findprop(209,4620 Xint hash(220,4864 XLVAL xlenter(17,454 XLVAL xlgetfunction(126,2796 XLVAL xlgetprop(174,3874 XLVAL xlgetvalue(57,1359 XLVAL xlmakesym(46,1150 Xxlputprop(182,4054 Xxlremprop(193,4297 Xxlsetfunction(156,3476 Xxlsetvalue(98,2193 Xxlsinit(231,5059 XLVAL xlxgetfunction(140,3097 XLVAL xlxgetvalue(71,1628 X X..\v2.1\xlsys.c,174 XLVAL xaddrs(151,3310 XLVAL xbaktrace(95,2331 XLVAL xexit(112,2569 XLVAL xload(23,617 XLVAL xpeek(119,2668 XLVAL xpoke(133,2946 XLVAL xtranscript(49,1146 XLVAL xtype(68,1603 SHAR_EOF if test 13349 -ne "`wc -c 'tags'`" then echo shar: error transmitting "'tags'" '(should have been 13349 characters)' fi # End of shell archive exit 0 -- Gary Murphy uunet!mitel!sce!cognos!garym (garym%cognos.uucp@uunet.uu.net) (613) 738-1338 x5537 Cognos Inc. P.O. Box 9707 Ottawa K1G 3N3 "There are many things which do not concern the process" - Joan of Arc