Return to teststrtoul.c CVS log

Up to [Micropolis - Activity] / micropolis / src / tcl / compat

Annotation of micropolis/src/tcl/compat/teststrtoul.c, revision 1.1.1.1

1.1       root        1: /* 
                      2:  * teststrtoul.c --
                      3:  *
                      4:  *     This file contains a simple program to detect broken versions
                      5:  *     of strtoul, like those on AIX.  The broken versions return an
                      6:  *     incorrect terminator pointer for the string "0".  This program
                      7:  *     exits with a normal status if strtoul does the right thing, and
                      8:  *     it exits with a non-zero status if strtoul is bogus.  Unlike
                      9:  *     the other test programs, this one must actually be executed to
                     10:  *     be sure that it works.
                     11:  *
                     12:  * Copyright 1991 Regents of the University of California
                     13:  * Permission to use, copy, modify, and distribute this
                     14:  * software and its documentation for any purpose and without
                     15:  * fee is hereby granted, provided that this copyright
                     16:  * notice appears in all copies.  The University of California
                     17:  * makes no representations about the suitability of this
                     18:  * software for any purpose.  It is provided "as is" without
                     19:  * express or implied warranty.
                     20:  */
                     21: 
                     22: #ifndef lint
                     23: static char rcsid[] = "$Header: /user6/ouster/tcl/compat/RCS/teststrtoul.c,v 1.2 92/01/07 10:02:56 ouster Exp $ SPRITE (Berkeley)";
                     24: #endif /* not lint */
                     25: 
                     26: extern int strtoul();
                     27: 
                     28: int main()
                     29: {
                     30:     char *string = "0";
                     31:     char *term;
                     32:     int value;
                     33: 
                     34:     value = strtoul(string, &term, 0);
                     35:     if ((value != 0) || (term != (string+1))) {
                     36:        exit(1);
                     37:     }
                     38:     exit(0);
                     39: }

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