package Ġcom . b aj dcc . L AL R 1 . interpret . module Ċ Ċ import Ġcom . b aj dcc . L AL R 1 . grammar . Grammar Ċ import Ġcom . b aj dcc . L AL R 1 . grammar . runtime .* Ċ import Ġcom . b aj dcc . L AL R 1 . ui . UI Main Frame Ċ import Ġcom . b aj dcc . L AL R 1 . ui . UI Remote Window Ċ import Ġcom . b aj dcc . L AL R 1 . ui . drawing . UI Remote Graphics Ċ import Ġcom . b aj dcc . util . Resource Loader Ċ Ċ @ Suppress (" UNUSED _ AN ONY MO US _ PARAMETER ") Ċ /** Ċ Ġ* ĠãĢĲ æ¨¡åĿĹ ãĢĳ è¿ľç¨ĭ çĶ¨æĪ· çķĮéĿ¢ Ċ Ġ* Ċ Ġ* Ġ@ author Ġb aj dcc Ċ Ġ*/ Ċ class ĠModule Remote Ġ: ĠI Interpreter Module Ġ{ ĊĠĠĠ Ġprivate Ġvar Ġremote : ĠUI Remote Window ? Ġ= Ġnull ĊĠĠĠ Ġprivate Ġvar Ġgraphics : ĠUI Remote Graphics ? Ġ= Ġnull ĊĠĠĠ Ġprivate Ġvar Ġruntime Code Page : ĠRuntime Code Page ? Ġ= Ġnull ĊĊĠĠĠ Ġoverride Ġval ĠmoduleName : ĠString ĊĠĠĠĠĠĠĠ Ġget () Ġ= Ġ" sys . remote " ĊĊĠĠĠ Ġoverride Ġval Ġmodule Code : ĠString ĊĠĠĠĠĠĠĠ Ġget () Ġ= ĠResource Loader . load ( java Class ) ĊĊĠĠĠ Ġoverride Ġval Ġcode Page : ĠRuntime Code Page ĊĠĠĠĠĠĠĠ Ġ@ Throws ( Exception :: class ) ĊĠĠĠĠĠĠĠ Ġget () Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġif Ġ( runtime Code Page Ġ!= Ġnull ) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġreturn Ġruntime Code Page !! ĊĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġbase Ġ= ĠResource Loader . load ( java Class ) ĊĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġgrammar Ġ= ĠGram mar ( base ) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġpage Ġ= Ġgrammar . code Page ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġinfo Ġ= Ġpage . info ĊĠĠĠĠĠĠĠĠĠĠĠ Ġbuild Remote Methods ( info ) ĊĊĠĠĠĠĠĠĠĠĠĠĠ Ġruntime Code Page Ġ= Ġpage ĊĠĠĠĠĠĠĠĠĠĠĠ Ġreturn Ġpage ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠ Ġfun Ġset Graphics () Ġ{ ĊĠĠĠĠĠĠĠ Ġif Ġ( remote Ġ== Ġnull ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġremote Ġ= ĠUI Remote Window () ĊĠĠĠĠĠĠĠĠĠĠĠ Ġgraphics Ġ= Ġremote !!. ui Graphics ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġprivate Ġfun Ġbuild Remote Methods ( info : ĠI Runtime Debug Info ) Ġ{ ĊĠĠĠĠĠĠĠ Ġinfo . add External Func (" g _ remote _ init ", ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠRuntime Debug Exec (" æĺ¾ç¤º åĪĿå§ĭåĮĸ ") ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ{ Ġargs : ĠList < RuntimeObject >, Ġstatus : ĠI Runtime Status Ġ-> ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġrun Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġif Ġ( enable Ġ&& Ġgraphics Ġ== Ġnull ) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġset Graphics () ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġnull ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ}) ĊĠĠĠĠĠĠĠ Ġinfo . add External Func (" g _ remote _ print _ internal ", ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ ĠRuntime Debug Exec (" æĺ¾ç¤º è¾ĵåĩº ", ĠarrayOf ( Runtime ObjectType . k Char )) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ{ Ġargs : ĠList < RuntimeObject >, Ġstatus : ĠI Runtime Status Ġ-> ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġrun Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġgraphics !!. draw Text ( args [ 0 ]. char ) ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġnull ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ} ĊĠĠĠĠĠĠĠĠĠĠĠĠĠĠĠ Ġ}) ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġcompanion Ġobject Ġ{ ĊĊĠĠĠĠĠĠĠ Ġval Ġinstance Ġ= ĠModule Remote () ĊĠĠĠĠĠĠĠ Ġprivate Ġvar Ġenable Ġ= Ġfalse ĊĠĠĠĠĠĠĠ Ġprivate Ġvar Ġmain Frame : ĠU IM ain Frame ? Ġ= Ġnull ĊĊĠĠĠĠĠĠĠ Ġfun Ġenabled () Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġenable Ġ= Ġtrue ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġfun Ġset Main Frame ( frame : ĠU IM ain Frame ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġmain Frame Ġ= Ġframe ĊĠĠĠĠĠĠĠ Ġ} ĊĊĠĠĠĠĠĠĠ Ġfun Ġshow Main Frame () Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġmain Frame !!. show Delay () ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} Ċ } Ċ