Merge pull request #114 from smucclaw/smtgen

merge dmn, kogito, smtgen, and lts20

.ghci

@@ -0,0 +1,4 @@
+:set -isrc
+-- Don't spam a ton of warnings
+-- :set -Wno-incomplete-patterns -Wno-unused-imports -Wno-name-shadowing -Wno-unused-top-binds -Wno-missing-signatures
+:l tests/DisambiguateTest.hs tests/ExpSysTest.hs tests/Test.hs tests/ToGFTest.hs

.ghcid

@@ -0,0 +1 @@
+--test=":main --rerun-all-on-success" --warn

asp_fixed_code_2.lp

@@ -0,0 +1,74 @@
+% Stock code
+
+query(C,0):-generate_q(C).
+query(C1,0):-generate_q(C),opposes(C,C1).
+query(C1,0):-according_to(R,C),opposes(C,C1).
+
+%gen_graph(defeated(R,C)):-defeated(R,C).
+gen_graph(legally_holds(C)):-generate_q(C).
+
+
+
+
+:-generate_q(C),not legally_holds(C),const(N),not opp_const(N+1).
+
+
+:-generate_q(C),legally_holds(C),opp_const(N),not const(N+1).
+
+
+
+
+
+defeated(R2,C2):-overrides(R1,R2),according_to(R2,C2),legally_enforces(R1,C1),opposes(C1,C2).
+opposes(C1,C2):-opposes(C2,C1).
+legally_enforces(R,C):-according_to(R,C),not defeated(R,C).
+legally_holds(C):-legally_enforces(R,C).
+:-opposes(C1,C2),legally_holds(C1),legally_holds(C2).
+
+
+
+query(X,N):-explains(X,Y,N).
+query(Y,N-1):-explains(X,Y,N),N>0.
+
+
+not_leaf(X):-explains(X,Y,N),explains(Z,X,N+1).
+abducible(leaf,X,N):-explains(X,Y,N),not not_leaf(X).
+abducible(nleaf,X,N):-explains(X,Y,N),not_leaf(X).
+ask(X,N):-query(X,N).
+
+
+
+
+
+
+
+% Integrate with main program
+
+{choose(X,N+1-M)}:-ask(X,M),max_ab_lvl(N).
+legally_holds(X):-choose(X,K).
+ask_user(X):-choose(X,M).
+legally_holds(X):-user_input(X,posFact).
+:-user_input(X,negFact),legally_holds(X).
+
+:~choose(X,M).[1@M,X,M]
+
+caused_by(pos,overrides(R1,R2),defeated(R2,C2),N+1):-defeated(R2,C2),overrides(R1,R2),according_to(R2,C2),legally_enforces(R1,C1),opposes(C1,C2),justify(defeated(R2,C2),N).
+caused_by(pos,according_to(R2,C2),defeated(R2,C2),N+1):-defeated(R2,C2),overrides(R1,R2),according_to(R2,C2),legally_enforces(R1,C1),opposes(C1,C2),justify(defeated(R2,C2),N).
+caused_by(pos,legally_enforces(R1,C1),defeated(R2,C2),N+1):-defeated(R2,C2),overrides(R1,R2),according_to(R2,C2),legally_enforces(R1,C1),opposes(C1,C2),justify(defeated(R2,C2),N).
+caused_by(pos,opposes(C1,C2),defeated(R2,C2),N+1):-defeated(R2,C2),overrides(R1,R2),according_to(R2,C2),legally_enforces(R1,C1),opposes(C1,C2),justify(defeated(R2,C2),N).
+
+
+caused_by(pos,according_to(R,C),legally_enforces(R,C),N+1):-legally_enforces(R,C),according_to(R,C),not defeated(R,C),justify(legally_enforces(R,C),N).
+caused_by(neg,defeated(R,C),legally_enforces(R,C),N+1):-legally_enforces(R,C),according_to(R,C),not defeated(R,C),justify(legally_enforces(R,C),N).
+
+
+caused_by(pos,legally_enforces(R,C),legally_holds(C),N+1):-legally_holds(C),legally_enforces(R,C),not user_input(posFact,C), justify(legally_holds(C),N).
+
+caused_by(pos,user_input(posFact,C),legally_holds(C),N+1):-legally_holds(C), user_input(posFact,C), justify(legally_holds(C),N).
+
+justify(X,N):-caused_by(pos,X,Y,N),graph_level(N+1), not user_input(posFact,X).
+directedEdge(Sgn,X,Y):-caused_by(Sgn,X,Y,M).
+
+graph_level(0..N):-max_graph_level(N).
+
+justify(X,0):-gen_graph(X).