ꦫꦣꦺꦤ꧀ꦄꦤ꧀ꦠꦱꦺꦤ

PATH: usr / share / ghostscript / lib

%!
% Check that operators do their access tests correctly.

% proc dotest => .
/dotest
  {
    dup
    mark
    exch
    stopped not % False if error, true if no error.
    { (Allowed access: ) print cleartomark == }
    if
    clear
  }
def

0 0 moveto % So the show commands don't bomb because of nocurrentpoint.

{ [1 2] executeonly aload }					dotest
{ (string) executeonly (seek) anchorsearch }			dotest
{ (string) (seek) executeonly anchorsearch }			dotest
{ 100 101 (string) noaccess ashow}				dotest
{ 100 1 array readonly astore }					dotest
{ 100 101 102 103 104 (string) noaccess awidthshow }		dotest
{ 1 dict noacess begin }					dotest
{ 1 array executeonly 1 array copy }				dotest
{ 1 array 1 array readonly copy }				dotest
{ 1 dict noaccess 1 dict copy }					dotest
{ 1 dict 1 dict readonly copy }					dotest
{ 1 string executeonly 1 string copy }				dotest
{ 1 string 1 string readonly copy }				dotest
{ (100) executeonly cvi }					dotest
{ (string) executeonly cvn }					dotest
{ (100.001) executeonly cvr }					dotest
{ 1 10 1 string readonly cvrs }					dotest
{ true 5 string readonly cvs }					dotest
{ 1 dict readonly begin /foo true def }				dotest
{ 10 array readonly dictstack }					dotest
{ 1 string executeonly 1 string eq }				dotest
{ 1 string 1 string executeonly eq }				dotest
{ 10 array readonly execstack }					dotest
{ 1 string noaccess executeonly }				dotest
{ 1 array noaccess executeonly }				dotest
{ 1 array executeonly { pop } forall }				dotest
{ 1 dict noaccess { pop pop } forall }				dotest
{ 1 string executeonly { pop } forall }				dotest
{ (string1) executeonly (string2) ge }				dotest
{ (string1) (string2) executeonly ge }				dotest
{ 1 array executeonly 0 get }					dotest
{ 1 dict noaccess /key get }					dotest
{ 1 string executeonly 0 get }					dotest
{ 1 array executeonly 0 1 getinterval }				dotest
{ 1 string executeonly 0 1 getinterval }			dotest
{ (string1) executeonly (string2) gt }				dotest
{ (string1) (string2) executeonly gt }				dotest
{ 1 dict noaccess /key known }					dotest
{ {} (string) executeonly kshow }				dotest
{ (string1) executeonly (string2) le }				dotest
{ (string1) (string2) executeonly le }				dotest
{ 1 array executeonly length }					dotest
{ 1 dict noaccess length }					dotest
{ 1 string executeonly length }					dotest
%%{ /foo 1 dict def foo begin /bar foo def bar noaccess pop /key load } dotest
{ (string1) executeonly (string2) lt }				dotest
{ (string1) (string2) executeonly lt }				dotest
{ 1 dict noaccess maxlength }					dotest
{ 1 string executeonly 1 string ne }				dotest
{ 1 string 1 string executeonly ne }				dotest
%{ newpath 0 0 moveto (a) false charpath
%  {} {} {} {} pathforall closepath }				dotest
{ 1 array executeonly 0 put }					dotest
{ 1 dict noaccess /key put }					dotest
{ 1 string executeonly 0 put }					dotest
{ 1 array executeonly 0 1 putinterval }				dotest
{ 1 string executeonly 0 1 putinterval }			dotest
{ (access.ps) (r) file executeonly read }			dotest
{ (access.ps) (r) file executeonly 10 string readhexstring }	dotest
{ (access.ps) (r) file 10 string readonly readhexstring }	dotest
{ (access.ps) (r) file executeonly 100 string readline }	dotest
{ (access.ps) (r) file 100 string readonly readline }		dotest
{ (access.ps) (r) file executeonly 10 string readstring }	dotest
{ (access.ps) (r) file 10 string readonly readstring }		dotest
% run does not check for no read access?
{ (string) executeonly (seek) search }				dotest
{ (string) (seek) executeonly search }				dotest
{ (string) executeonly show }
%% some test for store.
{ (string) executeonly stringwidth }				dotest
{ (access.ps) (r) file executeonly token }			dotest
{ (10) executeonly token }					dotest
{ /foo 1 dict def foo begin /bar foo def bar noaccess pop /key where } dotest
{ 100 101 102 (string) noaccess widthshow }			dotest
{ (/tmp/_.ps) noaccess (w) file closefile }			dotest
{ (/tmp/_.ps) (w) noaccess file closefile }			dotest
{ (/tmp/_.ps) (w) file executeonly 100 write }			dotest
{ (/tmp/_.ps) (w) file executeonly 10 string writehexstring }	dotest
{ (/tmp/_.ps) (w) file 10 string executeonly writehexstring }	dotest
{ (/tmp/_.ps) (w) file executeonly 10 string writestring }	dotest
{ (/tmp/_.ps) (w) file 10 string executeonly writestring }	dotest

[-] rollconv.ps [edit]
[-] acctest.ps [edit]
[-] bjc610b7.upp [edit]
[-] viewps2a.ps [edit]
[-] ras3.upp [edit]
[-] stc1520h.upp [edit]
[-] stc800p.upp [edit]
[-] PM820p.upp [edit]
[-] st640ih.upp [edit]
[-] stc_l.upp [edit]
[-] bj8gc12f.upp [edit]
[-] bj8oh06n.upp [edit]
[-] viewmiff.ps [edit]
[-] docie.ps [edit]
[-] viewgif.ps [edit]
[-] gs_wl2_e.ps [edit]
[-] printafm.ps [edit]
[-] Stp720p.upp [edit]
[-] st640plg.upp [edit]
[-] sipixa6.upp [edit]
[-] lines.ps [edit]
[-] caption.ps [edit]
[-] bjc610a0.upp [edit]
[-] cbjc600.ppd [edit]
[-] pphs.ps [edit]
[-] bjc6000a1.upp [edit]
[-] dnj750m.upp [edit]
[-] cdj690ec.upp [edit]
[-] viewpbm.ps [edit]
[-] Stp720pl.upp [edit]
[-] cdj550.upp [edit]
[-] Stc670p.upp [edit]
[+] ..
[-] gs_il2_e.ps [edit]
[-] ras24.upp [edit]
[-] gs_t.xpm [edit]
[-] bjc610b6.upp [edit]
[-] stocht.ps [edit]
[-] viewpcx.ps [edit]
[-] gs_l_m.xbm [edit]
[-] gs_s.xbm [edit]
[-] image-qa.ps [edit]
[-] landscap.ps [edit]
[-] dmp_site.ps [edit]
[-] bjc610a4.upp [edit]
[-] necp2x.upp [edit]
[-] align.ps [edit]
[-] ps2epsi.ps [edit]
[-] gslp.ps [edit]
[-] stc740ih.upp [edit]
[-] bj8.rpd [edit]
[-] gs_ce_e.ps [edit]
[-] st640ihg.upp [edit]
[-] ghostpdf.ppd [edit]
[-] stc600ih.upp [edit]
[-] Stc680pl.upp [edit]
[-] stc.upp [edit]
[-] stcany_h.upp [edit]
[-] gs_t_m.xbm [edit]
[-] stcinfo.ps [edit]
[-] gs_wl5_e.ps [edit]
[-] stc500ph.upp [edit]
[-] gs_wl1_e.ps [edit]
[-] stc300bl.upp [edit]
[-] gs_l.xpm [edit]
[-] ras32.upp [edit]
[-] winmaps.ps [edit]
[-] stc500p.upp [edit]
[-] bjc6000b1.upp [edit]
[-] mkcidfm.ps [edit]
[-] pdf2dsc.ps [edit]
[-] bjc610b8.upp [edit]
[-] pf2afm.ps [edit]
[-] s400b1.upp [edit]
[-] traceimg.ps [edit]
[-] traceop.ps [edit]
[-] Stc760pl.upp [edit]
[-] stc300bm.upp [edit]
[-] st640pg.upp [edit]
[-] stc600p.upp [edit]
[-] st640p.upp [edit]
[-] Stc777p.upp [edit]
[-] uninfo.ps [edit]
[-] ps2ai.ps [edit]
[-] gs_l.xbm [edit]
[-] bjc610a2.upp [edit]
[-] gs_t.xbm [edit]
[-] bj8hg12f.upp [edit]
[-] Stp870pl.upp [edit]
[-] prfont.ps [edit]
[-] bj8pa06n.upp [edit]
[-] gs_lgo_e.ps [edit]
[-] gs_ksb_e.ps [edit]
[-] stc800pl.upp [edit]
[-] gs_kanji.ps [edit]
[-] font2pcl.ps [edit]
[-] Stc740p.upp [edit]
[-] stc200_h.upp [edit]
[-] bjc610a8.upp [edit]
[-] viewjpeg.ps [edit]
[-] pfbtopfa.ps [edit]
[-] bjc610b2.upp [edit]
[-] necp2x6.upp [edit]
[-] gs_s.xpm [edit]
[-] jispaper.ps [edit]
[-] ppath.ps [edit]
[-] ras4.upp [edit]
[-] bjc610a1.upp [edit]
[-] Stc777pl.upp [edit]
[-] Stc760p.upp [edit]
[-] stc300.upp [edit]
[-] stcany.upp [edit]
[-] gs_s_m.xbm [edit]
[-] stc_h.upp [edit]
[-] ras8m.upp [edit]
[-] bjc610a6.upp [edit]
[-] gs_m_m.xbm [edit]
[-] gs_m.xpm [edit]
[-] stc600pl.upp [edit]
[-] stc2s_h.upp [edit]
[-] bjc610a7.upp [edit]
[-] PM820pl.upp [edit]
[-] cid2code.ps [edit]
[-] bjc610a5.upp [edit]
[-] stc640p.upp [edit]
[-] ht_ccsto.ps [edit]
[-] cdj690.upp [edit]
[-] st640pl.upp [edit]
[-] PDFX_def.ps [edit]
[-] bjc610a3.upp [edit]
[-] zeroline.ps [edit]
[-] dmp_init.ps [edit]
[-] Stc680p.upp [edit]
[-] PM760p.upp [edit]
[-] bjc610b3.upp [edit]
[-] PM760pl.upp [edit]
[-] sharp.upp [edit]
[-] stc2_h.upp [edit]
[-] bj8ts06n.upp [edit]
[-] stc800ih.upp [edit]
[-] bjc610b4.upp [edit]
[-] dnj750c.upp [edit]
[-] bj8pp12f.upp [edit]
[-] stc2.upp [edit]
[-] s400a1.upp [edit]
[-] bjc610b1.upp [edit]
[-] viewcmyk.ps [edit]
[-] PDFA_def.ps [edit]
[-] cbjc800.ppd [edit]
[-] ras1.upp [edit]
[-] gs_lgx_e.ps [edit]
[-] Stp870p.upp [edit]
[-] escp_24.src [edit]
[-] stcolor.ps [edit]
[-] Stc740pl.upp [edit]
[-] gs_m.xbm [edit]
[-] Stc670pl.upp [edit]
[-] gsnup.ps [edit]