#!../../perl
#
# this program takes the functions prototypes given as input and
# outputs a .cli file guessing for the I, O, and IO for each parameter
# notice that you should change the second line of code to match
# the format of your prototype.  
#
# Fernando Trias, Aug 1993

while(<>) {
  ($v,$n,$p)=/(\S+)\s+(\S+)\s+A..(.*)...\n/;
  print "CASE $v $n\n";
  $p =~ s/\s//g; 
  @n=split(',',$p);
  foreach $o (0..@n-1) {
	 $i="I ";
	 $i="I " if $n[$o] eq "int";
	 $i="IO" if $n[$o] eq "char*";
	 $i="O " if $n[$o] eq "int*";
  print "$i $n[$o] parm$o\n";
  }
  print "END\n\n";
}