home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume10 / logo / part02 / logoparse.c < prev    next >
Encoding:
C/C++ Source or Header  |  1987-06-23  |  4.8 KB  |  257 lines
  1.  
  2. #include "logo.h"
  3. extern int multnum,endflag,rendflag,topf;
  4. extern char ibuf[];
  5. extern char *ibufptr, *getbpt, charib;
  6. extern int letflag,pflag;
  7. #ifdef PAUSE
  8. extern int pauselev;
  9. #endif
  10. extern FILE *pbuf;
  11. extern struct lexstruct keywords[];
  12. extern struct alist *locptr;
  13. extern struct runblock *thisrun;
  14.  
  15. struct object *makeword(c)
  16. int c;
  17. {
  18.     register struct object* obj;
  19.     register char *s;
  20.     char str[100];
  21.  
  22.     s=str;
  23.     do {
  24.         if (c == '\\') c = getchar()|0200;
  25.         else if (c == '%') c = ' '|0200;
  26.         *s++ = c;
  27.     } while((c=getchar())>0 && !index(" \t\n[]",c));
  28.     if (c<=0) {
  29.         printf("Unmatched [ in procedure.\n");
  30.         errhand();
  31.     }
  32.     charib = c;
  33.     *s = '\0';
  34.     obj = objcpstr(str);
  35.     if (nump(obj)) {
  36.         obj = numconv(localize(obj),"!makeword");
  37.         mfree(globcopy(obj));    /* unlocalize */
  38.         return(obj);
  39.     }
  40.     return(globcopy(obj));
  41. }
  42.  
  43. struct object *makel1()
  44. {
  45.     register struct object *head,*tail;
  46.     register c,cnt;
  47.  
  48.     while ((c=getchar())==' ' || c=='\t' || c=='\n') ;
  49.     if(c==']') {
  50.         charib = c;
  51.         return ((struct object *)0);
  52.     }
  53.     if (c<=0) {
  54.         printf("Unmatched [ in procedure.\n");
  55.         errhand();
  56.     }
  57.     head = (struct object*)ckmalloc(sizeof(struct object));
  58.     tail = head;
  59.     cnt = 0;
  60.     head->obtype = CONS;
  61.     head->refcnt = 0;
  62.     head->obcdr = 0;
  63. loop:
  64.     if (c=='[') {
  65.         tail->obcar = globcopy(makel1());
  66.         getchar();    /* gobble the peeked close bracket */
  67.     } else {
  68.         tail->obcar = makeword(c);
  69.         /* This used to use charib instead of passing the char as
  70.          * an argument, but that loses if the first char of a word
  71.          * is backslash, in which case something is already in
  72.          * charib from getchr1. */
  73.     }
  74.     while ((c=getchar())==' ' || c=='\t' || c=='\n') ;
  75.     if (c==']') {
  76.         charib = c;
  77.         return (head);
  78.     }
  79.     if (c<=0) {
  80.         printf("Unmatched [ in procedure.\n");
  81.         errhand();
  82.     }
  83.  
  84.     tail->obcdr = (struct object*)ckmalloc(sizeof(struct object));
  85.     tail = tail->obcdr;
  86.     tail->obtype = CONS;
  87.     tail->refcnt = 1;
  88.     tail->obcdr = 0;
  89.  
  90.     goto loop;
  91. }
  92.  
  93. struct object *makelist()
  94. {
  95.     return(localize(makel1()));
  96. }
  97.  
  98. #ifdef DEBUG
  99. getchr1()
  100. #else
  101. getchar()
  102. #endif
  103. {
  104.     FAST c;
  105.  
  106.     if (charib) {
  107.         c=charib;
  108.         charib=0;
  109.         return(c);
  110.     }
  111.     else if (pflag==1) {
  112.         while ((c=getc(pbuf))=='\r')
  113.             ;
  114.         if (c=='\\' && letflag!=1) {    /* continuation line feature */
  115.             c=getc(pbuf);
  116.             if (c=='\n') c=getc(pbuf);
  117.             else {
  118.                 charib = c;
  119.                 c = '\\';
  120.             }
  121.         }
  122.         if (!letflag && c>='A' && c<='Z') c+= 32;
  123.         return(c);
  124.     }
  125.     else if (getbpt) {    /* BH 5/19/81 moved down below pflag test */
  126.         c = *getbpt++;
  127.         if (c) return (c);
  128.         if (!thisrun) {
  129.             getbpt = 0;
  130.             return('\n');
  131.         }    /* startup file feature */
  132.         --getbpt;
  133.         if (--(thisrun->rcount) <= 0) {
  134.             if (!rendflag) rendflag = 1;    /* BH 3/17/83 */
  135.             return(0);
  136.         } else {
  137.             rerun();
  138.             return('\n');
  139.         }
  140.     }
  141.     else if (ibufptr==NULL) {
  142.     rebuff:
  143.         if ((c=read(0,ibuf,IBUFSIZ))==IBUFSIZ)
  144.             if (ibuf[IBUFSIZ-1]!='\n') {
  145.                 while (read(0,ibuf,IBUFSIZ)==IBUFSIZ)
  146.                     if (ibuf[IBUFSIZ-1]=='\n') break;
  147.                 puts("Your line is too long.");
  148.                 errhand();
  149.             }
  150.         if (c<0) {
  151.             /* Error return from read.  Probably signal. */
  152.             return ('\n');
  153.         }
  154.         if (c==0) {
  155.             /* Not clear what's right for EOF.  I'd just ignore it
  156.                only what if stdin is a file, we'll loop forever.
  157.                Compromise: if we're paused, don't lose the valuable
  158.                context with a keystroke, otherwise, exit. */
  159. #ifdef PAUSE
  160.             if (pauselev) return('\n');
  161. #endif
  162.             leave(3);
  163.         }
  164.         ibufptr=ibuf;
  165.     }
  166.     c= *ibufptr++;
  167.     if (c=='\\' && letflag!=1) {    /* continuation line feature */
  168.         c = *ibufptr++;
  169.         if (c=='\n') {
  170.             ibufptr=NULL;
  171.             goto rebuff;    /* sorry, Jay */
  172.         } else {
  173.             charib = c;
  174.             c = '\\';
  175.         }
  176.     }
  177.     if (!letflag && c>='A' && c<='Z') c+=32;
  178.     if (c=='\n') ibufptr=NULL;
  179.     return(c);
  180. }
  181.  
  182. #ifdef DEBUG
  183. getchar()
  184. {    /* BH 3/23/80 debugging echo output */
  185.     register c;
  186.  
  187.     c = getchr1();
  188.     if (memtrace) putchar(c);
  189.     return(c);
  190. }
  191. #endif
  192.  
  193. struct object *multiop(op,args)
  194. register op;
  195. register struct object *args;
  196. {
  197.     extern struct object *list();
  198.  
  199.     if (keywords[op].lexval==list) return (localize(args));
  200.     else if (multnum<2) {
  201.         nputs(keywords[op].word);
  202.         puts(" needs at least two inputs.");
  203.         errhand();
  204.     } else if (multnum==2)
  205.         return ((*keywords[op].lexval)(localize(args->obcar),
  206.               localize(args->obcdr->obcar)));
  207.     else {
  208.         multnum--;
  209.         return ((*keywords[op].lexval)(localize(args->obcar),
  210.               multiop(op,args->obcdr)));
  211.     }
  212. }
  213.  
  214. struct object *pots()
  215. {
  216.     register f;
  217.  
  218.     if (f=fork()) while (wait(0)!=f) ;
  219.     else {
  220.         execl ("/bin/sh","sh","-c",POTSCMD,0);
  221.         exit();
  222.     }
  223.     return((struct object *)-1);
  224. }
  225.  
  226. lbreak() {
  227. #ifdef PAUSE
  228.     if (!pflag && thisrun && thisrun->str==(struct object *)(-1))
  229.         unpause();
  230. #endif
  231.     if (!pflag && thisrun) {
  232.         rendflag = 1;    /* BH 3/17/83 */
  233.         if (thisrun->rprev && !(thisrun->svpflag)) rendflag++;
  234.     }
  235. }
  236.  
  237. lstop() {
  238.     endflag = 1;
  239. #ifdef PAUSE
  240.     if (!pflag && thisrun && thisrun->str==(struct object *)(-1))
  241.         unpause();
  242. #endif
  243.     if (!pflag && thisrun) rendflag = 3;    /* BH 3/17/83 */
  244. }
  245.  
  246. ltopl() {
  247.     topf=1;
  248.     errwhere();
  249.     errzap();
  250.     leave(1);
  251. }
  252.  
  253. lbyecom() {
  254.     leave(3);
  255. }
  256.  
  257.