29 lines
481 B
Plaintext
29 lines
481 B
Plaintext
set echo 0
|
|
|
|
Set f "`Files -f -q "{1}"`" # get full pathnames
|
|
|
|
exit if `evaluate "{f}" =~ /(Å)¨0.ml/` != 1
|
|
set base "{¨0}"
|
|
|
|
set _closeit 0
|
|
Set _openWindows " ``Windows -q`` "
|
|
If "{_openWindows}" !~ /Å [¶']*"{f}"[¶']* Å/
|
|
Open "{f}"
|
|
Set _closeit 1
|
|
End
|
|
|
|
ocamlc -unsafe -nopervasives "{f}"
|
|
find ° "{f}"
|
|
find Æ\'**)'\:\'(**'\Æ "{f}"
|
|
echo >"{f}".¤
|
|
ocamldumpobj a.out >>"{f}".¤
|
|
find ¥ "{f}"
|
|
|
|
format -t 8 "{f}"
|
|
|
|
delete -i "{base}".cmi "{base}".cmo
|
|
|
|
if {_closeit}
|
|
close -y "{f}"
|
|
end
|