2024-09-04 03:14:57 -07:00
|
|
|
(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))
|
|
|
|
|
2024-09-04 03:49:47 -07:00
|
|
|
(defpackage #:truth-table/args
|
|
|
|
(:use #:common-lisp)
|
|
|
|
(:export
|
|
|
|
#:*cli-parse-continue-string*
|
|
|
|
#:command-line-error
|
|
|
|
#:cli-argument-error
|
|
|
|
#:unknown-option-error
|
|
|
|
#:option-no-arg-error
|
|
|
|
#:no-input-error
|
|
|
|
#:parse-command-line
|
|
|
|
#:print-usage
|
|
|
|
#:option-value))
|
|
|
|
|
2024-09-04 03:14:57 -07:00
|
|
|
(defpackage #:truth-table/cli
|
2024-09-04 03:49:47 -07:00
|
|
|
(:use #:common-lisp #:truth-table/base
|
|
|
|
#:truth-table/args)
|
|
|
|
(:export #:toplevel #:main))
|
|
|
|
|
|
|
|
(defpackage #:truth-table/web
|
|
|
|
(:use #:common-lisp #:truth-table/base
|
|
|
|
#:truth-table/args)
|
2024-09-04 03:14:57 -07:00
|
|
|
(:export #:toplevel #:main))
|