← Back to branch summary

~ubuntu-branches/debian/squeeze/maxima/squeeze

« back to all changes in this revision

Viewing changes to share/contrib/gentran/init.lisp

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2006-10-18 14:52:42 UTC
  • mto: (1.1.5 upstream)
  • mto: This revision was merged to the branch mainline in revision 4.
  • Revision ID: james.westby@ubuntu.com-20061018145242-vzyrm5hmxr8kiosf
Import upstream version 5.10.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
share/contrib/gentran/init.lisp
1
 
;=============================================================================
2
 
;    (c) copyright 1988  Kent State University  kent, ohio 44242 
3
 
;               all rights reserved.
4
 
;
5
 
; Authors:  Paul S. Wang, Barbara Gates
6
 
; Permission to use this work for any purpose is granted provided that
7
 
; the copyright notice, author and support credits above are retained.
8
 
;=============================================================================
9
 
 
10
 
(cond ((null (getd 'wrs)) (include "convmac.l")))
11
 
 
12
 
(declare (special *gentran-dir tempvartype* tempvarname* tempvarnum* genstmtno*
 
1
 
 
2
 
 
3
 
 
4
;*******************************************************************************
 
5
;*                                                                             *
 
6
;*  copyright (c) 1988 kent state univ.  kent, ohio 44242                      *
 
7
;*                                                                             *
 
8
;*******************************************************************************
 
9
(in-package :maxima)
 
10
 
 
11
(cond ((null (fboundp 'wrs)) (include "convmac.l")))
 
12
 
 
13
(declare-top (special *gentran-dir tempvartype* tempvarname* tempvarnum* genstmtno*
13
14
        genstmtincr* *symboltable* *instk* *stdin* *currin* *outstk*
14
15
        *stdout* *currout* *outchanl* *lispdefops* *lisparithexpops*
15
16
        *lisplogexpops* *lispstmtops* *lispstmtgpops*))
16
 
(declare (special ccurrind* clinelen* fortcurrind* fortlinelen* genstmtincr*
 
17
(declare-top (special ccurrind* clinelen* fortcurrind* fortlinelen* genstmtincr*
17
18
         genstmtno* *gentranlang gentranopt*
18
19
          maxexpprintlen* ratcurrind* ratlinelen* tablen*
19
20
          tempvarname* tempvarnum* tempvartype*))
30
31
 
31
32
;;  gentran commands  ;;
32
33
 
33
 
(declare (nlambda $gentran $gentranin $gentranout $gentranshut
34
 
                          $gentranpush $gentranpop $on $off))
 
34
;; The following will be declared with defmfun instead.
 
35
;(declare (nlambda $gentran $gentranin $gentranout $gentranshut
 
36
;                         $gentranpush $gentranpop $on $off))
35
37
 
36
38
;;  gentran functions  ;;
37
39
 
41
43
 
42
44
;;  mode switches  ;;
43
45
 
44
 
(declare (special *c *fortran *gendecs *ratfor))
 
46
(declare-top (special *c *fortran *gendecs *ratfor))
45
47
 
46
48
(setq *fortran nil)
47
49
(setq *ratfor  nil)
55
57
(put 'gendecs 'simpfg '((nil) (t (gendecs nil))))
56
58
;;  flags  ;;
57
59
 
58
 
(declare (special *float *gentranopt *gentranparser *gentranseg))
 
60
(declare-top (special *float *gentranopt *gentranparser *gentranseg))
59
61
 
60
62
(setq *float         nil)
61
63
(setq *gentranopt    nil)
87
89
 
88
90
;;  global variables  ;;
89
91
 
90
 
(declare (special *cr* *currin* *currout* *endofloopstack* *errin* *errout*
 
92
(declare-top (special *eof* *cr* *currin* *currout* *endofloopstack* *errin* *errout*
91
93
          *instk* *lisparithexpops* *lispdefops* *lisplogexpops*
92
94
          *lispstmtgpops* *lispstmtops* *outchanl* *outstk* *reswds* *slash*
93
95
          *stdin* *stdout* *symboltable*))
110
112
                              'stop))
111
113
(setq *lispstmtgpops*   (list 'prog 'progn))
112
114
(setq *lispdefops*      (list 'defun))
113
 
(setq *slash* (ascii 47))
114
 
(setq *cr*    (ascii 10))
 
115
(setq *slash* (character 47))
 
116
(setq *cr*    (character 10))
 
117
(setq *eof*    (character 0))
115
118
(setq *reswds* '(lambda mand mcond mdefine mdo mdoin mequal mexpt mgeqp
116
119
                         mgo mgreaterp mleqp mlessp mlist mminus mnot mnotequal
117
120
                         mor mplus mprog mprogn mquotient mreturn msetq mtimes