#! /usr/bin/perl -w
#------------------------------------------------------------
# getOcamlSources.pl	Created      : Mon Jun  9 11:47:50 2003
#			Last modified: Mon Jun 09 12:13:51 2003
#------------------------------------------------------------
# Written by Takashi Masuyama <mamewo@dk9.so-net.ne.jp>
# FTP Directory: sources/perl #
# ls -1 で1行1ファイル名の表示をしてくれる。
# ocamlのファイルのprefixからそのprefixに一致するソースファイル
#  ml  実装
#  mli インターフェース
#  mll lexer定義ファイル
#  mly parser定義ファイル
# のファイル名を標準出力に出力する。
# 例は http://www002.upp.so-net.ne.jp/mamewo/get_sources_usage.txt に書いた。

my $OCAML_SUFFIXES = "{mli,ml,mll,mly}";
my @prefixes = <>;
my @args = ();
foreach my $prefix (@prefixes) {
  $prefix =~ s/\"\'//g;
  chomp $prefix;
  push(@args, $prefix.".$OCAML_SUFFIXES");
}

my $command = "ls -1 ".join(" ", @args)." 2> /dev/null";
system($command);
exit(0);