From 3bd9e67a71427598c4b846646cd5e98a48495645 Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Mon, 4 Apr 2011 13:54:57 +0000 Subject: Bitmap2eps for Windows right-click menu git-svn-id: svn://tug.org/texlive/trunk@21960 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf/scripts/bitmap2eps/bitmap2eps.vbs | 103 +++++++++++++++++++++++++ 1 file changed, 103 insertions(+) create mode 100644 Master/texmf/scripts/bitmap2eps/bitmap2eps.vbs (limited to 'Master') diff --git a/Master/texmf/scripts/bitmap2eps/bitmap2eps.vbs b/Master/texmf/scripts/bitmap2eps/bitmap2eps.vbs new file mode 100644 index 00000000000..331b379badb --- /dev/null +++ b/Master/texmf/scripts/bitmap2eps/bitmap2eps.vbs @@ -0,0 +1,103 @@ +option explicit +On Error Resume next + +dim oWsh, oArgs, oFS, oTS, infile, outfile, f, c, result + +', oFS, oEnv, tlroot, script_path, Return, cmd +set oWsh = createobject( "wscript.Shell" ) +Set oFS = CreateObject("Scripting.FileSystemObject") +'Set oEnv = oWsh.Environment("PROCESS") +Set oArgs = wscript.arguments +'tlroot = (oFS.GetParentFolderName(oFs.GetParentFolderName( _ +' oFS.GetParentFolderName(WScript.ScriptFullName)))) +'If Right(tlroot,1) <> "\" Then +' tlroot = tlroot & "\" +'End If + +' assume sam2p and bmeps on searchpath +If oArgs.count = 0 Then + messageBox "Nothing to do" + wscript.quit +End If + +' name of output file + +' may have to flip slashes if the file was on a network drive !!! +infile = replace(oArgs(0), "/", "\") +infile = ofs.getabsolutepathname(infile) +outfile = ofs.buildpath(ofs.getparentfoldername(infile), _ + ofs.getbasename(infile) & ".eps") + +If ofs.fileexists(outfile) Then + result = MsgBox(outfile & vbcrlf & "exists; overwrite?", _ + vbyesno+vbquestion) + If result <> vbyes Then + wscript.quit + Else + oFS.deletefile(outfile) + Err.clear + If ofs.fileexists(outfile) Then + MsgBox "Unable to memove old " & outfile, vbcritical + wscript.quit + End If + End If +End If + +' MsgBox "trying sam2p" +owsh.run "sam2p """ & infile & """ EPS: """ & outfile & """", 0 +If Err Then + MsgBox "Unspecified failure", vbcritical + wscript.quit +End If +wscript.sleep(1000) + +If ofs.fileexists(outfile) Then + MsgBox ofs.getbasename(infile) & "." & ofs.getextensionname(infile) & _ + " successfully converted", vbInformation +Else + Err.clear + ' clear sam2p temp files + For Each f in ofs.getfolder(ofs.getparentfoldername(infile)).files + If InStr(f.Name, "tmp__sam2p") = 1 Then + f.delete + Err.clear + End If + Next + ' MsgBox "trying bmeps" + owsh.run "bmeps -c """ & infile & """ """ & outfile & """", 0 + If Err Then + MsgBox "Unspecified failure", vbcritical + wscript.quit + End If + wscript.sleep(1000) + If ofs.fileexists(outfile) Then + result = True + ' check the eps file. + ' bmeps may have written an error message to it. + Set oTS = ofs.opentextfile (outfile, 1) + If Err Then + result = False + Err.clear + Else + c = oTS.read(2) + If Err Then + result = false + Err.clear + Else + If c <> "%!" Then + result = False + End If + End If + oTS.close + End If + If result then + MsgBox ofs.getbasename(infile) & "." & ofs.getextensionname(infile) & _ + " successfully converted with bmeps", vbInformation + Else + 'ofs.deletefile(outfile) + MsgBox "Conversion failed", vbCritical + End If + Else + MsgBox "Conversion failed", vbCritical + End If +End If -- cgit v1.2.3