[Stack-cvs] stack-1-0/scripts/maxima complexj.lisp,NONE,1.1.2.1 stackmaxima.mac,1.22,1.22.2.1

[Chris S. <san...@us...>]

Update of /cvsroot/stack/stack-1-0/scripts/maxima
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32232/scripts/maxima

Modified Files:
      Tag: development_xmlrqp
	stackmaxima.mac 
Added Files:
      Tag: development_xmlrqp
	complexj.lisp 
Log Message:
Important changes to the way STACK connects to the CAS.

Index: stackmaxima.mac
===================================================================
RCS file: /cvsroot/stack/stack-1-0/scripts/maxima/stackmaxima.mac,v
retrieving revision 1.22
retrieving revision 1.22.2.1
diff -C2 -d -r1.22 -r1.22.2.1
*** stackmaxima.mac	25 Jul 2005 10:09:32 -0000	1.22
--- stackmaxima.mac	19 Aug 2005 16:16:45 -0000	1.22.2.1
***************
*** 78,81 ****
--- 78,84 ----
  load("stacktex.lisp"); /* Loads LaTeX adaptions and preferences */ 
  
+ complexj:TRUE;
+ if complexj then (j:%i,load("complexj.lisp")) else i:%i; /* Makes a complex j if needed */ 
+ 
  /* ARRGH! */
  /* texput("<<",[" {\\color{red} ", " } ", " " ],matchfix); */
***************
*** 558,562 ****
  
  /* An answer test based expandp(sa). */
! ATExpanded(SA) := 
      BLOCK([KEEPFLOAT,RawMark,FeedBack,AnswerNote,str],
      RawMark:0, FeedBack:"", AnswerNote:"",
--- 561,566 ----
  
  /* An answer test based expandp(sa). */
! /* Note, the TA is a dummy to allow one mechanism for calling functions */
! ATExpanded(SA,TA) := 
      BLOCK([KEEPFLOAT,RawMark,FeedBack,AnswerNote,str],
      RawMark:0, FeedBack:"", AnswerNote:"",

--- NEW FILE: complexj.lisp ---
;; Customize Maxima's TEX() function.  
;; Make %i print at a "j"
;; Chris Sangwin 19 August Jan 2005.
;; Useful files: 
;; \Maxima-5.9.0\share\maxima\5.9.0\share\utils\mactex-utilities.lisp
;; \Maxima-5.9.0\share\maxima\5.9.0\src\mactex.lisp

(defprop $%i "j" texword)