New PostGhost and Xy2PDF frames - XyShell NOT Required

["Robert Holmgren" holmgren@xxxxxxxx]

** Reply to message from Patricia M Godfrey  on Mon, 6 Dec
2004 20:16:05 -0500

PostGhost *displays* the current file in graphical Postscript viewer
	Command: postghost
Xy2PDF makes a PDF out of the current file, then displays the PDF
	Command: xy2pdf target_PDF_filename
	        No .EXTension here ^^^ (".PDF" is auto added)

They need:

Ghostscript installation:
 http://voxel.dl.sourceforge.net/sourceforge/ghostscript/gs815w32.exe
GSView installation:
 ftp://mirror.cs.wisc.edu/pub/mirrors/ghost/ghostgum/gsv46w32.exe
Accurate d:\path\file.exe specs in XyWWWeb.REG for UserVariables
 "Ghostscript_EXE_Win32" and "GSView_Win32"
POSTGHST.PRN -- set as current PRN
KMD.EXE -- locate in DOS PATH

XyShell NOT required in Win32. That deprives the Win32 version of the
ability to auto-return to XyWrite when you close GSView. I may write
an external util to do this soon...

All processing is done in XyWrite, except
for rasterization in Ghostscript. FAST! PostGhost also does DSC
page description (page numbering), of which no previous XyWrite-PS
PRNfile was capable.

Replace current frames in U2, then "LOADHELP

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5PostGhost}} View Current file with GSVIEW (PostScript) R
JH 1/13/01 Rev.forWin32 12/9/04 (UserVars) Requires POSTGHST.
PRN (and *nix|OS/2 only XyShell)[cr|lf]{002}{<}IF{<}VA|652{>}
<1{>}[JM_]2.GetXyOS[Q2_]{<}EI{>}{<}IF{<}IS652{>}{240}"OS2"{>}
{<}SV99,GSView_OS/2{>}{<}EI{>}{<}IF{<}IS652{>}{240}"W"{>}{<}S
V99,GSView_Win32{>}{<}EI{>}{<}IF{<}IS652{>}{240}"L"{>}{<}SV99
,GSView_*nix{>}{<}EI{>}[JM_]2.RegData/R[Q2_]{<}SX01,{<}IS99{>
}{>}{<}IF{<}VA|01{>}>2&":"{238}{<}VA@01{>}==1{>}{<}IF@UPR({<}
VA$PR{>}){240}"POST"{>}{<}IF{<}VA$WS{>}>0{>}{<}IF{<}VA$WA{>}<
"1"{>}{<}PRNo window{>}{<}EX{>}{<}EI{>}{<}SX04,{<}VA$PA{>}{>}
[BX_]ernv {<}PV04{>}\FO.PS[Q2_][BX_]wait[Q2_]{<}SV05,tyf {>}{
<}IF"TY"{238}@UPR({<}IS00{>})==0{>}{<}SX05,{<}IS05{>}+{<}IS00
 2{>}{>}{<}EI{>}{<}SX05,{<}IS05{>}+",FO.PS"{>}[BX_]{<}PV05{>}
[Q2_][BX_]wait[Q2_][XH_][BX_]es 1[Q2_][DX_][BX_]gofile {<}PV0
4{>}\FO.PS[Q2_]{<}IF@NOT({<}ER{>}){>}{<}SX05,{<}VA$WN{>}{>}[B
X_]ab/nv[Q2_]{<}IF{<}VA$WN{>}=={<}PV05{>}&{<}VA$WO{>}>1{>}[BX
_]rs[Q2_]{<}EI{>}{<}EI{>}{<}SX06,{<}VA$WA{>}{>}[BX_]func #{<}
PV06{>}[Q2_][BX_]ca/100 {<}PV04{>}\FO.PS[Q2_][BX_]wait[Q2_]{<
}SX04,0{>}[SI_]{<}LBA{>}[BX_]sea {252}[w13]%%Page: {252}[Q2_]
{<}IF@NOT({<}ER{>}){>}{<}SX04,{<}PV04{>}+1{>}{<}PV04{>} {<}PV
04{>}[CR_][CR_]{<}GLA{>}{<}EI{>}[DF_][BX_]seba [w13]%%P[Q2_]
[DF_][DN_]{<}SX04,{<}PV04{>}-1{>}[TF_][BX_]sea {252}3.0 [w13]
%%Pages: {252}[Q2_]{<}PV04{>}{<}SX04,{<}VA$PA{>}{>}[BX_]st/nv
[Q2_][BX_]wait[Q2_]{<}IF{<}VA$WN{>}=={<}PV06{>}&{<}VA$WO{>}>1
{>}[BX_]rs[Q2_]{<}EI{>}[DO_][FF_]{<}SX50,{<}IS01{>}+" "+{<}VA
$PA{>}+"\FO.PS"{>}{<}IF"W"{238}{<}VA@652{>}<0{>}{<}SX50,"/I /
L:GSView /C /F "+{<}IS50{>}{>}[JM_]2.s2[Q2_]{<}EX{>}{<}EI{>}[
BX_]dos/nv/x/z /c kmd /c start /max {<}PV50{>}[Q2_]{<}
EX{>}{<}EI{>}{<}PRNothing to print{>}{<}EX{>}{<}EI{>}{<}PRPos
tScript .PRN not loaded{>}{<}EX{>}{<}EI{>}[JM_]2.SetRegVar[Q2
_]{<}EX1{>}{002}[cr|lf][cr|lf]{{;5Xy2PDF}} Create Adobe (v1.2
 compatible) PDF from a XyWrite file, then View it (Adobe Acr
obat v3 Distiller clone!) (*nix|OS/2 only require XyShell) R
JH LastRev.12/9/04[cr|lf]{002}{<}IF{<}VA|652{>}<1{>}[JM_]2.Ge
tXyOS[Q2_]{<}EI{>}{<}IF{<}VA@652{>}{240}"OS2"{>}{<}SV99,GSVie
w_OS/2{>}[JM_]2.RegData/R[Q2_]{<}SX02,{<}IS99{>}{>}{<}SV99,Gh
ostscript_EXE_OS/2{>}{<}EI{>}{<}IF{<}VA@652=2{>}{240}"W"{>}{<
}SV99,GSView_Win32{>}[JM_]2.RegData/R[Q2_]{<}SX02,{<}IS99{>}{
>}{<}SV99,Ghostscript_EXE_Win32{>}{<}EI{>}{<}IF{<}VA@652{>}{2
40}"L"{>}{<}SV99,GSView_*nix{>}[JM_]2.RegData/R[Q2_]{<}SX02,{
<}IS99{>}{>}{<}SV99,Ghostscript_EXE_*nix{>}{<}EI{>}[JM_]2.Reg
Data/R[Q2_]{<}SX01,{<}IS99{>}{>}{<}IF{<}VA|01{>}>2&":"{238}{<
}VA@01{>}==1{>}{<}SX03,{<}IS50{>}{>}{<}IF{<}VA|03{>}<1{>}{<}L
BA{>}{<}PRUsage: Xy2pdf [current_d:\\path\\]output_filename[.
PDF]{>}{<}EX1{>}{<}EI{>}{<}IF{<}IS03{>}{240}":"!{<}IS03{>}{24
0}"\"!@UPR({<}IS03{>}){240}".PDF"{>}{<}GLA{>}{<}EI{>}{<}SV05,
{>}{<}IF"POST"{238}@UPR({<}VA$PR{>})<0{>}[JM_]2.HIDE:01-03[Q2
_]{<}SV50,PP{>}[JM_]2.SpclLst[Q2_][JM_]2.UNHIDE[Q2_]{<}IF"POS
T"{238}@UPR({<}IS50{>})<0{>}{<}PRNo "POST"script.PRN file fou
nd in PP: list{>}{<}EX{>}{<}EI{>}{<}SV05,[cr|lf]{>}{<}LBB{>}{
<}XS50,05,06,,07{>}{<}IF"POST"{238}@UPR({<}IS06{>})<0{>}{<}SX
50,{<}IS07{>}{>}{<}GLB{>}{<}EI{>}{<}SX04,{<}VA@06 1{>}{>}{<}I
F{<}VA{021}04{>}<1{>}{<}SX04,"Bad PP number: "+{<}IS04{>}{>}{
<}PR@04{>}{<}EX{>}{<}EI{>}{<}SX05,{<}VA$PF7{>}{>}[BX_]setp {<
}PV04{>}[Q2_][BX_]wait[Q2_]{<}EI{>}{<}SX04,{<}VA$PA{>}+"\"{>}
[BX_]es 1[Q2_][BX_]ernv {<}PV04{>}fo.ps[Q2_][BX_]wait[Q2_][BX
_]ernv {<}PV04
{>}{<}PV03{>}.pdf[Q2_][BX_]wait[Q2_][BX_]es 0[Q2_][BX_]tyf ,f
o.ps[Q2_][BX_]wait[Q2_]{<}IF{<}VA|05{>}>0{>}[BX_]setp {<}PV05
{>}[Q2_][BX_]wait[Q2_]{<}EI{>}{<}SX50,{<}IS01{>}{>}[JM_]2.Get
Path[Q2_]{<}SX07,{<}IS50{>}{>}{<}SV50,@{>}{<}IF"W"{238}{<}VA@
652{>}<0{>}{<}SV50,/r '{>}{<}EI{>}{<}SX50,{<}IS50{>}+"set GS_
LIB="+{<}IS07{>}+"\..\lib;"+{<}IS07{>}+"\..\..\fonts;"{>}{<}S
V07,1{>}{<}IF{<}VA@652{>}{240}"W"{>}{<}SV07,F{>}{<}SX50,{<}IS
50{>}+"[cr|lf]@start /min /wait "{>}{<}GLC{>}{<}EI{>}{<}SX50,
{<}IS50{>}+"';'"{>}{<}LBC{>}{<}SX50,{<}IS50{>}+{<}IS01{>}+" -
dCompatibilityLevel=1.2 -q -dNOPAUSE -dBATCH -sDEVICE=pdfwrit
e -sOutputFile="+{<}IS04{>}+{<}IS03{>}+".PD"+{<}IS07{>}+" -c{032}
save pop -f "+{<}IS04{>}+"FO.PS"{>}{<}IF{<}VA@652{>}{240}"W"{
>}{<}SX07,{<}IS50{>}+"[cr|lf]@start /max "{>}{<}GLD{>}{<}EI{>
}{<}SX50,{<}IS50{>}+"';"{>}[JM_]2.s2[Q2_][DO_][FF_]{<}PRCreat
ing PDF...{>}{<}SX50,"60,"+{<}IS04{>}+{<}IS03{>}+".PD1,"+{<}I
S04{>}+{<}IS03{>}+".PDF"{>}[JM_]2.AwaitRen[Q2_][BX_]p 10[Q2_]
{<}SX07,"/I /L:""GSView"" "{>}{<}LBD{>}{<}SX07,{<}IS07{>}+{<}
IS02{>}+" "+{<}IS04{>}+{<}IS03{>}+".PDF"{>}{<}IF"W"{238}{<}VA
@652{>}<0{>}{<}SX50,"/C /F "+{<}IS07{>}{>}[JM_]2.s2[Q2_]{<}EX
{>}{<}EI{>}{<}SX07,{<}IS07{>}+"[cr|lf]"{>}{<}LBE{>}[JM_]2.tmp
file/nv[Q2_]{<}SX50,{<}IS04{>}+{<}VA@50.1{>}+".BAT"{>}[BX_]ex
ist {<}PV50{>}[Q2_]{<}IF@NOT({<}ER{>}){>}{<}GLE{>}{<}EI{>}{<}
SX07,{<}IS07{>}+"del "+{<}IS50{>}+"[cr|lf]"{>}[BX_]sa %07,{<}
PV50{>}[Q2_][BX_]wait[Q2_][BX_]dos/nv/x/z /c kmd /c {<}PV50{>
}[Q2_]{<}EX{>}{<}EI{>}[JM_]2.SetRegVar[Q2_]{002}[cr|lf][cr|lf
]
-nd
XPLeNCODE

-----------------------------
Robert Holmgren
holmgren@xxxxxxxx
-----------------------------