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
129
130
131
132
133
134
135
136
137
138
139
|
/*
* Copyright 1992 by Jutta Degener and Carsten Bormann, Technische
* Universitaet Berlin. See the accompanying file "COPYRIGHT" for
* details. THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
*/
/*$Header: /tmp_amd/presto/export/kbs/jutta/src/gsm/RCS/taste.c,v 1.1 1992/10/28 00:28:39 jutta Exp $*/
#include <stdio.h>
#include <string.h>
#include <memory.h>
#include "config.h"
#ifdef HAS_STDLIB_H
# include <stdlib.h>
#else
#include "proto.h"
# ifdef HAS_MALLOC_H
# include <malloc.h>
# else
extern char * malloc P((char *)), * realloc P((char *,int));
# endif
extern int exit P((int));
#endif
#include "proto.h"
/*
* common code to sweet.c and bitter.c: read the name:#bits description.
*/
#include "taste.h"
static struct spex * s_spex;
static int n_spex, m_spex;
extern void write_code P((struct spex *, int));
char * strsave P1((str), char * str) /* strdup() + errors */
{
int n = strlen(str) + 1;
char * s = malloc(n);
if (!s) {
fprintf(stderr, "Failed to malloc %d bytes, abort\n",
strlen(str) + 1);
exit(1);
}
return memcpy(s, str, n);
}
struct spex * new_spex P0()
{
if (n_spex >= m_spex) {
m_spex += 500;
if (!(s_spex = (struct spex *)(n_spex
? realloc((char *)s_spex, m_spex * sizeof(*s_spex))
: malloc( m_spex * sizeof(*s_spex))))) {
fprintf(stderr, "Failed to malloc %d bytes, abort\n",
m_spex * sizeof(*s_spex));
exit(1);
}
}
return s_spex + n_spex;
}
char * strtek P2((str, sep), char * str, char * sep) {
static char * S = (char *)0;
char * c, * base;
if (str) S = str;
if (!S || !*S) return (char *)0;
/* Skip delimiters.
*/
while (*S) {
for (c = sep; *c && *c != *S; c++) ;
if (*c) *S++ = 0;
else break;
}
base = S;
/* Skip non-delimiters.
*/
for (base = S; *S; S++) {
for (c = sep; *c; c++)
if (*c == *S) {
*S++ = 0;
return base;
}
}
return base == S ? (char *)0 : base;
}
int read_spex P0()
{
char buf[200];
char * s, *t;
struct spex * sp = s_spex;
while (fgets(buf, sizeof buf, stdin)) {
char * nl;
if (nl = strchr(buf, '\n'))
*nl = '\0';
if (!*buf || *buf == ';') continue;
s = strtek(buf, " \t");
if (!s) {
fprintf(stderr, "? %s\n", buf);
continue;
}
sp = new_spex();
sp->var = strsave(s);
s = strtek((char*)0, " \t");
if (!s) {
fprintf(stderr, "varsize?\n");
continue;
}
sp->varsize = strtol(s, (char **)0, 0);
n_spex++;
}
return sp - s_spex;
}
int main P0()
{
read_spex();
write_code(s_spex, n_spex);
exit(0);
}
|
