AmberCli.js 165 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472247324742475247624772478247924802481248224832484248524862487248824892490249124922493249424952496249724982499250025012502250325042505250625072508250925102511251225132514251525162517251825192520252125222523252425252526252725282529253025312532253325342535253625372538253925402541254225432544254525462547254825492550255125522553255425552556255725582559256025612562256325642565256625672568256925702571257225732574257525762577257825792580258125822583258425852586258725882589259025912592259325942595259625972598259926002601260226032604260526062607260826092610261126122613261426152616261726182619262026212622262326242625262626272628262926302631263226332634263526362637263826392640264126422643264426452646264726482649265026512652265326542655265626572658265926602661266226632664266526662667266826692670267126722673267426752676267726782679268026812682268326842685268626872688268926902691269226932694269526962697269826992700270127022703270427052706270727082709271027112712271327142715271627172718271927202721272227232724272527262727272827292730273127322733273427352736273727382739274027412742274327442745274627472748274927502751275227532754275527562757275827592760276127622763276427652766276727682769277027712772277327742775277627772778277927802781278227832784278527862787278827892790279127922793279427952796279727982799280028012802280328042805280628072808280928102811281228132814281528162817281828192820282128222823282428252826282728282829283028312832283328342835283628372838283928402841284228432844284528462847284828492850285128522853285428552856285728582859286028612862286328642865286628672868286928702871287228732874287528762877287828792880288128822883288428852886288728882889289028912892289328942895289628972898289929002901290229032904290529062907290829092910291129122913291429152916291729182919292029212922292329242925292629272928292929302931293229332934293529362937293829392940294129422943294429452946294729482949295029512952295329542955295629572958295929602961296229632964296529662967296829692970297129722973297429752976297729782979298029812982298329842985298629872988298929902991299229932994299529962997299829993000300130023003300430053006300730083009301030113012301330143015301630173018301930203021302230233024302530263027302830293030303130323033303430353036303730383039304030413042304330443045304630473048304930503051305230533054305530563057305830593060306130623063306430653066306730683069307030713072307330743075307630773078307930803081308230833084308530863087308830893090309130923093309430953096309730983099310031013102310331043105310631073108310931103111311231133114311531163117311831193120312131223123312431253126312731283129313031313132313331343135313631373138313931403141314231433144314531463147314831493150315131523153315431553156315731583159316031613162316331643165316631673168316931703171317231733174317531763177317831793180318131823183318431853186318731883189319031913192319331943195319631973198319932003201320232033204320532063207320832093210321132123213321432153216321732183219322032213222322332243225322632273228322932303231323232333234323532363237323832393240324132423243324432453246324732483249325032513252325332543255325632573258325932603261326232633264326532663267326832693270327132723273327432753276327732783279328032813282328332843285328632873288328932903291329232933294329532963297329832993300330133023303330433053306330733083309331033113312331333143315331633173318331933203321332233233324332533263327332833293330333133323333333433353336333733383339334033413342334333443345334633473348334933503351335233533354335533563357335833593360336133623363336433653366336733683369337033713372337333743375337633773378337933803381338233833384338533863387338833893390339133923393339433953396339733983399340034013402340334043405340634073408340934103411341234133414341534163417341834193420342134223423342434253426342734283429343034313432343334343435343634373438343934403441344234433444344534463447344834493450345134523453345434553456345734583459346034613462346334643465346634673468346934703471347234733474347534763477347834793480348134823483348434853486348734883489349034913492349334943495349634973498349935003501350235033504350535063507350835093510351135123513351435153516351735183519352035213522352335243525352635273528352935303531353235333534353535363537353835393540354135423543354435453546354735483549355035513552355335543555355635573558355935603561356235633564356535663567356835693570357135723573357435753576357735783579358035813582358335843585358635873588358935903591359235933594359535963597359835993600360136023603360436053606360736083609361036113612361336143615361636173618
  1. define("amber_cli/AmberCli", ["amber/boot", "amber_core/Kernel-Objects"], function($boot){"use strict";
  2. var $core=$boot.api,nil=$boot.nil,$recv=$boot.asReceiver,$globals=$boot.globals;
  3. $core.addPackage('AmberCli');
  4. $core.packages["AmberCli"].innerEval = function (expr) { return eval(expr); };
  5. $core.packages["AmberCli"].transport = {"type":"amd","amdNamespace":"amber_cli"};
  6. $core.addClass('AmberCli', $globals.Object, [], 'AmberCli');
  7. //>>excludeStart("ide", pragmas.excludeIdeData);
  8. $globals.AmberCli.comment="I am the Amber CLI (CommandLine Interface) tool which runs on Node.js.\x0a\x0aMy responsibility is to start different Amber programs like the FileServer or the Repl.\x0aWhich program to start is determined by the first commandline parameters passed to the AmberCli executable.\x0aUse `help` to get a list of all available options.\x0aAny further commandline parameters are passed to the specific program.\x0a\x0a## Commands\x0a\x0aNew commands can be added by creating a class side method in the `commands` protocol which takes one parameter.\x0aThis parameter is an array of all commandline options + values passed on to the program.\x0aAny `camelCaseCommand` is transformed into a commandline parameter of the form `camel-case-command` and vice versa.";
  9. //>>excludeEnd("ide");
  10. $core.addMethod(
  11. $core.method({
  12. selector: "commandLineSwitches",
  13. protocol: 'commandline',
  14. fn: function (){
  15. var self=this;
  16. var switches;
  17. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  18. return $core.withContext(function($ctx1) {
  19. //>>excludeEnd("ctx");
  20. var $1;
  21. switches=$recv($recv(self._class())._methodsInProtocol_("commands"))._collect_((function(each){
  22. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  23. return $core.withContext(function($ctx2) {
  24. //>>excludeEnd("ctx");
  25. return $recv(each)._selector();
  26. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  27. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  28. //>>excludeEnd("ctx");
  29. }));
  30. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  31. $ctx1.sendIdx["collect:"]=1;
  32. //>>excludeEnd("ctx");
  33. switches=$recv(switches)._select_((function(each){
  34. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  35. return $core.withContext(function($ctx2) {
  36. //>>excludeEnd("ctx");
  37. return $recv(each)._match_("^[^:]*:$");
  38. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  39. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,2)});
  40. //>>excludeEnd("ctx");
  41. }));
  42. switches=$recv(switches)._collect_((function(each){
  43. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  44. return $core.withContext(function($ctx2) {
  45. //>>excludeEnd("ctx");
  46. return $recv($recv($recv(each)._allButLast())._replace_with_("([A-Z])","-$1"))._asLowercase();
  47. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  48. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,3)});
  49. //>>excludeEnd("ctx");
  50. }));
  51. $1=switches;
  52. return $1;
  53. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  54. }, function($ctx1) {$ctx1.fill(self,"commandLineSwitches",{switches:switches},$globals.AmberCli.klass)});
  55. //>>excludeEnd("ctx");
  56. },
  57. //>>excludeStart("ide", pragmas.excludeIdeData);
  58. args: [],
  59. source: "commandLineSwitches\x0a\x09\x22Collect all methodnames from the 'commands' protocol of the class\x0a\x09 and select the ones with only one parameter.\x0a\x09 Then remove the ':' at the end of the name.\x0a\x09 Additionally all uppercase letters are made lowercase and preceded by a '-'.\x0a\x09 Example: fallbackPage: becomes --fallback-page.\x0a\x09 Return the Array containing the commandline switches.\x22\x0a\x09| switches |\x0a\x09switches := ((self class methodsInProtocol: 'commands') collect: [ :each | each selector]).\x0a\x09switches := switches select: [ :each | each match: '^[^:]*:$'].\x0a\x09switches :=switches collect: [ :each |\x0a\x09\x09(each allButLast replace: '([A-Z])' with: '-$1') asLowercase].\x0a\x09^ switches",
  60. referencedClasses: [],
  61. //>>excludeEnd("ide");
  62. messageSends: ["collect:", "methodsInProtocol:", "class", "selector", "select:", "match:", "asLowercase", "replace:with:", "allButLast"]
  63. }),
  64. $globals.AmberCli.klass);
  65. $core.addMethod(
  66. $core.method({
  67. selector: "config:",
  68. protocol: 'commands',
  69. fn: function (args){
  70. var self=this;
  71. function $Configurator(){return $globals.Configurator||(typeof Configurator=="undefined"?nil:Configurator)}
  72. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  73. return $core.withContext(function($ctx1) {
  74. //>>excludeEnd("ctx");
  75. $recv($recv($Configurator())._new())._start();
  76. return self;
  77. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  78. }, function($ctx1) {$ctx1.fill(self,"config:",{args:args},$globals.AmberCli.klass)});
  79. //>>excludeEnd("ctx");
  80. },
  81. //>>excludeStart("ide", pragmas.excludeIdeData);
  82. args: ["args"],
  83. source: "config: args\x0a\x09Configurator new start",
  84. referencedClasses: ["Configurator"],
  85. //>>excludeEnd("ide");
  86. messageSends: ["start", "new"]
  87. }),
  88. $globals.AmberCli.klass);
  89. $core.addMethod(
  90. $core.method({
  91. selector: "handleArguments:",
  92. protocol: 'commandline',
  93. fn: function (args){
  94. var self=this;
  95. var selector;
  96. function $Array(){return $globals.Array||(typeof Array=="undefined"?nil:Array)}
  97. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  98. return $core.withContext(function($ctx1) {
  99. //>>excludeEnd("ctx");
  100. var $1;
  101. $1=$recv(args)._first();
  102. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  103. $ctx1.sendIdx["first"]=1;
  104. //>>excludeEnd("ctx");
  105. selector=self._selectorForCommandLineSwitch_($1);
  106. $recv(args)._remove_($recv(args)._first());
  107. self._perform_withArguments_(selector,$recv($Array())._with_(args));
  108. return self;
  109. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  110. }, function($ctx1) {$ctx1.fill(self,"handleArguments:",{args:args,selector:selector},$globals.AmberCli.klass)});
  111. //>>excludeEnd("ctx");
  112. },
  113. //>>excludeStart("ide", pragmas.excludeIdeData);
  114. args: ["args"],
  115. source: "handleArguments: args\x0a\x09| selector |\x0a\x0a\x09selector := self selectorForCommandLineSwitch: (args first).\x0a\x09args remove: args first.\x0a\x09self perform: selector withArguments: (Array with: args)",
  116. referencedClasses: ["Array"],
  117. //>>excludeEnd("ide");
  118. messageSends: ["selectorForCommandLineSwitch:", "first", "remove:", "perform:withArguments:", "with:"]
  119. }),
  120. $globals.AmberCli.klass);
  121. $core.addMethod(
  122. $core.method({
  123. selector: "help:",
  124. protocol: 'commands',
  125. fn: function (args){
  126. var self=this;
  127. function $Transcript(){return $globals.Transcript||(typeof Transcript=="undefined"?nil:Transcript)}
  128. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  129. return $core.withContext(function($ctx1) {
  130. //>>excludeEnd("ctx");
  131. $recv($Transcript())._show_("Available commands");
  132. $recv(self._commandLineSwitches())._do_((function(each){
  133. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  134. return $core.withContext(function($ctx2) {
  135. //>>excludeEnd("ctx");
  136. return $recv(console)._log_(each);
  137. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  138. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  139. //>>excludeEnd("ctx");
  140. }));
  141. return self;
  142. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  143. }, function($ctx1) {$ctx1.fill(self,"help:",{args:args},$globals.AmberCli.klass)});
  144. //>>excludeEnd("ctx");
  145. },
  146. //>>excludeStart("ide", pragmas.excludeIdeData);
  147. args: ["args"],
  148. source: "help: args\x0a\x09Transcript show: 'Available commands'.\x0a\x09self commandLineSwitches do: [ :each | console log: each ]",
  149. referencedClasses: ["Transcript"],
  150. //>>excludeEnd("ide");
  151. messageSends: ["show:", "do:", "commandLineSwitches", "log:"]
  152. }),
  153. $globals.AmberCli.klass);
  154. $core.addMethod(
  155. $core.method({
  156. selector: "init:",
  157. protocol: 'commands',
  158. fn: function (args){
  159. var self=this;
  160. function $Initer(){return $globals.Initer||(typeof Initer=="undefined"?nil:Initer)}
  161. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  162. return $core.withContext(function($ctx1) {
  163. //>>excludeEnd("ctx");
  164. $recv($recv($Initer())._new())._start();
  165. return self;
  166. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  167. }, function($ctx1) {$ctx1.fill(self,"init:",{args:args},$globals.AmberCli.klass)});
  168. //>>excludeEnd("ctx");
  169. },
  170. //>>excludeStart("ide", pragmas.excludeIdeData);
  171. args: ["args"],
  172. source: "init: args\x0a\x09Initer new start",
  173. referencedClasses: ["Initer"],
  174. //>>excludeEnd("ide");
  175. messageSends: ["start", "new"]
  176. }),
  177. $globals.AmberCli.klass);
  178. $core.addMethod(
  179. $core.method({
  180. selector: "main",
  181. protocol: 'startup',
  182. fn: function (){
  183. var self=this;
  184. var args;
  185. function $Transcript(){return $globals.Transcript||(typeof Transcript=="undefined"?nil:Transcript)}
  186. function $Smalltalk(){return $globals.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
  187. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  188. return $core.withContext(function($ctx1) {
  189. //>>excludeEnd("ctx");
  190. var $3,$2,$1,$4,$5;
  191. $3=$recv("Welcome to Amber version ".__comma($recv($Smalltalk())._version())).__comma(" (NodeJS ");
  192. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  193. $ctx1.sendIdx[","]=3;
  194. //>>excludeEnd("ctx");
  195. $2=$recv($3).__comma($recv($recv(process)._versions())._node());
  196. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  197. $ctx1.sendIdx[","]=2;
  198. //>>excludeEnd("ctx");
  199. $1=$recv($2).__comma(").");
  200. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  201. $ctx1.sendIdx[","]=1;
  202. //>>excludeEnd("ctx");
  203. $recv($Transcript())._show_($1);
  204. args=$recv(process)._argv();
  205. $recv(args)._removeFrom_to_((1),(2));
  206. $4=$recv(args)._isEmpty();
  207. if($core.assert($4)){
  208. self._help_(nil);
  209. } else {
  210. $5=self._handleArguments_(args);
  211. return $5;
  212. };
  213. return self;
  214. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  215. }, function($ctx1) {$ctx1.fill(self,"main",{args:args},$globals.AmberCli.klass)});
  216. //>>excludeEnd("ctx");
  217. },
  218. //>>excludeStart("ide", pragmas.excludeIdeData);
  219. args: [],
  220. source: "main\x0a\x09\x22Main entry point for Amber applications.\x0a\x09Parses commandline arguments and starts the according subprogram.\x22\x0a\x09| args |\x0a\x09\x0a\x09Transcript show: 'Welcome to Amber version ', Smalltalk version, ' (NodeJS ', process versions node, ').'.\x0a\x0a\x09args := process argv.\x0a\x09\x22Remove the first args which contain the path to the node executable and the script file.\x22\x0a\x09args removeFrom: 1 to: 2.\x0a\x09\x0a\x09(args isEmpty)\x0a\x09\x09ifTrue: [self help: nil]\x0a\x09\x09ifFalse: [^self handleArguments: args]",
  221. referencedClasses: ["Transcript", "Smalltalk"],
  222. //>>excludeEnd("ide");
  223. messageSends: ["show:", ",", "version", "node", "versions", "argv", "removeFrom:to:", "ifTrue:ifFalse:", "isEmpty", "help:", "handleArguments:"]
  224. }),
  225. $globals.AmberCli.klass);
  226. $core.addMethod(
  227. $core.method({
  228. selector: "repl:",
  229. protocol: 'commands',
  230. fn: function (args){
  231. var self=this;
  232. function $Repl(){return $globals.Repl||(typeof Repl=="undefined"?nil:Repl)}
  233. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  234. return $core.withContext(function($ctx1) {
  235. //>>excludeEnd("ctx");
  236. var $1;
  237. $1=$recv($recv($Repl())._new())._createInterface();
  238. return $1;
  239. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  240. }, function($ctx1) {$ctx1.fill(self,"repl:",{args:args},$globals.AmberCli.klass)});
  241. //>>excludeEnd("ctx");
  242. },
  243. //>>excludeStart("ide", pragmas.excludeIdeData);
  244. args: ["args"],
  245. source: "repl: args\x0a\x09^ Repl new createInterface",
  246. referencedClasses: ["Repl"],
  247. //>>excludeEnd("ide");
  248. messageSends: ["createInterface", "new"]
  249. }),
  250. $globals.AmberCli.klass);
  251. $core.addMethod(
  252. $core.method({
  253. selector: "selectorForCommandLineSwitch:",
  254. protocol: 'commandline',
  255. fn: function (aSwitch){
  256. var self=this;
  257. var command,selector;
  258. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  259. return $core.withContext(function($ctx1) {
  260. //>>excludeEnd("ctx");
  261. var $1,$2;
  262. $1=$recv(self._commandLineSwitches())._includes_(aSwitch);
  263. if($core.assert($1)){
  264. selector=$recv($recv(aSwitch)._replace_with_("-[a-z]",(function(each){
  265. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  266. return $core.withContext(function($ctx2) {
  267. //>>excludeEnd("ctx");
  268. return $recv($recv(each)._second())._asUppercase();
  269. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  270. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,2)});
  271. //>>excludeEnd("ctx");
  272. }))).__comma(":");
  273. selector;
  274. } else {
  275. selector="help:";
  276. selector;
  277. };
  278. $2=selector;
  279. return $2;
  280. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  281. }, function($ctx1) {$ctx1.fill(self,"selectorForCommandLineSwitch:",{aSwitch:aSwitch,command:command,selector:selector},$globals.AmberCli.klass)});
  282. //>>excludeEnd("ctx");
  283. },
  284. //>>excludeStart("ide", pragmas.excludeIdeData);
  285. args: ["aSwitch"],
  286. source: "selectorForCommandLineSwitch: aSwitch\x0a\x09\x22Add ':' at the end and replace all occurences of a lowercase letter preceded by a '-' with the Uppercase letter.\x0a\x09 Example: fallback-page becomes fallbackPage:.\x0a\x09 If no correct selector is found return 'help:'\x22\x0a\x09 | command selector |\x0a\x0a\x09 (self commandLineSwitches includes: aSwitch)\x0a\x09 ifTrue: [ selector := (aSwitch replace: '-[a-z]' with: [ :each | each second asUppercase ]), ':']\x0a\x09 ifFalse: [ selector := 'help:' ].\x0a\x09^ selector",
  287. referencedClasses: [],
  288. //>>excludeEnd("ide");
  289. messageSends: ["ifTrue:ifFalse:", "includes:", "commandLineSwitches", ",", "replace:with:", "asUppercase", "second"]
  290. }),
  291. $globals.AmberCli.klass);
  292. $core.addMethod(
  293. $core.method({
  294. selector: "serve:",
  295. protocol: 'commands',
  296. fn: function (args){
  297. var self=this;
  298. function $FileServer(){return $globals.FileServer||(typeof FileServer=="undefined"?nil:FileServer)}
  299. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  300. return $core.withContext(function($ctx1) {
  301. //>>excludeEnd("ctx");
  302. var $1;
  303. $1=$recv($recv($FileServer())._createServerWithArguments_(args))._start();
  304. return $1;
  305. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  306. }, function($ctx1) {$ctx1.fill(self,"serve:",{args:args},$globals.AmberCli.klass)});
  307. //>>excludeEnd("ctx");
  308. },
  309. //>>excludeStart("ide", pragmas.excludeIdeData);
  310. args: ["args"],
  311. source: "serve: args\x0a\x09^ (FileServer createServerWithArguments: args) start",
  312. referencedClasses: ["FileServer"],
  313. //>>excludeEnd("ide");
  314. messageSends: ["start", "createServerWithArguments:"]
  315. }),
  316. $globals.AmberCli.klass);
  317. $core.addMethod(
  318. $core.method({
  319. selector: "version:",
  320. protocol: 'commands',
  321. fn: function (arguments_){
  322. var self=this;
  323. return self;
  324. },
  325. //>>excludeStart("ide", pragmas.excludeIdeData);
  326. args: ["arguments"],
  327. source: "version: arguments",
  328. referencedClasses: [],
  329. //>>excludeEnd("ide");
  330. messageSends: []
  331. }),
  332. $globals.AmberCli.klass);
  333. $core.addClass('BaseFileManipulator', $globals.Object, ['path', 'fs'], 'AmberCli');
  334. $core.addMethod(
  335. $core.method({
  336. selector: "dirname",
  337. protocol: 'private',
  338. fn: function (){
  339. var self=this;
  340. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  341. return $core.withContext(function($ctx1) {
  342. //>>excludeEnd("ctx");
  343. return __dirname;
  344. return self;
  345. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  346. }, function($ctx1) {$ctx1.fill(self,"dirname",{},$globals.BaseFileManipulator)});
  347. //>>excludeEnd("ctx");
  348. },
  349. //>>excludeStart("ide", pragmas.excludeIdeData);
  350. args: [],
  351. source: "dirname\x0a\x09<return __dirname>",
  352. referencedClasses: [],
  353. //>>excludeEnd("ide");
  354. messageSends: []
  355. }),
  356. $globals.BaseFileManipulator);
  357. $core.addMethod(
  358. $core.method({
  359. selector: "initialize",
  360. protocol: 'initialization',
  361. fn: function (){
  362. var self=this;
  363. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  364. return $core.withContext(function($ctx1) {
  365. //>>excludeEnd("ctx");
  366. (
  367. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  368. $ctx1.supercall = true,
  369. //>>excludeEnd("ctx");
  370. $globals.BaseFileManipulator.superclass.fn.prototype._initialize.apply($recv(self), []));
  371. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  372. $ctx1.supercall = false;
  373. //>>excludeEnd("ctx");;
  374. self["@path"]=$recv(require)._value_("path");
  375. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  376. $ctx1.sendIdx["value:"]=1;
  377. //>>excludeEnd("ctx");
  378. self["@fs"]=$recv(require)._value_("fs");
  379. return self;
  380. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  381. }, function($ctx1) {$ctx1.fill(self,"initialize",{},$globals.BaseFileManipulator)});
  382. //>>excludeEnd("ctx");
  383. },
  384. //>>excludeStart("ide", pragmas.excludeIdeData);
  385. args: [],
  386. source: "initialize\x0a\x09super initialize.\x0a\x09path := require value: 'path'.\x0a\x09fs := require value: 'fs'",
  387. referencedClasses: [],
  388. //>>excludeEnd("ide");
  389. messageSends: ["initialize", "value:"]
  390. }),
  391. $globals.BaseFileManipulator);
  392. $core.addMethod(
  393. $core.method({
  394. selector: "rootDirname",
  395. protocol: 'private',
  396. fn: function (){
  397. var self=this;
  398. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  399. return $core.withContext(function($ctx1) {
  400. //>>excludeEnd("ctx");
  401. var $1;
  402. $1=$recv(self["@path"])._join_with_(self._dirname(),"..");
  403. return $1;
  404. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  405. }, function($ctx1) {$ctx1.fill(self,"rootDirname",{},$globals.BaseFileManipulator)});
  406. //>>excludeEnd("ctx");
  407. },
  408. //>>excludeStart("ide", pragmas.excludeIdeData);
  409. args: [],
  410. source: "rootDirname\x0a\x09^ path join: self dirname with: '..'",
  411. referencedClasses: [],
  412. //>>excludeEnd("ide");
  413. messageSends: ["join:with:", "dirname"]
  414. }),
  415. $globals.BaseFileManipulator);
  416. $core.addClass('Configurator', $globals.BaseFileManipulator, [], 'AmberCli');
  417. $core.addMethod(
  418. $core.method({
  419. selector: "initialize",
  420. protocol: 'initialization',
  421. fn: function (){
  422. var self=this;
  423. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  424. return $core.withContext(function($ctx1) {
  425. //>>excludeEnd("ctx");
  426. (
  427. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  428. $ctx1.supercall = true,
  429. //>>excludeEnd("ctx");
  430. $globals.Configurator.superclass.fn.prototype._initialize.apply($recv(self), []));
  431. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  432. $ctx1.supercall = false;
  433. //>>excludeEnd("ctx");;
  434. return self;
  435. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  436. }, function($ctx1) {$ctx1.fill(self,"initialize",{},$globals.Configurator)});
  437. //>>excludeEnd("ctx");
  438. },
  439. //>>excludeStart("ide", pragmas.excludeIdeData);
  440. args: [],
  441. source: "initialize\x0a\x09super initialize",
  442. referencedClasses: [],
  443. //>>excludeEnd("ide");
  444. messageSends: ["initialize"]
  445. }),
  446. $globals.Configurator);
  447. $core.addMethod(
  448. $core.method({
  449. selector: "start",
  450. protocol: 'action',
  451. fn: function (){
  452. var self=this;
  453. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  454. return $core.withContext(function($ctx1) {
  455. //>>excludeEnd("ctx");
  456. var $receiver;
  457. self._writeConfigThenDo_((function(err){
  458. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  459. return $core.withContext(function($ctx2) {
  460. //>>excludeEnd("ctx");
  461. if(($receiver = err) == null || $receiver.isNil){
  462. return $recv(process)._exit();
  463. } else {
  464. return $recv(process)._exit_((111));
  465. };
  466. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  467. }, function($ctx2) {$ctx2.fillBlock({err:err},$ctx1,1)});
  468. //>>excludeEnd("ctx");
  469. }));
  470. return self;
  471. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  472. }, function($ctx1) {$ctx1.fill(self,"start",{},$globals.Configurator)});
  473. //>>excludeEnd("ctx");
  474. },
  475. //>>excludeStart("ide", pragmas.excludeIdeData);
  476. args: [],
  477. source: "start\x0a\x09self writeConfigThenDo: [ :err | err\x0a\x09\x09ifNotNil: [ process exit: 111 ]\x0a\x09\x09ifNil: [ process exit ]]",
  478. referencedClasses: [],
  479. //>>excludeEnd("ide");
  480. messageSends: ["writeConfigThenDo:", "ifNotNil:ifNil:", "exit:", "exit"]
  481. }),
  482. $globals.Configurator);
  483. $core.addMethod(
  484. $core.method({
  485. selector: "writeConfigThenDo:",
  486. protocol: 'action',
  487. fn: function (aBlock){
  488. var self=this;
  489. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  490. return $core.withContext(function($ctx1) {
  491. //>>excludeEnd("ctx");
  492. $recv($recv(require)._value_("amber-dev/lib/config"))._writeConfig_toFile_thenDo_($recv(process)._cwd(),"config.js",aBlock);
  493. return self;
  494. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  495. }, function($ctx1) {$ctx1.fill(self,"writeConfigThenDo:",{aBlock:aBlock},$globals.Configurator)});
  496. //>>excludeEnd("ctx");
  497. },
  498. //>>excludeStart("ide", pragmas.excludeIdeData);
  499. args: ["aBlock"],
  500. source: "writeConfigThenDo: aBlock\x0a\x09(require value: 'amber-dev/lib/config')\x0a\x09\x09writeConfig: process cwd\x0a\x09\x09toFile: 'config.js'\x0a\x09\x09thenDo: aBlock",
  501. referencedClasses: [],
  502. //>>excludeEnd("ide");
  503. messageSends: ["writeConfig:toFile:thenDo:", "value:", "cwd"]
  504. }),
  505. $globals.Configurator);
  506. $core.addClass('FileServer', $globals.BaseFileManipulator, ['http', 'url', 'host', 'port', 'basePath', 'util', 'username', 'password', 'fallbackPage'], 'AmberCli');
  507. //>>excludeStart("ide", pragmas.excludeIdeData);
  508. $globals.FileServer.comment="I am the Amber Smalltalk FileServer.\x0aMy runtime requirement is a functional Node.js executable.\x0a\x0aTo start a FileServer instance on port `4000` use the following code:\x0a\x0a FileServer new start\x0a\x0aA parameterized instance can be created with the following code:\x0a\x0a FileServer createServerWithArguments: options\x0a\x0aHere, `options` is an array of commandline style strings each followed by a value e.g. `#('--port', '6000', '--host', '0.0.0.0')`.\x0aA list of all available parameters can be printed to the commandline by passing `--help` as parameter.\x0aSee the `Options` section for further details on how options are mapped to instance methods.\x0a\x0aAfter startup FileServer checks if the directory layout required by Amber is present and logs a warning on absence.\x0a\x0a\x0a## Options\x0a\x0aEach option is of the form `--some-option-string` which is transformed into a selector of the format `someOptionString:`.\x0aThe trailing `--` gets removed, each `-[a-z]` gets transformed into the according uppercase letter, and a `:` is appended to create a selector which takes a single argument.\x0aAfterwards, the selector gets executed on the `FileServer` instance with the value following in the options array as parameter.\x0a\x0a## Adding new commandline parameters\x0a\x0aAdding new commandline parameters to `FileServer` is as easy as adding a new single parameter method to the `accessing` protocol.";
  509. //>>excludeEnd("ide");
  510. $core.addMethod(
  511. $core.method({
  512. selector: "base64Decode:",
  513. protocol: 'private',
  514. fn: function (aString){
  515. var self=this;
  516. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  517. return $core.withContext(function($ctx1) {
  518. //>>excludeEnd("ctx");
  519. return (new Buffer(aString, 'base64').toString());
  520. return self;
  521. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  522. }, function($ctx1) {$ctx1.fill(self,"base64Decode:",{aString:aString},$globals.FileServer)});
  523. //>>excludeEnd("ctx");
  524. },
  525. //>>excludeStart("ide", pragmas.excludeIdeData);
  526. args: ["aString"],
  527. source: "base64Decode: aString\x0a\x09<return (new Buffer(aString, 'base64').toString())>",
  528. referencedClasses: [],
  529. //>>excludeEnd("ide");
  530. messageSends: []
  531. }),
  532. $globals.FileServer);
  533. $core.addMethod(
  534. $core.method({
  535. selector: "basePath",
  536. protocol: 'accessing',
  537. fn: function (){
  538. var self=this;
  539. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  540. return $core.withContext(function($ctx1) {
  541. //>>excludeEnd("ctx");
  542. var $2,$1,$receiver;
  543. $2=self["@basePath"];
  544. if(($receiver = $2) == null || $receiver.isNil){
  545. $1=$recv(self._class())._defaultBasePath();
  546. } else {
  547. $1=$2;
  548. };
  549. return $1;
  550. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  551. }, function($ctx1) {$ctx1.fill(self,"basePath",{},$globals.FileServer)});
  552. //>>excludeEnd("ctx");
  553. },
  554. //>>excludeStart("ide", pragmas.excludeIdeData);
  555. args: [],
  556. source: "basePath\x0a\x09^ basePath ifNil: [self class defaultBasePath]",
  557. referencedClasses: [],
  558. //>>excludeEnd("ide");
  559. messageSends: ["ifNil:", "defaultBasePath", "class"]
  560. }),
  561. $globals.FileServer);
  562. $core.addMethod(
  563. $core.method({
  564. selector: "basePath:",
  565. protocol: 'accessing',
  566. fn: function (aString){
  567. var self=this;
  568. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  569. return $core.withContext(function($ctx1) {
  570. //>>excludeEnd("ctx");
  571. self["@basePath"]=aString;
  572. self._validateBasePath();
  573. return self;
  574. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  575. }, function($ctx1) {$ctx1.fill(self,"basePath:",{aString:aString},$globals.FileServer)});
  576. //>>excludeEnd("ctx");
  577. },
  578. //>>excludeStart("ide", pragmas.excludeIdeData);
  579. args: ["aString"],
  580. source: "basePath: aString\x0a\x09basePath := aString.\x0a\x09self validateBasePath.",
  581. referencedClasses: [],
  582. //>>excludeEnd("ide");
  583. messageSends: ["validateBasePath"]
  584. }),
  585. $globals.FileServer);
  586. $core.addMethod(
  587. $core.method({
  588. selector: "checkDirectoryLayout",
  589. protocol: 'initialization',
  590. fn: function (){
  591. var self=this;
  592. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  593. return $core.withContext(function($ctx1) {
  594. //>>excludeEnd("ctx");
  595. var $1;
  596. $1=$recv(self["@fs"])._existsSync_(self._withBasePath_("index.html"));
  597. if(!$core.assert($1)){
  598. $recv(console)._warn_("Warning: project directory does not contain index.html.");
  599. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  600. $ctx1.sendIdx["warn:"]=1;
  601. //>>excludeEnd("ctx");
  602. $recv(console)._warn_(" You can specify the directory containing index.html with --base-path.");
  603. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  604. $ctx1.sendIdx["warn:"]=2;
  605. //>>excludeEnd("ctx");
  606. $recv(console)._warn_(" You can also specify a page to be served by default,");
  607. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  608. $ctx1.sendIdx["warn:"]=3;
  609. //>>excludeEnd("ctx");
  610. $recv(console)._warn_(" for all paths that do not map to a file, with --fallback-page.");
  611. };
  612. return self;
  613. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  614. }, function($ctx1) {$ctx1.fill(self,"checkDirectoryLayout",{},$globals.FileServer)});
  615. //>>excludeEnd("ctx");
  616. },
  617. //>>excludeStart("ide", pragmas.excludeIdeData);
  618. args: [],
  619. source: "checkDirectoryLayout\x0a\x09(fs existsSync:\x09(self withBasePath: 'index.html')) ifFalse: [\x0a\x09\x09console warn: 'Warning: project directory does not contain index.html.'.\x0a\x09\x09console warn: ' You can specify the directory containing index.html with --base-path.'.\x0a\x09\x09console warn: ' You can also specify a page to be served by default,'.\x0a\x09\x09console warn: ' for all paths that do not map to a file, with --fallback-page.'].",
  620. referencedClasses: [],
  621. //>>excludeEnd("ide");
  622. messageSends: ["ifFalse:", "existsSync:", "withBasePath:", "warn:"]
  623. }),
  624. $globals.FileServer);
  625. $core.addMethod(
  626. $core.method({
  627. selector: "fallbackPage",
  628. protocol: 'accessing',
  629. fn: function (){
  630. var self=this;
  631. var $1;
  632. $1=self["@fallbackPage"];
  633. return $1;
  634. },
  635. //>>excludeStart("ide", pragmas.excludeIdeData);
  636. args: [],
  637. source: "fallbackPage\x0a\x09^ fallbackPage",
  638. referencedClasses: [],
  639. //>>excludeEnd("ide");
  640. messageSends: []
  641. }),
  642. $globals.FileServer);
  643. $core.addMethod(
  644. $core.method({
  645. selector: "fallbackPage:",
  646. protocol: 'accessing',
  647. fn: function (aString){
  648. var self=this;
  649. self["@fallbackPage"]=aString;
  650. return self;
  651. },
  652. //>>excludeStart("ide", pragmas.excludeIdeData);
  653. args: ["aString"],
  654. source: "fallbackPage: aString\x0a\x09fallbackPage := aString",
  655. referencedClasses: [],
  656. //>>excludeEnd("ide");
  657. messageSends: []
  658. }),
  659. $globals.FileServer);
  660. $core.addMethod(
  661. $core.method({
  662. selector: "handleGETRequest:respondTo:",
  663. protocol: 'request handling',
  664. fn: function (aRequest,aResponse){
  665. var self=this;
  666. var uri,filename;
  667. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  668. return $core.withContext(function($ctx1) {
  669. //>>excludeEnd("ctx");
  670. var $1;
  671. uri=$recv(self["@url"])._parse_($recv(aRequest)._url());
  672. filename=$recv(self["@path"])._join_with_(self._basePath(),$recv(uri)._pathname());
  673. $recv(self["@fs"])._exists_do_(filename,(function(aBoolean){
  674. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  675. return $core.withContext(function($ctx2) {
  676. //>>excludeEnd("ctx");
  677. if($core.assert(aBoolean)){
  678. $1=$recv($recv(self["@fs"])._statSync_(filename))._isDirectory();
  679. if($core.assert($1)){
  680. return self._respondDirectoryNamed_from_to_(filename,uri,aResponse);
  681. } else {
  682. return self._respondFileNamed_to_(filename,aResponse);
  683. };
  684. } else {
  685. return self._respondNotFoundTo_(aResponse);
  686. };
  687. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  688. }, function($ctx2) {$ctx2.fillBlock({aBoolean:aBoolean},$ctx1,1)});
  689. //>>excludeEnd("ctx");
  690. }));
  691. return self;
  692. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  693. }, function($ctx1) {$ctx1.fill(self,"handleGETRequest:respondTo:",{aRequest:aRequest,aResponse:aResponse,uri:uri,filename:filename},$globals.FileServer)});
  694. //>>excludeEnd("ctx");
  695. },
  696. //>>excludeStart("ide", pragmas.excludeIdeData);
  697. args: ["aRequest", "aResponse"],
  698. source: "handleGETRequest: aRequest respondTo: aResponse\x0a\x09| uri filename |\x0a\x09uri := url parse: aRequest url.\x0a\x09filename := path join: self basePath with: uri pathname.\x0a\x09fs exists: filename do: [:aBoolean |\x0a\x09\x09aBoolean\x0a\x09\x09\x09ifFalse: [self respondNotFoundTo: aResponse]\x0a\x09\x09\x09ifTrue: [(fs statSync: filename) isDirectory\x0a\x09\x09\x09\x09ifTrue: [self respondDirectoryNamed: filename from: uri to: aResponse]\x0a\x09\x09\x09\x09ifFalse: [self respondFileNamed: filename to: aResponse]]]",
  699. referencedClasses: [],
  700. //>>excludeEnd("ide");
  701. messageSends: ["parse:", "url", "join:with:", "basePath", "pathname", "exists:do:", "ifFalse:ifTrue:", "respondNotFoundTo:", "ifTrue:ifFalse:", "isDirectory", "statSync:", "respondDirectoryNamed:from:to:", "respondFileNamed:to:"]
  702. }),
  703. $globals.FileServer);
  704. $core.addMethod(
  705. $core.method({
  706. selector: "handleOPTIONSRequest:respondTo:",
  707. protocol: 'request handling',
  708. fn: function (aRequest,aResponse){
  709. var self=this;
  710. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  711. return $core.withContext(function($ctx1) {
  712. //>>excludeEnd("ctx");
  713. $recv(aResponse)._writeHead_options_((200),$globals.HashedCollection._newFromPairs_(["Access-Control-Allow-Origin","*","Access-Control-Allow-Methods","GET, PUT, POST, DELETE, OPTIONS","Access-Control-Allow-Headers","Content-Type, Accept","Content-Length",(0),"Access-Control-Max-Age",(10)]));
  714. $recv(aResponse)._end();
  715. return self;
  716. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  717. }, function($ctx1) {$ctx1.fill(self,"handleOPTIONSRequest:respondTo:",{aRequest:aRequest,aResponse:aResponse},$globals.FileServer)});
  718. //>>excludeEnd("ctx");
  719. },
  720. //>>excludeStart("ide", pragmas.excludeIdeData);
  721. args: ["aRequest", "aResponse"],
  722. source: "handleOPTIONSRequest: aRequest respondTo: aResponse\x0a\x09aResponse writeHead: 200 options: #{'Access-Control-Allow-Origin' -> '*'.\x0a\x09\x09\x09\x09\x09'Access-Control-Allow-Methods' -> 'GET, PUT, POST, DELETE, OPTIONS'.\x0a\x09\x09\x09\x09\x09'Access-Control-Allow-Headers' -> 'Content-Type, Accept'.\x0a\x09\x09\x09\x09\x09'Content-Length' -> 0.\x0a\x09\x09\x09\x09\x09'Access-Control-Max-Age' -> 10}.\x0a\x09aResponse end",
  723. referencedClasses: [],
  724. //>>excludeEnd("ide");
  725. messageSends: ["writeHead:options:", "end"]
  726. }),
  727. $globals.FileServer);
  728. $core.addMethod(
  729. $core.method({
  730. selector: "handlePUTRequest:respondTo:",
  731. protocol: 'request handling',
  732. fn: function (aRequest,aResponse){
  733. var self=this;
  734. var file,stream;
  735. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  736. return $core.withContext(function($ctx1) {
  737. //>>excludeEnd("ctx");
  738. var $1,$2,$3,$4;
  739. $1=self._isAuthenticated_(aRequest);
  740. if(!$core.assert($1)){
  741. self._respondAuthenticationRequiredTo_(aResponse);
  742. return nil;
  743. };
  744. file=".".__comma($recv(aRequest)._url());
  745. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  746. $ctx1.sendIdx[","]=1;
  747. //>>excludeEnd("ctx");
  748. stream=$recv(self["@fs"])._createWriteStream_(file);
  749. $recv(stream)._on_do_("error",(function(error){
  750. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  751. return $core.withContext(function($ctx2) {
  752. //>>excludeEnd("ctx");
  753. $2=console;
  754. $3="Error creating WriteStream for file ".__comma(file);
  755. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  756. $ctx2.sendIdx[","]=2;
  757. //>>excludeEnd("ctx");
  758. $recv($2)._warn_($3);
  759. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  760. $ctx2.sendIdx["warn:"]=1;
  761. //>>excludeEnd("ctx");
  762. $recv(console)._warn_(" Did you forget to create the necessary directory in your project (often /src)?");
  763. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  764. $ctx2.sendIdx["warn:"]=2;
  765. //>>excludeEnd("ctx");
  766. $recv(console)._warn_(" The exact error is: ".__comma(error));
  767. return self._respondNotCreatedTo_(aResponse);
  768. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  769. }, function($ctx2) {$ctx2.fillBlock({error:error},$ctx1,2)});
  770. //>>excludeEnd("ctx");
  771. }));
  772. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  773. $ctx1.sendIdx["on:do:"]=1;
  774. //>>excludeEnd("ctx");
  775. $recv(stream)._on_do_("close",(function(){
  776. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  777. return $core.withContext(function($ctx2) {
  778. //>>excludeEnd("ctx");
  779. return self._respondCreatedTo_(aResponse);
  780. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  781. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)});
  782. //>>excludeEnd("ctx");
  783. }));
  784. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  785. $ctx1.sendIdx["on:do:"]=2;
  786. //>>excludeEnd("ctx");
  787. $recv(aRequest)._setEncoding_("utf8");
  788. $recv(aRequest)._on_do_("data",(function(data){
  789. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  790. return $core.withContext(function($ctx2) {
  791. //>>excludeEnd("ctx");
  792. return $recv(stream)._write_(data);
  793. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  794. }, function($ctx2) {$ctx2.fillBlock({data:data},$ctx1,4)});
  795. //>>excludeEnd("ctx");
  796. }));
  797. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  798. $ctx1.sendIdx["on:do:"]=3;
  799. //>>excludeEnd("ctx");
  800. $recv(aRequest)._on_do_("end",(function(){
  801. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  802. return $core.withContext(function($ctx2) {
  803. //>>excludeEnd("ctx");
  804. $4=$recv(stream)._writable();
  805. if($core.assert($4)){
  806. return $recv(stream)._end();
  807. };
  808. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  809. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,5)});
  810. //>>excludeEnd("ctx");
  811. }));
  812. return self;
  813. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  814. }, function($ctx1) {$ctx1.fill(self,"handlePUTRequest:respondTo:",{aRequest:aRequest,aResponse:aResponse,file:file,stream:stream},$globals.FileServer)});
  815. //>>excludeEnd("ctx");
  816. },
  817. //>>excludeStart("ide", pragmas.excludeIdeData);
  818. args: ["aRequest", "aResponse"],
  819. source: "handlePUTRequest: aRequest respondTo: aResponse\x0a\x09| file stream |\x0a\x09(self isAuthenticated: aRequest)\x0a\x09\x09ifFalse: [self respondAuthenticationRequiredTo: aResponse. ^ nil].\x0a\x0a\x09file := '.', aRequest url.\x0a\x09stream := fs createWriteStream: file.\x0a\x0a\x09stream on: 'error' do: [:error |\x0a\x09\x09console warn: 'Error creating WriteStream for file ', file.\x0a\x09\x09console warn: ' Did you forget to create the necessary directory in your project (often /src)?'.\x0a\x09\x09console warn: ' The exact error is: ', error.\x0a\x09\x09self respondNotCreatedTo: aResponse].\x0a\x0a\x09stream on: 'close' do: [\x0a\x09\x09self respondCreatedTo: aResponse].\x0a\x0a\x09aRequest setEncoding: 'utf8'.\x0a\x09aRequest on: 'data' do: [:data |\x0a\x09\x09stream write: data].\x0a\x0a\x09aRequest on: 'end' do: [\x0a\x09\x09stream writable ifTrue: [stream end]]",
  820. referencedClasses: [],
  821. //>>excludeEnd("ide");
  822. messageSends: ["ifFalse:", "isAuthenticated:", "respondAuthenticationRequiredTo:", ",", "url", "createWriteStream:", "on:do:", "warn:", "respondNotCreatedTo:", "respondCreatedTo:", "setEncoding:", "write:", "ifTrue:", "writable", "end"]
  823. }),
  824. $globals.FileServer);
  825. $core.addMethod(
  826. $core.method({
  827. selector: "handleRequest:respondTo:",
  828. protocol: 'request handling',
  829. fn: function (aRequest,aResponse){
  830. var self=this;
  831. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  832. return $core.withContext(function($ctx1) {
  833. //>>excludeEnd("ctx");
  834. var $2,$1,$4,$3,$5;
  835. $2=$recv(aRequest)._method();
  836. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  837. $ctx1.sendIdx["method"]=1;
  838. //>>excludeEnd("ctx");
  839. $1=$recv($2).__eq("PUT");
  840. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  841. $ctx1.sendIdx["="]=1;
  842. //>>excludeEnd("ctx");
  843. if($core.assert($1)){
  844. self._handlePUTRequest_respondTo_(aRequest,aResponse);
  845. };
  846. $4=$recv(aRequest)._method();
  847. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  848. $ctx1.sendIdx["method"]=2;
  849. //>>excludeEnd("ctx");
  850. $3=$recv($4).__eq("GET");
  851. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  852. $ctx1.sendIdx["="]=2;
  853. //>>excludeEnd("ctx");
  854. if($core.assert($3)){
  855. self._handleGETRequest_respondTo_(aRequest,aResponse);
  856. };
  857. $5=$recv($recv(aRequest)._method()).__eq("OPTIONS");
  858. if($core.assert($5)){
  859. self._handleOPTIONSRequest_respondTo_(aRequest,aResponse);
  860. };
  861. return self;
  862. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  863. }, function($ctx1) {$ctx1.fill(self,"handleRequest:respondTo:",{aRequest:aRequest,aResponse:aResponse},$globals.FileServer)});
  864. //>>excludeEnd("ctx");
  865. },
  866. //>>excludeStart("ide", pragmas.excludeIdeData);
  867. args: ["aRequest", "aResponse"],
  868. source: "handleRequest: aRequest respondTo: aResponse\x0a\x09aRequest method = 'PUT'\x0a\x09\x09ifTrue: [self handlePUTRequest: aRequest respondTo: aResponse].\x0a\x09aRequest method = 'GET'\x0a\x09\x09ifTrue:[self handleGETRequest: aRequest respondTo: aResponse].\x0a\x09aRequest method = 'OPTIONS'\x0a\x09\x09ifTrue:[self handleOPTIONSRequest: aRequest respondTo: aResponse]",
  869. referencedClasses: [],
  870. //>>excludeEnd("ide");
  871. messageSends: ["ifTrue:", "=", "method", "handlePUTRequest:respondTo:", "handleGETRequest:respondTo:", "handleOPTIONSRequest:respondTo:"]
  872. }),
  873. $globals.FileServer);
  874. $core.addMethod(
  875. $core.method({
  876. selector: "host",
  877. protocol: 'accessing',
  878. fn: function (){
  879. var self=this;
  880. var $1;
  881. $1=self["@host"];
  882. return $1;
  883. },
  884. //>>excludeStart("ide", pragmas.excludeIdeData);
  885. args: [],
  886. source: "host\x0a\x09^ host",
  887. referencedClasses: [],
  888. //>>excludeEnd("ide");
  889. messageSends: []
  890. }),
  891. $globals.FileServer);
  892. $core.addMethod(
  893. $core.method({
  894. selector: "host:",
  895. protocol: 'accessing',
  896. fn: function (hostname){
  897. var self=this;
  898. self["@host"]=hostname;
  899. return self;
  900. },
  901. //>>excludeStart("ide", pragmas.excludeIdeData);
  902. args: ["hostname"],
  903. source: "host: hostname\x0a\x09host := hostname",
  904. referencedClasses: [],
  905. //>>excludeEnd("ide");
  906. messageSends: []
  907. }),
  908. $globals.FileServer);
  909. $core.addMethod(
  910. $core.method({
  911. selector: "initialize",
  912. protocol: 'initialization',
  913. fn: function (){
  914. var self=this;
  915. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  916. return $core.withContext(function($ctx1) {
  917. //>>excludeEnd("ctx");
  918. var $1;
  919. (
  920. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  921. $ctx1.supercall = true,
  922. //>>excludeEnd("ctx");
  923. $globals.FileServer.superclass.fn.prototype._initialize.apply($recv(self), []));
  924. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  925. $ctx1.supercall = false;
  926. //>>excludeEnd("ctx");;
  927. self["@http"]=self._require_("http");
  928. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  929. $ctx1.sendIdx["require:"]=1;
  930. //>>excludeEnd("ctx");
  931. self["@util"]=self._require_("util");
  932. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  933. $ctx1.sendIdx["require:"]=2;
  934. //>>excludeEnd("ctx");
  935. self["@url"]=self._require_("url");
  936. $1=self._class();
  937. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  938. $ctx1.sendIdx["class"]=1;
  939. //>>excludeEnd("ctx");
  940. self["@host"]=$recv($1)._defaultHost();
  941. self["@port"]=$recv(self._class())._defaultPort();
  942. self["@username"]=nil;
  943. self["@password"]=nil;
  944. self["@fallbackPage"]=nil;
  945. return self;
  946. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  947. }, function($ctx1) {$ctx1.fill(self,"initialize",{},$globals.FileServer)});
  948. //>>excludeEnd("ctx");
  949. },
  950. //>>excludeStart("ide", pragmas.excludeIdeData);
  951. args: [],
  952. source: "initialize\x0a\x09super initialize.\x0a\x09http := self require: 'http'.\x0a\x09util := self require: 'util'.\x0a\x09url := self require: 'url'.\x0a\x09host := self class defaultHost.\x0a\x09port := self class defaultPort.\x0a\x09username := nil.\x0a\x09password := nil.\x0a\x09fallbackPage := nil.",
  953. referencedClasses: [],
  954. //>>excludeEnd("ide");
  955. messageSends: ["initialize", "require:", "defaultHost", "class", "defaultPort"]
  956. }),
  957. $globals.FileServer);
  958. $core.addMethod(
  959. $core.method({
  960. selector: "isAuthenticated:",
  961. protocol: 'private',
  962. fn: function (aRequest){
  963. var self=this;
  964. var header,token,auth,parts;
  965. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  966. return $core.withContext(function($ctx1) {
  967. //>>excludeEnd("ctx");
  968. var $2,$1,$3,$4,$5,$6,$9,$10,$8,$7,$receiver;
  969. $2=$recv(self["@username"])._isNil();
  970. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  971. $ctx1.sendIdx["isNil"]=1;
  972. //>>excludeEnd("ctx");
  973. $1=$recv($2)._and_((function(){
  974. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  975. return $core.withContext(function($ctx2) {
  976. //>>excludeEnd("ctx");
  977. return $recv(self["@password"])._isNil();
  978. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  979. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  980. //>>excludeEnd("ctx");
  981. }));
  982. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  983. $ctx1.sendIdx["and:"]=1;
  984. //>>excludeEnd("ctx");
  985. if($core.assert($1)){
  986. return true;
  987. };
  988. $3=$recv($recv(aRequest)._headers())._at_("authorization");
  989. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  990. $ctx1.sendIdx["at:"]=1;
  991. //>>excludeEnd("ctx");
  992. if(($receiver = $3) == null || $receiver.isNil){
  993. header="";
  994. } else {
  995. header=$3;
  996. };
  997. $4=$recv(header)._isEmpty();
  998. if($core.assert($4)){
  999. return false;
  1000. } else {
  1001. $5=$recv(header)._tokenize_(" ");
  1002. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1003. $ctx1.sendIdx["tokenize:"]=1;
  1004. //>>excludeEnd("ctx");
  1005. if(($receiver = $5) == null || $receiver.isNil){
  1006. token="";
  1007. } else {
  1008. token=$5;
  1009. };
  1010. token;
  1011. $6=$recv(token)._at_((2));
  1012. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1013. $ctx1.sendIdx["at:"]=2;
  1014. //>>excludeEnd("ctx");
  1015. auth=self._base64Decode_($6);
  1016. auth;
  1017. parts=$recv(auth)._tokenize_(":");
  1018. parts;
  1019. $9=self["@username"];
  1020. $10=$recv(parts)._at_((1));
  1021. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1022. $ctx1.sendIdx["at:"]=3;
  1023. //>>excludeEnd("ctx");
  1024. $8=$recv($9).__eq($10);
  1025. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1026. $ctx1.sendIdx["="]=1;
  1027. //>>excludeEnd("ctx");
  1028. $7=$recv($8)._and_((function(){
  1029. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1030. return $core.withContext(function($ctx2) {
  1031. //>>excludeEnd("ctx");
  1032. return $recv(self["@password"]).__eq($recv(parts)._at_((2)));
  1033. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1034. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,7)});
  1035. //>>excludeEnd("ctx");
  1036. }));
  1037. if($core.assert($7)){
  1038. return true;
  1039. } else {
  1040. return false;
  1041. };
  1042. };
  1043. return self;
  1044. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1045. }, function($ctx1) {$ctx1.fill(self,"isAuthenticated:",{aRequest:aRequest,header:header,token:token,auth:auth,parts:parts},$globals.FileServer)});
  1046. //>>excludeEnd("ctx");
  1047. },
  1048. //>>excludeStart("ide", pragmas.excludeIdeData);
  1049. args: ["aRequest"],
  1050. source: "isAuthenticated: aRequest\x0a\x09\x22Basic HTTP Auth: http://stackoverflow.com/a/5957629/293175\x0a\x09 and https://gist.github.com/1686663\x22\x0a\x09| header token auth parts|\x0a\x0a\x09(username isNil and: [password isNil]) ifTrue: [^ true].\x0a\x0a\x09\x22get authentication header\x22\x0a\x09header := (aRequest headers at: 'authorization') ifNil:[''].\x0a\x09(header isEmpty)\x0a\x09ifTrue: [^ false]\x0a\x09ifFalse: [\x0a\x09\x09\x22get authentication token\x22\x0a\x09\x09token := (header tokenize: ' ') ifNil:[''].\x0a\x09\x09\x22convert back from base64\x22\x0a\x09\x09auth := self base64Decode: (token at: 2).\x0a\x09\x09\x22split token at colon\x22\x0a\x09\x09parts := auth tokenize: ':'.\x0a\x0a\x09\x09((username = (parts at: 1)) and: [password = (parts at: 2)])\x0a\x09\x09\x09ifTrue: [^ true]\x0a\x09\x09\x09ifFalse: [^ false]\x0a\x09].",
  1051. referencedClasses: [],
  1052. //>>excludeEnd("ide");
  1053. messageSends: ["ifTrue:", "and:", "isNil", "ifNil:", "at:", "headers", "ifTrue:ifFalse:", "isEmpty", "tokenize:", "base64Decode:", "="]
  1054. }),
  1055. $globals.FileServer);
  1056. $core.addMethod(
  1057. $core.method({
  1058. selector: "password:",
  1059. protocol: 'accessing',
  1060. fn: function (aPassword){
  1061. var self=this;
  1062. self["@password"]=aPassword;
  1063. return self;
  1064. },
  1065. //>>excludeStart("ide", pragmas.excludeIdeData);
  1066. args: ["aPassword"],
  1067. source: "password: aPassword\x0a\x09password := aPassword.",
  1068. referencedClasses: [],
  1069. //>>excludeEnd("ide");
  1070. messageSends: []
  1071. }),
  1072. $globals.FileServer);
  1073. $core.addMethod(
  1074. $core.method({
  1075. selector: "port",
  1076. protocol: 'accessing',
  1077. fn: function (){
  1078. var self=this;
  1079. var $1;
  1080. $1=self["@port"];
  1081. return $1;
  1082. },
  1083. //>>excludeStart("ide", pragmas.excludeIdeData);
  1084. args: [],
  1085. source: "port\x0a\x09^ port",
  1086. referencedClasses: [],
  1087. //>>excludeEnd("ide");
  1088. messageSends: []
  1089. }),
  1090. $globals.FileServer);
  1091. $core.addMethod(
  1092. $core.method({
  1093. selector: "port:",
  1094. protocol: 'accessing',
  1095. fn: function (aNumber){
  1096. var self=this;
  1097. self["@port"]=aNumber;
  1098. return self;
  1099. },
  1100. //>>excludeStart("ide", pragmas.excludeIdeData);
  1101. args: ["aNumber"],
  1102. source: "port: aNumber\x0a\x09port := aNumber",
  1103. referencedClasses: [],
  1104. //>>excludeEnd("ide");
  1105. messageSends: []
  1106. }),
  1107. $globals.FileServer);
  1108. $core.addMethod(
  1109. $core.method({
  1110. selector: "require:",
  1111. protocol: 'private',
  1112. fn: function (aModuleString){
  1113. var self=this;
  1114. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1115. return $core.withContext(function($ctx1) {
  1116. //>>excludeEnd("ctx");
  1117. var $1;
  1118. $1=$recv(require)._value_(aModuleString);
  1119. return $1;
  1120. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1121. }, function($ctx1) {$ctx1.fill(self,"require:",{aModuleString:aModuleString},$globals.FileServer)});
  1122. //>>excludeEnd("ctx");
  1123. },
  1124. //>>excludeStart("ide", pragmas.excludeIdeData);
  1125. args: ["aModuleString"],
  1126. source: "require: aModuleString\x0a\x09\x22call to the require function\x22\x0a\x09^require value: aModuleString",
  1127. referencedClasses: [],
  1128. //>>excludeEnd("ide");
  1129. messageSends: ["value:"]
  1130. }),
  1131. $globals.FileServer);
  1132. $core.addMethod(
  1133. $core.method({
  1134. selector: "respondAuthenticationRequiredTo:",
  1135. protocol: 'request handling',
  1136. fn: function (aResponse){
  1137. var self=this;
  1138. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1139. return $core.withContext(function($ctx1) {
  1140. //>>excludeEnd("ctx");
  1141. var $1;
  1142. $recv(aResponse)._writeHead_options_((401),$globals.HashedCollection._newFromPairs_(["WWW-Authenticate","Basic realm=\x22Secured Developer Area\x22"]));
  1143. $recv(aResponse)._write_("<html><body>Authentication needed</body></html>");
  1144. $1=$recv(aResponse)._end();
  1145. return self;
  1146. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1147. }, function($ctx1) {$ctx1.fill(self,"respondAuthenticationRequiredTo:",{aResponse:aResponse},$globals.FileServer)});
  1148. //>>excludeEnd("ctx");
  1149. },
  1150. //>>excludeStart("ide", pragmas.excludeIdeData);
  1151. args: ["aResponse"],
  1152. source: "respondAuthenticationRequiredTo: aResponse\x0a\x09aResponse\x0a\x09\x09writeHead: 401 options: #{'WWW-Authenticate' -> 'Basic realm=\x22Secured Developer Area\x22'};\x0a\x09\x09write: '<html><body>Authentication needed</body></html>';\x0a\x09\x09end.",
  1153. referencedClasses: [],
  1154. //>>excludeEnd("ide");
  1155. messageSends: ["writeHead:options:", "write:", "end"]
  1156. }),
  1157. $globals.FileServer);
  1158. $core.addMethod(
  1159. $core.method({
  1160. selector: "respondCreatedTo:",
  1161. protocol: 'request handling',
  1162. fn: function (aResponse){
  1163. var self=this;
  1164. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1165. return $core.withContext(function($ctx1) {
  1166. //>>excludeEnd("ctx");
  1167. var $1;
  1168. $recv(aResponse)._writeHead_options_((201),$globals.HashedCollection._newFromPairs_(["Content-Type","text/plain","Access-Control-Allow-Origin","*"]));
  1169. $1=$recv(aResponse)._end();
  1170. return self;
  1171. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1172. }, function($ctx1) {$ctx1.fill(self,"respondCreatedTo:",{aResponse:aResponse},$globals.FileServer)});
  1173. //>>excludeEnd("ctx");
  1174. },
  1175. //>>excludeStart("ide", pragmas.excludeIdeData);
  1176. args: ["aResponse"],
  1177. source: "respondCreatedTo: aResponse\x0a\x09aResponse\x0a\x09\x09writeHead: 201 options: #{'Content-Type' -> 'text/plain'. 'Access-Control-Allow-Origin' -> '*'};\x0a\x09\x09end.",
  1178. referencedClasses: [],
  1179. //>>excludeEnd("ide");
  1180. messageSends: ["writeHead:options:", "end"]
  1181. }),
  1182. $globals.FileServer);
  1183. $core.addMethod(
  1184. $core.method({
  1185. selector: "respondDirectoryNamed:from:to:",
  1186. protocol: 'request handling',
  1187. fn: function (aDirname,aUrl,aResponse){
  1188. var self=this;
  1189. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1190. return $core.withContext(function($ctx1) {
  1191. //>>excludeEnd("ctx");
  1192. var $2,$1,$3,$5,$7,$6,$4,$receiver;
  1193. $2=$recv(aUrl)._pathname();
  1194. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1195. $ctx1.sendIdx["pathname"]=1;
  1196. //>>excludeEnd("ctx");
  1197. $1=$recv($2)._endsWith_("/");
  1198. if($core.assert($1)){
  1199. $3=$recv(aDirname).__comma("index.html");
  1200. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1201. $ctx1.sendIdx[","]=1;
  1202. //>>excludeEnd("ctx");
  1203. self._respondFileNamed_to_($3,aResponse);
  1204. } else {
  1205. $5=$recv($recv(aUrl)._pathname()).__comma("/");
  1206. $7=$recv(aUrl)._search();
  1207. if(($receiver = $7) == null || $receiver.isNil){
  1208. $6="";
  1209. } else {
  1210. $6=$7;
  1211. };
  1212. $4=$recv($5).__comma($6);
  1213. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1214. $ctx1.sendIdx[","]=2;
  1215. //>>excludeEnd("ctx");
  1216. self._respondRedirect_to_($4,aResponse);
  1217. };
  1218. return self;
  1219. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1220. }, function($ctx1) {$ctx1.fill(self,"respondDirectoryNamed:from:to:",{aDirname:aDirname,aUrl:aUrl,aResponse:aResponse},$globals.FileServer)});
  1221. //>>excludeEnd("ctx");
  1222. },
  1223. //>>excludeStart("ide", pragmas.excludeIdeData);
  1224. args: ["aDirname", "aUrl", "aResponse"],
  1225. source: "respondDirectoryNamed: aDirname from: aUrl to: aResponse\x0a\x09(aUrl pathname endsWith: '/')\x0a\x09\x09ifTrue: [self respondFileNamed: aDirname, 'index.html' to: aResponse]\x0a\x09\x09ifFalse: [self respondRedirect: aUrl pathname, '/', (aUrl search ifNil: ['']) to: aResponse]",
  1226. referencedClasses: [],
  1227. //>>excludeEnd("ide");
  1228. messageSends: ["ifTrue:ifFalse:", "endsWith:", "pathname", "respondFileNamed:to:", ",", "respondRedirect:to:", "ifNil:", "search"]
  1229. }),
  1230. $globals.FileServer);
  1231. $core.addMethod(
  1232. $core.method({
  1233. selector: "respondFileNamed:to:",
  1234. protocol: 'request handling',
  1235. fn: function (aFilename,aResponse){
  1236. var self=this;
  1237. var type,filename;
  1238. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1239. return $core.withContext(function($ctx1) {
  1240. //>>excludeEnd("ctx");
  1241. var $1,$2,$3,$4,$5;
  1242. filename=aFilename;
  1243. $recv(self["@fs"])._readFile_do_(filename,(function(ex,file){
  1244. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1245. return $core.withContext(function($ctx2) {
  1246. //>>excludeEnd("ctx");
  1247. $1=$recv(ex)._notNil();
  1248. if($core.assert($1)){
  1249. $2=console;
  1250. $3=$recv(filename).__comma(" does not exist");
  1251. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1252. $ctx2.sendIdx[","]=1;
  1253. //>>excludeEnd("ctx");
  1254. $recv($2)._log_($3);
  1255. return self._respondNotFoundTo_(aResponse);
  1256. } else {
  1257. type=$recv(self._class())._mimeTypeFor_(filename);
  1258. type;
  1259. $4=$recv(type).__eq("application/javascript");
  1260. if($core.assert($4)){
  1261. type=$recv(type).__comma(";charset=utf-8");
  1262. type;
  1263. };
  1264. $recv(aResponse)._writeHead_options_((200),$globals.HashedCollection._newFromPairs_(["Content-Type",type]));
  1265. $recv(aResponse)._write_encoding_(file,"binary");
  1266. $5=$recv(aResponse)._end();
  1267. return $5;
  1268. };
  1269. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1270. }, function($ctx2) {$ctx2.fillBlock({ex:ex,file:file},$ctx1,1)});
  1271. //>>excludeEnd("ctx");
  1272. }));
  1273. return self;
  1274. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1275. }, function($ctx1) {$ctx1.fill(self,"respondFileNamed:to:",{aFilename:aFilename,aResponse:aResponse,type:type,filename:filename},$globals.FileServer)});
  1276. //>>excludeEnd("ctx");
  1277. },
  1278. //>>excludeStart("ide", pragmas.excludeIdeData);
  1279. args: ["aFilename", "aResponse"],
  1280. source: "respondFileNamed: aFilename to: aResponse\x0a\x09| type filename |\x0a\x0a\x09filename := aFilename.\x0a\x0a\x09fs readFile: filename do: [:ex :file |\x0a\x09\x09ex notNil \x0a\x09\x09\x09ifTrue: [\x0a\x09\x09\x09\x09console log: filename, ' does not exist'.\x0a\x09\x09\x09\x09self respondNotFoundTo: aResponse]\x0a\x09\x09\x09ifFalse: [\x0a\x09\x09\x09\x09type := self class mimeTypeFor: filename.\x0a\x09\x09\x09\x09type = 'application/javascript'\x0a\x09\x09\x09\x09\x09ifTrue: [ type:=type,';charset=utf-8' ].\x0a\x09\x09\x09\x09aResponse \x0a\x09\x09\x09\x09\x09writeHead: 200 options: #{'Content-Type' -> type};\x0a\x09\x09\x09\x09\x09write: file encoding: 'binary';\x0a\x09\x09\x09\x09\x09end]]",
  1281. referencedClasses: [],
  1282. //>>excludeEnd("ide");
  1283. messageSends: ["readFile:do:", "ifTrue:ifFalse:", "notNil", "log:", ",", "respondNotFoundTo:", "mimeTypeFor:", "class", "ifTrue:", "=", "writeHead:options:", "write:encoding:", "end"]
  1284. }),
  1285. $globals.FileServer);
  1286. $core.addMethod(
  1287. $core.method({
  1288. selector: "respondInternalErrorTo:",
  1289. protocol: 'request handling',
  1290. fn: function (aResponse){
  1291. var self=this;
  1292. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1293. return $core.withContext(function($ctx1) {
  1294. //>>excludeEnd("ctx");
  1295. var $1;
  1296. $recv(aResponse)._writeHead_options_((500),$globals.HashedCollection._newFromPairs_(["Content-Type","text/plain"]));
  1297. $recv(aResponse)._write_("500 Internal server error");
  1298. $1=$recv(aResponse)._end();
  1299. return self;
  1300. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1301. }, function($ctx1) {$ctx1.fill(self,"respondInternalErrorTo:",{aResponse:aResponse},$globals.FileServer)});
  1302. //>>excludeEnd("ctx");
  1303. },
  1304. //>>excludeStart("ide", pragmas.excludeIdeData);
  1305. args: ["aResponse"],
  1306. source: "respondInternalErrorTo: aResponse\x0a\x09aResponse \x0a\x09\x09writeHead: 500 options: #{'Content-Type' -> 'text/plain'};\x0a\x09\x09write: '500 Internal server error';\x0a\x09\x09end",
  1307. referencedClasses: [],
  1308. //>>excludeEnd("ide");
  1309. messageSends: ["writeHead:options:", "write:", "end"]
  1310. }),
  1311. $globals.FileServer);
  1312. $core.addMethod(
  1313. $core.method({
  1314. selector: "respondNotCreatedTo:",
  1315. protocol: 'request handling',
  1316. fn: function (aResponse){
  1317. var self=this;
  1318. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1319. return $core.withContext(function($ctx1) {
  1320. //>>excludeEnd("ctx");
  1321. var $1;
  1322. $recv(aResponse)._writeHead_options_((400),$globals.HashedCollection._newFromPairs_(["Content-Type","text/plain"]));
  1323. $recv(aResponse)._write_("File could not be created. Did you forget to create the src directory on the server?");
  1324. $1=$recv(aResponse)._end();
  1325. return self;
  1326. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1327. }, function($ctx1) {$ctx1.fill(self,"respondNotCreatedTo:",{aResponse:aResponse},$globals.FileServer)});
  1328. //>>excludeEnd("ctx");
  1329. },
  1330. //>>excludeStart("ide", pragmas.excludeIdeData);
  1331. args: ["aResponse"],
  1332. source: "respondNotCreatedTo: aResponse\x0a\x09aResponse\x0a\x09\x09writeHead: 400 options: #{'Content-Type' -> 'text/plain'};\x0a\x09\x09write: 'File could not be created. Did you forget to create the src directory on the server?';\x0a\x09\x09end.",
  1333. referencedClasses: [],
  1334. //>>excludeEnd("ide");
  1335. messageSends: ["writeHead:options:", "write:", "end"]
  1336. }),
  1337. $globals.FileServer);
  1338. $core.addMethod(
  1339. $core.method({
  1340. selector: "respondNotFoundTo:",
  1341. protocol: 'request handling',
  1342. fn: function (aResponse){
  1343. var self=this;
  1344. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1345. return $core.withContext(function($ctx1) {
  1346. //>>excludeEnd("ctx");
  1347. var $2,$1,$3,$4;
  1348. $2=self._fallbackPage();
  1349. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1350. $ctx1.sendIdx["fallbackPage"]=1;
  1351. //>>excludeEnd("ctx");
  1352. $1=$recv($2)._isNil();
  1353. if(!$core.assert($1)){
  1354. $3=self._respondFileNamed_to_(self._fallbackPage(),aResponse);
  1355. return $3;
  1356. };
  1357. $recv(aResponse)._writeHead_options_((404),$globals.HashedCollection._newFromPairs_(["Content-Type","text/html"]));
  1358. $recv(aResponse)._write_("<html><body><p>404 Not found</p>");
  1359. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1360. $ctx1.sendIdx["write:"]=1;
  1361. //>>excludeEnd("ctx");
  1362. $recv(aResponse)._write_("<p>Did you forget to put an index.html file into the directory which is served by \x22bin/amber serve\x22? To solve this you can:<ul>");
  1363. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1364. $ctx1.sendIdx["write:"]=2;
  1365. //>>excludeEnd("ctx");
  1366. $recv(aResponse)._write_("<li>create an index.html in the served directory.</li>");
  1367. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1368. $ctx1.sendIdx["write:"]=3;
  1369. //>>excludeEnd("ctx");
  1370. $recv(aResponse)._write_("<li>can also specify the location of a page to be served whenever path does not resolve to a file with the \x22--fallback-page\x22 option.</li>");
  1371. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1372. $ctx1.sendIdx["write:"]=4;
  1373. //>>excludeEnd("ctx");
  1374. $recv(aResponse)._write_("<li>change the directory to be served with the \x22--base-path\x22 option.</li>");
  1375. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1376. $ctx1.sendIdx["write:"]=5;
  1377. //>>excludeEnd("ctx");
  1378. $recv(aResponse)._write_("</ul></p></body></html>");
  1379. $4=$recv(aResponse)._end();
  1380. return self;
  1381. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1382. }, function($ctx1) {$ctx1.fill(self,"respondNotFoundTo:",{aResponse:aResponse},$globals.FileServer)});
  1383. //>>excludeEnd("ctx");
  1384. },
  1385. //>>excludeStart("ide", pragmas.excludeIdeData);
  1386. args: ["aResponse"],
  1387. source: "respondNotFoundTo: aResponse\x0a\x09self fallbackPage isNil ifFalse: [^self respondFileNamed: self fallbackPage to: aResponse].\x0a\x09aResponse \x0a\x09\x09writeHead: 404 options: #{'Content-Type' -> 'text/html'};\x0a\x09\x09write: '<html><body><p>404 Not found</p>';\x0a\x09\x09write: '<p>Did you forget to put an index.html file into the directory which is served by \x22bin/amber serve\x22? To solve this you can:<ul>';\x0a\x09\x09write: '<li>create an index.html in the served directory.</li>';\x0a\x09\x09write: '<li>can also specify the location of a page to be served whenever path does not resolve to a file with the \x22--fallback-page\x22 option.</li>';\x0a\x09\x09write: '<li>change the directory to be served with the \x22--base-path\x22 option.</li>';\x0a\x09\x09write: '</ul></p></body></html>';\x0a\x09\x09end",
  1388. referencedClasses: [],
  1389. //>>excludeEnd("ide");
  1390. messageSends: ["ifFalse:", "isNil", "fallbackPage", "respondFileNamed:to:", "writeHead:options:", "write:", "end"]
  1391. }),
  1392. $globals.FileServer);
  1393. $core.addMethod(
  1394. $core.method({
  1395. selector: "respondOKTo:",
  1396. protocol: 'request handling',
  1397. fn: function (aResponse){
  1398. var self=this;
  1399. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1400. return $core.withContext(function($ctx1) {
  1401. //>>excludeEnd("ctx");
  1402. var $1;
  1403. $recv(aResponse)._writeHead_options_((200),$globals.HashedCollection._newFromPairs_(["Content-Type","text/plain","Access-Control-Allow-Origin","*"]));
  1404. $1=$recv(aResponse)._end();
  1405. return self;
  1406. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1407. }, function($ctx1) {$ctx1.fill(self,"respondOKTo:",{aResponse:aResponse},$globals.FileServer)});
  1408. //>>excludeEnd("ctx");
  1409. },
  1410. //>>excludeStart("ide", pragmas.excludeIdeData);
  1411. args: ["aResponse"],
  1412. source: "respondOKTo: aResponse\x0a\x09aResponse\x0a\x09\x09writeHead: 200 options: #{'Content-Type' -> 'text/plain'. 'Access-Control-Allow-Origin' -> '*'};\x0a\x09\x09end.",
  1413. referencedClasses: [],
  1414. //>>excludeEnd("ide");
  1415. messageSends: ["writeHead:options:", "end"]
  1416. }),
  1417. $globals.FileServer);
  1418. $core.addMethod(
  1419. $core.method({
  1420. selector: "respondRedirect:to:",
  1421. protocol: 'request handling',
  1422. fn: function (aString,aResponse){
  1423. var self=this;
  1424. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1425. return $core.withContext(function($ctx1) {
  1426. //>>excludeEnd("ctx");
  1427. var $1;
  1428. $recv(aResponse)._writeHead_options_((303),$globals.HashedCollection._newFromPairs_(["Location",aString]));
  1429. $1=$recv(aResponse)._end();
  1430. return self;
  1431. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1432. }, function($ctx1) {$ctx1.fill(self,"respondRedirect:to:",{aString:aString,aResponse:aResponse},$globals.FileServer)});
  1433. //>>excludeEnd("ctx");
  1434. },
  1435. //>>excludeStart("ide", pragmas.excludeIdeData);
  1436. args: ["aString", "aResponse"],
  1437. source: "respondRedirect: aString to: aResponse\x0a\x09aResponse\x0a\x09\x09writeHead: 303 options: #{'Location' -> aString};\x0a\x09\x09end.",
  1438. referencedClasses: [],
  1439. //>>excludeEnd("ide");
  1440. messageSends: ["writeHead:options:", "end"]
  1441. }),
  1442. $globals.FileServer);
  1443. $core.addMethod(
  1444. $core.method({
  1445. selector: "start",
  1446. protocol: 'starting',
  1447. fn: function (){
  1448. var self=this;
  1449. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1450. return $core.withContext(function($ctx1) {
  1451. //>>excludeEnd("ctx");
  1452. var $1,$2,$3,$4,$8,$7,$6,$10,$9,$5,$11;
  1453. self._checkDirectoryLayout();
  1454. $1=$recv(self["@http"])._createServer_((function(request,response){
  1455. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1456. return $core.withContext(function($ctx2) {
  1457. //>>excludeEnd("ctx");
  1458. return self._handleRequest_respondTo_(request,response);
  1459. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1460. }, function($ctx2) {$ctx2.fillBlock({request:request,response:response},$ctx1,1)});
  1461. //>>excludeEnd("ctx");
  1462. }));
  1463. $recv($1)._on_do_("error",(function(error){
  1464. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1465. return $core.withContext(function($ctx2) {
  1466. //>>excludeEnd("ctx");
  1467. $2=console;
  1468. $3="Error starting server: ".__comma(error);
  1469. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1470. $ctx2.sendIdx[","]=1;
  1471. //>>excludeEnd("ctx");
  1472. return $recv($2)._log_($3);
  1473. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1474. $ctx2.sendIdx["log:"]=1;
  1475. //>>excludeEnd("ctx");
  1476. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1477. }, function($ctx2) {$ctx2.fillBlock({error:error},$ctx1,2)});
  1478. //>>excludeEnd("ctx");
  1479. }));
  1480. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1481. $ctx1.sendIdx["on:do:"]=1;
  1482. //>>excludeEnd("ctx");
  1483. $recv($1)._on_do_("listening",(function(){
  1484. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1485. return $core.withContext(function($ctx2) {
  1486. //>>excludeEnd("ctx");
  1487. $4=console;
  1488. $8=self._host();
  1489. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1490. $ctx2.sendIdx["host"]=1;
  1491. //>>excludeEnd("ctx");
  1492. $7="Starting file server on http://".__comma($8);
  1493. $6=$recv($7).__comma(":");
  1494. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1495. $ctx2.sendIdx[","]=3;
  1496. //>>excludeEnd("ctx");
  1497. $10=self._port();
  1498. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1499. $ctx2.sendIdx["port"]=1;
  1500. //>>excludeEnd("ctx");
  1501. $9=$recv($10)._asString();
  1502. $5=$recv($6).__comma($9);
  1503. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1504. $ctx2.sendIdx[","]=2;
  1505. //>>excludeEnd("ctx");
  1506. return $recv($4)._log_($5);
  1507. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1508. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)});
  1509. //>>excludeEnd("ctx");
  1510. }));
  1511. $11=$recv($1)._listen_host_(self._port(),self._host());
  1512. return self;
  1513. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1514. }, function($ctx1) {$ctx1.fill(self,"start",{},$globals.FileServer)});
  1515. //>>excludeEnd("ctx");
  1516. },
  1517. //>>excludeStart("ide", pragmas.excludeIdeData);
  1518. args: [],
  1519. source: "start\x0a\x09\x22Checks if required directory layout is present (issue warning if not).\x0a\x09 Afterwards start the server.\x22\x0a\x09self checkDirectoryLayout.\x0a\x09(http createServer: [:request :response |\x0a\x09 self handleRequest: request respondTo: response])\x0a\x09 on: 'error' do: [:error | console log: 'Error starting server: ', error];\x0a\x09 on: 'listening' do: [console log: 'Starting file server on http://', self host, ':', self port asString];\x0a\x09 listen: self port host: self host.",
  1520. referencedClasses: [],
  1521. //>>excludeEnd("ide");
  1522. messageSends: ["checkDirectoryLayout", "on:do:", "createServer:", "handleRequest:respondTo:", "log:", ",", "host", "asString", "port", "listen:host:"]
  1523. }),
  1524. $globals.FileServer);
  1525. $core.addMethod(
  1526. $core.method({
  1527. selector: "startOn:",
  1528. protocol: 'starting',
  1529. fn: function (aPort){
  1530. var self=this;
  1531. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1532. return $core.withContext(function($ctx1) {
  1533. //>>excludeEnd("ctx");
  1534. self._port_(aPort);
  1535. self._start();
  1536. return self;
  1537. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1538. }, function($ctx1) {$ctx1.fill(self,"startOn:",{aPort:aPort},$globals.FileServer)});
  1539. //>>excludeEnd("ctx");
  1540. },
  1541. //>>excludeStart("ide", pragmas.excludeIdeData);
  1542. args: ["aPort"],
  1543. source: "startOn: aPort\x0a\x09self port: aPort.\x0a\x09self start",
  1544. referencedClasses: [],
  1545. //>>excludeEnd("ide");
  1546. messageSends: ["port:", "start"]
  1547. }),
  1548. $globals.FileServer);
  1549. $core.addMethod(
  1550. $core.method({
  1551. selector: "username:",
  1552. protocol: 'accessing',
  1553. fn: function (aUsername){
  1554. var self=this;
  1555. self["@username"]=aUsername;
  1556. return self;
  1557. },
  1558. //>>excludeStart("ide", pragmas.excludeIdeData);
  1559. args: ["aUsername"],
  1560. source: "username: aUsername\x0a\x09username := aUsername.",
  1561. referencedClasses: [],
  1562. //>>excludeEnd("ide");
  1563. messageSends: []
  1564. }),
  1565. $globals.FileServer);
  1566. $core.addMethod(
  1567. $core.method({
  1568. selector: "validateBasePath",
  1569. protocol: 'private',
  1570. fn: function (){
  1571. var self=this;
  1572. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1573. return $core.withContext(function($ctx1) {
  1574. //>>excludeEnd("ctx");
  1575. var $1,$2,$3,$4,$7,$6,$5,$8,$9,$receiver;
  1576. $1=self["@fs"];
  1577. $2=self._basePath();
  1578. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1579. $ctx1.sendIdx["basePath"]=1;
  1580. //>>excludeEnd("ctx");
  1581. $recv($1)._stat_then_($2,(function(err,stat){
  1582. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1583. return $core.withContext(function($ctx2) {
  1584. //>>excludeEnd("ctx");
  1585. if(($receiver = err) == null || $receiver.isNil){
  1586. $3=$recv(stat)._isDirectory();
  1587. if(!$core.assert($3)){
  1588. $4=console;
  1589. $7=self._basePath();
  1590. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1591. $ctx2.sendIdx["basePath"]=2;
  1592. //>>excludeEnd("ctx");
  1593. $6="Warning: --base-path parameter ".__comma($7);
  1594. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1595. $ctx2.sendIdx[","]=2;
  1596. //>>excludeEnd("ctx");
  1597. $5=$recv($6).__comma(" is not a directory.");
  1598. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1599. $ctx2.sendIdx[","]=1;
  1600. //>>excludeEnd("ctx");
  1601. return $recv($4)._warn_($5);
  1602. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1603. $ctx2.sendIdx["warn:"]=1;
  1604. //>>excludeEnd("ctx");
  1605. };
  1606. } else {
  1607. $8=console;
  1608. $9=$recv("Warning: path at --base-path parameter ".__comma(self._basePath())).__comma(" does not exist.");
  1609. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1610. $ctx2.sendIdx[","]=3;
  1611. //>>excludeEnd("ctx");
  1612. return $recv($8)._warn_($9);
  1613. };
  1614. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1615. }, function($ctx2) {$ctx2.fillBlock({err:err,stat:stat},$ctx1,1)});
  1616. //>>excludeEnd("ctx");
  1617. }));
  1618. return self;
  1619. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1620. }, function($ctx1) {$ctx1.fill(self,"validateBasePath",{},$globals.FileServer)});
  1621. //>>excludeEnd("ctx");
  1622. },
  1623. //>>excludeStart("ide", pragmas.excludeIdeData);
  1624. args: [],
  1625. source: "validateBasePath\x0a\x09\x22The basePath must be an existing directory. \x22\x0a\x09fs stat: self basePath then: [ :err :stat | err\x0a\x09\x09ifNil: [ stat isDirectory ifFalse: [ console warn: 'Warning: --base-path parameter ' , self basePath , ' is not a directory.' ]]\x0a\x09\x09ifNotNil: [ console warn: 'Warning: path at --base-path parameter ' , self basePath , ' does not exist.' ]].",
  1626. referencedClasses: [],
  1627. //>>excludeEnd("ide");
  1628. messageSends: ["stat:then:", "basePath", "ifNil:ifNotNil:", "ifFalse:", "isDirectory", "warn:", ","]
  1629. }),
  1630. $globals.FileServer);
  1631. $core.addMethod(
  1632. $core.method({
  1633. selector: "withBasePath:",
  1634. protocol: 'private',
  1635. fn: function (aBaseRelativePath){
  1636. var self=this;
  1637. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1638. return $core.withContext(function($ctx1) {
  1639. //>>excludeEnd("ctx");
  1640. var $1;
  1641. $1=$recv(self["@path"])._join_with_(self._basePath(),aBaseRelativePath);
  1642. return $1;
  1643. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1644. }, function($ctx1) {$ctx1.fill(self,"withBasePath:",{aBaseRelativePath:aBaseRelativePath},$globals.FileServer)});
  1645. //>>excludeEnd("ctx");
  1646. },
  1647. //>>excludeStart("ide", pragmas.excludeIdeData);
  1648. args: ["aBaseRelativePath"],
  1649. source: "withBasePath: aBaseRelativePath\x0a\x09\x22return a file path which is relative to the basePath.\x22\x0a\x09^ path join: self basePath with: aBaseRelativePath",
  1650. referencedClasses: [],
  1651. //>>excludeEnd("ide");
  1652. messageSends: ["join:with:", "basePath"]
  1653. }),
  1654. $globals.FileServer);
  1655. $core.addMethod(
  1656. $core.method({
  1657. selector: "writeData:toFileNamed:",
  1658. protocol: 'private',
  1659. fn: function (data,aFilename){
  1660. var self=this;
  1661. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1662. return $core.withContext(function($ctx1) {
  1663. //>>excludeEnd("ctx");
  1664. $recv(console)._log_(aFilename);
  1665. return self;
  1666. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1667. }, function($ctx1) {$ctx1.fill(self,"writeData:toFileNamed:",{data:data,aFilename:aFilename},$globals.FileServer)});
  1668. //>>excludeEnd("ctx");
  1669. },
  1670. //>>excludeStart("ide", pragmas.excludeIdeData);
  1671. args: ["data", "aFilename"],
  1672. source: "writeData: data toFileNamed: aFilename\x0a\x09console log: aFilename",
  1673. referencedClasses: [],
  1674. //>>excludeEnd("ide");
  1675. messageSends: ["log:"]
  1676. }),
  1677. $globals.FileServer);
  1678. $globals.FileServer.klass.iVarNames = ['mimeTypes'];
  1679. $core.addMethod(
  1680. $core.method({
  1681. selector: "commandLineSwitches",
  1682. protocol: 'accessing',
  1683. fn: function (){
  1684. var self=this;
  1685. var switches;
  1686. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1687. return $core.withContext(function($ctx1) {
  1688. //>>excludeEnd("ctx");
  1689. var $1;
  1690. switches=$recv(self._methodsInProtocol_("accessing"))._collect_((function(each){
  1691. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1692. return $core.withContext(function($ctx2) {
  1693. //>>excludeEnd("ctx");
  1694. return $recv(each)._selector();
  1695. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1696. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  1697. //>>excludeEnd("ctx");
  1698. }));
  1699. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1700. $ctx1.sendIdx["collect:"]=1;
  1701. //>>excludeEnd("ctx");
  1702. switches=$recv(switches)._select_((function(each){
  1703. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1704. return $core.withContext(function($ctx2) {
  1705. //>>excludeEnd("ctx");
  1706. return $recv(each)._match_("^[^:]*:$");
  1707. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1708. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,2)});
  1709. //>>excludeEnd("ctx");
  1710. }));
  1711. switches=$recv(switches)._collect_((function(each){
  1712. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1713. return $core.withContext(function($ctx2) {
  1714. //>>excludeEnd("ctx");
  1715. return $recv($recv($recv($recv(each)._allButLast())._replace_with_("([A-Z])","-$1"))._asLowercase())._replace_with_("^([a-z])","--$1");
  1716. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1717. $ctx2.sendIdx["replace:with:"]=1;
  1718. //>>excludeEnd("ctx");
  1719. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1720. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,3)});
  1721. //>>excludeEnd("ctx");
  1722. }));
  1723. $1=switches;
  1724. return $1;
  1725. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1726. }, function($ctx1) {$ctx1.fill(self,"commandLineSwitches",{switches:switches},$globals.FileServer.klass)});
  1727. //>>excludeEnd("ctx");
  1728. },
  1729. //>>excludeStart("ide", pragmas.excludeIdeData);
  1730. args: [],
  1731. source: "commandLineSwitches\x0a\x09\x22Collect all methodnames from the 'accessing' protocol\x0a\x09 and select the ones with only one parameter.\x0a\x09 Then remove the ':' at the end of the name\x0a\x09 and add a '--' at the beginning.\x0a\x09 Additionally all uppercase letters are made lowercase and preceded by a '-'.\x0a\x09 Example: fallbackPage: becomes --fallback-page.\x0a\x09 Return the Array containing the commandline switches.\x22\x0a\x09| switches |\x0a\x09switches := ((self methodsInProtocol: 'accessing') collect: [ :each | each selector]).\x0a\x09switches := switches select: [ :each | each match: '^[^:]*:$'].\x0a\x09switches :=switches collect: [ :each |\x0a\x09\x09(each allButLast replace: '([A-Z])' with: '-$1') asLowercase replace: '^([a-z])' with: '--$1' ].\x0a\x09^ switches",
  1732. referencedClasses: [],
  1733. //>>excludeEnd("ide");
  1734. messageSends: ["collect:", "methodsInProtocol:", "selector", "select:", "match:", "replace:with:", "asLowercase", "allButLast"]
  1735. }),
  1736. $globals.FileServer.klass);
  1737. $core.addMethod(
  1738. $core.method({
  1739. selector: "createServerWithArguments:",
  1740. protocol: 'initialization',
  1741. fn: function (options){
  1742. var self=this;
  1743. var server,popFront,front,optionName,optionValue,switches;
  1744. function $Array(){return $globals.Array||(typeof Array=="undefined"?nil:Array)}
  1745. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1746. return $core.withContext(function($ctx1) {
  1747. //>>excludeEnd("ctx");
  1748. var $1,$2,$3,$4,$5,$6,$7,$8,$9,$10,$11;
  1749. var $early={};
  1750. try {
  1751. switches=self._commandLineSwitches();
  1752. server=self._new();
  1753. $recv(options)._ifEmpty_((function(){
  1754. $1=server;
  1755. throw $early=[$1];
  1756. }));
  1757. $2=$recv($recv(options)._size())._even();
  1758. if(!$core.assert($2)){
  1759. $recv(console)._log_("Using default parameters.");
  1760. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1761. $ctx1.sendIdx["log:"]=1;
  1762. //>>excludeEnd("ctx");
  1763. $3=console;
  1764. $4="Wrong commandline options or not enough arguments for: ".__comma(options);
  1765. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1766. $ctx1.sendIdx[","]=1;
  1767. //>>excludeEnd("ctx");
  1768. $recv($3)._log_($4);
  1769. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1770. $ctx1.sendIdx["log:"]=2;
  1771. //>>excludeEnd("ctx");
  1772. $5=console;
  1773. $6="Use any of the following ones: ".__comma(switches);
  1774. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1775. $ctx1.sendIdx[","]=2;
  1776. //>>excludeEnd("ctx");
  1777. $recv($5)._log_($6);
  1778. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1779. $ctx1.sendIdx["log:"]=3;
  1780. //>>excludeEnd("ctx");
  1781. $7=server;
  1782. return $7;
  1783. };
  1784. popFront=(function(args){
  1785. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1786. return $core.withContext(function($ctx2) {
  1787. //>>excludeEnd("ctx");
  1788. front=$recv(args)._first();
  1789. front;
  1790. $recv(args)._remove_(front);
  1791. return front;
  1792. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1793. }, function($ctx2) {$ctx2.fillBlock({args:args},$ctx1,3)});
  1794. //>>excludeEnd("ctx");
  1795. });
  1796. $recv((function(){
  1797. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1798. return $core.withContext(function($ctx2) {
  1799. //>>excludeEnd("ctx");
  1800. return $recv(options)._notEmpty();
  1801. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1802. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,4)});
  1803. //>>excludeEnd("ctx");
  1804. }))._whileTrue_((function(){
  1805. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1806. return $core.withContext(function($ctx2) {
  1807. //>>excludeEnd("ctx");
  1808. optionName=$recv(popFront)._value_(options);
  1809. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1810. $ctx2.sendIdx["value:"]=1;
  1811. //>>excludeEnd("ctx");
  1812. optionName;
  1813. optionValue=$recv(popFront)._value_(options);
  1814. optionValue;
  1815. $8=$recv(switches)._includes_(optionName);
  1816. if($core.assert($8)){
  1817. optionName=self._selectorForCommandLineSwitch_(optionName);
  1818. optionName;
  1819. return $recv(server)._perform_withArguments_(optionName,$recv($Array())._with_(optionValue));
  1820. } else {
  1821. $9=console;
  1822. $10=$recv(optionName).__comma(" is not a valid commandline option");
  1823. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1824. $ctx2.sendIdx[","]=3;
  1825. //>>excludeEnd("ctx");
  1826. $recv($9)._log_($10);
  1827. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1828. $ctx2.sendIdx["log:"]=4;
  1829. //>>excludeEnd("ctx");
  1830. return $recv(console)._log_("Use any of the following ones: ".__comma(switches));
  1831. };
  1832. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1833. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,5)});
  1834. //>>excludeEnd("ctx");
  1835. }));
  1836. $11=server;
  1837. return $11;
  1838. }
  1839. catch(e) {if(e===$early)return e[0]; throw e}
  1840. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1841. }, function($ctx1) {$ctx1.fill(self,"createServerWithArguments:",{options:options,server:server,popFront:popFront,front:front,optionName:optionName,optionValue:optionValue,switches:switches},$globals.FileServer.klass)});
  1842. //>>excludeEnd("ctx");
  1843. },
  1844. //>>excludeStart("ide", pragmas.excludeIdeData);
  1845. args: ["options"],
  1846. source: "createServerWithArguments: options\x0a\x09\x22If options are empty return a default FileServer instance.\x0a\x09 If options are given loop through them and set the passed in values\x0a\x09 on the FileServer instance.\x0a\x09 \x0a\x09 Commanline options map directly to methods in the 'accessing' protocol\x0a\x09 taking one parameter.\x0a\x09 Adding a method to this protocol makes it directly settable through\x0a\x09 command line options.\x0a\x09 \x22\x0a\x09| server popFront front optionName optionValue switches |\x0a\x0a\x09switches := self commandLineSwitches.\x0a\x0a\x09server := self new.\x0a\x0a\x09options ifEmpty: [^server].\x0a\x0a\x09(options size even) ifFalse: [\x0a\x09\x09console log: 'Using default parameters.'.\x0a\x09\x09console log: 'Wrong commandline options or not enough arguments for: ' , options.\x0a\x09\x09console log: 'Use any of the following ones: ', switches.\x0a\x09\x09^server].\x0a\x0a\x09popFront := [:args |\x0a\x09\x09front := args first.\x0a\x09\x09args remove: front.\x0a\x09\x09front].\x0a\x0a\x09[options notEmpty] whileTrue: [\x0a\x09\x09optionName := popFront value: options.\x0a\x09\x09optionValue := popFront value: options.\x0a\x0a\x09\x09(switches includes: optionName) ifTrue: [\x0a\x09\x09\x09optionName := self selectorForCommandLineSwitch: optionName.\x0a\x09\x09\x09server perform: optionName withArguments: (Array with: optionValue)]\x0a\x09\x09\x09ifFalse: [\x0a\x09\x09\x09\x09console log: optionName, ' is not a valid commandline option'.\x0a\x09\x09\x09\x09console log: 'Use any of the following ones: ', switches ]].\x0a\x09^ server.",
  1847. referencedClasses: ["Array"],
  1848. //>>excludeEnd("ide");
  1849. messageSends: ["commandLineSwitches", "new", "ifEmpty:", "ifFalse:", "even", "size", "log:", ",", "first", "remove:", "whileTrue:", "notEmpty", "value:", "ifTrue:ifFalse:", "includes:", "selectorForCommandLineSwitch:", "perform:withArguments:", "with:"]
  1850. }),
  1851. $globals.FileServer.klass);
  1852. $core.addMethod(
  1853. $core.method({
  1854. selector: "defaultBasePath",
  1855. protocol: 'accessing',
  1856. fn: function (){
  1857. var self=this;
  1858. return "./";
  1859. },
  1860. //>>excludeStart("ide", pragmas.excludeIdeData);
  1861. args: [],
  1862. source: "defaultBasePath\x0a\x09^ './'",
  1863. referencedClasses: [],
  1864. //>>excludeEnd("ide");
  1865. messageSends: []
  1866. }),
  1867. $globals.FileServer.klass);
  1868. $core.addMethod(
  1869. $core.method({
  1870. selector: "defaultHost",
  1871. protocol: 'accessing',
  1872. fn: function (){
  1873. var self=this;
  1874. return "127.0.0.1";
  1875. },
  1876. //>>excludeStart("ide", pragmas.excludeIdeData);
  1877. args: [],
  1878. source: "defaultHost\x0a\x09^ '127.0.0.1'",
  1879. referencedClasses: [],
  1880. //>>excludeEnd("ide");
  1881. messageSends: []
  1882. }),
  1883. $globals.FileServer.klass);
  1884. $core.addMethod(
  1885. $core.method({
  1886. selector: "defaultMimeTypes",
  1887. protocol: 'accessing',
  1888. fn: function (){
  1889. var self=this;
  1890. var $1;
  1891. $1=$globals.HashedCollection._newFromPairs_(["%","application/x-trash","323","text/h323","abw","application/x-abiword","ai","application/postscript","aif","audio/x-aiff","aifc","audio/x-aiff","aiff","audio/x-aiff","alc","chemical/x-alchemy","art","image/x-jg","asc","text/plain","asf","video/x-ms-asf","asn","chemical/x-ncbi-asn1-spec","aso","chemical/x-ncbi-asn1-binary","asx","video/x-ms-asf","au","audio/basic","avi","video/x-msvideo","b","chemical/x-molconn-Z","bak","application/x-trash","bat","application/x-msdos-program","bcpio","application/x-bcpio","bib","text/x-bibtex","bin","application/octet-stream","bmp","image/x-ms-bmp","book","application/x-maker","bsd","chemical/x-crossfire","c","text/x-csrc","c++","text/x-c++src","c3d","chemical/x-chem3d","cac","chemical/x-cache","cache","chemical/x-cache","cascii","chemical/x-cactvs-binary","cat","application/vnd.ms-pki.seccat","cbin","chemical/x-cactvs-binary","cc","text/x-c++src","cdf","application/x-cdf","cdr","image/x-coreldraw","cdt","image/x-coreldrawtemplate","cdx","chemical/x-cdx","cdy","application/vnd.cinderella","cef","chemical/x-cxf","cer","chemical/x-cerius","chm","chemical/x-chemdraw","chrt","application/x-kchart","cif","chemical/x-cif","class","application/java-vm","cls","text/x-tex","cmdf","chemical/x-cmdf","cml","chemical/x-cml","cod","application/vnd.rim.cod","com","application/x-msdos-program","cpa","chemical/x-compass","cpio","application/x-cpio","cpp","text/x-c++src","cpt","image/x-corelphotopaint","crl","application/x-pkcs7-crl","crt","application/x-x509-ca-cert","csf","chemical/x-cache-csf","csh","text/x-csh","csm","chemical/x-csml","csml","chemical/x-csml","css","text/css","csv","text/comma-separated-values","ctab","chemical/x-cactvs-binary","ctx","chemical/x-ctx","cu","application/cu-seeme","cub","chemical/x-gaussian-cube","cxf","chemical/x-cxf","cxx","text/x-c++src","dat","chemical/x-mopac-input","dcr","application/x-director","deb","application/x-debian-package","dif","video/dv","diff","text/plain","dir","application/x-director","djv","image/vnd.djvu","djvu","image/vnd.djvu","dl","video/dl","dll","application/x-msdos-program","dmg","application/x-apple-diskimage","dms","application/x-dms","doc","application/msword","dot","application/msword","dv","video/dv","dvi","application/x-dvi","dx","chemical/x-jcamp-dx","dxr","application/x-director","emb","chemical/x-embl-dl-nucleotide","embl","chemical/x-embl-dl-nucleotide","ent","chemical/x-pdb","eps","application/postscript","etx","text/x-setext","exe","application/x-msdos-program","ez","application/andrew-inset","fb","application/x-maker","fbdoc","application/x-maker","fch","chemical/x-gaussian-checkpoint","fchk","chemical/x-gaussian-checkpoint","fig","application/x-xfig","flac","application/x-flac","fli","video/fli","fm","application/x-maker","frame","application/x-maker","frm","application/x-maker","gal","chemical/x-gaussian-log","gam","chemical/x-gamess-input","gamin","chemical/x-gamess-input","gau","chemical/x-gaussian-input","gcd","text/x-pcs-gcd","gcf","application/x-graphing-calculator","gcg","chemical/x-gcg8-sequence","gen","chemical/x-genbank","gf","application/x-tex-gf","gif","image/gif","gjc","chemical/x-gaussian-input","gjf","chemical/x-gaussian-input","gl","video/gl","gnumeric","application/x-gnumeric","gpt","chemical/x-mopac-graph","gsf","application/x-font","gsm","audio/x-gsm","gtar","application/x-gtar","h","text/x-chdr","h++","text/x-c++hdr","hdf","application/x-hdf","hh","text/x-c++hdr","hin","chemical/x-hin","hpp","text/x-c++hdr","hqx","application/mac-binhex40","hs","text/x-haskell","hta","application/hta","htc","text/x-component","htm","text/html","html","text/html","hxx","text/x-c++hdr","ica","application/x-ica","ice","x-conference/x-cooltalk","ico","image/x-icon","ics","text/calendar","icz","text/calendar","ief","image/ief","iges","model/iges","igs","model/iges","iii","application/x-iphone","inp","chemical/x-gamess-input","ins","application/x-internet-signup","iso","application/x-iso9660-image","isp","application/x-internet-signup","ist","chemical/x-isostar","istr","chemical/x-isostar","jad","text/vnd.sun.j2me.app-descriptor","jar","application/java-archive","java","text/x-java","jdx","chemical/x-jcamp-dx","jmz","application/x-jmol","jng","image/x-jng","jnlp","application/x-java-jnlp-file","jpe","image/jpeg","jpeg","image/jpeg","jpg","image/jpeg","js","application/javascript","kar","audio/midi","key","application/pgp-keys","kil","application/x-killustrator","kin","chemical/x-kinemage","kpr","application/x-kpresenter","kpt","application/x-kpresenter","ksp","application/x-kspread","kwd","application/x-kword","kwt","application/x-kword","latex","application/x-latex","lha","application/x-lha","lhs","text/x-literate-haskell","lsf","video/x-la-asf","lsx","video/x-la-asf","ltx","text/x-tex","lzh","application/x-lzh","lzx","application/x-lzx","m3u","audio/x-mpegurl","m4a","audio/mpeg","maker","application/x-maker","man","application/x-troff-man","mcif","chemical/x-mmcif","mcm","chemical/x-macmolecule","mdb","application/msaccess","me","application/x-troff-me","mesh","model/mesh","mid","audio/midi","midi","audio/midi","mif","application/x-mif","mm","application/x-freemind","mmd","chemical/x-macromodel-input","mmf","application/vnd.smaf","mml","text/mathml","mmod","chemical/x-macromodel-input","mng","video/x-mng","moc","text/x-moc","mol","chemical/x-mdl-molfile","mol2","chemical/x-mol2","moo","chemical/x-mopac-out","mop","chemical/x-mopac-input","mopcrt","chemical/x-mopac-input","mov","video/quicktime","movie","video/x-sgi-movie","mp2","audio/mpeg","mp3","audio/mpeg","mp4","video/mp4","mpc","chemical/x-mopac-input","mpe","video/mpeg","mpeg","video/mpeg","mpega","audio/mpeg","mpg","video/mpeg","mpga","audio/mpeg","ms","application/x-troff-ms","msh","model/mesh","msi","application/x-msi","mvb","chemical/x-mopac-vib","mxu","video/vnd.mpegurl","nb","application/mathematica","nc","application/x-netcdf","nwc","application/x-nwc","o","application/x-object","oda","application/oda","odb","application/vnd.oasis.opendocument.database","odc","application/vnd.oasis.opendocument.chart","odf","application/vnd.oasis.opendocument.formula","odg","application/vnd.oasis.opendocument.graphics","odi","application/vnd.oasis.opendocument.image","odm","application/vnd.oasis.opendocument.text-master","odp","application/vnd.oasis.opendocument.presentation","ods","application/vnd.oasis.opendocument.spreadsheet","odt","application/vnd.oasis.opendocument.text","ogg","application/ogg","old","application/x-trash","oth","application/vnd.oasis.opendocument.text-web","oza","application/x-oz-application","p","text/x-pascal","p7r","application/x-pkcs7-certreqresp","pac","application/x-ns-proxy-autoconfig","pas","text/x-pascal","pat","image/x-coreldrawpattern","pbm","image/x-portable-bitmap","pcf","application/x-font","pcf.Z","application/x-font","pcx","image/pcx","pdb","chemical/x-pdb","pdf","application/pdf","pfa","application/x-font","pfb","application/x-font","pgm","image/x-portable-graymap","pgn","application/x-chess-pgn","pgp","application/pgp-signature","pk","application/x-tex-pk","pl","text/x-perl","pls","audio/x-scpls","pm","text/x-perl","png","image/png","pnm","image/x-portable-anymap","pot","text/plain","ppm","image/x-portable-pixmap","pps","application/vnd.ms-powerpoint","ppt","application/vnd.ms-powerpoint","prf","application/pics-rules","prt","chemical/x-ncbi-asn1-ascii","ps","application/postscript","psd","image/x-photoshop","psp","text/x-psp","py","text/x-python","pyc","application/x-python-code","pyo","application/x-python-code","qt","video/quicktime","qtl","application/x-quicktimeplayer","ra","audio/x-realaudio","ram","audio/x-pn-realaudio","rar","application/rar","ras","image/x-cmu-raster","rd","chemical/x-mdl-rdfile","rdf","application/rdf+xml","rgb","image/x-rgb","rm","audio/x-pn-realaudio","roff","application/x-troff","ros","chemical/x-rosdal","rpm","application/x-redhat-package-manager","rss","application/rss+xml","rtf","text/rtf","rtx","text/richtext","rxn","chemical/x-mdl-rxnfile","sct","text/scriptlet","sd","chemical/x-mdl-sdfile","sd2","audio/x-sd2","sda","application/vnd.stardivision.draw","sdc","application/vnd.stardivision.calc","sdd","application/vnd.stardivision.impress","sdf","chemical/x-mdl-sdfile","sdp","application/vnd.stardivision.impress","sdw","application/vnd.stardivision.writer","ser","application/java-serialized-object","sgf","application/x-go-sgf","sgl","application/vnd.stardivision.writer-global","sh","text/x-sh","shar","application/x-shar","shtml","text/html","sid","audio/prs.sid","sik","application/x-trash","silo","model/mesh","sis","application/vnd.symbian.install","sit","application/x-stuffit","skd","application/x-koan","skm","application/x-koan","skp","application/x-koan","skt","application/x-koan","smf","application/vnd.stardivision.math","smi","application/smil","smil","application/smil","snd","audio/basic","spc","chemical/x-galactic-spc","spl","application/x-futuresplash","src","application/x-wais-source","stc","application/vnd.sun.xml.calc.template","std","application/vnd.sun.xml.draw.template","sti","application/vnd.sun.xml.impress.template","stl","application/vnd.ms-pki.stl","stw","application/vnd.sun.xml.writer.template","sty","text/x-tex","sv4cpio","application/x-sv4cpio","sv4crc","application/x-sv4crc","svg","image/svg+xml","svgz","image/svg+xml","sw","chemical/x-swissprot","swf","application/x-shockwave-flash","swfl","application/x-shockwave-flash","sxc","application/vnd.sun.xml.calc","sxd","application/vnd.sun.xml.draw","sxg","application/vnd.sun.xml.writer.global","sxi","application/vnd.sun.xml.impress","sxm","application/vnd.sun.xml.math","sxw","application/vnd.sun.xml.writer","t","application/x-troff","tar","application/x-tar","taz","application/x-gtar","tcl","text/x-tcl","tex","text/x-tex","texi","application/x-texinfo","texinfo","application/x-texinfo","text","text/plain","tgf","chemical/x-mdl-tgf","tgz","application/x-gtar","tif","image/tiff","tiff","image/tiff","tk","text/x-tcl","tm","text/texmacs","torrent","application/x-bittorrent","tr","application/x-troff","ts","text/texmacs","tsp","application/dsptype","tsv","text/tab-separated-values","txt","text/plain","udeb","application/x-debian-package","uls","text/iuls","ustar","application/x-ustar","val","chemical/x-ncbi-asn1-binary","vcd","application/x-cdlink","vcf","text/x-vcard","vcs","text/x-vcalendar","vmd","chemical/x-vmd","vms","chemical/x-vamas-iso14976","vor","application/vnd.stardivision.writer","vrm","x-world/x-vrml","vrml","x-world/x-vrml","vsd","application/vnd.visio","wad","application/x-doom","wav","audio/x-wav","wax","audio/x-ms-wax","wbmp","image/vnd.wap.wbmp","wbxml","application/vnd.wap.wbxml","wk","application/x-123","wm","video/x-ms-wm","wma","audio/x-ms-wma","wmd","application/x-ms-wmd","wml","text/vnd.wap.wml","wmlc","application/vnd.wap.wmlc","wmls","text/vnd.wap.wmlscript","wmlsc","application/vnd.wap.wmlscriptc","wmv","video/x-ms-wmv","wmx","video/x-ms-wmx","wmz","application/x-ms-wmz","wp5","application/wordperfect5.1","wpd","application/wordperfect","wrl","x-world/x-vrml","wsc","text/scriptlet","wvx","video/x-ms-wvx","wz","application/x-wingz","xbm","image/x-xbitmap","xcf","application/x-xcf","xht","application/xhtml+xml","xhtml","application/xhtml+xml","xlb","application/vnd.ms-excel","xls","application/vnd.ms-excel","xlt","application/vnd.ms-excel","xml","application/xml","xpi","application/x-xpinstall","xpm","image/x-xpixmap","xsl","application/xml","xtel","chemical/x-xtel","xul","application/vnd.mozilla.xul+xml","xwd","image/x-xwindowdump","xyz","chemical/x-xyz","zip","application/zip","zmt","chemical/x-mopac-input","~","application/x-trash"]);
  1892. return $1;
  1893. },
  1894. //>>excludeStart("ide", pragmas.excludeIdeData);
  1895. args: [],
  1896. source: "defaultMimeTypes\x0a\x09^ #{\x0a\x09\x09'%' -> 'application/x-trash'.\x0a\x09\x09'323' -> 'text/h323'.\x0a\x09\x09'abw' -> 'application/x-abiword'.\x0a\x09\x09'ai' -> 'application/postscript'.\x0a\x09\x09'aif' -> 'audio/x-aiff'.\x0a\x09\x09'aifc' -> 'audio/x-aiff'.\x0a\x09\x09'aiff' -> 'audio/x-aiff'.\x0a\x09\x09'alc' -> 'chemical/x-alchemy'.\x0a\x09\x09'art' -> 'image/x-jg'.\x0a\x09\x09'asc' -> 'text/plain'.\x0a\x09\x09'asf' -> 'video/x-ms-asf'.\x0a\x09\x09'asn' -> 'chemical/x-ncbi-asn1-spec'.\x0a\x09\x09'aso' -> 'chemical/x-ncbi-asn1-binary'.\x0a\x09\x09'asx' -> 'video/x-ms-asf'.\x0a\x09\x09'au' -> 'audio/basic'.\x0a\x09\x09'avi' -> 'video/x-msvideo'.\x0a\x09\x09'b' -> 'chemical/x-molconn-Z'.\x0a\x09\x09'bak' -> 'application/x-trash'.\x0a\x09\x09'bat' -> 'application/x-msdos-program'.\x0a\x09\x09'bcpio' -> 'application/x-bcpio'.\x0a\x09\x09'bib' -> 'text/x-bibtex'.\x0a\x09\x09'bin' -> 'application/octet-stream'.\x0a\x09\x09'bmp' -> 'image/x-ms-bmp'.\x0a\x09\x09'book' -> 'application/x-maker'.\x0a\x09\x09'bsd' -> 'chemical/x-crossfire'.\x0a\x09\x09'c' -> 'text/x-csrc'.\x0a\x09\x09'c++' -> 'text/x-c++src'.\x0a\x09\x09'c3d' -> 'chemical/x-chem3d'.\x0a\x09\x09'cac' -> 'chemical/x-cache'.\x0a\x09\x09'cache' -> 'chemical/x-cache'.\x0a\x09\x09'cascii' -> 'chemical/x-cactvs-binary'.\x0a\x09\x09'cat' -> 'application/vnd.ms-pki.seccat'.\x0a\x09\x09'cbin' -> 'chemical/x-cactvs-binary'.\x0a\x09\x09'cc' -> 'text/x-c++src'.\x0a\x09\x09'cdf' -> 'application/x-cdf'.\x0a\x09\x09'cdr' -> 'image/x-coreldraw'.\x0a\x09\x09'cdt' -> 'image/x-coreldrawtemplate'.\x0a\x09\x09'cdx' -> 'chemical/x-cdx'.\x0a\x09\x09'cdy' -> 'application/vnd.cinderella'.\x0a\x09\x09'cef' -> 'chemical/x-cxf'.\x0a\x09\x09'cer' -> 'chemical/x-cerius'.\x0a\x09\x09'chm' -> 'chemical/x-chemdraw'.\x0a\x09\x09'chrt' -> 'application/x-kchart'.\x0a\x09\x09'cif' -> 'chemical/x-cif'.\x0a\x09\x09'class' -> 'application/java-vm'.\x0a\x09\x09'cls' -> 'text/x-tex'.\x0a\x09\x09'cmdf' -> 'chemical/x-cmdf'.\x0a\x09\x09'cml' -> 'chemical/x-cml'.\x0a\x09\x09'cod' -> 'application/vnd.rim.cod'.\x0a\x09\x09'com' -> 'application/x-msdos-program'.\x0a\x09\x09'cpa' -> 'chemical/x-compass'.\x0a\x09\x09'cpio' -> 'application/x-cpio'.\x0a\x09\x09'cpp' -> 'text/x-c++src'.\x0a\x09\x09'cpt' -> 'image/x-corelphotopaint'.\x0a\x09\x09'crl' -> 'application/x-pkcs7-crl'.\x0a\x09\x09'crt' -> 'application/x-x509-ca-cert'.\x0a\x09\x09'csf' -> 'chemical/x-cache-csf'.\x0a\x09\x09'csh' -> 'text/x-csh'.\x0a\x09\x09'csm' -> 'chemical/x-csml'.\x0a\x09\x09'csml' -> 'chemical/x-csml'.\x0a\x09\x09'css' -> 'text/css'.\x0a\x09\x09'csv' -> 'text/comma-separated-values'.\x0a\x09\x09'ctab' -> 'chemical/x-cactvs-binary'.\x0a\x09\x09'ctx' -> 'chemical/x-ctx'.\x0a\x09\x09'cu' -> 'application/cu-seeme'.\x0a\x09\x09'cub' -> 'chemical/x-gaussian-cube'.\x0a\x09\x09'cxf' -> 'chemical/x-cxf'.\x0a\x09\x09'cxx' -> 'text/x-c++src'.\x0a\x09\x09'dat' -> 'chemical/x-mopac-input'.\x0a\x09\x09'dcr' -> 'application/x-director'.\x0a\x09\x09'deb' -> 'application/x-debian-package'.\x0a\x09\x09'dif' -> 'video/dv'.\x0a\x09\x09'diff' -> 'text/plain'.\x0a\x09\x09'dir' -> 'application/x-director'.\x0a\x09\x09'djv' -> 'image/vnd.djvu'.\x0a\x09\x09'djvu' -> 'image/vnd.djvu'.\x0a\x09\x09'dl' -> 'video/dl'.\x0a\x09\x09'dll' -> 'application/x-msdos-program'.\x0a\x09\x09'dmg' -> 'application/x-apple-diskimage'.\x0a\x09\x09'dms' -> 'application/x-dms'.\x0a\x09\x09'doc' -> 'application/msword'.\x0a\x09\x09'dot' -> 'application/msword'.\x0a\x09\x09'dv' -> 'video/dv'.\x0a\x09\x09'dvi' -> 'application/x-dvi'.\x0a\x09\x09'dx' -> 'chemical/x-jcamp-dx'.\x0a\x09\x09'dxr' -> 'application/x-director'.\x0a\x09\x09'emb' -> 'chemical/x-embl-dl-nucleotide'.\x0a\x09\x09'embl' -> 'chemical/x-embl-dl-nucleotide'.\x0a\x09\x09'ent' -> 'chemical/x-pdb'.\x0a\x09\x09'eps' -> 'application/postscript'.\x0a\x09\x09'etx' -> 'text/x-setext'.\x0a\x09\x09'exe' -> 'application/x-msdos-program'.\x0a\x09\x09'ez' -> 'application/andrew-inset'.\x0a\x09\x09'fb' -> 'application/x-maker'.\x0a\x09\x09'fbdoc' -> 'application/x-maker'.\x0a\x09\x09'fch' -> 'chemical/x-gaussian-checkpoint'.\x0a\x09\x09'fchk' -> 'chemical/x-gaussian-checkpoint'.\x0a\x09\x09'fig' -> 'application/x-xfig'.\x0a\x09\x09'flac' -> 'application/x-flac'.\x0a\x09\x09'fli' -> 'video/fli'.\x0a\x09\x09'fm' -> 'application/x-maker'.\x0a\x09\x09'frame' -> 'application/x-maker'.\x0a\x09\x09'frm' -> 'application/x-maker'.\x0a\x09\x09'gal' -> 'chemical/x-gaussian-log'.\x0a\x09\x09'gam' -> 'chemical/x-gamess-input'.\x0a\x09\x09'gamin' -> 'chemical/x-gamess-input'.\x0a\x09\x09'gau' -> 'chemical/x-gaussian-input'.\x0a\x09\x09'gcd' -> 'text/x-pcs-gcd'.\x0a\x09\x09'gcf' -> 'application/x-graphing-calculator'.\x0a\x09\x09'gcg' -> 'chemical/x-gcg8-sequence'.\x0a\x09\x09'gen' -> 'chemical/x-genbank'.\x0a\x09\x09'gf' -> 'application/x-tex-gf'.\x0a\x09\x09'gif' -> 'image/gif'.\x0a\x09\x09'gjc' -> 'chemical/x-gaussian-input'.\x0a\x09\x09'gjf' -> 'chemical/x-gaussian-input'.\x0a\x09\x09'gl' -> 'video/gl'.\x0a\x09\x09'gnumeric' -> 'application/x-gnumeric'.\x0a\x09\x09'gpt' -> 'chemical/x-mopac-graph'.\x0a\x09\x09'gsf' -> 'application/x-font'.\x0a\x09\x09'gsm' -> 'audio/x-gsm'.\x0a\x09\x09'gtar' -> 'application/x-gtar'.\x0a\x09\x09'h' -> 'text/x-chdr'.\x0a\x09\x09'h++' -> 'text/x-c++hdr'.\x0a\x09\x09'hdf' -> 'application/x-hdf'.\x0a\x09\x09'hh' -> 'text/x-c++hdr'.\x0a\x09\x09'hin' -> 'chemical/x-hin'.\x0a\x09\x09'hpp' -> 'text/x-c++hdr'.\x0a\x09\x09'hqx' -> 'application/mac-binhex40'.\x0a\x09\x09'hs' -> 'text/x-haskell'.\x0a\x09\x09'hta' -> 'application/hta'.\x0a\x09\x09'htc' -> 'text/x-component'.\x0a\x09\x09'htm' -> 'text/html'.\x0a\x09\x09'html' -> 'text/html'.\x0a\x09\x09'hxx' -> 'text/x-c++hdr'.\x0a\x09\x09'ica' -> 'application/x-ica'.\x0a\x09\x09'ice' -> 'x-conference/x-cooltalk'.\x0a\x09\x09'ico' -> 'image/x-icon'.\x0a\x09\x09'ics' -> 'text/calendar'.\x0a\x09\x09'icz' -> 'text/calendar'.\x0a\x09\x09'ief' -> 'image/ief'.\x0a\x09\x09'iges' -> 'model/iges'.\x0a\x09\x09'igs' -> 'model/iges'.\x0a\x09\x09'iii' -> 'application/x-iphone'.\x0a\x09\x09'inp' -> 'chemical/x-gamess-input'.\x0a\x09\x09'ins' -> 'application/x-internet-signup'.\x0a\x09\x09'iso' -> 'application/x-iso9660-image'.\x0a\x09\x09'isp' -> 'application/x-internet-signup'.\x0a\x09\x09'ist' -> 'chemical/x-isostar'.\x0a\x09\x09'istr' -> 'chemical/x-isostar'.\x0a\x09\x09'jad' -> 'text/vnd.sun.j2me.app-descriptor'.\x0a\x09\x09'jar' -> 'application/java-archive'.\x0a\x09\x09'java' -> 'text/x-java'.\x0a\x09\x09'jdx' -> 'chemical/x-jcamp-dx'.\x0a\x09\x09'jmz' -> 'application/x-jmol'.\x0a\x09\x09'jng' -> 'image/x-jng'.\x0a\x09\x09'jnlp' -> 'application/x-java-jnlp-file'.\x0a\x09\x09'jpe' -> 'image/jpeg'.\x0a\x09\x09'jpeg' -> 'image/jpeg'.\x0a\x09\x09'jpg' -> 'image/jpeg'.\x0a\x09\x09'js' -> 'application/javascript'.\x0a\x09\x09'kar' -> 'audio/midi'.\x0a\x09\x09'key' -> 'application/pgp-keys'.\x0a\x09\x09'kil' -> 'application/x-killustrator'.\x0a\x09\x09'kin' -> 'chemical/x-kinemage'.\x0a\x09\x09'kpr' -> 'application/x-kpresenter'.\x0a\x09\x09'kpt' -> 'application/x-kpresenter'.\x0a\x09\x09'ksp' -> 'application/x-kspread'.\x0a\x09\x09'kwd' -> 'application/x-kword'.\x0a\x09\x09'kwt' -> 'application/x-kword'.\x0a\x09\x09'latex' -> 'application/x-latex'.\x0a\x09\x09'lha' -> 'application/x-lha'.\x0a\x09\x09'lhs' -> 'text/x-literate-haskell'.\x0a\x09\x09'lsf' -> 'video/x-la-asf'.\x0a\x09\x09'lsx' -> 'video/x-la-asf'.\x0a\x09\x09'ltx' -> 'text/x-tex'.\x0a\x09\x09'lzh' -> 'application/x-lzh'.\x0a\x09\x09'lzx' -> 'application/x-lzx'.\x0a\x09\x09'm3u' -> 'audio/x-mpegurl'.\x0a\x09\x09'm4a' -> 'audio/mpeg'.\x0a\x09\x09'maker' -> 'application/x-maker'.\x0a\x09\x09'man' -> 'application/x-troff-man'.\x0a\x09\x09'mcif' -> 'chemical/x-mmcif'.\x0a\x09\x09'mcm' -> 'chemical/x-macmolecule'.\x0a\x09\x09'mdb' -> 'application/msaccess'.\x0a\x09\x09'me' -> 'application/x-troff-me'.\x0a\x09\x09'mesh' -> 'model/mesh'.\x0a\x09\x09'mid' -> 'audio/midi'.\x0a\x09\x09'midi' -> 'audio/midi'.\x0a\x09\x09'mif' -> 'application/x-mif'.\x0a\x09\x09'mm' -> 'application/x-freemind'.\x0a\x09\x09'mmd' -> 'chemical/x-macromodel-input'.\x0a\x09\x09'mmf' -> 'application/vnd.smaf'.\x0a\x09\x09'mml' -> 'text/mathml'.\x0a\x09\x09'mmod' -> 'chemical/x-macromodel-input'.\x0a\x09\x09'mng' -> 'video/x-mng'.\x0a\x09\x09'moc' -> 'text/x-moc'.\x0a\x09\x09'mol' -> 'chemical/x-mdl-molfile'.\x0a\x09\x09'mol2' -> 'chemical/x-mol2'.\x0a\x09\x09'moo' -> 'chemical/x-mopac-out'.\x0a\x09\x09'mop' -> 'chemical/x-mopac-input'.\x0a\x09\x09'mopcrt' -> 'chemical/x-mopac-input'.\x0a\x09\x09'mov' -> 'video/quicktime'.\x0a\x09\x09'movie' -> 'video/x-sgi-movie'.\x0a\x09\x09'mp2' -> 'audio/mpeg'.\x0a\x09\x09'mp3' -> 'audio/mpeg'.\x0a\x09\x09'mp4' -> 'video/mp4'.\x0a\x09\x09'mpc' -> 'chemical/x-mopac-input'.\x0a\x09\x09'mpe' -> 'video/mpeg'.\x0a\x09\x09'mpeg' -> 'video/mpeg'.\x0a\x09\x09'mpega' -> 'audio/mpeg'.\x0a\x09\x09'mpg' -> 'video/mpeg'.\x0a\x09\x09'mpga' -> 'audio/mpeg'.\x0a\x09\x09'ms' -> 'application/x-troff-ms'.\x0a\x09\x09'msh' -> 'model/mesh'.\x0a\x09\x09'msi' -> 'application/x-msi'.\x0a\x09\x09'mvb' -> 'chemical/x-mopac-vib'.\x0a\x09\x09'mxu' -> 'video/vnd.mpegurl'.\x0a\x09\x09'nb' -> 'application/mathematica'.\x0a\x09\x09'nc' -> 'application/x-netcdf'.\x0a\x09\x09'nwc' -> 'application/x-nwc'.\x0a\x09\x09'o' -> 'application/x-object'.\x0a\x09\x09'oda' -> 'application/oda'.\x0a\x09\x09'odb' -> 'application/vnd.oasis.opendocument.database'.\x0a\x09\x09'odc' -> 'application/vnd.oasis.opendocument.chart'.\x0a\x09\x09'odf' -> 'application/vnd.oasis.opendocument.formula'.\x0a\x09\x09'odg' -> 'application/vnd.oasis.opendocument.graphics'.\x0a\x09\x09'odi' -> 'application/vnd.oasis.opendocument.image'.\x0a\x09\x09'odm' -> 'application/vnd.oasis.opendocument.text-master'.\x0a\x09\x09'odp' -> 'application/vnd.oasis.opendocument.presentation'.\x0a\x09\x09'ods' -> 'application/vnd.oasis.opendocument.spreadsheet'.\x0a\x09\x09'odt' -> 'application/vnd.oasis.opendocument.text'.\x0a\x09\x09'ogg' -> 'application/ogg'.\x0a\x09\x09'old' -> 'application/x-trash'.\x0a\x09\x09'oth' -> 'application/vnd.oasis.opendocument.text-web'.\x0a\x09\x09'oza' -> 'application/x-oz-application'.\x0a\x09\x09'p' -> 'text/x-pascal'.\x0a\x09\x09'p7r' -> 'application/x-pkcs7-certreqresp'.\x0a\x09\x09'pac' -> 'application/x-ns-proxy-autoconfig'.\x0a\x09\x09'pas' -> 'text/x-pascal'.\x0a\x09\x09'pat' -> 'image/x-coreldrawpattern'.\x0a\x09\x09'pbm' -> 'image/x-portable-bitmap'.\x0a\x09\x09'pcf' -> 'application/x-font'.\x0a\x09\x09'pcf.Z' -> 'application/x-font'.\x0a\x09\x09'pcx' -> 'image/pcx'.\x0a\x09\x09'pdb' -> 'chemical/x-pdb'.\x0a\x09\x09'pdf' -> 'application/pdf'.\x0a\x09\x09'pfa' -> 'application/x-font'.\x0a\x09\x09'pfb' -> 'application/x-font'.\x0a\x09\x09'pgm' -> 'image/x-portable-graymap'.\x0a\x09\x09'pgn' -> 'application/x-chess-pgn'.\x0a\x09\x09'pgp' -> 'application/pgp-signature'.\x0a\x09\x09'pk' -> 'application/x-tex-pk'.\x0a\x09\x09'pl' -> 'text/x-perl'.\x0a\x09\x09'pls' -> 'audio/x-scpls'.\x0a\x09\x09'pm' -> 'text/x-perl'.\x0a\x09\x09'png' -> 'image/png'.\x0a\x09\x09'pnm' -> 'image/x-portable-anymap'.\x0a\x09\x09'pot' -> 'text/plain'.\x0a\x09\x09'ppm' -> 'image/x-portable-pixmap'.\x0a\x09\x09'pps' -> 'application/vnd.ms-powerpoint'.\x0a\x09\x09'ppt' -> 'application/vnd.ms-powerpoint'.\x0a\x09\x09'prf' -> 'application/pics-rules'.\x0a\x09\x09'prt' -> 'chemical/x-ncbi-asn1-ascii'.\x0a\x09\x09'ps' -> 'application/postscript'.\x0a\x09\x09'psd' -> 'image/x-photoshop'.\x0a\x09\x09'psp' -> 'text/x-psp'.\x0a\x09\x09'py' -> 'text/x-python'.\x0a\x09\x09'pyc' -> 'application/x-python-code'.\x0a\x09\x09'pyo' -> 'application/x-python-code'.\x0a\x09\x09'qt' -> 'video/quicktime'.\x0a\x09\x09'qtl' -> 'application/x-quicktimeplayer'.\x0a\x09\x09'ra' -> 'audio/x-realaudio'.\x0a\x09\x09'ram' -> 'audio/x-pn-realaudio'.\x0a\x09\x09'rar' -> 'application/rar'.\x0a\x09\x09'ras' -> 'image/x-cmu-raster'.\x0a\x09\x09'rd' -> 'chemical/x-mdl-rdfile'.\x0a\x09\x09'rdf' -> 'application/rdf+xml'.\x0a\x09\x09'rgb' -> 'image/x-rgb'.\x0a\x09\x09'rm' -> 'audio/x-pn-realaudio'.\x0a\x09\x09'roff' -> 'application/x-troff'.\x0a\x09\x09'ros' -> 'chemical/x-rosdal'.\x0a\x09\x09'rpm' -> 'application/x-redhat-package-manager'.\x0a\x09\x09'rss' -> 'application/rss+xml'.\x0a\x09\x09'rtf' -> 'text/rtf'.\x0a\x09\x09'rtx' -> 'text/richtext'.\x0a\x09\x09'rxn' -> 'chemical/x-mdl-rxnfile'.\x0a\x09\x09'sct' -> 'text/scriptlet'.\x0a\x09\x09'sd' -> 'chemical/x-mdl-sdfile'.\x0a\x09\x09'sd2' -> 'audio/x-sd2'.\x0a\x09\x09'sda' -> 'application/vnd.stardivision.draw'.\x0a\x09\x09'sdc' -> 'application/vnd.stardivision.calc'.\x0a\x09\x09'sdd' -> 'application/vnd.stardivision.impress'.\x0a\x09\x09'sdf' -> 'chemical/x-mdl-sdfile'.\x0a\x09\x09'sdp' -> 'application/vnd.stardivision.impress'.\x0a\x09\x09'sdw' -> 'application/vnd.stardivision.writer'.\x0a\x09\x09'ser' -> 'application/java-serialized-object'.\x0a\x09\x09'sgf' -> 'application/x-go-sgf'.\x0a\x09\x09'sgl' -> 'application/vnd.stardivision.writer-global'.\x0a\x09\x09'sh' -> 'text/x-sh'.\x0a\x09\x09'shar' -> 'application/x-shar'.\x0a\x09\x09'shtml' -> 'text/html'.\x0a\x09\x09'sid' -> 'audio/prs.sid'.\x0a\x09\x09'sik' -> 'application/x-trash'.\x0a\x09\x09'silo' -> 'model/mesh'.\x0a\x09\x09'sis' -> 'application/vnd.symbian.install'.\x0a\x09\x09'sit' -> 'application/x-stuffit'.\x0a\x09\x09'skd' -> 'application/x-koan'.\x0a\x09\x09'skm' -> 'application/x-koan'.\x0a\x09\x09'skp' -> 'application/x-koan'.\x0a\x09\x09'skt' -> 'application/x-koan'.\x0a\x09\x09'smf' -> 'application/vnd.stardivision.math'.\x0a\x09\x09'smi' -> 'application/smil'.\x0a\x09\x09'smil' -> 'application/smil'.\x0a\x09\x09'snd' -> 'audio/basic'.\x0a\x09\x09'spc' -> 'chemical/x-galactic-spc'.\x0a\x09\x09'spl' -> 'application/x-futuresplash'.\x0a\x09\x09'src' -> 'application/x-wais-source'.\x0a\x09\x09'stc' -> 'application/vnd.sun.xml.calc.template'.\x0a\x09\x09'std' -> 'application/vnd.sun.xml.draw.template'.\x0a\x09\x09'sti' -> 'application/vnd.sun.xml.impress.template'.\x0a\x09\x09'stl' -> 'application/vnd.ms-pki.stl'.\x0a\x09\x09'stw' -> 'application/vnd.sun.xml.writer.template'.\x0a\x09\x09'sty' -> 'text/x-tex'.\x0a\x09\x09'sv4cpio' -> 'application/x-sv4cpio'.\x0a\x09\x09'sv4crc' -> 'application/x-sv4crc'.\x0a\x09\x09'svg' -> 'image/svg+xml'.\x0a\x09\x09'svgz' -> 'image/svg+xml'.\x0a\x09\x09'sw' -> 'chemical/x-swissprot'.\x0a\x09\x09'swf' -> 'application/x-shockwave-flash'.\x0a\x09\x09'swfl' -> 'application/x-shockwave-flash'.\x0a\x09\x09'sxc' -> 'application/vnd.sun.xml.calc'.\x0a\x09\x09'sxd' -> 'application/vnd.sun.xml.draw'.\x0a\x09\x09'sxg' -> 'application/vnd.sun.xml.writer.global'.\x0a\x09\x09'sxi' -> 'application/vnd.sun.xml.impress'.\x0a\x09\x09'sxm' -> 'application/vnd.sun.xml.math'.\x0a\x09\x09'sxw' -> 'application/vnd.sun.xml.writer'.\x0a\x09\x09't' -> 'application/x-troff'.\x0a\x09\x09'tar' -> 'application/x-tar'.\x0a\x09\x09'taz' -> 'application/x-gtar'.\x0a\x09\x09'tcl' -> 'text/x-tcl'.\x0a\x09\x09'tex' -> 'text/x-tex'.\x0a\x09\x09'texi' -> 'application/x-texinfo'.\x0a\x09\x09'texinfo' -> 'application/x-texinfo'.\x0a\x09\x09'text' -> 'text/plain'.\x0a\x09\x09'tgf' -> 'chemical/x-mdl-tgf'.\x0a\x09\x09'tgz' -> 'application/x-gtar'.\x0a\x09\x09'tif' -> 'image/tiff'.\x0a\x09\x09'tiff' -> 'image/tiff'.\x0a\x09\x09'tk' -> 'text/x-tcl'.\x0a\x09\x09'tm' -> 'text/texmacs'.\x0a\x09\x09'torrent' -> 'application/x-bittorrent'.\x0a\x09\x09'tr' -> 'application/x-troff'.\x0a\x09\x09'ts' -> 'text/texmacs'.\x0a\x09\x09'tsp' -> 'application/dsptype'.\x0a\x09\x09'tsv' -> 'text/tab-separated-values'.\x0a\x09\x09'txt' -> 'text/plain'.\x0a\x09\x09'udeb' -> 'application/x-debian-package'.\x0a\x09\x09'uls' -> 'text/iuls'.\x0a\x09\x09'ustar' -> 'application/x-ustar'.\x0a\x09\x09'val' -> 'chemical/x-ncbi-asn1-binary'.\x0a\x09\x09'vcd' -> 'application/x-cdlink'.\x0a\x09\x09'vcf' -> 'text/x-vcard'.\x0a\x09\x09'vcs' -> 'text/x-vcalendar'.\x0a\x09\x09'vmd' -> 'chemical/x-vmd'.\x0a\x09\x09'vms' -> 'chemical/x-vamas-iso14976'.\x0a\x09\x09'vor' -> 'application/vnd.stardivision.writer'.\x0a\x09\x09'vrm' -> 'x-world/x-vrml'.\x0a\x09\x09'vrml' -> 'x-world/x-vrml'.\x0a\x09\x09'vsd' -> 'application/vnd.visio'.\x0a\x09\x09'wad' -> 'application/x-doom'.\x0a\x09\x09'wav' -> 'audio/x-wav'.\x0a\x09\x09'wax' -> 'audio/x-ms-wax'.\x0a\x09\x09'wbmp' -> 'image/vnd.wap.wbmp'.\x0a\x09\x09'wbxml' -> 'application/vnd.wap.wbxml'.\x0a\x09\x09'wk' -> 'application/x-123'.\x0a\x09\x09'wm' -> 'video/x-ms-wm'.\x0a\x09\x09'wma' -> 'audio/x-ms-wma'.\x0a\x09\x09'wmd' -> 'application/x-ms-wmd'.\x0a\x09\x09'wml' -> 'text/vnd.wap.wml'.\x0a\x09\x09'wmlc' -> 'application/vnd.wap.wmlc'.\x0a\x09\x09'wmls' -> 'text/vnd.wap.wmlscript'.\x0a\x09\x09'wmlsc' -> 'application/vnd.wap.wmlscriptc'.\x0a\x09\x09'wmv' -> 'video/x-ms-wmv'.\x0a\x09\x09'wmx' -> 'video/x-ms-wmx'.\x0a\x09\x09'wmz' -> 'application/x-ms-wmz'.\x0a\x09\x09'wp5' -> 'application/wordperfect5.1'.\x0a\x09\x09'wpd' -> 'application/wordperfect'.\x0a\x09\x09'wrl' -> 'x-world/x-vrml'.\x0a\x09\x09'wsc' -> 'text/scriptlet'.\x0a\x09\x09'wvx' -> 'video/x-ms-wvx'.\x0a\x09\x09'wz' -> 'application/x-wingz'.\x0a\x09\x09'xbm' -> 'image/x-xbitmap'.\x0a\x09\x09'xcf' -> 'application/x-xcf'.\x0a\x09\x09'xht' -> 'application/xhtml+xml'.\x0a\x09\x09'xhtml' -> 'application/xhtml+xml'.\x0a\x09\x09'xlb' -> 'application/vnd.ms-excel'.\x0a\x09\x09'xls' -> 'application/vnd.ms-excel'.\x0a\x09\x09'xlt' -> 'application/vnd.ms-excel'.\x0a\x09\x09'xml' -> 'application/xml'.\x0a\x09\x09'xpi' -> 'application/x-xpinstall'.\x0a\x09\x09'xpm' -> 'image/x-xpixmap'.\x0a\x09\x09'xsl' -> 'application/xml'.\x0a\x09\x09'xtel' -> 'chemical/x-xtel'.\x0a\x09\x09'xul' -> 'application/vnd.mozilla.xul+xml'.\x0a\x09\x09'xwd' -> 'image/x-xwindowdump'.\x0a\x09\x09'xyz' -> 'chemical/x-xyz'.\x0a\x09\x09'zip' -> 'application/zip'.\x0a\x09\x09'zmt' -> 'chemical/x-mopac-input'.\x0a\x09\x09'~' -> 'application/x-trash'\x0a\x09}",
  1897. referencedClasses: [],
  1898. //>>excludeEnd("ide");
  1899. messageSends: []
  1900. }),
  1901. $globals.FileServer.klass);
  1902. $core.addMethod(
  1903. $core.method({
  1904. selector: "defaultPort",
  1905. protocol: 'accessing',
  1906. fn: function (){
  1907. var self=this;
  1908. return (4000);
  1909. },
  1910. //>>excludeStart("ide", pragmas.excludeIdeData);
  1911. args: [],
  1912. source: "defaultPort\x0a\x09^ 4000",
  1913. referencedClasses: [],
  1914. //>>excludeEnd("ide");
  1915. messageSends: []
  1916. }),
  1917. $globals.FileServer.klass);
  1918. $core.addMethod(
  1919. $core.method({
  1920. selector: "main",
  1921. protocol: 'initialization',
  1922. fn: function (){
  1923. var self=this;
  1924. var fileServer,args;
  1925. function $FileServer(){return $globals.FileServer||(typeof FileServer=="undefined"?nil:FileServer)}
  1926. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1927. return $core.withContext(function($ctx1) {
  1928. //>>excludeEnd("ctx");
  1929. var $1,$2;
  1930. var $early={};
  1931. try {
  1932. args=$recv(process)._argv();
  1933. $recv(args)._removeFrom_to_((1),(3));
  1934. $recv(args)._detect_ifNone_((function(each){
  1935. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1936. return $core.withContext(function($ctx2) {
  1937. //>>excludeEnd("ctx");
  1938. $1=$recv(each).__eq("--help");
  1939. if($core.assert($1)){
  1940. return $recv($FileServer())._printHelp();
  1941. };
  1942. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1943. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  1944. //>>excludeEnd("ctx");
  1945. }),(function(){
  1946. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1947. return $core.withContext(function($ctx2) {
  1948. //>>excludeEnd("ctx");
  1949. fileServer=$recv($FileServer())._createServerWithArguments_(args);
  1950. fileServer;
  1951. $2=$recv(fileServer)._start();
  1952. throw $early=[$2];
  1953. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1954. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)});
  1955. //>>excludeEnd("ctx");
  1956. }));
  1957. return self;
  1958. }
  1959. catch(e) {if(e===$early)return e[0]; throw e}
  1960. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1961. }, function($ctx1) {$ctx1.fill(self,"main",{fileServer:fileServer,args:args},$globals.FileServer.klass)});
  1962. //>>excludeEnd("ctx");
  1963. },
  1964. //>>excludeStart("ide", pragmas.excludeIdeData);
  1965. args: [],
  1966. source: "main\x0a\x09\x22Main entry point for Amber applications.\x0a\x09 Creates and starts a FileServer instance.\x22\x0a\x09| fileServer args |\x0a\x09args := process argv.\x0a\x09\x22Remove the first args which contain the path to the node executable and the script file.\x22\x0a\x09args removeFrom: 1 to: 3.\x0a\x0a\x09args detect: [ :each |\x0a\x09\x09(each = '--help') ifTrue: [FileServer printHelp]]\x0a\x09ifNone: [\x0a\x09\x09fileServer := FileServer createServerWithArguments: args.\x0a\x09\x09^ fileServer start]",
  1967. referencedClasses: ["FileServer"],
  1968. //>>excludeEnd("ide");
  1969. messageSends: ["argv", "removeFrom:to:", "detect:ifNone:", "ifTrue:", "=", "printHelp", "createServerWithArguments:", "start"]
  1970. }),
  1971. $globals.FileServer.klass);
  1972. $core.addMethod(
  1973. $core.method({
  1974. selector: "mimeTypeFor:",
  1975. protocol: 'accessing',
  1976. fn: function (aString){
  1977. var self=this;
  1978. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1979. return $core.withContext(function($ctx1) {
  1980. //>>excludeEnd("ctx");
  1981. var $1;
  1982. $1=$recv(self._mimeTypes())._at_ifAbsent_($recv(aString)._replace_with_(".*[\x5c.]",""),(function(){
  1983. return "text/plain";
  1984. }));
  1985. return $1;
  1986. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1987. }, function($ctx1) {$ctx1.fill(self,"mimeTypeFor:",{aString:aString},$globals.FileServer.klass)});
  1988. //>>excludeEnd("ctx");
  1989. },
  1990. //>>excludeStart("ide", pragmas.excludeIdeData);
  1991. args: ["aString"],
  1992. source: "mimeTypeFor: aString\x0a\x09^ self mimeTypes at: (aString replace: '.*[\x5c.]' with: '') ifAbsent: ['text/plain']",
  1993. referencedClasses: [],
  1994. //>>excludeEnd("ide");
  1995. messageSends: ["at:ifAbsent:", "mimeTypes", "replace:with:"]
  1996. }),
  1997. $globals.FileServer.klass);
  1998. $core.addMethod(
  1999. $core.method({
  2000. selector: "mimeTypes",
  2001. protocol: 'accessing',
  2002. fn: function (){
  2003. var self=this;
  2004. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2005. return $core.withContext(function($ctx1) {
  2006. //>>excludeEnd("ctx");
  2007. var $2,$1,$receiver;
  2008. $2=self["@mimeTypes"];
  2009. if(($receiver = $2) == null || $receiver.isNil){
  2010. self["@mimeTypes"]=self._defaultMimeTypes();
  2011. $1=self["@mimeTypes"];
  2012. } else {
  2013. $1=$2;
  2014. };
  2015. return $1;
  2016. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2017. }, function($ctx1) {$ctx1.fill(self,"mimeTypes",{},$globals.FileServer.klass)});
  2018. //>>excludeEnd("ctx");
  2019. },
  2020. //>>excludeStart("ide", pragmas.excludeIdeData);
  2021. args: [],
  2022. source: "mimeTypes\x0a\x09^ mimeTypes ifNil: [mimeTypes := self defaultMimeTypes]",
  2023. referencedClasses: [],
  2024. //>>excludeEnd("ide");
  2025. messageSends: ["ifNil:", "defaultMimeTypes"]
  2026. }),
  2027. $globals.FileServer.klass);
  2028. $core.addMethod(
  2029. $core.method({
  2030. selector: "printHelp",
  2031. protocol: 'accessing',
  2032. fn: function (){
  2033. var self=this;
  2034. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2035. return $core.withContext(function($ctx1) {
  2036. //>>excludeEnd("ctx");
  2037. $recv(console)._log_("Available commandline options are:");
  2038. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2039. $ctx1.sendIdx["log:"]=1;
  2040. //>>excludeEnd("ctx");
  2041. $recv(console)._log_("--help");
  2042. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2043. $ctx1.sendIdx["log:"]=2;
  2044. //>>excludeEnd("ctx");
  2045. $recv(self._commandLineSwitches())._do_((function(each){
  2046. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2047. return $core.withContext(function($ctx2) {
  2048. //>>excludeEnd("ctx");
  2049. return $recv(console)._log_($recv(each).__comma(" <parameter>"));
  2050. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2051. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  2052. //>>excludeEnd("ctx");
  2053. }));
  2054. return self;
  2055. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2056. }, function($ctx1) {$ctx1.fill(self,"printHelp",{},$globals.FileServer.klass)});
  2057. //>>excludeEnd("ctx");
  2058. },
  2059. //>>excludeStart("ide", pragmas.excludeIdeData);
  2060. args: [],
  2061. source: "printHelp\x0a\x09console log: 'Available commandline options are:'.\x0a\x09console log: '--help'.\x0a\x09self commandLineSwitches do: [ :each |\x0a\x09\x09console log: each, ' <parameter>']",
  2062. referencedClasses: [],
  2063. //>>excludeEnd("ide");
  2064. messageSends: ["log:", "do:", "commandLineSwitches", ","]
  2065. }),
  2066. $globals.FileServer.klass);
  2067. $core.addMethod(
  2068. $core.method({
  2069. selector: "selectorForCommandLineSwitch:",
  2070. protocol: 'accessing',
  2071. fn: function (aSwitch){
  2072. var self=this;
  2073. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2074. return $core.withContext(function($ctx1) {
  2075. //>>excludeEnd("ctx");
  2076. var $2,$1;
  2077. $2=$recv($recv(aSwitch)._replace_with_("^--",""))._replace_with_("-[a-z]",(function(each){
  2078. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2079. return $core.withContext(function($ctx2) {
  2080. //>>excludeEnd("ctx");
  2081. return $recv($recv(each)._second())._asUppercase();
  2082. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2083. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  2084. //>>excludeEnd("ctx");
  2085. }));
  2086. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2087. $ctx1.sendIdx["replace:with:"]=1;
  2088. //>>excludeEnd("ctx");
  2089. $1=$recv($2).__comma(":");
  2090. return $1;
  2091. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2092. }, function($ctx1) {$ctx1.fill(self,"selectorForCommandLineSwitch:",{aSwitch:aSwitch},$globals.FileServer.klass)});
  2093. //>>excludeEnd("ctx");
  2094. },
  2095. //>>excludeStart("ide", pragmas.excludeIdeData);
  2096. args: ["aSwitch"],
  2097. source: "selectorForCommandLineSwitch: aSwitch\x0a\x09\x22Remove the trailing '--', add ':' at the end\x0a\x09 and replace all occurences of a lowercase letter preceded by a '-' with\x0a\x09 the Uppercase letter.\x0a\x09 Example: --fallback-page becomes fallbackPage:\x22\x0a\x09^ ((aSwitch replace: '^--' with: '')\x0a\x09\x09replace: '-[a-z]' with: [ :each | each second asUppercase ]), ':'",
  2098. referencedClasses: [],
  2099. //>>excludeEnd("ide");
  2100. messageSends: [",", "replace:with:", "asUppercase", "second"]
  2101. }),
  2102. $globals.FileServer.klass);
  2103. $core.addClass('Initer', $globals.BaseFileManipulator, ['childProcess', 'nmPath'], 'AmberCli');
  2104. $core.addMethod(
  2105. $core.method({
  2106. selector: "bowerInstallThenDo:",
  2107. protocol: 'action',
  2108. fn: function (aBlock){
  2109. var self=this;
  2110. var child;
  2111. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2112. return $core.withContext(function($ctx1) {
  2113. //>>excludeEnd("ctx");
  2114. var $1,$4,$3,$2;
  2115. child=$recv(self["@childProcess"])._fork_args_(self._npmScriptForModule_named_("bower","bower"),["install"]);
  2116. $1=child;
  2117. $recv($1)._on_do_("error",aBlock);
  2118. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2119. $ctx1.sendIdx["on:do:"]=1;
  2120. //>>excludeEnd("ctx");
  2121. $2=$recv($1)._on_do_("close",(function(code){
  2122. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2123. return $core.withContext(function($ctx2) {
  2124. //>>excludeEnd("ctx");
  2125. $4=$recv(code).__eq((0));
  2126. if($core.assert($4)){
  2127. $3=nil;
  2128. } else {
  2129. $3=code;
  2130. };
  2131. return $recv(aBlock)._value_($3);
  2132. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2133. }, function($ctx2) {$ctx2.fillBlock({code:code},$ctx1,1)});
  2134. //>>excludeEnd("ctx");
  2135. }));
  2136. return self;
  2137. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2138. }, function($ctx1) {$ctx1.fill(self,"bowerInstallThenDo:",{aBlock:aBlock,child:child},$globals.Initer)});
  2139. //>>excludeEnd("ctx");
  2140. },
  2141. //>>excludeStart("ide", pragmas.excludeIdeData);
  2142. args: ["aBlock"],
  2143. source: "bowerInstallThenDo: aBlock\x0a\x09| child |\x0a\x09child := childProcess\x0a\x09\x09fork: (self npmScriptForModule: 'bower' named: 'bower')\x0a\x09\x09args: #('install').\x0a\x09child\x0a\x09\x09on: 'error' do: aBlock;\x0a\x09\x09on: 'close' do: [ :code |\x0a\x09\x09\x09aBlock value: (code = 0 ifTrue: [ nil ] ifFalse: [ code ]) ]",
  2144. referencedClasses: [],
  2145. //>>excludeEnd("ide");
  2146. messageSends: ["fork:args:", "npmScriptForModule:named:", "on:do:", "value:", "ifTrue:ifFalse:", "="]
  2147. }),
  2148. $globals.Initer);
  2149. $core.addMethod(
  2150. $core.method({
  2151. selector: "finishMessage",
  2152. protocol: 'action',
  2153. fn: function (){
  2154. var self=this;
  2155. function $String(){return $globals.String||(typeof String=="undefined"?nil:String)}
  2156. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2157. return $core.withContext(function($ctx1) {
  2158. //>>excludeEnd("ctx");
  2159. $recv(console)._log_([" ", "The project should now be set up.", " ", " "]._join_($recv($String())._lf()));
  2160. $recv((function(){
  2161. }))._valueWithTimeout_((600));
  2162. return self;
  2163. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2164. }, function($ctx1) {$ctx1.fill(self,"finishMessage",{},$globals.Initer)});
  2165. //>>excludeEnd("ctx");
  2166. },
  2167. //>>excludeStart("ide", pragmas.excludeIdeData);
  2168. args: [],
  2169. source: "finishMessage\x0a\x09console log: (#(\x0a\x09\x09' '\x0a\x09\x09'The project should now be set up.'\x0a\x09\x09' '\x0a\x09\x09' '\x0a\x09) join: String lf).\x0a\x09[] valueWithTimeout: 600",
  2170. referencedClasses: ["String"],
  2171. //>>excludeEnd("ide");
  2172. messageSends: ["log:", "join:", "lf", "valueWithTimeout:"]
  2173. }),
  2174. $globals.Initer);
  2175. $core.addMethod(
  2176. $core.method({
  2177. selector: "gruntInitThenDo:",
  2178. protocol: 'action',
  2179. fn: function (aBlock){
  2180. var self=this;
  2181. var child,sanitizedTemplatePath;
  2182. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2183. return $core.withContext(function($ctx1) {
  2184. //>>excludeEnd("ctx");
  2185. var $1,$4,$3,$2;
  2186. sanitizedTemplatePath=$recv($recv($recv(self["@path"])._join_with_(self["@nmPath"],"grunt-init-amber"))._replace_with_("\x5c\x5c","\x5c\x5c"))._replace_with_(":","\x5c:");
  2187. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2188. $ctx1.sendIdx["replace:with:"]=1;
  2189. //>>excludeEnd("ctx");
  2190. child=$recv(self["@childProcess"])._fork_args_(self._npmScriptForModule_named_("grunt-init","grunt-init"),[sanitizedTemplatePath]);
  2191. $1=child;
  2192. $recv($1)._on_do_("error",aBlock);
  2193. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2194. $ctx1.sendIdx["on:do:"]=1;
  2195. //>>excludeEnd("ctx");
  2196. $2=$recv($1)._on_do_("close",(function(code){
  2197. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2198. return $core.withContext(function($ctx2) {
  2199. //>>excludeEnd("ctx");
  2200. $4=$recv(code).__eq((0));
  2201. if($core.assert($4)){
  2202. $3=nil;
  2203. } else {
  2204. $3=code;
  2205. };
  2206. return $recv(aBlock)._value_($3);
  2207. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2208. }, function($ctx2) {$ctx2.fillBlock({code:code},$ctx1,1)});
  2209. //>>excludeEnd("ctx");
  2210. }));
  2211. return self;
  2212. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2213. }, function($ctx1) {$ctx1.fill(self,"gruntInitThenDo:",{aBlock:aBlock,child:child,sanitizedTemplatePath:sanitizedTemplatePath},$globals.Initer)});
  2214. //>>excludeEnd("ctx");
  2215. },
  2216. //>>excludeStart("ide", pragmas.excludeIdeData);
  2217. args: ["aBlock"],
  2218. source: "gruntInitThenDo: aBlock\x0a\x09| child sanitizedTemplatePath |\x0a\x09sanitizedTemplatePath := ((path join: nmPath with: 'grunt-init-amber')\x0a\x09\x09replace: '\x5c\x5c' with: '\x5c\x5c') replace: ':' with: '\x5c:'.\x0a\x09child := childProcess\x0a\x09\x09fork: (self npmScriptForModule: 'grunt-init' named: 'grunt-init')\x0a\x09\x09args: {sanitizedTemplatePath}.\x0a\x09child\x0a\x09\x09on: 'error' do: aBlock;\x0a\x09\x09on: 'close' do: [ :code |\x0a\x09\x09\x09aBlock value: (code = 0 ifTrue: [ nil ] ifFalse: [ code ]) ]",
  2219. referencedClasses: [],
  2220. //>>excludeEnd("ide");
  2221. messageSends: ["replace:with:", "join:with:", "fork:args:", "npmScriptForModule:named:", "on:do:", "value:", "ifTrue:ifFalse:", "="]
  2222. }),
  2223. $globals.Initer);
  2224. $core.addMethod(
  2225. $core.method({
  2226. selector: "gruntThenDo:",
  2227. protocol: 'action',
  2228. fn: function (aBlock){
  2229. var self=this;
  2230. var child;
  2231. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2232. return $core.withContext(function($ctx1) {
  2233. //>>excludeEnd("ctx");
  2234. var $1,$4,$3,$2;
  2235. child=$recv(self["@childProcess"])._fork_args_(self._npmScriptForModule_named_("grunt-cli","grunt"),["default", "devel"]);
  2236. $1=child;
  2237. $recv($1)._on_do_("error",aBlock);
  2238. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2239. $ctx1.sendIdx["on:do:"]=1;
  2240. //>>excludeEnd("ctx");
  2241. $2=$recv($1)._on_do_("close",(function(code){
  2242. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2243. return $core.withContext(function($ctx2) {
  2244. //>>excludeEnd("ctx");
  2245. $4=$recv(code).__eq((0));
  2246. if($core.assert($4)){
  2247. $3=nil;
  2248. } else {
  2249. $3=code;
  2250. };
  2251. return $recv(aBlock)._value_($3);
  2252. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2253. }, function($ctx2) {$ctx2.fillBlock({code:code},$ctx1,1)});
  2254. //>>excludeEnd("ctx");
  2255. }));
  2256. return self;
  2257. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2258. }, function($ctx1) {$ctx1.fill(self,"gruntThenDo:",{aBlock:aBlock,child:child},$globals.Initer)});
  2259. //>>excludeEnd("ctx");
  2260. },
  2261. //>>excludeStart("ide", pragmas.excludeIdeData);
  2262. args: ["aBlock"],
  2263. source: "gruntThenDo: aBlock\x0a\x09| child |\x0a\x09child := childProcess\x0a\x09\x09fork: (self npmScriptForModule: 'grunt-cli' named: 'grunt')\x0a\x09\x09args: #('default' 'devel').\x0a\x09child\x0a\x09\x09on: 'error' do: aBlock;\x0a\x09\x09on: 'close' do: [ :code |\x0a\x09\x09\x09aBlock value: (code = 0 ifTrue: [ nil ] ifFalse: [ code ]) ]",
  2264. referencedClasses: [],
  2265. //>>excludeEnd("ide");
  2266. messageSends: ["fork:args:", "npmScriptForModule:named:", "on:do:", "value:", "ifTrue:ifFalse:", "="]
  2267. }),
  2268. $globals.Initer);
  2269. $core.addMethod(
  2270. $core.method({
  2271. selector: "initialize",
  2272. protocol: 'initialization',
  2273. fn: function (){
  2274. var self=this;
  2275. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2276. return $core.withContext(function($ctx1) {
  2277. //>>excludeEnd("ctx");
  2278. (
  2279. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2280. $ctx1.supercall = true,
  2281. //>>excludeEnd("ctx");
  2282. $globals.Initer.superclass.fn.prototype._initialize.apply($recv(self), []));
  2283. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2284. $ctx1.supercall = false;
  2285. //>>excludeEnd("ctx");;
  2286. self["@childProcess"]=$recv(require)._value_("child_process");
  2287. self["@nmPath"]=$recv(self["@path"])._join_with_(self._rootDirname(),"node_modules");
  2288. return self;
  2289. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2290. }, function($ctx1) {$ctx1.fill(self,"initialize",{},$globals.Initer)});
  2291. //>>excludeEnd("ctx");
  2292. },
  2293. //>>excludeStart("ide", pragmas.excludeIdeData);
  2294. args: [],
  2295. source: "initialize\x0a\x09super initialize.\x0a\x09childProcess := require value: 'child_process'.\x0a\x09nmPath := path join: self rootDirname with: 'node_modules'",
  2296. referencedClasses: [],
  2297. //>>excludeEnd("ide");
  2298. messageSends: ["initialize", "value:", "join:with:", "rootDirname"]
  2299. }),
  2300. $globals.Initer);
  2301. $core.addMethod(
  2302. $core.method({
  2303. selector: "npmInstallThenDo:",
  2304. protocol: 'action',
  2305. fn: function (aBlock){
  2306. var self=this;
  2307. var child;
  2308. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2309. return $core.withContext(function($ctx1) {
  2310. //>>excludeEnd("ctx");
  2311. var $1;
  2312. child=$recv(self["@childProcess"])._exec_thenDo_("npm install",aBlock);
  2313. $1=$recv(child)._stdout();
  2314. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2315. $ctx1.sendIdx["stdout"]=1;
  2316. //>>excludeEnd("ctx");
  2317. $recv($1)._pipe_options_($recv(process)._stdout(),$globals.HashedCollection._newFromPairs_(["end",false]));
  2318. return self;
  2319. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2320. }, function($ctx1) {$ctx1.fill(self,"npmInstallThenDo:",{aBlock:aBlock,child:child},$globals.Initer)});
  2321. //>>excludeEnd("ctx");
  2322. },
  2323. //>>excludeStart("ide", pragmas.excludeIdeData);
  2324. args: ["aBlock"],
  2325. source: "npmInstallThenDo: aBlock\x0a\x09| child |\x0a\x09child := childProcess\x0a\x09\x09exec: 'npm install'\x0a\x09\x09thenDo: aBlock.\x0a\x09child stdout pipe: process stdout options: #{ 'end' -> false }",
  2326. referencedClasses: [],
  2327. //>>excludeEnd("ide");
  2328. messageSends: ["exec:thenDo:", "pipe:options:", "stdout"]
  2329. }),
  2330. $globals.Initer);
  2331. $core.addMethod(
  2332. $core.method({
  2333. selector: "npmScriptForModule:named:",
  2334. protocol: 'npm',
  2335. fn: function (aString,anotherString){
  2336. var self=this;
  2337. var modulePath,packageJson,binSection,scriptPath;
  2338. function $JSObjectProxy(){return $globals.JSObjectProxy||(typeof JSObjectProxy=="undefined"?nil:JSObjectProxy)}
  2339. function $Smalltalk(){return $globals.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
  2340. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2341. return $core.withContext(function($ctx1) {
  2342. //>>excludeEnd("ctx");
  2343. var $1,$3,$4,$2,$5,$6;
  2344. $1=self["@path"];
  2345. $3=$recv($JSObjectProxy())._on_(require);
  2346. $4=$recv(aString).__comma("/package.json");
  2347. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2348. $ctx1.sendIdx[","]=1;
  2349. //>>excludeEnd("ctx");
  2350. $2=$recv($3)._resolve_($4);
  2351. modulePath=$recv($1)._dirname_($2);
  2352. packageJson=$recv($Smalltalk())._readJSObject_($recv(require)._value_($recv(aString).__comma("/package.json")));
  2353. binSection=$recv(packageJson)._at_("bin");
  2354. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2355. $ctx1.sendIdx["at:"]=1;
  2356. //>>excludeEnd("ctx");
  2357. $5=$recv(binSection)._isString();
  2358. if($core.assert($5)){
  2359. scriptPath=binSection;
  2360. } else {
  2361. scriptPath=$recv(binSection)._at_(anotherString);
  2362. };
  2363. $6=$recv(self["@path"])._join_with_(modulePath,scriptPath);
  2364. return $6;
  2365. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2366. }, function($ctx1) {$ctx1.fill(self,"npmScriptForModule:named:",{aString:aString,anotherString:anotherString,modulePath:modulePath,packageJson:packageJson,binSection:binSection,scriptPath:scriptPath},$globals.Initer)});
  2367. //>>excludeEnd("ctx");
  2368. },
  2369. //>>excludeStart("ide", pragmas.excludeIdeData);
  2370. args: ["aString", "anotherString"],
  2371. source: "npmScriptForModule: aString named: anotherString\x0a\x09| modulePath packageJson binSection scriptPath |\x0a\x09modulePath := path dirname: (\x0a\x09\x09(JSObjectProxy on: require)\x0a\x09\x09\x09resolve: aString, '/package.json').\x0a\x09packageJson := Smalltalk readJSObject: (\x0a\x09\x09require value: aString, '/package.json').\x0a\x09binSection := packageJson at: 'bin'.\x0a\x09scriptPath := binSection isString\x0a\x09\x09ifTrue: [ binSection ]\x0a\x09\x09ifFalse: [ binSection at: anotherString ].\x0a\x09^ path join: modulePath with: scriptPath",
  2372. referencedClasses: ["JSObjectProxy", "Smalltalk"],
  2373. //>>excludeEnd("ide");
  2374. messageSends: ["dirname:", "resolve:", "on:", ",", "readJSObject:", "value:", "at:", "ifTrue:ifFalse:", "isString", "join:with:"]
  2375. }),
  2376. $globals.Initer);
  2377. $core.addMethod(
  2378. $core.method({
  2379. selector: "start",
  2380. protocol: 'action',
  2381. fn: function (){
  2382. var self=this;
  2383. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2384. return $core.withContext(function($ctx1) {
  2385. //>>excludeEnd("ctx");
  2386. var $1,$2,$3,$4,$5,$6,$7,$8,$receiver;
  2387. self._gruntInitThenDo_((function(error){
  2388. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2389. return $core.withContext(function($ctx2) {
  2390. //>>excludeEnd("ctx");
  2391. if(($receiver = error) == null || $receiver.isNil){
  2392. return self._bowerInstallThenDo_((function(error2){
  2393. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2394. return $core.withContext(function($ctx3) {
  2395. //>>excludeEnd("ctx");
  2396. if(($receiver = error2) == null || $receiver.isNil){
  2397. return self._npmInstallThenDo_((function(error3){
  2398. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2399. return $core.withContext(function($ctx4) {
  2400. //>>excludeEnd("ctx");
  2401. if(($receiver = error3) == null || $receiver.isNil){
  2402. return self._gruntThenDo_((function(error4){
  2403. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2404. return $core.withContext(function($ctx5) {
  2405. //>>excludeEnd("ctx");
  2406. if(($receiver = error4) == null || $receiver.isNil){
  2407. self._finishMessage();
  2408. return $recv(process)._exit();
  2409. } else {
  2410. $7=console;
  2411. $recv($7)._log_("grunt exec error:");
  2412. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2413. $ctx5.sendIdx["log:"]=7;
  2414. //>>excludeEnd("ctx");
  2415. $8=$recv($7)._log_(error4);
  2416. $8;
  2417. return $recv(process)._exit_((104));
  2418. };
  2419. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2420. }, function($ctx5) {$ctx5.fillBlock({error4:error4},$ctx4,10)});
  2421. //>>excludeEnd("ctx");
  2422. }));
  2423. } else {
  2424. $5=console;
  2425. $recv($5)._log_("npm install exec error:");
  2426. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2427. $ctx4.sendIdx["log:"]=5;
  2428. //>>excludeEnd("ctx");
  2429. $6=$recv($5)._log_(error3);
  2430. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2431. $ctx4.sendIdx["log:"]=6;
  2432. //>>excludeEnd("ctx");
  2433. $6;
  2434. return $recv(process)._exit_((103));
  2435. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2436. $ctx4.sendIdx["exit:"]=3;
  2437. //>>excludeEnd("ctx");
  2438. };
  2439. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2440. }, function($ctx4) {$ctx4.fillBlock({error3:error3},$ctx3,7)});
  2441. //>>excludeEnd("ctx");
  2442. }));
  2443. } else {
  2444. $3=console;
  2445. $recv($3)._log_("bower install exec error:");
  2446. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2447. $ctx3.sendIdx["log:"]=3;
  2448. //>>excludeEnd("ctx");
  2449. $4=$recv($3)._log_(error2);
  2450. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2451. $ctx3.sendIdx["log:"]=4;
  2452. //>>excludeEnd("ctx");
  2453. $4;
  2454. return $recv(process)._exit_((102));
  2455. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2456. $ctx3.sendIdx["exit:"]=2;
  2457. //>>excludeEnd("ctx");
  2458. };
  2459. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2460. }, function($ctx3) {$ctx3.fillBlock({error2:error2},$ctx2,4)});
  2461. //>>excludeEnd("ctx");
  2462. }));
  2463. } else {
  2464. $1=console;
  2465. $recv($1)._log_("grunt-init exec error:");
  2466. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2467. $ctx2.sendIdx["log:"]=1;
  2468. //>>excludeEnd("ctx");
  2469. $2=$recv($1)._log_(error);
  2470. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2471. $ctx2.sendIdx["log:"]=2;
  2472. //>>excludeEnd("ctx");
  2473. $2;
  2474. return $recv(process)._exit_((101));
  2475. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2476. $ctx2.sendIdx["exit:"]=1;
  2477. //>>excludeEnd("ctx");
  2478. };
  2479. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2480. }, function($ctx2) {$ctx2.fillBlock({error:error},$ctx1,1)});
  2481. //>>excludeEnd("ctx");
  2482. }));
  2483. return self;
  2484. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2485. }, function($ctx1) {$ctx1.fill(self,"start",{},$globals.Initer)});
  2486. //>>excludeEnd("ctx");
  2487. },
  2488. //>>excludeStart("ide", pragmas.excludeIdeData);
  2489. args: [],
  2490. source: "start\x0a\x09self gruntInitThenDo: [ :error | error\x0a\x09ifNotNil: [\x0a\x09\x09console log: 'grunt-init exec error:'; log: error.\x0a\x09\x09process exit: 101 ]\x0a\x09ifNil: [\x0a\x0a\x09self bowerInstallThenDo: [ :error2 | error2\x0a\x09ifNotNil: [\x0a\x09\x09console log: 'bower install exec error:'; log: error2.\x0a\x09\x09process exit: 102 ]\x0a\x09ifNil: [\x0a\x0a\x09self npmInstallThenDo: [ :error3 | error3\x0a\x09ifNotNil: [\x0a\x09\x09console log: 'npm install exec error:'; log: error3.\x0a\x09\x09process exit: 103 ]\x0a\x09ifNil: [\x0a\x0a\x09self gruntThenDo: [ :error4 | error4\x0a\x09ifNotNil: [\x0a\x09\x09console log: 'grunt exec error:'; log: error4.\x0a\x09\x09process exit: 104 ]\x0a\x09ifNil: [\x0a\x0a\x09self finishMessage.\x0a\x09process exit ]]]]]]]]",
  2491. referencedClasses: [],
  2492. //>>excludeEnd("ide");
  2493. messageSends: ["gruntInitThenDo:", "ifNotNil:ifNil:", "log:", "exit:", "bowerInstallThenDo:", "npmInstallThenDo:", "gruntThenDo:", "finishMessage", "exit"]
  2494. }),
  2495. $globals.Initer);
  2496. $core.addClass('Repl', $globals.Object, ['readline', 'interface', 'util', 'session', 'resultCount', 'commands'], 'AmberCli');
  2497. //>>excludeStart("ide", pragmas.excludeIdeData);
  2498. $globals.Repl.comment="I am a class representing a REPL (Read Evaluate Print Loop) and provide a command line interface to Amber Smalltalk.\x0aOn the prompt you can type Amber statements which will be evaluated after pressing <Enter>.\x0aThe evaluation is comparable with executing a 'DoIt' in a workspace.\x0a\x0aMy runtime requirement is a functional Node.js executable with working Readline support.";
  2499. //>>excludeEnd("ide");
  2500. $core.addMethod(
  2501. $core.method({
  2502. selector: "addVariableNamed:to:",
  2503. protocol: 'private',
  2504. fn: function (aString,anObject){
  2505. var self=this;
  2506. var newClass,newObject;
  2507. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2508. return $core.withContext(function($ctx1) {
  2509. //>>excludeEnd("ctx");
  2510. var $1;
  2511. newClass=self._subclass_withVariable_($recv(anObject)._class(),aString);
  2512. self._encapsulateVariable_withValue_in_(aString,anObject,newClass);
  2513. newObject=$recv(newClass)._new();
  2514. self._setPreviousVariablesFor_from_(newObject,anObject);
  2515. $1=newObject;
  2516. return $1;
  2517. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2518. }, function($ctx1) {$ctx1.fill(self,"addVariableNamed:to:",{aString:aString,anObject:anObject,newClass:newClass,newObject:newObject},$globals.Repl)});
  2519. //>>excludeEnd("ctx");
  2520. },
  2521. //>>excludeStart("ide", pragmas.excludeIdeData);
  2522. args: ["aString", "anObject"],
  2523. source: "addVariableNamed: aString to: anObject\x0a\x09| newClass newObject |\x0a\x09newClass := self subclass: anObject class withVariable: aString.\x0a\x09self encapsulateVariable: aString withValue: anObject in: newClass.\x0a\x09newObject := newClass new.\x0a\x09self setPreviousVariablesFor: newObject from: anObject.\x0a\x09^ newObject",
  2524. referencedClasses: [],
  2525. //>>excludeEnd("ide");
  2526. messageSends: ["subclass:withVariable:", "class", "encapsulateVariable:withValue:in:", "new", "setPreviousVariablesFor:from:"]
  2527. }),
  2528. $globals.Repl);
  2529. $core.addMethod(
  2530. $core.method({
  2531. selector: "assignNewVariable:do:",
  2532. protocol: 'private',
  2533. fn: function (buffer,aBlock){
  2534. var self=this;
  2535. function $Error(){return $globals.Error||(typeof Error=="undefined"?nil:Error)}
  2536. function $ConsoleErrorHandler(){return $globals.ConsoleErrorHandler||(typeof ConsoleErrorHandler=="undefined"?nil:ConsoleErrorHandler)}
  2537. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2538. return $core.withContext(function($ctx1) {
  2539. //>>excludeEnd("ctx");
  2540. var $3,$4,$2,$1,$receiver;
  2541. $1=self._parseAssignment_do_(buffer,(function(name,expr){
  2542. var varName,value;
  2543. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2544. return $core.withContext(function($ctx2) {
  2545. //>>excludeEnd("ctx");
  2546. if(($receiver = name) == null || $receiver.isNil){
  2547. varName=self._nextResultName();
  2548. } else {
  2549. varName=name;
  2550. };
  2551. varName;
  2552. self["@session"]=self._addVariableNamed_to_(varName,self["@session"]);
  2553. self["@session"];
  2554. $recv((function(){
  2555. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2556. return $core.withContext(function($ctx3) {
  2557. //>>excludeEnd("ctx");
  2558. $3=$recv(varName).__comma(" := ");
  2559. if(($receiver = expr) == null || $receiver.isNil){
  2560. $4=buffer;
  2561. } else {
  2562. $4=expr;
  2563. };
  2564. $2=$recv($3).__comma($4);
  2565. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2566. $ctx3.sendIdx[","]=1;
  2567. //>>excludeEnd("ctx");
  2568. value=self._eval_on_($2,self["@session"]);
  2569. return value;
  2570. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2571. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,3)});
  2572. //>>excludeEnd("ctx");
  2573. }))._on_do_($Error(),(function(e){
  2574. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2575. return $core.withContext(function($ctx3) {
  2576. //>>excludeEnd("ctx");
  2577. $recv($recv($ConsoleErrorHandler())._new())._logError_(e);
  2578. value=nil;
  2579. return value;
  2580. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2581. }, function($ctx3) {$ctx3.fillBlock({e:e},$ctx2,5)});
  2582. //>>excludeEnd("ctx");
  2583. }));
  2584. return $recv(aBlock)._value_value_(varName,value);
  2585. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2586. }, function($ctx2) {$ctx2.fillBlock({name:name,expr:expr,varName:varName,value:value},$ctx1,1)});
  2587. //>>excludeEnd("ctx");
  2588. }));
  2589. return $1;
  2590. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2591. }, function($ctx1) {$ctx1.fill(self,"assignNewVariable:do:",{buffer:buffer,aBlock:aBlock},$globals.Repl)});
  2592. //>>excludeEnd("ctx");
  2593. },
  2594. //>>excludeStart("ide", pragmas.excludeIdeData);
  2595. args: ["buffer", "aBlock"],
  2596. source: "assignNewVariable: buffer do: aBlock\x0a\x09\x22Assigns a new variable and calls the given block with the variable's name and value\x0a\x09 if buffer contains an assignment expression. If it doesn't the block is called with nil for\x0a\x09 both arguments.\x22\x0a\x09^ self parseAssignment: buffer do: [ :name :expr || varName value |\x0a\x09\x09varName := name ifNil: [self nextResultName].\x0a\x09\x09session := self addVariableNamed: varName to: session.\x0a\x09\x09[ value := self eval: varName, ' := ', (expr ifNil: [buffer]) on: session ]\x0a\x09\x09\x09on: Error\x0a\x09\x09\x09do: [ :e | ConsoleErrorHandler new logError: e. value := nil].\x0a\x09\x09aBlock value: varName value: value]",
  2597. referencedClasses: ["Error", "ConsoleErrorHandler"],
  2598. //>>excludeEnd("ide");
  2599. messageSends: ["parseAssignment:do:", "ifNil:", "nextResultName", "addVariableNamed:to:", "on:do:", "eval:on:", ",", "logError:", "new", "value:value:"]
  2600. }),
  2601. $globals.Repl);
  2602. $core.addMethod(
  2603. $core.method({
  2604. selector: "clearScreen",
  2605. protocol: 'actions',
  2606. fn: function (){
  2607. var self=this;
  2608. var esc,cls;
  2609. function $String(){return $globals.String||(typeof String=="undefined"?nil:String)}
  2610. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2611. return $core.withContext(function($ctx1) {
  2612. //>>excludeEnd("ctx");
  2613. var $1;
  2614. esc=$recv($String())._fromCharCode_((27));
  2615. $1=$recv($recv(esc).__comma("[2J")).__comma(esc);
  2616. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2617. $ctx1.sendIdx[","]=2;
  2618. //>>excludeEnd("ctx");
  2619. cls=$recv($1).__comma("[0;0f");
  2620. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2621. $ctx1.sendIdx[","]=1;
  2622. //>>excludeEnd("ctx");
  2623. $recv($recv(process)._stdout())._write_(cls);
  2624. $recv(self["@interface"])._prompt();
  2625. return self;
  2626. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2627. }, function($ctx1) {$ctx1.fill(self,"clearScreen",{esc:esc,cls:cls},$globals.Repl)});
  2628. //>>excludeEnd("ctx");
  2629. },
  2630. //>>excludeStart("ide", pragmas.excludeIdeData);
  2631. args: [],
  2632. source: "clearScreen\x0a\x09| esc cls |\x0a\x09esc := String fromCharCode: 27.\x0a\x09cls := esc, '[2J', esc, '[0;0f'.\x0a\x09process stdout write: cls.\x0a\x09interface prompt",
  2633. referencedClasses: ["String"],
  2634. //>>excludeEnd("ide");
  2635. messageSends: ["fromCharCode:", ",", "write:", "stdout", "prompt"]
  2636. }),
  2637. $globals.Repl);
  2638. $core.addMethod(
  2639. $core.method({
  2640. selector: "close",
  2641. protocol: 'actions',
  2642. fn: function (){
  2643. var self=this;
  2644. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2645. return $core.withContext(function($ctx1) {
  2646. //>>excludeEnd("ctx");
  2647. $recv($recv(process)._stdin())._destroy();
  2648. return self;
  2649. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2650. }, function($ctx1) {$ctx1.fill(self,"close",{},$globals.Repl)});
  2651. //>>excludeEnd("ctx");
  2652. },
  2653. //>>excludeStart("ide", pragmas.excludeIdeData);
  2654. args: [],
  2655. source: "close\x0a\x09process stdin destroy",
  2656. referencedClasses: [],
  2657. //>>excludeEnd("ide");
  2658. messageSends: ["destroy", "stdin"]
  2659. }),
  2660. $globals.Repl);
  2661. $core.addMethod(
  2662. $core.method({
  2663. selector: "commands",
  2664. protocol: 'accessing',
  2665. fn: function (){
  2666. var self=this;
  2667. var $1;
  2668. $1=self["@commands"];
  2669. return $1;
  2670. },
  2671. //>>excludeStart("ide", pragmas.excludeIdeData);
  2672. args: [],
  2673. source: "commands\x0a\x09^ commands",
  2674. referencedClasses: [],
  2675. //>>excludeEnd("ide");
  2676. messageSends: []
  2677. }),
  2678. $globals.Repl);
  2679. $core.addMethod(
  2680. $core.method({
  2681. selector: "createInterface",
  2682. protocol: 'actions',
  2683. fn: function (){
  2684. var self=this;
  2685. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2686. return $core.withContext(function($ctx1) {
  2687. //>>excludeEnd("ctx");
  2688. var $1;
  2689. self["@interface"]=$recv(self["@readline"])._createInterface_stdout_($recv(process)._stdin(),$recv(process)._stdout());
  2690. $recv(self["@interface"])._on_do_("line",(function(buffer){
  2691. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2692. return $core.withContext(function($ctx2) {
  2693. //>>excludeEnd("ctx");
  2694. return self._processLine_(buffer);
  2695. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2696. }, function($ctx2) {$ctx2.fillBlock({buffer:buffer},$ctx1,1)});
  2697. //>>excludeEnd("ctx");
  2698. }));
  2699. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2700. $ctx1.sendIdx["on:do:"]=1;
  2701. //>>excludeEnd("ctx");
  2702. $recv(self["@interface"])._on_do_("close",(function(){
  2703. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2704. return $core.withContext(function($ctx2) {
  2705. //>>excludeEnd("ctx");
  2706. return self._close();
  2707. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2708. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)});
  2709. //>>excludeEnd("ctx");
  2710. }));
  2711. self._printWelcome();
  2712. self._setupHotkeys();
  2713. $1=self._setPrompt();
  2714. $recv(self["@interface"])._prompt();
  2715. return self;
  2716. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2717. }, function($ctx1) {$ctx1.fill(self,"createInterface",{},$globals.Repl)});
  2718. //>>excludeEnd("ctx");
  2719. },
  2720. //>>excludeStart("ide", pragmas.excludeIdeData);
  2721. args: [],
  2722. source: "createInterface\x0a\x09interface := readline createInterface: process stdin stdout: process stdout.\x0a\x09interface on: 'line' do: [:buffer | self processLine: buffer].\x0a\x09interface on: 'close' do: [self close].\x0a\x09self printWelcome; setupHotkeys; setPrompt.\x0a\x09interface prompt",
  2723. referencedClasses: [],
  2724. //>>excludeEnd("ide");
  2725. messageSends: ["createInterface:stdout:", "stdin", "stdout", "on:do:", "processLine:", "close", "printWelcome", "setupHotkeys", "setPrompt", "prompt"]
  2726. }),
  2727. $globals.Repl);
  2728. $core.addMethod(
  2729. $core.method({
  2730. selector: "encapsulateVariable:withValue:in:",
  2731. protocol: 'private',
  2732. fn: function (aString,anObject,aClass){
  2733. var self=this;
  2734. var compiler;
  2735. function $Compiler(){return $globals.Compiler||(typeof Compiler=="undefined"?nil:Compiler)}
  2736. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2737. return $core.withContext(function($ctx1) {
  2738. //>>excludeEnd("ctx");
  2739. var $1,$4,$3,$2,$5,$6;
  2740. compiler=$recv($Compiler())._new();
  2741. $1=compiler;
  2742. $4=$recv(aString).__comma(": anObject ^ ");
  2743. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2744. $ctx1.sendIdx[","]=3;
  2745. //>>excludeEnd("ctx");
  2746. $3=$recv($4).__comma(aString);
  2747. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2748. $ctx1.sendIdx[","]=2;
  2749. //>>excludeEnd("ctx");
  2750. $2=$recv($3).__comma(" := anObject");
  2751. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2752. $ctx1.sendIdx[","]=1;
  2753. //>>excludeEnd("ctx");
  2754. $recv($1)._install_forClass_protocol_($2,aClass,"session");
  2755. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2756. $ctx1.sendIdx["install:forClass:protocol:"]=1;
  2757. //>>excludeEnd("ctx");
  2758. $5=compiler;
  2759. $6=$recv($recv(aString).__comma(" ^ ")).__comma(aString);
  2760. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2761. $ctx1.sendIdx[","]=4;
  2762. //>>excludeEnd("ctx");
  2763. $recv($5)._install_forClass_protocol_($6,aClass,"session");
  2764. return self;
  2765. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2766. }, function($ctx1) {$ctx1.fill(self,"encapsulateVariable:withValue:in:",{aString:aString,anObject:anObject,aClass:aClass,compiler:compiler},$globals.Repl)});
  2767. //>>excludeEnd("ctx");
  2768. },
  2769. //>>excludeStart("ide", pragmas.excludeIdeData);
  2770. args: ["aString", "anObject", "aClass"],
  2771. source: "encapsulateVariable: aString withValue: anObject in: aClass\x0a\x09\x22Add getter and setter for given variable to session.\x22\x0a\x09| compiler |\x0a\x09compiler := Compiler new.\x0a\x09compiler install: aString, ': anObject ^ ', aString, ' := anObject' forClass: aClass protocol: 'session'.\x0a\x09compiler install: aString, ' ^ ', aString forClass: aClass protocol: 'session'.",
  2772. referencedClasses: ["Compiler"],
  2773. //>>excludeEnd("ide");
  2774. messageSends: ["new", "install:forClass:protocol:", ","]
  2775. }),
  2776. $globals.Repl);
  2777. $core.addMethod(
  2778. $core.method({
  2779. selector: "eval:",
  2780. protocol: 'actions',
  2781. fn: function (buffer){
  2782. var self=this;
  2783. function $DoIt(){return $globals.DoIt||(typeof DoIt=="undefined"?nil:DoIt)}
  2784. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2785. return $core.withContext(function($ctx1) {
  2786. //>>excludeEnd("ctx");
  2787. var $1;
  2788. $1=self._eval_on_(buffer,$recv($DoIt())._new());
  2789. return $1;
  2790. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2791. }, function($ctx1) {$ctx1.fill(self,"eval:",{buffer:buffer},$globals.Repl)});
  2792. //>>excludeEnd("ctx");
  2793. },
  2794. //>>excludeStart("ide", pragmas.excludeIdeData);
  2795. args: ["buffer"],
  2796. source: "eval: buffer\x0a\x09^ self eval: buffer on: DoIt new.",
  2797. referencedClasses: ["DoIt"],
  2798. //>>excludeEnd("ide");
  2799. messageSends: ["eval:on:", "new"]
  2800. }),
  2801. $globals.Repl);
  2802. $core.addMethod(
  2803. $core.method({
  2804. selector: "eval:on:",
  2805. protocol: 'actions',
  2806. fn: function (buffer,anObject){
  2807. var self=this;
  2808. var result;
  2809. function $Compiler(){return $globals.Compiler||(typeof Compiler=="undefined"?nil:Compiler)}
  2810. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2811. return $core.withContext(function($ctx1) {
  2812. //>>excludeEnd("ctx");
  2813. var $1,$2,$3;
  2814. $1=$recv(buffer)._isEmpty();
  2815. if(!$core.assert($1)){
  2816. $recv((function(){
  2817. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2818. return $core.withContext(function($ctx2) {
  2819. //>>excludeEnd("ctx");
  2820. result=$recv($recv($Compiler())._new())._evaluateExpression_on_(buffer,anObject);
  2821. return result;
  2822. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2823. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)});
  2824. //>>excludeEnd("ctx");
  2825. }))._tryCatch_((function(e){
  2826. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2827. return $core.withContext(function($ctx2) {
  2828. //>>excludeEnd("ctx");
  2829. $2=$recv(e)._isSmalltalkError();
  2830. if($core.assert($2)){
  2831. return $recv(e)._resignal();
  2832. } else {
  2833. return $recv($recv(process)._stdout())._write_($recv(e)._jsStack());
  2834. };
  2835. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2836. }, function($ctx2) {$ctx2.fillBlock({e:e},$ctx1,3)});
  2837. //>>excludeEnd("ctx");
  2838. }));
  2839. };
  2840. $3=result;
  2841. return $3;
  2842. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2843. }, function($ctx1) {$ctx1.fill(self,"eval:on:",{buffer:buffer,anObject:anObject,result:result},$globals.Repl)});
  2844. //>>excludeEnd("ctx");
  2845. },
  2846. //>>excludeStart("ide", pragmas.excludeIdeData);
  2847. args: ["buffer", "anObject"],
  2848. source: "eval: buffer on: anObject\x0a\x09| result |\x0a\x09buffer isEmpty ifFalse: [\x0a\x09\x09[result := Compiler new evaluateExpression: buffer on: anObject]\x0a\x09\x09\x09tryCatch: [:e |\x0a\x09\x09\x09\x09e isSmalltalkError\x0a\x09\x09\x09\x09 ifTrue: [ e resignal ]\x0a\x09\x09\x09 \x09 ifFalse: [ process stdout write: e jsStack ]]].\x0a\x09^ result",
  2849. referencedClasses: ["Compiler"],
  2850. //>>excludeEnd("ide");
  2851. messageSends: ["ifFalse:", "isEmpty", "tryCatch:", "evaluateExpression:on:", "new", "ifTrue:ifFalse:", "isSmalltalkError", "resignal", "write:", "stdout", "jsStack"]
  2852. }),
  2853. $globals.Repl);
  2854. $core.addMethod(
  2855. $core.method({
  2856. selector: "executeCommand:",
  2857. protocol: 'private',
  2858. fn: function (aString){
  2859. var self=this;
  2860. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2861. return $core.withContext(function($ctx1) {
  2862. //>>excludeEnd("ctx");
  2863. var $1;
  2864. var $early={};
  2865. try {
  2866. $recv(self._commands())._keysAndValuesDo_((function(names,cmd){
  2867. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2868. return $core.withContext(function($ctx2) {
  2869. //>>excludeEnd("ctx");
  2870. $1=$recv(names)._includes_(aString);
  2871. if($core.assert($1)){
  2872. $recv(cmd)._value();
  2873. throw $early=[true];
  2874. };
  2875. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2876. }, function($ctx2) {$ctx2.fillBlock({names:names,cmd:cmd},$ctx1,1)});
  2877. //>>excludeEnd("ctx");
  2878. }));
  2879. return false;
  2880. }
  2881. catch(e) {if(e===$early)return e[0]; throw e}
  2882. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2883. }, function($ctx1) {$ctx1.fill(self,"executeCommand:",{aString:aString},$globals.Repl)});
  2884. //>>excludeEnd("ctx");
  2885. },
  2886. //>>excludeStart("ide", pragmas.excludeIdeData);
  2887. args: ["aString"],
  2888. source: "executeCommand: aString\x0a\x09\x22Tries to process the given string as a command. Returns true if it was a command, false if not.\x22\x0a\x09self commands keysAndValuesDo: [:names :cmd |\x0a\x09\x09(names includes: aString) ifTrue: [\x0a\x09\x09\x09cmd value.\x0a\x09\x09\x09^ true]].\x0a\x09^ false",
  2889. referencedClasses: [],
  2890. //>>excludeEnd("ide");
  2891. messageSends: ["keysAndValuesDo:", "commands", "ifTrue:", "includes:", "value"]
  2892. }),
  2893. $globals.Repl);
  2894. $core.addMethod(
  2895. $core.method({
  2896. selector: "initialize",
  2897. protocol: 'initialization',
  2898. fn: function (){
  2899. var self=this;
  2900. function $DoIt(){return $globals.DoIt||(typeof DoIt=="undefined"?nil:DoIt)}
  2901. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2902. return $core.withContext(function($ctx1) {
  2903. //>>excludeEnd("ctx");
  2904. (
  2905. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2906. $ctx1.supercall = true,
  2907. //>>excludeEnd("ctx");
  2908. $globals.Repl.superclass.fn.prototype._initialize.apply($recv(self), []));
  2909. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2910. $ctx1.supercall = false;
  2911. //>>excludeEnd("ctx");;
  2912. self["@session"]=$recv($DoIt())._new();
  2913. self["@readline"]=$recv(require)._value_("readline");
  2914. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2915. $ctx1.sendIdx["value:"]=1;
  2916. //>>excludeEnd("ctx");
  2917. self["@util"]=$recv(require)._value_("util");
  2918. self._setupCommands();
  2919. return self;
  2920. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2921. }, function($ctx1) {$ctx1.fill(self,"initialize",{},$globals.Repl)});
  2922. //>>excludeEnd("ctx");
  2923. },
  2924. //>>excludeStart("ide", pragmas.excludeIdeData);
  2925. args: [],
  2926. source: "initialize\x0a\x09super initialize.\x0a\x09session := DoIt new.\x0a\x09readline := require value: 'readline'.\x0a\x09util := require value: 'util'.\x0a\x09self setupCommands",
  2927. referencedClasses: ["DoIt"],
  2928. //>>excludeEnd("ide");
  2929. messageSends: ["initialize", "new", "value:", "setupCommands"]
  2930. }),
  2931. $globals.Repl);
  2932. $core.addMethod(
  2933. $core.method({
  2934. selector: "instanceVariableNamesFor:",
  2935. protocol: 'private',
  2936. fn: function (aClass){
  2937. var self=this;
  2938. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2939. return $core.withContext(function($ctx1) {
  2940. //>>excludeEnd("ctx");
  2941. var $2,$3,$1,$receiver;
  2942. $2=$recv(aClass)._superclass();
  2943. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2944. $ctx1.sendIdx["superclass"]=1;
  2945. //>>excludeEnd("ctx");
  2946. if(($receiver = $2) == null || $receiver.isNil){
  2947. $1=$recv(aClass)._instanceVariableNames();
  2948. } else {
  2949. $3=$recv(aClass)._instanceVariableNames();
  2950. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2951. $ctx1.sendIdx["instanceVariableNames"]=1;
  2952. //>>excludeEnd("ctx");
  2953. $1=$recv($3)._copyWithAll_(self._instanceVariableNamesFor_($recv(aClass)._superclass()));
  2954. };
  2955. return $1;
  2956. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2957. }, function($ctx1) {$ctx1.fill(self,"instanceVariableNamesFor:",{aClass:aClass},$globals.Repl)});
  2958. //>>excludeEnd("ctx");
  2959. },
  2960. //>>excludeStart("ide", pragmas.excludeIdeData);
  2961. args: ["aClass"],
  2962. source: "instanceVariableNamesFor: aClass\x0a\x09\x22Yields all instance variable names for the given class, including inherited ones.\x22\x0a\x09^ aClass superclass\x0a\x09\x09ifNotNil: [\x0a\x09\x09\x09aClass instanceVariableNames copyWithAll: (self instanceVariableNamesFor: aClass superclass)]\x0a\x09\x09ifNil: [\x0a\x09\x09\x09aClass instanceVariableNames]",
  2963. referencedClasses: [],
  2964. //>>excludeEnd("ide");
  2965. messageSends: ["ifNotNil:ifNil:", "superclass", "copyWithAll:", "instanceVariableNames", "instanceVariableNamesFor:"]
  2966. }),
  2967. $globals.Repl);
  2968. $core.addMethod(
  2969. $core.method({
  2970. selector: "isIdentifier:",
  2971. protocol: 'private',
  2972. fn: function (aString){
  2973. var self=this;
  2974. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2975. return $core.withContext(function($ctx1) {
  2976. //>>excludeEnd("ctx");
  2977. var $1;
  2978. $1=$recv(aString)._match_("^[a-z_]\x5cw*$"._asRegexp());
  2979. return $1;
  2980. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2981. }, function($ctx1) {$ctx1.fill(self,"isIdentifier:",{aString:aString},$globals.Repl)});
  2982. //>>excludeEnd("ctx");
  2983. },
  2984. //>>excludeStart("ide", pragmas.excludeIdeData);
  2985. args: ["aString"],
  2986. source: "isIdentifier: aString\x0a\x09^ aString match: '^[a-z_]\x5cw*$' asRegexp",
  2987. referencedClasses: [],
  2988. //>>excludeEnd("ide");
  2989. messageSends: ["match:", "asRegexp"]
  2990. }),
  2991. $globals.Repl);
  2992. $core.addMethod(
  2993. $core.method({
  2994. selector: "isVariableDefined:",
  2995. protocol: 'private',
  2996. fn: function (aString){
  2997. var self=this;
  2998. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2999. return $core.withContext(function($ctx1) {
  3000. //>>excludeEnd("ctx");
  3001. var $1;
  3002. $1=$recv(self._instanceVariableNamesFor_($recv(self["@session"])._class()))._includes_(aString);
  3003. return $1;
  3004. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3005. }, function($ctx1) {$ctx1.fill(self,"isVariableDefined:",{aString:aString},$globals.Repl)});
  3006. //>>excludeEnd("ctx");
  3007. },
  3008. //>>excludeStart("ide", pragmas.excludeIdeData);
  3009. args: ["aString"],
  3010. source: "isVariableDefined: aString\x0a\x09^ (self instanceVariableNamesFor: session class) includes: aString",
  3011. referencedClasses: [],
  3012. //>>excludeEnd("ide");
  3013. messageSends: ["includes:", "instanceVariableNamesFor:", "class"]
  3014. }),
  3015. $globals.Repl);
  3016. $core.addMethod(
  3017. $core.method({
  3018. selector: "nextResultName",
  3019. protocol: 'private',
  3020. fn: function (){
  3021. var self=this;
  3022. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3023. return $core.withContext(function($ctx1) {
  3024. //>>excludeEnd("ctx");
  3025. var $1,$2,$receiver;
  3026. $1=self["@resultCount"];
  3027. if(($receiver = $1) == null || $receiver.isNil){
  3028. self["@resultCount"]=(1);
  3029. } else {
  3030. self["@resultCount"]=$recv(self["@resultCount"]).__plus((1));
  3031. };
  3032. $2="res".__comma($recv(self["@resultCount"])._asString());
  3033. return $2;
  3034. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3035. }, function($ctx1) {$ctx1.fill(self,"nextResultName",{},$globals.Repl)});
  3036. //>>excludeEnd("ctx");
  3037. },
  3038. //>>excludeStart("ide", pragmas.excludeIdeData);
  3039. args: [],
  3040. source: "nextResultName\x0a\x09resultCount := resultCount\x0a \x09ifNotNil: [resultCount + 1]\x0a \x09ifNil: [1].\x0a ^ 'res', resultCount asString",
  3041. referencedClasses: [],
  3042. //>>excludeEnd("ide");
  3043. messageSends: ["ifNotNil:ifNil:", "+", ",", "asString"]
  3044. }),
  3045. $globals.Repl);
  3046. $core.addMethod(
  3047. $core.method({
  3048. selector: "onKeyPress:",
  3049. protocol: 'private',
  3050. fn: function (key){
  3051. var self=this;
  3052. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3053. return $core.withContext(function($ctx1) {
  3054. //>>excludeEnd("ctx");
  3055. var $1;
  3056. $1=$recv($recv(key)._ctrl())._and_((function(){
  3057. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3058. return $core.withContext(function($ctx2) {
  3059. //>>excludeEnd("ctx");
  3060. return $recv($recv(key)._name()).__eq("l");
  3061. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3062. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  3063. //>>excludeEnd("ctx");
  3064. }));
  3065. if($core.assert($1)){
  3066. self._clearScreen();
  3067. };
  3068. return self;
  3069. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3070. }, function($ctx1) {$ctx1.fill(self,"onKeyPress:",{key:key},$globals.Repl)});
  3071. //>>excludeEnd("ctx");
  3072. },
  3073. //>>excludeStart("ide", pragmas.excludeIdeData);
  3074. args: ["key"],
  3075. source: "onKeyPress: key\x0a\x09(key ctrl and: [key name = 'l'])\x0a\x09\x09ifTrue: [self clearScreen]",
  3076. referencedClasses: [],
  3077. //>>excludeEnd("ide");
  3078. messageSends: ["ifTrue:", "and:", "ctrl", "=", "name", "clearScreen"]
  3079. }),
  3080. $globals.Repl);
  3081. $core.addMethod(
  3082. $core.method({
  3083. selector: "parseAssignment:do:",
  3084. protocol: 'private',
  3085. fn: function (aString,aBlock){
  3086. var self=this;
  3087. var assignment;
  3088. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3089. return $core.withContext(function($ctx1) {
  3090. //>>excludeEnd("ctx");
  3091. var $3,$2,$1;
  3092. assignment=$recv($recv(aString)._tokenize_(":="))._collect_((function(s){
  3093. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3094. return $core.withContext(function($ctx2) {
  3095. //>>excludeEnd("ctx");
  3096. return $recv(s)._trimBoth();
  3097. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3098. }, function($ctx2) {$ctx2.fillBlock({s:s},$ctx1,1)});
  3099. //>>excludeEnd("ctx");
  3100. }));
  3101. $2=$recv($recv($recv(assignment)._size()).__eq((2)))._and_((function(){
  3102. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3103. return $core.withContext(function($ctx2) {
  3104. //>>excludeEnd("ctx");
  3105. $3=$recv(assignment)._first();
  3106. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3107. $ctx2.sendIdx["first"]=1;
  3108. //>>excludeEnd("ctx");
  3109. return self._isIdentifier_($3);
  3110. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3111. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)});
  3112. //>>excludeEnd("ctx");
  3113. }));
  3114. if($core.assert($2)){
  3115. $1=$recv(aBlock)._value_value_($recv(assignment)._first(),$recv(assignment)._last());
  3116. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3117. $ctx1.sendIdx["value:value:"]=1;
  3118. //>>excludeEnd("ctx");
  3119. } else {
  3120. $1=$recv(aBlock)._value_value_(nil,nil);
  3121. };
  3122. return $1;
  3123. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3124. }, function($ctx1) {$ctx1.fill(self,"parseAssignment:do:",{aString:aString,aBlock:aBlock,assignment:assignment},$globals.Repl)});
  3125. //>>excludeEnd("ctx");
  3126. },
  3127. //>>excludeStart("ide", pragmas.excludeIdeData);
  3128. args: ["aString", "aBlock"],
  3129. source: "parseAssignment: aString do: aBlock\x0a\x09\x22Assigns a new variable if the given string is an assignment expression. Calls the given block with name and value.\x0a\x09 If the string is not one no variable will be assigned and the block will be called with nil for both arguments.\x22\x0a\x09| assignment |\x0a\x09assignment := (aString tokenize: ':=') collect: [:s | s trimBoth].\x0a\x09^ (assignment size = 2 and: [self isIdentifier: assignment first])\x0a\x09\x09ifTrue: [ aBlock value: assignment first value: assignment last ]\x0a\x09\x09ifFalse: [ aBlock value: nil value: nil ]",
  3130. referencedClasses: [],
  3131. //>>excludeEnd("ide");
  3132. messageSends: ["collect:", "tokenize:", "trimBoth", "ifTrue:ifFalse:", "and:", "=", "size", "isIdentifier:", "first", "value:value:", "last"]
  3133. }),
  3134. $globals.Repl);
  3135. $core.addMethod(
  3136. $core.method({
  3137. selector: "presentResultNamed:withValue:",
  3138. protocol: 'private',
  3139. fn: function (varName,value){
  3140. var self=this;
  3141. function $Transcript(){return $globals.Transcript||(typeof Transcript=="undefined"?nil:Transcript)}
  3142. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3143. return $core.withContext(function($ctx1) {
  3144. //>>excludeEnd("ctx");
  3145. var $3,$2,$1,$4;
  3146. $3=$recv($recv(varName).__comma(": ")).__comma($recv($recv(value)._class())._name());
  3147. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3148. $ctx1.sendIdx[","]=3;
  3149. //>>excludeEnd("ctx");
  3150. $2=$recv($3).__comma(" = ");
  3151. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3152. $ctx1.sendIdx[","]=2;
  3153. //>>excludeEnd("ctx");
  3154. $1=$recv($2).__comma($recv(value)._asString());
  3155. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3156. $ctx1.sendIdx[","]=1;
  3157. //>>excludeEnd("ctx");
  3158. $recv($Transcript())._show_($1);
  3159. $4=$recv($Transcript())._cr();
  3160. $recv(self["@interface"])._prompt();
  3161. return self;
  3162. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3163. }, function($ctx1) {$ctx1.fill(self,"presentResultNamed:withValue:",{varName:varName,value:value},$globals.Repl)});
  3164. //>>excludeEnd("ctx");
  3165. },
  3166. //>>excludeStart("ide", pragmas.excludeIdeData);
  3167. args: ["varName", "value"],
  3168. source: "presentResultNamed: varName withValue: value\x0a\x09Transcript show: varName, ': ', value class name, ' = ', value asString; cr.\x0a\x09interface prompt",
  3169. referencedClasses: ["Transcript"],
  3170. //>>excludeEnd("ide");
  3171. messageSends: ["show:", ",", "name", "class", "asString", "cr", "prompt"]
  3172. }),
  3173. $globals.Repl);
  3174. $core.addMethod(
  3175. $core.method({
  3176. selector: "printWelcome",
  3177. protocol: 'actions',
  3178. fn: function (){
  3179. var self=this;
  3180. function $Transcript(){return $globals.Transcript||(typeof Transcript=="undefined"?nil:Transcript)}
  3181. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3182. return $core.withContext(function($ctx1) {
  3183. //>>excludeEnd("ctx");
  3184. var $1;
  3185. $recv($Transcript())._show_("Type :q to exit.");
  3186. $1=$recv($Transcript())._cr();
  3187. return self;
  3188. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3189. }, function($ctx1) {$ctx1.fill(self,"printWelcome",{},$globals.Repl)});
  3190. //>>excludeEnd("ctx");
  3191. },
  3192. //>>excludeStart("ide", pragmas.excludeIdeData);
  3193. args: [],
  3194. source: "printWelcome\x0a\x09Transcript show: 'Type :q to exit.'; cr.",
  3195. referencedClasses: ["Transcript"],
  3196. //>>excludeEnd("ide");
  3197. messageSends: ["show:", "cr"]
  3198. }),
  3199. $globals.Repl);
  3200. $core.addMethod(
  3201. $core.method({
  3202. selector: "processLine:",
  3203. protocol: 'private',
  3204. fn: function (buffer){
  3205. var self=this;
  3206. var show;
  3207. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3208. return $core.withContext(function($ctx1) {
  3209. //>>excludeEnd("ctx");
  3210. var $1,$2;
  3211. show=(function(varName,value){
  3212. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3213. return $core.withContext(function($ctx2) {
  3214. //>>excludeEnd("ctx");
  3215. return self._presentResultNamed_withValue_(varName,value);
  3216. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3217. }, function($ctx2) {$ctx2.fillBlock({varName:varName,value:value},$ctx1,1)});
  3218. //>>excludeEnd("ctx");
  3219. });
  3220. $1=self._executeCommand_(buffer);
  3221. if(!$core.assert($1)){
  3222. $2=self._isVariableDefined_(buffer);
  3223. if($core.assert($2)){
  3224. $recv(show)._value_value_(buffer,$recv(self["@session"])._perform_(buffer));
  3225. } else {
  3226. self._assignNewVariable_do_(buffer,show);
  3227. };
  3228. };
  3229. return self;
  3230. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3231. }, function($ctx1) {$ctx1.fill(self,"processLine:",{buffer:buffer,show:show},$globals.Repl)});
  3232. //>>excludeEnd("ctx");
  3233. },
  3234. //>>excludeStart("ide", pragmas.excludeIdeData);
  3235. args: ["buffer"],
  3236. source: "processLine: buffer\x0a\x09\x22Processes lines entered through the readline interface.\x22\x0a\x09| show |\x0a\x09show := [:varName :value | self presentResultNamed: varName withValue: value].\x0a\x09(self executeCommand: buffer) ifFalse: [\x0a\x09\x09(self isVariableDefined: buffer)\x0a\x09\x09\x09ifTrue: [show value: buffer value: (session perform: buffer)]\x0a\x09\x09\x09ifFalse: [self assignNewVariable: buffer do: show]]",
  3237. referencedClasses: [],
  3238. //>>excludeEnd("ide");
  3239. messageSends: ["presentResultNamed:withValue:", "ifFalse:", "executeCommand:", "ifTrue:ifFalse:", "isVariableDefined:", "value:value:", "perform:", "assignNewVariable:do:"]
  3240. }),
  3241. $globals.Repl);
  3242. $core.addMethod(
  3243. $core.method({
  3244. selector: "prompt",
  3245. protocol: 'accessing',
  3246. fn: function (){
  3247. var self=this;
  3248. return "amber >> ";
  3249. },
  3250. //>>excludeStart("ide", pragmas.excludeIdeData);
  3251. args: [],
  3252. source: "prompt\x0a\x09^ 'amber >> '",
  3253. referencedClasses: [],
  3254. //>>excludeEnd("ide");
  3255. messageSends: []
  3256. }),
  3257. $globals.Repl);
  3258. $core.addMethod(
  3259. $core.method({
  3260. selector: "setPreviousVariablesFor:from:",
  3261. protocol: 'private',
  3262. fn: function (newObject,oldObject){
  3263. var self=this;
  3264. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3265. return $core.withContext(function($ctx1) {
  3266. //>>excludeEnd("ctx");
  3267. $recv(self._instanceVariableNamesFor_($recv(oldObject)._class()))._do_((function(each){
  3268. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3269. return $core.withContext(function($ctx2) {
  3270. //>>excludeEnd("ctx");
  3271. return $recv(newObject)._perform_withArguments_($recv(each).__comma(":"),[$recv(oldObject)._perform_(each)]);
  3272. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3273. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  3274. //>>excludeEnd("ctx");
  3275. }));
  3276. return self;
  3277. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3278. }, function($ctx1) {$ctx1.fill(self,"setPreviousVariablesFor:from:",{newObject:newObject,oldObject:oldObject},$globals.Repl)});
  3279. //>>excludeEnd("ctx");
  3280. },
  3281. //>>excludeStart("ide", pragmas.excludeIdeData);
  3282. args: ["newObject", "oldObject"],
  3283. source: "setPreviousVariablesFor: newObject from: oldObject\x0a\x09(self instanceVariableNamesFor: oldObject class) do: [:each |\x0a\x09\x09newObject perform: each, ':' withArguments: {oldObject perform: each}].",
  3284. referencedClasses: [],
  3285. //>>excludeEnd("ide");
  3286. messageSends: ["do:", "instanceVariableNamesFor:", "class", "perform:withArguments:", ",", "perform:"]
  3287. }),
  3288. $globals.Repl);
  3289. $core.addMethod(
  3290. $core.method({
  3291. selector: "setPrompt",
  3292. protocol: 'actions',
  3293. fn: function (){
  3294. var self=this;
  3295. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3296. return $core.withContext(function($ctx1) {
  3297. //>>excludeEnd("ctx");
  3298. $recv(self["@interface"])._setPrompt_(self._prompt());
  3299. return self;
  3300. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3301. }, function($ctx1) {$ctx1.fill(self,"setPrompt",{},$globals.Repl)});
  3302. //>>excludeEnd("ctx");
  3303. },
  3304. //>>excludeStart("ide", pragmas.excludeIdeData);
  3305. args: [],
  3306. source: "setPrompt\x0a\x09interface setPrompt: self prompt",
  3307. referencedClasses: [],
  3308. //>>excludeEnd("ide");
  3309. messageSends: ["setPrompt:", "prompt"]
  3310. }),
  3311. $globals.Repl);
  3312. $core.addMethod(
  3313. $core.method({
  3314. selector: "setupCommands",
  3315. protocol: 'initialization',
  3316. fn: function (){
  3317. var self=this;
  3318. function $Dictionary(){return $globals.Dictionary||(typeof Dictionary=="undefined"?nil:Dictionary)}
  3319. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3320. return $core.withContext(function($ctx1) {
  3321. //>>excludeEnd("ctx");
  3322. var $2,$1;
  3323. $2=$recv([":q"]).__minus_gt((function(){
  3324. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3325. return $core.withContext(function($ctx2) {
  3326. //>>excludeEnd("ctx");
  3327. return $recv(process)._exit();
  3328. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3329. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  3330. //>>excludeEnd("ctx");
  3331. }));
  3332. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3333. $ctx1.sendIdx["->"]=1;
  3334. //>>excludeEnd("ctx");
  3335. $1=[$2,$recv([""]).__minus_gt((function(){
  3336. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3337. return $core.withContext(function($ctx2) {
  3338. //>>excludeEnd("ctx");
  3339. return $recv(self["@interface"])._prompt();
  3340. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3341. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)});
  3342. //>>excludeEnd("ctx");
  3343. }))];
  3344. self["@commands"]=$recv($Dictionary())._from_($1);
  3345. return self;
  3346. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3347. }, function($ctx1) {$ctx1.fill(self,"setupCommands",{},$globals.Repl)});
  3348. //>>excludeEnd("ctx");
  3349. },
  3350. //>>excludeStart("ide", pragmas.excludeIdeData);
  3351. args: [],
  3352. source: "setupCommands\x0a\x09commands := Dictionary from: {\x0a\x09\x09{':q'} -> [process exit].\x0a\x09\x09{''} -> [interface prompt]}",
  3353. referencedClasses: ["Dictionary"],
  3354. //>>excludeEnd("ide");
  3355. messageSends: ["from:", "->", "exit", "prompt"]
  3356. }),
  3357. $globals.Repl);
  3358. $core.addMethod(
  3359. $core.method({
  3360. selector: "setupHotkeys",
  3361. protocol: 'initialization',
  3362. fn: function (){
  3363. var self=this;
  3364. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3365. return $core.withContext(function($ctx1) {
  3366. //>>excludeEnd("ctx");
  3367. var $receiver;
  3368. $recv($recv(process)._stdin())._on_do_("keypress",(function(s,key){
  3369. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3370. return $core.withContext(function($ctx2) {
  3371. //>>excludeEnd("ctx");
  3372. if(($receiver = key) == null || $receiver.isNil){
  3373. return key;
  3374. } else {
  3375. return self._onKeyPress_(key);
  3376. };
  3377. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3378. }, function($ctx2) {$ctx2.fillBlock({s:s,key:key},$ctx1,1)});
  3379. //>>excludeEnd("ctx");
  3380. }));
  3381. return self;
  3382. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3383. }, function($ctx1) {$ctx1.fill(self,"setupHotkeys",{},$globals.Repl)});
  3384. //>>excludeEnd("ctx");
  3385. },
  3386. //>>excludeStart("ide", pragmas.excludeIdeData);
  3387. args: [],
  3388. source: "setupHotkeys\x0a\x09process stdin on: 'keypress' do: [:s :key | key ifNotNil: [self onKeyPress: key]].",
  3389. referencedClasses: [],
  3390. //>>excludeEnd("ide");
  3391. messageSends: ["on:do:", "stdin", "ifNotNil:", "onKeyPress:"]
  3392. }),
  3393. $globals.Repl);
  3394. $core.addMethod(
  3395. $core.method({
  3396. selector: "subclass:withVariable:",
  3397. protocol: 'private',
  3398. fn: function (aClass,varName){
  3399. var self=this;
  3400. function $ClassBuilder(){return $globals.ClassBuilder||(typeof ClassBuilder=="undefined"?nil:ClassBuilder)}
  3401. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3402. return $core.withContext(function($ctx1) {
  3403. //>>excludeEnd("ctx");
  3404. var $1;
  3405. $1=$recv($recv($ClassBuilder())._new())._addSubclassOf_named_instanceVariableNames_package_(aClass,$recv(self._subclassNameFor_(aClass))._asSymbol(),[varName],"Compiler-Core");
  3406. return $1;
  3407. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3408. }, function($ctx1) {$ctx1.fill(self,"subclass:withVariable:",{aClass:aClass,varName:varName},$globals.Repl)});
  3409. //>>excludeEnd("ctx");
  3410. },
  3411. //>>excludeStart("ide", pragmas.excludeIdeData);
  3412. args: ["aClass", "varName"],
  3413. source: "subclass: aClass withVariable: varName\x0a\x09\x22Create subclass with new variable.\x22\x0a\x09^ ClassBuilder new\x0a\x09\x09addSubclassOf: aClass\x0a\x09\x09named: (self subclassNameFor: aClass) asSymbol\x0a\x09\x09instanceVariableNames: {varName}\x0a\x09\x09package: 'Compiler-Core'",
  3414. referencedClasses: ["ClassBuilder"],
  3415. //>>excludeEnd("ide");
  3416. messageSends: ["addSubclassOf:named:instanceVariableNames:package:", "new", "asSymbol", "subclassNameFor:"]
  3417. }),
  3418. $globals.Repl);
  3419. $core.addMethod(
  3420. $core.method({
  3421. selector: "subclassNameFor:",
  3422. protocol: 'private',
  3423. fn: function (aClass){
  3424. var self=this;
  3425. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3426. return $core.withContext(function($ctx1) {
  3427. //>>excludeEnd("ctx");
  3428. var $3,$2,$7,$6,$5,$4,$8,$1,$receiver;
  3429. $3=$recv(aClass)._name();
  3430. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3431. $ctx1.sendIdx["name"]=1;
  3432. //>>excludeEnd("ctx");
  3433. $2=$recv($3)._matchesOf_("\x5cd+$");
  3434. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3435. $ctx1.sendIdx["matchesOf:"]=1;
  3436. //>>excludeEnd("ctx");
  3437. if(($receiver = $2) == null || $receiver.isNil){
  3438. $1=$recv($recv(aClass)._name()).__comma("2");
  3439. } else {
  3440. var counter;
  3441. $7=$recv(aClass)._name();
  3442. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3443. $ctx1.sendIdx["name"]=2;
  3444. //>>excludeEnd("ctx");
  3445. $6=$recv($7)._matchesOf_("\x5cd+$");
  3446. $5=$recv($6)._first();
  3447. $4=$recv($5)._asNumber();
  3448. counter=$recv($4).__plus((1));
  3449. counter;
  3450. $8=$recv(aClass)._name();
  3451. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3452. $ctx1.sendIdx["name"]=3;
  3453. //>>excludeEnd("ctx");
  3454. $1=$recv($8)._replaceRegexp_with_("\x5cd+$"._asRegexp(),$recv(counter)._asString());
  3455. };
  3456. return $1;
  3457. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3458. }, function($ctx1) {$ctx1.fill(self,"subclassNameFor:",{aClass:aClass},$globals.Repl)});
  3459. //>>excludeEnd("ctx");
  3460. },
  3461. //>>excludeStart("ide", pragmas.excludeIdeData);
  3462. args: ["aClass"],
  3463. source: "subclassNameFor: aClass\x0a\x09^ (aClass name matchesOf: '\x5cd+$')\x0a\x09\x09ifNotNil: [ | counter |\x0a\x09\x09\x09counter := (aClass name matchesOf: '\x5cd+$') first asNumber + 1.\x0a\x09\x09\x09aClass name replaceRegexp: '\x5cd+$' asRegexp with: counter asString]\x0a\x09\x09ifNil: [\x0a\x09\x09\x09aClass name, '2'].",
  3464. referencedClasses: [],
  3465. //>>excludeEnd("ide");
  3466. messageSends: ["ifNotNil:ifNil:", "matchesOf:", "name", "+", "asNumber", "first", "replaceRegexp:with:", "asRegexp", "asString", ","]
  3467. }),
  3468. $globals.Repl);
  3469. $core.addMethod(
  3470. $core.method({
  3471. selector: "main",
  3472. protocol: 'initialization',
  3473. fn: function (){
  3474. var self=this;
  3475. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3476. return $core.withContext(function($ctx1) {
  3477. //>>excludeEnd("ctx");
  3478. $recv(self._new())._createInterface();
  3479. return self;
  3480. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  3481. }, function($ctx1) {$ctx1.fill(self,"main",{},$globals.Repl.klass)});
  3482. //>>excludeEnd("ctx");
  3483. },
  3484. //>>excludeStart("ide", pragmas.excludeIdeData);
  3485. args: [],
  3486. source: "main\x0a\x09self new createInterface",
  3487. referencedClasses: [],
  3488. //>>excludeEnd("ide");
  3489. messageSends: ["createInterface", "new"]
  3490. }),
  3491. $globals.Repl.klass);
  3492. });