#!/usr/local/bin/perl
#
# Ф /usr/local/bin/jperl ѤǤʤȤ

# JUMAN.connect.c §ΥʥХ

# JUMAN.connect.cε§˥ʥХ󥰤Ԥ
# - ɸϤɤ߹ߡɸϤ˷̤ǤФ
# - ʥХ󥰤1顥
# - ֹϡ1::פΤ褦ˡȾѿΤȾѥ2Ĥɽ
# - 쵬§ʣԤϤäƤƤ褤
# - Ʊʣε§äƤϤʤ
# - #define#endif ϤΤޤ޽ϡ\פ𤷤ʣԤϤäƤ
#   ɤ
# - ȹԡԤϤΤޤ޽ϡϡ§ˤäƤɤ
#   (ιƤȹԤԤȤư롥)
#   *ȹԡʣĤζΤȤȾѥߥ

# 1994.08.26. 
# 1994.08.29. ȹԡԤ§ˤäƤɤȤˤ롥

$left   = 0;  # ̿
$right  = 0;  # ̿
$number = 0;  # §ֹ
$txt    = ""; # §ʸ򤿤ᤳ

while(<>) {
    if(/^\s*(;|$)/) { # ȹԡ
	if($left) { $txt .= $_; }
	else	  { print; } 
	next;
    } 
    if(/^\s*#/) { 		 # #define,#endif 
	print;
	while(/\\\s*$/) { # ʣԤϤäƤΤν
	    $_ = <>;
	    print;
	}
        next;
    }	

    $txt .= $_;        # $txtʸɲ
    $left  += tr/\(//; # ̤ο׻
    $right += tr/\)//; # ̤ο׻

    if($left == $right) {
	print ++$number, '::', $txt;
	$left  = 0;  # 
	$right = 0;
	$txt   = "";
    }
}
#
# End of File
