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}" =~ /(<28>)<29>0.ml/` != 1
|
|||
|
|
set base "{<7B>0}"
|
|||
|
|
|
|||
|
|
set _closeit 0
|
|||
|
|
Set _openWindows " ``Windows -q`` "
|
|||
|
|
If "{_openWindows}" !~ /<2F> [<5B>']*"{f}"[<5B>']* <20>/
|
|||
|
|
Open "{f}"
|
|||
|
|
Set _closeit 1
|
|||
|
|
End
|
|||
|
|
|
|||
|
|
ocamlc -unsafe -nopervasives "{f}"
|
|||
|
|
find <20> "{f}"
|
|||
|
|
find <20>\'**)'\:\'(**'\<5C> "{f}"
|
|||
|
|
echo >"{f}".<2E>
|
|||
|
|
ocamldumpobj a.out >>"{f}".<2E>
|
|||
|
|
find <20> "{f}"
|
|||
|
|
|
|||
|
|
format -t 8 "{f}"
|
|||
|
|
|
|||
|
|
delete -i "{base}".cmi "{base}".cmo
|
|||
|
|
|
|||
|
|
if {_closeit}
|
|||
|
|
close -y "{f}"
|
|||
|
|
end
|