home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / ircii30.zip / script / complete < prev    next >
Encoding:
Text File  |  1994-07-30  |  7.4 KB  |  212 lines
  1. # Complete - by Ian Frechette (Daemon)
  2. # inspired by the tcsh shell 'complete' command
  3. # version .8 (alpha) Do NOT distribute
  4. # Tue Jul 13 13:16:01 MDT 1993
  5. @ RCS.complete = [$$Header: /local/cvs/ircii/script/complete,v 1.1 1994/07/30 18:07:23 mrg stable $$]
  6. #
  7. # Commands:
  8. #   compl.add [-null] [-nomatch] <command pattern> <command parser name>
  9. #  or
  10. #   compl.add <[-nulll] [-nomatch]> <command parser name>
  11. #  to add patterns and assciated parsers or just parsers to null and nomatch
  12. #  condition.  (See notes below for me info)
  13. #
  14. #   compl.list      Just list everything out..
  15.  
  16. # don't clobber existing lists when reloading complete
  17. if (!compl.list) {@ compl.list = []}
  18. if (!compl.parse) {@ compl.parse = []}
  19. if (!compl.null) {@ compl.null = []}
  20. if (!compl.null) {@ compl.nomatch = []}
  21.  
  22. # Bind TAB to call compl.parse with the contents of the input line
  23. bind ^I parse_command compl.parse $L
  24.  
  25. # alias compl.add 
  26. # Usage: compl.add [-null] [-nomatch] <command pattern> <command parser>
  27. # Usage: compl.add <[-null] [-nomatch]> <command parser>
  28. # e.g.  compl.add /msg message_parser      will call the message_parser 
  29. #                                         when TAB is pressed and /msg
  30. #                                         is the current command on the
  31. #                                         input line
  32. # -null specifies that the given <command parser> should be used when
  33. #       TAB is pressed and the input line is blank
  34. # -nomatch  specifies that the given <command parser> should be used
  35. #       when the current command at the head of the input line is not
  36. #       found in the list of <command pattern>s
  37. # can use just compl.add -null message_parser
  38. # or           compl.add -null -nomatch message_parser
  39. #      
  40. # 
  41. alias compl.add {
  42.     if ([$1])
  43.     {
  44.         @ compl.add.last = [$*]
  45.         @ compl.add.last = #compl.add.last
  46.         @ compl.tmp = 0
  47.         @ compl.flag.null = 0
  48.         @ compl.flag.nm = 0
  49.         if (compl.flag.null = rmatch(-null $*)) {@ compl.tmp = compl.tmp +1}
  50.         if (compl.flag.nm = rmatch(-nomatch $*)) {@ compl.tmp = compl.tmp +1 }
  51.  
  52.         # Need to make sure there is at least one morpe argument beyond
  53.         # the -null or -nomatch which we'll take as the parser name
  54.         if (compl.add.last > compl.tmp)
  55.         {
  56.             if (compl.flag.null) 
  57.             {
  58.                 if (compl.null) {echo *** compl.add: null call replaced.}
  59.                 @ compl.null = [$(${compl.add.last -1 })] 
  60.                 echo *** compl.add: null calls $compl.null
  61.             }
  62.             if (compl.flag.nm) 
  63.             {
  64.                 if (compl.nomatch) {echo *** compl.add: nomatch call replaced.}
  65.                 @ compl.nomatch = [$(${compl.add.last -1})]
  66.                 echo *** compl.add: nomatch calls $compl.nomatch
  67.             }
  68.             # Need both the pattern and parser for this part.
  69.             if ((compl.add.last - 2) == compl.tmp)
  70.             {
  71.                 # At this point compl.tmp should be 0 1 or 2
  72.                 # basically 1 past the last -null or -nomatch found
  73.                 push compl.list $($compl.tmp)
  74.                 push compl.parse $(${compl.tmp+1})
  75.                 echo *** compl.add: $($compl.tmp) $(${compl.tmp +1}) added
  76.             }
  77.         }
  78.         {   echo *** compl.add: Not enough arguments to do anything (1)}
  79.     }
  80.     {   echo *** compl.add: Not enough arguments to do anything (2)}
  81.     ^assign -compl.tmp
  82.     ^assign -compl.flag.null
  83.     ^assign -compl.flag.nm
  84. }
  85.  
  86. # alias compl.list   No arguments.
  87. # just list the various completion lists.
  88. alias compl.list {
  89.     # if there are items in the list
  90.     @compl.list.cnt = 0
  91.     @compl.list.flag = 0
  92.     echo *** $format(4 num): $lformat(17 Command Pattern) $lformat(15 Action taken)
  93.     if (compl.list)
  94.     {
  95.         @ compl.list.flag = 1
  96.         @ compl.tmp = #compl.list
  97.         while (compl.list.cnt < compl.tmp)
  98.         {
  99.             echo *** $format(4 ${compl.list.cnt +1}): $lformat(17 $word($compl.list.cnt $compl.list)) $lformat(15 $word($compl.list.cnt $compl.parse))
  100.             @ compl.list.cnt = compl.list.cnt + 1
  101.         }
  102.     }
  103.     if (compl.null)
  104.     {
  105.         @compl.list.cnt = compl.list.cnt + 1
  106.         @compl.list.flag = 1
  107.         echo *** $format(4 $compl.list.cnt): $lformat(17 <NULL PATTERN>) $lformat(15 $compl.null)
  108.     }
  109.     if (compl.nomatch)
  110.     {
  111.         @compl.list.cnt = compl.list.cnt + 1
  112.         @compl.list.flag = 1
  113.         echo *** $format(4 $compl.list.cnt): $lformat(17 <NO MATCH>) $lformat(15 $compl.nomatch)
  114.     }
  115.     if (!compl.list.flag) { echo *** compl.list: no completions set }
  116.  
  117.     ^assign -compl.tmp
  118.     ^assign -compl.list.flag
  119.     ^assign -compl.list.cnt
  120. }
  121.  
  122.  
  123. # alias compl.del   Delete an entry from the list of completions
  124. # Do a 'compl.list' first to get a list with numbers.
  125. # then issue a compl.del <item number> and walla.. gone poof.
  126. alias compl.del {
  127.     if (index(0123456789 $0) > -1)
  128.     {
  129.         @ c.d.len = #compl.list
  130.         if (([$0] > 0) && ([$0] <= c.d.len))
  131.         {
  132.             # notword() does boundary checking
  133.             @ compl.list = notword($0 $compl.list)
  134.             @ compl.parse = notword($0 $compl.parse)
  135.             if (#comp.list == c.d.len)
  136.                 { echo *** compl.del: Failed to remove item $0 from compl.list}
  137.                 { echo *** compl.del: removed item $0 from list of completions}
  138.         }
  139.         {if ([$0] == (c.d.len + 1))
  140.         {
  141.             if (compl.null)
  142.             {
  143.                 echo *** compl.del: Removed default null action
  144.                 @ compl.null = []
  145.             }
  146.             {
  147.                 echo *** compl.del: Removed default nomatch action
  148.                 @ compl.nomatch = []
  149.             }
  150.         }
  151.         {if (([$0] == (c.d.len + 2)) && (compl.null != []) && (compl.nomatch != []))
  152.         {
  153.             echo *** compl.del: Removed default nomatch action
  154.             @ compl.nomatch = []
  155.         }
  156.         {
  157.             echo *** compl.del: Selection not in range.  /coml.list for list
  158.         }}}
  159.     }
  160.     {
  161.         echo *** compl.del: Not a valid number. /compl.del <number to delete>
  162.         echo *** compl.del: /compl.list for a list of current completions
  163.     }
  164.     ^assign -c.d.len
  165. }
  166.             
  167.  
  168.  
  169. # alias compl.parse
  170. # This is the real guts of the whole script.  Don't let all the other
  171. # fool you. This is what is called when you press TAB.
  172. # It simply tries to find a match for the command word
  173. # ($0 of the input line) and if it finds one it calls the corresponding
  174. # parser with the entire input line as an argument.
  175. # There are two additional states
  176. # null == the command in the compl.null var is called when the input line
  177. #         is empty and compl.parse is called
  178. # nomatch == the command in the compl.nomatch var is called when the input
  179. #         line command word ($0) is not found in the list of commands
  180. #         compl.list
  181. alias compl.parse {
  182.     if ([$0])
  183.     {
  184.         if (compl.ptr = rmatch($0 $compl.list))
  185.         {
  186.             $word(${compl.ptr -1} $compl.parse) $*
  187.         }
  188.         {
  189.             if (compl.nomatch) {$compl.nomatch $*}
  190.         }
  191.     }
  192.     {
  193.         $compl.null
  194.     }
  195.     ^assign -compl.ptr
  196. }
  197.  
  198. # push an item onto the head of a list
  199. # this only takes the name of the list instead of the variable itself. 
  200. # examples.
  201. # /push list Item
  202. # or     if (push(list Item)) { echo push sucessful } { echo push failed }
  203. # echo $list returns 'Item'
  204. alias push {
  205.     if (![$1])
  206.     { @function_return = 0 }
  207.     { eval @ $0 = [$1- $($0)];@function_return = 1}
  208. }
  209.  
  210. alias debug if (ddebug) {echo *D* $*}
  211.  
  212.