Return to loops.c CVS log

Up to [Research Unix] / researchv10no / cmd / pico

Annotation of researchv10no/cmd/pico/loops.c, revision 1.1.1.1

1.1       root        1: #include <stdio.h>
                      2: #include "pico.h"
                      3: 
                      4: int uniq = 0;
                      5: 
                      6: Node *
                      7: newhile(lcondi, lbody)
                      8:        Node *lcondi, *lbody;
                      9: {
                     10:        Node *n = new(OCOMMA, lbody, new(GOTO, Z, Z, uniq), Z);
                     11: 
                     12:        return new(LABL, new(CONDI, n, Z, lcondi), Z, uniq++);
                     13: }
                     14: 
                     15: Node *
                     16: newuntil(lbody, lcondi)
                     17:        Node *lbody, *lcondi;
                     18: {
                     19:        Node *n;
                     20: 
                     21:        n = new(GOTO, Z, Z, uniq);
                     22:        n = new(OCOMMA, lbody, new(CONDI, n, Z, lcondi), Z);
                     23: 
                     24:        return new(LABL, n, Z, uniq++);
                     25: }
                     26: 
                     27: Node *
                     28: newloop(linit, lcondi, lincr, lbody)
                     29:        Node *linit, *lcondi, *lincr, *lbody;
                     30: {
                     31:        Node *n;
                     32: 
                     33:        n = new(OCOMMA, new(OCOMMA, lbody, lincr, Z), new(GOTO, Z, Z, uniq), Z);
                     34:        n = new(LABL, new(CONDI, n, Z, lcondi), Z, uniq++);
                     35: 
                     36:        return new(OCOMMA, linit, n, Z);
                     37: }
                     38: 
                     39: commacount(n)
                     40:        Node *n;
                     41: {
                     42:        if (n == Z)
                     43:                return 0;
                     44:        if (n->type != OCOMMA && n->type != ACOMMA)
                     45:                return 1;
                     46:        return commacount(n->right) + commacount(n->left);
                     47: }
                     48: 
                     49: argcount(nrp, n, s)
                     50:        long nrp;
                     51:        Node *n;
                     52:        char *s;
                     53: {
                     54:        int pcnt;
                     55: 
                     56:        if ((pcnt=commacount(n)) != (int) nrp)
                     57:        if (strcmp(s, "println") != 0 && strcmp(s, "printf") != 0)
                     58:        {       fprintf(stderr, "function %s takes %d ", s, nrp);
                     59:                fprintf(stderr, "argumen%s, ", (nrp==1)?"t":"ts");
                     60:                yyerror("found %d", pcnt);
                     61:        }
                     62: }

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