#!/home/ambrus/local/devel/bin/ruby -w

src = %{

? 
ip: F
lt: ? !_
print: ?
buf: ?

t: ?
u: ?
_c: ?
_k: -Input
_b: ?
s: ?

$0: 0
$1: 1
$_1: -1
$_10: -10
$_14: -14
$64: 64
$_64: -64

J:
!buf buf  buf $_lbrace  print $1  print print  buf buf  buf $_karJ  print $1  print print  buf buf  buf $_rbrace  print $1  print print  
u u  u _c  t t  t u  1> 1>  t $_64  1> lt  1: ? W1$W W1:
t t  t _k  _b _b  _b t
F:
!buf buf  buf $_lbrace  print $1  print print  buf buf  buf $_karF  print $1  print print  
1> 1>  1> _k  _c _c  _c 1: ?
!buf buf  buf _c  print $1  print print  buf buf  buf $_rbrace  print $1  print print  
_k $1
1> 1>  _c $0  1> lt  1: ? J1$J J1:
!buf buf  buf $_lbrace  print $1  print print  buf buf  buf $_kar0  print $1  print print  buf buf  buf $_rbrace  print $1  print print  buf buf  buf $_10  print $1  print print  
ip Ex1$0 Ex1:
W:
!buf buf  buf $_lbrace  print $1  print print  buf buf  buf $_karW  print $1  print print  buf buf  buf $_rbrace  print $1  print print  
s s  s $_14
S:
t t  t _c  t _c  _c _c  _c t  _c t
s $1
t t  1> 1>  t s  1> lt  1: ? S1$S S1:
1> 1>  _c $0  1> lt  1: ? F1$F F1:
t t  1> 1>  t _c  1> lt  1: ? F2$F F2:
P:
!buf buf  buf $_lbrace  print $1  print print  buf buf  buf $_karP  print $1  print print  buf buf  buf $_rbrace  print $1  print print  
1> 1>  1> _b  _c _c  _c 1: ?
buf buf  buf _c  print $1  print print
_b $1
u u  u _k  t t  t _b  1> 1>  t u  1> lt  1: ? P1$P P1:
T:
!buf buf  buf $_lbrace  print $1  print print  buf buf  buf $_karT  print $1  print print  buf buf  buf $_rbrace  print $1  print print  
1> 1>  1> _k  _c _c  _c 1: ?
u u  u _c  t t  t $_64  1> 1>  t u  1> lt  1: ? C1$C C1:
buf buf  buf $_10  print $1  print print
ip F3$F F3:
C:
!buf buf  buf $_lbrace  print $1  print print  buf buf  buf $_karC  print $1  print print  buf buf  buf $_rbrace  print $1  print print  
buf buf  buf _c  print $1  print print
_k $1
ip T1$T T1:

W1$W: W1-W
J1$J: J1-J
Ex1$0: Ex1-0
F1$F: F1-F
F2$F: F2-F
F3$F: F3-F
P1$P: P1-P
C1$C: C1-C
T1$T: T1-T
S1$S: S1-S

!$_lbrace: -'['  $_rbrace: -']'
!$_karJ: -'J'  $_karF: -'F'  $_karW: -'W'  
!$_karP: -'P'  $_karT: -'T'  $_karC: -'C'  $_kar0: -'0'

Input:

};


def val e, sgn, adr = @code.size;
	case e;
		when /^(-?\d+)$/;
			$1.to_i;
		when /^'(.)'$/;
			$1[0];
		when /^\?$/;
			0;
		when /^([\w@%$.]+)<$/;
			@labels[$1] or 
				fail "back reference not found: #{$1}";
		when /^([\w@%$.]+)>$/;
			(@forward[$1] ||= []).push [adr, sgn];
			0;
		when /^([\w@%$.]+)$/;
			@labels[$1] or (
				(@forward[$1] ||= []).push [adr, sgn];
				0;
			);
		else
			fail %Q'expr error: "#{e}"';
	end;
end;

@code = [];
@labels = Hash[];
@forward = Hash[];
@literal = Hash[];
src.gsub!(/[#!].*/) {""};

src.scan(/(\S+)/) {
	tok = $1;
	if tok =~ /^([\w@%$.]+):$/;
		@labels[$1] = @code.size;
		(f = @forward[$1]) and 
			f.each {|fr| 
				(a, sgn) = fr;
				@code[a] = sgn * @code.size; 
			};
		@forward.delete($1);
	else
		r = 0;
		tok.scan(/\G(?:(?:(-)|\+|)([^+\-]+)|(.))/) {
			$3 and 
				fail "toke error 2";
			sgn = (if $1; -1 else 1 end);
			r += sgn * val($2, sgn);
		};
		@code.push r;
	end;
};
@forward.empty? or
	fail "forward reference not found: #{@forward.keys[0]}";


fh = File.open("pie", "w");
fh.print(%{#!perl
use warnings; use strict; use integer;
for(my@a=(
});
@code.each {|n| 
	Integer === n or
		fail "internal error: invalid code";
	fh.print n, ","
};
fh.print(%{
unpack"U*",`cat part3.txt`.v0);
$a[1];$a[3]&&print chr$a[4]){$a[2]=-(($a[$a[$a[1]++]]-=$a[$a[$a[1]++]])<0)}
});
fh.close;

warn "" + @code.size.to_s + " words";

__END__