compiler/clib/stco_l.c

   1 /*
   2     Copyright © 1995-2012, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     SAS/C function stco_l().
   6 */
   7
   8 #include <stdlib.h>
   9
  10 /*****************************************************************************
  11
  12     NAME */
  13 #include <string.h>
  14
  15         int stco_l (
  16
  17 /*  SYNOPSIS */
  18         const char      * in,
  19         long            * lvalue)
  20
  21 /*  FUNCTION
  22         Convert octal string to a long integer
  23
  24     INPUTS
  25         in     - The octal string to be converted
  26         lvalue - Pointer to long where the result is saved
  27
  28     RESULT
  29         1 means success. 0 means failure.
  30
  31     NOTES
  32         SAS/C specific
  33
  34     EXAMPLE
  35
  36     BUGS
  37
  38     SEE ALSO
  39
  40     INTERNALS
  41
  42 ******************************************************************************/
  43 {
  44     char *s;
  45     long l;
  46
  47     l = strtol(in, &s, 8);
  48
  49     if (s != in)
  50     {
  51         *lvalue = l;
  52         return 1;
  53     }
  54     else
  55         return 0;
  56 } /* stco_l */