X-Git-Url: https://git.distorted.org.uk/~mdw/runlisp/blobdiff_plain/a8833af0fa20b68e6e09736f57c8f3137719cc0c..68f84445eae7a1267a0ef2592e3cb6725544a7cd:/lib.c

diff --git a/lib.c b/lib.c
index dea6c09..c844997 100644
--- a/lib.c
+++ b/lib.c
@@ -1384,7 +1384,8 @@ static const char *subst(const char *p, const char *l,
    * us which special characters we need to stop at.  This way, we can use
    * `strcspn' to skip over literal text and stop at the next character which
    * needs special handling.  Entries in this table with a null pointer
-   * correspond to impossible flag settings.
+   * correspond to impossible flag settings: notably, `SF_QUOT' can only be
+   * set when `SF_SUBST' is also set.
    */
   static const char *const delimtab[] = {
 
@@ -1396,22 +1397,22 @@ static const char *subst(const char *p, const char *l,
 					 * `SF_QUOT' */
 #define DELIM "|}"			/* end delimiters of `SF_SUBEXPR' */
 
-    ESCAPE,
-    ESCAPE	       WORDSEP,
-    0,
-    ESCAPE	       QUOT,
-    ESCAPE	 SUBST,
-    ESCAPE	 SUBST WORDSEP,
-    0,
-    ESCAPE	 SUBST QUOT,
-    ESCAPE DELIM,
-    ESCAPE DELIM       WORDSEP,
-    0,
-    ESCAPE DELIM       QUOT,
-    ESCAPE DELIM SUBST,
-    ESCAPE DELIM SUBST WORDSEP,
-    0,
-    ESCAPE DELIM SUBST QUOT
+    ESCAPE,				/* --- */
+    ESCAPE	       WORDSEP,		/* SPLIT */
+    0,					/*	   QUOT */
+    ESCAPE	       QUOT,		/* SPLIT | QUOT */
+    ESCAPE	 SUBST,			/*		  SUBST */
+    ESCAPE	 SUBST WORDSEP,		/* SPLIT |	  SUBST */
+    0,					/*	   QUOT | SUBST */
+    ESCAPE	 SUBST QUOT,		/* SPLIT | QUOT | SUBST */
+    ESCAPE DELIM,			/*			  SUBEXPR */
+    ESCAPE DELIM       WORDSEP,		/* SPLIT |		  SUBEXPR */
+    0,					/*	   QUOT |	  SUBEXPR */
+    ESCAPE DELIM       QUOT,		/* SPLIT | QUOT |	  SUBEXPR */
+    ESCAPE DELIM SUBST,			/*		  SUBST | SUBEXPR */
+    ESCAPE DELIM SUBST WORDSEP,		/* SPLIT |	  SUBST | SUBEXPR */
+    0,					/*	   QUOT | SUBST | SUBEXPR */
+    ESCAPE DELIM SUBST QUOT		/* SPLIT | QUOT | SUBST | SUBEXPR */
 
 #undef ESCAPE
 #undef SUBST