1999-11-29 11:04:15 -08:00
|
|
|
|
#########################################################################
|
|
|
|
|
|
# #
|
|
|
|
|
|
# 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$
|
|
|
|
|
|
|
1999-11-08 07:18:52 -08:00
|
|
|
|
set echo 0
|
|
|
|
|
|
|
1999-11-29 11:04:15 -08:00
|
|
|
|
Set f "`Files -f -q "{1}"`" # get full pathnames
|
1999-11-08 07:18:52 -08:00
|
|
|
|
|
|
|
|
|
|
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
|
