Re: [Axiom-developer] Re: tm_axiom

[Joris van der Hoeven]

Andrey: could you please try to patch your tm_axiom.c program
in order to make it compatible with everybody? I think that this
should be most easy for you, using what Mike, David and Bill have
been saying... Notice that you can find a binary tarball at

        http://savannah.nongnu.org/files/?group=axiom

for the free version of Axiom. Just download

        axiom-debian-3.0-linux-i386-cvs-2003-09-28.tar.gz

and set the AXIOM and PATH environement variables as needed.

If supporting both versions of axiom in a single plugin turns out
to be too difficult, I can also rename axiom -> nag-axiom for
NAG's version of Axiom.

> I think that you're missing the point.  Its not a case of having two
> tm_axioms for two versions of axiom, its a case of having two tm_axioms
> for two different ways of invoking *the same* axiom.  It just happens
> that the open version of axiom is still incomplete and doesn't yet
> exhibit both forms of behaviour.
>
> I don't quite understand what the problem is in any case.  You can
> always turn prompts off completely (")set message prompt none") if you
> like (in axiom.input or mysyns.input depending on whether its a
> system-wide change or not).
>
> If you really need exactly one prompt, then you can add the following to
> the axiom.input/mysyns.input file, which will suppress the initial
> prompt when Axiom is started by sman (i.e. when the $SpadServer variable
> is set).
>
> )lisp (DEFUN MKPROMPT NIL (COND ((and |$SpadServer| (|BOOT-EQUAL| 
> |$interpreterFrameName| '|initial|)) (MAKESTRING "")) ((|BOOT-EQUAL| 
> |$inputPromptType| '|none|) (MAKESTRING "")) ((|BOOT-EQUAL| 
> |$inputPromptType| '|plain|) (MAKESTRING "-> ")) ((|BOOT-EQUAL| 
> |$inputPromptType| '|step|) (STRCONC (MAKESTRING "(") (STRINGIMAGE 
> |$IOindex|) (MAKESTRING ") -> "))) ((|BOOT-EQUAL| |$inputPromptType| 
> '|frame|) (STRCONC (STRINGIMAGE |$interpreterFrameName|) (MAKESTRING " (") 
> (STRINGIMAGE |$IOindex|) (MAKESTRING ") -> "))) ('T (STRCONC (STRINGIMAGE 
> |$interpreterFrameName|) (MAKESTRING " [") (SUBSTRING (CURRENTTIME) 8 NIL) 
> (MAKESTRING "] [") (STRINGIMAGE |$IOindex|) (MAKESTRING "] -> ")))) )
>
> Its a bit ugly since it all has to be on one line but should work ...