[SCM] applications.git branch, master, updated. b164a434a051d1f267568ffbd511517c26df8956
ontologiae
ontologiae at ordinateur-de-ontologiae.local
Thu Jan 14 19:46:36 UTC 2010
The following commit has been merged in the master branch:
commit b164a434a051d1f267568ffbd511517c26df8956
Author: ontologiae <ontologiae at ordinateur-de-ontologiae.local>
Date: Thu Jan 14 20:46:19 2010 +0100
Java2li.ml expression debug
diff --git a/java2lisaac/Java2Lisaac.ml/2expre.xml b/java2lisaac/Java2Lisaac.ml/2expre.xml
new file mode 100644
index 0000000..976b4de
--- /dev/null
+++ b/java2lisaac/Java2Lisaac.ml/2expre.xml
@@ -0,0 +1,23 @@
+<!-- Generated by Java2XML http://java2xml.dev.java.net/ -->
+<root>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="view_pos_x"/>
+ </lvalue>
+ <paren>
+ <binary-expr op=">>">
+ <paren>
+ <binary-expr op="*">
+ <var-ref name="speed"/>
+ <send message="COS_LOOK">
+ <arguments>
+ <var-ref name="view_ang_y"/>
+ </arguments>
+ </send>
+ </binary-expr>
+ </paren>
+ <var-ref name="FIXP_SHIFT"/>
+ </binary-expr>
+ </paren>
+ </assignment-expr>
+</root>
diff --git a/java2lisaac/Java2Lisaac.ml/ParserJava.ml b/java2lisaac/Java2Lisaac.ml/ParserJava.ml
index f5968f6..7475ddb 100644
--- a/java2lisaac/Java2Lisaac.ml/ParserJava.ml
+++ b/java2lisaac/Java2Lisaac.ml/ParserJava.ml
@@ -1,8 +1,7 @@
-(*#use "topfind";;
+#use "topfind";;
#require "xml-light";;
#require "extlib";;
-*)
-open Xml
+(*open Xml*)
open ExtLib
@@ -150,8 +149,8 @@ let hash_variables = Hashtbl.create 123456;;
let rec to_xmls = function
- | Element ( a , b , c ) -> Elem ( a , b , List.map to_xmls c )
- | PCData _ -> Elem ( "", [], []);;
+ | Xml.Element ( a , b , c ) -> Elem ( a , b , List.map to_xmls c )
+ | Xml.PCData _ -> Elem ( "", [], []);;
let visibility_str_to_type = function
| "public" -> Public
@@ -205,9 +204,9 @@ let get_typ_info = function cpl -> Hashtbl.find hash_variables cpl;;
(* DEF VARIABLES POUR TESTS *)
-let x = Xml.parse_file "Exemples.xml";;
+let x = Xml.parse_file "2expre.xml";;
let x = to_xmls x;;
-let bin_expr = List.nth (children x) 2;;
+let bin_expr = List.nth (children x) 0;;
let typ = Def_typ ("UnType" , false , [] );;
let champ = { name_f="jk" ; type_field=typ ; transient_f=false ; volatile_f= false ; static_f=false ; final_f=false ; visibility_f=Private ; litteral_def_f=LiteralBool(true) };;
@@ -301,7 +300,11 @@ let rec match_expression = function
| Elem("send", [("message", method_name)], target :: arguments :: []) ->
Message (method_name, match_expression
(List.hd (children target)), List.map match_expression (children
- arguments) )
+ arguments) )
+ | Elem("send", [("message", method_name)], arguments :: []) -> (* Pas
+ de receveur *)
+ Message (method_name,This, List.map match_expression (children
+ arguments) )
| Elem("var-ref", infos, fils) -> VarRef (get_typ_info ("class",(key
("name",infos))))
| Elem(a , infos, []) when is_substring (a,"literal") -> LiteralExpre ( recup_info_literal (Elem(a,infos,[])) )
@@ -380,6 +383,7 @@ let rec bin_expre_to_lisaac = function
| Message (nom, receveur, arguments) -> bin_expre_to_lisaac receveur
^"."^ nom ^"("^ (String.concat " " (List.map bin_expre_to_lisaac
arguments)) ^")"
+ | This -> "this"
| LiteralExpre (LiteralNombre a) -> a.value ;;
@@ -400,8 +404,13 @@ let test_hash = ajoute_info ("class","test", typ);; *)
ajoute_info ("class","ch", Def_typ ("ch" , false , [] ));;
ajoute_info ("class","i", Def_typ ("i" , false , [] ));;
ajoute_info ("class","str", Def_typ ("str" , false , [] ));;
+ajoute_info ("class","FIXP_SHIFT", Def_typ ("i" , true , [] ));;
+ajoute_info ("class","view_ang_y", Def_typ ("i" , true , [] ));;
+ajoute_info ("class","speed", Def_typ ("i" , true , [] ));;
+ajoute_info ("class","view_pos_x", Def_typ ("i" , true , [] ));;
+
Hashtbl.find_all hash_variables ("class","ch");;
-let expre = match_expre_binaire bin_expr;;
+let expre = match_expression bin_expr;;
bin_expre_to_lisaac expre;;
diff --git a/java2lisaac/Java2Lisaac.ml/output.xml b/java2lisaac/Java2Lisaac.ml/output.xml
new file mode 100644
index 0000000..9633420
--- /dev/null
+++ b/java2lisaac/Java2Lisaac.ml/output.xml
@@ -0,0 +1,487 @@
+<!-- Generated by Java2XML http://java2xml.dev.java.net/ -->
+<java-source-program>
+ <java-class-file name="JayVoxel.java">
+ <import module="java.awt.*"/>
+ <class name="JayVoxel" visibility="public">
+ <superclass name="Applet"/>
+ <implement interface="Runnable"/>
+ <field name="ANGLE_0" visibility="public" final="true" static="true">
+ <type primitive="true" name="int"/>
+ <literal-number kind="integer" value="0"/>
+ </field>
+ <field name="ANGLE_1" visibility="public" final="true" static="true">
+ <type primitive="true" name="int"/>
+ <literal-number kind="integer" value="5"/>
+ </field>
+ <field name="ANGLE_2" visibility="public" final="true" static="true">
+ <type primitive="true" name="int"/>
+ <literal-number kind="integer" value="10"/>
+ </field>
+ <field name="ANGLE_4" visibility="public" final="true" static="true">
+ <type primitive="true" name="int"/>
+ <literal-number kind="integer" value="20"/>
+ </field>
+ <field name="ANGLE_5" visibility="public" final="true" static="true">
+ <type primitive="true" name="int"/>
+ <literal-number kind="integer" value="25"/>
+ </field>
+ <field name="ANGLE_6" visibility="public" final="true" static="true">
+ <type primitive="true" name="int"/>
+ <literal-number kind="integer" value="30"/>
+ </field>
+ <field name="ANGLE_15" visibility="public" final="true" static="true">
+ <type primitive="true" name="int"/>
+ <literal-number kind="integer" value="80"/>
+ </field>
+ <field name="ANGLE_30" visibility="public" final="true" static="true">
+ <type primitive="true" name="int"/>
+ <literal-number kind="integer" value="160"/>
+ </field>
+ <field name="ANGLE_45" visibility="public" final="true" static="true">
+ <type primitive="true" name="int"/>
+ <literal-number kind="integer" value="240"/>
+ </field>
+ <field name="ANGLE_60" visibility="public" final="true" static="true">
+ <type primitive="true" name="int"/>
+ <literal-number kind="integer" value="320"/>
+ </field>
+ <field name="ANGLE_90" visibility="public" final="true" static="true">
+ <type primitive="true" name="int"/>
+ <literal-number kind="integer" value="480"/>
+ </field>
+ <field name="ANGLE_135" visibility="public" final="true" static="true">
+ <type primitive="true" name="int"/>
+ <literal-number kind="integer" value="720"/>
+ </field>
+ <field name="ANGLE_180" visibility="public" final="true" static="true">
+ <type primitive="true" name="int"/>
+ <literal-number kind="integer" value="960"/>
+ </field>
+ <field name="ANGLE_225" visibility="public" final="true" static="true">
+ <type primitive="true" name="int"/>
+ <literal-number kind="integer" value="1200"/>
+ </field>
+ <field name="ANGLE_270" visibility="public" final="true" static="true">
+ <type primitive="true" name="int"/>
+ <literal-number kind="integer" value="1440"/>
+ </field>
+ <field name="ANGLE_315" visibility="public" final="true" static="true">
+ <type primitive="true" name="int"/>
+ <literal-number kind="integer" value="1680"/>
+ </field>
+ <field name="ANGLE_360" visibility="public" final="true" static="true">
+ <type primitive="true" name="int"/>
+ <literal-number kind="integer" value="1920"/>
+ </field>
+ <field name="VIEWPLANE_DISTANCE" visibility="public" final="true">
+ <type primitive="true" name="int"/>
+ <paren>
+ <binary-expr op="/">
+ <var-ref name="SCREEN_WIDTH"/>
+ <literal-number kind="integer" value="64"/>
+ </binary-expr>
+ </paren>
+ </field>
+ <field name="MAX_STEPS" visibility="public" final="true">
+ <type primitive="true" name="int"/>
+ <literal-number kind="integer" value="200"/>
+ </field>
+ <field name="cos_look" visibility="public">
+ <type primitive="true" name="int" dimensions="1"/>
+ </field>
+ <field name="sin_look" visibility="public">
+ <type primitive="true" name="int" dimensions="1"/>
+ </field>
+ <field name="tracker" visibility="protected">
+ <type name="MediaTracker"/>
+ </field>
+ <field name="t" visibility="protected">
+ <type name="Thread"/>
+ </field>
+ <field name="mapWidth" visibility="protected" static="true">
+ <type primitive="true" name="int"/>
+ </field>
+ <field name="mapHeight" visibility="protected" static="true">
+ <type primitive="true" name="int"/>
+ </field>
+ <field name="heightMap" visibility="protected" static="true">
+ <type name="Image"/>
+ </field>
+ <field name="colorMap" visibility="protected" static="true">
+ <type name="Image"/>
+ </field>
+ <field name="skyTexture" visibility="protected" static="true">
+ <type name="Image"/>
+ </field>
+ <field name="skyColor" visibility="protected">
+ <type primitive="true" name="int"/>
+ <literal-number kind="integer" value="0xff9f0050"/>
+ </field>
+ <method name="start" visibility="public">
+ <type name="void" primitive="true"/>
+ <formal-arguments/>
+ <block>
+ <send message="showStatus">
+ <arguments>
+ <literal-string value=""Performing some pre-calculations ...""/>
+ </arguments>
+ </send>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="mapWidth"/>
+ </lvalue>
+ <send message="getWidth">
+ <target>
+ <var-ref name="heightMap"/>
+ </target>
+ <arguments>
+ <this/>
+ </arguments>
+ </send>
+ </assignment-expr>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="mapHeight"/>
+ </lvalue>
+ <send message="getHeight">
+ <target>
+ <var-ref name="heightMap"/>
+ </target>
+ <arguments>
+ <this/>
+ </arguments>
+ </send>
+ </assignment-expr>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="heightMapRaw"/>
+ </lvalue>
+ <new-array dimensions="1">
+ <type primitive="true" name="int"/>
+ <dim-expr>
+ <binary-expr op="*">
+ <var-ref name="mapWidth"/>
+ <var-ref name="mapHeight"/>
+ </binary-expr>
+ </dim-expr>
+ </new-array>
+ </assignment-expr>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="colorMapRaw"/>
+ </lvalue>
+ <new-array dimensions="1">
+ <type primitive="true" name="int"/>
+ <dim-expr>
+ <binary-expr op="*">
+ <var-ref name="mapWidth"/>
+ <var-ref name="mapHeight"/>
+ </binary-expr>
+ </dim-expr>
+ </new-array>
+ </assignment-expr>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="skyTextureWidth"/>
+ </lvalue>
+ <literal-number kind="integer" value="640"/>
+ </assignment-expr>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="skyTextureHeight"/>
+ </lvalue>
+ <literal-number kind="integer" value="99"/>
+ </assignment-expr>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="skyTextureRaw"/>
+ </lvalue>
+ <new-array dimensions="1">
+ <type primitive="true" name="int"/>
+ <dim-expr>
+ <binary-expr op="*">
+ <var-ref name="skyTextureWidth"/>
+ <var-ref name="skyTextureHeight"/>
+ </binary-expr>
+ </dim-expr>
+ </new-array>
+ </assignment-expr>
+ <local-variable name="grabber">
+ <type name="PixelGrabber"/>
+ </local-variable>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="grabber"/>
+ </lvalue>
+ <new>
+ <type name="PixelGrabber"/>
+ <arguments>
+ <var-ref name="heightMap"/>
+ <literal-number kind="integer" value="0"/>
+ <literal-number kind="integer" value="0"/>
+ <var-ref name="mapWidth"/>
+ <var-ref name="mapHeight"/>
+ <var-ref name="heightMapRaw"/>
+ <literal-number kind="integer" value="0"/>
+ <var-ref name="mapWidth"/>
+ </arguments>
+ </new>
+ </assignment-expr>
+ <try>
+ <block>
+ <send message="grabPixels">
+ <target>
+ <var-ref name="grabber"/>
+ </target>
+ <arguments/>
+ </send>
+ </block>
+ <catch>
+ <formal-argument name="e">
+ <type name="InterruptedException"/>
+ </formal-argument>
+ <block>
+ <send message="println">
+ <target>
+ <field-access field="out">
+ <var-ref name="System"/>
+ </field-access>
+ </target>
+ <arguments>
+ <var-ref name="e"/>
+ </arguments>
+ </send>
+ </block>
+ </catch>
+ </try>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="grabber"/>
+ </lvalue>
+ <new>
+ <type name="PixelGrabber"/>
+ <arguments>
+ <var-ref name="colorMap"/>
+ <literal-number kind="integer" value="0"/>
+ <literal-number kind="integer" value="0"/>
+ <var-ref name="mapWidth"/>
+ <var-ref name="mapHeight"/>
+ <var-ref name="colorMapRaw"/>
+ <literal-number kind="integer" value="0"/>
+ <var-ref name="mapWidth"/>
+ </arguments>
+ </new>
+ </assignment-expr>
+ <try>
+ <block>
+ <send message="grabPixels">
+ <target>
+ <var-ref name="grabber"/>
+ </target>
+ <arguments/>
+ </send>
+ </block>
+ <catch>
+ <formal-argument name="e">
+ <type name="InterruptedException"/>
+ </formal-argument>
+ <block>
+ <send message="println">
+ <target>
+ <field-access field="out">
+ <var-ref name="System"/>
+ </field-access>
+ </target>
+ <arguments>
+ <var-ref name="e"/>
+ </arguments>
+ </send>
+ </block>
+ </catch>
+ </try>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="grabber"/>
+ </lvalue>
+ <new>
+ <type name="PixelGrabber"/>
+ <arguments>
+ <var-ref name="skyTexture"/>
+ <literal-number kind="integer" value="0"/>
+ <literal-number kind="integer" value="0"/>
+ <var-ref name="skyTextureWidth"/>
+ <var-ref name="skyTextureHeight"/>
+ <var-ref name="skyTextureRaw"/>
+ <literal-number kind="integer" value="0"/>
+ <var-ref name="skyTextureWidth"/>
+ </arguments>
+ </new>
+ </assignment-expr>
+ <try>
+ <block>
+ <send message="grabPixels">
+ <target>
+ <var-ref name="grabber"/>
+ </target>
+ <arguments/>
+ </send>
+ </block>
+ <catch>
+ <formal-argument name="e">
+ <type name="InterruptedException"/>
+ </formal-argument>
+ <block>
+ <send message="println">
+ <target>
+ <field-access field="out">
+ <var-ref name="System"/>
+ </field-access>
+ </target>
+ <arguments>
+ <var-ref name="e"/>
+ </arguments>
+ </send>
+ </block>
+ </catch>
+ </try>
+ <loop kind="for">
+ <init>
+ <local-variable name="i">
+ <type primitive="true" name="int"/>
+ <literal-number kind="integer" value="0"/>
+ </local-variable>
+ </init>
+ <test>
+ <binary-expr op="<">
+ <var-ref name="i"/>
+ <binary-expr op="*">
+ <literal-number kind="integer" value="512"/>
+ <literal-number kind="integer" value="512"/>
+ </binary-expr>
+ </binary-expr>
+ </test>
+ <update>
+ <unary-expr op="++" post="true">
+ <var-ref name="i"/>
+ </unary-expr>
+ </update>
+ <block>
+ <assignment-expr op="=">
+ <lvalue>
+ <array-ref>
+ <base>
+ <var-ref name="heightMapRaw"/>
+ </base>
+ <offset>
+ <var-ref name="i"/>
+ </offset>
+ </array-ref>
+ </lvalue>
+ <binary-expr op="&">
+ <array-ref>
+ <base>
+ <var-ref name="heightMapRaw"/>
+ </base>
+ <offset>
+ <var-ref name="i"/>
+ </offset>
+ </array-ref>
+ <literal-number kind="integer" value="0xff"/>
+ </binary-expr>
+ </assignment-expr>
+ </block>
+ </loop>
+ <send message="showStatus">
+ <arguments>
+ <literal-string value=""""/>
+ </arguments>
+ </send>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="t"/>
+ </lvalue>
+ <new>
+ <type name="Thread"/>
+ <arguments>
+ <this/>
+ </arguments>
+ </new>
+ </assignment-expr>
+ <send message="start">
+ <target>
+ <var-ref name="t"/>
+ </target>
+ <arguments/>
+ </send>
+ </block>
+ </method>
+ <method name="ASCIIKeyDown" visibility="public">
+ <type primitive="true" name="boolean"/>
+ <formal-arguments>
+ <formal-argument name="evt">
+ <type name="Event"/>
+ </formal-argument>
+ <formal-argument name="key">
+ <type primitive="true" name="int"/>
+ </formal-argument>
+ </formal-arguments>
+ <block>
+ <switch>
+ <var-ref name="key"/>
+ <switch-block>
+ <case>
+ <literal-char value="'x'"/>
+ </case>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="strafe"/>
+ </lvalue>
+ <literal-boolean value="true"/>
+ </assignment-expr>
+ <break/>
+ </switch-block>
+ <switch-block>
+ <case>
+ <literal-char value="'a'"/>
+ </case>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="ascend"/>
+ </lvalue>
+ <literal-boolean value="true"/>
+ </assignment-expr>
+ <break/>
+ </switch-block>
+ <switch-block>
+ <case>
+ <literal-char value="'y'"/>
+ </case>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="descend"/>
+ </lvalue>
+ <literal-boolean value="true"/>
+ </assignment-expr>
+ <break/>
+ </switch-block>
+ <switch-block>
+ <case>
+ <literal-char value="'z'"/>
+ </case>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="descend"/>
+ </lvalue>
+ <literal-boolean value="true"/>
+ </assignment-expr>
+ <break/>
+ </switch-block>
+ </switch>
+ <return>
+ <literal-boolean value="true"/>
+ </return>
+ </block>
+ </method>
+ </class>
+ </java-class-file>
+</java-source-program>
diff --git a/java2lisaac/Java2Lisaac.ml/output2.xml b/java2lisaac/Java2Lisaac.ml/output2.xml
new file mode 100644
index 0000000..9fcb808
--- /dev/null
+++ b/java2lisaac/Java2Lisaac.ml/output2.xml
@@ -0,0 +1,506 @@
+<!-- Generated by Java2XML http://java2xml.dev.java.net/ -->
+<java-source-program>
+ <java-class-file name="JayVoxel.java">
+ <import module="java.awt.*" />
+ <class name="JayVoxel" visibility="public">
+ <superclass name="Applet" />
+ <implement interface="Runnable" />
+ <field name="ANGLE_0" visibility="public" final="true"
+ static="true">
+ <type primitive="true" name="int" />
+ <literal-number kind="interger" value="0" />
+ </field>
+ <field name="ANGLE_1" visibility="public" final="true"
+ static="true">
+ <type primitive="true" name="int" />
+ <literal-number kind="interger" value="5" />
+ </field>
+ <field name="ANGLE_2" visibility="public" final="true"
+ static="true">
+ <type primitive="true" name="int" />
+ <literal-number kind="interger" value="10" />
+ </field>
+ <field name="ANGLE_4" visibility="public" final="true"
+ static="true">
+ <type primitive="true" name="int" />
+ <literal-number kind="interger" value="20" />
+ </field>
+ <field name="ANGLE_5" visibility="public" final="true"
+ static="true">
+ <type primitive="true" name="int" />
+ <literal-number kind="interger" value="25" />
+ </field>
+ <field name="ANGLE_6" visibility="public" final="true"
+ static="true">
+ <type primitive="true" name="int" />
+ <literal-number kind="interger" value="30" />
+ </field>
+ <field name="ANGLE_15" visibility="public" final="true"
+ static="true">
+ <type primitive="true" name="int" />
+ <literal-number kind="interger" value="80" />
+ </field>
+ <field name="ANGLE_30" visibility="public" final="true"
+ static="true">
+ <type primitive="true" name="int" />
+ <literal-number kind="interger" value="160" />
+ </field>
+ <field name="ANGLE_45" visibility="public" final="true"
+ static="true">
+ <type primitive="true" name="int" />
+ <literal-number kind="interger" value="240" />
+ </field>
+ <field name="ANGLE_60" visibility="public" final="true"
+ static="true">
+ <type primitive="true" name="int" />
+ <literal-number kind="interger" value="320" />
+ </field>
+ <field name="ANGLE_90" visibility="public" final="true"
+ static="true">
+ <type primitive="true" name="int" />
+ <literal-number kind="interger" value="480" />
+ </field>
+ <field name="ANGLE_135" visibility="public" final="true"
+ static="true">
+ <type primitive="true" name="int" />
+ <literal-number kind="interger" value="720" />
+ </field>
+ <field name="ANGLE_180" visibility="public" final="true"
+ static="true">
+ <type primitive="true" name="int" />
+ <literal-number kind="interger" value="960" />
+ </field>
+ <field name="ANGLE_225" visibility="public" final="true"
+ static="true">
+ <type primitive="true" name="int" />
+ <literal-number kind="interger" value="1200" />
+ </field>
+ <field name="ANGLE_270" visibility="public" final="true"
+ static="true">
+ <type primitive="true" name="int" />
+ <literal-number kind="interger" value="1440" />
+ </field>
+ <field name="ANGLE_315" visibility="public" final="true"
+ static="true">
+ <type primitive="true" name="int" />
+ <literal-number kind="interger" value="1680" />
+ </field>
+ <field name="ANGLE_360" visibility="public" final="true"
+ static="true">
+ <type primitive="true" name="int" />
+ <literal-number kind="interger" value="1920" />
+ </field>
+ <field name="VIEWPLANE_DISTANCE" visibility="public"
+ final="true">
+ <type primitive="true" name="int" />
+ <paren>
+ <binary-expr op="/">
+ <var-ref name="SCREEN_WIDTH" />
+ <literal-number kind="interger" value="64" />
+ </binary-expr>
+ </paren>
+ </field>
+ <field name="MAX_STEPS" visibility="public" final="true">
+ <type primitive="true" name="int" />
+ <literal-number kind="interger" value="200" />
+ </field>
+ <field name="cos_look" visibility="public">
+ <type primitive="true" name="int" dimensions="1" />
+ </field>
+ <field name="sin_look" visibility="public">
+ <type primitive="true" name="int" dimensions="1" />
+ </field>
+ <field name="tracker" visibility="protected">
+ <type name="MediaTracker" />
+ </field>
+ <field name="t" visibility="protected">
+ <type name="Thread" />
+ </field>
+ <field name="mapWidth" visibility="protected" static="true">
+ <type primitive="true" name="int" />
+ </field>
+ <field name="mapHeight" visibility="protected" static="true">
+ <type primitive="true" name="int" />
+ </field>
+ <field name="heightMap" visibility="protected" static="true">
+ <type name="Image" />
+ </field>
+ <field name="colorMap" visibility="protected" static="true">
+ <type name="Image" />
+ </field>
+ <field name="skyTexture" visibility="protected"
+ static="true">
+ <type name="Image" />
+ </field>
+ <field name="skyColor" visibility="protected">
+ <type primitive="true" name="int" />
+ <literal-number kind="interger" value="0xff9f0050" />
+ </field>
+ <method name="start" visibility="public">
+ <type name="void" primitive="true" />
+ <formal-arguments />
+ <block>
+ <send message="showStatus">
+ <arguments>
+ <literal-string value=""Performing some pre-calculations ..."" />
+ </arguments>
+ </send>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="mapWidth" />
+ </lvalue>
+ <send message="getWidth">
+ <target>
+ <var-ref name="heightMap" />
+ </target>
+ <arguments>
+ <this />
+ </arguments>
+ </send>
+ </assignment-expr>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="mapHeight" />
+ </lvalue>
+ <send message="getHeight">
+ <target>
+ <var-ref name="heightMap" />
+ </target>
+ <arguments>
+ <this />
+ </arguments>
+ </send>
+ </assignment-expr>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="heightMapRaw" />
+ </lvalue>
+ <new-array dimensions="1">
+ <type primitive="true" name="int" />
+ <dim-expr>
+ <binary-expr op="*">
+ <var-ref name="mapWidth" />
+ <var-ref name="mapHeight" />
+ </binary-expr>
+ </dim-expr>
+ </new-array>
+ </assignment-expr>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="colorMapRaw" />
+ </lvalue>
+ <new-array dimensions="1">
+ <type primitive="true" name="int" />
+ <dim-expr>
+ <binary-expr op="*">
+ <var-ref name="mapWidth" />
+ <var-ref name="mapHeight" />
+ </binary-expr>
+ </dim-expr>
+ </new-array>
+ </assignment-expr>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="skyTextureWidth" />
+ </lvalue>
+ <literal-number kind="interger" value="640" />
+ </assignment-expr>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="skyTextureHeight" />
+ </lvalue>
+ <literal-number kind="interger" value="99" />
+ </assignment-expr>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="skyTextureRaw" />
+ </lvalue>
+ <new-array dimensions="1">
+ <type primitive="true" name="int" />
+ <dim-expr>
+ <binary-expr op="*">
+ <var-ref name="skyTextureWidth" />
+ <var-ref name="skyTextureHeight" />
+ </binary-expr>
+ </dim-expr>
+ </new-array>
+ </assignment-expr>
+ <local-variable name="grabber">
+ <type name="PixelGrabber" />
+ </local-variable>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="grabber" />
+ </lvalue>
+ <new>
+ <type name="PixelGrabber" />
+ <arguments>
+ <var-ref name="heightMap" />
+ <literal-number kind="interger" value="0" />
+ <literal-number kind="interger" value="0" />
+ <var-ref name="mapWidth" />
+ <var-ref name="mapHeight" />
+ <var-ref name="heightMapRaw" />
+ <literal-number kind="interger" value="0" />
+ <var-ref name="mapWidth" />
+ </arguments>
+ </new>
+ </assignment-expr>
+ <try>
+ <block>
+ <send message="grabPixels">
+ <target>
+ <var-ref name="grabber" />
+ </target>
+ <arguments />
+ </send>
+ </block>
+ <catch>
+ <formal-argument name="e">
+ <type name="InterruptedException" />
+ </formal-argument>
+ <block>
+ <send message="println">
+ <target>
+ <field-access field="out">
+ <var-ref name="System" />
+ </field-access>
+ </target>
+ <arguments>
+ <var-ref name="e" />
+ </arguments>
+ </send>
+ </block>
+ </catch>
+ </try>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="grabber" />
+ </lvalue>
+ <new>
+ <type name="PixelGrabber" />
+ <arguments>
+ <var-ref name="colorMap" />
+ <literal-number kind="interger" value="0" />
+ <literal-number kind="interger" value="0" />
+ <var-ref name="mapWidth" />
+ <var-ref name="mapHeight" />
+ <var-ref name="colorMapRaw" />
+ <literal-number kind="interger" value="0" />
+ <var-ref name="mapWidth" />
+ </arguments>
+ </new>
+ </assignment-expr>
+ <try>
+ <block>
+ <send message="grabPixels">
+ <target>
+ <var-ref name="grabber" />
+ </target>
+ <arguments />
+ </send>
+ </block>
+ <catch>
+ <formal-argument name="e">
+ <type name="InterruptedException" />
+ </formal-argument>
+ <block>
+ <send message="println">
+ <target>
+ <field-access field="out">
+ <var-ref name="System" />
+ </field-access>
+ </target>
+ <arguments>
+ <var-ref name="e" />
+ </arguments>
+ </send>
+ </block>
+ </catch>
+ </try>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="grabber" />
+ </lvalue>
+ <new>
+ <type name="PixelGrabber" />
+ <arguments>
+ <var-ref name="skyTexture" />
+ <literal-number kind="interger" value="0" />
+ <literal-number kind="interger" value="0" />
+ <var-ref name="skyTextureWidth" />
+ <var-ref name="skyTextureHeight" />
+ <var-ref name="skyTextureRaw" />
+ <literal-number kind="interger" value="0" />
+ <var-ref name="skyTextureWidth" />
+ </arguments>
+ </new>
+ </assignment-expr>
+ <try>
+ <block>
+ <send message="grabPixels">
+ <target>
+ <var-ref name="grabber" />
+ </target>
+ <arguments />
+ </send>
+ </block>
+ <catch>
+ <formal-argument name="e">
+ <type name="InterruptedException" />
+ </formal-argument>
+ <block>
+ <send message="println">
+ <target>
+ <field-access field="out">
+ <var-ref name="System" />
+ </field-access>
+ </target>
+ <arguments>
+ <var-ref name="e" />
+ </arguments>
+ </send>
+ </block>
+ </catch>
+ </try>
+ <loop kind="for">
+ <init>
+ <local-variable name="i">
+ <type primitive="true" name="int" />
+ <literal-number kind="interger" value="0" />
+ </local-variable>
+ </init>
+ <test>
+ <binary-expr op="EtCommlt;">
+ <var-ref name="i" />
+ <binary-expr op="*">
+ <literal-number kind="interger" value="512" />
+ <literal-number kind="interger" value="512" />
+ </binary-expr>
+ </binary-expr>
+ </test>
+ <update>
+ <unary-expr op="++" post="true">
+ <var-ref name="i" />
+ </unary-expr>
+ </update>
+ <block>
+ <assignment-expr op="=">
+ <lvalue>
+ <array-ref>
+ <base>
+ <var-ref name="heightMapRaw" />
+ </base>
+ <offset>
+ <var-ref name="i" />
+ </offset>
+ </array-ref>
+ </lvalue>
+ <binary-expr op="EtComm">
+ <array-ref>
+ <base>
+ <var-ref name="heightMapRaw" />
+ </base>
+ <offset>
+ <var-ref name="i" />
+ </offset>
+ </array-ref>
+ <literal-number kind="interger" value="0xff" />
+ </binary-expr>
+ </assignment-expr>
+ </block>
+ </loop>
+ <send message="showStatus">
+ <arguments>
+ <literal-string value="""" />
+ </arguments>
+ </send>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="t" />
+ </lvalue>
+ <new>
+ <type name="Thread" />
+ <arguments>
+ <this />
+ </arguments>
+ </new>
+ </assignment-expr>
+ <send message="start">
+ <target>
+ <var-ref name="t" />
+ </target>
+ <arguments />
+ </send>
+ </block>
+ </method>
+ <method name="ASCIIKeyDown" visibility="public">
+ <type primitive="true" name="boolean" />
+ <formal-arguments>
+ <formal-argument name="evt">
+ <type name="Event" />
+ </formal-argument>
+ <formal-argument name="key">
+ <type primitive="true" name="int" />
+ </formal-argument>
+ </formal-arguments>
+ <block>
+ <switch>
+ <var-ref name="key" />
+ <switch-block>
+ <case>
+ <literal-char value="'x'" />
+ </case>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="strafe" />
+ </lvalue>
+ <literal-boolean value="true" />
+ </assignment-expr>
+ <break />
+ </switch-block>
+ <switch-block>
+ <case>
+ <literal-char value="'a'" />
+ </case>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="ascend" />
+ </lvalue>
+ <literal-boolean value="true" />
+ </assignment-expr>
+ <break />
+ </switch-block>
+ <switch-block>
+ <case>
+ <literal-char value="'y'" />
+ </case>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="descend" />
+ </lvalue>
+ <literal-boolean value="true" />
+ </assignment-expr>
+ <break />
+ </switch-block>
+ <switch-block>
+ <case>
+ <literal-char value="'z'" />
+ </case>
+ <assignment-expr op="=">
+ <lvalue>
+ <var-ref name="descend" />
+ </lvalue>
+ <literal-boolean value="true" />
+ </assignment-expr>
+ <break />
+ </switch-block>
+ </switch>
+ <return>
+ <literal-boolean value="true" />
+ </return>
+ </block>
+ </method>
+ </class>
+ </java-class-file>
+</java-source-program>
diff --git a/java2lisaac/Java2Lisaac.ml/xml-light-2.2+findlib.tar.gz b/java2lisaac/Java2Lisaac.ml/xml-light-2.2+findlib.tar.gz
new file mode 100644
index 0000000..c573c22
Binary files /dev/null and b/java2lisaac/Java2Lisaac.ml/xml-light-2.2+findlib.tar.gz differ
--
applications.git
More information about the Lisaac-commits
mailing list