3 exec ${GUILE-guile} -e '(@ (scripts disassemble) disassemble)' -s $0 "$@"
5 ;;; Disassemble
--- Disassemble .go files into something human-readable
7 ;; Copyright
2005,2008 Free Software Foundation
, Inc.
9 ;; This program is free software
; you can redistribute it and
/or
10 ;; modify it under the terms of the GNU General Public License as
11 ;; published by the Free Software Foundation
; either version
2, or
12 ;; (at your option
) any later version.
14 ;; This program is distributed
in the hope that it will be useful
,
15 ;; but WITHOUT ANY WARRANTY
; without even the implied warranty of
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 ;; General Public License
for more details.
19 ;; You should have received a copy of the GNU General Public License
20 ;; along with this software
; see the
file COPYING. If not
, write to
21 ;; the Free Software Foundation
, Inc.
, 51 Franklin Street
, Fifth Floor
,
22 ;; Boston
, MA
02110-1301 USA
24 ;;; Author
: Ludovic Courtès
<ludovic.courtes@laas.fr
>
25 ;;; Author
: Andy Wingo
<wingo@pobox.com
>
29 ;; Usage
: disassemble
[ARGS
]
33 (define-module
(scripts disassemble
)
34 #:use-module (system vm objcode)
35 #:use-module (language assembly disassemble)
36 #:export (disassemble))
38 (define
(disassemble args
)
39 (for-each
(lambda
(file)
40 (disassemble
(load-objcode
file)))