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
120
121
122
123
124
125
126
127
128
|
/*
Unix clm/cocl interface
Ronny Wichers Schreur
*/
# include <stdio.h>
# include <stdlib.h>
# include <stdarg.h>
# include <strings.h>
/*
Clean string
============
*/
#ifdef _WIN64
typedef struct clean_string {__int64 length; char chars [1]; } *CleanString;
#else
typedef struct clean_string {long length; char chars [1]; } *CleanString;
#endif
# define Clean(ignore)
# include "ipc.h"
static void
log (char *format, ...)
{
#ifdef DEBUG
va_list ap;
va_start (ap, format);
(void) fputs(" cocl: ", stderr);
(void) vfprintf(stderr, format, ap);
va_end(ap);
#else /* ifndef DEBUG */
#endif
}
static char *
ConvertCleanString (CleanString string)
{
int length;
char *copy;
length = string->length;
copy = malloc (length+1);
strncpy (copy, string->chars, length);
copy [length] = '\0';
return (copy);
} /* ConvertCleanString */
static FILE *commands, *results;
# define COMMAND_BUFFER_SIZE 1024
static char command_buffer[COMMAND_BUFFER_SIZE];
static void
crash (void)
{
int *p;
p = NULL;
log ("crashing\n");
*p = 0;
} /* crash */
static void
hang (void)
{
log ("hanging\n");
for (;;)
;
} /* hang */
int open_pipes (CleanString commands_clean, CleanString results_clean)
{
char *commands_name, *results_name;
commands_name = ConvertCleanString (commands_clean);
results_name = ConvertCleanString (results_clean);
if ((commands = fopen(commands_name, "r")) == NULL)
{
log("commands = %s\n",commands_name);
perror("fopen commands");
return -1;
}
if ((results = fopen(results_name, "w")) == NULL)
{
log("results = %s\n",results_name);
perror("fopen results");
return -1;
}
return 0;
}
int get_command_length (void)
{
log ("reading command\n");
if (fgets (command_buffer, COMMAND_BUFFER_SIZE, commands) == NULL)
return -1;
else
{
log ("command = %s", command_buffer);
return (strlen (command_buffer));
}
}
int get_command (CleanString cleanString)
{
log ("%s\n", command_buffer);
strncpy (cleanString->chars, command_buffer, cleanString->length);
return (0);
}
int send_result (int result)
{
int r;
if (fprintf (results, "%d\n", result) > 0)
r=0;
else
r=-1;
fflush (results);
return r;
}
|
