v10i096: XLisP 2.1 sources 5/5
Gary Murphy
garym at cognos.UUCP
Tue Feb 27 14:13:19 AEST 1990
Posting-number: Volume 10, Issue 96
Submitted-by: garym at 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 at 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
More information about the Comp.sources.misc
mailing list