# JAVA class translation 'COS_JNamed'
# Thu Jun 30 17:00:19 EDT 2005
# Produced by Fritzifier, based on JasminVisitor
# Using BCEL library to read Java bytecode
# Here is the original code:
#
# public class COS_JNamed {
# private String name = "-";
# private COS_JWorld world = null;
#
# void setName(String name) {
# this.name = name;
# }
#
# String getName() {
# return name;
# }
#
# void setWorld(COS_JWorld world) {
# this.world = world;
# }
#
# COS_JWorld getWorld() {
# return world;
# }
#
# void update() {
# }
#
# void postUpdate() {
# }
# }
[hear] (class COS_JNamed ()
(field super-ref (make-cell 0))
(method new (set! (super-ref) ((java lang Object) / this)))
(method super (? x / (get! / super-ref) / x))
(method unknown (? x / self super / x))
(field name (cell new 0))
(field world (cell new 0))
(method <init>-V
(lambda () /
let ((vars / cell new / make-hash / vector
(pair 0 (self)))
(stack / cell new / vector)) /
state-machine (vars) (stack) / ? jvm / ? x / cond
((= (x) 0) (jvm aload 0))
((= (x) 1) (jvm invokespecial <init>-V 0 0))
((= (x) 2) (jvm aload 0))
((= (x) 3) (jvm ldc (String new int-init "-")))
((= (x) 4) (jvm putfield name (java lang String)))
((= (x) 5) (jvm aload 0))
((= (x) 6) (jvm aconst_null))
((= (x) 7) (jvm putfield world (COS_JWorld)))
((= (x) 8) (jvm return))
(jvm return))
)
(method <init> (self <init>-V))
(method setName-String-V
(lambda (arg0) /
let ((vars / cell new / make-hash / vector
(pair 0 (self)) (pair 1 (arg0)))
(stack / cell new / vector)) /
state-machine (vars) (stack) / ? jvm / ? x / cond
((= (x) 0) (jvm aload 0))
((= (x) 1) (jvm aload 1))
((= (x) 2) (jvm putfield name (java lang String)))
((= (x) 3) (jvm return))
(jvm return))
)
(method setName (self setName-String-V))
(method getName-String
(lambda () /
let ((vars / cell new / make-hash / vector
(pair 0 (self)))
(stack / cell new / vector)) /
state-machine (vars) (stack) / ? jvm / ? x / cond
((= (x) 0) (jvm aload 0))
((= (x) 1) (jvm getfield name (java lang String)))
((= (x) 2) (jvm areturn))
(jvm return))
)
(method getName (self getName-String))
(method setWorld-COS_JWorld-V
(lambda (arg0) /
let ((vars / cell new / make-hash / vector
(pair 0 (self)) (pair 1 (arg0)))
(stack / cell new / vector)) /
state-machine (vars) (stack) / ? jvm / ? x / cond
((= (x) 0) (jvm aload 0))
((= (x) 1) (jvm aload 1))
((= (x) 2) (jvm putfield world (COS_JWorld)))
((= (x) 3) (jvm return))
(jvm return))
)
(method setWorld (self setWorld-COS_JWorld-V))
(method getWorld-COS_JWorld
(lambda () /
let ((vars / cell new / make-hash / vector
(pair 0 (self)))
(stack / cell new / vector)) /
state-machine (vars) (stack) / ? jvm / ? x / cond
((= (x) 0) (jvm aload 0))
((= (x) 1) (jvm getfield world (COS_JWorld)))
((= (x) 2) (jvm areturn))
(jvm return))
)
(method getWorld (self getWorld-COS_JWorld))
(method update-V
(lambda () /
let ((vars / cell new / make-hash / vector
(pair 0 (self)))
(stack / cell new / vector)) /
state-machine (vars) (stack) / ? jvm / ? x / cond
((= (x) 0) (jvm return))
(jvm return))
)
(method update (self update-V))
(method postUpdate-V
(lambda () /
let ((vars / cell new / make-hash / vector
(pair 0 (self)))
(stack / cell new / vector)) /
state-machine (vars) (stack) / ? jvm / ? x / cond
((= (x) 0) (jvm return))
(jvm return))
)
(method postUpdate (self postUpdate-V))
);