CMS-370-GCCLIB/tstarg1.c at develop · adesutherland/CMS-370-GCCLIB · GitHub

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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
#include <stdio.h>
#include <stdlib.h>
#include <cmssys.h>
#include <string.h>

int main(int argc, char *argv[]) {
    int rc;
    char *ret;
    char *binary = "BINARY\x00ZZZ";
    printf("Call/Arg Test\n");

    rc = CMScommand("tstarg2 Argument1 Argument2 Argument3", 0);
    if (rc == 1) printf(" - Call type 0 OK\n");
    else printf(" - Call type 0 Error (rc=%d)\n", rc);


    rc = CMScommand("tstarg2 Argument1 Argument2 Argument3", 1);
    if (rc == 1) printf(" - Call type 1 OK\n");
    else printf(" - Call type 1 Error (rc=%d)\n", rc);


    rc = CMScommand("tstarg2 Argument1 Argument2 Argument3", 11);
    if (rc == 1) printf(" - Call type 11 OK\n");
    else printf(" - Call type 11 Error (rc=%d)\n", rc);


    rc = CMSfunction("TSTARG2", "TSTARG2 tstarg2", 0, &ret, 3, "Argument 1",
                     "Argument 2", "Argument 3");
    if (rc > 0 && ret && strcmp(ret, "1") == 0) printf(" - Call type 5 OK\n");
    else {
        printf(" - Call type 5 Error (rc=%d)\n", rc);
        if (ret) printf(" - Call return: %s\n", ret);
        else printf(" - No Return String\n");
    }
    if (ret) free(ret);


    rc = CMSsimplefunction("tstarg2", &ret, 3, "Argument 1", "Argument 2",
                           "Argument 3");
    if (rc > 0 && ret && strcmp(ret, "1") == 0)
        printf(" - Call type 5 CMSsimplefunction() OK\n");
    else {
        printf(" - Call type 5 Error CMSsimplefunction() (rc=%d)\n", rc);
        if (ret) printf(" - Call return: %s\n", ret);
        else printf(" - No Return String\n");
    }
    if (ret) free(ret);


    rc = CMSsimpleprocedure("tstarg2", 3, "Argument 1", "Argument 2",
                            "Argument 3");
    if (rc == 0) printf(" - Call type 5 CMSsimpleprocedure() OK\n");
    else printf(" - Call type 5 Error CMSsimpleprocedure() (rc=%d)\n", rc);


    rc = CMSfunction("TSTARG2", "TSTARG2 stringreturn", 0, &ret, 3,
                     "Argument 1", "Argument 2", "Argument 3");
    if (rc == strlen("text return value") && ret &&
        strcmp(ret, "text return value") == 0)
        printf(" - Call type 5 (text return) OK\n");
    else {
        printf(" - Call type 5 (text return) Error (rc=%d)\n", rc);
        if (ret) printf(" - Call return: %s\n", ret);
        else printf(" - No Return String\n");
    }
    if (ret) free(ret);


    rc = CMSfunction("TSTARG2", "TSTARG2 binaryreturn", 0, &ret, 3,
                     "Argument 1", "Argument 2", "Argument 3");
    if (rc == 10 && ret && memcmp(ret, binary, 10) == 0)
        printf(" - Call type 5 (binary return) OK\n");
    else {
        printf(" - Call type 5 (binary return) Error (rc=%d)\n", rc);
        if (ret) printf(" - Call return: %s\n", ret);
        else printf(" - No Return String\n");
    }
    if (ret) free(ret);


    rc = CMSfunction("TSTARG2", "TSTARG2 isproc", 1, &ret, 3, "Argument 1",
                     "Argument 2", "Argument 3");
    if (rc > 0 && ret && strcmp(ret, "1") == 0)
        printf(" - Call type 5 (proc) OK\n");
    else {
        printf(" - Call type 5 Error (proc) (rc=%d)\n", rc);
        if (ret) printf(" - Call return: %s\n", ret);
        else printf(" - No Return String\n");
    }
    if (ret) free(ret);


    rc = CMSfunction("TSTARG2", "TSTARG2 isfunc", 0, &ret, 3, "Argument 1",
                     "Argument 2", "Argument 3");
    if (rc > 0 && ret && strcmp(ret, "1") == 0)
        printf(" - Call type 5 (func) OK\n");
    else {
        printf(" - Call type 5 Error (func) (rc=%d)\n", rc);
        if (ret) printf(" - Call return: %s\n", ret);
        else printf(" - No Return String\n");
    }
    if (ret) free(ret);


    char *argv2[] = {"Argument\x001", "Argument\x002", "Argument\x003"};
    int lenv[] = {10, 10, 10};
    rc = CMSfunctionDataArray("TSTARG2", "TSTARG2 binaryargs", 0, &ret, 3, argv2,
                              lenv);
    if (rc == 10 && ret && memcmp(ret, binary, rc) == 0)
        printf(" - Call type 5 (binary args) OK\n");
    else {
        printf(" - Call type 5 (binary args) Error (rc=%d)\n", rc);
        if (ret) printf(" - Call return: %s\n", ret);
        else printf(" - No Return String\n");
    }
    if (ret) free(ret);

    return 0;
}