(FILECREATED " 8-Feb-86 17:03:30" {DSK}<LISPFILES2>IMPROVEDDCOMS>SECURITY.;1
 1486   

      previous date: "25-Nov-85 17:38:39" {GOEDEL}</usr2/pds/updating/>SECURITY)


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

(PRETTYCOMPRINT SECURITYCOMS)

(RPAQQ SECURITYCOMS
 ((SCCS) (FNS \MachineID \SmashAtom \UnSmashAtom)))
(* %%G%  %%W% )
(DEFINEQ

(\MachineID

(LAMBDA NIL (* hdj "21-Nov-85 15:58") (LIST (fetch (IFPAGE NSHost0) of \InterfacePage) (fetch (IFPAGE 
NSHost1) of \InterfacePage) (fetch (IFPAGE NSHost2) of \InterfacePage))))

(\SmashAtom

(LAMBDA (Atom) (* hdj "21-Nov-85 16:09") (if (NOT (LITATOM Atom)) then (\ILLEGAL.ARG Atom) else (LET (
(BASE (fetch (LITATOM PNAMEBASE) of Atom)) (FATPNAME? (fetch (LITATOM FATPNAMEP) of Atom)) (
PNAMELENGTH (fetch (LITATOM PNAMELENGTH) of Atom))) (PROG1 (LIST (\LOLOC Atom) (\GETBASESTRING BASE (
COND (FATPNAME? 2) (T 1)) PNAMELENGTH FATPNAME?)) (for X from 1 to PNAMELENGTH do (\PUTBASECHAR 
FATPNAME? BASE X (CHARCODE X))))))))

(\UnSmashAtom

(LAMBDA (AtomNum String) (* hdj "21-Nov-85 16:12") (LET* ((AtomToFix (\VAG2 0 AtomNum)) (BASE (fetch (
LITATOM PNAMEBASE) of AtomToFix)) (FATPNAME? (fetch (LITATOM FATPNAMEP) of AtomToFix)) (PNAMELENGTH (
fetch (LITATOM PNAMELENGTH) of AtomToFix))) (for X from 1 to PNAMELENGTH do (\PUTBASECHAR FATPNAME? 
BASE X (CHCON1 (SUBSTRING String X X)))) AtomToFix)))
)
(PUTPROPS SECURITY COPYRIGHT ("Xerox Corporation" 1985 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (370 1402 (\MachineID 380 . 572) (\SmashAtom 574 . 1021) (\UnSmashAtom 1023 . 1400)))))
STOP