Remove code and message for preventing parameter in first position of…

… syntax

compiler/alan.lmk

@@ -1,8 +1,8 @@
 %%OPTIONS
 
-	Prefix 'lm';
-	Listings single;
-	Limit 1000;
+    Prefix 'lm';
+    Listings single;
+    Limit 1000;
 --	Message file;
 
 %%MESSAGES English
@@ -45,7 +45,6 @@
 206	'Incompatible parameters lists for multiple syntax definitions for verb \'%1\'. Multiple syntaxes for the same verb must contain the same number of parameters with the same name, but the order of the parameters can be changed.';
 207	'VERB \'%1\' is not defined.';
 208	'\'%1\' is not a VERB.';
-209	'First element in a SYNTAX must be a player word.';
 210	'Action qualification not allowed here.';
 211	'Adventure must start at an instance inheriting from \'location\'.';
 212	'Syntax parameter \'%1\' overrides symbol.';

compiler/elm.c

@@ -34,9 +34,9 @@ static int level = 0;
 
 /*----------------------------------------------------------------------*/
 static Element *newElement(Srcp *srcp,
-			   ElementKind kind,
-			   Id *id,
-			   int flags)
+               ElementKind kind,
+               Id *id,
+               int flags)
 {
     Element *new;                                  /* The newly created node */
 
@@ -130,18 +130,10 @@ List *analyzeElements(List *elements, List *restrictions, Syntax *syntax)
     int parameterCount = 1;
     Bool multiple = FALSE;
 
-#ifdef REQUIRE_VERB_FIRST
-    if (firstElement->kind != WORD_ELEMENT)
-        /* First element must be a player word */
-        lmLog(&firstElement->srcp, 209, sevERR, "");
-    else
-        firstElement->id->code = newVerbWord(firstElement->id->string, syntax);
-#else
     if (firstElement->kind == WORD_ELEMENT) {
         firstElement->id->code = newVerbWord(firstElement->id->string, syntax);
-		elements = elements->next; /* Done with the first element */
-	}
-#endif
+        elements = elements->next; /* Done with the first element */
+    }
 
     /* Analyze the elements, number parameters and find the restriction */
     for (list = elements; list != NULL; list = list->next) {
@@ -199,12 +191,12 @@ static Bool equalElements(List *element1, List *element2)
 static List *advance(List *elmsList) /* IN - The list to advance */
 {
     List *list;
-	List *copy = copyList(elmsList);
+    List *copy = copyList(elmsList);
 
     for (list = copy; list != NULL; list = list->next) {
         list->member.lst = list->member.lst->next;
     }
-	return copy;
+    return copy;
 }
 
 
@@ -271,7 +263,7 @@ static ElementEntry *newEntryForPartition(List **entries) {
 
 /*----------------------------------------------------------------------*/
 static Aaddr restrictionTableAddress(List *partition) {
-	return partition->member.lst->member.elm->stx->restrictionsAddress;
+    return partition->member.lst->member.elm->stx->restrictionsAddress;
 }
 
 
@@ -296,9 +288,9 @@ static void entryForParameter(ElementEntry *entry, List *partition, Syntax *stx)
 
     entry->code = 0;
     entry->flags = partition->member.lst->member.elm->flags;
-	/* TODO: ORing flags here is a problem, might actually give some
-	   syntaxes different flags than intended which is not at all good
-	   (omnipotent!!!) */
+    /* TODO: ORing flags here is a problem, might actually give some
+       syntaxes different flags than intended which is not at all good
+       (omnipotent!!!) */
     ITERATE(element, partition->next) {
         entry->flags |= element->member.lst->member.elm->flags;
     }

regression/parameterFirstInSyntax.alan

@@ -0,0 +1,13 @@
+The l Isa location
+End The l.
+
+The bob Isa actor At l
+  Verb jump
+  Does
+    "Jump"
+  End Verb.
+End The bob.
+
+Syntax jump = (a) jump Where a Isa actor Else "You can only order people about."
+
+Start At l.

regression/parameterFirstInSyntax.expected

@@ -0,0 +1,15 @@
+########## parameterFirstInSyntax ##########
+
+        No warnings or errors detected.
+
+
+
+L
+There is a bob here.
+
+> bob jump
+Jump
+
+> 
+
+Do you want to UNDO, RESTART, RESTORE or QUIT ? 

regression/parameterFirstInSyntax.input

@@ -0,0 +1 @@
+bob jump