Re: Getting all symbols in a Scheme file as a list

[Matt Wette]

On 2/4/24 11:50 AM, Christina O'Donnell wrote:
> I'm trying to write a Guile script to trace symbol definition and 
> reference
> between modules in a large Guile repo (GNU/Guix), for the purposes of 
> large
> scale refactoring.

> ? Seems a little bit baroque to me, I'd expect a simpler way of doing 
> it. Any
> libraries anyone knows of?

Maybe use something from (system vm elf ) on the .go files?

$ cd .../ice-9/
$ nm safe.go
00000000000002ac r
0000000000000248 r make-safe-module
00000000000001c4 r safe-environment


I use guile elf to extract info from C-sourced files, but maybe some 
tidbits may help:

  (let* ((bv (call-with-input-file filename
               (lambda (port)
                 (get-bytevector-n port (and=> (stat port) stat:size)))))
         (elf (parse-elf bv))
   (pretty-print (elf-named-syms elf))

(define (elf-named-syms elf)
  (define (less a b) (< (elf-symbol-value (cdr a)) (elf-symbol-value 
(cdr b))))
  (let* ((.symtab (elf-section-by-name elf ".symtab"))
         (strtab (elf-section elf (elf-section-link .symtab)))
         (tbl-len (elf-symbol-table-len .symtab)))
    (let loop ((symd '()) (ix 0))
      (if (< ix tbl-len)
          (let* ((sym (elf-symbol-table-ref elf .symtab ix strtab))
                 (name (elf-symbol-name sym))
                 (nlen (string-length name)))
            (loop (if (positive? nlen) (acons name sym symd) symd) (1+ 
ix)))
          (sort symd less)))))