/usr/share/axiom-20170501/src/algebra/TEMUTL.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 30 31 32 33 34 35 | )abbrev package TEMUTL TemplateUtilities
++ Author: Mike Dewar
++ Date Created: October 1992
++ Description:
++ This package provides functions for template manipulation
TemplateUtilities() : SIG == CODE where
SIG ==> with
interpretString : String -> Any
++ interpretString(s) treats a string as a piece of AXIOM input, by
++ parsing and interpreting it.
stripCommentsAndBlanks : String -> String
++ stripCommentsAndBlanks(s) treats s as a piece of AXIOM input, and
++ removes comments, and leading and trailing blanks.
CODE ==> add
import InputForm
stripC(s:String,u:String):String ==
i : Integer := position(u,s,1)
i = 0 => s
delete(s,i..)
stripCommentsAndBlanks(s:String):String ==
trim(stripC(stripC(s,"++"),"--"),char " ")
parse(s:String):InputForm ==
ncParseFromString(s)$Lisp::InputForm
interpretString(s:String):Any ==
interpret parse s
|