/usr/share/axiom-20170501/src/algebra/QEQUAT.spad is in axiom-source 20170501-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | )abbrev domain QEQUAT QueryEquation
++ Author: Mark Botch
++ Description:
++ This domain implements simple database queries
QueryEquation() : SIG == CODE where
SIG ==> CoercibleTo(OutputForm) with
equation : (Symbol,String) -> %
++ equation(s,"a") creates a new equation.
variable : % -> Symbol
++ variable(q) returns the variable (left hand side) of \axiom{q}.
value : % -> String
++ value(q) returns the value (right hand side) of \axiom{q}.
CODE ==> add
Rep := Record(var:Symbol, val:String)
coerce(u) == coerce(u.var)$Symbol = coerce(u.val)$String
equation(x,s) == [x,s]
variable q == q.var
value q == q.val
|