compiler/stdc/stcd_l.c

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