#!/usr/bin/perl
use IPC::Open2;
use strict;

my ($JSWRITE, $JSREAD);

my $pid = open2($JSREAD, $JSWRITE, "js");

print $JSWRITE "load('jslint.js');\n";

#INPUT INTO JSLINT
open FILE, '<', "test.js";
while (<FILE>)
{
    print $JSWRITE "$_\n";
}
close(FILE);

#END INPUT

print $JSWRITE "END\n";
close($JSWRITE);
waitpid($pid, 0);

my @output=<$JSREAD>;
close($JSREAD);

print join ("\n", @output);

##</code><code>##

    var input="";
    var line="";
    while (true){
        line=readline();
        if (line=="END") break;
        if (line!="") {
            input += line;
            input += "\n";
        }
    }

##</code><code>##

print $JSWRITE "var foo='bar';\n";
print $JSWRITE "print(foo);\n";
close($JSWRITE);
waitpid($pid, 0);

my @output=<$JSREAD>;
close($JSREAD);

print join ("\n", @output);

##</code><code>##

print $JSWRITE "input += '$escaped_line_of_file';\n";