Головна сторінка Огляд Довідка
Реєстрація Увійти
raisch
/
amber
відгалужено від amber/amber
1
0
Відгалуження 0
Файли
Переглянути джерело

Merge branch 'upstream' into gh-630

Conflicts:
	Gruntfile.js
	bin/amber-cli.js
Herbert Vojčík 11 роки тому
батько
c94afc1097 97f1d2534a
коміт
71d5222b5b
7 змінених файлів з 1084 додано та 490 видалено
Розділений вигляд Показати статистику Diff
  1. 2 1
      Gruntfile.js
  2. 1039 433
      bin/amber-cli.js
  3. 18 5
      cli/index.html
  4. 8 5
      cli/js/AmberCli.js
  5. 17 17
      cli/st/AmberCli.st
  6. 0 23
      js/Compiler-IR.js
  7. 0 6
      st/Compiler-IR.st

+ 2 - 1
Gruntfile.js
Переглянути файл 

@@ -98,7 +98,8 @@ module.exports = function(grunt) {
 
             'Compiler-IR', 'Compiler-Inlining', 'Compiler-Semantic', 'Compiler-Interpreter', '@parser'
 
         ],
 
         main_class: 'AmberCli',
 
-        output_name: '../../bin/amber-cli'
 
+        output_name: '../../bin/amber-cli',
 
+        amd_namespace: 'amber_cli'
 
       }
 
     },

Різницю між файлами не показано, бо вона завелика
+ 1039 - 433
bin/amber-cli.js


+ 18 - 5
cli/index.html
Переглянути файл 

@@ -5,15 +5,28 @@
 
     <title>Amber Smalltalk</title> 
     <meta http-equiv="content-type" content="text/html; charset=utf-8" /> 
     <meta name="author" content="Nicolas Petton" /> 
-    <script type='text/javascript' src='../support/amber.js'></script>
 
+    <script type='text/javascript' src='../support/requirejs/require.min.js'></script>
 
+    <script src='../support/amber.js'></script>
 
+
 
   </head> 
 
   <body> 
     <script type='text/javascript'>
 
-      loadAmber({
 
-        files: ['AmberCli.js'],
 
-        prefix: 'cli/js',
 
-        ready: function() {smalltalk.Browser._open()}})
 
+    require.config({
 
+        paths: {
 
+            'amber_cli': 'js',
 
+            'amber_cli/_source': 'st'
 
+        }
 
+    });
 
+    require(
 
+        ["amber/devel",
 
+            "amber_cli/AmberCli" ],
 
+        function (smalltalk) {
 
+            smalltalk.defaultAMDNamespace = 'amber_cli';
 
+            smalltalk.initialize();
 
+            smalltalk.Browser._openOn_(smalltalk.AmberCli);
 
+        }
 
+    );
 
     </script> 
   </body> 
 </html>

+ 8 - 5
cli/js/AmberCli.js
Переглянути файл 

@@ -1,4 +1,7 @@
 
+define("amber_cli/AmberCli", ["amber_vm/smalltalk", "amber_vm/nil", "amber_vm/_st", "amber_core/Kernel-Objects"], function(smalltalk,nil,_st){
 
 smalltalk.addPackage('AmberCli');
 
+smalltalk.packages["AmberCli"].transport = {"type":"amd","amdNamespace":"amber_cli"};
 
+
 
 smalltalk.addClass('AmberCli', smalltalk.Object, [], 'AmberCli');
 
 smalltalk.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.";
 
 
@@ -90,7 +93,7 @@ _st(console)._log_("Required is at least Node.js v0.8.x or greater.");
 
 return (-1);
 
 };
 
 args=_st(process)._argv();
 
-_st(args)._removeFrom_to_((1),(3));
 
+_st(args)._removeFrom_to_((1),(2));
 
 $2=_st(args)._isEmpty();
 
 if(smalltalk.assert($2)){
 
 self._help_(nil);
 
@@ -100,7 +103,7 @@ return $3;
 
 };
 
 return self}, function($ctx1) {$ctx1.fill(self,"main",{args:args,nodeMinorVersion:nodeMinorVersion},smalltalk.AmberCli.klass)})},
 
 args: [],
 
-source: "main\x0a\x09\x22Main entry point for Amber applications.\x0a\x09Parses commandline arguments and starts the according subprogram.\x22\x0a\x09| args nodeMinorVersion |\x0a\x0a\x09nodeMinorVersion := ((process version) tokenize: '.') second asNumber.\x0a\x09nodeMinorVersion < 8 ifTrue: [\x0a\x09\x09console log: 'You are currently using Node.js ', (process version).\x0a\x09\x09console log: 'Required is at least Node.js v0.8.x or greater.'.\x0a\x09\x09^ -1.\x0a\x09].\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: 3.\x0a\x09\x0a\x09(args isEmpty)\x0a\x09\x09ifTrue: [self help: nil]\x0a\x09\x09ifFalse: [^self handleArguments: args]",
 
+source: "main\x0a\x09\x22Main entry point for Amber applications.\x0a\x09Parses commandline arguments and starts the according subprogram.\x22\x0a\x09| args nodeMinorVersion |\x0a\x0a\x09nodeMinorVersion := ((process version) tokenize: '.') second asNumber.\x0a\x09nodeMinorVersion < 8 ifTrue: [\x0a\x09\x09console log: 'You are currently using Node.js ', (process version).\x0a\x09\x09console log: 'Required is at least Node.js v0.8.x or greater.'.\x0a\x09\x09^ -1.\x0a\x09].\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]",
 
 messageSends: ["asNumber", "second", "tokenize:", "version", "ifTrue:", "log:", ",", "<", "argv", "removeFrom:to:", "ifTrue:ifFalse:", "help:", "handleArguments:", "isEmpty"],
 
 referencedClasses: []
 
 }),
 
@@ -455,7 +458,7 @@ category: 'initialization',
 
 fn: function (){
 
 var self=this;
 
 return smalltalk.withContext(function($ctx1) { 
-smalltalk.Object.fn.prototype._initialize.apply(_st(self), []);
 
+smalltalk.FileServer.superclass.fn.prototype._initialize.apply(_st(self), []);
 
 self["@path"]=self._require_("path");
 
 self["@http"]=self._require_("http");
 
 self["@fs"]=self._require_("fs");
 
@@ -1381,7 +1384,7 @@ fn: function (){
 
 var self=this;
 
 function $DoIt(){return smalltalk.DoIt||(typeof DoIt=="undefined"?nil:DoIt)}
 
 return smalltalk.withContext(function($ctx1) { 
-smalltalk.Object.fn.prototype._initialize.apply(_st(self), []);
 
+smalltalk.Repl.superclass.fn.prototype._initialize.apply(_st(self), []);
 
 self["@session"]=_st($DoIt())._new();
 
 self["@readline"]=_st(require)._value_("readline");
 
 self["@util"]=_st(require)._value_("util");
 
@@ -1765,4 +1768,4 @@ referencedClasses: []
 
 }),
 
 smalltalk.Repl.klass);
 
 
-
 
+});

+ 17 - 17
cli/st/AmberCli.st
Переглянути файл 

@@ -84,7 +84,7 @@ main
 
 
 	args := process argv.
 
 	"Remove the first args which contain the path to the node executable and the script file."
 
-	args removeFrom: 1 to: 3.
 
+	args removeFrom: 1 to: 2.
 
 	
 	(args isEmpty)
 
 		ifTrue: [self help: nil]
 
@@ -903,12 +903,12 @@ My runtime requirement is a functional Node.js executable with working Readline
 
 
 !Repl methodsFor: 'accessing'!
 
 
-prompt
 
-	^'amber >> '
 
-!
 
-
 
 commands
 
 	^ commands
 
+!
 
+
 
+prompt
 
+	^'amber >> '
 
 ! !
 
 
 !Repl methodsFor: 'actions'!
 
@@ -955,14 +955,14 @@ initialize
 
 	self setupCommands
 
 !
 
 
-setupHotkeys
 
-	process stdin on: 'keypress' do: [:s :key | key ifNotNil: [self onKeyPress: key]].
 
-!
 
-
 
 setupCommands
 
 	commands := Dictionary from: {
 
 		{':q'} -> [process exit].
 
 		{''} -> [interface prompt]}
 
+!
 
+
 
+setupHotkeys
 
+	process stdin on: 'keypress' do: [:s :key | key ifNotNil: [self onKeyPress: key]].
 
 ! !
 
 
 !Repl methodsFor: 'private'!
 
@@ -987,6 +987,14 @@ assignNewVariable: buffer do: aBlock
 
 		aBlock value: varName value: value]
 
 !
 
 
+clearScreen
 
+	| esc cls |
 
+	esc := String fromCharCode: 27.
 
+	cls := esc, '[2J', esc, '[0;0f'.
 
+	process stdout write: cls.
 
+	interface prompt
 
+!
 
+
 
 encapsulateVariable: aString withValue: anObject in: aClass
 
 	"Add getter and setter for given variable to session."
 
 	| compiler |
 
@@ -1033,14 +1041,6 @@ onKeyPress: key
 
 		ifTrue: [self clearScreen]
 
 !
 
 
-clearScreen
 
-	| esc cls |
 
-	esc := String fromCharCode: 27.
 
-	cls := esc, '[2J', esc, '[0;0f'.
 
-	process stdout write: cls.
 
-	interface prompt
 
-!
 
-
 
 parseAssignment: aString do: aBlock
 
 	"Assigns a new variable if the given string is an assignment expression. Calls the given block with name and value.
 
 	 If the string is not one no variable will be assigned and the block will be called with nil for both arguments."

+ 0 - 23
js/Compiler-IR.js
Переглянути файл 

@@ -3563,29 +3563,6 @@ referencedClasses: []
 
 }),
 
 smalltalk.JSStream);
 
 
-smalltalk.addMethod(
 
-smalltalk.method({
 
-selector: "nextPutStatement:with:",
 
-category: 'streaming',
 
-fn: function (anInteger,aBlock){
 
-var self=this;
 
-return smalltalk.withContext(function($ctx1) { 
-var $1,$2,$3,$4;
 
-$1=self["@stream"];
 
-_st($1)._nextPutAll_(_st("case ".__comma(_st(anInteger)._asString())).__comma(":"));
 
-$2=_st($1)._lf();
 
-self._nextPutStatementWith_(aBlock);
 
-$3=self["@stream"];
 
-_st($3)._nextPutAll_(_st("smalltalk.thisContext.pc=".__comma(_st(_st(anInteger).__plus((1)))._asString())).__comma(";"));
 
-$4=_st($3)._lf();
 
-return self}, function($ctx1) {$ctx1.fill(self,"nextPutStatement:with:",{anInteger:anInteger,aBlock:aBlock},smalltalk.JSStream)})},
 
-args: ["anInteger", "aBlock"],
 
-source: "nextPutStatement: anInteger with: aBlock\x0a\x09stream nextPutAll: 'case ', anInteger asString, ':'; lf.\x0a\x09self nextPutStatementWith: aBlock.\x0a\x09stream nextPutAll: 'smalltalk.thisContext.pc=', (anInteger + 1) asString, ';'; lf",
 
-messageSends: ["nextPutAll:", ",", "asString", "lf", "nextPutStatementWith:", "+"],
 
-referencedClasses: []
 
-}),
 
-smalltalk.JSStream);
 
-
 
 smalltalk.addMethod(
 
 smalltalk.method({
 
 selector: "nextPutStatementWith:",

+ 0 - 6
st/Compiler-IR.st
Переглянути файл 

@@ -1219,12 +1219,6 @@ nextPutSequenceWith: aBlock
 
 		nextPutAll: '};'; lf"
 
 !
 
 
-nextPutStatement: anInteger with: aBlock
 
-	stream nextPutAll: 'case ', anInteger asString, ':'; lf.
 
-	self nextPutStatementWith: aBlock.
 
-	stream nextPutAll: 'smalltalk.thisContext.pc=', (anInteger + 1) asString, ';'; lf
 
-!
 
-
 
 nextPutStatementWith: aBlock
 
 	aBlock value.
 
 	stream nextPutAll: ';'; lf

Деякі файли не було показано, через те що забагато файлів було змінено