guile/guile-core HACKING

[Thien-Thi Nguyen]

CVSROOT:        /cvs
Module name:    guile
Branch:         branch_release-1-6
Changes by:     Thien-Thi Nguyen <address@hidden>       01/08/31 21:14:50

Modified files:
        guile-core     : HACKING 

Log message:
        (Sample GDB Initialization File): New section.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/HACKING.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.55.2.3&tr2=1.55.2.4&r1=text&r2=text

Patches:
Index: guile/guile-core/HACKING
diff -u guile/guile-core/HACKING:1.58 guile/guile-core/HACKING:1.59
--- guile/guile-core/HACKING:1.58       Thu Aug 30 11:23:35 2001
+++ guile/guile-core/HACKING    Fri Aug 31 21:09:05 2001
@@ -70,6 +70,50 @@
 different.
 
 
+Sample GDB Initialization File=========================================
+
+Here is a sample .gdbinit posted by Bill Schottstaedt (modified to
+use `set' instead of `call' in some places):
+
+  define gp
+  set gdb_print($arg0)
+  print gdb_output
+  end
+  document gp
+  Executes (object->string arg)
+  end
+
+  define ge
+  call gdb_read($arg0)
+  call gdb_eval(gdb_result)
+  set gdb_print(gdb_result)
+  print gdb_output
+  end
+  document ge
+  Executes (print (eval (read arg))): ge "(+ 1 2)" => 3
+  end
+
+  define gh
+  call g_help(scm_str2symbol($arg0), 20)
+  set gdb_print($1)
+  print gdb_output
+  end
+  document gh
+  Prints help string for arg: gh "enved-target"
+  end
+
+Bill further writes:
+
+  so in gdb if you see something useless like:
+
+  #32 0x081ae8f4 in scm_primitive_load (filename=1112137128) at load.c:129
+
+  You can get the file name with gp:
+
+  (gdb) gp 1112137128
+  $1 = 0x40853fac "\"/home/bil/test/share/guile/1.5.0/ice-9/session.scm\""
+
+
 Contributing Your Changes ============================================
 
 - If you have put together a change that meets the coding standards