Bill Page wrote:
>
> Waldek,
>
> Shall I commit this?
>
Yes (assuming that that this bootstaps OK).
> [EMAIL PROTECTED]:~/fricas-src/src/algebra$ svn diff
> Index: mkfunc.spad.pamphlet
> ===================================================================
> --- mkfunc.spad.pamphlet (revision 368)
> +++ mkfunc.spad.pamphlet (working copy)
> @@ -64,6 +64,9 @@
> ++ unparse(f) returns a string s such that the parser
> ++ would transform s to f.
> ++ Error: if f is not the parsed form of a string.
> + parse : String -> %
> + ++ parse(s) is the inverse of unparse. It parses a
> + ++ string to InputForm
> declare : List % -> Symbol
> ++ declare(t) returns a name f such that f has been
> ++ declared to the interpreter to be of type t, but has
> @@ -135,6 +138,9 @@
> atom?(s:% := form2String(x)$Lisp) => strsym s
> concat [strsym a for a in destruct s]
>
> + parse(s:String):% ==
> + ncParseFromString(s)$Lisp
> +
> declare signature ==
> declare(name := new()$Symbol, signature)$Lisp
> name
> Index: fortpak.spad.pamphlet
> ===================================================================
> --- fortpak.spad.pamphlet (revision 368)
> +++ fortpak.spad.pamphlet (working copy)
> @@ -439,9 +439,6 @@
> stripCommentsAndBlanks(s:String):String ==
> trim(stripC(stripC(s,"++"),"--"),char " ")
>
> - parse(s:String):InputForm ==
> - ncParseFromString(s)$Lisp::InputForm
> -
> interpretString(s:String):Any ==
> interpret parse s
>
--
Waldek Hebisch
[EMAIL PROTECTED]
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"FriCAS - computer algebra system" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to [EMAIL PROTECTED]
For more options, visit this group at
http://groups.google.com/group/fricas-devel?hl=en
-~----------~----~----~----~------~----~------~--~---
