Update macsyma sources with newer versions of some files.

Resolves #1059.

src/maxsrc/ldisp.44

@@ -0,0 +1,98 @@
+;;; -*- LISP -*-
+;;; Auxiliary DISPLA package for doing 1-D display
+;;;
+;;; (c) 1979 Massachusetts Institute of Technology
+;;;
+;;; See KMP for details
+
+(MACSYMA-MODULE LDISP)
+
+(DECLARE (*EXPR MSTRING STRIPDOLLAR)
+	 (SPECIAL LINEAR-DISPLAY-BREAK-TABLE FORTRANP))
+
+;;; (LINEAR-DISPLA <thing-to-display>)
+;;;
+;;; Display text linearly. This function should be usable in any case
+;;;  DISPLA is usable and will attempt to do something reasonable with
+;;;  its input.
+
+(DEFUN LINEAR-DISPLA (X)
+       (TERPRI)
+       (COND ((NOT (ATOM X))
+	      (COND ((EQ (CAAR X) 'MLABLE)
+		     (COND ((CADR X)
+			    (PRIN1 (LIST (STRIPDOLLAR (CADR X))))
+			    (TYO 32.)))
+		     (LINEAR-DISPLA1 (CADDR X) (CHARPOS T)))
+		    ((EQ (CAAR X) 'MTEXT)
+		     (DO ((X (CDR X) (CDR X))
+			  (FORTRANP))			; Atoms in MTEXT
+			 ((NULL X))			;  should omit ?'s
+			 (SETQ FORTRANP (ATOM (CAR X)))
+			 (LINEAR-DISPLA1 (CAR X) 0.)
+			 (TYO 32.)))
+		    (T
+		     (LINEAR-DISPLA1 X 0.))))
+	     (T
+	      (LINEAR-DISPLA1 X 0.)))
+        (TERPRI))
+
+;;; LINEAR-DISPLAY-BREAK-TABLE
+;;;  Table entries have the form (<char> . <illegal-predecessors>)
+;;;
+;;;  The linear display thing will feel free to break BEFORE any
+;;;  of these <char>'s unless they are preceded by one of the
+;;;  <illegal-predecessor> characters.
+
+(SETQ LINEAR-DISPLAY-BREAK-TABLE
+      '((#/= #/: #/=)
+	(#/( #/( #/[)
+	(#/) #/) #/])
+	(#/[ #/( #/[)
+	(#/] #/) #/])
+	(#/: #/:)
+	(#/+ #/E #/B)
+	(#/- #/E #/B)
+	(#/* #/*)
+	(#/^)))
+	
+;;; (FIND-NEXT-BREAK <list-of-fixnums>)
+;;;   Tells how long it will be before the next allowable
+;;;   text break in a list of chars.
+
+(DEFUN FIND-NEXT-BREAK (L)
+       (DO ((I 0. (1+ I))
+	    (TEMP)
+	    (L L (CDR L)))
+	   ((NULL L) I)
+	   (COND ((MEMBER (CAR L) '(#\SPACE #/,)) (RETURN I))
+		 ((AND (SETQ TEMP (ASSQ (CADR L) LINEAR-DISPLAY-BREAK-TABLE))
+		       (NOT (MEMQ (CAR L) (CDR TEMP))))
+		  (RETURN I)))))
+
+;;; (LINEAR-DISPLA1 <object> <indent-level>)
+;;;  Displays <object> as best it can on this line.
+;;;  If atom is too long to go on line, types # and a carriage return.
+;;;  If end of line is found and an elegant break is seen 
+;;;   (see FIND-NEXT-BREAK), it will type a carriage return and indent
+;;;   <indent-level> spaces.
+
+(DEFUN LINEAR-DISPLA1 (X INDENT)
+       (LET ((CHARS (MSTRING X)))
+	    (DO ((END-COLUMN  (- (LINEL T) 3.))
+		 (CHARS CHARS (CDR CHARS))
+		 (I (CHARPOS T) (1+ I))
+		 (J (FIND-NEXT-BREAK CHARS) (1- J)))
+		((NULL CHARS) T)
+		(TYO (CAR CHARS))
+		(COND ((< J 1)
+		       (SETQ J (FIND-NEXT-BREAK (CDR CHARS)))
+		       (COND ((> (+ I J) END-COLUMN)
+			      (TERPRI)
+			      (DO ((I 0. (1+ I))) ((= I INDENT)) (TYO 32.))
+			      (SETQ I INDENT))))
+		      ((= I END-COLUMN)
+		       (PRINC '/#)
+		       (TERPRI)
+		       (SETQ I -1.))))))
+