// begin of stepsetting.pl code file. // begin of unit stepsetting code. final class stepsetting_humanoid_objects_2 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: humanoid_objects(humanoid, false) case 0: m.try_me_else (2); //m.success = m.get_atom (humanoid__0,1); m.get_atom (false__0,2); m.cut_neck (); m.end_head (); break; case 1: m.end_fact (); break; // head: humanoid_objects(_G1610, false) case 2: m.trust_or_fail (); m.allocate (1); //m.success = m.get_y_value (0,1); /* Humanoid */ m.get_atom (false__0,2); m.end_head (); break; case 3: // goal: format('cannot find humanoid object ') m.put_atom (data__1__0,1); m.call (dlplib.format_1); /*6*/ break; case 4: // goal: format('property for ~w ~n', [_G1610]) m.put_atom (data__2__0,1); m.put_list (2); m.set_y_value (0); /* 'Humanoid' */ m.set_nil (); m.call (dlplib.format_2); /*6*/ break; case 5: // goal: format('set it as default value: false') m.put_atom (data__3__0,1); m.call (dlplib.format_1); /*6*/ break; case 6: // goal: format('in the humanoid object property.') m.put_atom (data__4__0,1); m.deallocate (); m.exec (dlplib.format_1); break; case 7: m.end_rule (); break; } // switch return m.success; } // stepsetting:humanoid_objects/2 exec() // stepsetting:humanoid_objects/2 decls. public SymbolDescriptor humanoid__0; public SymbolDescriptor false__0; public SymbolDescriptor data__1__0; public SymbolDescriptor data__2__0; public SymbolDescriptor op__dot__2; public SymbolDescriptor sl_sr__0; public SymbolDescriptor data__3__0; public SymbolDescriptor data__4__0; // end of stepsetting:humanoid_objects/2 decls. public boolean init (DLP m) { humanoid__0 = m.define_symbol ("humanoid".intern(), 0); false__0 = m.define_symbol ("false".intern(), 0); data__1__0 = m.define_symbol ("cannot find humanoid object ".intern(), 0); data__2__0 = m.define_symbol ("property for ~w ~n".intern(), 0); op__dot__2 = m.define_symbol (".".intern(), 2); sl_sr__0 = m.define_symbol ("[]".intern(), 0); data__3__0 = m.define_symbol ("set it as default value: false".intern(), 0); data__4__0 = m.define_symbol ("in the humanoid object property.".intern(), 0); return true; } // stepsetting:humanoid_objects/2 init() } // stepsetting:humanoid_objects/2 class stepsetting extends Code { public static ObjectDescriptor object; public static MethodDescriptor humanoid_objects_2; public boolean init (DLP m) { object = m.define_object ("stepsetting".intern(), 0, 1, 0); humanoid_objects_2 = m.define_method (object, 0, "humanoid_objects".intern(), 2); return true; } // stepsetting init() } // class stepsetting // end of unit stepsetting code. // end of stepsetting.pl code file.