archive/share/trash/fortra.tco

   1 CMA@MIT-MC 03/24/76 09:37:52
   2 PRODUCING FORTRAN-COMPATIBLE CODE FROM MACSYMA AND TECO:
   3 THE PROCEDURE I USE IS STILL SOMEWHAT PROBLEM DEPENDENT BUT GOES
   4 SOMETHING AS FOLLOWS:
   5 1)   REMOVE THE LINE FEEDS AND CARRIAGE RETURNS INSERTED BECAUSE OF
   6 TCTYP SETTINGS, LEAVING ONLY ONE END-OF-LINE PER FORTRAN EXPRESSION.
   7
   8 2)  PUT 6 (OR SO) BLANKS AT THE FRONT OF EACH LINE.
   9
  10 3)  INSERT DECIMAL POINTS USING THE PROGRAM STORED ON THE FILE
  11 "CMA; DECI MAL".  THIS PUTS DECIMAL POINTS AFTER INTEGER COEFFICIENTS
  12 (WHETHER IN NUMERATOR OR DENOMINATOR) BUT NOT IN VARIABLE NAMES LIKE A1
  13 WHICH CONTAIN DIGITS    AND NOT AFTER INTEGER EXPONENTS.  THIS TECO
  14 PROGRAM IS SOMEWHAT SPECIAL PURPOSE BUT MAY BE GENERAL ENOUGH TO USE
  15 WITH QUITE A FEW PROGRAMS.  THE POINT OF THIS IS TO SPEED UP EXECUTION
  16 OF THE FORTRAN CODE  AND NOT TO HAVE QUANTITIES LIKE  1/3  EVALUATE
  17 TO ZERO.
  18
  19 4)  DO COSMETICS LIKE REPLACING "=" BY " = ".
  20
  21 5)  REINSERT END-OF-LINES AND CONTINUATION MARKS  (IN COLUMN 6).
  22
  23 I BELIEVE THE FOLLOWING TECO CODE WILL PERFORM THE LAST STEP IF
  24 Q-REGISTER 3 CONTAINS A CARRIAGE RETURN FOLLOWED BY 5 BLANKS, AN
  25 ASTERISK, AND THEN 3 MORE BLANKS(FOR INDENTATION).
  26
  27 AN EXAMPLE OF THE RESULTS IS FOUND IN THE SECOND HALF OF THE FILE
  28 "FORT 1".
  29
  30 THE TECO CODE WHICH I INTENDED TO INSERT ABOVE IS CONTAINED IN FORTRA
  31 TECO AND LOOKS LIKE
  32 J<.UQ S
  33 $; (.-QQ-72) "G -L 72C G3 0L ' >$$
  34 \x1f