80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
(portprint dotport "\""usingname"\" -> \""sname"\""))
(moduledec (_ modname)
(print "Found module "modname)
(hash-table-set! moduledata modname sname))
(importuse (_ importname)
(print "Found import "importname)
(hh-push incldata importname sname))
(else #f))
(loop (read-line)))))))))
files)
(hash-table-for-each
incldata
(lambda (impname snames)
(for-each
|
>
|
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
(portprint dotport "\""usingname"\" -> \""sname"\""))
(moduledec (_ modname)
(print "Found module "modname)
(hash-table-set! moduledata modname sname))
(importuse (_ importname)
(print "Found import "importname)
(hh-push incldata importname sname))
(mofiles-adjust->dot-o usingname)))
(else #f))
(loop (read-line)))))))))
files)
(hash-table-for-each
incldata
(lambda (impname snames)
(for-each
|