View of /renderer/load.l

Parent Directory

Revision Log

*** empty log message ***

;; load.l
(or (boundp 'base-directory)(setq base-directory "."))
(or (boundp 'source-load)(setq source-load nil))
(lets 
 ((source-files 
   '("pack.l"
     "lib.l"
     "yokosort.l"
     "mincho.l"
     "apply.l"
     "sym.l"
     "type1.l"
     "gothic.l"
     "newjoint.l"
     "center.l"
     "limit.l"
     "limitrule.l"
     "unit.l"
     "transform.l"
     "naal.l"
     "hiranew.l"
     "region.l"
     "out2ps.l"
     "outline.l")))
 (cond (source-load
	(mapc source-files
	      #'(lambda (file) 
		  (exfile (string-append base-directory "/" file)))))
       (t
	(code-load 
	 (mapcar source-files
		 #'(lambda (file)
		     (string-append 
		      base-directory "/"
		      (substring file 0 (1- (string-length file)))
		      "o")))))))