Return to subr.c CVS log

Up to [Plan 9 NeXT] / lucent / sys / src / cmd / rc

Annotation of lucent/sys/src/cmd/rc/subr.c, revision 1.1

1.1     ! root        1: #include "rc.h"
        !             2: #include "exec.h"
        !             3: #include "io.h"
        !             4: #include "fns.h"
        !             5: char *emalloc(long n){
        !             6:        char *p=(char *)Malloc(n);
        !             7:        if(p==0) panic("Can't malloc %d bytes", n);
        !             8: /*     if(err){ pfmt(err, "malloc %d->%p\n", n, p); flush(err); } /**/
        !             9:        return p;
        !            10: }
        !            11: void efree(char *p)
        !            12: {
        !            13: /*     pfmt(err, "free %p\n", p); flush(err); /**/
        !            14:        if(p) free(p);
        !            15:        else pfmt(err, "free 0\n");
        !            16: }
        !            17: extern int lastword, lastdol;
        !            18: void yyerror(char *m)
        !            19: {
        !            20:        pfmt(err, "rc: ");
        !            21:        if(runq->cmdfile) pfmt(err, "file %s: ", runq->cmdfile);
        !            22:        if(!runq->iflag) pfmt(err, "line %d: ", runq->lineno);
        !            23:        if(tok[0] && tok[0]!='\n') pfmt(err, "token %q: ", tok);
        !            24:        pfmt(err, "%s\n", m);
        !            25:        flush(err);
        !            26:        lastword=0;
        !            27:        lastdol=0;
        !            28:        while(lastc!='\n' && lastc!=EOF) advance();
        !            29:        nerror++;
        !            30: }
        !            31: char *bp;
        !            32: void iacvt(int n){
        !            33:        if(n<0){
        !            34:                *bp++='-';
        !            35:                n=-n;   /* doesn't work for n==-inf */
        !            36:        }
        !            37:        if(n/10)
        !            38:                iacvt(n/10);
        !            39:        *bp++=n%10+'0';
        !            40: }
        !            41: void itoa(char *s, int n)
        !            42: {
        !            43:        bp=s;
        !            44:        iacvt(n);
        !            45:        *bp='\0';
        !            46: }
        !            47: void panic(char *s, int n)
        !            48: {
        !            49:        pfmt(err, "rc: ");
        !            50:        pfmt(err, s, n);
        !            51:        pchr(err, '\n');
        !            52:        flush(err);
        !            53:        Abort();
        !            54: }

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