/[guile]/guile/guile-core/scripts/scan-api
ViewVC logotype

Diff of /guile/guile-core/scripts/scan-api

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))))

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26