blob: 6c5c2ded96acb01b4449e26e1c7dbe556d11c4da (
plain) (
blame)
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
|
# ADDSLASH -- Convert a string by prefixing quote marks with backslashes
#
# B.Simon 30-Sep-87 First Code
procedure addslash (str, maxch)
char str[ARB] # String to be converted
int maxch # Maximum length of string
int i, j
pointer sp, aux
begin
call smark (sp)
call salloc (aux, maxch, TY_CHAR)
j = 1
for (i = 1; (str[i] != EOS) && (j <= maxch); i = i + 1) {
if (str[i] == '"') {
if (j == maxch)
break
Memc[aux+j-1] = '\\'
j = j + 1
}
Memc[aux+j-1] = str[i]
j = j + 1
}
Memc[aux+j-1] = EOS
call strcpy (Memc[aux], str, maxch)
call sfree (sp)
end
|
