Repository navigation
Expand file tree
/
Copy pathdump.test.expected
More file actions
154 lines (153 loc) · 14.6 KB
/
Copy pathdump.test.expected
File metadata and controls
154 lines (153 loc) · 14.6 KB
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
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
0x3B 0x3B 0x20 0x64 0x75 0x6D 0x70 0x2E 0x6C 0x69 0x73 0x70 0x20 0x2D 0x20 0x53 ;; dump.lisp - S
0x69 0x6D 0x70 0x6C 0x65 0x20 0x75 0x74 0x69 0x6C 0x69 0x74 0x79 0x20 0x74 0x6F imple utility to
0x20 0x64 0x75 0x6D 0x70 0x20 0x66 0x69 0x6C 0x65 0x20 0x63 0x6F 0x6E 0x74 0x65 dump file conte
0x6E 0x74 0x73 0x2E 0x0A 0x3B 0x3B 0x0A 0x3B 0x3B 0x20 0x53 0x68 0x6F 0x77 0x20 nts..;;.;; Show
0x74 0x68 0x65 0x20 0x63 0x6F 0x6E 0x74 0x65 0x6E 0x74 0x73 0x20 0x61 0x73 0x20 the contents as
0x68 0x65 0x78 0x20 0x62 0x79 0x74 0x65 0x73 0x2C 0x20 0x61 0x6E 0x64 0x20 0x61 hex bytes, and a
0x6C 0x73 0x6F 0x20 0x41 0x53 0x43 0x49 0x49 0x0A 0x3B 0x3B 0x20 0x63 0x68 0x61 lso ASCII.;; cha
0x72 0x61 0x63 0x74 0x65 0x72 0x73 0x20 0x77 0x68 0x65 0x6E 0x20 0x74 0x68 0x65 racters when the
0x79 0x20 0x61 0x72 0x65 0x20 0x70 0x72 0x69 0x6E 0x74 0x61 0x62 0x6C 0x65 0x2E y are printable.
0x0A 0x3B 0x3B 0x0A 0x3B 0x3B 0x20 0x45 0x78 0x61 0x6D 0x70 0x6C 0x65 0x20 0x75 .;;.;; Example u
0x73 0x61 0x67 0x65 0x3A 0x0A 0x3B 0x3B 0x0A 0x3B 0x3B 0x20 0x20 0x2E 0x2F 0x64 sage:.;;.;; ./d
0x75 0x6D 0x70 0x20 0x2E 0x2F 0x64 0x75 0x6D 0x70 0x0A 0x3B 0x3B 0x0A 0x0A 0x3B ump ./dump.;;..;
0x3B 0x20 0x4C 0x6F 0x61 0x64 0x20 0x6F 0x75 0x72 0x20 0x61 0x72 0x67 0x75 0x6D ; Load our argum
0x65 0x6E 0x74 0x2D 0x70 0x61 0x72 0x73 0x69 0x6E 0x67 0x20 0x6C 0x69 0x62 0x72 ent-parsing libr
0x61 0x72 0x79 0x0A 0x28 0x72 0x65 0x71 0x75 0x69 0x72 0x65 0x20 0x61 0x72 0x67 ary.(require arg
0x2D 0x70 0x61 0x72 0x73 0x65 0x72 0x29 0x0A 0x0A 0x28 0x64 0x65 0x66 0x75 0x6E -parser)..(defun
0x20 0x64 0x75 0x6D 0x70 0x20 0x28 0x73 0x74 0x72 0x29 0x0A 0x20 0x20 0x22 0x44 dump (str). "D
0x75 0x6D 0x70 0x20 0x61 0x6E 0x20 0x61 0x6C 0x6C 0x6F 0x63 0x61 0x74 0x65 0x64 ump an allocated
0x20 0x72 0x65 0x67 0x69 0x6F 0x6E 0x20 0x6F 0x66 0x20 0x6D 0x65 0x6D 0x6F 0x72 region of memor
0x79 0x20 0x74 0x6F 0x20 0x53 0x54 0x44 0x4F 0x55 0x54 0x20 0x61 0x73 0x20 0x68 y to STDOUT as h
0x65 0x78 0x20 0x61 0x6E 0x64 0x20 0x41 0x53 0x43 0x49 0x49 0x20 0x63 0x68 0x61 ex and ASCII cha
0x72 0x61 0x63 0x74 0x65 0x72 0x73 0x2E 0x22 0x0A 0x0A 0x20 0x20 0x3B 0x3B 0x20 racters.".. ;;
0x72 0x65 0x6D 0x6F 0x76 0x65 0x20 0x68 0x65 0x61 0x64 0x65 0x72 0x20 0x66 0x72 remove header fr
0x6F 0x6D 0x20 0x74 0x68 0x65 0x20 0x61 0x6C 0x6C 0x6F 0x63 0x61 0x74 0x65 0x64 om the allocated
0x20 0x6C 0x65 0x6E 0x67 0x74 0x68 0x0A 0x20 0x20 0x28 0x6C 0x65 0x74 0x20 0x28 length. (let (
0x28 0x6C 0x65 0x6E 0x20 0x28 0x2D 0x20 0x28 0x61 0x6C 0x65 0x6E 0x20 0x73 0x74 (len (- (alen st
0x72 0x29 0x20 0x32 0x34 0x29 0x29 0x0A 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 r) 24)).
0x28 0x69 0x20 0x20 0x20 0x30 0x29 0x20 0x20 0x20 0x20 0x3B 0x3B 0x20 0x69 0x6E (i 0) ;; in
0x64 0x65 0x78 0x0A 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x28 0x68 0x65 0x78 dex. (hex
0x20 0x22 0x22 0x29 0x20 0x20 0x20 0x3B 0x3B 0x20 0x68 0x65 0x78 0x20 0x76 0x65 "") ;; hex ve
0x72 0x73 0x69 0x6F 0x6E 0x20 0x6F 0x66 0x20 0x6F 0x75 0x74 0x70 0x75 0x74 0x0A rsion of output.
0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x28 0x63 0x68 0x20 0x20 0x22 0x22 0x29 (ch "")
0x20 0x20 0x20 0x3B 0x3B 0x20 0x63 0x68 0x61 0x72 0x61 0x63 0x74 0x65 0x72 0x20 ;; character
0x76 0x65 0x72 0x73 0x69 0x6F 0x6E 0x20 0x6F 0x66 0x20 0x6F 0x75 0x74 0x70 0x75 version of outpu
0x74 0x0A 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x28 0x63 0x20 0x20 0x20 0x6E t. (c n
0x69 0x6C 0x29 0x29 0x20 0x3B 0x3B 0x20 0x63 0x75 0x72 0x72 0x65 0x6E 0x74 0x20 il)) ;; current
0x63 0x68 0x61 0x72 0x61 0x63 0x74 0x65 0x72 0x0A 0x0A 0x20 0x20 0x20 0x20 0x3B character.. ;
0x3B 0x20 0x46 0x6F 0x72 0x20 0x65 0x61 0x63 0x68 0x20 0x62 0x79 0x74 0x65 0x0A ; For each byte.
0x20 0x20 0x20 0x20 0x28 0x77 0x68 0x69 0x6C 0x65 0x20 0x20 0x28 0x3C 0x20 0x69 (while (< i
0x20 0x6C 0x65 0x6E 0x29 0x0A 0x20 0x20 0x20 0x20 0x20 0x20 0x28 0x73 0x65 0x74 len). (set
0x21 0x20 0x63 0x20 0x28 0x73 0x74 0x72 0x61 0x74 0x20 0x73 0x74 0x72 0x20 0x69 ! c (strat str i
0x29 0x29 0x0A 0x0A 0x20 0x20 0x20 0x20 0x20 0x20 0x3B 0x3B 0x20 0x68 0x65 0x78 )).. ;; hex
0x20 0x77 0x69 0x6C 0x6C 0x20 0x68 0x61 0x76 0x65 0x20 0x74 0x68 0x65 0x20 0x68 will have the h
0x65 0x78 0x20 0x62 0x79 0x74 0x65 0x73 0x20 0x6F 0x66 0x20 0x74 0x68 0x65 0x20 ex bytes of the
0x63 0x68 0x61 0x72 0x61 0x63 0x74 0x65 0x72 0x73 0x2E 0x0A 0x20 0x20 0x20 0x20 characters..
0x20 0x20 0x28 0x73 0x65 0x74 0x21 0x20 0x68 0x65 0x78 0x20 0x28 0x73 0x74 0x72 (set! hex (str
0x63 0x61 0x74 0x20 0x28 0x73 0x74 0x72 0x63 0x61 0x74 0x20 0x68 0x65 0x78 0x20 cat (strcat hex
0x28 0x64 0x65 0x63 0x32 0x68 0x65 0x78 0x20 0x63 0x29 0x29 0x20 0x22 0x20 0x22 (dec2hex c)) " "
0x29 0x29 0x0A 0x0A 0x20 0x20 0x20 0x20 0x20 0x20 0x3B 0x3B 0x20 0x63 0x68 0x20 )).. ;; ch
0x77 0x69 0x6C 0x6C 0x20 0x68 0x61 0x76 0x65 0x20 0x74 0x68 0x65 0x20 0x63 0x68 will have the ch
0x61 0x72 0x61 0x63 0x74 0x65 0x72 0x20 0x62 0x79 0x74 0x65 0x73 0x2E 0x0A 0x20 aracter bytes..
0x20 0x20 0x20 0x20 0x20 0x3B 0x3B 0x20 0x4E 0x65 0x65 0x64 0x20 0x74 0x6F 0x20 ;; Need to
0x6D 0x61 0x73 0x6B 0x20 0x6F 0x75 0x74 0x20 0x6E 0x6F 0x6E 0x2D 0x70 0x72 0x69 mask out non-pri
0x6E 0x74 0x61 0x62 0x6C 0x65 0x20 0x63 0x68 0x61 0x72 0x61 0x63 0x74 0x65 0x72 ntable character
0x73 0x0A 0x20 0x20 0x20 0x20 0x20 0x20 0x28 0x69 0x66 0x20 0x28 0x61 0x6E 0x64 s. (if (and
0x20 0x28 0x3E 0x3D 0x20 0x63 0x20 0x33 0x32 0x29 0x20 0x28 0x3C 0x3D 0x20 0x63 (>= c 32) (<= c
0x20 0x31 0x32 0x37 0x29 0x29 0x0A 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 127)).
0x20 0x28 0x73 0x65 0x74 0x21 0x20 0x63 0x68 0x20 0x28 0x73 0x74 0x72 0x63 0x61 (set! ch (strca
0x74 0x20 0x63 0x68 0x20 0x28 0x73 0x74 0x72 0x69 0x6E 0x67 0x20 0x28 0x63 0x68 t ch (string (ch
0x72 0x20 0x63 0x29 0x29 0x29 0x29 0x0A 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 r c)))).
0x28 0x73 0x65 0x74 0x21 0x20 0x63 0x68 0x20 0x28 0x73 0x74 0x72 0x63 0x61 0x74 (set! ch (strcat
0x20 0x63 0x68 0x20 0x22 0x2E 0x22 0x29 0x29 0x29 0x0A 0x0A 0x20 0x20 0x20 0x20 ch ".")))..
0x20 0x20 0x3B 0x3B 0x20 0x65 0x6E 0x64 0x20 0x6F 0x66 0x20 0x67 0x72 0x6F 0x75 ;; end of grou
0x70 0x3F 0x20 0x20 0x54 0x68 0x65 0x6E 0x20 0x70 0x72 0x69 0x6E 0x74 0x20 0x61 p? Then print a
0x6E 0x64 0x20 0x72 0x65 0x73 0x65 0x74 0x2E 0x0A 0x20 0x20 0x20 0x20 0x20 0x20 nd reset..
0x28 0x77 0x68 0x65 0x6E 0x20 0x28 0x3D 0x20 0x28 0x25 0x20 0x69 0x20 0x31 0x36 (when (= (% i 16
0x29 0x20 0x31 0x35 0x29 0x0A 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x28 0x70 ) 15). (p
0x72 0x69 0x6E 0x74 0x20 0x68 0x65 0x78 0x29 0x0A 0x20 0x20 0x20 0x20 0x20 0x20 rint hex).
0x20 0x20 0x28 0x70 0x72 0x69 0x6E 0x74 0x20 0x22 0x20 0x22 0x29 0x0A 0x20 0x20 (print " ").
0x20 0x20 0x20 0x20 0x20 0x20 0x28 0x70 0x72 0x69 0x6E 0x74 0x20 0x63 0x68 0x29 (print ch)
0x0A 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x28 0x70 0x72 0x69 0x6E 0x74 0x20 . (print
0x22 0x5C 0x6E 0x22 0x29 0x0A 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x28 0x73 "\n"). (s
0x65 0x74 0x21 0x20 0x63 0x68 0x20 0x22 0x22 0x29 0x0A 0x20 0x20 0x20 0x20 0x20 et! ch "").
0x20 0x20 0x20 0x28 0x73 0x65 0x74 0x21 0x20 0x68 0x65 0x78 0x20 0x22 0x22 0x29 (set! hex "")
0x29 0x0A 0x0A 0x20 0x20 0x20 0x20 0x20 0x20 0x3B 0x3B 0x20 0x4E 0x65 0x78 0x74 ).. ;; Next
0x20 0x6C 0x6F 0x6F 0x70 0x0A 0x20 0x20 0x20 0x20 0x20 0x20 0x28 0x73 0x65 0x74 loop. (set
0x21 0x20 0x69 0x20 0x28 0x2B 0x20 0x31 0x20 0x69 0x29 0x29 0x29 0x0A 0x0A 0x20 ! i (+ 1 i)))..
0x20 0x20 0x20 0x3B 0x3B 0x20 0x50 0x72 0x69 0x6E 0x74 0x20 0x74 0x68 0x65 0x20 ;; Print the
0x72 0x65 0x6D 0x61 0x69 0x6E 0x64 0x65 0x72 0x20 0x6F 0x66 0x20 0x61 0x6E 0x79 remainder of any
0x20 0x63 0x6F 0x6E 0x74 0x65 0x6E 0x74 0x73 0x2C 0x20 0x66 0x6F 0x72 0x20 0x74 contents, for t
0x68 0x65 0x20 0x63 0x61 0x73 0x65 0x20 0x77 0x68 0x65 0x6E 0x0A 0x20 0x20 0x20 he case when.
0x20 0x3B 0x3B 0x20 0x74 0x68 0x65 0x20 0x6F 0x75 0x74 0x70 0x75 0x74 0x20 0x64 ;; the output d
0x69 0x64 0x6E 0x27 0x74 0x20 0x65 0x6E 0x64 0x20 0x75 0x70 0x20 0x61 0x6C 0x69 idn't end up ali
0x67 0x6E 0x65 0x64 0x2E 0x0A 0x20 0x20 0x20 0x20 0x28 0x77 0x68 0x69 0x6C 0x65 gned.. (while
0x20 0x28 0x3C 0x3D 0x20 0x28 0x73 0x74 0x72 0x6C 0x65 0x6E 0x20 0x68 0x65 0x78 (<= (strlen hex
0x29 0x20 0x28 0x2A 0x20 0x35 0x20 0x31 0x36 0x29 0x29 0x20 0x20 0x3B 0x3B 0x20 ) (* 5 16)) ;;
0x22 0x30 0x78 0x30 0x30 0x20 0x22 0x20 0x3D 0x20 0x35 0x20 0x62 0x79 0x74 0x65 "0x00 " = 5 byte
0x73 0x0A 0x20 0x20 0x20 0x20 0x20 0x20 0x28 0x73 0x65 0x74 0x21 0x20 0x68 0x65 s. (set! he
0x78 0x20 0x28 0x73 0x74 0x72 0x63 0x61 0x74 0x20 0x68 0x65 0x78 0x20 0x22 0x20 x (strcat hex "
0x22 0x29 0x29 0x29 0x0A 0x0A 0x20 0x20 0x20 0x20 0x28 0x70 0x72 0x69 0x6E 0x74 "))).. (print
0x20 0x68 0x65 0x78 0x29 0x0A 0x20 0x20 0x20 0x20 0x28 0x70 0x72 0x69 0x6E 0x74 hex). (print
0x20 0x22 0x22 0x29 0x0A 0x20 0x20 0x20 0x20 0x28 0x70 0x72 0x69 0x6E 0x74 0x20 ""). (print
0x63 0x68 0x29 0x0A 0x20 0x20 0x20 0x20 0x28 0x70 0x72 0x69 0x6E 0x74 0x20 0x22 ch). (print "
0x5C 0x6E 0x22 0x29 0x0A 0x20 0x20 0x20 0x20 0x28 0x6E 0x65 0x77 0x6C 0x69 0x6E \n"). (newlin
0x65 0x29 0x29 0x29 0x0A 0x0A 0x28 0x64 0x65 0x66 0x75 0x6E 0x20 0x64 0x75 0x6D e)))..(defun dum
0x70 0x5F 0x66 0x69 0x6C 0x65 0x20 0x28 0x6E 0x61 0x6D 0x65 0x29 0x0A 0x20 0x20 p_file (name).
0x28 0x6C 0x65 0x74 0x20 0x28 0x28 0x68 0x61 0x6E 0x64 0x6C 0x65 0x20 0x20 0x28 (let ((handle (
0x66 0x6F 0x70 0x65 0x6E 0x20 0x6E 0x61 0x6D 0x65 0x20 0x22 0x72 0x22 0x29 0x29 fopen name "r"))
0x20 0x3B 0x20 0x6F 0x70 0x65 0x6E 0x0A 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 ; open.
0x28 0x64 0x61 0x74 0x61 0x20 0x20 0x20 0x20 0x28 0x66 0x72 0x65 0x61 0x64 0x20 (data (fread
0x68 0x61 0x6E 0x64 0x6C 0x65 0x29 0x29 0x20 0x20 0x20 0x3B 0x20 0x72 0x65 0x61 handle)) ; rea
0x64 0x0A 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x28 0x64 0x69 0x73 0x63 0x61 d. (disca
0x72 0x64 0x20 0x28 0x66 0x63 0x6C 0x6F 0x73 0x65 0x20 0x68 0x61 0x6E 0x64 0x6C rd (fclose handl
0x65 0x29 0x29 0x29 0x20 0x3B 0x20 0x63 0x6C 0x6F 0x73 0x65 0x0A 0x20 0x20 0x20 e))) ; close.
0x20 0x28 0x69 0x66 0x20 0x64 0x61 0x74 0x61 0x0A 0x20 0x20 0x20 0x20 0x20 0x20 (if data.
0x20 0x20 0x28 0x64 0x75 0x6D 0x70 0x20 0x64 0x61 0x74 0x61 0x29 0x0A 0x20 0x20 (dump data).
0x20 0x20 0x20 0x20 0x28 0x64 0x6F 0x0A 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x28 (do. (
0x70 0x72 0x69 0x6E 0x74 0x6C 0x6E 0x20 0x22 0x45 0x72 0x72 0x6F 0x72 0x20 0x72 println "Error r
0x65 0x61 0x64 0x69 0x6E 0x67 0x20 0x22 0x20 0x6E 0x61 0x6D 0x65 0x29 0x0A 0x20 eading " name).
0x20 0x20 0x20 0x20 0x20 0x20 0x28 0x65 0x78 0x69 0x74 0x20 0x31 0x29 0x29 0x29 (exit 1)))
0x29 0x29 0x0A 0x0A 0x0A 0x28 0x64 0x65 0x66 0x75 0x6E 0x20 0x68 0x65 0x6C 0x70 ))...(defun help
0x20 0x28 0x29 0x0A 0x20 0x20 0x28 0x70 0x72 0x69 0x6E 0x74 0x6C 0x6E 0x20 0x22 (). (println "
0x55 0x73 0x61 0x67 0x65 0x3A 0x20 0x64 0x75 0x6D 0x70 0x20 0x66 0x69 0x6C 0x65 Usage: dump file
0x31 0x20 0x66 0x69 0x6C 0x65 0x32 0x20 0x2E 0x2E 0x20 0x66 0x69 0x6C 0x65 0x4E 1 file2 .. fileN
0x22 0x29 0x0A 0x20 0x20 0x28 0x65 0x78 0x69 0x74 0x20 0x30 0x29 0x29 0x0A 0x0A "). (exit 0))..
0x0A 0x28 0x64 0x65 0x66 0x75 0x6E 0x20 0x6D 0x61 0x69 0x6E 0x20 0x28 0x61 0x72 .(defun main (ar
0x67 0x73 0x29 0x0A 0x0A 0x20 0x20 0x3B 0x3B 0x20 0x70 0x61 0x72 0x73 0x65 0x20 gs).. ;; parse
0x61 0x72 0x67 0x75 0x6D 0x65 0x6E 0x74 0x73 0x0A 0x20 0x20 0x28 0x6C 0x65 0x74 arguments. (let
0x20 0x28 0x28 0x70 0x61 0x72 0x73 0x65 0x72 0x20 0x28 0x61 0x72 0x67 0x2D 0x70 ((parser (arg-p
0x61 0x72 0x73 0x65 0x72 0x3A 0x6E 0x65 0x77 0x20 0x28 0x63 0x64 0x72 0x20 0x61 arser:new (cdr a
0x72 0x67 0x73 0x29 0x29 0x29 0x0A 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x28 rgs))). (
0x66 0x69 0x6C 0x65 0x73 0x20 0x20 0x28 0x70 0x61 0x72 0x73 0x65 0x72 0x20 0x3A files (parser :
0x66 0x69 0x6C 0x65 0x73 0x29 0x29 0x29 0x0A 0x0A 0x20 0x20 0x20 0x20 0x3B 0x3B files))).. ;;
0x20 0x70 0x72 0x6F 0x63 0x65 0x73 0x73 0x20 0x66 0x6C 0x61 0x67 0x73 0x2E 0x0A process flags..
0x20 0x20 0x20 0x20 0x28 0x6D 0x61 0x70 0x20 0x28 0x6C 0x61 0x6D 0x62 0x64 0x61 (map (lambda
0x20 0x28 0x61 0x72 0x67 0x29 0x0A 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 (arg).
0x20 0x20 0x28 0x63 0x6F 0x6E 0x64 0x0A 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 (cond.
0x20 0x20 0x20 0x20 0x20 0x28 0x28 0x6F 0x72 0x20 0x28 0x3D 0x20 0x61 0x72 0x67 ((or (= arg
0x20 0x22 0x2D 0x2D 0x68 0x65 0x6C 0x70 0x22 0x29 0x20 0x28 0x3D 0x20 0x61 0x72 "--help") (= ar
0x67 0x20 0x22 0x2D 0x68 0x65 0x6C 0x70 0x22 0x29 0x29 0x20 0x28 0x68 0x65 0x6C g "-help")) (hel
0x70 0x29 0x29 0x0A 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 p)).
0x20 0x28 0x28 0x6F 0x72 0x20 0x28 0x3D 0x20 0x61 0x72 0x67 0x20 0x22 0x2D 0x68 ((or (= arg "-h
0x22 0x29 0x20 0x28 0x3D 0x20 0x61 0x72 0x67 0x20 0x22 0x2D 0x3F 0x22 0x29 0x29 ") (= arg "-?"))
0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x28 0x68 0x65 0x6C 0x70 0x29 0x29 0x0A (help)).
0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x28 0x74 0x20 (t
0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20
0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20 0x20
0x20 0x20 0x20 0x20 0x28 0x64 0x6F 0x20 0x28 0x70 0x72 0x69 0x6E 0x74 0x6C 0x6E (do (println
0x20 0x22 0x55 0x6E 0x6B 0x6E 0x6F 0x77 0x6E 0x20 0x61 0x72 0x67 0x75 0x6D 0x65 "Unknown argume
0x6E 0x74 0x3A 0x20 0x22 0x20 0x61 0x72 0x67 0x20 0x22 0x5C 0x6E 0x22 0x29 0x20 nt: " arg "\n")
0x28 0x68 0x65 0x6C 0x70 0x29 0x29 0x29 0x29 0x29 0x0A 0x20 0x20 0x20 0x20 0x20 (help))))).
0x20 0x20 0x20 0x20 0x28 0x70 0x61 0x72 0x73 0x65 0x72 0x20 0x3A 0x66 0x6C 0x61 (parser :fla
0x67 0x73 0x29 0x29 0x0A 0x0A 0x20 0x20 0x20 0x20 0x3B 0x3B 0x20 0x49 0x66 0x20 gs)).. ;; If
0x77 0x65 0x20 0x68 0x61 0x76 0x65 0x20 0x66 0x69 0x6C 0x65 0x73 0x20 0x70 0x72 we have files pr
0x6F 0x63 0x65 0x73 0x73 0x20 0x74 0x68 0x65 0x6D 0x2C 0x20 0x6F 0x74 0x68 0x65 ocess them, othe
0x72 0x77 0x69 0x73 0x65 0x20 0x73 0x68 0x6F 0x77 0x20 0x68 0x65 0x6C 0x70 0x0A rwise show help.
0x20 0x20 0x20 0x20 0x28 0x69 0x66 0x20 0x28 0x3E 0x20 0x28 0x6C 0x65 0x6E 0x67 (if (> (leng
0x74 0x68 0x20 0x66 0x69 0x6C 0x65 0x73 0x29 0x20 0x30 0x29 0x0A 0x20 0x20 0x20 th files) 0).
0x20 0x20 0x20 0x20 0x20 0x28 0x6D 0x61 0x70 0x20 0x28 0x6C 0x61 0x6D 0x62 0x64 (map (lambd
0x61 0x20 0x28 0x66 0x69 0x6C 0x65 0x29 0x20 0x28 0x64 0x75 0x6D 0x70 0x5F 0x66 a (file) (dump_f
0x69 0x6C 0x65 0x20 0x66 0x69 0x6C 0x65 0x29 0x29 0x20 0x66 0x69 0x6C 0x65 0x73 ile file)) files
0x29 0x0A 0x20 0x20 0x20 0x20 0x20 0x20 0x28 0x68 0x65 0x6C 0x70 0x29 0x29 0x29 ). (help)))
0x29 0x0A 0x00 0x00 0x00 0x00 0x00 0x00 ).......