(FILECREATED "13-Sep-85 10:39:22" {ERIS}<LISPCORE>FONTS>FONTTOOLS.;7
 4823   

      changes to:  (FNS GETOSDFONTS)

      previous date: "25-Apr-85 09:26:34" {ERIS}<LISPCORE>FONTS>FONTTOOLS.;6)


(* Copyright (c) 1984, 1985 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT FONTTOOLSCOMS)

(RPAQQ FONTTOOLSCOMS
 [(FNS COPYFONTS GETOSDFONTS GETJFONTS COPYJFONTS)
		      (VARS [OSDCOERCIONS (QUOTE ((FRUTIGER . MODERN)
						  (CENTURY . CLASSIC)
						  (TERMINAL . TERMINAL)
						  (BOLDPS . BOLDPS)
						  (LETTERGOTHIC . LETTERGOTHIC)
						  (TITAN . TITAN]
			    (OSDNAMES (QUOTE (FRUTIGER CENTURY TERMINAL BOLDPS LETTERGOTHIC TITAN)))
			    [FACECOERCIONS (QUOTE ((MRR . "")
						   (MIR . -I)
						   (BRR . -B)
						   (BIR . -B-I]
			    (FACENAMES (QUOTE (MRR MIR BRR BIR])
(DEFINEQ

(COPYFONTS

  [LAMBDA (FAMILY OURFAMILY ONLYFACES OPTIONS FROMDIR TODIR)
                                                             (* jds "25-Apr-85 09:25")

                                                             (* COPY FONT FILES FROM THEIR ODS CANONICAL 

							     LOCATION/NAMES TO LISP'S CANONICAL LOCATION/NAMES)

    (for
 FACE in
 (
QUOTE
 (MRR MIR BRR BIR)) as
 OURFACE in
 (
QUOTE
 ("" -I -B -B-I))
       when
 (
OR
 (
NOT
 ONLYFACES)
		(
MEMB
 FACE ONLYFACES))
       do
 (
COPYFILES
 (
PACK*
 (
OR
 FROMDIR (
QUOTE
 {SKY}<AFONTS>5.0>))
			    (
QUOTE
 WIDTHS>)
			    FAMILY
			    (
QUOTE
 *)
			    FACE
			    (
QUOTE
 -C*.WD))
		     (
PACK*
 (
OR
 TODIR (
QUOTE
 {ERIS}<LISP>FONTS>))
			    OURFAMILY
			    (
QUOTE
 *)
			    OURFACE
			    (
QUOTE
 -C*.WD))
		     (
OR
 OPTIONS (
QUOTE
 >A)))                (* COPY THE PRINTER WIDTHS FILES)

	  (
COPYFILES
 (
PACK*
 (
OR
 FROMDIR (
QUOTE
 {SKY}<AFONTS>5.0>))
			    (
QUOTE
 72DPI>)
			    FAMILY
			    (
QUOTE
 *)
			    FACE
			    (
QUOTE
 -72.C*))
		     (
PACK*
 (
OR
 TODIR (
QUOTE
 {ERIS}<LISP>FONTS>))
			    OURFAMILY
			    (
QUOTE
 *)
			    OURFACE
			    (
QUOTE
 -C*.DISPLAYFONT))
		     (
OR
 OPTIONS (
QUOTE
 >A)))                (* AND THE SCREEN FONTS)

	  ])

(GETOSDFONTS

  [LAMBDA (OSDNAMES OURNAMES ONLYFACES FROMDIR TODIR OPTIONS)
                                                             (* jds "12-Sep-85 11:59")

    (for
 OSDNAME inside
 (
OR
 OSDNAMES (
QUOTE
 (BOLDPS CENTURY FRUTIGER TERMINAL TITAN LETTERGOTHIC LOGO)
					    ))
       as
 LISPNAME inside
 (
OR
 OURNAMES (
QUOTE
 (BOLDPS CLASSIC MODERN TERMINAL TITAN LETTERGOTHIC LOGO)
					      ))
       do
 (COPYFONTS
 OSDNAME LISPNAME ONLYFACES (
OR
 OPTIONS (
QUOTE
 >A))
		     FROMDIR TODIR])

(GETJFONTS

  [LAMBDA (OSDNAMES OURNAMES ONLYFACES)                      (* jds "16-Apr-85 17:48")

    (for
 OSDNAME in
 (
OR
 OSDNAMES (
QUOTE
 (BOLDPS CENTURY FRUTIGER TERMINAL TITAN LETTERGOTHIC LOGO)))
       as
 LISPNAME in
 (
OR
 OURNAMES (
QUOTE
 (BOLDPS CLASSIC MODERN TERMINAL TITAN LETTERGOTHIC LOGO)))
       do
 (COPYJFONTS
 OSDNAME LISPNAME ONLYFACES])

(COPYJFONTS

  [LAMBDA (FAMILY OURFAMILY ONLYFACES OPTIONS)               (* jds "16-Apr-85 17:49")

                                                             (* COPY FONT FILES FROM THEIR ODS CANONICAL 

							     LOCATION/NAMES TO LISP'S CANONICAL LOCATION/NAMES)

    (for
 FACE in
 (
QUOTE
 (MRR MIR BRR BIR)) as
 OURFACE in
 (
QUOTE
 ("" -I -B -B-I))
       when
 (
OR
 (
NOT
 ONLYFACES)
		(
MEMB
 FACE ONLYFACES))
       do
 (COPYFILES (
PACK*
 (
QUOTE
 {SKY}<AELFONTS>5.0>WIDTHS>)
			    FAMILY
			    (
QUOTE
 *)
			    FACE
			    (
QUOTE
 -C*.WD))
		     (
PACK*
 (
QUOTE
 {ERIS}<LISP>FONTS>)
			    OURFAMILY
			    (
QUOTE
 *)
			    OURFACE
			    (
QUOTE
 -C*.WD))
		     (
OR
 OPTIONS (
QUOTE
 >A)))                (* COPY THE PRINTER WIDTHS FILES)

	  (COPYFILES (
PACK*
 (
QUOTE
 {SKY}<AELFONTS>5.0>72DPI>)
			    FAMILY
			    (
QUOTE
 *)
			    FACE
			    (
QUOTE
 -72.C*))
		     (
PACK*
 (
QUOTE
 {ERIS}<LISP>FONTS>)
			    OURFAMILY
			    (
QUOTE
 *)
			    OURFACE
			    (
QUOTE
 -C*.DISPLAYFONT))
		     (
OR
 OPTIONS (
QUOTE
 >A)))                (* AND THE SCREEN FONTS)

	  ])
)

(RPAQQ OSDCOERCIONS
 ((FRUTIGER . MODERN)
		     (CENTURY . CLASSIC)
		     (TERMINAL . TERMINAL)
		     (BOLDPS . BOLDPS)
		     (LETTERGOTHIC . LETTERGOTHIC)
		     (TITAN . TITAN)))

(RPAQQ OSDNAMES
 (FRUTIGER CENTURY TERMINAL BOLDPS LETTERGOTHIC TITAN))

(RPAQQ FACECOERCIONS
 ((MRR . "")
		      (MIR . -I)
		      (BRR . -B)
		      (BIR . -B-I)))

(RPAQQ FACENAMES
 (MRR MIR BRR BIR))
(PUTPROPS FONTTOOLS COPYRIGHT ("Xerox Corporation" 1984 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (811 4333 (COPYFONTS 821 . 2186) (GETOSDFONTS 2188 . 2732) (GETJFONTS 2734 . 3132) (
COPYJFONTS 3134 . 4331)))))
STOP