summaryrefslogtreecommitdiff
path: root/camlp4/ocaml_src/tools/camlp4_comm.mpw
blob: ff837e7745d7748ff0a27fdffa50cdff0c29238b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
#######################################################################
#                                                                     #
#                             Camlp4                                  #
#                                                                     #
#            Damien Doligez, projet Para, INRIA Rocquencourt          #
#                                                                     #
#  Copyright 1999 Institut National de Recherche en Informatique et   #
#  en Automatique.  Distributed only by permission.                   #
#                                                                     #
#######################################################################

# $Id$

set echo 0

exit if {#} < 1

if "{1}" =~ /(Å)¨0.mli/
  echo duplicate -y {1} {¨0}.ppi
  duplicate -y "{1}" "{¨0}.ppi"
else if "{1}" =~ /(Å)¨0.ml/
  echo duplicate -y {1} {¨0}.ppo
  duplicate -y "{1}" "{¨0}.ppo"
else
  echo duplicate -y {1} {1}.ppo
  duplicate -y "{1}" "{1}.ppo"
end