43 lines
1.3 KiB
Plaintext
43 lines
1.3 KiB
Plaintext
#########################################################################
|
|
# #
|
|
# Objective Caml #
|
|
# #
|
|
# Damien Doligez, projet Para, INRIA Rocquencourt #
|
|
# #
|
|
# Copyright 1999 Institut National de Recherche en Informatique et #
|
|
# en Automatique. All rights reserved. This file is distributed #
|
|
# under the terms of the Q Public License version 1.0. #
|
|
# #
|
|
#########################################################################
|
|
|
|
# $Id$
|
|
|
|
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
|