[seed] Add Seed.breakpoint for debugging purposes

[Robert Carr <racarr src gnome org>]

commit 7b0791fd03173916a418cce848b64705ec968116
Author: Robert Carr <racarr mireia (none)>
Date:   Fri Mar 27 16:29:13 2009 -0400

    Add Seed.breakpoint for debugging purposes
---
 libseed/seed-builtins.c |   13 +++++++++++++
 1 files changed, 13 insertions(+), 0 deletions(-)

diff --git a/libseed/seed-builtins.c b/libseed/seed-builtins.c
index 803bdc8..e9cd4b1 100644
--- a/libseed/seed-builtins.c
+++ b/libseed/seed-builtins.c
@@ -324,6 +324,17 @@ seed_quit (JSContextRef ctx,
 }
 
 static JSValueRef
+seed_breakpoint (JSContextRef ctx,
+		 JSObjectRef function,
+		 JSObjectRef this_object,
+		 size_t argumentCount,
+		 const JSValueRef arguments[], JSValueRef * exception)
+{
+  G_BREAKPOINT();
+  return JSValueMakeNull(ctx);
+}
+
+static JSValueRef
 seed_get_include_path (JSContextRef ctx,
 		       JSObjectRef function,
 		       JSObjectRef this_object,
@@ -399,6 +410,8 @@ seed_init_builtins (SeedEngine * local_eng, gint * argc, gchar *** argv)
 			&seed_set_include_path, obj);
   seed_create_function (local_eng->context, "get_include_path",
 			&seed_get_include_path, obj);
+  seed_create_function (local_eng->context, "breakpoint",
+			&seed_breakpoint, obj);
 
   arrayObj = JSObjectMake (local_eng->context, NULL, NULL);