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
|
--- ./src/ctran.c.orig 1998-08-28 19:01:57.000000000 +0200
+++ ./src/ctran.c 2011-12-15 18:06:56.000000000 +0100
@@ -7,6 +7,9 @@
----------------------------------------------------------------*/
/*{{{ global decls*/
#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
#define BUFLEN 1000 /* max len of ID or keyword in i/p */
#define PROTECT_LINE_CHAR '@' /* replaces some "#include's */
@@ -762,11 +765,11 @@
int lineno = 0, max_val = 0, val;
if ( !(dict_file = fopen (dict_filename, "r")) )
- return;
+ return 0;
if ( ! fgets (buf, BUFLEN, dict_file) ) {
fclose (dict_file);
- return;
+ return 0;
}
/*{{{ 1st line may give 'next_val' (otherwise its a normal line)*/
@@ -928,7 +931,7 @@
}
fclose (dict_file);
- return;
+ return 0;
}
/*}}}*/
/*{{{ write_new_dict ()*/
@@ -1110,7 +1113,7 @@
while ((c = getc (ip_file)) != delim) {
switch (c) {
case EOF :
- return;
+ return 0;
case '\\' :
/*---------------------------------------*/
@@ -1118,7 +1121,7 @@
/*---------------------------------------*/
c = getc (ip_file);
if (c == EOF)
- return;
+ return 0;
break;
}
}
@@ -1208,7 +1211,7 @@
c = getc (ip_file);
if (c == EOF)
- return;
+ return 0;
last_token_type &= ~TK_SPACE; /* unset TK_SPACE, if set */
op_linelen = 0;
@@ -1380,7 +1383,7 @@
while ((c = getc (ip_file)) != delim) {
switch (c) {
case EOF :
- return;
+ return 0;
case '\\' :
/*---------------------------------------*/
@@ -1388,7 +1391,7 @@
/*---------------------------------------*/
write_and_get_next_char (c);
if (c == EOF)
- return;
+ return 0;
writechar (c);
break;
@@ -1571,14 +1574,14 @@
/*------------------------------------------------------*/
for (sp = keytab [hashval]; sp; sp = sp->next)
if (! strcmp (sp->word, word))
- return; /* found! */
+ return 0; /* found! */
/*------------------------------------------------------*/
/* Now search for it in the symbol table, 'symtab'. */
/*------------------------------------------------------*/
for (sp = symtab [hashval]; sp; sp = sp->next)
if (! strcmp (sp->word, word))
- return; /* found! */
+ return 0; /* found! */
/*------------------------------------------------------*/
/* Not found in either table (i.e. not a keyword and */
@@ -1609,7 +1612,7 @@
sp->next = symtab [hashval]; /* add to front of list */
symtab [hashval] = sp;
- return;
+ return 0;
}
/*}}}*/
|
