#!/usr/bin/perl
#
# This scripts makes sources(*.c) for BAKA-DOS onto $TDIR-directory
# from original files.
# Make sure definitions of 'subroutine', 'function_real',,, in propath.h
#

# Source Directory
chdir(".");

# Target Directory (seen from Source directory)
$TDIR = "./unix";

#
#     *.c
#
@FILEs = <*.c>;
foreach $file(@FILEs){
	print "$file ----------\n";
	open(ip, "$file");
	open(wp, ">$TDIR/$file") || die("Can't open $TDIR/$file\n");
	while(<ip>){
		chop;
		$l = $_;
		#    function_real foo_(..) -> function_real FOO(...)
		#    subroutine foo_(..)    -> subroutine FOO(...)
		#
		@FTYPEs = (
				   "function_real",
				   "function_int",
				   "function_char",
				   "subroutine"
				   );
		foreach $ftype(@FTYPEs){
			if ($l =~ /^(.*)$ftype *([A-Z0-9_]*)\((.*)$/){
				$fname = $2;
				$fname =~ tr/A-Z/a-z/;
				$l = "$1"."$ftype $fname" . "_($3";
				print "$l\n";
			}
		}
		print wp "$l\n";
	}
	close ip;
	close wp;
}
system("cp -uv *.for $TDIR");
system("cp -uv *.h $TDIR");
print "Don't forget converting CR-code of '*.c *.for *.f' to UNIX-proper-code\n";