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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
// Licensed to the .NET Foundation under one or more agreements.
// The .NET Foundation licenses this file to you under the MIT license.
// See the LICENSE file in the project root for more information.
/*=============================================================
**
** Source: __iscsym.c
**
** Purpose: Positive test the __iscsym API.
** Call __iscsym to letter, digit and underscore
**
**
**============================================================*/
#include <palsuite.h>
int __cdecl main(int argc, char *argv[])
{
int err;
int index;
char non_letter_set[]=
{'~','`','!','@','#','$','%','^','&','*','(',')',')',
'-','+','=','|','\\',';',':','"','\'','<','>',
',','.','?','/','\0'};
char errBuffer[200];
/*Initialize the PAL environment*/
err = PAL_Initialize(argc, argv);
if(0 != err)
{
return FAIL;
}
/*To check if the parameter passed in is a character*/
for(index = 'a'; index <= 'z'; index++)
{
err = __iscsym(index);
if(0 == err)
{
Fail("\n__iscsym failed to recognize a "
"lower-case letter:%c!\n", index);
}
}
/*To check if the parameter passed in is a character*/
for(index = 'A'; index <= 'Z'; index++)
{
err = __iscsym(index);
if(0 == err)
{
Fail("\n__iscsym failed to recognize an "
"upper-case letter: %c!\n", index);
}
}
/*To check if the parameter passed in is a digit*/
for(index = '0'; index <= '9'; index++)
{
err = __iscsym(index);
if(0 == err)
{
Fail("\n__iscsym failed to recognize a digit %c!\n",
index);
}
}
/*To check if the parameter passed in is a underscore*/
err = __iscsym('_');
if(0 == err)
{
Fail("\n__iscsym failed to recognize an underscore!\n");
}
memset(errBuffer, 0, 200);
for(index = 0; non_letter_set[index]; index++)
{
err = __iscsym(non_letter_set[index]);
if(0 != err)
{
strncat(errBuffer, &non_letter_set[index], 1);
strcat(errBuffer, ", ");
}
}
if(strlen(errBuffer) > 0)
{
Fail("\n__iscsym failed to identify the characters '%s' "
"as not letters, digits "
"or underscores\n", errBuffer);
}
PAL_Terminate();
return PASS;
}
|