home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / m / msh_ut11.zip / MYDEFS.ZIP / BERK.MSH < prev    next >
Text File  |  1992-05-05  |  3KB  |  99 lines
  1. |  file BERK.MSH
  2. |
  3. | Convenient definitions if you own the Berkeley utilities
  4. |
  5. |
  6. berk
  7. ( ("od -ch "current.name&(exec)with_nomagic)od! 
  8.   ("wc " selected_list&exec)wc!
  9. |
  10. |  show space used by current directory/ space left on drive
  11. |
  12.   ("ls -MU"(exec)with_nomagic)ls_MU!
  13. |
  14. |  show space selected files would take on drive of next panel
  15. |
  16.   ("ls -U"next_dir unit_and_name drop&" "&selected_list&execute)
  17.    selected_fit_other!
  18.    ( ( "where do you want to go?"50 input "g " swap & exec refresh)
  19.      ( "g /create" exec )
  20.     "Are you 
  21.  %going somewhere%. . . ?
  22.  or %refreshing the tree%"
  23.     () 35 2 temp_bordered_menu
  24.   ) whereto!
  25.   ("grep -i " "what string?" 50 input quote & " " &
  26.     "where (type a pattern -- or just return for *.*)?"
  27.    50 input dup (drop "*.*")ifnot&exec)find_string!
  28.   ("sst -d " "what file pattern (e.g. john.*) " 50
  29.     input &exec)whereis!
  30. )
  31. ( ("hex dump"" 'od' is one of The Berkeley Utilities
  32.   it will create a hex dump of any file "message OPEN )od! 
  33.   ("word count"" 'wc' is one of The Berkeley Utilities
  34.   it will do a word count of any files "message OPEN )wc! 
  35.   ("ls -MU"" 'ls' is one of The Berkeley Utilities
  36.    it lists the files on your computer;
  37.    with these options, it asks for a header only 
  38.    and how much space is left"message OPEN )ls_MU!
  39.   ("ls -Ud:"" 'ls' is one of The Berkeley Utilities
  40.    it lists the files on your computer.
  41.    With these options, it asks whether the selected
  42.    files would fit on the other directory"message OPEN )selected_fit_other!
  43.   ("ls_hide"" 'ls' is one of The Berkeley Utilities
  44.  it lists the files on your computer;
  45.  here we ask for a listing and hide msh
  46. "message OPEN )ls_hide!
  47.   ( (OPEN)(OPEN)
  48.     "Are you 
  49.  %going somewhere%. . . ?
  50.  or refreshing the %tree%
  51.  
  52.  This is a superset of Norton's
  53.  Change directory. However, you need 
  54.  The Berkeley Utilities in order 
  55.  to implement it.
  56. " 
  57.     () 35 2 temp_bordered_menu)whereto!
  58.   ("find_string"" This is only possible when you own 
  59.  The Berkeley Utilities' grep" message OPEN)find_string!
  60.   ("whereis"" This is only possible when you own 
  61.  The Berkeley Utilities' ls" message OPEN)whereis!
  62. )
  63. ifelse
  64. |
  65. berk_cpmvrm
  66. ( ("cp -ir "selected_list&" "&next_dir&
  67.    deselect (exec)with_magic reread_next)copyto!
  68.   ("rm -r "selected_list&dup ok(deselect (exec)with_nomagic)(drop)ifelse)
  69.     delete!
  70.   ("mv -ir "selected_list&" "&next_dir&
  71.     (exec)with_magic deselect reread_next)moveto!
  72. )if
  73. |
  74. |  This one for Delta owners
  75. |
  76. delta
  77. ( ( "delta " panel.pattern dirpart current.name&" "& 
  78.     ((panel.pattern dirpart current.name&" "&)in_next_panel)
  79.     #& & (execute)with_magic
  80.   )delta!
  81. )
  82. ( (" DELTA "" DELTA is a comparison tool
  83.  for directories and ASCII files.
  84.  It is ideal for programmers."message OPEN 
  85.   ) delta!
  86. )
  87. ifelse
  88. |
  89. |
  90. (" OPENetwork "" You can order our software with a 
  91.  credit card and a simple phone call to (718) 398-3838
  92.  
  93.  Mi-Shell                    $49
  94.  The Berkeley Utilities      $200
  95.  DELTA                       $100
  96.  
  97. July 1991"message)OPEN!
  98. |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  99.