// begin of stepdemo.pl code file.

// begin of unit stepdemo code.

final class stepdemo_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: text_area(_G442)

		m.put_y_value (0,1);	/* 'BrowserStream' */
		m.call (dlplib.text_area_1); /*6*/
		break;

	case 2:

		// goal: set_output(_G442)

		m.put_y_value (0,1);	/* 'BrowserStream' */
		m.call (dlplib.set_output_1); /*6*/
		break;

	case 3:

		// goal: format('STEP applet is running ...~n')

		m.put_atom (data__1__0,1);
		m.call (dlplib.format_1); /*6*/
		break;

	case 4:

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

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

	case 5:

		// goal: format('Please wait ...~n')

		m.put_atom (data__3__0,1);
		m.call (dlplib.format_1); /*6*/
		break;

	case 6:

		// goal: loadURL(url)

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

	case 7:

		// goal: sleep(6000)

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

	case 8:

		// goal: script_threads

		m.call (2) /*2*/;	/* script_threads_0 */
		break;

	case 9:

		// goal: process_script(test(humanoid))

		m.put_struct (test__1,1);
		m.set_atom (humanoid__0);
		m.call (3) /*2*/;	/* process_script_1 */
		break;

	case 10:

		// goal: process_script(taichi(humanoid))

		m.put_struct (taichi__1,1);
		m.set_atom (humanoid__0);
		m.call (3) /*2*/;	/* process_script_1 */
		break;

	case 11:

		// goal: true

		m.deallocate ();
		m.exec (dlplib.true_0);
		break;

	case 12:
		m.end_rule ();
		break;

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

// stepdemo:main/0 decls.
 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 test__1;
 public SymbolDescriptor humanoid__0;
 public SymbolDescriptor taichi__1;
// end of stepdemo:main/0 decls.

public boolean init (DLP m) {
 data__1__0 = m.define_symbol ("STEP applet is running ...~n".intern(), 0);
 data__2__0 = m.define_symbol ("Loading the humaniod from ~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 ("Please wait ...~n".intern(), 0);
 test__1 = m.define_symbol ("test".intern(), 1);
 humanoid__0 = m.define_symbol ("humanoid".intern(), 0);
 taichi__1 = m.define_symbol ("taichi".intern(), 1);
 return true;
} // stepdemo:main/0 init()

} // stepdemo:main/0

final class stepdemo_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, './yt/yt.wrl')

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

	case 2:
		m.end_rule ();
		break;

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

// stepdemo:init_vars/0 decls.
 public SymbolDescriptor data__4__0;
// end of stepdemo:init_vars/0 decls.

public boolean init (DLP m) {
 data__4__0 = m.define_symbol ("./yt/yt.wrl".intern(), 0);
 return true;
} // stepdemo:init_vars/0 init()

} // stepdemo:init_vars/0

class stepdemo extends Code {
 public static ObjectDescriptor object;
 public static ObjectDescriptor _bcilib;
 public static ObjectDescriptor _step_kernel;
 public static MethodDescriptor main_0;
 public static MethodDescriptor loadURL_1;
 public static MethodDescriptor script_threads_0;
 public static MethodDescriptor process_script_1;

public boolean init (DLP m) {
 object = m.define_object ("stepdemo".intern(), 2, 4, 1);
 _bcilib = m.header_object (object, "bcilib".intern(), 0);
 _step_kernel = m.header_object (object, "step_kernel".intern(), 1);
 main_0 = m.define_method (object, 0, "main".intern(), 0);
 loadURL_1 = m.extern_method (object, 1, "loadURL".intern(), 1);
 script_threads_0 = m.extern_method (object, 2, "script_threads".intern(), 0);
 process_script_1 = m.extern_method (object, 3, "process_script".intern(), 1);
 m.define_nonlog (object, "url".intern(), 0);
 return true;
} // stepdemo init()
} // class stepdemo


// end of unit stepdemo code.

// end of stepdemo.pl code file.