home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 April / PCWorld_2000-04_cd.bin / Software / TemaCD / winedit / perlpop.mn_ < prev    next >
Text File  |  2000-02-20  |  7KB  |  264 lines
  1. ; PERLPOPUP.MNU file.
  2. ;
  3. ; This is the Perl menu version of WinEdit's context menu.
  4. ;
  5. ; Thanks to Jim Murff for the additions.
  6. ;
  7. ; Perl Language specific stuff.
  8. ;
  9. ; AutoExec Section is on top here.
  10. ;
  11.         TAB=@TAB
  12.         CR=@CRLF
  13.         EOL=@CR
  14.         Home=DirHome()
  15.         IntControl(29,@tab,0,0,0)  ;Standardize on tabs as delimiters for FileItemize, etc
  16. ;
  17. ;=====================================================================
  18. ;Perl Popup Menu    ; Title (do nothing really) You really are in perl mode.
  19. ;    TheFile = strcat(DirHome(),"System\PerlPopup.mnu") 
  20. ;    Message("Perl Popup Menu","Edit '%TheFile%' to add features to this Menu.")
  21. ;=====================================================================
  22.   
  23. ;
  24. ;=====================================================================
  25. Undo              ; Undoes the last editing action
  26.     wUndo() 
  27.  
  28. ;
  29. ;=====================================================================
  30. Redo              ; Redoes the last editing action
  31.     wRedo()
  32.  
  33. ;
  34. ;=====================================================================
  35. _Cut              ; Cut the selection and put it on the clipboard
  36.     wCut()
  37.  
  38. ;
  39. ;=====================================================================
  40. Copy              ; Copy the selection and put it on the clipboard
  41.     wCopy()
  42.  
  43. ;
  44. ;=====================================================================
  45. Paste             ; Insert the clipboard contents
  46.     wPaste()
  47.  
  48. ;
  49. ;=====================================================================
  50. _Insert Conditionals
  51.  if
  52.      filext = strupper(FileExtension(wGetFileName()))  
  53.      if filext=="PL" || filext=="PM"   ; Check to be sure.
  54.         a = wGetColNo()
  55.         wInsLine("if ( xx == yy ) {")
  56.         wInsLine("  ;;")
  57.         wGoToCol( a )
  58.         wInsLine("};")
  59.         wNewLine()
  60.      endif
  61.      drop(a,filext)
  62.  
  63.  unless
  64.      filext = strupper(FileExtension(wGetFileName()))  
  65.      if filext=="PL" || filext=="PM"   ; Check to be sure.
  66.         a = wGetColNo()
  67.         wInsLine("unless ( xx == yy ) {")
  68.         wInsLine("  ;;")
  69.         wGoToCol( a )
  70.         wInsLine("};")
  71.      endif
  72.      drop(a,filext)
  73.             
  74.  if-else
  75.      filext = strupper(FileExtension(wGetFileName()))  
  76.      if filext=="PL" || filext=="PM"   ; Check to be sure.
  77.         a = wGetColNo()
  78.         wInsLine("if ( xx == yy ) {")
  79.         wInsLine("  ;;")
  80.         wGoToCol( a )
  81.         wInsLine("}")
  82.         wInsLine("else {")
  83.         wInsLine("  ;;")
  84.         wGoToCol( a )
  85.         wInsLine("};")
  86.      endif
  87.      drop(a,filext)
  88.  
  89.  unless-else
  90.      filext = strupper(FileExtension(wGetFileName()))  
  91.      if filext=="PL" || filext=="PM"   ; Check to be sure.
  92.         a = wGetColNo()
  93.         wInsLine("unless ( xx == yy ) {")
  94.         wInsLine("  ;;")
  95.         wGoToCol( a )
  96.         wInsLine("}")
  97.         wInsLine("else {")
  98.         wInsLine("  ;;")
  99.         wGoToCol( a )
  100.         wInsLine("};")
  101.      endif
  102.      drop(a,filext)
  103.      
  104. ;
  105. ;=====================================================================
  106. Insert Loops
  107.  for
  108.      filext = strupper(FileExtension(wGetFileName()))  
  109.      if filext=="PL" || filext=="PM"   ; Check to be sure.
  110.         a = wGetColNo()
  111.         wInsLine("for ( $i=1; i <= yy; $i++) {")
  112.         wInsLine("  ;;")
  113.         wGoToCol( a )
  114.         wInsLine("};")
  115.      endif
  116.      drop(a,filext)
  117.  
  118.  foreach
  119.      filext = strupper(FileExtension(wGetFileName()))  
  120.      if filext=="PL" || filext=="PM"   ; Check to be sure.
  121.         a = wGetColNo()
  122.         wInsLine("foreach $var (list) {")
  123.         wInsLine("  ;;")
  124.         wGoToCol( a )
  125.         wInsLine("};")
  126.      endif
  127.      drop(a,filext)
  128.  
  129.  do-while
  130.      filext = strupper(FileExtension(wGetFileName()))  
  131.      if filext=="PL" || filext=="PM"   ; Check to be sure.
  132.         a = wGetColNo()
  133.         wInsLine("do {")
  134.         wInsLine("  ;;")
  135.         wGoToCol( a )
  136.         wInsLine("} while (xx == yy);")
  137.      endif
  138.      drop(a,filext)
  139.  
  140.  while
  141.      filext = strupper(FileExtension(wGetFileName()))  
  142.      if filext=="PL" || filext=="PM"   ; Check to be sure.
  143.         a = wGetColNo()
  144.         wInsLine("while ( xx==yy ) {")
  145.         wInsLine("  ;;")
  146.         wGoToCol( a )
  147.         wInsLine("};")
  148.      endif
  149.      drop(a,filext)
  150.  
  151. ;
  152. ;=====================================================================
  153. Insert Misc
  154.  cond-op (?:)
  155.      filext = strupper(FileExtension(wGetFileName()))  
  156.      if filext=="PL" || filext=="PM"   ; Check to be sure.
  157.         wInsString("test_expr ? if_true_expr : if_false_expr;")
  158.      endif
  159.      drop(filext)
  160.  
  161.  list-variable (@)
  162.      filext = strupper(FileExtension(wGetFileName()))  
  163.      if filext=="PL" || filext=="PM"   ; Check to be sure.
  164.         wInsString("my(@list) = ( str1, str2 );")
  165.      endif
  166.      drop(filext)
  167.  
  168.  hash-variable (%)
  169.      filext = strupper(FileExtension(wGetFileName()))  
  170.      if filext=="PL" || filext=="PM"   ; Check to be sure.
  171.         a = wGetColNo()
  172.         wInsLine("my(%%hash) =")
  173.         wInsLine("{")
  174.         wGoToCol( a+3 )
  175.         wInsLine( "key1 => val1")
  176.         wInsLine( "key2 => val2")
  177.         wGoToCol( a )
  178.         wInsLine("};")
  179.      endif             
  180.      drop(a,filext)
  181.  
  182.  Subroutine
  183.      filext = strupper(FileExtension(wGetFileName()))  
  184.      if filext=="PL" || filext=="PM"   ; Check to be sure.
  185.         a = wGetColNo()
  186.         wInsLine("sub funcName")
  187.         wInsLine("{")
  188.         wGoToCol( a+3 )
  189.         wInsLine("# sub BODY")
  190.         wGoToCol( a )
  191.         wInsLine("} #end sub funcName")
  192.      endif
  193.      drop(a,filext)
  194.     
  195.  Subroutine w/prototype
  196.      filext = strupper(FileExtension(wGetFileName()))  
  197.      if filext=="PL" || filext=="PM"   ; Check to be sure.
  198.         a = wGetColNo()
  199.         wInsLine("sub funcName($$)")
  200.         wInsLine("{")
  201.         wGoToCol( a+3 )
  202.         wInsLine("# sub BODY")
  203.         wGoToCol( a )
  204.         wInsLine("} #end sub funcName")
  205.      endif
  206.      drop(a,filext)
  207.  
  208. ;
  209. ;=====================================================================
  210. _Properties
  211.     wProperties()
  212.  
  213. ;
  214. ;=====================================================================
  215. _File
  216.  New        \ ^N
  217.      wFileNew()
  218.  
  219.  Open Selected File    \ ^F       ; Open selected file
  220.         name = wGetWord()
  221.         length = strlen(name)
  222.         if length==0 then goto DONE
  223.         b = FileLocate(name)
  224.         if b == "" then Message("Open selected file","Cannot find %name%")
  225.         if b == "" then goto DONE
  226.         wFileOpen(b)
  227.         :DONE
  228.         drop(name,length,b)
  229.  
  230.  Open     \ ^O
  231.      wFileOpen()
  232.  
  233.  Close    \ ^{F4}
  234.     wWinClose()
  235.  
  236.  Print    \ ^P
  237.     wPrintDirect()
  238.  
  239.  _FTP Open
  240.     wFtpOpen()
  241.  
  242.  FTP Save
  243.     wFtpSave()
  244.  
  245.  
  246. ;
  247. ;=====================================================================
  248. _How do I?...        ; Learn about using scripts
  249.  Customize Menus           ; Menu file reference
  250.     helpfile = strcat(DirHome(),"Help\Windows Interface Language.hlp")
  251.     WinHelp(helpFile, "PartialKey", "Menu Files")
  252.  
  253.  Write Macro Scripts       ; WIL scripting language reference
  254.     helpfile = strcat(home,"Help\Windows Interface Language.hlp")
  255.     WinHelp(helpFile, "PartialKey", "Tutorial")
  256.     
  257. Customize this menu...   ; Manage WinEdit Popup menu 
  258.      TheFile=strcat(DirHome(),"System\PerlPopup.mnu")
  259.     WFileOpen(TheFile)
  260.     Drop(TheFile)
  261. ;
  262. ;=====================================================================
  263.  
  264.