File Manager

Hackfut Security File Manager

Current Path: /usr/share/ghostscript/8.70/lib

usr / share / ghostscript / 8.70 / lib /

📁 ..
📄 PDFA_def.ps(1.14 KB)
📄 PDFX_def.ps(1.82 KB)
📄 PM760p.upp(1.13 KB)
📄 PM760pl.upp(1.1 KB)
📄 PM820p.upp(1.12 KB)
📄 PM820pl.upp(1.09 KB)
📄 Stc670p.upp(1.13 KB)
📄 Stc670pl.upp(1.1 KB)
📄 Stc680p.upp(1.11 KB)
📄 Stc680pl.upp(1.09 KB)
📄 Stc740p.upp(1.01 KB)
📄 Stc740pl.upp(1.09 KB)
📄 Stc760p.upp(1.11 KB)
📄 Stc760pl.upp(1.09 KB)
📄 Stc777p.upp(1.11 KB)
📄 Stc777pl.upp(1.09 KB)
📄 Stp720p.upp(1.13 KB)
📄 Stp720pl.upp(1.09 KB)
📄 Stp870p.upp(1.11 KB)
📄 Stp870pl.upp(1.09 KB)
📄 acctest.ps(4.22 KB)
📄 addxchar.ps(9.62 KB)
📄 align.ps(2.26 KB)
📄 bdftops.ps(22.85 KB)
📄 bj8.rpd(639 B)
📄 bj8gc12f.upp(1.49 KB)
📄 bj8hg12f.upp(1.49 KB)
📄 bj8oh06n.upp(1.48 KB)
📄 bj8pa06n.upp(1.49 KB)
📄 bj8pp12f.upp(1.5 KB)
📄 bj8ts06n.upp(1.49 KB)
📄 bjc6000a1.upp(1.62 KB)
📄 bjc6000b1.upp(1.62 KB)
📄 bjc610a0.upp(1.49 KB)
📄 bjc610a1.upp(1.48 KB)
📄 bjc610a2.upp(1.48 KB)
📄 bjc610a3.upp(1.48 KB)
📄 bjc610a4.upp(1.49 KB)
📄 bjc610a5.upp(1.48 KB)
📄 bjc610a6.upp(1.48 KB)
📄 bjc610a7.upp(1.48 KB)
📄 bjc610a8.upp(1.49 KB)
📄 bjc610b1.upp(1.48 KB)
📄 bjc610b2.upp(1.48 KB)
📄 bjc610b3.upp(1.48 KB)
📄 bjc610b4.upp(1.49 KB)
📄 bjc610b6.upp(1.48 KB)
📄 bjc610b7.upp(1.48 KB)
📄 bjc610b8.upp(1.49 KB)
📄 caption.ps(1.68 KB)
📄 cbjc600.ppd(10.78 KB)
📄 cbjc800.ppd(11.12 KB)
📄 cdj550.upp(1.65 KB)
📄 cdj690.upp(1.95 KB)
📄 cdj690ec.upp(2.01 KB)
📄 cid2code.ps(4.37 KB)
📄 decrypt.ps(350 B)
📄 dmp_init.ps(7.08 KB)
📄 dmp_site.ps(459 B)
📄 dnj750c.upp(2.74 KB)
📄 dnj750m.upp(1.92 KB)
📄 docie.ps(7.2 KB)
📄 dumphint.ps(19.57 KB)
📄 escp_24.src(350 B)
📄 font2c.ps(19.13 KB)
📄 font2pcl.ps(17.16 KB)
📄 ghostpdf.ppd(25.04 KB)
📄 gs_ce_e.ps(2.31 KB)
📄 gs_cmdl.ps(4.73 KB)
📄 gs_fform.ps(3.09 KB)
📄 gs_il2_e.ps(2.71 KB)
📄 gs_kanji.ps(3.85 KB)
📄 gs_ksb_e.ps(3.21 KB)
📄 gs_l.xbm(1.9 KB)
📄 gs_l.xpm(2.69 KB)
📄 gs_l_m.xbm(1.91 KB)
📄 gs_lgo_e.ps(2.82 KB)
📄 gs_lgx_e.ps(1.87 KB)
📄 gs_m.xbm(945 B)
📄 gs_m.xpm(1.4 KB)
📄 gs_m_m.xbm(955 B)
📄 gs_pfile.ps(4.25 KB)
📄 gs_rdlin.ps(862 B)
📄 gs_s.xbm(594 B)
📄 gs_s.xpm(957 B)
📄 gs_s_m.xbm(604 B)
📄 gs_t.xbm(345 B)
📄 gs_t.xpm(605 B)
📄 gs_t_m.xbm(355 B)
📄 gs_wl1_e.ps(2.47 KB)
📄 gs_wl2_e.ps(2.47 KB)
📄 gs_wl5_e.ps(2.49 KB)
📄 gslp.ps(19.18 KB)
📄 gsnup.ps(2.66 KB)
📄 ht_ccsto.ps(222.85 KB)
📄 image-qa.ps(71.6 KB)
📄 impath.ps(5.41 KB)
📄 jispaper.ps(930 B)
📄 landscap.ps(1.49 KB)
📄 level1.ps(110 B)
📄 lines.ps(3.78 KB)
📄 markhint.ps(3.39 KB)
📄 markpath.ps(1.85 KB)
📄 mkcidfm.ps(7.13 KB)
📄 necp2x.upp(1.02 KB)
📄 necp2x6.upp(1.04 KB)
📄 packfile.ps(10.12 KB)
📄 pcharstr.ps(3.5 KB)
📄 pdf2dsc.ps(8.18 KB)
📄 pdfopt.ps(35.66 KB)
📄 pdfwrite.ps(11.4 KB)
📄 pf2afm.ps(14.99 KB)
📄 pfbtopfa.ps(1.11 KB)
📄 ppath.ps(1.93 KB)
📄 pphs(391 B)
📄 pphs.ps(6.76 KB)
📄 prfont.ps(6.33 KB)
📄 printafm.ps(3.69 KB)
📄 ps2ai.ps(21.96 KB)
📄 ps2ascii.ps(43.57 KB)
📄 ps2epsi.ps(8 KB)
📄 quit.ps(5 B)
📄 ras1.upp(211 B)
📄 ras24.upp(215 B)
📄 ras3.upp(210 B)
📄 ras32.upp(192 B)
📄 ras4.upp(216 B)
📄 ras8m.upp(205 B)
📄 rollconv.ps(11.49 KB)
📄 s400a1.upp(1.42 KB)
📄 s400b1.upp(1.57 KB)
📄 sharp.upp(1.89 KB)
📄 showchar.ps(2.86 KB)
📄 showpage.ps(9 B)
📄 sipixa6.upp(529 B)
📄 st640ih.upp(2.22 KB)
📄 st640ihg.upp(1.47 KB)
📄 st640p.upp(1.87 KB)
📄 st640pg.upp(1.11 KB)
📄 st640pl.upp(1.83 KB)
📄 st640plg.upp(1.08 KB)
📄 stc.upp(1.87 KB)
📄 stc1520h.upp(2.1 KB)
📄 stc2.upp(1.86 KB)
📄 stc200_h.upp(1.8 KB)
📄 stc2_h.upp(1.83 KB)
📄 stc2s_h.upp(2.21 KB)
📄 stc300.upp(2.08 KB)
📄 stc300bl.upp(1.31 KB)
📄 stc300bm.upp(1.39 KB)
📄 stc500p.upp(1.85 KB)
📄 stc500ph.upp(1.85 KB)
📄 stc600ih.upp(2.22 KB)
📄 stc600p.upp(1.12 KB)
📄 stc600pl.upp(1.08 KB)
📄 stc640p.upp(1.07 KB)
📄 stc740ih.upp(2.07 KB)
📄 stc800ih.upp(2.1 KB)
📄 stc800p.upp(1.08 KB)
📄 stc800pl.upp(1.07 KB)
📄 stc_h.upp(1.86 KB)
📄 stc_l.upp(730 B)
📄 stcany.upp(669 B)
📄 stcany_h.upp(677 B)
📄 stcinfo.ps(25.13 KB)
📄 stcolor.ps(5.1 KB)
📄 stocht.ps(2.58 KB)
📄 traceimg.ps(1.49 KB)
📄 traceop.ps(2.67 KB)
📄 type1enc.ps(2.48 KB)
📄 type1ops.ps(7.4 KB)
📄 uninfo.ps(5.99 KB)
📄 unprot.ps(1.86 KB)
📄 viewcmyk.ps(2.06 KB)
📄 viewgif.ps(4.47 KB)
📄 viewjpeg.ps(4.83 KB)
📄 viewmiff.ps(3.69 KB)
📄 viewpbm.ps(5.18 KB)
📄 viewpcx.ps(4.24 KB)
📄 viewps2a.ps(1.25 KB)
📄 wftopfa.ps(8.71 KB)
📄 winmaps.ps(3.66 KB)
📄 wrfont.ps(17.74 KB)
📄 zeroline.ps(2.41 KB)

Editing: dumphint.ps

% Copyright (C) 2000, 2001 Aladdin Enterprises.  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.
% 
% For more information about licensing, please refer to
% http://www.ghostscript.com/licensing/. For information on
% commercial licensing, go to http://www.artifex.com/licensing/ or
% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
% San Rafael, CA  94903, U.S.A., +1(415)492-9861.

% $Id: dumphint.ps 8284 2007-10-10 17:40:38Z giles $
% Linearized PDF hint formatting utility.

%
% Linearized PDF hints generated by Acrobat suite seem to deviate from
% the published specification.
%
% /P (page offset hint table) key in hint stream is not generated by
% Adobe products. The key is no longer required in PDF 1.5.
%
% Per-page items 4 and 5 of the page offset hint table start from 1st
% page rather than 2nd page as the spec claims.
%
% All array entries start from the new byte boundary.
%

/table_width 79 def 
/col1_width  66 def

% Skip bits to the next byte boundary
/bytealign {		% <stream> bytealign -
  begin /N 0 def /B 0 def end
} bind def

% Set bit stream position and align it to byte boundary
/set_align {            % <<>> pos set_align -
  exch begin
  S exch setfileposition
  /N 0 def /B 0 def
  end
} bind def

% Read requested number of bits from the bit stream.
/bitread {		% <bstream> <width> bitwrite <value>
  exch begin
  0                     %  bit val
  { 
    1 index N .min      %  bit val m
    dup 3 1 roll        %  bit m val m 
    bitshift            %  bit m val<<m
    B 2 index N sub     %  bit m val<<m B m-N
    bitshift add        %  bit m val<<m+B>>(N-m)
    3 -1 roll           %  m val' bit 
    2 index sub         %  m val' bit'
    3 -1 roll           %  val' bit' m
    N exch sub dup      %  val' bit' N' N'
    1 exch bitshift     %  val' bit' N' 1<<N'
    1 sub B and         %  val' bit' N' B&(1<<N')
    /B exch def         %  val' bit' N'
    /N exch def         %  val' bit'
    dup 0 le {
      pop exit          %  val'
    } if
    /N N 8 add def
    /B B 8 bitshift S read not { 0 ( *** EOF! *** ) = } if add def
    exch
  } loop                %  bit' val'
  end
} bind def

% Print a string several times
/multiprint {           % cnt (s) multiprint -
  exch { dup print } repeat pop
} bind def

% Split the line into 2 substrings.
/split_line {           % (s) split_line () ()
  dup length col1_width gt {
    col1_width 1 sub
    dup -1 0 {
      dup               % (s) w i i
      3 index           % (s) w i i ()
      exch get          % (s) w i c
      32 eq {
        exch pop exit
      } if
      pop
    } for
    1 add               % (s) w'
    1 index exch        % (s) (s) w'
    0 exch              % (s) (s) 0 w'
    getinterval         % (s) (v)
  } {
    dup                 % (s) (s)
  } ifelse                  
  (\n) search {
    4 1 roll            % (pre) (s) (post) (match)
    pop pop             % (pre) (s)
    1 index length      % (pre) (s) len
    1 add               % (pre) (s) len+1
  } {
    exch                % (pre) (s)
    1 index length      % (pre) (s) len
  } ifelse
  1 index length        % (pre) (s) len Len
  1 index sub           % (pre) (s) len Len-len
  getinterval           % (pre) (post)
} bind def

% Print a 2 column table. The string is printed in 1st column
% left-aligned. The number is printed in 2nd column right-aligned.
/two_column {           % n () two_column -
  split_line            % n (a) ()
  3 1 roll              % () n (a)
  dup length            % () n (a) len
  exch print            % () n len
  exch =string cvs      % () len (n)
  dup length            % () len (n) len2
  3 -1 roll add         % () (n) len+len2 
  //table_width         % () (n) len+len2 78
  exch sub              % () (n) 78-len+len2 
  ( ) multiprint        % () (n)
  =                     % ()
  { dup length 0 eq { exit } if
    split_line exch =
  } loop
  pop
  () =
} bind def

% Print the header of a hint table
/table_header {               % () table_header -
  dup length dup
  table_width exch sub 2 idiv % () len sp
  dup ( ) multiprint          % () len sp
  3 -1 roll =                 % len sp
  ( ) multiprint              % len
  (=) multiprint
  ()= ()=
} bind def

% Pretty-print an array on top level
/dump_array {               % [ ] dump_array -
  ([) = ( ) print
  1 exch {
    =string cvs         % pos ()
    dup length dup      % pos () len len
    3 index add 1 add   % pos () len len+pos+1
    table_width gt {
      () =
      (  ) print        % pos () len
      2 add             % pos () pos'
      3 1 roll print pop % pos'
    } {
      ( ) print         % pos () len
      exch print        % pos len
      add 1 add         % pos'
    } ifelse
  } forall
  pop
  () = (]) =
} bind def

% Pretty-print an array on 2nd level
/dump_array2 {             % [ ] dump_array2 -
  (  [) print
  3 exch {
    =string cvs            % pos ()
    dup length dup         % pos () len len
    3 index add 1 add      % pos () len len+pos+1
    table_width 2 sub gt {
      () =
      (    ) print         % pos () len
      4 add                % pos () pos'
      3 1 roll print pop   % pos'
    } {
      ( ) print            % pos () len
      exch print           % pos len
      add 1 add            % pos'
    } ifelse
  } forall
  pop
  ( ]) =
} bind def

% Print an array header
/array_header {
  () = =
} bind def

% Analyze the page offset hint table.
/dump_page_offset_table {  % - dump_page_offset_table -
  hint_stream
    
  dup 32 bitread
  dup /hint_minnop exch def
  (1. The least number of objects in a page.) two_column

dup 32 bitread
  dup /hint_1st_obj exch def
  (2. Location of the first page's page object.) two_column

dup 16 bitread
  dup /hint_maxnopbits exch def
  (3. Bits for difference between max and min number of page objects.) two_column

dup 32 bitread
  dup /hint_minpl exch def
  (4. Least length of a page.) two_column

dup 16 bitread
  dup /hint_maxplbits exch def
  (5. Bits for difference between max and min length of a page.) two_column

dup 32 bitread
  dup /hint_minsco exch def
  (6. Least start of Contents offset. ) 
  1 index 0 ne { (\n*** Acrobat expects 0 ***) concatstrings } if
  two_column

dup 16 bitread
  dup /hint_maxscobits exch def
  (7. Bits for difference between max and min offset to the start of the content stream.) two_column

dup 32 bitread
  dup /hint_mincl exch def
  (8. Least contents length.) two_column

dup 16 bitread
  dup /hint_maxclbits exch def
  (9. Bits needed to represent the greatest Contents length.) two_column

dup 16 bitread
  dup /hint_maxsorbits exch def
  (10. Bits needed to represent the greatest number of Shared Object references.) two_column

dup 16 bitread
  dup /hint_sobits exch def
  (11. Bits needed to identify a Shared Object.) two_column

dup 16 bitread
  dup /hint_numfbits exch def
  (12. Bits needed to represent numerator of fraction.) two_column

dup 16 bitread
  dup /hint_denf exch def
  (13. Denominator of fraction.) two_column

pop

LinearizationParams /N get

% 1. Number of objects in the page.
  hint_stream bytealign
  /hint_page_obj [
    2 index {
      hint_stream hint_maxnopbits bitread
      hint_minnop add
    } repeat
  ] readonly def

(1. Number of objects on the page) array_header
  hint_page_obj dump_array

% 2, Page length in bytes.
  hint_stream bytealign
  /hint_page_len [
    2 index {
      hint_stream hint_maxplbits bitread
      hint_minpl add
    } repeat
  ] readonly def

(2. Page length in bytes.) array_header
  hint_page_len dump_array

% 3, Number of shared objects referenced from the page
  hint_stream bytealign
  /hint_page_sobj [
    2 index {
      hint_stream hint_maxsorbits bitread
    } repeat
  ] readonly def

(3. Number of shared objects referenced from the page.) array_header
  hint_page_sobj dump_array

% 4. Index into the shared objects hint table
  hint_stream bytealign
  /hint_page_sobj_id [
    0 1 4 index 1 sub {
      hint_page_sobj exch get [
        exch {
          hint_stream hint_sobits bitread
        } repeat
      ] readonly
    } for
  ] readonly def

(4. Index into the shared objects hint table.) array_header
  ([) =
  hint_page_sobj_id { dump_array2 } forall
  (])=

% 5. Fractional position for each shared object reference
  hint_stream bytealign
  /hint_page_sobj_pos [
    0 1 4 index 1 sub {
      hint_page_sobj exch get [
        exch {
          hint_stream hint_numfbits bitread
          hint_denf div
        } repeat
      ] readonly
    } for
  ] readonly def

(5. Fractional position for each shared object reference. ) array_header
  ([)=
  hint_page_sobj_pos { dump_array2 } forall
  (])=

% 6. Offset of the page's content stream from the beginning of the page.
  hint_stream bytealign
  /hint_page_content_offset [
    2 index {
      hint_stream hint_maxscobits bitread
      hint_minsco add
    } repeat
  ] readonly def

(6. Offset of the page's content stream from the beginning of the page.) array_header
  hint_page_content_offset dump_array

% 7. Length of the page's content stream in bytes.
  hint_stream bytealign
  /hint_page_content_len [
    2 index {
      hint_stream hint_maxclbits bitread
      hint_mincl add
    } repeat
  ] readonly def

(7. Length of the page's content stream in bytes.) array_header
  hint_page_content_len dump_array

pop
} bind def

% Analyze tha shared object hint table
/dump_shared_object_table { 
  hint_stream
    
  dup 32 bitread
  dup /shint_1st_obj_id exch def
  (1. Object number of the first object in the shared objects section) two_column

dup 32 bitread
  dup /shint_1st_obj_pos exch def
  (2. Location of the first object in the shared objects section.) two_column

dup 32 bitread
  dup /shint_1st_shared exch def
  (3. The number of shared object entries for the first page.) two_column

dup 32 bitread
  dup /shint_all_shared exch def
  (4. Number of shared object entries for the shared objects section including 1st page.) two_column

dup 16 bitread
  dup /shint_group_bits exch def
  (5. Number of bits needed to represent the greatest number of objects in a shared object group.) two_column

dup 32 bitread
  dup /shint_group_least_sz exch def
  (6. Least length of a shared object group in bytes.) two_column

dup 16 bitread
  dup /shint_group_diff_bits exch def
  (7. Bits for the difference between the greatest and least length of a shared object group size.)  two_column
  pop

(1. length of the object group in bytes.) array_header
  hint_stream bytealign
  /shint_group_sz [
    shint_all_shared {
      hint_stream shint_group_diff_bits bitread
      shint_group_least_sz add
    } repeat
  ] readonly def

shint_group_sz dump_array

(2. MD5 signature flag) array_header
    hint_stream bytealign
    /shint_md5_flags
    [ shint_all_shared 
      { hint_stream 1 bitread
      } repeat
    ] readonly def

shint_md5_flags dump_array

(3. MD5 signature string) array_header
    false shint_md5_flags { 0 ne or } forall { 
      shint_md5_flags {
        0 eq {
          (<>)=
        } {
          hint_stream /S get 128 string
          readstring pop
          dup length 128 eq {
            ==
          } { pop (Error reading nd5 string.) ==
          } ifelse
        } ifelse
      } forall   
    } {
      () = (none) =
    } ifelse

(4. The number of objects in the group.) array_header
    hint_stream bytealign
    /shint_group_cnt [
      shint_all_shared {
        hint_stream shint_group_bits bitread
      } repeat
    ] readonly def

shint_group_cnt dump_array

} bind def

% Analyze the thumbnail hint table.
/dump_thumbnail_table {
  hint_stream

dup 32 bitread
  dup /thint_1st_obj_id exch def
  (1. Object number of the first thumbnail image.) two_column

dup 32 bitread
  dup /thint_1st_obj_pos exch def
  (2. Location of the first thumbnail image.) two_column

dup 32 bitread
  dup /thint_page_cnt exch def
  (3. Number of pages that have thumbnail images.) two_column

dup 16 bitread
  dup /thint_no_thumbnail_bits exch def
  (4. Bits for the max number of consecutive pages without a thumbnail image.) two_column

dup 32 bitread
  dup /thint_min_sz exch def
  (5. The least length of a thumbnail image in bytes.) two_column

dup 15 bitread
  dup /thint_obj_sz_bits exch def
  (6. Bits for the difference between max and min length of a thumbnail image.) two_column

dup 32 bitread
  dup /thint_min_obj_cnt exch def
  (7. The least number of objects in a thumbnail image.) two_column

dup 16 bitread
  dup /thint_obj_cnt_bits exch def
  (8. Bits for the difference between max and min number of objects in a thumbnail image.) two_column

dup 32 bitread
  dup /thint_1st_shared_obj exch def
  (9. First object in the thumbnail shared objects section.) two_column

dup 32 bitread
  dup /thint_1st_shared_pos exch def
  (10. Location of the first object in the thumbnail shared objects section.) two_column

dup 32 bitread
  dup /thint_shared_cnt exch def
  (11. Number of thumbnail shared objects.) two_column

dup 32 bitread
  dup /thint_shared_section_sz exch def
  (12. Length of the thumbnail shared objects section in bytes.) two_column

pop
  LinearizationParams /N get

(1. The number of preceding pages lacking a thumbnail image.) array_header
  hint_stream bytealign
  /thint_no_thumbnail_pages [
    2 index {
      hint_stream thint_no_thumbnail_bits bitread
    } repeat
  ] readonly def

thint_no_thumbnail_pages dump_array

(2. Number of objects in this page's thumbnail image.) array_header
  hint_stream bytealign
  /thint_page_obj_cnt [
    2 index {
      hint_stream thint_obj_cnt_bits bitread
      thint_min_obj_cnt add
    } repeat
  ] readonly def

thint_page_obj_cnt dump_array

(3. Length of this page's thumbnail image in bytes.) array_header
  hint_stream bytealign
  /thint_page_obj_sz [
    2 index {
      hint_stream thint_obj_sz_bits bitread
      thint_min_sz add
    } repeat
  ] readonly def

thint_page_obj_sz dump_array
  pop
} bind def

% Analyze the generic hint table.
% The hint field names are re-used. 
/dump_generic_table { 
  hint_stream

dup 32 bitread
  dup /ghint_1st_obj exch def
  (1. Object number of the first object in the group.) two_column

dup 32 bitread
  dup /ghint_1st_obj_pos exch def
  (2. Location of the first object in the group.) two_column

dup 32 bitread
  dup /ghint_obj_cnt exch def
  (3. Number of objects in the group.) two_column

dup 32 bitread
  dup /ghint_group_sz exch def
  (4. Length of the object group in bytes.) two_column

pop
} bind def

% Analyze the interactive hint table.
% The hint field names are re-used.
/dump_interactive_table {
  hint_stream

dup 32 bitread
  dup /ihint_1st_obj exch def
  (1. Object number of the first object in the group.) two_column

dup 32 bitread
  dup /ihint_1st_obj_pos exch def
  (2. Location of the first object in the group.) two_column

dup 32 bitread
  dup /ihint_obj_cnt exch def
  (3. Number of objects in the group.) two_column

dup 32 bitread
  dup /ihint_group_sz exch def
  (4. Length of the object group in bytes.) two_column

dup 32 bitread
  dup /ihint_shared_cnt exch def
  (5. Number of shared object references.) two_column

dup 16 bitread
  dup /ihint_shared_obj_bits exch def
  (6. Bits for the max shared object id used by the interactive form or the logical structure hierarchy.)
  1 index hint_sobits ne {
    (\n*** This fiels is not equal to max shared object ID bits ***) concatstrings 
  } if

pop

(7. Shared object identifier.) array_header
  hint_stream bytealign
  /ihint_shared_obj_id [
    ihint_shared_cnt {
      hint_stream hint_sobits bitread
    } repeat
  ] readonly def

ihint_shared_obj_id dump_array
} bind def

% Enumerate all documented hint tables.
/dump_all_tables {  % <<stream>> dump_all_tables -
  (Page offset hint table) table_header
  hint_stream 0 set_align
  dump_page_offset_table

(S, Shared object hint table) table_header
  dup /S .knownget {
    hint_stream exch set_align
    dump_shared_object_table
  } {
    (Required table is not found.) error_msg
  } ifelse

dup /T .knownget {
    (T, Thumbnail hint table) table_header
    hint_stream exch set_align
    dump_thumbnail_table
  } if

dup /O .knownget {
    (O, Outline hint table) table_header
    hint_stream exch set_align
    dump_generic_table
  } if

dup /A .knownget {
    (A, Thread information hint table) table_header 
    hint_stream exch set_align
    dump_generic_table
  } if

dup /E .knownget {
    (E, Named destination hint table) table_header
    hint_stream exch set_align
    dump_generic_table
  } if

dup /V .knownget {
    (V, Interactive form hint table) table_header
    hint_stream exch set_align
    dump_interactive_table
  } if

dup /I .knownget {
    (I, Information dictionary hint table) table_header
    hint_stream exch set_align
    dump_generic_table
  } if

dup /C .knownget {
    (C, Logical structure hint table) table_header
    hint_stream exch set_align
    dump_interactive_table
  } if

dup /L .knownget {
    (L, Page label hint table) table_header
    hint_stream exch set_align
    dump_generic_table
  } if

pop
} bind def

% Load PDF file and extract the hint stream.
/pdf_dump_hints {                             % <infile> pdf_dump_hints -
  dup (r) file                                % fname
  false exch                                  % fname F file 
  {
    dup 7 string readstring pop               % fname F file ()
    (%PDF-1.) ne { pop exit } if              % fname F file
    dup 0 setfileposition
    dup token not { pop exit } if             % fname F file obj
    dup type /integertype ne { pop exit } if  % fname F file obj
    1 index token not { pop pop exit } if     % fname F file obj gen
    dup type /integertype ne {pop pop exit}if % fname F file obj gen
    4 2 roll                                  % fname obj gen F file
    dup 0 setfileposition
    exch true or                              % fname obj gen file T
    exit
  } loop
  {
    pdfdict begin
    pdfopenfile dup begin
    40 dict begin
    /IDict exch def
    .setsafe

% Read all objects into memory.
    Trailer touch
    resolveR                                  % fname <<>>
    dup /Linearized known {
      dup /L get                              % fname <<>> Len
      3 -1 roll status not { 0 0 0 0 } if     % <<>> Len
      pop pop exch pop                        % <<>> Len len
      eq {
        /LinearizationParams exch def
        LinearizationParams /H get
        dup length 2 eq {
          0 get PDFoffset add PDFfile exch setfileposition
          PDFfile token pop 
          PDFfile token pop
          resolveR dup true resolvestream
          /ReusableStreamDecode filter 
          bitstream dup bytealign
          /hint_stream exch def

dump_all_tables
        } {
          pop
          (Overflow hint stream is not supported.) =
        } ifelse
      } {
        pop
        (Wrong file length in linearization dictionary.) =
      } ifelse
    } {
      pop (The file is not linearized.) =
    } ifelse
    end		% temporary dict
    end		% IDict
    end
  } {
    pop
    (Input file is not a valid PDF file.) =
  } ifelse
} bind def

% Initial setup
/dump_hints {
  counttomark 1 eq {
    exch pop
    save exch
    3000000 setvmthreshold
    pdfoptdict begin 
    pdf_dump_hints
    end
    restore
    true
  } {
    cleartomark false
  } ifelse
} bind def

/shellarguments {false} def
(pdfopt.ps) runlibfile
currentdict /shellarguments undef

% Check for command line arguments.
mark shellarguments {
  dump_hints not {
    (Usage: gs -dNODISPLAY  -- dumphint.ps input.pdf) = flush
  } if
} {
  pop
} ifelse

% EOF

Hackfut Security File Manager

Editing: dumphint.ps

Upload File

Create Folder