#! /usr/bin/perl -w
# Prints some informative information
# in pascal comment style
# 
# Daniel Hottinger <hodaniel@student.ethz.ch>
# License: GNU GPL v2 or later
# Created: Mon Mar 26 18:59:31 CEST 2001
# Last update: Sun Apr 15 21:34:32 CEST 2001

use POSIX qw(strftime);

$date = strftime "%a %b %d %T %Z %Y", localtime;
@desc = map { "*   $_" } <STDIN>;
chomp $desc[-1];

&oberon_file_desc(\@desc);

sub oberon_file_desc
{
  my @desc = @{scalar shift};
print <<EOF;
(****************************************
 * Description:
 @desc
 * Author:
 *   Daniel Hottinger <hodaniel\@student.ethz.ch>
 *   Department of Computer Science, ETH Zurich
 *   SS 2001
 * Licence: GNU GPL v2 or later
 * Created: $date
 * Last update: none
 * Changes:
 ****************************************)

EOF
}