/usr/share/picolisp/lib/head.ps is in picolisp 15.11-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | %%DocumentFonts: (atend)
/PicoEncoding
ISOLatin1Encoding dup length array copy
def
/isoLatin1 {
dup dup findfont dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding PicoEncoding def currentdict
end definefont
} def
/glyphArrayShow {
{
dup type /stringtype eq {show} {glyphshow} ifelse
} forall
} def
/glyphArrayWidth {
0 exch
{
dup type /stringtype eq {
stringwidth pop
} {
matrix currentmatrix gsave
newpath nulldevice setmatrix 0 0 moveto glyphshow
currentpoint grestore pop
} ifelse
add
} forall
} def
|