[MIT-Scheme-devel] Symmetric MultiProcessing

[Matt Birkholz]

The following short(?) script might be useful(?) for finding references
to the 38(!) global bindings that have changed.

;;; Set working directory to your build directory, e.g.:
(cd "linux-i386/src/6001/")

;;; The build directory should have cref/generate-constructors or
;;; somesuch run in it, e.g.:
(load "6001.sf")

;;; Go to the (cross-reference) package, e.g.:
(load-option 'cref)
(ge '(cross-reference))

;;; Receive list of references to "fluidized" bindings -- those now
;;; assigned fluid objects:

(let* ((pkg-filename (pathname-name (directory-pathname-as-file
                                     (working-directory-pathname))))
       (os-type microcode-id/operating-system)
       (pmodel (let ((m (read-package-model pkg-filename os-type)))
                 (read-file-analyses! m os-type)
                 m))
       (the-fluidized '(*default-pathname-defaults*
*parser-associate-positions?* *parser-atom-delimiters*
*parser-canonicalize-symbols?* *parser-constituents*
*parser-enable-file-attributes-parsing?* *parser-keyword-style*
*parser-radix* *parser-table* *pp-arity-dispatched-procedure-style*
*pp-auto-highlighter* *pp-avoid-circularity?* *pp-default-as-code?*
*pp-forced-x-size* *pp-lists-as-tables?* *pp-named-lambda->define?*
*pp-no-highlights?* *pp-primitives-by-name* *pp-save-vertical-space?*
*pp-uninterned-symbols-by-name* *random-state*
*unparse-abbreviate-quotations?* *unparse-compound-procedure-names?*
*unparse-primitives-by-name?* *unparse-uninterned-symbols-by-name?*
*unparse-with-datum?* *unparse-with-maximum-readability?*
*unparser-list-breadth-limit* *unparser-list-depth-limit*
*unparser-radix* *unparser-string-length-limit* *unparser-table*
flonum-unparser-cutoff load/loading?  load/suppress-loading-message?
standard-breakpoint-hook standard-error-hook standard-warning-hook))

       (references (append-map!
                    (lambda (p)
                      (delete-matching-items
                       (package/references p)
                       (lambda (r)
                         (not (memq (reference/name r) the-fluidized)))))
                    (pmodel/packages pmodel)))

       (format-references (environment-lookup
                           (->environment '(cross-reference formatter))
                           'format-references))
       (port (current-output-port))
       (indentation "  ")
       (width 79))

  (if (pair? references)
      (format-references port indentation width "Fluidized" #f
                         (sort references reference<?))
      (write-string "No references to fluidized bindings found.\n")))