X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=mudsync%2Fparser.scm;h=efda86e3b26c536bd5662355912dd2bd7101bf78;hp=5da6bc9f8c6c8c0ee8dd0f38a68891abfa2eca67;hb=HEAD;hpb=b8279be0a2ca8f5e235166acd5cc1bde3854dd5b diff --git a/mudsync/parser.scm b/mudsync/parser.scm index 5da6bc9..918d090 100644 --- a/mudsync/parser.scm +++ b/mudsync/parser.scm @@ -1,5 +1,5 @@ ;;; Mudsync --- Live hackable MUD -;;; Copyright © 2016 Christopher Allan Webber +;;; Copyright © 2016 Christine Lemmer-Webber ;;; ;;; This file is part of Mudsync. ;;; @@ -61,11 +61,12 @@ ;; definite and indefinite, but not partitive articles (define article '(or "the" "a" "an")) -(define preposition '(or "with" "in" "on" "out of" "at")) +(define preposition '(or "with" "in" "inside" "into" "on" "out" "out of" + "at" "as" "to" "about" "from")) (define indirect-irx (sre->irregex - `(: (? (: ,preposition (+ space))) ; possibly a preposition (ignored) + `(: (? (: ,preposition (+ space))) ; possibly a preposition (? (: ,article (+ space))) ; possibly an article (ignored) (=> direct-obj (* any)) ; direct object (kept) (+ space)