~ubuntu-branches/ubuntu/precise/vflib3/precise

« back to all changes in this revision

Viewing changes to src/mkbijfm2.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

src/mkbijfm2.scm

 

1

#!/usr/local/bin/scm 

 

2

 

 

3

(require 'format)

 

4

 

 

5

(define (mk-builtin-jfm ifile ofile)

 

6

  (with-output-to-file  ofile

 

7

    (lambda () (with-input-from-file ifile mk-builtin-jfm-2))))

 

8

 

 

9

(define (mk-builtin-jfm-2)

 

10

  (let ((s (read)))

 

11

    (if (not (eof-object? s))

 

12

        (begin

 

13

          (if (eq? (car s) 'type)

 

14

              (let ((base (cadr s))

 

15

                    (ct (if (>= (caddr s) 10)

 

16

                            (- (caddr s) 2) 

 

17

                            (caddr s)))

 

18

                    (wd (caddr (car (cdddr s))))

 

19

                    (ht (caddr (cadr (cdddr s))))

 

20

                    (dp (caddr (caddr (cdddr s)))))

 

21

                (display (format "  {~2D, ~F, ~F, ~F},\n"

 

22

                                 ct wd ht dp))))

 

23

          (mk-builtin-jfm-2)))))

 

24

 

 

25

(if #f

 

26

    (begin

 

27

      (system "tftopl-j `kpsewhich min10.tfm` foo.pl 2>&1 >/dev/null" )

 

28

      (mk-builtin-jfm "foo.pl" "__chardimen")

 

29

      (system "cat __chardimen")

 

30

      (system "rm -f foo.pl __chardimen"))

 

31

    (begin

 

32

      (system "tftopl-j `kpsewhich tmin10.tfm` foo.pl 2>&1 >/dev/null" )

 

33

      (mk-builtin-jfm "foo.pl" "__chardimen")

 

34

      (system "cat __chardimen")

 

35

      (system "rm -f foo.pl __chardimen")))

 

36

 

 

37

(quit)

• Older »

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