Return to misc.c CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / new / xns / compiler

Annotation of 43BSDTahoe/new/xns/compiler/misc.c, revision 1.1.1.1

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

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