Changeset 3836

Timestamp:

09/17/03 00:03:20 (19 years ago)

Author:

piso

Message:

Added support for (defun (setf foo) ...).

File:

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

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

@@ -3 +3 @@
  *
  * Copyright (C) 1998-2003 Peter Graves
- * $Id: LispTagger.java,v 1.10 2003-05-07 15:55:47 piso Exp $
+ * $Id: LispTagger.java,v 1.11 2003-09-17 00:03:20 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -82 +82 @@
             }
             if (c == '(') {
-                if (state != DEFINITION)
-                    state = OPEN_PAREN;
+                if (state == DEFINITION) {
+                    Position tokenStart = pos.copy();
+                    String name = gatherList(pos);
+                    addTag(name, tokenStart, definer);
+                    state = NEUTRAL;
+                    definer = null;
+                    continue;
+                }
+                state = OPEN_PAREN;
                 pos.next();
                 continue;
@@ -148 +155 @@
     }
 
+    // Advances pos past list.
+    private String gatherList(Position pos)
+    {
+        FastStringBuffer sb = new FastStringBuffer();
+        char c = pos.getChar();
+        Debug.bugIf(c != '(');
+        if (pos.next()) {
+            while ((c = pos.getChar()) != ')') {
+                sb.append(c);
+                if (!pos.next())
+                    break;
+            }
+        }
+        return sb.toString();
+    }
+
     // Advances pos past token.
     private String gatherToken(Position pos)