Return to misc.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / xns / compiler

Annotation of 43BSD/contrib/xns/compiler/misc.c, revision 1.1.1.1

1.1       root        1: #ifndef lint
                      2: static char RCSid[] = "$Header: misc.c,v 2.0 85/11/21 07:21:41 jqj Exp $";
                      3: #endif
                      4: 
                      5: /* $Log:       misc.c,v $
                      6:  * Revision 2.0  85/11/21  07:21:41  jqj
                      7:  * 4.3BSD standard release
                      8:  * 
                      9:  * Revision 1.3  85/03/11  16:39:50  jqj
                     10:  * *** empty log message ***
                     11:  * 
                     12:  * Revision 1.3  85/03/11  16:39:50  jqj
                     13:  * Public alpha-test version, released 11 March 1985
                     14:  * 
                     15:  * Revision 1.2  85/02/21  11:05:34  jqj
                     16:  * alpha test version
                     17:  * 
                     18:  * Revision 1.1  85/02/15  13:55:34  jqj
                     19:  * Initial revision
                     20:  * 
                     21:  */
                     22: 
                     23: #include "compiler.h"
                     24: 
                     25: /*
                     26:  * String allocation.
                     27:  */
                     28: char *
                     29: copy(s)
                     30:        char *s;
                     31: {
                     32:        char *p;
                     33:        extern char *malloc();
                     34: 
                     35:        if ((p = malloc(strlen(s) + 1)) == NULL) {
                     36:                error(FATAL, "out of string space");
                     37:        }
                     38:        (void) strcpy(p, s);
                     39:        return (p);
                     40: }
                     41: 
                     42: 
                     43: /*
                     44:  * like atoi, convert a string to an integer.  Accept
                     45:  * 1/ numeric string, e.g. "34"
                     46:  * 2/ hex string, e.g. "0x22"
                     47:  * 3/ octal string, e.g. "042"
                     48:  * Handles only positive integers.
                     49:  */
                     50: int
                     51: stringtocard(str)
                     52:        char *str;
                     53: {
                     54:        int val;
                     55: 
                     56:        if (
                     57:            sscanf(str, " -0x%x", &val) > 0 ||
                     58:            sscanf(str, " -0%o", &val) > 0)
                     59:                return( -val);
                     60:        if (
                     61:            sscanf(str, " 0x%x", &val) > 0 ||
                     62:            sscanf(str, " 0%o", &val) > 0 ||
                     63:            sscanf(str, " %d", &val) > 0 
                     64:           )
                     65:                return(val);
                     66:        return(0);
                     67: }
                     68: 
                     69: 
                     70: /*
                     71:  * Lisp operations.
                     72:  */
                     73: list
                     74: cons(a, b)
                     75:        list a, b;
                     76: {
                     77:        list p;
                     78: 
                     79:        if ((p = New(struct cons)) == NIL) {
                     80:                error(FATAL,"Out of list space.");
                     81:        }
                     82:        car(p) = a;
                     83:        cdr(p) = b;
                     84:        return (p);
                     85: }
                     86: 
                     87: length(p)
                     88:        list p;
                     89: {
                     90:        int n;
                     91: 
                     92:        for (n = 0; p != NIL; p = cdr(p), n++)
                     93:                ;
                     94:        return (n);
                     95: }
                     96: 
                     97: list
                     98: nconc(p, q)
                     99:        list p, q;
                    100: {
                    101:        list pp;
                    102: 
                    103:        pp = p;
                    104:        if (p == NIL)
                    105:                return (q);
                    106:        while (cdr(p) != NIL)
                    107:                p = cdr(p);
                    108:        cdr(p) = q;
                    109:        return (pp);
                    110: }
                    111: 

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