# 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))
        );