File: tst-sscanf.c

package info (click to toggle)
glibc 2.23-4
  • links: PTS, VCS
  • area: main
  • in suites: jessie-backports
  • size: 233,552 kB
  • sloc: ansic: 987,702; asm: 260,118; sh: 10,380; makefile: 9,474; python: 3,957; cpp: 3,956; perl: 2,207; awk: 1,907; pascal: 1,527; yacc: 291; sed: 80
file content (56 lines) | stat: -rw-r--r-- 1,216 bytes parent folder | download | duplicates (32)
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
#include <stdio.h>
#include <locale.h>
#include <assert.h>

#define P0 "\xDB\xB0"
#define P1 "\xDB\xB1"
#define P2 "\xDB\xB2"
#define P3 "\xDB\xB3"
#define P4 "\xDB\xB4"
#define P5 "\xDB\xB5"
#define P6 "\xDB\xB6"
#define P7 "\xDB\xB7"
#define P8 "\xDB\xB8"
#define P9 "\xDB\xB9"
#define PD "\xd9\xab"
#define PT "\xd9\xac"

static int
check_sscanf (const char *s, const char *format, const float n)
{
  float f;

  if (sscanf (s, format, &f) != 1)
    {
      printf ("nothing found for \"%s\"\n", s);
      return 1;
    }
  if (f != n)
    {
      printf ("got %f expected %f from \"%s\"\n", f, n, s);
      return 1;
    }
  return 0;
}

static int
do_test (void)
{
  if (setlocale (LC_ALL, "fa_IR.UTF-8") == NULL)
    {
      puts ("cannot set fa_IR locale");
      return 1;
    }

  int r = check_sscanf (P3 PD P1 P4, "%I8f", 3.14);
  r |= check_sscanf (P3 PT P1 P4 P5, "%I'f", 3145);
  r |= check_sscanf (P3 PD P1 P4 P1 P5 P9, "%If", 3.14159);
  r |= check_sscanf ("-" P3 PD P1 P4 P1 P5, "%If", -3.1415);
  r |= check_sscanf ("+" PD P1 P4 P1 P5, "%If", +.1415);
  r |= check_sscanf (P3 PD P1 P4 P1 P5 "e+" P2, "%Ie", 3.1415e+2);

  return r;
}

#define TEST_FUNCTION do_test ()
#include "../test-skeleton.c"