2
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4
;; MODULE : m2-input.scm
5
;; DESCRIPTION : Macaulay 2 input converters
6
;; COPYRIGHT : (C) 1999 Joris van der Hoeven
8
;; This software falls under the GNU general public license and comes WITHOUT
9
;; ANY WARRANTY WHATSOEVER. See the file $TEXMACS_PATH/LICENSE for details.
10
;; If you don't have this file, write to the Free Software Foundation, Inc.,
11
;; 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
13
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
15
(texmacs-module (m2-input)
16
(:use (texmacs plugin plugin-convert)))
18
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
19
;; Specific conversion routines
20
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
22
(define (macaulay2-input-var-row r)
26
(plugin-input (car r))
27
(macaulay2-input-var-row (cdr r)))))
29
(define (macaulay2-input-row r)
31
(plugin-input (car r))
32
(macaulay2-input-var-row (cdr r))
35
(define (macaulay2-input-var-rows t)
39
(macaulay2-input-row (car t))
40
(macaulay2-input-var-rows (cdr t)))))
42
(define (macaulay2-input-rows t)
44
(macaulay2-input-row (car t))
45
(macaulay2-input-var-rows (cdr t))
48
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
50
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
52
(plugin-input-converters macaulay2
53
(rows macaulay2-input-rows))