Warning: this is an htmlized version!
The original is across this link,
and the conversion rules are here.
#######
#
# E-scripts on Scheme.
#
# Note 1: use the eev command (defined in eev.el) and the
# ee alias (in my .zshrc) to execute parts of this file.
# Executing this file as a whole makes no sense.
#
# Note 2: be VERY careful and make sure you understand what
# you're doing.
#
# Note 3: If you use a shell other than zsh things like |&
# and the for loops may not work.
#
# Note 4: I always run as root.
#
# Note 5: some parts are too old and don't work anymore. Some
# never worked.
#
# Note 6: the definitions for the find-xxxfile commands are on my
# .emacs.
#
# Note 7: if you see a strange command check my .zshrc -- it may
# be defined there as a function or an alias.
#
# Note 8: the sections without dates are always older than the
# sections with dates.
#
# This file is at <http://angg.twu.net/e/scheme.e>
#           or at <http://angg.twu.net/e/scheme.e.html>.
#        See also <http://angg.twu.net/emacs.html>,
#                 <http://angg.twu.net/.emacs[.html]>,
#                 <http://angg.twu.net/.zshrc[.html]>,
#                 <http://angg.twu.net/escripts.html>,
#             and <http://angg.twu.net/>.
#
#######




# «.guile»		(to "guile")
# «.r5rs»		(to "r5rs")
# «.scsh»		(to "scsh")
# «.gauche»		(to "gauche")
# «.sicp-in-info»	(to "sicp-in-info")
# «.guile-1.8»		(to "guile-1.8")
# «.mit-scheme»		(to "mit-scheme")
# «.tinyscheme»		(to "tinyscheme")
# «.racket»		(to "racket")
# «.geiser»		(to "geiser")



# (find-zsh "installeddebs | sort | grep guile")
# (find-zsh "availabledebs | sort | grep guile")





#####
#
# guile-1.6
# 2005feb21
#
#####

# «guile»  (to ".guile")
# (find-status   "guile-1.6")
# (find-vldifile "guile-1.6.list")
# (find-udfile   "guile-1.6/")
# (find-status   "guile-1.6-doc")
# (find-vldifile "guile-1.6-doc.list")
# (find-udfile   "guile-1.6-doc/")

# (find-node "(guile)Top")
# (find-node "(guile)Guile Scripts")
# (find-node "(guile)Comments")
# (find-node "(guile)Concept Index")
# (find-node "(guile-tut)")

# (find-man "guile")
# (find-node "(guile)Top Level" "Scheme Syntax: define name value")

#*
cat > /tmp/ee.scm <<'%%%'
(display "Hello, wOrld!")
(newline)
%%%

#*
# (eechannel-xterm "A")
guile
(load "/tmp/ee.scm")
(define ee (lambda () (load "/tmp/ee.scm")))
(define (ee) (load "/tmp/ee.scm"))
ee
(ee)

#*

# https://github.com/NalaGinrut/guile-lua-rebirth






####
#
# guile1.4 (woody)
# 2004mar25
#
####

# (find-status "guile1.4")
# (find-vldifile "guile1.4.list")
# (find-fline "/usr/doc/guile1.4/")
# (find-fline "/usr/doc/guile1.4/examples/")
# (find-fline "/usr/doc/guile1.4/examples/emacs-interaction.el.gz")

# (find-efile "cmuscheme.el")

# (find-status "guile1.4-doc")
# (find-vldifile "guile1.4-doc.list")
# (find-fline "/usr/doc/guile1.4-doc/")

# (find-enode "External Lisp")
# (find-enode "Executing Lisp")





#####
#
# guile1.3 (potato)
# 2000jun04
#
#####

# (find-status "guile1.3")
# (find-vldifile "guile1.3.list")
# (find-fline "/usr/doc/guile1.3/")
# (find-fline "/usr/doc/guile1.3/examples/")
# (find-fline "/usr/bin/guile-wm-menu-launch")

# (find-status "libguile6")
# (find-vldifile "libguile6.list")
# (find-fline "/usr/doc/libguile6/")

# (find-status "libguile6-dev")
# (find-vldifile "libguile6-dev.list")
# (find-fline "/usr/doc/libguile6-dev/")
# (find-fline "/usr/doc/libguile6-dev/examples/")
# (find-fline "/usr/doc/libguile6-dev/examples/czscm.el.gz")
# (find-fline "/usr/include/libguile/")
# (find-fline "/usr/include/libguile.h")
# (find-fline "/usr/include/guile/")
# (find-fline "/usr/include/guile-readline/")
# (find-fline "/usr/bin/guile-config")
# (find-fline "/usr/bin/guile1.3-snarf")
# (find-node "(data-rep)Top")

libguile6-slib






# (code-c-d "ice9" "/usr/share/guile/1.3.4/ice-9/")
# (find-ice9file "")



#####
#
# goops
# 2000jun04
#
#####

# (find-status "libgoops2")
# (find-vldifile "libgoops2.list")
# (find-fline "/usr/doc/libgoops2/")
# (find-fline "/usr/share/guile/oop/goops/")
# (find-fline "/usr/share/guile/oop/goops.scm")

# (find-status "libgoops2-dev")
# (find-vldifile "libgoops2-dev.list")
# (find-fline "/usr/doc/libgoops2-dev/")

# (find-status "goops-doc")
# (find-vldifile "goops-doc.list")
# (find-fline "/usr/doc/goops-doc/")
# (find-node "(goops)Top")







man guile1.2
man guile1.2-snarf


/usr/man/man1/guile1.2.1.gz
/usr/man/man1/guile1.2-snarf.1.gz




Pgrep m/guile/ |& tee ~/o
# (find-fline "~/o")

# (find-vldifile "guile1.3.list")
# (find-vldifile "guile1.3-doc.list")
# (find-vldifile "libguile4.list")
# (find-vldifile "libguile4-dev.list")
# (find-vldifile "slib.list")

# (find-node "(guile-tut)Top")
# (find-node "(guile-ref)Top")
# (find-node "(slib)Top")

# (find-fline "/usr/share/guile/1.3/ice-9/")
# (find-fline "/usr/share/guile/1.3/ice-9/emacs.scm")
# (find-fline "/usr/doc/libguile4/")
# (find-fline "/usr/doc/guile1.3-doc/")
# (find-fline "/usr/doc/guile1.3/examples/")
# (find-fline "/usr/doc/guile1.3/examples/emacs-interaction.README.gz")
# (find-fline "/usr/share/slib/")
# (find-fline "/usr/doc/slib/")



apti guile1.3 guile1.3-doc

guile1.3
guile1.3-doc
libguile4
libguile4-dev
slib

scwm


apti 





#####
#
# r5rs - "Revised^5 Report on the Algorithmic Language Scheme"
# 2000jun16 / 2013jan06
#
#####

# «r5rs» (to ".r5rs")
# (find-status   "r5rs-doc")
# (find-vldifile "r5rs-doc.list")
# (find-udfile   "r5rs-doc/")

;; (find-fline        "/usr/share/doc/r5rs-doc/")
(code-c-d      "r5rs" "/usr/share/doc/r5rs-doc/r5rs/" "r5rs")
(code-xpdf     "r5rs" "/usr/share/doc/r5rs-doc/r5rs.pdf")
(code-pdf-text "r5rs" "/usr/share/doc/r5rs-doc/r5rs.pdf")
;; (find-r5rspage)
;; (find-r5rstext)

# (find-r5rsnode "Top")
# (find-r5rsnode "Control features")
# (find-r5rsnode "Symbols")
# (find-r5rsnode "Index")
# (find-r5rsnode "Index" "let")
# (find-r5rsnode "Index" "let:")
# (find-r5rsnode "Index" "call-with-current-continuation")

# (find-r5rsfile "")
# (find-r5rsw3m "index.html")




# (code-c-d "schemerep" "$S/ftp/ftp.cs.indiana.edu/pub/scheme-repository/")
# (find-schemerepfile "doc/standards/r5rs.txi")
# (find-schemerepfile "doc/misc/scheme_1.faq")
# (find-schemerepfile "doc/misc/scheme_2.faq")

# (find-shttpfile "www.neci.nj.nec.com/homepages/kelsey/")
# (find-shttpw3 "www.cs.indiana.edu/scheme-repository/doc.standards.html")
#*
xdvi $S/http/www.neci.nj.nec.com/homepages/kelsey/r5rs.dvi &

#*
cd /tmp/
cp /snarf/http/www.neci.nj.nec.com/homepages/kelsey/r5rs.dvi .
make -f ~/LATEX/Makefile r5rs.pdf

#*




#####
#
# scsh - the Scheme shell
# 2004sep13
#
#####

# «scsh»  (to ".scsh")
# (find-angg ".emacs" "scsh")
# (find-status   "scsh")
# (find-vldifile "scsh.list")
# (find-udfile   "scsh/")
# (find-status   "scsh-doc")
# (find-vldifile "scsh-doc.list")
# (find-udfile   "scsh-doc/")
# (find-status   "scsh-0.6-doc")
# (find-vldifile "scsh-0.6-doc.list")
# (find-udfile   "scsh-0.6-doc/")
# (find-udfile "scsh-0.6-doc/cheat.txt.gz")
# (find-udfile "scsh-0.6-doc/s48-manual/html/")
# (find-fline "/usr/lib/scsh/scsh/")
# (find-fline "/usr/lib/scsh/scsh/awk.scm")

# (find-status   "scsh-doc")
# (find-vldifile "scsh-doc.list")
# (find-udfile   "scsh-doc/")
# (find-dvipage (ee-udfile "scsh-doc/scsh-manual/man.dvi.gz") 1)
# (find-dvipage (ee-udfile "scsh-doc/s48-manual/manual.dvi.gz") 1)
# (find-dvipage (ee-udfile "scsh-doc/scsh-paper/scsh-paper.dvi.gz") 1)
# (find-pspage  (ee-udfile "scsh-doc/meeting.ps.gz") 1)

# (find-status "libelfg0")
# (find-vldifile "libelfg0.list")
# (find-fline "/usr/doc/libelfg0/")

* (eepitch-scsh)
* (eepitch-kill)
* (eepitch-scsh)
,?
(run (ls /tmp))
(exit)

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
rm -Rv /tmp/scshdoc/
mkdir  /tmp/scshdoc/
cd     /tmp/scshdoc/
cp -v $(find /usr/share/doc/scsh-0.6-doc/ -type f | grep -v html) \
  /tmp/scshdoc/
gunzip -v /tmp/scshdoc/*.gz
# (find-fline "/tmp/scshdoc/")



(defun aaronl-run-scheme ()
  (interactive)
  ;; create new frame, give it focus
  (focus-frame (new-frame))
  ;; load inferior scheme mode
  (ignerrs (require 'cmuscheme))
  ;; run scheme
  (run-scheme "scm -p1")
  ;; make sure there's only one window
  (delete-other-windows))



(setq scheme-program-name "/usr/bin/guile")
(run-scheme)

(run-scheme "/usr/bin/guile")
# (find-etag "run-scheme") 




#####
#
# gauche
# 2007mar16
#
#####

# «gauche»  (to ".gauche")
# (find-status   "gauche")
# (find-vldifile "gauche.list")
# (find-udfile   "gauche/")
# (find-status   "gauche-dev")
# (find-vldifile "gauche-dev.list")
# (find-udfile   "gauche-dev/")
# (find-status   "gauche-doc")
# (find-vldifile "gauche-doc.list")
# (find-udfile   "gauche-doc/")
# (find-node "(gauche-refe)")

# Old (2007):
# http://prdownloads.sourceforge.net/gauche/Gauche-0.8.9.tgz
#*
rm -Rv ~/usrc/Gauche-0.8.9/
tar -C ~/usrc/ -xvzf \
  $S/http/prdownloads.sourceforge.net/gauche/Gauche-0.8.9.tgz
cd     ~/usrc/Gauche-0.8.9/

./configure --enable-multibyte=no  |& tee oc
make                               |& tee om
make test                          |& tee omt

#*
# (code-c-d "gauche" "~/usrc/Gauche-0.8.9/")
# (find-gauchefile "")
# (find-gauchefile "INSTALL")

(ee-gauchefile "doc/gauche-refe")






#####
#
# sicp in info
# 2008nov04
#
#####

# «sicp-in-info»  (to ".sicp-in-info")
# http://www.neilvandyke.org/sicp-texi/
# http://www.neilvandyke.org/sicp-texi/sicp.texi.gz

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
cd ~/info/
rm -v sicp*
zcat $S/http/www.neilvandyke.org/sicp-texi/sicp.texi.gz > sicp.texi
makeinfo sicp.texi
ls -l

# (find-node "(sicp)Top")
# (find-node "(sicp)1-1" "The Elements of Programming")




#####
#
# guile-1.8 (etch)
# 2009jan19
#
#####

# «guile-1.8»  (to ".guile-1.8")
# (find-angg ".emacs" "guile")
% (find-es "lilypond" "repl")
# (find-es "lilypond" "lilypond-etch")
# (find-zsh "installeddebs | sort | grep guile")
# (find-zsh "availabledebs | sort | grep guile")

# (find-status   "guile-1.8")
# (find-vldifile "guile-1.8.list")
# (find-udfile   "guile-1.8/")
# (find-status   "guile-1.8-doc")
# (find-vldifile "guile-1.8-doc.list")
# (find-udfile   "guile-1.8-doc/")
# (find-status   "guile-1.8-doc-non-dfsg")
# (find-vldifile "guile-1.8-doc-non-dfsg.list")
# (find-udfile   "guile-1.8-doc-non-dfsg/")
# (find-status   "guile-1.8-libs")
# (find-vldifile "guile-1.8-libs.list")
# (find-udfile   "guile-1.8-libs/")
# (find-fline "/usr/share/guile/1.8/lang/elisp/")

(code-c-d "guile"    "/usr/share/guile/1.8/ice-9/" "guile-1.8")
(code-c-d "guiletut" "/usr/share/guile/1.8/ice-9/" "guile-tut-1.8")

;; (find-guilefile "")
;; (find-guilefile "expect.scm")
;; (find-guiletutnode "")
;; (find-guiletutnode "Using Guile to program in Scheme")
;; (find-guilenode "")
;; (find-guilenode "Intro to Using Guile Modules")
;; (find-guilenode "Transforming Scheme name to C name")
;; (find-guilenode "About Closure")


* (eepitch-guile)
* (eepitch-kill)
* (eepitch-guile)
(+ 1 2)
(+ 1
2)

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
guile


http://www.emacswiki.org/emacs/GuileEmacs
http://www.emacswiki.org/emacs/GuileIde



#####
#
# MIT Scheme
# 2011nov04
#
#####

# «mit-scheme»  (to ".mit-scheme")
# (find-angg ".emacs" "mit-scheme")
# (find-zsh "availabledebs | sort | grep mit")
# (find-zsh "installeddebs | sort | grep mit")

# (find-status   "mit-scheme")
# (find-vldifile "mit-scheme.list")
# (find-udfile   "mit-scheme/")
# (find-status   "mit-scheme-doc")
# (find-vldifile "mit-scheme-doc.list")
# (find-udfile   "mit-scheme-doc/")

# (find-node "(mit-scheme-imail)")
# (find-node "(mit-scheme-ref)")
# (find-node "(mit-scheme-ref)X Graphics")
# (find-node "(mit-scheme-sos)")
# (find-node "(mit-scheme-user)")

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
mit-scheme



#####
#
# TinyScheme
# 2012feb02
#
#####

# «tinyscheme»  (to ".tinyscheme")
# http://tinyscheme.sourceforge.net/
# http://tinyscheme.sourceforge.net/home.html
# http://users.hol.gr/~dsouflis/ovrimos.html
# http://philosecurity.org/2009/01/12/interview-with-an-adware-author
# http://www.ve3syb.ca/software/tiny-fu/
# http://tinyscheme.sourceforge.net/oo.txt
# (find-status   "tinyscheme")
# (find-vldifile "tinyscheme.list")
# (find-udfile   "tinyscheme/")
# (find-man "1 tinyscheme")
# (find-udfile "tinyscheme/BUILDING")
# (find-udfile "tinyscheme/copyright")
# (find-udfile "tinyscheme/changelog.Debian.gz")
# (find-udfile "tinyscheme/Manual.txt.gz")
# (find-udfile "tinyscheme/hack.txt.gz")
# (find-udfile "tinyscheme/MiniSCHEMETribute.txt")
# (find-fline "/usr/lib/tinyscheme/init.scm")

* (eepitch-tinyscheme)
* (eepitch-kill)
* (eepitch-tinyscheme)
(+ 1 2)




#####
#
# Racket
# 2013jan01
#
#####

# «racket» (to ".racket")
# (find-status   "racket")
# (find-vldifile "racket.list")
# (find-udfile   "racket/")
# (find-status   "racket-common")
# (find-vldifile "racket-common.list")
# (find-udfile   "racket-common/")
# (find-status   "racket-doc")
# (find-vldifile "racket-doc.list")
# (find-udfile   "racket-doc/")
# file:///usr/share/racket/doc/guide/Emacs.html

# (find-fline "/usr/bin/drracket")
# (find-fline "/usr/bin/gracket-text")
# (find-fline "/usr/bin/mred-text")
# (find-fline "/usr/bin/mzc")
# (find-fline "/usr/bin/mzpp")
# (find-fline "/usr/bin/mztext")
# (find-fline "/usr/bin/pdf-slatex")
# (find-fline "/usr/bin/planet")
# (find-fline "/usr/bin/plt-games")
# (find-fline "/usr/bin/plt-help")
# (find-fline "/usr/bin/plt-r5rs")
# (find-fline "/usr/bin/plt-r6rs")
# (find-fline "/usr/bin/plt-web-server")
# (find-fline "/usr/bin/raco")
# (find-fline "/usr/bin/scribble")
# (find-fline "/usr/bin/setup-plt")
# (find-fline "/usr/bin/slatex")
# (find-fline "/usr/bin/slideshow")
# (find-fline "/usr/bin/swindle")
# (find-fline "/usr/bin/tex2page")

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
racket
(+ 2 3)

* (eepitch-racket)
* (eepitch-kill)
* (eepitch-racket)
(+ 2 3)

# (find-man "pdf-slatex")




#####
#
# Geiser
# 2013jan01
#
#####

# «geiser» (to ".geiser")
# http://docs.racket-lang.org/guide/Emacs.html
# http://www.nongnu.org/geiser/
# http://packages.debian.org/sid/geiser
# http://ftp.de.debian.org/debian/pool/main/g/geiser/geiser_0.1.4-2.dsc

# http://ftp.de.debian.org/debian/pool/main/g/geiser/
# http://ftp.de.debian.org/debian/pool/main/g/geiser/geiser_0.1.4-2.dsc
# http://ftp.de.debian.org/debian/pool/main/g/geiser/geiser_0.1.4-2.debian.tar.gz
# http://ftp.de.debian.org/debian/pool/main/g/geiser/geiser_0.1.4.orig.tar.gz
#*
rm -Rv ~/usrc/geiser/
mkdir  ~/usrc/geiser/
cd $S/http/ftp.de.debian.org/debian/pool/main/g/geiser/
cp -v geiser_0.1.4* ~/usrc/geiser/
cd     ~/usrc/geiser/
dpkg-source -sn -x geiser_0.1.4-2.dsc
cd     ~/usrc/geiser/geiser-0.1.4/
dpkg-buildpackage -us -uc -b -rfakeroot     |& tee odb

#*
# (find-fline "~/usrc/geiser/")
* (eepitch-shell)
cd ~/usrc/geiser/
sudo dpkg -i *.deb

#*
# (code-c-d "geiser" "~/usrc/geiser/geiser-0.1.4/")
# (find-geiserfile "")

# (find-status   "geiser")
# (find-vldifile "geiser.list")
# (find-udfile   "geiser/")
# (find-node "(geiser)")
# (find-node "(geiser)No hacker is an island")
# (find-fline "/usr/share/emacs/site-lisp/geiser/")
# (find-fline "/usr/share/geiser/guile/geiser/")
# (find-fline "/usr/share/geiser/racket/geiser/")

# (find-man "1 geiser-racket")
# (find-fline "/usr/bin/geiser-racket")










http://www.larcenists.org/

;; (find-efile "progmodes/")
;; (find-efile "progmodes/scheme.el.gz")
;; (find-efile "progmodes/xscheme.el.gz")
;; (find-efile "cmuscheme.el.gz")

http://community.schemewiki.org/?scheme-vs-common-lisp


# (find-status   "r5rs-doc")
# (find-vldifile "r5rs-doc.list")
# (find-udfile   "r5rs-doc/")
# (find-status   "r6rs-doc")
# (find-vldifile "r6rs-doc.list")
# (find-udfile   "r6rs-doc/")

# Delay:
# 45: "Primitives for Expressing Iterative Lazy Algorithms"
# 41: "Streams"
# http://srfi.schemers.org/srfi-45/
# http://srfi.schemers.org/srfi-45/srfi-45.html
# http://srfi.schemers.org/srfi-41/
# http://srfi.schemers.org/srfi-41/srfi-41.html





#  Local Variables:
#  coding:               raw-text-unix
#  ee-delimiter-hash:    "\n#*\n"
#  ee-delimiter-percent: "\n%*\n"
#  ee-anchor-format:     "«%s»"
#  End: