blob: 3490016daa63b4ebb4eef978d72c3381b34b2fad (
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
|
#-h- retcod 580 local 12/01/80 15:54:35
# retcod - generate code for return
include defs
subroutine retcod
character token (MAXTOK), t
character gnbtok
include COMMON_BLOCKS
t = gnbtok (token, MAXTOK)
if (t != NEWLINE & t != SEMICOL & t != RBRACE) {
call pbstr (token)
call outtab
call scopy (fcname, 1, token, 1)
call squash (token)
call outstr (token)
call outch (BLANK)
call outch (EQUALS)
call outch (BLANK)
call eatup
call outdon
}
else if (t == RBRACE)
call pbstr (token)
call outtab
call ogotos (retlab, NO)
xfer = YES
return
end
|
