REDROOM

Navigation

Breadcrumbs

/ / usr / share / ghostscript / 10.02.1 / lib

Create

Create File | Create Folder | Upload Files | Run Command

Edit File Size: 4.37 KB

//usr/share/ghostscript/10.02.1/lib/cid2code.ps

Text Base64

% Copyright (C) 2001-2023 Artifex Software, Inc.
% All Rights Reserved.
%
% This software is provided AS-IS with no warranty, either express or
% implied.
%
% This software is distributed under license and may not be copied,
% modified or distributed except as expressly authorized under the terms
% of the license contained in the file LICENSE in this distribution.
%
% Refer to licensing information at http://www.artifex.com or contact
% Artifex Software, Inc.,  39 Mesa Street, Suite 108A, San Francisco,
% CA 94129, USA, for further information.
%

% Construct an inverse map from CIDs to codes.

% Create an inverse map from CIDs to code values.
% We only use this for 16-bit Unicode, so it has some limitations.
% After invoking .cmap2code, loading a CMap file prints out the map
% instead of doing what it usually does.  For example:
%
%	gs -dNODISPLAY -dBATCH lib/cid2code.ps -c .cmap2code\
%	  -f Resource/CMap/UniJIS-UCS2-H > mapfile

/.cmap2codedict 10 dict begin

/begincmap {
  mark
} def
/endcmap {
                % Stack: mark code_lo1 code_hi1 cid1 ...
  20 dict begin
    /depth counttomark 3 sub def
                % Do a first pass to determine the maximum CID.
    0 0 3 depth {
      1 add /d exch def
      d index d 2 add index 1 get add d 3 add index 1 get sub .max
    } for
    1 add /ncid exch def
    /map ncid 2 mul string def
                % Now fill in the map.
    0 3 depth {
      /d exch def
      d index 2 mul /cid2 exch def
      d 1 add index /hi exch def
      d 2 add index 2 string copy /lo exch def
      lo 1 get 1 hi 1 get {
        map cid2 lo 0 get put
        map cid2 1 add 3 -1 roll put
        /cid2 cid2 2 add def
      } for
    } for
                % Print the map.
    (%stdout) (w) file
      dup (<) print
      dup /ASCIIHexEncode filter
        dup map writestring
      closefile
      () = flush
    closefile
  end
} def
%/begincodespacerange
/endcodespacerange {cleartomark} def
%/usecmap

%/beginbfchar
/endbfchar {cleartomark} def
%/beginbfrange
/endbfrange {cleartomark} def

%/begincidchar
/endcidchar {
  counttomark 2 idiv { dup counttomark 1 add 3 roll } repeat pop
} def
%/begincidrange
/endcidrange {
  counttomark 1 add -1 roll pop
} def

%/beginnotdefchar
/endnotdefchar {cleartomark} def
%/beginnotdefrange
/endnotdefrange {cleartomark} def

currentdict end readonly def

/.cmap2code {		% - .cmap2code -
  /CIDInit /ProcSet findresource dup length dict copy
  .cmap2codedict { 3 copy put pop pop } forall
  /CIDInit exch /ProcSet defineresource pop
} def

% Extract and print reverse mapping information from a cid2code.txt file.
/.printhex2 {		% <int16> .printhex2 -
  (<) print
  16#10000 add 16 =string cvrs 1 4 getinterval print
  (>) print
} def
/.cid2code {		% <cmaptemplate> <file> <column> .cid2code -
  30 dict begin
  /column exch def
  (r) file /f exch def
  (%!) =
  (/CIDInit /ProcSet findresource begin   12 dict begin   begincmap) =
                % Print the information from the template.
  {
    exch ==only ( ) print
    dup type /dicttype eq {
      dup length =only ( dict dup begin) = {
        (  ) print exch ===only ( ) print ===only ( def) =
      } forall (end def) =
    } {
      ===only
    } ifelse ( def) =
  } forall
                % Read the data from the cid2code.txt file.
  {
    f =string readline pop (CID\t) anchorsearch { pop pop exit } if pop
  } loop
  /map [ {
    f =string readline not { pop exit } if
    column { (\t) search pop pop pop } repeat
    (\t) search { exch pop exch pop } if
    (,) search { exch pop exch pop } if
    dup length 4 ne { pop (*) } if
    dup (*) eq { pop (0000) } if
    (16#) exch concatstrings cvi
  } loop ] def
                % Print the code space range(s).
  /maxcid map length 1 sub def
  mark maxcid
  dup 255 and 255 eq {
    0 exch
  } {
    dup 16#ff00 and exch 0 2 index 1 sub
  } ifelse
  counttomark 2 idiv dup =only ( begincodespacerange) = {
    exch .printhex2 .printhex2 () =
  } repeat (endcodespacerange) =
                % Print the map data.
  0 1 100 maxcid {
    /lo exch def
    /hi lo 99 add maxcid .min def
    0 lo 1 hi { map exch get 0 ne { 1 add } if } for
    dup 0 eq {
      pop
    } {
      =only ( begincidchar) = lo 1 hi {
        map 1 index get dup 0 eq { pop pop } { exch .printhex2 = } ifelse
      } for (endcidchar) =
    } ifelse
  } for
                % Wrap up.
  (endcmap   CMapName currentdict /CMap defineresource pop   end   end) =
  f closefile
  end
} bind def

Exit & Reset Text mode: syntax highlighting auto-detects file type.

Directory Contents

Dirs: 0 × Files: 156

Sort:

Enable drag-to-move

Name	Size	Perms	Modified	Actions
acctest.ps	4.17 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
align.ps	2.09 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
bj8.rpd	639 B	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
bj8gc12f.upp	1.50 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
bj8hg12f.upp	1.50 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
bj8oh06n.upp	1.48 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
bj8pa06n.upp	1.49 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
bj8pp12f.upp	1.51 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
bj8ts06n.upp	1.49 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
bjc610a0.upp	1.49 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
bjc610a1.upp	1.48 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
bjc610a2.upp	1.48 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
bjc610a3.upp	1.49 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
bjc610a4.upp	1.49 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
bjc610a5.upp	1.48 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
bjc610a6.upp	1.48 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
bjc610a7.upp	1.48 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
bjc610a8.upp	1.49 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
bjc610b1.upp	1.48 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
bjc610b2.upp	1.48 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
bjc610b3.upp	1.49 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
bjc610b4.upp	1.49 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
bjc610b6.upp	1.48 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
bjc610b7.upp	1.49 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
bjc610b8.upp	1.49 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
bjc6000a1.upp	1.62 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
bjc6000b1.upp	1.62 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
caption.ps	1.70 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
cbjc600.ppd	10.89 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
cbjc800.ppd	11.22 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
cdj550.upp	1.65 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
cdj690.upp	1.95 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
cdj690ec.upp	2.01 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
cid2code.ps	4.37 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
dnj750c.upp	2.74 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
dnj750m.upp	1.93 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
docie.ps	7.31 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
font2pcl.ps	18.10 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
ghostpdf.ppd	25.04 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
gslp.ps	21.78 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
gsnup.ps	2.56 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
gs_ce_e.ps	2.15 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
gs_css_e.ps	4.81 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
gs_il2_e.ps	2.55 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
gs_kanji.ps	3.90 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
gs_ksb_e.ps	3.06 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
gs_l.xbm	1.90 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
gs_l.xpm	2.69 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
gs_lgo_e.ps	2.65 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
gs_lgx_e.ps	1.71 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
gs_l_m.xbm	1.91 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
gs_m.xbm	945 B	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
gs_m.xpm	1.40 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
gs_m_m.xbm	955 B	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
gs_s.xbm	594 B	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
gs_s.xpm	957 B	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
gs_s_m.xbm	604 B	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
gs_t.xbm	345 B	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
gs_t.xpm	605 B	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
gs_t_m.xbm	355 B	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
gs_wl1_e.ps	2.42 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
gs_wl2_e.ps	2.42 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
gs_wl5_e.ps	2.44 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
ht_ccsto.ps	222.80 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
image-qa.ps	71.32 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
jispaper.ps	768 B	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
landscap.ps	1.43 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
lines.ps	3.63 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
mkcidfm.ps	21.78 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
necp2x.upp	1.02 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
necp2x6.upp	1.04 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
pdf2dsc.ps	7.86 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
PDFA_def.ps	2.98 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
PDFX_def.ps	3.77 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
pdf_info.ps	19.78 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
pf2afm.ps	14.94 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
pfbtopfa.ps	980 B	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
PM760p.upp	1.13 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
PM760pl.upp	1.10 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
PM820p.upp	1.12 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
PM820pl.upp	1.09 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
ppath.ps	1.76 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
pphs.ps	6.67 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
prfont.ps	7.03 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
printafm.ps	4.78 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
ps2ai.ps	21.77 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
ps2epsi.ps	5.89 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
ras1.upp	215 B	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
ras3.upp	214 B	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
ras4.upp	220 B	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
ras8m.upp	209 B	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
ras24.upp	219 B	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
ras32.upp	196 B	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
rollconv.ps	12.22 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
s400a1.upp	1.42 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
s400b1.upp	1.57 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
sharp.upp	1.89 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
sipixa6.upp	529 B	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
st640ih.upp	2.23 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
st640ihg.upp	1.47 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
st640p.upp	1.87 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
st640pg.upp	1.11 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
st640pl.upp	1.83 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
st640plg.upp	1.08 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
stc.upp	1.88 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
stc2.upp	1.86 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
stc2s_h.upp	2.22 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
stc2_h.upp	1.83 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
stc200_h.upp	1.80 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
stc300.upp	2.09 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
stc300bl.upp	1.31 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
stc300bm.upp	1.40 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
stc500p.upp	1.86 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
stc500ph.upp	1.86 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
stc600ih.upp	2.23 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
stc600p.upp	1.12 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
stc600pl.upp	1.09 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
stc640p.upp	1.07 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
Stc670p.upp	1.13 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
Stc670pl.upp	1.10 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
Stc680p.upp	1.11 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
Stc680pl.upp	1.09 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
stc740ih.upp	2.07 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
Stc740p.upp	1.01 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
Stc740pl.upp	1.09 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
Stc760p.upp	1.11 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
Stc760pl.upp	1.09 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
Stc777p.upp	1.11 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
Stc777pl.upp	1.09 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
stc800ih.upp	2.11 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
stc800p.upp	1.09 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
stc800pl.upp	1.07 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
stc1520h.upp	2.10 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
stcany.upp	673 B	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
stcany_h.upp	681 B	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
stcinfo.ps	24.87 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
stcolor.ps	4.90 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
stc_h.upp	1.87 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
stc_l.upp	734 B	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
stocht.ps	2.42 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
Stp720p.upp	1.13 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
Stp720pl.upp	1.09 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
Stp870p.upp	1.11 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
Stp870pl.upp	1.09 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
traceimg.ps	1.33 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
traceop.ps	2.50 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
uninfo.ps	5.83 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
viewcmyk.ps	2.11 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
viewgif.ps	5.30 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
viewjpeg.ps	5.73 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
viewmiff.ps	4.14 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
viewpbm.ps	10.22 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
viewpcx.ps	5.29 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
viewps2a.ps	1.09 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
winmaps.ps	3.50 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive
zeroline.ps	2.25 KB	lrw-r--r--	2025-09-25 16:37:20	Edit Download recursive recursive