File: scan_8long.c

package info (click to toggle)
libowfat 0.34-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 5,288 kB
  • sloc: ansic: 20,181; makefile: 16
file content (31 lines) | stat: -rw-r--r-- 880 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#include "scan.h"

#ifdef UNITTEST
#undef UNITTEST
#include "scan_8longn.c"
#define UNITTEST
#endif

size_t scan_8long(const char *src,unsigned long *dest) {
  return scan_8longn(src,((size_t)-1)/2,dest);
}

#ifdef UNITTEST
#include <assert.h>

int main() {
  unsigned long i;
  assert(scan_8long("1234",&i)==4 && i==01234);
  assert(scan_8long("12345678",&i)==7 && i==01234567);
  if (sizeof(long)==sizeof(int)) {
    assert(scan_8long("37777777777",&i)==11 && i==0xffffffff);
    assert(scan_8long("40000000000",&i)==10 && i==04000000000);
  } else if (sizeof(long)==sizeof(long long)) {
    assert(scan_8long("1777777777777777777777",&i)==22 && i==0xffffffffffffffffull);
    assert(scan_8long("2000000000000000000000",&i)==21 && i==0200000000000000000000ull);
  }
  assert(scan_8long("-4",&i)==0 && i==0);
  assert(scan_8long("01234",&i)==5 && i==01234);
  return 0;
}
#endif