#!/usr/bin/perl -w

#
#   Crush puny Javascript includes so that they can be assimilated netwise
#   at double plus speed.
#
#   Afternoon <noon at aftnn.org>, 2003
#

use strict;
use vars qw($i $j $l @qs $quotedString $quotedStringPost);

$i = "";

while (<>) {
    $l = $_;
    $l =~ s/\/\/.*$//;
    $i .= $l;
}

$i =~ s/\/\*.*?\*\///sg;
$i =~ s/\\"/ESCAPEDQUOTE______/sg;
$i =~ s/\\'/ESCAPEDSINGELL______/sg;

$i =~ s/(function|new|else|return|var) (\w)/$1____SAPCEoo$2/sg;

@qs = split(/"/, $i);

for ($j=1; $j<$#qs; $j=$j+2) {
    $quotedStringPost = $qs[$j];
    $quotedString = quotemeta($qs[$j]);

    $quotedStringPost =~ s/ /____SAPCEoo/sg;
    $quotedStringPost =~ s/\t/__EROFACTORKESTREL__/sg;
    $quotedStringPost =~ s/\n/_EROFACTORDOGSBODY_____/sg;
    $i =~ s/$quotedString/$quotedStringPost/sg;
}

$i =~ s/\s//sg;

$i =~ s/(}+)([^;])/$1;$2/sg;

$i =~ s/____SAPCEoo/ /sg;
$i =~ s/__EROFACTORKESTREL__/\t/sg;
$i =~ s/_EROFACTORDOGSBODY_____/\n/sg;

$i =~ s/ESCAPEDSINGELL______/\\'/g;
$i =~ s/ESCAPEDQUOTE______/\\"/g;

$i =~ s/\};else/\}else/g;

print $i;