#!/usr/local/bin/perl -w
use strict "subs";

# $Id: stripcomment,v 1.1 2000/10/04 09:55:59 freek Exp $

$/ = "*)";

$d = 0;
while (<>)
{
  $o = s/\(\*/$&/g;
  $p = /\*\)/;
  if (!$d)
  {
    while (s/\(\*.*\n/\n(*/)
    {
    }
    s/\(\*.*//;
    print;
  }
  else
  {
    s/[^\n]//g;
    print;
  }
  $d += $o - $p;
  die "unbalanced comment" if $d < 0;
}
die "unbalanced comment" if $d;
