#######
#
# E-scripts on Retro (a Forth).
#
# 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.
# An introduction to eev can be found here:
#
#   (find-eev-quick-intro)
#   http://angg.twu.net/eev-intros/find-eev-quick-intro.html
#
# 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/retro.e>
#           or at <http://angg.twu.net/e/retro.e.html>.
#        See also <http://angg.twu.net/emacs.html>,
#                 <http://angg.twu.net/.zshrc[.html]>,
#                 <http://angg.twu.net/escripts.html>,
#             and <http://angg.twu.net/>.
#
#######



# «.retro-shared»	(to "retro-shared")



# (find-esgrep "grep -niH -e retro *.e")




#####
#
# Retro as a .so
# 2011apr15
#
#####

# «retro-shared»  (to ".retro-shared")
# (find-es "fortho" "retro-2011")
# http://rx-core.org/retro-shared-object.tar.gz
#*
rm -Rv ~/usrc/retro-shared-object/
tar -C ~/usrc/ -xvzf \
  $S/http/rx-core.org/retro-shared-object.tar.gz
cd     ~/usrc/retro-shared-object/

make |& tee om

#*
# (code-c-d "retroshared" "~/usrc/retro-shared-object/")
# (find-retrosharedfile "")

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
cd ~/RETRO/
make clean
make

# (find-man "3 strcpy")
(defun eepitch-gdb-retro ()
  (eepitch-gdb "*gud-test*"
               ;; "gdb --annotate=3 --quiet ~/RETRO/test"
               ;; "gdb --fullname --quiet ~/RETRO/test"
               "gdb -i=mi --quiet ~/RETRO/test"
	       ))
(defun eepitch-gdb-retro-kill ()
  (eepitch-gdb-kill "*gud-test*"))

* (eepitch-gdb-retro)
* (eepitch-gdb-retro-kill)
* (eepitch-gdb-retro)
br main
br main
run


# (find-node "(gdb)Mode Options" "`-fullname'")
# (find-node "(gdb)Mode Options" "`-annotate LEVEL'")
# (find-efile "progmodes/gud.el" "gdb --fullname")
# (find-node "(gdb)Mode Options" "`-interpreter INTERP'")



(defun eepitch-gdb-lua ()
  (eepitch-gdb "*gud-lua_O0*" "gdb --annotate=3 --quiet ~/usrc/lua-5.1.4/src/lua_O0"))
(defun eepitch-gdb-lua-kill ()
  (eepitch-gdb-kill "*gud-lua_O0*"))




http://rx-core.org/luaretro.tar.gz

#####
#
# luaretro
# 2011apr17
#
#####

# http://rx-core.org/luaretro.tar.gz
#*
rm -Rv ~/usrc/luaretro/
tar -C ~/usrc/ -xvzf \
  $S/http/rx-core.org/luaretro.tar.gz
cd     ~/usrc/luaretro/

#*
# (code-c-d "luaretro" "~/usrc/luaretro/")
# (find-luaretrofile "")









#  Local Variables:
#  coding:               utf-8-unix
#  modes: (fundamental-mode lua-mode c-mode)
#  End: