[wadalabfont-kit] / skeleton-edit / skeleton-edit.l  

Diff of /skeleton-edit/skeleton-edit.l

Parent Directory | Revision Log

version 1.1, Fri Jun 27 00:52:12 2003 UTC version 1.2, Mon Jun 30 13:24:32 2003 UTC
Line 21 
Line 21 
 (defun reload-skeleton ((load-primitive-all t))  (defun reload-skeleton ((load-primitive-all t))
   (reload-skeleton load-primitive-all))    (reload-skeleton load-primitive-all))
   
   (defun load-directory (dir)
     (lets ((base-directory dir))
           (exfile (string-append base-directory "/" "load.l"))))
   (setq source-load t)
 (defun reload-skeleton ((load-primitive-all t))  (defun reload-skeleton ((load-primitive-all t))
   (let ((curdir (current-directory))    (let ((curdir (current-directory))
         (source-of-binary-files '(          (source-of-binary-files '(
                                   "./tools/addhira.l"                                    "./addhira.l"
                                   "./tools/addprim.l"                                    "./addprim.l"
                                   "./tools/affinprim.l"                                    "./affinprim.l"
                                   "./tools/aplyknj.l"                                    "./aplyknj.l"
                                   "./tools/delprim.l"                                    "./delprim.l"
                                   "./tools/dist.l"                                    "./dist.l"
                                   "./tools/delhirapnt.l"                                    "./delhirapnt.l"
                                   "./tools/drag-line.l"                                    "./drag-line.l"
                                   "./tools/draw.l"                                    "./draw.l"
                                   "./tools/edhira.l"                                    "./edhira.l"
                                   "./tools/edjoint.l"                                    "./edjoint.l"
                                   "./tools/edprim.l"                                    "./edprim.l"
                                   "./tools/etc.l"                                    "./etc.l"
                                   "./tools/han2zen.l"                                    "./han2zen.l"
                                   "./tools/hirapoint.l"                                    "./hirapoint.l"
                                   "./tools/init.l"                                    "./init.l"
                                   "./tools/loop.l"                                    "./loop.l"
                                   "./tools/message.l"                                    "./message.l"
                                   "./tools/movebox.l"                                    "./movebox.l"
                                   "./tools/nolink.l"                                    "./nolink.l"
                                   "./tools/primdef.l"                                    "./primdef.l"
                                   "./tools/primdisp.l"                                    "./primdisp.l"
                                   "./tools/resizebox.l"                                    "./resizebox.l"
                                   "./tools/skel-lib.l"                                    "./skel-lib.l"
                                   "./tools/slider.l"                                    "./slider.l"
                                   "./tools/whichprim.l"                                    "./whichprim.l"
                                   "./tools/xyunit.l")))                                    "./xyunit.l")))
   
     (cd "/home/misa/kanji/lib")  ;    (cd "/home/misa/kanji/lib")
   
     (cond ((definedp 'connect-to-server)      (cond ((definedp 'connect-to-server)
            nil)             nil)
Line 70 
Line 74 
                                "o")))))                                 "o")))))
              (code-load binary-files))))               (code-load binary-files))))
   
     (load "./tools/skeledit.l")      (load "./skeledit.l")
     (load "./tools/kinput.l")      (load "./kinput.l")
     (load "./tools/nocompile.l")      (load "./nocompile.l")
     (load "./tools/ulxbug.l")      (load "./ulxbug.l")
     (load "./tools/primref.l")      (load "./primref.l")
     (load "./tools/askyn.l")      (load "./askyn.l")
   
     (when load-primitive-all      (when load-primitive-all
       (comment setq makekanjilist t)        (comment setq makekanjilist t)
       (load "./load.l")        (load-directory "../renderer/")
         (load-directory "../primdata/")
         (load-directory "../jointdata/")
         (load-directory "../kanjidata/")
   ;      (load "./load.l")
 ;      (load "./gothic.l")  ;      (load "./gothic.l")
 ;      (load "./startup-hira.l")  ;      (load "./startup-hira.l")
 ;      (load "./prim-patch.l")  ;      (load "./prim-patch.l")

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