53 lines
1.2 KiB
Common Lisp
53 lines
1.2 KiB
Common Lisp
|
(defpackage #:truth-table/base
|
||
|
|
(:use #:common-lisp)
|
||
|
|
(:export
|
||
|
|
;; parse.lsip
|
||
|
|
#:whitespace-p
|
||
|
|
#:paren-p
|
||
|
|
#:delim-p
|
||
|
|
#:symbol-char-p
|
||
|
|
#:proposition-parse-error
|
||
|
|
#:operator-symbol
|
||
|
|
#:operator-precedence
|
||
|
|
#:interpret-operand
|
||
|
|
#:next-token
|
||
|
|
#:dotokens
|
||
|
|
#:interpret-token
|
||
|
|
#:parse-proposition-string
|
||
|
|
|
||
|
|
;; eval.lisp
|
||
|
|
#:proposition-eval-error
|
||
|
|
#:operator-argument-count
|
||
|
|
#:logical-xor
|
||
|
|
#:logical-and
|
||
|
|
#:logical-or
|
||
|
|
#:logical-implies
|
||
|
|
#:eval-proposition
|
||
|
|
|
||
|
|
;; table.lisp
|
||
|
|
#:discover-variables
|
||
|
|
#:permute-variables
|
||
|
|
#:create-truth-table
|
||
|
|
#:extract-truth-table-expressions
|
||
|
|
#:extract-truth-table-values
|
||
|
|
#:combine-tables
|
||
|
|
#:create-combined-truth-table
|
||
|
|
|
||
|
|
;; typeset.lisp
|
||
|
|
#:table-format-error
|
||
|
|
#:*operator-ascii-lookup-alist*
|
||
|
|
#:*operator-unicode-lookup-alist*
|
||
|
|
#:*operator-latex-lookup-alist*
|
||
|
|
#:latex-var-name-transform
|
||
|
|
#:typeset-proposition
|
||
|
|
#:convert-truth-table-to-latex
|
||
|
|
#:*table-border-ascii-alist*
|
||
|
|
#:*table-border-unicode-alist*
|
||
|
|
#:typeset-truth-table
|
||
|
|
#:*known-formats*
|
||
|
|
#:typeset-table-to-format))
|
||
|
|
|
||
|
|
(defpackage #:truth-table/cli
|
||
|
|
(:use #:common-lisp #:truth-table/base)
|
||
|
|
(:export #:toplevel #:main))
|