~ubuntu-branches/ubuntu/hardy/texmacs/hardy

« back to all changes in this revision

Viewing changes to plugins/qcl/progs/qcl-input.scm

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

plugins/qcl/progs/qcl-input.scm

 

1

 

 

2

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

3

;;

 

4

;; MODULE      : qcl-input.scm

 

5

;; DESCRIPTION : Qcl input converters

 

6

;; COPYRIGHT   : (C) 1999  Joris van der Hoeven

 

7

;;

 

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.

 

12

;;

 

13

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

14

 

 

15

(texmacs-module (qcl-input)

 

16

  (:use (texmacs plugin plugin-convert)))

 

17

 

 

18

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

19

;; Specific conversion routines

 

20

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

21

 

 

22

(define (qcl-input-var-row r)

 

23

  (if (not (null? r))

 

24

      (begin

 

25

        (display ", ")

 

26

        (plugin-input (car r))

 

27

        (qcl-input-var-row (cdr r)))))

 

28

 

 

29

(define (qcl-input-row r)

 

30

  (display "[")

 

31

  (plugin-input (car r))

 

32

  (qcl-input-var-row (cdr r))

 

33

  (display "]"))

 

34

 

 

35

(define (qcl-input-var-rows t)

 

36

  (if (not (null? t))

 

37

      (begin

 

38

        (display ", ")

 

39

        (qcl-input-row (car t))

 

40

        (qcl-input-var-rows (cdr t)))))

 

41

 

 

42

(define (qcl-input-rows t)

 

43

  (display "matrix(")

 

44

  (qcl-input-row (car t))

 

45

  (qcl-input-var-rows (cdr t))

 

46

  (display ")"))

 

47

 

 

48

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

49

;; Initialization

 

50

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 

51

 

 

52

(plugin-input-converters qcl

 

53

  (rows qcl-input-rows))

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1