Parent Directory | Revision Log | Patch
revision 1.4 by ttn, Wed May 8 20:19:22 2002 UTC | revision 1.5 by ttn, Thu May 9 16:27:40 2002 UTC | |
---|---|---|
# | Line 95 exec ${GUILE-guile} -l $0 -c "(apply $ma | Line 95 exec ${GUILE-guile} -l $0 -c "(apply $ma |
95 | (hashq-set! ht x #t))))) | (hashq-set! ht x #t))))) |
96 | ||
97 | (define (scan-C! ht sofile) | (define (scan-C! ht sofile) |
98 | (scan "^........ ([B-TV-Z]) (.+)$" | (scan "^[0-9a-fA-F]+ ([B-TV-Z]) (.+)$" |
99 | (format #f "nm ~A" sofile) | (format #f "nm ~A" sofile) |
100 | (lambda (m) | (lambda (m) |
101 | (let ((x (string->symbol (match:substring m 2)))) | (let ((x (string->symbol (match:substring m 2)))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |