[wadalabfont-kit] / build / outline / wadalab-mincho-0-8 / makeall.l  

Diff of /build/outline/wadalab-mincho-0-8/makeall.l

Parent Directory | Revision Log

version 1.1, Mon Jun 30 13:24:32 2003 UTC version 1.2, Thu Jul 3 11:42:38 2003 UTC
Line 3 
Line 3 
   (lets ((base-directory dir))    (lets ((base-directory dir))
         (exfile (string-append base-directory "/" "load.l"))))          (exfile (string-append base-directory "/" "load.l"))))
 ; コンパイラが通らない時は次の行をコメントアウト  ; コンパイラが通らない時は次の行をコメントアウト
 (setq source-load t)  (or (boundp 'source-load )(setq source-load t))
   ;
   (setq oldvalue nil)
   (setq backtrace nil)
   (setq gc-hook #'(lambda (n)
                     (setq oldvalue(oldvalue))
                     (setq backtrace (backtrace))))
 ;  ;
 (load-directory "../../../renderer/")  (load-directory "../../../renderer/")
 (load-directory "../../../primdata/")  (load-directory "../../../primdata/")
 (load-directory "../../../jointdata/")  (load-directory "../../../jointdata/")
 (load-directory "../../../kanjidata/")  (load-directory "../../../kanjidata/")
   ;
   
 (setq minchowidth 8.0)  (setq minchowidth 8.0)
 (setq hirawidth (times minchowidth 0.05))  (setq hirawidth (times minchowidth 0.05))


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

ktanaka

Powered by ViewCVS 1.0-dev

ViewCVS and CVS Help