blob: c602dc06684dda5282a328450dff12a3e33bdfcc (
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
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
|
subroutine unstak (sp, lextyp, labval, token)
integer labval(100), lextyp(100)
integer sp, token, type
23000 if (.not.(sp .gt. 1))goto 23002
type = lextyp(sp)
if (.not.((type .eq. -98 .or. type .eq. -97) .and. token .eq. -86)
*)goto 23003
goto 23002
23003 continue
if (.not.(type .eq. -99 .or. type .eq. -98 .or. type .eq. -97))got
*o 23005
type = 999
23005 continue
if (.not.(type .eq. 123 .or. type .eq. -92))goto 23007
goto 23002
23007 continue
if (.not.(type .eq. 999 .and. token .eq. -87))goto 23009
goto 23002
23009 continue
if (.not.(type .eq. 999))goto 23011
call indent (-1)
call outcon (labval(sp))
goto 23012
23011 continue
if (.not.(type .eq. -87 .or. type .eq. -72))goto 23013
if (.not.(sp .gt. 2))goto 23015
sp = sp - 1
23015 continue
if (.not.(type .ne. -72))goto 23017
call indent (-1)
23017 continue
call outcon (labval(sp) + 1)
goto 23014
23013 continue
if (.not.(type .eq. -96))goto 23019
call dostat (labval(sp))
goto 23020
23019 continue
if (.not.(type .eq. -95))goto 23021
call whiles (labval(sp))
goto 23022
23021 continue
if (.not.(type .eq. -94))goto 23023
call fors (labval(sp))
goto 23024
23023 continue
if (.not.(type .eq. -93))goto 23025
call untils (labval(sp), token)
23025 continue
23024 continue
23022 continue
23020 continue
23014 continue
23012 continue
23001 sp=sp-1
goto 23000
23002 continue
end
|
