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
/
BERK.MSH
< prev
next >
Wrap
Text File
|
1992-05-10
|
4KB
|
108 lines
| file BERK.MSH
|
| Convenient definitions if you own the Berkeley utilities
|
|
berk
( ("od -ch "current.name&(exec)with_nomagic)od!
("wc " selected_list&exec)wc!
|
| show space used by current directory/ space left on drive
|
("ls -MU"(exec)with_nomagic)ls_MU!
|
| show space selected files would take on drive of next panel
|
("ls -U"next_dir unit_and_name drop&" "&selected_list&execute)
selected_fit_other!
("ls"execute hide_all)ls_hide!
( ( "grep -it ""where do you want to go?"50 input dup dir_pat!& " "&
prog_dir"tree"makename &
" | tr -d \\r\\n > "&prog_dir"junk.dir"makename&execute
prog_dir"junk.dir"makename read dup (cwd! refresh)
(true debug!drop "warning" "no directory containing the string \""dir_pat&"\" "&
message)ifelse
)
( prog_dir cwd!
"ls -M ["fixed_drives&"]:\\\\ |awk '{print $1}'>tree"& exec refresh
)
"Are you
%going somewhere%. . . ?
or refreshing the %tree%"
() 35 2 temp_bordered_menu
) whereto!
("grep -i " "what string?" 50 input quote & " " &
"where (type a pattern -- or just return for *.*)?"
50 input dup (drop "*.*")ifnot&exec)find_string!
("ls ["fixed_drives&"]:\\\\" &"what file pattern (e.g. john.*) " 50
input &exec)whereis!
)
( ("hex dump"" 'od' is one of The Berkeley Utilities
it will create a hex dump of any file "message OPEN )od!
("word count"" 'wc' is one of The Berkeley Utilities
it will do a word count of any files "message OPEN )wc!
("ls -MU"" 'ls' is one of The Berkeley Utilities
it lists the files on your computer;
with these options, it asks for a header only
and how much space is left"message OPEN )ls_MU!
("ls -Ud:"" 'ls' is one of The Berkeley Utilities
it lists the files on your computer.
With these options, it asks whether the selected
files would fit on the other directory"message OPEN )selected_fit_other!
("ls_hide"" 'ls' is one of The Berkeley Utilities
it lists the files on your computer;
here we ask for a listing and hide msh
"message OPEN )ls_hide!
( (OPEN)(OPEN)
"Are you
%going somewhere%. . . ?
or refreshing the %tree%
This is a superset of Norton's
Change directory. However, you need
The Berkeley Utilities in order
to implement it.
"
() 35 2 temp_bordered_menu)whereto!
("find_string"" This is only possible when you own
The Berkeley Utilities' grep" message OPEN)find_string!
("whereis"" This is only possible when you own
The Berkeley Utilities' ls" message OPEN)whereis!
)
ifelse
|
berk_cpmvrm
( ("cp -ir "selected_list&" "&next_dir&
(deselect (execute)with_nomagic reread_next)confirm)copyto!
("rm -r "selected_list&dup ok(deselect (exec)with_nomagic)(drop)ifelse)
delete!
("mv -ir "selected_list&" "&next_dir&dup
ok(deselect (exec)with_nomagic reread_next)(drop)ifelse)moveto!
)if
|
| This one for Delta owners
|
delta
( ( "delta " panel.pattern dirpart current.name&" "&
((panel.pattern dirpart current.name&" "&)in_next_panel)
#& & (execute)with_magic
)delta!
)
( (" DELTA "" DELTA is a comparison tool
for directories and ASCII files.
It is ideal for programmers."message OPEN
) delta!
)
ifelse
|
|
(" OPENetwork "" You can order our software with a
credit card and a simple phone call to (718) 398-3838
Mi-Shell $49
The Berkeley Utilities $200
DELTA $100
July 1991"message)OPEN!
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||