[wadalabfont-kit] / renderer / load.l  

Diff of /renderer/load.l

Parent Directory | Revision Log

version 1.1, Thu Jun 19 08:15:19 2003 UTC version 1.3, Tue Jul 1 08:47:32 2003 UTC
Line 1 
Line 1 
 ;; load.l  ;; load.l
 (mapcar '("pack.l"  (or (boundp 'base-directory)(setq base-directory "."))
   (or (boundp 'source-load)(setq source-load nil))
   (lets
    ((source-files
      '("pack.l"
           "lib.l"            "lib.l"
           "yokosort.l"            "yokosort.l"
           "mincho.l"            "mincho.l"
Line 17 
Line 21 
           "hiranew.l"            "hiranew.l"
           "region.l"            "region.l"
           "out2ps.l"            "out2ps.l"
           "outline.l")       "outline.l")))
         #'(lambda (file) (exfile (string-append base-directory "/" file))))   (cond (source-load
 (comment          (mapc source-files
                 #'(lambda (file)
 (defun exprint (file)                    (exfile (string-append base-directory "/" file)))))
   (print file terminal-output)  
   (exfile file))  
   
 (mapcar '("pack.l" "lib.l" "disp.l" "yokosort.l" "mincho.l"  
           "sym.l" "type1.l" "gothic.l" "newjoint.l" "center.l"  
           "limit.l" "unit.l" "transform.l" "naal.l" "hiranew.l"  
           "region.l" "out2ps.l" "outline.l")  
         #'(lambda (x) (print x)(exfile x)))  
 (comment  
 (cond ((definedp 'connect-to-server)  
        (code-load '("pack.o" "lib.o" "disp.o" "yokosort.o" "mincho.o"  
                     "sym.o"  
                     "type1.o" "gothic.o" "newjoint.o" "center.o"  
                     "limit.o" "unit.o" "transform.o" "naal.o" "hiranew.o"  
                     "region.o" "out2ps.o" "outline.o")))  
       (t        (t
        (code-load '("window.o" "pack.o" "lib.o" "disp.o" "yokosort.o"          (code-load
                     "sym.o"           (mapcar source-files
                     "mincho.o" "type1.o" "gothic.o" "newjoint.o" "center.o"                   #'(lambda (file)
                     "limit.o" "unit.o" "transform.o" "naal.o" "hiranew.o"                       (string-append
                     "region.o" "out2ps.o" "outline.o"                        base-directory "/"
                     ) "-lX11")))                        (substring file 0 (1- (string-length file)))
 )                        "o")))))))
 (exfile "limitrule.l")  
 (exfile "all.l")  
 (setq hirawidth 0.6)  
 (setq *default-hirawidth* 8)  
 (exfile "../primdata/prim-hira.l")  
 (exfile "../primdata/prim-kata.l")  
 (exfile "../primdata/prim-sym.l")  
 (exfile "../primdata/prim-gothic.l")  
 (exfile "../primdata/prim-hira-gothic.l")  
 (exfile "../primdata/prim-kata-gothic.l")  
 (exfile "../jointdata/joint-naal.l")  
 (exfile "server.l")  
 (exfile "test/jis3ku.l")  
 )  

Generate output suitable for use with a patch program
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
ktanaka

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help