created mirror
This commit is contained in:
whatever
302
Java/zob2java.pl
Normal file
302
Java/zob2java.pl
Normal file
@@ -0,0 +1,302 @@
|
||||
#
|
||||
# zob2java.pl
|
||||
# *
|
||||
# * Copyright (c) 1999-2000, Ted Nelson and Tuomas Lukka
|
||||
# *
|
||||
# * You may use and distribute under the terms of either the GNU Lesser
|
||||
# * General Public License, either version 2 of the license or,
|
||||
# * at your choice, any later version. Alternatively, you may use and
|
||||
# * distribute under the terms of the XPL.
|
||||
# *
|
||||
# * See the LICENSE.lgpl and LICENSE.xpl files for the specific terms of
|
||||
# * the licenses.
|
||||
# *
|
||||
# * This software is distributed in the hope that it will be useful,
|
||||
# * but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
# * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the README
|
||||
# * file for more details.
|
||||
# *
|
||||
# */
|
||||
# /*
|
||||
# * Written by Tuomas Lukka
|
||||
# */
|
||||
#
|
||||
|
||||
# $out = $ARGV[0];
|
||||
# $out =~ s/\.zob/\.java/ or die("Can't change filename for output file");
|
||||
|
||||
@ARGV == 2 or die "Two params: infile outfile";
|
||||
|
||||
$outfile = pop @ARGV;
|
||||
$infile = $ARGV[0];
|
||||
|
||||
$init .= <<FOO;
|
||||
/* DO NOT EDIT THIS FILE. THIS FILE WAS GENERATED FROM $ARGV[0],
|
||||
* EDIT THAT FILE INSTEAD!
|
||||
* All changes to this file will be lost.
|
||||
*/
|
||||
FOO
|
||||
|
||||
# ssslllluuuuuurrppp...
|
||||
$str = join '', <>;
|
||||
|
||||
$str =~ s/\bFONTMETRICS\s*\((.*?)\)/(ScalableFont.fmComp.getFontMetrics($1))/g;
|
||||
|
||||
# ZObs must implement ZOb themselves.
|
||||
#
|
||||
# $str =~ s/\b(implements\s+)/$1 ZOb, /
|
||||
# or $str =~ s/(^[\w\s]*\bclass\b[\w\s]*)({)/$1 implements ZOb $2/
|
||||
# or die "Can't implement ZOb - didn't find subst place";
|
||||
|
||||
$str =~ s/INITIALIZE/protected void init__zob() /
|
||||
and $doinit = "init__zob();";
|
||||
|
||||
# $structparre = 'STRUCTPARAMS;?(.*)END STRUCTPARAMS;?';
|
||||
|
||||
# $str =~ /$structparre/s;
|
||||
|
||||
# $pars = $1;
|
||||
|
||||
# FIXME: this parser takes into account braces in comments
|
||||
sub parse_balanced {
|
||||
my $str = $_[0];
|
||||
my $rv = "";
|
||||
my $level = 1;
|
||||
|
||||
while ($level > 0) {
|
||||
die "Unbalanced braces" if $str eq "";
|
||||
$str =~ /^([^{}]*)([{}])(.*)$/s;
|
||||
my($brace1, $brace2, $rest) = ($1, $2, $3);
|
||||
if ($brace2 eq "{") { ++$level; }
|
||||
if ($brace2 eq "}") { --$level; }
|
||||
$str = $rest;
|
||||
$rv = $rv . $brace1 . $brace2;
|
||||
}
|
||||
return ($rv, $str);
|
||||
}
|
||||
|
||||
$str =~ /^(.*)STRUCTPARAMS *{(.*)$/s or die "No STRUCTPARAMS SECTION";
|
||||
$beforestructpars = $1;
|
||||
($pars, $afterstructpars) = parse_balanced($2);
|
||||
$pars =~ s/}$//s;
|
||||
|
||||
@pars = map { /^\s*$/ ? () : $_ } split /\n\s*\n/, $pars;
|
||||
|
||||
%gets = (
|
||||
"float" => '__TARG__ = (Float.valueOf(__SRC__)).floatValue();',
|
||||
"double" => '__TARG__ = (Double.valueOf(__SRC__)).doubleValue();',
|
||||
"int" => '__TARG__ = Integer.parseInt(__SRC__); ',
|
||||
"boolean" => '
|
||||
if(__SRC__.equals("true")) __TARG__=true;
|
||||
else if(__SRC__.equals("false")) __TARG__=false;
|
||||
else { /* XXX ??? */ }
|
||||
',
|
||||
Font => '
|
||||
{
|
||||
ZZCell c1 = c.s("d.1");
|
||||
int size = 12;
|
||||
int style = Font.PLAIN;
|
||||
if(c1 != null) {
|
||||
size = Integer.parseInt(c1.getText());
|
||||
ZZCell c2 = c1.s("d.1");
|
||||
if(c2 != null) {
|
||||
String sty = c2.getText();
|
||||
if(sty.equals("BOLD"))
|
||||
style = Font.BOLD;
|
||||
if(sty.equals("ITALIC"))
|
||||
style = Font.ITALIC;
|
||||
else {
|
||||
// error...
|
||||
}
|
||||
}
|
||||
}
|
||||
__TARG__ = new Font(s, style, size);
|
||||
}
|
||||
',
|
||||
ScalableFont => '
|
||||
{
|
||||
ZZCell c1 = c.s("d.1");
|
||||
int size = 12;
|
||||
int style = Font.PLAIN;
|
||||
if(c1 != null) {
|
||||
size = Integer.parseInt(c1.getText());
|
||||
ZZCell c2 = c1.s("d.1");
|
||||
if(c2 != null) {
|
||||
String sty = c2.getText();
|
||||
if(sty.equals("BOLD"))
|
||||
style = Font.BOLD;
|
||||
if(sty.equals("ITALIC"))
|
||||
style = Font.ITALIC;
|
||||
else {
|
||||
// error...
|
||||
}
|
||||
}
|
||||
}
|
||||
__TARG__ = new ScalableFont(s, style, size);
|
||||
}
|
||||
',
|
||||
String => '__TARG__ = __SRC__; ',
|
||||
Color => '__TARG__ = Color.decode(__SRC__); ',
|
||||
ZZPath => '
|
||||
__TARG__ = ZZPath.createFromStructure1(__SRCCELL__.s("d.2"));
|
||||
',
|
||||
ZOb => '
|
||||
{
|
||||
__TARG__ = ZZDefaultSpace.readZOb(__SRCCELL__);
|
||||
// __TARG__ = ZZDefaultSpace.newZOb(__SRC__);
|
||||
// __TARG__.readParams(__SRCCELL__.s("d.2"));
|
||||
|
||||
}
|
||||
',
|
||||
ZZCell => '
|
||||
{
|
||||
__TARG__ = __SRCCELL__;
|
||||
}
|
||||
',
|
||||
);
|
||||
|
||||
my $curbit = -1;
|
||||
|
||||
# Remove comments
|
||||
for(@pars) {
|
||||
print "Par: $_";
|
||||
# Move comment
|
||||
my $comment;
|
||||
if(m|^(\s*/\*.*\*/)(.*)|s) {
|
||||
$comment = $1;
|
||||
$_ = $2;
|
||||
} else {
|
||||
# die "No comment for structparam '$_' in $infile";
|
||||
$comment = "/** UNDOCUMENTED. \n */";
|
||||
}
|
||||
if(m|=(.*)|) {
|
||||
my $def = $1;
|
||||
print "DEFAULT: $def\n\n";
|
||||
$comment =~ s|\*/|\n * <p>Default value: <PRE>$def</PRE>. \n */|
|
||||
or die "Comment '$comment' not substitutable" ;
|
||||
} else {
|
||||
print "NO DEFAULT: $_\n\n";
|
||||
}
|
||||
# Add new tag: structparam
|
||||
$comment =~ s|\*/|\n * \@structparam 1 \n */ \n\n|g;
|
||||
$publicpars .= $comment;
|
||||
|
||||
$publicpars .= " public ".$_;
|
||||
s|/\*.*?\*/||gs ;
|
||||
s/^\s*//s;
|
||||
s/\s*$//s;
|
||||
m|^(\w+\s*(?:\[\s*\]\s*)*)\s*
|
||||
(\w+)\s*
|
||||
((?://.*\n)?)\s*
|
||||
|x or die "Invalid param: $_";
|
||||
# push @types, $1;
|
||||
# push @names, $2;
|
||||
# push @ranges, $3;
|
||||
|
||||
my($type, $name, $range) = ($1, $2, $3);
|
||||
|
||||
$type =~ s/\s+//g;
|
||||
$type =~ /^(\w+)((?:\[\])?)$/ or die "Invalid type '$type'";
|
||||
|
||||
my $base = $1;
|
||||
my $array = ($2 eq "[]");
|
||||
|
||||
$get = $gets{$base} or die "No get for '$base'";
|
||||
|
||||
if($array) {
|
||||
$get =~ s/__TARG__/${name}\l[i]/g;
|
||||
$get =~ s/__SRC__/s/g;
|
||||
$get =~ s/__SRCCELL__/c/g;
|
||||
$get = qq*
|
||||
// count rank
|
||||
int i=-1;
|
||||
for(ZZCell c = n; c!=null; c=c.s("d.1")) i++;
|
||||
// XXX check range
|
||||
$name = new ${base}\l[i];
|
||||
i=0;
|
||||
for(ZZCell c = n.s("d.1");
|
||||
c!=null; c=c.s("d.1")) {
|
||||
s = c.getText();
|
||||
$get;
|
||||
i++;
|
||||
}
|
||||
*;
|
||||
} else {
|
||||
$get =~ s/__TARG__/$name/g;
|
||||
$get =~ s/__SRC__/s/g;
|
||||
$get =~ s/__SRCCELL__/c/g;
|
||||
$get = qq{ZZCell c = n.s("d.1"); s = c.getText(); $get };
|
||||
}
|
||||
|
||||
$curbit ++;
|
||||
$curmask = (1 << $curbit);
|
||||
|
||||
$tests .= qq*
|
||||
if(s.equals("$name")) {
|
||||
mask |= $curmask;
|
||||
try {
|
||||
$get
|
||||
} catch(Exception e) {
|
||||
ZZLogger.exc(e);
|
||||
}
|
||||
} else
|
||||
|
||||
*;
|
||||
}
|
||||
|
||||
$fullmask = (1<<($curbit+1))-1;
|
||||
|
||||
# print "PARAMS: (",(join '||||||',@pars),")\n";
|
||||
|
||||
# limit of 31 variables for now.
|
||||
|
||||
$code = <<FOO;
|
||||
|
||||
$publicpars
|
||||
|
||||
/* AUTOGENERATED! */
|
||||
static final private int fullmask = $fullmask;
|
||||
|
||||
/* AUTOGENERATED! */
|
||||
public String readParams(ZZCell start) {
|
||||
int m = 0;
|
||||
try {
|
||||
if(start != null)
|
||||
m = readParams(start, 0);
|
||||
} catch(Throwable t) {
|
||||
ZZLogger.exc(t);
|
||||
} finally {
|
||||
$doinit
|
||||
}
|
||||
if((m & fullmask) != fullmask) {
|
||||
// not all parameters present - no problem right now.
|
||||
}
|
||||
return "";
|
||||
}
|
||||
|
||||
/* AUTOGENERATED! */
|
||||
private int readParams(ZZCell start, int mask) {
|
||||
ZZCell n = start;
|
||||
while(n != null) {
|
||||
String s = n.getText();
|
||||
// Tests autogenerated from members.
|
||||
$tests
|
||||
{ } // grab that last "else"
|
||||
ZZCell h = n.h("d.3");
|
||||
if(h != null && h != n) {
|
||||
// recurse
|
||||
mask |= readParams(h, mask);
|
||||
}
|
||||
n = n.s("d.2");
|
||||
}
|
||||
return mask;
|
||||
}
|
||||
|
||||
FOO
|
||||
|
||||
#$str =~ s/$structparre/$code/s;
|
||||
$str = $init. $beforestructpars . $code . $afterstructpars;
|
||||
|
||||
open OUT, ">$outfile" or die "No out: '$outfile'";
|
||||
print OUT $str;
|
||||
close OUT;
|
||||
Reference in New Issue
Block a user