Changeset 3794

Timestamp:

09/15/03 16:18:13 (20 years ago)

Author:

piso

Message:

invokeOpenFileHook(), invokeAfterSaveHook()

File:

• trunk/j/src/org/armedbear/j/LispAPI.java (modified) (3 diffs)

trunk/j/src/org/armedbear/j/LispAPI.java

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: LispAPI.java,v 1.24 2003-08-02 21:55:37 piso Exp $
+ * $Id: LispAPI.java,v 1.25 2003-09-15 16:18:13 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -39 +39 @@
 import org.armedbear.lisp.Primitive3;
 import org.armedbear.lisp.Primitive;
+import org.armedbear.lisp.Primitives;
 import org.armedbear.lisp.Symbol;
 import org.armedbear.lisp.TypeError;
@@ -772 +773 @@
     };
 
+    public static void invokeOpenFileHook(Buffer buffer)
+    {
+        try {
+            Primitives.FUNCALL.execute(PACKAGE_J.intern("INVOKE-HOOK"),
+                                       PACKAGE_J.intern("OPEN-FILE-HOOK"),
+                                       new JavaObject(buffer));
+        }
+        catch (Throwable t) {
+            Log.debug(t);
+        }
+    }
+
+    public static void invokeAfterSaveHook(Buffer buffer)
+    {
+        try {
+            Primitives.FUNCALL.execute(PACKAGE_J.intern("INVOKE-HOOK"),
+                                       PACKAGE_J.intern("AFTER-SAVE-HOOK"),
+                                       new JavaObject(buffer));
+        }
+        catch (Throwable t) {
+            Log.debug(t);
+        }
+    }
+
     static {
         for (Iterator it = Property.iterator(); it.hasNext();)