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