blob: bcb0d3a722bbbab592394e7c808b44a26661c7d8 (
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
|
include defs
# esc - map array (i) into escaped character if appropriate
character function esc (array, i)
character array (ARB)
integer i
if (array (i) != ESCAPE)
esc = array (i)
else if (array (i+1) == EOS) # @ not special at end
esc = ESCAPE
else {
i = i + 1
if (array (i) == LETN | array (i) == BIGN)
esc = NEWLINE
else if (array (i) == LETT | array (i) == BIGT)
esc = TAB
else
esc = array (i)
}
return
end
|
