simon/mw-parser
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Standardised header comments in line with current best practice.

Browse source
This commit is contained in:
simon 2016-08-21 13:50:54 +01:00
parent ca9553fe83
commit 948bd7e5f2
4 changed files with 108 additions and 92 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
src/mw_parser/bulk.clj
View file

@ -8,22 +8,26 @@
(:import (java.io BufferedReader StringReader))) (:import (java.io BufferedReader StringReader)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;;;
;; This program is free software; you can redistribute it and/or ;;;; mw-parser: a rule parser for MicroWorld.
;; modify it under the terms of the GNU General Public License ;;;;
;; as published by the Free Software Foundation; either version 2 ;;;; This program is free software; you can redistribute it and/or
;; of the License, or (at your option) any later version. ;;;; modify it under the terms of the GNU General Public License
;; ;;;; as published by the Free Software Foundation; either version 2
;; This program is distributed in the hope that it will be useful, ;;;; of the License, or (at your option) any later version.
;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;;;
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;;; This program is distributed in the hope that it will be useful,
;; GNU General Public License for more details. ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; You should have received a copy of the GNU General Public License ;;;; GNU General Public License for more details.
;; along with this program; if not, write to the Free Software ;;;;
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, ;;;; You should have received a copy of the GNU General Public License
;; USA. ;;;; along with this program; if not, write to the Free Software
;; ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
;;;; USA.
;;;;
;;;; Copyright (C) 2014 Simon Brooke
;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

92
src/mw_parser/core.clj
View file

@ -7,51 +7,55 @@
) )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;;;
;; This program is free software; you can redistribute it and/or ;;;; mw-parser: a rule parser for MicroWorld.
;; modify it under the terms of the GNU General Public License ;;;;
;; as published by the Free Software Foundation; either version 2 ;;;; This program is free software; you can redistribute it and/or
;; of the License, or (at your option) any later version. ;;;; modify it under the terms of the GNU General Public License
;; ;;;; as published by the Free Software Foundation; either version 2
;; This program is distributed in the hope that it will be useful, ;;;; of the License, or (at your option) any later version.
;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;;;
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;;; This program is distributed in the hope that it will be useful,
;; GNU General Public License for more details. ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; You should have received a copy of the GNU General Public License ;;;; GNU General Public License for more details.
;; along with this program; if not, write to the Free Software ;;;;
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, ;;;; You should have received a copy of the GNU General Public License
;; USA. ;;;; along with this program; if not, write to the Free Software
;; ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
;;;; USA.
;;;;
;;;; Copyright (C) 2014 Simon Brooke
;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;;;
;; A very simple parser which parses production rules of the following forms: ;;;; A very simple parser which parses production rules of the following forms:
;; ;;;;
;; * "if altitude is less than 100 and state is forest then state should be climax and deer should be 3" ;;;; * "if altitude is less than 100 and state is forest then state should be climax and deer should be 3"
;; * "if altitude is 100 or fertility is 25 then state should be heath and fertility should be 24.3" ;;;; * "if altitude is 100 or fertility is 25 then state should be heath and fertility should be 24.3"
;; * "if altitude is 100 or fertility is 25 then state should be heath" ;;;; * "if altitude is 100 or fertility is 25 then state should be heath"
;; * "if deer is more than 2 and wolves is 0 and fertility is more than 20 then deer should be deer + 2" ;;;; * "if deer is more than 2 and wolves is 0 and fertility is more than 20 then deer should be deer + 2"
;; * "if deer is more than 1 and wolves is more than 1 then deer should be deer - wolves" ;;;; * "if deer is more than 1 and wolves is more than 1 then deer should be deer - wolves"
;; * "if state is grassland and 4 neighbours have state equal to water then state should be village" ;;;; * "if state is grassland and 4 neighbours have state equal to water then state should be village"
;; * "if state is forest and fertility is between 55 and 75 then state should be climax" ;;;; * "if state is forest and fertility is between 55 and 75 then state should be climax"
;; * "if 6 neighbours have state equal to water then state should be village" ;;;; * "if 6 neighbours have state equal to water then state should be village"
;; * "if state is in grassland or pasture or heath and 4 neighbours are water then state should be village" ;;;; * "if state is in grassland or pasture or heath and 4 neighbours are water then state should be village"
;; * "if state is forest or state is climax and some neighbours have state equal to fire then 3 in 5 chance that state should be fire" ;;;; * "if state is forest or state is climax and some neighbours have state equal to fire then 3 in 5 chance that state should be fire"
;; * "if state is pasture and more than 3 neighbours have state equal to scrub then state should be scrub" ;;;; * "if state is pasture and more than 3 neighbours have state equal to scrub then state should be scrub"
;; * ;;;; *
;; ;;;;
;; it generates rules in the form expected by `mw-engine.core`, q.v. ;;;; it generates rules in the form expected by `mw-engine.core`, q.v.
;; ;;;;
;; It is, as I say, very simple; it generates a complete rule, or it fails completely, returning nil. ;;;; It is, as I say, very simple; it generates a complete rule, or it fails completely, returning nil.
;; Very occasionally it generates a wrong rule - one which is not a correct translation of the rule ;;;; Very occasionally it generates a wrong rule - one which is not a correct translation of the rule
;; semantics - but that is buggy behaviour, which I'll try to fix over the next few weeks, not a ;;;; semantics - but that is buggy behaviour, which I'll try to fix over the next few weeks, not a
;; design fault. ;;;; design fault.
;; ;;;;
;; More significantly it does not generate useful error messages on failure. ;;;; More significantly it does not generate useful error messages on failure.
;; ;;;;
;; This is the parser that is actually used currently; but see also insta.clj, ;;;; This parser is now obsolete, but is retained in the codebase for now in
;; which is potentially a much better parser but does not quite work yet. ;;;; case it is of use to anyone. Prefer the declarative.clj parser.
;; ;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(declare parse-conditions) (declare parse-conditions)

36
src/mw_parser/simplify.clj
View file

@ -4,22 +4,26 @@
(:require [mw-engine.utils :refer [member?]])) (:require [mw-engine.utils :refer [member?]]))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;;;
;; This program is free software; you can redistribute it and/or ;;;; mw-parser: a rule parser for MicroWorld.
;; modify it under the terms of the GNU General Public License ;;;;
;; as published by the Free Software Foundation; either version 2 ;;;; This program is free software; you can redistribute it and/or
;; of the License, or (at your option) any later version. ;;;; modify it under the terms of the GNU General Public License
;; ;;;; as published by the Free Software Foundation; either version 2
;; This program is distributed in the hope that it will be useful, ;;;; of the License, or (at your option) any later version.
;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;;;
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;;; This program is distributed in the hope that it will be useful,
;; GNU General Public License for more details. ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; You should have received a copy of the GNU General Public License ;;;; GNU General Public License for more details.
;; along with this program; if not, write to the Free Software ;;;;
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, ;;;; You should have received a copy of the GNU General Public License
;; USA. ;;;; along with this program; if not, write to the Free Software
;; ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
;;;; USA.
;;;;
;;;; Copyright (C) 2014 Simon Brooke
;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

36
src/mw_parser/utils.clj
View file

@ -3,22 +3,26 @@
mw-parser.utils) mw-parser.utils)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ;;;;
;; This program is free software; you can redistribute it and/or ;;;; mw-parser: a rule parser for MicroWorld.
;; modify it under the terms of the GNU General Public License ;;;;
;; as published by the Free Software Foundation; either version 2 ;;;; This program is free software; you can redistribute it and/or
;; of the License, or (at your option) any later version. ;;;; modify it under the terms of the GNU General Public License
;; ;;;; as published by the Free Software Foundation; either version 2
;; This program is distributed in the hope that it will be useful, ;;;; of the License, or (at your option) any later version.
;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;;;
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;;; This program is distributed in the hope that it will be useful,
;; GNU General Public License for more details. ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; You should have received a copy of the GNU General Public License ;;;; GNU General Public License for more details.
;; along with this program; if not, write to the Free Software ;;;;
;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, ;;;; You should have received a copy of the GNU General Public License
;; USA. ;;;; along with this program; if not, write to the Free Software
;; ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
;;;; USA.
;;;;
;;;; Copyright (C) 2014 Simon Brooke
;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;