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
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <error.h>
include <gki.h>
include "sgk.h"
define LEN_MCBUF 3000
# SGIDECODE -- Decode an SGI metacode file, printing the decoded metacode
# instructions on the standard output.
procedure t_sgidecode()
pointer sp, fname, mcbuf, ip, itop
int fd, list, verbose, gkiunits, nwords
bool clgetb()
int clpopni(), clgfil(), clplen(), open(), btoi(), miireads()
begin
call smark (sp)
call salloc (fname, SZ_FNAME, TY_CHAR)
call salloc (mcbuf, LEN_MCBUF, TY_SHORT)
# Open list of metafiles to be decoded.
list = clpopni ("input")
if (clgetb ("generic")) {
verbose = NO
gkiunits = NO
} else {
verbose = btoi (clgetb ("verbose"))
gkiunits = btoi (clgetb ("gkiunits"))
}
# Process a list of metacode files, writing the decoded metacode
# instructions on the standard output.
while (clgfil (list, Memc[fname], SZ_FNAME) != EOF) {
# Print header if new file.
if (clplen (list) > 1) {
call printf ("\n# METAFILE `%s':\n")
call pargstr (Memc[fname])
}
# Open input file.
iferr (fd = open (Memc[fname], READ_ONLY, BINARY_FILE)) {
call erract (EA_WARN)
next
}
# Process the metacode.
itop = mcbuf
ip = mcbuf
repeat {
if (ip >= itop) {
# Refill buffer.
nwords = miireads (fd, Mems[mcbuf], LEN_MCBUF)
if (nwords == EOF)
break
itop = mcbuf + nwords
ip = mcbuf
}
switch (Mems[ip]) {
case SGK_FRAME:
call printf ("new_frame\n")
case SGK_MOVE:
if (gkiunits == YES) {
call printf ("move (%d, %d)\n")
call pargs (Mems[ip+1])
call pargs (Mems[ip+2])
} else {
call printf ("move (%0.5f, %0.5f)\n")
call pargr (real(Mems[ip+1]) / real(GKI_MAXNDC))
call pargr (real(Mems[ip+2]) / real(GKI_MAXNDC))
}
case SGK_DRAW:
if (gkiunits == YES) {
call printf ("draw (%d, %d)\n")
call pargs (Mems[ip+1])
call pargs (Mems[ip+2])
} else {
call printf ("draw (%0.5f, %0.5f)\n")
call pargr (real(Mems[ip+1]) / real(GKI_MAXNDC))
call pargr (real(Mems[ip+2]) / real(GKI_MAXNDC))
}
case SGK_SETLW:
call printf ("set_linewidth (%d)\n")
call pargs (Mems[ip+1])
default:
call printf ("unknown instruction\n")
}
ip = ip + SGK_LENMCI
}
call close (fd)
}
call clpcls (list)
call sfree (sp)
end
|
