// begin of avatar.pl code file.

// begin of unit avatar code.

final class avatar_main_0 extends Code {

public boolean exec (DLP m) {

	switch (m.PSreg) {

		// head: main

	case 0:
		m.allocate (1);
		//m.success =
		m.end_head ();
		break;

	case 1:

		// goal: format('Loading avatar from ~w~n', [url])

		m.put_atom (data__1__0,1);
		m.put_list (2);
		m.set_z_value (0);	/* url */
		m.set_nil ();
		m.call (dlplib.format_2); /*6*/
		break;

	case 2:

		// goal: loadURL(url)

		m.put_z_value (0,1);	/* url */
		m.call (1) /*2*/;	/* loadURL_1 */
		break;

	case 3:

		// goal: sleep(2000)

		m.put_int (2000,1);
		m.call (dlplib.sleep_1); /*6*/
		break;

	case 4:

		// goal: new(belief, _G443)

		m.put_atom (belief__0,1);
		m.put_y_value (0,2);	/* 'BeliefBase' */
		m.call (dlplib.new_2); /*6*/
		break;

	case 5:

		// goal: <-(this, _G443, new_attr(belief))

		m.put_this (1);
		m.put_y_value (0,2);	/* 'BeliefBase' */
		m.put_struct (new_attr__1,3);
		m.set_atom (belief__0);
		m.call (dlplib.op_call_3); /*6*/
		break;

	case 6:

		// goal: <-(this, _G443, new_attr(box))

		m.put_this (1);
		m.put_y_value (0,2);	/* 'BeliefBase' */
		m.put_struct (new_attr__1,3);
		m.set_atom (box__0);
		m.call (dlplib.op_call_3); /*6*/
		break;

	case 7:

		// goal: <-(this, _G443, add_attr(box, position(5, 0.5, 0)))

		m.put_struct (position__3,9);
		m.set_int (5);
		m.set_float (0.5f);
		m.set_int (0);
		m.put_this (1);
		m.put_y_value (0,2);	/* 'BeliefBase' */
		m.put_struct (add_attr__2,3);
		m.set_atom (box__0);
		m.set_x_value (9);	/* 'Xtmp' */
		m.call (dlplib.op_call_3); /*6*/
		break;

	case 8:

		// goal: <-(this, _G443, new_attr(cylinder))

		m.put_this (1);
		m.put_y_value (0,2);	/* 'BeliefBase' */
		m.put_struct (new_attr__1,3);
		m.set_atom (cylinder__0);
		m.call (dlplib.op_call_3); /*6*/
		break;

	case 9:

		// goal: <-(this, _G443, add_attr(cylinder, position(1, 0.5, -4)))

		m.put_struct (position__3,10);
		m.set_int (1);
		m.set_float (0.5f);
		m.set_int (-4);
		m.put_this (1);
		m.put_y_value (0,2);	/* 'BeliefBase' */
		m.put_struct (add_attr__2,3);
		m.set_atom (cylinder__0);
		m.set_x_value (10);	/* 'Xtmp' */
		m.call (dlplib.op_call_3); /*6*/
		break;

	case 10:

		// goal: <-(this, _G443, new_attr(sphere))

		m.put_this (1);
		m.put_y_value (0,2);	/* 'BeliefBase' */
		m.put_struct (new_attr__1,3);
		m.set_atom (sphere__0);
		m.call (dlplib.op_call_3); /*6*/
		break;

	case 11:

		// goal: <-(this, _G443, add_attr(sphere, position(-4, 0.5, 4)))

		m.put_struct (position__3,11);
		m.set_int (-4);
		m.set_float (0.5f);
		m.set_int (4);
		m.put_this (1);
		m.put_y_value (0,2);	/* 'BeliefBase' */
		m.put_struct (add_attr__2,3);
		m.set_atom (sphere__0);
		m.set_x_value (11);	/* 'Xtmp' */
		m.call (dlplib.op_call_3); /*6*/
		break;

	case 12:

		// goal: new(listener(script, queue, _G443, cap_queue), _G532)

		m.put_struct (listener__4,1);
		m.set_atom (script__0);
		m.set_atom (queue__0);
		m.set_y_value (0);	/* 'BeliefBase' */
		m.set_atom (cap_queue__0);
		m.put_v_varia (2);	/* 'Unknown' */
		m.call (dlplib.new_2); /*6*/
		break;

	case 13:

		// goal: new(perception(name, _G443), _G543)

		m.put_struct (perception__2,1);
		m.set_z_value (1);	/* name */
		m.set_y_value (0);	/* 'BeliefBase' */
		m.put_v_varia (2);	/* 'Unknown' */
		m.call (dlplib.new_2); /*6*/
		break;

	case 14:

		// goal: new(capabilities(cap_queue, action_queue, _G443), _G552)

		m.put_struct (capabilities__3,1);
		m.set_atom (cap_queue__0);
		m.set_atom (action_queue__0);
		m.set_y_value (0);	/* 'BeliefBase' */
		m.put_v_varia (2);	/* 'Unknown' */
		m.call (dlplib.new_2); /*6*/
		break;

	case 15:

		// goal: new(action(name, action_queue), _G559)

		m.put_struct (action__2,1);
		m.set_z_value (1);	/* name */
		m.set_atom (action_queue__0);
		m.put_v_varia (2);	/* 'Unknown' */
		m.deallocate ();
		m.exec (dlplib.new_2);
		break;

	case 16:
		m.end_rule ();
		break;

	} // switch
	return m.success;
} // avatar:main/0 exec()

// avatar:main/0 decls.
 public SymbolDescriptor data__1__0;
 public SymbolDescriptor op__dot__2;
 public SymbolDescriptor sl_sr__0;
 public SymbolDescriptor belief__0;
 public SymbolDescriptor this__0;
 public SymbolDescriptor new_attr__1;
 public SymbolDescriptor box__0;
 public SymbolDescriptor add_attr__2;
 public SymbolDescriptor position__3;
 public SymbolDescriptor cylinder__0;
 public SymbolDescriptor sphere__0;
 public SymbolDescriptor listener__4;
 public SymbolDescriptor script__0;
 public SymbolDescriptor queue__0;
 public SymbolDescriptor cap_queue__0;
 public SymbolDescriptor perception__2;
 public SymbolDescriptor capabilities__3;
 public SymbolDescriptor action_queue__0;
 public SymbolDescriptor action__2;
// end of avatar:main/0 decls.

public boolean init (DLP m) {
 data__1__0 = m.define_symbol ("Loading avatar from ~w~n".intern(), 0);
 op__dot__2 = m.define_symbol (".".intern(), 2);
 sl_sr__0 = m.define_symbol ("[]".intern(), 0);
 belief__0 = m.define_symbol ("belief".intern(), 0);
 this__0 = m.define_symbol ("this".intern(), 0);
 new_attr__1 = m.define_symbol ("new_attr".intern(), 1);
 box__0 = m.define_symbol ("box".intern(), 0);
 add_attr__2 = m.define_symbol ("add_attr".intern(), 2);
 position__3 = m.define_symbol ("position".intern(), 3);
 cylinder__0 = m.define_symbol ("cylinder".intern(), 0);
 sphere__0 = m.define_symbol ("sphere".intern(), 0);
 listener__4 = m.define_symbol ("listener".intern(), 4);
 script__0 = m.define_symbol ("script".intern(), 0);
 queue__0 = m.define_symbol ("queue".intern(), 0);
 cap_queue__0 = m.define_symbol ("cap_queue".intern(), 0);
 perception__2 = m.define_symbol ("perception".intern(), 2);
 capabilities__3 = m.define_symbol ("capabilities".intern(), 3);
 action_queue__0 = m.define_symbol ("action_queue".intern(), 0);
 action__2 = m.define_symbol ("action".intern(), 2);
 return true;
} // avatar:main/0 init()

} // avatar:main/0

final class avatar_init_vars_0 extends Code {

public boolean exec (DLP m) {

	switch (m.PSreg) {

		// head: init_vars

	case 0:
		m.allocate (0);
		//m.success =
		m.end_head ();
		break;

	case 1:

		// goal: assign_nlv_term(this, nreg, 0, 'world.wrl')

		m.put_this (1);
		m.put_nreg (2);
		m.put_int (0,3);
		m.put_atom (data__2__0,4);
		m.call (dlplib.assign_nlv_term_4); /*6*/
		break;

	case 2:

		// goal: assign_nlv_term(this, nreg, 1, humanoid)

		m.put_this (1);
		m.put_nreg (2);
		m.put_int (1,3);
		m.put_atom (humanoid__0,4);
		m.deallocate ();
		m.exec (dlplib.assign_nlv_term_4);
		break;

	case 3:
		m.end_rule ();
		break;

	} // switch
	return m.success;
} // avatar:init_vars/0 exec()

// avatar:init_vars/0 decls.
 public SymbolDescriptor data__2__0;
 public SymbolDescriptor humanoid__0;
// end of avatar:init_vars/0 decls.

public boolean init (DLP m) {
 data__2__0 = m.define_symbol ("world.wrl".intern(), 0);
 humanoid__0 = m.define_symbol ("humanoid".intern(), 0);
 return true;
} // avatar:init_vars/0 init()

} // avatar:init_vars/0

class avatar extends Code {
 public static ObjectDescriptor object;
 public static ObjectDescriptor _bcilib;
 public static MethodDescriptor main_0;
 public static MethodDescriptor loadURL_1;

public boolean init (DLP m) {
 object = m.define_object ("avatar".intern(), 1, 2, 2);
 _bcilib = m.header_object (object, "bcilib".intern(), 0);
 main_0 = m.define_method (object, 0, "main".intern(), 0);
 loadURL_1 = m.extern_method (object, 1, "loadURL".intern(), 1);
 m.define_nonlog (object, "url".intern(), 0);
 m.define_nonlog (object, "name".intern(), 1);
 return true;
} // avatar init()
} // class avatar


// end of unit avatar code.

// begin of unit listener code.

final class listener_listener_4 extends Code {

public boolean exec (DLP m) {

	switch (m.PSreg) {

		// head: listener(_G417, _G418, _G419, _G420)

	case 0:
		m.allocate (4);
		//m.success =
		m.get_y_value (2,1);	/* Node */
		m.get_y_value (1,2);	/* Queue */
		m.get_y_value (0,3);	/* BeliefBase */
		m.get_x_varia (11,4);	/* CapQueue */
		m.end_head ();
		break;

	case 1:

		// goal: assign_nlv_term(this, nreg, 0, _G420)

		m.put_this (1);
		m.put_nreg (2);
		m.put_int (0,3);
		m.put_x_value (11,4);	/* 'CapQueue' */
		m.call (dlplib.assign_nlv_term_4); /*6*/
		break;

	case 2:

		// goal: get_window(_G434)

		m.put_y_value (3,1);	/* 'Window' */
		m.call (4) /*2*/;	/* get_window_1 */
		break;

	case 3:

		// goal: call(_G434, display, ['ready.'], _G442)

		m.put_y_value (3,1);	/* 'Window' */
		m.put_atom (display__0,2);
		m.put_list (3);
		m.set_atom (data__3__0);
		m.set_nil ();
		m.put_v_varia (4);	/* 'Unknown' */
		m.call (5) /*2*/;	/* call_4 */
		break;

	case 4:

		// goal: run(_G417, _G418, _G419)

		m.put_y_value (2,1);	/* 'Node' */
		m.put_y_value (1,2);	/* 'Queue' */
		m.put_y_value (0,3);	/* 'BeliefBase' */
		m.deallocate ();
		m.exec (1);	/* run_3 */
		break;

	case 5:
		m.end_rule ();
		break;

	} // switch
	return m.success;
} // listener:listener/4 exec()

// listener:listener/4 decls.
 public SymbolDescriptor display__0;
 public SymbolDescriptor op__dot__2;
 public SymbolDescriptor data__3__0;
 public SymbolDescriptor sl_sr__0;
// end of listener:listener/4 decls.

public boolean init (DLP m) {
 display__0 = m.define_symbol ("display".intern(), 0);
 op__dot__2 = m.define_symbol (".".intern(), 2);
 data__3__0 = m.define_symbol ("ready.".intern(), 0);
 sl_sr__0 = m.define_symbol ("[]".intern(), 0);
 return true;
} // listener:listener/4 init()

} // listener:listener/4

final class listener_run_3 extends Code {

public boolean exec (DLP m) {

	switch (m.PSreg) {

		// head: run(_G417, _G418, _G419)

	case 0:
		m.allocate (6);
		//m.success =
		m.get_y_value (4,1);	/* Node */
		m.get_y_value (3,2);	/* Queue */
		m.get_y_value (2,3);	/* BeliefBase */
		m.cut_level (0);
		m.end_head ();
		break;

	case 1:

		// goal: repeat

		m.call (dlplib.repeat_0); /*6*/
		break;

	case 2:

		// goal: get_queue(_G417, _G418, _G432)

		m.put_y_value (4,1);	/* 'Node' */
		m.put_y_value (3,2);	/* 'Queue' */
		m.put_y_value (5,3);	/* 'Tag' */
		m.call (dlplib.get_queue_3); /*6*/
		break;

	case 3:

		// goal: read_args(_G432, _G417, _G418, _G440)

		m.put_y_value (5,1);	/* 'Tag' */
		m.put_y_value (4,2);	/* 'Node' */
		m.put_y_value (3,3);	/* 'Queue' */
		m.put_y_value (1,4);	/* 'Term' */
		m.call (2) /*2*/;	/* read_args_4 */
		break;

	case 4:

		// goal: format('Action is ~w~n', [_G440])

		m.put_atom (data__4__0,1);
		m.put_list (2);
		m.set_y_value (1);	/* 'Term' */
		m.set_nil ();
		m.call (dlplib.format_2); /*6*/
		break;

	case 5:

		// goal: proces_event(_G440, _G419)

		m.put_y_value (1,1);	/* 'Term' */
		m.put_y_value (2,2);	/* 'BeliefBase' */
		m.call (3) /*2*/;	/* proces_event_2 */
		break;

	case 6:

		// goal: _G440=quit

		m.put_y_value (1,1);	/* 'Term' */
		m.put_atom (quit__0,2);
		m.call (dlplib.op_eq_2); /*6*/
		break;

	case 7:

		// goal: !

		m.cut_tail (0);
		m.deallocate ();
		break;

	case 8:
		m.end_rule ();
		break;

	} // switch
	return m.success;
} // listener:run/3 exec()

// listener:run/3 decls.
 public SymbolDescriptor data__4__0;
 public SymbolDescriptor op__dot__2;
 public SymbolDescriptor sl_sr__0;
 public SymbolDescriptor quit__0;
// end of listener:run/3 decls.

public boolean init (DLP m) {
 data__4__0 = m.define_symbol ("Action is ~w~n".intern(), 0);
 op__dot__2 = m.define_symbol (".".intern(), 2);
 sl_sr__0 = m.define_symbol ("[]".intern(), 0);
 quit__0 = m.define_symbol ("quit".intern(), 0);
 return true;
} // listener:run/3 init()

} // listener:run/3

final class listener_read_args_4 extends Code {

public boolean exec (DLP m) {

	switch (m.PSreg) {

		// head: read_args(walk, _G418, _G419, _G420)

	case 0:
		m.try_me_else (5);
		m.allocate (5);
		//m.success =
		m.get_atom (walk__0,1);
		m.get_y_value (4,2);	/* Node */
		m.get_y_value (3,3);	/* Queue */
		m.get_y_value (2,4);	/* Term */
		m.cut_neck ();
		m.end_head ();
		break;

	case 1:

		// goal: get_queue(_G418, _G419, _G433)

		m.put_y_value (4,1);	/* 'Node' */
		m.put_y_value (3,2);	/* 'Queue' */
		m.put_y_value (1,3);	/* 'X' */
		m.call (dlplib.get_queue_3); /*6*/
		break;

	case 2:

		// goal: get_queue(_G418, _G419, _G440)

		m.put_y_value (4,1);	/* 'Node' */
		m.put_y_value (3,2);	/* 'Queue' */
		m.put_y_value (0,3);	/* 'Z' */
		m.call (dlplib.get_queue_3); /*6*/
		break;

	case 3:

		// goal: _G420=..[walk, _G433, _G440]

		m.put_list (11);
		m.set_y_value (0);	/* 'Z' */
		m.set_nil ();
		m.put_list (12);
		m.set_y_value (1);	/* 'X' */
		m.set_x_value (11);	/* 'Xtmp' */
		m.put_y_value (2,1);	/* 'Term' */
		m.put_list (2);
		m.set_atom (walk__0);
		m.set_x_value (12);	/* 'Xtmp' */
		m.deallocate ();
		m.exec (dlplib.op_univ_2);
		break;

	case 4:
		m.end_rule ();
		break;

		// head: read_args(grab, _G3873, _G3874, _G3875)

	case 5:
		m.retry_me_else (9);
		m.allocate (2);
		//m.success =
		m.get_atom (grab__0,1);
		m.get_x_varia (11,2);	/* Node */
		m.get_x_varia (12,3);	/* Queue */
		m.get_y_value (1,4);	/* Term */
		m.cut_neck ();
		m.end_head ();
		break;

	case 6:

		// goal: get_queue(_G3873, _G3874, _G3888)

		m.put_x_value (11,1);	/* 'Node' */
		m.put_x_value (12,2);	/* 'Queue' */
		m.put_y_value (0,3);	/* 'Object' */
		m.call (dlplib.get_queue_3); /*6*/
		break;

	case 7:

		// goal: _G3875=..[grab, _G3888]

		m.put_list (13);
		m.set_y_value (0);	/* 'Object' */
		m.set_nil ();
		m.put_y_value (1,1);	/* 'Term' */
		m.put_list (2);
		m.set_atom (grab__0);
		m.set_x_value (13);	/* 'Xtmp' */
		m.deallocate ();
		m.exec (dlplib.op_univ_2);
		break;

	case 8:
		m.end_rule ();
		break;

		// head: read_args(beliefs, _G6288, _G6289, beliefs)

	case 9:
		m.trust_or_fail ();
		//m.success =
		m.get_atom (beliefs__0,1);
		m.get_v_varia (2);	/* Unknown */
		m.get_v_varia (3);	/* Unknown */
		m.get_atom (beliefs__0,4);
		m.end_head ();
		break;

	case 10:
		m.end_fact ();
		break;

	} // switch
	return m.success;
} // listener:read_args/4 exec()

// listener:read_args/4 decls.
 public SymbolDescriptor walk__0;
 public SymbolDescriptor op__dot__2;
 public SymbolDescriptor sl_sr__0;
 public SymbolDescriptor grab__0;
 public SymbolDescriptor beliefs__0;
// end of listener:read_args/4 decls.

public boolean init (DLP m) {
 walk__0 = m.define_symbol ("walk".intern(), 0);
 op__dot__2 = m.define_symbol (".".intern(), 2);
 sl_sr__0 = m.define_symbol ("[]".intern(), 0);
 grab__0 = m.define_symbol ("grab".intern(), 0);
 beliefs__0 = m.define_symbol ("beliefs".intern(), 0);
 return true;
} // listener:read_args/4 init()

} // listener:read_args/4

final class listener_proces_event_2 extends Code {

public boolean exec (DLP m) {

	switch (m.PSreg) {

		// head: proces_event(walk(_G423, _G424), _G418)

	case 0:
		m.try_me_else (4);
		m.allocate (0);
		//m.success =
		m.get_struct (walk__2,1);
		m.uni_x_varia (10);	/* X */
		m.uni_x_varia (11);	/* Z */
		m.get_x_varia (12,2);	/* BeliefBase */
		m.end_head ();
		break;

	case 1:

		// goal: <-(this, _G418, add_attr(belief, destination(_G423, _G424)))

		m.put_struct (destination__2,13);
		m.set_x_value (10);	/* 'X' */
		m.set_x_value (11);	/* 'Z' */
		m.put_this (1);
		m.put_x_value (12,2);	/* 'BeliefBase' */
		m.put_struct (add_attr__2,3);
		m.set_atom (belief__0);
		m.set_x_value (13);	/* 'Xtmp' */
		m.call (dlplib.op_call_3); /*6*/
		break;

	case 2:

		// goal: set_queue(capabilities, walk)

		m.put_z_value (0,1);	/* capabilities */
		m.put_atom (walk__0,2);
		m.deallocate ();
		m.exec (dlplib.set_queue_2);
		break;

	case 3:
		m.end_rule ();
		break;

		// head: proces_event(grab(_G3352), _G3347)

	case 4:
		m.retry_me_else (7);
		//m.success =
		m.get_struct (grab__1,1);
		m.uni_x_varia (10);	/* Object */
		m.get_v_varia (2);	/* Unknown */
		m.end_head ();
		break;

	case 5:

		// goal: set_queue(capabilities, grab(_G3352))

		m.put_z_value (0,1);	/* capabilities */
		m.put_struct (grab__1,2);
		m.set_x_value (10);	/* 'Object' */
		m.exec (dlplib.set_queue_2);
		break;

	case 6:
		m.end_rule ();
		break;

		// head: proces_event(beliefs, _G4919)

	case 7:
		m.trust_or_fail ();
		//m.success =
		m.get_atom (beliefs__0,1);
		m.get_x_varia (10,2);	/* BeliefBase */
		m.end_head ();
		break;

	case 8:

		// goal: <-(this, _G4919, show_attr(belief))

		m.put_this (1);
		m.put_x_value (10,2);	/* 'BeliefBase' */
		m.put_struct (show_attr__1,3);
		m.set_atom (belief__0);
		m.exec (dlplib.op_call_3);
		break;

	case 9:
		m.end_rule ();
		break;

	} // switch
	return m.success;
} // listener:proces_event/2 exec()

// listener:proces_event/2 decls.
 public SymbolDescriptor walk__2;
 public SymbolDescriptor this__0;
 public SymbolDescriptor add_attr__2;
 public SymbolDescriptor belief__0;
 public SymbolDescriptor destination__2;
 public SymbolDescriptor walk__0;
 public SymbolDescriptor grab__1;
 public SymbolDescriptor beliefs__0;
 public SymbolDescriptor show_attr__1;
// end of listener:proces_event/2 decls.

public boolean init (DLP m) {
 walk__2 = m.define_symbol ("walk".intern(), 2);
 this__0 = m.define_symbol ("this".intern(), 0);
 add_attr__2 = m.define_symbol ("add_attr".intern(), 2);
 belief__0 = m.define_symbol ("belief".intern(), 0);
 destination__2 = m.define_symbol ("destination".intern(), 2);
 walk__0 = m.define_symbol ("walk".intern(), 0);
 grab__1 = m.define_symbol ("grab".intern(), 1);
 beliefs__0 = m.define_symbol ("beliefs".intern(), 0);
 show_attr__1 = m.define_symbol ("show_attr".intern(), 1);
 return true;
} // listener:proces_event/2 init()

} // listener:proces_event/2

final class listener_init_vars_0 extends Code {

public boolean exec (DLP m) {

	switch (m.PSreg) {

		// head: init_vars

	case 0:
		//m.success =
		m.end_head ();
		break;

	case 1:

		// goal: assign_nlv_term(this, nreg, 0, no_init)

		m.put_this (1);
		m.put_nreg (2);
		m.put_int (0,3);
		m.put_atom (no_init__0,4);
		m.exec (dlplib.assign_nlv_term_4);
		break;

	case 2:
		m.end_rule ();
		break;

	} // switch
	return m.success;
} // listener:init_vars/0 exec()

// listener:init_vars/0 decls.
 public SymbolDescriptor no_init__0;
// end of listener:init_vars/0 decls.

public boolean init (DLP m) {
 no_init__0 = m.define_symbol ("no_init".intern(), 0);
 return true;
} // listener:init_vars/0 init()

} // listener:init_vars/0

class listener extends Code {
 public static ObjectDescriptor object;
 public static ObjectDescriptor _jsilib;
 public static MethodDescriptor listener_4;
 public static MethodDescriptor run_3;
 public static MethodDescriptor read_args_4;
 public static MethodDescriptor proces_event_2;
 public static MethodDescriptor get_window_1;
 public static MethodDescriptor call_4;

public boolean init (DLP m) {
 object = m.define_object ("listener".intern(), 1, 6, 1);
 _jsilib = m.header_object (object, "jsilib".intern(), 0);
 listener_4 = m.define_method (object, 0, "listener".intern(), 4);
 run_3 = m.define_method (object, 1, "run".intern(), 3);
 read_args_4 = m.define_method (object, 2, "read_args".intern(), 4);
 proces_event_2 = m.define_method (object, 3, "proces_event".intern(), 2);
 get_window_1 = m.extern_method (object, 4, "get_window".intern(), 1);
 call_4 = m.extern_method (object, 5, "call".intern(), 4);
 m.define_nonlog (object, "capabilities".intern(), 0);
 return true;
} // listener init()
} // class listener


// end of unit listener code.

// end of avatar.pl code file.