Loading ...
Sorry, an error occurred while loading the content.

Perldoc correction

Expand Messages
  • Sheri
    Sorry, I made a last minute change, and doing that always gets me. I put an extra equal sign in my clip wizard. Corrected version posted below, along with the
    Message 1 of 1 , Feb 16, 2003
    • 0 Attachment
      Sorry, I made a last minute change, and doing that always gets me. I put an extra equal sign in my clip wizard.

      Corrected version posted below, along with the one to delete temporary files.

      Regards,
      Sheri

      H="PerlDoc"
      ;by Sheri Pierce, rev 2/16/03
      ^!IfTrue ^$IsEmpty(^$GetSelection$)$ Next Else SetSel
      ^!Set %Sel%="^?{(T=C)Enter Perldoc Target=|Tk|Perltoc}"
      ^!IfFalse ^$IsEmpty(^%Sel%)$ Next Else OpenTkToc
      :ShowExisting
      ^!SetDocIndex ^$GetDocIndex(^$StrReplace("::";"-";"^%Sel%";No;No)$)$
      ^!IfSame "^$GetDocName$" "^$StrReplace("::";"-";"^%Sel%";No;No)$" PD_End
      :Doit
      ^!IfTrue ^$IsEmpty(^$GetOutput("C:\Program Files\Perl\bin\perldoc.bat" "^%Sel%")$)$ Error
      ^!ToolBar New Document
      ^!InsertText "^%Sel%"
      ^!InsertText ^P
      ^!InsertText "--------------"
      ^!InsertText ^P
      ^!InsertText ^$GetOutput("C:\Program Files\Perl\bin\perldoc.bat" "^%Sel%")$
      ^!Jump Doc_Start
      ^!RenameDoc "^$StrReplace("::";"-";"^%Sel%";No;No)$"
      ^!Goto PD_End
      :SetSel
      ^!Set %Sel%="^$GetSelection$"
      ^!Goto Doit
      :OpenTkToc
      ^!Set %Sel%="Tk"
      ^!Goto ShowExisting
      :Error
      ^!Info No such doc: ^%Sel%
      :PD_End
      ^!ClearVariable %Sel%
      ;end of clip

      H="Close temporary files"
      ;by Sheri Pierce, rev 2/16/03
      ^!Set %count%=^$GetDocCount$
      :Loop
      ^!If ^%count%=0 Out
      ^!IfFileExist ^$GetDocName(^%count%)$ Skip_1
      ^!Close "^$GetDocName(^%count%)$" Discard
      ^!Dec %count%
      ^!Goto Loop
      :Out
      ^!ClearVariable %count%
      ;end of clip
    Your message has been successfully submitted and would be delivered to recipients shortly.