FM / scripts

/usr/share/guile/2.0/scripts

Name	Size	Mode	Actions
api-diff.scm	7670	0644	edit dl rm
autofrisk.scm	7857	0644	edit dl rm
compile.scm	7682	0644	edit dl rm
disassemble.scm	1423	0644	edit dl rm
display-commentary.scm	2450	0644	edit dl rm
doc-snarf.scm	15194	0644	edit dl rm
frisk.scm	11710	0644	edit dl rm
generate-autoload.scm	5879	0644	edit dl rm
help.scm	6428	0644	edit dl rm
lint.scm	9848	0644	edit dl rm
list.scm	3230	0644	edit dl rm
punify.scm	2949	0644	edit dl rm
read-rfc822.scm	5083	0644	edit dl rm
read-scheme-source.scm	11957	0644	edit dl rm
read-text-outline.scm	10663	0644	edit dl rm
scan-api.scm	8283	0644	edit dl rm
snarf-check-and-output-texi.scm	10172	0644	edit dl rm
snarf-guile-m4-docs.scm	2926	0644	edit dl rm
summarize-guile-TODO.scm	8452	0644	edit dl rm
use2dot.scm	4019	0644	edit dl rm

Edit: /usr/share/guile/2.0/scripts/disassemble.scm (1423B)

;;; Disassemble --- Disassemble .go files into something human-readable

;; Copyright 2005, 2008, 2009, 2011, 2014 Free Software Foundation, Inc.
;;
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public License
;; as published by the Free Software Foundation; either version 3, or
;; (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;; Lesser General Public License for more details.
;;
;; You should have received a copy of the GNU Lesser General Public
;; License along with this software; see the file COPYING.LESSER.  If
;; not, write to the Free Software Foundation, Inc., 51 Franklin
;; Street, Fifth Floor, Boston, MA 02110-1301 USA

;;; Author: Ludovic Courtès <ludo@gnu.org>
;;; Author: Andy Wingo <wingo@pobox.com>

;;; Commentary:

;; Usage: disassemble [ARGS]

;;; Code:

(define-module (scripts disassemble)
  #:use-module (system vm objcode)
  #:use-module ((language assembly disassemble) #:prefix asm:)
  #:export (disassemble))

(define %summary "Disassemble a compiled .go file.")

(define (disassemble . files)
  (for-each (lambda (file)
              (asm:disassemble (load-objcode file)))
            files))

(define main disassemble)

;;; Disassemble --- Disassemble .go files into something human-readable ;; Copyright 2005, 2008, 2009, 2011, 2014 Free Software Foundation, Inc. ;; ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public License ;; as published by the Free Software Foundation; either version 3, or ;; (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; Lesser General Public License for more details. ;; ;; You should have received a copy of the GNU Lesser General Public ;; License along with this software; see the file COPYING.LESSER. If ;; not, write to the Free Software Foundation, Inc., 51 Franklin ;; Street, Fifth Floor, Boston, MA 02110-1301 USA ;;; Author: Ludovic Courtès ;;; Author: Andy Wingo ;;; Commentary: ;; Usage: disassemble [ARGS] ;;; Code: (define-module (scripts disassemble) #:use-module (system vm objcode) #:use-module ((language assembly disassemble) #:prefix asm:) #:export (disassemble)) (define %summary "Disassemble a compiled .go file.") (define (disassemble . files) (for-each (lambda (file) (asm:disassemble (load-objcode file))) files)) (define main disassemble)