Changeset trunk,20

Timestamp:

06/23/2007 07:46:22 PM (19 years ago)

Author:

dsowen

revision id:

svn-v3-trunk0:2948df59-2b31-0410-8e06-c40c0b09d5b6:trunk:20

Message:

Finished moving stuff around.
Added syntax-mode lines; hopefully this helps Emacs grok long docstrings.

Location:

trunk

Files:

• matching.lisp (modified) (1 diff)
• package.lisp (modified) (1 diff)
• parse.lisp (modified) (1 diff)
• parsing.lisp (modified) (2 diffs)
• util.lisp (modified) (2 diffs)

trunk/matching.lisp

@@ -1 @@
-;(in-package #:dso-parse)
-
-
-
-(defmacro while (cond &body body)
-  `(do ()
-    ((not ,cond))
-    ,@body))
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp -*-
+
+(in-package #:dso-parse)
+
+
 
 (defmacro if-matches-parser (input parser (next match)

trunk/package.lisp

@@ +1 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp -*-
+
 (defpackage #:dso-parse
   (:documentation

trunk/parse.lisp

@@ +1 @@
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp -*-
+
 (defun hash-names (names &optional (map (make-hash-table)))
   (if names

trunk/parsing.lisp

@@ -1 @@
-(in-package '#:dso-parse)
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp -*-
+
+(in-package #:dso-parse)
 
 
@@ -15 +17 @@
 
 (defmacro defgrammar (() &body definitions)
-  "Defines a grammar, being a collection of parsers."
+  "Defines a grammar, being a collection of parsers.  The syntax is:
+
+(DEFGRAMMAR (options*) definitions*)
+definitions: (name rule filter?)"
   (flet ((x (definition)
            (destructuring-bind (name rule &optional filter) definition

trunk/util.lisp

@@ -1 @@
-(in-package '#:dso-parse)
+;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp -*-
+
+(in-package #:dso-parse)
 
 
@@ -15 +17 @@
               :displaced-to string
               :displaced-index-offset start))
+
+(defmacro while (cond &body body)
+  `(do ()
+    ((not ,cond))
+    ,@body))