-- peek.lua, with metatables.
-- 2010nov18
-- (find-TH "davinci" "peek.lua")
-- (find-es "davinci" "peek.lua:doc")
-- (find-TH "peek")
-- (find-angg "DAVINCI/peek.lua")
-- (find-angg "DAVINCI/peek.c")
-- (find-angg "DAVINCI/peek-luadecls-1.txt")
-- (find-angg "DAVINCI/peek-luadecls-2.txt")

--[[
#*
# (eev-bounded)
mkdir /tmp/peek/
cd    /tmp/peek/
cat > /tmp/peek/foo.c <<'%%%'
char c='@';
char *cp;
char ca[]="@ABCD";
char ca5[5];
int main () { return 0; }
%%%
gcc -g -Wall -o /tmp/peek/foo /tmp/peek/foo.c

#*

;; (find-enode "Starting GUD")
;; (gud-gdb "/tmp/peek/foo")
;; (gdb "gdb --annotate=3 --quiet /tmp/peek/foo")

(defun eepitch-gdb-peek ()
  (eepitch-gdb      "*gud-foo*" "gdb --annotate=3 --quiet /tmp/peek/foo"))
(defun eepitch-gdb-peek-kill ()
  (eepitch-gdb-kill "*gud-foo*"))

* (eepitch-gdb-peek)
* (eepitch-gdb-peek-kill)
* (eepitch-gdb-peek)


--]]