home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / word / text / 019 / most.sl < prev    next >
Text File  |  1993-01-19  |  928b  |  39 lines
  1. ;;
  2. ;;  Most/more/less file viewing
  3. ;;  
  4.  
  5.  
  6. ( "global" use_keymap "" setmode "Done." message ) exit_most
  7.  
  8. "Most" defined? 
  9.    {  
  10.       [Most] 1 =Most   ;; it is now
  11.       "Most_Map" make_keymap ;; need a make sparse map!
  12.       "A" int "z" int 1 {char "Most_Map" undefinekey} for
  13.       "pageup"    "^?" "Most_Map" definekey
  14.       "pagedown"  " "  "Most_Map" definekey
  15.       "exit_most" "q"  "Most_Map" definekey
  16.       "most_ff" "/" "Most_Map" definekey
  17.       "most_fb" "?" "Most_Map" definekey
  18.       "most_fnxt" "n" "Most_Map" definekey
  19.    }
  20.   !if
  21.   
  22.   
  23. [most_dir] 1 =most_dir
  24.  
  25. ( [r]
  26.   LAST_SEARCH int 0 ==
  27.     { "Find What?" error}
  28.     { LAST_SEARCH
  29.       most_dir 1 == { 1 right =r fsearch }{ 0 =r bsearch } else
  30.       { "Not Found." error 
  31.         r left pop
  32.       } !if
  33.     } else
  34. ) most_fnxt
  35.  
  36.  
  37. ( -1 =most_dir "search_backward" call) most_fb
  38. ( 1 =most_dir "search_forward" call ) most_ff
  39.