logicparser.clj

(ns history.logicparser
    (:require [instaparse.core :as insta]
              [clojure.string :as str]))


(def desireparse
  (insta/parser
   "S = desire phrase '.'
    desire = 'I want'
    phrase = (<w> word)+ 
    w = #'\\s+'
    word = #'[a-zA-Z]+'
    cond = 'because'"))



(def desire-reason
  (insta/parser
    "S = (desire/ reason / and/ phrase)+ <'.'?>
    reason = (<w>? <#'[Bb]ecause'>  phrase) 
    <br> = and | reason | desire
    <phrase> = br / (<w> !br word)+
    desire = (<w>? <'I want'> phrase)
    w = #'\\s+'
    <word> = #'[a-zA-Z]+'
    and = (<w>? <'and'> phrase)"))

(insta/visualize (insta/parse desire-reason "I want to go to dinner because I am hungry and I want to see my friends."))


(insta/visualize (desire-reason "I want to touch Conors butt because it is tight."))


(insta/visualize (filter vector? (map desire-reason ["I want to eat chocholate" "Because oxygen exists and sodium combine I want to study chemistry"])))