Merge pull request #744 from mrryanjohnston/main

Add language CLIPS, add structures Facts and Rules to CLIPS 6.4.1

web/thesauruses/_meta/rules_facts.json

@@ -0,0 +1,20 @@
+{
+  "meta": {
+    "structure": "rules_facts",
+    "structure_name": "Rules and Facts"
+  },
+  "categories": {
+    "Defining Rules": {
+	"defining_rules": "Defining Rules"
+    },
+    "Undefining Rules": {
+	"undefining_rules": "Undefining Rules"
+    },
+    "Asserting Facts": {
+	"assert": "Asserting Facts"
+    },
+    "Retracting Facts": {
+	"retract": "Retracting Facts"
+    }
+  }
+}

web/thesauruses/clips/641/rules_facts.json

@@ -0,0 +1,32 @@
+{
+  "meta": {
+    "language": "clips",
+    "language_version": "6.4.1",
+    "language_name": "CLIPS",
+    "structure": "rules_facts"
+  },
+  "concepts": {
+    "defrule": {
+      "code": [
+        "(defrule my-rule",
+	"    (my-fact ?value)", 
+	"=>",
+        "(println \"My value: \" ?value))"
+      ],
+      "name": "Creating a Defrule in the CLIPS environment"
+    },
+    "undefrule": {
+      "code": "(undefrule my-rule)",
+      "name": "Deleting a Defrule from the CLIPS environment"
+    },
+    "assert": {
+      "code": "(assert (my-fact foo))",
+      "name": "Assert Fact(s) into working memory"
+    },
+    "retract": {
+      "code": "(retract 1)",
+      "name": "Retract existing Fact in working memory"
+    }
+  }
+}
+

web/thesauruses/meta_info.json

@@ -5,6 +5,7 @@
     "c": "C",
     "cpp": "C++",
     "csharp": "C#",
+    "clips": "CLIPS",
     "clojure": "Clojure",
     "go": "Go",
     "haskell": "Haskell",
@@ -37,6 +38,7 @@
     "lists": "Lists, Arrays, and Hashed Lists",
     "operators": "Logical and Mathematical/Arithmetic Operators",
     "queues_stacks": "Queues and Stacks",
+    "rules_facts": "Rules and Facts",
     "strings": "Strings"
   }
 }