APT.all-test.Algebra.algebra.accept-input.convert-input-to-clause-form.process-open-bracket.soar Maven / Gradle / Ivy
sp {convert-input-to-clause-form*propose*process-open-bracket
(state ^name convert-input-to-clause-form
^top-state.problem.current-input-value.value |[|)
-->
( ^operator + =)
( ^name process-open-bracket)
}
sp {convert-input-to-clause-form*apply*process-open-bracket*clause-beginning
(state ^operator.name process-open-bracket
^top-state )
( ^problem )
(
^current-input-value
^parse-clause )
( ^parse-status clause-beginning)
( ^next )
-->
( ^current-input-value -
^parse-clause -
)
( ^left-side )
}
sp {convert-input-to-clause-form*apply*process-open-bracket*post-operation
(state ^operator.name process-open-bracket
^top-state )
( ^problem )
(
^current-input-value
^parse-clause )
( ^parse-status post-operation)
( ^next )
-->
( ^current-input-value -
^parse-clause -
)
( ^right-side )
}
sp {convert-input-to-clause-form*apply*process-open*failure
(state ^operator.name process-open-bracket
^top-state.problem )
(
^parse-clause.parse-status { <> post-operation <> clause-beginning } )
-->
(write (crlf) |Unexpected open bracket: [.|)
(
^failed true)
}