// begin of wsclientjsi.pl code file. // begin of unit wsclientjsi code. final class wsclientjsi_main_0 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: main case 0: m.allocate (0); //m.success = m.end_head (); break; case 1: // goal: new(wsclient, _G408) m.put_atom (wsclient__0,1); m.put_v_varia (2); /* 'Unknown' */ m.call (dlplib.new_2); /*6*/ break; case 2: // goal: new(wsclient_statusprocess, _G414) m.put_atom (wsclient_statusprocess__0,1); m.put_v_varia (2); /* 'Unknown' */ m.call (dlplib.new_2); /*6*/ break; case 3: // goal: new(wsclientlistener(script, queue), _G420) m.put_struct (wsclientlistener__2,1); m.set_atom (script__0); m.set_atom (queue__0); m.put_v_varia (2); /* 'Unknown' */ m.call (dlplib.new_2); /*6*/ break; case 4: // goal: true m.deallocate (); m.exec (dlplib.true_0); break; case 5: m.end_rule (); break; } // switch return m.success; } // wsclientjsi:main/0 exec() // wsclientjsi:main/0 decls. public SymbolDescriptor wsclient__0; public SymbolDescriptor wsclient_statusprocess__0; public SymbolDescriptor wsclientlistener__2; public SymbolDescriptor script__0; public SymbolDescriptor queue__0; // end of wsclientjsi:main/0 decls. public boolean init (DLP m) { wsclient__0 = m.define_symbol ("wsclient".intern(), 0); wsclient_statusprocess__0 = m.define_symbol ("wsclient_statusprocess".intern(), 0); wsclientlistener__2 = m.define_symbol ("wsclientlistener".intern(), 2); script__0 = m.define_symbol ("script".intern(), 0); queue__0 = m.define_symbol ("queue".intern(), 0); return true; } // wsclientjsi:main/0 init() } // wsclientjsi:main/0 class wsclientjsi extends Code { public static ObjectDescriptor object; public static MethodDescriptor main_0; public boolean init (DLP m) { object = m.define_object ("wsclientjsi".intern(), 0, 1, 0); main_0 = m.define_method (object, 0, "main".intern(), 0); return true; } // wsclientjsi init() } // class wsclientjsi // end of unit wsclientjsi code. // begin of unit wsclient_statusprocess code. final class wsclient_statusprocess_wsclient_statusprocess_0 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: wsclient_statusprocess case 0: m.allocate (3); //m.success = m.cut_level (0); m.end_head (); break; case 1: // goal: set_field(wsclient, clock, 5000) m.put_atom (wsclient__0,1); m.put_atom (clock__0,2); m.put_int (5000,3); m.call (dlplib.set_field_3); /*6*/ break; case 2: // goal: get_window(_G417) m.put_y_value (2,1); /* 'Window' */ m.call (2) /*2*/; /* get_window_1 */ break; case 3: // goal: repeat m.call (dlplib.repeat_0); /*6*/ break; case 4: // goal: sleep(5000) m.put_int (5000,1); m.call (dlplib.sleep_1); /*6*/ break; case 5: // goal: get_field(wsclient, clock, _G432) m.put_atom (wsclient__0,1); m.put_atom (clock__0,2); m.put_y_value (1,3); /* 'Time' */ m.call (dlplib.get_field_3); /*6*/ break; case 6: // goal: update_game_clock(_G417, _G432) m.put_y_value (2,1); /* 'Window' */ m.put_y_value (1,2); /* 'Time' */ m.call (1) /*2*/; /* update_game_clock_2 */ break; case 7: // goal: _G432<1 m.put_y_value (1,1); /* 'Time' */ m.put_int (1,2); m.call (dlplib.op_cmp_lt_2); /*6*/ break; case 8: // goal: ! m.cut_tail (0); m.deallocate (); break; case 9: m.end_rule (); break; } // switch return m.success; } // wsclient_statusprocess:wsclient_statusprocess/0 exec() // wsclient_statusprocess:wsclient_statusprocess/0 decls. public SymbolDescriptor wsclient__0; public SymbolDescriptor clock__0; // end of wsclient_statusprocess:wsclient_statusprocess/0 decls. public boolean init (DLP m) { wsclient__0 = m.define_symbol ("wsclient".intern(), 0); clock__0 = m.define_symbol ("clock".intern(), 0); return true; } // wsclient_statusprocess:wsclient_statusprocess/0 init() } // wsclient_statusprocess:wsclient_statusprocess/0 final class wsclient_statusprocess_update_game_clock_2 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: update_game_clock(_G404, _G405) case 0: //m.success = m.get_x_varia (10,1); /* Window */ m.get_x_varia (11,2); /* Time */ m.end_head (); break; case 1: // goal: call(_G404, showGameTime, [_G405], _G413) m.put_x_value (10,1); /* 'Window' */ m.put_atom (showGameTime__0,2); m.put_list (3); m.set_x_value (11); /* 'Time' */ m.set_nil (); m.put_v_varia (4); /* 'Unknown' */ m.exec (3); /* call_4 */ break; case 2: m.end_rule (); break; } // switch return m.success; } // wsclient_statusprocess:update_game_clock/2 exec() // wsclient_statusprocess:update_game_clock/2 decls. public SymbolDescriptor showGameTime__0; public SymbolDescriptor op__dot__2; public SymbolDescriptor sl_sr__0; // end of wsclient_statusprocess:update_game_clock/2 decls. public boolean init (DLP m) { showGameTime__0 = m.define_symbol ("showGameTime".intern(), 0); op__dot__2 = m.define_symbol (".".intern(), 2); sl_sr__0 = m.define_symbol ("[]".intern(), 0); return true; } // wsclient_statusprocess:update_game_clock/2 init() } // wsclient_statusprocess:update_game_clock/2 class wsclient_statusprocess extends Code { public static ObjectDescriptor object; public static ObjectDescriptor _jsilib; public static MethodDescriptor wsclient_statusprocess_0; public static MethodDescriptor update_game_clock_2; public static MethodDescriptor get_window_1; public static MethodDescriptor call_4; public boolean init (DLP m) { object = m.define_object ("wsclient_statusprocess".intern(), 1, 4, 0); _jsilib = m.header_object (object, "jsilib".intern(), 0); wsclient_statusprocess_0 = m.define_method (object, 0, "wsclient_statusprocess".intern(), 0); update_game_clock_2 = m.define_method (object, 1, "update_game_clock".intern(), 2); get_window_1 = m.extern_method (object, 2, "get_window".intern(), 1); call_4 = m.extern_method (object, 3, "call".intern(), 4); return true; } // wsclient_statusprocess init() } // class wsclient_statusprocess // end of unit wsclient_statusprocess code. // begin of unit wsclientlistener code. final class wsclientlistener_wsclientlistener_2 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: wsclientlistener(_G410, _G411) case 0: //m.success = m.get_x_varia (10,1); /* Node */ m.get_x_varia (11,2); /* Queue */ m.end_head (); break; case 1: // goal: run(_G410, _G411) m.put_x_value (10,1); /* 'Node' */ m.put_x_value (11,2); /* 'Queue' */ m.exec (1); /* run_2 */ break; case 2: m.end_rule (); break; } // switch return m.success; } // wsclientlistener:wsclientlistener/2 exec() // wsclientlistener:wsclientlistener/2 decls. // end of wsclientlistener:wsclientlistener/2 decls. public boolean init (DLP m) { return true; } // wsclientlistener:wsclientlistener/2 init() } // wsclientlistener:wsclientlistener/2 final class wsclientlistener_run_2 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: run(_G410, _G411) case 0: m.allocate (4); //m.success = m.get_y_value (3,1); /* Node */ m.get_y_value (2,2); /* Queue */ m.cut_level (0); m.end_head (); break; case 1: // goal: repeat m.call (dlplib.repeat_0); /*6*/ break; case 2: // goal: get_queue(_G410, _G411, _G424) m.put_y_value (3,1); /* 'Node' */ m.put_y_value (2,2); /* 'Queue' */ m.put_y_value (1,3); /* 'Term' */ m.call (dlplib.get_queue_3); /*6*/ break; case 3: // goal: process_test_term(_G424) m.put_y_value (1,1); /* 'Term' */ m.call (2) /*2*/; /* process_test_term_1 */ break; case 4: // goal: _G424=stop m.put_y_value (1,1); /* 'Term' */ m.put_atom (stop__0,2); m.call (dlplib.op_eq_2); /*6*/ break; case 5: // goal: ! m.cut_tail (0); m.deallocate (); break; case 6: m.end_rule (); break; } // switch return m.success; } // wsclientlistener:run/2 exec() // wsclientlistener:run/2 decls. public SymbolDescriptor stop__0; // end of wsclientlistener:run/2 decls. public boolean init (DLP m) { stop__0 = m.define_symbol ("stop".intern(), 0); return true; } // wsclientlistener:run/2 init() } // wsclientlistener:run/2 final class wsclientlistener_process_test_term_1 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: process_test_term(_G410) case 0: m.try_me_else (6); m.allocate (3); //m.success = m.get_x_varia (10,1); /* Term */ m.cut_level (2); m.end_head (); break; case 1: // goal: _G410=chat(_G421, _G422) m.put_x_value (10,1); /* 'Term' */ m.put_struct (chat__2,2); m.set_y_value (1); /* 'Recipient' */ m.set_y_value (0); /* 'Text' */ m.call (dlplib.op_eq_2); /*6*/ break; case 2: // goal: ! m.cut_body (2); break; case 3: // goal: client_chat(_G421, _G422) m.put_y_value (1,1); /* 'Recipient' */ m.put_y_value (0,2); /* 'Text' */ m.call (3) /*2*/; /* client_chat_2 */ break; case 4: // goal: true m.deallocate (); m.exec (dlplib.true_0); break; case 5: m.end_rule (); break; // head: process_test_term(_G3710) case 6: m.retry_me_else (13); m.allocate (3); //m.success = m.get_x_varia (10,1); /* Term */ m.cut_level (2); m.end_head (); break; case 7: // goal: _G3710=setUserName(_G3721) m.put_x_value (10,1); /* 'Term' */ m.put_struct (setUserName__1,2); m.set_y_value (0); /* 'UserName' */ m.call (dlplib.op_eq_2); /*6*/ break; case 8: // goal: ! m.cut_body (2); break; case 9: // goal: get_window(_G3729) m.put_y_value (1,1); /* 'Window' */ m.call (4) /*2*/; /* get_window_1 */ break; case 10: // goal: call(_G3729, setUserName, [_G3721], _G3737) m.put_y_value (1,1); /* 'Window' */ m.put_atom (setUserName__0,2); m.put_list (3); m.set_y_value (0); /* 'UserName' */ m.set_nil (); m.put_v_varia (4); /* 'Unknown' */ m.call (5) /*2*/; /* call_4 */ break; case 11: // goal: true m.deallocate (); m.exec (dlplib.true_0); break; case 12: m.end_rule (); break; // head: process_test_term(_G7983) case 13: m.retry_me_else (20); m.allocate (3); //m.success = m.get_x_varia (10,1); /* Term */ m.cut_level (2); m.end_head (); break; case 14: // goal: _G7983=addPlayerName(_G7994) m.put_x_value (10,1); /* 'Term' */ m.put_struct (addPlayerName__1,2); m.set_y_value (0); /* 'Name' */ m.call (dlplib.op_eq_2); /*6*/ break; case 15: // goal: ! m.cut_body (2); break; case 16: // goal: get_window(_G8002) m.put_y_value (1,1); /* 'Window' */ m.call (4) /*2*/; /* get_window_1 */ break; case 17: // goal: call(_G8002, addPlayerName, [_G7994], _G8010) m.put_y_value (1,1); /* 'Window' */ m.put_atom (addPlayerName__0,2); m.put_list (3); m.set_y_value (0); /* 'Name' */ m.set_nil (); m.put_v_varia (4); /* 'Unknown' */ m.call (5) /*2*/; /* call_4 */ break; case 18: // goal: true m.deallocate (); m.exec (dlplib.true_0); break; case 19: m.end_rule (); break; // head: process_test_term(_G11747) case 20: m.retry_me_else (27); m.allocate (3); //m.success = m.get_x_varia (10,1); /* Term */ m.cut_level (2); m.end_head (); break; case 21: // goal: _G11747=removePlayerName(_G11758) m.put_x_value (10,1); /* 'Term' */ m.put_struct (removePlayerName__1,2); m.set_y_value (0); /* 'Name' */ m.call (dlplib.op_eq_2); /*6*/ break; case 22: // goal: ! m.cut_body (2); break; case 23: // goal: get_window(_G11766) m.put_y_value (1,1); /* 'Window' */ m.call (4) /*2*/; /* get_window_1 */ break; case 24: // goal: call(_G11766, removePlayerName, [_G11758], _G11774) m.put_y_value (1,1); /* 'Window' */ m.put_atom (removePlayerName__0,2); m.put_list (3); m.set_y_value (0); /* 'Name' */ m.set_nil (); m.put_v_varia (4); /* 'Unknown' */ m.call (5) /*2*/; /* call_4 */ break; case 25: // goal: true m.deallocate (); m.exec (dlplib.true_0); break; case 26: m.end_rule (); break; // head: process_test_term(_G15601) case 27: m.retry_me_else (34); m.allocate (4); //m.success = m.get_x_varia (10,1); /* Term */ m.cut_level (3); m.end_head (); break; case 28: // goal: _G15601=showChatText(_G15612, _G15613) m.put_x_value (10,1); /* 'Term' */ m.put_struct (showChatText__2,2); m.set_y_value (1); /* 'Name' */ m.set_y_value (0); /* 'Text' */ m.call (dlplib.op_eq_2); /*6*/ break; case 29: // goal: ! m.cut_body (3); break; case 30: // goal: get_window(_G15621) m.put_y_value (2,1); /* 'Window' */ m.call (4) /*2*/; /* get_window_1 */ break; case 31: // goal: call(_G15621, showChatText, [_G15612, _G15613], _G15629) m.put_list (11); m.set_y_value (0); /* 'Text' */ m.set_nil (); m.put_y_value (2,1); /* 'Window' */ m.put_atom (showChatText__0,2); m.put_list (3); m.set_y_value (1); /* 'Name' */ m.set_x_value (11); /* 'Xtmp' */ m.put_v_varia (4); /* 'Unknown' */ m.call (5) /*2*/; /* call_4 */ break; case 32: // goal: true m.deallocate (); m.exec (dlplib.true_0); break; case 33: m.end_rule (); break; // head: process_test_term(_G19707) case 34: m.retry_me_else (41); m.allocate (1); //m.success = m.get_x_varia (10,1); /* Term */ m.cut_level (0); m.end_head (); break; case 35: // goal: _G19707=stop m.put_x_value (10,1); /* 'Term' */ m.put_atom (stop__0,2); m.call (dlplib.op_eq_2); /*6*/ break; case 36: // goal: ! m.cut_body (0); break; case 37: // goal: format('The applet has been stopped!!!~n') m.put_atom (data__1__0,1); m.call (dlplib.format_1); /*6*/ break; case 38: // goal: format('To restart the applet, close the browser and launch this link again.~n') m.put_atom (data__2__0,1); m.call (dlplib.format_1); /*6*/ break; case 39: // goal: true m.deallocate (); m.exec (dlplib.true_0); break; case 40: m.end_rule (); break; // head: process_test_term(_G22784) case 41: m.trust_or_fail (); m.allocate (0); //m.success = m.get_x_varia (10,1); /* Term */ m.cut_neck (); m.end_head (); break; case 42: // goal: format('Unknown command:~w!~n', [_G22784]) m.put_atom (data__3__0,1); m.put_list (2); m.set_x_value (10); /* 'Term' */ m.set_nil (); m.call (dlplib.format_2); /*6*/ break; case 43: // goal: true m.deallocate (); m.exec (dlplib.true_0); break; case 44: m.end_rule (); break; } // switch return m.success; } // wsclientlistener:process_test_term/1 exec() // wsclientlistener:process_test_term/1 decls. public SymbolDescriptor chat__2; public SymbolDescriptor setUserName__1; public SymbolDescriptor setUserName__0; public SymbolDescriptor op__dot__2; public SymbolDescriptor sl_sr__0; public SymbolDescriptor addPlayerName__1; public SymbolDescriptor addPlayerName__0; public SymbolDescriptor removePlayerName__1; public SymbolDescriptor removePlayerName__0; public SymbolDescriptor showChatText__2; public SymbolDescriptor showChatText__0; public SymbolDescriptor stop__0; public SymbolDescriptor data__1__0; public SymbolDescriptor data__2__0; public SymbolDescriptor data__3__0; // end of wsclientlistener:process_test_term/1 decls. public boolean init (DLP m) { chat__2 = m.define_symbol ("chat".intern(), 2); setUserName__1 = m.define_symbol ("setUserName".intern(), 1); setUserName__0 = m.define_symbol ("setUserName".intern(), 0); op__dot__2 = m.define_symbol (".".intern(), 2); sl_sr__0 = m.define_symbol ("[]".intern(), 0); addPlayerName__1 = m.define_symbol ("addPlayerName".intern(), 1); addPlayerName__0 = m.define_symbol ("addPlayerName".intern(), 0); removePlayerName__1 = m.define_symbol ("removePlayerName".intern(), 1); removePlayerName__0 = m.define_symbol ("removePlayerName".intern(), 0); showChatText__2 = m.define_symbol ("showChatText".intern(), 2); showChatText__0 = m.define_symbol ("showChatText".intern(), 0); stop__0 = m.define_symbol ("stop".intern(), 0); data__1__0 = m.define_symbol ("The applet has been stopped!!!~n".intern(), 0); data__2__0 = m.define_symbol ("To restart the applet, close the browser and launch this link again.~n".intern(), 0); data__3__0 = m.define_symbol ("Unknown command:~w!~n".intern(), 0); return true; } // wsclientlistener:process_test_term/1 init() } // wsclientlistener:process_test_term/1 class wsclientlistener extends Code { public static ObjectDescriptor object; public static ObjectDescriptor _jsilib; public static ObjectDescriptor _bcilib; public static ObjectDescriptor _wsclient; public static MethodDescriptor wsclientlistener_2; public static MethodDescriptor run_2; public static MethodDescriptor process_test_term_1; public static MethodDescriptor client_chat_2; public static MethodDescriptor get_window_1; public static MethodDescriptor call_4; public boolean init (DLP m) { object = m.define_object ("wsclientlistener".intern(), 3, 6, 0); _jsilib = m.header_object (object, "jsilib".intern(), 0); _bcilib = m.header_object (object, "bcilib".intern(), 1); _wsclient = m.header_object (object, "wsclient".intern(), 2); wsclientlistener_2 = m.define_method (object, 0, "wsclientlistener".intern(), 2); run_2 = m.define_method (object, 1, "run".intern(), 2); process_test_term_1 = m.define_method (object, 2, "process_test_term".intern(), 1); client_chat_2 = m.extern_method (object, 3, "client_chat".intern(), 2); get_window_1 = m.extern_method (object, 4, "get_window".intern(), 1); call_4 = m.extern_method (object, 5, "call".intern(), 4); return true; } // wsclientlistener init() } // class wsclientlistener // end of unit wsclientlistener code. // end of wsclientjsi.pl code file.